STANDARD DATA DICTIONARY #790.07 -- WV REFERRAL SOURCE FILE 3/24/25 PAGE 1 STORED IN ^WV(790.07, (5 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains sources of referral for patients to the Women's Health Program. For example, entries may be references to clinics or hospital services (e.g., General Medicine Clinic, Triage), community activities or special events (e.g., health fairs), specific individuals, and newspapers advertisements or articles. Additional information may be added to this file by the case manager through the Add/Edit to Referral Source File option. This file is also referenced through the Edit/Print Patient Case Data to document a specific referral source for a patient. FILE SCREEN (SCR-node) : I $P(^(0),U,2)>0&$G(XQY0)'["REFERRAL" DD ACCESS: @ RD ACCESS: WR ACCESS: DEL ACCESS: LAYGO ACCESS: AUDIT ACCESS: @ POINTED TO BY: REFERRAL SOURCE field (#.22) of the WV PATIENT File (#790) CROSS REFERENCED BY: NAME(B), NAME(C) 790.07,.01 NAME 0;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X LAST EDITED: MAY 22, 1998 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field contains a referral source used to describe how the patient was referred to the Women Veterans Health Program. The source can be a clinic, a special event (e.g., health fair), newspaper advertisement, or individual (such as a primary provider, self, other patient). DELETE TEST: 1,0)= I 1 NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 790.07^B 1)= S ^WV(790.07,"B",$E(X,1,30),DA)="" 2)= K ^WV(790.07,"B",$E(X,1,30),DA) CROSS-REFERENCE: 790.07^C^MUMPS 1)= S WVACT="SET" D REF^WVUTL1A 2)= S WVACT="KIL" D REF^WVUTL1A The purpose of this cross references on the name field (.01) is to allow user's input to be non-case sensitive during edits. The name field (.01) values may contain mixed case entries, which created case sensitivity when editing fields in other files that point to WV REFERRAL SOURCE (#790.07). 790.07,1 STATUS 0;2 SET (Required) '1' FOR ACTIVE; '0' FOR INACTIVE; LAST EDITED: MAY 20, 1998 DESCRIPTION: This field stores a set of codes (1 = active and 0 = inactive) used to display or hide an entry in a selection list. If the field is active, users of this package can select the entry. 790.07,2 UPPERCASE REFERRAL SOURCE ; COMPUTED MUMPS CODE: S X=$P(^WV(790.07,D0,0),"^"),X=$$UP^XLFSTR(X) ALGORITHM: S X=$P(^WV(790.07,D0,0),"^"),X=$$UP^XLFSTR(X) LAST EDITED: DEC 09, 1998 DESCRIPTION: This field converts the referral source to all capital letters for x-referencing. INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):