source: qrda/C0Q/C0Q_1_0_0_T1.KID@ 1113

KIDS Distribution saved on Nov 19, 2010@17:04:10
initial build of C0Q Quality Reporting Package
**KIDS**:C0Q*1.0*0^

**INSTALL NAME**
C0Q*1.0*0
"BLD",7338,0)
C0Q*1.0*0^^0^3101119^n
"BLD",7338,4,0)
^9.64PA^1130580001.101^2
"BLD",7338,4,1130580001.101,0)
1130580001.101
"BLD",7338,4,1130580001.101,222)
y^y^f^^n^^y^o^n
"BLD",7338,4,1130580001.201,0)
1130580001.201
"BLD",7338,4,1130580001.201,222)
y^y^f^^^^n
"BLD",7338,4,"B",1130580001.101,1130580001.101)

"BLD",7338,4,"B",1130580001.201,1130580001.201)

"BLD",7338,6.3)
1
"BLD",7338,"KRN",0)
^9.67PA^779.2^20
"BLD",7338,"KRN",.4,0)
.4
"BLD",7338,"KRN",.4,"NM",0)
^9.68A^3^3
"BLD",7338,"KRN",.4,"NM",1,0)
C0Q PRINT BY PATIENT    FILE #1130580001.201^1130580001.201^0
"BLD",7338,"KRN",.4,"NM",2,0)
C0Q PRINT MEASUREMENT SET    FILE #1130580001.201^1130580001.201^0
"BLD",7338,"KRN",.4,"NM",3,0)
C0Q PRINT QUALITY MEASURES    FILE #1130580001.101^1130580001.101^0
"BLD",7338,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT    FILE #1130580001.201",1)

"BLD",7338,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET    FILE #1130580001.201",2)

"BLD",7338,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES    FILE #1130580001.101",3)

"BLD",7338,"KRN",.401,0)
.401
"BLD",7338,"KRN",.402,0)
.402
"BLD",7338,"KRN",.402,"NM",0)
^9.68A^2^2
"BLD",7338,"KRN",.402,"NM",1,0)
C0Q MEASUREMENT SET DEFINE    FILE #1130580001.201^1130580001.201^0
"BLD",7338,"KRN",.402,"NM",2,0)
C0Q QUALITY MEASURE DEFINITION    FILE #1130580001.101^1130580001.101^0
"BLD",7338,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE    FILE #1130580001.201",1)

"BLD",7338,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION    FILE #1130580001.101",2)

"BLD",7338,"KRN",.403,0)
.403
"BLD",7338,"KRN",.5,0)
.5
"BLD",7338,"KRN",.84,0)
.84
"BLD",7338,"KRN",3.6,0)
3.6
"BLD",7338,"KRN",3.8,0)
3.8
"BLD",7338,"KRN",9.2,0)
9.2
"BLD",7338,"KRN",9.8,0)
9.8
"BLD",7338,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",7338,"KRN",9.8,"NM",1,0)
C0QMAIN^^0^B69544556
"BLD",7338,"KRN",9.8,"NM","B","C0QMAIN",1)

"BLD",7338,"KRN",19,0)
19
"BLD",7338,"KRN",19,"NM",0)
^9.68A^11^11
"BLD",7338,"KRN",19,"NM",1,0)
C0Q BY PATIENT NUMERATOR^^0
"BLD",7338,"KRN",19,"NM",2,0)
C0Q DENOMINATOR PATIENT LIST^^0
"BLD",7338,"KRN",19,"NM",3,0)
C0Q DISPLAY MEASURE SET^^0
"BLD",7338,"KRN",19,"NM",4,0)
C0Q DISPLAY QUALITY MEASURES^^0
"BLD",7338,"KRN",19,"NM",5,0)
C0Q EXPORT CCR BY MEASURE^^0
"BLD",7338,"KRN",19,"NM",6,0)
C0Q EXPORT MEASURE SET^^0
"BLD",7338,"KRN",19,"NM",7,0)
C0Q LIST MEASURE SET^^0
"BLD",7338,"KRN",19,"NM",8,0)
C0Q MEASURE SET DEFINITION^^0
"BLD",7338,"KRN",19,"NM",9,0)
C0Q QUALITY MEASURE DEFINITION^^0
"BLD",7338,"KRN",19,"NM",10,0)
C0Q QUALITY MEASUREMENT MENU^^0
"BLD",7338,"KRN",19,"NM",11,0)
C0Q SUMMARY QUALITY MEASURES^^0
"BLD",7338,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1)

"BLD",7338,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2)

"BLD",7338,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3)

"BLD",7338,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4)

"BLD",7338,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5)

"BLD",7338,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6)

"BLD",7338,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7)

"BLD",7338,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8)

"BLD",7338,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9)

"BLD",7338,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10)

"BLD",7338,"KRN",19,"NM","B","C0Q SUMMARY QUALITY MEASURES",11)

"BLD",7338,"KRN",19.1,0)
19.1
"BLD",7338,"KRN",101,0)
101
"BLD",7338,"KRN",409.61,0)
409.61
"BLD",7338,"KRN",771,0)
771
"BLD",7338,"KRN",779.2,0)
779.2
"BLD",7338,"KRN",870,0)
870
"BLD",7338,"KRN",8989.51,0)
8989.51
"BLD",7338,"KRN",8989.52,0)
8989.52
"BLD",7338,"KRN",8994,0)
8994
"BLD",7338,"KRN","B",.4,.4)

"BLD",7338,"KRN","B",.401,.401)

"BLD",7338,"KRN","B",.402,.402)

"BLD",7338,"KRN","B",.403,.403)

"BLD",7338,"KRN","B",.5,.5)

"BLD",7338,"KRN","B",.84,.84)

"BLD",7338,"KRN","B",3.6,3.6)

"BLD",7338,"KRN","B",3.8,3.8)

"BLD",7338,"KRN","B",9.2,9.2)

"BLD",7338,"KRN","B",9.8,9.8)

"BLD",7338,"KRN","B",19,19)

"BLD",7338,"KRN","B",19.1,19.1)

"BLD",7338,"KRN","B",101,101)

"BLD",7338,"KRN","B",409.61,409.61)

"BLD",7338,"KRN","B",771,771)

"BLD",7338,"KRN","B",779.2,779.2)

"BLD",7338,"KRN","B",870,870)

"BLD",7338,"KRN","B",8989.51,8989.51)

"BLD",7338,"KRN","B",8989.52,8989.52)

"BLD",7338,"KRN","B",8994,8994)

"DATA",1130580001.101,1,0)
M1^41^40^2.16.840.1.113883.3.249.11.2
"DATA",1130580001.101,1,1)
CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus
"DATA",1130580001.101,1,4)
PQRI-1
"DATA",1130580001.101,1,5)
Hemoglobin A1c Poor Control in Diabetes Mellitus
"DATA",1130580001.101,1,6,0)
^^2^2^3101013^
"DATA",1130580001.101,1,6,1,0)
Percentage of patients 18 through 75 years with diabetes melli
"DATA",1130580001.101,1,6,2,0)
tus who had most recent hemoglobin A1C greater than 9.0%
"DATA",1130580001.101,2,0)
M5^47^46^2.16.840.1.113883.3.249.11.5
"DATA",1130580001.101,2,1)
CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD)
"DATA",1130580001.101,2,4)
PQRI-5
"DATA",1130580001.101,2,5)
Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD)
"DATA",1130580001.101,2,6,0)
^^2^2^3101013^
"DATA",1130580001.101,2,6,1,0)
Percentage of patients 18 years and older with a diagnosis of 
"DATA",1130580001.101,2,6,2,0)
heart failure and LVSD who were prescribed an ACE inhbitor or ARB therapy
"DATA",1130580001.101,3,0)
M112^26^25^2.16.840.1.113883.3.249.11.9
"DATA",1130580001.101,3,1)
Measure #112: Preventive Care and Screening: Screening Mammography
"DATA",1130580001.101,3,4)
PQRI-112
"DATA",1130580001.101,3,5)
Screening Mammography
"DATA",1130580001.101,3,6,0)
^1130580001.111^2^2^3101014^^
"DATA",1130580001.101,3,6,1,0)
Percentage of womaen aged 40 through 69 years who had a mammog
"DATA",1130580001.101,3,6,2,0)
ram to screen for breast cancer within 24 months
"DATA",1130580001.101,4,0)
M124^33^33^2.16.840.1.113883.3.249.11.11
"DATA",1130580001.101,4,1)
Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records
"DATA",1130580001.101,4,4)
PQRI-124
"DATA",1130580001.101,4,5)
Adoption/Use of Electronic Health Records (EHR)
"DATA",1130580001.101,4,6,0)
^^3^3^3101013^
"DATA",1130580001.101,4,6,1,0)
Documents whether provider has adopted and is using health inf
"DATA",1130580001.101,4,6,2,0)
ormation technology. To qualify, the provider must havea adopted and be 
"DATA",1130580001.101,4,6,3,0)
using a certified/qualified electronic health record (EHR)
"DATA",1130580001.101,5,0)
M128^58^31^2.16.840.1.113883.3.249.11.54
"DATA",1130580001.101,5,1)
Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up
"DATA",1130580001.101,5,4)
PQRI-128
"DATA",1130580001.101,5,5)
Body Mass Index (BMI) Screening and Follow-Up
"DATA",1130580001.101,5,6,0)
^1130580001.111^5^5^3101014^^
"DATA",1130580001.101,5,6,1,0)
Percentage of patients aged 18 yesrs and older with a calculate BMI in 
"DATA",1130580001.101,5,6,2,0)
the past 6 months or during the current visit documented in the medical 
"DATA",1130580001.101,5,6,3,0)
record and if the most recent BMI is ourtide parameters, a follow-up plan 
"DATA",1130580001.101,5,6,4,0)
is documented. Ages 65 and older BMI equal to or greater than 30 or less 
"DATA",1130580001.101,5,6,5,0)
than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5
"DATA",1130580001.101,6,0)
M47^20^48^2.16.840.1.113883.3.249.11.52
"DATA",1130580001.101,6,1)
Measure #47: Advance Care Plan
"DATA",1130580001.101,6,4)
PQRI-47
"DATA",1130580001.101,6,5)
Advance Care Plan
"DATA",1130580001.101,6,6,0)
^1130580001.111^5^5^3101014^^^
"DATA",1130580001.101,6,6,1,0)
Percentage of patients age 65 and older who have an advanced care plan or 
"DATA",1130580001.101,6,6,2,0)
surrogate decision maker documented in the medical record or documented 
"DATA",1130580001.101,6,6,3,0)
in the medical record that an advance care plan was discussed but the 
"DATA",1130580001.101,6,6,4,0)
patient did not wish or was not able to name a surrogate decision maker 
"DATA",1130580001.101,6,6,5,0)
or provide an advance care plan.
"DATA",1130580001.101,7,0)
M48^24^23^2.16.840.1.113883.3.249.11.53
"DATA",1130580001.101,7,1)
Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older
"DATA",1130580001.101,7,4)
PQRI-48
"DATA",1130580001.101,7,5)
Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older
"DATA",1130580001.101,7,6,0)
^^3^3^3101013^
"DATA",1130580001.101,7,6,1,0)
Percentage of patients equal to or older than 65 years of age at the 
"DATA",1130580001.101,7,6,2,0)
beginning of the measurement perion who were assesed for the presence or 
"DATA",1130580001.101,7,6,3,0)
absence of urinary incontinence within 12 months
"DATA",1130580001.101,8,0)
M2^43^42^2.16.840.1.113883.3.249.11.3
"DATA",1130580001.101,8,1)
Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus
"DATA",1130580001.101,8,4)
PQRI-2
"DATA",1130580001.101,8,5)
Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus
"DATA",1130580001.101,8,6,0)
^^2^2^3101013^
"DATA",1130580001.101,8,6,1,0)
Percentage of patients 18 through 75 years with diabetes melli
"DATA",1130580001.101,8,6,2,0)
tus who had most recent LDL-C level in control (less than 100 mg./dL)
"DATA",1130580001.101,9,0)
M3^45^44^2.16.840.1.113883.3.249.11.4
"DATA",1130580001.101,9,1)
CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus - QRDA Cat I template
"DATA",1130580001.101,9,4)
PQRI-3
"DATA",1130580001.101,9,5)
High Blood Pressure Control in Diabetes Mellitus
"DATA",1130580001.101,9,6,0)
^^2^2^3101013^
"DATA",1130580001.101,9,6,1,0)
Percentage of patients 18 through 75 years with diabetes melli
"DATA",1130580001.101,9,6,2,0)
tus who had most recent blood pressure in control (less than 140/80 mmHg)
"DATA",1130580001.101,10,0)
M7^35^34^2.16.840.1.113883.3.249.11.6
"DATA",1130580001.101,10,1)
CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI)
"DATA",1130580001.101,10,4)
PQRI-7
"DATA",1130580001.101,10,5)
Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy
"DATA",1130580001.101,10,6,0)
^^3^3^3101013^
"DATA",1130580001.101,10,6,1,0)
Percentage of patients aged 18 years and older with a diagnosis of 
"DATA",1130580001.101,10,6,2,0)
coronary artery disease and a prior MI who where prescribed beta-blocker 
"DATA",1130580001.101,10,6,3,0)
therapy
"DATA",1130580001.101,11,0)
M110^81^80^2.16.840.1.113883.3.249.11.7
"DATA",1130580001.101,11,1)
Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years
"DATA",1130580001.101,11,4)
PQRI-110
"DATA",1130580001.101,11,5)
Influenza Immunization for Patients >= 50 Years
"DATA",1130580001.101,11,6,0)
^1130580001.111^2^2^3101014^^
"DATA",1130580001.101,11,6,1,0)
Percentage of patients aged 50 years and older who received an
"DATA",1130580001.101,11,6,2,0)
 influenza immunization during the flu season (September through February)
"DATA",1130580001.101,12,0)
M111^71^68^2.16.840.1.113883.3.249.11.8
"DATA",1130580001.101,12,1)
Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older
"DATA",1130580001.101,12,4)
PQRI-111
"DATA",1130580001.101,12,5)
Pneumonia Vaccination for Patients 65 Years and Older
"DATA",1130580001.101,12,6,0)
^^2^2^3101013^
"DATA",1130580001.101,12,6,1,0)
Percentage of patients afed 65 years and older who have ever r
"DATA",1130580001.101,12,6,2,0)
eceived a pneumoccal vaccine
"DATA",1130580001.101,13,0)
M113^67^66^2.16.840.1.113883.3.249.11.10
"DATA",1130580001.101,13,1)
Measure #113: Preventive Care and Screening: Colorectal Cancer Screening
"DATA",1130580001.101,13,4)
PQRI-113
"DATA",1130580001.101,13,5)
Colorectal Cancer Screening
"DATA",1130580001.101,13,6,0)
^^2^2^3101013^
"DATA",1130580001.101,13,6,1,0)
Percentage of patients aged 50 through 80 who received the app
"DATA",1130580001.101,13,6,2,0)
ropriate colorectal cancer screening
"DATA",1130580001.101,14,0)
M39^65^64^2.16.840.1.113883.3.249.11.51
"DATA",1130580001.101,14,1)
Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older
"DATA",1130580001.101,14,4)
PQRI-39
"DATA",1130580001.101,14,5)
Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older
"DATA",1130580001.101,14,6,0)
^^3^3^3101013^
"DATA",1130580001.101,14,6,1,0)
Percentage of patients who had a DXA measurement ordered or pe
"DATA",1130580001.101,14,6,2,0)
rformed at least once since age 60 or pharmacologic therapy prescribed 
"DATA",1130580001.101,14,6,3,0)
within 12 months before the end of the measurement period
"DATA",1130580001.101,16,0)
M173^50^49^2.16.840.1.113883.3.249.11.55
"DATA",1130580001.101,16,1)
Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening
"DATA",1130580001.101,16,4)
PQRI-173
"DATA",1130580001.101,16,5)
Preventive Care and Screening: Unhealthy Alcohol Use - Screening
"DATA",1130580001.101,16,6,0)
^^2^2^3101013^
"DATA",1130580001.101,16,6,1,0)
Percentage of patients aged 18 years and older who were screen
"DATA",1130580001.101,16,6,2,0)
ed for unhealthy alcohol use using a systematic method within 24 months
"DATA",1130580001.101,17,0)
M0013^52^77^2.16.840.1.113883.3.249.11.56
"DATA",1130580001.101,17,1)
Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template
"DATA",1130580001.101,17,4)
PQRI-13
"DATA",1130580001.101,17,5)
Hypertension (HTN): Blood Pressure Measurement
"DATA",1130580001.101,17,6,0)
^^3^3^3101013^
"DATA",1130580001.101,17,6,1,0)
Percentage of patients aged 18 years and older with a diagnosi
"DATA",1130580001.101,17,6,2,0)
s of hypertension in the beginning of the measurement period with a blood 
"DATA",1130580001.101,17,6,3,0)
pressure recorded
"DATA",1130580001.101,18,0)
M0022^73^61^2.16.840.1.113883.3.249.11.57
"DATA",1130580001.101,18,1)
Measure #0022: Drugs to be avoided in the Elderly
"DATA",1130580001.101,18,4)
PQRI-22
"DATA",1130580001.101,18,5)
Drugs to be avoided in the elderly
"DATA",1130580001.101,18,6,0)
^^2^2^3101013^
"DATA",1130580001.101,18,6,1,0)
Percentage of patients aged 65 years and older who received at least one 
"DATA",1130580001.101,18,6,2,0)
drug to be avoided in the elderly in the measurement period
"DATA",1130580001.101,19,0)
M0028^79^78^2.16.840.1.113883.3.249.11.59
"DATA",1130580001.101,19,1)
Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention
"DATA",1130580001.101,19,4)
PQRI-28
"DATA",1130580001.101,19,5)
Preventive care and Screening: Tobacco Use: Screening and Cessation Intervention
"DATA",1130580001.101,19,6,0)
^^4^4^3101013^
"DATA",1130580001.101,19,6,1,0)
Percentage of patients aged 18 years of older who were screene
"DATA",1130580001.101,19,6,2,0)
d about tobacco use at least once during the two year measurement period 
"DATA",1130580001.101,19,6,3,0)
AND who received smoking cessation counseling if identified as a tobacco 
"DATA",1130580001.101,19,6,4,0)
user
"DATA",1130580001.101,20,0)
M0038^85^84^2.16.840.1.113883.3.249.11.60
"DATA",1130580001.101,20,1)
Measure #0038: Childhood Immunization Status
"DATA",1130580001.101,20,4)
PQRI-38
"DATA",1130580001.101,20,5)
Childhood immumnization status
"DATA",1130580001.101,20,6,0)
^^4^4^3101013^
"DATA",1130580001.101,20,6,1,0)
Percentage of children who turn two years of age during the me
"DATA",1130580001.101,20,6,2,0)
asurement period who have had 4 DTaP/DT, 3 IPV, 1 MMR and 3 H influenza 
"DATA",1130580001.101,20,6,3,0)
type B, 3 hepatitis B, 1 chicken pox vaccine (VZV) and 4 pneumoccal 
"DATA",1130580001.101,20,6,4,0)
conjugate vaccines by their second birthday
"DATA",1130580001.101,21,0)
M0024^72^70
"FIA",1130580001.101)
C0Q QUAILITY MEASURE
"FIA",1130580001.101,0)
^C0Q(101,
"FIA",1130580001.101,0,0)
1130580001.101
"FIA",1130580001.101,0,1)
y^y^f^^n^^y^o^n
"FIA",1130580001.101,0,10)

"FIA",1130580001.101,0,11)

"FIA",1130580001.101,0,"RLRO")

"FIA",1130580001.101,1130580001.101)
0
"FIA",1130580001.101,1130580001.111)
0
"FIA",1130580001.201)
C0Q MEASUREMENTS
"FIA",1130580001.201,0)
^C0Q(201,
"FIA",1130580001.201,0,0)
1130580001.201
"FIA",1130580001.201,0,1)
y^y^f^^^^n
"FIA",1130580001.201,0,10)

"FIA",1130580001.201,0,11)

"FIA",1130580001.201,0,"RLRO")

"FIA",1130580001.201,1130580001.201)
0
"FIA",1130580001.201,1130580001.2011)
0
"FIA",1130580001.201,1130580001.20111)
0
"FIA",1130580001.201,1130580001.20112)
0
"KRN",.4,2540,-1)
0^3
"KRN",.4,2540,0)
C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3101015
"KRN",.4,2540,"F",2)
.01~.5~1~2~
"KRN",.4,2540,"H")
C0Q QUAILITY MEASURE LIST
"KRN",.4,2541,-1)
0^2
"KRN",.4,2541,0)
C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3101102
"KRN",.4,2541,"F",2)
.01~.02~.03~.05~.2~1,.01~1,1,.01~1,1.1~1,2,.01~1,2.1~1,3~
"KRN",.4,2541,"H")
C0Q MEASUREMENTS LIST
"KRN",.4,2542,-1)
0^1
"KRN",.4,2542,0)
C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014
"KRN",.4,2542,"F",2)
.01~1,.01~1,2,.01~
"KRN",.4,2542,"H")
C0Q MEASUREMENTS LIST
"KRN",.402,2236,-1)
0^2
"KRN",.402,2236,0)
C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3101108
"KRN",.402,2236,"DR",1,1130580001.101)
.01;.5;1;2;
"KRN",.402,2237,-1)
0^1
"KRN",.402,2237,0)
C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3101108
"KRN",.402,2237,"DR",1,1130580001.201)
.01;1;
"KRN",.402,2237,"DR",2,1130580001.2011)
.01;
"KRN",19,13695,-1)
0^9
"KRN",19,13695,0)
C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^
"KRN",19,13695,30)
C0Q(101,
"KRN",19,13695,31)
AEMQL
"KRN",19,13695,50)
C0Q(101,
"KRN",19,13695,51)
[C0Q QUALITY MEASURE DEFINITION]
"KRN",19,13695,"U")
QUALITY MEASURE DEFINITION
"KRN",19,13696,-1)
0^8
"KRN",19,13696,0)
C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^
"KRN",19,13696,30)
C0Q(201,
"KRN",19,13696,31)
AEMQL
"KRN",19,13696,50)
C0Q(201,
"KRN",19,13696,51)
[C0Q MEASUREMENT SET DEFINE]
"KRN",19,13696,"U")
MEASURE SET DEFINITION
"KRN",19,13697,-1)
0^10
"KRN",19,13697,0)
C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^
"KRN",19,13697,10,0)
^19.01IP^10^8
"KRN",19,13697,10,1,0)
13696
"KRN",19,13697,10,1,"^")
C0Q MEASURE SET DEFINITION
"KRN",19,13697,10,2,0)
13695
"KRN",19,13697,10,2,"^")
C0Q QUALITY MEASURE DEFINITION
"KRN",19,13697,10,5,0)
13700
"KRN",19,13697,10,5,"^")
C0Q LIST MEASURE SET
"KRN",19,13697,10,6,0)
13701
"KRN",19,13697,10,6,"^")
C0Q BY PATIENT NUMERATOR
"KRN",19,13697,10,7,0)
13702
"KRN",19,13697,10,7,"^")
C0Q DENOMINATOR PATIENT LIST
"KRN",19,13697,10,8,0)
13703
"KRN",19,13697,10,8,"^")
C0Q EXPORT CCR BY MEASURE
"KRN",19,13697,10,9,0)
13704
"KRN",19,13697,10,9,"^")
C0Q SUMMARY QUALITY MEASURES
"KRN",19,13697,10,10,0)
13705
"KRN",19,13697,10,10,"^")
C0Q EXPORT MEASURE SET
"KRN",19,13697,99)
62039,71770
"KRN",19,13697,"U")
QUALITY MEASUREMENT MENU
"KRN",19,13698,-1)
0^4
"KRN",19,13698,0)
C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^
"KRN",19,13698,60)
C0Q(101,
"KRN",19,13698,62)
0
"KRN",19,13698,63)
[C0Q PRINT QUALITY MEASURES]
"KRN",19,13698,64)

"KRN",19,13698,65)

"KRN",19,13698,66)

"KRN",19,13698,"U")
DISPLAY QUALITY MEASURES
"KRN",19,13699,-1)
0^3
"KRN",19,13699,0)
C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^
"KRN",19,13699,60)
C0Q(201,
"KRN",19,13699,62)
0
"KRN",19,13699,63)
[C0Q PRINT MEASUREMENT SET]
"KRN",19,13699,64)

"KRN",19,13699,65)

"KRN",19,13699,66)

"KRN",19,13699,"U")
DISPLAY MEASURE SET
"KRN",19,13700,-1)
0^7
"KRN",19,13700,0)
C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^
"KRN",19,13700,25)
EN^C0QMAIN
"KRN",19,13700,"U")
LIST MEASURE SET
"KRN",19,13701,-1)
0^1
"KRN",19,13701,0)
C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^
"KRN",19,13701,25)
NBYP^C0QMAIN
"KRN",19,13701,"U")
BY PATIENT NUMERATOR
"KRN",19,13702,-1)
0^2
"KRN",19,13702,0)
C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^
"KRN",19,13702,25)
DBYP^C0QMAIN
"KRN",19,13702,"U")
DENOMINATOR PATIENT LIST
"KRN",19,13703,-1)
0^5
"KRN",19,13703,0)
C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^
"KRN",19,13703,25)
EXPORT^C0QMAIN
"KRN",19,13703,"U")
EXPORT CCR BY MEASURE
"KRN",19,13704,-1)
0^11
"KRN",19,13704,0)
C0Q SUMMARY QUALITY MEASURES^SUMMARY QUALITY MEASURES^^R^^^^^^^^
"KRN",19,13704,25)
EN2^C0QMAIN
"KRN",19,13704,"U")
SUMMARY QUALITY MEASURES
"KRN",19,13705,-1)
0^6
"KRN",19,13705,0)
C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^
"KRN",19,13705,25)
ENEXP^C0QMAIN
"KRN",19,13705,"U")
ALL MEASURES EXPORT
"MBREQ")
0
"ORD",5,.4)
.4;5;;;EDEOUT^DIFROMSO(.4,DA,"",XPDA);FPRE^DIFROMSI(.4,"",XPDA);EPRE^DIFROMSI(.4,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.4,DA,"",XPDA);DEL^DIFROMSK(.4,"",%)
"ORD",5,.4,0)
PRINT TEMPLATE
"ORD",7,.402)
.402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%)
"ORD",7,.402,0)
INPUT TEMPLATE
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
1
"RTN","C0QMAIN")
0^1^B69544556
"RTN","C0QMAIN",1,0)
C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10  17:05
"RTN","C0QMAIN",2,0)
 ;;0.1;C0Q;nopatch;noreleasedate;Build 1
"RTN","C0QMAIN",3,0)
 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
"RTN","C0QMAIN",4,0)
 ;General Public License See attached copy of the License.
"RTN","C0QMAIN",5,0)
 ;
"RTN","C0QMAIN",6,0)
 ;This program is free software; you can redistribute it and/or modify
"RTN","C0QMAIN",7,0)
 ;it under the terms of the GNU General Public License as published by
"RTN","C0QMAIN",8,0)
 ;the Free Software Foundation; either version 2 of the License, or
"RTN","C0QMAIN",9,0)
 ;(at your option) any later version.
"RTN","C0QMAIN",10,0)
 ;
"RTN","C0QMAIN",11,0)
 ;This program is distributed in the hope that it will be useful,
"RTN","C0QMAIN",12,0)
 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
"RTN","C0QMAIN",13,0)
 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
"RTN","C0QMAIN",14,0)
 ;GNU General Public License for more details.
"RTN","C0QMAIN",15,0)
 ;
"RTN","C0QMAIN",16,0)
 ;You should have received a copy of the GNU General Public License along
"RTN","C0QMAIN",17,0)
 ;with this program; if not, write to the Free Software Foundation, Inc.,
"RTN","C0QMAIN",18,0)
 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
"RTN","C0QMAIN",19,0)
 ;
"RTN","C0QMAIN",20,0)
 Q
"RTN","C0QMAIN",21,0)
 ;
"RTN","C0QMAIN",22,0)
C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE
"RTN","C0QMAIN",23,0)
C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE
"RTN","C0QMAIN",24,0)
C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
"RTN","C0QMAIN",25,0)
C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE
"RTN","C0QMAIN",26,0)
C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE
"RTN","C0QMAIN",27,0)
RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE
"RTN","C0QMAIN",28,0)
RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE
"RTN","C0QMAIN",29,0)
 ;
"RTN","C0QMAIN",30,0)
EXPORT   ; EXPORT ENTRY POINT FOR CCR
"RTN","C0QMAIN",31,0)
 ; Select a patient.
"RTN","C0QMAIN",32,0)
 N C0QMS,C0QM,C0QMIEN,C0QNA,C0QNORD
"RTN","C0QMAIN",33,0)
 S C0QNORD=3 ; WE WANT DENOMINATORS USE 1 FOR NUMERATORS
"RTN","C0QMAIN",34,0)
 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",35,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",36,0)
 S C0QMS=$P(Y,U,1) ; SET THE MEASURE SET
"RTN","C0QMAIN",37,0)
 S DIC=$$C0QQFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",38,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",39,0)
 S C0QM=$P(Y,U,1) ; SET THE MEASURE IEN
"RTN","C0QMAIN",40,0)
 N C0QMN S C0QMN=$P(Y,U,2) ; SET THE MEASURE NAME
"RTN","C0QMAIN",41,0)
 S C0QMIEN=$O(^C0Q(201,C0QMS,5,"B",C0QM,""))
"RTN","C0QMAIN",42,0)
 S C0QNA=$NA(^C0Q(201,C0QMS,5,C0QMIEN,C0QNORD,"B"))
"RTN","C0QMAIN",43,0)
 N ZI S ZI=""
"RTN","C0QMAIN",44,0)
 F  S ZI=$O(@C0QNA@(ZI)) Q:ZI=""  D  ;
"RTN","C0QMAIN",45,0)
 . W !,ZI
"RTN","C0QMAIN",46,0)
 . N ONAME S ONAME=C0QMN_"_"_ZI_"_CCR_V1_0_0.xml"
"RTN","C0QMAIN",47,0)
 . D XPAT^C0CCCR(ZI,,,ONAME) ; EXPORT TO A FILE
"RTN","C0QMAIN",48,0)
 Q
"RTN","C0QMAIN",49,0)
 ;
"RTN","C0QMAIN",50,0)
NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING
"RTN","C0QMAIN",51,0)
 ;
"RTN","C0QMAIN",52,0)
 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",53,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",54,0)
 N MSIEN S MSIEN=+Y
"RTN","C0QMAIN",55,0)
 W !,"NUMERATOR PATIENT LIST",!
"RTN","C0QMAIN",56,0)
 N C0QPAT
"RTN","C0QMAIN",57,0)
 D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST
"RTN","C0QMAIN",58,0)
 I $D(C0QPAT) D  ; LIST RETURNED
"RTN","C0QMAIN",59,0)
 . ;
"RTN","C0QMAIN",60,0)
 Q
"RTN","C0QMAIN",61,0)
 ;
"RTN","C0QMAIN",62,0)
DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING
"RTN","C0QMAIN",63,0)
 ;
"RTN","C0QMAIN",64,0)
 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",65,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",66,0)
 N MSIEN S MSIEN=+Y
"RTN","C0QMAIN",67,0)
 N C0QPAT
"RTN","C0QMAIN",68,0)
 W !,"DENOMINATOR PATIENT LIST",!
"RTN","C0QMAIN",69,0)
 D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST
"RTN","C0QMAIN",70,0)
 I $D(C0QPAT) D  ; LIST RETURNED
"RTN","C0QMAIN",71,0)
 . ;
"RTN","C0QMAIN",72,0)
 . ;
"RTN","C0QMAIN",73,0)
 Q
"RTN","C0QMAIN",74,0)
 ;
"RTN","C0QMAIN",75,0)
ENEXP ; EXTERNAL MENU ENTRY POINT FOR EXP
"RTN","C0QMAIN",76,0)
 ;
"RTN","C0QMAIN",77,0)
 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",78,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",79,0)
 N MSIEN S MSIEN=+Y
"RTN","C0QMAIN",80,0)
 D EXP(MSIEN)
"RTN","C0QMAIN",81,0)
 Q
"RTN","C0QMAIN",82,0)
 ; 
"RTN","C0QMAIN",83,0)
EXP(MSET,NOEX) ; EXPORT ALL PATIENTS FOR MEASURE SET IEN MSET
"RTN","C0QMAIN",84,0)
 ; ALSO, WRITE OUT THE BY PATIENT MEASURE TEXT FILE
"RTN","C0QMAIN",85,0)
 ; IF NOEX=1, THEN ONLY THE MEASURE TEXT FILE GETS WRITTEN, NO EXPORTS ARE 
"RTN","C0QMAIN",86,0)
 ; DONE
"RTN","C0QMAIN",87,0)
 I '$D(NOEX) S NOEX=0
"RTN","C0QMAIN",88,0)
 N ZQI,ZARY,ZFN,ODIR
"RTN","C0QMAIN",89,0)
 S ZQI=""
"RTN","C0QMAIN",90,0)
 D PATS(.ZARY,MSET,"D",1)
"RTN","C0QMAIN",91,0)
 S ZFN="MEASURES-BY-PATIENT.txt"
"RTN","C0QMAIN",92,0)
 S ODIR=^TMP("C0CCCR","ODIR") ; OUTPUT DIRECTORY
"RTN","C0QMAIN",93,0)
 S GARY=$NA(^TMP("C0Q",$J))
"RTN","C0QMAIN",94,0)
 K @GARY
"RTN","C0QMAIN",95,0)
 M @GARY=ZARY
"RTN","C0QMAIN",96,0)
 S GARY1=$NA(@GARY@(1))
"RTN","C0QMAIN",97,0)
 N ZY
"RTN","C0QMAIN",98,0)
 S ZY=$$OUTPUT^C0CXPATH(GARY1,ZFN,ODIR)
"RTN","C0QMAIN",99,0)
 W !,ZY
"RTN","C0QMAIN",100,0)
 I NOEX=1 Q  ; DO NOT EXPORT
"RTN","C0QMAIN",101,0)
 F  S ZQI=$O(ZARY(ZQI)) Q:ZQI=""  D  ; FOR EACH PATIENT
"RTN","C0QMAIN",102,0)
 . D XPAT^C0CCCR(+ZARY(ZQI)) ; 
"RTN","C0QMAIN",103,0)
 Q
"RTN","C0QMAIN",104,0)
 ;
"RTN","C0QMAIN",105,0)
PATS(ZRTN,MSIEN,NORD,QT) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES
"RTN","C0QMAIN",106,0)
 ; FOR MEASURE SET MSET. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS
"RTN","C0QMAIN",107,0)
 ; NORD="D" MEANS DENOMINATOR PATIENTS 
"RTN","C0QMAIN",108,0)
 ; QT=1 MEANS QUIET
"RTN","C0QMAIN",109,0)
 I $G(QT)'=1 S QT=0
"RTN","C0QMAIN",110,0)
 N ZI,ZJ,ZK,ZIDX,ZN,ZM
"RTN","C0QMAIN",111,0)
 S ZN=0 ; COUNT OF PATIENTS
"RTN","C0QMAIN",112,0)
 S ZI=""
"RTN","C0QMAIN",113,0)
 ; GOING TO USE THE NUMERATOR BY PATIENT INDEX
"RTN","C0QMAIN",114,0)
 I '$D(NORD) S NORD="N"
"RTN","C0QMAIN",115,0)
 I '((NORD="N")!(NORD="D")) S NORD="N"
"RTN","C0QMAIN",116,0)
 I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP"))
"RTN","C0QMAIN",117,0)
 E  S ZIDX=$NA(^C0Q(201,"ADBYP"))
"RTN","C0QMAIN",118,0)
 F  S ZI=$O(@ZIDX@(ZI)) Q:ZI=""  D  ; FOR EACH PATIENT
"RTN","C0QMAIN",119,0)
 . I $O(@ZIDX@(ZI,MSIEN,""))'="" D  ; IF PATIENT IS IN THIS SET
"RTN","C0QMAIN",120,0)
 . . I 'QT W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME
"RTN","C0QMAIN",121,0)
 . . S ZN=ZN+1 ; INCREMENT PATIENT COUNT
"RTN","C0QMAIN",122,0)
 . . S ZRTN(ZN)=ZI
"RTN","C0QMAIN",123,0)
 . E  Q  ; NEXT PATIENT
"RTN","C0QMAIN",124,0)
 . S (ZJ,ZK)=""
"RTN","C0QMAIN",125,0)
 . F  S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ=""  D  ; FOR EACH MEASURE
"RTN","C0QMAIN",126,0)
 . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH
"RTN","C0QMAIN",127,0)
 . . S ZK=""
"RTN","C0QMAIN",128,0)
 . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I")
"RTN","C0QMAIN",129,0)
 . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,!
"RTN","C0QMAIN",130,0)
 . . S ZM=$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME
"RTN","C0QMAIN",131,0)
 . . I 'QT W " ",ZM
"RTN","C0QMAIN",132,0)
 . . S ZRTN(ZN)=ZRTN(ZN)_" "_ZM
"RTN","C0QMAIN",133,0)
 Q
"RTN","C0QMAIN",134,0)
 ;
"RTN","C0QMAIN",135,0)
EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC
"RTN","C0QMAIN",136,0)
 ;
"RTN","C0QMAIN",137,0)
 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",138,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",139,0)
 N MSIEN S MSIEN=+Y
"RTN","C0QMAIN",140,0)
 D C0QRPC(.G,MSIEN)
"RTN","C0QMAIN",141,0)
 Q
"RTN","C0QMAIN",142,0)
 ;
"RTN","C0QMAIN",143,0)
EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC
"RTN","C0QMAIN",144,0)
 ;
"RTN","C0QMAIN",145,0)
 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
"RTN","C0QMAIN",146,0)
 I Y<1 Q  ; EXIT
"RTN","C0QMAIN",147,0)
 N MSIEN S MSIEN=+Y
"RTN","C0QMAIN",148,0)
 S C0QSUM=1
"RTN","C0QMAIN",149,0)
 D C0QRPC(.G,MSIEN)
"RTN","C0QMAIN",150,0)
 Q
"RTN","C0QMAIN",151,0)
 ;
"RTN","C0QMAIN",152,0)
C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT 
"RTN","C0QMAIN",153,0)
 ; MSET IS THE NAME OR IEN OF THE MEASURE SET
"RTN","C0QMAIN",154,0)
 ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE
"RTN","C0QMAIN",155,0)
 ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML"
"RTN","C0QMAIN",156,0)
 ;  NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET
"RTN","C0QMAIN",157,0)
 ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING
"RTN","C0QMAIN",158,0)
 ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED
"RTN","C0QMAIN",159,0)
 W !,"LOOKING FOR MEASURE SET ",MSET,!
"RTN","C0QMAIN",160,0)
 N ZI S ZI=""
"RTN","C0QMAIN",161,0)
 N C0QM ; FOR HOLDING THE MEASURES IN THE SET
"RTN","C0QMAIN",162,0)
 D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES
"RTN","C0QMAIN",163,0)
 D DELIST("C0QM")
"RTN","C0QMAIN",164,0)
 N ZII S ZII=""
"RTN","C0QMAIN",165,0)
 F  S ZII=$O(C0QM(ZII)) Q:ZII=""  D  ; FOR EACH MEASURE
"RTN","C0QMAIN",166,0)
 . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE
"RTN","C0QMAIN",167,0)
 K C0QM
"RTN","C0QMAIN",168,0)
 D CLEAN^DILF
"RTN","C0QMAIN",169,0)
 D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN
"RTN","C0QMAIN",170,0)
 D DELIST("C0QM")
"RTN","C0QMAIN",171,0)
 F  S ZII=$O(C0QM(ZII)) Q:ZII=""  D  ; FOR EACH MEASURE
"RTN","C0QMAIN",172,0)
 . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE
"RTN","C0QMAIN",173,0)
 . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),!
"RTN","C0QMAIN",174,0)
 . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS
"RTN","C0QMAIN",175,0)
 . W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME
"RTN","C0QMAIN",176,0)
 . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS
"RTN","C0QMAIN",177,0)
 . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER
"RTN","C0QMAIN",178,0)
 . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER
"RTN","C0QMAIN",179,0)
 . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE
"RTN","C0QMAIN",180,0)
 . W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),!
"RTN","C0QMAIN",181,0)
 . ; FIRST PROCESS THE NUMERATOR
"RTN","C0QMAIN",182,0)
 . K ^TMP("DILIST",$J)
"RTN","C0QMAIN",183,0)
 . D LIST^DIC($$RLSTPFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS
"RTN","C0QMAIN",184,0)
 . ;D DELIST("G") ;
"RTN","C0QMAIN",185,0)
 . ;I $D(G) ZWR G
"RTN","C0QMAIN",186,0)
 . K C0QNUMP
"RTN","C0QMAIN",187,0)
 . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT
"RTN","C0QMAIN",188,0)
 . N ZJ S ZJ=""
"RTN","C0QMAIN",189,0)
 . F  S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ=""  D  ;
"RTN","C0QMAIN",190,0)
 . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01)
"RTN","C0QMAIN",191,0)
 . . S C0QNUMP("N",ZJ,ZDFN)=""
"RTN","C0QMAIN",192,0)
 . I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES
"RTN","C0QMAIN",193,0)
 . D ADDPATS(MSET,ZII,"C0QNUMP")
"RTN","C0QMAIN",194,0)
 . ; NEXT PROCESS THE DENOMINATOR
"RTN","C0QMAIN",195,0)
 . W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),!
"RTN","C0QMAIN",196,0)
 . K ^TMP("DILIST",$J)
"RTN","C0QMAIN",197,0)
 . D LIST^DIC($$RLSTPFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS
"RTN","C0QMAIN",198,0)
 . ;D DELIST("G")
"RTN","C0QMAIN",199,0)
 . ;I $D(G) ZWR G
"RTN","C0QMAIN",200,0)
 . ;S ZJ=""
"RTN","C0QMAIN",201,0)
 . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT
"RTN","C0QMAIN",202,0)
 . K C0QDEMP
"RTN","C0QMAIN",203,0)
 . F  S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ=""  D  ;
"RTN","C0QMAIN",204,0)
 . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01)
"RTN","C0QMAIN",205,0)
 . . S C0QDEMP("D",ZJ,ZDFN)=""
"RTN","C0QMAIN",206,0)
 . D ADDPATS(MSET,ZII,"C0QDEMP")
"RTN","C0QMAIN",207,0)
 . I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES
"RTN","C0QMAIN",208,0)
 . E  D  ;
"RTN","C0QMAIN",209,0)
 . . W "NUM CNT: ",NCNT
"RTN","C0QMAIN",210,0)
 . . W "  DEN CNT: ",DCNT,!
"RTN","C0QMAIN",211,0)
 Q
"RTN","C0QMAIN",212,0)
 ;
"RTN","C0QMAIN",213,0)
CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE
"RTN","C0QMAIN",214,0)
 ; MEASURE MEAS IN MEASURE SET IEN MSET
"RTN","C0QMAIN",215,0)
 ;
"RTN","C0QMAIN",216,0)
 N C0QFDA,MFN,MEASURE
"RTN","C0QMAIN",217,0)
 S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE
"RTN","C0QMAIN",218,0)
 D CLEAN^DILF
"RTN","C0QMAIN",219,0)
 S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ;  MEASURE POINTER
"RTN","C0QMAIN",220,0)
 D CLEAN^DILF
"RTN","C0QMAIN",221,0)
 K ZERR
"RTN","C0QMAIN",222,0)
 S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE
"RTN","C0QMAIN",223,0)
 D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE
"RTN","C0QMAIN",224,0)
 I $D(ZERR) D ;
"RTN","C0QMAIN",225,0)
 . W "ERROR",!
"RTN","C0QMAIN",226,0)
 . ZWR ZERR
"RTN","C0QMAIN",227,0)
 . B
"RTN","C0QMAIN",228,0)
 K C0QFDA
"RTN","C0QMAIN",229,0)
 S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE
"RTN","C0QMAIN",230,0)
 D UPDIE ; CREATE THE SUBFILE
"RTN","C0QMAIN",231,0)
 Q
"RTN","C0QMAIN",232,0)
 ;
"RTN","C0QMAIN",233,0)
ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR
"RTN","C0QMAIN",234,0)
 ; OF MEASURE SET IEN MSET MEASURE IEN MEAS
"RTN","C0QMAIN",235,0)
 ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)=""
"RTN","C0QMAIN",236,0)
 ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N
"RTN","C0QMAIN",237,0)
 ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN
"RTN","C0QMAIN",238,0)
 N C0QI,C0QJ
"RTN","C0QMAIN",239,0)
 N C0QFDA
"RTN","C0QMAIN",240,0)
 S C0QI=""
"RTN","C0QMAIN",241,0)
 F  S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI=""  D  ; FOR EACH NUMERATOR PATIENT
"RTN","C0QMAIN",242,0)
 . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,""))
"RTN","C0QMAIN",243,0)
 ;W "ADDING NUMERATOR",!
"RTN","C0QMAIN",244,0)
 ;I $D(C0QFDA) ZWR C0QFDA
"RTN","C0QMAIN",245,0)
 I $D(C0QFDA) D UPDIE
"RTN","C0QMAIN",246,0)
 K C0QFDA
"RTN","C0QMAIN",247,0)
 S C0QI=""
"RTN","C0QMAIN",248,0)
 F  S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI=""  D  ; FOR EACH NUMERATOR PATIENT
"RTN","C0QMAIN",249,0)
 . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,""))
"RTN","C0QMAIN",250,0)
 ;W "ADDING DENOMINATOR",!
"RTN","C0QMAIN",251,0)
 ;I $D(C0QFDA) ZWR C0QFDA
"RTN","C0QMAIN",252,0)
 I $D(C0QFDA) D UPDIE
"RTN","C0QMAIN",253,0)
 Q
"RTN","C0QMAIN",254,0)
 ;
"RTN","C0QMAIN",255,0)
DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO
"RTN","C0QMAIN",256,0)
 ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE
"RTN","C0QMAIN",257,0)
 N ZI,IV,EV,ZDI,ZIEN
"RTN","C0QMAIN",258,0)
 S ZI=""
"RTN","C0QMAIN",259,0)
 S ZDI=$NA(^TMP("DILIST",$J))
"RTN","C0QMAIN",260,0)
 K @RTN
"RTN","C0QMAIN",261,0)
 F  S ZI=$O(@ZDI@(1,ZI)) Q:ZI=""  D  ;
"RTN","C0QMAIN",262,0)
 . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE
"RTN","C0QMAIN",263,0)
 . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE
"RTN","C0QMAIN",264,0)
 . S ZIEN=@ZDI@(2,ZI) ; IEN
"RTN","C0QMAIN",265,0)
 . S @RTN@(ZIEN)=IV_"^"_EV
"RTN","C0QMAIN",266,0)
 Q
"RTN","C0QMAIN",267,0)
 ;
"RTN","C0QMAIN",268,0)
DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR
"RTN","C0QMAIN",269,0)
 ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE)
"RTN","C0QMAIN",270,0)
 ; MSET IS THE IEN OF THE MEASURE SET
"RTN","C0QMAIN",271,0)
 ; MEAS IS THE IEN OF THE MEASURE
"RTN","C0QMAIN",272,0)
 ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET)
"RTN","C0QMAIN",273,0)
 ;  IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS
"RTN","C0QMAIN",274,0)
 ;  AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS 
"RTN","C0QMAIN",275,0)
 ;  THE IEN OF THE PATIENT RECORD IN THE SUBFILE
"RTN","C0QMAIN",276,0)
 ;  THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS
"RTN","C0QMAIN",277,0)
 ;  IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED
"RTN","C0QMAIN",278,0)
 N C0QI,C0QJ
"RTN","C0QMAIN",279,0)
 D LIST^DIC($$C0QMMFN,","_MSET_",")
"RTN","C0QMAIN",280,0)
 K C0QFDA
"RTN","C0QMAIN",281,0)
 ZWR ^TMP("DILIST",$J,*)
"RTN","C0QMAIN",282,0)
 ZWR ^TMP("DIERR",$J,*)
"RTN","C0QMAIN",283,0)
 D 
"RTN","C0QMAIN",284,0)
 Q
"RTN","C0QMAIN",285,0)
 ;
"RTN","C0QMAIN",286,0)
UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
"RTN","C0QMAIN",287,0)
 K ZERR
"RTN","C0QMAIN",288,0)
 D CLEAN^DILF
"RTN","C0QMAIN",289,0)
 D UPDATE^DIE("","C0QFDA","","ZERR")
"RTN","C0QMAIN",290,0)
 I $D(ZERR) D  ;
"RTN","C0QMAIN",291,0)
 . W "ERROR",!
"RTN","C0QMAIN",292,0)
 . ZWR ZERR
"RTN","C0QMAIN",293,0)
 . B
"RTN","C0QMAIN",294,0)
 K C0QFDA
"RTN","C0QMAIN",295,0)
 Q
"RTN","C0QMAIN",296,0)
 ;
"SEC","^DD",1130580001.101,1130580001.101,3.1,9)

"SEC","^DIC",1130580001.101,1130580001.101,0,"AUDIT")
@
"SEC","^DIC",1130580001.101,1130580001.101,0,"DD")
@
"SEC","^DIC",1130580001.101,1130580001.101,0,"DEL")
@
"SEC","^DIC",1130580001.101,1130580001.101,0,"LAYGO")
@
"SEC","^DIC",1130580001.101,1130580001.101,0,"RD")
@
"SEC","^DIC",1130580001.101,1130580001.101,0,"WR")
@
"SEC","^DIC",1130580001.201,1130580001.201,0,"AUDIT")
@
"SEC","^DIC",1130580001.201,1130580001.201,0,"DD")
@
"SEC","^DIC",1130580001.201,1130580001.201,0,"DEL")
@
"SEC","^DIC",1130580001.201,1130580001.201,0,"LAYGO")
@
"SEC","^DIC",1130580001.201,1130580001.201,0,"RD")
@
"SEC","^DIC",1130580001.201,1130580001.201,0,"WR")
@
"VER")
8.0^22.0
"^DD",1130580001.101,1130580001.101,0)
FIELD^^.61^9
"^DD",1130580001.101,1130580001.101,0,"DDA")
N
"^DD",1130580001.101,1130580001.101,0,"DT")
3101013
"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01)

"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUAILITY MEASURE")

"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01)

"^DD",1130580001.101,1130580001.101,.01,0)
NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
"^DD",1130580001.101,1130580001.101,.01,.1)
MEASURE NAME
"^DD",1130580001.101,1130580001.101,.01,1,0)
^.1
"^DD",1130580001.101,1130580001.101,.01,1,1,0)
1130580001.101^B
"^DD",1130580001.101,1130580001.101,.01,1,1,1)
S ^C0Q(101,"B",$E(X,1,30),DA)=""
"^DD",1130580001.101,1130580001.101,.01,1,1,2)
K ^C0Q(101,"B",$E(X,1,30),DA)
"^DD",1130580001.101,1130580001.101,.01,3)
Answer must be 1-30 characters in length
"^DD",1130580001.101,1130580001.101,.01,"DT")
3101012
"^DD",1130580001.101,1130580001.101,.5,0)
SHORT DESCRIPTION^F^^1;1^K:$L(X)>240!($L(X)<3) X
"^DD",1130580001.101,1130580001.101,.5,.1)
MEASURE SHORT DESCRIPTION
"^DD",1130580001.101,1130580001.101,.5,3)
Answer must be 3-240 characters in length
"^DD",1130580001.101,1130580001.101,.5,"DT")
3101012
"^DD",1130580001.101,1130580001.101,.61,0)
VERY LONG DESCRIPTION^1130580001.111^^6;0
"^DD",1130580001.101,1130580001.101,.7,0)
DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X
"^DD",1130580001.101,1130580001.101,.7,.1)
QRDA DISPLAY NAME
"^DD",1130580001.101,1130580001.101,.7,3)
Answer must be 3-240 characters in length
"^DD",1130580001.101,1130580001.101,.7,"DT")
3101012
"^DD",1130580001.101,1130580001.101,1,0)
NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
"^DD",1130580001.101,1130580001.101,1,.1)
MEASURE NUMERATOR PATIENT LIST
"^DD",1130580001.101,1130580001.101,1,"DT")
3101012
"^DD",1130580001.101,1130580001.101,2,0)
DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
"^DD",1130580001.101,1130580001.101,2,.1)
MEASURE DENOMINATOR PATIENT LIST
"^DD",1130580001.101,1130580001.101,2,"DT")
3101012
"^DD",1130580001.101,1130580001.101,3,0)
QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X
"^DD",1130580001.101,1130580001.101,3,.1)
MEASURE TEMPLATE ROOT FOR QRDA DOCUMENT
"^DD",1130580001.101,1130580001.101,3,3)
Answer must be 3-120 characters in length
"^DD",1130580001.101,1130580001.101,3,"DT")
3101012
"^DD",1130580001.101,1130580001.101,3.1,0)
QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12"
"^DD",1130580001.101,1130580001.101,3.1,.1)
QRDA SYSTEM OID (FIXED)
"^DD",1130580001.101,1130580001.101,3.1,9.01)

"^DD",1130580001.101,1130580001.101,3.1,9.1)
S X="2.16.840.1.113883.3.249.12"
"^DD",1130580001.101,1130580001.101,3.1,"DT")
3101012
"^DD",1130580001.101,1130580001.101,3.2,0)
QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X
"^DD",1130580001.101,1130580001.101,3.2,.1)
QRDA MEASURE CODE
"^DD",1130580001.101,1130580001.101,3.2,3)
Answer must be 1-80 characters in length
"^DD",1130580001.101,1130580001.101,3.2,"DT")
3101012
"^DD",1130580001.101,1130580001.111,0)
VERY LONG DESCRIPTION SUB-FIELD^^.01^1
"^DD",1130580001.101,1130580001.111,0,"DT")
3101013
"^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION")

"^DD",1130580001.101,1130580001.111,0,"UP")
1130580001.101
"^DD",1130580001.101,1130580001.111,.01,0)
VERY LONG DESCRIPTION^Wx^^0;1
"^DD",1130580001.101,1130580001.111,.01,.1)
LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6
"^DD",1130580001.101,1130580001.111,.01,3)
LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION
"^DD",1130580001.101,1130580001.111,.01,"DT")
3101013
"^DD",1130580001.201,1130580001.201,0)
FIELD^^.2^9
"^DD",1130580001.201,1130580001.201,0,"DDA")
N
"^DD",1130580001.201,1130580001.201,0,"DT")
3101012
"^DD",1130580001.201,1130580001.201,0,"IX","ADBYP",1130580001.20112,.01)

"^DD",1130580001.201,1130580001.201,0,"IX","ANBYP",1130580001.20111,.01)

"^DD",1130580001.201,1130580001.201,0,"IX","B",1130580001.201,.01)

"^DD",1130580001.201,1130580001.201,0,"NM","C0Q MEASUREMENTS")

"^DD",1130580001.201,1130580001.201,.01,0)
SET NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
"^DD",1130580001.201,1130580001.201,.01,.1)
MEASUREMENT SET NAME
"^DD",1130580001.201,1130580001.201,.01,1,0)
^.1
"^DD",1130580001.201,1130580001.201,.01,1,1,0)
1130580001.201^B
"^DD",1130580001.201,1130580001.201,.01,1,1,1)
S ^C0Q(201,"B",$E(X,1,30),DA)=""
"^DD",1130580001.201,1130580001.201,.01,1,1,2)
K ^C0Q(201,"B",$E(X,1,30),DA)
"^DD",1130580001.201,1130580001.201,.01,3)
NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
"^DD",1130580001.201,1130580001.201,.01,"DT")
3101012
"^DD",1130580001.201,1130580001.201,.02,0)
BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X
"^DD",1130580001.201,1130580001.201,.02,.1)
MEASUREMENT BEGIN DATE
"^DD",1130580001.201,1130580001.201,.02,3)
MEASUREMENT BEGIN DATE
"^DD",1130580001.201,1130580001.201,.02,"DT")
3101012
"^DD",1130580001.201,1130580001.201,.03,0)
END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X
"^DD",1130580001.201,1130580001.201,.03,.1)
MEASUREMENT END DATE
"^DD",1130580001.201,1130580001.201,.03,3)
MEASUREMENT END DATE
"^DD",1130580001.201,1130580001.201,.03,"DT")
3101012
"^DD",1130580001.201,1130580001.201,.04,0)
DATE LAST CALCULATED^D^^6;1^S %DT="E" D ^%DT S X=Y K:X<1 X
"^DD",1130580001.201,1130580001.201,.04,.1)
DATE LAST PROCESSED
"^DD",1130580001.201,1130580001.201,.04,3)
DATE LAST PROCESSED
"^DD",1130580001.201,1130580001.201,.04,"DT")
3101012
"^DD",1130580001.201,1130580001.201,.05,0)
LOCKED^S^Y:YES;N:NO;^6;2^Q
"^DD",1130580001.201,1130580001.201,.05,.1)
Y/N IS THIS RECORD SET LOCKED
"^DD",1130580001.201,1130580001.201,.05,3)
Y/N IS THIS RECORD SET LOCKED
"^DD",1130580001.201,1130580001.201,.05,"DT")
3101012
"^DD",1130580001.201,1130580001.201,.2,0)
USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q
"^DD",1130580001.201,1130580001.201,.2,.1)
INCLUDE ALL MEASURES IN THIS SET?
"^DD",1130580001.201,1130580001.201,.2,3)
INCLUDE ALL MEASURES IN THIS SET?
"^DD",1130580001.201,1130580001.201,.2,"DT")
3101012
"^DD",1130580001.201,1130580001.201,1,0)
MEASURE^1130580001.2011P^^5;0
"^DD",1130580001.201,1130580001.2011,0)
MEASURE SUB-FIELD^^3^6
"^DD",1130580001.201,1130580001.2011,0,"DT")
3101012
"^DD",1130580001.201,1130580001.2011,0,"IX","B",1130580001.2011,.01)

"^DD",1130580001.201,1130580001.2011,0,"NM","MEASURE")

"^DD",1130580001.201,1130580001.2011,0,"UP")
1130580001.201
"^DD",1130580001.201,1130580001.2011,.01,0)
MEASURE^MP1130580001.101^C0Q(101,^0;1^Q
"^DD",1130580001.201,1130580001.2011,.01,.1)
INCLUDED QUALITY MEASURES
"^DD",1130580001.201,1130580001.2011,.01,1,0)
^.1
"^DD",1130580001.201,1130580001.2011,.01,1,1,0)
1130580001.2011^B
"^DD",1130580001.201,1130580001.2011,.01,1,1,1)
S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)=""
"^DD",1130580001.201,1130580001.2011,.01,1,1,2)
K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)
"^DD",1130580001.201,1130580001.2011,.01,3)
INCLUDED QUALITY MEASURES
"^DD",1130580001.201,1130580001.2011,.01,"DT")
3101012
"^DD",1130580001.201,1130580001.2011,1,0)
NUMERATOR^1130580001.20111P^^1;0
"^DD",1130580001.201,1130580001.2011,1.1,0)
NUMERATOR COUNT^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X
"^DD",1130580001.201,1130580001.2011,1.1,.1)
NUMBER OF PATIENTS IN NUMERATOR
"^DD",1130580001.201,1130580001.2011,1.1,3)
NUMBER OF PATIENTS IN NUMERATOR
"^DD",1130580001.201,1130580001.2011,1.1,"DT")
3101012
"^DD",1130580001.201,1130580001.2011,2,0)
DENOMINATOR^1130580001.20112P^^3;0
"^DD",1130580001.201,1130580001.2011,2.1,0)
DENOMINATOR COUNT^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1.N) X
"^DD",1130580001.201,1130580001.2011,2.1,.1)
NUMBER OF PATIENTS IN DENOMINATOR
"^DD",1130580001.201,1130580001.2011,2.1,3)
NUMBER OF PATIENTS IN DENOMINATOR
"^DD",1130580001.201,1130580001.2011,2.1,"DT")
3101012
"^DD",1130580001.201,1130580001.2011,3,0)
PERCENTAGE^NJ3,0^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1.N) X
"^DD",1130580001.201,1130580001.2011,3,.1)
MEASURE PERCENTAGE
"^DD",1130580001.201,1130580001.2011,3,3)
MEASURE PERCENTAGE
"^DD",1130580001.201,1130580001.2011,3,"DT")
3101012
"^DD",1130580001.201,1130580001.20111,0)
NUMERATOR SUB-FIELD^^.01^1
"^DD",1130580001.201,1130580001.20111,0,"DT")
3101012
"^DD",1130580001.201,1130580001.20111,0,"IX","B",1130580001.20111,.01)

"^DD",1130580001.201,1130580001.20111,0,"NM","NUMERATOR")

"^DD",1130580001.201,1130580001.20111,0,"UP")
1130580001.2011
"^DD",1130580001.201,1130580001.20111,.01,0)
NUMERATOR^MP2'^DPT(^0;1^Q
"^DD",1130580001.201,1130580001.20111,.01,.1)
NUMERATOR PATIENTS
"^DD",1130580001.201,1130580001.20111,.01,1,0)
^.1
"^DD",1130580001.201,1130580001.20111,.01,1,1,0)
1130580001.20111^B
"^DD",1130580001.201,1130580001.20111,.01,1,1,1)
S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",1130580001.201,1130580001.20111,.01,1,1,2)
K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
"^DD",1130580001.201,1130580001.20111,.01,1,2,0)
1130580001.201^ANBYP
"^DD",1130580001.201,1130580001.20111,.01,1,2,1)
S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)=""
"^DD",1130580001.201,1130580001.20111,.01,1,2,2)
K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)
"^DD",1130580001.201,1130580001.20111,.01,1,2,"DT")
3101014
"^DD",1130580001.201,1130580001.20111,.01,3)
NUMERATOR PATIENTS
"^DD",1130580001.201,1130580001.20111,.01,"DT")
3101014
"^DD",1130580001.201,1130580001.20112,0)
DENOMINATOR SUB-FIELD^^.01^1
"^DD",1130580001.201,1130580001.20112,0,"DT")
3101012
"^DD",1130580001.201,1130580001.20112,0,"IX","B",1130580001.20112,.01)

"^DD",1130580001.201,1130580001.20112,0,"NM","DENOMINATOR")

"^DD",1130580001.201,1130580001.20112,0,"UP")
1130580001.2011
"^DD",1130580001.201,1130580001.20112,.01,0)
DENOMINATOR^MP2'^DPT(^0;1^Q
"^DD",1130580001.201,1130580001.20112,.01,.1)
DENOMINATOR PATIENTS
"^DD",1130580001.201,1130580001.20112,.01,1,0)
^.1
"^DD",1130580001.201,1130580001.20112,.01,1,1,0)
1130580001.20112^B
"^DD",1130580001.201,1130580001.20112,.01,1,1,1)
S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)=""
"^DD",1130580001.201,1130580001.20112,.01,1,1,2)
K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)
"^DD",1130580001.201,1130580001.20112,.01,1,2,0)
1130580001.201^ADBYP
"^DD",1130580001.201,1130580001.20112,.01,1,2,1)
S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)=""
"^DD",1130580001.201,1130580001.20112,.01,1,2,2)
K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)
"^DD",1130580001.201,1130580001.20112,.01,1,2,"DT")
3101014
"^DD",1130580001.201,1130580001.20112,.01,3)
DENOMINATOR PATIENTS
"^DD",1130580001.201,1130580001.20112,.01,"DT")
3101014
"^DIC",1130580001.101,1130580001.101,0)
C0Q QUAILITY MEASURE^1130580001.101
"^DIC",1130580001.101,1130580001.101,0,"GL")
^C0Q(101,
"^DIC",1130580001.101,"B","C0Q QUAILITY MEASURE",1130580001.101)

"^DIC",1130580001.201,1130580001.201,0)
C0Q MEASUREMENTS^1130580001.201
"^DIC",1130580001.201,1130580001.201,0,"GL")
^C0Q(201,
"^DIC",1130580001.201,"B","C0Q MEASUREMENTS",1130580001.201)

**END**
**END**