Routine: PSOP

Call Graph Total: 15

Package	Total	Call Graph
Outpatient Pharmacy	9	$$ECME^PSOBPSUT ^PSODEM STAT^PSOFUNC EN^PSOHLUP (,DIR,SORT)^PSOP1 (NVA,PEND)^PSOP2 EN^PSOPATLK FSIG^PSOUTLA EN2^PSOUTLA1
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	C^%DTC ^DIC ^DIR

Package

Total

Call Graph

$$ECME^PSOBPSUT ^PSODEM STAT^PSOFUNC EN^PSOHLUP (,DIR,SORT)^PSOP1 (NVA,PEND)^PSOP2 EN^PSOPATLK FSIG^PSOUTLA
EN2^PSOUTLA1

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

C^%DTC ^DIC ^DIR

Package	Total	Caller Graph
IHS Changes To Scheduling	2	ASDFORM BSDFORM
Outpatient Pharmacy	1	PSO P

Package

Total

Caller Graph

IHS Changes To Scheduling

ASDFORM BSDFORM

Outpatient Pharmacy

PSO P

External References

Name	Field # of Occurrence
C^%DTC	S+4
^%ZIS	DEV+1
^%ZISC	Q
^%ZTLOAD	DEV+4
^DIC	O+21, O+24
^DIR	DOIT+2, S+1, S+4
$$ECME^PSOBPSUT	O+8
^PSODEM	DOIT, DOIT+1, P
STAT^PSOFUNC	O+40
EN^PSOHLUP	PSOP+5
^PSOP1	P+4
DIR^PSOP1	P+1, P+5, O+3, O+14, O+29, O+37
SORT^PSOP1	DEV
NVA^PSOP2	P+6
PEND^PSOP2	P+6
EN^PSOPATLK	PSOP+5
FSIG^PSOUTLA	O+10
EN2^PSOUTLA1	O+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,$C(7),"NO PHARMACY INFORMATION" Line Location: DOIT+0
Function Call: WRITE	Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",! Line Location: DOIT+1
Function Call: WRITE	Prompt: @IOF Line Location: P+1
Function Call: WRITE	Prompt: !!?(80-$L("Medication Profile Sorted by "_HDR))/2,"Medication Profile Sorted by "_HDR Line Location: P+3
Function Call: WRITE	Prompt: !?(80-$L(FR_" to "_TO))/2,FR_" to "_TO Condition for execution: $G(FR)]"" Line Location: P+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $G(PQT) Line Location: P+5
Function Call: WRITE	Prompt: @IOF Line Location: P+5
Function Call: WRITE	Prompt: @IOF Line Location: O+3
Function Call: WRITE	Prompt: !!,"Rx #: "_CP_$P(RX0,"^"),$$ECME^PSOBPSUT(J),?32,"Drug: ",$G(DRX) Line Location: O+8
Function Call: WRITE	Prompt: !?2,"SIG: "_$G(FSIG(1)) Line Location: O+13
Function Call: WRITE	Prompt: !?7,$G(FSIG(IIII)) Line Location: O+14
Function Call: WRITE	Prompt: !?2,"QTY: ",$P(RX0,"^",7),?23,"# of Refills: ",$P(RX0,"^",9),?45,"Issue/Expr: " Line Location: O+20
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),"/" Line Location: O+20
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3) Condition for execution: Y Line Location: O+20
Function Call: WRITE	Prompt: !?2,"Prov: "_PHYS,?30,"Entry By: "_$P(RX0,"^",16),?45,"Filled: " Line Location: O+22
Function Call: WRITE	Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3) Condition for execution: Y Line Location: O+22
Function Call: WRITE	Prompt: " (",$P(RX0,"^",11),")" Line Location: O+22
Function Call: WRITE	Prompt: !?2,"Cosigner: "_PHYS Line Location: O+24
Function Call: WRITE	Prompt: !?2,"Last Released: " Line Location: O+26
Function Call: WRITE	Prompt: $E(PSOLR,4,5)_"-"_$E(PSOLR,6,7)_"-"_$E(PSOLR,2,3) Condition for execution: PSOLR Line Location: O+26
Function Call: WRITE	Prompt: ?45,$S($P(RX2,"^",15):"Original Fill Returned to Stock",1:"Original Release: "_$S($P(RX2,"^",13):$E($P(RX2,"^",13),4,5)_"-"_$E($P(RX2,"^",13),6,7)_"-"_$E($P(RX2,"^",13),2,3),1:"")) Line Location: O+27
Function Call: WRITE	Prompt: @IOF Line Location: O+29
Function Call: WRITE	Prompt: @IOF Line Location: O+37
Function Call: WRITE	Prompt: @IOF,!,$P(^DPT(DFN,0),"^"),?70,"Page: "_PAGE Line Location: O+38
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+39
Routine Call	DIC Line Location: O+21 O+24
Routine Call	DIR Line Location: DOIT+2 S+1 S+4
Routine Call	%ZIS Line Location: DEV+1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	O+5, O+16, O+31, O+38
^PS(52.41 - [#52.41]	DOIT
^PS(55 - [#55]	PSOP+5, DOIT, DOIT+1, P, LOOP, LOOP+1!*
^PS(59 - [#59]	O+41
^PS(59.7 - [#59.7]	P+2
^PSDRUG - [#50]	O+2
^PSRX - [#52]	O, O+9, O+25, O+28, O+39, LOOP, LOOP+1
^TMP($J	PSOP+5!, P!, P+5, Q!

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

Name	Field # of Occurrence
^(	O+39, LOOP
^("ARC"	DOIT
^("NVA"	DOIT
^("STA"	O
^(0	O+2, O+25, O+39, O+41, LOOP+1
^(2	O
^(3	O

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*
AL	Q!
BSIG	O+9!, O+12!
BSIG(	O+11
CLS	PSOP+5!, Q+1!
CP	Q!, O*, O+8
CT	Q!, O+28*
D0	DOIT*, Q!
DA	DOIT*, P, Q!
DFN	PSOP+5, DOIT, Q!, O+5, O+16, O+31, O+38, LOOP, LOOP+1
DIC	Q!, O+21!, O+24!
DIC(0	PSOP+5, O+21, O+24*
DIR	DOIT+2!, S+2!, S+3!, S+4!, Q!
DIR("?"	DOIT+2, S+1, S+3*
DIR("A"	DOIT+2, S, S+3*
DIR("B"	DOIT+2, S, S+3*
DIR(0	DOIT+2, S, S+3*
DIRUT	DOIT+2, S+1, Q!
DRG	Q+1!
DRS	Q+1!
DRUG	P+5*, Q!
DRX	Q!, O, O+2, O+8
DT	S+4
DTOUT	S+4, DEV, Q+1!
DTS	Q+1!
DUOUT	DOIT+2, S+1, S+4, DEV, Q!
EDT	Q+1!
EEEE	Q+1!
FN	DOIT*, Q!
FR	P+3, Q+1!, O+6, O+17, O+32
FSIG	Q+1!, O+9!
FSIG(	O+11*, O+14
FSIG(1	O+13
G	DEV+3*, Q!
HDR	S+2*, P+3, Q!, O+6, O+17, O+32
I	Q!, LOOP*, LOOP+1
I1	Q!
II	P+5*, Q!
IIII	Q+1!, O+11, O+12!, O+14
IO	P
IO("Q"	DEV+2, DEV+4!
IOF	P+1, P+5, O+3, O+5, O+16, O+29, O+31, O+37, O+38
ION	DEV+1
IOP	DEV+1!*
IOSL	P+1, P+5, O+3, O+4, O+14, O+29, O+30, O+37, O+38
IOST	P+1, P+5, O+4, O+14, O+30, O+38
J	P+5, Q!, O, O+8, O+9, O+10, O+11, O+25, O+28, O+39 , LOOP, LOOP+1
K	Q!, O+28, O+39
LMI	Q!
PAGE	P, Q!, O+4, O+5, O+15, O+16, O+30, O+31, O+38*
PCOUNT	Q+1!
PENDREX	Q+1!
PHYS	Q!, O+21, O+22, O+24!
PI	Q!
PLS	DOIT+2*, P+4, Q!
>> POP	DEV+1
PP	Q+1!
PPCOUNT	Q+1!
PPDIS	Q+1!
PPOI	Q+1!
PPP	Q+1!
PPPCNT	Q+1!
PQT	P+1, P+5, Q+1!, O+3, O+14, O+19, O+29, O+37
PRLBL	Q!, LOOP*
PSDIV	Q+1!, O+41*, O+42
PSFR	Q+1!
PSOBRSIG	O+9*, O+10, O+12!
PSODTCT	S+4*, Q!
PSOION	DEV+1*!, DEV+2!
PSOLOUD	PSOP+5*!
PSOLR	Q+1!, O+25*, O+26
>> PSOPAR	S
PSOPATOK	Q!, LOOP, LOOP+1*
PSOPEND	Q+1!
PSOPLINE	P*, Q!, O+7, O+18, O+33
PSOPTLK	PSOP+5, Q!
>> PSOX	O+25*
PSRT	S+1*, S+3, Q!, LOOP
PSTO	Q+1!
Q	DEV+4!
REF	Q!, O+28, O+36, O+42
RX	Q!
RX0	Q!, O*, O+2, O+8, O+20, O+21, O+22, O+28
>> RX1	O+28*, O+34, O+35
RX2	Q!, O*, O+20, O+22, O+25, O+27, O+41
RX3	Q!, O*, O+23, O+24, O+40
RXD	Q!
RXF	Q!
SDT	Q+1!
ST	Q!, O+42
ST0	Q!
STAT	Q+1!
TO	P+3, Q+1!, O+6, O+17, O+32
X	S+4, Q!, O+21!, O+24!
X1	S+4*, Q!
X2	S+4*, Q!
Y	PSOP+5, DOIT, DOIT+1, DOIT+2, S+1, S+2, Q!, O+20, O+21!, O+22* , O+24!
>> ZTDESC	DEV+2*
>> ZTQUEUED	Q+1
>> ZTREQ	Q+1*
>> ZTRTN	DEV+2*
>> ZTSAVE(	DEV+3*
ZTSK	PSOP+5!, DEV+1!, DEV+4!
ZX	Q!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOP

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: