Routine: AGELUP2

Package	Total	Call Graph
IHS Patient Registration	4	^AGDATCK UPDATE1^AGED (HEAD,PEND)^AGELUPUT $$S^AGVDF
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIK
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS Patient Registration	4	AG6P17A AGELUP1 AGELUP3 AGELUP4

Entry Points

Name	Comments	DBIA/ICR reference
1	;;MCR NAME;;MCD NAME;;
FILE(AG)	;EP - file MEDICARE FIELDS
M(AG)	;EP - process Medicare
MCRY	;if medicare coverage
PTACT(AG,X)	;EP - Record action AG on patient X (DFN). 1=add, 2=edit.
MCRN	;EP - No MCR/RRE coverage in rpms.
DFL	;EP - Set descrepency flags.
3	;;MCR NUMBER;;MCD NUMBER;;
2	;;MCR DOB;;MCD DOB;;
5	;;ELIGIBILITY;;ELIGIBILITY;;
4	;;SFX;;;;
MDISP(AGDISP)	;EP - display medicare info

External References

Name	Field # of Occurrence
^AGDATCK	FILE+48
UPDATE1^AGED	FILE+50
HEAD^AGELUPUT	M+4
PEND^AGELUPUT	M+6
$$S^AGVDF	MDISP+4, MDISP+6
^DIC	FILE+1
FILE^DICN	FILE+8, FILE+38, PTACT+4
^DIE	FILE+21
^DIK	FILE+26
$$DIR^XBDIR	FILE+1
$$FMTE^XLFDT	MDISP+5, MDISP+8, MDISP+35, MDISP+36, MDISP+38, MDISP+39

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: M+9
Function Call: WRITE	Prompt: !,$P($T(@I),";;",$S(AGTYPE="D":3,1:2)),":",?13 Line Location: MDISP+3
Function Call: WRITE	Prompt: " ( Matching Medicaid eligibility dates are not displayed )" Line Location: MDISP+7
Function Call: WRITE	Prompt: ?45,$S(I=2:$$FMTE^XLFDT(AG2(I),5),1:AG2(I)) Line Location: MDISP+8
Function Call: WRITE	Prompt: ! Line Location: MDISP+10
Function Call: WRITE	Prompt: !,"START DATE: " Line Location: MDISP+34
Function Call: WRITE	Prompt: ?13,$$FMTE^XLFDT($P(AGLINE(I),U,1),5) Line Location: MDISP+35
Function Call: WRITE	Prompt: !," END DATE: " Line Location: MDISP+37
Function Call: WRITE	Prompt: ?13,$$FMTE^XLFDT($P(AGLINE(I),U,2),5) Line Location: MDISP+38
Function Call: WRITE	Prompt: ?45,$S('$P(AGLINE(I),U,1):IORVON,($P(AGLINE(I),U,5))&($P(AGLINE(I),U,2)'=$P(AGLINE(I),U,5)):IORVON,1:""),$S($P(AGLINE(I),U,5):$$FMTE^XLFDT($P(AGLINE(I),U,5),5),1:$J("",10)),IORVOFF Line Location: MDISP+39
Function Call: WRITE	Prompt: !,"Add to MEDICARE SUFFIX file failed for '",AG("FSFX"),"'.",$$DIR^XBDIR("E") Line Location: FILE+1
Routine Call	DIE Line Location: FILE+21
Routine Call	DIC Line Location: FILE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMCR - [#9000003]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCR - [#9000003]	M+2, M+5, MCRY+3, MCRY+5, MCRY+8, MCRY+10, MCRY+15, FILE+3, FILE+13, FILE+14 , FILE+16, FILE+19, FILE+20, FILE+26
^AUTTMCS - [#9999999.32]	MCRY+11, FILE+16
^AUTTMCS("B"	FILE+1
^DD(9000003	FILE+27
^DD(9009062.02	PTACT+2

Label References

Name	Line Occurrences
DFL	MCRY+22, MCRN+3
MCRN	M+5
MCRY	M+2
MDISP	M+6
PTACT	FILE+8, FILE+21, FILE+40

Naked Globals

Name	Field # of Occurrence
^(	MCRY+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MCRY+17, MCRY+18, MCRY+19, MCRY+20
AG	M~, FILE~, PTACT~, PTACT+2
AG("DATE"	FILE+49!
AG("DFN"	M+2, M+5, MCRY+3, MCRY+5, MCRY+8, MCRY+10, MCRY+15, FILE+3, FILE+5, FILE+8 , FILE+12, FILE+21, FILE+24, FILE+40, FILE+47, FILE+50
AG("DT"	DFL+14, DFL+16, DFL+17, DFL+24, MDISP+18, MDISP+23, MDISP+25, MDISP+26, FILE+30, FILE+32 , FILE+33
AG("DTOT"	FILE+49!
AG("ER"	FILE+49!
AG("FDOB"	DFL+4, FILE+6, FILE+20
AG("FNBR"	DFL+6, FILE+6, FILE+14
AG("FNM"	DFL+2, FILE+6, FILE+19
AG("FSFX"	DFL+8, FILE+1, FILE+6, FILE+15, FILE+16, FILE+17
AG1	M+1!, MDISP+12, MDISP+14, MDISP+16, MDISP+17, MDISP+18
AG1(	MCRN+2*, MDISP+5
AG1("DT"	MCRY+20*, DFL+17, DFL+21, DFL+23, DFL+24, MDISP+14, MDISP+16, MDISP+17, MDISP+26
AG1(1	MCRY+3, MCRN+1
AG1(2	MCRY+6*
AG1(3	MCRY+8*
AG1(4	MCRY+11*
AG1(5	MDISP+1*
AG2	M+1!, MDISP+22, MDISP+23, MDISP+25, MDISP+26
AG2(	MDISP+8
AG2(1	DFL+2*, DFL+3
AG2(2	DFL+4*, DFL+5
AG2(3	DFL+6*, DFL+7
AG2(4	DFL+8*, DFL+9
AG2(5	MDISP+1*
>> AGACT	M+2*
AGADD	FILE+2~, FILE+3, FILE+10, FILE+39
>> AGAUTO	M+3
>> AGCNT	MDISP+12, MDISP+17, MDISP+18, MDISP+26, MDISP+27, MDISP+30
>> AGCVT	MDISP+15, MDISP+16, MDISP+17, MDISP+18, MDISP+24, MDISP+25, MDISP+26
AGDISP	MDISP~, MDISP+1, MDISP+2, MDISP+10
AGFL	MCRY+21!, MCRY+23, DFL+1!
AGFL(	MDISP+4, MDISP+6
AGFL(1	DFL+3*
AGFL(2	DFL+5*
AGFL(3	DFL+7*
AGFL(4	DFL+9*
AGFL(5	DFL+17, DFL+24
AGI	FILE+29, FILE+30, FILE+32, FILE+33, FILE+43!
>> AGINSPT	FILE+6, FILE+13
AGJ	FILE+31, FILE+32, FILE+33, FILE+43!
AGLINE	MDISP+13!
AGLINE(	MDISP+17, MDISP+18, MDISP+26, MDISP+27, MDISP+31, MDISP+32, MDISP+33*, MDISP+35, MDISP+36, MDISP+38 , MDISP+39, MDISP+40
>> AGMDOB	MCRY+5*, MCRY+6, DFL+5
>> AGMNBR	MCRY+8*, DFL+7
>> AGMNM	MCRY+3*, DFL+3
>> AGMSFX	MCRY+10, MCRY+11, DFL+9
>> AGRCNT	M+10
>> AGRUN	PTACT+2
AGSAME	M+1!, M+2, MCRY+1, MCRY+23
>> AGTYPE	MDISP+3, MDISP+7, MDISP+32
DA	MCRY+13, MCRY+15, MCRY+17, FILE+11~, FILE+12, FILE+13, FILE+14, FILE+16, FILE+19, FILE+20 , FILE+24, FILE+26*, PTACT+1~
DA(1	FILE+24, FILE+26, FILE+27, PTACT+2
DD	FILE+4~, FILE+7!, FILE+28!, FILE+37!, PTACT+3!
DFN	FILE+46~, FILE+47*
DIC	FILE+1, FILE+4~, FILE+5, FILE+27, PTACT+1~, PTACT+2
DIC("DR"	FILE+6, FILE+35, FILE+36*
DIC("P"	FILE+27, PTACT+2
DIC(0	FILE+1, FILE+5, FILE+27, PTACT+2
DIE	FILE+11~, FILE+12*, PTACT+1~
>> DIK	FILE+24*
DINUM	FILE+5, PTACT+1~, PTACT+2
DITC	FILE+21~*!
DLAYGO	FILE+4~, FILE+5*
DO	FILE+4~, FILE+7!, FILE+28!, FILE+37!, PTACT+3!
DR	FILE+11~, FILE+12, FILE+13, FILE+14, FILE+17, FILE+19, FILE+20, FILE+21, PTACT+1~
DUZ(2	FILE+50
I	MCRN+2, DFL+12~, DFL+13, DFL+14, DFL+16, DFL+17, DFL+20, DFL+21, DFL+23, DFL+24 , MDISP+2, MDISP+4, MDISP+5, MDISP+6, MDISP+7, MDISP+8, MDISP+30, MDISP+31, MDISP+32, MDISP+33 , MDISP+35, MDISP+36, MDISP+38, MDISP+39, MDISP+40
IO(0	M+8
>> IORVOFF	MDISP+36, MDISP+39, MDISP+40
>> IORVON	MDISP+36, MDISP+39, MDISP+40
J	DFL+12~, DFL+15, DFL+16, DFL+17, DFL+22, DFL+23, DFL+24
U	MCRY+3, MCRY+5, MCRY+8, MCRY+10, MCRY+11, MCRY+17, MCRY+18, MCRY+19, MCRY+20, MDISP+35 , MDISP+36, MDISP+38, MDISP+39, MDISP+40, FILE+13, FILE+14, FILE+16, FILE+19, FILE+20, FILE+26 , FILE+27, FILE+33, PTACT+2
X	FILE+1, FILE+5, FILE+33*, FILE+34, PTACT~, PTACT+2
Y	FILE+1, FILE+3, FILE+8, FILE+21, FILE+40, PTACT+1~

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AGELUP2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items