Routine: PSOP1

Package	Total	Call Graph
Outpatient Pharmacy	7	$$ECME^PSOBPSUT STAT^PSOFUNC SIGONE^PSOHELP (NVA,PEND)^PSOP2 $$TITRX^PSOUTL 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
Q
W
HD
SORT
DATE	;asks date range
EDT
DRUG	;asks drug list
TO
CLSS	;asks drug class list
TO1
DIR
SIG

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+10
STAT^PSOFUNC	W+4
SIGONE^PSOHELP	SIG+1
NVA^PSOP2	PSOP1+7
PEND^PSOP2	PSOP1+7
$$TITRX^PSOUTL	W+10
FSIG^PSOUTLA	W+15
EN2^PSOUTLA1	W+16

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),$$TITRX^PSOUTL(J),?14,$S($D(^PSDRUG(+$P(RX0,"^",6),0)):$E($P(^(0),"^"),1,39),1:"NOT ON FILE"),?54,$S($L(ST)=1:" "_ST,1:ST) Line Location: W+10
Function Call: WRITE	Prompt: ?58,$S($L(RXF)=1:" "_RXF,1:RXF) Line Location: W+12
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+13
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+13
Function Call: WRITE	Prompt: !?5,"QTY: ",$P(RX0,"^",7),?24,"SIG: ",$G(FSIG(1)) Line Location: W+18
Function Call: WRITE	Prompt: @IOF Line Location: W+19
Function Call: WRITE	Prompt: !?57,"REF",!?1,"Rx#",?14,"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+10
^PSRX - [#52]	PSOP1+6, W+5, W+6, W+7, W+11, W+14, W+20, 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+19
DRUG	DRUG+4
EDT	EDT+1
HD	PSOP1+5, W, W+2, W+3, W+19
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+10, W+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DRUG+5, TO+3, TO+4!, CLSS+3, TO1+3
%DT	DATE+1!*, EDT+2!
%DT("A"	DATE+1, EDT
%DT(0	DATE+2*
AL	Q!
BSIG	W+14!, W+17!
BSIG(	W+16
>> CLS	TO1+4*
>> CP	PSOP1+6*, W+10
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+14!, W+21!
FSIG(	W+16*, W+19
FSIG(1	W+18
G	Q!
GGGG	W+16, W+17!, W+19, W+21!
>> HDR	HD+2
I	PSOP1+5, Q+1!, SIG+5
I1	Q!
II	Q!, W+11*
INS1	Q+1!, SIG+1
IO	W+2
IO(0	W+2
IOF	W, W+2, W+3, W+19
IOM	SIG+2, SIG+4, SIG+6
IOSL	W, W+2, W+3, W+19
IOST	W, W+3, W+19, SIG+2, SIG+4, SIG+6
J	PSOP1+6*, Q+1!, W+5, W+6, W+7, W+10, W+11, W+14, W+15, W+16 , W+20, SIG, SIG+1, SIG+3
K	Q!
LMI	Q+1!
M	DRUG+5, TO+3, TO+4!, CLSS+3, TO1+3
MIG	Q+1!, 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+19, W+21, DIR!*
>> PSFR	DRUG+6, CLSS+4
PSOBADR	W+1~, W+6, W+7, W+8*, W+9
PSODTCT	Q!
PSOPEND	Q+1!
>> PSOPLINE	HD+3
PSOPRSIG	W+14*, W+15, W+17!
PSRT	Q!, SORT+2
>> PSTO	TO+4, TO1+4
REF	Q!
RST	W+23!
RST(	PSOP1+6, W+11, W+13
RX	PSOP1+4!, Q+1!
RX0	PSOP1+6*, Q+1!, W+10, W+11, W+13, W+18
RX2	PSOP1+6*, Q+1!
RXD	Q!, W+11*, W+13
RXF	Q!, W+11*, W+12
>> RXN	SIG+5
>> SDT	DATE+2*
SG	Q+1!, SIG+2, SIG+4, SIG+6*
SIG	Q+1!, SIG+1*, SIG+2
SIGOK	Q+1!, SIG+3*
ST	Q!, Q+1!, W+4, W+5, W+9*, W+10
>> 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: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: