Routine: AGEVLM

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Registration	2	EN^VALM ($$FTIME,CLEAR,FULL)^VALM1
VA Fileman	2	^DIC $$GET1^DIQ
IHS Patient	1	(,KILL)^AUPNPAT
IHS Patient Registration	1	(MCD,MCR,PI,RR)^AGEVLM0
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	;PEP - main entry point for AGEV ELIGIBILITY VERIFICATION
HDR	;EP - header code
GATHER1	;-- this gets the patient and policy holder information
DEP	;-- this gets the dependent information
EOJ	;-- end of job cleanup
GATHER	;EP - this gets the particular patient
GETPAT	;-- get patient
EN1	;PEP - requires DFN to be set to patient
INIT	;-- init variables and list array
EXIT	; -- exit code
TEXT	;
MAIN	;-- main routine driver
EXPND	; -- expand code
SUB	;-- this gets the subscriber information

External References

Name	Field # of Occurrence
MCD^AGEVLM0	GATHER1+13
MCR^AGEVLM0	GATHER1+14
PI^AGEVLM0	GATHER1+16
RR^AGEVLM0	GATHER1+15
^AUPNPAT	EN1+7
KILL^AUPNPAT	GETPAT+3, EOJ+7
^DIC	GETPAT+7
$$GET1^DIQ	GATHER1+13, GATHER1+14, GATHER1+15
EN^VALM	EN+2
$$FTIME^VALM1	HDR+3
CLEAR^VALM1	EOJ+1, EN+2
FULL^VALM1	MAIN+6, EN1+9
EN^XBVK	EOJ+7, EXIT+1
$$FMTE^XLFDT	GATHER1+11
DISP^XQORM1	HELP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: MAIN+2
Function Call: WRITE	Prompt: !! Line Location: MAIN+4
Function Call: WRITE	Prompt: ! Line Location: GETPAT+5
Function Call: WRITE	Prompt: !! Line Location: HELP+3
Routine Call	VALM Line Location: EN+2
Routine Call	DIC Line Location: GETPAT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AGEVH - [#9009066]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGEVH - [#9009066]	GATHER1+1, GATHER1+2, SUB+2, SUB+3, SUB+6, SUB+7, SUB+8, SUB+11, SUB+12, SUB+13 , SUB+14, SUB+16, SUB+17, SUB+18, SUB+21, SUB+22, SUB+25, SUB+26, SUB+27, SUB+30 , SUB+31, DEP+2, DEP+3, DEP+6, DEP+7, DEP+8, DEP+9, DEP+10, DEP+11, DEP+12 , DEP+14, DEP+15, DEP+16, DEP+19, DEP+20, DEP+23, DEP+24, DEP+25, DEP+28, DEP+29
^AGEVH("B"	GATHER+6
^AUPNPAT - [#9000001]	EN1+4, HDR+5
^DPT - [#2]	EN1+5, HDR+2, HDR+4
^TMP("AGEV"	GATHER+7, GATHER+8, EXIT+2!

Label References

Name	Line Occurrences
DEP	GATHER1+12
EN	EN1+7
EN1	MAIN+6
EOJ	MAIN+7
EXIT	MAIN+6, EN1+9
GATHER	INIT+1
GATHER1	GATHER+12
GETPAT	MAIN+6
SUB	GATHER1+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGEV("DEP DTP	" , DEP+7, DEP+8
>> AGEV("DEP ELG	DTP" , DEP+24, DEP+25, INFO" , DEP+10, DEP+11, DEP+12, MSG" , DEP+29, REQ VAL" , DEP+20*
>> AGEV("DEP REF	ID" , DEP+15, DEP+16
>> AGEV("DEP REQ	VAL" , DEP+3*
>> AGEV("SUB DTP	" , SUB+7, SUB+8
>> AGEV("SUB ELG	DTP" , SUB+26, SUB+27, INFO" , SUB+12, SUB+13, SUB+14, MSG" , SUB+31, REQ VAL" , SUB+22*
>> AGEV("SUB REF	ID" , SUB+17, SUB+18
>> AGEV("SUB REQ	VAL" , SUB+3*
>> AGEVADA	SUB+15, SUB+16, SUB+17, SUB+18, SUB+20, SUB+21, SUB+22, SUB+24, SUB+25, SUB+26 , SUB+27, SUB+29, SUB+30, SUB+31, DEP+13, DEP+14, DEP+15, DEP+16, DEP+18, DEP+19 , DEP+20, DEP+22, DEP+23, DEP+24, DEP+25, DEP+27, DEP+28, DEP+29
AGEVAF	GETPAT+1!, EOJ+5!, GATHER+11*, EXIT+3!
AGEVC	EXIT+3!
>> AGEVCNT	GATHER+5*
AGEVDATE	GETPAT+1!, EOJ+5!, EXIT+4!
>> AGEVF	GETPAT+10*, GATHER1+1, GATHER1+2, SUB+2, SUB+3, SUB+6, SUB+7, SUB+8, SUB+11, SUB+12 , SUB+13, SUB+14, SUB+16, SUB+17, SUB+18, SUB+21, SUB+22, SUB+25, SUB+26, SUB+27 , SUB+30, SUB+31, DEP+2, DEP+3, DEP+6, DEP+7, DEP+8, DEP+9, DEP+10, DEP+11 , DEP+12, DEP+14, DEP+15, DEP+16, DEP+19, DEP+20, DEP+23, DEP+24, DEP+25, DEP+28 , DEP+29
>> AGEVH0	GATHER1+2*, GATHER1+4
>> AGEVH1	GATHER1+2*, GATHER1+3, GATHER1+6, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+10, GATHER1+11
>> AGEVHDA	SUB+1, SUB+2, SUB+3, SUB+5, SUB+6, SUB+7, SUB+8, SUB+10, SUB+11, SUB+12 , SUB+13, SUB+14, SUB+16, SUB+17, SUB+18, SUB+21, SUB+22, SUB+25, SUB+26, SUB+27 , SUB+30, SUB+31, DEP+1, DEP+2, DEP+3, DEP+5, DEP+6, DEP+7, DEP+8, DEP+9* , DEP+10, DEP+11, DEP+12, DEP+14, DEP+15, DEP+16, DEP+19, DEP+20, DEP+23, DEP+24 , DEP+25, DEP+28, DEP+29
>> AGEVINS	GATHER1+4*, GATHER1+5, GATHER1+13, GATHER1+14, GATHER1+15
AGEVL	EXIT+3!
AGEVLINE	INIT+2, GATHER+5*, EXIT+3!
AGEVLOC	GETPAT+1!, EOJ+5!, EXIT+4!
AGEVLOOK	GETPAT+2!, EOJ+6!, EXIT+4!
AGEVLR	EXIT+3!
AGEVOVRR	GETPAT+1!, EOJ+5!, EXIT+4!
AGEVP0	EXIT+3!
AGEVPAT	GETPAT+1!, EOJ+5!
AGEVPDFN	GETPAT+2!, EOJ+6!, EXIT+4!
>> AGEVPDOB	GATHER1+11*
>> AGEVPHSX	GATHER1+9*
AGEVPIEN	GETPAT+1!, EOJ+5!, EXIT+3!
AGEVPL	GATHER+4!
AGEVPLPT	MAIN+5, MAIN+6!, GETPAT+1!, GETPAT+4, GETPAT+10, EOJ+5!, EN1+2, EN1+3, EN1+4, EN1+5 , EN1+6, EN1+8!, HDR+2, HDR+4, HDR+5, GATHER+6
>> AGEVPOLG	GATHER1+8*
>> AGEVPOLH	GATHER1+6*
>> AGEVPOLN	GATHER1+7*
AGEVPRB	GETPAT+1!, EOJ+5!, EXIT+4!
>> AGEVPST	GATHER1+10*
AGEVQUIT	GATHER+4!
AGEVRCNT	GATHER+5, GATHER+9, EXIT+3!
AGEVX	EXIT+3!
>> AUPNDOB	HDR+3
>> DFN	MAIN+6*, EN1+1, EN1+2
DIC	GETPAT+6*, GETPAT+8!
DIC(0	GETPAT+6*
DUZ(2	HDR+5
IOF	MAIN+1
>> IOINORM	HDR+2
>> IORVON	HDR+2
J	MAIN+2*, MAIN+3!
U	GETPAT+10, HDR+2, HDR+4, HDR+5, GATHER1+4, GATHER1+6, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+10 , GATHER1+11, SUB+7, SUB+8, SUB+12, SUB+13, SUB+14, SUB+17, SUB+18, SUB+26, SUB+27 , DEP+7, DEP+8, DEP+10, DEP+11, DEP+12, DEP+15, DEP+16, DEP+24, DEP+25
VALM	EOJ+2!
VALMAR	EOJ+2!
VALMBCK	EOJ+2!
VALMBG	EOJ+2!
VALMCAP	EOJ+2!
>> VALMCC	EN+1*
VALMCNT	EOJ+2!, INIT+2*
VALMDN	EOJ+3!
VALMEVL	EOJ+3!
VALMHDR	EXIT+6!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2, HDR+3, HDR+4, HDR+5
VALMHDR(3	HDR+6*
VALMIOXY	EOJ+3!
VALMKEY	EOJ+2!, EOJ+3!
VALMLFT	EOJ+3!
VALMLST	EOJ+3!
VALMMCON	EOJ+3!
VALMMENU	EOJ+3!
VALMOFF	EOJ+2!
VALMSGR	EOJ+4!
VALMUP	EOJ+4!
VALMWD	EOJ+1, EOJ+4!
VALMY	EOJ+4!
X	MAIN+2, MAIN+3!, HELP+1, EXIT+5!
XQORNEST	EOJ+2!
XQORS	EOJ+4!
XQORSPEW	EOJ+4!
Y	GETPAT+9, GETPAT+10, EN1+6*, EXIT+5!

Marked Items

Name	Field # of Occurrence
$T(TEXT+J	MAIN+2

Customize PDF page

Package: IHS Patient Registration

Routine: AGEVLM

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items