Routine: PSODRDU2

Package	Total	Call Graph
Outpatient Pharmacy	4	STAT^PSOFUNC EN^PSOHLUP FSIG^PSOUTLA EN2^PSOUTLA1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	1	PSJLMUT1

Entry Points

Name	Comments	DBIA/ICR reference
PEN
INST	;displays instruction and/or comments
EN(DFN,RXNUM)	;dfn=patient's ifn, rxnum=internal order # for rx, pending or non-va med	ICR #2189 Status: Active Usage: Private
NVA	;displays non-va meds

External References

Name	Field # of Occurrence
^DIR	NVA+11
STAT^PSOFUNC	EN+9
EN^PSOHLUP	EN+1
FSIG^PSOUTLA	EN+10, PEN+6
EN2^PSOUTLA1	EN+11
$$FMTE^XLFDT	NVA+5, NVA+8, NVA+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSONULN Line Location: EN+6
Function Call: WRITE	Prompt: !,$J("Rx #: ",24)_$P(RX0,"^"),?39,DNM Line Location: EN+8
Function Call: WRITE	Prompt: !,$J("Status: ",24) Line Location: EN+9
Function Call: WRITE	Prompt: ST Line Location: EN+9
Function Call: WRITE	Prompt: ST Line Location: EN+9
Function Call: WRITE	Prompt: !,$J("SIG: ",24) Line Location: EN+12
Function Call: WRITE	Prompt: $G(BSIG(1)) Line Location: EN+12
Function Call: WRITE	Prompt: !?24,$G(BSIG(PSREV)) Line Location: EN+13
Function Call: WRITE	Prompt: !,$J("QTY: ",24)_$P(DUPRX0,"^",7),?40,$J("# of refills: ",24)_RFLS Line Location: EN+15
Function Call: WRITE	Prompt: !,$J("Provider: ",24)_PHYS,?40,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0) Line Location: EN+16
Function Call: WRITE	Prompt: !?40,$J("Last filled on: ",24)_$E(LSTFL,4,5)_"/"_$E(LSTFL,6,7)_"/"_$E(LSTFL,2,3),!?40,$J("Days Supply: ",24)_$P(DUPRX0,"^",8) Line Location: EN+17
Function Call: WRITE	Prompt: !,PSONULN,! Line Location: EN+18
Function Call: WRITE	Prompt: !,PSONULN,! Line Location: PEN+1
Function Call: WRITE	Prompt: !,"Pending Order: "_$P(DUPRX0,"^"),!,"Orderable Item: "_$P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: PEN+3
Function Call: WRITE	Prompt: !,"Drug: "_$S($P(DUPRX0,"^",9):$P(^PSDRUG($P(DUPRX0,"^",9),0),"^"),1:"No Dispense Drug Selected") Line Location: PEN+4
Function Call: WRITE	Prompt: !,"Provider Comments: " Line Location: PEN+5
Function Call: WRITE	Prompt: FSIG(I),!?5 Line Location: PEN+7
Function Call: WRITE	Prompt: !,"Routing: "_$S($P(DUPRX0,"^",17)="W":"WINDOW",1:"MAIL"),?30,"Quantity: "_$P(DUPRX0,"^",10),!,"# of Refills: "_$P(DUPRX0,"^",11) Line Location: PEN+8
Function Call: WRITE	Prompt: ?30,"Patient Status: SC",!,"Patient Location: "_$S($P(DUPRX0,"^",13):$P($G(^SC($P(DUPRX0,"^",13),0)),"^"),1:""),!,"Med Route: "_$P($G(^PS(51.2,+$P(DUPRX0,"^",15),0)),"^"),?30,"Provider: "_$P(^VA(200,$P(DUPRX0,"^",5),0),"^") Line Location: PEN+9
Function Call: WRITE	Prompt: !,"Issue Date: "_Y Line Location: PEN+10
Function Call: WRITE	Prompt: !,"Instructions: " Line Location: PEN+11
Function Call: WRITE	Prompt: !,PSONULN,! Line Location: PEN+12
Function Call: WRITE	Prompt: @$S(TY=3:"!?14",1:"!?19") Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM Line Location: INST+2
Function Call: WRITE	Prompt: $P(MIG," ",SG)_" " Line Location: INST+2
Function Call: WRITE	Prompt: !,PSONULN Line Location: NVA+2
Function Call: WRITE	Prompt: !,"Non-VA Med: "_$P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: NVA+3
Function Call: WRITE	Prompt: !,"Drug: "_$S($P(DUPRX0,"^",2):$P(^PSDRUG($P(DUPRX0,"^",2),0),"^"),1:"No Dispense Drug Selected") Line Location: NVA+4
Function Call: WRITE	Prompt: !,"Status: "_$S($P(DUPRX0,"^",7):"Discontinued ("_$$FMTE^XLFDT($P($P(DUPRX0,"^",7),"."))_")",1:"Active") Line Location: NVA+5
Function Call: WRITE	Prompt: !,"Dosage: "_$P(DUPRX0,"^",3) Line Location: NVA+6
Function Call: WRITE	Prompt: !,"Schedule: "_$P(DUPRX0,"^",5),!,"Route: "_$P(DUPRX0,"^",4) Line Location: NVA+7
Function Call: WRITE	Prompt: !,"Start Date: "_$$FMTE^XLFDT($P(DUPRX0,"^",9)),?40,"CPRS Oder #: "_$P(DUPRX0,"^",8) Line Location: NVA+8
Function Call: WRITE	Prompt: !,"Documented By: "_$P(^VA(200,$P(DUPRX0,"^",11),0),"^")_" on "_$$FMTE^XLFDT($P(DUPRX0,"^",10)) Line Location: NVA+9
Function Call: WRITE	Prompt: !?5,OCK(II) Line Location: NVA+16
Function Call: WRITE	Prompt: OCK(II) Line Location: NVA+22
Function Call: WRITE	Prompt: !?5 Line Location: NVA+22
Function Call: WRITE	Prompt: !?5,OCK(II) Line Location: NVA+26
Function Call: WRITE	Prompt: !,PSONULN,! Line Location: NVA+27
Routine Call	DIR Line Location: NVA+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PEN+10
^PS(50.606 - [#50.606]	PEN+3, NVA+3
^PS(50.7 - [#50.7]	PEN+3, NVA+3
^PS(51.2 - [#51.2]	PEN+9
^PS(52.41 - [#52.41]	PEN, PEN+2, INST+1
^PS(55 - [#55]	EN+1, NVA+1, NVA+2, NVA+11, NVA+12, NVA+19, NVA+23
^PSDRUG - [#50]	EN+5, PEN+4, NVA+4
^PSRX - [#52]	EN+4, EN+5, EN+7, EN+10, EN+11, EN+16, EN+17
^SC - [#44]	PEN+9
^VA(200 - [#200]	EN+15, PEN+9, NVA+9, NVA+18

Label References

Name	Line Occurrences
INST	PEN+5, PEN+11
NVA	EN+3
PEN	EN+3

Naked Globals

Name	Field # of Occurrence
^("STA"	EN+5
^(0	EN+15, EN+16, PEN+3, NVA+3, NVA+12
^(2	EN+5
^(3	EN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BSIG	EN+10!, EN+14!
BSIG(	EN+10*, EN+13
BSIG(1	EN+12, EN+13
DFN	EN~, EN+1, NVA+1, NVA+2, NVA+11, NVA+12, NVA+19, NVA+23
DIR	NVA+11!
DIR("A"	NVA+11*
DIR(0	NVA+11*
DNM	EN+5*, EN+8, EN+19!, PEN+13!
DSC	NVA+26!
DSC(	NVA+23*, NVA+24, NVA+25
DUPRX0	EN+7, EN+15, EN+17, EN+19!, PEN+2, PEN+3, PEN+4, PEN+8, PEN+9, PEN+10 , PEN+13!, NVA+2*, NVA+3, NVA+4, NVA+5, NVA+6, NVA+7, NVA+8, NVA+9
FL	EN+3*, EN+19!, PEN+13!
FSIG	EN+10!, EN+11!, EN+19!, PEN+13!
FSIG(	EN+10, PEN+7
I	EN+19!, PEN+7, PEN+13!, NVA+11, NVA+12, NVA+13, NVA+19
IEN	NVA+14, NVA+15, NVA+17!, NVA+20, NVA+21, NVA+22!, NVA+24, NVA+25, NVA+26!
IFN	EN+3!*, EN+4, EN+5, EN+6, EN+19!, PEN, PEN+1, PEN+13!, INST+1, NVA+1 , NVA+2, NVA+11, NVA+12, NVA+19, NVA+23
II	NVA+16, NVA+17!, NVA+20, NVA+21, NVA+22, NVA+24, NVA+25, NVA+26*
INST	EN+3!, INST+1*, INST+3!
IOM	PEN+6, INST+2, NVA+10
ISSD	EN+7, EN+9, EN+19!, PEN+2, PEN+13!
J	EN+9*, EN+19!, PEN+13!
LEN	NVA+14!*, NVA+17!
LSTFD	EN+5*, EN+19!, PEN+13!
LSTFL	EN+17*, EN+19!, PEN+13!
MIG	INST+1*, INST+2, INST+3!
OCK	NVA+14!, NVA+17!, NVA+19!, NVA+23!
OCK(	NVA+15, NVA+16, NVA+21, NVA+22, NVA+25*, NVA+26
ORD	NVA+12*, NVA+14, NVA+15, NVA+17!
ORP	NVA+12*, NVA+18, NVA+19!
PHYS	EN+15*, EN+16, EN+19!, PEN+13!
PSONULN	EN+2*, EN+6, EN+18, EN+19!, PEN+1, PEN+12, PEN+13!, NVA+2, NVA+27
PSREV	EN+10, EN+11!, EN+13, EN+14!
REA	NVA+19!, NVA+22!
REA(	NVA+19*, NVA+20, NVA+21
RFLS	EN+7, EN+15, EN+16, EN+19!, PEN+2, PEN+13!
RMLEN	NVA+10*, NVA+14, NVA+15, NVA+21, NVA+25, NVA+28!
RX0	EN+5, EN+7, EN+8, EN+9!
RX2	EN+5, EN+7, EN+9!
RX3	EN+5*, EN+19!, PEN+13!
RXNUM	EN~, EN+1, EN+3
RXREC	EN+6, EN+7, EN+9, EN+10, EN+11, EN+16, EN+17, EN+19!, PEN+1, PEN+2 , PEN+6, PEN+13!
SD	EN+3!
SG	INST+2, INST+3!, NVA+15, NVA+17!, NVA+21, NVA+22!, NVA+25, NVA+26!
>> SS	NVA+19, NVA+23
ST	EN+9, EN+19!, PEN+13!
STA	EN+5*, EN+19!, PEN+13!
TRM	EN+5*, EN+19!, PEN+13!
TY	PEN+5, PEN+11, INST+1, INST+2, INST+3!
X	EN+19!, PEN+13!
Y	EN+19!, PEN+10*, PEN+13!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODRDU2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: