Routine: APCLPS1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,ENP)^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	2	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
VA Fileman	2	EN^DDIOL ^DIR
IHS Patient	1	($$HRN,$$MCD,$$MCR,$$PI)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
MCD(P,D)	;EP - Is patient P medicaid eligible on date D. ; I = IEN. ; J = Node 11 IEN in ^AUPNMCD.
DATES
DEMO	;
INSTD(P,D,I,T)	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
INST	;
PRINT	;EP - called from xbdbque
GETSORT	;
DSPDN	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
PIX	;
SOURCE
EOJ	;
MCR(P,D)	;EP - Is patient P medicare eligible on date D. 1 = yes, 0 = no. ; I = IEN in ^AUPNMCR multiple.
DATE(D)	;EP
SORT	;
ZIS	; call xbdbque
DOLLAR	;
HEADER	;EP
MCDX	;
MCRX	;
INS	;
HEADER1	;
DONE	;
PROC	;
PI(P,D)	;EP - Is patient P private insurance eligible on date D. 1= yes, 0=no. ; I = IEN ; Y = 1:yes, 0:no ; X = Pointer to INSURER file.

External References

Name	Field # of Occurrence
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	PROC+9
DEMOCHK^APCLUTL	DEMO+1
$$HRN^AUPNPAT	GETSORT+3, PRINT+9
$$MCD^AUPNPAT	GETSORT+7
$$MCR^AUPNPAT	GETSORT+6
$$PI^AUPNPAT	GETSORT+8
EN^DDIOL	APCLPS1+14
^DIR	DATES+2, DATES+4, INS+4, INST+9, SOURCE+11, DOLLAR+5, DSPDN+3, SORT+4, EOP+7, HEADER+2
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	PROC+50
ENP^XBDIQ1	PROC+10, PROC+11, PROC+22, PROC+25, PROC+38, PROC+41
^XBFMK	EOJ+2
EN^XBVK	EOJ+1
$$FMADD^XLFDT	PROC+5
$$FMTE^XLFDT	HEADER1+2, HEADER1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !,"Please select the insurance types that the patient must have to be" Line Location: INST+2
Function Call: WRITE	Prompt: !,"included in the report. For example, if you want patients with Medicare" Line Location: INST+3
Function Call: WRITE	Prompt: !,"enter 1, if you want patients with both Medicare and Medicaid, enter 1,2." Line Location: INST+4
Function Call: WRITE	Prompt: ! Line Location: INST+5
Function Call: WRITE	Prompt: !?10,"1 Medicare" Line Location: INST+6
Function Call: WRITE	Prompt: !?10,"2 Medicaid" Line Location: INST+7
Function Call: WRITE	Prompt: !?10,"3 Private Insurance" Line Location: INST+8
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?41,APCLI Line Location: PRINT+12
Function Call: WRITE	Prompt: ?70,$FN(^XTMP("APCLPS1",APCLJOB,APCLBTH,APCLSV,APCLDFN,0),"",2) Line Location: PRINT+13
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* PRESCRIPTION COST REPORT *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+12
Function Call: WRITE	Prompt: !," Name",?32,"Chart #",?41,"Eligibility Dates",?70,"Total Rx",!?70,"Costs" Line Location: HEADER1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+14
Routine Call	DIR Line Location: DATES+2 DATES+4 INS+4 INST+9 SOURCE+11 DOLLAR+5 DSPDN+3 SORT+4 EOP+7 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPTL("B"	PROC+20, PROC+36
^AUPNMCD - [#9000004]	MCD+12, MCD+13, MCD+15, MCD+16
^AUPNMCD("B"	MCD+11
^AUPNMCR - [#9000003]	MCR+9, MCR+12, MCR+13, MCR+14, MCR+15
^AUPNPAT - [#9000001]	MCR+8, MCD+9, PI+10
^AUPNPRVT - [#9000006]	PI+11, PI+14, PI+15, PI+16, PI+18, PI+19, PI+20
^AUTNINS - [#9999999.18]	PI+17
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	GETSORT+2, PRINT+8, MCR+6, MCR+7, MCR+10, MCD+7, MCD+8, MCD+10, PI+8, PI+9 , PI+12
^PSRX - [#52]	PROC+9
^PSRX("AD"	PROC+6, PROC+7, PROC+8
^VA(200 - [#200]	USR+1, HEADER1+2
^XTMP("APCLPS1"	PROC+2!, PROC+49, PROC+50, PROC+51, PROC+54, PROC+55, PROC+56!, PRINT+3, PRINT+5, PRINT+6 , PRINT+10, PRINT+13, PRINT+15, DONE+1!

Label References

Name	Line Occurrences
$$CTR	APCLPS1+5, APCLPS1+6, APCLPS1+7, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+12
$$DATE	MCR+15, MCD+16, PI+20
$$INSTD	PROC+47
$$LOC	APCLPS1+6
$$MCD	INSTD+4
$$MCR	INSTD+5
$$PI	INSTD+6
$$USR	APCLPS1+5
DATES	DATES+6, INS+6
DOLLAR	DOLLAR+7, DSPDN+4
DONE	PRINT+3, PRINT+17
DSPDN	SORT+5
EOJ	DEMO+5
EOP	DONE+2
GETSORT	PROC+48
HEADER	PRINT+3, PRINT+4, PRINT+7
HEADER1	HEADER+1
INS	INST+10, SOURCE+12
MCDX	MCD+7, MCD+8, MCD+9, MCD+10
MCRX	MCR+6, MCR+7, MCR+8, MCR+9, MCR+10
PIX	PI+8, PI+9, PI+10, PI+11, PI+12
SORT	DEMO+2
SOURCE	INS+8, SOURCE+13, DOLLAR+6

Naked Globals

Name	Field # of Occurrence
^(	MCR+10, MCD+10, PI+12
^(0	PROC+49*, USR+1, LOC+1, MCR+14, MCD+15, PI+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABSPR(509	PROC+26, PROC+42
>> APCLABSI	PROC+20, PROC+21, PROC+22, PROC+36, PROC+37, PROC+38
>> APCLABSP	PROC+19, PROC+20, PROC+35, PROC+36
>> APCLBCOS	PROC+21, PROC+23, PROC+27, PROC+37, PROC+39, PROC+44
APCLBD	DATES!, DATES+2*, DATES+6, PROC+5, HEADER1+4
>> APCLBTH	PROC+1*, PROC+2, PROC+49, PROC+50, PROC+51, PROC+54, PROC+55, PROC+56, PRINT+3, PRINT+5 , PRINT+6, PRINT+10, PRINT+13, PRINT+15, DONE+1
>> APCLC	PRINT+10, PRINT+11, PRINT+12, PRINT+13
>> APCLCCOS	PROC+21, PROC+24, PROC+26, PROC+27, PROC+37, PROC+40, PROC+42, PROC+44
>> APCLCOST	PROC+27, PROC+44
>> APCLD	PRINT+15*, PRINT+16
>> APCLDDN	DSPDN+1, DSPDN+5, PRINT+14
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9
>> APCLDFN	PROC+46, PROC+47, PROC+51, PROC+55, PROC+56, GETSORT+2, GETSORT+3, GETSORT+6, GETSORT+7, GETSORT+8 , PRINT+6*, PRINT+8, PRINT+9, PRINT+10, PRINT+13, PRINT+15
>> APCLDOLL	DOLLAR+1, DOLLAR+8, PROC+56, HEADER1+6
APCLED	DATES!, DATES+4*, DATES+6, PROC+6, HEADER1+4
>> APCLI	PRINT+10*, PRINT+12
APCLINS	INS+1!, INS+7*, INS+8, PROC+47, HEADER1+7
APCLITYP	INST+1!, PROC+47
APCLITYP("C"	INST+12*, HEADER1+10
APCLITYP("M"	INST+11*, HEADER1+9
APCLITYP("P"	INST+13*, HEADER1+11
>> APCLJOB	PROC+1*, PROC+2, PROC+49, PROC+50, PROC+51, PROC+54, PROC+55, PROC+56, PRINT+3, PRINT+5 , PRINT+6, PRINT+10, PRINT+13, PRINT+15, DONE+1
APCLL	APCLPS1+14, APCLPS1+15!
APCLL(1	APCLPS1+5*
APCLL(2	APCLPS1+6*
APCLL(3	APCLPS1+7*
APCLL(4	APCLPS1+8*
APCLL(5	APCLPS1+9*
APCLL(6	APCLPS1+10*
APCLL(7	APCLPS1+11*
APCLL(8	APCLPS1+12*
APCLL(9	APCLPS1+13*
>> APCLPG	PRINT+2, HEADER+1, HEADER1+1, HEADER1+2
>> APCLPINS	PROC+47*, PROC+51
>> APCLPTL(14	PROC+25, PROC+41
>> APCLPTL(4	PROC+24, PROC+25, PROC+40, PROC+41
>> APCLPTL(505	PROC+23, PROC+39
APCLQUIT	PRINT+2!, PRINT+5, PRINT+6, PRINT+7, PRINT+10, PRINT+15, HEADER+2*
>> APCLRX(	PROC+16, PROC+27, PROC+44
>> APCLRX(100	PROC+13
>> APCLRX(17	PROC+27, PROC+44
>> APCLRX(2	PROC+46, PROC+49, PROC+50
>> APCLRX(31	PROC+15
>> APCLRX(7	PROC+27, PROC+44
>> APCLRX0	PROC+9*
>> APCLRXFL	PROC+8*, PROC+11, PROC+14, PROC+29, PROC+34
>> APCLRXIN	PROC+7*, PROC+8, PROC+9, PROC+10, PROC+11, PROC+19, PROC+35, PROC+50
>> APCLRXR(14	PROC+31
>> APCLRXR(17	PROC+30
>> APCLSD	PROC+5, PROC+6, PROC+7, PROC+8, PROC+47, GETSORT+6, GETSORT+7, GETSORT+8
>> APCLSORT	SORT+1, SORT+6, GETSORT+2, GETSORT+3, GETSORT+4, GETSORT+5
>> APCLSRC	SOURCE+1, SOURCE+14, PROC+27, PROC+44, HEADER1+5
>> APCLSUFF	PROC+34*, PROC+35
>> APCLSV	PROC+48, PROC+49, PROC+50, PROC+51, PROC+54, PROC+55, PROC+56, GETSORT+1, GETSORT+2, GETSORT+3* , GETSORT+4, GETSORT+6, GETSORT+7, GETSORT+8, GETSORT+9, PRINT+5, PRINT+6, PRINT+10, PRINT+13, PRINT+15
APCLTCOS	PROC+27, PROC+44, PROC+45, PROC+47!, PROC+49, PROC+52!, GETSORT+4
D	INSTD~, INSTD+2, INSTD+4, INSTD+5, INSTD+6, MCR~, MCR+3, MCR+10, MCR+13, MCR+14 , MCD~, MCD+4, MCD+10, MCD+14, MCD+15, PI~, PI+5, PI+12, PI+18, PI+19 , DATE~, DATE+1, DATE+2
DA	INS+4!, INST+9!, DSPDN+3!
DFOUT	EOP+5!
DIR	DATES+1!, DATES+3!, INS+2!, INS+5!, INST+9!, SOURCE+2!, SOURCE+11!, DOLLAR+2!, DOLLAR+5!, DSPDN+2! , DSPDN+3!, SORT+2!, SORT+4!, EOP+4~, HEADER+2!
DIR("?"	SOURCE+3, SOURCE+4, SOURCE+5, SOURCE+6, SOURCE+7, SOURCE+8
DIR("A"	DATES+1, DATES+3, INS+4, INST+9, SOURCE+10, DOLLAR+4, DSPDN+3, SORT+4, EOP+7*
DIR("B"	INS+4, INST+9, DSPDN+3, SORT+4
DIR(0	DATES+1, DATES+3, INS+3, INST+9, SOURCE+9, DOLLAR+3, DSPDN+3, SORT+3, EOP+7, HEADER+2
DIRUT	INS+6, INST+10, DSPDN+4, SORT+5, EOP+5!
DLOUT	EOP+5!
DT	HEADER1+2
DTOUT	SOURCE+12, DOLLAR+6, EOP+5!, HEADER+2
DUOUT	SOURCE+12, DOLLAR+6, EOP+5!
DUZ	USR+1, HEADER1+2
DUZ(2	GETSORT+3, LOC+1, PRINT+9
I	INSTD~, INSTD+7, INSTD+8, MCR+4~, MCR+11, MCR+12, MCR+13, MCR+14, MCR+15, MCD+5~ , MCD+11, MCD+12, MCD+13, MCD+15, MCD+16, PI+6~, PI+13, PI+14*, PI+15, PI+16 , PI+18, PI+19, PI+20
IO	EOP+2, HEADER+2
IO("S"	EOP+3
IO(0	EOP+2, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT+7
IOST	EOP+1, HEADER+2
>> IOT	EOP+3
J	MCD+5~, MCD+13*, MCD+14, MCD+15, MCD+16
MCD	INSTD+3~, INSTD+4*, INSTD+7, INSTD+8, INSTD+11, INSTD+12
MCR	INSTD+3~, INSTD+5*, INSTD+7, INSTD+8, INSTD+9, INSTD+12
P	INSTD~, INSTD+1, INSTD+4, INSTD+5, INSTD+6, MCR~, MCR+2, MCR+6, MCR+7, MCR+8 , MCR+9, MCR+10, MCR+12, MCR+13, MCR+14, MCR+15, MCD~, MCD+3, MCD+7, MCD+8 , MCD+9, MCD+10, MCD+11, PI~, PI+4, PI+8, PI+9, PI+10, PI+11, PI+12 , PI+14, PI+15, PI+16, PI+18, PI+19, PI+20
PI	INSTD+3~, INSTD+6*, INSTD+7, INSTD+8, INSTD+10, INSTD+12
>> QTY	PROC+27, PROC+44
T	INSTD~
T("C"	INSTD+11
T("M"	INSTD+9
T("P"	INSTD+10
U	PROC+9, PROC+51, GETSORT+2, INSTD+7, INSTD+8, INSTD+12, USR+1, LOC+1, PRINT+8, HEADER1+2 , MCR+5, MCR+7, MCR+10, MCR+13, MCR+14, MCR+15, MCD+6, MCD+8, MCD+10, MCD+15 , MCD+16, PI+7*, PI+9, PI+12, PI+15, PI+16, PI+17, PI+18, PI+19, PI+20
X	PROC+51, CTR~, CTR+1, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10* , HEADER1+11, HEADER1+12, PI+6~, PI+16*, PI+17
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATES+2, DATES+4, INS+7, INST+11, INST+12, INST+13, SOURCE+13, SOURCE+14, DOLLAR+7, DOLLAR+8 , DSPDN+5, SORT+6, CTR~, CTR+1, HEADER+2, MCR+4~, MCR+5, MCR+15, MCRX+1, MCD+5~ , MCD+6, MCD+16, MCDX+1, PI+6~, PI+7, PI+20, PIX+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPS1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: