Routine: PSDNCGS

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

Package

Total

Call Graph

VA Fileman

NOW^%DTC (,IX)^DIC ^DIE ^DIR

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD READY GS FOR PICKUP

Package

Total

Caller Graph

Controlled Substances

PSD READY GS FOR PICKUP

Name	Comments	DBIA/ICR reference
COM	;complete at order level in 58.8
ASKN	;if nurse ask naou
GS	;select green sheet #
END

Name	Field # of Occurrence
NOW^%DTC	GS+12
^DIC	ASKN+3
IX^DIC	GS+3
^DIE	COM+4, COM+6
^DIR	GS+11
^PSDSET	PSDNCGS+2

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 or PSD NURSE security key required.",! Line Location: PSDNCGS+4
Function Call: WRITE	Prompt: !!,"Complete a Green Sheet - Ready for Pick Up" Line Location: PSDNCGS+5
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: WRITE	Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",! Line Location: GS+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: GS+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: GS+8
Function Call: WRITE	Prompt: ! Line Location: GS+9
Function Call: WRITE	Prompt: !!,"Accessing ",PSDRN," information...",!! Line Location: COM+1
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: COM+2
Function Call: WRITE	Prompt: $C(7),!!," THIS GREEN SHEET HAS NOT BEEN COMPLETED ",!!,"The status remains "_STATN,! Line Location: COM+5
Function Call: WRITE	Prompt: ?2,!,"* Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" *",! Line Location: COM+7
Routine Call	DIE Line Location: COM+4 COM+6
Routine Call	DIC Line Location: ASKN+3
Routine Call	DIR Line Location: GS+11
Routine Call	DIC Line Location: GS+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	GS+12
^PSD(58.8 - [#58.8]	GS+5, GS+7
^PSD(58.81 - [#58.81]	COM+7
^PSD(58.82 - [#58.82]	GS+4, COM+7
^PSDRUG - [#50]	GS+5
^VA(200 - [#200]	PSDNCGS+5
^XUSEC("PSD NURSE"	PSDNCGS+3
^XUSEC("PSJ RNURSE"	PSDNCGS+3

Name	Line Occurrences
END	ASKN+3, GS+3, GS+7, GS+11, COM+5
GS	GS+6, GS+8, GS+11, COM+8

Name	Field # of Occurrence
^(0	PSDNCGS+5, COM+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GS+12, END!
%DT	END!
%H	END!
%I	END!
AOU	ASKN+3*, GS+6, END!
AOUN	ASKN+3*, END!
D	GS+1*, END!
DA	ASKN+1!, GS+1!, GS+9!, COM+4!, COM+6!, END!
DA(1	COM+6*
DA(2	COM+6*
DIC	ASKN+1!, ASKN+3!, GS+1!, GS+3!, END!
DIC("A"	ASKN+1, GS+1
DIC("S"	ASKN+2, GS+2
DIC(0	ASKN+1, GS+1
DIE	COM+4!, COM+6!, END!
DIR	GS+9!, GS+11!
DIR("?"	GS+10*
DIR("A"	GS+9*
DIR("B"	GS+9*
DIR(0	GS+9*
DIRUT	GS+9!, GS+11
DR	COM+4!, COM+6!, END!
DTOUT	COM+5, END!
DUOUT	END!
DUZ	PSDNCGS+3, PSDNCGS+5
NAOU	GS+5*, GS+6, GS+7, COM+6, END+1!
NAOUN	GS+5*, GS+6, GS+7, END+1!
OK	PSDNCGS+3*, PSDNCGS+4!, END+1!
ORD	GS+5*, GS+7, COM+6, END+1!
PSDA	GS+3*, COM+4, COM+7, END+1!
PSDPN	GS+4*, GS+6, GS+7, COM+7, END+1!
PSDR	GS+5*, GS+7, COM+6, END+1!
PSDRN	GS+5*, COM+1, END+1!
>> PSDSITE	PSDNCGS+2
PSDUZ	PSDNCGS+5*, COM+4, END+1!
PSDUZN	PSDNCGS+5*, END+1!
RECD	GS+12*, COM+4, END+1!
RECDT	GS+12*, END+1!
STAT	GS+4, GS+8, COM+7, END+1!
STATN	GS+4*, GS+8, COM+5, END+1!
SUB	END+1!
TRANS	END+1!
X	END+1!
Y	ASKN+3, GS+3, GS+11, GS+12*, COM+5, END+1!
Y(0	GS+4, GS+5

Customize PDF page

Package: Controlled Substances

Routine: PSDNCGS

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: