Routine: AGELUP3

Information

AGELUP3 ;IHS/ASDS/EFG - PROCESS RRE ELIGIBILITY FROM CMS FILE ;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS Patient Registration	4	^AGDATCK UPDATE1^AGED (DFL,MCRN,MDISP,PTACT)^AGELUP2 (HEAD,PEND)^AGELUPUT
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIK
IHS VA Utilities	1	$$DIR^XBDIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Patient Registration	2	AGELUP1 AGELUPNM

Entry Points

Name	Comments	DBIA/ICR reference
56	;;NASHVILLE TRIBE/638^u^nsa
77	;;PORTLAND URBAN^p^por
60	;;PHOENIX^x^phx
61	;;CALIFORNIA^l^cao
89	;;NAVAJO NON-IHS^n^nav
64	;;CALIFORNIA URBAN^l^cao
35	;;ALASKA TRIBE/638^a^aka
66	;;CALIFORNIA TRIBE/638^l^cao
67	;;PHOENIX URBAN^x^phx
68	;;CALIFORNIA NON-IHS^l^cao
69	;;PHOENIX NON-IHS^x^phx
80	;;NAVAJO^n^nav
85	;;NAVAJO TRIBE/638^n^nav
25	;;ALBUQUERQUE TRIBE/638^q^alb
23	;;HEADQUARTERS WEST
FILE(AG)	;EP - file RAILROAD FIELDS
20	;;ALBUQUERQUE^q^alb
07	;;TUCSON URBAN^s^tuc
MCRY	;if railroad coverage
47	;;BILLINGS URBAN^b^bil
45	;;BILLINGS TRIBE/638^b^bil
40	;;BILLINGS^b^bil
09	;;TUCSON NON-IHS^s^tuc
05	;;TUCSON TRIBE/638^s^tuc
10	;;ABERDEEN^c^abr
00	;;TUCSON^s^tuc
99	;;HEADQUARTERS EAST
75	;;PORTLAND TRIBE/638^p^por
70	;;PORTLAND^p^por
59	;;OKLAHOMA NON-IHS^o^okc
79	;;PORTLAND NON-IHS^p^por
58	;;NASHVILLE NON-IHS^u^nsa
11	;;BEMIDJI^d^bji
LTR(P)	;EP - Lookup the Area indicator of the file name, based on Area code.
39	;;ALASKA NON-IHS^a^aka
15	;;ABERDEEN TRIBE/638^c^abr
14	;;BEMIDJI URBAN^d^bji
17	;;ABERDEEN URBAN^c^abr
16	;;BEMIDJI TRIBE/638^d^bji
55	;;OKLAHOMA TRIBE/638^o^okc
18	;;BEMIDJI NON-IHS^d^bji
57	;;OKLAHOMA URBAN^o^okc
30	;;ALASKA^a^aka
51	;;NASHVILLE^u^nsa
50	;;OKLAHOMA^o^okc
R(AG)	;EP - process railroad retirement
54	;;NASHVILLE URBAN^u^nsa
65	;;PHOENIX TRIBE/638^x^phx

External References

