Routine: PSOP1

Package	Total	Call Graph
Outpatient Pharmacy	6	$$ECME^PSOBPSUT STAT^PSOFUNC SIGONE^PSOHELP (NVA,PEND)^PSOP2 FSIG^PSOUTLA EN2^PSOUTLA1
VA Fileman	3	^%DT ^DIC ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOP PSOP2
Medicine	1	MCPSOP

Entry Points

Name	Comments	DBIA/ICR reference
SORT
CLSS	;asks drug class list
W
TO1
DRUG	;asks drug list
Q
TO
SIG
DIR
EDT
DATE	;asks date range
HD

External References

Name	Field # of Occurrence
^%DT	DATE+1, EDT
^%ZISC	Q
^DIC	DRUG+3, TO, CLSS+1, TO1
^DIR	SORT+1, DIR
$$ECME^PSOBPSUT	W+9
STAT^PSOFUNC	W+4
SIGONE^PSOHELP	SIG+1
NVA^PSOP2	PSOP1+7
PEND^PSOP2	PSOP1+7
FSIG^PSOUTLA	W+14
EN2^PSOUTLA1	W+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: I Line Location: W+0
Function Call: WRITE	Prompt: @IOF Line Location: W+0
Function Call: WRITE	Prompt: @IOF Line Location: W+2
Function Call: WRITE	Prompt: @IOF Line Location: W+3
Function Call: WRITE	Prompt: !,CP_$P(RX0,"^"),$$ECME^PSOBPSUT(J),?13,$S($D(^PSDRUG(+$P(RX0,"^",6),0)):$P(^(0),"^"),1:"NOT ON FILE"),?54,$S($L(ST)=1:" "_ST,1:ST) Line Location: W+9
Function Call: WRITE	Prompt: ?58,$S($L(RXF)=1:" "_RXF,1:RXF) Line Location: W+11
Function Call: WRITE	Prompt: ?61,$E($P(RX0,"^",13),4,5)_"-"_$E($P(RX0,"^",13),6,7)_"-"_$E($P(RX0,"^",13),2,3) Line Location: W+12
Function Call: WRITE	Prompt: ?70,$E(RXD,4,5)_"-"_$E(RXD,6,7)_"-"_$E(RXD,2,3)_$S($G(RST(RXD)):"R",1:"") Condition for execution: RXD Line Location: W+12
Function Call: WRITE	Prompt: !?5,"QTY: ",$P(RX0,"^",7),?24,"SIG: ",$G(FSIG(1)) Line Location: W+17
Function Call: WRITE	Prompt: @IOF Line Location: W+18
Function Call: WRITE	Prompt: !?57,"REF",!?1,"Rx#",?13,"Drug",?54,"ST",?57,"REM",?62,"Issued",?70,"Last Fill",!,PSOPLINE Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: !,$C(7),"Less Than 'Start' Value" Line Location: TO+1
Function Call: WRITE	Prompt: ! Line Location: CLSS+1
Function Call: WRITE	Prompt: !,$C(7),"Less Than 'Start' Value" Line Location: TO1+1
Function Call: WRITE	Prompt: !?6 Condition for execution: ($X+$L($P(MIG," ",SG)_" "))>$S(IOST["C-":IOM,1:70) Line Location: SIG+4
Function Call: WRITE	Prompt: $P(MIG," ",SG)_" " Line Location: SIG+4
Function Call: WRITE	Prompt: !?6 Condition for execution: ($X+$L($P(MIG," ",SG)_" "))>$S(IOST["C-":IOM,1:70) Line Location: SIG+6
Function Call: WRITE	Prompt: $P(MIG," ",SG)_" " Line Location: SIG+6
Routine Call	DIC Line Location: DRUG+3 TO CLSS+1 TO1
Routine Call	DIR Line Location: SORT+1 DIR

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HD+1
^PSDRUG - [#50]	W+9
^PSRX - [#52]	PSOP1+6, W+5, W+6, W+10, W+13, SIG, SIG+1, SIG+3, SIG+5
^TMP($J	PSOP1+5, PSOP1+6, Q!

Label References

Name	Line Occurrences
@(	SORT+2
CLSS	CLSS+2
DATE	DATE+2
DIR	W, W+18
DRUG	DRUG+4
EDT	EDT+1
HD	PSOP1+5, W, W+2, W+3, W+18
Q	PSOP1+5
TO	TO+1
TO1	TO1+1
W	PSOP1+6

Naked Globals

Name	Field # of Occurrence
^(	PSOP1+6
^("STA"	PSOP1+6
^(0	W+9, W+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DRUG+5, TO+3, CLSS+3, TO1+3
%DT	DATE+1!*, EDT+2!
%DT("A"	DATE+1, EDT
%DT(0	DATE+2*
AL	Q!
BSIG	W+13!, W+16!
BSIG(	W+15
>> CLS	TO1+4*
>> CP	PSOP1+6*, W+9
CT	Q!
D0	Q!
DA	Q+1!
DFN	Q!, HD+1
DIC	Q!, DRUG+1, DRUG+3!, TO!, TO+4!, CLSS+1
DIC("A"	DRUG+1, TO, CLSS+1, TO1
DIC("S"	DRUG+2*
DIC(0	DRUG+1, CLSS+1
DIR	Q!, SORT!, SORT+2!, DIR!
DIR("?"	SORT+1*
DIR("A"	SORT+1*
DIR("B"	SORT+1*
DIR(0	SORT+1, DIR
DIROUT	PSOP1+4!, PSOP1+5
DIRUT	PSOP1+4!, Q!, SORT+2, DIR!
>> DRS	TO+2*
DRUG	PSOP1+5*, PSOP1+6, Q!
DRX	Q+1!
DTOUT	PSOP1+4!, PSOP1+5, SORT!, DIR!
>> DTS	EDT+1*
DUOUT	PSOP1+4!, PSOP1+5, Q!, SORT!, DATE+1, EDT, DRUG+3, TO, CLSS+1, TO1 , DIR!
>> EDT	EDT+1*
EEEE	Q+1!
FN	Q+1!
>> FR	HD+2, DATE+2, DRUG+4, DRUG+5, TO+1, CLSS+2*, CLSS+3, TO1+1
FSIG	Q+1!, W+13!, W+19!
FSIG(	W+15*, W+18
FSIG(1	W+17
G	Q!
GGGG	W+15, W+16!, W+18, W+19!
>> HDR	HD+2
I	PSOP1+5, Q+1!, SIG+5
I1	Q!
II	Q!, W+10*
>> INS1	SIG+1
IO	W+2
IO(0	W+2
IOF	W, W+2, W+3, W+18
IOM	SIG+2, SIG+4, SIG+6
IOSL	W, W+2, W+3, W+18
IOST	W, W+3, W+18, SIG+2, SIG+4, SIG+6
J	PSOP1+6*, Q+1!, W+5, W+6, W+9, W+10, W+13, W+14, W+15, SIG , SIG+1, SIG+3
K	Q!
LMI	Q+1!
>> M	DRUG+5, TO+3, CLSS+3, TO1+3
>> MIG	SIG+3, SIG+4, SIG+5, SIG+6
>> PAGE	HD, HD+1, HD+3*
PCOUNT	Q+1!
PENDREX	Q+1!
PHYS	Q!
PI	Q+1!
PLS	Q!
PP	Q+1!
PPDIS	Q+1!
PPOI	Q+1!
PPP	Q+1!
PPPCNT	Q+1!
PPPSTAT	Q+1!
PQT	PSOP1+5, PSOP1+6, PSOP1+7, Q!, W, W+18, W+19, DIR!*
>> PSFR	DRUG+6, CLSS+4
PSOBADR	W+1~, W+5, W+6, W+7*, W+8
PSODTCT	Q!
PSOPEND	Q+1!
>> PSOPLINE	HD+3
PSOPRSIG	W+13*, W+14, W+16!
PSRT	Q!, SORT+2
>> PSTO	TO+4, TO1+4
REF	Q!
RST	W+21!
RST(	PSOP1+6, W+10, W+12
RX	PSOP1+4!, Q+1!
RX0	PSOP1+6*, Q+1!, W+9, W+10, W+12, W+17
RX2	PSOP1+6*, Q+1!
RXD	Q!, W+10*, W+12
RXF	Q!, W+10*, W+11
>> RXN	SIG+5
>> SDT	DATE+2*
>> SG	SIG+2, SIG+4, SIG+6*
>> SIG	SIG+1*, SIG+2
>> SIGOK	SIG+3*
ST	Q!, Q+1!, W+4, W+8, W+9
>> ST0	W+4
STA	W+4*!
>> TO	HD+2, EDT+1, TO+2, TO+3, TO1+2*, TO1+3
X	Q!, DATE+1, EDT, DRUG+3, DRUG+6!, TO, TO+1!, TO+4!, CLSS+1, CLSS+4! , TO1, TO1+1!, TO1+4!, SIG+1*
Y	Q+1!, SORT+2, DATE+2, EDT+1, DRUG+4, DRUG+6!, TO+1!, TO+2, TO+4!, CLSS+2 , CLSS+4!, TO1+1!, TO1+2, TO1+4!
Y1	DRUG+5, DRUG+6!, TO+3, TO+4!, CLSS+3, CLSS+4!, TO1+3, TO1+4!
>> ZTQUEUED	Q+2
>> ZTREQ	Q+2*
ZX	Q!
ZZZZ	Q+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOP1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: