Routine: AGMCRP2

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

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEV, START+12
^%ZISC	DEV+1, DEV+3, END1
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	END1
CTR^AG	START+14, START+17
LINES^AG	START+17
NOW^AG	START+17
RTRN^AG	START+24, END
^AGDICLK	PRINT+8, PRINT+11, PRINT+12, PRINT+20, PRINT+22, PRINT+23, RR+1, RR+2, RR+6, RR+7 , RR+8
$$GETMCR^AGUTL	PRINT+10
$$GETRRE^AGUTL	RR
$$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+1
Function Call: WRITE	Prompt: !!!,"TOTAL MEDICARE PATIENTS: ",AGTOT Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: "(REG) ",AGNM,?36,$P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2),?49 Line Location: PRINT+8
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: PRINT+9
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?64 Line Location: PRINT+9
Function Call: WRITE	Prompt: AGDOB Condition for execution: $D(AGDOB) Line Location: PRINT+9
Function Call: WRITE	Prompt: $$GETMCR^AGUTL(DFN) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?64 Line Location: PRINT+10
Function Call: WRITE	Prompt: AGDOB Condition for execution: $D(AGDOB) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,"(MCR) " Line Location: PRINT+13
Function Call: WRITE	Prompt: AGMCRNM Condition for execution: $D(AGMCRNM) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?64,AGMCRDB Condition for execution: $D(AGMCRDB) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: PRINT+24
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: PRINT+26
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: PRINT+26
Function Call: WRITE	Prompt: ?64 Line Location: PRINT+26
Function Call: WRITE	Prompt: AGDOB Condition for execution: $D(AGDOB) Line Location: PRINT+26
Function Call: WRITE	Prompt: $$GETRRE^AGUTL(DFN) Line Location: RR+0
Function Call: WRITE	Prompt: ?64 Line Location: RR+0
Function Call: WRITE	Prompt: AGDOB Condition for execution: $D(AGDOB) Line Location: RR+0
Function Call: WRITE	Prompt: !,"(RR) " Line Location: RR+3
Function Call: WRITE	Prompt: AGRRNM Condition for execution: $D(AGRRNM) Line Location: RR+3
Function Call: WRITE	Prompt: ?64,AGRRDB Condition for execution: $D(AGRRDB) Line Location: RR+3
Function Call: WRITE	Prompt: !,"(RR) " Line Location: RR+6
Function Call: WRITE	Prompt: ?14,AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: RR+6
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: RR+9
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG Line Location: HDR+1
Function Call: WRITE	Prompt: !?17,"REGISTERED PATIENTS - MEDICARE 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: !!," NAME",?36,"CHART #",?49,"NUMBER",!,"(TYPE)",?14,"ELIG DATE",?34,"COVERAGE",?49,"ELIG END DATE",?64,"DATE OF BIRTH" Line Location: HDR+5
Function Call: WRITE	Prompt: !,AG("="),! Line Location: HDR+6
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+2, START+13
^AUPNMCR - [#9000003]	START+2, PRINT+3, PRINT+5, PRINT+16, PRINT+18
^AUPNPAT - [#9000001]	START+5, START+7, START+9, PRINT+8
^AUPNRRE - [#9000005]	RR+5
^AUTTLOC - [#9999999.06]	DEV+2
^DIC(4 - [#4]	START+15
^DPT - [#2]	START+5, START+7, START+9, START+11
^TMP($J	START+1!, START+11*, START+19, START+21, END1!, PRINT+8
^VA(200 - [#200]	START+15

Label References

Name	Line Occurrences
DEV	DEV+1, DEV+3
END	START+27
END1	START+25
HDR	START+17, START+26
PRINT	START+22
RR	PRINT+8
START	DEV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Patient Registration

Routine: AGMCRP2

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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