Routine: DGUTL3

Package	Total	Caller Graph
Scheduling	18	SDC0 SDC1 SDC3 SDCNL SDCNP1 SDCNP1A SDCO22 SDECDEV SDES2APTLETTERSV SDESAPPTLETTERSV SDL1 SDM2 SDN SDN1 SDRRRECL SDRRRECP SDRRTSK SDRRTSK1
Outpatient Pharmacy	14	PSOBAI PSOBAIR2 PSOBAIRP PSOCP PSOHLDS5 PSOLLL1 PSOMLLD2 PSOPKIV2 PSOPTPST PSORLLL1 PSORXVW PSOSD1 PSOSULOG PSOTPCLP
Registration	11	DG101 DG101F DGENACL1 DGPTF DGPTF1 DGPTX1 DGQWK DGQWKF DGRRLU1A DPTLK VAFHLZPD
VA Point of Service	3	VPSAPPT VPSRPC26 VPSSEND
Accounts Receivable	1	PRCABARP
CMOP	1	PSXMISC1
DSS Extracts	1	ECXUTL4
Enrollment Application System	1	EASMTL6A
Income Verification Match	1	IVMPTRN9
Inpatient Medications	1	PSJDPT
Lab Service	1	LREPI3
Surgery	1	SROAPIMS
VA FileMan	1	ITEM

Entry Points

Name	Comments	DBIA/ICR reference
ELIG(DFN,SOURCE,DEFAULT)	;-- This function will prompt for the eligibility for a patient. If ; only one eligibility then it will be returned without prompting.
DISP	;-- display choices
1
ELIGQ	;
GETEL(DFN)	;-- This function will get the eligibilities for the patient ; specified by DFN and return all the active eligibilities in the ; ARRAY specified.
GETDEL(DFN,START,END)	;-- This function will scan the Eligibility Date ; Sensitive file #8.3 for all active eligibilities for a date range.
ASKPR(DFN)	;-- This function will ask the user for the primary eligibility.
TRY
PRIMQ	;
BADADR(DFN)	;does this patient have a bad address?	ICR #4080 Status: Active Usage: Supported ICR #7037 Status: Pending Usage: Private
DELBAI(DFN)	;delete bad address indicator
GETSHAD(DFN)	;Get current value of Proj 112/SHAD from Patient file. ; Input: DFN - Patient ien ; Output: Valid values - 1 (Yes), 0 (No), or null ; -1 - error	ICR #4462 Status: Active Usage: Supported

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS OTHER ENTITLED ELIGIBILITIES:" Line Location: DISP+1
Function Call: WRITE	Prompt: !?5,$P(VAEL(1),U,2) Line Location: DISP+2
Function Call: WRITE	Prompt: !?5,$P(VAEL(1,X),U,2) Line Location: DISP+4
Function Call: WRITE	Prompt: !,"ENTER THE ELIGIBILITY FOR THIS "_$S(SOURCE=1:"MOVEMENT",SOURCE=2:"ADMISSION",SOURCE=3:"TRANSFER",1:"PATIENT")_": "_$P(DGDEF,U,2)_"// " Line Location: 1+0
Function Call: WRITE	Prompt: $P($P(ALLEL,U_X,2),U) Line Location: 1+12
Function Call: WRITE	Prompt: !,"PRIMARY ELIGIBILITY CODE: "_$P(DGDEF,U,2)_"// " Line Location: TRY+0
Routine Call	DIE Line Location: DELBAI+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	ELIG+13, GETDEL+7, GETDEL+8, ASKPR+6
^DPT - [#2]	BADADR+3, GETSHAD+5
^VAEL(8.3	GETDEL+5, GETDEL+6, ASKPR+5

Name	Field # of Occurrence
^(	GETDEL+6

Name	Field # of Occurrence
ALLEL	ELIG+9~, ELIG+16, DISP+5, 1+10, 1+12, ASKPR+2~
DEFAULT	ELIG~, ELIG+13, ELIG+14, ASKPR+5*, ASKPR+6, ASKPR+7
DFN	ELIG~, ELIG+12, GETEL~, GETDEL~, GETDEL+5, GETDEL+6, ASKPR~, ASKPR+5, BADADR~, BADADR+2 , BADADR+3, DELBAI~, DELBAI+2, DELBAI+3, GETSHAD~, GETSHAD+4, GETSHAD+5
DGDEF	ELIG+9~, ELIG+13, ELIG+14, ELIG+20, 1, 1+7, ASKPR+2~, ASKPR+6, ASKPR+7*, TRY
DGI	GETDEL+3~, GETDEL+5*, GETDEL+6, GETDEL+7, GETDEL+8
DGJ	GETDEL+3~, GETDEL+6*
DGK	GETDEL+3~, GETDEL+6*, GETDEL+7, GETDEL+8
DTIME	1+1, TRY+1
EMP	ELIG+9~, ELIG+16, 1+12, 1+13, 1+15, ASKPR+2~
END	GETDEL~
FDA	DELBAI+1~
FDA(2	DELBAI+3*
IENS	DELBAI+1~, DELBAI+3*
RESULT	ELIG+9~, ELIG+16, ELIG+18, 1+7, 1+13, 1+15, ELIGQ+2, ASKPR+2~, ASKPR+9, PRIMQ+2
SOURCE	ELIG~, 1
START	GETDEL~
U	ELIG+13, ELIG+14, ELIG+16, DISP+2, DISP+4, DISP+5, 1, 1+5, 1+10, 1+12 , 1+13, 1+15, GETDEL+7, GETDEL+8, ASKPR+6, ASKPR+7, TRY, TRY+5
VAEL	ELIG+9~, ELIG+17, ELIGQ+1!, ASKPR+2~, PRIMQ+1!
VAEL(1	ELIG+16, ELIG+18, ELIG+20, DISP+2, DISP+3, DISP+4, DISP+5, 1+13, 1+14, 1+15 , GETDEL+7, GETDEL+8
X	ELIG+9~, DISP+3, DISP+4, DISP+5, 1+1, 1+5, 1+7, 1+9, 1+10, 1+12 , 1+14, 1+15, ASKPR+2~, TRY+1, TRY+5, TRY+7
Y	ELIG+9~, ASKPR+2~