PSS187PO.m

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 ---PSS187PO   901     printed  Apr 09, 2024@21:32:04                                                                                                                                                                                                     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       ;