Routine: APSPCP1

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
VA Fileman	3	C^%DTC ^DIC ^DIR
Adverse Reaction Tracking	1	^GMRADPT
IHS Changes To Pharmacy	1	^APSPCP
Outpatient Pharmacy	1	^PSOLSET

Entry Points

Name	Comments	DBIA/ICR reference
CMEDX
PRINT1	;
EN	;
PATIENT	;
GMRA
HEADER	;HEADER
CMEDXA
Q
COPIES	;
GMR
FMTO	;EP
START	;
INIT	;ENTRY POINT IF DFN ALREADY DEFINED
EXIT	;
BUILD	;
GETMP	;CREATE TMP DATA
ENDBLD
PRINT	;
EXIT1
COPIESX	;
FILL	;

External References

Name	Field # of Occurrence
C^%DTC	CMEDXA
^%ZIS	INIT+6
^%ZISC	INIT+8, EXIT+1
^%ZTLOAD	INIT+14
^APSPCP	PRINT1+20
^DIC	APSPCP1+19
^DIR	FMTO+11, PRINT+2, COPIES+4
^GMRADPT	GMRA
^PSOLSET	FMTO+6
$$UP^XLFSTR	BUILD+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry, you cannot queue to your screen or to a slave printer.",! Line Location: INIT+8
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT1+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT1+3
Function Call: WRITE	Prompt: !?60,"\| \| \| \|" Line Location: PRINT1+6
Function Call: WRITE	Prompt: !,$P(DATA,U,2) Line Location: PRINT1+8
Function Call: WRITE	Prompt: ?8,$P(^PSDRUG($P(DATA,U,7),0),U) Line Location: PRINT1+10
Function Call: WRITE	Prompt: ?42,$P(DATA,U,8) Line Location: PRINT1+12
Function Call: WRITE	Prompt: ?50,$E(LRXD,4,5),"-",$E(LRXD,6,7),"-",$E(LRXD,2,3)," " Line Location: PRINT1+15
Function Call: WRITE	Prompt: "\|_____" Line Location: PRINT1+16
Function Call: WRITE	Prompt: "\|" Line Location: PRINT1+17
Function Call: WRITE	Prompt: !,?10,SIG Line Location: PRINT1+21
Function Call: WRITE	Prompt: !,"FILLED: " Line Location: PRINT1+22
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: ",$G(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+11
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	DIC Line Location: APSPCP1+19
Routine Call	DIR Line Location: FMTO+11 PRINT+2 COPIES+4
Routine Call	%ZIS Line Location: INIT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

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]	APSPCP1+19, START+7, BUILD+5!
^PS(59 - [#59]	EN+1
^PSDRUG - [#50]	BUILD+15, BUILD+16, PRINT1+10
^PSRX - [#52]	BUILD+5, BUILD+6, BUILD+10, BUILD+15, BUILD+16, BUILD+17, PRINT1+14, PRINT1+22, FILL+3
^TMP("PSOZCP"	PATIENT+4!, PATIENT+6, GETMP+2*, EXIT1+2!

Label References

Name	Line Occurrences
BUILD	START+7
CMEDX	FMTO+12
CMEDXA	FMTO+6
COPIES	INIT+1
COPIESX	COPIES+5
EN	INIT+9
ENDBLD	BUILD+5
EXIT	INIT+15, EN+3
EXIT1	APSPCP1+17, APSPCP1+20, INIT+3, INIT+7
FILL	PRINT1+22
FMTO	APSPCP1+17, INIT+2
GETMP	PATIENT+5
GMR	HEADER+10
GMRA	GMR
HEADER	START+3, PRINT1+2, PRINT1+3
INIT	INIT+8
PATIENT	EN+2
PRINT	START+10
PRINT1	PRINT+2
START	PATIENT+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPCP1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: