PSS187PO ;BIR/MA - Post install reindexing xrefs ;Dec 06, 2021@08:18:18
;;1.0;PHARMACY DATA MANAGEMENT;**187**;9/30/97;Build 27
Q
POST ;
D MES^XPDUTL("===================================================================")
D MES^XPDUTL("Start reindexing INDICATIONS FOR USE and OTHER LANGUAGE INDICATIONS")
D MES^XPDUTL("of PHARMACY ORDERABLE ITEM file (#50.7).")
D EN
D BMES^XPDUTL("Completed Reindexing ..............................................")
D MES^XPDUTL("===================================================================")
;
EN ;
K DIK,DA S DA(1)=0 F S DA(1)=$O(^PS(50.7,DA(1))) Q:'DA(1) D
. S DIK="^PS(50.7,"_DA(1)_","_"""IND"""_",",DIK(1)=".01" D ENALL2^DIK S DA="" D ENALL^DIK S DA=""
K DIK,DA S DA(1)=0 F S DA(1)=$O(^PS(50.7,DA(1))) Q:'DA(1) D
. S DIK="^PS(50.7,"_DA(1)_","_"""INDO"""_",",DIK(1)=".01" D ENALL2^DIK S DA="" D ENALL^DIK S DA=""
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS187PO 901 printed Nov 22, 2024@17:39:20 Page 2
PSS187PO ;BIR/MA - Post install reindexing xrefs ;Dec 06, 2021@08:18:18
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**187**;9/30/97;Build 27
+2 QUIT
POST ;
+1 DO MES^XPDUTL("===================================================================")
+2 DO MES^XPDUTL("Start reindexing INDICATIONS FOR USE and OTHER LANGUAGE INDICATIONS")
+3 DO MES^XPDUTL("of PHARMACY ORDERABLE ITEM file (#50.7).")
+4 DO EN
+5 DO BMES^XPDUTL("Completed Reindexing ..............................................")
+6 DO MES^XPDUTL("===================================================================")
+7 ;
EN ;
+1 KILL DIK,DA
SET DA(1)=0
FOR
SET DA(1)=$ORDER(^PS(50.7,DA(1)))
if 'DA(1)
QUIT
Begin DoDot:1
+2 SET DIK="^PS(50.7,"_DA(1)_","_"""IND"""_","
SET DIK(1)=".01"
DO ENALL2^DIK
SET DA=""
DO ENALL^DIK
SET DA=""
End DoDot:1
+3 KILL DIK,DA
SET DA(1)=0
FOR
SET DA(1)=$ORDER(^PS(50.7,DA(1)))
if 'DA(1)
QUIT
Begin DoDot:1
+4 SET DIK="^PS(50.7,"_DA(1)_","_"""INDO"""_","
SET DIK(1)=".01"
DO ENALL2^DIK
SET DA=""
DO ENALL^DIK
SET DA=""
End DoDot:1
+5 QUIT
+6 ;
