Routine: PSGWEXR1

Information

PSGWEXR1 ;BHAM ISC/CML-Print Drug Expiration Date Report by Selected Date Range/AOU ; 23 Mar 93 / 12:51 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR THIS REPORT" Line Location: PRT+1
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"=> ",Y Line Location: W1+1
Function Call: WRITE	Prompt: ! Condition for execution: CNT>1 Line Location: W2+1
Function Call: WRITE	Prompt: !?12,P1 Line Location: W2+1
Function Call: WRITE	Prompt: !,?25,P2 Line Location: W3+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !?TAB,"DRUG EXPIRATION DATE REPORT" Line Location: HDR+1
Function Call: WRITE	Prompt: " for ",AOUNM Line Location: HDR+1
Function Call: WRITE	Prompt: ?70,"PAGE ",PG,!?22,"FOR PERIOD " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: "FOR INVENTORY GROUP - ",$P(^PSI(58.2,IGDA,0),"^"),! Line Location: HDR+3
Function Call: WRITE	Prompt: "=> DATE",!?12 Line Location: HDR+4
Function Call: WRITE	Prompt: "ITEM",!,LN Line Location: HDR+5
Function Call: WRITE	Prompt: "ITEM",!?25,"AOU",!,LN Line Location: HDR+6
Function Call: WRITE	Prompt: "AOU",!?25,"ITEM",!,LN Line Location: HDR+7
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRTCHK+1