BQI24P3 ;GDHS/HCS/ALA-Version 2.4 Patch 3 ; 15 Dec 2015 8:22 AM
;;2.4;ICARE MANAGEMENT SYSTEM;**3**;Apr 01, 2015;Build 5
;;
PRE ;EP
NEW CODE,NM,DA,DIK,IEN
S DIK="^BQI(90506.1,"
F CODE="2007_","2008_","2009_","2010_","2011_" D
. S NM=CODE
. F S NM=$O(^BQI(90506.1,"B",NM)) Q:NM=""!($E(NM,1,5)'=CODE) D
.. S IEN=$O(^BQI(90506.1,"B",NM,""))
.. S DA=IEN D ^DIK
;
S DIK="^BQI(90506.8,",DA=0
F S DA=$O(^BQI(90506.8,DA)) Q:'DA D ^DIK
;
S DIK="^BQI(90506.5,",DA=0
F S DA=$O(^BQI(90506.5,DA)) Q:'DA D ^DIK
Q
;
POS ;EP
; Check for MU default views
NEW DZ
S DZ=0
F S DZ=$O(^BQICARE(DZ)) Q:'DZ D
. I $$GET1^DIQ(90505,DZ_",",.02,"E")["MU",$$GET1^DIQ(90505,DZ_",",.16,"E")="" S BQIUPD(90505,DZ_",",.02)="@"
I $D(BQIUPD) D FILE^DIE("","BQIUPD","ERROR")
; Fix Tobacco header
D ^BQI24PU1
; Turn on Immunization Registry
NEW DA
S DA=$O(^BQI(90507,"B","IMMUNIZATION",""))
S BQIUPD(90507,DA_",",.08)="@"
D FILE^DIE("","BQIUPD","ERROR")
;
NEW DA,IENS
S DA(2)=1,DA(1)=2
;Inactivate IPC measures
S DA=22,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.07)=1
S DA=32,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.07)=1
S DA=49,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.07)=1
;
;Change Health Risk Screening Bundle to Comprehensive Health Screening
S DA=5,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.04)="Comprehensive Health Screening"
;
;Fixed column header for cvd: bmi assessed
S DA=48,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.04)="CVD: BMI Assessed"
;
;Fixed column header from BP in Control to BP Assessed
S DA=23,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.04)="BP Assessed"
;
;Change from MU to CRS
S DA=53,IENS=$$IENS^DILF(.DA) D
. S BQIUPD(90508.221,IENS,.01)="2016_2720",BQIUPD(90508.221,IENS,.02)="G"
. S BQIUPD(90508.221,IENS,.13)="@",BQIUPD(90508.221,IENS,.14)="@"
S DA=54,IENS=$$IENS^DILF(.DA) D
. S BQIUPD(90508.221,IENS,.01)="2016_2721",BQIUPD(90508.221,IENS,.02)="G"
. S BQIUPD(90508.221,IENS,.13)="@",BQIUPD(90508.221,IENS,.14)="@"
S DA=55,IENS=$$IENS^DILF(.DA) D
. S BQIUPD(90508.221,IENS,.01)="2016_2722",BQIUPD(90508.221,IENS,.02)="G"
. S BQIUPD(90508.221,IENS,.13)="@",BQIUPD(90508.221,IENS,.14)="@"
;
S DA=56,IENS=$$IENS^DILF(.DA),BQIUPD(90508.221,IENS,.13)="@",BQIUPD(90508.221,IENS,.14)="@"
;
NEW DA,IENS
S DA(3)=1,DA(2)=2,DA(1)=56
S DA=1,IENS=$$IENS^DILF(.DA),BQIUPD(90508.2212,IENS,.01)="2016_2720"
S DA=2,IENS=$$IENS^DILF(.DA),BQIUPD(90508.2212,IENS,.01)="2016_2721"
S DA=3,IENS=$$IENS^DILF(.DA),BQIUPD(90508.2212,IENS,.01)="2016_2722"
;
; Remove LDL from CVD Measure Bundle
S DA(1)=51,DA=4,BQIUPD(90508.2212,IENS,.01)="@"
D FILE^DIE("","BQIUPD","ERROR")
;
D ^BQITAXXU
Q
BQI24P3 ;GDHS/HCS/ALA-Version 2.4 Patch 3 ; 15 Dec 2015 8:22 AM
+1 ;;2.4;ICARE MANAGEMENT SYSTEM;**3**;Apr 01, 2015;Build 5
+2 ;;
PRE ;EP
+1 NEW CODE,NM,DA,DIK,IEN
+2 SET DIK="^BQI(90506.1,"
+3 FOR CODE="2007_","2008_","2009_","2010_","2011_"
Begin DoDot:1
+4 SET NM=CODE
+5 FOR
SET NM=$ORDER(^BQI(90506.1,"B",NM))
IF NM=""!($EXTRACT(NM,1,5)'=CODE)
QUIT
Begin DoDot:2
+6 SET IEN=$ORDER(^BQI(90506.1,"B",NM,""))
+7 SET DA=IEN
DO ^DIK
End DoDot:2
End DoDot:1
+8 ;
+9 SET DIK="^BQI(90506.8,"
SET DA=0
+10 FOR
SET DA=$ORDER(^BQI(90506.8,DA))
IF 'DA
QUIT
DO ^DIK
+11 ;
+12 SET DIK="^BQI(90506.5,"
SET DA=0
+13 FOR
SET DA=$ORDER(^BQI(90506.5,DA))
IF 'DA
QUIT
DO ^DIK
+14 QUIT
+15 ;
POS ;EP
+1 ; Check for MU default views
+2 NEW DZ
+3 SET DZ=0
+4 FOR
SET DZ=$ORDER(^BQICARE(DZ))
IF 'DZ
QUIT
Begin DoDot:1
+5 IF $$GET1^DIQ(90505,DZ_",",.02,"E")["MU"
IF $$GET1^DIQ(90505,DZ_",",.16,"E")=""
SET BQIUPD(90505,DZ_",",.02)="@"
End DoDot:1
+6 IF $DATA(BQIUPD)
DO FILE^DIE("","BQIUPD","ERROR")
+7 ; Fix Tobacco header
+8 DO ^BQI24PU1
+9 ; Turn on Immunization Registry
+10 NEW DA
+11 SET DA=$ORDER(^BQI(90507,"B","IMMUNIZATION",""))
+12 SET BQIUPD(90507,DA_",",.08)="@"
+13 DO FILE^DIE("","BQIUPD","ERROR")
+14 ;
+15 NEW DA,IENS
+16 SET DA(2)=1
SET DA(1)=2
+17 ;Inactivate IPC measures
+18 SET DA=22
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.07)=1
+19 SET DA=32
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.07)=1
+20 SET DA=49
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.07)=1
+21 ;
+22 ;Change Health Risk Screening Bundle to Comprehensive Health Screening
+23 SET DA=5
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.04)="Comprehensive Health Screening"
+24 ;
+25 ;Fixed column header for cvd: bmi assessed
+26 SET DA=48
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.04)="CVD: BMI Assessed"
+27 ;
+28 ;Fixed column header from BP in Control to BP Assessed
+29 SET DA=23
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.04)="BP Assessed"
+30 ;
+31 ;Change from MU to CRS
+32 SET DA=53
SET IENS=$$IENS^DILF(.DA)
Begin DoDot:1
+33 SET BQIUPD(90508.221,IENS,.01)="2016_2720"
SET BQIUPD(90508.221,IENS,.02)="G"
+34 SET BQIUPD(90508.221,IENS,.13)="@"
SET BQIUPD(90508.221,IENS,.14)="@"
End DoDot:1
+35 SET DA=54
SET IENS=$$IENS^DILF(.DA)
Begin DoDot:1
+36 SET BQIUPD(90508.221,IENS,.01)="2016_2721"
SET BQIUPD(90508.221,IENS,.02)="G"
+37 SET BQIUPD(90508.221,IENS,.13)="@"
SET BQIUPD(90508.221,IENS,.14)="@"
End DoDot:1
+38 SET DA=55
SET IENS=$$IENS^DILF(.DA)
Begin DoDot:1
+39 SET BQIUPD(90508.221,IENS,.01)="2016_2722"
SET BQIUPD(90508.221,IENS,.02)="G"
+40 SET BQIUPD(90508.221,IENS,.13)="@"
SET BQIUPD(90508.221,IENS,.14)="@"
End DoDot:1
+41 ;
+42 SET DA=56
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.221,IENS,.13)="@"
SET BQIUPD(90508.221,IENS,.14)="@"
+43 ;
+44 NEW DA,IENS
+45 SET DA(3)=1
SET DA(2)=2
SET DA(1)=56
+46 SET DA=1
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.2212,IENS,.01)="2016_2720"
+47 SET DA=2
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.2212,IENS,.01)="2016_2721"
+48 SET DA=3
SET IENS=$$IENS^DILF(.DA)
SET BQIUPD(90508.2212,IENS,.01)="2016_2722"
+49 ;
+50 ; Remove LDL from CVD Measure Bundle
+51 SET DA(1)=51
SET DA=4
SET BQIUPD(90508.2212,IENS,.01)="@"
+52 DO FILE^DIE("","BQIUPD","ERROR")
+53 ;
+54 DO ^BQITAXXU
+55 QUIT
