Routine: PSDPDR

Information

PSDPDR ;BIR/BJW-Narc Disp/Rec Report (in lieu of VA FORM 10-2321) ; 09 FEB 95

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC ^DIC Y^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	2	START^PSDPDR1 ^PSDSET

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSD PRINT 2321

Entry Points

Name	Comments	DBIA/ICR reference
COPY	;ask vault, nursing or both
ASKD	;ask dispensing location
ASKN	;ask naou or group
DEV	;ask device and queue info
END
GROUP	;select group of naous
SAVE

External References

Name	Field # of Occurrence
NOW^%DTC	ASKN+4
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+2
^%ZTLOAD	DEV+4
^DIC	ASKD+5, ASKN+6, GROUP+1
Y^DIQ	DEV+2
^DIR	COPY+4, ASKN+4
START^PSDPDR1	DEV+5
^PSDSET	PSDPDR+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, PSJ PHARM TECH or PSD TECH ADV security key required.",! Line Location: PSDPDR+6
Function Call: WRITE	Prompt: !,"No report will be printed.",! Line Location: COPY+5
Function Call: WRITE	Prompt: !!,?5,"Select one of the following:",!!,?10,"N",?20,"NAOU (One, Some, or ^ALL)",!,?10,"G",?20,"Group of NAOUs",! Line Location: ASKN+1
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
Routine Call	DIC Line Location: ASKD+5 ASKN+6 GROUP+1
Routine Call	DIR Line Location: COPY+4 ASKN+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	DEV+2
^TMP("PSDRPT"	END+2!
^XUSEC("PSD TECH ADV"	PSDPDR+5
^XUSEC("PSJ PHARM TECH"	PSDPDR+5
^XUSEC("PSJ RPHARM"	PSDPDR+5

Label References

Name	Line Occurrences
ASKN	ASKD+2
DEV	ASKN+5
END	COPY+5, ASKD+5, ASKN+4, ASKN+5, ASKN+8, DEV+3, DEV+4
GROUP	ASKN+5
SAVE	DEV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKN+4, END!
%H	END!
%I	END!
%ZIS	DEV+3!*, END!
%ZIS("B"	DEV+3*
ALL	ASKN+9*, END!, SAVE
C	DEV+2*, END!
CNT	ASKN+4, ASKN+7, END!
COMM	END!
COPY	END!
DA	COPY+1!, ASKD+3!, ASKN+2!, ASKN+4!, END!, GROUP+1!
DIC	ASKD+3!, ASKD+5!, ASKN+4!, ASKN+6!, END!, GROUP+1!*
DIC("A"	ASKD+4, ASKN+6, GROUP+1*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, ASKN+6, GROUP+1*
DIC(0	ASKD+3, ASKN+6, GROUP+1*
DIE	END!
DIR	COPY+1!, COPY+4!, ASKN+2!, ASKN+4!, END!
DIR("?"	COPY+3, ASKN+3
DIR("A"	COPY+2, ASKN+2
DIR(0	COPY+1, ASKN+2
DIROUT	END!
DIRUT	COPY+1!, COPY+5, ASKN+2!, ASKN+4, END!
DR	END!
DTOUT	END!
DUOUT	END!
DUZ	PSDPDR+5
EXP	END!
EXPD	END!
FLAG	END!
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
ION	DEV+4
IOP	DEV+3!
LOT	END!
MFG	END!
NAOU	ASKN+8, END!, SAVE
NAOU(	ASKN+7*
NODE	END!
NUM	END!
OK	PSDPDR+5*, PSDPDR+6!, END+1!
ORD	END+1!
ORDN	END+1!
POP	DEV+3!, END+1!
PSD	END+1!
PSDA	END+1!
PSDCPY	COPY+6*, END+1!
PSDDT	END+1!
PSDEV	DEV+2*, DEV+3, END+1!
PSDG	ASKN+5, END+1!, SAVE
PSDG(	GROUP+1*
PSDIO	DEV+4*, END+1!
PSDN	END+1!
PSDNA	END+1!
PSDPT	ASKN+4*, END+1!
PSDR	END+1!
PSDRN	END+1!
PSDS	ASKD+1, ASKD+6, DEV+2, END+1!
>> PSDSITE	PSDPDR+4, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN	ASKD+1, ASKD+6, END+1!
PSDST	END+1!
PSDT	ASKN+4*, END+1!
QTY	END+1!
REQD	END+1!
REQDT	END+1!
SEL	ASKN+4*, ASKN+5, END+1!
STAT	END+1!
STATN	END+1!
U	ASKD+1, ASKD+2, ASKD+4, ASKD+6
X	ASKN+4, ASKN+8, ASKN+9, END+1!
Y	COPY+6, ASKD+5, ASKD+6, ASKN+4, ASKN+6, ASKN+7, DEV+2*, END+1!, GROUP+1
ZTDESC	DEV+4*, END+1!
ZTDTH	DEV+4!, END+1!
ZTIO	DEV+4*, END+1!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+4*, END+1!
ZTSAVE	DEV+4!, END+1!
ZTSAVE("ALL"	SAVE*
ZTSAVE("CNT"	SAVE*
ZTSAVE("NAOU("	SAVE*
ZTSAVE("PSDCPY"	SAVE*
ZTSAVE("PSDG("	SAVE*
ZTSAVE("PSDIO"	SAVE*
ZTSAVE("PSDPT"	SAVE*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDT"	SAVE*
ZTSK	DEV+4!, END+1!

Customize PDF page

Package: Controlled Substances