BQI202PR.m

BQI202PR ;VNGT/HS/ALA-Version 2.0 Patch 2 Pre-Install ; 02 Feb 2009  1:11 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

EN ; Entry point

 NEW DA,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.4,"

 F  S DA=$O(^BQI(90506.4,DA)) Q:'DA  D ^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.5,"

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

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

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

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

 ;

 ; Remove old fields before installing new fields

 I $$VFIELD^DILFD(90505.01,4.01) D

 . NEW DIK,DA

 . S DIK="^DD(90505.01,",DA(1)=90505.01

 . F DA=4.01,4.02,4.03,4.04 D ^DIK

 I $$VFIELD^DILFD(90505.03,4.01) D

 . NEW DIK,DA

 . S DIK="^DD(90505.03,",DA(1)=90505.03

 . F DA=4.01,4.02,4.03,4.04 D ^DIK

 Q

BQI202PR  ;VNGT/HS/ALA-Version 2.0 Patch 2 Pre-Install ; 02 Feb 2009  1:11 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

EN        ; Entry point

 +1        NEW DA,DIK

 +2        SET DA=0

           SET DIK="^BQI(90506,"

 +3        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +4        SET DA=0

           SET DIK="^BQI(90506.3,"

 +5        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +6        SET DA=0

           SET DIK="^BQI(90506.4,"

 +7        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +8        SET DA=0

           SET DIK="^BQI(90505.2,"

 +9        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +10       SET DA=0

           SET DIK="^BQI(90506.5,"

 +11       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +12       SET DA=0

           SET DIK="^BQI(90507,"

 +13       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +14       SET DA=0

           SET DIK="^BQI(90507.8,"

 +15       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +16       SET DA=0

           SET DIK="^BQI(90508.5,"

 +17       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +18      ;

 +19      ; Remove old fields before installing new fields

 +20       IF $$VFIELD^DILFD(90505.01,4.01)

               Begin DoDot:1

 +21               NEW DIK,DA

 +22               SET DIK="^DD(90505.01,"

                   SET DA(1)=90505.01

 +23               FOR DA=4.01,4.02,4.03,4.04

                       DO ^DIK

               End DoDot:1

 +24       IF $$VFIELD^DILFD(90505.03,4.01)

               Begin DoDot:1

 +25               NEW DIK,DA

 +26               SET DIK="^DD(90505.03,"

                   SET DA(1)=90505.03

 +27               FOR DA=4.01,4.02,4.03,4.04

                       DO ^DIK

               End DoDot:1

 +28       QUIT