Routine: AGEVC

Package	Total	Call Graph
VA Fileman	6	^%DT ^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$VALI^XBDIQ1 EN^XBVK
IHS Generic Interface System	1	$$DATE^INHUT
IHS Support HL7 Interfaces	1	($$ELG,$$ELGS)^BHLEVENT
Kernel	1	$$FMTE^XLFDT
Patient Care Component	1	^APCDVLK

Package	Total	Caller Graph
IHS Patient Registration	1	AGEVST

Name	Comments	DBIA/ICR reference
A	;-- admit/visit date
E1(AGEVVSDT)	;EP - for setting up necessary elig date vars
PAT	;-- get the patient
RR(AGEVPAT,AGEVVST)	;EP - get railroad entries
MC(AGEVPAT,AGEVVST)	;EP - get the medicaid entry
MR(AGEVPAT,AGEVVST)	;EP - get the medicare entry
AL(AGEVPAT,AGEVVST)	;EP - get all the entries
VSDT(VST)	;-- return visit date
LOG(PAT)	;-- set the update array in the patient file
INS	;-- which type of insurance should be checked?
ECHK(PAT,ELGDT,OELG)	;EP - last eligibility update
KILL	;-- kill off array
PI(AGEVPAT,AGEVVST)	;EP - get the private insurance entries
EOJ	;-- kill variables and quit
E	;-- send by eligibility date
MAIN	;-- this is the main routine driver
TYP	;-- select eligibility by which type of action

