PSGWI034 ; ; 04-JAN-1994
;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"OPT",167,"U")
;;=AUTO REPLENISHMENT REPORTS
;;^UTILITY(U,$J,"OPT",168,0)
;;=PSGW STOCK PERCENTAGE^Percentage Stock On Hand (132 column)^^R^^^^^^^^^^
;;^UTILITY(U,$J,"OPT",168,1,0)
;;=^^3^3^2931229^^^^
;;^UTILITY(U,$J,"OPT",168,1,1,0)
;;=Report which extracts inventory data by percentage of stock on hand
;;^UTILITY(U,$J,"OPT",168,1,2,0)
;;=for a given inventory date range. Percentage and date range can
;;^UTILITY(U,$J,"OPT",168,1,3,0)
;;=be specified.
;;^UTILITY(U,$J,"OPT",168,20)
;;=
;;^UTILITY(U,$J,"OPT",168,25)
;;=PSGWPERC
;;^UTILITY(U,$J,"OPT",168,"U")
;;=PERCENTAGE STOCK ON HAND (132
;;^UTILITY(U,$J,"OPT",169,0)
;;=PSGW AOU INV GROUP SORT^Sort AOUs in Group^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",169,1,0)
;;=^^3^3^2880114^^^^
;;^UTILITY(U,$J,"OPT",169,1,1,0)
;;=This option allows the user to change the order in which the AOUs within an
;;^UTILITY(U,$J,"OPT",169,1,2,0)
;;=inventory group will sort. AOUs should sort in the order that they will
;;^UTILITY(U,$J,"OPT",169,1,3,0)
;;=be visited.
;;^UTILITY(U,$J,"OPT",169,25)
;;=PSGWSIG
;;^UTILITY(U,$J,"OPT",169,"U")
;;=SORT AOUS IN GROUP
;;^UTILITY(U,$J,"OPT",170,0)
;;=PSGW INVENTORY PICK LIST^Pick List (132 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",170,1,0)
;;=^^2^2^2890427^^^^
;;^UTILITY(U,$J,"OPT",170,1,1,0)
;;= Prints the Inventory Pick list for the inventory specified by the user.
;;^UTILITY(U,$J,"OPT",170,1,2,0)
;;=
;;^UTILITY(U,$J,"OPT",170,25)
;;=PSGWPL
;;^UTILITY(U,$J,"OPT",170,"U")
;;=PICK LIST (132 COLUMN)
;;^UTILITY(U,$J,"OPT",171,0)
;;=PSGW INVENTORY DISPENSE^Enter/Edit Quantity Dispensed^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",171,1,0)
;;=^^5^5^2930609^^^^
;;^UTILITY(U,$J,"OPT",171,1,1,0)
;;= Allows the user to enter the actual quantity dispensed from the
;;^UTILITY(U,$J,"OPT",171,1,2,0)
;;= inventory pick list or from the inventory sheet depending on how
;;^UTILITY(U,$J,"OPT",171,1,3,0)
;;= the site parameters are set up. If the MERGE INV. SHEET AND PICK LIST
;;^UTILITY(U,$J,"OPT",171,1,4,0)
;;= site parameter is set to no, the quantity dispensed figure is then used
;;^UTILITY(U,$J,"OPT",171,1,5,0)
;;= to automatically compute the amount on backorder.
;;^UTILITY(U,$J,"OPT",171,25)
;;=PSGWBO
;;^UTILITY(U,$J,"OPT",171,"U")
;;=ENTER/EDIT QUANTITY DISPENSED
;;^UTILITY(U,$J,"OPT",172,0)
;;=PSGW BACKORDER ITEM PRINT^Single Item Report (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",172,1,0)
;;=^^1^1^2890719^^^^
;;^UTILITY(U,$J,"OPT",172,1,1,0)
;;= Prints a list of all backorders for a specific item.
;;^UTILITY(U,$J,"OPT",172,25)
;;=SINGLE^PSGWBOI
;;^UTILITY(U,$J,"OPT",172,"U")
;;=SINGLE ITEM REPORT (80 COLUMN)
;;^UTILITY(U,$J,"OPT",173,0)
;;=PSGW BACKORDER AOU PRINT^AOU Backorder Report (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",173,1,0)
;;=^^1^1^2910206^^^^
;;^UTILITY(U,$J,"OPT",173,1,1,0)
;;= Prints all items backordered for selected Areas of Use.
;;^UTILITY(U,$J,"OPT",173,25)
;;=PSGWBOS
;;^UTILITY(U,$J,"OPT",173,60)
;;=
;;^UTILITY(U,$J,"OPT",173,62)
;;=
;;^UTILITY(U,$J,"OPT",173,63)
;;=
;;^UTILITY(U,$J,"OPT",173,64)
;;=
;;^UTILITY(U,$J,"OPT",173,65)
;;=
;;^UTILITY(U,$J,"OPT",173,66)
;;=
;;^UTILITY(U,$J,"OPT",173,"U")
;;=AOU BACKORDER REPORT (80 COLUM
;;^UTILITY(U,$J,"OPT",174,0)
;;=PSGW ON-DEMAND^On-Demand Requests^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",174,1,0)
;;=^^1^1^2870902^^^^
;;^UTILITY(U,$J,"OPT",174,1,1,0)
;;= Menu giving access to the On-Demand options.
;;^UTILITY(U,$J,"OPT",174,10,0)
;;=^19.01PI^4^3
;;^UTILITY(U,$J,"OPT",174,10,2,0)
;;=178^^1
;;^UTILITY(U,$J,"OPT",174,10,2,"^")
;;=PSGW ON-DEMAND EDIT
;;^UTILITY(U,$J,"OPT",174,10,3,0)
;;=176^^5
;;^UTILITY(U,$J,"OPT",174,10,3,"^")
;;=PSGW ON-DEMAND DELETE
;;^UTILITY(U,$J,"OPT",174,10,4,0)
;;=177^^7
;;^UTILITY(U,$J,"OPT",174,10,4,"^")
;;=PSGW ON-DEMAND PRINT
;;^UTILITY(U,$J,"OPT",174,99)
;;=55612,32983
;;^UTILITY(U,$J,"OPT",174,"U")
;;=ON-DEMAND REQUESTS
;;^UTILITY(U,$J,"OPT",175,0)
;;=PSGW BACKORDER EDIT^Fill Requests for Backorder Items^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",175,1,0)
;;=^^3^3^2890630^^^^
PSGWI034 ; ; 04-JAN-1994
+1 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"OPT",167,"U")
+2 ;;=AUTO REPLENISHMENT REPORTS
+3 ;;^UTILITY(U,$J,"OPT",168,0)
+4 ;;=PSGW STOCK PERCENTAGE^Percentage Stock On Hand (132 column)^^R^^^^^^^^^^
+5 ;;^UTILITY(U,$J,"OPT",168,1,0)
+6 ;;=^^3^3^2931229^^^^
+7 ;;^UTILITY(U,$J,"OPT",168,1,1,0)
+8 ;;=Report which extracts inventory data by percentage of stock on hand
+9 ;;^UTILITY(U,$J,"OPT",168,1,2,0)
+10 ;;=for a given inventory date range. Percentage and date range can
+11 ;;^UTILITY(U,$J,"OPT",168,1,3,0)
+12 ;;=be specified.
+13 ;;^UTILITY(U,$J,"OPT",168,20)
+14 ;;=
+15 ;;^UTILITY(U,$J,"OPT",168,25)
+16 ;;=PSGWPERC
+17 ;;^UTILITY(U,$J,"OPT",168,"U")
+18 ;;=PERCENTAGE STOCK ON HAND (132
+19 ;;^UTILITY(U,$J,"OPT",169,0)
+20 ;;=PSGW AOU INV GROUP SORT^Sort AOUs in Group^^R^^^^^^^^
+21 ;;^UTILITY(U,$J,"OPT",169,1,0)
+22 ;;=^^3^3^2880114^^^^
+23 ;;^UTILITY(U,$J,"OPT",169,1,1,0)
+24 ;;=This option allows the user to change the order in which the AOUs within an
+25 ;;^UTILITY(U,$J,"OPT",169,1,2,0)
+26 ;;=inventory group will sort. AOUs should sort in the order that they will
+27 ;;^UTILITY(U,$J,"OPT",169,1,3,0)
+28 ;;=be visited.
+29 ;;^UTILITY(U,$J,"OPT",169,25)
+30 ;;=PSGWSIG
+31 ;;^UTILITY(U,$J,"OPT",169,"U")
+32 ;;=SORT AOUS IN GROUP
+33 ;;^UTILITY(U,$J,"OPT",170,0)
+34 ;;=PSGW INVENTORY PICK LIST^Pick List (132 column)^^R^^^^^^^^
+35 ;;^UTILITY(U,$J,"OPT",170,1,0)
+36 ;;=^^2^2^2890427^^^^
+37 ;;^UTILITY(U,$J,"OPT",170,1,1,0)
+38 ;;= Prints the Inventory Pick list for the inventory specified by the user.
+39 ;;^UTILITY(U,$J,"OPT",170,1,2,0)
+40 ;;=
+41 ;;^UTILITY(U,$J,"OPT",170,25)
+42 ;;=PSGWPL
+43 ;;^UTILITY(U,$J,"OPT",170,"U")
+44 ;;=PICK LIST (132 COLUMN)
+45 ;;^UTILITY(U,$J,"OPT",171,0)
+46 ;;=PSGW INVENTORY DISPENSE^Enter/Edit Quantity Dispensed^^R^^^^^^^^
+47 ;;^UTILITY(U,$J,"OPT",171,1,0)
+48 ;;=^^5^5^2930609^^^^
+49 ;;^UTILITY(U,$J,"OPT",171,1,1,0)
+50 ;;= Allows the user to enter the actual quantity dispensed from the
+51 ;;^UTILITY(U,$J,"OPT",171,1,2,0)
+52 ;;= inventory pick list or from the inventory sheet depending on how
+53 ;;^UTILITY(U,$J,"OPT",171,1,3,0)
+54 ;;= the site parameters are set up. If the MERGE INV. SHEET AND PICK LIST
+55 ;;^UTILITY(U,$J,"OPT",171,1,4,0)
+56 ;;= site parameter is set to no, the quantity dispensed figure is then used
+57 ;;^UTILITY(U,$J,"OPT",171,1,5,0)
+58 ;;= to automatically compute the amount on backorder.
+59 ;;^UTILITY(U,$J,"OPT",171,25)
+60 ;;=PSGWBO
+61 ;;^UTILITY(U,$J,"OPT",171,"U")
+62 ;;=ENTER/EDIT QUANTITY DISPENSED
+63 ;;^UTILITY(U,$J,"OPT",172,0)
+64 ;;=PSGW BACKORDER ITEM PRINT^Single Item Report (80 column)^^R^^^^^^^^
+65 ;;^UTILITY(U,$J,"OPT",172,1,0)
+66 ;;=^^1^1^2890719^^^^
+67 ;;^UTILITY(U,$J,"OPT",172,1,1,0)
+68 ;;= Prints a list of all backorders for a specific item.
+69 ;;^UTILITY(U,$J,"OPT",172,25)
+70 ;;=SINGLE^PSGWBOI
+71 ;;^UTILITY(U,$J,"OPT",172,"U")
+72 ;;=SINGLE ITEM REPORT (80 COLUMN)
+73 ;;^UTILITY(U,$J,"OPT",173,0)
+74 ;;=PSGW BACKORDER AOU PRINT^AOU Backorder Report (80 column)^^R^^^^^^^^
+75 ;;^UTILITY(U,$J,"OPT",173,1,0)
+76 ;;=^^1^1^2910206^^^^
+77 ;;^UTILITY(U,$J,"OPT",173,1,1,0)
+78 ;;= Prints all items backordered for selected Areas of Use.
+79 ;;^UTILITY(U,$J,"OPT",173,25)
+80 ;;=PSGWBOS
+81 ;;^UTILITY(U,$J,"OPT",173,60)
+82 ;;=
+83 ;;^UTILITY(U,$J,"OPT",173,62)
+84 ;;=
+85 ;;^UTILITY(U,$J,"OPT",173,63)
+86 ;;=
+87 ;;^UTILITY(U,$J,"OPT",173,64)
+88 ;;=
+89 ;;^UTILITY(U,$J,"OPT",173,65)
+90 ;;=
+91 ;;^UTILITY(U,$J,"OPT",173,66)
+92 ;;=
+93 ;;^UTILITY(U,$J,"OPT",173,"U")
+94 ;;=AOU BACKORDER REPORT (80 COLUM
+95 ;;^UTILITY(U,$J,"OPT",174,0)
+96 ;;=PSGW ON-DEMAND^On-Demand Requests^^M^^^^^^^^
+97 ;;^UTILITY(U,$J,"OPT",174,1,0)
+98 ;;=^^1^1^2870902^^^^
+99 ;;^UTILITY(U,$J,"OPT",174,1,1,0)
+100 ;;= Menu giving access to the On-Demand options.
+101 ;;^UTILITY(U,$J,"OPT",174,10,0)
+102 ;;=^19.01PI^4^3
+103 ;;^UTILITY(U,$J,"OPT",174,10,2,0)
+104 ;;=178^^1
+105 ;;^UTILITY(U,$J,"OPT",174,10,2,"^")
+106 ;;=PSGW ON-DEMAND EDIT
+107 ;;^UTILITY(U,$J,"OPT",174,10,3,0)
+108 ;;=176^^5
+109 ;;^UTILITY(U,$J,"OPT",174,10,3,"^")
+110 ;;=PSGW ON-DEMAND DELETE
+111 ;;^UTILITY(U,$J,"OPT",174,10,4,0)
+112 ;;=177^^7
+113 ;;^UTILITY(U,$J,"OPT",174,10,4,"^")
+114 ;;=PSGW ON-DEMAND PRINT
+115 ;;^UTILITY(U,$J,"OPT",174,99)
+116 ;;=55612,32983
+117 ;;^UTILITY(U,$J,"OPT",174,"U")
+118 ;;=ON-DEMAND REQUESTS
+119 ;;^UTILITY(U,$J,"OPT",175,0)
+120 ;;=PSGW BACKORDER EDIT^Fill Requests for Backorder Items^^R^^^^^^^^
+121 ;;^UTILITY(U,$J,"OPT",175,1,0)
+122 ;;=^^3^3^2890630^^^^
