BQI22PRE.m

BQI22PRE ;VNGT/HS/ALA-Version 2.2 Pre-Install ; 24 Feb 2011  11:46 AM

 ;;2.2;ICARE MANAGEMENT SYSTEM;;Jul 28, 2011;Build 37

 ;;

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.3,"

 F  S DA=$O(^BQI(90506.3,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(90507.8,"

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

 ;

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

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

 ;

 S DA=0,DIK="^BQIPROV("

 F  S DA=$O(^BQIPROV(DA)) Q:'DA  D ^DIK

 ;

 S DA(1)=1,DA=0,DIK="^BQI(90508,"_DA(1)_",14,"

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

 Q

BQI22PRE  ;VNGT/HS/ALA-Version 2.2 Pre-Install ; 24 Feb 2011  11:46 AM

 +1       ;;2.2;ICARE MANAGEMENT SYSTEM;;Jul 28, 2011;Build 37

 +2       ;;

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.3,"

 +9        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +10      ;

 +11       SET DA=0

           SET DIK="^BQI(90506.5,"

 +12       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +13      ;

 +14       SET DA=0

           SET DIK="^BQI(90506.7,"

 +15       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +16      ;

 +17       SET DA=0

           SET DIK="^BQI(90507.8,"

 +18       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +19      ;

 +20       SET DA=0

           SET DIK="^BQI(90509.9,"

 +21       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +22      ;

 +23       SET DA=0

           SET DIK="^BQIPROV("

 +24       FOR 

               SET DA=$ORDER(^BQIPROV(DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +25      ;

 +26       SET DA(1)=1

           SET DA=0

           SET DIK="^BQI(90508,"_DA(1)_",14,"

 +27       FOR 

               SET DA=$ORDER(^BQI(90508,1,14,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +28       QUIT