Routine: APSPMED

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Outpatient Pharmacy Medication Profile",! Line Location: EP+1
Function Call: WRITE	Prompt: !?20,*7,"NO PHARMACY INFORMATION" Line Location: EP+4
Function Call: WRITE	Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",! Line Location: EP+5
Function Call: WRITE	Prompt: !,"Outpatient prescriptions are cancelled 72 hours after admission",! Line Location: PQ+1
Function Call: WRITE	Prompt: @IOF Line Location: O+1
Function Call: WRITE	Prompt: @IOF Line Location: O+2
Function Call: WRITE	Prompt: !,"RX #: ",$P(RX0,"^"),!,DRX,?45,"SIG: ",$P(RX0,"^",10) Line Location: O+3
Function Call: WRITE	Prompt: !?2,"QTY: ",$P(RX0,"^",7),?23,"# OF REFILLS: ",$P(RX0,"^",9),?45,"ISSUE/EXPR : " Line Location: O+4
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),"/" Line Location: O+4
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3) Condition for execution: Y Line Location: O+4
Function Call: WRITE	Prompt: !?2,"PHYS: ",PHYS,?30,"CLERK: ",$P(RX0,"^",16),?45,"FILLED: " Line Location: O+6
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3) Condition for execution: Y Line Location: O+6
Function Call: WRITE	Prompt: " (",$P(RX0,"^",11),")" Line Location: O+6
Function Call: WRITE	Prompt: !?2,"LAST FILLED: " Line Location: O+7
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),?45,$S($P(RX2,"^",15):"Original Fill Returned to Stock",1:"") Condition for execution: Y Line Location: O+7
Function Call: WRITE	Prompt: " "_$E(^PSRX(J,1,K,0),4,5)_"-"_$E(^(0),6,7)_"-"_$E(^(0),2,3)_" ("_$P(^(0),"^",2)_")"_$S($P(^(0),"^",16):"(R)",1:"") Line Location: O+9
Function Call: WRITE	Prompt: "," Condition for execution: CT#5 Line Location: O+9
Function Call: WRITE	Prompt: $E(^(K,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3)," (",$P(^(0),"^",2),") QTY:",$P(^(0),"^",4)_$S($P(^(0),"^",16):" Returned to Stock",1:"")_", " Line Location: O+10
Function Call: WRITE	Prompt: @IOF Line Location: PAUS+0
Routine Call	DIR Line Location: EP+7 S+1 S+3 O+1 PAUS
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PQ+1
^PS(55 - [#55]	PQ, LOOP
^PS(59 - [#59]	O+12
^PSDRUG - [#50]	O, DRUG, CLSS
^PSRX - [#52]	O, O+6, O+7, O+8, O+9, O+10, LOOP, DATE, DRUG, CLSS
^TMP($J	EP+6!, PQ!, PQ+3, Q!, DATE, DRUG, CLSS*
^VA(200 - [#200]	O+5

Name	Line Occurrences
@(	LOOP
APSPMED	DEV+4, DEV+5
DEV	S+2
LOOP	PQ
O	PQ+3
P	DEV+5
PAUS	PQ+2, PQ+5
PQ	P+1
Q	EP+3, EP+7, S+1, S+3, DEV, DEV+4, DEV+5, P+2

Name	Field # of Occurrence
^(	PQ+1, O+10, LOOP
^(0	O, O+5, O+9, O+10, O+12, LOOP, DATE, DRUG, CLSS
^(2	O

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
AL	Q!
APSP	DEV+3*, Q+1!
APSPAGE	EP+6, P+1, Q+1!
APSPBD	Q+1!, LOOP
APSPCN	Q+1!
APSPDPT	EP+3, Q+1!
APSPDPT(	DEV+3, P+1
APSPED	Q+1!, LOOP
APSPZ	P+1*, Q+1!
>> APSPZZ	DEV+2*
CT	Q!, O+8, O+9
D0	Q!
DA	EP+6, P+1, PQ, PQ+1, Q!
DFN	P+1*, Q!, LOOP
DIC	Q!
DIR	EP+7!, S+1!, S+2!, S+3!, Q!
DIR("?"	EP+7, S+1, S+2*
DIR("A"	EP+7, S, S+2, O+1, PAUS*
DIR("B"	EP+7, S, S+2*
DIR(0	EP+7, S, S+2, O+1, PAUS*
>> DIROUT	P+1, PQ+3, PQ+4, O+1, PAUS
DIRUT	EP+7, S+1, Q!
>> DO	P+1*
DRUG	PQ+3*, Q!
DRX	Q!, O*, O+3
DT	S+3
>> DTOUT	S+3, P+1, PQ+3, PQ+4, O+1, PAUS
DUOUT	EP+7, S+1, S+3, P+1, PQ+3, PQ+4, Q!, O+1, PAUS
FN	P+1*, Q!
G	Q!
I	Q!, LOOP*
I1	Q!
II	PQ+3*, Q!
IO("Q"	DEV+1, DEV+4!
IOF	O+1, O+2, PAUS
ION	DEV
IOP	DEV!*
IOSL	O+1, O+2
IOST	O+1, O+2, PAUS
J	PQ+3, Q!, O, O+6, O+7, O+8, O+9, O+10, LOOP, DATE , DRUG, CLSS
K	Q!, O+8, O+9, O+10
LMI	Q!
PHYS	Q!, O+5*, O+6
PI	Q!
PLS	EP+7*, PQ+2, Q!
>> POP	DEV
>> PSDIV	O+12*, O+13
PSODTCT	S+3*, Q!, DRUG, CLSS
PSOION	DEV*!, DEV+1!
>> PSOPAR	S, PQ+1
PSRT	S+1*, S+2, Q!, LOOP
Q	DEV+4!
REF	Q!, O+8, O+9, O+13
RX	Q!
RX0	Q!, O*, O+3, O+4, O+5, O+6, O+8, O+11
RX2	Q!, O*, O+4, O+7, O+12
RXD	Q!
RXF	Q!
ST	Q!, O+13
U	LOOP
VA	Q+1!
VADM	Q+1!
VAEL	Q+1!
VAERR	Q+1!
VAPA	Q+1!
X	S+3, Q!, DATE*
>> X1	S+3*
>> X2	S+3*
Y	EP+7, S+1, Q!, O+4, O+6, O+7*
>> ZTDESC	DEV+1*
>> ZTQUEUED	Q+1
>> ZTREQ	Q+1*
ZTRTN	DEV+2*, Q+1!
ZTSAVE	Q+1!
ZTSAVE(	DEV+2*
ZTSAVE("APSPDPT("	DEV+3*
ZTSK	EP+6!, DEV!, DEV+4!
ZX	Q!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPMED

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: