Routine: PSDNRGS

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC (,IX)^DIC ^DIE ^DIR
Kernel	2	EN^XQH SIG^XUSESIG
Controlled Substances	1	^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD REC GS

Entry Points

Name	Comments	DBIA/ICR reference
GS	;select green sheet #
UPDATE	;update 58.8 and 58.81
END
REC	;receive at order level in 58.8
ORD
ASKN	;ask naou

External References

Name	Field # of Occurrence
NOW^%DTC	ORD+9
^DIC	ASKN+4
IX^DIC	GS+3
^DIE	REC+6, UPDATE+10, UPDATE+14
^DIR	REC+2
^PSDSET	PSDNRGS+2
EN^XQH	PSDNRGS+5
SIG^XUSESIG	PSDNRGS+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to complete",!,?12,"narcotic orders.",!!,"PSJ RNURSE, PSD NURSE, PSJ RPHARM, or PSJ PHARM TECH security key required.",! Line Location: PSDNRGS+4
Function Call: WRITE	Prompt: !!,"Receive Controlled Substances Orders and Green Sheet" Line Location: PSDNRGS+6
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: WRITE	Prompt: !,"The Green Sheet # ",PSDPN," is currently in use by another user",!,"Please select another Green Sheet.",! Line Location: ORD+4
Function Call: WRITE	Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",! Line Location: ORD+6
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+7
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+8
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+12
Function Call: WRITE	Prompt: "done.",!! Line Location: UPDATE+15
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+16
Routine Call	DIE Line Location: REC+6 UPDATE+10 UPDATE+14
Routine Call	DIC Line Location: ASKN+4
Routine Call	DIR Line Location: REC+2
Routine Call	DIC Line Location: GS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ORD+9
^PSD(58.8 - [#58.8]	ORD+1, ORD+7, REC+6, UPDATE+2, UPDATE+4*, UPDATE+5, UPDATE+7, UPDATE+9
^PSD(58.81 - [#58.81]	ORD+3, ORD+5, ORD+6, ORD+7, ORD+8, REC+2, REC+3, REC+7, UPDATE+9, UPDATE+11* , UPDATE+16, UPDATE+17
^PSD(58.82 - [#58.82]	ORD, UPDATE+16
^PSD(58.85 - [#58.85]	UPDATE+14
^PSDRUG - [#50]	ORD+1
^VA(200 - [#200]	PSDNRGS+5, PSDNRGS+6
^XUSEC("PSD NURSE"	PSDNRGS+3
^XUSEC("PSJ PHARM TECH"	PSDNRGS+3
^XUSEC("PSJ RNURSE"	PSDNRGS+3
^XUSEC("PSJ RPHARM"	PSDNRGS+3

Label References

Name	Line Occurrences
ASKN	GS+3
END	ASKN+4, ORD+7, REC+2, REC+7
GS	ORD+4, ORD+6, ORD+8, REC+3, UPDATE+18

Naked Globals

Name	Field # of Occurrence
^(0	PSDNRGS+6, UPDATE+16
^(4	ORD+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ORD+9, END!
%DT	END!
%H	END!
%I	END!
AOU	ASKN+4*, ORD+6, END!
AOUN	ASKN+4*, END!
D	GS+1*, END!
DA	ASKN+1!, GS+1!, REC+2!, REC+4!, REC+6!, UPDATE+8!, UPDATE+10!, UPDATE+14*!, END!
DA(1	REC+4*, REC+5
DA(2	REC+4*, REC+5
DIC	ASKN+1!, ASKN+4!, GS+1!, GS+3!, END!
DIC("A"	ASKN+1, GS+1
DIC("S"	ASKN+2, ASKN+3, GS+2*
DIC(0	ASKN+1, GS+1
DIE	REC+4!, REC+5, REC+6!, UPDATE+8!, UPDATE+10!, UPDATE+14!*, END!
>> DILOCKTM	ORD+3, UPDATE+2
DIR	REC+2!
DIR("B"	REC+2*
DIR(0	REC+2*
DIRUT	REC+2!
DR	REC+4!, REC+6!, UPDATE+8!, UPDATE+9, UPDATE+10!, UPDATE+14!*, END!
DTOUT	REC+7, END!
DUOUT	END!
DUZ	PSDNRGS+3, PSDNRGS+5, PSDNRGS+6
NAOU	ORD+1*, ORD+6, ORD+7, REC+4, REC+6, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+7, UPDATE+9 , UPDATE+14, END+1!
NAOUN	ORD+1*, ORD+6, ORD+7, END+1!
OK	PSDNRGS+3*, PSDNRGS+4!, ASKN+2, ASKN+3, REC+6, UPDATE+11, END+1!
ORD	ORD+1*, ORD+7, REC+4, UPDATE+7, UPDATE+14, END+1!
OREC	UPDATE+7*, UPDATE+9, END+1!
PSDA	GS+3*, ORD+3, ORD+5, ORD+6, ORD+7, ORD+8, REC+2, REC+3, REC+7, UPDATE+8 , UPDATE+9, UPDATE+11, UPDATE+16, UPDATE+17, END+1!
PSDPN	ORD*, ORD+4, ORD+6, ORD+7, UPDATE+16, END+1!
PSDR	ORD+1*, ORD+7, REC+4, REC+6, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+7, UPDATE+14, END+1!
PSDRN	ORD+1*, REC+1, END+1!
>> PSDSITE	PSDNRGS+2
PSDUZ	PSDNRGS+6*, REC+6, UPDATE+11, END+1!
PSDUZN	PSDNRGS+6*, END+1!
QTY	ORD+1, ORD+5, REC+2, REC+3, REC+6, UPDATE+4, UPDATE+9, END+1!
RECD	ORD+9*, REC+6, UPDATE+9, END+1!
RECDT	ORD+9*, END+1!
RQTY	REC+3*, END+1!
STAT	ORD, ORD+8, UPDATE+16, END+1!
STATN	ORD*, ORD+8, REC+2, REC+7, END+1!
SUB	END+1!
U	PSDNRGS+5, REC+6, UPDATE+9
X	PSDNRGS+7~, END+1!
X1	PSDNRGS+7~
XQH	PSDNRGS+5~*
Y	ASKN+4, GS+3, ORD+9*, REC+3, REC+7, END+1!
Y(0	ORD, ORD+1

Customize PDF page

Package: Controlled Substances

Routine: PSDNRGS

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: