Routine: DGUTL3

Information

DGUTL3 ;ALB/MTC,CKN - ELIGIBILITY UTILITIES ; 10/4/05 12:22pm

Source file <DGUTL3.m>

Package	Total	Call Graph
Registration	2	ELIG^VADPT $$UPPER^VALM1
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
Scheduling	15	SDC0 SDC1 SDC3 SDCNL SDCNP1 SDCNP1A SDCO22 SDL1 SDM2 SDN SDN1 SDRRRECL SDRRRECP SDRRTSK SDRRTSK1
Outpatient Pharmacy	11	PSOBAI PSOBAIR2 PSOBAIRP PSOCP PSOLLL1 PSOMLLD2 PSOPTPST PSORXVW PSOSD1 PSOSULOG PSOTPCLP
Registration	8	DGENACL1 DGPTF DGPTF1 DGPTX1 DGQEDEMO DGRPD DGRRLU1A DPTLK
IHS Electronic Health Record	1	BEHOPTC1
Inpatient Medications	1	PSJDPT
Surgery	1	SROAPIMS

Name	Comments	DBIA/ICR reference
DISP	;-- display choices
ELIGQ	;
DELBAI(DFN)	;delete bad address indicator
GETDEL(DFN,START,END)	;-- This function will scan the Eligibility Date ; Sensitive file #8.3 for all active eligibilities for a date range.
GETEL(DFN)	;-- This function will get the eligibilities for the patient ; specified by DFN and return all the active eligibilities in the ; ARRAY specified.
ASKPR(DFN)	;-- This function will ask the user for the primary eligibility.
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.
1
PRIMQ	;
TRY
BADADR(DFN)	;does this patient have a bad address?	ICR #4080 Status: Active Usage: Supported
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~