PSGWI036 ; ; 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",181,1,0)
;;=^^2^2^2930827^^^^
;;^UTILITY(U,$J,"OPT",181,1,1,0)
;;= Allows the user to initially define the Areas of Use, and the wards
;;^UTILITY(U,$J,"OPT",181,1,2,0)
;;= and services within the area.
;;^UTILITY(U,$J,"OPT",181,25)
;;=AOU^PSGWEE
;;^UTILITY(U,$J,"OPT",181,"U")
;;=CREATE THE AREA OF USE
;;^UTILITY(U,$J,"OPT",182,0)
;;=PSGW PURGE INVENTORY^Purge Old Inventories from PSI(58.19,AINV)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",182,1,0)
;;=3^^3^3^2930518^^
;;^UTILITY(U,$J,"OPT",182,1,1,0)
;;=This option purges the ^PSI(58.19,"AINV") global. Inventory information
;;^UTILITY(U,$J,"OPT",182,1,2,0)
;;=that is over 100 days old is removed. The program is automatically
;;^UTILITY(U,$J,"OPT",182,1,3,0)
;;=queued and is transparent to the users of the system.
;;^UTILITY(U,$J,"OPT",182,25)
;;=PSGWKINV
;;^UTILITY(U,$J,"OPT",182,200)
;;=2911012.23^^1D
;;^UTILITY(U,$J,"OPT",182,"U")
;;=PURGE OLD INVENTORIES FROM PSI
;;^UTILITY(U,$J,"OPT",183,0)
;;=PSGW BACKORDER IN^Enter Backorders^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",183,1,0)
;;=^^3^3^2890627^^^^
;;^UTILITY(U,$J,"OPT",183,1,1,0)
;;=Used to create backorders for items stocked in an AOU. User must
;;^UTILITY(U,$J,"OPT",183,1,2,0)
;;=enter item, AOU, inventory date, and current backorder (amount
;;^UTILITY(U,$J,"OPT",183,1,3,0)
;;=to back order).
;;^UTILITY(U,$J,"OPT",183,25)
;;=PSGWBOE
;;^UTILITY(U,$J,"OPT",183,30)
;;=
;;^UTILITY(U,$J,"OPT",183,31)
;;=
;;^UTILITY(U,$J,"OPT",183,50)
;;=
;;^UTILITY(U,$J,"OPT",183,51)
;;=
;;^UTILITY(U,$J,"OPT",183,"U")
;;=ENTER BACKORDERS
;;^UTILITY(U,$J,"OPT",184,0)
;;=PSGW RETURN ITEMS^Return Items for AOU^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",184,1,0)
;;=^^1^1^2930412^^^^
;;^UTILITY(U,$J,"OPT",184,1,1,0)
;;=Used to record items returned from an AOU.
;;^UTILITY(U,$J,"OPT",184,25)
;;=PSGWRI
;;^UTILITY(U,$J,"OPT",184,"U")
;;=RETURN ITEMS FOR AOU
;;^UTILITY(U,$J,"OPT",185,0)
;;=PSGW SITE^Site Parameters^^R^^PSGW PARAM^^^^^^
;;^UTILITY(U,$J,"OPT",185,1,0)
;;=^^4^4^2930602^^^^
;;^UTILITY(U,$J,"OPT",185,1,1,0)
;;=Allows user to set site parameters for Automatic Replenishment package.
;;^UTILITY(U,$J,"OPT",185,1,2,0)
;;=A site parameter called AR/WS AMIS FLAG controls WHEN the collection of
;;^UTILITY(U,$J,"OPT",185,1,3,0)
;;=AMIS data begins. Read all available documentation before setting this
;;^UTILITY(U,$J,"OPT",185,1,4,0)
;;=parameter!
;;^UTILITY(U,$J,"OPT",185,25)
;;=SITE^PSGWEE
;;^UTILITY(U,$J,"OPT",185,30)
;;=
;;^UTILITY(U,$J,"OPT",185,31)
;;=
;;^UTILITY(U,$J,"OPT",185,50)
;;=
;;^UTILITY(U,$J,"OPT",185,51)
;;=
;;^UTILITY(U,$J,"OPT",185,"U")
;;=SITE PARAMETERS
;;^UTILITY(U,$J,"OPT",186,0)
;;=PSGW LOOKUP ITEM^Ward/AOU List for an Item (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",186,1,0)
;;=^^3^3^2880328^^^
;;^UTILITY(U,$J,"OPT",186,1,1,0)
;;=This option prints a list of all the wards and their
;;^UTILITY(U,$J,"OPT",186,1,2,0)
;;=associated AOUs that stock a particular item. The
;;^UTILITY(U,$J,"OPT",186,1,3,0)
;;=user must specify the item to be looked up.
;;^UTILITY(U,$J,"OPT",186,25)
;;=PSGWVW
;;^UTILITY(U,$J,"OPT",186,"U")
;;=WARD/AOU LIST FOR AN ITEM (80
;;^UTILITY(U,$J,"OPT",187,0)
;;=PSGW USAGE REPORT^Usage Report for an Item (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",187,1,0)
;;=^^7^7^2900323^^^^
;;^UTILITY(U,$J,"OPT",187,1,1,0)
;;=This option prints a usage report for (1) a specific item
;;^UTILITY(U,$J,"OPT",187,1,2,0)
;;=in an AOU, (2) a specific item for all AOUs, (3) all items for an AOU,
;;^UTILITY(U,$J,"OPT",187,1,3,0)
;;=or (4) all items for all AOUs. The user must specify AOU, item name
;;^UTILITY(U,$J,"OPT",187,1,4,0)
;;=and the start and stop dates for the report. The report prints
;;^UTILITY(U,$J,"OPT",187,1,5,0)
;;=AOU, item, the date of inventory, total quantity dispensed,
;;^UTILITY(U,$J,"OPT",187,1,6,0)
;;=quantity dispensed by auto-replenishment, quantity dispensed
;;^UTILITY(U,$J,"OPT",187,1,7,0)
;;=by on-demand requests, and quantity returned.
;;^UTILITY(U,$J,"OPT",187,25)
;;=PSGWTOT
PSGWI036 ; ; 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",181,1,0)
+2 ;;=^^2^2^2930827^^^^
+3 ;;^UTILITY(U,$J,"OPT",181,1,1,0)
+4 ;;= Allows the user to initially define the Areas of Use, and the wards
+5 ;;^UTILITY(U,$J,"OPT",181,1,2,0)
+6 ;;= and services within the area.
+7 ;;^UTILITY(U,$J,"OPT",181,25)
+8 ;;=AOU^PSGWEE
+9 ;;^UTILITY(U,$J,"OPT",181,"U")
+10 ;;=CREATE THE AREA OF USE
+11 ;;^UTILITY(U,$J,"OPT",182,0)
+12 ;;=PSGW PURGE INVENTORY^Purge Old Inventories from PSI(58.19,AINV)^^R^^^^^^^^
+13 ;;^UTILITY(U,$J,"OPT",182,1,0)
+14 ;;=3^^3^3^2930518^^
+15 ;;^UTILITY(U,$J,"OPT",182,1,1,0)
+16 ;;=This option purges the ^PSI(58.19,"AINV") global. Inventory information
+17 ;;^UTILITY(U,$J,"OPT",182,1,2,0)
+18 ;;=that is over 100 days old is removed. The program is automatically
+19 ;;^UTILITY(U,$J,"OPT",182,1,3,0)
+20 ;;=queued and is transparent to the users of the system.
+21 ;;^UTILITY(U,$J,"OPT",182,25)
+22 ;;=PSGWKINV
+23 ;;^UTILITY(U,$J,"OPT",182,200)
+24 ;;=2911012.23^^1D
+25 ;;^UTILITY(U,$J,"OPT",182,"U")
+26 ;;=PURGE OLD INVENTORIES FROM PSI
+27 ;;^UTILITY(U,$J,"OPT",183,0)
+28 ;;=PSGW BACKORDER IN^Enter Backorders^^R^^^^^^^^
+29 ;;^UTILITY(U,$J,"OPT",183,1,0)
+30 ;;=^^3^3^2890627^^^^
+31 ;;^UTILITY(U,$J,"OPT",183,1,1,0)
+32 ;;=Used to create backorders for items stocked in an AOU. User must
+33 ;;^UTILITY(U,$J,"OPT",183,1,2,0)
+34 ;;=enter item, AOU, inventory date, and current backorder (amount
+35 ;;^UTILITY(U,$J,"OPT",183,1,3,0)
+36 ;;=to back order).
+37 ;;^UTILITY(U,$J,"OPT",183,25)
+38 ;;=PSGWBOE
+39 ;;^UTILITY(U,$J,"OPT",183,30)
+40 ;;=
+41 ;;^UTILITY(U,$J,"OPT",183,31)
+42 ;;=
+43 ;;^UTILITY(U,$J,"OPT",183,50)
+44 ;;=
+45 ;;^UTILITY(U,$J,"OPT",183,51)
+46 ;;=
+47 ;;^UTILITY(U,$J,"OPT",183,"U")
+48 ;;=ENTER BACKORDERS
+49 ;;^UTILITY(U,$J,"OPT",184,0)
+50 ;;=PSGW RETURN ITEMS^Return Items for AOU^^R^^^^^^^^
+51 ;;^UTILITY(U,$J,"OPT",184,1,0)
+52 ;;=^^1^1^2930412^^^^
+53 ;;^UTILITY(U,$J,"OPT",184,1,1,0)
+54 ;;=Used to record items returned from an AOU.
+55 ;;^UTILITY(U,$J,"OPT",184,25)
+56 ;;=PSGWRI
+57 ;;^UTILITY(U,$J,"OPT",184,"U")
+58 ;;=RETURN ITEMS FOR AOU
+59 ;;^UTILITY(U,$J,"OPT",185,0)
+60 ;;=PSGW SITE^Site Parameters^^R^^PSGW PARAM^^^^^^
+61 ;;^UTILITY(U,$J,"OPT",185,1,0)
+62 ;;=^^4^4^2930602^^^^
+63 ;;^UTILITY(U,$J,"OPT",185,1,1,0)
+64 ;;=Allows user to set site parameters for Automatic Replenishment package.
+65 ;;^UTILITY(U,$J,"OPT",185,1,2,0)
+66 ;;=A site parameter called AR/WS AMIS FLAG controls WHEN the collection of
+67 ;;^UTILITY(U,$J,"OPT",185,1,3,0)
+68 ;;=AMIS data begins. Read all available documentation before setting this
+69 ;;^UTILITY(U,$J,"OPT",185,1,4,0)
+70 ;;=parameter!
+71 ;;^UTILITY(U,$J,"OPT",185,25)
+72 ;;=SITE^PSGWEE
+73 ;;^UTILITY(U,$J,"OPT",185,30)
+74 ;;=
+75 ;;^UTILITY(U,$J,"OPT",185,31)
+76 ;;=
+77 ;;^UTILITY(U,$J,"OPT",185,50)
+78 ;;=
+79 ;;^UTILITY(U,$J,"OPT",185,51)
+80 ;;=
+81 ;;^UTILITY(U,$J,"OPT",185,"U")
+82 ;;=SITE PARAMETERS
+83 ;;^UTILITY(U,$J,"OPT",186,0)
+84 ;;=PSGW LOOKUP ITEM^Ward/AOU List for an Item (80 column)^^R^^^^^^^^
+85 ;;^UTILITY(U,$J,"OPT",186,1,0)
+86 ;;=^^3^3^2880328^^^
+87 ;;^UTILITY(U,$J,"OPT",186,1,1,0)
+88 ;;=This option prints a list of all the wards and their
+89 ;;^UTILITY(U,$J,"OPT",186,1,2,0)
+90 ;;=associated AOUs that stock a particular item. The
+91 ;;^UTILITY(U,$J,"OPT",186,1,3,0)
+92 ;;=user must specify the item to be looked up.
+93 ;;^UTILITY(U,$J,"OPT",186,25)
+94 ;;=PSGWVW
+95 ;;^UTILITY(U,$J,"OPT",186,"U")
+96 ;;=WARD/AOU LIST FOR AN ITEM (80
+97 ;;^UTILITY(U,$J,"OPT",187,0)
+98 ;;=PSGW USAGE REPORT^Usage Report for an Item (80 column)^^R^^^^^^^^
+99 ;;^UTILITY(U,$J,"OPT",187,1,0)
+100 ;;=^^7^7^2900323^^^^
+101 ;;^UTILITY(U,$J,"OPT",187,1,1,0)
+102 ;;=This option prints a usage report for (1) a specific item
+103 ;;^UTILITY(U,$J,"OPT",187,1,2,0)
+104 ;;=in an AOU, (2) a specific item for all AOUs, (3) all items for an AOU,
+105 ;;^UTILITY(U,$J,"OPT",187,1,3,0)
+106 ;;=or (4) all items for all AOUs. The user must specify AOU, item name
+107 ;;^UTILITY(U,$J,"OPT",187,1,4,0)
+108 ;;=and the start and stop dates for the report. The report prints
+109 ;;^UTILITY(U,$J,"OPT",187,1,5,0)
+110 ;;=AOU, item, the date of inventory, total quantity dispensed,
+111 ;;^UTILITY(U,$J,"OPT",187,1,6,0)
+112 ;;=quantity dispensed by auto-replenishment, quantity dispensed
+113 ;;^UTILITY(U,$J,"OPT",187,1,7,0)
+114 ;;=by on-demand requests, and quantity returned.
+115 ;;^UTILITY(U,$J,"OPT",187,25)
+116 ;;=PSGWTOT
