BQI23PRE.m

BQI23PRE ;VNGT/HS/ALA-Preinstall ; 10 Aug 2011  11:22 AM

 ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59

 ;

 ;

EN ;

 NEW DA,DIK

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

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

 ; 

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

 I $G(^BQI(90508.1,1,0))="Asthma^5" S DIK="^BQI(90508.1,",DA=1 D ^DIK

 Q

BQI23PRE  ;VNGT/HS/ALA-Preinstall ; 10 Aug 2011  11:22 AM

 +1       ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59

 +2       ;

 +3       ;

EN        ;

 +1        NEW DA,DIK

 +2        SET DA=0

           SET DIK="^BQI(90505.2,"

 +3        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ; 

 +5        SET DA=0

           SET DIK="^BQI(90506,"

 +6        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +7       ;

 +8        SET DA=0

           SET DIK="^BQI(90506.2,"

 +9        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +10      ;

 +11       SET DA=0

           SET DIK="^BQI(90506.3,"

 +12       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +13      ;

 +14       SET DA=0

           SET DIK="^BQI(90506.4,"

 +15       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +16      ;

 +17       SET DA=0

           SET DIK="^BQI(90506.5,"

 +18       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +19      ;

 +20       SET DA=0

           SET DIK="^BQI(90506.7,"

 +21       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +22      ;

 +23       SET DA=0

           SET DIK="^BQI(90506.8,"

 +24       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +25      ;

 +26       SET DA=0

           SET DIK="^BQI(90508.2,"

 +27       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +28      ;

 +29       IF $GET(^BQI(90508.1,1,0))="Asthma^5"

               SET DIK="^BQI(90508.1,"

               SET DA=1

               DO ^DIK

 +30       QUIT