Routine: PSDDWK

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT EN^XQH SIG^XUSESIG
Controlled Substances	2	^PSDDWK1 ^PSDSET
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

Kernel

$$FMADD^XLFDT EN^XQH SIG^XUSESIG

Controlled Substances

^PSDDWK1 ^PSDSET

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSD WORKSHEET DISPENSING

Package

Total

Caller Graph

Controlled Substances

PSD WORKSHEET DISPENSING

Entry Points

Name	Comments	DBIA/ICR reference
SETD
SET	;sets data for display/editing
END
REQ	;dispense by individual request
WK	;compile worksheet dispensing data
PSDLCK	;; PSD359 CLEAR LOCKS FOR THIS ORDER
ASKD	;ask dispensing location
MSG
ASKM	;ask method of dispensing - by worksheet or individual request

Name	Field # of Occurrence
^DIC	ASKD+5, REQ+4
^DIR	ASKM+3
^PSDDWK1	WK+3, REQ+7
^PSDSET	PSDDWK+2
$$FMADD^XLFDT	SET+7
EN^XQH	PSDDWK+5
SIG^XUSESIG	ASKM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"process/dispense narcotic supplies.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDDWK+4
Function Call: WRITE	Prompt: $C(7),!!,"There are no pending request orders.",!! Line Location: PSDDWK+6
Function Call: WRITE	Prompt: !!,"Accessing worksheet information..." Line Location: WK+1
Function Call: WRITE	Prompt: !!,"Accessing worksheet information..." Line Location: REQ+1
Function Call: WRITE	Prompt: ! Line Location: REQ+4
Function Call: WRITE	Prompt: !!,"This request is currently being processed by ",$P(^VA(200,$P(^XTMP("PSDLCK",PSDN,0),"^",3),0),"^") Line Location: REQ+5
Function Call: WRITE	Prompt: !!,"The status of this request is "_$P($G(^PSD(58.82,STAT,0)),"^")_".",!,"You cannot edit this request using this option.",! Line Location: REQ+6
Function Call: WRITE	Prompt: $C(7),!!,"There are no pending CS requests for ",PSDSN,".",! Line Location: MSG+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: MSG+1
Function Call: WRITE	Prompt: !,"Press <RET> to return to the menu" Line Location: MSG+1
Function Call: WRITE	Prompt: !! Line Location: MSG+1
Routine Call	DIC Line Location: ASKD+5 REQ+4
Routine Call	DIR Line Location: ASKM+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SET+12, SET+13, SET+18
^PSD(58.8 - [#58.8]	ASKD+2, SETD, SETD+1, WK+3, SET+8, SET+10, SET+18
^PSD(58.82 - [#58.82]	REQ+6
^PSD(58.85 - [#58.85]	PSDDWK+6, SETD+2, WK+2, WK+3, REQ+2, SET+1, SET+5, SET+15, PSDLCK+1
^PSDRUG - [#50]	SET+9
^VA(200 - [#200]	PSDDWK+5, REQ+5, SET+14, SET+16
^XTMP("PSDLCK"	REQ+5, SET+7*, PSDLCK+2!
^XUSEC("PSJ PHARM TECH"	PSDDWK+3
^XUSEC("PSJ RPHARM"	PSDDWK+3, SET+16

Name	Line Occurrences
END	ASKD+5, SETD+2, ASKM+3, ASKM+4
MSG	SETD+2, ASKM+5
PSDLCK	WK+3, REQ+7
REQ	ASKM+4, REQ+5, REQ+6, REQ+8
SET	WK+3, REQ+4
SETD	ASKD+2
WK	ASKM+4

Name	Field # of Occurrence
^(0	REQ+2, SET+1, SET+8, SET+9, SET+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
%ZIS	END!
ACT	END!
ALL	END!
ANS	ASKM+3*, ASKM+4, END!
BAL	END!
CNT	END!
COMM	END!
DA	ASKD+3!, ASKM+1!, END!, REQ+4!
DIC	ASKD+3!, ASKD+5!, END!, REQ+4!
DIC("A"	ASKD+4, REQ+4
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, REQ+4
DIC(0	ASKD+3, REQ+4
DIE	END!
DIR	ASKM+1!, ASKM+3!, END!
DIR("?"	ASKM+2*
DIR("A"	ASKM+1*
DIR(0	ASKM+1*
DIROUT	END!
DIRUT	ASKM+1!, ASKM+3, END!
DIWF	END!
DIWL	END!
DIWR	END!
DR	END!
DT	SET+7
DTIME	MSG+1
DTOUT	END!
DUOUT	END!
DUZ	PSDDWK+3, PSDDWK+5, SET+7, SET+16
EXP	END!, SET+17, SET+18
EXPD	END!, SET+17, SET+18
FLAG	END!
LN	END+1!
LOOP	END+1!
LOT	END+1!, SET+17, SET+18
MFG	END+1!, SET+17, SET+18
MSG	END+1!
NAOU	END+1!, SET+8*
NAOUN	END+1!, SET+8*
NBKU	END+1!, SET+17, SET+18
NEW	END+1!
NODE	END+1!, SET+1*, SET+4, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14
NODED	ASKD+2, ASKD+7, SETD, END+1!
NOFLAG	PSDDWK+7, ASKM+5, END+1!, REQ+2, REQ+3
NPKG	END+1!, SET+17, SET+18
NSITE	END+1!, SET+1*
OK	PSDDWK+3*, PSDDWK+4!, END+1!
OKD	ASKD+2*, END+1!
ORD	END+1!, SET+14*
ORDN	END+1!, SET+14*
ORDS	END+1!, WK+3, SET+10*, SET+18
ORDSN	END+1!, SET+10*
PAT	END+1!, SET+15*
PRT	END+2!
PSD	END+2!, WK+2, WK+3, REQ+2
PSDAG	SETD*, END+2!
PSDAGN	END+2!, SET+1*
PSDBY	END+2!, SET+14, SET+16
PSDBYN	END+2!, SET+14, SET+16
PSDDT	END+2!, SET+13*
PSDG	END+2!
PSDGS	SETD+1*, END+2!
PSDGSN	END+2!, SET+1*
PSDIO	END+2!
PSDLCK	END+1!, WK+3, REQ+5, SET+3, SET+6
PSDLES	END+2!
PSDM	SETD*, END+2!
PSDMN	END+2!, SET+1*
PSDN	END+2!, WK+3, REQ+2, REQ+4*, REQ+5, SET+1, SET+5, SET+7, SET+15, PSDLCK+1 , PSDLCK+2
PSDNA	END+2!
PSDNO	PSDDWK+7*, END+2!
PSDOUT	ASKM+4*, END+2!, WK+2, WK+3, REQ+7
PSDPN	END+2!, SET+13*
PSDR	END+3!, WK+3, SET+9*, SET+18
PSDREC	END+3!
PSDRG	SETD+1*, END+3!
PSDRGN	END+3!, SET+1*
PSDRN	END+3!, SET+4, SET+9
PSDS	ASKD+1, ASKD+2, ASKD+7, SETD, SETD+1, SETD+2, END+3!, WK+2, WK+3, REQ+2
>> PSDSITE	PSDDWK+2, ASKD+1, ASKD+2, ASKD+8*
PSDSN	ASKD+1, ASKD+4, ASKD+7, ASKD+8, END+3!, MSG
PSDT	END+3!, SET+13*
PSDUZA	END+3!, SET+11*
QTY	END+3!, SET+13*
REQ	END+3!, SET+12*
REQD	END+3!, SET+12*
REQDT	END+3!, SET+12*
SITE	END+3!
STAT	END+3!, WK+3, REQ+6, SET+4*, PSDLCK+2!
TECH	END+3!
TEXT	END+3!
U	PSDDWK+5, ASKD+1, ASKD+2, ASKD+8, SET+15
WORD	END+3!
X	ASKM+4~, END+3!, MSG+1*
X1	ASKM+4~
XQH	PSDDWK+5~*
Y	ASKD+5, ASKD+7, ASKD+8, ASKM+3, END+3!, REQ+4, SET+12, SET+13, SET+18*
Y(0	ASKD+7

Customize PDF page

Package: Controlled Substances

Routine: PSDDWK

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: