Routine: AGED4A1

Package	Total	Call Graph
IHS Patient Registration	7	^AGED (CPROMPT,SPROMPT)^AGED4A (GUARDIS,HEADING,TPLDIS)^AGED4A1 VPROMPT^AGED4A2 ^AGINS ($$NEEDTOSQ,VERIF2)^AGUTILS $$S^AGVDF
Kernel	1	$$UP^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Patient Registration	4	AGED4A AGED4A01 AGED4A1 AGED4A2

Entry Points

Name	Comments	DBIA/ICR reference
DISPLAG	;
DISPLAYN	;EP - MCR/RAILROAD
GUARDIS(CATREC)	;EP - DISPLAY GUARANTOR ON SEQUENCED DISPLAY. CALLED FROM AGED4A
DISPINS	;EP - DISPLAY INSURERS
DISPCAT	;EP
DISPCATA	;
REQ
TPLDIS(CATREC)	;EP - DISPLAY THIRD PARTY LIABILITY ON SEQUENCED DISPLAY. CALLED FROM AGED4A
ADDMSG	;EP - ELIGIBILITY MESSAGE
HEADING	;EP -

External References

Name	Field # of Occurrence
^AGED	HEADING+1
CPROMPT^AGED4A	DISPCATA+95, DISPCATA+96, DISPLAG+71, DISPLAG+72, REQ+1
SPROMPT^AGED4A	DISPCATA+96, REQ+2
GUARDIS^AGED4A1	DISPCATA+39
HEADING^AGED4A1	DISPCATA+15, DISPLAG+71, DISPLAG+72, REQ+4
TPLDIS^AGED4A1	DISPCATA+40
VPROMPT^AGED4A2	DISPCATA+94, DISPLAG+71
^AGINS	DISPLAG+70, DISPINS+62
$$NEEDTOSQ^AGUTILS	DISPLAG+57
VERIF2^AGUTILS	DISPCATA+87
$$S^AGVDF	DISPCATA+27
^DIR	DISPCATA+11, DISPCATA+93, DISPLAG+69, REQ+5, DISPINS+61, DISPINS+66
$$UP^XLFSTR	DISPCATA+93, DISPLAG+69, REQ+5, DISPINS+61, DISPINS+66

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: HEADING+2
Function Call: WRITE	Prompt: !?0,"SEQ",?9,"INSURER",?33,"COVERAGE TYPE",?56,"ELIG BEGIN",?67,"-",?69,"ELIG END" Line Location: HEADING+3
Function Call: WRITE	Prompt: !?10,"SUBSCRIBER",?34,"POLICY NUMBER" Line Location: HEADING+4
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HEADING+5
Function Call: WRITE	Prompt: !!,"YOU HAVE ADDED NEW ELIGIBILITY, YOU MAY NEED TO RESEQUENCE INSURERS." Line Location: ADDMSG+1
Function Call: WRITE	Prompt: ?8,GUARNAME,?33,"GUARANTOR",?56,GUAREFF,?69,GUAREND Line Location: GUARDIS+15
Function Call: WRITE	Prompt: !?10,$P($G(^DPT(DFN,0)),U),?34,GUARPO Line Location: GUARDIS+16
Function Call: WRITE	Prompt: ?8,INSURNAM,?33,"TPL",?56,TPLEFF,?69,TPLEND Line Location: TPLDIS+11
Function Call: WRITE	Prompt: !?10,TPLRESP,?34,POLNUM Line Location: TPLDIS+12
Function Call: WRITE	Prompt: ?5,$$S^AGVDF("RVN"),$$S^AGVDF("BLN"),"* NEW "_AGFRMSG2_" SEQUENCE REQUIRED FOR ",AGFRMMSG," *",$$S^AGVDF("BLF"),$$S^AGVDF("RVF") Line Location: DISPCATA+27
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPCATA+47
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPCATA+56
Function Call: WRITE	Prompt: ?8,$P($G(^DIC(5,STPTR,0)),U,2)_" " Line Location: DISPCATA+61
Function Call: WRITE	Prompt: ?8," " Line Location: DISPCATA+62
Function Call: WRITE	Prompt: "MEDICAID" Line Location: DISPCATA+63
Function Call: WRITE	Prompt: "UNDEFINED" Line Location: DISPCATA+64
Function Call: WRITE	Prompt: "MEDICAID" Line Location: DISPCATA+66
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS($P(CATREC,U,8),0)),U),1,24) Line Location: DISPCATA+67
Function Call: WRITE	Prompt: !,"UNDEFINED" Line Location: DISPCATA+70
Function Call: WRITE	Prompt: ?56,$E(EFF,4,5)_"/"_$E(EFF,6,7)_"/"_($E(EFF,1,3)+1700) Line Location: DISPCATA+76
Function Call: WRITE	Prompt: ?69,$E(END,4,5)_"/"_$E(END,6,7)_"/"_($E(END,1,3)+1700) Line Location: DISPCATA+78
Function Call: WRITE	Prompt: ?10,$P($G(^AUPNMCD($E(RECPTR,2,10),21)),U) Line Location: DISPCATA+80
Function Call: WRITE	Prompt: ?10,$P($G(^AUPNMCR($E(RECPTR,2,10),21)),U) Line Location: DISPCATA+81
Function Call: WRITE	Prompt: ?10,$P($G(^AUPNRRE($E(RECPTR,2,10),21)),U) Line Location: DISPCATA+82
Function Call: WRITE	Prompt: ?10,$P($G(^AUPN3PPH($E(RECPTR,2,10),0)),U) Line Location: DISPCATA+83
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DISPCATA+87
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: DISPCATA+87
Function Call: WRITE	Prompt: ?1,SEL,"." Line Location: DISPLAG+10
Function Call: WRITE	Prompt: ?8,ST Line Location: DISPLAG+15
Function Call: WRITE	Prompt: ?11,$E($P($G(^AUTNINS($P(@GLO,U,12),0)),U),1,24) Line Location: DISPLAG+16
Function Call: WRITE	Prompt: ?11,"MEDICAID" Line Location: DISPLAG+17
Function Call: WRITE	Prompt: ?11,"UNDEFINED" Line Location: DISPLAG+18
Function Call: WRITE	Prompt: ?11,"MEDICAID" Line Location: DISPLAG+19
Function Call: WRITE	Prompt: ?8,$E($P(@GLO,U),1,24) Line Location: DISPLAG+20
Function Call: WRITE	Prompt: ?8,$E($P(@GLO,U),1,24) Line Location: DISPLAG+21
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPLAG+28
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPLAG+36
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPLAG+41
Function Call: WRITE	Prompt: ?56,$E(EFF,4,5)_"/"_$E(EFF,6,7)_"/"_($E(EFF,1,3)+1700) Line Location: DISPLAG+46
Function Call: WRITE	Prompt: ?69,$E(END,4,5)_"/"_$E(END,6,7)_"/"_($E(END,1,3)+1700) Line Location: DISPLAG+47
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DISPLAG+51
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: DISPLAG+52
Function Call: WRITE	Prompt: !!!,"THIS PATIENT DOES NOT HAVE A SEQUENCE SET UP AND YOUR SITE REQUIRES SEQUENCING!!" Line Location: DISPLAG+56
Function Call: WRITE	Prompt: !!!,"THIS PATIENT DOES NOT HAVE A SEQUENCE SET UP AND YOUR SITE REQUIRES SEQUENCING!!" Line Location: DISPLAG+57
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPINS+14
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPINS+19
Function Call: WRITE	Prompt: ?8,$E($P($G(^AUTNINS(PLANPTR,0)),U),1,20) Line Location: DISPINS+27
Function Call: WRITE	Prompt: ?8,ST Line Location: DISPINS+33
Function Call: WRITE	Prompt: ?11,$E($P($G(^AUTNINS($P(AGINS(SEL),U,12),0)),U),1,24) Line Location: DISPINS+34
Function Call: WRITE	Prompt: ?11,"MEDICAID" Line Location: DISPINS+35
Function Call: WRITE	Prompt: ?8,$E($P(AGINS(SEL),U),1,24) Line Location: DISPINS+36
Function Call: WRITE	Prompt: ?8,$E($P(AGINS(SEL),U),1,24) Line Location: DISPINS+37
Function Call: WRITE	Prompt: ?56,$E(EFF,4,5)_"/"_$E(EFF,6,7)_"/"_($E(EFF,1,3)+1700) Line Location: DISPINS+40
Function Call: WRITE	Prompt: ?69,$E(END,4,5)_"/"_$E(END,6,7)_"/"_($E(END,1,3)+1700) Line Location: DISPINS+41
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: DISPINS+43
Routine Call	DIR Line Location: DISPCATA+11 DISPCATA+93 DISPLAG+69 REQ+5 DISPINS+61 DISPINS+66

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	DISPCATA+83
^AUPNMCD - [#9000004]	DISPCATA+60, DISPCATA+80, DISPLAG+13, DISPINS+31
^AUPNMCR - [#9000003]	DISPCATA+81
^AUPNRRE - [#9000005]	DISPCATA+82
^AUTNINS - [#9999999.18]	TPLDIS+6, DISPCATA+47, DISPCATA+56, DISPCATA+67, DISPCATA+71, DISPCATA+73, DISPLAG+16, DISPLAG+28, DISPLAG+36, DISPLAG+41 , DISPINS+14, DISPINS+19, DISPINS+27, DISPINS+34
^DD("DD"	GUARDIS+13, GUARDIS+14, TPLDIS+9, TPLDIS+10
^DIC(5 - [#5]	DISPCATA+61, DISPLAG+14, DISPINS+32
^DPT - [#2]	GUARDIS+11, GUARDIS+16

Label References

Name	Line Occurrences
DISPCAT	DISPLAG+72
DISPCATA	DISPCATA+94, DISPCATA+95, DISPCATA+96
DISPLAG	DISPLAG+71, DISPLAG+72, REQ
REQ	DISPLAG+57

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDCHK	ADDMSG+3!
>> AG("ED"	DISPCATA+88!, DISPLAG+53!, DISPINS+44!
>> AG("ERR"	DISPCATA+88!, DISPLAG+53!, DISPINS+44!
AGANS	DISPCATA+93, DISPCATA+94, DISPCATA+95, DISPCATA+96, DISPLAG+54, DISPLAG+57, DISPLAG+59, DISPLAG+63, DISPLAG+66, DISPLAG+67 , DISPLAG+68, DISPLAG+69, DISPLAG+70, DISPLAG+71, DISPLAG+72, REQ!, REQ+3, REQ+5, DISPINS+46, DISPINS+50 , DISPINS+55, DISPINS+58, DISPINS+59, DISPINS+60, DISPINS+61, DISPINS+62, DISPINS+66
>> AGCAT(	DISPCATA+4, DISPCATA+16, DISPCATA+17, DISPCATA+22, DISPCATA+31, DISPCATA+32, DISPCATA+84, DISPCATA+85
AGFRMMSG	DISPCATA+27, DISPCATA+28!
AGFRMSG2	DISPCATA+27, DISPCATA+28!
>> AGINS	DISPLAG+57
>> AGINS(	DISPINS+2, DISPINS+3, DISPINS+5, DISPINS+9, DISPINS+10, DISPINS+17, DISPINS+18, DISPINS+22, DISPINS+23, DISPINS+29 , DISPINS+30, DISPINS+34, DISPINS+35, DISPINS+37, DISPINS+38, DISPINS+39, DISPINS+42
>> AGLINE("-"	HEADING+2, DISPCATA+87, DISPLAG+51
>> AGLINE("EQ"	HEADING+5, DISPCATA+87, DISPLAG+52, DISPINS+43
>> AGSEENLY	DISPLAG+55, REQ+5, DISPINS+48, DISPINS+63
>> AGSEL	DISPCATA+1, DISPCATA+30, DISPCATA+31*, DISPCATA+32, DISPCATA+38, DISPCATA+84
>> AGVIEWSQ	DISPLAG+71*, DISPINS+47
CATHD	DISPCATA+96!, DISPCATA+97!, DISPLAG+71!, REQ+3!
>> CATPTR	DISPCATA+2, DISPCATA+4, DISPCATA+16, DISPCATA+17, DISPCATA+22, DISPCATA+31, DISPCATA+32, DISPCATA+84, DISPCATA+85, DISPCATA+94 , DISPCATA+95, DISPCATA+96, DISPCATA+97, DISPLAG+71, DISPLAG+72, REQ+2, REQ+3*
CATREC	GUARDIS~, GUARDIS+2, GUARDIS+3, GUARDIS+13, GUARDIS+14, TPLDIS~, TPLDIS+2, TPLDIS+3, TPLDIS+4, DISPCATA+32* , DISPCATA+39, DISPCATA+40, DISPCATA+42, DISPCATA+43, DISPCATA+51, DISPCATA+52, DISPCATA+58, DISPCATA+59, DISPCATA+66, DISPCATA+67 , DISPCATA+69, DISPCATA+70, DISPCATA+71, DISPCATA+72, DISPCATA+73, DISPCATA+74, DISPCATA+75, DISPCATA+77, DISPCATA+79
>> CNT	DISPCATA+19, DISPCATA+20, DISPCATA+23*, DISPCATA+24
CORECPTR	GUARDIS+1~, GUARDIS+3*, GUARDIS+5
>> DFN	GUARDIS+16, DISPLAG+57
DFOUT	DISPCATA+88!, DISPLAG+53!, DISPINS+45!
DIR	DISPCATA+9!, DISPCATA+88!, DISPCATA+93!, DISPLAG+53!, DISPLAG+69!, REQ+5!, DISPINS+45!, DISPINS+61!, DISPINS+66!
DIR("?"	DISPCATA+92, DISPLAG+64, DISPLAG+65, DISPINS+56, DISPINS+57*
DIR("A"	DISPCATA+91, DISPLAG+60, DISPLAG+61, DISPLAG+67, REQ+5, DISPINS+51, DISPINS+52, DISPINS+53, DISPINS+59, DISPINS+65
DIR(0	DISPCATA+10, DISPCATA+93, DISPLAG+66, DISPLAG+68, REQ+5, DISPINS+58, DISPINS+60, DISPINS+64
DIROUT	DISPCATA+88!, DISPLAG+53!, DISPINS+45!
DLOUT	DISPCATA+88!, DISPLAG+53!, DISPINS+45!
DQOUT	DISPCATA+88!, DISPLAG+53!, DISPINS+45!
DT	DISPCATA+20
DTOUT	DISPCATA+88!, DISPLAG+53!, DISPINS+45!
DUOUT	DISPCATA+88!, DISPLAG+53!, DISPINS+45!
DUZ(2	DISPLAG+57
>> EFF	DISPCATA+75, DISPCATA+76, DISPLAG+45, DISPLAG+46, DISPINS+39*, DISPINS+40
>> END	DISPCATA+77, DISPCATA+78, DISPLAG+6, DISPLAG+47, DISPINS+5*, DISPINS+41
>> GLO	DISPLAG+1, DISPLAG+3, DISPLAG+5, DISPLAG+6, DISPLAG+7, DISPLAG+8, DISPLAG+11, DISPLAG+12, DISPLAG+16, DISPLAG+19 , DISPLAG+21, DISPLAG+23, DISPLAG+24, DISPLAG+31, DISPLAG+32, DISPLAG+39, DISPLAG+40, DISPLAG+44, DISPLAG+45, DISPLAG+49
GLOREC	GUARDIS+1~
>> GLOREF	GUARDIS+5*, GUARDIS+6, GUARDIS+7, GUARDIS+8, GUARDIS+10
>> GUAREFF	GUARDIS+13*, GUARDIS+15
>> GUAREND	GUARDIS+14*, GUARDIS+15
>> GUARGLO	GUARDIS+8*, GUARDIS+9, GUARDIS+11
GUARNAME	GUARDIS+1~, GUARDIS+11, GUARDIS+12, GUARDIS+15
>> GUARPO	GUARDIS+10*, GUARDIS+16
GUARPTR	GUARDIS+1~, GUARDIS+9*, GUARDIS+11, GUARDIS+12
>> GUARREC	GUARDIS+7*, GUARDIS+9
>> IENS	DISPCATA+43, DISPCATA+44, DISPCATA+45, DISPCATA+52, DISPCATA+53, DISPCATA+54, DISPLAG+24, DISPLAG+25, DISPLAG+26, DISPLAG+32 , DISPLAG+33, DISPLAG+34, DISPINS+10, DISPINS+11, DISPINS+12, DISPINS+23, DISPINS+24, DISPINS+25
INSURNAM	TPLDIS+1~, TPLDIS+6*, TPLDIS+11
INSURPTR	TPLDIS+1~, TPLDIS+5*, TPLDIS+6
>> ISACTIVE	DISPLAG+5, DISPLAG+48, DISPINS+3
>> MCDREC	DISPLAG+12, DISPLAG+13, DISPINS+30, DISPINS+31
>> OLDSEL	DISPLAG+2, DISPLAG+9, DISPLAG+50
>> PARTDGLO	DISPCATA+45, DISPCATA+46, DISPCATA+54, DISPCATA+55, DISPLAG+26, DISPLAG+27, DISPLAG+34, DISPLAG+35, DISPINS+12, DISPINS+13 , DISPINS+25, DISPINS+26
>> PLANPTR	DISPCATA+46, DISPCATA+47, DISPCATA+55, DISPCATA+56, DISPLAG+27, DISPLAG+28, DISPLAG+35, DISPLAG+36, DISPLAG+40, DISPLAG+41 , DISPINS+13, DISPINS+14, DISPINS+18, DISPINS+19, DISPINS+26, DISPINS+27
POLNUM	TPLDIS+1~, TPLDIS+7*, TPLDIS+12
>> RECPTR	DISPCATA+59, DISPCATA+60, DISPCATA+79, DISPCATA+80, DISPCATA+81, DISPCATA+82, DISPCATA+83
>> SEL	DISPLAG+7, DISPLAG+8, DISPLAG+9, DISPLAG+10, DISPLAG+50, DISPINS+1, DISPINS+2, DISPINS+3, DISPINS+5, DISPINS+6 , DISPINS+9, DISPINS+10, DISPINS+17, DISPINS+18, DISPINS+22, DISPINS+23, DISPINS+29, DISPINS+30, DISPINS+34, DISPINS+35 , DISPINS+37, DISPINS+38, DISPINS+39, DISPINS+42
>> SEQFLG	DISPCATA+29*
>> SHOWINAC	DISPLAG+61, DISPLAG+65, DISPLAG+70, DISPINS+53, DISPINS+57, DISPINS+62
>> SQDT	DISPCATA+19, DISPCATA+20, DISPCATA+22*, DISPCATA+25, DISPCATA+29, DISPCATA+31, DISPCATA+32, DISPCATA+84
>> ST	DISPLAG+14, DISPLAG+15, DISPINS+32, DISPINS+33
>> STPTR	DISPCATA+60, DISPCATA+61, DISPCATA+62, DISPLAG+13, DISPLAG+14, DISPLAG+15, DISPINS+31*, DISPINS+32, DISPINS+33
TPLEFF	TPLDIS+1~, TPLDIS+9*, TPLDIS+11
TPLEND	TPLDIS+1~, TPLDIS+10*, TPLDIS+11
TPLPTR	TPLDIS+1~, TPLDIS+3*, TPLDIS+5, TPLDIS+7, TPLDIS+9, TPLDIS+10
>> TPLPTR2	TPLDIS+4*, TPLDIS+8
TPLRESP	TPLDIS+1~, TPLDIS+8*, TPLDIS+12
U	GUARDIS+2, GUARDIS+3, GUARDIS+7, GUARDIS+8, GUARDIS+10, GUARDIS+11, GUARDIS+12, GUARDIS+13, GUARDIS+14, GUARDIS+16 , TPLDIS+2, TPLDIS+3, TPLDIS+4, TPLDIS+5, TPLDIS+6, TPLDIS+7, TPLDIS+8, TPLDIS+9, TPLDIS+10, DISPCATA+39 , DISPCATA+40, DISPCATA+42, DISPCATA+43, DISPCATA+46, DISPCATA+47, DISPCATA+51, DISPCATA+52, DISPCATA+55, DISPCATA+56, DISPCATA+58 , DISPCATA+59, DISPCATA+60, DISPCATA+61, DISPCATA+66, DISPCATA+67, DISPCATA+69, DISPCATA+70, DISPCATA+71, DISPCATA+72, DISPCATA+73 , DISPCATA+74, DISPCATA+75, DISPCATA+77, DISPCATA+79, DISPCATA+80, DISPCATA+81, DISPCATA+82, DISPCATA+83, DISPCATA+84, DISPLAG+5 , DISPLAG+6, DISPLAG+11, DISPLAG+12, DISPLAG+13, DISPLAG+14, DISPLAG+16, DISPLAG+19, DISPLAG+21, DISPLAG+23, DISPLAG+24 , DISPLAG+27, DISPLAG+28, DISPLAG+31, DISPLAG+32, DISPLAG+35, DISPLAG+36, DISPLAG+39, DISPLAG+40, DISPLAG+41, DISPLAG+44 , DISPLAG+45, DISPLAG+49, DISPINS+3, DISPINS+5, DISPINS+9, DISPINS+10, DISPINS+13, DISPINS+14, DISPINS+17, DISPINS+18 , DISPINS+19, DISPINS+22, DISPINS+23, DISPINS+26, DISPINS+27, DISPINS+29, DISPINS+30, DISPINS+31, DISPINS+32, DISPINS+34 , DISPINS+35, DISPINS+37, DISPINS+38, DISPINS+39, DISPINS+42
VIEWDT	DISPCATA+19!
>> X	DISPCATA+93, DISPLAG+69, REQ+5, DISPINS+61, DISPINS+66*
>> Y	GUARDIS+13, GUARDIS+14, TPLDIS+9, TPLDIS+10, DISPCATA+93, DISPLAG+69, REQ+5, DISPINS+61, DISPINS+66*

Customize PDF page

Package: IHS Patient Registration

Routine: AGED4A1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: