Routine: AG3RDP

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$CJ^XLFSTR
IHS Patient	1	$$PI^AUPNPAT
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	NOW^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
TASK	;
RPT	;
EOJ	;
REPORT	;
MCD	; Process MediCaid file. Record the counts
VSTCK	; Input check-active flag.
DEV	; Select Device.
START	;EP - From TaskMan.
INTRO	;
VCHK	;
EN	;
DATE	; Input date to check for eligibility.
PI	; Process Private Insurance file. Record the counts
MCR	; Process MediCare file. Record the counts

External References

Name	Field # of Occurrence
NOW^%DTC	START+3
^%ZIS	DEV+5
^%ZISC	EOJ+1, REPORT+22
^%ZTLOAD	TASK+3
$$PI^AUPNPAT	PI+3
$$DIR^XBDIR	DATE+1, VSTCK+1, REPORT+20
$$FMTE^XLFDT	REPORT+3
$$CJ^XLFSTR	INTRO+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: INTRO+8
Function Call: WRITE	Prompt: $$CJ^XLFSTR($P($T(INTRO+AG),";",3),IOM) Line Location: INTRO+9
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"Processing Medicare......" Line Location: MCR+1
Function Call: WRITE	Prompt: !!,"Processing Medicaid...." Line Location: MCD+1
Function Call: WRITE	Prompt: !,DFN Line Location: MCD+5
Function Call: WRITE	Prompt: !!,"Processing Private Ins......." Line Location: PI+1
Function Call: WRITE	Prompt: !!?10,"3rd Party eligibility Stats" Line Location: REPORT+2
Function Call: WRITE	Prompt: !?10,"For Patients with Eligibility: ",$$FMTE^XLFDT(AGDT) Line Location: REPORT+3
Function Call: WRITE	Prompt: !?10,"Report Date/Time: ",$G(AGNOW) Line Location: REPORT+5
Function Call: WRITE	Prompt: !!?16,"UNDUPLICATED PATIENT COUNTS" Line Location: REPORT+6
Function Call: WRITE	Prompt: !!?10,"Medicaid Only: ",?40,$J(AGMCD,6) Line Location: REPORT+7
Function Call: WRITE	Prompt: !!?10,"Private Insurance Only: ",?40,$J(AGPI,6) Line Location: REPORT+8
Function Call: WRITE	Prompt: !!?10,"Medicare A Only: ",?40,$J(AGMCR,6) Line Location: REPORT+9
Function Call: WRITE	Prompt: !!?10,"Medicare B Only: ",?40,$J(AGMCRB,6) Line Location: REPORT+10
Function Call: WRITE	Prompt: !!?10,"Medicare Part A & B Only: ",?40,$J(AGMCRAB,6) Line Location: REPORT+11
Function Call: WRITE	Prompt: !!?10,"Medicare Part D: ",?40,$J(AGMCRD,6) Line Location: REPORT+12
Function Call: WRITE	Prompt: !!?10,"Medicaid & Medicare: ",?40,$J(AGMM,6) Line Location: REPORT+13
Function Call: WRITE	Prompt: !!?10,"Medicaid & Private Ins.: ",?40,$J(AGMDPI,6) Line Location: REPORT+14
Function Call: WRITE	Prompt: !!?10,"Medicare & Private Ins.: ",?40,$J(AGMRPI,6) Line Location: REPORT+15
Function Call: WRITE	Prompt: !!?10,"Medicaid, Medicare, & PI: ",?40,$J(AGMMPI,6) Line Location: REPORT+16
Function Call: WRITE	Prompt: !?40,"------",!!?20,"TOTAL",?40,$J(AGTOT,6) Line Location: REPORT+19
Function Call: WRITE	Prompt: @IOF Line Location: REPORT+21
Routine Call	%ZIS Line Location: DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+3, MCD+4, MCD+9, MCD+10, MCD+11
^AUPNMCR - [#9000003]	MCR+3, MCR+6, MCR+7, MCR+8, MCR+9
^AUPNPRVT - [#9000006]	PI+3
^AUPNVSIT("AA"	VCHK+2
^DD("DD"	START+4
^DPT - [#2]	MCR+4, MCD+7
^TMP("AG3RDP"	START+7!, MCR+14, MCD+15, PI+3*, EOJ+3!, EN+5, EN+7

Label References

Name	Line Occurrences
EN	RPT+3
EOJ	DATE+2, VSTCK+2, DEV+6, DEV+7, START+8
MCD	START+8
MCR	START+8
PI	START+8
RPT	START+8
TASK	DEV+7
VCHK	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+4, EN+9*
>> %ZIS	DEV+3*
AG	INTRO+9, MCD+2, MCD+3, MCD+4, MCD+9, MCD+10, MCD+11, RPT+1!, EN+1, EN+7* , EN+9, REPORT+23!
AG("BDT"	EN+3*, VCHK+2
AG("EDT"	EN+3*, VCHK+2
AG("MCD"	MCD+8, MCD+9, MCD+13, MCD+14*, MCD+15
AG("MCR"	MCR+10, MCR+11, MCR+12*, MCR+14
AG("V"	EN+6, VCHK+1, VCHK+2
AG1	EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19, EN+20, REPORT+23!
AG2	EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+19, EN+20, REPORT+23!
AG3	EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+20, REPORT+23!
AG4	EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+20, REPORT+23!
>> AG5	EN+11
AGDT	DATE+1*, MCR+4, MCR+11, MCR+12, MCD+7, MCD+13, MCD+14, PI+3, EOJ+2!, EN+3 , REPORT+3, REPORT+23!
AGEND	MCR+8, MCR+11, MCR+12, MCD+11, MCD+12*, MCD+13, MCD+14, RPT+1!
AGM	MCR+5, MCR+6, MCR+7, MCR+8, MCR+9, MCD+8, MCD+9, MCD+10, MCD+11, RPT+1!
AGMCD	EN+1, EN+12, REPORT+7, REPORT+18, REPORT+23!
AGMCR	EN+1, EN+14, REPORT+9, REPORT+18, REPORT+23!
AGMCRAB	EN+1, EN+16, REPORT+11, REPORT+18, REPORT+23!
AGMCRB	EN+1, EN+15, REPORT+10, REPORT+18, REPORT+23!
>> AGMCRD	EN+2, EN+11, REPORT+12, REPORT+18
AGMDPI	EN+1, EN+19, REPORT+14, REPORT+18, REPORT+23!
AGMM	EN+1, EN+18, REPORT+13, REPORT+18, REPORT+23!
AGMMPI	EN+1, EN+17, REPORT+16, REPORT+18, REPORT+23!
AGMRPI	EN+1, EN+20, REPORT+15, REPORT+18, REPORT+23!
AGNOW	START+2~, START+5*, REPORT+5
AGPI	EN+1, EN+13, REPORT+8, REPORT+18, REPORT+23!
AGST	MCR+7, MCR+11, MCR+12, MCD+10, MCD+13, MCD+14, RPT+1!, EOJ+2!, VCHK+1, VCHK+2
AGTOT	REPORT+18*, REPORT+19, REPORT+23!
AGTY	MCR+9*, MCR+14, EOJ+2!
AGVCK	VSTCK+1*, EOJ+2!, EN+6, REPORT+4
DFN	MCR+2, MCR+3, MCR+4, MCR+6, MCR+7, MCR+8, MCR+9, MCR+14, MCD+4, MCD+5 , MCD+6, MCD+7, MCD+15, PI+2, PI+3, EOJ+2!, EN+4, EN+5*, EN+7, REPORT+23! , VCHK+2
DIR	RPT+1!, EOJ+2!
>> DIRUT	DATE+2, VSTCK+2
IO	RPT+2, REPORT+1
IO("Q"	DEV+4!, DEV+7
IO(0	MCR+1, MCD+1, PI+1
IOF	INTRO+8, REPORT+21
IOM	INTRO+9
ION	TASK+2
IOP	DEV+2!
IOST	MCR+1, MCD+1, PI+1, REPORT+20
>> POP	DEV+6
U	MCR+4, MCR+7, MCR+8, MCR+9, MCR+14, MCD+4, MCD+7, MCD+10, MCD+11, MCD+15 , PI+3, EN+9
>> Y	START+4*, START+5
>> ZTDESC	TASK+2*
>> ZTDTH	TASK+2*
>> ZTIO	TASK+2*
>> ZTQUEUED	MCR+1, MCD+1, PI+1, REPORT+20
>> ZTRTN	TASK+2*
ZTSAVE	TASK+1!
ZTSAVE("AGDT"	TASK+2*
ZTSAVE("AGVCK"	TASK+2*

Marked Items

Name	Field # of Occurrence
$T(INTRO+AG	INTRO+9
$T(INTRO+AG+1	INTRO+9

Customize PDF page

Package: IHS Patient Registration

Routine: AG3RDP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items