Routine: MCPSOP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	3	^PSODEM STAT^PSOFUNC ^PSOP1
VA Fileman	2	C^%DTC ^DIR

Package	Total	Caller Graph
Medicine	1	MCRH1

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	S+3
^%ZIS	DEV
^%ZISC	Q
^%ZTLOAD	DEV+2
^DIR	DOIT+2, S+1, S+3, DIR
^PSODEM	DOIT+1, P
STAT^PSOFUNC	O+11
^PSOP1	P+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,*7,"NO PHARMACY INFORMATION" Line Location: DOIT+0
Function Call: WRITE	Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",! Line Location: DOIT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: P+1
Function Call: WRITE	Prompt: @IOF Line Location: P+1
Function Call: WRITE	Prompt: !,"Outpatient prescriptions are cancelled 72 hours after admission",! Line Location: P+2
Function Call: WRITE	Prompt: @IOF Line Location: P+4
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):" (R)",1:"")_", " Line Location: O+10
Routine Call	DIR Line Location: DOIT+2 S+1 S+3 DIR
Routine Call	%ZIS Line Location: DEV

Name	Comments	DBIA/ICR reference
Q
CLSS
DRUG
O
DOIT
P
S
DEV
DIR
DATE
LOOP

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

Name	Line Occurrences
@(	LOOP
DEV	S+2
DIR	P+4, O+2
LOOP	P
O	P+4
P	DEV+3
Q	DOIT+2, S+1, S+3, DEV, DEV+2, DEV+3, P+1, P+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
AL	Q!
CT	Q!, O+8, O+9
D0	DOIT*, Q!
DA	DOIT*, P, Q!
DFN	DOIT*, Q!, LOOP
DIC	Q!
DIR	DOIT+2!, S+1!, S+2!, S+3!, Q!, DIR!
DIR("?"	DOIT+2, S+1, S+2, DIR
DIR("A"	DOIT+2, S, S+2, DIR
DIR("B"	DOIT+2, S, S+2*
DIR(0	DOIT+2, S, S+2, DIR
DIRUT	DOIT+2, S+1, Q!
DRUG	P+4*, Q!
DRX	Q!, O, O+1, O+3
DT	S+3
DTIME	P+1
DTOUT	S+3, P+4, O+2, DIR!
DUOUT	DOIT+2, S+1, S+3, P+4, Q!, O+2, DIR!
FN	DOIT*, Q!
G	DEV+1*, Q!
I	Q!, LOOP*
I1	Q!
II	P+4*, Q!
IO("Q"	DEV+1, DEV+2!
IOF	P+1, P+4, O+2, O+3
ION	DEV
IOP	DEV!*
IOSL	P+1, P+4, O+2, O+3
IOST	P+1, P+4, O+2, O+3
J	P+4, Q!, O, O+8, O+9, O+10, LOOP, DATE, DRUG, CLSS
K	Q!, O+8, O+9, O+10
LMI	Q!
>> MCRH	MCPSOP+3
PHYS	Q!, O+5*, O+6
PI	Q!
PLS	DOIT+2*, P+3, Q!
>> POP	DEV
>> PSDIV	O+12*, O+13
PSODTCT	S+3*, Q!, DRUG, CLSS
PSOION	DEV*!, DEV+1!
>> PSOPAR	S
PSRT	S+1*, S+2, Q!, LOOP
Q	DEV+2!
REF	Q!, O+8, O+9, O+13
RX	Q!
RX0	Q!, O*, O+1, O+3, O+4, O+5, O+6, O+8
RX2	Q!, O*, O+4, O+6, O+7, O+12
RX3	Q!, O*, O+7, O+11
RXD	Q!
RXF	Q!
ST	Q!, O+13
ST0	Q!
X	S+3, P+1, Q!, DATE
>> X1	S+3*
>> X2	S+3*
Y	DOIT, DOIT+1, DOIT+2, S+1, Q!, O+4, O+6, O+7*
>> ZTDESC	DEV+1*
>> ZTQUEUED	Q
>> ZTREQ	Q*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+1*
ZTSK	DEV!, DEV+2!
ZX	Q!

Customize PDF page

Package: Medicine

Routine: MCPSOP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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