BQI11PRE.m

BQI11PRE ;PRXM/HC/ALA-Preinstall program ; 11 Jun 2007  3:06 PM

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

 ;

EN ;  Remove existing data fields before installation

 ;

 K ^XTMP("BQICARE")

 S ^XTMP("BQICARE",0)=$D(^BQICARE)

 S ^XTMP("BQICARE","VISIT")=$G(^BQI(90508,1,"VISIT"))

 ;

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

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

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

 ;

 S DA=1,DIK="^BQI(90508," D ^DIK

 Q

BQI11PRE  ;PRXM/HC/ALA-Preinstall program ; 11 Jun 2007  3:06 PM

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

 +2       ;

EN        ;  Remove existing data fields before installation

 +1       ;

 +2        KILL ^XTMP("BQICARE")

 +3        SET ^XTMP("BQICARE",0)=$DATA(^BQICARE)

 +4        SET ^XTMP("BQICARE","VISIT")=$GET(^BQI(90508,1,"VISIT"))

 +5       ;

 +6        NEW DA,DIK

 +7        SET DA=0

           SET DIK="^BQI(90506,"

 +8        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +9       ;

 +10       SET DA=0

           SET DIK="^BQI(90506.1,"

 +11       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +12      ;

 +13       SET DA=0

           SET DIK="^BQI(90506.2,"

 +14       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +15      ;

 +16       SET DA=0

           SET DIK="^BQI(90506.3,"

 +17       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +18      ;

 +19       SET DA=0

           SET DIK="^BQI(90507,"

 +20       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +21      ;

 +22       SET DA=1

           SET DIK="^BQI(90508,"

           DO ^DIK

 +23       QUIT