Routine: AGMCRP5

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

Entry Points

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

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+11, PRINT+12, PRINT+20, PRINT+22, PRINT+23
$$GETMCR^AGUTL	PRINT+14
$$S^AGVDF	END, HDR+1
$$GET1^DIQ	PRINT+10
^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 A & B 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) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?64,$$GET1^DIQ(2,DFN_",",.03) Line Location: PRINT+10
Function Call: WRITE	Prompt: AGMCRNM,?49,$$GET1^DIQ(9000003,DFN_",",.03)_$$GET1^DIQ(9000003,DFN_",",.04) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?64,AGMCRDB Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"(MCR) " Line Location: PRINT+14
Function Call: WRITE	Prompt: AGMCRNM,?49,$$GETMCR^AGUTL(DFN) Line Location: PRINT+14
Function Call: WRITE	Prompt: AGMCRNM,?49,$$GETMCR^AGUTL(DFN) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: PRINT+24
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG Line Location: HDR+1
Function Call: WRITE	Prompt: !?17,"REGISTERED PATIENTS - MEDICARE A & B 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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, START+13
^AUPNMCR - [#9000003]	START+2, PRINT+3, PRINT+5, PRINT+17, PRINT+18
^AUPNPAT - [#9000001]	START+5, START+7, START+9, PRINT+9
^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!
^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
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
AG("="	HDR+6
AG("DENT"	END1!
AG("DRENT1"	PRINT+20, PRINT+22, PRINT+23*
AG("HAT"	AGMCRP5+5*, END!
AG("LKDATA"	END1!
AG("LKPRINT"	END1!, PRINT+11, PRINT+12, PRINT+21, PRINT+22, PRINT+23
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!
>> AGCFLAGA	PRINT+2, PRINT+6, PRINT+8
>> AGCFLAGB	PRINT+2, PRINT+7, PRINT+8
>> AGCOV	PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+18*, PRINT+19
AGDOB	END1!
>> AGFLAG	START+3, START+7, START+9, START+10, START+11
AGIO	AGMCRP5+5*, DEV+3!, START+16, END1!
AGL	END1!
AGMCRDB	PRINT+12!*, PRINT+14!
AGMCRNM	PRINT+11!*, PRINT+14!
AGNEW	END1!
AGNM	START+17, START+19, START+21, END1!, PRINT+9
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
>> 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+11, PRINT+15
DFN	START+1, START+2, START+5, START+7, START+9, START+11, START+20, START+21, END1!, PRINT+3 , PRINT+5, PRINT+9, PRINT+10, PRINT+11, PRINT+14, PRINT+15, PRINT+17, PRINT+18
>> DFOUT	START+25
DIC	END1!, PRINT+11, PRINT+15
DIR	PTS+3!
DIR("A"	PTS+2*
DIR(0	PTS+1*
DR	END1!, PRINT+11, PRINT+12, PRINT+20, PRINT+22, PRINT+23*
>> DTOUT	PTS+5, START+25
>> DUOUT	START+25
DUZ	START+15
DUZ(2	DEV+2, START+5, START+7, START+9, START+15, PRINT+9
G	DEV+2*, DEV+3!, END1!
I	END1!, PRINT+2, PRINT+3, PRINT+5, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+22, PRINT+23
IO	AGMCRP5+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+9, 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: AGMCRP5

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: