Routine: PSDPSTK1

Information

PSDPSTK1 ;BIR/JPW-Print Data for CS Drugs (cont'd) ; 2 Aug 94

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
Controlled Substances	1	PSDPSTK

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"=> ",$S(DRUG["ZZ/":"#"_$P(DRUG,"/",2)_" NAME MISSING",1:DRUG) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?4,NAOUN_" (NAOU INACTIVE AS OF "_DATEI_")",! Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"=> ",$S(DRUG["ZZ/":"#"_$P(DRUG,"/",2)_" NAME MISSING",1:DRUG) Line Location: PRINT+10
Function Call: WRITE	Prompt: WARDN,?101 Line Location: PRINT+11
Function Call: WRITE	Prompt: TYPEN,! Line Location: PRINT+11
Function Call: WRITE	Prompt: ?67 Line Location: PRINT+12
Function Call: WRITE	Prompt: WARDN,?101 Line Location: PRINT+12
Function Call: WRITE	Prompt: WARDN,?101 Line Location: PRINT+12
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: HEADER+2
Function Call: WRITE	Prompt: !,RPDT,?122,"PAGE: "_PG,!,?55,"DATA FOR CS STOCK DRUGS",!!,"=> DRUG",!,?57,"STOCK",!,?14,"NAOU",?45,"LOCATION",?57,"LEVEL",?67,"WARD (FOR DRUG)",?101,"TYPE",!,LN,! Line Location: HEADER+2
Routine Call	DIR Line Location: DONE+1 HEADER+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1, PRINT+6
^DIC(42 - [#42]	WARD+1
^PSD(58.8 - [#58.8]	PRINT+5
^PSI(58.16 - [#58.16]	TYPE+1
^TMP("PSDPSTK"	PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, END+2!

Name	Line Occurrences
END	PRINT+2
HEADER	PRINT+1, PRINT+3, PRINT+6, PRINT+10, PRINT+12
TYPE	PRINT+11, PRINT+12
WARD	PRINT+11, PRINT+12

Name	Field # of Occurrence
^(0	PRINT+5, WARD+1, TYPE+1

Name	Field # of Occurrence
%DT	PRINT+1*, END+1!
%ZIS	END+1!
CNT	PRINT+9*, PRINT+12, END+1!
CNTT	PRINT+9*, END+1!
CNTW	PRINT+9*, END+1!
DA	END+1!, HEADER+1!
DATEI	PRINT+6*, END+1!
DIK	END+1!
DIR	DONE+1!, END+1!, HEADER+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HEADER+1
DIRUT	DONE+1!, END+1!
DRUG	PRINT+3*, PRINT+4, PRINT+5, PRINT+8, PRINT+10, END+1!
DRUGN	END+1!
IOF	DONE, HEADER+2
IOSL	PRINT+3, PRINT+6, PRINT+10, PRINT+12
IOST	DONE, DONE+1, HEADER+1
JJ	PRINT+12*, END+1!
LN	PRINT+1!*, END+1!, HEADER+2
LOC	PRINT+7*, PRINT+11, END+1!
NAOU	PRINT+4*, PRINT+5, PRINT+8, END+1!
NAOUN	PRINT+5*, PRINT+6, PRINT+11, END+1!
NODE	PRINT+5*, PRINT+6, PRINT+7, END+1!
PG	PRINT+1, END+1!, HEADER+1, HEADER+2
POP	END+1!
PSDIO	END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+4, PRINT+6, PRINT+10, DONE+1, END+1!, HEADER+1
PSDT	END+1!
RPDT	PRINT+1*, END+1!, HEADER+2
STK	PRINT+7*, PRINT+11, END+1!
TYP	END+1!
TYPE	PRINT+7*, PRINT+9, PRINT+11, PRINT+12, END+1!
TYPEN	PRINT+11, PRINT+12, END+1!, TYPE+1, TYPE+2
WARD	PRINT+8*, PRINT+9, PRINT+11, PRINT+12, END+1!, WARD+2
WARDN	PRINT+11, PRINT+12, END+1!, WARD+1, WARD+2
WRD	END+1!
X	PRINT+1*, END+2!
Y	PRINT+1, PRINT+6*, END+2!, HEADER+1
ZTDESC	END+2!
ZTDTH	END+2!
ZTIO	END+2!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	END+2!
ZTSAVE	END+2!