Routine: APSPCP2

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	C^%DTC ^DIR
Adverse Reaction Tracking	1	^GMRADPT
IHS Changes To Pharmacy	1	^APSPSIG

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPNE4

Entry Points

Name	Comments	DBIA/ICR reference
CMEDX
EMPRT	;EP CALLED BY CPCK^APSPNE4+2 ; NON-QUEUE PRINT MODULE
EN	;
EXIT1
GMRA
HEADER	;HEADER
Q
COPIES	;EP
GMR
PRINT1	;
FMTO	;EP ; Get From/To date
START	;
INIT	;EP
EXIT	;
BUILD	;
GETMP	;CREATE TMP DATA - NEW MODULE 07/30/99
ENDBLD
PRINT	;
PATIENT	;
COPIESX	;
FILL	;

External References

Name	Field # of Occurrence
C^%DTC	FMTO+2
^%ZIS	INIT+8, EMPRT+4, EMPRT+5
^%ZISC	INIT+10, EXIT+1
^%ZTLOAD	INIT+15
^APSPSIG	PRINT1+11
^DIR	PRINT+2, COPIES+4
^GMRADPT	GMRA

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry, you cannot queue to your screen or to a slave printer.",! Line Location: INIT+10
Function Call: WRITE	Prompt: ! Line Location: EMPRT+4
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT1+1
Function Call: WRITE	Prompt: !?60,"\| \| \| \|" Line Location: PRINT1+3
Function Call: WRITE	Prompt: !,RXNZ Line Location: PRINT1+4
Function Call: WRITE	Prompt: ?8,PSZNAME Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?42,$P(TMP("PSOZCP",PSZNAME),"^",8) Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?50,$E(LRXD,4,5),"-",$E(LRXD,6,7),"-",$E(LRXD,2,3)," " Line Location: PRINT1+8
Function Call: WRITE	Prompt: "\|_____" Line Location: PRINT1+9
Function Call: WRITE	Prompt: "\|" Line Location: PRINT1+10
Function Call: WRITE	Prompt: !,?10,SIG Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,"FILLED: " Line Location: PRINT1+13
Function Call: WRITE	Prompt: $E(ISDZ,4,5),"-",$E(ISDZ,6,7),"-",$E(ISDZ,2,3) Line Location: FILL+2
Function Call: WRITE	Prompt: " ",$E(^(RFZ,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3) Line Location: FILL+3
Function Call: WRITE	Prompt: !!!!,?27,"CHRONIC MEDICATION PROFILE" Line Location: HEADER+2
Function Call: WRITE	Prompt: ?60,"DATE : ",$E(DT,4,5),"-",$E(DT,6,7),"-",$E(DT,2,3) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,?27,"SITE: ",APSPZITE Line Location: HEADER+4
Function Call: WRITE	Prompt: !!,$P(^DPT(DA,0),"^",1) Line Location: HEADER+5
Function Call: WRITE	Prompt: ?40,"CHART # ",$P(^AUPNPAT(DA,41,DUZ(2),0),"^",2) Line Location: HEADER+6
Function Call: WRITE	Prompt: ?70,"Page ",PSOZCP("PAGE") Line Location: HEADER+7
Function Call: WRITE	Prompt: !,?40,"DOB: ",$S(DOB:$E(DOB,4,5)_"-"_$E(DOB,6,7)_"-"_$E(DOB,2,3),1:"UNKNOWN") Line Location: HEADER+9
Function Call: WRITE	Prompt: !!,"RX# DRUG",?42,"QTY",?50,"LAST FILLED",!! Line Location: HEADER+12
Function Call: WRITE	Prompt: ", " Condition for execution: I1 Line Location: GMRA+0
Function Call: WRITE	Prompt: !?5 Condition for execution: $X+$L(AL)>75 Line Location: GMRA+0
Function Call: WRITE	Prompt: AL Line Location: GMRA+0
Routine Call	DIR Line Location: PRINT+2 COPIES+4
Routine Call	%ZIS Line Location: INIT+8 EMPRT+4 EMPRT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	PATIENT+1
^AUPNPAT - [#9000001]	HEADER+6
^DPT - [#2]	HEADER+5, HEADER+8
^PS(55 - [#55]	START+7, BUILD+4!
^PS(59 - [#59]	EN+1
^PSDRUG - [#50]	BUILD+12
^PSRX - [#52]	BUILD+4, BUILD+5, BUILD+9, BUILD+12, PRINT1+7, PRINT1+13, FILL+3
^TMP("PSOZCP"	EXIT1+2!, EMPRT+2, PATIENT+5, GETMP+2

Label References

Name	Line Occurrences
BUILD	START+7
COPIESX	COPIES+5
EN	INIT+11
ENDBLD	BUILD+4
EXIT	EMPRT+4, EMPRT+5, EN+3
EXIT1	INIT+5, INIT+9
FILL	PRINT1+13
FMTO	INIT+4, EMPRT+3
GETMP	PATIENT+4
GMR	HEADER+11
GMRA	GMR
HEADER	START+3, PRINT1+1
INIT	INIT+10
PATIENT	EN+2
PRINT	START+10
PRINT1	PRINT+2
START	PATIENT+5

Naked Globals

Name	Field # of Occurrence
^(	FILL+3
^("XY"	PATIENT+1
^(0	BUILD+12, FILL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	INIT+7, EMPRT+4
>> %ZIS("A"	INIT+8, EMPRT+4!
AL	Q!, GMRA*
>> APSP("LAST FI	LL" , EXIT1+2!, BUILD+5*, BUILD+6
>> APSP("XSTAT"	INIT+3, EXIT1+2!, BUILD+9, BUILD+10, BUILD+11
>> APSP1(	INIT+6*, GETMP+2
APSPASS	EXIT1+2!
APSPBD	EXIT1+2!, FMTO+2*, BUILD+6
>> APSPCPP	EMPRT+4*, EMPRT+5
APSPED	EXIT1+2!, FMTO+2*, BUILD+6
APSPTDFN	EXIT1+2!, PATIENT+4!, GETMP+1, GETMP+2
>> APSPZITE	EN+1*, HEADER+4
DA	EXIT1!, PATIENT+3, PATIENT+5, START+7, BUILD+4, HEADER+5, HEADER+6, HEADER+8
DFN	INIT+6, EXIT1!, EMPRT+2
DIC	EXIT1!
>> DIR("A"	PRINT+2, COPIES+3
>> DIR("B"	COPIES+3*
>> DIR(0	PRINT+2, COPIES+2
>> DIROUT	PRINT+2
DIRUT	COPIES+1!, COPIES+5
DOB	EXIT1!, HEADER+8*, HEADER+9
DT	FMTO+2, HEADER+3
DTOUT	PRINT+2, COPIES+1!, COPIES+5
>> DUOUT	PRINT+2
DUZ(2	HEADER+6
DX	EXIT1+2!, PATIENT+1*
DY	EXIT1+2!, PATIENT+1*
>> G	INIT+13*
GMRA	GMRA+1!
GMRAL	GMRA+1!
GMRAL(	GMRA
I	EXIT1!, PATIENT+5, START+7, PRINT+2, PRINT1+9, Q!, GMRA*
I1	Q!, GMRA*
IO	INIT+10, INIT+11, PATIENT+2
IO("Q"	INIT+10!, INIT+11, EXIT1+1!, PATIENT+6!
IO(0	INIT+10, INIT+11
IOF	PATIENT+5, PRINT+2, PRINT1+1
ION	INIT+12, EMPRT+4
>> IOP	EMPRT+5*
IOSL	PRINT+2, PRINT1+1
IOST	PATIENT+5, PRINT+2, PRINT1+1
ISDZ	EXIT1!, FILL+1*, FILL+2
J	EXIT1!, START+6, START+7, BUILD+4, BUILD+5, BUILD+9, BUILD+12
LRXD	EXIT1!, PRINT1+7*, PRINT1+8
POP	INIT+9, EXIT1+1!, EMPRT+4!, EMPRT+5
PSCNT	Q!
PSDIS	Q!
PSLC	Q!
>> PSOPTPST	GMR
>> PSOSITE	EN+1
PSOZCP	EXIT1+1!
PSOZCP("COPIES"	INIT+2, EN+2, PATIENT+6, COPIES+6
PSOZCP("FLG"	INIT+5, COPIES+5*
PSOZCP("I"	EN+2*, PATIENT+6
PSOZCP("PAGE"	START+2, HEADER+1, HEADER+7
>> PSOZP("FLG"	COPIES+1!
>> PSOZZCP("DAYS"	FMTO+2
PSZNAME	EXIT1!, PRINT+1, PRINT+2, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+11, PRINT1+13, FILL+1 , FILL+3
RFZ	EXIT1!, FILL+3*
RXNZ	EXIT1!, PRINT1+2*, PRINT1+4
SC	Q!
SIG	EXIT1!, PRINT1+11*, PRINT1+12
TMP	EXIT1!
TMP("PSOZCP"	START+1!, START+10, BUILD+12*, PRINT+2, PRINT1+2, PRINT1+6, PRINT1+7, PRINT1+11, PRINT1+13, FILL+1 , FILL+3
VAROOT	Q!
X	EXIT1+1!, FMTO+2, PRINT1+11*, Q!
>> X1	FMTO+2*
>> X2	FMTO+2*
Y	EXIT1+1!, COPIES+6, Q!
ZTDESC	INIT+14*, EXIT1+1!
ZTIO	INIT+12*, EXIT1+1!
ZTRTN	INIT+12*, EXIT1+1!
ZTSAVE	EXIT1+1!
ZTSAVE(	INIT+13*
ZTSK	EXIT1+1!, EMPRT+4!, PATIENT+6!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPCP2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: