Routine: PSDPMFG

Information

PSDPMFG ;BIR/JPW-Print Mfg/Lot #/Exp. Date for Stock Drugs ; 6 July 94

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	NOW^%DTC ^DIC ^DIR
Controlled Substances	2	PRINT^PSDPMFG1 ^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 MFG REPORT PRINT

Entry Points

Name	Comments	DBIA/ICR reference
ASKN	;ask NAOU(s)
DEV	;ask device and queueing information
START	;compile mfg/lot #/exp. date/narcotic breakdown unit/pkg data
PRTQUE	;queues print after data is compiled
END	;
SAVE	;save variables for queueing

External References

Name	Field # of Occurrence
NOW^%DTC	ASKN+1, START+4
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+2
^%ZTLOAD	DEV+3, PRTQUE+2
^DIC	ASKN+2
^DIR	ASKN+7
PRINT^PSDPMFG1	START+2
^PSDSET	PSDPMFG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"=> This report lists Manufacturer, Lot #, Expiration Date, and Narcotic ",!," Information for CS Stock Drugs.",! Line Location: PSDPMFG+3
Function Call: WRITE	Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!! Line Location: PSDPMFG+4
Function Call: WRITE	Prompt: !!,"You MUST create NAOUs before running this report!" Line Location: PSDPMFG+5
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+2
Routine Call	DIC Line Location: ASKN+2
Routine Call	DIR Line Location: ASKN+7
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+8
^PSD(58.8 - [#58.8]	PSDPMFG+5, ASKN+4, START+2, START+3, START+4
^PSDRUG - [#50]	START+5
^TMP("PSDPMFG"	START+1!, START+9, START+10, PRTQUE+2!, END+2!

Label References

Name	Line Occurrences
END	ASKN+3, ASKN+7, DEV+2, DEV+3
PRTQUE	START+2
SAVE	DEV+3

Naked Globals

Name	Field # of Occurrence
^("I"	ASKN+4
^(0	ASKN+4, START+3, START+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ANS	ASKN+7*, START+9, START+10, END+1!
BKU	START+8*, START+9, START+10, END+1!
CNT	ASKN+1, ASKN+2, ASKN+4*, START+9, START+10, END+1!
DA	ASKN+1!, ASKN+5!, END+1!
DIC	ASKN+1!, ASKN+2*!, END+1!
DIC("A"	ASKN+2*
DIC("B"	ASKN+1*
DIC("S"	ASKN+2*
DIC(0	ASKN+2*
DIK	END+1!
DIR	ASKN+5!, ASKN+7!, END+1!
DIR("?"	ASKN+6*
DIR("A"	ASKN+5, ASKN+7
DIR(0	ASKN+5*
DIROUT	END+1!
DIRUT	ASKN+5!, ASKN+7, END+1!
DRUG	START+2*, START+4, START+5, END+1!
DRUGN	START+5*, START+9, START+10, END+1!
DTOUT	END+1!
DUOUT	END+1!
EXP	START+7, START+8, START+9, START+10, END+1!
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!, END+1!
ION	DEV+3
IOP	DEV+2!
LOT	START+7*, START+9, START+10, END+1!
MFG	START+6*, START+9, START+10, END+1!
NAOU	ASKN+3, END+1!
NAOU(	ASKN+2, ASKN+4, START+2
NAOUN	START+3*, START+9, START+10, END+1!
NODE	START+4*, START+6, START+7, START+8, END+1!
PKG	START+8*, START+9, START+10, END+1!
POP	DEV+2!, END+1!
PSD	ASKN+4, START+2, START+3, START+4, END+1!
PSDIO	DEV+3*, PRTQUE+1, END+1!
>> PSDSITE	PSDPMFG+2, ASKN+1, ASKN+4
PSDT	ASKN+1*, ASKN+4, END+1!
U	ASKN+1
X	ASKN+1, ASKN+3, ASKN+4, START+4, END+2!
Y	ASKN+2, ASKN+7, START+8*, END+2!
ZTDESC	DEV+3, PRTQUE+1, END+2!
ZTDTH	DEV+3!, PRTQUE+1*, END+2!
ZTIO	DEV+3, PRTQUE+1!, END+2!
>> ZTQUEUED	START+2, END+3
>> ZTREQ	END+3*
ZTRTN	DEV+3, PRTQUE+1, END+2!
ZTSAVE	DEV+3!, PRTQUE+1!, END+2!
ZTSAVE("ANS"	PRTQUE+1, SAVE+1
ZTSAVE("CNT"	PRTQUE+1, SAVE+2
ZTSAVE("NAOU("	SAVE+2*
ZTSAVE("PSD"	SAVE+2*
ZTSAVE("PSDIO"	SAVE+1*
ZTSAVE("PSDSITE"	SAVE+1*
ZTSAVE("PSDT"	SAVE+1*
ZTSAVE("^TMP(""PSDPMFG"",$J,"	PRTQUE+1*
ZTSK	DEV+3!, PRTQUE+2!

Customize PDF page

Package: Controlled Substances