Routine: PSDGSRV

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

Package

Total

Call Graph

VA Fileman

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

Controlled Substances

^PSDCOR3 ^PSDGSRV1 ^PSDSET

Kernel

EN^XQH SIG^XUSESIG

Package	Total	Caller Graph
Controlled Substances	1	PSD COMPLETE GS

Package

Total

Caller Graph

Controlled Substances

PSD COMPLETE GS

Name	Comments	DBIA/ICR reference
END
START	;start processing
UPDATE	;up 58.81
ASKD	;ask disp location
QUES	;ask ok if still active
MSG
GS	;select green sheet #
ORDER	;update drug balance & order info in 58.8

Name	Field # of Occurrence
NOW^%DTC	UPDATE+2
^DIC	ASKD+5, START+3
IX^DIC	GS+3
^DIE	UPDATE+10, UPDATE+14, ORDER+2
^DIR	START+8, QUES+4
^PSDCOR3	ORDER+3
^PSDGSRV1	START+9
^PSDSET	PSDGSRV+6
EN^XQH	PSDGSRV+9
SIG^XUSESIG	PSDGSRV+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to complete",!,?12,"Green Sheets. PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDGSRV+8
Function Call: WRITE	Prompt: !!,"Complete a Green Sheet" Line Location: GS+1
Function Call: WRITE	Prompt: ! Line Location: GS+2
Function Call: WRITE	Prompt: !!,"This order has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",! Line Location: GS+5
Function Call: WRITE	Prompt: !!,"Accessing Green Sheet information...",! Line Location: UPDATE+1
Function Call: WRITE	Prompt: $C(7),!!,"* THIS GREEN SHEET HAS NOT BEEN COMPLETED *",!!,"The status remains "_STATN,! Line Location: UPDATE+11
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: ORDER+1
Function Call: WRITE	Prompt: "completion log..." Line Location: ORDER+3
Function Call: WRITE	Prompt: "done.",!! Line Location: ORDER+4
Function Call: WRITE	Prompt: ?2,"* The status of your Green Sheet #"_PSDPN_" * ",! Line Location: ORDER+5
Function Call: WRITE	Prompt: ?6,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN"),!,?6,$P($G(^PSD(58.83,CSTAT,0)),"^") Line Location: ORDER+6
Function Call: WRITE	Prompt: ! Line Location: QUES+2
Function Call: WRITE	Prompt: !!," No action taken. ",! Line Location: MSG+0
Routine Call	DIE Line Location: UPDATE+10 UPDATE+14 ORDER+2
Routine Call	DIC Line Location: ASKD+5 START+3
Routine Call	DIR Line Location: START+8 QUES+4
Routine Call	DIC Line Location: GS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	GS+10, START+6
^PSD(58.81 - [#58.81]	GS+8, GS+9, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10, ORDER+5, ORDER+6
^PSD(58.82 - [#58.82]	GS+4, ORDER+6
^PSD(58.83 - [#58.83]	ORDER+6
^PSDRUG - [#50]	GS+7
^VA(200 - [#200]	PSDGSRV+9, GS+1
^XUSEC("PSJ PHARM TECH"	PSDGSRV+7
^XUSEC("PSJ RPHARM"	PSDGSRV+7, START+2

Name	Line Occurrences
END	ASKD+5, GS+3, GS+5, START+3, START+8, UPDATE+11
GS	ASKD+2, GS+6, ORDER+7
MSG	GS+5, QUES+4
QUES	GS+6
START	START+8

Name	Field # of Occurrence
^(0	ORDER+6
^(4	GS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UPDATE+2, END!
%DT	END!
%H	END!
%I	END!
C	END!
COMP	GS+7, START+2, START+4, START+6, START+9, UPDATE+9, ORDER+2, END!
CPBY	GS+8*, END!
CSTAT	START+4, START+6, UPDATE+9, ORDER+2, ORDER+6*, END!
D	GS+2*, END!
DA	ASKD+3!, GS+2!, START+2!, START+7!, UPDATE+9!, UPDATE+10!, UPDATE+14, ORDER+2!*, END!, QUES+2!
DA(1	ORDER+2*
DA(2	ORDER+2*
DIC	ASKD+3!, ASKD+5!, GS+2!, GS+3!, START+2!*, START+3!, END!
DIC("A"	ASKD+4, GS+2, START+2*
DIC("B"	ASKD+4, START+2
DIC("S"	ASKD+3, GS+2, START+2*
DIC(0	ASKD+3, GS+2, START+2*
DIE	UPDATE+9!, UPDATE+10!, UPDATE+14, ORDER+2!*, END!
DIR	START+7!, START+8!, END!, QUES+2!, QUES+4!
DIR("?"	START+7, QUES+3
DIR("A"	START+7, QUES+2
DIR("B"	START+8*
DIR(0	START+7, QUES+2
DIROUT	END!
DIRUT	START+7!, START+8, END!, QUES+2!, QUES+4
DR	UPDATE+9!, UPDATE+10!, UPDATE+14!, ORDER+2!*, END!
DTOUT	UPDATE+11, END!
DUOUT	END!
DUZ	PSDGSRV+7, PSDGSRV+9, GS+1
NAOU	GS+7*, START+6, ORDER+2, END+1!
NBKU	GS+10*, END+1!
NODE	GS+3*, GS+4, GS+7, END+1!
NOK	GS+6, END+1!, QUES+1, QUES+4, QUES+6*
NURSE	UPDATE+8*, END+1!
OCOMP	GS+7*, END+1!
OK	PSDGSRV+7*, PSDGSRV+8!, END+1!
ORD	GS+7*, ORDER+2, END+1!
>> PSD10	UPDATE+6*, UPDATE+14
>> PSD11	UPDATE+7*, UPDATE+14
PSDA	GS+3*, GS+8, GS+9, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+14, ORDER+5 , ORDER+6, END+1!
PSDDT	UPDATE+10*, ORDER+2, END+1!
PSDEV	END+1!
PSDOUT	START+1, UPDATE+11, END+1!
PSDPN	GS+4*, ORDER+5, END+1!
PSDR	GS+7*, GS+10, START+6, ORDER+2, END+1!
PSDRN	GS+7*, END+1!
PSDS	ASKD+1, ASKD+6, GS+10, START+6, END+1!
>> PSDSITE	PSDGSRV+6, ASKD+1, ASKD+2, ASKD+6*
PSDSN	ASKD+1, ASKD+4, ASKD+6, END+1!
PSDUZ	GS+1*, START+2, UPDATE+9, END+1!
PSDUZN	GS+1*, END+1!
QTY	GS+7, GS+9, END+1!
RECD	END+1!
RECDT	UPDATE+2*, UPDATE+9, END+1!
STAT	GS+4, GS+5, GS+6, ORDER+3, ORDER+5, ORDER+6, END+1!
STATN	GS+4*, GS+5, UPDATE+11, END+1!
SUB	END+1!
TYPE	ORDER+3*, END+1!
U	PSDGSRV+9, ASKD+1, ASKD+2, ASKD+6, START+6
X	PSDGSRV+10~, END+1!
X1	PSDGSRV+10~
XQH	PSDGSRV+9~*
Y	ASKD+5, ASKD+6, GS+3, START+3, START+4, START+8, UPDATE+2*, UPDATE+11, END+1!, QUES+5 , QUES+6
Y(0	GS+3

Customize PDF page

Package: Controlled Substances

Routine: PSDGSRV

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: