Routine: PSDEXP1

Information

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

Source file <PSDEXP1.m>

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