Routine: PSOSD0

Package	Total	Call Graph
Outpatient Pharmacy	6	ENSAVE^PSODACT (,PRINT)^PSOLAB (HD1,PSRENW)^PSOSD2 COS^PSOSDP FSIG^PSOUTLA EN3^PSOUTLA1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOSD

Entry Points

External References

Name	Field # of Occurrence
^DIR	RXN1+3
ENSAVE^PSODACT	RXN+6
^PSOLAB	RXN1+21, EIGHTY+15
PRINT^PSOLAB	RXN1+31, EIGHTY+25
HD1^PSOSD2	RXN+1, RXN+3, RXN1+4, RXN1+5
PSRENW^PSOSD2	RXN1+25, EIGHTY+19
COS^PSOSDP	RXN1+10
FSIG^PSOUTLA	SIG
EN3^PSOUTLA1	SIG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RXN1+3
Function Call: WRITE	Prompt: ?45,"Qty: "_$P(RX0,"^",7)_" for "_$P(RX0,"^",8)_" Days ",?74,$P(RX0,"^"),?84," ",ACTS,?99,$E($P(RX2,"^",6),4,5)_"-"_$E($P(RX2,"^",6),6,7)_"-"_($E($P(RX2,"^",6),1,3)+1700) Line Location: RXN1+9
Function Call: WRITE	Prompt: ?110,$E(PHYS,1,30) Line Location: RXN1+10
Function Call: WRITE	Prompt: !," Message: "_$G(^PSDRUG(+$P(RX0,"^",6),"PSO")) Line Location: RXN1+11
Function Call: WRITE	Prompt: !?9,"Sig: ",$G(BSIG(1)) Line Location: RXN1+12
Function Call: WRITE	Prompt: !?14,$G(BSIG(PSREV)) Line Location: RXN1+13
Function Call: WRITE	Prompt: " ",$E($P(Y,"^"),4,5),"-",$E($P(Y,"^"),6,7),"-",($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2) Condition for execution: Y Line Location: RXN1+16
Function Call: WRITE	Prompt: " Past Fills:" Line Location: RXN1+18
Function Call: WRITE	Prompt: !?10,"Remaining Refills: "_($P(RX0,"^",9)-RFS),?45,"Clinic: ",$S($D(^SC(+$P(RX0,"^",5),0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN") Line Location: RXN1+19
Function Call: WRITE	Prompt: ?105,"Price: " Line Location: RXN1+20
Function Call: WRITE	Prompt: "$",$J(COST,3,2),! Line Location: RXN1+20
Function Call: WRITE	Prompt: "_" Line Location: RXN1+26
Function Call: WRITE	Prompt: "VA#:" Line Location: RXN1+26
Function Call: WRITE	Prompt: "VA#:" Line Location: RXN1+26
Function Call: WRITE	Prompt: "_" Line Location: RXN1+30
Function Call: WRITE	Prompt: "VA#:" Line Location: RXN1+30
Function Call: WRITE	Prompt: "VA#:" Line Location: RXN1+30
Function Call: WRITE	Prompt: "VA#:" Line Location: RXN1+30
Function Call: WRITE	Prompt: ! Line Location: RXN2+0
Function Call: WRITE	Prompt: " ",$E($P(Y,"^"),4,5)_"-"_$E($P(Y,"^"),6,7)_"-"_($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2) Line Location: DUP+4
Function Call: WRITE	Prompt: !?15 Line Location: BAR+1
Function Call: WRITE	Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13) Line Location: BAR+1
Function Call: WRITE	Prompt: !," Message: "_$G(^PSDRUG(+$P(RX0,"^",6),"PSO")) Line Location: EIGHTY+2
Function Call: WRITE	Prompt: !?1,"Qty: "_$P(RX0,"^",7)_" for "_$P(RX0,"^",8)_" Days "_ACTS," Exp: "_$E($P(RX2,"^",6),4,5)_"-"_$E($P(RX2,"^",6),6,7)_"-"_($E($P(RX2,"^",6),1,3)+1700) Line Location: EIGHTY+4
Function Call: WRITE	Prompt: ?48," Prov: "_$E(PHYS,1,30) Line Location: EIGHTY+5
Function Call: WRITE	Prompt: !,?43,"COSIGNER: "_$P($G(^VA(200,+$P(^PSRX(J,3),"^",3),0)),"^") Line Location: EIGHTY+5
Function Call: WRITE	Prompt: !?9,"Sig: ",$G(BSIG(1)) Line Location: EIGHTY+6
Function Call: WRITE	Prompt: !?14,$G(BSIG(PSREV)) Line Location: EIGHTY+7
Function Call: WRITE	Prompt: " ",$E($P(Y,"^"),4,5),"-",$E($P(Y,"^"),6,7),"-",($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2) Condition for execution: Y Line Location: EIGHTY+10
Function Call: WRITE	Prompt: " Past Fills:" Line Location: EIGHTY+12
Function Call: WRITE	Prompt: !?10,"Remaining Refills: "_($P(RX0,"^",9)-RFS),?45,"Clinic: ",$S($D(^SC(+$P(RX0,"^",5),0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN") Line Location: EIGHTY+13
Function Call: WRITE	Prompt: !?10,"Price: " Line Location: EIGHTY+14
Function Call: WRITE	Prompt: "$",$J(COST,3,2),! Line Location: EIGHTY+14
Function Call: WRITE	Prompt: "_" Line Location: EIGHTY+20
Function Call: WRITE	Prompt: "VA#:" Line Location: EIGHTY+20
Function Call: WRITE	Prompt: "VA#:" Line Location: EIGHTY+20
Function Call: WRITE	Prompt: "_" Line Location: EIGHTY+24
Function Call: WRITE	Prompt: "VA#:" Line Location: EIGHTY+24
Function Call: WRITE	Prompt: "VA#:" Line Location: EIGHTY+24
Function Call: WRITE	Prompt: "VA#:" Line Location: EIGHTY+24
Function Call: WRITE	Prompt: ! Line Location: RXN3+0
Routine Call	DIR Line Location: RXN1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.605 - [#50.605]	CLASS
^PS(53 - [#53]	RXN1+23, EIGHTY+17
^PSDRUG - [#50]	RXN1+7, RXN1+11, RXN1+20, RXN1+21, RXN1+23, RXN1+31, EIGHTY+1, EIGHTY+2, EIGHTY+14, EIGHTY+15 , EIGHTY+17, EIGHTY+25
^PSRX - [#52]	RXN+5, RXN+6, RXN1+1, RXN1+15, RXN1+25, SIG, SIG+1, DUP+2, DUP+3, EIGHTY+5 , EIGHTY+9, EIGHTY+19
^PSRX("B"	RXN1+24, EIGHTY+18
^SC - [#44]	RXN1+19, EIGHTY+13
^TMP($J	CLASS, DRUG, RXN+4, RXN+5, RXN1+17, DUP+1, DUP+2, DUP+5!, EIGHTY+11
^VA(200 - [#200]	RXN1+2, EIGHTY+5

Label References

Name	Line Occurrences
ACTS	RXN1+8, EIGHTY+3
BAR	RXN1+23, EIGHTY+17
DRUG	CLASS
DUP	RXN1+18, EIGHTY+12
EIGHTY	RXN1+6
RXN	DRUG
RXN1	RXN+6
RXN2	RXN1+21, RXN1+22, EIGHTY+15
RXN3	EIGHTY+16
SIG	RXN1+12, EIGHTY+6

Naked Globals

Name	Field # of Occurrence
^("CLOZ1"	RXN1+21, RXN1+31, EIGHTY+15, EIGHTY+25
^("STA"	RXN+6
^(0	CLASS, RXN1+1, RXN1+2, RXN1+7, RXN1+19, DUP+3, EIGHTY+1, EIGHTY+13
^(2	RXN+5, DUP+2
^(3	RXN+5, EIGHTY+5
^(660	RXN1+20, EIGHTY+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTS	RXN1+8~, RXN1+9, EIGHTY+3~, EIGHTY+4, ACTS+1*
BSIG	RXN1+14!, SIG!, EIGHTY+8!
BSIG(	RXN1+13, SIG*, EIGHTY+7
BSIG(1	RXN1+12, RXN1+13, EIGHTY+6, EIGHTY+7
>> CLASS	CLASS*, DRUG, RXN+4, RXN+5, RXN1+3, RXN1+4, RXN1+5, RXN1+17, DUP+1, DUP+2 , DUP+5, EIGHTY+11
COST	RXN1+20!, EIGHTY+14!
>> CS	RXN1+28, EIGHTY+22
>> DFN	RXN+1, RXN+3, RXN1+22, EIGHTY+16
DIR	RXN1+3!
DIR(0	RXN1+3*
>> DOD(	RXN+1, RXN+3, RXN1+22, EIGHTY+16
>> DRUG	DRUG*, RXN+4, RXN+5, RXN1+17, DUP+1, DUP+2, DUP+5, EIGHTY+11
>> DTOUT	CLASS, DRUG, RXN+4, RXN1+3, RXN1+4
>> DUOUT	CLASS, DRUG, RXN+4, RXN1+3, RXN1+4
>> DUPD	RXN1+17, EIGHTY+11
>> FDT	DRUG, RXN+4, RXN+5, RXN1+17, RXN1+18, DUP+1, DUP+2, DUP+5, EIGHTY+11, EIGHTY+12
FILL	RXN2!, DUP+3!, RXN3!
FILL(	RXN1+16, DUP+4, EIGHTY+10
FILL(9999999	RXN1, RXN1+1, DUP+3*
FILLS	RXN1*, RXN2!, RXN3!
FSIG	SIG!, SIG+1!
FSIG(	SIG
I	RXN1+26, RXN1+30, RXN2!, EIGHTY+20, EIGHTY+24, RXN3!
II	RXN1+1, RXN2!, DUP+3, RXN3!
IOM	DUP+4
IOSL	RXN1+4
IOST	RXN1+3, SIG, SIG+1
>> J	RXN+5, RXN1+1, RXN1+18, EIGHTY+5, EIGHTY+12*
LABEL	RXN2!, RXN3!
OLDFILL	RXN1+18!, EIGHTY+12!
OLDJ	RXN1+18!, EIGHTY+12!
OLDRX	RXN1+18!, EIGHTY+12!
OLDRX2	RXN1+18!, EIGHTY+12!
>> PCLASS	CLASS*, RXN1+5
PHYS	RXN1+2*, RXN1+10, RXN2!, EIGHTY+5, RXN3!
PRDT	RXN2!, RXN3!
PRICE	RXN1+20, RXN2!, EIGHTY+14, RXN3!
PSI	RXN2!, RXN3!
PSII	RXN2!, DUP+4*, RXN3!
PSIII	RXN1+16, RXN2!, EIGHTY+10, RXN3!
>> PSOBAR2	BAR+1
>> PSOBAR3	BAR+1
>> PSOBAR4	RXN1+23, BAR+1, EIGHTY+17
>> PSODEA	RXN1+23, RXN1+24, EIGHTY+17, EIGHTY+18
>> PSOIFSUP	RXN1+24, RXN1+26, EIGHTY+18, EIGHTY+20
>> PSOINST	BAR+1
>> PSOPAR	RXN+1, RXN+3
>> PSOPRINT	RXN1+26, EIGHTY+20
>> PSORM	RXN, RXN+2, RXN1+5, RXN1+6, SIG, SIG+1, DUP+4
>> PSRENW	RXN1+23, RXN1+26, EIGHTY+17, EIGHTY+20
PSREV	RXN1+13, RXN1+14!, SIG, SIG+1!, EIGHTY+7*, EIGHTY+8!
>> PSTYPE	RXN+1, RXN+3, RXN1+3, RXN1+4, RXN1+5, RXN1+21, RXN1+29, EIGHTY+15, EIGHTY+23
>> RF	RXN1+15, EIGHTY+9
>> RFL	RXN1, RXN1+1, RXN1+17, DUP+1, EIGHTY+11
>> RFS	RXN1+15, RXN1+19, EIGHTY+9, EIGHTY+13
RX0	RXN+5*, RXN1, RXN1+2, RXN1+7, RXN1+9, RXN1+11, RXN1+19, RXN1+20, RXN1+21, RXN1+23 , RXN1+24, RXN1+28, RXN1+29, RXN1+31, RXN2!, EIGHTY+1, EIGHTY+2, EIGHTY+4, EIGHTY+13, EIGHTY+14 , EIGHTY+15, EIGHTY+17, EIGHTY+18, EIGHTY+22, EIGHTY+23, EIGHTY+25, RXN3!, ACTS+1
RX2	RXN+5, RXN1, RXN1+9, RXN1+18, RXN2!, DUP+2, DUP+3, EIGHTY+4, EIGHTY+12, RXN3!
RX3	RXN+5*, RXN2!, RXN3!
>> RXCNT	CLASS, RXN+1, RXN+3, RXN1+12, EIGHTY+6*
>> RXN	RXN+4, RXN+5, RXN+6, RXN1+15, RXN1+18, SIG, SIG+1, BAR+1, EIGHTY+9, EIGHTY+12*
>> RXNO	RXN+5*
>> RXNODE	RXN+6*
RXX	RXN1+24, RXN1+25, RXN2!, EIGHTY+18, EIGHTY+19, RXN3!
RXX(1	RXN1+24, EIGHTY+18
SIG	RXN2!, RXN3!
T	RXN1+26, RXN1+30, RXN2!, EIGHTY+20, EIGHTY+24, RXN3!
X	RXN2!, BAR+1*, RXN3!
>> X1	BAR+1*
>> X2	BAR+1*
Y	RXN1+16, RXN2!, DUP+4, EIGHTY+10*, RXN3!
>> Z0	CLASS*
>> Z1	DRUG*
>> Z2	RXN+4*
>> Z3	DRUG*
>> Z4	DUP+1*
>> Z5	DUP+2*, DUP+3, DUP+5
Z9	RXN2!, RXN3!
>> ZCLASS	CLASS, RXN1+3, RXN1+4, RXN1+5

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSD0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BAR	;barcode
RXN
ACTS	;
EIGHTY	;prints profile in 80 column format
DRUG
SIG
DUP	;DUP DRUG
RXN1
RXN2
RXN3
CLASS