Routine: PSGWI034

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^^^^

PSGWI034.m