Routine: PSGWEXR2

Information

PSGWEXR2 ;BHAM ISC/CML-Print Drug Expiration Date Report by Selected Date Range/AOU for AOUs with Locations ; 23 Mar 93 / 12:52 PM

Source file <PSGWEXR2.m>

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: "/(",$P(^SC(LOC,0),"^"),")" Line Location: W2+1
Function Call: WRITE	Prompt: !,?25,P2 Line Location: W3+1
Function Call: WRITE	Prompt: "/(",$E($P(^SC(LOC,0),"^"),1,22),")" Line Location: W3+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !?26,"DRUG EXPIRATION DATE REPORT",?70,"PAGE ",PG Line Location: HDR+1
Function Call: WRITE	Prompt: !?TAB,"FOR ",AOUNM," (LOCATION - ",LOCNM,")" Line Location: HDR+1
Function Call: WRITE	Prompt: !?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/(LOCATION)",!,LN Line Location: HDR+6
Function Call: WRITE	Prompt: "AOU/(LOCATION)",!?25,"ITEM",!,LN Line Location: HDR+7
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRTCHK+1