BQI27PRE.m

BQI27PRE ;GDIT/HCD/ALA-Version 2.7 Preinstall ; 20 Jul 2017  11:02 AM

 ;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23

 ;

EN ;EP

 NEW DA,DIK

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

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

 ;

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

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

 Q

BQI27PRE  ;GDIT/HCD/ALA-Version 2.7 Preinstall ; 20 Jul 2017  11:02 AM

 +1       ;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23

 +2       ;

EN        ;EP

 +1        NEW DA,DIK

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

           SET DA=0

 +3        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ;

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

           SET DA=0

 +6        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +7        QUIT