Name	Field # of Occurrence
^%DT	E+3
^%DTC	ECHK+8
^APCDVLK	A+3
$$ELG^BHLEVENT	PI+69
$$ELGS^BHLEVENT	MR+37, MC+36, PI+64, RR+24
^DIC	PAT+4
^DIE	LOG+2
$$GET1^DIQ	MR+6, MR+9, MR+12, MR+19, MR+20, MR+22, MR+24, MR+27, MR+29, MC+8 , MC+10, MC+13, MC+16, MC+23, MC+24, MC+25, MC+26, MC+29, MC+31, PI+5 , PI+23, PI+26, PI+27, PI+28, PI+32, PI+39, PI+40, PI+41, PI+43, PI+44 , PI+46, PI+54, PI+55, PI+58, PI+60, RR+5, RR+7, RR+8, RR+15, RR+16 , RR+17, RR+19, RR+20, ECHK+2
^DIR	TYP+4, TYP+10, INS+5
$$DATE^INHUT	A+11, E1+2
$$VALI^XBDIQ1	A+7, MR+5, MR+25, MR+26, MC+7, MC+9, MC+27, MC+28, PI+13, PI+17 , PI+22, PI+35, PI+42, PI+56, PI+57, RR+4, RR+18
EN^XBVK	EOJ+1, EOJ+2, EOJ+3
$$FMTE^XLFDT	E+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Patient Selected",! Line Location: MAIN+2
Function Call: WRITE	Prompt: !,AGEVMESS,! Line Location: MAIN+5
Function Call: WRITE	Prompt: !,"No Visit Selected",! Line Location: MAIN+6
Function Call: WRITE	Prompt: ! Line Location: PAT+1
Routine Call	DIE Line Location: LOG+2
Routine Call	DIC Line Location: PAT+4
Routine Call	DIR Line Location: TYP+4 TYP+10 INS+5

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
^AUPNMCR - [#9000003]	GET1^DIQ
^AUPN3PPH - [#9000003.1]	GET1^DIQ
^AUPNMCD - [#9000004]	GET1^DIQ
^AUPNRRE - [#9000005]	GET1^DIQ
^AUPNPRVT - [#9000006]	GET1^DIQ
9000006.11	GET1^DIQ
^AGFAC - [#9009061]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD("B"	MC+1, MC+5
^AUPNMCR - [#9000003]	MR+30, MR+32
^AUPNMCR("B"	MR+1
^AUPNPAT - [#9000001]	ECHK+4, ECHK+7
^AUPNPRVT - [#9000006]	PI+10, PI+11, PI+15
^AUPNPRVT("B"	PI+1
^AUPNRRE("B"	RR+1
^AUPNVSIT - [#9000010]	VSDT+1

Name	Line Occurrences
$$ECHK	A+8, E+6
@(	TYP+15, INS+10
E1	E+9
EOJ	MAIN+8, AL+4
INS	MAIN+8
KILL	MR+2, MC+2, PI+2, RR+2
LOG	AL+3, ECHK+5
MC	AL+1
MR	AL+1
PAT	MAIN+1
PI	AL+1
RR	AL+2
TYP	MAIN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	E+1*
>> %DT("A"	E+1*
>> %DT("B"	E+2*
>> AGECIPE	PI+27*
>> AGEV	MR+37, MC+36, PI+64, PI+69, RR+24
>> AGEV(	KILL+2!
>> AGEV("DTP012100C"	TYP+13, TYP+14, E1+3*
>> AGEV("DTP012100D"	TYP+13, TYP+14, E1+3*
>> AGEV("DTP032100C"	A+11, E1+2
>> AGEV("DTP032100D"	A+11, E1+2
>> AGEV("EQ042100C"	MR+34, MC+32, PI+45, RR+21
>> AGEV("EQ042100D"	PI+61*
>> AGEV("INS022100D"	PI+14, PI+18
>> AGEV("MEDICAR	E SENT" , MR+31, MR+38*
>> AGEV("N3012100C"	MR+22, MC+24, PI+40, RR+16
>> AGEV("N3012100D"	PI+54*
>> AGEV("N4012100C"	MR+24, MC+25, MC+26, PI+41, PI+55, RR+17
>> AGEV("N4022100C"	MR+27, MC+29, PI+43, PI+58, RR+19*
>> AGEV("N4032100C"	MR+29, MC+31, PI+44, RR+20
>> AGEV("N4032100D"	PI+60*
>> AGEV("NM1032100A"	MR+7, MC+11, PI+30, RR+6
>> AGEV("NM1032100C"	MR+16, MC+20, PI+36, RR+12
>> AGEV("NM1032100D"	PI+50*
>> AGEV("NM1042100C"	MR+17, MC+21, PI+37, RR+13
>> AGEV("NM1042100D"	PI+51*
>> AGEV("NM1052100C"	MR+18, MC+22, PI+38, RR+14
>> AGEV("NM1052100D"	PI+52*
>> AGEV("NM1092100A"	MR+9, MR+10, MC+13, MC+14, PI+32, PI+33, RR+7*
>> AGEV("NM1092100C"	MR+21, MC+23, PI+39, RR+15
>> AGEV("NM1092100D"	PI+53*
>> AGEV("REF02"	PI+28*
>> AGEV(9000003	KILL+2!
>> AGEV(9000004	KILL+2!
>> AGEV(9000005	KILL+2!
>> AGEVCSTI	MR+26, MR+27, MC+28, MC+29, PI+57*, PI+58
>> AGEVDA	MR+30, MR+32, MC+4, MC+5, MC+6, MC+7, MC+8, MC+9, MC+10, MC+16 , MC+23, PI+9, PI+10*, PI+11, PI+15, PI+26, PI+27
>> AGEVET	TYP+6, TYP+13, TYP+14, TYP+15
>> AGEVEXT	EOJ+1
>> AGEVINS	INS+7*, INS+9
>> AGEVINT	ECHK+2, ECHK+3, ECHK+9
>> AGEVIPE	MR+6, MR+7, MC+8, MC+10, MC+11, PI+23, PI+27, PI+30, RR+5*, RR+6
AGEVIPI	MR+5, MR+8, MR+9, MC+3~, MC+7, MC+9, MC+12, MC+13, PI+22, PI+26* , PI+31, PI+32, PI+35, RR+4*, RR+7
>> AGEVMCRN	MR+19*, MR+21
>> AGEVMCRS	MR+20*, MR+21
>> AGEVMESS	MAIN+5, A+9, E+7
>> AGEVMSG	MR+37, MC+36, PI+64, PI+69, RR+24*
>> AGEVOELG	TYP+11*, A+8, E+6
AGEVPAT	MAIN+2, PAT+7*, A+8, E+6, INS+9, MR~, MR+1, MR+4, MR+5, MR+6 , MR+12, MR+19, MR+20, MR+22, MR+24, MR+25, MR+29, MR+30, MR+32, MR+35 , MR+37, MC~, MC+1, MC+5, MC+24, MC+25, MC+26, MC+27, MC+31, MC+34 , MC+36, PI~, PI+1, PI+4, PI+5, PI+10, PI+11, PI+15, PI+20, PI+26 , PI+27, PI+46, PI+54, PI+55, PI+56, PI+60, PI+62, PI+64, PI+69, RR~ , RR+1, RR+3, RR+4, RR+5, RR+8, RR+15, RR+16, RR+17, RR+18, RR+20 , RR+22, RR+24, AL~, AL+1, AL+2, AL+3
>> AGEVPLPP	PI+13*, PI+20
AGEVPOLF	MR+3~, MR+14, MR+17, MC+3~, MC+18, MC+21, PI+3~, PI+7, PI+37, RR+10 , RR+13
AGEVPOLH	MR+3~, MR+12, MR+13, MR+14, MR+15, MC+3~, MC+16, MC+17, MC+18, MC+19 , PI+3~, PI+5, PI+6, PI+7, PI+8, RR+8, RR+9, RR+10, RR+11
AGEVPOLL	MR+3~, MR+13, MR+16, MC+3~, MC+17, MC+20, PI+3~, PI+6, PI+36, RR+9 , RR+12
AGEVPOLM	MR+3~, MR+15, MR+18, MC+3~, MC+19, MC+22, PI+3~, PI+8, PI+38, RR+11 , RR+14
>> AGEVPOLP	PI+11*, PI+12, PI+13, PI+21, PI+22, PI+23, PI+28, PI+39, PI+40, PI+41 , PI+42, PI+44
>> AGEVPPLF	PI+48*, PI+51
>> AGEVPPLH	PI+46*, PI+47, PI+48, PI+49
>> AGEVPPLL	PI+47*, PI+50
>> AGEVPPLM	PI+49*, PI+52
>> AGEVPRRS	PI+42*, PI+43
>> AGEVRELC	PI+17*, PI+18
>> AGEVRELI	PI+15*, PI+16, PI+17
>> AGEVRRS	MR+25, MR+26, MC+27, MC+28, PI+56, PI+57, RR+18, RR+19
AGEVSUBS	PI+20*, PI+63, PI+66!
AGEVVSDT	A+7, A+8, A+11, E+5, E+6, E+9, E1~, E1+2, VSDT+1*, VSDT+2
AGEVVST	MAIN+4, A+6, A+7, E1+1, INS+9, MR~, MR+35, MR+37, MC~, MC+34 , MC+36, PI~, PI+62, PI+64, PI+69, RR~, RR+22, RR+24, AL~, AL+1 , AL+2
APCDLOOK	A+1*, A+5!
>> APCDPAT	PAT+2, PAT+7
APCDVLK	A+2!
>> APCDVSIT	A+1*, A+4, A+6
>> BHLEQ	MR+33*, MR+34
>> BHLXCT	MR+32*, MR+33
>> DA	LOG+1*
DIC	PAT+3*, PAT+5!
DIC(0	PAT+3*
>> DIE	LOG+1*
DIR	TYP+7!, TYP+12!
DIR("A"	TYP+2, TYP+9, INS+3*
DIR("B"	TYP+3, INS+4
DIR(0	TYP+1, TYP+8, INS+1, INS+2
>> DIRUT	MAIN+7, TYP+5, INS+6
>> DR	LOG+1*
DT	E+2, LOG+1
DUZ(2	ECHK+2
ELGDT	ECHK~, ECHK+1, ECHK+7
>> INDA	MR+35, MC+34, PI+62, RR+22
>> INDA(	KILL+1!
>> INDA(2	MR+35, MC+34, PI+62, RR+22
>> INDA(9000003	MR+4*, KILL+1!
>> INDA(9000004	MC+6*, KILL+1!
>> INDA(9000005	RR+3*, KILL+1!
>> INDA(9000006	PI+4*
>> INDA(9000010	MR+35, MC+34, PI+62, RR+22
OELG	ECHK~, ECHK+5
PAT	ECHK~, ECHK+4, ECHK+5, ECHK+7, LOG~, LOG+1
TAGCALL	INS+9*, INS+10, INS+11!
U	MR+32, PI+11, PI+15, ECHK+4, ECHK+7, VSDT+1
VST	VSDT~, VSDT+1
X	ECHK+6~, ECHK+9
>> X1	ECHK+7*
>> X2	ECHK+7*
>> Y	PAT+6, PAT+7, TYP+6, TYP+11, E+4, E+5, INS+7

Customize PDF page

Package: IHS Patient Registration

Routine: AGEVC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: