BQI23PU ;VNGT/HS/ALA-2.3 Install Utility Program ; 14 Sep 2011 11:58 AM
;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59
;
;
IPC ; Set IPC
NEW TEXT,BQIUPD,ERROR,BI,BJ,HELP,IEN
NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL
S ^BQI(90508,1,22,0)="^90508.022^1^1"
S ^BQI(90508,1,22,1,0)="IPC3",^BQI(90508,1,22,1,"B","IPC3",1)=""
S $P(^BQI(90508,1,22,1,5),U,1)="http://ipcreporting.improvingindianhealth.org/FilesDownload.aspx"
S $P(^BQI(90508,1,22,1,5),U,2)="http://ipcreporting.improvingindianhealth.org/FilesUpload.aspx"
S $P(^BQI(90508,1,22,1,4),U,1)="http://icare.spreadinnovation.com/FilesDownload.aspx"
S $P(^BQI(90508,1,22,1,4),U,2)="http://icare.spreadinnovation.com/FilesUpload.aspx"
S ^BQI(90508,1,22,1,1,0)="^90508.221I^67^67"
;
NEW DA,DIC,CLN,X
S DA(1)=1,DIC(0)="LNZ",DIC="^BQI(90508,"_DA(1)_",23,",DLAYGO=90508.023,DIC("P")=DLAYGO
I $G(^BQI(90508,1,23,0))="" S ^BQI(90508,1,23,0)="^90508.023P^^"
F CLN="01",13,20,28 D
. S X=$O(^DIC(40.7,"C",CLN,"")) I X="" Q
. S X=$P(^DIC(40.7,X,0),U,1)
. D ^DIC I Y=-1 K DO,DD D FILE^DICN
;
F BI=1:1 S TEXT=$T(ARR+BI) Q:TEXT=" Q" D
. S TEXT=$P(TEXT,";;",2) I TEXT="" Q
. 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,1,1,BI,ND)=VAL
;
F BI=1:1 S TEXT=$T(TIP+BI) Q:TEXT=" Q" 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,1,1,BI,3,BJ,0)=NDATA
. S ^BQI(90508,1,22,1,1,BI,3,0)="^90508.2213^"_BJ_"^"_BJ
;
F BI=1:1 S TEXT=$T(BUN+BI) Q:TEXT=" Q" 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,1,1,BI,2,BJ,0)=NDATA
. S ^BQI(90508,1,22,1,1,BI,2,0)="^90508.2212^"_BJ_"^"_BJ
;
NEW DIK
S DIK="^BQI(90508,",DA=1
;D ENALL^DIK
D IXALL^DIK
;
TAX ; Update taxonomies
; Add new taxonomies OR update existing ones
D ^BQIHTX
;
I $$VERSION^XPDUTL("BGP")="12.0" D CRS
Q
;
CRS ; Update IPC if CRS v 12.0 has been installed
NEW BQIYR,BGPYR
S BQIYR=2011,BGPYR=2012
; Update IPC
NEW CRIPC,CRN,IDN,MEAS,NMEAS,BDN,PRV,PRN,FAC,FCN
; Get current IPC
S CRIPC=$P($G(^BQI(90508,1,11)),U,1)
S CRN=$O(^BQI(90508,1,22,"B",CRIPC,"")) I CRN="" Q
S IDN=0
F S IDN=$O(^BQI(90508,1,22,CRN,1,IDN)) Q:'IDN D
. S MEAS=$P(^BQI(90508,1,22,CRN,1,IDN,0),U,1)
. I $P(MEAS,"_",1)'=BQIYR D BDN Q
. S NMEAS=$$CONV(MEAS)
. NEW DA,IENS
. S DA(2)=1,DA(1)=CRN,DA=IDN,IENS=$$IENS^DILF(.DA)
. S BQIUPD(90508.221,IENS,.01)=NMEAS
. S PRV=0
. F S PRV=$O(^BQIPROV(PRV)) Q:'PRV D
.. S PRN=$O(^BQIPROV(PRV,30,"B",MEAS,"")) Q:PRN="" D
... NEW DA,IENS
... S DA(1)=PRV,DA=PRN,IENS=$$IENS^DILF(.DA)
... S BQIUPD(90505.43,IENS,.01)=NMEAS
. S FAC=0
. F S FAC=$O(^BQIFAC(FAC)) Q:'FAC D
.. S FCN=$O(^BQIFAC(FAC,30,"B",MEAS,"")) Q:FCN="" D
... NEW DA,IENS
... S DA(1)=FAC,DA=FCN,IENS=$$IENS^DILF(.DA)
... S BQIUPD(90505.43,IENS,.01)=NMEAS
. D BDN
D FILE^DIE("","BQIUPD","ERROR")
Q
;
CONV(MSR) ;EP - Convert the Measure
NEW NM
S NM=BGPYR_"_"_$P(MSR,"_",2)
Q NM
;
BDN ; Bundles
S BDN=0
F S BDN=$O(^BQI(90508,1,22,CRN,1,IDN,2,BDN)) Q:'BDN D
. S MEAS=$P(^BQI(90508,1,22,CRN,1,IDN,2,BDN,0),U,1)
. I $P(MEAS,"_",1)'=BQIYR Q
. S NMEAS=$$CONV(MEAS)
. NEW DA,IENS
. S DA(3)=1,DA(2)=CRN,DA(1)=IDN,DA=BDN,IENS=$$IENS^DILF(.DA)
. S BQIUPD(90508.2212,IENS,.01)=NMEAS
Q
;
TIP ; Tooltips
;;Numerator: Total revenue generated by the microsystem provider during the ~specified month.~ ~Denominator: Number of visits to the microsystem provider during the ~specified month.~
;;% of patients with a primary care visit in the last month who saw THEIR ~OWN DPCP.~
;;% of patients with a visit to any clinic in the last 3 years that have a ~DPCP listed in RPMS. ~ ~See glossary for details.~
;;% of patients in the microsystem who are up to date on their age- and ~gender-appropriate breast, cervical, and colorectal cancer screenings.~ ~See glossary for specific definitions.~
;;% of patients in the microsystem that have had age- and ~gender-appropriate screening in the last year for alcohol use, ~depression, domestic violence/IPV, tobacco use, and BMI.~ ~See glossary for specific definitions.~
;;% of patients in the microsystem diagnosed with diabetes, and/or IHD, ~and/or hypertension that have had their blood pressure, and/or LDL, ~and/or HbA1c in control within the last year.~ ~See glossary for specific definitions.~
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;Patients who have documentation that they have set a goal during the last ~year.~
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;Number of ER/Urgent Care visits during the past month.~
;;
;;
;;
;;
;;
;;
;;
;;Represents total patients assigned to the provider as a DPCP.~
Q
;
BUN ; Bundles
;;
;;
;;
;;2011_219~2011_1970~2011_1969~
;;2011_2045~2011_1965~2011_1964~2011_269~2011_530~2011_871~
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;2011_83~
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;2011_1002~2011_810^1~2011_811^2~2011_812^3~2011_99^1~2011_95^2~2011_106^3~
;;2011_907^1~2011_871^1~
;;
;;
;;
;;
;;
;;
;;
;;
;;
Q
;
ARR ; Array
;;0|IPC_REVG^R^5^Revenue Generated Per Visit^^31^^Monthly_Data_Supplemental^L^K^^^A~1|D EN^BQIIPRVG(BQDATE)
;;0|IPC_CCPR^R^2^Continuity of Care Primary Provider^^29^^Monthly_Data_Core^CU^CT^9^80%^A~1|D EN^BQIIPCCP(BQDATE)
;;0|IPC_PEMP^R^2^% of Pts Empanelled to a Primary Care Provider^^2^^Monthly_Data_Core^H^G^9^90%^A^F~1|D EN^BQIIPEMP(BQDATE)
;;0|IPC_CANC^R^2^Cancer Screening Bundle^B^18^^Monthly_Data_Core^AU^AT^1^70%~1|D EN^BQIIPBNL(CRN,MSN,BQDATE,CODE)
;;0|IPC_HRISK^R^2^Health Risk Screening Bundle^B^4^^Monthly_Data_Core^R^Q^3^80%~1|D EN^BQIIPBNL(CRN,MSN,BQDATE,CODE)
;;0|IPC_OUTC^R^2^Outcome Measures Bundle^B^22^^Monthly_Data_Core^BL^BK^4^70%~1|D EN^BQIIPOTC(BQDATE)
;;0|2011_1970^G^2^Pap Smear Rates 21-64^^20^^Monthly_Data_Core^BC^BB^1~1|
;;0|2011_1969^G^2^Mammogram Rates 52-64^^19^^Monthly_Data_Core^AY^AX^1~1|
;;0|2011_219^G^2^Colorectal Cancer Screen 51-80 ^^21^^Monthly_Data_Core^BG^BF^1~1|
;;0|2011_55^G^5^DM: Comprehensive Care: A1C^^~1|
;;0|2011_59^G^5^DM: Comprehensive Care: Retinal Evaluation^^~1|
;;0|2011_60^G^2^DM: Comprehensive Care^^3^^Monthly_Data_Core^M^L^9^70%~1|
;;0|2011_83^G^2^DM: A1c Glycemic Control Ideal <7^^~1|
;;0|2011_87^G^2^DM: BP Controlled <130/80^^~1|
;;0|2011_95^G^2^DM: LDL Low <=100^^~1|
;;0|2011_127^G^5^DM: Dental Access^^34^^Monthly_Data_Supplemental^AF^AE^^70%~1|
;;0|2011_1981^G^5^Topical Fluoride: 2-15 (Dev)^^35^^Monthly_Data_Supplemental^AJ^AI~1|
;;0|2011_1275^G^5^DM: Foot Exam^^~1|
;;0|2011_2033^G^2^Comprehensive Cancer Screening (Dev)^^~1|
;;0|2011_2092^G^5^Pts 5+ Physical Activity Assessment^^~1|
;;0|2011_2153^G^5^Patients 2+: Comprehensive Health Screening^^~1|
;;0|2011_2154^G^5^Patients 2+: Comprehensive Health Screening excluding Physical Activity^^~1|
;;0|2011_2155^G^2^Patients 12-75: Comprehensive Health Screening: Alcohol Screen^^6^1~1|
;;0|2011_2156^G^2^Patients 18+: Comprehensive Health Screening: Depression Screen^^12^1~1|
;;0|2011_2157^G^2^Female Patients15-40: Comprehensive Health Screening: IPV/DV Screening^^14^1~1|
;;0|2011_2158^G^2^Patients 5+: Comprehensive Health Screening: Tobacco Use Assessed^^16^1~1|
;;0|2011_2159^G^2^Patients 2-74: Comprehensive Health Screening: BMI Calculated^^8^1~1|
;;0|2011_2160^G^2^Patients 20+: Comprehensive Health Screening: BP Assessed^^10^1~1|
;;0|2011_2161^G^5^Patients 5+: Comprehensive Health Screening: Physical Activity ^^33^^Monthly_Data_Supplemental^AA^Z^^70%~1|
;;0|2011_2452^G^2^Self Mgmt Goal Set^^28^^Monthly_Data_Core^^CJ^9^70%~1|
;;0|2011_2453^G^2^Goal Setting: Goal Met^^~1|
;;0|IPC_DMCTRL^R^2^A1C in Control^B^23^^Monthly_Data_Core^BP^BO^4~1|D DM^BQIIPOTC(CRN,MSN,BQDATE,CODE,$G(DFN))
;;0|2011_2045^G^2^Alcohol Screen: 12-75 (Dev)^^5^^Monthly_Data_Core^V^U^3~1|
;;0|2011_1965^G^2^IPV/DV Screen Females 15-40^^13^^Monthly_Data_Core^AL^AK^3~1|
;;0|2011_1964^G^2^Depression: Screening or Diagnosis 18+^^11^^Monthly_Data_Core^AH^AG^3~1|
;;0|2011_269^G^2^Tobacco Use/Exposure Assessment 5+^^15^^Monthly_Data_Core^AP^AO^3~1|
;;0|2011_530^G^2^BMI Measured 2-74^^7^^Monthly_Data_Core^Z^Y^3~1|
;;0|2011_871^G^2^20+: BP Assessed^^9^^Monthly_Data_Core^AD^AC^3~1|
;;0|2011_1^G^2^DM Prevalence (DX Ever)^^~1|
;;0|2011_92^G^2^DM BP Assessed^^~1|
;;0|2011_99^G^2^DM LDL Assessed^^~1|
;;0|2011_106^G^2^DM: LDL 101-129^^~1|
;;0|2011_810^G^2^23+: LDL Assessed^^~1|
;;0|2011_811^G^2^23+: LDL <=100^^~1|
;;0|2011_812^G^2^23+: LDL 101-130^^~1|
;;0|2011_872^G^2^20+: Normal BP^^~1|
;;0|2011_873^G^2^20+: Pre-HTN I BP^^~1|
;;0|2011_874^G^2^20+: Pre-HTN II BP^^~1|
;;0|2011_875^G^2^20+: Stage 1 HTN BP^^~1|
;;0|2011_876^G^2^20+: Stage 2 HTN BP^^~1|
;;0|2011_907^G^2^IHD: BP Assessed^^~1|
;;0|2011_908^G^2^IHD: Normal BP^^~1|
;;0|2011_909^G^2^IHD: Pre-HTN I BP^^~1|
;;0|2011_910^G^2^IHD: Pre-HTN II BP^^~1|
;;0|2011_911^G^2^IHD: Stage 1 HTN BP^^~1|
;;0|2011_912^G^2^IHD: Stage 2 HTN BP^^~1|
;;0|IPC_LDCTRL^R^2^LDL in Control^B^25^^Monthly_Data_Core^BX^BW^4~1|D LD^BQIIPOTC(CRN,MSN,BQDATE,CODE,$G(DFN))
;;0|IPC_BPCTRL^R^2^BP in Control^B^24^^Monthly_Data_Core^BT^BS^4~1|D BP^BQIIPOTC(CRN,MSN,BQDATE,CODE,$G(DFN))
;;0|IPC_ERUR^R^5^ER/Urgent Care visits^^30^^Monthly_Data_Supplemental^G^F^^^A~1|D ERUR^BQIIPPRG(BQDATE)
;;0|2011_398^G^5^Peds IZ 4 DTaP Active IMM^^~1|
;;0|2011_1271^G^5^Peds IZ 4 Doses Pneumococcal Active IMM^^~1|
;;0|2011_1971^G^5^Peds IZ 4:3:1:3:3 Active IMM^^~1|
;;0|2011_1972^G^5^Peds IZ 4:3:1:3:3:1 Active IMM^^~1|
;;0|2011_1973^G^5^Peds IZ 4:3:1:3:3:1:4 Active IMM^^32^^Monthly_Data_Supplemental^Q^P^^90%~1|
;;0|2011_1967^G^2^Tobacco Cessation: Counseling, RX^^27^^Monthly_Data_Core^CF^CE^9^70%~1|
;;0|2011_270^G^2^Tobacco Use Prevalence 5+^^26^^Monthly_Data_Core^^CB^9~1|
;;0|IPC_TOTP^R^2^Total Patients^^1^^Monthly_Data_Core^C^^9^^A~1|D TOT^BQIIPPRG(BQDATE)
Q
BQI23PU ;VNGT/HS/ALA-2.3 Install Utility Program ; 14 Sep 2011 11:58 AM
+1 ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59
+2 ;
+3 ;
IPC ; Set IPC
+1 NEW TEXT,BQIUPD,ERROR,BI,BJ,HELP,IEN
+2 NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL
+3 SET ^BQI(90508,1,22,0)="^90508.022^1^1"
+4 SET ^BQI(90508,1,22,1,0)="IPC3"
SET ^BQI(90508,1,22,1,"B","IPC3",1)=""
+5 SET $PIECE(^BQI(90508,1,22,1,5),U,1)="http://ipcreporting.improvingindianhealth.org/FilesDownload.aspx"
+6 SET $PIECE(^BQI(90508,1,22,1,5),U,2)="http://ipcreporting.improvingindianhealth.org/FilesUpload.aspx"
+7 SET $PIECE(^BQI(90508,1,22,1,4),U,1)="http://icare.spreadinnovation.com/FilesDownload.aspx"
+8 SET $PIECE(^BQI(90508,1,22,1,4),U,2)="http://icare.spreadinnovation.com/FilesUpload.aspx"
+9 SET ^BQI(90508,1,22,1,1,0)="^90508.221I^67^67"
+10 ;
+11 NEW DA,DIC,CLN,X
+12 SET DA(1)=1
SET DIC(0)="LNZ"
SET DIC="^BQI(90508,"_DA(1)_",23,"
SET DLAYGO=90508.023
SET DIC("P")=DLAYGO
+13 IF $GET(^BQI(90508,1,23,0))=""
SET ^BQI(90508,1,23,0)="^90508.023P^^"
+14 FOR CLN="01",13,20,28
Begin DoDot:1
+15 SET X=$ORDER(^DIC(40.7,"C",CLN,""))
IF X=""
QUIT
+16 SET X=$PIECE(^DIC(40.7,X,0),U,1)
+17 DO ^DIC
IF Y=-1
KILL DO,DD
DO FILE^DICN
End DoDot:1
+18 ;
+19 FOR BI=1:1
SET TEXT=$TEXT(ARR+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+20 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+21 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+22 SET NDATA=$PIECE(TEXT,"~",BJ)
+23 SET ND=$PIECE(NDATA,"|",1)
SET VAL=$PIECE(NDATA,"|",2)
+24 IF VAL=""
QUIT
+25 SET ^BQI(90508,1,22,1,1,BI,ND)=VAL
End DoDot:2
End DoDot:1
+26 ;
+27 FOR BI=1:1
SET TEXT=$TEXT(TIP+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+28 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+29 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+30 SET NDATA=$PIECE(TEXT,"~",BJ)
IF NDATA=""
QUIT
+31 SET ^BQI(90508,1,22,1,1,BI,3,BJ,0)=NDATA
End DoDot:2
+32 SET ^BQI(90508,1,22,1,1,BI,3,0)="^90508.2213^"_BJ_"^"_BJ
End DoDot:1
+33 ;
+34 FOR BI=1:1
SET TEXT=$TEXT(BUN+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+35 SET TEXT=$PIECE(TEXT,";;",2)
IF TEXT=""
QUIT
+36 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+37 SET NDATA=$PIECE(TEXT,"~",BJ)
IF NDATA=""
QUIT
+38 SET ^BQI(90508,1,22,1,1,BI,2,BJ,0)=NDATA
End DoDot:2
+39 SET ^BQI(90508,1,22,1,1,BI,2,0)="^90508.2212^"_BJ_"^"_BJ
End DoDot:1
+40 ;
+41 NEW DIK
+42 SET DIK="^BQI(90508,"
SET DA=1
+43 ;D ENALL^DIK
+44 DO IXALL^DIK
+45 ;
TAX ; Update taxonomies
+1 ; Add new taxonomies OR update existing ones
+2 DO ^BQIHTX
+3 ;
+4 IF $$VERSION^XPDUTL("BGP")="12.0"
DO CRS
+5 QUIT
+6 ;
CRS ; Update IPC if CRS v 12.0 has been installed
+1 NEW BQIYR,BGPYR
+2 SET BQIYR=2011
SET BGPYR=2012
+3 ; Update IPC
+4 NEW CRIPC,CRN,IDN,MEAS,NMEAS,BDN,PRV,PRN,FAC,FCN
+5 ; Get current IPC
+6 SET CRIPC=$PIECE($GET(^BQI(90508,1,11)),U,1)
+7 SET CRN=$ORDER(^BQI(90508,1,22,"B",CRIPC,""))
IF CRN=""
QUIT
+8 SET IDN=0
+9 FOR
SET IDN=$ORDER(^BQI(90508,1,22,CRN,1,IDN))
IF 'IDN
QUIT
Begin DoDot:1
+10 SET MEAS=$PIECE(^BQI(90508,1,22,CRN,1,IDN,0),U,1)
+11 IF $PIECE(MEAS,"_",1)'=BQIYR
DO BDN
QUIT
+12 SET NMEAS=$$CONV(MEAS)
+13 NEW DA,IENS
+14 SET DA(2)=1
SET DA(1)=CRN
SET DA=IDN
SET IENS=$$IENS^DILF(.DA)
+15 SET BQIUPD(90508.221,IENS,.01)=NMEAS
+16 SET PRV=0
+17 FOR
SET PRV=$ORDER(^BQIPROV(PRV))
IF 'PRV
QUIT
Begin DoDot:2
+18 SET PRN=$ORDER(^BQIPROV(PRV,30,"B",MEAS,""))
IF PRN=""
QUIT
Begin DoDot:3
+19 NEW DA,IENS
+20 SET DA(1)=PRV
SET DA=PRN
SET IENS=$$IENS^DILF(.DA)
+21 SET BQIUPD(90505.43,IENS,.01)=NMEAS
End DoDot:3
End DoDot:2
+22 SET FAC=0
+23 FOR
SET FAC=$ORDER(^BQIFAC(FAC))
IF 'FAC
QUIT
Begin DoDot:2
+24 SET FCN=$ORDER(^BQIFAC(FAC,30,"B",MEAS,""))
IF FCN=""
QUIT
Begin DoDot:3
+25 NEW DA,IENS
+26 SET DA(1)=FAC
SET DA=FCN
SET IENS=$$IENS^DILF(.DA)
+27 SET BQIUPD(90505.43,IENS,.01)=NMEAS
End DoDot:3
End DoDot:2
+28 DO BDN
End DoDot:1
+29 DO FILE^DIE("","BQIUPD","ERROR")
+30 QUIT
+31 ;
CONV(MSR) ;EP - Convert the Measure
+1 NEW NM
+2 SET NM=BGPYR_"_"_$PIECE(MSR,"_",2)
+3 QUIT NM
+4 ;
BDN ; Bundles
+1 SET BDN=0
+2 FOR
SET BDN=$ORDER(^BQI(90508,1,22,CRN,1,IDN,2,BDN))
IF 'BDN
QUIT
Begin DoDot:1
+3 SET MEAS=$PIECE(^BQI(90508,1,22,CRN,1,IDN,2,BDN,0),U,1)
+4 IF $PIECE(MEAS,"_",1)'=BQIYR
QUIT
+5 SET NMEAS=$$CONV(MEAS)
+6 NEW DA,IENS
+7 SET DA(3)=1
SET DA(2)=CRN
SET DA(1)=IDN
SET DA=BDN
SET IENS=$$IENS^DILF(.DA)
+8 SET BQIUPD(90508.2212,IENS,.01)=NMEAS
End DoDot:1
+9 QUIT
+10 ;
TIP ; Tooltips
+1 ;;Numerator: Total revenue generated by the microsystem provider during the ~specified month.~ ~Denominator: Number of visits to the microsystem provider during the ~specified month.~
+2 ;;% of patients with a primary care visit in the last month who saw THEIR ~OWN DPCP.~
+3 ;;% of patients with a visit to any clinic in the last 3 years that have a ~DPCP listed in RPMS. ~ ~See glossary for details.~
+4 ;;% of patients in the microsystem who are up to date on their age- and ~gender-appropriate breast, cervical, and colorectal cancer screenings.~ ~See glossary for specific definitions.~
+5 ;;% of patients in the microsystem that have had age- and ~gender-appropriate screening in the last year for alcohol use, ~depression, domestic violence/IPV, tobacco use, and BMI.~ ~See glossary for specific definitions.~
+6 ;;% of patients in the microsystem diagnosed with diabetes, and/or IHD, ~and/or hypertension that have had their blood pressure, and/or LDL, ~and/or HbA1c in control within the last year.~ ~See glossary for specific definitions.~
+7 ;;
+8 ;;
+9 ;;
+10 ;;
+11 ;;
+12 ;;
+13 ;;
+14 ;;
+15 ;;
+16 ;;
+17 ;;
+18 ;;
+19 ;;
+20 ;;
+21 ;;
+22 ;;
+23 ;;
+24 ;;
+25 ;;
+26 ;;
+27 ;;
+28 ;;
+29 ;;
+30 ;;Patients who have documentation that they have set a goal during the last ~year.~
+31 ;;
+32 ;;
+33 ;;
+34 ;;
+35 ;;
+36 ;;
+37 ;;
+38 ;;
+39 ;;
+40 ;;
+41 ;;
+42 ;;
+43 ;;
+44 ;;
+45 ;;
+46 ;;
+47 ;;
+48 ;;
+49 ;;
+50 ;;
+51 ;;
+52 ;;
+53 ;;
+54 ;;
+55 ;;
+56 ;;
+57 ;;
+58 ;;
+59 ;;Number of ER/Urgent Care visits during the past month.~
+60 ;;
+61 ;;
+62 ;;
+63 ;;
+64 ;;
+65 ;;
+66 ;;
+67 ;;Represents total patients assigned to the provider as a DPCP.~
+68 QUIT
+69 ;
BUN ; Bundles
+1 ;;
+2 ;;
+3 ;;
+4 ;;2011_219~2011_1970~2011_1969~
+5 ;;2011_2045~2011_1965~2011_1964~2011_269~2011_530~2011_871~
+6 ;;
+7 ;;
+8 ;;
+9 ;;
+10 ;;
+11 ;;
+12 ;;
+13 ;;
+14 ;;
+15 ;;
+16 ;;
+17 ;;
+18 ;;
+19 ;;
+20 ;;
+21 ;;
+22 ;;
+23 ;;
+24 ;;
+25 ;;
+26 ;;
+27 ;;
+28 ;;
+29 ;;
+30 ;;
+31 ;;
+32 ;;2011_83~
+33 ;;
+34 ;;
+35 ;;
+36 ;;
+37 ;;
+38 ;;
+39 ;;
+40 ;;
+41 ;;
+42 ;;
+43 ;;
+44 ;;
+45 ;;
+46 ;;
+47 ;;
+48 ;;
+49 ;;
+50 ;;
+51 ;;
+52 ;;
+53 ;;
+54 ;;
+55 ;;
+56 ;;
+57 ;;2011_1002~2011_810^1~2011_811^2~2011_812^3~2011_99^1~2011_95^2~2011_106^3~
+58 ;;2011_907^1~2011_871^1~
+59 ;;
+60 ;;
+61 ;;
+62 ;;
+63 ;;
+64 ;;
+65 ;;
+66 ;;
+67 ;;
+68 QUIT
+69 ;
ARR ; Array
+1 ;;0|IPC_REVG^R^5^Revenue Generated Per Visit^^31^^Monthly_Data_Supplemental^L^K^^^A~1|D EN^BQIIPRVG(BQDATE)
+2 ;;0|IPC_CCPR^R^2^Continuity of Care Primary Provider^^29^^Monthly_Data_Core^CU^CT^9^80%^A~1|D EN^BQIIPCCP(BQDATE)
+3 ;;0|IPC_PEMP^R^2^% of Pts Empanelled to a Primary Care Provider^^2^^Monthly_Data_Core^H^G^9^90%^A^F~1|D EN^BQIIPEMP(BQDATE)
+4 ;;0|IPC_CANC^R^2^Cancer Screening Bundle^B^18^^Monthly_Data_Core^AU^AT^1^70%~1|D EN^BQIIPBNL(CRN,MSN,BQDATE,CODE)
+5 ;;0|IPC_HRISK^R^2^Health Risk Screening Bundle^B^4^^Monthly_Data_Core^R^Q^3^80%~1|D EN^BQIIPBNL(CRN,MSN,BQDATE,CODE)
+6 ;;0|IPC_OUTC^R^2^Outcome Measures Bundle^B^22^^Monthly_Data_Core^BL^BK^4^70%~1|D EN^BQIIPOTC(BQDATE)
+7 ;;0|2011_1970^G^2^Pap Smear Rates 21-64^^20^^Monthly_Data_Core^BC^BB^1~1|
+8 ;;0|2011_1969^G^2^Mammogram Rates 52-64^^19^^Monthly_Data_Core^AY^AX^1~1|
+9 ;;0|2011_219^G^2^Colorectal Cancer Screen 51-80 ^^21^^Monthly_Data_Core^BG^BF^1~1|
+10 ;;0|2011_55^G^5^DM: Comprehensive Care: A1C^^~1|
+11 ;;0|2011_59^G^5^DM: Comprehensive Care: Retinal Evaluation^^~1|
+12 ;;0|2011_60^G^2^DM: Comprehensive Care^^3^^Monthly_Data_Core^M^L^9^70%~1|
+13 ;;0|2011_83^G^2^DM: A1c Glycemic Control Ideal <7^^~1|
+14 ;;0|2011_87^G^2^DM: BP Controlled <130/80^^~1|
+15 ;;0|2011_95^G^2^DM: LDL Low <=100^^~1|
+16 ;;0|2011_127^G^5^DM: Dental Access^^34^^Monthly_Data_Supplemental^AF^AE^^70%~1|
+17 ;;0|2011_1981^G^5^Topical Fluoride: 2-15 (Dev)^^35^^Monthly_Data_Supplemental^AJ^AI~1|
+18 ;;0|2011_1275^G^5^DM: Foot Exam^^~1|
+19 ;;0|2011_2033^G^2^Comprehensive Cancer Screening (Dev)^^~1|
+20 ;;0|2011_2092^G^5^Pts 5+ Physical Activity Assessment^^~1|
+21 ;;0|2011_2153^G^5^Patients 2+: Comprehensive Health Screening^^~1|
+22 ;;0|2011_2154^G^5^Patients 2+: Comprehensive Health Screening excluding Physical Activity^^~1|
+23 ;;0|2011_2155^G^2^Patients 12-75: Comprehensive Health Screening: Alcohol Screen^^6^1~1|
+24 ;;0|2011_2156^G^2^Patients 18+: Comprehensive Health Screening: Depression Screen^^12^1~1|
+25 ;;0|2011_2157^G^2^Female Patients15-40: Comprehensive Health Screening: IPV/DV Screening^^14^1~1|
+26 ;;0|2011_2158^G^2^Patients 5+: Comprehensive Health Screening: Tobacco Use Assessed^^16^1~1|
+27 ;;0|2011_2159^G^2^Patients 2-74: Comprehensive Health Screening: BMI Calculated^^8^1~1|
+28 ;;0|2011_2160^G^2^Patients 20+: Comprehensive Health Screening: BP Assessed^^10^1~1|
+29 ;;0|2011_2161^G^5^Patients 5+: Comprehensive Health Screening: Physical Activity ^^33^^Monthly_Data_Supplemental^AA^Z^^70%~1|
+30 ;;0|2011_2452^G^2^Self Mgmt Goal Set^^28^^Monthly_Data_Core^^CJ^9^70%~1|
+31 ;;0|2011_2453^G^2^Goal Setting: Goal Met^^~1|
+32 ;;0|IPC_DMCTRL^R^2^A1C in Control^B^23^^Monthly_Data_Core^BP^BO^4~1|D DM^BQIIPOTC(CRN,MSN,BQDATE,CODE,$G(DFN))
+33 ;;0|2011_2045^G^2^Alcohol Screen: 12-75 (Dev)^^5^^Monthly_Data_Core^V^U^3~1|
+34 ;;0|2011_1965^G^2^IPV/DV Screen Females 15-40^^13^^Monthly_Data_Core^AL^AK^3~1|
+35 ;;0|2011_1964^G^2^Depression: Screening or Diagnosis 18+^^11^^Monthly_Data_Core^AH^AG^3~1|
+36 ;;0|2011_269^G^2^Tobacco Use/Exposure Assessment 5+^^15^^Monthly_Data_Core^AP^AO^3~1|
+37 ;;0|2011_530^G^2^BMI Measured 2-74^^7^^Monthly_Data_Core^Z^Y^3~1|
+38 ;;0|2011_871^G^2^20+: BP Assessed^^9^^Monthly_Data_Core^AD^AC^3~1|
+39 ;;0|2011_1^G^2^DM Prevalence (DX Ever)^^~1|
+40 ;;0|2011_92^G^2^DM BP Assessed^^~1|
+41 ;;0|2011_99^G^2^DM LDL Assessed^^~1|
+42 ;;0|2011_106^G^2^DM: LDL 101-129^^~1|
+43 ;;0|2011_810^G^2^23+: LDL Assessed^^~1|
+44 ;;0|2011_811^G^2^23+: LDL <=100^^~1|
+45 ;;0|2011_812^G^2^23+: LDL 101-130^^~1|
+46 ;;0|2011_872^G^2^20+: Normal BP^^~1|
+47 ;;0|2011_873^G^2^20+: Pre-HTN I BP^^~1|
+48 ;;0|2011_874^G^2^20+: Pre-HTN II BP^^~1|
+49 ;;0|2011_875^G^2^20+: Stage 1 HTN BP^^~1|
+50 ;;0|2011_876^G^2^20+: Stage 2 HTN BP^^~1|
+51 ;;0|2011_907^G^2^IHD: BP Assessed^^~1|
+52 ;;0|2011_908^G^2^IHD: Normal BP^^~1|
+53 ;;0|2011_909^G^2^IHD: Pre-HTN I BP^^~1|
+54 ;;0|2011_910^G^2^IHD: Pre-HTN II BP^^~1|
+55 ;;0|2011_911^G^2^IHD: Stage 1 HTN BP^^~1|
+56 ;;0|2011_912^G^2^IHD: Stage 2 HTN BP^^~1|
+57 ;;0|IPC_LDCTRL^R^2^LDL in Control^B^25^^Monthly_Data_Core^BX^BW^4~1|D LD^BQIIPOTC(CRN,MSN,BQDATE,CODE,$G(DFN))
+58 ;;0|IPC_BPCTRL^R^2^BP in Control^B^24^^Monthly_Data_Core^BT^BS^4~1|D BP^BQIIPOTC(CRN,MSN,BQDATE,CODE,$G(DFN))
+59 ;;0|IPC_ERUR^R^5^ER/Urgent Care visits^^30^^Monthly_Data_Supplemental^G^F^^^A~1|D ERUR^BQIIPPRG(BQDATE)
+60 ;;0|2011_398^G^5^Peds IZ 4 DTaP Active IMM^^~1|
+61 ;;0|2011_1271^G^5^Peds IZ 4 Doses Pneumococcal Active IMM^^~1|
+62 ;;0|2011_1971^G^5^Peds IZ 4:3:1:3:3 Active IMM^^~1|
+63 ;;0|2011_1972^G^5^Peds IZ 4:3:1:3:3:1 Active IMM^^~1|
+64 ;;0|2011_1973^G^5^Peds IZ 4:3:1:3:3:1:4 Active IMM^^32^^Monthly_Data_Supplemental^Q^P^^90%~1|
+65 ;;0|2011_1967^G^2^Tobacco Cessation: Counseling, RX^^27^^Monthly_Data_Core^CF^CE^9^70%~1|
+66 ;;0|2011_270^G^2^Tobacco Use Prevalence 5+^^26^^Monthly_Data_Core^^CB^9~1|
+67 ;;0|IPC_TOTP^R^2^Total Patients^^1^^Monthly_Data_Core^C^^9^^A~1|D TOT^BQIIPPRG(BQDATE)
+68 QUIT
