Routine: PSGWPL1

Information

PSGWPL1 ;BHAM ISC/MPH,CML-Print AOU Inventory Pick List - CONTINUED ; 17 Jun 93 / 10:39 AM

Source file <PSGWPL1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AOU INVENTORY GROUP MISSING" Line Location: PSGWPL1+3
Function Call: WRITE	Prompt: !,?17,PSGDL1 Line Location: PSGDL1+0
Function Call: WRITE	Prompt: " ",$P(^PSI(58.17,EXP,0),"^",3) Condition for execution: EXP>0 Line Location: PSGDL1+0
Function Call: WRITE	Prompt: ?52,$P(^PSI(58.1,PSGDA,0),"^",1),?73,$J(+^TMP("PSGWDL",$J,PSGDL1,PSGDL2,PSGDL3,PSGDR,PSGDA),3),! Line Location: PSGDA+1
Function Call: WRITE	Prompt: ?73,$J(+^TMP("PSGWDL",$J,PSGDL1,PSGDL2,PSGDL3,PSGDR),3),?90,"______" Line Location: PSGDA+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDGP+1
Function Call: WRITE	Prompt: !,"WARD STOCK PHARMACY PICK LIST FOR " Line Location: HDGP+1
Function Call: WRITE	Prompt: ?35,Y," INVENTORY # ",PSGWIDA,?99,PSGTODAY,?120,"PAGE ",PSGPAGE Line Location: HDGP+1
Function Call: WRITE	Prompt: !,"GROUP: " Line Location: HDGP+2
Function Call: WRITE	Prompt: !,?10,"ITEM",?75,"TO BE",?90,"QUANTITY",!,?73,"DISPENSED",?91,"PICKED",! Line Location: HDGP+3
Function Call: WRITE	Prompt: "-" Line Location: HDGP+4