Name	Field # of Occurrence
^AGDATCK	FILE+49
UPDATE1^AGED	FILE+51
DFL^AGELUP2	MCRY+18
MCRN^AGELUP2	R+5
MDISP^AGELUP2	R+6
PTACT^AGELUP2	FILE+12, FILE+25, FILE+42
HEAD^AGELUPUT	R+4
PEND^AGELUPUT	R+6
^DIC	FILE+4
FILE^DICN	FILE+12, FILE+40
^DIE	FILE+25
^DIK	FILE+29
$$DIR^XBDIR	FILE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: R+9
Function Call: WRITE	Prompt: !,"Add to RAILROAD PREFIX file failed for '",AG("FSFX"),"'.",$$DIR^XBDIR("E") Line Location: FILE+1
Routine Call	DIE Line Location: FILE+25
Routine Call	DIC Line Location: FILE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNRRE - [#9000005]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNRRE - [#9000005]	R+2, R+5, MCRY+2, MCRY+3, MCRY+5, MCRY+6, MCRY+11, FILE+7, FILE+17, FILE+19 , FILE+22, FILE+23, FILE+24, FILE+29
^AUTTRRP - [#9999999.33]	MCRY+7, FILE+19
^AUTTRRP("B"	FILE+1
^DD(9000005	FILE+30

Label References

Name	Line Occurrences
MCRY	R+2

Naked Globals

Name	Field # of Occurrence
^(	MCRY+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MCRY+13, MCRY+14, MCRY+15, MCRY+16
AG	R~, FILE~
AG("DATE"	FILE+50!
AG("DFN"	R+2, R+5, MCRY+2, MCRY+3, MCRY+5, MCRY+6, MCRY+11, FILE+7, FILE+9, FILE+12 , FILE+16, FILE+25, FILE+27, FILE+42, FILE+48, FILE+51
AG("DT"	FILE+33, FILE+35, FILE+36, FILE+38
AG("DTOT"	FILE+50!
AG("ER"	FILE+50!
AG("FDOB"	FILE+10, FILE+24
AG("FNBR"	FILE+10, FILE+22
AG("FNM"	FILE+10, FILE+23
AG("FSFX"	FILE+1, FILE+3, FILE+10, FILE+18, FILE+19, FILE+20
AG1	R+1!
AG1("DT"	MCRY+16*
AG1(1	MCRY+2*
AG1(2	MCRY+4*
AG1(3	MCRY+5*
AG1(4	MCRY+7*
AG2	R+1!
>> AGACT	R+2*
AGADD	FILE+6~, FILE+7, FILE+14, FILE+41
>> AGAUTO	R+3
AGFL	MCRY+17!, MCRY+19
AGI	FILE+32, FILE+33, FILE+35, FILE+36, FILE+38, FILE+45!
>> AGINSPT	FILE+10, FILE+17
AGJ	FILE+34, FILE+35, FILE+36, FILE+38, FILE+45!
>> AGMDOB	MCRY+3*, MCRY+4
>> AGMNBR	MCRY+5*
>> AGMNM	MCRY+2*
>> AGMSFX	MCRY+6, MCRY+7
>> AGRCNT	R+10
AGSAME	R+1!, R+2, MCRY+1, MCRY+19
DA	MCRY+8, MCRY+11, MCRY+13, FILE+15~, FILE+16, FILE+17, FILE+19, FILE+22, FILE+23, FILE+24 , FILE+27, FILE+29*
DA(1	FILE+27*, FILE+29, FILE+30
DD	FILE+8~, FILE+11!, FILE+31!, FILE+39!
DFN	FILE+47~, FILE+48*
DIC	FILE+2~, FILE+3, FILE+8~, FILE+9, FILE+30*
DIC("DR"	FILE+10, FILE+38
DIC("P"	FILE+30*
DIC(0	FILE+3, FILE+9, FILE+30*
DIE	FILE+15~, FILE+16*
>> DIK	FILE+27*
>> DINUM	FILE+9*
DITC	FILE+25~*!
DLAYGO	FILE+2~, FILE+3, FILE+8~, FILE+9
DO	FILE+8~, FILE+11!, FILE+31!, FILE+39!
DR	FILE+15~, FILE+16, FILE+17, FILE+20, FILE+22, FILE+23, FILE+24, FILE+25
DUZ(2	FILE+51
IO(0	R+8
P	LTR~, LTR+1
U	MCRY+2, MCRY+3, MCRY+5, MCRY+6, MCRY+7, MCRY+13, MCRY+14, MCRY+15, MCRY+16, FILE+17 , FILE+19, FILE+22, FILE+23, FILE+24, FILE+29, FILE+30, FILE+36, FILE+38, LTR+1
>> X	FILE+3, FILE+9, FILE+36*, FILE+37
>> Y	FILE+1, FILE+7, FILE+12, FILE+25, FILE+42

Marked Items

Name	Field # of Occurrence
$T(@$EXTRACT^1;3(8)	LTR+1

Customize PDF page

Package: IHS Patient Registration

Routine: AGELUP3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

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