Routine: PSDGPR

Package	Total	Caller Graph
Controlled Substances	1	PSD NAOU INV GROUP PRINT

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
HDR	;HEADER
PRINT	;
DEV
ENQ	;ENTRY POINT WHEN QUEUED
WRTDATA	;DATA LINES
DONE
BUILD	;BUILD DATA ELEMENTS
INVG
SETGL	;
PAGE	;end of page check

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"This report shows data stored for NAOU Inventory Groups.",!!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!! Line Location: PSDGPR+4
Function Call: WRITE	Prompt: !,"You MUST create Inventory Groups before running this report!" Line Location: PSDGPR+5
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: !?17,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"=> ",GNM Line Location: PRINT+3
Function Call: WRITE	Prompt: !?13,$P(ANM,"^") Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: " * INACTIVE *" Line Location: WRTDATA+1
Function Call: WRITE	Prompt: !?18,TYPENM Line Location: WRTDATA+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !?28,"NAOU INVENTORY GROUP LIST",?71,"PAGE: ",PG,!?31,"PRINTED: ",HDT,!!,"=> INVENTORY GROUP",!?13,"NARCOTIC AREA OF USE",!?18,"TYPE",!,LN Line Location: HDR+1
Routine Call	DIR Line Location: DONE+1 PAGE+1
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^PSI(58.2 - [#58.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^PSD(58.8 - [#58.8]	SETGL+1, SETGL+2, SETGL+3
^PSI(58.16 - [#58.16]	SETGL+2
^PSI(58.2 - [#58.2]	PSDGPR+5, INVG, BUILD+1, BUILD+2, SETGL+2
^TMP("PSDGPR"	INVG!, SETGL+4*, PRTQUE+2!, PRINT+2, PRINT+3, QUIT+2!, WRTDATA+2

Name	Field # of Occurrence
%	PSDGPR+3, PSDGPR+5!, QUIT+1!
%DT	PRINT+1*, QUIT+1!
%H	PSDGPR+5!, QUIT+1!
%I	PSDGPR+5!, QUIT+1!
%ZIS	DEV!*
%ZIS("B"	DEV*
ANM	SETGL+2, SETGL+4, PRINT+1, PRINT+3*, QUIT+1!, WRTDATA+1, WRTDATA+2
ANS	QUIT+1!
DA	BUILD+1*, QUIT+1!, PAGE+1!
DIK	BUILD+1*!
DIR	DONE+1!, PAGE+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, PAGE+1
DIRUT	DONE+1!
DT	SETGL+3
DTOUT	QUIT+1!
GNM	SETGL+2, SETGL+4, PRINT+1, PRINT+3*, QUIT+1!, WRTDATA+2
HDT	PRINT+1*, QUIT+1!, HDR+1
INACT	SETGL+2, SETGL+3, SETGL+4, QUIT+1!
INVG	INVG*, BUILD+1, BUILD+2, SETGL+2, QUIT+1!
IO	DEV+3
IO("Q"	DEV+1!, QUIT+1!
IOF	DONE, HDR+1
ION	DEV+1
IOP	DEV!
IOSL	PRINT+3, WRTDATA+2
IOST	DONE, DONE+1, PAGE+1
LL	PRINT+3, QUIT+1!, WRTDATA+2
LN	PRINT+1!*, QUIT+1!, HDR+1
NAOU	BUILD+2*, SETGL+1, SETGL+2, SETGL+3, QUIT+1!
PG	PRINT+1, QUIT+1!, HDR+1
POP	DEV, QUIT+1!
PSDIO	DEV+1*, PRTQUE+1, QUIT+1!
PSDOUT	PRINT+1, PRINT+3, DONE+1, QUIT+1!, WRTDATA+2, PAGE+1
>> PSDSITE	PSDGPR+2, SETGL+1
PSDT	PSDGPR+3*, QUIT+1!
TYPE	BUILD+2*, SETGL+2, QUIT+1!
TYPENM	SETGL+2, SETGL+4, PRINT+1, QUIT+1!, WRTDATA+2*
X	PRINT+1*, QUIT+1!
Y	PRINT+1, QUIT+1!, PAGE+1
ZTDESC	DEV+1, PRTQUE+1, QUIT+1!
ZTDTH	DEV+1!, PRTQUE+1*
ZTIO	DEV+1, PRTQUE+1!, QUIT+1!
>> ZTQUEUED	INVG, QUIT+3
>> ZTREQ	QUIT+3*
ZTRTN	DEV+1, PRTQUE+1, QUIT+1!
ZTSAVE	DEV+1!, PRTQUE+1!
ZTSAVE("PSDIO"	DEV+1*
ZTSAVE("PSDSITE"	DEV+1*
ZTSAVE("PSDT"	DEV+1*
ZTSAVE("^TMP(""PSDGPR"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!, QUIT+1!