Routine: AGMCRP4

Package	Total	Call Graph
IHS Patient Registration	3	(CTR,LINES,NOW,RTRN)^AG ^AGDICLK $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
END1
END
HDR
RR	;
DEV
START	;EP - From TaskMan.
PRINT	;Print a Patient's MEDICARE/RAILROAD file.
PTS	;

External References

Name	Field # of Occurrence
^%ZIS	DEV, START+12
^%ZISC	DEV+2, DEV+10, END1
^%ZTLOAD	DEV+7
KILL^%ZTLOAD	END1
CTR^AG	START+14, START+21
LINES^AG	START+20
NOW^AG	START+20
RTRN^AG	START+22, END
^AGDICLK	PRINT+18, RR+16
$$S^AGVDF	END, HDR+1
^DIR	PTS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+2
Function Call: WRITE	Prompt: !!!,"TOTAL MEDICARE/RAILROAD RET. PATIENTS: ",AGTOT Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+1
Function Call: WRITE	Prompt: ?64,AGMCRDB Line Location: PRINT+23
Function Call: WRITE	Prompt: ?64,AGMCRDB Line Location: RR+20
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG Line Location: HDR+1
Function Call: WRITE	Prompt: !?17,"REGISTERED PATIENTS - MEDICARE/RAILROAD PART D ACCOUNTS" Line Location: HDR+2
Function Call: WRITE	Prompt: !,AGUCI,!,AGTIME Line Location: HDR+3
Function Call: WRITE	Prompt: !!?17,"REPORT CONTAINS "_$S(AGPTS="B":"ALL BENEFICIARIES",AGPTS="A":"ACTIVE PATIENTS ONLY",AGPTS="D":"DECEASED AND INACTIVE PATIENTS ONLY") Line Location: HDR+4
Function Call: WRITE	Prompt: !!?5,"NAME",?36,"CHART #",?49,"NUMBER" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"(TYPE)",?15,"ELIG DATE",?36,"COVERAGE",?49,"ELIG END DATE",?64,"DATE OF BIRTH" Line Location: HDR+6
Function Call: WRITE	Prompt: !,AG("="),! Line Location: HDR+7
Routine Call	DIR Line Location: PTS+3
Routine Call	%ZIS Line Location: DEV START+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+3, START+13
^AUPNMCR - [#9000003]	START+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+13, PRINT+15, PRINT+16, PRINT+17
^AUPNPAT - [#9000001]	START+5, START+7, START+9, PRINT+19, RR+17
^AUPNRRE - [#9000005]	RR+2, RR+3, RR+6, RR+7, RR+11, RR+13, RR+14, RR+15
^AUTNINS - [#9999999.18]	PRINT+14, RR+12
^AUTTLOC - [#9999999.06]	DEV+5
^DD("DD"	PRINT+11, PRINT+12, PRINT+17, RR+9, RR+10, RR+15
^DIC(4 - [#4]	START+15
^DPT - [#2]	START+5, START+7, START+9, START+11
^TMP($J	START+1!, START+11*, START+22, END1!
^VA(200 - [#200]	START+16

Label References

Name	Line Occurrences
DEV	DEV+2, DEV+8
END1	START+22
HDR	START+21, START+22
PRINT	START+22
RR	PRINT+27
START	DEV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
A	END1!
AG	DEV+9!, END1!
AG("-"	PRINT+26, RR+23
AG("="	HDR+7
AG("DENT"	END1!
AG("HAT"	AGMCRP4+3*, END!
AG("LKDATA"	END1!
AG("LKPRINT"	END1!, PRINT+18, RR+16
AG("LOC"	START+15*, START+17, START+19!
AG("USR"	START+16*, START+17, START+19!
AG("USRLOC"	START+17*, END1!, HDR+1
AGBM	START+17, START+18, START+22, END1!
>> AGCFLAG	PRINT+2, PRINT+5, RR+1, RR+4
>> AGCOV	PRINT+4, PRINT+5, PRINT+6, PRINT+25, RR+3, RR+4, RR+5, RR+22
AGDOB	END1!, PRINT+18!, PRINT+22, RR+16!, RR+19
>> AGFLAG	START+3, START+7, START+9, START+10, START+11
AGIO	AGMCRP4+3*, DEV+9!, START+18, END1!
AGL	END1!
>> AGMCRBD	PRINT+8, PRINT+11, PRINT+25, RR+6, RR+9, RR+22
>> AGMCRDB	PRINT+17, PRINT+23, RR+15, RR+20
>> AGMCRED	PRINT+9, PRINT+12, PRINT+25, RR+7, RR+10, RR+22
>> AGMCRNM	PRINT+15, PRINT+23, RR+13, RR+20
>> AGMCRNO	PRINT+16, PRINT+21, RR+14, RR+18
>> AGMCRPN	PRINT+13, PRINT+14, PRINT+24, RR+11, RR+12, RR+21
AGNEW	END1!
AGNM	START+21, START+22, END1!, PRINT+19, RR+17
AGPCC	END1!
AGPGPG	START+15, END1!, HDR, HDR+1
>> AGPTS	PTS+4*, START+6, START+8, START+10, HDR+4
AGQIO	DEV+6*, DEV+9!, START+12
AGTIME	START+21*, END1!, HDR+3
AGTOT	START+1, START+11, END, END1!
>> AGTOTAL	START+1, PRINT+7
AGUCI	START+15*, END1!, HDR+3
>> AGZ("I"	START+12, START+22
DA	END1!, PRINT+18, RR+16
DFN	START+1, START+2, START+5, START+7, START+9, START+11, START+22*, END1!, PRINT+3, PRINT+4 , PRINT+8, PRINT+9, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, RR+2, RR+3 , RR+6, RR+7, RR+11, RR+13, RR+14, RR+15, RR+16, RR+17
>> DFOUT	START+22
DIC	END1!, PRINT+18, RR+16
DIR	PTS+3!
DIR("A"	PTS+2*
DIR(0	PTS+1*
DR	END1!, PRINT+18, RR+16
>> DTOUT	PTS+5, START+22
>> DUOUT	START+22
DUZ	START+16
DUZ(2	DEV+5, START+5, START+7, START+9, START+15, PRINT+19, RR+17
G	DEV+6*, DEV+9!, END1!
I	END1!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+13, PRINT+15, PRINT+16, PRINT+17 , RR+1, RR+2, RR+3, RR+6, RR+7, RR+11, RR+13, RR+14, RR+15
IO	AGMCRP4+3, DEV+6, START+18, START+21
IO("Q"	DEV+1, DEV+2!
IO("S"	DEV+2
ION	DEV
>> IOP	DEV, START+12
IOSL	START+17, START+18
IOST	DEV+2
>> POP	DEV, START+12
U	DEV+5, START+7, START+9, START+11, START+15, START+16, PRINT+4, PRINT+8, PRINT+9, PRINT+13 , PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+19, RR+3, RR+6, RR+7, RR+11, RR+12 , RR+13, RR+14, RR+15, RR+17
X	START+13, START+15, START+21, END1!
Y	PTS+4, PTS+5, DEV+4, START+13, END1!, PRINT+11, PRINT+12, PRINT+17, RR+9, RR+10* , RR+15*
ZTDESC	DEV+5*, DEV+9!
ZTIO	DEV+4*, DEV+9!
>> ZTQUEUED	END1
ZTRTN	DEV+4*, DEV+9!
>> ZTSAVE(	DEV+6*
ZTSK	DEV+8, DEV+9!
ZTUCI	DEV+4*, DEV+9!

Customize PDF page

Package: IHS Patient Registration

Routine: AGMCRP4

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: