Routine: PSGWLSI2

Information

PSGWLSI2 ;BHAM ISC/PTD,CML-Print Stock Items in Alphabetical Order ; 30 Aug 93 / 10:15 AM

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"==> ",$P(^PSI(58.1,AOU,0),"^") Line Location: AOULP+0
Function Call: WRITE	Prompt: !?8,DRG,?55,$S($P(LOC,"^")'="":$P(LOC,"^"),1:"NOT LISTED"),?74,$S($P(LOC,"^",2)'="":$J($P(LOC,"^",2),6),1:"NOT LISTED") Line Location: DRLOOP+1
Function Call: WRITE	Prompt: ?119,$S(EXP:Y,1:"NOT LISTED") Line Location: DRLOOP+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue: " Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,"ALPHABETICAL LISTING OF AOU STOCK"," - DATE: ",Y,?121,"PAGE: ",PGCT Line Location: HDR+2
Function Call: WRITE	Prompt: !,"FOR INVENTORY GROUP - ",$P(^PSI(58.2,IGDA,0),"^") Line Location: HDR+2
Function Call: WRITE	Prompt: !!?2,"AREA OF USE",?104,"MINIMUM QTY",?119,"EXPIRATION",!?18,"ITEM",?57,"LOCATION",?72,"STOCK LEVEL",?87,"REORDER LEVEL",?104,"TO DISPENSE",?122,"DATE",!,LN Line Location: HDR+3