Routine: PSDPMFG1

Information

PSDPMFG1 ;BIR/JPW-Print Mfg 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	PSDPMFG

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"=> ",$S(VAR1["ZZ/":"#"_$P(VAR1,"/",2)_" NAME MISSING",1:VAR1) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?4,VAR2N,?46,MFG,?80,LOT,?95,EXP,?110,BKU,?122,PKG Line Location: PRINT+7
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,!,?50,"MANUFACTURER and NARCOTIC INFORMATION",!,?60,"FOR CS STOCK DRUGS",!! Line Location: HEADER+2
Function Call: WRITE	Prompt: "=> ",$S(CNT=1:"NAOU",ANS="N":"NAOU",1:"DRUG"),?95,"EXPIRATION",?110,"BREAKDOWN",?122,"PACKAGE",!,?14,$S(CNT=1:"DRUG",ANS="N":"DRUG",1:"NAOU") Line Location: HEADER+3
Function Call: WRITE	Prompt: ?46,"MANUFACTURER",?80,"LOT #",?95,"DATE",?110,"UNIT",?122,"SIZE",!,LN,! Line Location: HEADER+4
Routine Call	DIR Line Location: DONE+1 HEADER+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^TMP("PSDPMFG"	PRINT+2, PRINT+3, PRINT+4, PRINT+5, END+2!

Name	Line Occurrences
END	PRINT+2
HEADER	PRINT+1, PRINT+3, PRINT+7

Name	Field # of Occurrence
%DT	PRINT+1*, END+1!
%ZIS	END+1!
ANS	END+1!, HEADER+3
BKU	PRINT+6*, PRINT+7, END+1!
CNT	END+1!, HEADER+3
DA	END+1!, HEADER+1!
DIK	END+1!
DIR	DONE+1!, END+1!, HEADER+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HEADER+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DRUG	END+1!
DRUGN	END+1!
DTOUT	END+1!
DUOUT	END+1!
EXP	PRINT+6*, PRINT+7, END+1!
IOF	DONE, HEADER+2
IOSL	PRINT+3, PRINT+7
IOST	DONE, DONE+1, HEADER+1
LN	PRINT+1!*, END+1!, HEADER+4
LOT	PRINT+6*, PRINT+7, END+1!
MFG	PRINT+6*, PRINT+7, END+1!
NAOU	END+1!
NAOUN	END+1!
NODE	PRINT+5*, PRINT+6, END+1!
PG	PRINT+1, END+1!, HEADER+1, HEADER+2
PKG	PRINT+6*, PRINT+7, END+1!
POP	END+1!
PSD	END+1!
PSDIO	END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+4, PRINT+7, DONE+1, END+1!, HEADER+1
PSDT	END+1!
RPDT	PRINT+1*, END+1!, HEADER+2
VAR1	PRINT+3*, PRINT+4, PRINT+5, END+2!
VAR2	PRINT+4*, PRINT+5, END+2!
VAR2N	PRINT+5*, PRINT+7, END+2!
X	PRINT+1*, END+2!
Y	PRINT+1, 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!