Routine: PSDEVO

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC (,IX)^DIC ^DIE ^DIR
Controlled Substances	2	^PSDEVO1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD EDIT/CANC VER ORD

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry for edit/cancel verified order
GS	;ask gs #
CANC	;canc ver ord
ASKD	;ask disp site
MSG
MON	;monthly activity
ASK	;edit or cancel
END

External References

Name	Field # of Occurrence
NOW^%DTC	CANC+8
^DIC	ASKD+5, MON+2
IX^DIC	GS+3
^DIE	CANC+12, CANC+13, CANC+14, MON+3
^DIR	ASK+3, CANC+3
^PSDEVO1	ASK+5
^PSDSET	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator for access to edit or cancel",!,"a verified Controlled Substances order.",!!,"PSJ RPHARM security key required.",! Line Location: EN+2
Function Call: WRITE	Prompt: $C(7),!!,?18,"* NOTE *",!,?5,"Only Verified Orders with a status of FILLED - NOT DELIVERED",!,?5,"may be edited or cancelled.",!! Line Location: EN+4
Function Call: WRITE	Prompt: !!,PSDRN," is not stocked in ",PSDSN,!! Line Location: GS+4
Function Call: WRITE	Prompt: !!,PSDRN," is missing breakdown unit or ",!,"package size data in ",PSDSN,".",!! Line Location: GS+6
Function Call: WRITE	Prompt: !!,"Drug: ",PSDRN,!," Quantity: ",$S($D(NQTY):NQTY,1:QTY)," Breakdown Unit: ",NBKU,!! Line Location: GS+8
Function Call: WRITE	Prompt: !!,"Green Sheet # ",PSDPN," Quantity Dispensed: ",$S($D(NQTY):NQTY,1:QTY)," Breakdown Unit: ",NBKU,! Line Location: CANC+1
Function Call: WRITE	Prompt: !!,"Accessing your transaction history..." Line Location: CANC+6
Function Call: WRITE	Prompt: !!,"Old Balance: ",BAL,?35,"New Balance :",BAL+AQTY,!! Line Location: CANC+10
Function Call: WRITE	Prompt: !!,"Updating your transaction history now..." Line Location: CANC+11
Function Call: WRITE	Prompt: !!,"Order record..." Line Location: CANC+13
Function Call: WRITE	Prompt: "worksheet..." Line Location: CANC+14
Function Call: WRITE	Prompt: !!,"Finished. Your Green Sheet # ",PSDPN," has been cancelled.",!! Line Location: MON+4
Function Call: WRITE	Prompt: !!," No action taken. ",!! Line Location: MSG+0
Routine Call	DIE Line Location: CANC+12 CANC+13 CANC+14 MON+3
Routine Call	DIC Line Location: ASKD+5 MON+2
Routine Call	DIR Line Location: ASK+3 CANC+3
Routine Call	DIC Line Location: GS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	GS+4, GS+5, CANC+7, CANC+9, CANC+10, MON+1, MON+2
^PSD(58.81 - [#58.81]	GS+7
^PSD(58.85 - [#58.85]	CANC+14
^PSDRUG - [#50]	GS+3
^XUSEC("PSJ RPHARM"	EN+2

Label References

Name	Line Occurrences
CANC	ASK+4
END	EN+2, ASKD+5, GS+3, GS+4, GS+6, ASK+3, ASK+4
GS	ASKD+2
MSG	GS+4, GS+6, ASK+3, CANC+3, CANC+4

Naked Globals

Name	Field # of Occurrence
^(0	GS+5, CANC+9, MON+1
^(4	GS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, CANC+8
%DT	END!
%H	END!
%I	END!
ANS	ASK+4*, ASK+5, END!
AQTY	END!, CANC+5*, CANC+9, CANC+10, CANC+12
BAL	END!, CANC+9*, CANC+10, CANC+12
D	GS+1*, END!
DA	ASKD+3!, GS+1!, ASK+1!, END!, CANC+2!, CANC+12!, CANC+13!, CANC+14!, MON+2!, MON+3!
DA(1	CANC+13, MON+2, MON+3*
DA(2	CANC+13, MON+2, MON+3*
DIC	ASKD+3!, ASKD+5!, GS+1!, GS+3!, END!, MON+2!*
DIC("A"	ASKD+3, GS+1
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, GS+2
DIC(0	ASKD+4, GS+1, MON+2*
DIE	END!, CANC+12!, CANC+13!, CANC+14!, MON+3!
>> DILOCKTM	CANC+7
DINUM	MON+2*!
DIR	ASK+1!, ASK+3!, END!, CANC+2!, CANC+3!
DIR("?"	ASK+2, CANC+2
DIR("A"	ASK+1, CANC+3
DIR(0	ASK+1, CANC+2
DIROUT	END!
DIRUT	ASK+1!, ASK+3, END!, CANC+2!, CANC+3
DLAYGO	MON+2*!
DR	END!, CANC+12!, CANC+13!, CANC+14!, MON+3!
DT	MON+2, MON+3
DTOUT	END!
DUOUT	END!
DUZ	EN+2, EN+3
EXP	END!
FIELD	END!
LOT	END!
MFG	END!
NAOU	GS+3*, END!, CANC+13, CANC+14
NAOUN	END!
NBKU	GS+5*, GS+6, GS+8, END!, CANC+1
NPKG	GS+5*, GS+6, END!
NQTY	GS+1!, GS+7*, GS+8, END!, CANC+1, CANC+5
OK	END!
ORD	GS+3*, END!, CANC+13, CANC+14
OREC	END!
PSDA	GS+3*, GS+7, END+1!, CANC+12
PSDOUT	END+1!, CANC+3, CANC+4
PSDPN	GS+3*, END+1!, CANC+1, MON+4
PSDR	GS+3*, GS+4, GS+5, END+1!, CANC+7, CANC+9, CANC+10, CANC+13, CANC+14, MON+1 , MON+2, MON+3
PSDRN	GS+3*, GS+4, GS+6, GS+8, END+1!
PSDS	ASKD+1, ASKD+6, GS+4, GS+5, END+1!, CANC+7, CANC+9, CANC+10, MON+1, MON+2 , MON+3
>> PSDSITE	EN+1, ASKD+1, ASKD+2, ASKD+6*
PSDSN	ASKD+1, ASKD+4, ASKD+6, GS+4, GS+6, END+1!
PSDT	END+1!, CANC+8*, CANC+12
PSDUZ	EN+3*, END+1!, CANC+12
QTY	GS+3*, GS+8, END+1!, CANC+1, CANC+5
RECD	END+1!
RECDT	END+1!
RQTY	END+1!
STAT	END+1!
STATN	END+1!
SUB	END+1!
U	ASKD+1, ASKD+2, ASKD+6
WK	END+1!
X	END+1!, MON+2*
Y	ASKD+5, ASKD+6, GS+3, ASK+4, END+1!, CANC+4
Y(0	GS+3

Customize PDF page

Package: Controlled Substances

Routine: PSDEVO

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: