BQIIPCHM ;GDIT/HCSD/ALA-IPC Medical Home ; 12 Jul 2017 11:17 AM
;;2.7;ICARE MANAGEMENT SYSTEM;**1**;Dec 19, 2017;Build 12
;;
;
EN ; Set medical home up
I $G(^BQI(90508,1,"GPRA"))'=2018 Q
NEW TEXT,BQIUPD,ERROR,BI,BJ,HELP,IEN,X
NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL
S ^BQI(90508,1,22,4,0)="IPCMH",^BQI(90508,1,22,"B","IPCMH",4)=""
S ^BQI(90508,1,22,0)="^90508.022^3^3"
S ^BQI(90508,1,22,4,1,0)="^^90508.221I^25^20"
;
F BI=1:1 S TEXT=$T(ARR+BI) Q:TEXT=" Q" D
. S TEXT=$P(TEXT,";;",2) I TEXT="" Q
. S NDATA=$P(TEXT,"~",1)
. S ND=$P(NDATA,"|",1),VAL=$P(NDATA,"|",2)
. I ND'=0 Q
. I VAL="" Q
. S CODE=$P(VAL,"^",1)
. ;I $P(^BQI(90508,1,22,2,1,BI,ND),"^",1)=CODE Q
. D UPD
;
;Check bundles
F BI=1:1 S TEXT=$T(BUN+BI) Q:TEXT=" Q" D
. K ^BQI(90508,1,22,4,1,BI,2)
. S TEXT=$P(TEXT,";;",2) I TEXT="" Q
. F BJ=1:1:$L(TEXT,"~") D
.. S NDATA=$P(TEXT,"~",BJ) I NDATA="" Q
.. S ^BQI(90508,1,22,4,1,BI,2,BJ,0)=NDATA
. S ^BQI(90508,1,22,4,1,BI,2,0)="^90508.2212^"_BJ_"^"_BJ
;
; Check that measure is marked for IPC
F BI=1:1 S TEXT=$T(MEAS+BI) Q:TEXT=" Q" D
. S TEXT=$P(TEXT,";;",2) I TEXT="" Q
. S CODE=$P(TEXT,"|",1),ID=$P(TEXT,"|",2)
. K NCODE,IEN
. S IEN=$O(^BGPINDRC("C",ID,"")) I IEN="" Q
. I IEN'=$P(CODE,"_",2) D
.. S NCODE="2018_"_IEN
. I $P($G(^BGPINDRC(IEN,17)),"^",7)'=1 S $P(^BGPINDRC(IEN,17),"^",7)=1
. I $G(NCODE)'="" D
.. S NN=$O(^BQI(90508,1,22,4,1,"B",CODE,"")) I NN="" Q
.. S ^BQI(90508,1,22,4,1,"B",NCODE,NN)="" K ^BQI(90508,1,22,4,1,"B",CODE)
.. S $P(^BQI(90508,1,22,4,1,NN,0),"^",1)=NCODE
;
NEW DIK,DA
S DIK="^BQI(90508,",DA=1
D IXALL^DIK
Q
;
UPD ; Update values
NEW BJ,NDATA,VAL,OCODE,FC,PRV,IIEN
F BJ=1:1:$L(TEXT,"~") D
. S NDATA=$P(TEXT,"~",BJ)
. S ND=$P(NDATA,"|",1),VAL=$P(NDATA,"|",2)
. I VAL="" Q
. S ^BQI(90508,1,22,4,1,BI,ND)=VAL
;
S TEXT=$T(TIP+BI) D
. S TEXT=$P(TEXT,";;",2) I TEXT="" Q
. F BJ=1:1:$L(TEXT,"~") D
.. S NDATA=$P(TEXT,"~",BJ) I NDATA="" Q
.. S ^BQI(90508,1,22,4,1,BI,3,BJ,0)=NDATA
. S ^BQI(90508,1,22,4,1,BI,3,0)="^90508.2213^"_BJ_"^"_BJ
;
Q
;
MEAS ;
;;2018_3404|IPC.DMC.1
;;2018_3405|IPC.DMG.1
;;2018_3406|IPC.ADS.1
;;2018_3407|IPC.FLU.1
;;2018_3408|IPC.AIZ.1
;;2018_3409|IPC.CIZ.1
;;2018_3410|IPC.ADZ.1
;;2018_3411|IPC.ADZ.2
;;2018_3412|IPC.ADZ.3
;;2018_3413|IPC.CCS.1
;;2018_3414|IPC.BCS.1
;;2018_3415|IPC.CRC.1
;;2018_3416|IPC.DEP.1
;;2018_3417|IPC.DFU.1
;;2018_3418|IPC.DRM.1
;;2018_3419|IPC.BMI.1
;;2018_3420|IPC.WAC.1
;;2018_3421|IPC.WAC.2
;;2018_3422|IPC.WAC.3
;;2018_3423|IPC.CBP.1
;;2018_3424|IPC.MTA.1
Q
;
ARR ; Measure definition
;;0|IPC_CCPR^R^23^Continuity of Care Primary Provider^^23^^^^^^^A~1|D EN^BQIIPCCP($G(BQDATE),$G(BQFROM),$G(BQTHRU))
;;0|IPC_PEMP^R^23^% of Pts Empaneled to a Primary Care Provider^^22^^^^^^^A~1|D EN^BQIIPEMP($G(BQDATE),$G(BQFROM),$G(BQTHRU))
;;0|2018_3408^G^19^Adult Immunization Status^^5~1|
;;0|2018_3409^G^19^Childhood Immunization Status^^1~1|
;;0|2018_3410^G^19^Adolescents IZ: Meningococcal^^2~1|
;;0|2018_3407^G^19^Influenza Immunization Status^^6~1|
;;0|2018_3404^G^20^Diabetes Comprehensive Care^^7~1|
;;0|2018_3405^G^20^Diabetes: Glycemic Control^^8~1|
;;0|2018_3423^G^20^Controlling High Blood Pressure^^9~1|
;;0|2018_3424^G^20^Medication Therapy for Persons with Asthma^^10~1|
;;0|2018_3419^G^20^Body Mass Index (BMI) Screening/Followup^^11~1|
;;0|2018_3415^G^21^Colorectal Cancer Screening^^16~1|
;;0|2018_3414^G^21^Breast Cancer Screening^^17~1|
;;0|2018_3413^G^21^Cervical Cancer Screening^^18~1|
;;0|2018_3416^G^22^Depression Screening^^19~1|
;;0|IPC_CCTM^R^23^Continuity of care to a Designated Care Team^^24^^^^^^^A^T~1|D EN^BQIIPCCT($G(BQDATE),$G(BQFROM),$G(BQTHRU))
;;0|2018_3406^G^20^Dental Treatment^^15^^^^^~1|
;;0|2018_3420^G^20^Weight Assess/Counseling - BMI^^12^^^^^~1|
;;0|2018_3421^G^20^Weight Assess/Counseling - Nutrition^^13^^^^^~1|
;;0|2018_3422^G^20^Weight Assess/Counseling - Physical Activity^^14^^^^^~1|
;;0|2018_3411^G^19^Adolescents IZ: Tdap/TD^^3~1|
;;0|2018_3412^G^19^Adolescents IZ: Td/Tdap & Meningococcal^^4~1|
;;0|2018_3417^G^22^Depression Screening with Followup^^20~1|
;;0|2018_3418^G^22^Depression Remission (12 months)^^21~1|
Q
;
BUN ; Bundles
Q
;
TIP ; Tooltips
;;Continuity of care to a Designated Primary Care Provider (DPCP) (MD, PA, ~NP, DO)~
;;Percentage of patients Empaneled to a Designated Primary Care Provider ~(DPCP)~
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;% of visits among patients empaneled to a Designated Primary Care ~Provider (DPCP) seen by a member of the care team but not the patient's ~DPCP.~
;;
;;
;;
;;
;;
;;
;;
;;
Q
BQIIPCHM ;GDIT/HCSD/ALA-IPC Medical Home ; 12 Jul 2017 11:17 AM
+1 ;;2.7;ICARE MANAGEMENT SYSTEM;**1**;Dec 19, 2017;Build 12
+2 ;;
+3 ;
EN ; Set medical home up
+1 IF $GET(^BQI(90508,1,"GPRA"))'=2018
QUIT
+2 NEW TEXT,BQIUPD,ERROR,BI,BJ,HELP,IEN,X
+3 NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL
+4 SET ^BQI(90508,1,22,4,0)="IPCMH"
SET ^BQI(90508,1,22,"B","IPCMH",4)=""
+5 SET ^BQI(90508,1,22,0)="^90508.022^3^3"
+6 SET ^BQI(90508,1,22,4,1,0)="^^90508.221I^25^20"
+7 ;
+8 FOR BI=1:1
SET TEXT=$TEXT(ARR+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+9 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+10 SET NDATA=$PIECE(TEXT,"~",1)
+11 SET ND=$PIECE(NDATA,"|",1)
SET VAL=$PIECE(NDATA,"|",2)
+12 IF ND'=0
QUIT
+13 IF VAL=""
QUIT
+14 SET CODE=$PIECE(VAL,"^",1)
+15 ;I $P(^BQI(90508,1,22,2,1,BI,ND),"^",1)=CODE Q
+16 DO UPD
End DoDot:1
+17 ;
+18 ;Check bundles
+19 FOR BI=1:1
SET TEXT=$TEXT(BUN+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+20 KILL ^BQI(90508,1,22,4,1,BI,2)
+21 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+22 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+23 SET NDATA=$PIECE(TEXT,"~",BJ)
IF NDATA=""
QUIT
+24 SET ^BQI(90508,1,22,4,1,BI,2,BJ,0)=NDATA
End DoDot:2
+25 SET ^BQI(90508,1,22,4,1,BI,2,0)="^90508.2212^"_BJ_"^"_BJ
End DoDot:1
+26 ;
+27 ; Check that measure is marked for IPC
+28 FOR BI=1:1
SET TEXT=$TEXT(MEAS+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+29 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+30 SET CODE=$PIECE(TEXT,"|",1)
SET ID=$PIECE(TEXT,"|",2)
+31 KILL NCODE,IEN
+32 SET IEN=$ORDER(^BGPINDRC("C",ID,""))
IF IEN=""
QUIT
+33 IF IEN'=$PIECE(CODE,"_",2)
Begin DoDot:2
+34 SET NCODE="2018_"_IEN
End DoDot:2
+35 IF $PIECE($GET(^BGPINDRC(IEN,17)),"^",7)'=1
SET $PIECE(^BGPINDRC(IEN,17),"^",7)=1
+36 IF $GET(NCODE)'=""
Begin DoDot:2
+37 SET NN=$ORDER(^BQI(90508,1,22,4,1,"B",CODE,""))
IF NN=""
QUIT
+38 SET ^BQI(90508,1,22,4,1,"B",NCODE,NN)=""
KILL ^BQI(90508,1,22,4,1,"B",CODE)
+39 SET $PIECE(^BQI(90508,1,22,4,1,NN,0),"^",1)=NCODE
End DoDot:2
End DoDot:1
+40 ;
+41 NEW DIK,DA
+42 SET DIK="^BQI(90508,"
SET DA=1
+43 DO IXALL^DIK
+44 QUIT
+45 ;
UPD ; Update values
+1 NEW BJ,NDATA,VAL,OCODE,FC,PRV,IIEN
+2 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:1
+3 SET NDATA=$PIECE(TEXT,"~",BJ)
+4 SET ND=$PIECE(NDATA,"|",1)
SET VAL=$PIECE(NDATA,"|",2)
+5 IF VAL=""
QUIT
+6 SET ^BQI(90508,1,22,4,1,BI,ND)=VAL
End DoDot:1
+7 ;
+8 SET TEXT=$TEXT(TIP+BI)
Begin DoDot:1
+9 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+10 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+11 SET NDATA=$PIECE(TEXT,"~",BJ)
IF NDATA=""
QUIT
+12 SET ^BQI(90508,1,22,4,1,BI,3,BJ,0)=NDATA
End DoDot:2
+13 SET ^BQI(90508,1,22,4,1,BI,3,0)="^90508.2213^"_BJ_"^"_BJ
End DoDot:1
+14 ;
+15 QUIT
+16 ;
MEAS ;
+1 ;;2018_3404|IPC.DMC.1
+2 ;;2018_3405|IPC.DMG.1
+3 ;;2018_3406|IPC.ADS.1
+4 ;;2018_3407|IPC.FLU.1
+5 ;;2018_3408|IPC.AIZ.1
+6 ;;2018_3409|IPC.CIZ.1
+7 ;;2018_3410|IPC.ADZ.1
+8 ;;2018_3411|IPC.ADZ.2
+9 ;;2018_3412|IPC.ADZ.3
+10 ;;2018_3413|IPC.CCS.1
+11 ;;2018_3414|IPC.BCS.1
+12 ;;2018_3415|IPC.CRC.1
+13 ;;2018_3416|IPC.DEP.1
+14 ;;2018_3417|IPC.DFU.1
+15 ;;2018_3418|IPC.DRM.1
+16 ;;2018_3419|IPC.BMI.1
+17 ;;2018_3420|IPC.WAC.1
+18 ;;2018_3421|IPC.WAC.2
+19 ;;2018_3422|IPC.WAC.3
+20 ;;2018_3423|IPC.CBP.1
+21 ;;2018_3424|IPC.MTA.1
+22 QUIT
+23 ;
ARR ; Measure definition
+1 ;;0|IPC_CCPR^R^23^Continuity of Care Primary Provider^^23^^^^^^^A~1|D EN^BQIIPCCP($G(BQDATE),$G(BQFROM),$G(BQTHRU))
+2 ;;0|IPC_PEMP^R^23^% of Pts Empaneled to a Primary Care Provider^^22^^^^^^^A~1|D EN^BQIIPEMP($G(BQDATE),$G(BQFROM),$G(BQTHRU))
+3 ;;0|2018_3408^G^19^Adult Immunization Status^^5~1|
+4 ;;0|2018_3409^G^19^Childhood Immunization Status^^1~1|
+5 ;;0|2018_3410^G^19^Adolescents IZ: Meningococcal^^2~1|
+6 ;;0|2018_3407^G^19^Influenza Immunization Status^^6~1|
+7 ;;0|2018_3404^G^20^Diabetes Comprehensive Care^^7~1|
+8 ;;0|2018_3405^G^20^Diabetes: Glycemic Control^^8~1|
+9 ;;0|2018_3423^G^20^Controlling High Blood Pressure^^9~1|
+10 ;;0|2018_3424^G^20^Medication Therapy for Persons with Asthma^^10~1|
+11 ;;0|2018_3419^G^20^Body Mass Index (BMI) Screening/Followup^^11~1|
+12 ;;0|2018_3415^G^21^Colorectal Cancer Screening^^16~1|
+13 ;;0|2018_3414^G^21^Breast Cancer Screening^^17~1|
+14 ;;0|2018_3413^G^21^Cervical Cancer Screening^^18~1|
+15 ;;0|2018_3416^G^22^Depression Screening^^19~1|
+16 ;;0|IPC_CCTM^R^23^Continuity of care to a Designated Care Team^^24^^^^^^^A^T~1|D EN^BQIIPCCT($G(BQDATE),$G(BQFROM),$G(BQTHRU))
+17 ;;0|2018_3406^G^20^Dental Treatment^^15^^^^^~1|
+18 ;;0|2018_3420^G^20^Weight Assess/Counseling - BMI^^12^^^^^~1|
+19 ;;0|2018_3421^G^20^Weight Assess/Counseling - Nutrition^^13^^^^^~1|
+20 ;;0|2018_3422^G^20^Weight Assess/Counseling - Physical Activity^^14^^^^^~1|
+21 ;;0|2018_3411^G^19^Adolescents IZ: Tdap/TD^^3~1|
+22 ;;0|2018_3412^G^19^Adolescents IZ: Td/Tdap & Meningococcal^^4~1|
+23 ;;0|2018_3417^G^22^Depression Screening with Followup^^20~1|
+24 ;;0|2018_3418^G^22^Depression Remission (12 months)^^21~1|
+25 QUIT
+26 ;
BUN ; Bundles
+1 QUIT
+2 ;
TIP ; Tooltips
+1 ;;Continuity of care to a Designated Primary Care Provider (DPCP) (MD, PA, ~NP, DO)~
+2 ;;Percentage of patients Empaneled to a Designated Primary Care Provider ~(DPCP)~
+3 ;;
+4 ;;
+5 ;;
+6 ;;
+7 ;;
+8 ;;
+9 ;;
+10 ;;
+11 ;;
+12 ;;
+13 ;;
+14 ;;
+15 ;;
+16 ;;% of visits among patients empaneled to a Designated Primary Care ~Provider (DPCP) seen by a member of the care team but not the patient's ~DPCP.~
+17 ;;
+18 ;;
+19 ;;
+20 ;;
+21 ;;
+22 ;;
+23 ;;
+24 ;;
+25 QUIT
