PSGWI043 ; ; 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",608,25)
;;=PSGWPSI
;;^UTILITY(U,$J,"OPT",608,"U")
;;=PRINT AR/WS STOCK ITEM DATA (1
;;^UTILITY(U,$J,"OPT",742,0)
;;=PSGW INPUT AOU INP SITE^Identify AOU INPATIENT SITE^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",742,1,0)
;;=^^3^3^2890830^^^^
;;^UTILITY(U,$J,"OPT",742,1,1,0)
;;=This option will loop through the PHARMACY AOU STOCK file (#58.1) and
;;^UTILITY(U,$J,"OPT",742,1,2,0)
;;=locate any active AOU that does not have the INPATIENT SITE field
;;^UTILITY(U,$J,"OPT",742,1,3,0)
;;=defined.
;;^UTILITY(U,$J,"OPT",742,25)
;;=PSGWEDIS
;;^UTILITY(U,$J,"OPT",742,"U")
;;=IDENTIFY AOU INPATIENT SITE
;;^UTILITY(U,$J,"OPT",743,0)
;;=PSGW BACKORDER (ALL) PRINT^Current (ALL) Backorder Report (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",743,1,0)
;;=^^2^2^2890907^^^
;;^UTILITY(U,$J,"OPT",743,1,1,0)
;;=This option will print a list of ALL current backorders sorted by AOU or
;;^UTILITY(U,$J,"OPT",743,1,2,0)
;;=by ITEM.
;;^UTILITY(U,$J,"OPT",743,25)
;;=PSGWBOA
;;^UTILITY(U,$J,"OPT",743,"U")
;;=CURRENT (ALL) BACKORDER REPORT
;;^UTILITY(U,$J,"OPT",744,0)
;;=PSGW ITEM INQUIRY^Item Activity Inquiry (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",744,1,0)
;;=^^4^4^2890926^
;;^UTILITY(U,$J,"OPT",744,1,1,0)
;;=This option will display all activity (inventories, on-demands, and
;;^UTILITY(U,$J,"OPT",744,1,2,0)
;;=returns) for a specified item in a specified AOU for a specified date
;;^UTILITY(U,$J,"OPT",744,1,3,0)
;;=range. This option is primarily meant to be used as a tool to identify
;;^UTILITY(U,$J,"OPT",744,1,4,0)
;;=bad data input.
;;^UTILITY(U,$J,"OPT",744,25)
;;=PSGWATR
;;^UTILITY(U,$J,"OPT",744,"U")
;;=ITEM ACTIVITY INQUIRY (80 COLU
;;^UTILITY(U,$J,"OPT",745,0)
;;=PSGW EDIT INVENTORY USER^Edit 'Person Doing Inventory'^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",745,1,0)
;;=^^3^3^2910226^^
;;^UTILITY(U,$J,"OPT",745,1,1,0)
;;=This option will allow editing of the field PERSON DOING INVENTORY
;;^UTILITY(U,$J,"OPT",745,1,2,0)
;;=in the Pharmacy AOU Inventory file (#58.19) for a selected Date/Time for
;;^UTILITY(U,$J,"OPT",745,1,3,0)
;;=Inventory.
;;^UTILITY(U,$J,"OPT",745,25)
;;=PSGWPERE
;;^UTILITY(U,$J,"OPT",745,"U")
;;=EDIT 'PERSON DOING INVENTORY'
;;^UTILITY(U,$J,"OPT",816,0)
;;=PSGW EXP REPORT^Expiration Date Report (80 column)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",816,1,0)
;;=^^3^3^2901108^^
;;^UTILITY(U,$J,"OPT",816,1,1,0)
;;=This option will print an Expiration Date Report for a single, several,
;;^UTILITY(U,$J,"OPT",816,1,2,0)
;;=or ALL AOUs. For multiple AOUs it can be sorted by DATE/DRUG/AOU or
;;^UTILITY(U,$J,"OPT",816,1,3,0)
;;=by DATE/AOU/DRUG.
;;^UTILITY(U,$J,"OPT",816,25)
;;=PSGWEXR
;;^UTILITY(U,$J,"OPT",816,"U")
;;=EXPIRATION DATE REPORT (80 COL
;;^UTILITY(U,$J,"OPT",817,0)
;;=PSGW ADD/DEL WARD^Add/Delete Ward (for Item)^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",817,1,0)
;;=^^2^2^2930219^^^^
;;^UTILITY(U,$J,"OPT",817,1,1,0)
;;=This option will allow a user to add or delete a Ward (for Item) assignment
;;^UTILITY(U,$J,"OPT",817,1,2,0)
;;=for all stock items in one or more active AOUs.
;;^UTILITY(U,$J,"OPT",817,25)
;;=PSGWWRD
;;^UTILITY(U,$J,"OPT",817,"U")
;;=ADD/DELETE WARD (FOR ITEM)
;;^UTILITY(U,$J,"OPT",856,0)
;;=PSGW RE-INDEX AMIS^Re-index AMIS Cross-Reference^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",856,1,0)
;;=^^11^11^2930518^^^^
;;^UTILITY(U,$J,"OPT",856,1,1,0)
;;=This option will queue a background job that will re-index the "AMIS"
;;^UTILITY(U,$J,"OPT",856,1,2,0)
;;=cross-reference for inventories, on-demands, and returns. This cross-
;;^UTILITY(U,$J,"OPT",856,1,3,0)
;;=reference is important because this is where the nightly job to update
;;^UTILITY(U,$J,"OPT",856,1,4,0)
;;=the AR/WS Stats File (#58.5) gets the data for the update. If this cross-
;;^UTILITY(U,$J,"OPT",856,1,5,0)
;;=reference is somehow destroyed, it is very important to rebuild it.
;;^UTILITY(U,$J,"OPT",856,1,6,0)
;;=Though it is possible to accomplish this through VA FileMan, this option
;;^UTILITY(U,$J,"OPT",856,1,7,0)
;;=is a much quicker and easier alternative. This option is not tied to
PSGWI043 ; ; 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",608,25)
+2 ;;=PSGWPSI
+3 ;;^UTILITY(U,$J,"OPT",608,"U")
+4 ;;=PRINT AR/WS STOCK ITEM DATA (1
+5 ;;^UTILITY(U,$J,"OPT",742,0)
+6 ;;=PSGW INPUT AOU INP SITE^Identify AOU INPATIENT SITE^^R^^^^^^^^
+7 ;;^UTILITY(U,$J,"OPT",742,1,0)
+8 ;;=^^3^3^2890830^^^^
+9 ;;^UTILITY(U,$J,"OPT",742,1,1,0)
+10 ;;=This option will loop through the PHARMACY AOU STOCK file (#58.1) and
+11 ;;^UTILITY(U,$J,"OPT",742,1,2,0)
+12 ;;=locate any active AOU that does not have the INPATIENT SITE field
+13 ;;^UTILITY(U,$J,"OPT",742,1,3,0)
+14 ;;=defined.
+15 ;;^UTILITY(U,$J,"OPT",742,25)
+16 ;;=PSGWEDIS
+17 ;;^UTILITY(U,$J,"OPT",742,"U")
+18 ;;=IDENTIFY AOU INPATIENT SITE
+19 ;;^UTILITY(U,$J,"OPT",743,0)
+20 ;;=PSGW BACKORDER (ALL) PRINT^Current (ALL) Backorder Report (80 column)^^R^^^^^^^^
+21 ;;^UTILITY(U,$J,"OPT",743,1,0)
+22 ;;=^^2^2^2890907^^^
+23 ;;^UTILITY(U,$J,"OPT",743,1,1,0)
+24 ;;=This option will print a list of ALL current backorders sorted by AOU or
+25 ;;^UTILITY(U,$J,"OPT",743,1,2,0)
+26 ;;=by ITEM.
+27 ;;^UTILITY(U,$J,"OPT",743,25)
+28 ;;=PSGWBOA
+29 ;;^UTILITY(U,$J,"OPT",743,"U")
+30 ;;=CURRENT (ALL) BACKORDER REPORT
+31 ;;^UTILITY(U,$J,"OPT",744,0)
+32 ;;=PSGW ITEM INQUIRY^Item Activity Inquiry (80 column)^^R^^^^^^^^
+33 ;;^UTILITY(U,$J,"OPT",744,1,0)
+34 ;;=^^4^4^2890926^
+35 ;;^UTILITY(U,$J,"OPT",744,1,1,0)
+36 ;;=This option will display all activity (inventories, on-demands, and
+37 ;;^UTILITY(U,$J,"OPT",744,1,2,0)
+38 ;;=returns) for a specified item in a specified AOU for a specified date
+39 ;;^UTILITY(U,$J,"OPT",744,1,3,0)
+40 ;;=range. This option is primarily meant to be used as a tool to identify
+41 ;;^UTILITY(U,$J,"OPT",744,1,4,0)
+42 ;;=bad data input.
+43 ;;^UTILITY(U,$J,"OPT",744,25)
+44 ;;=PSGWATR
+45 ;;^UTILITY(U,$J,"OPT",744,"U")
+46 ;;=ITEM ACTIVITY INQUIRY (80 COLU
+47 ;;^UTILITY(U,$J,"OPT",745,0)
+48 ;;=PSGW EDIT INVENTORY USER^Edit 'Person Doing Inventory'^^R^^^^^^^^
+49 ;;^UTILITY(U,$J,"OPT",745,1,0)
+50 ;;=^^3^3^2910226^^
+51 ;;^UTILITY(U,$J,"OPT",745,1,1,0)
+52 ;;=This option will allow editing of the field PERSON DOING INVENTORY
+53 ;;^UTILITY(U,$J,"OPT",745,1,2,0)
+54 ;;=in the Pharmacy AOU Inventory file (#58.19) for a selected Date/Time for
+55 ;;^UTILITY(U,$J,"OPT",745,1,3,0)
+56 ;;=Inventory.
+57 ;;^UTILITY(U,$J,"OPT",745,25)
+58 ;;=PSGWPERE
+59 ;;^UTILITY(U,$J,"OPT",745,"U")
+60 ;;=EDIT 'PERSON DOING INVENTORY'
+61 ;;^UTILITY(U,$J,"OPT",816,0)
+62 ;;=PSGW EXP REPORT^Expiration Date Report (80 column)^^R^^^^^^^^
+63 ;;^UTILITY(U,$J,"OPT",816,1,0)
+64 ;;=^^3^3^2901108^^
+65 ;;^UTILITY(U,$J,"OPT",816,1,1,0)
+66 ;;=This option will print an Expiration Date Report for a single, several,
+67 ;;^UTILITY(U,$J,"OPT",816,1,2,0)
+68 ;;=or ALL AOUs. For multiple AOUs it can be sorted by DATE/DRUG/AOU or
+69 ;;^UTILITY(U,$J,"OPT",816,1,3,0)
+70 ;;=by DATE/AOU/DRUG.
+71 ;;^UTILITY(U,$J,"OPT",816,25)
+72 ;;=PSGWEXR
+73 ;;^UTILITY(U,$J,"OPT",816,"U")
+74 ;;=EXPIRATION DATE REPORT (80 COL
+75 ;;^UTILITY(U,$J,"OPT",817,0)
+76 ;;=PSGW ADD/DEL WARD^Add/Delete Ward (for Item)^^R^^^^^^^^
+77 ;;^UTILITY(U,$J,"OPT",817,1,0)
+78 ;;=^^2^2^2930219^^^^
+79 ;;^UTILITY(U,$J,"OPT",817,1,1,0)
+80 ;;=This option will allow a user to add or delete a Ward (for Item) assignment
+81 ;;^UTILITY(U,$J,"OPT",817,1,2,0)
+82 ;;=for all stock items in one or more active AOUs.
+83 ;;^UTILITY(U,$J,"OPT",817,25)
+84 ;;=PSGWWRD
+85 ;;^UTILITY(U,$J,"OPT",817,"U")
+86 ;;=ADD/DELETE WARD (FOR ITEM)
+87 ;;^UTILITY(U,$J,"OPT",856,0)
+88 ;;=PSGW RE-INDEX AMIS^Re-index AMIS Cross-Reference^^R^^^^^^^^
+89 ;;^UTILITY(U,$J,"OPT",856,1,0)
+90 ;;=^^11^11^2930518^^^^
+91 ;;^UTILITY(U,$J,"OPT",856,1,1,0)
+92 ;;=This option will queue a background job that will re-index the "AMIS"
+93 ;;^UTILITY(U,$J,"OPT",856,1,2,0)
+94 ;;=cross-reference for inventories, on-demands, and returns. This cross-
+95 ;;^UTILITY(U,$J,"OPT",856,1,3,0)
+96 ;;=reference is important because this is where the nightly job to update
+97 ;;^UTILITY(U,$J,"OPT",856,1,4,0)
+98 ;;=the AR/WS Stats File (#58.5) gets the data for the update. If this cross-
+99 ;;^UTILITY(U,$J,"OPT",856,1,5,0)
+100 ;;=reference is somehow destroyed, it is very important to rebuild it.
+101 ;;^UTILITY(U,$J,"OPT",856,1,6,0)
+102 ;;=Though it is possible to accomplish this through VA FileMan, this option
+103 ;;^UTILITY(U,$J,"OPT",856,1,7,0)
+104 ;;=is a much quicker and easier alternative. This option is not tied to
