Routine: AGELUPR

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	2	^DIC $$GET1^DIQ
IHS VA Utilities	1	$$DIR^XBDIR

Entry Points

Name	Comments	DBIA/ICR reference
END	;end of patients
HDR	;EP - page header
HDR1	;
ONE	;print one patient
START	;start
QUE	;que to taskman
PRINT	;EP - From Taskman. Print the report.
TMPLT	;AG(V,N,S,P) = AG(value,name,subscript,piece)

External References

Name	Field # of Occurrence
^%ZIS	START+6
HOME^%ZIS	START+8
^%ZISC	START+9
^%ZTLOAD	QUE+2
^DIC	START+3, TMPLT+4
$$GET1^DIQ	HDR+3, HDR1+2, HDR1+3, HDR1+4, HDR1+5, HDR1+6, HDR1+7
$$DIR^XBDIR	ONE+4, END+2
$$FMTE^XLFDT	HDR+2
$$CJ^XLFSTR	HDR+2
$$REPEAT^XLFSTR	HDR+3, HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Task # ",ZTSK," queued." Line Location: QUE+3
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+16
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),U,1),?40 Line Location: ONE+1
Function Call: WRITE	Prompt: Y Line Location: ONE+1
Function Call: WRITE	Prompt: @IOF,!,$$CJ^XLFSTR("ELIGIBILITY UPLOAD LOG",IOM),!,"Upload Run Date: ",$$FMTE^XLFDT(AGRDT,1),?70,"Page ",AGPG Line Location: HDR+2
Function Call: WRITE	Prompt: !?11,"File: ",$$GET1^DIQ(9009062.02,AGDA,.03)," #Records: ",$FN($$GET1^DIQ(9009062.02,AGDA,.04),","),!?7,"Template: ",$$GET1^DIQ(9009062.02,AGDA,.02),!,$$REPEAT^XLFSTR("=",80),!,"Patients ",AGCAT Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Patient",?40,"Social Security Number",!,$$REPEAT^XLFSTR("-",30),?40,$$REPEAT^XLFSTR("-",22) Line Location: HDR+5
Function Call: WRITE	Prompt: ?26,"Before",?45,"After",?63,"Added" Line Location: HDR1+1
Function Call: WRITE	Prompt: !,"MEDICARE ELIGIBLE file: ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.06),","),8)," ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.07),","),8)," = " Line Location: HDR1+2
Function Call: WRITE	Prompt: $J($FN($$GET1^DIQ(9009062.02,AGDA,.07)-$$GET1^DIQ(9009062.02,AGDA,.06),","),8) Line Location: HDR1+3
Function Call: WRITE	Prompt: !,"RAILROAD ELIGIBLE file: ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.08),","),8)," ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.09),","),8)," = " Line Location: HDR1+4
Function Call: WRITE	Prompt: $J($FN($$GET1^DIQ(9009062.02,AGDA,.09)-$$GET1^DIQ(9009062.02,AGDA,.08),","),8) Line Location: HDR1+5
Function Call: WRITE	Prompt: !,"MEDICAID ELIGIBLE file: ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.11),","),8)," ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.12),","),8)," = " Line Location: HDR1+6
Function Call: WRITE	Prompt: $J($FN($$GET1^DIQ(9009062.02,AGDA,.12)-$$GET1^DIQ(9009062.02,AGDA,.11),","),8) Line Location: HDR1+7
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS ",AGCAT," ",AGCNT Line Location: END+1
Function Call: WRITE	Prompt: !,"* Print a template format *",! Line Location: TMPLT+1
Function Call: WRITE	Prompt: !,$J(N,20),": ",V Line Location: TMPLT+11
Function Call: WRITE	Prompt: !,$J(V,8)," ",N Line Location: TMPLT+13
Routine Call	%ZIS Line Location: START+8
Routine Call	DIC Line Location: START+3 TMPLT+4
Routine Call	%ZIS Line Location: START+6

FileNo	Call Tags
^AGELUP - [#9009062.01]	Classic Fileman Calls
^AGELUPLG - [#9009062.02]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AGELUP - [#9009062.01]	TMPLT+9
^AGELUPLG - [#9009062.02]	PRINT+2, PRINT+5, PRINT+12
^DD(2	ONE+1
^DD(9009062.01	TMPLT+9
^DPT - [#2]	ONE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	TMPLT+2~, TMPLT+6*, TMPLT+9
AG(	TMPLT+9*, TMPLT+11, TMPLT+13
AGCAT	PRINT+1~, PRINT+2, PRINT+9, HDR+3, HDR+4, END+1
AGCNT	PRINT+1~, PRINT+4, PRINT+11, ONE+2*, END+1
AGDA	START+1~, START+5*, PRINT+2, PRINT+5, PRINT+12, HDR+3, HDR1+2, HDR1+3, HDR1+4, HDR1+5 , HDR1+6, HDR1+7
AGMVDF	PRINT+1~
AGPG	PRINT+1~, PRINT+2, HDR+1, HDR+2, HDR+4
AGQUIT	PRINT+1~, PRINT+2, PRINT+5, PRINT+6, PRINT+8, PRINT+12, PRINT+13, PRINT+15, ONE+4, ONE+5 , END+2*
AGRDT	PRINT+1~, PRINT+2*, HDR+2
DA	TMPLT+7~, TMPLT+8, TMPLT+9
DFN	PRINT+1~, PRINT+4, PRINT+5, PRINT+11, PRINT+12, ONE+1
DIC	START+1~, START+2, TMPLT+2~, TMPLT+3
DIC(0	START+2, TMPLT+3
IO	START+8
IO(0	START+8
IOF	PRINT+16, HDR+2
IOM	HDR+2
IOSL	ONE+3
IOST	ONE+4, END+2
N	TMPLT+7~, TMPLT+9, TMPLT+11, TMPLT+13*
P	TMPLT+7~, TMPLT+9*
>> POP	START+7
S	TMPLT+7~, TMPLT+9*
U	PRINT+2, ONE+1, TMPLT+9
V	TMPLT+7~, TMPLT+9, TMPLT+10, TMPLT+11, TMPLT+12, TMPLT+13*
Y	START+4, START+5, ONE+1*, TMPLT+2~, TMPLT+5, TMPLT+6
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("AGDA"	QUE+1*
>> ZTSK	QUE+3

Customize PDF page

Package: IHS Patient Registration

Routine: AGELUPR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
END	PRINT+7, PRINT+14
HDR	PRINT+3, PRINT+10, ONE+6
HDR1	HDR+4
ONE	PRINT+5, PRINT+12
PRINT	START+9
QUE	START+8