BQI26PRE.m

BQI26PRE ;GDHS/HCS/ALA-iCare Version 2.6 PreInstall ; 28 Oct 2016  3:01 PM

 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 ;;

 ;

EN ;EP

 NEW CODE,NM,DA,DIK,IEN,DIU

 S DIK="^BQI(90506.1,"

 F CODE="2014_" D

 . S NM=CODE

 . F  S NM=$O(^BQI(90506.1,"B",NM)) Q:NM=""!($E(NM,1,5)'=CODE)  D

 .. S IEN=$O(^BQI(90506.1,"B",NM,""))

 .. S DA=IEN D ^DIK

 ;

 S DIK="^BQI(90506,",DA=0

 F  S DA=$O(^BQI(90506,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BQI(90506.9,",DA=0

 F  S DA=$O(^BQI(90506.9,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BQI(90506.2,",DA=0

 F  S DA=$O(^BQI(90506.9,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BQI(90506.3,",DA=0

 F  S DA=$O(^BQI(90506.3,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BQI(90507.2,",DA=0

 F  S DA=$O(^BQI(90507.2,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BQI(90508.5,",DA=0

 F  S DA=$O(^BQI(90508.5,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BQI(90509.9,",DA=0

 F  S DA=$O(^BQI(90509.9,DA)) Q:'DA  D ^DIK

 ;

 ; Clean up Events Default template

 NEW DZ,DA,DIK

 S DZ=0

 F  S DZ=$O(^BQICARE(DZ)) Q:'DZ  D

 . S DA=$O(^BQICARE(DZ,15,"B","Events Default",""))

 . I DA'="" S DA(1)=DZ,DIK="^BQICARE("_DA(1)_",15," D ^DIK

 Q

BQI26PRE  ;GDHS/HCS/ALA-iCare Version 2.6 PreInstall ; 28 Oct 2016  3:01 PM

 +1       ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 +2       ;;

 +3       ;

EN        ;EP

 +1        NEW CODE,NM,DA,DIK,IEN,DIU

 +2        SET DIK="^BQI(90506.1,"

 +3        FOR CODE="2014_"

               Begin DoDot:1

 +4                SET NM=CODE

 +5                FOR 

                       SET NM=$ORDER(^BQI(90506.1,"B",NM))

                       IF NM=""!($EXTRACT(NM,1,5)'=CODE)

                           QUIT 

                       Begin DoDot:2

 +6                        SET IEN=$ORDER(^BQI(90506.1,"B",NM,""))

 +7                        SET DA=IEN

                           DO ^DIK

                       End DoDot:2

               End DoDot:1

 +8       ;

 +9        SET DIK="^BQI(90506,"

           SET DA=0

 +10       FOR 

               SET DA=$ORDER(^BQI(90506,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +11      ;

 +12       SET DIK="^BQI(90506.9,"

           SET DA=0

 +13       FOR 

               SET DA=$ORDER(^BQI(90506.9,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +14      ;

 +15       SET DIK="^BQI(90506.2,"

           SET DA=0

 +16       FOR 

               SET DA=$ORDER(^BQI(90506.9,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +17      ;

 +18       SET DIK="^BQI(90506.3,"

           SET DA=0

 +19       FOR 

               SET DA=$ORDER(^BQI(90506.3,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +20      ;

 +21       SET DIK="^BQI(90507.2,"

           SET DA=0

 +22       FOR 

               SET DA=$ORDER(^BQI(90507.2,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +23      ;

 +24       SET DIK="^BQI(90508.5,"

           SET DA=0

 +25       FOR 

               SET DA=$ORDER(^BQI(90508.5,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +26      ;

 +27       SET DIK="^BQI(90509.9,"

           SET DA=0

 +28       FOR 

               SET DA=$ORDER(^BQI(90509.9,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +29      ;

 +30      ; Clean up Events Default template

 +31       NEW DZ,DA,DIK

 +32       SET DZ=0

 +33       FOR 

               SET DZ=$ORDER(^BQICARE(DZ))

               IF 'DZ

                   QUIT 

               Begin DoDot:1

 +34               SET DA=$ORDER(^BQICARE(DZ,15,"B","Events Default",""))

 +35               IF DA'=""

                       SET DA(1)=DZ

                       SET DIK="^BQICARE("_DA(1)_",15,"

                       DO ^DIK

               End DoDot:1

 +36       QUIT