Routine: PSDNRGO

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIE ^DIR

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIE ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSDORSU

Package

Total

Caller Graph

Controlled Substances

PSDORSU

Name	Comments	DBIA/ICR reference
REC	;receive at order level in 58.8
ORD
END
UPDATE	;update 58.8 and 58.81

Name	Field # of Occurrence
NOW^%DTC	ORD+6
^DIE	REC+6, UPDATE+9, UPDATE+13
^DIR	REC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",! Line Location: ORD+3
Function Call: WRITE	Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",! Line Location: ORD+4
Function Call: WRITE	Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",! Line Location: ORD+5
Function Call: WRITE	Prompt: !!,"Accessing ",PSDRN," information...",!! Line Location: REC+1
Function Call: WRITE	Prompt: !!,"Quantity not entered. No action taken.",!,"This order remains ",STATN,!! Line Location: REC+2
Function Call: WRITE	Prompt: $C(7),!!,"The quantity received does not match the quantity dispensed.",!,"This order must be returned to pharmacy for investigation.",!! Line Location: REC+3
Function Call: WRITE	Prompt: $C(7),!!,"* THIS ORDER HAS NOT BEEN RECEIVED *",!,"Receiving nurses name must be entered.",!!,"The status remains "_STATN,! Line Location: REC+7
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: UPDATE+11
Function Call: WRITE	Prompt: "done.",!! Line Location: UPDATE+14
Function Call: WRITE	Prompt: ?5,"* Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" *",! Line Location: UPDATE+15
Routine Call	DIE Line Location: REC+6 UPDATE+9 UPDATE+13
Routine Call	DIR Line Location: REC+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ORD+6
^PSD(58.8 - [#58.8]	ORD+1, ORD+4, REC+6, UPDATE+3*, UPDATE+6, UPDATE+8
^PSD(58.81 - [#58.81]	ORD+2, UPDATE+3, UPDATE+8, UPDATE+10*, UPDATE+15
^PSD(58.82 - [#58.82]	ORD, UPDATE+15
^PSD(58.85 - [#58.85]	UPDATE+13
^PSDRUG - [#50]	ORD+1

Name	Line Occurrences
END	ORD+3, ORD+4, ORD+5, REC+2, REC+3, REC+7

Name	Field # of Occurrence
^(0	UPDATE+15
^(4	ORD+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ORD+6, END!
%DT	END!
%H	END!
%I	END!
>> AOU	ORD+3
AOUN	END!
D	END!
DA	REC+2!, REC+4!, REC+6!, UPDATE+7!, UPDATE+9!, UPDATE+13*!, END!
DA(1	REC+4*, REC+5
DA(2	REC+4*, REC+5
DIC	END!
DIE	REC+4!, REC+5, REC+6!, UPDATE+7!, UPDATE+9!, UPDATE+13!*, END!
DIR	REC+2!
DIR("B"	REC+2*
DIR(0	REC+2*
DIRUT	REC+2!
DR	REC+4!, REC+6!, UPDATE+7!, UPDATE+8, UPDATE+9!, UPDATE+13!*, END!
DTOUT	REC+7, END!
DUOUT	END!
DUZ	ORD+1
>> NAOU	ORD+1*, ORD+3, ORD+4, REC+4, REC+6, UPDATE+3, UPDATE+6, UPDATE+8, UPDATE+13
>> NAOU(1	UPDATE+15*
NAOUN	ORD+1*, ORD+3, ORD+4, END+1!
OK	ORD+1*, REC+6, UPDATE+10, END+1!
>> ORD	ORD+1*, ORD+4, REC+4, UPDATE+6, UPDATE+13
OREC	UPDATE+6*, UPDATE+8, END+1!
PSDA	ORD+2, UPDATE+3, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+15, END+1!
>> PSDOUT	ORD+3, ORD+4, ORD+5, REC+2, REC+3, REC+7
PSDPN	ORD*, ORD+3, ORD+4, UPDATE+15, END+1!
>> PSDR	ORD+1*, ORD+4, REC+4, REC+6, UPDATE+3, UPDATE+6, UPDATE+13
PSDRN	ORD+1*, REC+1, END+1!
PSDUZ	ORD+1*, REC+6, UPDATE+10, END+1!
PSDUZN	END+1!
QTY	ORD+1, ORD+2, REC+2, REC+3, REC+6, UPDATE+3, UPDATE+8, END+1!
RECD	ORD+6*, REC+6, UPDATE+8, END+1!
RECDT	ORD+6*, END+1!
RQTY	REC+3*, END+1!
>> STAT	ORD, ORD+5, UPDATE+15
STATN	ORD*, ORD+5, REC+2, REC+7, END+1!
SUB	END+1!
U	REC+6, UPDATE+3, UPDATE+8
X	END+1!
Y	ORD+6*, REC+3, REC+7, END+1!
Y(0	ORD, ORD+1

Customize PDF page

Package: Controlled Substances

Routine: PSDNRGO

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: