Routine: PSGWATR1

Information

PSGWATR1 ;BHAM ISC/CML-Print Item Activity Inquiry (80 column) ; 23 Mar 93 / 12:44 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !?15," THERE IS NO INVENTORY DATA FOR THIS DATE RANGE " Line Location: INV+1
Function Call: WRITE	Prompt: !?15,"ID #",+NODE," - " Line Location: INV+2
Function Call: WRITE	Prompt: Y,?60,$J($P(NODE,"^",2),7) Line Location: INV+2
Function Call: WRITE	Prompt: !?15," THERE IS NO ON-DEMAND DATA FOR THIS DATE RANGE " Line Location: OND+1
Function Call: WRITE	Prompt: !?17,Y,?60,$J(QD,7) Line Location: OND+2
Function Call: WRITE	Prompt: !?15," THERE IS NO RETURNS DATA FOR THIS DATE RANGE " Line Location: RET+1
Function Call: WRITE	Prompt: !?17,Y,?60,$J(QD,7) Line Location: RET+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,"ITEM ACTIVITY INQUIRY for period ",HBDT," to ",HEDT,?72,"Page: ",PG,!,"Printed ",HDT,!!,"AOU : ",$P(^PSI(58.1,AOU,0),"^"),!,"ITEM: ",$P(^PSDRUG(DRGDA,0),"^"),!,LN Line Location: HDR+1
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRTCHK+1
Function Call: WRITE	Prompt: !,"INVENTORIES:",!!?15,"ID # - DATE/TIME FOR INVENTORY",?55,"QUANTITY DISPENSED",!?15,LN2 Line Location: IHDR+1
Function Call: WRITE	Prompt: !,"ON-DEMAND REQUESTS:",!!?15,"ON-DEMAND REQUEST DATE/TIME",?55,"QUANTITY DISPENSED",!?15,LN2 Line Location: OHDR+1
Function Call: WRITE	Prompt: !,"RETURNS:",!!?15,"RETURN DATE/TIME",?55,"QUANTITY RETURNED",!?15,LN2 Line Location: RHDR+1