Routine: PSDRDR

Information

PSDRDR ;BIR/BJW-Narc Disp/Rec Report (reprint VA FORM 10-2321) ; 12 Feb 98

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	4	^%DT (,IX)^DIC (D,Y)^DIQ ^DIR
Controlled Substances	3	START^PSDRDR1 TYPE^PSDRPT ^PSDSET
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

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 REPRINT 2321

Entry Points

Name	Comments	DBIA/ICR reference
ASKD	;ask dispensing location
SUM	;if ret-to-stock or turn in for dest
COPY	;ask vault, nursing or both
ASKN	;ask naou or green sheet number
NAOU	;sel naou
DATE	;asks date range if naou is selected
DEV	;ask device and queue info
END
SAVE

External References

Name	Field # of Occurrence
^%DT	DATE+2, DATE+3
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+2
^%ZTLOAD	DEV+4
^DIC	ASKD+5, NAOU+2
IX^DIC	ASKN+4
D^DIQ	DATE+3, DATE+5
Y^DIQ	DEV+2
^DIR	SUM+3, COPY+4, ASKN+3
START^PSDRDR1	DEV+5
TYPE^PSDRPT	SUM+3
^PSDSET	PSDRDR+5

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: PSDRDR+7
Function Call: WRITE	Prompt: ! Line Location: SUM+1
Function Call: WRITE	Prompt: !,"No report will be printed.",! Line Location: COPY+5
Function Call: WRITE	Prompt: ! Line Location: ASKN+4
Function Call: WRITE	Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!! Line Location: NAOU+1
Function Call: WRITE	Prompt: !!,"Please enter the DATE and TIME period you wish to reprint data for this report",! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+4
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 NAOU+2
Routine Call	DIC Line Location: ASKN+4
Routine Call	DIR Line Location: SUM+3 COPY+4 ASKN+3
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]	NAOU+4, DEV+2
^TMP("PSDRDR"	END+2!
^XUSEC("PSD TECH ADV"	PSDRDR+6
^XUSEC("PSJ PHARM TECH"	PSDRDR+6
^XUSEC("PSJ RPHARM"	PSDRDR+6

Label References

Name	Line Occurrences
DATE	DATE+4
DEV	ASKN+4
END	ASKD+5, SUM+3, COPY+5, ASKN+3, ASKN+4, NAOU+3, DATE+2, DATE+3, DEV+3, DEV+4
SAVE	DEV+4
SUM	ASKD+2

Naked Globals

Name	Field # of Occurrence
^(0	NAOU+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	DATE+2!*
%DT("A"	DATE+2, DATE+3
%H	END!
%I	END!
%ZIS	DEV+3!*, END!
%ZIS("B"	DEV+3*
C	DEV+2*, END!
COMM	END!
COPY	END!
D	ASKN+4*, END!
DA	ASKD+3!, SUM+1!, COPY+1!, ASKN+1!, ASKN+4!, END!
DIC	ASKD+3!, ASKD+5!, ASKN+4!, NAOU+2*!, END!
DIC("A"	ASKD+4, ASKN+4, NAOU+2*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, ASKN+4, NAOU+2*
DIC(0	ASKD+3, ASKN+4, NAOU+2*
DIR	SUM+1!, SUM+3!, COPY+1!, COPY+4!, ASKN+1!, ASKN+3!, END!
DIR("?"	SUM+2, COPY+3, ASKN+2*
DIR("A"	SUM+1, COPY+2, ASKN+1*
DIR("B"	SUM+1*
DIR(0	SUM+1, COPY+1, ASKN+1*
DIROUT	END!
DIRUT	SUM+1!, SUM+3, COPY+1!, COPY+5, ASKN+1!, ASKN+3, END!
DIWF	END!
DIWL	END!
DIWR	END!
DRUG	END!
DRUGN	END!
DTOUT	END!
DUOUT	END!
DUZ	PSDRDR+6
EXP	END!
EXPD	END!
FLAG	END!
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOP	DEV+3!
LN	END!
LOOP	END!
LOT	END!
MFG	END!
NAOU	NAOU+3, END!, SAVE+1
NAOU(	NAOU+2, NAOU+4
NAOUN	END!
NODE	END!
NUM	END!
OK	PSDRDR+6*, PSDRDR+7!, END!
ORD	END!
ORDN	END!
PG	END+1!
PHARM	END+1!
PHARMN	END+1!
POP	DEV+3!
PSD	NAOU+4*, END+1!
PSDA	ASKN+4*, END+1!, SAVE+1
PSDATE	DATE+3, DATE+5, END+1!
PSDCPY	COPY+6*, END+1!
PSDDT	END+1!
PSDED	DATE+5*, END+1!
PSDEV	DEV+2*, DEV+3, END+1!
PSDN	END+1!
PSDNA	END+1!
PSDOUT	DATE+2, DATE+3, END+1!
PSDS	ASKD+1, ASKD+6, NAOU+4, DEV+2, END+1!
PSDSD	DATE+3, DATE+4, DATE+5, END+1!
>> PSDSITE	PSDRDR+5, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN	ASKD+1, ASKD+6, END+1!
PSDST	END+1!
QTY	END+1!
REC	END+1!
RECN	END+1!
REQD	END+1!
REQDT	END+1!
RPDT	END+1!
SEL	ASKN+3*, ASKN+4, END+1!
SUM	SUM+3*, END+1!
TEXT	END+1!
U	ASKD+1, ASKD+2, ASKD+4, ASKD+6
X	NAOU+3, NAOU+4, END+1!
Y	ASKD+5, ASKD+6, SUM+3, COPY+6, ASKN+3, ASKN+4, NAOU+2, DATE+2, DATE+3, DATE+4 , DATE+5, DEV+2*, END+1!
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("NAOU("	SAVE+1*
ZTSAVE("PSDA"	SAVE+1*
ZTSAVE("PSDATE"	SAVE*
ZTSAVE("PSDCPY"	SAVE*
ZTSAVE("PSDED"	SAVE*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDSD"	SAVE*
ZTSAVE("PSDSN"	SAVE*
ZTSK	DEV+4!, END+1!

Customize PDF page

Package: Controlled Substances