Routine: PSDRWK

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC Y^DIQ ^DIR ^DIWP ^DIWW
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	1	^PSDSET

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC Y^DIQ ^DIR ^DIWP ^DIWW

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD REPRINT WORKSHEET

Package

Total

Caller Graph

Controlled Substances

PSD REPRINT WORKSHEET

Name	Comments	DBIA/ICR reference
END
HDR	;lists header information
START	;entry for reprint
DEV	;ask device and queue info
ASKD	;ask disp location
DONE
CHKD
SAVE

Name	Field # of Occurrence
NOW^%DTC	START+1
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+1
^%ZTLOAD	DEV+4
^DIC	ASKD+4
Y^DIQ	DEV+2
^DIR	DONE+1, HDR+1
^DIWP	START+13
^DIWW	START+14
^PSDSET	PSDRWK+10

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: PSDRWK+12
Function Call: WRITE	Prompt: !!,"=> This report reprints a worksheet listing of all pending CS requests for a",!," dispensing site.",!! Line Location: PSDRWK+13
Function Call: WRITE	Prompt: $C(7),!!,"There are no pending request orders.",!! Line Location: PSDRWK+14
Function Call: WRITE	Prompt: ! Line Location: ASKD+3
Function Call: WRITE	Prompt: !!,"There are no pending CS requests for "_PSDSN_".",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+3
Function Call: WRITE	Prompt: !!,?45,"** NO REQUESTS PREVIOUSLY PRINTED FOR THIS DISPENSING LOCATION **" Line Location: START+9
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?40,"PHARMACY DISPENSING WORKSHEET (Reprint)",!!,"Dispensing Location: ",PSDSN,?65,RPDT,?105,"PG "_PG,!! Line Location: HDR+2
Function Call: WRITE	Prompt: "WS #",?10,"DRUG",?50,"QUANTITY",?60,"DISPENSE TO",!,?12,"COMMENTS",?50,"ORDERED",?60,"LOCATION",?102,"ORDERED BY",!,LN,! Line Location: HDR+3
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIC Line Location: ASKD+4
Routine Call	DIR Line Location: DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+1
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	ASKD+2, DEV+2, START+4
^PSD(58.85 - [#58.85]	PSDRWK+14, CHKD, START+2, START+3, START+7, START+12, START+13
^PSDRUG - [#50]	START+5
^UTILITY($J	START+13!
^VA(200 - [#200]	START+6
^XUSEC("PSJ PHARM TECH"	PSDRWK+11
^XUSEC("PSJ RPHARM"	PSDRWK+11

Name	Line Occurrences
CHKD	ASKD+2
END	ASKD+4, CHKD, DEV+3, DEV+4
HDR	START+1, START+10
SAVE	DEV+4

Name	Field # of Occurrence
^(0	START+2, START+4, START+5, START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1, END!
%H	END!
%I	END!
%ZIS	DEV+3!*, END!
%ZIS("B"	DEV+3*
C	DEV+2*, END!
CNT	START+1, START+3, START+9, END!
COMM	START+7*, START+13, START+14, END!
DA	ASKD+3!, END!, HDR+1!
DIC	ASKD+3!*, ASKD+4!, END!
DIC("A"	ASKD+3*
DIC("B"	ASKD+3*
DIC("S"	ASKD+3*
DIC(0	ASKD+3*
DIR	DONE+1!, END!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END!
DIRUT	DONE+1!, END!
DIWF	START+13*, END!
DIWL	START+13*, END!
DIWR	START+13*, END!
DRUG	START+5*, END!
DRUGN	START+5*, START+11, END!
DTOUT	END!
DUOUT	END!
DUZ	PSDRWK+11
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!, END!
IOF	DONE, HDR+2
IOP	DEV+3!
IOSL	START+10
IOST	DONE, DONE+1, HDR+1
JJ	START+2*, END!
LN	START+1!*, END!, HDR+3
NODE	START+3*, START+5, START+6, END!
OK	PSDRWK+11*, PSDRWK+12!, PSDRWK+14!, END!
ORD	START+6*, END!
ORDN	START+6*, START+11, END!
PG	START+1, END+1!, HDR+1, HDR+2
POP	DEV+3!, END+1!
PSD	START+2*, START+3, START+7, START+11, START+12, START+13, END+1!
PSDEV	DEV+2*, DEV+3, END+1!
PSDN	START+2*, START+4, END+1!
PSDNA	START+4*, START+11, END+1!
PSDOUT	START+1, START+2, START+9, START+10, DONE+1, END+1!, HDR+1*
PSDS	ASKD+1, ASKD+2, ASKD+5*, CHKD, DEV+2, START+2, END+1!
>> PSDSITE	PSDRWK+10, ASKD+1, ASKD+2, ASKD+3, ASKD+6*
PSDSN	ASKD+1, ASKD+5, ASKD+6, CHKD, END+1!, HDR+2
QTY	START+6*, START+11, END+1!
RPDT	START+1*, END+1!, HDR+2
TEXT	START+13*, END+1!
U	ASKD+1, ASKD+2, ASKD+3, ASKD+6, START+12
WK	START+3*, START+11, END+1!
X	START+13*, END+1!
Y	ASKD+4, ASKD+5, ASKD+6, DEV+2, START+1, END+1!, HDR+1
Y(0	ASKD+5
ZTDESC	DEV+4*, END+1!
ZTDTH	DEV+4!, END+1!
ZTIO	DEV+4!, END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+4*, END+1!
ZTSAVE	DEV+4!, END+1!
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDSITE"	SAVE*
ZTSAVE("PSDSN"	SAVE*
ZTSK	DEV+4!, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDRWK

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: