Routine: PSGWODPR

Information

PSGWODPR ;BIR/PTD,CML-PRINT AN ON-DEMAND REPORT BY DATE/AOU - CONTINUED ;Oct 17, 2017@14:48

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO ON-DEMAND DATA FOR SELECTED DATE RANGE." Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"==> AREA OF USE: ",$P(^PSI(58.1,AOU,0),"^") Line Location: AOULP+0
Function Call: WRITE	Prompt: !?6,"Next Item LAST EDITED BY: ",$S($D(^VA(200,LEDUZ,0)):$P(^(0),"^"),1:"UNKNOWN") Line Location: DRLP+2
Function Call: WRITE	Prompt: " on ",Y Line Location: DRLP+2
Function Call: WRITE	Prompt: !?2,"Expiration Date: ",Y Line Location: DRLP+4
Function Call: WRITE	Prompt: ! Condition for execution: Y="" Line Location: DRLP+5
Function Call: WRITE	Prompt: ?30,"STOCK LEVEL: ",$G(^TMP("PSGWOD",$J,"ARCHSTOCK",ODT,AOU,EDUZ,ODTM,DRGNAME)) Line Location: DRLP+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,"ON DEMAND REQUEST LIST BY DATE",?50,"DATE: ",Y,?70,"PAGE: ",PGCT Line Location: HDR+1
Function Call: WRITE	Prompt: !,"FOR INVENTORY GROUP - ",$P(^PSI(58.2,IGDA,0),"^") Line Location: HDR+1
Function Call: WRITE	Prompt: !?36,"DT/TIME ORDERED",?56,"QTY",?62,"ORDER",! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRTCHK+1