BQI24PRE.m

BQI24PRE ;GDIT/HS/ALA-Version 2.4 Preinstall ; 18 Dec 2013  9:52 AM

 ;;2.4;ICARE MANAGEMENT SYSTEM;;Apr 01, 2015;Build 41

 ;

 ;

EN ;EP

 ; Delete DD for subfile

 ; this will remove field 10 - ICD CODES

 S DIU=90507.801,DIU(0)="S" D EN^DIU2

 ;

 NEW DA,DIK

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

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

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

 ;

TAX ;EP

 NEW TAX,TIEN,BQUP

 S TAX="BQI ROCKEY MTN FEVER DXS"

 S TIEN=$O(^ATXAX("B",TAX,"")) I TIEN="" Q

 S BQUP(9002226,TIEN_",",.01)="BQI ROCKY MTN FEVER DXS"

 D FILE^DIE("","BQUP","ERROR")

 Q

BQI24PRE  ;GDIT/HS/ALA-Version 2.4 Preinstall ; 18 Dec 2013  9:52 AM

 +1       ;;2.4;ICARE MANAGEMENT SYSTEM;;Apr 01, 2015;Build 41

 +2       ;

 +3       ;

EN        ;EP

 +1       ; Delete DD for subfile

 +2       ; this will remove field 10 - ICD CODES

 +3        SET DIU=90507.801

           SET DIU(0)="S"

           DO EN^DIU2

 +4       ;

 +5        NEW DA,DIK

 +6        SET DIK="^BQI(90507.8,"

           SET DA=0

 +7        FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +8       ;

 +9        SET DIK="^BQI(90507,"

           SET DA=0

 +10       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +11      ;

 +12       SET DIK="^BQI(90506,"

           SET DA=0

 +13       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +14      ;

 +15       SET DIK="^BQI(90506.2,"

           SET DA=0

 +16       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +17      ;

 +18       SET DIK="^BQI(90506.3,"

           SET DA=0

 +19       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +20      ;

 +21       SET DIK="^BQI(90508.4,"

           SET DA=0

 +22       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +23      ;

 +24       SET DIK="^BQI(90508.5,"

           SET DA=0

 +25       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +26      ;

 +27       SET DIK="^BQI(90508.2,"

           SET DA=0

 +28       FOR 

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

               IF 'DA

                   QUIT 

               DO ^DIK

 +29      ;

TAX       ;EP

 +1        NEW TAX,TIEN,BQUP

 +2        SET TAX="BQI ROCKEY MTN FEVER DXS"

 +3        SET TIEN=$ORDER(^ATXAX("B",TAX,""))

           IF TIEN=""

               QUIT 

 +4        SET BQUP(9002226,TIEN_",",.01)="BQI ROCKY MTN FEVER DXS"

 +5        DO FILE^DIE("","BQUP","ERROR")

 +6        QUIT