PSGWI044 ; ; 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",856,1,8,0)
;;=any menu, but may be hooked into a menu at the site's discretion.
;;^UTILITY(U,$J,"OPT",856,1,9,0)
;;=*** NOTE *** This option is CPU intensive and should be queued only in
;;^UTILITY(U,$J,"OPT",856,1,10,0)
;;=the "off" hours. Also, it should ONLY be run if there is strong evidence
;;^UTILITY(U,$J,"OPT",856,1,11,0)
;;=the "AMIS" cross-reference has been destroyed or corrupted.
;;^UTILITY(U,$J,"OPT",856,25)
;;=PSGWXREF
;;^UTILITY(U,$J,"OPT",856,"U")
;;=RE-INDEX AMIS CROSS-REFERENCE
;;^UTILITY(U,$J,"OPT",857,0)
;;=PSGW INVENTORY SINGLE^Single AOU Inventory Print (132 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",857,1,0)
;;=^^4^4^2930518^
;;^UTILITY(U,$J,"OPT",857,1,1,0)
;;=This option will print an inventory sheet for a single AOU that is
;;^UTILITY(U,$J,"OPT",857,1,2,0)
;;=included in the inventory date/time. This option is meant primarily
;;^UTILITY(U,$J,"OPT",857,1,3,0)
;;=to be used as a means of avoiding a reprint of a lengthy inventory
;;^UTILITY(U,$J,"OPT",857,1,4,0)
;;=sheet when there has been problem such as a printer jam.
;;^UTILITY(U,$J,"OPT",857,25)
;;=EN^PSGWPIS
;;^UTILITY(U,$J,"OPT",857,"U")
;;=SINGLE AOU INVENTORY PRINT (13
;;^UTILITY(U,$J,"OPT",1070,0)
;;=PSGW CRASH CART MENU^Crash Cart Menu^^M^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
;;^UTILITY(U,$J,"OPT",1070,1,0)
;;=^^1^1^2910528^
;;^UTILITY(U,$J,"OPT",1070,1,1,0)
;;=This menu contains the crash cart options for production.
;;^UTILITY(U,$J,"OPT",1070,10,0)
;;=^19.01PI^2^2
;;^UTILITY(U,$J,"OPT",1070,10,1,0)
;;=1071^^1
;;^UTILITY(U,$J,"OPT",1070,10,1,"^")
;;=PSGW CRASH CART LOCATION EDIT
;;^UTILITY(U,$J,"OPT",1070,10,2,0)
;;=1072^^5
;;^UTILITY(U,$J,"OPT",1070,10,2,"^")
;;=PSGW CRASH CART LOCATION PRINT
;;^UTILITY(U,$J,"OPT",1070,99)
;;=55612,32973
;;^UTILITY(U,$J,"OPT",1070,"U")
;;=CRASH CART MENU
;;^UTILITY(U,$J,"OPT",1071,0)
;;=PSGW CRASH CART LOCATION EDIT^Enter/Edit Crash Cart Locations^^R^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
;;^UTILITY(U,$J,"OPT",1071,1,0)
;;=^^2^2^2930514^
;;^UTILITY(U,$J,"OPT",1071,1,1,0)
;;=This option will allow users to edit the LOCATION field for AOUs that
;;^UTILITY(U,$J,"OPT",1071,1,2,0)
;;=are flagged as Crash Carts.
;;^UTILITY(U,$J,"OPT",1071,25)
;;=PSGWCCE
;;^UTILITY(U,$J,"OPT",1071,"U")
;;=ENTER/EDIT CRASH CART LOCATION
;;^UTILITY(U,$J,"OPT",1072,0)
;;=PSGW CRASH CART LOCATION PRINT^Print Crash Cart Locations^^R^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
;;^UTILITY(U,$J,"OPT",1072,1,0)
;;=^^2^2^2930514^
;;^UTILITY(U,$J,"OPT",1072,1,1,0)
;;=This option will print an 80 column report listing all AOUs that are
;;^UTILITY(U,$J,"OPT",1072,1,2,0)
;;=flagged as Crash Carts with their locations.
;;^UTILITY(U,$J,"OPT",1072,25)
;;=PSGWCCP
;;^UTILITY(U,$J,"OPT",1072,"U")
;;=PRINT CRASH CART LOCATIONS
;;^UTILITY(U,$J,"OPT",1314,0)
;;=PSGW DUPLICATE REPORT^Duplicate Entry Report (132 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1314,1,0)
;;=^^5^5^2930618^
;;^UTILITY(U,$J,"OPT",1314,1,1,0)
;;=
;;^UTILITY(U,$J,"OPT",1314,1,2,0)
;;=This 132 column report will display one or all drugs with duplicate
;;^UTILITY(U,$J,"OPT",1314,1,3,0)
;;=entries in the ITEM subfile (#58.11) of the PHARMACY AOU STOCK FILE
;;^UTILITY(U,$J,"OPT",1314,1,4,0)
;;=(#58.1). For each drug the report will show all inventory, return,
;;^UTILITY(U,$J,"OPT",1314,1,5,0)
;;=and on-demand data.
;;^UTILITY(U,$J,"OPT",1314,25)
;;=PSGWDUP
;;^UTILITY(U,$J,"OPT",1314,"U")
;;=DUPLICATE ENTRY REPORT (132 CO
;;^UTILITY(U,$J,"OPT",1315,0)
;;=PSGW ITEM LOC EDIT^Item Location Codes - Enter/Edit^^R^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
;;^UTILITY(U,$J,"OPT",1315,1,0)
;;=^^3^3^2930607^^^^
;;^UTILITY(U,$J,"OPT",1315,1,1,0)
;;=
;;^UTILITY(U,$J,"OPT",1315,1,2,0)
;;=Supports editing of codes used to define the location of items in Areas of
;;^UTILITY(U,$J,"OPT",1315,1,3,0)
;;=Use or in the pharmacy.
;;^UTILITY(U,$J,"OPT",1315,25)
;;=ITEMLOC^PSGWEE
;;^UTILITY(U,$J,"OPT",1315,"U")
;;=ITEM LOCATION CODES - ENTER/ED
;;^UTILITY(U,$J,"OPT",1316,0)
;;=PSGW STANDARD COST REPORT^Standard Cost Report (132 column)^^R^^^^^^^^
PSGWI044 ; ; 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",856,1,8,0)
+2 ;;=any menu, but may be hooked into a menu at the site's discretion.
+3 ;;^UTILITY(U,$J,"OPT",856,1,9,0)
+4 ;;=*** NOTE *** This option is CPU intensive and should be queued only in
+5 ;;^UTILITY(U,$J,"OPT",856,1,10,0)
+6 ;;=the "off" hours. Also, it should ONLY be run if there is strong evidence
+7 ;;^UTILITY(U,$J,"OPT",856,1,11,0)
+8 ;;=the "AMIS" cross-reference has been destroyed or corrupted.
+9 ;;^UTILITY(U,$J,"OPT",856,25)
+10 ;;=PSGWXREF
+11 ;;^UTILITY(U,$J,"OPT",856,"U")
+12 ;;=RE-INDEX AMIS CROSS-REFERENCE
+13 ;;^UTILITY(U,$J,"OPT",857,0)
+14 ;;=PSGW INVENTORY SINGLE^Single AOU Inventory Print (132 column)^^R^^^^^^^^
+15 ;;^UTILITY(U,$J,"OPT",857,1,0)
+16 ;;=^^4^4^2930518^
+17 ;;^UTILITY(U,$J,"OPT",857,1,1,0)
+18 ;;=This option will print an inventory sheet for a single AOU that is
+19 ;;^UTILITY(U,$J,"OPT",857,1,2,0)
+20 ;;=included in the inventory date/time. This option is meant primarily
+21 ;;^UTILITY(U,$J,"OPT",857,1,3,0)
+22 ;;=to be used as a means of avoiding a reprint of a lengthy inventory
+23 ;;^UTILITY(U,$J,"OPT",857,1,4,0)
+24 ;;=sheet when there has been problem such as a printer jam.
+25 ;;^UTILITY(U,$J,"OPT",857,25)
+26 ;;=EN^PSGWPIS
+27 ;;^UTILITY(U,$J,"OPT",857,"U")
+28 ;;=SINGLE AOU INVENTORY PRINT (13
+29 ;;^UTILITY(U,$J,"OPT",1070,0)
+30 ;;=PSGW CRASH CART MENU^Crash Cart Menu^^M^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
+31 ;;^UTILITY(U,$J,"OPT",1070,1,0)
+32 ;;=^^1^1^2910528^
+33 ;;^UTILITY(U,$J,"OPT",1070,1,1,0)
+34 ;;=This menu contains the crash cart options for production.
+35 ;;^UTILITY(U,$J,"OPT",1070,10,0)
+36 ;;=^19.01PI^2^2
+37 ;;^UTILITY(U,$J,"OPT",1070,10,1,0)
+38 ;;=1071^^1
+39 ;;^UTILITY(U,$J,"OPT",1070,10,1,"^")
+40 ;;=PSGW CRASH CART LOCATION EDIT
+41 ;;^UTILITY(U,$J,"OPT",1070,10,2,0)
+42 ;;=1072^^5
+43 ;;^UTILITY(U,$J,"OPT",1070,10,2,"^")
+44 ;;=PSGW CRASH CART LOCATION PRINT
+45 ;;^UTILITY(U,$J,"OPT",1070,99)
+46 ;;=55612,32973
+47 ;;^UTILITY(U,$J,"OPT",1070,"U")
+48 ;;=CRASH CART MENU
+49 ;;^UTILITY(U,$J,"OPT",1071,0)
+50 ;;=PSGW CRASH CART LOCATION EDIT^Enter/Edit Crash Cart Locations^^R^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
+51 ;;^UTILITY(U,$J,"OPT",1071,1,0)
+52 ;;=^^2^2^2930514^
+53 ;;^UTILITY(U,$J,"OPT",1071,1,1,0)
+54 ;;=This option will allow users to edit the LOCATION field for AOUs that
+55 ;;^UTILITY(U,$J,"OPT",1071,1,2,0)
+56 ;;=are flagged as Crash Carts.
+57 ;;^UTILITY(U,$J,"OPT",1071,25)
+58 ;;=PSGWCCE
+59 ;;^UTILITY(U,$J,"OPT",1071,"U")
+60 ;;=ENTER/EDIT CRASH CART LOCATION
+61 ;;^UTILITY(U,$J,"OPT",1072,0)
+62 ;;=PSGW CRASH CART LOCATION PRINT^Print Crash Cart Locations^^R^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
+63 ;;^UTILITY(U,$J,"OPT",1072,1,0)
+64 ;;=^^2^2^2930514^
+65 ;;^UTILITY(U,$J,"OPT",1072,1,1,0)
+66 ;;=This option will print an 80 column report listing all AOUs that are
+67 ;;^UTILITY(U,$J,"OPT",1072,1,2,0)
+68 ;;=flagged as Crash Carts with their locations.
+69 ;;^UTILITY(U,$J,"OPT",1072,25)
+70 ;;=PSGWCCP
+71 ;;^UTILITY(U,$J,"OPT",1072,"U")
+72 ;;=PRINT CRASH CART LOCATIONS
+73 ;;^UTILITY(U,$J,"OPT",1314,0)
+74 ;;=PSGW DUPLICATE REPORT^Duplicate Entry Report (132 column)^^R^^^^^^^^
+75 ;;^UTILITY(U,$J,"OPT",1314,1,0)
+76 ;;=^^5^5^2930618^
+77 ;;^UTILITY(U,$J,"OPT",1314,1,1,0)
+78 ;;=
+79 ;;^UTILITY(U,$J,"OPT",1314,1,2,0)
+80 ;;=This 132 column report will display one or all drugs with duplicate
+81 ;;^UTILITY(U,$J,"OPT",1314,1,3,0)
+82 ;;=entries in the ITEM subfile (#58.11) of the PHARMACY AOU STOCK FILE
+83 ;;^UTILITY(U,$J,"OPT",1314,1,4,0)
+84 ;;=(#58.1). For each drug the report will show all inventory, return,
+85 ;;^UTILITY(U,$J,"OPT",1314,1,5,0)
+86 ;;=and on-demand data.
+87 ;;^UTILITY(U,$J,"OPT",1314,25)
+88 ;;=PSGWDUP
+89 ;;^UTILITY(U,$J,"OPT",1314,"U")
+90 ;;=DUPLICATE ENTRY REPORT (132 CO
+91 ;;^UTILITY(U,$J,"OPT",1315,0)
+92 ;;=PSGW ITEM LOC EDIT^Item Location Codes - Enter/Edit^^R^^^^^^^^AUTO REPLENISHMENT/WARD STOCK
+93 ;;^UTILITY(U,$J,"OPT",1315,1,0)
+94 ;;=^^3^3^2930607^^^^
+95 ;;^UTILITY(U,$J,"OPT",1315,1,1,0)
+96 ;;=
+97 ;;^UTILITY(U,$J,"OPT",1315,1,2,0)
+98 ;;=Supports editing of codes used to define the location of items in Areas of
+99 ;;^UTILITY(U,$J,"OPT",1315,1,3,0)
+100 ;;=Use or in the pharmacy.
+101 ;;^UTILITY(U,$J,"OPT",1315,25)
+102 ;;=ITEMLOC^PSGWEE
+103 ;;^UTILITY(U,$J,"OPT",1315,"U")
+104 ;;=ITEM LOCATION CODES - ENTER/ED
+105 ;;^UTILITY(U,$J,"OPT",1316,0)
+106 ;;=PSGW STANDARD COST REPORT^Standard Cost Report (132 column)^^R^^^^^^^^
