Global: ^WV(790.07

FileMan FileNo	FileMan Filename	Package
790.07	WV REFERRAL SOURCE	Womens Health

FileMan FileNo

FileMan Filename

Package

790.07

WV REFERRAL SOURCE

Womens Health

Description

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.

Package	Total	Routines
Womens Health	5	^WV(790.07 ^WV(791 WVSITE WVUTL1 WVUTL1A

Package

Total

Routines

Womens Health

^WV(790.07 ^WV(791 WVSITE WVUTL1 WVUTL1A

Package	Total	Routines
Womens Health	1	WVSITE

Package

Total

Routines

Womens Health

WVSITE

Package	Total	FileMan Files
Womens Health	1	WV PATIENT(#790)[.22]

Package

Total

FileMan Files

Womens Health

WV PATIENT(#790)[.22]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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).`
1	STATUS	0;2	SET	**********************REQUIRED FIELD********************** '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.`
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.`

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

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).

STATUS

0;2

SET

************************REQUIRED FIELD************************

'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.

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.