Routine: PSODRDU1

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
Outpatient Pharmacy	1	FSIG^PSOUTLA
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
VA Fileman	1	^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOCPDUP PSODGDGI PSODRDUP PSOVER1

Entry Points

External References

Name	Field # of Occurrence
^DIR	ASKCAN, ASKCAN+4, CLS+5, NVA+4, DSP+28
FSIG^PSOUTLA	DATA+5
PSOL^PSSLOCK	ASKCAN
PSOUL^PSSLOCK	ULPN+2
$$FMTE^XLFDT	DSP+8, DSP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSONULN,!,$C(7),"DUPLICATE DRUG "_$P(DNM,"^")_" in a Pending Order" Line Location: DUP+0
Function Call: WRITE	Prompt: !,"Orderable Item: "_$P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: DATA+2
Function Call: WRITE	Prompt: !,"Drug: "_$S($P(DUPRX0,"^",9):$P(^PSDRUG($P(DUPRX0,"^",9),0),"^"),1:"No Dispense Drug Selected") Line Location: DATA+3
Function Call: WRITE	Prompt: !,"Instructions: " Line Location: DATA+4
Function Call: WRITE	Prompt: FSIG(I),!?5 Line Location: DATA+6
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: DATA+7
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: DATA+8
Function Call: WRITE	Prompt: !,"Issue Date: "_Y Line Location: DATA+9
Function Call: WRITE	Prompt: !,"Provider Comments: " Line Location: DATA+10
Function Call: WRITE	Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!" Line Location: DATA+11
Function Call: WRITE	Prompt: !!,$P(PSOMSG,"^",2),! Line Location: ASKCAN+1
Function Call: WRITE	Prompt: $C(7)," -Pending Order was not discontinued..." Line Location: ASKCAN+5
Function Call: WRITE	Prompt: !!,"Duplicate "_$S($G(CLS):"Class",1:"Drug")_" will be discontinued after the acceptance of the new order.",! Line Location: ASKCAN+7
Function Call: WRITE	Prompt: !,PSONULN Line Location: CLS+2
Function Call: WRITE	Prompt: !,$C(7),"* SAME CLASS * of drug in a Pending Order for "_$P(DNM,"^"),!,"Class: "_$G(PSODRUG("VA CLASS")) Line Location: CLS+3
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,!,$C(7),"Duplicate Drug "_$S($G(PSODRUG("NAME"))=$P(DNM,"^"):$P(DNM,"^"),1:"Class "_$G(PSODRUG("VA CLASS")))_" in a Non-VA Med Order.",! Line Location: DSP+1
Function Call: WRITE	Prompt: !,"Orderable Item: "_$P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: DSP+3
Function Call: WRITE	Prompt: !,"Drug: "_$S($P(DUPRX0,"^",2):$P(^PSDRUG($P(DUPRX0,"^",2),0),"^"),1:"No Dispense Drug Selected") Line Location: DSP+4
Function Call: WRITE	Prompt: !,"Drug Class: "_$G(PSODRUG("VA CLASS")) Line Location: DSP+5
Function Call: WRITE	Prompt: !,"Dosage: "_$P(DUPRX0,"^",3) Line Location: DSP+6
Function Call: WRITE	Prompt: !,"Schedule: "_$P(DUPRX0,"^",5),?40,"Medication Route: "_$P(DUPRX0,"^",4) Line Location: DSP+7
Function Call: WRITE	Prompt: !,"Start Date: "_$$FMTE^XLFDT($P(DUPRX0,"^",9)),?40,"CPRS Order #: "_$P(DUPRX0,"^",8) Line Location: DSP+8
Function Call: WRITE	Prompt: !,"Documented By: "_$P(^VA(200,$P(DUPRX0,"^",11),0),"^")_" on "_$$FMTE^XLFDT($P(DUPRX0,"^",10)) Line Location: DSP+9
Function Call: WRITE	Prompt: ! Line Location: DSP+10
Function Call: WRITE	Prompt: !?5,OCK(II) Line Location: DSP+15
Function Call: WRITE	Prompt: OCK(II) Line Location: DSP+21
Function Call: WRITE	Prompt: !?5 Line Location: DSP+21
Function Call: WRITE	Prompt: !?5,OCK(II) Line Location: DSP+25
Function Call: WRITE	Prompt: !,PSONULN,! Line Location: DSP+26
Routine Call	DIR Line Location: ASKCAN ASKCAN+4 CLS+5 NVA+4 DSP+28

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATA+9
^PS(50.606 - [#50.606]	DATA+2, DSP+3
^PS(50.7 - [#50.7]	DATA+2, DSP+3
^PS(51.2 - [#51.2]	DATA+8
^PS(52.41 - [#52.41]	PSODRDU1+10, PSODRDU1+11, PSODRDU1+20, DATA, INST+1
^PS(53 - [#53]	DATA+11
^PS(55 - [#55]	NVA+5, DSP+2, DSP+10, DSP+11, DSP+18, DSP+22
^PS(56 - [#56]	NVA+2
^PSDRUG - [#50]	DATA+3, DSP+4
^SC - [#44]	DATA+8
^TMP("PSORXDC"	ASKCAN+8*
^VA(200 - [#200]	DATA+8, DSP+9, DSP+17
^XUSEC("PSORPH"	PSODRDU1+13, PSODRDU1+17, PSODRDU1+21, PSODRDU1+25

Label References

Name	Line Occurrences
CLS	PSODRDU1+18, PSODRDU1+26
DATA	CLS+4
DSP	NVA+7, NVA+8
DUP	PSODRDU1+14, PSODRDU1+15, PSODRDU1+16, PSODRDU1+17, PSODRDU1+22, PSODRDU1+23, PSODRDU1+24, PSODRDU1+25
INST	DATA+4, DATA+10
ULPN	ASKCAN+5

Naked Globals

Name	Field # of Occurrence
^(0	DATA+2, DSP+3, DSP+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	ASKCAN+6*
CLS	ASKCAN+5!, ASKCAN+7, ASKCAN+9!, CLS+1!, CLS+4*, CLS+6!
DIR	ASKCAN!, ASKCAN+4!, CLS+5!, NVA+4!, DSP+28!
DIR("?"	ASKCAN+3*
DIR("A"	ASKCAN, ASKCAN+3, CLS+5, NVA+4, DSP+28*
DIR(0	ASKCAN, ASKCAN+3, CLS+5, NVA+4, DSP+28*
DIRUT	CLS+5!, NVA+4!, DSP+28!
>> DNM	PSODRDU1+9, PSODRDU1+13, PSODRDU1+17, PSODRDU1+18, PSODRDU1+21, PSODRDU1+25, PSODRDU1+26, DUP, ASKCAN+9, CLS+1 , CLS+3, NVA+3, NVA+5, NVA+6, NVA+7, NVA+8, DSP+1
DSC	DSP+25!, DSP+27!
DSC(	DSP+22*, DSP+23, DSP+24
DTOUT	CLS+5!, NVA+4!, DSP+28!
DUOUT	CLS+5!, NVA+4!, DSP+28!
DUP	DUP*, ASKCAN!, ASKCAN+5!, ASKCAN+9!, CLS!, CLS+1!, CLS+6!
DUPRX0	DATA, DATA+2, DATA+3, DATA+7, DATA+8, DATA+9, DSP+2, DSP+3, DSP+4, DSP+6 , DSP+7, DSP+8, DSP+9, DSP+27!
DUZ	PSODRDU1+13, PSODRDU1+17, PSODRDU1+21, PSODRDU1+25
FL	DSP+27!
FSIG	PSODRDU1+12!, PSODRDU1+21!, PSODRDU1+27!, DSP+27!
FSIG(	DATA+6
I	DATA+6, DSP+10, DSP+11, DSP+12, DSP+18, DSP+27!
IEN	DSP+13, DSP+14, DSP+16!, DSP+19, DSP+20, DSP+21!, DSP+23, DSP+24, DSP+25!, DSP+27!
IFN	NVA+6*, DSP+10, DSP+11, DSP+18, DSP+22, DSP+27!
II	DSP+15, DSP+16!, DSP+19, DSP+20, DSP+21, DSP+23, DSP+24, DSP+25*
INST	INST+1*, INST+3!
IOM	DATA+5, INST+2
ISSD	DATA*, DSP+27!
>> IT	NVA+1, NVA+2, NVA+7, NVA+8
J	DSP+27!
LEN	DSP+13!*, DSP+16!
LSTFD	DSP+27!
LSTFL	DSP+27!
MIG	INST+1*, INST+2, INST+3!
>> MSG	DUP+1, ASKCAN+8, CLS+2
OCK	DSP+13!, DSP+16!, DSP+18!, DSP+22!, DSP+27!
OCK(	DSP+14, DSP+15, DSP+20, DSP+21, DSP+24*, DSP+25
>> ORD	PSODRDU1+12, PSODRDU1+13, PSODRDU1+17, PSODRDU1+18
ORD1	DSP+11*, DSP+13, DSP+14, DSP+16!, DSP+27!
ORP	DSP+11*, DSP+17, DSP+18!
PHYS	DSP+27!
>> PSODFN	NVA+5, DSP+2, DSP+10, DSP+11, DSP+18, DSP+22
>> PSODRUG("NAME"	PSODRDU1+13, PSODRDU1+17, PSODRDU1+18, PSODRDU1+21, PSODRDU1+25, PSODRDU1+26, NVA+7, NVA+8, DSP+1
>> PSODRUG("VA C	LASS" , PSODRDU1+18, PSODRDU1+26, CLS+1, CLS+3, NVA+8, DSP+1, DSP+5
PSOELSE	CLS+1!, CLS+6!
PSOMSG	ASKCAN!, ASKCAN+1, ASKCAN+3!
PSONULN	DUP, DATA+11, CLS+2, DSP*, DSP+1, DSP+26, DSP+27!
>> PSONV	DUP+1, ASKCAN+6, CLS+2
>> PSOPAR	PSODRDU1+14, PSODRDU1+15, PSODRDU1+16, PSODRDU1+22, PSODRDU1+23, PSODRDU1+24, DATA+11, CLS+4
>> PSORX("DFLG"	PSODRDU1+13, PSODRDU1+14, PSODRDU1+15, PSODRDU1+16, PSODRDU1+17, PSODRDU1+21, PSODRDU1+22, PSODRDU1+23, PSODRDU1+24, PSODRDU1+25 , ASKCAN, ASKCAN+5
>> PSORX("PATIEN	T STATUS" , DATA+11
>> PSOSD(	PSODRDU1+9, PSODRDU1+18, PSODRDU1+26, ASKCAN+9!, CLS+1, NVA+5, NVA+6, NVA+8
REA	DSP+18!, DSP+21!, DSP+27!
REA(	DSP+18*, DSP+19, DSP+20
RFLS	DATA*, DSP+27!
RX3	DSP+27!
RXREC	PSODRDU1+9, PSODRDU1+10, PSODRDU1+11, PSODRDU1+13, PSODRDU1+17, PSODRDU1+18, PSODRDU1+20, DATA, DATA+1, DATA+5 , ASKCAN+8, INST+1, NVA+6, DSP+2, DSP+27!
RXRECLOD	DATA+1*, DATA+11!, ASKCAN!, ULPN+1, ULPN+2!
>> SER	NVA+2*, NVA+3
SG	INST+2, INST+3!, DSP+14, DSP+16!, DSP+20, DSP+21!, DSP+24, DSP+25!
>> SS	DSP+18, DSP+22
ST	DSP+27!
>> STA	PSODRDU1+9, PSODRDU1+18, PSODRDU1+26, ASKCAN+9, CLS+1, NVA+5, NVA+6, NVA+8
TRM	DSP+27!
TY	DATA+4, DATA+10, INST+1, INST+2, INST+3!
X	DSP+27!
Y	DATA+9*, ASKCAN+5, DSP+27!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODRDU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ASKCAN
DSP
ULPN	;
INST	;displays instruction and/or comments
NVA	;displays duplicate drugs and classes for non-va meds
DUP
DATA
CLS