Routine: AGMCRP6

Package	Total	Call Graph
IHS Patient Registration	3	(CTR,LINES,NOW,RTRN)^AG $$GETMCR^AGUTL $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	2	$$GET1^DIQ ^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
$$GETMCR^AGUTL	PRINT+7
$$S^AGVDF	END, HDR+1
$$GET1^DIQ	PRINT+4, PRINT+5, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+17, PRINT+18, PRINT+19, PRINT+24 , PRINT+25, PRINT+26
^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+3
Function Call: WRITE	Prompt: ?64,Y Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"(MCR) " Line Location: PRINT+5
Function Call: WRITE	Prompt: $$GET1^DIQ(9000003,DFN_",",2101) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?49,$$GETMCR^AGUTL(DFN) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?64,$$GET1^DIQ(9000003,DFN_",",2102) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?14,$$GET1^DIQ(9000003.11,REC_","_DFN_",",.01) Line Location: PRINT+11
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: PRINT+27
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG Line Location: HDR+1
Function Call: WRITE	Prompt: !?17,"REGISTERED PATIENTS - MEDICARE/MEDICAID 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,"POL. NUMBER",!,"(TYPE)" Line Location: HDR+5
Function Call: WRITE	Prompt: ?14,"ELIG DATE",?34,"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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNMCR - [#9000003]	GET1^DIQ
9000003.11	GET1^DIQ
^AUPNMCD - [#9000004]	GET1^DIQ
9000004.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, START+13
^AUPNMCD - [#9000004]	PRINT+22, MCDDATES+6
^AUPNMCD("B"	PRINT+16, MCDDATES+4
^AUPNMCR - [#9000003]	START+2, PRINT+2, PRINT+10
^AUPNPAT - [#9000001]	START+5, START+7, START+9, PRINT+3
^AUTTLOC - [#9999999.06]	DEV+2
^DD("DD"	PRINT+4
^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
$$MCDDATES	PRINT+2
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+27
AG("="	HDR+7
AG("DENT"	END1!
AG("HAT"	AGMCRP6+5*, END!
AG("LKDATA"	END1!
AG("LKPRINT"	END1!
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!
AGDOB	END1!
>> AGFLAG	START+3, START+7, START+9, START+10, START+11
AGIO	AGMCRP6+5*, DEV+3!, START+16, END1!
AGL	END1!
>> AGMCDDOB	PRINT+18*, PRINT+20
>> AGMCDNM	PRINT+17*, PRINT+20
>> AGMCDNUM	PRINT+19*, PRINT+20
AGNEW	END1!
AGNM	START+17, START+19, START+21, END1!, PRINT+3
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!
DFN	START+1, START+2, START+5, START+7, START+9, START+11, START+20, START+21, END1!, PRINT+2 , PRINT+3, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+16 , MCDDATES~, MCDDATES+4
>> DFOUT	START+25
DIC	END1!
DIR	PTS+3!
DIR("A"	PTS+2*
DIR(0	PTS+1*
DR	END1!
>> DTOUT	PTS+5, START+25
>> DUOUT	START+25
DUZ	START+15
DUZ(2	DEV+2, START+5, START+7, START+9, START+15, PRINT+3
EDT	MCDDATES+1~, MCDDATES+5*, MCDDATES+6
>> ELIGDT	PRINT+21, PRINT+22, PRINT+24, PRINT+25, PRINT+26
G	DEV+2*, DEV+3!, END1!
I	END1!
IO	AGMCRP6+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
MCDFLAG	MCDDATES+1~, MCDDATES+2, MCDDATES+7, MCDDATES+8
>> POP	DEV, START+12
REC	PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19 , PRINT+22, PRINT+24, PRINT+25, PRINT+26, MCDDATES+1~, MCDDATES+3, MCDDATES+4, MCDDATES+6
U	DEV+2, START+7, START+9, START+11, START+15, PRINT+3
X	START+13, START+15, START+17, END1!
Y	PTS+4, PTS+5, DEV+2, START+13, END1!, PRINT+4*
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: AGMCRP6

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

Local Variables

Legend:

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