Routine: PSDEXP1

Information

PSDEXP1 ;BIR/JPW-CS Drug Expiration Date Report (cont'd) ; 2 Aug 94

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

Package	Total	Caller Graph
Controlled Substances	1	PSDEXP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?15,"** NO DRUG EXPIRATION DATA FOR THIS REPORT **" Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"=> ",Y Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?12,PSD1 Line Location: PRINT+6
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: HDR+2
Function Call: WRITE	Prompt: !,?27,"CS DRUG EXPIRATION DATE REPORT",?70,"Page: ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?22,"FOR PERIOD ",$P(PSDATE,"^")," TO ",$P(PSDATE,"^",2) Line Location: HDR+3
Function Call: WRITE	Prompt: !,?27,"PRINTED ",RPDT,!!,"=> DATE",!,?12 Line Location: HDR+4
Function Call: WRITE	Prompt: "DRUG",!,?14,"DISP #",?25,"NAOU",!,LN Line Location: HDR+5
Function Call: WRITE	Prompt: "NAOU",!,?14,"DISP #",?25,"ITEM",!,LN Line Location: HDR+6
Routine Call	DIR Line Location: DONE+1 HDR+1

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

Name	Line Occurrences
END	PRINT+4
HDR	PRINT+3, PRINT+5, PRINT+6, PRINT+7

Name	Field # of Occurrence
%	PRINT+2, END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
%ZIS	END+1!
ANS	END+1!, HDR+5
CNT	END+1!
DA	END+1!, HDR+1!
DIC	END+1!
DIR	DONE+1!, END+1!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DRUG	END+1!
DRUGN	END+1!
DTOUT	END+1!
DUOUT	END+1!
IO	PSDEXP1+2
IOF	DONE, HDR+2
IOSL	PRINT+5, PRINT+6, PRINT+7
IOST	DONE, DONE+1, HDR+1
JJ	END+1!
LN	PRINT+2!*, END+1!, HDR+5, HDR+6
NAOU	END+1!
NAOUN	END+1!
NODE	END+1!
OK	END+1!
ORD	END+1!
PG	PRINT+1, END+2!, HDR+1, HDR+2
POP	END+2!
PSD	PRINT+5*, PRINT+6, PRINT+7, END+2!
PSD1	PRINT+6*, PRINT+7, END+2!
PSD2	PRINT+7*, END+2!
PSD3	PRINT+7*, END+2!
PSDATE	END+2!, HDR+3
PSDED	END+2!
PSDIO	END+2!
PSDOUT	PRINT+1, PRINT+5, PRINT+6, PRINT+7, DONE+1, END+2!, HDR+1
PSDSD	END+2!
PSDT	END+2!
RPDT	PRINT+2*, END+2!, HDR+4
TYPE	END+2!
X	END+2!
Y	PRINT+2, PRINT+5, END+2!, HDR+1
ZTDESC	END+2!
ZTDTH	END+2!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	END+2!
ZTSAVE	END+2!
ZTSK	END+2!