BQI1PRE.m

BQI1PRE ;PRXM/HC/ALA-PreInstall Routine ; 23 Jan 2007  1:38 PM

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

 ;

EN ;  Remove Site Parameters

 NEW DA,DIK

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

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

 ;

 NEW DA,DIK

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

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

 ;

 NEW DA,DIK

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

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

 Q

BQI1PRE   ;PRXM/HC/ALA-PreInstall Routine ; 23 Jan 2007  1:38 PM

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

 +2       ;

EN        ;  Remove Site Parameters

 +1        NEW DA,DIK

 +2        SET DA=0

           SET DIK="^BQI(90508,"

 +3        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ;

 +5        NEW DA,DIK

 +6        SET DA=0

           SET DIK="^BQI(90506.1,"

 +7        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +8       ;

 +9        NEW DA,DIK

 +10       SET DA=0

           SET DIK="^BQIPAT("

 +11       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +12       QUIT