diff --git a/README.md b/README.md index 24b40d4..239eb69 100644 --- a/README.md +++ b/README.md @@ -11,3 +11,6 @@ https://trac.opensourcevista.net/svn/mu-stage1-reg-changes ## mu_stage1_reg_changes https://trac.opensourcevista.net/svn/lang-file4mu1and2 + +## qrda +https://trac.opensourcevista.net/svn/qrda diff --git a/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T1.KID b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T1.KID new file mode 100644 index 0000000..34bac93 --- /dev/null +++ b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T1.KID @@ -0,0 +1,1728 @@ +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** diff --git a/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T10.KID b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T10.KID new file mode 100644 index 0000000..0e7efb7 --- /dev/null +++ b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T10.KID @@ -0,0 +1,5338 @@ +KIDS Distribution saved on Sep 02, 2011@14:13:43 +added Smoking status and CPOE calculation +**KIDS**:C0Q*1.0*0^ + +**INSTALL NAME** +C0Q*1.0*0 +"BLD",7812,0) +C0Q*1.0*0^^0^3110902^n +"BLD",7812,4,0) +^9.64PA^1130580001.301^4 +"BLD",7812,4,178.301,0) +178.301 +"BLD",7812,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.101,0) +1130580001.101 +"BLD",7812,4,1130580001.101,222) +y^y^f^^^^n^^ +"BLD",7812,4,1130580001.101,224) + +"BLD",7812,4,1130580001.201,0) +1130580001.201 +"BLD",7812,4,1130580001.201,222) +y^y^f^^^^n^^ +"BLD",7812,4,1130580001.201,224) + +"BLD",7812,4,1130580001.301,0) +1130580001.301 +"BLD",7812,4,1130580001.301,222) +y^y^f^^^^n^^ +"BLD",7812,4,1130580001.301,224) + +"BLD",7812,4,"B",178.301,178.301) + +"BLD",7812,4,"B",1130580001.101,1130580001.101) + +"BLD",7812,4,"B",1130580001.201,1130580001.201) + +"BLD",7812,4,"B",1130580001.301,1130580001.301) + +"BLD",7812,6.3) +19 +"BLD",7812,"KRN",0) +^9.67PA^779.2^20 +"BLD",7812,"KRN",.4,0) +.4 +"BLD",7812,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7812,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7812,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7812,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7812,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7812,"KRN",.401,0) +.401 +"BLD",7812,"KRN",.402,0) +.402 +"BLD",7812,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7812,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.402,"NM",2,0) +C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101^1130580001.101^0 +"BLD",7812,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7812,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101",2) + +"BLD",7812,"KRN",.403,0) +.403 +"BLD",7812,"KRN",.5,0) +.5 +"BLD",7812,"KRN",.84,0) +.84 +"BLD",7812,"KRN",3.6,0) +3.6 +"BLD",7812,"KRN",3.8,0) +3.8 +"BLD",7812,"KRN",9.2,0) +9.2 +"BLD",7812,"KRN",9.8,0) +9.8 +"BLD",7812,"KRN",9.8,"NM",0) +^9.68A^11^11 +"BLD",7812,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B115162981 +"BLD",7812,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7812,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7812,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7812,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7596326 +"BLD",7812,"KRN",9.8,"NM",6,0) +C0QIMMUN^^0^B6463760 +"BLD",7812,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41579607 +"BLD",7812,"KRN",9.8,"NM",8,0) +C0QPRML^^0^B51124381 +"BLD",7812,"KRN",9.8,"NM",9,0) +C0QSET^^0^B8586809 +"BLD",7812,"KRN",9.8,"NM",10,0) +C0QUPDT^^0^B39929946 +"BLD",7812,"KRN",9.8,"NM",11,0) +C0QHF^^0^B3166240 +"BLD",7812,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7812,"KRN",9.8,"NM","B","C0QHF",11) + +"BLD",7812,"KRN",9.8,"NM","B","C0QIMMUN",6) + +"BLD",7812,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7812,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7812,"KRN",9.8,"NM","B","C0QPRML",8) + +"BLD",7812,"KRN",9.8,"NM","B","C0QSET",9) + +"BLD",7812,"KRN",9.8,"NM","B","C0QUPDT",10) + +"BLD",7812,"KRN",19,0) +19 +"BLD",7812,"KRN",19,"NM",0) +^9.68A^17^16 +"BLD",7812,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7812,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7812,"KRN",19,"NM",3,0) +C0Q DISPLAY MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7812,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7812,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",8,0) +C0Q MEASURE SET DEFINITION^^0 +"BLD",7812,"KRN",19,"NM",9,0) +C0Q QUALITY MEASURE DEFINITION^^0 +"BLD",7812,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7812,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7812,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7812,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7812,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7812,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7812,"KRN",19,"NM",17,0) +C0Q UPDATE MU MEASURES^^0 +"BLD",7812,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7812,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7812,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7812,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3) + +"BLD",7812,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7812,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7812,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7812,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7812,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8) + +"BLD",7812,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7812,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7812,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7812,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9) + +"BLD",7812,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7812,"KRN",19,"NM","B","C0Q UPDATE MU MEASURES",17) + +"BLD",7812,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7812,"KRN",19.1,0) +19.1 +"BLD",7812,"KRN",101,0) +101 +"BLD",7812,"KRN",409.61,0) +409.61 +"BLD",7812,"KRN",771,0) +771 +"BLD",7812,"KRN",779.2,0) +779.2 +"BLD",7812,"KRN",870,0) +870 +"BLD",7812,"KRN",8989.51,0) +8989.51 +"BLD",7812,"KRN",8989.52,0) +8989.52 +"BLD",7812,"KRN",8994,0) +8994 +"BLD",7812,"KRN","B",.4,.4) + +"BLD",7812,"KRN","B",.401,.401) + +"BLD",7812,"KRN","B",.402,.402) + +"BLD",7812,"KRN","B",.403,.403) + +"BLD",7812,"KRN","B",.5,.5) + +"BLD",7812,"KRN","B",.84,.84) + +"BLD",7812,"KRN","B",3.6,3.6) + +"BLD",7812,"KRN","B",3.8,3.8) + +"BLD",7812,"KRN","B",9.2,9.2) + +"BLD",7812,"KRN","B",9.8,9.8) + +"BLD",7812,"KRN","B",19,19) + +"BLD",7812,"KRN","B",19.1,19.1) + +"BLD",7812,"KRN","B",101,101) + +"BLD",7812,"KRN","B",409.61,409.61) + +"BLD",7812,"KRN","B",771,771) + +"BLD",7812,"KRN","B",779.2,779.2) + +"BLD",7812,"KRN","B",870,870) + +"BLD",7812,"KRN","B",8989.51,8989.51) + +"BLD",7812,"KRN","B",8989.52,8989.52) + +"BLD",7812,"KRN","B",8994,8994) + +"BLD",7812,"QUES",0) +^9.62^^ +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^^^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 +"FIA",1130580001.301) +C0Q PATIENT LIST +"FIA",1130580001.301,0) +^C0Q(301, +"FIA",1130580001.301,0,0) +1130580001.301I +"FIA",1130580001.301,0,1) +y^y^f^^^^n^^ +"FIA",1130580001.301,0,10) + +"FIA",1130580001.301,0,11) + +"FIA",1130580001.301,0,"RLRO") + +"FIA",1130580001.301,1130580001.301) +0 +"FIA",1130580001.301,1130580001.311) +0 +"FIA",1130580001.301,1130580001.3111) +0 +"FIA",1130580001.301,1130580001.321) +0 +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"IX",1130580001.301,1130580001.301,"CATTR",0) +1130580001.301^CATTR^ATTRIBUTE TO TIE PATIENT LIST RECORD TO INTERNAL ARRAYS^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"CATTR",1) +S ^C0Q(301,"CATTR",$E(X,1,64),DA)="" +"IX",1130580001.301,1130580001.301,"CATTR",2) +K ^C0Q(301,"CATTR",$E(X,1,64),DA) +"IX",1130580001.301,1130580001.301,"CATTR",2.5) +K ^C0Q(301,"CATTR") +"IX",1130580001.301,1130580001.301,"CATTR",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"CATTR",11.1,1,0) +1^F^1130580001.301^999^64^1^F +"KRN",.4,1589,-1) +0^3 +"KRN",.4,1589,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3110502 +"KRN",.4,1589,"F",2) +.01~.5~1~2~ +"KRN",.4,1589,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1590,-1) +0^2 +"KRN",.4,1590,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1590,"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,1590,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1591,-1) +0^1 +"KRN",.4,1591,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1591,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1591,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1592,-1) +0^5 +"KRN",.4,1592,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1592,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1592,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1592,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1592,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1592,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1592,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1592,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1593,-1) +0^4 +"KRN",.4,1593,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1593,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1593,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1593,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1593,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1593,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1593,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1593,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1594,-1) +0^6 +"KRN",.4,1594,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3110902 +"KRN",.4,1594,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1594,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1594,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1778,-1) +0^2 +"KRN",.402,1778,0) +C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3110809 +"KRN",.402,1778,"DR",1,1130580001.101) +.01;.5;1;2; +"KRN",.402,1779,-1) +0^1 +"KRN",.402,1779,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1779,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1779,"DR",2,1130580001.2011) +.01; +"KRN",19,11104,-1) +0^9 +"KRN",19,11104,0) +C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^ +"KRN",19,11104,30) +C0Q(101, +"KRN",19,11104,31) +AEMQL +"KRN",19,11104,50) +C0Q(101, +"KRN",19,11104,51) +[C0Q QUALITY MEASURE DEFINITION] +"KRN",19,11104,"U") +QUALITY MEASURE DEFINITION +"KRN",19,11105,-1) +0^8 +"KRN",19,11105,0) +C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^ +"KRN",19,11105,30) +C0Q(201, +"KRN",19,11105,31) +AEMQL +"KRN",19,11105,50) +C0Q(201, +"KRN",19,11105,51) +[C0Q MEASUREMENT SET DEFINE] +"KRN",19,11105,"U") +MEASURE SET DEFINITION +"KRN",19,11106,-1) +0^10 +"KRN",19,11106,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11106,10,0) +^19.01IP^15^15 +"KRN",19,11106,10,1,0) +11105 +"KRN",19,11106,10,1,"^") +C0Q MEASURE SET DEFINITION +"KRN",19,11106,10,2,0) +11104 +"KRN",19,11106,10,2,"^") +C0Q QUALITY MEASURE DEFINITION +"KRN",19,11106,10,6,0) +11110 +"KRN",19,11106,10,6,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11106,10,7,0) +11111 +"KRN",19,11106,10,7,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11106,10,9,0) +11113 +"KRN",19,11106,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11106,10,11,0) +11115 +"KRN",19,11106,10,11,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11106,10,12,0) +11116 +"KRN",19,11106,10,12,"^") +C0Q PQRI MENU +"KRN",19,11106,10,13,0) +11117 +"KRN",19,11106,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11106,10,14,0) +11118 +"KRN",19,11106,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11106,10,15,0) +11124 +"KRN",19,11106,10,15,"^") +C0Q UPDATE MU MEASURES +"KRN",19,11106,99) +62333,41065 +"KRN",19,11106,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11107,-1) +0^4 +"KRN",19,11107,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^ +"KRN",19,11107,60) +C0Q(101, +"KRN",19,11107,62) +0 +"KRN",19,11107,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11107,64) + +"KRN",19,11107,65) + +"KRN",19,11107,66) + +"KRN",19,11107,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11108,-1) +0^3 +"KRN",19,11108,0) +C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^ +"KRN",19,11108,60) +C0Q(201, +"KRN",19,11108,62) +0 +"KRN",19,11108,63) +[C0Q PRINT MEASUREMENT SET] +"KRN",19,11108,64) + +"KRN",19,11108,65) + +"KRN",19,11108,66) + +"KRN",19,11108,"U") +DISPLAY MEASURE SET +"KRN",19,11109,-1) +0^7 +"KRN",19,11109,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11109,25) +EN^C0QMAIN +"KRN",19,11109,"U") +LIST MEASURE SET +"KRN",19,11110,-1) +0^1 +"KRN",19,11110,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11110,25) +NBYP^C0QMAIN +"KRN",19,11110,"U") +BY PATIENT NUMERATOR +"KRN",19,11111,-1) +0^2 +"KRN",19,11111,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11111,25) +DBYP^C0QMAIN +"KRN",19,11111,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11112,-1) +0^5 +"KRN",19,11112,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11112,25) +EXPORT^C0QMAIN +"KRN",19,11112,"U") +EXPORT CCR BY MEASURE +"KRN",19,11113,-1) +0^12 +"KRN",19,11113,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11113,25) +EN2^C0QMAIN +"KRN",19,11113,"U") +COPY OVER PATIENT LISTS +"KRN",19,11114,-1) +0^6 +"KRN",19,11114,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11114,25) +ENEXP^C0QMAIN +"KRN",19,11114,"U") +ALL MEASURES EXPORT +"KRN",19,11115,-1) +0^15 +"KRN",19,11115,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11115,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11115,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11115,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11115,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11115,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11115,25) +QUE^C0QMAIN +"KRN",19,11115,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11116,-1) +0^13 +"KRN",19,11116,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11116,10,0) +^19.01IP^3^3 +"KRN",19,11116,10,1,0) +11114 +"KRN",19,11116,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11116,10,2,0) +11112 +"KRN",19,11116,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11116,10,3,0) +11109 +"KRN",19,11116,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11116,99) +62333,41065 +"KRN",19,11116,"U") +PQRI MENU +"KRN",19,11117,-1) +0^14 +"KRN",19,11117,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11117,30) +C0Q(201, +"KRN",19,11117,31) +AEMQ +"KRN",19,11117,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11117,80) +C0Q(201, +"KRN",19,11117,"U") +PRINT C0Q MEASURES +"KRN",19,11118,-1) +0^16 +"KRN",19,11118,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11118,25) +EN^C0QPQRI +"KRN",19,11118,"U") +PQRI PRINT XML +"KRN",19,11124,-1) +0^17 +"KRN",19,11124,0) +C0Q UPDATE MU MEASURES^UPDATE MU MEASURES^^R^^^^^^^^ +"KRN",19,11124,25) +BUILD^C0QPRML +"KRN",19,11124,"U") +UPDATE MU MEASURES +"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") +11 +"RTN","C0QERTIM") +0^5^B7596326 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; +"RTN","C0QERTIM",2,0) + ;;0.1;C0Q;;;Build 19 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QERTIM",58,0) + +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 19 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 19 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 19 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QHF") +0^11^B3166240 +"RTN","C0QHF",1,0) +C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 +"RTN","C0QHF",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 +"RTN","C0QHF",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QHF",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QHF",5,0) + ; +"RTN","C0QHF",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QHF",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QHF",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QHF",9,0) + ;(at your option) any later version. +"RTN","C0QHF",10,0) + ; +"RTN","C0QHF",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QHF",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QHF",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QHF",14,0) + ;GNU General Public License for more details. +"RTN","C0QHF",15,0) + ; +"RTN","C0QHF",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QHF",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QHF",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QHF",19,0) + ; +"RTN","C0QHF",20,0) + Q +"RTN","C0QHF",21,0) + ; +"RTN","C0QHF",22,0) + ; these routines are for quick lookups on HEALTH FACTOR and V HEALTH FACTOR +"RTN","C0QHF",23,0) + ; files... +"RTN","C0QHF",24,0) + ; +"RTN","C0QHF",25,0) + ; from the DD: +"RTN","C0QHF",26,0) + ;STANDARD DATA DICTIONARY #9000010.23 -- V HEALTH FACTORS FILE +"RTN","C0QHF",27,0) + ;STORED IN ^AUPNVHF( (6744 ENTRIES) +"RTN","C0QHF",28,0) + ;CROSS REFERENCED BY: PATIENT NAME(AATOO), HEALTH FACTOR(AATOO1), VISIT(AD), +"RTN","C0QHF",29,0) + ; VISIT(AV10), HEALTH FACTOR(B), PATIENT NAME(C) +"RTN","C0QHF",30,0) + ; +"RTN","C0QHF",31,0) + ;STANDARD DATA DICTIONARY #9999999.64 -- HEALTH FACTORS FILE +"RTN","C0QHF",32,0) + ;STORED IN ^AUTTHF( (8656 ENTRIES) +"RTN","C0QHF",33,0) + ;CROSS REFERENCED BY: CATEGORY(AC), ENTRY TYPE(AD), FACTOR(B), SYNONYM(D) +"RTN","C0QHF",34,0) + ; +"RTN","C0QHF",35,0) +HFYN(DFN,C0QHF) ; EXTRINSIC RETURNS 1 (YES) OR 0 (NO) IF A PATIENT +"RTN","C0QHF",36,0) + ; HAS A HEALTH FACTOR +"RTN","C0QHF",37,0) + N ZI,ZJ,ZR +"RTN","C0QHF",38,0) + S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN +"RTN","C0QHF",39,0) + I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1 +"RTN","C0QHF",40,0) + E S ZR=0 +"RTN","C0QHF",41,0) + Q ZR +"RTN","C0QHF",42,0) + ; +"RTN","C0QHF",43,0) +HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY +"RTN","C0QHF",44,0) + ; RTN IS PASSED BY REFERENCE AND RETURNS AN ARRAY OF HEALTH FACTORS +"RTN","C0QHF",45,0) + ; THAT THE PATIENT HAS IN THE CATEGORY. RETURNS NULL IF NONE +"RTN","C0QHF",46,0) + ; FORMAT RNT(HEALTH FACTOR IEN,HEALTH FACTOR NAME)="" +"RTN","C0QHF",47,0) + N ZI +"RTN","C0QHF",48,0) + S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN +"RTN","C0QHF",49,0) + N C0QN,C0QO +"RTN","C0QHF",50,0) + S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS +"RTN","C0QHF",51,0) + S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY +"RTN","C0QHF",52,0) + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; THE DIFFERENCE +"RTN","C0QHF",53,0) + K RTN ; CLEAR THE RETURN ARRAY +"RTN","C0QHF",54,0) + N ZJ S ZJ="" +"RTN","C0QHF",55,0) + F S ZJ=$O(C0QR(1,ZJ)) Q:ZJ="" D ; FOR ALL HEALTH FACTOR MATCHES +"RTN","C0QHF",56,0) + . S RTN(ZJ,$P(^AUTTHF(ZJ,0),"^",1))="" +"RTN","C0QHF",57,0) + Q +"RTN","C0QHF",58,0) + ; +"RTN","C0QHF",59,0) +HFLCAT(RTN,C0QHFCAT) ; RETURNS A LIST OF PATIENTS WHO HAVE A HEALTH FACTOR +"RTN","C0QHF",60,0) + ; IN THE C0QHFCAT CATEGORY. RTN IS PASSED BY REFERENCE +"RTN","C0QHF",61,0) + ; THIS WILL BE HARD TO DO WITHOUT SOME NEW INDEXES +"RTN","C0QHF",62,0) + Q +"RTN","C0QHF",63,0) + ; +"RTN","C0QHF",64,0) +HFLPAT(RTN,C0QHF) ; RETURNS A LIST OF PATIENTS WHO HAVE A SPECIFIC HEALTH +"RTN","C0QHF",65,0) + ; FACTOR. RTN IS PASSED BY REFERENCE +"RTN","C0QHF",66,0) + ; THIS ONE ALSO WILL BE HARD TO DO QUICKLY WITHOUT A NEW INDEX +"RTN","C0QHF",67,0) + Q +"RTN","C0QHF",68,0) + ; +"RTN","C0QHF",69,0) +INDEXES(DDREF) ;PRINT THE INDEXES ACTUALLY ON FILE DDREF +"RTN","C0QHF",70,0) + ; IE D INDEXES($NA(^DD)) +"RTN","C0QHF",71,0) + N ZI +"RTN","C0QHF",72,0) + S ZI="A" +"RTN","C0QHF",73,0) + F S ZI=$O(@DDREF@(ZI)) Q:ZI="" W !,ZI +"RTN","C0QHF",74,0) + Q +"RTN","C0QHF",75,0) + ; +"RTN","C0QIMMUN") +0^6^B6463760 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; +"RTN","C0QIMMUN",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",7,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",8,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",9,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",10,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",11,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",12,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",13,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",14,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",15,0) + . D:Y>0 +"RTN","C0QIMMUN",16,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",17,0) + . . L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",18,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",19,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",20,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",21,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",22,0) + . . Q +"RTN","C0QIMMUN",23,0) + . Q +"RTN","C0QIMMUN",24,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",25,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",26,0) + L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",27,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",28,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",29,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",30,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",31,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",32,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",33,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",34,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",35,0) + . Q +"RTN","C0QIMMUN",36,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",37,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",38,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",39,0) + Q +"RTN","C0QIMMUN",40,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",41,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",42,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",43,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",44,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",45,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",46,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",47,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",48,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",49,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",50,0) + . Q +"RTN","C0QIMMUN",51,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",52,0) + Q +"RTN","C0QMAIN") +0^1^B115162981 +"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 19 +"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) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"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) + D UPDATE^C0QUPDT(.G,MSIEN) +"RTN","C0QMAIN",142,0) + Q +"RTN","C0QMAIN",143,0) + ; +"RTN","C0QMAIN",144,0) +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC +"RTN","C0QMAIN",145,0) + ; +"RTN","C0QMAIN",146,0) + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC +"RTN","C0QMAIN",147,0) + I Y<1 Q ; EXIT +"RTN","C0QMAIN",148,0) + N MSIEN S MSIEN=+Y +"RTN","C0QMAIN",149,0) + S C0QSUM=1 +"RTN","C0QMAIN",150,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",151,0) + ; iterate over the measures +"RTN","C0QMAIN",152,0) + S MEASURE=0 +"RTN","C0QMAIN",153,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",154,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",155,0) + . ; now count the numerator patients +"RTN","C0QMAIN",156,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",157,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",158,0) + . ; and count the denominator patients +"RTN","C0QMAIN",159,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",160,0) + . Q:DENOM=0 +"RTN","C0QMAIN",161,0) + . ; and stuff the values +"RTN","C0QMAIN",162,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",163,0) + . Q +"RTN","C0QMAIN",164,0) + Q +"RTN","C0QMAIN",165,0) + ; +"RTN","C0QMAIN",166,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",167,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",168,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",169,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",170,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",171,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",172,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",173,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",174,0) + N ZI S ZI="" +"RTN","C0QMAIN",175,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",176,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",177,0) + D DELIST("C0QM") +"RTN","C0QMAIN",178,0) + N ZII S ZII=0 +"RTN","C0QMAIN",179,0) + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE +"RTN","C0QMAIN",180,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",181,0) + K C0QM +"RTN","C0QMAIN",182,0) + D CLEAN^DILF +"RTN","C0QMAIN",183,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",184,0) + D DELIST("C0QM") +"RTN","C0QMAIN",185,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",186,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",187,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",188,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",189,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",190,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",191,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",192,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",193,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",194,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QMAIN",195,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",196,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",197,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",198,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QMAIN",199,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",200,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",201,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",202,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",203,0) + . N C0QUFN ; FILE NUMBER TO USE +"RTN","C0QMAIN",204,0) + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",205,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",206,0) + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",207,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",208,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",209,0) + . K C0QNUMP +"RTN","C0QMAIN",210,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",211,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",212,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",213,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",214,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",215,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",216,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",217,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",218,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",219,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",220,0) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",221,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",222,0) + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",223,0) + . ;D DELIST("G") +"RTN","C0QMAIN",224,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",225,0) + . ;S ZJ="" +"RTN","C0QMAIN",226,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",227,0) + . K C0QDEMP +"RTN","C0QMAIN",228,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",229,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",230,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",231,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",232,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",233,0) + . ;E D ; +"RTN","C0QMAIN",234,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",235,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",236,0) + Q +"RTN","C0QMAIN",237,0) + ; +"RTN","C0QMAIN",238,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",239,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",240,0) + ; +"RTN","C0QMAIN",241,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",242,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",243,0) + D CLEAN^DILF +"RTN","C0QMAIN",244,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",245,0) + D CLEAN^DILF +"RTN","C0QMAIN",246,0) + K ZERR +"RTN","C0QMAIN",247,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",248,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",249,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",250,0) + ;. W "ERROR",! +"RTN","C0QMAIN",251,0) + ;. ZWR ZERR +"RTN","C0QMAIN",252,0) + ;. B +"RTN","C0QMAIN",253,0) + K C0QFDA +"RTN","C0QMAIN",254,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",255,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",256,0) + Q +"RTN","C0QMAIN",257,0) + ; +"RTN","C0QMAIN",258,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",259,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",260,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",261,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",262,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",263,0) + N C0QI,C0QJ +"RTN","C0QMAIN",264,0) + N C0QFDA +"RTN","C0QMAIN",265,0) + S C0QI="" +"RTN","C0QMAIN",266,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",267,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",268,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",269,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",270,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",271,0) + K C0QFDA +"RTN","C0QMAIN",272,0) + S C0QI="" +"RTN","C0QMAIN",273,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",274,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",275,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",276,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",277,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",278,0) + Q +"RTN","C0QMAIN",279,0) + ; +"RTN","C0QMAIN",280,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",281,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",282,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",283,0) + S ZI="" +"RTN","C0QMAIN",284,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",285,0) + K @RTN +"RTN","C0QMAIN",286,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",287,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",288,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",289,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",290,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",291,0) + Q +"RTN","C0QMAIN",292,0) + ; +"RTN","C0QMAIN",293,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",294,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",295,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",296,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",297,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",298,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",299,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",300,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",301,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",302,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",303,0) + N C0QI,C0QJ +"RTN","C0QMAIN",304,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",305,0) + K C0QFDA +"RTN","C0QMAIN",306,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",307,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",308,0) + ;D +"RTN","C0QMAIN",309,0) + Q +"RTN","C0QMAIN",310,0) + ; +"RTN","C0QMAIN",311,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",312,0) + K ZERR +"RTN","C0QMAIN",313,0) + D CLEAN^DILF +"RTN","C0QMAIN",314,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",315,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",316,0) + ;. W "ERROR",! +"RTN","C0QMAIN",317,0) + ;. ZWR ZERR +"RTN","C0QMAIN",318,0) + ;. B +"RTN","C0QMAIN",319,0) + K C0QFDA +"RTN","C0QMAIN",320,0) + Q +"RTN","C0QMAIN",321,0) + ; +"RTN","C0QMAIN",322,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",323,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",324,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",325,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",326,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",327,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",328,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",329,0) + S ZTIO="" +"RTN","C0QMAIN",330,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",331,0) + D ^%ZTLOAD +"RTN","C0QMAIN",332,0) + Q +"RTN","C0QMAIN",333,0) + ; +"RTN","C0QMAIN",334,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",335,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",336,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",337,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",338,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",339,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",340,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",341,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",342,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",343,0) + N ZI S ZI="" +"RTN","C0QMAIN",344,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",345,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",346,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",347,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",348,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",349,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",350,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",351,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",352,0) + Q +"RTN","C0QPQRI") +0^7^B41579607 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 +"RTN","C0QPQRI",2,0) + ;;0.1;C0C;nopatch;noreleasedate;Build 19 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"RTN","C0QPRML") +0^8^B51124381 +"RTN","C0QPRML",1,0) +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm +"RTN","C0QPRML",2,0) + ;;1.0;MU PACKAGE;;;Build 19 +"RTN","C0QPRML",3,0) + ; +"RTN","C0QPRML",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QPRML",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QPRML",6,0) + ; +"RTN","C0QPRML",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPRML",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPRML",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPRML",10,0) + ;(at your option) any later version. +"RTN","C0QPRML",11,0) + ; +"RTN","C0QPRML",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPRML",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPRML",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPRML",15,0) + ;GNU General Public License for more details. +"RTN","C0QPRML",16,0) + ; +"RTN","C0QPRML",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPRML",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPRML",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPRML",20,0) + ; +"RTN","C0QPRML",21,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QPRML",22,0) + ; patient lists +"RTN","C0QPRML",23,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QPRML",24,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QPRML",25,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QPRML",26,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QPRML",27,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QPRML",28,0) + ; INITIALIZE LISTS +"RTN","C0QPRML",29,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QPRML",30,0) + ; will be zeroed out +"RTN","C0QPRML",31,0) + S C0QLIST("HasDemographics")="" +"RTN","C0QPRML",32,0) + S C0QLIST("Patient")="" +"RTN","C0QPRML",33,0) + S C0QLIST("HasProblem")="" +"RTN","C0QPRML",34,0) + S C0QLIST("HasAllergy")="" +"RTN","C0QPRML",35,0) + S C0QLIST("HasMed")="" +"RTN","C0QPRML",36,0) + S C0QLIST("HasVitalSigns")="" +"RTN","C0QPRML",37,0) + S C0QLIST("HasMedOrders")="" +"RTN","C0QPRML",38,0) + S C0QLIST("HasSmokingStatus")="" +"RTN","C0QPRML",39,0) + D ALL ; all currently admitted patients in the hospital +"RTN","C0QPRML",40,0) + D DIS ; all patients discharged since the reporting period began +"RTN","C0QPRML",41,0) + I C0QSS ZWR GRSLT +"RTN","C0QPRML",42,0) + I C0QPL D ; +"RTN","C0QPRML",43,0) + . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QPRML",44,0) + . D UPDATE^C0QUPDT(.G,8) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QPRML",45,0) + Q +"RTN","C0QPRML",46,0) + ; +"RTN","C0QPRML",47,0) +ALL ;retrieve active inpatients +"RTN","C0QPRML",48,0) + N WARD S WARD="" +"RTN","C0QPRML",49,0) + F D Q:WARD="" +"RTN","C0QPRML",50,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QPRML",51,0) + . Q:WARD="" +"RTN","C0QPRML",52,0) + . N WIEN S WIEN="" +"RTN","C0QPRML",53,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QPRML",54,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QPRML",55,0) + . . N DFN,RB S DFN="" +"RTN","C0QPRML",56,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QPRML",57,0) + . . . D DEMO +"RTN","C0QPRML",58,0) + . . . D PROBLEM +"RTN","C0QPRML",59,0) + . . . D ALLERGY +"RTN","C0QPRML",60,0) + . . . D MEDS +"RTN","C0QPRML",61,0) + . . . D SMOKING +"RTN","C0QPRML",62,0) + . . . D VITALS +"RTN","C0QPRML",63,0) + . . . I C0QPR D PRINT +"RTN","C0QPRML",64,0) + . . . I C0QSS D SS +"RTN","C0QPRML",65,0) + . . . I C0QPL D PATLIST +"RTN","C0QPRML",66,0) + Q +"RTN","C0QPRML",67,0) + ; +"RTN","C0QPRML",68,0) +DEMO ; patient demographics +"RTN","C0QPRML",69,0) + S PTNAME=$P(^DPT(DFN,0),U) ;patient name +"RTN","C0QPRML",70,0) + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",71,0) + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",72,0) + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",73,0) + S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",74,0) + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",75,0) + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",76,0) + S RACE="" +"RTN","C0QPRML",77,0) + F D Q:RACE="" +"RTN","C0QPRML",78,0) + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN +"RTN","C0QPRML",79,0) + . Q:'RACE +"RTN","C0QPRML",80,0) + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description +"RTN","C0QPRML",81,0) + S ETHN="" +"RTN","C0QPRML",82,0) + F D Q:ETHN="" +"RTN","C0QPRML",83,0) + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN +"RTN","C0QPRML",84,0) + . Q:'ETHN +"RTN","C0QPRML",85,0) + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description +"RTN","C0QPRML",86,0) + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed +"RTN","C0QPRML",87,0) + Q +"RTN","C0QPRML",88,0) + ; +"RTN","C0QPRML",89,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QPRML",90,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",91,0) + S PBCNT="" +"RTN","C0QPRML",92,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",93,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",94,0) + K PROBL +"RTN","C0QPRML",95,0) + Q +"RTN","C0QPRML",96,0) + ; +"RTN","C0QPRML",97,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QPRML",98,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",99,0) + S ALCNT="" +"RTN","C0QPRML",100,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",101,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",102,0) + K ALRGYL +"RTN","C0QPRML",103,0) + Q +"RTN","C0QPRML",104,0) + ; +"RTN","C0QPRML",105,0) +MEDS ; MEDICATIONS +"RTN","C0QPRML",106,0) + ; +"RTN","C0QPRML",107,0) + I DFN=97 D Q ; +"RTN","C0QPRML",108,0) + . S MDCNT=271 +"RTN","C0QPRML",109,0) + K MEDSL +"RTN","C0QPRML",110,0) + D EN^C0CNHIN(.MEDSL,DFN,"MED;") ; GET THE MEDS FROM THE NHIN API +"RTN","C0QPRML",111,0) + ; can't use COVER^ORWPS even though it's fast.. we need to detect +"RTN","C0QPRML",112,0) + ; if the medications are Inpatient to compute the CPOE measure +"RTN","C0QPRML",113,0) + ; we will use the NHINV routines for this purpose +"RTN","C0QPRML",114,0) + ;D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",115,0) + S MDCNT="" S HASINP=0 +"RTN","C0QPRML",116,0) + F S MDCNT=$O(MEDSL("med",MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",117,0) + . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",118,0) + . Q:MEDSL("med",MDCNT,"status@value")'="active" +"RTN","C0QPRML",119,0) + . ;S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",120,0) + . S MDDESC=$G(MEDSL("med",MDCNT,"products.product@name")) +"RTN","C0QPRML",121,0) + . ;S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",122,0) + . S MDITEM=$G(MEDSL("med",MDCNT,"sig")) ; i think this is what meditem is +"RTN","C0QPRML",123,0) + . I MEDSL("med",MDCNT,"vaType@value")="I" S HASINP=1 +"RTN","C0QPRML",124,0) + I HASINP D ; THE PATIENT HAS AN INPATIENT MED +"RTN","C0QPRML",125,0) + . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE +"RTN","C0QPRML",126,0) + E S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient +"RTN","C0QPRML",127,0) + K MEDSL +"RTN","C0QPRML",128,0) + Q +"RTN","C0QPRML",129,0) + ; +"RTN","C0QPRML",130,0) +SMOKING ; +"RTN","C0QPRML",131,0) + N C0QSMOKE +"RTN","C0QPRML",132,0) + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE +"RTN","C0QPRML",133,0) + ; PATIENT IN THE CATEGORY OF TOBACCO +"RTN","C0QPRML",134,0) + I $D(C0QSMOKE) S C0QLIST("HasSmokingStatus",DFN)="" +"RTN","C0QPRML",135,0) + E S C0QLIST("NoSmokingStatus",DFN)="" +"RTN","C0QPRML",136,0) + Q +"RTN","C0QPRML",137,0) + ; +"RTN","C0QPRML",138,0) +VITALS ; +"RTN","C0QPRML",139,0) + ; +"RTN","C0QPRML",140,0) + N C0QSDT,C0QEDT +"RTN","C0QPRML",141,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QPRML",142,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QPRML",143,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QPRML",144,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QPRML",145,0) + . I VITRSLT(1)["No vitals found." S C0QLIST("NoVitalSigns",DFN)="" +"RTN","C0QPRML",146,0) + . E S C0QLIST("HasVitalSigns",DFN)="" +"RTN","C0QPRML",147,0) + Q +"RTN","C0QPRML",148,0) + ; +"RTN","C0QPRML",149,0) +PRINT ; PRINT TO SCREEN +"RTN","C0QPRML",150,0) + +"RTN","C0QPRML",151,0) + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " +"RTN","C0QPRML",152,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",153,0) + . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",154,0) + . W !,DFN," ",PTNAME +"RTN","C0QPRML",155,0) + W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",156,0) + W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",157,0) + W !,"Race: ",RACEDSC +"RTN","C0QPRML",158,0) + W !,"Ethnicity: ",$G(ETHNDSC) +"RTN","C0QPRML",159,0) + W !,"Problems: " +"RTN","C0QPRML",160,0) + W !,PBDESC +"RTN","C0QPRML",161,0) + W !,"Allergies: " +"RTN","C0QPRML",162,0) + W !,ALDESC +"RTN","C0QPRML",163,0) + W !,"Medications: " +"RTN","C0QPRML",164,0) + W ! +"RTN","C0QPRML",165,0) + Q +"RTN","C0QPRML",166,0) + ; +"RTN","C0QPRML",167,0) +SS ; CREATE SPREADSHEET ARRAY +"RTN","C0QPRML",168,0) + S G1("Patient")=DFN +"RTN","C0QPRML",169,0) + I $D(WARD) D ; +"RTN","C0QPRML",170,0) + . S G1("WardName")=WARDNAME +"RTN","C0QPRML",171,0) + . S G1("RoomAndBed")=RB +"RTN","C0QPRML",172,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",173,0) + . S G1("DischargeDate")=EXDTE +"RTN","C0QPRML",174,0) + S G1("PatientName")=PTNAME +"RTN","C0QPRML",175,0) + S G1("Gender")=PTSEX +"RTN","C0QPRML",176,0) + S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",177,0) + S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",178,0) + S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",179,0) + S G1("Race")=RACEDSC +"RTN","C0QPRML",180,0) + S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",181,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",182,0) + I PBDESC["No problems found" S G1("HasProblem")=0 +"RTN","C0QPRML",183,0) + E S G1("HasProblem")=1 +"RTN","C0QPRML",184,0) + S G1("Allergies")=ALDESC +"RTN","C0QPRML",185,0) + I ALDESC["No Allergy" S G1("HasAllergy")=0 +"RTN","C0QPRML",186,0) + E S G1("HasAllergy")=1 +"RTN","C0QPRML",187,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",188,0) + . S G1("HasMed")=1 +"RTN","C0QPRML",189,0) + E S G1("HasMed")=0 +"RTN","C0QPRML",190,0) + S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",191,0) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC +"RTN","C0QPRML",192,0) + D RNF1TO2B^C0CRNF("GRSLT","G1") +"RTN","C0QPRML",193,0) + K G1 +"RTN","C0QPRML",194,0) + Q ; DON'T WANT TO DO THE NHIN STUFF NOW +"RTN","C0QPRML",195,0) + ; +"RTN","C0QPRML",196,0) +PATLIST ; CREATE PATIENT LISTS +"RTN","C0QPRML",197,0) + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST +"RTN","C0QPRML",198,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QPRML",199,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QPRML",200,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QPRML",201,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QPRML",202,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QPRML",203,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QPRML",204,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QPRML",205,0) + I DEMOYN S C0QLIST("HasDemographics",DFN)="" +"RTN","C0QPRML",206,0) + E S C0QLIST("FailedDemographics",DFN)="" +"RTN","C0QPRML",207,0) + ;S G1("Gender")=PTSEX +"RTN","C0QPRML",208,0) + ;S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",209,0) + ;S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",210,0) + ;S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",211,0) + ;S G1("Race")=RACEDSC +"RTN","C0QPRML",212,0) + ;S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",213,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",214,0) + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" +"RTN","C0QPRML",215,0) + E S C0QLIST("HasProblem",DFN)="" +"RTN","C0QPRML",216,0) + ;S G1("Allergies")=ALDESC +"RTN","C0QPRML",217,0) + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" +"RTN","C0QPRML",218,0) + E S C0QLIST("HasAllergy",DFN)="" +"RTN","C0QPRML",219,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",220,0) + . S C0QLIST("HasMed",DFN)="" +"RTN","C0QPRML",221,0) + E S G1("NoMed",DFN)="" +"RTN","C0QPRML",222,0) + ;S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",223,0) + Q +"RTN","C0QPRML",224,0) + ; +"RTN","C0QPRML",225,0) +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT +"RTN","C0QPRML",226,0) + Q:DFN=137!14 +"RTN","C0QPRML",227,0) + D EN^C0CNHIN(.G,DFN,"") +"RTN","C0QPRML",228,0) + ZWR G +"RTN","C0QPRML",229,0) + K G +"RTN","C0QPRML",230,0) + ; +"RTN","C0QPRML",231,0) + QUIT ;end of WARD +"RTN","C0QPRML",232,0) + ; +"RTN","C0QPRML",233,0) + ; +"RTN","C0QPRML",234,0) +DIS; +"RTN","C0QPRML",235,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QPRML",236,0) + F D Q:DTE="" +"RTN","C0QPRML",237,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QPRML",238,0) + . Q:'DTE +"RTN","C0QPRML",239,0) + . Q:DTE<3110703 +"RTN","C0QPRML",240,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QPRML",241,0) + . N PTFM S PTFM="" +"RTN","C0QPRML",242,0) + . D +"RTN","C0QPRML",243,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QPRML",244,0) + . . Q:'PTFM +"RTN","C0QPRML",245,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QPRML",246,0) + . . D DEMO +"RTN","C0QPRML",247,0) + . . D PROBLEM +"RTN","C0QPRML",248,0) + . . D ALLERGY +"RTN","C0QPRML",249,0) + . . D MEDS +"RTN","C0QPRML",250,0) + . . D SMOKING +"RTN","C0QPRML",251,0) + . . D VITALS +"RTN","C0QPRML",252,0) + . . I C0QPR D PRINT +"RTN","C0QPRML",253,0) + . . I C0QSS D SS +"RTN","C0QPRML",254,0) + . . I C0QPL D PATLIST +"RTN","C0QPRML",255,0) + Q +"RTN","C0QPRML",256,0) + ; +"RTN","C0QPRML",257,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",258,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QPRML",259,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QPRML",260,0) + ; +"RTN","C0QPRML",261,0) + I '$D(C0QLIST) Q ; +"RTN","C0QPRML",262,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QPRML",263,0) + N ZI,ZN +"RTN","C0QPRML",264,0) + S ZI="" +"RTN","C0QPRML",265,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QPRML",266,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QPRML",267,0) + . I ZN="" D Q ; OOPS +"RTN","C0QPRML",268,0) + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QPRML",269,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QPRML",270,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QPRML",271,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QPRML",272,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QPRML",273,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QPRML",274,0) + . N ZJ,ZK +"RTN","C0QPRML",275,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QPRML",276,0) + . K C0QFDA +"RTN","C0QPRML",277,0) + . S ZJ="" +"RTN","C0QPRML",278,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QPRML",279,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QPRML",280,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QPRML",281,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QPRML",282,0) + . . . B +"RTN","C0QPRML",283,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QPRML",284,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QPRML",285,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QPRML",286,0) + . K C0QFDA +"RTN","C0QPRML",287,0) + . S ZJ="" S ZK=1 +"RTN","C0QPRML",288,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QPRML",289,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QPRML",290,0) + . . S ZK=ZK+1 +"RTN","C0QPRML",291,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QPRML",292,0) + ;. Q +"RTN","C0QPRML",293,0) + ;. K C0QFDA +"RTN","C0QPRML",294,0) + ;. N ZJ,ZC +"RTN","C0QPRML",295,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QPRML",296,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QPRML",297,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QPRML",298,0) + ;. . S ZC=ZC+1 +"RTN","C0QPRML",299,0) + ;. D UPDIE +"RTN","C0QPRML",300,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QPRML",301,0) + Q +"RTN","C0QPRML",302,0) + ; +"RTN","C0QPRML",303,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QPRML",304,0) + ; +"RTN","C0QPRML",305,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QPRML",306,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",307,0) + D CLEAN^DILF +"RTN","C0QPRML",308,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QPRML",309,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QPRML",310,0) + D CLEAN^DILF +"RTN","C0QPRML",311,0) + K ZERR +"RTN","C0QPRML",312,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QPRML",313,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QPRML",314,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",315,0) + ;. W "ERROR",! +"RTN","C0QPRML",316,0) + ;. ZWR ZERR +"RTN","C0QPRML",317,0) + ;. B +"RTN","C0QPRML",318,0) + K C0QFDA +"RTN","C0QPRML",319,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QPRML",320,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QPRML",321,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QPRML",322,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QPRML",323,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QPRML",324,0) + ; +"RTN","C0QPRML",325,0) + Q ZR +"RTN","C0QPRML",326,0) + ; +"RTN","C0QPRML",327,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QPRML",328,0) + K ZERR +"RTN","C0QPRML",329,0) + D CLEAN^DILF +"RTN","C0QPRML",330,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QPRML",331,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",332,0) + ;. W "ERROR",! +"RTN","C0QPRML",333,0) + ;. ZWR ZERR +"RTN","C0QPRML",334,0) + ;. B +"RTN","C0QPRML",335,0) + K C0QFDA +"RTN","C0QPRML",336,0) + Q +"RTN","C0QPRML",337,0) + ; +"RTN","C0QPRML",338,0) + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS +"RTN","C0QPRML",339,0) + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) +"RTN","C0QPRML",340,0) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",341,0) + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",342,0) + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",343,0) + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",344,0) + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",345,0) + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",346,0) + ;. . S RACE="" +"RTN","C0QPRML",347,0) + ;. . F D Q:RACE="" +"RTN","C0QPRML",348,0) + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) +"RTN","C0QPRML",349,0) + ;. . . Q:'RACE +"RTN","C0QPRML",350,0) + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) +"RTN","C0QPRML",351,0) + ;. . N ETHNDSC +"RTN","C0QPRML",352,0) + ;. . N ETHNDSC S ETHNDSC="" +"RTN","C0QPRML",353,0) + ;. . S ETHN="" +"RTN","C0QPRML",354,0) + ;. . F D Q:ETHN="" +"RTN","C0QPRML",355,0) + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) +"RTN","C0QPRML",356,0) + ;. . . Q:'ETHN +"RTN","C0QPRML",357,0) + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) +"RTN","C0QPRML",358,0) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",359,0) + ;. . S PBCNT="" +"RTN","C0QPRML",360,0) + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",361,0) + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",362,0) + ;. . K PROBL +"RTN","C0QPRML",363,0) + ;. . D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",364,0) + ;. . S ALCNT="" +"RTN","C0QPRML",365,0) + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",366,0) + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",367,0) + ;. . K ALRGYL +"RTN","C0QPRML",368,0) + ;. . D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",369,0) + ;. . S MDCNT="" +"RTN","C0QPRML",370,0) + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",371,0) + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",372,0) + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",373,0) + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",374,0) + ;. . K MEDSL +"RTN","C0QPRML",375,0) + ;. . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",376,0) + ;. . W !,DFN," ",PTNAME +"RTN","C0QPRML",377,0) + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",378,0) + ;. . W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",379,0) + ;. . W !,"Race: ",RACEDSC +"RTN","C0QPRML",380,0) + ;. . W !,"Ethnicity: ",ETHNDSC +"RTN","C0QPRML",381,0) + ;. . W !,"Problems: " +"RTN","C0QPRML",382,0) + ;. . W !,PBDESC +"RTN","C0QPRML",383,0) + ;. . W !,"Allergies: " +"RTN","C0QPRML",384,0) + ;. . W !,ALDESC +"RTN","C0QPRML",385,0) + ;. . W !,"Medications: " +"RTN","C0QPRML",386,0) + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC +"RTN","C0QPRML",387,0) + ;. . W ! +"RTN","C0QPRML",388,0) + ;Q +"RTN","C0QPRML",389,0) + ; +"RTN","C0QPRML",390,0) + ; +"RTN","C0QPRML",391,0) + ; +"RTN","C0QPRML",392,0) + ; +"RTN","C0QPRML",393,0) +END ;end of C0QPRML; +"RTN","C0QSET") +0^9^B8586809 +"RTN","C0QSET",1,0) +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm +"RTN","C0QSET",2,0) + ;;1.0;MU PACKAGE;;;Build 19 +"RTN","C0QSET",3,0) + ; +"RTN","C0QSET",4,0) + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU +"RTN","C0QSET",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QSET",6,0) + ; +"RTN","C0QSET",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QSET",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QSET",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QSET",10,0) + ;(at your option) any later version. +"RTN","C0QSET",11,0) + ; +"RTN","C0QSET",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QSET",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QSET",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QSET",15,0) + ;GNU General Public License for more details. +"RTN","C0QSET",16,0) + ; +"RTN","C0QSET",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QSET",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QSET",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QSET",20,0) + ; +"RTN","C0QSET",21,0) + Q +"RTN","C0QSET",22,0) + ; +"RTN","C0QSET",23,0) +TEST ; TEST OF UNITY ROUTINE +"RTN","C0QSET",24,0) + ; +"RTN","C0QSET",25,0) + S A(1)="" +"RTN","C0QSET",26,0) + S A(2)="" +"RTN","C0QSET",27,0) + S A(3)="" +"RTN","C0QSET",28,0) + S B(3)="" +"RTN","C0QSET",29,0) + S B(4)="" +"RTN","C0QSET",30,0) + D UNITY("C","A","B") +"RTN","C0QSET",31,0) + ZWR C +"RTN","C0QSET",32,0) + Q +"RTN","C0QSET",33,0) + ; +"RTN","C0QSET",34,0) +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? +"RTN","C0QSET",35,0) + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? +"RTN","C0QSET",36,0) + S PATS=$NA(^DPT) +"RTN","C0QSET",37,0) + S MEDS=$NA(^PS(55)) +"RTN","C0QSET",38,0) + D UNITY("DELTA",PATS,MEDS) +"RTN","C0QSET",39,0) + W !,"PATIENTS WITH NO MEDS",! +"RTN","C0QSET",40,0) + ZWR DELTA(0,*) +"RTN","C0QSET",41,0) + W !,"BAD POINTERS IN THE MEDS FILE",! +"RTN","C0QSET",42,0) + ZWR DELTA(2,*) +"RTN","C0QSET",43,0) + Q +"RTN","C0QSET",44,0) + ; +"RTN","C0QSET",45,0) +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",46,0) + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS +"RTN","C0QSET",47,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",48,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",49,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",50,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",51,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",52,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",53,0) + N ZN S ZN=0 ; COUNT +"RTN","C0QSET",54,0) + N ZI S ZI=0 +"RTN","C0QSET",55,0) + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",56,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",57,0) + . S ZN=ZN+1 +"RTN","C0QSET",58,0) + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT +"RTN","C0QSET",59,0) + S ZI=0 +"RTN","C0QSET",60,0) + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",61,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",62,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",63,0) + S ZI=0 +"RTN","C0QSET",64,0) + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM +"RTN","C0QSET",65,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",66,0) + Q +"RTN","C0QSET",67,0) + ; +"RTN","C0QSET",68,0) +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",69,0) + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST +"RTN","C0QSET",70,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",71,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",72,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",73,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",74,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",75,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",76,0) + N ZI S ZI="" +"RTN","C0QSET",77,0) + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",78,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",79,0) + S ZI="" +"RTN","C0QSET",80,0) + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",81,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",82,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",83,0) + S ZI="" +"RTN","C0QSET",84,0) + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM +"RTN","C0QSET",85,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",86,0) + Q +"RTN","C0QSET",87,0) + ; +"RTN","C0QSET",88,0) +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD +"RTN","C0QSET",89,0) + N ZD +"RTN","C0QSET",90,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",91,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",92,0) + Q +"RTN","C0QSET",93,0) + ; +"RTN","C0QSET",94,0) +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH +"RTN","C0QSET",95,0) + N ZD +"RTN","C0QSET",96,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",97,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",98,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",99,0) + Q +"RTN","C0QSET",100,0) + ; +"RTN","C0QSET",101,0) +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT +"RTN","C0QSET",102,0) + N ZD +"RTN","C0QSET",103,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",104,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",105,0) + Q +"RTN","C0QSET",106,0) + ; +"RTN","C0QSET",107,0) +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH +"RTN","C0QSET",108,0) + N ZD +"RTN","C0QSET",109,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",110,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",111,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",112,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",113,0) + Q +"RTN","C0QSET",114,0) + ; +"RTN","C0QSET",115,0) +END ;end of C0QSET; +"RTN","C0QUPDT") +0^10^B39929946 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11 17:05 +"RTN","C0QUPDT",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",30,0) + ; +"RTN","C0QUPDT",31,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",32,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",33,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",34,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",35,0) + ; +"RTN","C0QUPDT",36,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",37,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",38,0) + ; +"RTN","C0QUPDT",39,0) + N ZI S ZI="" +"RTN","C0QUPDT",40,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",41,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",42,0) + D DELIST("C0QM") +"RTN","C0QUPDT",43,0) + N ZII S ZII="" +"RTN","C0QUPDT",44,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",45,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",46,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",47,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",48,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",49,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",50,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",51,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",52,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",53,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",54,0) + . ; +"RTN","C0QUPDT",55,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",56,0) + . ; +"RTN","C0QUPDT",57,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",58,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",59,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",60,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",61,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",62,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",63,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",64,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",65,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",66,0) + . N C0QCNT +"RTN","C0QUPDT",67,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",68,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",69,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",70,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",71,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",72,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",73,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",74,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",75,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",76,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",77,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",78,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",79,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",80,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",81,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",82,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",83,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",84,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",85,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",86,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",87,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",88,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",89,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",90,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",91,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",92,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",93,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",94,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",95,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",96,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",97,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",98,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",99,0) + . ; +"RTN","C0QUPDT",100,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",101,0) + . ; +"RTN","C0QUPDT",102,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",103,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",104,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",105,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",106,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",107,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",108,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",109,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",110,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",111,0) + . N C0QDCNT +"RTN","C0QUPDT",112,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",113,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",114,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",115,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",116,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",117,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",118,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",119,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",120,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",121,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",122,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",123,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",124,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",125,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",126,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",127,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",128,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",129,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",130,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",131,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",132,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",133,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",134,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",135,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",136,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",137,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",138,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",139,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",140,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",141,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",142,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",143,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",144,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",145,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",146,0) + . I C0QDCNT>0 D ; +"RTN","C0QUPDT",147,0) + . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",148,0) + . . K C0QFDA +"RTN","C0QUPDT",149,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",150,0) + . . D UPDIE +"RTN","C0QUPDT",151,0) + Q +"RTN","C0QUPDT",152,0) + ; +"RTN","C0QUPDT",153,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",154,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",155,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",156,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QUPDT",157,0) + S ZI="" +"RTN","C0QUPDT",158,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",159,0) + K @RTN +"RTN","C0QUPDT",160,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",161,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",162,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",163,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",164,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QUPDT",165,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",166,0) + Q +"RTN","C0QUPDT",167,0) + ; +"RTN","C0QUPDT",168,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",169,0) + K ZERR +"RTN","C0QUPDT",170,0) + D CLEAN^DILF +"RTN","C0QUPDT",171,0) + ZWR C0QFDA +"RTN","C0QUPDT",172,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",173,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",174,0) + ;. W "ERROR",! +"RTN","C0QUPDT",175,0) + ;. ZWR ZERR +"RTN","C0QUPDT",176,0) + ;. B +"RTN","C0QUPDT",177,0) + K C0QFDA +"RTN","C0QUPDT",178,0) + Q +"RTN","C0QUPDT",179,0) + ; +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"AUDIT") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DEL") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"LAYGO") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"RD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"WR") +@ +"VER") +8.0^22.0 +"^DD",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^1.51^14 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^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^7 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3110621 +"^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") +3110621 +"^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^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.301,1130580001.301,0) +FIELD^^999^8 +"^DD",1130580001.301,1130580001.301,0,"DDA") +N +"^DD",1130580001.301,1130580001.301,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,0,"ID",999) +W:$D(^(3)) " ",$P(^(3),U,1) +"^DD",1130580001.301,1130580001.301,0,"IX","B",1130580001.301,.01) + +"^DD",1130580001.301,1130580001.301,0,"NM","C0Q PATIENT LIST") + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.51) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,2.1) + +"^DD",1130580001.301,1130580001.301,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.301,1130580001.301,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.301,.01,1,1,0) +1130580001.301^B +"^DD",1130580001.301,1130580001.301,.01,1,1,1) +S ^C0Q(301,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.301,.01,1,1,2) +K ^C0Q(301,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.301,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.301,1130580001.301,.02,0) +REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2011)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.02,3) +Type a number between 2011 and 2050, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.03,0) +REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.03,3) +Type a number between 1 and 12, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.03,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.04,0) +ORIGINAL DATE CREATED^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X +"^DD",1130580001.301,1130580001.301,.04,3) +(No range limit on date) +"^DD",1130580001.301,1130580001.301,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.07,0) +CREATOR^P200'^VA(200,^0;5^Q +"^DD",1130580001.301,1130580001.301,.07,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,30,0) +PATIENTS^1130580001.311P^^1;0 +"^DD",1130580001.301,1130580001.301,200,0) +CREATION DOCUMENTATION^1130580001.321^^2;0 +"^DD",1130580001.301,1130580001.301,999,0) +ATTRIBUTE^F^^3;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,999,3) +PATIENT LIST ATTRIBUTE +"^DD",1130580001.301,1130580001.301,999,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0) +PATIENTS SUB-FIELD^^.05^4 +"^DD",1130580001.301,1130580001.311,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0,"IX","B",1130580001.311,.01) + +"^DD",1130580001.301,1130580001.311,0,"NM","PATIENTS") + +"^DD",1130580001.301,1130580001.311,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.311,.01,0) +PATIENTS^MP2'^DPT(^0;1^Q +"^DD",1130580001.301,1130580001.311,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.311,.01,1,1,0) +1130580001.311^B +"^DD",1130580001.301,1130580001.311,.01,1,1,1) +S ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.311,.01,1,1,2) +K ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.311,.01,3) +PATIENTS IN THE LIST +"^DD",1130580001.301,1130580001.311,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.04,0) +DESEASED^S^0:NO;1:YES;^2;1^Q +"^DD",1130580001.301,1130580001.311,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.05,0) +TEST PATIENT^S^0:NO;1:YES;^2;2^Q +"^DD",1130580001.301,1130580001.311,.05,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,1,0) +DATA^1130580001.3111^^1;0 +"^DD",1130580001.301,1130580001.3111,0) +DATA SUB-FIELD^^.02^2 +"^DD",1130580001.301,1130580001.3111,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,0,"IX","B",1130580001.3111,.01) + +"^DD",1130580001.301,1130580001.3111,0,"NM","DATA") + +"^DD",1130580001.301,1130580001.3111,0,"UP") +1130580001.311 +"^DD",1130580001.301,1130580001.3111,.01,0) +DATA TYPE^MF^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.3111,.01,1,1,0) +1130580001.3111^B +"^DD",1130580001.301,1130580001.3111,.01,1,1,1) +S ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.3111,.01,1,1,2) +K ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.3111,.01,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,.02,0) +VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.02,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0) +CREATION DOCUMENTATION SUB-FIELD^^.01^1 +"^DD",1130580001.301,1130580001.321,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0,"NM","CREATION DOCUMENTATION") + +"^DD",1130580001.301,1130580001.321,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.321,.01,0) +CREATION DOCUMENTATION^W^^0;1 +"^DD",1130580001.301,1130580001.321,.01,3) +DOCUMENTATION +"^DD",1130580001.301,1130580001.321,.01,"DT") +3110805 +"^DIC",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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) + +"^DIC",1130580001.301,1130580001.301,0) +C0Q PATIENT LIST^1130580001.301 +"^DIC",1130580001.301,1130580001.301,0,"GL") +^C0Q(301, +"^DIC",1130580001.301,1130580001.301,"%",0) +^1.005^^0 +"^DIC",1130580001.301,"B","C0Q PATIENT LIST",1130580001.301) + +**END** +**END** diff --git a/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T4.KID b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T4.KID new file mode 100644 index 0000000..6ca0f80 --- /dev/null +++ b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T4.KID @@ -0,0 +1,9302 @@ +KIDS Distribution saved on Jul 25, 2011@17:02:27 +certification code for quality measure reportin +**KIDS**:C0Q*1.0*0^ + +**INSTALL NAME** +C0Q*1.0*0 +"BLD",7901,0) +C0Q*1.0*0^^0^3110725^n +"BLD",7901,4,0) +^9.64PA^178.301^3 +"BLD",7901,4,178.301,0) +178.301 +"BLD",7901,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7901,4,1130580001.101,0) +1130580001.101 +"BLD",7901,4,1130580001.101,222) +y^y^f^^n^^y^o^n +"BLD",7901,4,1130580001.201,0) +1130580001.201 +"BLD",7901,4,1130580001.201,222) +y^y^f^^n^^y^o^n +"BLD",7901,4,"B",178.301,178.301) + +"BLD",7901,4,"B",1130580001.101,1130580001.101) + +"BLD",7901,4,"B",1130580001.201,1130580001.201) + +"BLD",7901,6.3) +11 +"BLD",7901,"KRN",0) +^9.67PA^779.2^20 +"BLD",7901,"KRN",.4,0) +.4 +"BLD",7901,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7901,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7901,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7901,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7901,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7901,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7901,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7901,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7901,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7901,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7901,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7901,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7901,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7901,"KRN",.401,0) +.401 +"BLD",7901,"KRN",.402,0) +.402 +"BLD",7901,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7901,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7901,"KRN",.402,"NM",2,0) +C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101^1130580001.101^0 +"BLD",7901,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7901,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101",2) + +"BLD",7901,"KRN",.403,0) +.403 +"BLD",7901,"KRN",.5,0) +.5 +"BLD",7901,"KRN",.84,0) +.84 +"BLD",7901,"KRN",3.6,0) +3.6 +"BLD",7901,"KRN",3.8,0) +3.8 +"BLD",7901,"KRN",9.2,0) +9.2 +"BLD",7901,"KRN",9.8,0) +9.8 +"BLD",7901,"KRN",9.8,"NM",0) +^9.68A^7^7 +"BLD",7901,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B105659889 +"BLD",7901,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7901,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7901,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7901,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7596326 +"BLD",7901,"KRN",9.8,"NM",6,0) +C0QIMMUN^^0^B6463760 +"BLD",7901,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41579607 +"BLD",7901,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7901,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7901,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7901,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7901,"KRN",9.8,"NM","B","C0QIMMUN",6) + +"BLD",7901,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7901,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7901,"KRN",19,0) +19 +"BLD",7901,"KRN",19,"NM",0) +^9.68A^16^15 +"BLD",7901,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7901,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7901,"KRN",19,"NM",3,0) +C0Q DISPLAY MEASURE SET^^0 +"BLD",7901,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7901,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7901,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7901,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7901,"KRN",19,"NM",8,0) +C0Q MEASURE SET DEFINITION^^0 +"BLD",7901,"KRN",19,"NM",9,0) +C0Q QUALITY MEASURE DEFINITION^^0 +"BLD",7901,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7901,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7901,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7901,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7901,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7901,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7901,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7901,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7901,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7901,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3) + +"BLD",7901,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7901,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7901,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7901,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7901,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8) + +"BLD",7901,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7901,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7901,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7901,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9) + +"BLD",7901,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7901,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7901,"KRN",19.1,0) +19.1 +"BLD",7901,"KRN",101,0) +101 +"BLD",7901,"KRN",409.61,0) +409.61 +"BLD",7901,"KRN",771,0) +771 +"BLD",7901,"KRN",779.2,0) +779.2 +"BLD",7901,"KRN",870,0) +870 +"BLD",7901,"KRN",8989.51,0) +8989.51 +"BLD",7901,"KRN",8989.52,0) +8989.52 +"BLD",7901,"KRN",8994,0) +8994 +"BLD",7901,"KRN","B",.4,.4) + +"BLD",7901,"KRN","B",.401,.401) + +"BLD",7901,"KRN","B",.402,.402) + +"BLD",7901,"KRN","B",.403,.403) + +"BLD",7901,"KRN","B",.5,.5) + +"BLD",7901,"KRN","B",.84,.84) + +"BLD",7901,"KRN","B",3.6,3.6) + +"BLD",7901,"KRN","B",3.8,3.8) + +"BLD",7901,"KRN","B",9.2,9.2) + +"BLD",7901,"KRN","B",9.8,9.8) + +"BLD",7901,"KRN","B",19,19) + +"BLD",7901,"KRN","B",19.1,19.1) + +"BLD",7901,"KRN","B",101,101) + +"BLD",7901,"KRN","B",409.61,409.61) + +"BLD",7901,"KRN","B",771,771) + +"BLD",7901,"KRN","B",779.2,779.2) + +"BLD",7901,"KRN","B",870,870) + +"BLD",7901,"KRN","B",8989.51,8989.51) + +"BLD",7901,"KRN","B",8989.52,8989.52) + +"BLD",7901,"KRN","B",8994,8994) + +"BLD",7901,"QUES",0) +^9.62^^ +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"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) +^1130580001.111^3^3^3110412^^ +"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 +"DATA",1130580001.101,22,0) +TEST M0028A^107^106^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,22,1) +Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,4) +PQRI-28 +"DATA",1130580001.101,22,5) +Preventive care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,6,0) +^1130580001.111^4^4^3110427^^^^ +"DATA",1130580001.101,22,6,1,0) +Percentage of patients aged 18 years of older who were screene +"DATA",1130580001.101,22,6,2,0) +d about tobacco use at least once during the two year measurement period +"DATA",1130580001.101,22,6,3,0) +AND who received smoking cessation counseling if identified as a tobacco +"DATA",1130580001.101,22,6,4,0) +user +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^53^135 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^54^94 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^55^56 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^57^58 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^59^60 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^61^62 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^63^64 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^65^66 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^67^68 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^44^43 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^69^45 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^70^71 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^72^73 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^74^75 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^76^77 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376 +"DATA",1130580001.101,38,0) +12 +"DATA",1130580001.101,39,0) +MU EP NQF 0421^156^152 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421 +"DATA",1130580001.101,40,0) +MU EP NQF 0013^99^40 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013 +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^102^100 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A +"DATA",1130580001.101,42,0) +MU EP NQF 0041^144^132 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041 +"DATA",1130580001.101,43,0) +MU EP NQF 0024^42^41 +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. +"DATA",1130580001.101,43,7) +NQF0024 +"DATA",1130580001.101,44,0) +MU EP NQF 0038 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038 +"DATA",1130580001.101,45,0) +MU EP NQF 0059^146^145 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059 +"DATA",1130580001.101,46,0) +MU EP NQF 0064^139^145 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064 +"DATA",1130580001.101,47,0) +MU EP NQF 0061^147^145 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061 +"DATA",1130580001.101,48,0) +MU EP NQF 0081 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081 +"DATA",1130580001.101,49,0) +MU EP NQF 0070 +"DATA",1130580001.101,49,1) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,5) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients 65 years of age and older who have ever +"DATA",1130580001.101,49,6,2,0) +received a pneumococcal vaccine. +"DATA",1130580001.101,49,7) +NQF0070 +"DATA",1130580001.101,50,0) +MU EP NQF 0031 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031 +"DATA",1130580001.101,51,0) +MU EP NQF 0034 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034 +"DATA",1130580001.101,52,0) +MU EP NQF 0067 +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067 +"DATA",1130580001.101,53,0) +MU EP NQF 0083 +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083 +"DATA",1130580001.101,54,0) +MU EP NQF 0105 +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105 +"DATA",1130580001.101,55,0) +MU EP NQF 0086 +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086 +"DATA",1130580001.101,56,0) +MU EP NQF 0088 +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088 +"DATA",1130580001.101,57,0) +MU EP NQF 0089 +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089 +"DATA",1130580001.101,58,0) +MU EP NQF 0047 +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047 +"DATA",1130580001.101,59,0) +MU EP NQF 0001 +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001 +"DATA",1130580001.101,60,0) +MU EP NQF 0002 +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002 +"DATA",1130580001.101,61,0) +MU EP NQF 0385 +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385 +"DATA",1130580001.101,62,0) +MU EP NQF 0389 +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389 +"DATA",1130580001.101,63,0) +MU EP NQF 0027 +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027 +"DATA",1130580001.101,64,0) +MU EP NQF 0055 +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055 +"DATA",1130580001.101,65,0) +MU EP NQF 0062 +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062 +"DATA",1130580001.101,66,0) +MU EP NQF 0056 +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056 +"DATA",1130580001.101,67,0) +MU EP NQF 0074 +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074 +"DATA",1130580001.101,68,0) +MU EP NQF 0084 +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084 +"DATA",1130580001.101,69,0) +MU EP NQF 0073 +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073 +"DATA",1130580001.101,70,0) +MU EP NQF 0068 +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068 +"DATA",1130580001.101,71,0) +MU EP NQF 0004 +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004 +"DATA",1130580001.101,72,0) +MU EP NQF 0012 +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012 +"DATA",1130580001.101,73,0) +MU EP NQF 0014 +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014 +"DATA",1130580001.101,74,0) +MU EP NQF 0018 +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018 +"DATA",1130580001.101,75,0) +MU EP NQF 0032 +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032 +"DATA",1130580001.101,76,0) +MU EP NQF 0033 +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033 +"DATA",1130580001.101,77,0) +MU EP NQF 0036 +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036 +"DATA",1130580001.101,78,0) +MU EP NQF 0052 +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052 +"DATA",1130580001.101,79,0) +MU EP NQF 0075 +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075 +"DATA",1130580001.101,80,0) +MU EP NQF 0575 +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575 +"DATA",1130580001.101,81,0) +MU EP NQF 0028B^104^103 +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B +"DATA",1130580001.101,82,0) +MU EP 0028B +"DATA",1130580001.101,83,0) +NQF0038 NUM1 DPT^115^109 +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT +"DATA",1130580001.101,84,0) +NQF0038 NUM2 IPV^123^109 +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV +"DATA",1130580001.101,85,0) +NQF0038 NUM3 MMR^114^109 +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR +"DATA",1130580001.101,86,0) +NQF0038 NUM4 HiB^116^109 +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB +"DATA",1130580001.101,87,0) +NQF0038 NUM5 HEP B^117^109 +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,88,0) +NQF0038 NUM6 VZV^118^109 +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV +"DATA",1130580001.101,89,0) +NQF0038 NUM7 PCV^119^109 +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV +"DATA",1130580001.101,90,0) +NQF0038 NUM8 HEP A^120^109 +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,91,0) +NQF0038 NUM9^121^109 +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9 +"DATA",1130580001.101,92,0) +NQF0038 NUM10^122^109 +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10 +"DATA",1130580001.101,93,0) +NQF0038 NUM11 COMBO5^124^109 +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,94,0) +NQF0038 NUM12 COMBO6^125^109 +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.201,1,0) +SAMPLE MEASURE SET +"DATA",1130580001.201,1,4) +^^3100101^3101231 +"DATA",1130580001.201,1,5,0) +^1130580001.2011P^618^21 +"DATA",1130580001.201,1,5,10,0) +15 +"DATA",1130580001.201,1,5,10,2) +0 +"DATA",1130580001.201,1,5,599,0) +3 +"DATA",1130580001.201,1,5,599,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,599,1,1,0) +100884 +"DATA",1130580001.201,1,5,599,1,2,0) +100885 +"DATA",1130580001.201,1,5,599,1,3,0) +100886 +"DATA",1130580001.201,1,5,599,1,4,0) +100887 +"DATA",1130580001.201,1,5,599,1,5,0) +100888 +"DATA",1130580001.201,1,5,599,1,6,0) +100848 +"DATA",1130580001.201,1,5,599,1,7,0) +100904 +"DATA",1130580001.201,1,5,599,1,8,0) +100905 +"DATA",1130580001.201,1,5,599,1,9,0) +100906 +"DATA",1130580001.201,1,5,599,1,10,0) +100907 +"DATA",1130580001.201,1,5,599,2) +10 +"DATA",1130580001.201,1,5,599,3,0) +^1130580001.20112P^45^45 +"DATA",1130580001.201,1,5,599,3,1,0) +100095 +"DATA",1130580001.201,1,5,599,3,2,0) +100839 +"DATA",1130580001.201,1,5,599,3,3,0) +100878 +"DATA",1130580001.201,1,5,599,3,4,0) +100879 +"DATA",1130580001.201,1,5,599,3,5,0) +100880 +"DATA",1130580001.201,1,5,599,3,6,0) +100881 +"DATA",1130580001.201,1,5,599,3,7,0) +100882 +"DATA",1130580001.201,1,5,599,3,8,0) +100894 +"DATA",1130580001.201,1,5,599,3,9,0) +100895 +"DATA",1130580001.201,1,5,599,3,10,0) +100896 +"DATA",1130580001.201,1,5,599,3,11,0) +100897 +"DATA",1130580001.201,1,5,599,3,12,0) +100898 +"DATA",1130580001.201,1,5,599,3,13,0) +100899 +"DATA",1130580001.201,1,5,599,3,14,0) +100900 +"DATA",1130580001.201,1,5,599,3,15,0) +100901 +"DATA",1130580001.201,1,5,599,3,16,0) +100902 +"DATA",1130580001.201,1,5,599,3,17,0) +100903 +"DATA",1130580001.201,1,5,599,3,18,0) +100884 +"DATA",1130580001.201,1,5,599,3,19,0) +100885 +"DATA",1130580001.201,1,5,599,3,20,0) +100886 +"DATA",1130580001.201,1,5,599,3,21,0) +100887 +"DATA",1130580001.201,1,5,599,3,22,0) +100888 +"DATA",1130580001.201,1,5,599,3,23,0) +100338 +"DATA",1130580001.201,1,5,599,3,24,0) +100848 +"DATA",1130580001.201,1,5,599,3,25,0) +100845 +"DATA",1130580001.201,1,5,599,3,26,0) +100850 +"DATA",1130580001.201,1,5,599,3,27,0) +100855 +"DATA",1130580001.201,1,5,599,3,28,0) +100929 +"DATA",1130580001.201,1,5,599,3,29,0) +100930 +"DATA",1130580001.201,1,5,599,3,30,0) +100931 +"DATA",1130580001.201,1,5,599,3,31,0) +100932 +"DATA",1130580001.201,1,5,599,3,32,0) +100933 +"DATA",1130580001.201,1,5,599,3,33,0) +100914 +"DATA",1130580001.201,1,5,599,3,34,0) +100915 +"DATA",1130580001.201,1,5,599,3,35,0) +100917 +"DATA",1130580001.201,1,5,599,3,36,0) +100904 +"DATA",1130580001.201,1,5,599,3,37,0) +100905 +"DATA",1130580001.201,1,5,599,3,38,0) +100906 +"DATA",1130580001.201,1,5,599,3,39,0) +100907 +"DATA",1130580001.201,1,5,599,3,40,0) +100913 +"DATA",1130580001.201,1,5,599,3,41,0) +100859 +"DATA",1130580001.201,1,5,599,3,42,0) +100860 +"DATA",1130580001.201,1,5,599,3,43,0) +100862 +"DATA",1130580001.201,1,5,599,3,44,0) +100861 +"DATA",1130580001.201,1,5,599,3,45,0) +100863 +"DATA",1130580001.201,1,5,599,4) +45^^ +"DATA",1130580001.201,1,5,600,0) +4 +"DATA",1130580001.201,1,5,600,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,1,5,600,1,1,0) +100095 +"DATA",1130580001.201,1,5,600,1,2,0) +100696 +"DATA",1130580001.201,1,5,600,1,3,0) +100622 +"DATA",1130580001.201,1,5,600,1,4,0) +100662 +"DATA",1130580001.201,1,5,600,1,5,0) +100661 +"DATA",1130580001.201,1,5,600,1,6,0) +100499 +"DATA",1130580001.201,1,5,600,1,7,0) +100506 +"DATA",1130580001.201,1,5,600,1,8,0) +100647 +"DATA",1130580001.201,1,5,600,1,9,0) +100648 +"DATA",1130580001.201,1,5,600,1,10,0) +100649 +"DATA",1130580001.201,1,5,600,1,11,0) +100839 +"DATA",1130580001.201,1,5,600,1,12,0) +100942 +"DATA",1130580001.201,1,5,600,1,13,0) +100943 +"DATA",1130580001.201,1,5,600,1,14,0) +100935 +"DATA",1130580001.201,1,5,600,1,15,0) +100941 +"DATA",1130580001.201,1,5,600,1,16,0) +100878 +"DATA",1130580001.201,1,5,600,1,17,0) +100879 +"DATA",1130580001.201,1,5,600,1,18,0) +100880 +"DATA",1130580001.201,1,5,600,1,19,0) +100881 +"DATA",1130580001.201,1,5,600,1,20,0) +100882 +"DATA",1130580001.201,1,5,600,1,21,0) +100874 +"DATA",1130580001.201,1,5,600,1,22,0) +100875 +"DATA",1130580001.201,1,5,600,1,23,0) +100876 +"DATA",1130580001.201,1,5,600,1,24,0) +100883 +"DATA",1130580001.201,1,5,600,1,25,0) +100894 +"DATA",1130580001.201,1,5,600,1,26,0) +100895 +"DATA",1130580001.201,1,5,600,1,27,0) +100896 +"DATA",1130580001.201,1,5,600,1,28,0) +100897 +"DATA",1130580001.201,1,5,600,1,29,0) +100898 +"DATA",1130580001.201,1,5,600,1,30,0) +100899 +"DATA",1130580001.201,1,5,600,1,31,0) +100900 +"DATA",1130580001.201,1,5,600,1,32,0) +100901 +"DATA",1130580001.201,1,5,600,1,33,0) +100902 +"DATA",1130580001.201,1,5,600,1,34,0) +100903 +"DATA",1130580001.201,1,5,600,1,35,0) +100884 +"DATA",1130580001.201,1,5,600,1,36,0) +100885 +"DATA",1130580001.201,1,5,600,1,37,0) +100886 +"DATA",1130580001.201,1,5,600,1,38,0) +100887 +"DATA",1130580001.201,1,5,600,1,39,0) +100888 +"DATA",1130580001.201,1,5,600,1,40,0) +100889 +"DATA",1130580001.201,1,5,600,1,41,0) +100890 +"DATA",1130580001.201,1,5,600,1,42,0) +100891 +"DATA",1130580001.201,1,5,600,1,43,0) +100338 +"DATA",1130580001.201,1,5,600,1,44,0) +100848 +"DATA",1130580001.201,1,5,600,1,45,0) +100845 +"DATA",1130580001.201,1,5,600,1,46,0) +100850 +"DATA",1130580001.201,1,5,600,1,47,0) +100855 +"DATA",1130580001.201,1,5,600,1,48,0) +100846 +"DATA",1130580001.201,1,5,600,1,49,0) +100847 +"DATA",1130580001.201,1,5,600,1,50,0) +100849 +"DATA",1130580001.201,1,5,600,1,51,0) +100858 +"DATA",1130580001.201,1,5,600,1,52,0) +100852 +"DATA",1130580001.201,1,5,600,1,53,0) +100929 +"DATA",1130580001.201,1,5,600,1,54,0) +100930 +"DATA",1130580001.201,1,5,600,1,55,0) +100931 +"DATA",1130580001.201,1,5,600,1,56,0) +100932 +"DATA",1130580001.201,1,5,600,1,57,0) +100933 +"DATA",1130580001.201,1,5,600,1,58,0) +100914 +"DATA",1130580001.201,1,5,600,1,59,0) +100915 +"DATA",1130580001.201,1,5,600,1,60,0) +100917 +"DATA",1130580001.201,1,5,600,1,61,0) +100923 +"DATA",1130580001.201,1,5,600,1,62,0) +100904 +"DATA",1130580001.201,1,5,600,1,63,0) +100905 +"DATA",1130580001.201,1,5,600,1,64,0) +100906 +"DATA",1130580001.201,1,5,600,1,65,0) +100907 +"DATA",1130580001.201,1,5,600,1,66,0) +100909 +"DATA",1130580001.201,1,5,600,1,67,0) +100913 +"DATA",1130580001.201,1,5,600,1,68,0) +100859 +"DATA",1130580001.201,1,5,600,1,69,0) +100860 +"DATA",1130580001.201,1,5,600,1,70,0) +100862 +"DATA",1130580001.201,1,5,600,1,71,0) +100861 +"DATA",1130580001.201,1,5,600,1,72,0) +100863 +"DATA",1130580001.201,1,5,600,1,73,0) +100851 +"DATA",1130580001.201,1,5,600,1,74,0) +100853 +"DATA",1130580001.201,1,5,600,1,75,0) +100856 +"DATA",1130580001.201,1,5,600,1,76,0) +100146 +"DATA",1130580001.201,1,5,600,1,77,0) +100857 +"DATA",1130580001.201,1,5,600,1,78,0) +100955 +"DATA",1130580001.201,1,5,600,1,79,0) +100616 +"DATA",1130580001.201,1,5,600,1,80,0) +100146 +"DATA",1130580001.201,1,5,600,1,81,0) +100499 +"DATA",1130580001.201,1,5,600,1,82,0) +100506 +"DATA",1130580001.201,1,5,600,1,83,0) +774 +"DATA",1130580001.201,1,5,600,1,84,0) +774 +"DATA",1130580001.201,1,5,600,1,85,0) +100667 +"DATA",1130580001.201,1,5,600,1,86,0) +100676 +"DATA",1130580001.201,1,5,600,1,87,0) +100951 +"DATA",1130580001.201,1,5,600,1,88,0) +100952 +"DATA",1130580001.201,1,5,600,1,89,0) +100953 +"DATA",1130580001.201,1,5,600,1,90,0) +100954 +"DATA",1130580001.201,1,5,600,1,91,0) +100934 +"DATA",1130580001.201,1,5,600,1,92,0) +100937 +"DATA",1130580001.201,1,5,600,1,93,0) +100947 +"DATA",1130580001.201,1,5,600,1,94,0) +100948 +"DATA",1130580001.201,1,5,600,1,95,0) +100949 +"DATA",1130580001.201,1,5,600,1,96,0) +249 +"DATA",1130580001.201,1,5,600,2) +96 +"DATA",1130580001.201,1,5,600,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,1,5,600,3,1,0) +100095 +"DATA",1130580001.201,1,5,600,3,2,0) +100696 +"DATA",1130580001.201,1,5,600,3,3,0) +100622 +"DATA",1130580001.201,1,5,600,3,4,0) +100662 +"DATA",1130580001.201,1,5,600,3,5,0) +100661 +"DATA",1130580001.201,1,5,600,3,6,0) +100499 +"DATA",1130580001.201,1,5,600,3,7,0) +100506 +"DATA",1130580001.201,1,5,600,3,8,0) +100647 +"DATA",1130580001.201,1,5,600,3,9,0) +100648 +"DATA",1130580001.201,1,5,600,3,10,0) +100649 +"DATA",1130580001.201,1,5,600,3,11,0) +100839 +"DATA",1130580001.201,1,5,600,3,12,0) +100942 +"DATA",1130580001.201,1,5,600,3,13,0) +100943 +"DATA",1130580001.201,1,5,600,3,14,0) +100935 +"DATA",1130580001.201,1,5,600,3,15,0) +100941 +"DATA",1130580001.201,1,5,600,3,16,0) +100878 +"DATA",1130580001.201,1,5,600,3,17,0) +100879 +"DATA",1130580001.201,1,5,600,3,18,0) +100880 +"DATA",1130580001.201,1,5,600,3,19,0) +100881 +"DATA",1130580001.201,1,5,600,3,20,0) +100882 +"DATA",1130580001.201,1,5,600,3,21,0) +100874 +"DATA",1130580001.201,1,5,600,3,22,0) +100875 +"DATA",1130580001.201,1,5,600,3,23,0) +100876 +"DATA",1130580001.201,1,5,600,3,24,0) +100883 +"DATA",1130580001.201,1,5,600,3,25,0) +100894 +"DATA",1130580001.201,1,5,600,3,26,0) +100895 +"DATA",1130580001.201,1,5,600,3,27,0) +100896 +"DATA",1130580001.201,1,5,600,3,28,0) +100897 +"DATA",1130580001.201,1,5,600,3,29,0) +100898 +"DATA",1130580001.201,1,5,600,3,30,0) +100899 +"DATA",1130580001.201,1,5,600,3,31,0) +100900 +"DATA",1130580001.201,1,5,600,3,32,0) +100901 +"DATA",1130580001.201,1,5,600,3,33,0) +100902 +"DATA",1130580001.201,1,5,600,3,34,0) +100903 +"DATA",1130580001.201,1,5,600,3,35,0) +100884 +"DATA",1130580001.201,1,5,600,3,36,0) +100885 +"DATA",1130580001.201,1,5,600,3,37,0) +100886 +"DATA",1130580001.201,1,5,600,3,38,0) +100887 +"DATA",1130580001.201,1,5,600,3,39,0) +100888 +"DATA",1130580001.201,1,5,600,3,40,0) +100889 +"DATA",1130580001.201,1,5,600,3,41,0) +100890 +"DATA",1130580001.201,1,5,600,3,42,0) +100891 +"DATA",1130580001.201,1,5,600,3,43,0) +100338 +"DATA",1130580001.201,1,5,600,3,44,0) +100848 +"DATA",1130580001.201,1,5,600,3,45,0) +100845 +"DATA",1130580001.201,1,5,600,3,46,0) +100850 +"DATA",1130580001.201,1,5,600,3,47,0) +100855 +"DATA",1130580001.201,1,5,600,3,48,0) +100846 +"DATA",1130580001.201,1,5,600,3,49,0) +100847 +"DATA",1130580001.201,1,5,600,3,50,0) +100849 +"DATA",1130580001.201,1,5,600,3,51,0) +100858 +"DATA",1130580001.201,1,5,600,3,52,0) +100852 +"DATA",1130580001.201,1,5,600,3,53,0) +100929 +"DATA",1130580001.201,1,5,600,3,54,0) +100930 +"DATA",1130580001.201,1,5,600,3,55,0) +100931 +"DATA",1130580001.201,1,5,600,3,56,0) +100932 +"DATA",1130580001.201,1,5,600,3,57,0) +100933 +"DATA",1130580001.201,1,5,600,3,58,0) +100914 +"DATA",1130580001.201,1,5,600,3,59,0) +100915 +"DATA",1130580001.201,1,5,600,3,60,0) +100917 +"DATA",1130580001.201,1,5,600,3,61,0) +100923 +"DATA",1130580001.201,1,5,600,3,62,0) +100904 +"DATA",1130580001.201,1,5,600,3,63,0) +100905 +"DATA",1130580001.201,1,5,600,3,64,0) +100906 +"DATA",1130580001.201,1,5,600,3,65,0) +100907 +"DATA",1130580001.201,1,5,600,3,66,0) +100909 +"DATA",1130580001.201,1,5,600,3,67,0) +100913 +"DATA",1130580001.201,1,5,600,3,68,0) +100859 +"DATA",1130580001.201,1,5,600,3,69,0) +100860 +"DATA",1130580001.201,1,5,600,3,70,0) +100862 +"DATA",1130580001.201,1,5,600,3,71,0) +100861 +"DATA",1130580001.201,1,5,600,3,72,0) +100863 +"DATA",1130580001.201,1,5,600,3,73,0) +100851 +"DATA",1130580001.201,1,5,600,3,74,0) +100853 +"DATA",1130580001.201,1,5,600,3,75,0) +100856 +"DATA",1130580001.201,1,5,600,3,76,0) +100146 +"DATA",1130580001.201,1,5,600,3,77,0) +100857 +"DATA",1130580001.201,1,5,600,3,78,0) +100955 +"DATA",1130580001.201,1,5,600,3,79,0) +100616 +"DATA",1130580001.201,1,5,600,3,80,0) +100146 +"DATA",1130580001.201,1,5,600,3,81,0) +100499 +"DATA",1130580001.201,1,5,600,3,82,0) +100506 +"DATA",1130580001.201,1,5,600,3,83,0) +774 +"DATA",1130580001.201,1,5,600,3,84,0) +774 +"DATA",1130580001.201,1,5,600,3,85,0) +100667 +"DATA",1130580001.201,1,5,600,3,86,0) +100676 +"DATA",1130580001.201,1,5,600,3,87,0) +100951 +"DATA",1130580001.201,1,5,600,3,88,0) +100952 +"DATA",1130580001.201,1,5,600,3,89,0) +100953 +"DATA",1130580001.201,1,5,600,3,90,0) +100954 +"DATA",1130580001.201,1,5,600,3,91,0) +100934 +"DATA",1130580001.201,1,5,600,3,92,0) +100937 +"DATA",1130580001.201,1,5,600,3,93,0) +100947 +"DATA",1130580001.201,1,5,600,3,94,0) +100948 +"DATA",1130580001.201,1,5,600,3,95,0) +100949 +"DATA",1130580001.201,1,5,600,3,96,0) +249 +"DATA",1130580001.201,1,5,600,4) +96^^ +"DATA",1130580001.201,1,5,601,0) +5 +"DATA",1130580001.201,1,5,601,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,601,1,1,0) +100696 +"DATA",1130580001.201,1,5,601,1,2,0) +100622 +"DATA",1130580001.201,1,5,601,1,3,0) +100662 +"DATA",1130580001.201,1,5,601,1,4,0) +100661 +"DATA",1130580001.201,1,5,601,1,5,0) +100649 +"DATA",1130580001.201,1,5,601,1,6,0) +100338 +"DATA",1130580001.201,1,5,601,1,7,0) +100848 +"DATA",1130580001.201,1,5,601,1,8,0) +100845 +"DATA",1130580001.201,1,5,601,1,9,0) +100146 +"DATA",1130580001.201,1,5,601,1,10,0) +100616 +"DATA",1130580001.201,1,5,601,1,11,0) +100667 +"DATA",1130580001.201,1,5,601,1,12,0) +100676 +"DATA",1130580001.201,1,5,601,2) +12 +"DATA",1130580001.201,1,5,601,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,1,5,601,3,1,0) +100095 +"DATA",1130580001.201,1,5,601,3,2,0) +100696 +"DATA",1130580001.201,1,5,601,3,3,0) +100622 +"DATA",1130580001.201,1,5,601,3,4,0) +100662 +"DATA",1130580001.201,1,5,601,3,5,0) +100661 +"DATA",1130580001.201,1,5,601,3,6,0) +100499 +"DATA",1130580001.201,1,5,601,3,7,0) +100506 +"DATA",1130580001.201,1,5,601,3,8,0) +100647 +"DATA",1130580001.201,1,5,601,3,9,0) +100648 +"DATA",1130580001.201,1,5,601,3,10,0) +100649 +"DATA",1130580001.201,1,5,601,3,11,0) +100839 +"DATA",1130580001.201,1,5,601,3,12,0) +100878 +"DATA",1130580001.201,1,5,601,3,13,0) +100879 +"DATA",1130580001.201,1,5,601,3,14,0) +100894 +"DATA",1130580001.201,1,5,601,3,15,0) +100887 +"DATA",1130580001.201,1,5,601,3,16,0) +100888 +"DATA",1130580001.201,1,5,601,3,17,0) +100338 +"DATA",1130580001.201,1,5,601,3,18,0) +100848 +"DATA",1130580001.201,1,5,601,3,19,0) +100845 +"DATA",1130580001.201,1,5,601,3,20,0) +100850 +"DATA",1130580001.201,1,5,601,3,21,0) +100855 +"DATA",1130580001.201,1,5,601,3,22,0) +100846 +"DATA",1130580001.201,1,5,601,3,23,0) +100847 +"DATA",1130580001.201,1,5,601,3,24,0) +100849 +"DATA",1130580001.201,1,5,601,3,25,0) +100858 +"DATA",1130580001.201,1,5,601,3,26,0) +100852 +"DATA",1130580001.201,1,5,601,3,27,0) +100929 +"DATA",1130580001.201,1,5,601,3,28,0) +100923 +"DATA",1130580001.201,1,5,601,3,29,0) +100904 +"DATA",1130580001.201,1,5,601,3,30,0) +100905 +"DATA",1130580001.201,1,5,601,3,31,0) +100907 +"DATA",1130580001.201,1,5,601,3,32,0) +100913 +"DATA",1130580001.201,1,5,601,3,33,0) +100859 +"DATA",1130580001.201,1,5,601,3,34,0) +100860 +"DATA",1130580001.201,1,5,601,3,35,0) +100862 +"DATA",1130580001.201,1,5,601,3,36,0) +100861 +"DATA",1130580001.201,1,5,601,3,37,0) +100863 +"DATA",1130580001.201,1,5,601,3,38,0) +100851 +"DATA",1130580001.201,1,5,601,3,39,0) +100853 +"DATA",1130580001.201,1,5,601,3,40,0) +100856 +"DATA",1130580001.201,1,5,601,3,41,0) +100146 +"DATA",1130580001.201,1,5,601,3,42,0) +100857 +"DATA",1130580001.201,1,5,601,3,43,0) +100616 +"DATA",1130580001.201,1,5,601,3,44,0) +774 +"DATA",1130580001.201,1,5,601,3,45,0) +100667 +"DATA",1130580001.201,1,5,601,3,46,0) +100676 +"DATA",1130580001.201,1,5,601,3,47,0) +249 +"DATA",1130580001.201,1,5,601,4) +47^^ +"DATA",1130580001.201,1,5,602,0) +6 +"DATA",1130580001.201,1,5,602,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,602,1,1,0) +100647 +"DATA",1130580001.201,1,5,602,1,2,0) +100894 +"DATA",1130580001.201,1,5,602,1,3,0) +100900 +"DATA",1130580001.201,1,5,602,1,4,0) +100901 +"DATA",1130580001.201,1,5,602,1,5,0) +100902 +"DATA",1130580001.201,1,5,602,1,6,0) +100903 +"DATA",1130580001.201,1,5,602,1,7,0) +100885 +"DATA",1130580001.201,1,5,602,1,8,0) +100887 +"DATA",1130580001.201,1,5,602,1,9,0) +100890 +"DATA",1130580001.201,1,5,602,1,10,0) +100891 +"DATA",1130580001.201,1,5,602,2) +10 +"DATA",1130580001.201,1,5,602,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,1,5,602,3,1,0) +100696 +"DATA",1130580001.201,1,5,602,3,2,0) +100622 +"DATA",1130580001.201,1,5,602,3,3,0) +100662 +"DATA",1130580001.201,1,5,602,3,4,0) +100661 +"DATA",1130580001.201,1,5,602,3,5,0) +100499 +"DATA",1130580001.201,1,5,602,3,6,0) +100506 +"DATA",1130580001.201,1,5,602,3,7,0) +100647 +"DATA",1130580001.201,1,5,602,3,8,0) +100648 +"DATA",1130580001.201,1,5,602,3,9,0) +100649 +"DATA",1130580001.201,1,5,602,3,10,0) +100839 +"DATA",1130580001.201,1,5,602,3,11,0) +100894 +"DATA",1130580001.201,1,5,602,3,12,0) +100895 +"DATA",1130580001.201,1,5,602,3,13,0) +100896 +"DATA",1130580001.201,1,5,602,3,14,0) +100897 +"DATA",1130580001.201,1,5,602,3,15,0) +100898 +"DATA",1130580001.201,1,5,602,3,16,0) +100899 +"DATA",1130580001.201,1,5,602,3,17,0) +100900 +"DATA",1130580001.201,1,5,602,3,18,0) +100901 +"DATA",1130580001.201,1,5,602,3,19,0) +100902 +"DATA",1130580001.201,1,5,602,3,20,0) +100903 +"DATA",1130580001.201,1,5,602,3,21,0) +100885 +"DATA",1130580001.201,1,5,602,3,22,0) +100887 +"DATA",1130580001.201,1,5,602,3,23,0) +100888 +"DATA",1130580001.201,1,5,602,3,24,0) +100889 +"DATA",1130580001.201,1,5,602,3,25,0) +100890 +"DATA",1130580001.201,1,5,602,3,26,0) +100891 +"DATA",1130580001.201,1,5,602,3,27,0) +100929 +"DATA",1130580001.201,1,5,602,3,28,0) +100930 +"DATA",1130580001.201,1,5,602,3,29,0) +100931 +"DATA",1130580001.201,1,5,602,3,30,0) +100932 +"DATA",1130580001.201,1,5,602,3,31,0) +100933 +"DATA",1130580001.201,1,5,602,3,32,0) +100616 +"DATA",1130580001.201,1,5,602,3,33,0) +774 +"DATA",1130580001.201,1,5,602,3,34,0) +100667 +"DATA",1130580001.201,1,5,602,3,35,0) +100676 +"DATA",1130580001.201,1,5,602,3,36,0) +249 +"DATA",1130580001.201,1,5,602,4) +36^^ +"DATA",1130580001.201,1,5,603,0) +7 +"DATA",1130580001.201,1,5,603,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,603,1,1,0) +100894 +"DATA",1130580001.201,1,5,603,1,2,0) +100895 +"DATA",1130580001.201,1,5,603,1,3,0) +100896 +"DATA",1130580001.201,1,5,603,1,4,0) +100897 +"DATA",1130580001.201,1,5,603,1,5,0) +100898 +"DATA",1130580001.201,1,5,603,1,6,0) +100899 +"DATA",1130580001.201,1,5,603,1,7,0) +100900 +"DATA",1130580001.201,1,5,603,1,8,0) +100901 +"DATA",1130580001.201,1,5,603,1,9,0) +100902 +"DATA",1130580001.201,1,5,603,2) +9 +"DATA",1130580001.201,1,5,603,3,0) +^1130580001.20112P^14^14 +"DATA",1130580001.201,1,5,603,3,1,0) +100499 +"DATA",1130580001.201,1,5,603,3,2,0) +100839 +"DATA",1130580001.201,1,5,603,3,3,0) +100894 +"DATA",1130580001.201,1,5,603,3,4,0) +100895 +"DATA",1130580001.201,1,5,603,3,5,0) +100896 +"DATA",1130580001.201,1,5,603,3,6,0) +100897 +"DATA",1130580001.201,1,5,603,3,7,0) +100898 +"DATA",1130580001.201,1,5,603,3,8,0) +100899 +"DATA",1130580001.201,1,5,603,3,9,0) +100900 +"DATA",1130580001.201,1,5,603,3,10,0) +100901 +"DATA",1130580001.201,1,5,603,3,11,0) +100902 +"DATA",1130580001.201,1,5,603,3,12,0) +100888 +"DATA",1130580001.201,1,5,603,3,13,0) +100929 +"DATA",1130580001.201,1,5,603,3,14,0) +100930 +"DATA",1130580001.201,1,5,603,4) +14^^ +"DATA",1130580001.201,1,5,604,0) +2 +"DATA",1130580001.201,1,5,604,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,604,1,1,0) +100647 +"DATA",1130580001.201,1,5,604,1,2,0) +100878 +"DATA",1130580001.201,1,5,604,1,3,0) +100879 +"DATA",1130580001.201,1,5,604,1,4,0) +100880 +"DATA",1130580001.201,1,5,604,1,5,0) +100881 +"DATA",1130580001.201,1,5,604,1,6,0) +100883 +"DATA",1130580001.201,1,5,604,1,7,0) +100899 +"DATA",1130580001.201,1,5,604,1,8,0) +100900 +"DATA",1130580001.201,1,5,604,1,9,0) +100901 +"DATA",1130580001.201,1,5,604,1,10,0) +100902 +"DATA",1130580001.201,1,5,604,2) +10 +"DATA",1130580001.201,1,5,604,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,1,5,604,3,1,0) +100647 +"DATA",1130580001.201,1,5,604,3,2,0) +100878 +"DATA",1130580001.201,1,5,604,3,3,0) +100879 +"DATA",1130580001.201,1,5,604,3,4,0) +100880 +"DATA",1130580001.201,1,5,604,3,5,0) +100881 +"DATA",1130580001.201,1,5,604,3,6,0) +100883 +"DATA",1130580001.201,1,5,604,3,7,0) +100899 +"DATA",1130580001.201,1,5,604,3,8,0) +100900 +"DATA",1130580001.201,1,5,604,3,9,0) +100901 +"DATA",1130580001.201,1,5,604,3,10,0) +100902 +"DATA",1130580001.201,1,5,604,4) +10^^ +"DATA",1130580001.201,1,5,605,0) +8 +"DATA",1130580001.201,1,5,605,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,605,1,1,0) +100839 +"DATA",1130580001.201,1,5,605,1,2,0) +100338 +"DATA",1130580001.201,1,5,605,1,3,0) +100848 +"DATA",1130580001.201,1,5,605,1,4,0) +100845 +"DATA",1130580001.201,1,5,605,1,5,0) +100850 +"DATA",1130580001.201,1,5,605,1,6,0) +100855 +"DATA",1130580001.201,1,5,605,1,7,0) +100846 +"DATA",1130580001.201,1,5,605,1,8,0) +100930 +"DATA",1130580001.201,1,5,605,1,9,0) +100146 +"DATA",1130580001.201,1,5,605,1,10,0) +100676 +"DATA",1130580001.201,1,5,605,2) +10 +"DATA",1130580001.201,1,5,605,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,605,3,1,0) +100696 +"DATA",1130580001.201,1,5,605,3,2,0) +100622 +"DATA",1130580001.201,1,5,605,3,3,0) +100661 +"DATA",1130580001.201,1,5,605,3,4,0) +100839 +"DATA",1130580001.201,1,5,605,3,5,0) +100338 +"DATA",1130580001.201,1,5,605,3,6,0) +100848 +"DATA",1130580001.201,1,5,605,3,7,0) +100845 +"DATA",1130580001.201,1,5,605,3,8,0) +100850 +"DATA",1130580001.201,1,5,605,3,9,0) +100855 +"DATA",1130580001.201,1,5,605,3,10,0) +100846 +"DATA",1130580001.201,1,5,605,3,11,0) +100847 +"DATA",1130580001.201,1,5,605,3,12,0) +100849 +"DATA",1130580001.201,1,5,605,3,13,0) +100858 +"DATA",1130580001.201,1,5,605,3,14,0) +100852 +"DATA",1130580001.201,1,5,605,3,15,0) +100930 +"DATA",1130580001.201,1,5,605,3,16,0) +100146 +"DATA",1130580001.201,1,5,605,3,17,0) +100676 +"DATA",1130580001.201,1,5,605,4) +17^^ +"DATA",1130580001.201,1,5,606,0) +9 +"DATA",1130580001.201,1,5,606,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,606,1,1,0) +100696 +"DATA",1130580001.201,1,5,606,1,2,0) +100622 +"DATA",1130580001.201,1,5,606,1,3,0) +100338 +"DATA",1130580001.201,1,5,606,1,4,0) +100848 +"DATA",1130580001.201,1,5,606,1,5,0) +100845 +"DATA",1130580001.201,1,5,606,1,6,0) +100855 +"DATA",1130580001.201,1,5,606,1,7,0) +100846 +"DATA",1130580001.201,1,5,606,2) +7 +"DATA",1130580001.201,1,5,606,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,606,3,1,0) +100696 +"DATA",1130580001.201,1,5,606,3,2,0) +100622 +"DATA",1130580001.201,1,5,606,3,3,0) +100661 +"DATA",1130580001.201,1,5,606,3,4,0) +100839 +"DATA",1130580001.201,1,5,606,3,5,0) +100338 +"DATA",1130580001.201,1,5,606,3,6,0) +100848 +"DATA",1130580001.201,1,5,606,3,7,0) +100845 +"DATA",1130580001.201,1,5,606,3,8,0) +100850 +"DATA",1130580001.201,1,5,606,3,9,0) +100855 +"DATA",1130580001.201,1,5,606,3,10,0) +100846 +"DATA",1130580001.201,1,5,606,3,11,0) +100847 +"DATA",1130580001.201,1,5,606,3,12,0) +100849 +"DATA",1130580001.201,1,5,606,3,13,0) +100858 +"DATA",1130580001.201,1,5,606,3,14,0) +100852 +"DATA",1130580001.201,1,5,606,3,15,0) +100930 +"DATA",1130580001.201,1,5,606,3,16,0) +100146 +"DATA",1130580001.201,1,5,606,3,17,0) +100676 +"DATA",1130580001.201,1,5,606,4) +17^^ +"DATA",1130580001.201,1,5,607,0) +10 +"DATA",1130580001.201,1,5,607,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,607,1,1,0) +100839 +"DATA",1130580001.201,1,5,607,1,2,0) +100880 +"DATA",1130580001.201,1,5,607,1,3,0) +100881 +"DATA",1130580001.201,1,5,607,1,4,0) +100882 +"DATA",1130580001.201,1,5,607,1,5,0) +100874 +"DATA",1130580001.201,1,5,607,1,6,0) +100875 +"DATA",1130580001.201,1,5,607,1,7,0) +100899 +"DATA",1130580001.201,1,5,607,1,8,0) +100900 +"DATA",1130580001.201,1,5,607,1,9,0) +100901 +"DATA",1130580001.201,1,5,607,1,10,0) +100903 +"DATA",1130580001.201,1,5,607,2) +10 +"DATA",1130580001.201,1,5,607,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,607,3,1,0) +100839 +"DATA",1130580001.201,1,5,607,3,2,0) +100880 +"DATA",1130580001.201,1,5,607,3,3,0) +100881 +"DATA",1130580001.201,1,5,607,3,4,0) +100882 +"DATA",1130580001.201,1,5,607,3,5,0) +100874 +"DATA",1130580001.201,1,5,607,3,6,0) +100875 +"DATA",1130580001.201,1,5,607,3,7,0) +100899 +"DATA",1130580001.201,1,5,607,3,8,0) +100900 +"DATA",1130580001.201,1,5,607,3,9,0) +100901 +"DATA",1130580001.201,1,5,607,3,10,0) +100902 +"DATA",1130580001.201,1,5,607,3,11,0) +100903 +"DATA",1130580001.201,1,5,607,4) +11^^ +"DATA",1130580001.201,1,5,608,0) +16 +"DATA",1130580001.201,1,5,608,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,608,1,1,0) +100696 +"DATA",1130580001.201,1,5,608,1,2,0) +100622 +"DATA",1130580001.201,1,5,608,1,3,0) +100662 +"DATA",1130580001.201,1,5,608,1,4,0) +100661 +"DATA",1130580001.201,1,5,608,1,5,0) +100499 +"DATA",1130580001.201,1,5,608,1,6,0) +100647 +"DATA",1130580001.201,1,5,608,1,7,0) +100839 +"DATA",1130580001.201,1,5,608,1,8,0) +100888 +"DATA",1130580001.201,1,5,608,1,9,0) +100930 +"DATA",1130580001.201,1,5,608,2) +9 +"DATA",1130580001.201,1,5,608,3,0) +^1130580001.20112P^53^53 +"DATA",1130580001.201,1,5,608,3,1,0) +100095 +"DATA",1130580001.201,1,5,608,3,2,0) +100696 +"DATA",1130580001.201,1,5,608,3,3,0) +100622 +"DATA",1130580001.201,1,5,608,3,4,0) +100662 +"DATA",1130580001.201,1,5,608,3,5,0) +100661 +"DATA",1130580001.201,1,5,608,3,6,0) +100499 +"DATA",1130580001.201,1,5,608,3,7,0) +100506 +"DATA",1130580001.201,1,5,608,3,8,0) +100647 +"DATA",1130580001.201,1,5,608,3,9,0) +100648 +"DATA",1130580001.201,1,5,608,3,10,0) +100649 +"DATA",1130580001.201,1,5,608,3,11,0) +100839 +"DATA",1130580001.201,1,5,608,3,12,0) +100878 +"DATA",1130580001.201,1,5,608,3,13,0) +100879 +"DATA",1130580001.201,1,5,608,3,14,0) +100894 +"DATA",1130580001.201,1,5,608,3,15,0) +100887 +"DATA",1130580001.201,1,5,608,3,16,0) +100888 +"DATA",1130580001.201,1,5,608,3,17,0) +100338 +"DATA",1130580001.201,1,5,608,3,18,0) +100848 +"DATA",1130580001.201,1,5,608,3,19,0) +100845 +"DATA",1130580001.201,1,5,608,3,20,0) +100850 +"DATA",1130580001.201,1,5,608,3,21,0) +100855 +"DATA",1130580001.201,1,5,608,3,22,0) +100846 +"DATA",1130580001.201,1,5,608,3,23,0) +100847 +"DATA",1130580001.201,1,5,608,3,24,0) +100849 +"DATA",1130580001.201,1,5,608,3,25,0) +100858 +"DATA",1130580001.201,1,5,608,3,26,0) +100852 +"DATA",1130580001.201,1,5,608,3,27,0) +100929 +"DATA",1130580001.201,1,5,608,3,28,0) +100930 +"DATA",1130580001.201,1,5,608,3,29,0) +100931 +"DATA",1130580001.201,1,5,608,3,30,0) +100914 +"DATA",1130580001.201,1,5,608,3,31,0) +100915 +"DATA",1130580001.201,1,5,608,3,32,0) +100917 +"DATA",1130580001.201,1,5,608,3,33,0) +100923 +"DATA",1130580001.201,1,5,608,3,34,0) +100904 +"DATA",1130580001.201,1,5,608,3,35,0) +100905 +"DATA",1130580001.201,1,5,608,3,36,0) +100907 +"DATA",1130580001.201,1,5,608,3,37,0) +100913 +"DATA",1130580001.201,1,5,608,3,38,0) +100859 +"DATA",1130580001.201,1,5,608,3,39,0) +100860 +"DATA",1130580001.201,1,5,608,3,40,0) +100862 +"DATA",1130580001.201,1,5,608,3,41,0) +100861 +"DATA",1130580001.201,1,5,608,3,42,0) +100863 +"DATA",1130580001.201,1,5,608,3,43,0) +100851 +"DATA",1130580001.201,1,5,608,3,44,0) +100853 +"DATA",1130580001.201,1,5,608,3,45,0) +100856 +"DATA",1130580001.201,1,5,608,3,46,0) +100146 +"DATA",1130580001.201,1,5,608,3,47,0) +100857 +"DATA",1130580001.201,1,5,608,3,48,0) +100955 +"DATA",1130580001.201,1,5,608,3,49,0) +100616 +"DATA",1130580001.201,1,5,608,3,50,0) +774 +"DATA",1130580001.201,1,5,608,3,51,0) +100667 +"DATA",1130580001.201,1,5,608,3,52,0) +100676 +"DATA",1130580001.201,1,5,608,3,53,0) +249 +"DATA",1130580001.201,1,5,608,4) +53^^ +"DATA",1130580001.201,1,5,609,0) +14 +"DATA",1130580001.201,1,5,609,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,609,1,1,0) +100839 +"DATA",1130580001.201,1,5,609,1,2,0) +100894 +"DATA",1130580001.201,1,5,609,1,3,0) +100895 +"DATA",1130580001.201,1,5,609,1,4,0) +100896 +"DATA",1130580001.201,1,5,609,1,5,0) +100897 +"DATA",1130580001.201,1,5,609,1,6,0) +100898 +"DATA",1130580001.201,1,5,609,1,7,0) +100929 +"DATA",1130580001.201,1,5,609,1,8,0) +100930 +"DATA",1130580001.201,1,5,609,1,9,0) +100931 +"DATA",1130580001.201,1,5,609,1,10,0) +100932 +"DATA",1130580001.201,1,5,609,1,11,0) +100933 +"DATA",1130580001.201,1,5,609,2) +11 +"DATA",1130580001.201,1,5,609,3,0) +^1130580001.20112P^21^21 +"DATA",1130580001.201,1,5,609,3,1,0) +100499 +"DATA",1130580001.201,1,5,609,3,2,0) +100506 +"DATA",1130580001.201,1,5,609,3,3,0) +100839 +"DATA",1130580001.201,1,5,609,3,4,0) +100894 +"DATA",1130580001.201,1,5,609,3,5,0) +100895 +"DATA",1130580001.201,1,5,609,3,6,0) +100896 +"DATA",1130580001.201,1,5,609,3,7,0) +100897 +"DATA",1130580001.201,1,5,609,3,8,0) +100898 +"DATA",1130580001.201,1,5,609,3,9,0) +100899 +"DATA",1130580001.201,1,5,609,3,10,0) +100900 +"DATA",1130580001.201,1,5,609,3,11,0) +100901 +"DATA",1130580001.201,1,5,609,3,12,0) +100902 +"DATA",1130580001.201,1,5,609,3,13,0) +100903 +"DATA",1130580001.201,1,5,609,3,14,0) +100885 +"DATA",1130580001.201,1,5,609,3,15,0) +100887 +"DATA",1130580001.201,1,5,609,3,16,0) +100888 +"DATA",1130580001.201,1,5,609,3,17,0) +100929 +"DATA",1130580001.201,1,5,609,3,18,0) +100930 +"DATA",1130580001.201,1,5,609,3,19,0) +100931 +"DATA",1130580001.201,1,5,609,3,20,0) +100932 +"DATA",1130580001.201,1,5,609,3,21,0) +100933 +"DATA",1130580001.201,1,5,609,4) +21^^ +"DATA",1130580001.201,1,5,610,0) +1 +"DATA",1130580001.201,1,5,610,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,610,1,1,0) +100338 +"DATA",1130580001.201,1,5,610,1,2,0) +100848 +"DATA",1130580001.201,1,5,610,1,3,0) +100845 +"DATA",1130580001.201,1,5,610,1,4,0) +100855 +"DATA",1130580001.201,1,5,610,1,5,0) +100849 +"DATA",1130580001.201,1,5,610,1,6,0) +100930 +"DATA",1130580001.201,1,5,610,1,7,0) +100146 +"DATA",1130580001.201,1,5,610,2) +7 +"DATA",1130580001.201,1,5,610,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,610,3,1,0) +100696 +"DATA",1130580001.201,1,5,610,3,2,0) +100622 +"DATA",1130580001.201,1,5,610,3,3,0) +100661 +"DATA",1130580001.201,1,5,610,3,4,0) +100839 +"DATA",1130580001.201,1,5,610,3,5,0) +100338 +"DATA",1130580001.201,1,5,610,3,6,0) +100848 +"DATA",1130580001.201,1,5,610,3,7,0) +100845 +"DATA",1130580001.201,1,5,610,3,8,0) +100850 +"DATA",1130580001.201,1,5,610,3,9,0) +100855 +"DATA",1130580001.201,1,5,610,3,10,0) +100846 +"DATA",1130580001.201,1,5,610,3,11,0) +100847 +"DATA",1130580001.201,1,5,610,3,12,0) +100849 +"DATA",1130580001.201,1,5,610,3,13,0) +100858 +"DATA",1130580001.201,1,5,610,3,14,0) +100852 +"DATA",1130580001.201,1,5,610,3,15,0) +100930 +"DATA",1130580001.201,1,5,610,3,16,0) +100146 +"DATA",1130580001.201,1,5,610,3,17,0) +100676 +"DATA",1130580001.201,1,5,610,4) +17^^ +"DATA",1130580001.201,1,5,611,0) +17 +"DATA",1130580001.201,1,5,611,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,611,1,1,0) +100839 +"DATA",1130580001.201,1,5,611,1,2,0) +100897 +"DATA",1130580001.201,1,5,611,1,3,0) +100898 +"DATA",1130580001.201,1,5,611,1,4,0) +100899 +"DATA",1130580001.201,1,5,611,1,5,0) +100900 +"DATA",1130580001.201,1,5,611,1,6,0) +100901 +"DATA",1130580001.201,1,5,611,1,7,0) +100902 +"DATA",1130580001.201,1,5,611,2) +7 +"DATA",1130580001.201,1,5,611,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,611,3,1,0) +100839 +"DATA",1130580001.201,1,5,611,3,2,0) +100894 +"DATA",1130580001.201,1,5,611,3,3,0) +100895 +"DATA",1130580001.201,1,5,611,3,4,0) +100896 +"DATA",1130580001.201,1,5,611,3,5,0) +100897 +"DATA",1130580001.201,1,5,611,3,6,0) +100898 +"DATA",1130580001.201,1,5,611,3,7,0) +100899 +"DATA",1130580001.201,1,5,611,3,8,0) +100900 +"DATA",1130580001.201,1,5,611,3,9,0) +100901 +"DATA",1130580001.201,1,5,611,3,10,0) +100902 +"DATA",1130580001.201,1,5,611,3,11,0) +100929 +"DATA",1130580001.201,1,5,611,4) +11^^ +"DATA",1130580001.201,1,5,612,0) +18 +"DATA",1130580001.201,1,5,612,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,612,1,1,0) +100696 +"DATA",1130580001.201,1,5,612,1,2,0) +100622 +"DATA",1130580001.201,1,5,612,1,3,0) +100662 +"DATA",1130580001.201,1,5,612,1,4,0) +100661 +"DATA",1130580001.201,1,5,612,1,5,0) +100499 +"DATA",1130580001.201,1,5,612,1,6,0) +100647 +"DATA",1130580001.201,1,5,612,1,7,0) +100649 +"DATA",1130580001.201,1,5,612,1,8,0) +100839 +"DATA",1130580001.201,1,5,612,1,9,0) +100888 +"DATA",1130580001.201,1,5,612,1,10,0) +100929 +"DATA",1130580001.201,1,5,612,1,11,0) +100930 +"DATA",1130580001.201,1,5,612,1,12,0) +774 +"DATA",1130580001.201,1,5,612,2) +12 +"DATA",1130580001.201,1,5,612,3,0) +^1130580001.20112P^20^20 +"DATA",1130580001.201,1,5,612,3,1,0) +100696 +"DATA",1130580001.201,1,5,612,3,2,0) +100622 +"DATA",1130580001.201,1,5,612,3,3,0) +100662 +"DATA",1130580001.201,1,5,612,3,4,0) +100661 +"DATA",1130580001.201,1,5,612,3,5,0) +100499 +"DATA",1130580001.201,1,5,612,3,6,0) +100506 +"DATA",1130580001.201,1,5,612,3,7,0) +100647 +"DATA",1130580001.201,1,5,612,3,8,0) +100648 +"DATA",1130580001.201,1,5,612,3,9,0) +100649 +"DATA",1130580001.201,1,5,612,3,10,0) +100839 +"DATA",1130580001.201,1,5,612,3,11,0) +100894 +"DATA",1130580001.201,1,5,612,3,12,0) +100887 +"DATA",1130580001.201,1,5,612,3,13,0) +100888 +"DATA",1130580001.201,1,5,612,3,14,0) +100929 +"DATA",1130580001.201,1,5,612,3,15,0) +100930 +"DATA",1130580001.201,1,5,612,3,16,0) +100616 +"DATA",1130580001.201,1,5,612,3,17,0) +774 +"DATA",1130580001.201,1,5,612,3,18,0) +100667 +"DATA",1130580001.201,1,5,612,3,19,0) +100676 +"DATA",1130580001.201,1,5,612,3,20,0) +249 +"DATA",1130580001.201,1,5,612,4) +20^^ +"DATA",1130580001.201,1,5,613,0) +19 +"DATA",1130580001.201,1,5,613,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,613,1,1,0) +100878 +"DATA",1130580001.201,1,5,613,1,2,0) +100894 +"DATA",1130580001.201,1,5,613,1,3,0) +100895 +"DATA",1130580001.201,1,5,613,1,4,0) +100897 +"DATA",1130580001.201,1,5,613,1,5,0) +100885 +"DATA",1130580001.201,1,5,613,1,6,0) +100850 +"DATA",1130580001.201,1,5,613,1,7,0) +100929 +"DATA",1130580001.201,1,5,613,1,8,0) +100915 +"DATA",1130580001.201,1,5,613,1,9,0) +100955 +"DATA",1130580001.201,1,5,613,2) +9 +"DATA",1130580001.201,1,5,613,3,0) +^1130580001.20112P^78^78 +"DATA",1130580001.201,1,5,613,3,1,0) +100095 +"DATA",1130580001.201,1,5,613,3,2,0) +100696 +"DATA",1130580001.201,1,5,613,3,3,0) +100622 +"DATA",1130580001.201,1,5,613,3,4,0) +100662 +"DATA",1130580001.201,1,5,613,3,5,0) +100661 +"DATA",1130580001.201,1,5,613,3,6,0) +100499 +"DATA",1130580001.201,1,5,613,3,7,0) +100506 +"DATA",1130580001.201,1,5,613,3,8,0) +100647 +"DATA",1130580001.201,1,5,613,3,9,0) +100648 +"DATA",1130580001.201,1,5,613,3,10,0) +100649 +"DATA",1130580001.201,1,5,613,3,11,0) +100839 +"DATA",1130580001.201,1,5,613,3,12,0) +100878 +"DATA",1130580001.201,1,5,613,3,13,0) +100879 +"DATA",1130580001.201,1,5,613,3,14,0) +100880 +"DATA",1130580001.201,1,5,613,3,15,0) +100881 +"DATA",1130580001.201,1,5,613,3,16,0) +100882 +"DATA",1130580001.201,1,5,613,3,17,0) +100874 +"DATA",1130580001.201,1,5,613,3,18,0) +100875 +"DATA",1130580001.201,1,5,613,3,19,0) +100883 +"DATA",1130580001.201,1,5,613,3,20,0) +100894 +"DATA",1130580001.201,1,5,613,3,21,0) +100895 +"DATA",1130580001.201,1,5,613,3,22,0) +100896 +"DATA",1130580001.201,1,5,613,3,23,0) +100897 +"DATA",1130580001.201,1,5,613,3,24,0) +100898 +"DATA",1130580001.201,1,5,613,3,25,0) +100899 +"DATA",1130580001.201,1,5,613,3,26,0) +100900 +"DATA",1130580001.201,1,5,613,3,27,0) +100901 +"DATA",1130580001.201,1,5,613,3,28,0) +100902 +"DATA",1130580001.201,1,5,613,3,29,0) +100903 +"DATA",1130580001.201,1,5,613,3,30,0) +100884 +"DATA",1130580001.201,1,5,613,3,31,0) +100885 +"DATA",1130580001.201,1,5,613,3,32,0) +100886 +"DATA",1130580001.201,1,5,613,3,33,0) +100887 +"DATA",1130580001.201,1,5,613,3,34,0) +100888 +"DATA",1130580001.201,1,5,613,3,35,0) +100889 +"DATA",1130580001.201,1,5,613,3,36,0) +100890 +"DATA",1130580001.201,1,5,613,3,37,0) +100891 +"DATA",1130580001.201,1,5,613,3,38,0) +100338 +"DATA",1130580001.201,1,5,613,3,39,0) +100848 +"DATA",1130580001.201,1,5,613,3,40,0) +100845 +"DATA",1130580001.201,1,5,613,3,41,0) +100850 +"DATA",1130580001.201,1,5,613,3,42,0) +100855 +"DATA",1130580001.201,1,5,613,3,43,0) +100846 +"DATA",1130580001.201,1,5,613,3,44,0) +100847 +"DATA",1130580001.201,1,5,613,3,45,0) +100849 +"DATA",1130580001.201,1,5,613,3,46,0) +100858 +"DATA",1130580001.201,1,5,613,3,47,0) +100852 +"DATA",1130580001.201,1,5,613,3,48,0) +100929 +"DATA",1130580001.201,1,5,613,3,49,0) +100930 +"DATA",1130580001.201,1,5,613,3,50,0) +100931 +"DATA",1130580001.201,1,5,613,3,51,0) +100932 +"DATA",1130580001.201,1,5,613,3,52,0) +100933 +"DATA",1130580001.201,1,5,613,3,53,0) +100914 +"DATA",1130580001.201,1,5,613,3,54,0) +100915 +"DATA",1130580001.201,1,5,613,3,55,0) +100917 +"DATA",1130580001.201,1,5,613,3,56,0) +100923 +"DATA",1130580001.201,1,5,613,3,57,0) +100904 +"DATA",1130580001.201,1,5,613,3,58,0) +100905 +"DATA",1130580001.201,1,5,613,3,59,0) +100906 +"DATA",1130580001.201,1,5,613,3,60,0) +100907 +"DATA",1130580001.201,1,5,613,3,61,0) +100909 +"DATA",1130580001.201,1,5,613,3,62,0) +100913 +"DATA",1130580001.201,1,5,613,3,63,0) +100859 +"DATA",1130580001.201,1,5,613,3,64,0) +100860 +"DATA",1130580001.201,1,5,613,3,65,0) +100862 +"DATA",1130580001.201,1,5,613,3,66,0) +100861 +"DATA",1130580001.201,1,5,613,3,67,0) +100863 +"DATA",1130580001.201,1,5,613,3,68,0) +100851 +"DATA",1130580001.201,1,5,613,3,69,0) +100853 +"DATA",1130580001.201,1,5,613,3,70,0) +100856 +"DATA",1130580001.201,1,5,613,3,71,0) +100146 +"DATA",1130580001.201,1,5,613,3,72,0) +100857 +"DATA",1130580001.201,1,5,613,3,73,0) +100955 +"DATA",1130580001.201,1,5,613,3,74,0) +100616 +"DATA",1130580001.201,1,5,613,3,75,0) +774 +"DATA",1130580001.201,1,5,613,3,76,0) +100667 +"DATA",1130580001.201,1,5,613,3,77,0) +100676 +"DATA",1130580001.201,1,5,613,3,78,0) +249 +"DATA",1130580001.201,1,5,613,4) +78^^ +"DATA",1130580001.201,1,5,614,0) +13 +"DATA",1130580001.201,1,5,614,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,614,1,1,0) +100647 +"DATA",1130580001.201,1,5,614,1,2,0) +100929 +"DATA",1130580001.201,1,5,614,1,3,0) +100915 +"DATA",1130580001.201,1,5,614,1,4,0) +100917 +"DATA",1130580001.201,1,5,614,1,5,0) +100904 +"DATA",1130580001.201,1,5,614,1,6,0) +100905 +"DATA",1130580001.201,1,5,614,1,7,0) +100906 +"DATA",1130580001.201,1,5,614,1,8,0) +100907 +"DATA",1130580001.201,1,5,614,1,9,0) +100909 +"DATA",1130580001.201,1,5,614,1,10,0) +100955 +"DATA",1130580001.201,1,5,614,2) +10 +"DATA",1130580001.201,1,5,614,3,0) +^1130580001.20112P^52^52 +"DATA",1130580001.201,1,5,614,3,1,0) +100095 +"DATA",1130580001.201,1,5,614,3,2,0) +100696 +"DATA",1130580001.201,1,5,614,3,3,0) +100622 +"DATA",1130580001.201,1,5,614,3,4,0) +100662 +"DATA",1130580001.201,1,5,614,3,5,0) +100661 +"DATA",1130580001.201,1,5,614,3,6,0) +100499 +"DATA",1130580001.201,1,5,614,3,7,0) +100506 +"DATA",1130580001.201,1,5,614,3,8,0) +100647 +"DATA",1130580001.201,1,5,614,3,9,0) +100648 +"DATA",1130580001.201,1,5,614,3,10,0) +100649 +"DATA",1130580001.201,1,5,614,3,11,0) +100839 +"DATA",1130580001.201,1,5,614,3,12,0) +100878 +"DATA",1130580001.201,1,5,614,3,13,0) +100879 +"DATA",1130580001.201,1,5,614,3,14,0) +100894 +"DATA",1130580001.201,1,5,614,3,15,0) +100887 +"DATA",1130580001.201,1,5,614,3,16,0) +100888 +"DATA",1130580001.201,1,5,614,3,17,0) +100338 +"DATA",1130580001.201,1,5,614,3,18,0) +100848 +"DATA",1130580001.201,1,5,614,3,19,0) +100845 +"DATA",1130580001.201,1,5,614,3,20,0) +100850 +"DATA",1130580001.201,1,5,614,3,21,0) +100855 +"DATA",1130580001.201,1,5,614,3,22,0) +100846 +"DATA",1130580001.201,1,5,614,3,23,0) +100847 +"DATA",1130580001.201,1,5,614,3,24,0) +100849 +"DATA",1130580001.201,1,5,614,3,25,0) +100858 +"DATA",1130580001.201,1,5,614,3,26,0) +100852 +"DATA",1130580001.201,1,5,614,3,27,0) +100929 +"DATA",1130580001.201,1,5,614,3,28,0) +100930 +"DATA",1130580001.201,1,5,614,3,29,0) +100914 +"DATA",1130580001.201,1,5,614,3,30,0) +100915 +"DATA",1130580001.201,1,5,614,3,31,0) +100917 +"DATA",1130580001.201,1,5,614,3,32,0) +100923 +"DATA",1130580001.201,1,5,614,3,33,0) +100904 +"DATA",1130580001.201,1,5,614,3,34,0) +100905 +"DATA",1130580001.201,1,5,614,3,35,0) +100907 +"DATA",1130580001.201,1,5,614,3,36,0) +100913 +"DATA",1130580001.201,1,5,614,3,37,0) +100859 +"DATA",1130580001.201,1,5,614,3,38,0) +100860 +"DATA",1130580001.201,1,5,614,3,39,0) +100862 +"DATA",1130580001.201,1,5,614,3,40,0) +100861 +"DATA",1130580001.201,1,5,614,3,41,0) +100863 +"DATA",1130580001.201,1,5,614,3,42,0) +100851 +"DATA",1130580001.201,1,5,614,3,43,0) +100853 +"DATA",1130580001.201,1,5,614,3,44,0) +100856 +"DATA",1130580001.201,1,5,614,3,45,0) +100146 +"DATA",1130580001.201,1,5,614,3,46,0) +100857 +"DATA",1130580001.201,1,5,614,3,47,0) +100955 +"DATA",1130580001.201,1,5,614,3,48,0) +100616 +"DATA",1130580001.201,1,5,614,3,49,0) +774 +"DATA",1130580001.201,1,5,614,3,50,0) +100667 +"DATA",1130580001.201,1,5,614,3,51,0) +100676 +"DATA",1130580001.201,1,5,614,3,52,0) +249 +"DATA",1130580001.201,1,5,614,4) +52^^ +"DATA",1130580001.201,1,5,615,0) +11 +"DATA",1130580001.201,1,5,615,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,615,1,1,0) +100899 +"DATA",1130580001.201,1,5,615,1,2,0) +100900 +"DATA",1130580001.201,1,5,615,1,3,0) +100846 +"DATA",1130580001.201,1,5,615,1,4,0) +100847 +"DATA",1130580001.201,1,5,615,1,5,0) +100849 +"DATA",1130580001.201,1,5,615,1,6,0) +100858 +"DATA",1130580001.201,1,5,615,1,7,0) +100852 +"DATA",1130580001.201,1,5,615,1,8,0) +100929 +"DATA",1130580001.201,1,5,615,1,9,0) +100931 +"DATA",1130580001.201,1,5,615,1,10,0) +100932 +"DATA",1130580001.201,1,5,615,1,11,0) +100933 +"DATA",1130580001.201,1,5,615,2) +11 +"DATA",1130580001.201,1,5,615,3,0) +^1130580001.20112P^99^99 +"DATA",1130580001.201,1,5,615,3,1,0) +100095 +"DATA",1130580001.201,1,5,615,3,2,0) +100696 +"DATA",1130580001.201,1,5,615,3,3,0) +100622 +"DATA",1130580001.201,1,5,615,3,4,0) +100662 +"DATA",1130580001.201,1,5,615,3,5,0) +100661 +"DATA",1130580001.201,1,5,615,3,6,0) +100499 +"DATA",1130580001.201,1,5,615,3,7,0) +100506 +"DATA",1130580001.201,1,5,615,3,8,0) +100647 +"DATA",1130580001.201,1,5,615,3,9,0) +100648 +"DATA",1130580001.201,1,5,615,3,10,0) +100649 +"DATA",1130580001.201,1,5,615,3,11,0) +100839 +"DATA",1130580001.201,1,5,615,3,12,0) +100878 +"DATA",1130580001.201,1,5,615,3,13,0) +100879 +"DATA",1130580001.201,1,5,615,3,14,0) +100880 +"DATA",1130580001.201,1,5,615,3,15,0) +100881 +"DATA",1130580001.201,1,5,615,3,16,0) +100882 +"DATA",1130580001.201,1,5,615,3,17,0) +100874 +"DATA",1130580001.201,1,5,615,3,18,0) +100875 +"DATA",1130580001.201,1,5,615,3,19,0) +100877 +"DATA",1130580001.201,1,5,615,3,20,0) +100883 +"DATA",1130580001.201,1,5,615,3,21,0) +100894 +"DATA",1130580001.201,1,5,615,3,22,0) +100895 +"DATA",1130580001.201,1,5,615,3,23,0) +100896 +"DATA",1130580001.201,1,5,615,3,24,0) +100897 +"DATA",1130580001.201,1,5,615,3,25,0) +100898 +"DATA",1130580001.201,1,5,615,3,26,0) +100899 +"DATA",1130580001.201,1,5,615,3,27,0) +100900 +"DATA",1130580001.201,1,5,615,3,28,0) +100901 +"DATA",1130580001.201,1,5,615,3,29,0) +100902 +"DATA",1130580001.201,1,5,615,3,30,0) +100903 +"DATA",1130580001.201,1,5,615,3,31,0) +100884 +"DATA",1130580001.201,1,5,615,3,32,0) +100885 +"DATA",1130580001.201,1,5,615,3,33,0) +100886 +"DATA",1130580001.201,1,5,615,3,34,0) +100887 +"DATA",1130580001.201,1,5,615,3,35,0) +100888 +"DATA",1130580001.201,1,5,615,3,36,0) +100889 +"DATA",1130580001.201,1,5,615,3,37,0) +100890 +"DATA",1130580001.201,1,5,615,3,38,0) +100891 +"DATA",1130580001.201,1,5,615,3,39,0) +100892 +"DATA",1130580001.201,1,5,615,3,40,0) +100893 +"DATA",1130580001.201,1,5,615,3,41,0) +100338 +"DATA",1130580001.201,1,5,615,3,42,0) +100848 +"DATA",1130580001.201,1,5,615,3,43,0) +100845 +"DATA",1130580001.201,1,5,615,3,44,0) +100850 +"DATA",1130580001.201,1,5,615,3,45,0) +100855 +"DATA",1130580001.201,1,5,615,3,46,0) +100846 +"DATA",1130580001.201,1,5,615,3,47,0) +100847 +"DATA",1130580001.201,1,5,615,3,48,0) +100849 +"DATA",1130580001.201,1,5,615,3,49,0) +100858 +"DATA",1130580001.201,1,5,615,3,50,0) +100852 +"DATA",1130580001.201,1,5,615,3,51,0) +100929 +"DATA",1130580001.201,1,5,615,3,52,0) +100930 +"DATA",1130580001.201,1,5,615,3,53,0) +100931 +"DATA",1130580001.201,1,5,615,3,54,0) +100932 +"DATA",1130580001.201,1,5,615,3,55,0) +100933 +"DATA",1130580001.201,1,5,615,3,56,0) +100914 +"DATA",1130580001.201,1,5,615,3,57,0) +100915 +"DATA",1130580001.201,1,5,615,3,58,0) +100917 +"DATA",1130580001.201,1,5,615,3,59,0) +100923 +"DATA",1130580001.201,1,5,615,3,60,0) +100904 +"DATA",1130580001.201,1,5,615,3,61,0) +100905 +"DATA",1130580001.201,1,5,615,3,62,0) +100906 +"DATA",1130580001.201,1,5,615,3,63,0) +100907 +"DATA",1130580001.201,1,5,615,3,64,0) +100908 +"DATA",1130580001.201,1,5,615,3,65,0) +100909 +"DATA",1130580001.201,1,5,615,3,66,0) +100910 +"DATA",1130580001.201,1,5,615,3,67,0) +100911 +"DATA",1130580001.201,1,5,615,3,68,0) +100912 +"DATA",1130580001.201,1,5,615,3,69,0) +100913 +"DATA",1130580001.201,1,5,615,3,70,0) +100864 +"DATA",1130580001.201,1,5,615,3,71,0) +100865 +"DATA",1130580001.201,1,5,615,3,72,0) +100866 +"DATA",1130580001.201,1,5,615,3,73,0) +100867 +"DATA",1130580001.201,1,5,615,3,74,0) +100868 +"DATA",1130580001.201,1,5,615,3,75,0) +100869 +"DATA",1130580001.201,1,5,615,3,76,0) +100870 +"DATA",1130580001.201,1,5,615,3,77,0) +100871 +"DATA",1130580001.201,1,5,615,3,78,0) +100872 +"DATA",1130580001.201,1,5,615,3,79,0) +100873 +"DATA",1130580001.201,1,5,615,3,80,0) +100859 +"DATA",1130580001.201,1,5,615,3,81,0) +100860 +"DATA",1130580001.201,1,5,615,3,82,0) +100862 +"DATA",1130580001.201,1,5,615,3,83,0) +100861 +"DATA",1130580001.201,1,5,615,3,84,0) +100863 +"DATA",1130580001.201,1,5,615,3,85,0) +100851 +"DATA",1130580001.201,1,5,615,3,86,0) +100853 +"DATA",1130580001.201,1,5,615,3,87,0) +100856 +"DATA",1130580001.201,1,5,615,3,88,0) +100146 +"DATA",1130580001.201,1,5,615,3,89,0) +100857 +"DATA",1130580001.201,1,5,615,3,90,0) +100955 +"DATA",1130580001.201,1,5,615,3,91,0) +100616 +"DATA",1130580001.201,1,5,615,3,92,0) +100146 +"DATA",1130580001.201,1,5,615,3,93,0) +100499 +"DATA",1130580001.201,1,5,615,3,94,0) +100506 +"DATA",1130580001.201,1,5,615,3,95,0) +774 +"DATA",1130580001.201,1,5,615,3,96,0) +774 +"DATA",1130580001.201,1,5,615,3,97,0) +100667 +"DATA",1130580001.201,1,5,615,3,98,0) +100676 +"DATA",1130580001.201,1,5,615,3,99,0) +249 +"DATA",1130580001.201,1,5,615,4) +99^^ +"DATA",1130580001.201,1,5,616,0) +12 +"DATA",1130580001.201,1,5,616,2) +0 +"DATA",1130580001.201,1,5,616,3,0) +^1130580001.20112P^98^98 +"DATA",1130580001.201,1,5,616,3,1,0) +100095 +"DATA",1130580001.201,1,5,616,3,2,0) +100696 +"DATA",1130580001.201,1,5,616,3,3,0) +100622 +"DATA",1130580001.201,1,5,616,3,4,0) +100662 +"DATA",1130580001.201,1,5,616,3,5,0) +100661 +"DATA",1130580001.201,1,5,616,3,6,0) +100499 +"DATA",1130580001.201,1,5,616,3,7,0) +100506 +"DATA",1130580001.201,1,5,616,3,8,0) +100647 +"DATA",1130580001.201,1,5,616,3,9,0) +100648 +"DATA",1130580001.201,1,5,616,3,10,0) +100649 +"DATA",1130580001.201,1,5,616,3,11,0) +100839 +"DATA",1130580001.201,1,5,616,3,12,0) +100878 +"DATA",1130580001.201,1,5,616,3,13,0) +100879 +"DATA",1130580001.201,1,5,616,3,14,0) +100880 +"DATA",1130580001.201,1,5,616,3,15,0) +100881 +"DATA",1130580001.201,1,5,616,3,16,0) +100882 +"DATA",1130580001.201,1,5,616,3,17,0) +100874 +"DATA",1130580001.201,1,5,616,3,18,0) +100875 +"DATA",1130580001.201,1,5,616,3,19,0) +100876 +"DATA",1130580001.201,1,5,616,3,20,0) +100877 +"DATA",1130580001.201,1,5,616,3,21,0) +100883 +"DATA",1130580001.201,1,5,616,3,22,0) +100894 +"DATA",1130580001.201,1,5,616,3,23,0) +100895 +"DATA",1130580001.201,1,5,616,3,24,0) +100896 +"DATA",1130580001.201,1,5,616,3,25,0) +100897 +"DATA",1130580001.201,1,5,616,3,26,0) +100898 +"DATA",1130580001.201,1,5,616,3,27,0) +100899 +"DATA",1130580001.201,1,5,616,3,28,0) +100900 +"DATA",1130580001.201,1,5,616,3,29,0) +100901 +"DATA",1130580001.201,1,5,616,3,30,0) +100902 +"DATA",1130580001.201,1,5,616,3,31,0) +100903 +"DATA",1130580001.201,1,5,616,3,32,0) +100884 +"DATA",1130580001.201,1,5,616,3,33,0) +100885 +"DATA",1130580001.201,1,5,616,3,34,0) +100886 +"DATA",1130580001.201,1,5,616,3,35,0) +100887 +"DATA",1130580001.201,1,5,616,3,36,0) +100888 +"DATA",1130580001.201,1,5,616,3,37,0) +100889 +"DATA",1130580001.201,1,5,616,3,38,0) +100890 +"DATA",1130580001.201,1,5,616,3,39,0) +100891 +"DATA",1130580001.201,1,5,616,3,40,0) +100892 +"DATA",1130580001.201,1,5,616,3,41,0) +100893 +"DATA",1130580001.201,1,5,616,3,42,0) +100338 +"DATA",1130580001.201,1,5,616,3,43,0) +100848 +"DATA",1130580001.201,1,5,616,3,44,0) +100845 +"DATA",1130580001.201,1,5,616,3,45,0) +100850 +"DATA",1130580001.201,1,5,616,3,46,0) +100855 +"DATA",1130580001.201,1,5,616,3,47,0) +100846 +"DATA",1130580001.201,1,5,616,3,48,0) +100847 +"DATA",1130580001.201,1,5,616,3,49,0) +100849 +"DATA",1130580001.201,1,5,616,3,50,0) +100858 +"DATA",1130580001.201,1,5,616,3,51,0) +100852 +"DATA",1130580001.201,1,5,616,3,52,0) +100929 +"DATA",1130580001.201,1,5,616,3,53,0) +100930 +"DATA",1130580001.201,1,5,616,3,54,0) +100931 +"DATA",1130580001.201,1,5,616,3,55,0) +100914 +"DATA",1130580001.201,1,5,616,3,56,0) +100915 +"DATA",1130580001.201,1,5,616,3,57,0) +100917 +"DATA",1130580001.201,1,5,616,3,58,0) +100923 +"DATA",1130580001.201,1,5,616,3,59,0) +100904 +"DATA",1130580001.201,1,5,616,3,60,0) +100905 +"DATA",1130580001.201,1,5,616,3,61,0) +100906 +"DATA",1130580001.201,1,5,616,3,62,0) +100907 +"DATA",1130580001.201,1,5,616,3,63,0) +100908 +"DATA",1130580001.201,1,5,616,3,64,0) +100909 +"DATA",1130580001.201,1,5,616,3,65,0) +100910 +"DATA",1130580001.201,1,5,616,3,66,0) +100911 +"DATA",1130580001.201,1,5,616,3,67,0) +100912 +"DATA",1130580001.201,1,5,616,3,68,0) +100913 +"DATA",1130580001.201,1,5,616,3,69,0) +100864 +"DATA",1130580001.201,1,5,616,3,70,0) +100865 +"DATA",1130580001.201,1,5,616,3,71,0) +100866 +"DATA",1130580001.201,1,5,616,3,72,0) +100867 +"DATA",1130580001.201,1,5,616,3,73,0) +100868 +"DATA",1130580001.201,1,5,616,3,74,0) +100869 +"DATA",1130580001.201,1,5,616,3,75,0) +100870 +"DATA",1130580001.201,1,5,616,3,76,0) +100871 +"DATA",1130580001.201,1,5,616,3,77,0) +100872 +"DATA",1130580001.201,1,5,616,3,78,0) +100873 +"DATA",1130580001.201,1,5,616,3,79,0) +100859 +"DATA",1130580001.201,1,5,616,3,80,0) +100860 +"DATA",1130580001.201,1,5,616,3,81,0) +100862 +"DATA",1130580001.201,1,5,616,3,82,0) +100861 +"DATA",1130580001.201,1,5,616,3,83,0) +100863 +"DATA",1130580001.201,1,5,616,3,84,0) +100851 +"DATA",1130580001.201,1,5,616,3,85,0) +100853 +"DATA",1130580001.201,1,5,616,3,86,0) +100856 +"DATA",1130580001.201,1,5,616,3,87,0) +100146 +"DATA",1130580001.201,1,5,616,3,88,0) +100857 +"DATA",1130580001.201,1,5,616,3,89,0) +100955 +"DATA",1130580001.201,1,5,616,3,90,0) +100616 +"DATA",1130580001.201,1,5,616,3,91,0) +100146 +"DATA",1130580001.201,1,5,616,3,92,0) +100499 +"DATA",1130580001.201,1,5,616,3,93,0) +100506 +"DATA",1130580001.201,1,5,616,3,94,0) +774 +"DATA",1130580001.201,1,5,616,3,95,0) +774 +"DATA",1130580001.201,1,5,616,3,96,0) +100667 +"DATA",1130580001.201,1,5,616,3,97,0) +100676 +"DATA",1130580001.201,1,5,616,3,98,0) +249 +"DATA",1130580001.201,1,5,616,4) +98^^ +"DATA",1130580001.201,1,5,617,0) +21 +"DATA",1130580001.201,1,5,617,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,617,1,1,0) +100942 +"DATA",1130580001.201,1,5,617,1,2,0) +100943 +"DATA",1130580001.201,1,5,617,1,3,0) +100944 +"DATA",1130580001.201,1,5,617,1,4,0) +100945 +"DATA",1130580001.201,1,5,617,1,5,0) +100946 +"DATA",1130580001.201,1,5,617,1,6,0) +100935 +"DATA",1130580001.201,1,5,617,1,7,0) +100936 +"DATA",1130580001.201,1,5,617,1,8,0) +100939 +"DATA",1130580001.201,1,5,617,1,9,0) +100940 +"DATA",1130580001.201,1,5,617,1,10,0) +100941 +"DATA",1130580001.201,1,5,617,2) +10 +"DATA",1130580001.201,1,5,617,3,0) +^1130580001.20112P^19^19 +"DATA",1130580001.201,1,5,617,3,1,0) +100942 +"DATA",1130580001.201,1,5,617,3,2,0) +100943 +"DATA",1130580001.201,1,5,617,3,3,0) +100944 +"DATA",1130580001.201,1,5,617,3,4,0) +100945 +"DATA",1130580001.201,1,5,617,3,5,0) +100946 +"DATA",1130580001.201,1,5,617,3,6,0) +100935 +"DATA",1130580001.201,1,5,617,3,7,0) +100936 +"DATA",1130580001.201,1,5,617,3,8,0) +100939 +"DATA",1130580001.201,1,5,617,3,9,0) +100940 +"DATA",1130580001.201,1,5,617,3,10,0) +100941 +"DATA",1130580001.201,1,5,617,3,11,0) +100951 +"DATA",1130580001.201,1,5,617,3,12,0) +100952 +"DATA",1130580001.201,1,5,617,3,13,0) +100953 +"DATA",1130580001.201,1,5,617,3,14,0) +100954 +"DATA",1130580001.201,1,5,617,3,15,0) +100934 +"DATA",1130580001.201,1,5,617,3,16,0) +100937 +"DATA",1130580001.201,1,5,617,3,17,0) +100947 +"DATA",1130580001.201,1,5,617,3,18,0) +100948 +"DATA",1130580001.201,1,5,617,3,19,0) +100949 +"DATA",1130580001.201,1,5,617,4) +19^^ +"DATA",1130580001.201,1,5,618,0) +20 +"DATA",1130580001.201,1,5,618,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,618,1,1,0) +100950 +"DATA",1130580001.201,1,5,618,1,2,0) +100951 +"DATA",1130580001.201,1,5,618,1,3,0) +100952 +"DATA",1130580001.201,1,5,618,1,4,0) +100953 +"DATA",1130580001.201,1,5,618,1,5,0) +100954 +"DATA",1130580001.201,1,5,618,1,6,0) +100934 +"DATA",1130580001.201,1,5,618,1,7,0) +100937 +"DATA",1130580001.201,1,5,618,1,8,0) +100947 +"DATA",1130580001.201,1,5,618,1,9,0) +100948 +"DATA",1130580001.201,1,5,618,1,10,0) +100949 +"DATA",1130580001.201,1,5,618,1,11,0) +100957 +"DATA",1130580001.201,1,5,618,2) +11 +"DATA",1130580001.201,1,5,618,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,618,3,1,0) +100950 +"DATA",1130580001.201,1,5,618,3,2,0) +100951 +"DATA",1130580001.201,1,5,618,3,3,0) +100952 +"DATA",1130580001.201,1,5,618,3,4,0) +100953 +"DATA",1130580001.201,1,5,618,3,5,0) +100954 +"DATA",1130580001.201,1,5,618,3,6,0) +100934 +"DATA",1130580001.201,1,5,618,3,7,0) +100937 +"DATA",1130580001.201,1,5,618,3,8,0) +100947 +"DATA",1130580001.201,1,5,618,3,9,0) +100948 +"DATA",1130580001.201,1,5,618,3,10,0) +100949 +"DATA",1130580001.201,1,5,618,3,11,0) +100957 +"DATA",1130580001.201,1,5,618,4) +11^^ +"DATA",1130580001.201,1,6) +^N^Y +"DATA",1130580001.201,2,0) +SAMPLE2 +"DATA",1130580001.201,3,0) +GPLTEST SET +"DATA",1130580001.201,3,5,0) +^1130580001.2011P^16^3 +"DATA",1130580001.201,3,5,14,0) +5 +"DATA",1130580001.201,3,5,14,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,3,5,14,1,1,0) +100696 +"DATA",1130580001.201,3,5,14,1,2,0) +100622 +"DATA",1130580001.201,3,5,14,1,3,0) +100662 +"DATA",1130580001.201,3,5,14,1,4,0) +100661 +"DATA",1130580001.201,3,5,14,1,5,0) +100649 +"DATA",1130580001.201,3,5,14,1,6,0) +100338 +"DATA",1130580001.201,3,5,14,1,7,0) +100848 +"DATA",1130580001.201,3,5,14,1,8,0) +100845 +"DATA",1130580001.201,3,5,14,1,9,0) +100146 +"DATA",1130580001.201,3,5,14,1,10,0) +100616 +"DATA",1130580001.201,3,5,14,1,11,0) +100667 +"DATA",1130580001.201,3,5,14,1,12,0) +100676 +"DATA",1130580001.201,3,5,14,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,3,5,14,3,1,0) +100095 +"DATA",1130580001.201,3,5,14,3,2,0) +100696 +"DATA",1130580001.201,3,5,14,3,3,0) +100622 +"DATA",1130580001.201,3,5,14,3,4,0) +100662 +"DATA",1130580001.201,3,5,14,3,5,0) +100661 +"DATA",1130580001.201,3,5,14,3,6,0) +100499 +"DATA",1130580001.201,3,5,14,3,7,0) +100506 +"DATA",1130580001.201,3,5,14,3,8,0) +100647 +"DATA",1130580001.201,3,5,14,3,9,0) +100648 +"DATA",1130580001.201,3,5,14,3,10,0) +100649 +"DATA",1130580001.201,3,5,14,3,11,0) +100839 +"DATA",1130580001.201,3,5,14,3,12,0) +100878 +"DATA",1130580001.201,3,5,14,3,13,0) +100879 +"DATA",1130580001.201,3,5,14,3,14,0) +100894 +"DATA",1130580001.201,3,5,14,3,15,0) +100887 +"DATA",1130580001.201,3,5,14,3,16,0) +100888 +"DATA",1130580001.201,3,5,14,3,17,0) +100338 +"DATA",1130580001.201,3,5,14,3,18,0) +100848 +"DATA",1130580001.201,3,5,14,3,19,0) +100845 +"DATA",1130580001.201,3,5,14,3,20,0) +100850 +"DATA",1130580001.201,3,5,14,3,21,0) +100855 +"DATA",1130580001.201,3,5,14,3,22,0) +100846 +"DATA",1130580001.201,3,5,14,3,23,0) +100847 +"DATA",1130580001.201,3,5,14,3,24,0) +100849 +"DATA",1130580001.201,3,5,14,3,25,0) +100858 +"DATA",1130580001.201,3,5,14,3,26,0) +100852 +"DATA",1130580001.201,3,5,14,3,27,0) +100929 +"DATA",1130580001.201,3,5,14,3,28,0) +100923 +"DATA",1130580001.201,3,5,14,3,29,0) +100904 +"DATA",1130580001.201,3,5,14,3,30,0) +100905 +"DATA",1130580001.201,3,5,14,3,31,0) +100907 +"DATA",1130580001.201,3,5,14,3,32,0) +100913 +"DATA",1130580001.201,3,5,14,3,33,0) +100859 +"DATA",1130580001.201,3,5,14,3,34,0) +100860 +"DATA",1130580001.201,3,5,14,3,35,0) +100862 +"DATA",1130580001.201,3,5,14,3,36,0) +100861 +"DATA",1130580001.201,3,5,14,3,37,0) +100863 +"DATA",1130580001.201,3,5,14,3,38,0) +100851 +"DATA",1130580001.201,3,5,14,3,39,0) +100853 +"DATA",1130580001.201,3,5,14,3,40,0) +100856 +"DATA",1130580001.201,3,5,14,3,41,0) +100146 +"DATA",1130580001.201,3,5,14,3,42,0) +100857 +"DATA",1130580001.201,3,5,14,3,43,0) +100616 +"DATA",1130580001.201,3,5,14,3,44,0) +774 +"DATA",1130580001.201,3,5,14,3,45,0) +100667 +"DATA",1130580001.201,3,5,14,3,46,0) +100676 +"DATA",1130580001.201,3,5,14,3,47,0) +249 +"DATA",1130580001.201,3,5,15,0) +4 +"DATA",1130580001.201,3,5,15,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,3,5,15,1,1,0) +100095 +"DATA",1130580001.201,3,5,15,1,2,0) +100696 +"DATA",1130580001.201,3,5,15,1,3,0) +100622 +"DATA",1130580001.201,3,5,15,1,4,0) +100662 +"DATA",1130580001.201,3,5,15,1,5,0) +100661 +"DATA",1130580001.201,3,5,15,1,6,0) +100499 +"DATA",1130580001.201,3,5,15,1,7,0) +100506 +"DATA",1130580001.201,3,5,15,1,8,0) +100647 +"DATA",1130580001.201,3,5,15,1,9,0) +100648 +"DATA",1130580001.201,3,5,15,1,10,0) +100649 +"DATA",1130580001.201,3,5,15,1,11,0) +100839 +"DATA",1130580001.201,3,5,15,1,12,0) +100942 +"DATA",1130580001.201,3,5,15,1,13,0) +100943 +"DATA",1130580001.201,3,5,15,1,14,0) +100935 +"DATA",1130580001.201,3,5,15,1,15,0) +100941 +"DATA",1130580001.201,3,5,15,1,16,0) +100878 +"DATA",1130580001.201,3,5,15,1,17,0) +100879 +"DATA",1130580001.201,3,5,15,1,18,0) +100880 +"DATA",1130580001.201,3,5,15,1,19,0) +100881 +"DATA",1130580001.201,3,5,15,1,20,0) +100882 +"DATA",1130580001.201,3,5,15,1,21,0) +100874 +"DATA",1130580001.201,3,5,15,1,22,0) +100875 +"DATA",1130580001.201,3,5,15,1,23,0) +100876 +"DATA",1130580001.201,3,5,15,1,24,0) +100883 +"DATA",1130580001.201,3,5,15,1,25,0) +100894 +"DATA",1130580001.201,3,5,15,1,26,0) +100895 +"DATA",1130580001.201,3,5,15,1,27,0) +100896 +"DATA",1130580001.201,3,5,15,1,28,0) +100897 +"DATA",1130580001.201,3,5,15,1,29,0) +100898 +"DATA",1130580001.201,3,5,15,1,30,0) +100899 +"DATA",1130580001.201,3,5,15,1,31,0) +100900 +"DATA",1130580001.201,3,5,15,1,32,0) +100901 +"DATA",1130580001.201,3,5,15,1,33,0) +100902 +"DATA",1130580001.201,3,5,15,1,34,0) +100903 +"DATA",1130580001.201,3,5,15,1,35,0) +100884 +"DATA",1130580001.201,3,5,15,1,36,0) +100885 +"DATA",1130580001.201,3,5,15,1,37,0) +100886 +"DATA",1130580001.201,3,5,15,1,38,0) +100887 +"DATA",1130580001.201,3,5,15,1,39,0) +100888 +"DATA",1130580001.201,3,5,15,1,40,0) +100889 +"DATA",1130580001.201,3,5,15,1,41,0) +100890 +"DATA",1130580001.201,3,5,15,1,42,0) +100891 +"DATA",1130580001.201,3,5,15,1,43,0) +100338 +"DATA",1130580001.201,3,5,15,1,44,0) +100848 +"DATA",1130580001.201,3,5,15,1,45,0) +100845 +"DATA",1130580001.201,3,5,15,1,46,0) +100850 +"DATA",1130580001.201,3,5,15,1,47,0) +100855 +"DATA",1130580001.201,3,5,15,1,48,0) +100846 +"DATA",1130580001.201,3,5,15,1,49,0) +100847 +"DATA",1130580001.201,3,5,15,1,50,0) +100849 +"DATA",1130580001.201,3,5,15,1,51,0) +100858 +"DATA",1130580001.201,3,5,15,1,52,0) +100852 +"DATA",1130580001.201,3,5,15,1,53,0) +100929 +"DATA",1130580001.201,3,5,15,1,54,0) +100930 +"DATA",1130580001.201,3,5,15,1,55,0) +100931 +"DATA",1130580001.201,3,5,15,1,56,0) +100932 +"DATA",1130580001.201,3,5,15,1,57,0) +100933 +"DATA",1130580001.201,3,5,15,1,58,0) +100914 +"DATA",1130580001.201,3,5,15,1,59,0) +100915 +"DATA",1130580001.201,3,5,15,1,60,0) +100917 +"DATA",1130580001.201,3,5,15,1,61,0) +100923 +"DATA",1130580001.201,3,5,15,1,62,0) +100904 +"DATA",1130580001.201,3,5,15,1,63,0) +100905 +"DATA",1130580001.201,3,5,15,1,64,0) +100906 +"DATA",1130580001.201,3,5,15,1,65,0) +100907 +"DATA",1130580001.201,3,5,15,1,66,0) +100909 +"DATA",1130580001.201,3,5,15,1,67,0) +100913 +"DATA",1130580001.201,3,5,15,1,68,0) +100859 +"DATA",1130580001.201,3,5,15,1,69,0) +100860 +"DATA",1130580001.201,3,5,15,1,70,0) +100862 +"DATA",1130580001.201,3,5,15,1,71,0) +100861 +"DATA",1130580001.201,3,5,15,1,72,0) +100863 +"DATA",1130580001.201,3,5,15,1,73,0) +100851 +"DATA",1130580001.201,3,5,15,1,74,0) +100853 +"DATA",1130580001.201,3,5,15,1,75,0) +100856 +"DATA",1130580001.201,3,5,15,1,76,0) +100146 +"DATA",1130580001.201,3,5,15,1,77,0) +100857 +"DATA",1130580001.201,3,5,15,1,78,0) +100955 +"DATA",1130580001.201,3,5,15,1,79,0) +100616 +"DATA",1130580001.201,3,5,15,1,80,0) +100146 +"DATA",1130580001.201,3,5,15,1,81,0) +100499 +"DATA",1130580001.201,3,5,15,1,82,0) +100506 +"DATA",1130580001.201,3,5,15,1,83,0) +774 +"DATA",1130580001.201,3,5,15,1,84,0) +774 +"DATA",1130580001.201,3,5,15,1,85,0) +100667 +"DATA",1130580001.201,3,5,15,1,86,0) +100676 +"DATA",1130580001.201,3,5,15,1,87,0) +100951 +"DATA",1130580001.201,3,5,15,1,88,0) +100952 +"DATA",1130580001.201,3,5,15,1,89,0) +100953 +"DATA",1130580001.201,3,5,15,1,90,0) +100954 +"DATA",1130580001.201,3,5,15,1,91,0) +100934 +"DATA",1130580001.201,3,5,15,1,92,0) +100937 +"DATA",1130580001.201,3,5,15,1,93,0) +100947 +"DATA",1130580001.201,3,5,15,1,94,0) +100948 +"DATA",1130580001.201,3,5,15,1,95,0) +100949 +"DATA",1130580001.201,3,5,15,1,96,0) +249 +"DATA",1130580001.201,3,5,15,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,3,5,15,3,1,0) +100095 +"DATA",1130580001.201,3,5,15,3,2,0) +100696 +"DATA",1130580001.201,3,5,15,3,3,0) +100622 +"DATA",1130580001.201,3,5,15,3,4,0) +100662 +"DATA",1130580001.201,3,5,15,3,5,0) +100661 +"DATA",1130580001.201,3,5,15,3,6,0) +100499 +"DATA",1130580001.201,3,5,15,3,7,0) +100506 +"DATA",1130580001.201,3,5,15,3,8,0) +100647 +"DATA",1130580001.201,3,5,15,3,9,0) +100648 +"DATA",1130580001.201,3,5,15,3,10,0) +100649 +"DATA",1130580001.201,3,5,15,3,11,0) +100839 +"DATA",1130580001.201,3,5,15,3,12,0) +100942 +"DATA",1130580001.201,3,5,15,3,13,0) +100943 +"DATA",1130580001.201,3,5,15,3,14,0) +100935 +"DATA",1130580001.201,3,5,15,3,15,0) +100941 +"DATA",1130580001.201,3,5,15,3,16,0) +100878 +"DATA",1130580001.201,3,5,15,3,17,0) +100879 +"DATA",1130580001.201,3,5,15,3,18,0) +100880 +"DATA",1130580001.201,3,5,15,3,19,0) +100881 +"DATA",1130580001.201,3,5,15,3,20,0) +100882 +"DATA",1130580001.201,3,5,15,3,21,0) +100874 +"DATA",1130580001.201,3,5,15,3,22,0) +100875 +"DATA",1130580001.201,3,5,15,3,23,0) +100876 +"DATA",1130580001.201,3,5,15,3,24,0) +100883 +"DATA",1130580001.201,3,5,15,3,25,0) +100894 +"DATA",1130580001.201,3,5,15,3,26,0) +100895 +"DATA",1130580001.201,3,5,15,3,27,0) +100896 +"DATA",1130580001.201,3,5,15,3,28,0) +100897 +"DATA",1130580001.201,3,5,15,3,29,0) +100898 +"DATA",1130580001.201,3,5,15,3,30,0) +100899 +"DATA",1130580001.201,3,5,15,3,31,0) +100900 +"DATA",1130580001.201,3,5,15,3,32,0) +100901 +"DATA",1130580001.201,3,5,15,3,33,0) +100902 +"DATA",1130580001.201,3,5,15,3,34,0) +100903 +"DATA",1130580001.201,3,5,15,3,35,0) +100884 +"DATA",1130580001.201,3,5,15,3,36,0) +100885 +"DATA",1130580001.201,3,5,15,3,37,0) +100886 +"DATA",1130580001.201,3,5,15,3,38,0) +100887 +"DATA",1130580001.201,3,5,15,3,39,0) +100888 +"DATA",1130580001.201,3,5,15,3,40,0) +100889 +"DATA",1130580001.201,3,5,15,3,41,0) +100890 +"DATA",1130580001.201,3,5,15,3,42,0) +100891 +"DATA",1130580001.201,3,5,15,3,43,0) +100338 +"DATA",1130580001.201,3,5,15,3,44,0) +100848 +"DATA",1130580001.201,3,5,15,3,45,0) +100845 +"DATA",1130580001.201,3,5,15,3,46,0) +100850 +"DATA",1130580001.201,3,5,15,3,47,0) +100855 +"DATA",1130580001.201,3,5,15,3,48,0) +100846 +"DATA",1130580001.201,3,5,15,3,49,0) +100847 +"DATA",1130580001.201,3,5,15,3,50,0) +100849 +"DATA",1130580001.201,3,5,15,3,51,0) +100858 +"DATA",1130580001.201,3,5,15,3,52,0) +100852 +"DATA",1130580001.201,3,5,15,3,53,0) +100929 +"DATA",1130580001.201,3,5,15,3,54,0) +100930 +"DATA",1130580001.201,3,5,15,3,55,0) +100931 +"DATA",1130580001.201,3,5,15,3,56,0) +100932 +"DATA",1130580001.201,3,5,15,3,57,0) +100933 +"DATA",1130580001.201,3,5,15,3,58,0) +100914 +"DATA",1130580001.201,3,5,15,3,59,0) +100915 +"DATA",1130580001.201,3,5,15,3,60,0) +100917 +"DATA",1130580001.201,3,5,15,3,61,0) +100923 +"DATA",1130580001.201,3,5,15,3,62,0) +100904 +"DATA",1130580001.201,3,5,15,3,63,0) +100905 +"DATA",1130580001.201,3,5,15,3,64,0) +100906 +"DATA",1130580001.201,3,5,15,3,65,0) +100907 +"DATA",1130580001.201,3,5,15,3,66,0) +100909 +"DATA",1130580001.201,3,5,15,3,67,0) +100913 +"DATA",1130580001.201,3,5,15,3,68,0) +100859 +"DATA",1130580001.201,3,5,15,3,69,0) +100860 +"DATA",1130580001.201,3,5,15,3,70,0) +100862 +"DATA",1130580001.201,3,5,15,3,71,0) +100861 +"DATA",1130580001.201,3,5,15,3,72,0) +100863 +"DATA",1130580001.201,3,5,15,3,73,0) +100851 +"DATA",1130580001.201,3,5,15,3,74,0) +100853 +"DATA",1130580001.201,3,5,15,3,75,0) +100856 +"DATA",1130580001.201,3,5,15,3,76,0) +100146 +"DATA",1130580001.201,3,5,15,3,77,0) +100857 +"DATA",1130580001.201,3,5,15,3,78,0) +100955 +"DATA",1130580001.201,3,5,15,3,79,0) +100616 +"DATA",1130580001.201,3,5,15,3,80,0) +100146 +"DATA",1130580001.201,3,5,15,3,81,0) +100499 +"DATA",1130580001.201,3,5,15,3,82,0) +100506 +"DATA",1130580001.201,3,5,15,3,83,0) +774 +"DATA",1130580001.201,3,5,15,3,84,0) +774 +"DATA",1130580001.201,3,5,15,3,85,0) +100667 +"DATA",1130580001.201,3,5,15,3,86,0) +100676 +"DATA",1130580001.201,3,5,15,3,87,0) +100951 +"DATA",1130580001.201,3,5,15,3,88,0) +100952 +"DATA",1130580001.201,3,5,15,3,89,0) +100953 +"DATA",1130580001.201,3,5,15,3,90,0) +100954 +"DATA",1130580001.201,3,5,15,3,91,0) +100934 +"DATA",1130580001.201,3,5,15,3,92,0) +100937 +"DATA",1130580001.201,3,5,15,3,93,0) +100947 +"DATA",1130580001.201,3,5,15,3,94,0) +100948 +"DATA",1130580001.201,3,5,15,3,95,0) +100949 +"DATA",1130580001.201,3,5,15,3,96,0) +249 +"DATA",1130580001.201,3,5,16,0) +6 +"DATA",1130580001.201,3,5,16,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,3,5,16,1,1,0) +100647 +"DATA",1130580001.201,3,5,16,1,2,0) +100894 +"DATA",1130580001.201,3,5,16,1,3,0) +100900 +"DATA",1130580001.201,3,5,16,1,4,0) +100901 +"DATA",1130580001.201,3,5,16,1,5,0) +100902 +"DATA",1130580001.201,3,5,16,1,6,0) +100903 +"DATA",1130580001.201,3,5,16,1,7,0) +100885 +"DATA",1130580001.201,3,5,16,1,8,0) +100887 +"DATA",1130580001.201,3,5,16,1,9,0) +100890 +"DATA",1130580001.201,3,5,16,1,10,0) +100891 +"DATA",1130580001.201,3,5,16,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,3,5,16,3,1,0) +100696 +"DATA",1130580001.201,3,5,16,3,2,0) +100622 +"DATA",1130580001.201,3,5,16,3,3,0) +100662 +"DATA",1130580001.201,3,5,16,3,4,0) +100661 +"DATA",1130580001.201,3,5,16,3,5,0) +100499 +"DATA",1130580001.201,3,5,16,3,6,0) +100506 +"DATA",1130580001.201,3,5,16,3,7,0) +100647 +"DATA",1130580001.201,3,5,16,3,8,0) +100648 +"DATA",1130580001.201,3,5,16,3,9,0) +100649 +"DATA",1130580001.201,3,5,16,3,10,0) +100839 +"DATA",1130580001.201,3,5,16,3,11,0) +100894 +"DATA",1130580001.201,3,5,16,3,12,0) +100895 +"DATA",1130580001.201,3,5,16,3,13,0) +100896 +"DATA",1130580001.201,3,5,16,3,14,0) +100897 +"DATA",1130580001.201,3,5,16,3,15,0) +100898 +"DATA",1130580001.201,3,5,16,3,16,0) +100899 +"DATA",1130580001.201,3,5,16,3,17,0) +100900 +"DATA",1130580001.201,3,5,16,3,18,0) +100901 +"DATA",1130580001.201,3,5,16,3,19,0) +100902 +"DATA",1130580001.201,3,5,16,3,20,0) +100903 +"DATA",1130580001.201,3,5,16,3,21,0) +100885 +"DATA",1130580001.201,3,5,16,3,22,0) +100887 +"DATA",1130580001.201,3,5,16,3,23,0) +100888 +"DATA",1130580001.201,3,5,16,3,24,0) +100889 +"DATA",1130580001.201,3,5,16,3,25,0) +100890 +"DATA",1130580001.201,3,5,16,3,26,0) +100891 +"DATA",1130580001.201,3,5,16,3,27,0) +100929 +"DATA",1130580001.201,3,5,16,3,28,0) +100930 +"DATA",1130580001.201,3,5,16,3,29,0) +100931 +"DATA",1130580001.201,3,5,16,3,30,0) +100932 +"DATA",1130580001.201,3,5,16,3,31,0) +100933 +"DATA",1130580001.201,3,5,16,3,32,0) +100616 +"DATA",1130580001.201,3,5,16,3,33,0) +774 +"DATA",1130580001.201,3,5,16,3,34,0) +100667 +"DATA",1130580001.201,3,5,16,3,35,0) +100676 +"DATA",1130580001.201,3,5,16,3,36,0) +249 +"DATA",1130580001.201,4,0) +MEANINGFUL USE +"DATA",1130580001.201,4,4) +^^3100101^3101231 +"DATA",1130580001.201,4,5,0) +^1130580001.2011P^1^1 +"DATA",1130580001.201,4,5,1,0) +22 +"DATA",1130580001.201,4,5,1,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,4,5,1,1,1,0) +100894 +"DATA",1130580001.201,4,5,1,1,2,0) +100897 +"DATA",1130580001.201,4,5,1,1,3,0) +100885 +"DATA",1130580001.201,4,5,1,1,4,0) +100929 +"DATA",1130580001.201,4,5,1,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,4,5,1,3,1,0) +100894 +"DATA",1130580001.201,4,5,1,3,2,0) +100897 +"DATA",1130580001.201,4,5,1,3,3,0) +100885 +"DATA",1130580001.201,4,5,1,3,4,0) +100929 +"DATA",1130580001.201,4,6) +^^Y +"DATA",1130580001.201,5,0) +HOS 2011 MEANINGFUL USE +"DATA",1130580001.201,5,5,0) +^1130580001.2011P^361^15 +"DATA",1130580001.201,5,5,347,0) +23 +"DATA",1130580001.201,5,5,347,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,347,1,1,0) +109 +"DATA",1130580001.201,5,5,347,1,2,0) +135 +"DATA",1130580001.201,5,5,347,1,3,0) +113 +"DATA",1130580001.201,5,5,347,1,4,0) +138 +"DATA",1130580001.201,5,5,347,1,5,0) +122 +"DATA",1130580001.201,5,5,347,2) +5 +"DATA",1130580001.201,5,5,347,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,347,3,1,0) +109 +"DATA",1130580001.201,5,5,347,3,2,0) +135 +"DATA",1130580001.201,5,5,347,3,3,0) +113 +"DATA",1130580001.201,5,5,347,3,4,0) +138 +"DATA",1130580001.201,5,5,347,3,5,0) +122 +"DATA",1130580001.201,5,5,347,4) +5^100 +"DATA",1130580001.201,5,5,348,0) +24 +"DATA",1130580001.201,5,5,348,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,348,1,1,0) +15 +"DATA",1130580001.201,5,5,348,1,2,0) +152 +"DATA",1130580001.201,5,5,348,2) +2 +"DATA",1130580001.201,5,5,348,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,348,3,1,0) +109 +"DATA",1130580001.201,5,5,348,3,2,0) +135 +"DATA",1130580001.201,5,5,348,3,3,0) +113 +"DATA",1130580001.201,5,5,348,3,4,0) +138 +"DATA",1130580001.201,5,5,348,3,5,0) +122 +"DATA",1130580001.201,5,5,348,4) +5^40 +"DATA",1130580001.201,5,5,349,0) +32 +"DATA",1130580001.201,5,5,349,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,349,1,1,0) +111 +"DATA",1130580001.201,5,5,349,2) +1 +"DATA",1130580001.201,5,5,349,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,349,3,1,0) +146 +"DATA",1130580001.201,5,5,349,3,2,0) +97 +"DATA",1130580001.201,5,5,349,3,3,0) +135 +"DATA",1130580001.201,5,5,349,4) +3^33 +"DATA",1130580001.201,5,5,350,0) +33 +"DATA",1130580001.201,5,5,350,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,350,1,1,0) +146 +"DATA",1130580001.201,5,5,350,1,2,0) +97 +"DATA",1130580001.201,5,5,350,1,3,0) +135 +"DATA",1130580001.201,5,5,350,2) +3 +"DATA",1130580001.201,5,5,350,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,350,3,1,0) +146 +"DATA",1130580001.201,5,5,350,3,2,0) +97 +"DATA",1130580001.201,5,5,350,3,3,0) +135 +"DATA",1130580001.201,5,5,350,4) +3^100 +"DATA",1130580001.201,5,5,351,0) +34 +"DATA",1130580001.201,5,5,351,2) +0 +"DATA",1130580001.201,5,5,351,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,351,3,1,0) +128 +"DATA",1130580001.201,5,5,351,3,2,0) +141 +"DATA",1130580001.201,5,5,351,4) +2^0 +"DATA",1130580001.201,5,5,352,0) +35 +"DATA",1130580001.201,5,5,352,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,352,1,1,0) +128 +"DATA",1130580001.201,5,5,352,2) +1 +"DATA",1130580001.201,5,5,352,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,352,3,1,0) +128 +"DATA",1130580001.201,5,5,352,3,2,0) +141 +"DATA",1130580001.201,5,5,352,4) +2^50 +"DATA",1130580001.201,5,5,353,0) +36 +"DATA",1130580001.201,5,5,353,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,353,1,1,0) +120 +"DATA",1130580001.201,5,5,353,2) +1 +"DATA",1130580001.201,5,5,353,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,353,3,1,0) +127 +"DATA",1130580001.201,5,5,353,3,2,0) +120 +"DATA",1130580001.201,5,5,353,4) +2^50 +"DATA",1130580001.201,5,5,354,0) +37 +"DATA",1130580001.201,5,5,354,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,354,1,1,0) +150 +"DATA",1130580001.201,5,5,354,2) +1 +"DATA",1130580001.201,5,5,354,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,5,5,354,3,1,0) +127 +"DATA",1130580001.201,5,5,354,3,2,0) +120 +"DATA",1130580001.201,5,5,354,3,3,0) +106 +"DATA",1130580001.201,5,5,354,3,4,0) +128 +"DATA",1130580001.201,5,5,354,3,5,0) +150 +"DATA",1130580001.201,5,5,354,3,6,0) +141 +"DATA",1130580001.201,5,5,354,4) +6^17 +"DATA",1130580001.201,5,5,355,0) +25 +"DATA",1130580001.201,5,5,355,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,355,1,1,0) +129 +"DATA",1130580001.201,5,5,355,1,2,0) +111 +"DATA",1130580001.201,5,5,355,2) +2 +"DATA",1130580001.201,5,5,355,3,0) +^1130580001.20112P^15^15 +"DATA",1130580001.201,5,5,355,3,1,0) +144 +"DATA",1130580001.201,5,5,355,3,2,0) +103 +"DATA",1130580001.201,5,5,355,3,3,0) +145 +"DATA",1130580001.201,5,5,355,3,4,0) +123 +"DATA",1130580001.201,5,5,355,3,5,0) +147 +"DATA",1130580001.201,5,5,355,3,6,0) +129 +"DATA",1130580001.201,5,5,355,3,7,0) +149 +"DATA",1130580001.201,5,5,355,3,8,0) +130 +"DATA",1130580001.201,5,5,355,3,9,0) +131 +"DATA",1130580001.201,5,5,355,3,10,0) +109 +"DATA",1130580001.201,5,5,355,3,11,0) +110 +"DATA",1130580001.201,5,5,355,3,12,0) +111 +"DATA",1130580001.201,5,5,355,3,13,0) +134 +"DATA",1130580001.201,5,5,355,3,14,0) +113 +"DATA",1130580001.201,5,5,355,3,15,0) +138 +"DATA",1130580001.201,5,5,355,4) +15^13 +"DATA",1130580001.201,5,5,356,0) +26 +"DATA",1130580001.201,5,5,356,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,356,1,1,0) +131 +"DATA",1130580001.201,5,5,356,2) +1 +"DATA",1130580001.201,5,5,356,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,356,3,1,0) +149 +"DATA",1130580001.201,5,5,356,3,2,0) +130 +"DATA",1130580001.201,5,5,356,3,3,0) +131 +"DATA",1130580001.201,5,5,356,4) +3^33 +"DATA",1130580001.201,5,5,357,0) +27 +"DATA",1130580001.201,5,5,357,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,357,1,1,0) +138 +"DATA",1130580001.201,5,5,357,2) +1 +"DATA",1130580001.201,5,5,357,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,357,3,1,0) +109 +"DATA",1130580001.201,5,5,357,3,2,0) +113 +"DATA",1130580001.201,5,5,357,3,3,0) +138 +"DATA",1130580001.201,5,5,357,4) +3^33 +"DATA",1130580001.201,5,5,358,0) +28 +"DATA",1130580001.201,5,5,358,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,358,1,1,0) +111 +"DATA",1130580001.201,5,5,358,2) +1 +"DATA",1130580001.201,5,5,358,3,0) +^1130580001.20112P^8^8 +"DATA",1130580001.201,5,5,358,3,1,0) +129 +"DATA",1130580001.201,5,5,358,3,2,0) +149 +"DATA",1130580001.201,5,5,358,3,3,0) +130 +"DATA",1130580001.201,5,5,358,3,4,0) +131 +"DATA",1130580001.201,5,5,358,3,5,0) +110 +"DATA",1130580001.201,5,5,358,3,6,0) +111 +"DATA",1130580001.201,5,5,358,3,7,0) +134 +"DATA",1130580001.201,5,5,358,3,8,0) +41 +"DATA",1130580001.201,5,5,358,4) +8^13 +"DATA",1130580001.201,5,5,359,0) +31 +"DATA",1130580001.201,5,5,359,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,359,1,1,0) +144 +"DATA",1130580001.201,5,5,359,1,2,0) +145 +"DATA",1130580001.201,5,5,359,1,3,0) +123 +"DATA",1130580001.201,5,5,359,1,4,0) +147 +"DATA",1130580001.201,5,5,359,1,5,0) +129 +"DATA",1130580001.201,5,5,359,2) +5 +"DATA",1130580001.201,5,5,359,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,5,5,359,3,1,0) +144 +"DATA",1130580001.201,5,5,359,3,2,0) +103 +"DATA",1130580001.201,5,5,359,3,3,0) +145 +"DATA",1130580001.201,5,5,359,3,4,0) +125 +"DATA",1130580001.201,5,5,359,3,5,0) +123 +"DATA",1130580001.201,5,5,359,3,6,0) +147 +"DATA",1130580001.201,5,5,359,3,7,0) +129 +"DATA",1130580001.201,5,5,359,3,8,0) +149 +"DATA",1130580001.201,5,5,359,3,9,0) +130 +"DATA",1130580001.201,5,5,359,3,10,0) +131 +"DATA",1130580001.201,5,5,359,3,11,0) +109 +"DATA",1130580001.201,5,5,359,3,12,0) +110 +"DATA",1130580001.201,5,5,359,3,13,0) +111 +"DATA",1130580001.201,5,5,359,3,14,0) +133 +"DATA",1130580001.201,5,5,359,3,15,0) +134 +"DATA",1130580001.201,5,5,359,3,16,0) +113 +"DATA",1130580001.201,5,5,359,3,17,0) +138 +"DATA",1130580001.201,5,5,359,4) +17^29 +"DATA",1130580001.201,5,5,360,0) +29 +"DATA",1130580001.201,5,5,360,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,360,1,1,0) +144 +"DATA",1130580001.201,5,5,360,2) +1 +"DATA",1130580001.201,5,5,360,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,360,3,1,0) +144 +"DATA",1130580001.201,5,5,360,3,2,0) +103 +"DATA",1130580001.201,5,5,360,3,3,0) +145 +"DATA",1130580001.201,5,5,360,4) +3^33 +"DATA",1130580001.201,5,5,361,0) +30 +"DATA",1130580001.201,5,5,361,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,361,1,1,0) +125 +"DATA",1130580001.201,5,5,361,1,2,0) +123 +"DATA",1130580001.201,5,5,361,1,3,0) +147 +"DATA",1130580001.201,5,5,361,2) +3 +"DATA",1130580001.201,5,5,361,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,5,5,361,3,1,0) +125 +"DATA",1130580001.201,5,5,361,3,2,0) +123 +"DATA",1130580001.201,5,5,361,3,3,0) +127 +"DATA",1130580001.201,5,5,361,3,4,0) +120 +"DATA",1130580001.201,5,5,361,3,5,0) +147 +"DATA",1130580001.201,5,5,361,3,6,0) +107 +"DATA",1130580001.201,5,5,361,3,7,0) +134 +"DATA",1130580001.201,5,5,361,4) +7^43 +"DATA",1130580001.201,6,0) +EP 2011 MEANINGFUL USE +"DATA",1130580001.201,6,5,0) +^1130580001.2011P^214^43 +"DATA",1130580001.201,6,5,172,0) +59 +"DATA",1130580001.201,6,5,172,2) +0 +"DATA",1130580001.201,6,5,173,0) +60 +"DATA",1130580001.201,6,5,173,2) +0 +"DATA",1130580001.201,6,5,174,0) +71 +"DATA",1130580001.201,6,5,174,2) +0 +"DATA",1130580001.201,6,5,175,0) +72 +"DATA",1130580001.201,6,5,175,2) +0 +"DATA",1130580001.201,6,5,176,0) +40 +"DATA",1130580001.201,6,5,176,2) +0 +"DATA",1130580001.201,6,5,177,0) +73 +"DATA",1130580001.201,6,5,177,2) +0 +"DATA",1130580001.201,6,5,178,0) +74 +"DATA",1130580001.201,6,5,178,2) +0 +"DATA",1130580001.201,6,5,179,0) +43 +"DATA",1130580001.201,6,5,179,2) +0 +"DATA",1130580001.201,6,5,179,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,6,5,179,3,1,0) +11 +"DATA",1130580001.201,6,5,179,3,2,0) +30 +"DATA",1130580001.201,6,5,179,3,3,0) +4 +"DATA",1130580001.201,6,5,179,3,4,0) +52 +"DATA",1130580001.201,6,5,179,4) +4^^ +"DATA",1130580001.201,6,5,180,0) +63 +"DATA",1130580001.201,6,5,180,2) +0 +"DATA",1130580001.201,6,5,181,0) +41 +"DATA",1130580001.201,6,5,181,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,6,5,181,1,1,0) +30 +"DATA",1130580001.201,6,5,181,2) +1 +"DATA",1130580001.201,6,5,181,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,6,5,181,3,1,0) +30 +"DATA",1130580001.201,6,5,181,4) +1^^ +"DATA",1130580001.201,6,5,182,0) +50 +"DATA",1130580001.201,6,5,182,2) +0 +"DATA",1130580001.201,6,5,183,0) +75 +"DATA",1130580001.201,6,5,183,2) +0 +"DATA",1130580001.201,6,5,184,0) +76 +"DATA",1130580001.201,6,5,184,2) +0 +"DATA",1130580001.201,6,5,185,0) +51 +"DATA",1130580001.201,6,5,185,2) +0 +"DATA",1130580001.201,6,5,186,0) +77 +"DATA",1130580001.201,6,5,186,2) +0 +"DATA",1130580001.201,6,5,187,0) +44 +"DATA",1130580001.201,6,5,187,2) +0 +"DATA",1130580001.201,6,5,188,0) +42 +"DATA",1130580001.201,6,5,188,2) +0 +"DATA",1130580001.201,6,5,189,0) +58 +"DATA",1130580001.201,6,5,189,2) +0 +"DATA",1130580001.201,6,5,190,0) +78 +"DATA",1130580001.201,6,5,190,2) +0 +"DATA",1130580001.201,6,5,191,0) +64 +"DATA",1130580001.201,6,5,191,2) +0 +"DATA",1130580001.201,6,5,192,0) +66 +"DATA",1130580001.201,6,5,192,2) +0 +"DATA",1130580001.201,6,5,193,0) +45 +"DATA",1130580001.201,6,5,193,2) +0 +"DATA",1130580001.201,6,5,194,0) +47 +"DATA",1130580001.201,6,5,194,2) +0 +"DATA",1130580001.201,6,5,195,0) +65 +"DATA",1130580001.201,6,5,195,2) +0 +"DATA",1130580001.201,6,5,196,0) +46 +"DATA",1130580001.201,6,5,196,2) +0 +"DATA",1130580001.201,6,5,197,0) +52 +"DATA",1130580001.201,6,5,197,2) +0 +"DATA",1130580001.201,6,5,198,0) +70 +"DATA",1130580001.201,6,5,198,2) +0 +"DATA",1130580001.201,6,5,199,0) +49 +"DATA",1130580001.201,6,5,199,2) +0 +"DATA",1130580001.201,6,5,200,0) +69 +"DATA",1130580001.201,6,5,200,2) +0 +"DATA",1130580001.201,6,5,201,0) +67 +"DATA",1130580001.201,6,5,201,2) +0 +"DATA",1130580001.201,6,5,202,0) +79 +"DATA",1130580001.201,6,5,202,2) +0 +"DATA",1130580001.201,6,5,203,0) +48 +"DATA",1130580001.201,6,5,203,2) +0 +"DATA",1130580001.201,6,5,204,0) +53 +"DATA",1130580001.201,6,5,204,2) +0 +"DATA",1130580001.201,6,5,205,0) +68 +"DATA",1130580001.201,6,5,205,2) +0 +"DATA",1130580001.201,6,5,206,0) +55 +"DATA",1130580001.201,6,5,206,2) +0 +"DATA",1130580001.201,6,5,207,0) +56 +"DATA",1130580001.201,6,5,207,2) +0 +"DATA",1130580001.201,6,5,208,0) +57 +"DATA",1130580001.201,6,5,208,2) +0 +"DATA",1130580001.201,6,5,209,0) +54 +"DATA",1130580001.201,6,5,209,2) +0 +"DATA",1130580001.201,6,5,210,0) +61 +"DATA",1130580001.201,6,5,210,2) +0 +"DATA",1130580001.201,6,5,211,0) +39 +"DATA",1130580001.201,6,5,211,2) +0 +"DATA",1130580001.201,6,5,212,0) +80 +"DATA",1130580001.201,6,5,212,2) +0 +"DATA",1130580001.201,6,5,213,0) +62 +"DATA",1130580001.201,6,5,213,2) +0 +"DATA",1130580001.201,6,5,214,0) +81 +"DATA",1130580001.201,6,5,214,2) +0 +"DATA",1130580001.201,7,0) +MU EP 2011 CERTIFICATION +"DATA",1130580001.201,7,5,0) +^1130580001.2011P^133^21 +"DATA",1130580001.201,7,5,113,0) +41 +"DATA",1130580001.201,7,5,113,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,113,1,1,0) +30 +"DATA",1130580001.201,7,5,113,1,2,0) +74 +"DATA",1130580001.201,7,5,113,2) +2 +"DATA",1130580001.201,7,5,113,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,113,3,1,0) +73 +"DATA",1130580001.201,7,5,113,3,2,0) +11 +"DATA",1130580001.201,7,5,113,3,3,0) +80 +"DATA",1130580001.201,7,5,113,3,4,0) +17 +"DATA",1130580001.201,7,5,113,3,5,0) +21 +"DATA",1130580001.201,7,5,113,3,6,0) +23 +"DATA",1130580001.201,7,5,113,3,7,0) +30 +"DATA",1130580001.201,7,5,113,3,8,0) +82 +"DATA",1130580001.201,7,5,113,3,9,0) +77 +"DATA",1130580001.201,7,5,113,3,10,0) +4 +"DATA",1130580001.201,7,5,113,3,11,0) +52 +"DATA",1130580001.201,7,5,113,3,12,0) +75 +"DATA",1130580001.201,7,5,113,4) +12^17 +"DATA",1130580001.201,7,5,114,0) +83 +"DATA",1130580001.201,7,5,114,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,114,1,1,0) +29 +"DATA",1130580001.201,7,5,114,1,2,0) +56 +"DATA",1130580001.201,7,5,114,1,3,0) +58 +"DATA",1130580001.201,7,5,114,1,4,0) +64 +"DATA",1130580001.201,7,5,114,1,5,0) +69 +"DATA",1130580001.201,7,5,114,2) +5 +"DATA",1130580001.201,7,5,114,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,114,3,1,0) +9 +"DATA",1130580001.201,7,5,114,3,2,0) +13 +"DATA",1130580001.201,7,5,114,3,3,0) +29 +"DATA",1130580001.201,7,5,114,3,4,0) +56 +"DATA",1130580001.201,7,5,114,3,5,0) +58 +"DATA",1130580001.201,7,5,114,3,6,0) +59 +"DATA",1130580001.201,7,5,114,3,7,0) +60 +"DATA",1130580001.201,7,5,114,3,8,0) +64 +"DATA",1130580001.201,7,5,114,3,9,0) +65 +"DATA",1130580001.201,7,5,114,3,10,0) +69 +"DATA",1130580001.201,7,5,114,4) +10^50 +"DATA",1130580001.201,7,5,115,0) +42 +"DATA",1130580001.201,7,5,115,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,115,1,1,0) +11 +"DATA",1130580001.201,7,5,115,1,2,0) +80 +"DATA",1130580001.201,7,5,115,1,3,0) +17 +"DATA",1130580001.201,7,5,115,1,4,0) +21 +"DATA",1130580001.201,7,5,115,1,5,0) +30 +"DATA",1130580001.201,7,5,115,1,6,0) +4 +"DATA",1130580001.201,7,5,115,2) +6 +"DATA",1130580001.201,7,5,115,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,7,5,115,3,1,0) +11 +"DATA",1130580001.201,7,5,115,3,2,0) +80 +"DATA",1130580001.201,7,5,115,3,3,0) +17 +"DATA",1130580001.201,7,5,115,3,4,0) +21 +"DATA",1130580001.201,7,5,115,3,5,0) +23 +"DATA",1130580001.201,7,5,115,3,6,0) +30 +"DATA",1130580001.201,7,5,115,3,7,0) +4 +"DATA",1130580001.201,7,5,115,4) +7^86 +"DATA",1130580001.201,7,5,116,0) +45 +"DATA",1130580001.201,7,5,116,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,116,1,1,0) +11 +"DATA",1130580001.201,7,5,116,1,2,0) +77 +"DATA",1130580001.201,7,5,116,1,3,0) +75 +"DATA",1130580001.201,7,5,116,2) +3 +"DATA",1130580001.201,7,5,116,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,116,3,1,0) +73 +"DATA",1130580001.201,7,5,116,3,2,0) +11 +"DATA",1130580001.201,7,5,116,3,3,0) +21 +"DATA",1130580001.201,7,5,116,3,4,0) +23 +"DATA",1130580001.201,7,5,116,3,5,0) +77 +"DATA",1130580001.201,7,5,116,3,6,0) +75 +"DATA",1130580001.201,7,5,116,4) +6^50 +"DATA",1130580001.201,7,5,117,0) +47 +"DATA",1130580001.201,7,5,117,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,117,1,1,0) +73 +"DATA",1130580001.201,7,5,117,1,2,0) +11 +"DATA",1130580001.201,7,5,117,1,3,0) +21 +"DATA",1130580001.201,7,5,117,1,4,0) +75 +"DATA",1130580001.201,7,5,117,2) +4 +"DATA",1130580001.201,7,5,117,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,117,3,1,0) +73 +"DATA",1130580001.201,7,5,117,3,2,0) +11 +"DATA",1130580001.201,7,5,117,3,3,0) +21 +"DATA",1130580001.201,7,5,117,3,4,0) +23 +"DATA",1130580001.201,7,5,117,3,5,0) +77 +"DATA",1130580001.201,7,5,117,3,6,0) +75 +"DATA",1130580001.201,7,5,117,4) +6^67 +"DATA",1130580001.201,7,5,118,0) +46 +"DATA",1130580001.201,7,5,118,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,118,1,1,0) +73 +"DATA",1130580001.201,7,5,118,1,2,0) +21 +"DATA",1130580001.201,7,5,118,1,3,0) +77 +"DATA",1130580001.201,7,5,118,2) +3 +"DATA",1130580001.201,7,5,118,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,118,3,1,0) +73 +"DATA",1130580001.201,7,5,118,3,2,0) +11 +"DATA",1130580001.201,7,5,118,3,3,0) +21 +"DATA",1130580001.201,7,5,118,3,4,0) +23 +"DATA",1130580001.201,7,5,118,3,5,0) +77 +"DATA",1130580001.201,7,5,118,3,6,0) +75 +"DATA",1130580001.201,7,5,118,4) +6^50 +"DATA",1130580001.201,7,5,119,0) +39 +"DATA",1130580001.201,7,5,119,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,119,1,1,0) +73 +"DATA",1130580001.201,7,5,119,1,2,0) +11 +"DATA",1130580001.201,7,5,119,1,3,0) +4 +"DATA",1130580001.201,7,5,119,2) +3 +"DATA",1130580001.201,7,5,119,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,119,3,1,0) +73 +"DATA",1130580001.201,7,5,119,3,2,0) +11 +"DATA",1130580001.201,7,5,119,3,3,0) +80 +"DATA",1130580001.201,7,5,119,3,4,0) +17 +"DATA",1130580001.201,7,5,119,3,5,0) +21 +"DATA",1130580001.201,7,5,119,3,6,0) +23 +"DATA",1130580001.201,7,5,119,3,7,0) +27 +"DATA",1130580001.201,7,5,119,3,8,0) +82 +"DATA",1130580001.201,7,5,119,3,9,0) +77 +"DATA",1130580001.201,7,5,119,3,10,0) +4 +"DATA",1130580001.201,7,5,119,3,11,0) +52 +"DATA",1130580001.201,7,5,119,3,12,0) +75 +"DATA",1130580001.201,7,5,119,4) +12^25 +"DATA",1130580001.201,7,5,120,0) +81 +"DATA",1130580001.201,7,5,120,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,7,5,120,1,1,0) +30 +"DATA",1130580001.201,7,5,120,2) +1 +"DATA",1130580001.201,7,5,120,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,120,3,1,0) +73 +"DATA",1130580001.201,7,5,120,3,2,0) +11 +"DATA",1130580001.201,7,5,120,3,3,0) +80 +"DATA",1130580001.201,7,5,120,3,4,0) +17 +"DATA",1130580001.201,7,5,120,3,5,0) +21 +"DATA",1130580001.201,7,5,120,3,6,0) +23 +"DATA",1130580001.201,7,5,120,3,7,0) +30 +"DATA",1130580001.201,7,5,120,3,8,0) +82 +"DATA",1130580001.201,7,5,120,3,9,0) +77 +"DATA",1130580001.201,7,5,120,3,10,0) +4 +"DATA",1130580001.201,7,5,120,3,11,0) +52 +"DATA",1130580001.201,7,5,120,3,12,0) +75 +"DATA",1130580001.201,7,5,120,4) +12^8 +"DATA",1130580001.201,7,5,121,0) +84 +"DATA",1130580001.201,7,5,121,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,121,1,1,0) +29 +"DATA",1130580001.201,7,5,121,1,2,0) +56 +"DATA",1130580001.201,7,5,121,1,3,0) +58 +"DATA",1130580001.201,7,5,121,1,4,0) +59 +"DATA",1130580001.201,7,5,121,1,5,0) +64 +"DATA",1130580001.201,7,5,121,1,6,0) +69 +"DATA",1130580001.201,7,5,121,2) +6 +"DATA",1130580001.201,7,5,121,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,121,3,1,0) +9 +"DATA",1130580001.201,7,5,121,3,2,0) +13 +"DATA",1130580001.201,7,5,121,3,3,0) +29 +"DATA",1130580001.201,7,5,121,3,4,0) +56 +"DATA",1130580001.201,7,5,121,3,5,0) +58 +"DATA",1130580001.201,7,5,121,3,6,0) +59 +"DATA",1130580001.201,7,5,121,3,7,0) +60 +"DATA",1130580001.201,7,5,121,3,8,0) +64 +"DATA",1130580001.201,7,5,121,3,9,0) +65 +"DATA",1130580001.201,7,5,121,3,10,0) +69 +"DATA",1130580001.201,7,5,121,4) +10^60 +"DATA",1130580001.201,7,5,122,0) +85 +"DATA",1130580001.201,7,5,122,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,122,1,1,0) +29 +"DATA",1130580001.201,7,5,122,1,2,0) +56 +"DATA",1130580001.201,7,5,122,1,3,0) +58 +"DATA",1130580001.201,7,5,122,1,4,0) +60 +"DATA",1130580001.201,7,5,122,1,5,0) +69 +"DATA",1130580001.201,7,5,122,2) +5 +"DATA",1130580001.201,7,5,122,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,122,3,1,0) +9 +"DATA",1130580001.201,7,5,122,3,2,0) +13 +"DATA",1130580001.201,7,5,122,3,3,0) +29 +"DATA",1130580001.201,7,5,122,3,4,0) +56 +"DATA",1130580001.201,7,5,122,3,5,0) +58 +"DATA",1130580001.201,7,5,122,3,6,0) +59 +"DATA",1130580001.201,7,5,122,3,7,0) +60 +"DATA",1130580001.201,7,5,122,3,8,0) +64 +"DATA",1130580001.201,7,5,122,3,9,0) +65 +"DATA",1130580001.201,7,5,122,3,10,0) +69 +"DATA",1130580001.201,7,5,122,4) +10^50 +"DATA",1130580001.201,7,5,123,0) +86 +"DATA",1130580001.201,7,5,123,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,123,1,1,0) +29 +"DATA",1130580001.201,7,5,123,1,2,0) +56 +"DATA",1130580001.201,7,5,123,1,3,0) +58 +"DATA",1130580001.201,7,5,123,1,4,0) +60 +"DATA",1130580001.201,7,5,123,1,5,0) +69 +"DATA",1130580001.201,7,5,123,2) +5 +"DATA",1130580001.201,7,5,123,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,123,3,1,0) +9 +"DATA",1130580001.201,7,5,123,3,2,0) +13 +"DATA",1130580001.201,7,5,123,3,3,0) +29 +"DATA",1130580001.201,7,5,123,3,4,0) +56 +"DATA",1130580001.201,7,5,123,3,5,0) +58 +"DATA",1130580001.201,7,5,123,3,6,0) +59 +"DATA",1130580001.201,7,5,123,3,7,0) +60 +"DATA",1130580001.201,7,5,123,3,8,0) +64 +"DATA",1130580001.201,7,5,123,3,9,0) +65 +"DATA",1130580001.201,7,5,123,3,10,0) +69 +"DATA",1130580001.201,7,5,123,4) +10^50 +"DATA",1130580001.201,7,5,124,0) +87 +"DATA",1130580001.201,7,5,124,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,124,1,1,0) +29 +"DATA",1130580001.201,7,5,124,1,2,0) +56 +"DATA",1130580001.201,7,5,124,1,3,0) +58 +"DATA",1130580001.201,7,5,124,1,4,0) +60 +"DATA",1130580001.201,7,5,124,1,5,0) +69 +"DATA",1130580001.201,7,5,124,2) +5 +"DATA",1130580001.201,7,5,124,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,124,3,1,0) +9 +"DATA",1130580001.201,7,5,124,3,2,0) +13 +"DATA",1130580001.201,7,5,124,3,3,0) +29 +"DATA",1130580001.201,7,5,124,3,4,0) +56 +"DATA",1130580001.201,7,5,124,3,5,0) +58 +"DATA",1130580001.201,7,5,124,3,6,0) +59 +"DATA",1130580001.201,7,5,124,3,7,0) +60 +"DATA",1130580001.201,7,5,124,3,8,0) +64 +"DATA",1130580001.201,7,5,124,3,9,0) +65 +"DATA",1130580001.201,7,5,124,3,10,0) +69 +"DATA",1130580001.201,7,5,124,4) +10^50 +"DATA",1130580001.201,7,5,125,0) +88 +"DATA",1130580001.201,7,5,125,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,125,1,1,0) +29 +"DATA",1130580001.201,7,5,125,1,2,0) +56 +"DATA",1130580001.201,7,5,125,1,3,0) +58 +"DATA",1130580001.201,7,5,125,1,4,0) +64 +"DATA",1130580001.201,7,5,125,1,5,0) +65 +"DATA",1130580001.201,7,5,125,1,6,0) +69 +"DATA",1130580001.201,7,5,125,2) +6 +"DATA",1130580001.201,7,5,125,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,125,3,1,0) +9 +"DATA",1130580001.201,7,5,125,3,2,0) +13 +"DATA",1130580001.201,7,5,125,3,3,0) +29 +"DATA",1130580001.201,7,5,125,3,4,0) +56 +"DATA",1130580001.201,7,5,125,3,5,0) +58 +"DATA",1130580001.201,7,5,125,3,6,0) +59 +"DATA",1130580001.201,7,5,125,3,7,0) +60 +"DATA",1130580001.201,7,5,125,3,8,0) +64 +"DATA",1130580001.201,7,5,125,3,9,0) +65 +"DATA",1130580001.201,7,5,125,3,10,0) +69 +"DATA",1130580001.201,7,5,125,4) +10^60 +"DATA",1130580001.201,7,5,126,0) +89 +"DATA",1130580001.201,7,5,126,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,126,1,1,0) +29 +"DATA",1130580001.201,7,5,126,1,2,0) +56 +"DATA",1130580001.201,7,5,126,1,3,0) +58 +"DATA",1130580001.201,7,5,126,1,4,0) +65 +"DATA",1130580001.201,7,5,126,2) +4 +"DATA",1130580001.201,7,5,126,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,126,3,1,0) +9 +"DATA",1130580001.201,7,5,126,3,2,0) +13 +"DATA",1130580001.201,7,5,126,3,3,0) +29 +"DATA",1130580001.201,7,5,126,3,4,0) +56 +"DATA",1130580001.201,7,5,126,3,5,0) +58 +"DATA",1130580001.201,7,5,126,3,6,0) +59 +"DATA",1130580001.201,7,5,126,3,7,0) +60 +"DATA",1130580001.201,7,5,126,3,8,0) +64 +"DATA",1130580001.201,7,5,126,3,9,0) +65 +"DATA",1130580001.201,7,5,126,3,10,0) +69 +"DATA",1130580001.201,7,5,126,4) +10^40 +"DATA",1130580001.201,7,5,127,0) +90 +"DATA",1130580001.201,7,5,127,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,127,1,1,0) +29 +"DATA",1130580001.201,7,5,127,1,2,0) +56 +"DATA",1130580001.201,7,5,127,1,3,0) +58 +"DATA",1130580001.201,7,5,127,1,4,0) +64 +"DATA",1130580001.201,7,5,127,1,5,0) +65 +"DATA",1130580001.201,7,5,127,2) +5 +"DATA",1130580001.201,7,5,127,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,127,3,1,0) +9 +"DATA",1130580001.201,7,5,127,3,2,0) +13 +"DATA",1130580001.201,7,5,127,3,3,0) +29 +"DATA",1130580001.201,7,5,127,3,4,0) +56 +"DATA",1130580001.201,7,5,127,3,5,0) +58 +"DATA",1130580001.201,7,5,127,3,6,0) +59 +"DATA",1130580001.201,7,5,127,3,7,0) +60 +"DATA",1130580001.201,7,5,127,3,8,0) +64 +"DATA",1130580001.201,7,5,127,3,9,0) +65 +"DATA",1130580001.201,7,5,127,3,10,0) +69 +"DATA",1130580001.201,7,5,127,4) +10^50 +"DATA",1130580001.201,7,5,128,0) +91 +"DATA",1130580001.201,7,5,128,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,128,1,1,0) +29 +"DATA",1130580001.201,7,5,128,1,2,0) +56 +"DATA",1130580001.201,7,5,128,1,3,0) +58 +"DATA",1130580001.201,7,5,128,1,4,0) +60 +"DATA",1130580001.201,7,5,128,1,5,0) +65 +"DATA",1130580001.201,7,5,128,2) +5 +"DATA",1130580001.201,7,5,128,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,128,3,1,0) +9 +"DATA",1130580001.201,7,5,128,3,2,0) +13 +"DATA",1130580001.201,7,5,128,3,3,0) +29 +"DATA",1130580001.201,7,5,128,3,4,0) +56 +"DATA",1130580001.201,7,5,128,3,5,0) +58 +"DATA",1130580001.201,7,5,128,3,6,0) +59 +"DATA",1130580001.201,7,5,128,3,7,0) +60 +"DATA",1130580001.201,7,5,128,3,8,0) +64 +"DATA",1130580001.201,7,5,128,3,9,0) +65 +"DATA",1130580001.201,7,5,128,3,10,0) +69 +"DATA",1130580001.201,7,5,128,4) +10^50 +"DATA",1130580001.201,7,5,129,0) +92 +"DATA",1130580001.201,7,5,129,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,129,1,1,0) +29 +"DATA",1130580001.201,7,5,129,1,2,0) +56 +"DATA",1130580001.201,7,5,129,1,3,0) +58 +"DATA",1130580001.201,7,5,129,1,4,0) +59 +"DATA",1130580001.201,7,5,129,2) +4 +"DATA",1130580001.201,7,5,129,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,129,3,1,0) +9 +"DATA",1130580001.201,7,5,129,3,2,0) +13 +"DATA",1130580001.201,7,5,129,3,3,0) +29 +"DATA",1130580001.201,7,5,129,3,4,0) +56 +"DATA",1130580001.201,7,5,129,3,5,0) +58 +"DATA",1130580001.201,7,5,129,3,6,0) +59 +"DATA",1130580001.201,7,5,129,3,7,0) +60 +"DATA",1130580001.201,7,5,129,3,8,0) +64 +"DATA",1130580001.201,7,5,129,3,9,0) +65 +"DATA",1130580001.201,7,5,129,3,10,0) +69 +"DATA",1130580001.201,7,5,129,4) +10^40 +"DATA",1130580001.201,7,5,130,0) +93 +"DATA",1130580001.201,7,5,130,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,130,1,1,0) +29 +"DATA",1130580001.201,7,5,130,1,2,0) +56 +"DATA",1130580001.201,7,5,130,1,3,0) +58 +"DATA",1130580001.201,7,5,130,1,4,0) +69 +"DATA",1130580001.201,7,5,130,2) +4 +"DATA",1130580001.201,7,5,130,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,130,3,1,0) +9 +"DATA",1130580001.201,7,5,130,3,2,0) +13 +"DATA",1130580001.201,7,5,130,3,3,0) +29 +"DATA",1130580001.201,7,5,130,3,4,0) +56 +"DATA",1130580001.201,7,5,130,3,5,0) +58 +"DATA",1130580001.201,7,5,130,3,6,0) +59 +"DATA",1130580001.201,7,5,130,3,7,0) +60 +"DATA",1130580001.201,7,5,130,3,8,0) +64 +"DATA",1130580001.201,7,5,130,3,9,0) +65 +"DATA",1130580001.201,7,5,130,3,10,0) +69 +"DATA",1130580001.201,7,5,130,4) +10^40 +"DATA",1130580001.201,7,5,131,0) +94 +"DATA",1130580001.201,7,5,131,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,131,1,1,0) +29 +"DATA",1130580001.201,7,5,131,1,2,0) +56 +"DATA",1130580001.201,7,5,131,1,3,0) +58 +"DATA",1130580001.201,7,5,131,2) +3 +"DATA",1130580001.201,7,5,131,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,131,3,1,0) +9 +"DATA",1130580001.201,7,5,131,3,2,0) +13 +"DATA",1130580001.201,7,5,131,3,3,0) +29 +"DATA",1130580001.201,7,5,131,3,4,0) +56 +"DATA",1130580001.201,7,5,131,3,5,0) +58 +"DATA",1130580001.201,7,5,131,3,6,0) +59 +"DATA",1130580001.201,7,5,131,3,7,0) +60 +"DATA",1130580001.201,7,5,131,3,8,0) +64 +"DATA",1130580001.201,7,5,131,3,9,0) +65 +"DATA",1130580001.201,7,5,131,3,10,0) +69 +"DATA",1130580001.201,7,5,131,4) +10^30 +"DATA",1130580001.201,7,5,132,0) +40 +"DATA",1130580001.201,7,5,132,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,132,1,1,0) +17 +"DATA",1130580001.201,7,5,132,1,2,0) +21 +"DATA",1130580001.201,7,5,132,1,3,0) +23 +"DATA",1130580001.201,7,5,132,1,4,0) +30 +"DATA",1130580001.201,7,5,132,1,5,0) +52 +"DATA",1130580001.201,7,5,132,2) +5 +"DATA",1130580001.201,7,5,132,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,7,5,132,3,1,0) +17 +"DATA",1130580001.201,7,5,132,3,2,0) +21 +"DATA",1130580001.201,7,5,132,3,3,0) +23 +"DATA",1130580001.201,7,5,132,3,4,0) +30 +"DATA",1130580001.201,7,5,132,3,5,0) +52 +"DATA",1130580001.201,7,5,132,4) +5^100 +"DATA",1130580001.201,7,5,133,0) +43 +"DATA",1130580001.201,7,5,133,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,133,1,1,0) +13 +"DATA",1130580001.201,7,5,133,1,2,0) +14 +"DATA",1130580001.201,7,5,133,2) +2 +"DATA",1130580001.201,7,5,133,3,0) +^1130580001.20112P^13^13 +"DATA",1130580001.201,7,5,133,3,1,0) +12 +"DATA",1130580001.201,7,5,133,3,2,0) +13 +"DATA",1130580001.201,7,5,133,3,3,0) +14 +"DATA",1130580001.201,7,5,133,3,4,0) +90 +"DATA",1130580001.201,7,5,133,3,5,0) +91 +"DATA",1130580001.201,7,5,133,3,6,0) +29 +"DATA",1130580001.201,7,5,133,3,7,0) +93 +"DATA",1130580001.201,7,5,133,3,8,0) +89 +"DATA",1130580001.201,7,5,133,3,9,0) +153 +"DATA",1130580001.201,7,5,133,3,10,0) +72 +"DATA",1130580001.201,7,5,133,3,11,0) +44 +"DATA",1130580001.201,7,5,133,3,12,0) +56 +"DATA",1130580001.201,7,5,133,3,13,0) +58 +"DATA",1130580001.201,7,5,133,4) +13^15 +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"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^^y^o^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 +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"KRN",.4,1495,-1) +0^3 +"KRN",.4,1495,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3110502 +"KRN",.4,1495,"F",2) +.01~.5~1~2~ +"KRN",.4,1495,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1496,-1) +0^2 +"KRN",.4,1496,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1496,"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,1496,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1497,-1) +0^1 +"KRN",.4,1497,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1497,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1497,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1498,-1) +0^5 +"KRN",.4,1498,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1498,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1498,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1498,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1498,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1498,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1498,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1498,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1499,-1) +0^4 +"KRN",.4,1499,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1499,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1499,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1499,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1499,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1499,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1499,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1499,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1500,-1) +0^6 +"KRN",.4,1500,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3110725 +"KRN",.4,1500,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1500,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1500,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1735,-1) +0^2 +"KRN",.402,1735,0) +C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3110625 +"KRN",.402,1735,"DR",1,1130580001.101) +.01;.5;1;2; +"KRN",.402,1736,-1) +0^1 +"KRN",.402,1736,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1736,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1736,"DR",2,1130580001.2011) +.01; +"KRN",19,11025,-1) +0^9 +"KRN",19,11025,0) +C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^ +"KRN",19,11025,30) +C0Q(101, +"KRN",19,11025,31) +AEMQL +"KRN",19,11025,50) +C0Q(101, +"KRN",19,11025,51) +[C0Q QUALITY MEASURE DEFINITION] +"KRN",19,11025,"U") +QUALITY MEASURE DEFINITION +"KRN",19,11026,-1) +0^8 +"KRN",19,11026,0) +C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^ +"KRN",19,11026,30) +C0Q(201, +"KRN",19,11026,31) +AEMQL +"KRN",19,11026,50) +C0Q(201, +"KRN",19,11026,51) +[C0Q MEASUREMENT SET DEFINE] +"KRN",19,11026,"U") +MEASURE SET DEFINITION +"KRN",19,11027,-1) +0^10 +"KRN",19,11027,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11027,10,0) +^19.01IP^14^14 +"KRN",19,11027,10,1,0) +11026 +"KRN",19,11027,10,1,"^") +C0Q MEASURE SET DEFINITION +"KRN",19,11027,10,2,0) +11025 +"KRN",19,11027,10,2,"^") +C0Q QUALITY MEASURE DEFINITION +"KRN",19,11027,10,6,0) +11031 +"KRN",19,11027,10,6,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11027,10,7,0) +11032 +"KRN",19,11027,10,7,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11027,10,9,0) +11034 +"KRN",19,11027,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11027,10,11,0) +11036 +"KRN",19,11027,10,11,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11027,10,12,0) +11037 +"KRN",19,11027,10,12,"^") +C0Q PQRI MENU +"KRN",19,11027,10,13,0) +11038 +"KRN",19,11027,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11027,10,14,0) +11044 +"KRN",19,11027,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11027,99) +62256,55000 +"KRN",19,11027,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11028,-1) +0^4 +"KRN",19,11028,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^ +"KRN",19,11028,60) +C0Q(101, +"KRN",19,11028,62) +0 +"KRN",19,11028,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11028,64) + +"KRN",19,11028,65) + +"KRN",19,11028,66) + +"KRN",19,11028,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11029,-1) +0^3 +"KRN",19,11029,0) +C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^ +"KRN",19,11029,60) +C0Q(201, +"KRN",19,11029,62) +0 +"KRN",19,11029,63) +[C0Q PRINT MEASUREMENT SET] +"KRN",19,11029,64) + +"KRN",19,11029,65) + +"KRN",19,11029,66) + +"KRN",19,11029,"U") +DISPLAY MEASURE SET +"KRN",19,11030,-1) +0^7 +"KRN",19,11030,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11030,25) +EN^C0QMAIN +"KRN",19,11030,"U") +LIST MEASURE SET +"KRN",19,11031,-1) +0^1 +"KRN",19,11031,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11031,25) +NBYP^C0QMAIN +"KRN",19,11031,"U") +BY PATIENT NUMERATOR +"KRN",19,11032,-1) +0^2 +"KRN",19,11032,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11032,25) +DBYP^C0QMAIN +"KRN",19,11032,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11033,-1) +0^5 +"KRN",19,11033,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11033,25) +EXPORT^C0QMAIN +"KRN",19,11033,"U") +EXPORT CCR BY MEASURE +"KRN",19,11034,-1) +0^12 +"KRN",19,11034,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11034,25) +EN2^C0QMAIN +"KRN",19,11034,"U") +COPY OVER PATIENT LISTS +"KRN",19,11035,-1) +0^6 +"KRN",19,11035,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11035,25) +ENEXP^C0QMAIN +"KRN",19,11035,"U") +ALL MEASURES EXPORT +"KRN",19,11036,-1) +0^15 +"KRN",19,11036,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11036,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11036,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11036,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11036,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11036,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11036,25) +QUE^C0QMAIN +"KRN",19,11036,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11037,-1) +0^13 +"KRN",19,11037,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11037,10,0) +^19.01IP^3^3 +"KRN",19,11037,10,1,0) +11035 +"KRN",19,11037,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11037,10,2,0) +11033 +"KRN",19,11037,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11037,10,3,0) +11030 +"KRN",19,11037,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11037,99) +62224,44994 +"KRN",19,11037,"U") +PQRI MENU +"KRN",19,11038,-1) +0^14 +"KRN",19,11038,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11038,30) +C0Q(201, +"KRN",19,11038,31) +AEMQ +"KRN",19,11038,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11038,80) +C0Q(201, +"KRN",19,11038,"U") +PRINT C0Q MEASURES +"KRN",19,11044,-1) +0^16 +"KRN",19,11044,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11044,25) +EN^C0QPQRI +"KRN",19,11044,"U") +PQRI PRINT XML +"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") +7 +"RTN","C0QERTIM") +0^5^B7596326 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; +"RTN","C0QERTIM",2,0) + ;;0.1;C0Q;;;Build 11 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QERTIM",58,0) + +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 11 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 11 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 11 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QIMMUN") +0^6^B6463760 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; +"RTN","C0QIMMUN",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 11 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",7,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",8,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",9,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",10,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",11,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",12,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",13,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",14,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",15,0) + . D:Y>0 +"RTN","C0QIMMUN",16,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",17,0) + . . L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",18,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",19,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",20,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",21,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",22,0) + . . Q +"RTN","C0QIMMUN",23,0) + . Q +"RTN","C0QIMMUN",24,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",25,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",26,0) + L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",27,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",28,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",29,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",30,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",31,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",32,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",33,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",34,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",35,0) + . Q +"RTN","C0QIMMUN",36,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",37,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",38,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",39,0) + Q +"RTN","C0QIMMUN",40,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",41,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",42,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",43,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",44,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",45,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",46,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",47,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",48,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",49,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",50,0) + . Q +"RTN","C0QIMMUN",51,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",52,0) + Q +"RTN","C0QMAIN") +0^1^B105659889 +"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 11 +"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) + ; iterate over the measures +"RTN","C0QMAIN",151,0) + S MEASURE=0 +"RTN","C0QMAIN",152,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",153,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",154,0) + . ; now count the numerator patients +"RTN","C0QMAIN",155,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",156,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",157,0) + . ; and count the denominator patients +"RTN","C0QMAIN",158,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",159,0) + . Q:DENOM=0 +"RTN","C0QMAIN",160,0) + . ; and stuff the values +"RTN","C0QMAIN",161,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",162,0) + . Q +"RTN","C0QMAIN",163,0) + Q +"RTN","C0QMAIN",164,0) + ; +"RTN","C0QMAIN",165,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",166,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",167,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",168,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",169,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",170,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",171,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",172,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",173,0) + N ZI S ZI="" +"RTN","C0QMAIN",174,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",175,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",176,0) + D DELIST("C0QM") +"RTN","C0QMAIN",177,0) + N ZII S ZII="" +"RTN","C0QMAIN",178,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",179,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",180,0) + K C0QM +"RTN","C0QMAIN",181,0) + D CLEAN^DILF +"RTN","C0QMAIN",182,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",183,0) + D DELIST("C0QM") +"RTN","C0QMAIN",184,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",185,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",186,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",187,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",188,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",189,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",190,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",191,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",192,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",193,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",194,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",195,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",196,0) + . D LIST^DIC($$RLSTPFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",197,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",198,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",199,0) + . K C0QNUMP +"RTN","C0QMAIN",200,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",201,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",202,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",203,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",204,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",205,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",206,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",207,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",208,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",209,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",210,0) + . D LIST^DIC($$RLSTPFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",211,0) + . ;D DELIST("G") +"RTN","C0QMAIN",212,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",213,0) + . ;S ZJ="" +"RTN","C0QMAIN",214,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",215,0) + . K C0QDEMP +"RTN","C0QMAIN",216,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",217,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",218,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",219,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",220,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",221,0) + . ;E D ; +"RTN","C0QMAIN",222,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",223,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",224,0) + Q +"RTN","C0QMAIN",225,0) + ; +"RTN","C0QMAIN",226,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",227,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",228,0) + ; +"RTN","C0QMAIN",229,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",230,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",231,0) + D CLEAN^DILF +"RTN","C0QMAIN",232,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",233,0) + D CLEAN^DILF +"RTN","C0QMAIN",234,0) + K ZERR +"RTN","C0QMAIN",235,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",236,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",237,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",238,0) + ;. W "ERROR",! +"RTN","C0QMAIN",239,0) + ;. ZWR ZERR +"RTN","C0QMAIN",240,0) + ;. B +"RTN","C0QMAIN",241,0) + K C0QFDA +"RTN","C0QMAIN",242,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",243,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",244,0) + Q +"RTN","C0QMAIN",245,0) + ; +"RTN","C0QMAIN",246,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",247,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",248,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",249,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",250,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",251,0) + N C0QI,C0QJ +"RTN","C0QMAIN",252,0) + N C0QFDA +"RTN","C0QMAIN",253,0) + S C0QI="" +"RTN","C0QMAIN",254,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",255,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",256,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",257,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",258,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",259,0) + K C0QFDA +"RTN","C0QMAIN",260,0) + S C0QI="" +"RTN","C0QMAIN",261,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",262,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",263,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",264,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",265,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",266,0) + Q +"RTN","C0QMAIN",267,0) + ; +"RTN","C0QMAIN",268,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",269,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",270,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",271,0) + S ZI="" +"RTN","C0QMAIN",272,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",273,0) + K @RTN +"RTN","C0QMAIN",274,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",275,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",276,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",277,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",278,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",279,0) + Q +"RTN","C0QMAIN",280,0) + ; +"RTN","C0QMAIN",281,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",282,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",283,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",284,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",285,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",286,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",287,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",288,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",289,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",290,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",291,0) + N C0QI,C0QJ +"RTN","C0QMAIN",292,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",293,0) + K C0QFDA +"RTN","C0QMAIN",294,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",295,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",296,0) + ;D +"RTN","C0QMAIN",297,0) + Q +"RTN","C0QMAIN",298,0) + ; +"RTN","C0QMAIN",299,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",300,0) + K ZERR +"RTN","C0QMAIN",301,0) + D CLEAN^DILF +"RTN","C0QMAIN",302,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",303,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",304,0) + ;. W "ERROR",! +"RTN","C0QMAIN",305,0) + ;. ZWR ZERR +"RTN","C0QMAIN",306,0) + ;. B +"RTN","C0QMAIN",307,0) + K C0QFDA +"RTN","C0QMAIN",308,0) + Q +"RTN","C0QMAIN",309,0) + ; +"RTN","C0QMAIN",310,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",311,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",312,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",313,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",314,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",315,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",316,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",317,0) + S ZTIO="" +"RTN","C0QMAIN",318,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",319,0) + D ^%ZTLOAD +"RTN","C0QMAIN",320,0) + Q +"RTN","C0QMAIN",321,0) + ; +"RTN","C0QMAIN",322,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",323,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",324,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",325,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",326,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",327,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",328,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",329,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",330,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",331,0) + N ZI S ZI="" +"RTN","C0QMAIN",332,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",333,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",334,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",335,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",336,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",337,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",338,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",339,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",340,0) + Q +"RTN","C0QPQRI") +0^7^B41579607 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 +"RTN","C0QPQRI",2,0) + ;;0.1;C0C;nopatch;noreleasedate;Build 11 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.8^10 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3110615 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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^7 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3110621 +"^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") +3110621 +"^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^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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** diff --git a/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T5.KID b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T5.KID new file mode 100644 index 0000000..6d25ba1 --- /dev/null +++ b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T5.KID @@ -0,0 +1,12470 @@ +KIDS Distribution saved on Aug 16, 2011@13:59:21 +added MU patient list file and processing +**KIDS**:C0Q*1.0*0^ + +**INSTALL NAME** +C0Q*1.0*0 +"BLD",7812,0) +C0Q*1.0*0^^0^3110816^n +"BLD",7812,4,0) +^9.64PA^1130580001.301^4 +"BLD",7812,4,178.301,0) +178.301 +"BLD",7812,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.101,0) +1130580001.101 +"BLD",7812,4,1130580001.101,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.201,0) +1130580001.201 +"BLD",7812,4,1130580001.201,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.301,0) +1130580001.301 +"BLD",7812,4,1130580001.301,222) +y^y^f^^n^^y^m^n +"BLD",7812,4,"B",178.301,178.301) + +"BLD",7812,4,"B",1130580001.101,1130580001.101) + +"BLD",7812,4,"B",1130580001.201,1130580001.201) + +"BLD",7812,4,"B",1130580001.301,1130580001.301) + +"BLD",7812,6.3) +12 +"BLD",7812,"KRN",0) +^9.67PA^779.2^20 +"BLD",7812,"KRN",.4,0) +.4 +"BLD",7812,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7812,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7812,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7812,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7812,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7812,"KRN",.401,0) +.401 +"BLD",7812,"KRN",.402,0) +.402 +"BLD",7812,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7812,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.402,"NM",2,0) +C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101^1130580001.101^0 +"BLD",7812,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7812,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101",2) + +"BLD",7812,"KRN",.403,0) +.403 +"BLD",7812,"KRN",.5,0) +.5 +"BLD",7812,"KRN",.84,0) +.84 +"BLD",7812,"KRN",3.6,0) +3.6 +"BLD",7812,"KRN",3.8,0) +3.8 +"BLD",7812,"KRN",9.2,0) +9.2 +"BLD",7812,"KRN",9.8,0) +9.8 +"BLD",7812,"KRN",9.8,"NM",0) +^9.68A^8^8 +"BLD",7812,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B114653305 +"BLD",7812,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7812,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7812,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7812,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7596326 +"BLD",7812,"KRN",9.8,"NM",6,0) +C0QIMMUN^^0^B6463760 +"BLD",7812,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41579607 +"BLD",7812,"KRN",9.8,"NM",8,0) +C0QPRML^^0^B30599131 +"BLD",7812,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7812,"KRN",9.8,"NM","B","C0QIMMUN",6) + +"BLD",7812,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7812,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7812,"KRN",9.8,"NM","B","C0QPRML",8) + +"BLD",7812,"KRN",19,0) +19 +"BLD",7812,"KRN",19,"NM",0) +^9.68A^16^15 +"BLD",7812,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7812,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7812,"KRN",19,"NM",3,0) +C0Q DISPLAY MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7812,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7812,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",8,0) +C0Q MEASURE SET DEFINITION^^0 +"BLD",7812,"KRN",19,"NM",9,0) +C0Q QUALITY MEASURE DEFINITION^^0 +"BLD",7812,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7812,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7812,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7812,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7812,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7812,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7812,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7812,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7812,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7812,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3) + +"BLD",7812,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7812,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7812,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7812,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7812,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8) + +"BLD",7812,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7812,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7812,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7812,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9) + +"BLD",7812,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7812,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7812,"KRN",19.1,0) +19.1 +"BLD",7812,"KRN",101,0) +101 +"BLD",7812,"KRN",409.61,0) +409.61 +"BLD",7812,"KRN",771,0) +771 +"BLD",7812,"KRN",779.2,0) +779.2 +"BLD",7812,"KRN",870,0) +870 +"BLD",7812,"KRN",8989.51,0) +8989.51 +"BLD",7812,"KRN",8989.52,0) +8989.52 +"BLD",7812,"KRN",8994,0) +8994 +"BLD",7812,"KRN","B",.4,.4) + +"BLD",7812,"KRN","B",.401,.401) + +"BLD",7812,"KRN","B",.402,.402) + +"BLD",7812,"KRN","B",.403,.403) + +"BLD",7812,"KRN","B",.5,.5) + +"BLD",7812,"KRN","B",.84,.84) + +"BLD",7812,"KRN","B",3.6,3.6) + +"BLD",7812,"KRN","B",3.8,3.8) + +"BLD",7812,"KRN","B",9.2,9.2) + +"BLD",7812,"KRN","B",9.8,9.8) + +"BLD",7812,"KRN","B",19,19) + +"BLD",7812,"KRN","B",19.1,19.1) + +"BLD",7812,"KRN","B",101,101) + +"BLD",7812,"KRN","B",409.61,409.61) + +"BLD",7812,"KRN","B",771,771) + +"BLD",7812,"KRN","B",779.2,779.2) + +"BLD",7812,"KRN","B",870,870) + +"BLD",7812,"KRN","B",8989.51,8989.51) + +"BLD",7812,"KRN","B",8989.52,8989.52) + +"BLD",7812,"KRN","B",8994,8994) + +"BLD",7812,"QUES",0) +^9.62^^ +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"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) +^1130580001.111^3^3^3110412^^ +"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 +"DATA",1130580001.101,22,0) +TEST M0028A^107^106^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,22,1) +Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,4) +PQRI-28 +"DATA",1130580001.101,22,5) +Preventive care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,6,0) +^1130580001.111^4^4^3110427^^^^ +"DATA",1130580001.101,22,6,1,0) +Percentage of patients aged 18 years of older who were screene +"DATA",1130580001.101,22,6,2,0) +d about tobacco use at least once during the two year measurement period +"DATA",1130580001.101,22,6,3,0) +AND who received smoking cessation counseling if identified as a tobacco +"DATA",1130580001.101,22,6,4,0) +user +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^53^135 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^54^94 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^55^56 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^57^58 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^59^60 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^61^62 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^63^64 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^65^66 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^67^68 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^44^43 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^69^45 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^70^71 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^72^73 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^74^75 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^76^77 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376 +"DATA",1130580001.101,38,0) +12 +"DATA",1130580001.101,39,0) +MU EP NQF 0421^156^152 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421 +"DATA",1130580001.101,40,0) +MU EP NQF 0013^99^40 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013 +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^102^100 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A +"DATA",1130580001.101,42,0) +MU EP NQF 0041^144^132 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041 +"DATA",1130580001.101,43,0) +MU EP NQF 0024^42^41 +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. +"DATA",1130580001.101,43,7) +NQF0024 +"DATA",1130580001.101,44,0) +MU EP NQF 0038 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038 +"DATA",1130580001.101,45,0) +MU EP NQF 0059^146^145 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059 +"DATA",1130580001.101,46,0) +MU EP NQF 0064^139^145 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064 +"DATA",1130580001.101,47,0) +MU EP NQF 0061^147^145 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061 +"DATA",1130580001.101,48,0) +MU EP NQF 0081 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081 +"DATA",1130580001.101,49,0) +MU EP NQF 0070 +"DATA",1130580001.101,49,1) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,5) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients 65 years of age and older who have ever +"DATA",1130580001.101,49,6,2,0) +received a pneumococcal vaccine. +"DATA",1130580001.101,49,7) +NQF0070 +"DATA",1130580001.101,50,0) +MU EP NQF 0031 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031 +"DATA",1130580001.101,51,0) +MU EP NQF 0034 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034 +"DATA",1130580001.101,52,0) +MU EP NQF 0067 +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067 +"DATA",1130580001.101,53,0) +MU EP NQF 0083 +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083 +"DATA",1130580001.101,54,0) +MU EP NQF 0105 +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105 +"DATA",1130580001.101,55,0) +MU EP NQF 0086 +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086 +"DATA",1130580001.101,56,0) +MU EP NQF 0088 +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088 +"DATA",1130580001.101,57,0) +MU EP NQF 0089 +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089 +"DATA",1130580001.101,58,0) +MU EP NQF 0047 +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047 +"DATA",1130580001.101,59,0) +MU EP NQF 0001 +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001 +"DATA",1130580001.101,60,0) +MU EP NQF 0002 +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002 +"DATA",1130580001.101,61,0) +MU EP NQF 0385 +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385 +"DATA",1130580001.101,62,0) +MU EP NQF 0389 +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389 +"DATA",1130580001.101,63,0) +MU EP NQF 0027 +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027 +"DATA",1130580001.101,64,0) +MU EP NQF 0055 +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055 +"DATA",1130580001.101,65,0) +MU EP NQF 0062 +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062 +"DATA",1130580001.101,66,0) +MU EP NQF 0056 +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056 +"DATA",1130580001.101,67,0) +MU EP NQF 0074 +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074 +"DATA",1130580001.101,68,0) +MU EP NQF 0084 +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084 +"DATA",1130580001.101,69,0) +MU EP NQF 0073 +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073 +"DATA",1130580001.101,70,0) +MU EP NQF 0068 +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068 +"DATA",1130580001.101,71,0) +MU EP NQF 0004 +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004 +"DATA",1130580001.101,72,0) +MU EP NQF 0012 +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012 +"DATA",1130580001.101,73,0) +MU EP NQF 0014 +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014 +"DATA",1130580001.101,74,0) +MU EP NQF 0018 +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018 +"DATA",1130580001.101,75,0) +MU EP NQF 0032 +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032 +"DATA",1130580001.101,76,0) +MU EP NQF 0033 +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033 +"DATA",1130580001.101,77,0) +MU EP NQF 0036 +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036 +"DATA",1130580001.101,78,0) +MU EP NQF 0052 +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052 +"DATA",1130580001.101,79,0) +MU EP NQF 0075 +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075 +"DATA",1130580001.101,80,0) +MU EP NQF 0575 +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575 +"DATA",1130580001.101,81,0) +MU EP NQF 0028B^104^103 +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B +"DATA",1130580001.101,82,0) +MU EP 0028B +"DATA",1130580001.101,83,0) +NQF0038 NUM1 DPT^115^109 +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT +"DATA",1130580001.101,84,0) +NQF0038 NUM2 IPV^123^109 +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV +"DATA",1130580001.101,85,0) +NQF0038 NUM3 MMR^114^109 +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR +"DATA",1130580001.101,86,0) +NQF0038 NUM4 HiB^116^109 +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB +"DATA",1130580001.101,87,0) +NQF0038 NUM5 HEP B^117^109 +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,88,0) +NQF0038 NUM6 VZV^118^109 +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV +"DATA",1130580001.101,89,0) +NQF0038 NUM7 PCV^119^109 +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV +"DATA",1130580001.101,90,0) +NQF0038 NUM8 HEP A^120^109 +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,91,0) +NQF0038 NUM9^121^109 +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9 +"DATA",1130580001.101,92,0) +NQF0038 NUM10^122^109 +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10 +"DATA",1130580001.101,93,0) +NQF0038 NUM11 COMBO5^124^109 +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,94,0) +NQF0038 NUM12 COMBO6^125^109 +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,95,7) +^15^14^^17 +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,96,7) +^10^1^^11 +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,97,7) +^19^21^^20 +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,98,7) +^2^1^^3 +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,99,7) +^16^1^^18 +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,100,7) +^12^1^^13 +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,101,7) +^4^1^^5 +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,102,7) +^6^1^^7 +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,103,7) +^8^1^^9 +"DATA",1130580001.201,1,0) +SAMPLE MEASURE SET +"DATA",1130580001.201,1,4) +^^3100101^3101231 +"DATA",1130580001.201,1,5,0) +^1130580001.2011P^618^21 +"DATA",1130580001.201,1,5,10,0) +15 +"DATA",1130580001.201,1,5,10,2) +0 +"DATA",1130580001.201,1,5,599,0) +3 +"DATA",1130580001.201,1,5,599,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,599,1,1,0) +100884 +"DATA",1130580001.201,1,5,599,1,2,0) +100885 +"DATA",1130580001.201,1,5,599,1,3,0) +100886 +"DATA",1130580001.201,1,5,599,1,4,0) +100887 +"DATA",1130580001.201,1,5,599,1,5,0) +100888 +"DATA",1130580001.201,1,5,599,1,6,0) +100848 +"DATA",1130580001.201,1,5,599,1,7,0) +100904 +"DATA",1130580001.201,1,5,599,1,8,0) +100905 +"DATA",1130580001.201,1,5,599,1,9,0) +100906 +"DATA",1130580001.201,1,5,599,1,10,0) +100907 +"DATA",1130580001.201,1,5,599,2) +10 +"DATA",1130580001.201,1,5,599,3,0) +^1130580001.20112P^45^45 +"DATA",1130580001.201,1,5,599,3,1,0) +100095 +"DATA",1130580001.201,1,5,599,3,2,0) +100839 +"DATA",1130580001.201,1,5,599,3,3,0) +100878 +"DATA",1130580001.201,1,5,599,3,4,0) +100879 +"DATA",1130580001.201,1,5,599,3,5,0) +100880 +"DATA",1130580001.201,1,5,599,3,6,0) +100881 +"DATA",1130580001.201,1,5,599,3,7,0) +100882 +"DATA",1130580001.201,1,5,599,3,8,0) +100894 +"DATA",1130580001.201,1,5,599,3,9,0) +100895 +"DATA",1130580001.201,1,5,599,3,10,0) +100896 +"DATA",1130580001.201,1,5,599,3,11,0) +100897 +"DATA",1130580001.201,1,5,599,3,12,0) +100898 +"DATA",1130580001.201,1,5,599,3,13,0) +100899 +"DATA",1130580001.201,1,5,599,3,14,0) +100900 +"DATA",1130580001.201,1,5,599,3,15,0) +100901 +"DATA",1130580001.201,1,5,599,3,16,0) +100902 +"DATA",1130580001.201,1,5,599,3,17,0) +100903 +"DATA",1130580001.201,1,5,599,3,18,0) +100884 +"DATA",1130580001.201,1,5,599,3,19,0) +100885 +"DATA",1130580001.201,1,5,599,3,20,0) +100886 +"DATA",1130580001.201,1,5,599,3,21,0) +100887 +"DATA",1130580001.201,1,5,599,3,22,0) +100888 +"DATA",1130580001.201,1,5,599,3,23,0) +100338 +"DATA",1130580001.201,1,5,599,3,24,0) +100848 +"DATA",1130580001.201,1,5,599,3,25,0) +100845 +"DATA",1130580001.201,1,5,599,3,26,0) +100850 +"DATA",1130580001.201,1,5,599,3,27,0) +100855 +"DATA",1130580001.201,1,5,599,3,28,0) +100929 +"DATA",1130580001.201,1,5,599,3,29,0) +100930 +"DATA",1130580001.201,1,5,599,3,30,0) +100931 +"DATA",1130580001.201,1,5,599,3,31,0) +100932 +"DATA",1130580001.201,1,5,599,3,32,0) +100933 +"DATA",1130580001.201,1,5,599,3,33,0) +100914 +"DATA",1130580001.201,1,5,599,3,34,0) +100915 +"DATA",1130580001.201,1,5,599,3,35,0) +100917 +"DATA",1130580001.201,1,5,599,3,36,0) +100904 +"DATA",1130580001.201,1,5,599,3,37,0) +100905 +"DATA",1130580001.201,1,5,599,3,38,0) +100906 +"DATA",1130580001.201,1,5,599,3,39,0) +100907 +"DATA",1130580001.201,1,5,599,3,40,0) +100913 +"DATA",1130580001.201,1,5,599,3,41,0) +100859 +"DATA",1130580001.201,1,5,599,3,42,0) +100860 +"DATA",1130580001.201,1,5,599,3,43,0) +100862 +"DATA",1130580001.201,1,5,599,3,44,0) +100861 +"DATA",1130580001.201,1,5,599,3,45,0) +100863 +"DATA",1130580001.201,1,5,599,4) +45 +"DATA",1130580001.201,1,5,600,0) +4 +"DATA",1130580001.201,1,5,600,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,1,5,600,1,1,0) +100095 +"DATA",1130580001.201,1,5,600,1,2,0) +100696 +"DATA",1130580001.201,1,5,600,1,3,0) +100622 +"DATA",1130580001.201,1,5,600,1,4,0) +100662 +"DATA",1130580001.201,1,5,600,1,5,0) +100661 +"DATA",1130580001.201,1,5,600,1,6,0) +100499 +"DATA",1130580001.201,1,5,600,1,7,0) +100506 +"DATA",1130580001.201,1,5,600,1,8,0) +100647 +"DATA",1130580001.201,1,5,600,1,9,0) +100648 +"DATA",1130580001.201,1,5,600,1,10,0) +100649 +"DATA",1130580001.201,1,5,600,1,11,0) +100839 +"DATA",1130580001.201,1,5,600,1,12,0) +100942 +"DATA",1130580001.201,1,5,600,1,13,0) +100943 +"DATA",1130580001.201,1,5,600,1,14,0) +100935 +"DATA",1130580001.201,1,5,600,1,15,0) +100941 +"DATA",1130580001.201,1,5,600,1,16,0) +100878 +"DATA",1130580001.201,1,5,600,1,17,0) +100879 +"DATA",1130580001.201,1,5,600,1,18,0) +100880 +"DATA",1130580001.201,1,5,600,1,19,0) +100881 +"DATA",1130580001.201,1,5,600,1,20,0) +100882 +"DATA",1130580001.201,1,5,600,1,21,0) +100874 +"DATA",1130580001.201,1,5,600,1,22,0) +100875 +"DATA",1130580001.201,1,5,600,1,23,0) +100876 +"DATA",1130580001.201,1,5,600,1,24,0) +100883 +"DATA",1130580001.201,1,5,600,1,25,0) +100894 +"DATA",1130580001.201,1,5,600,1,26,0) +100895 +"DATA",1130580001.201,1,5,600,1,27,0) +100896 +"DATA",1130580001.201,1,5,600,1,28,0) +100897 +"DATA",1130580001.201,1,5,600,1,29,0) +100898 +"DATA",1130580001.201,1,5,600,1,30,0) +100899 +"DATA",1130580001.201,1,5,600,1,31,0) +100900 +"DATA",1130580001.201,1,5,600,1,32,0) +100901 +"DATA",1130580001.201,1,5,600,1,33,0) +100902 +"DATA",1130580001.201,1,5,600,1,34,0) +100903 +"DATA",1130580001.201,1,5,600,1,35,0) +100884 +"DATA",1130580001.201,1,5,600,1,36,0) +100885 +"DATA",1130580001.201,1,5,600,1,37,0) +100886 +"DATA",1130580001.201,1,5,600,1,38,0) +100887 +"DATA",1130580001.201,1,5,600,1,39,0) +100888 +"DATA",1130580001.201,1,5,600,1,40,0) +100889 +"DATA",1130580001.201,1,5,600,1,41,0) +100890 +"DATA",1130580001.201,1,5,600,1,42,0) +100891 +"DATA",1130580001.201,1,5,600,1,43,0) +100338 +"DATA",1130580001.201,1,5,600,1,44,0) +100848 +"DATA",1130580001.201,1,5,600,1,45,0) +100845 +"DATA",1130580001.201,1,5,600,1,46,0) +100850 +"DATA",1130580001.201,1,5,600,1,47,0) +100855 +"DATA",1130580001.201,1,5,600,1,48,0) +100846 +"DATA",1130580001.201,1,5,600,1,49,0) +100847 +"DATA",1130580001.201,1,5,600,1,50,0) +100849 +"DATA",1130580001.201,1,5,600,1,51,0) +100858 +"DATA",1130580001.201,1,5,600,1,52,0) +100852 +"DATA",1130580001.201,1,5,600,1,53,0) +100929 +"DATA",1130580001.201,1,5,600,1,54,0) +100930 +"DATA",1130580001.201,1,5,600,1,55,0) +100931 +"DATA",1130580001.201,1,5,600,1,56,0) +100932 +"DATA",1130580001.201,1,5,600,1,57,0) +100933 +"DATA",1130580001.201,1,5,600,1,58,0) +100914 +"DATA",1130580001.201,1,5,600,1,59,0) +100915 +"DATA",1130580001.201,1,5,600,1,60,0) +100917 +"DATA",1130580001.201,1,5,600,1,61,0) +100923 +"DATA",1130580001.201,1,5,600,1,62,0) +100904 +"DATA",1130580001.201,1,5,600,1,63,0) +100905 +"DATA",1130580001.201,1,5,600,1,64,0) +100906 +"DATA",1130580001.201,1,5,600,1,65,0) +100907 +"DATA",1130580001.201,1,5,600,1,66,0) +100909 +"DATA",1130580001.201,1,5,600,1,67,0) +100913 +"DATA",1130580001.201,1,5,600,1,68,0) +100859 +"DATA",1130580001.201,1,5,600,1,69,0) +100860 +"DATA",1130580001.201,1,5,600,1,70,0) +100862 +"DATA",1130580001.201,1,5,600,1,71,0) +100861 +"DATA",1130580001.201,1,5,600,1,72,0) +100863 +"DATA",1130580001.201,1,5,600,1,73,0) +100851 +"DATA",1130580001.201,1,5,600,1,74,0) +100853 +"DATA",1130580001.201,1,5,600,1,75,0) +100856 +"DATA",1130580001.201,1,5,600,1,76,0) +100146 +"DATA",1130580001.201,1,5,600,1,77,0) +100857 +"DATA",1130580001.201,1,5,600,1,78,0) +100955 +"DATA",1130580001.201,1,5,600,1,79,0) +100616 +"DATA",1130580001.201,1,5,600,1,80,0) +100146 +"DATA",1130580001.201,1,5,600,1,81,0) +100499 +"DATA",1130580001.201,1,5,600,1,82,0) +100506 +"DATA",1130580001.201,1,5,600,1,83,0) +774 +"DATA",1130580001.201,1,5,600,1,84,0) +774 +"DATA",1130580001.201,1,5,600,1,85,0) +100667 +"DATA",1130580001.201,1,5,600,1,86,0) +100676 +"DATA",1130580001.201,1,5,600,1,87,0) +100951 +"DATA",1130580001.201,1,5,600,1,88,0) +100952 +"DATA",1130580001.201,1,5,600,1,89,0) +100953 +"DATA",1130580001.201,1,5,600,1,90,0) +100954 +"DATA",1130580001.201,1,5,600,1,91,0) +100934 +"DATA",1130580001.201,1,5,600,1,92,0) +100937 +"DATA",1130580001.201,1,5,600,1,93,0) +100947 +"DATA",1130580001.201,1,5,600,1,94,0) +100948 +"DATA",1130580001.201,1,5,600,1,95,0) +100949 +"DATA",1130580001.201,1,5,600,1,96,0) +249 +"DATA",1130580001.201,1,5,600,2) +96 +"DATA",1130580001.201,1,5,600,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,1,5,600,3,1,0) +100095 +"DATA",1130580001.201,1,5,600,3,2,0) +100696 +"DATA",1130580001.201,1,5,600,3,3,0) +100622 +"DATA",1130580001.201,1,5,600,3,4,0) +100662 +"DATA",1130580001.201,1,5,600,3,5,0) +100661 +"DATA",1130580001.201,1,5,600,3,6,0) +100499 +"DATA",1130580001.201,1,5,600,3,7,0) +100506 +"DATA",1130580001.201,1,5,600,3,8,0) +100647 +"DATA",1130580001.201,1,5,600,3,9,0) +100648 +"DATA",1130580001.201,1,5,600,3,10,0) +100649 +"DATA",1130580001.201,1,5,600,3,11,0) +100839 +"DATA",1130580001.201,1,5,600,3,12,0) +100942 +"DATA",1130580001.201,1,5,600,3,13,0) +100943 +"DATA",1130580001.201,1,5,600,3,14,0) +100935 +"DATA",1130580001.201,1,5,600,3,15,0) +100941 +"DATA",1130580001.201,1,5,600,3,16,0) +100878 +"DATA",1130580001.201,1,5,600,3,17,0) +100879 +"DATA",1130580001.201,1,5,600,3,18,0) +100880 +"DATA",1130580001.201,1,5,600,3,19,0) +100881 +"DATA",1130580001.201,1,5,600,3,20,0) +100882 +"DATA",1130580001.201,1,5,600,3,21,0) +100874 +"DATA",1130580001.201,1,5,600,3,22,0) +100875 +"DATA",1130580001.201,1,5,600,3,23,0) +100876 +"DATA",1130580001.201,1,5,600,3,24,0) +100883 +"DATA",1130580001.201,1,5,600,3,25,0) +100894 +"DATA",1130580001.201,1,5,600,3,26,0) +100895 +"DATA",1130580001.201,1,5,600,3,27,0) +100896 +"DATA",1130580001.201,1,5,600,3,28,0) +100897 +"DATA",1130580001.201,1,5,600,3,29,0) +100898 +"DATA",1130580001.201,1,5,600,3,30,0) +100899 +"DATA",1130580001.201,1,5,600,3,31,0) +100900 +"DATA",1130580001.201,1,5,600,3,32,0) +100901 +"DATA",1130580001.201,1,5,600,3,33,0) +100902 +"DATA",1130580001.201,1,5,600,3,34,0) +100903 +"DATA",1130580001.201,1,5,600,3,35,0) +100884 +"DATA",1130580001.201,1,5,600,3,36,0) +100885 +"DATA",1130580001.201,1,5,600,3,37,0) +100886 +"DATA",1130580001.201,1,5,600,3,38,0) +100887 +"DATA",1130580001.201,1,5,600,3,39,0) +100888 +"DATA",1130580001.201,1,5,600,3,40,0) +100889 +"DATA",1130580001.201,1,5,600,3,41,0) +100890 +"DATA",1130580001.201,1,5,600,3,42,0) +100891 +"DATA",1130580001.201,1,5,600,3,43,0) +100338 +"DATA",1130580001.201,1,5,600,3,44,0) +100848 +"DATA",1130580001.201,1,5,600,3,45,0) +100845 +"DATA",1130580001.201,1,5,600,3,46,0) +100850 +"DATA",1130580001.201,1,5,600,3,47,0) +100855 +"DATA",1130580001.201,1,5,600,3,48,0) +100846 +"DATA",1130580001.201,1,5,600,3,49,0) +100847 +"DATA",1130580001.201,1,5,600,3,50,0) +100849 +"DATA",1130580001.201,1,5,600,3,51,0) +100858 +"DATA",1130580001.201,1,5,600,3,52,0) +100852 +"DATA",1130580001.201,1,5,600,3,53,0) +100929 +"DATA",1130580001.201,1,5,600,3,54,0) +100930 +"DATA",1130580001.201,1,5,600,3,55,0) +100931 +"DATA",1130580001.201,1,5,600,3,56,0) +100932 +"DATA",1130580001.201,1,5,600,3,57,0) +100933 +"DATA",1130580001.201,1,5,600,3,58,0) +100914 +"DATA",1130580001.201,1,5,600,3,59,0) +100915 +"DATA",1130580001.201,1,5,600,3,60,0) +100917 +"DATA",1130580001.201,1,5,600,3,61,0) +100923 +"DATA",1130580001.201,1,5,600,3,62,0) +100904 +"DATA",1130580001.201,1,5,600,3,63,0) +100905 +"DATA",1130580001.201,1,5,600,3,64,0) +100906 +"DATA",1130580001.201,1,5,600,3,65,0) +100907 +"DATA",1130580001.201,1,5,600,3,66,0) +100909 +"DATA",1130580001.201,1,5,600,3,67,0) +100913 +"DATA",1130580001.201,1,5,600,3,68,0) +100859 +"DATA",1130580001.201,1,5,600,3,69,0) +100860 +"DATA",1130580001.201,1,5,600,3,70,0) +100862 +"DATA",1130580001.201,1,5,600,3,71,0) +100861 +"DATA",1130580001.201,1,5,600,3,72,0) +100863 +"DATA",1130580001.201,1,5,600,3,73,0) +100851 +"DATA",1130580001.201,1,5,600,3,74,0) +100853 +"DATA",1130580001.201,1,5,600,3,75,0) +100856 +"DATA",1130580001.201,1,5,600,3,76,0) +100146 +"DATA",1130580001.201,1,5,600,3,77,0) +100857 +"DATA",1130580001.201,1,5,600,3,78,0) +100955 +"DATA",1130580001.201,1,5,600,3,79,0) +100616 +"DATA",1130580001.201,1,5,600,3,80,0) +100146 +"DATA",1130580001.201,1,5,600,3,81,0) +100499 +"DATA",1130580001.201,1,5,600,3,82,0) +100506 +"DATA",1130580001.201,1,5,600,3,83,0) +774 +"DATA",1130580001.201,1,5,600,3,84,0) +774 +"DATA",1130580001.201,1,5,600,3,85,0) +100667 +"DATA",1130580001.201,1,5,600,3,86,0) +100676 +"DATA",1130580001.201,1,5,600,3,87,0) +100951 +"DATA",1130580001.201,1,5,600,3,88,0) +100952 +"DATA",1130580001.201,1,5,600,3,89,0) +100953 +"DATA",1130580001.201,1,5,600,3,90,0) +100954 +"DATA",1130580001.201,1,5,600,3,91,0) +100934 +"DATA",1130580001.201,1,5,600,3,92,0) +100937 +"DATA",1130580001.201,1,5,600,3,93,0) +100947 +"DATA",1130580001.201,1,5,600,3,94,0) +100948 +"DATA",1130580001.201,1,5,600,3,95,0) +100949 +"DATA",1130580001.201,1,5,600,3,96,0) +249 +"DATA",1130580001.201,1,5,600,4) +96 +"DATA",1130580001.201,1,5,601,0) +5 +"DATA",1130580001.201,1,5,601,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,601,1,1,0) +100696 +"DATA",1130580001.201,1,5,601,1,2,0) +100622 +"DATA",1130580001.201,1,5,601,1,3,0) +100662 +"DATA",1130580001.201,1,5,601,1,4,0) +100661 +"DATA",1130580001.201,1,5,601,1,5,0) +100649 +"DATA",1130580001.201,1,5,601,1,6,0) +100338 +"DATA",1130580001.201,1,5,601,1,7,0) +100848 +"DATA",1130580001.201,1,5,601,1,8,0) +100845 +"DATA",1130580001.201,1,5,601,1,9,0) +100146 +"DATA",1130580001.201,1,5,601,1,10,0) +100616 +"DATA",1130580001.201,1,5,601,1,11,0) +100667 +"DATA",1130580001.201,1,5,601,1,12,0) +100676 +"DATA",1130580001.201,1,5,601,2) +12 +"DATA",1130580001.201,1,5,601,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,1,5,601,3,1,0) +100095 +"DATA",1130580001.201,1,5,601,3,2,0) +100696 +"DATA",1130580001.201,1,5,601,3,3,0) +100622 +"DATA",1130580001.201,1,5,601,3,4,0) +100662 +"DATA",1130580001.201,1,5,601,3,5,0) +100661 +"DATA",1130580001.201,1,5,601,3,6,0) +100499 +"DATA",1130580001.201,1,5,601,3,7,0) +100506 +"DATA",1130580001.201,1,5,601,3,8,0) +100647 +"DATA",1130580001.201,1,5,601,3,9,0) +100648 +"DATA",1130580001.201,1,5,601,3,10,0) +100649 +"DATA",1130580001.201,1,5,601,3,11,0) +100839 +"DATA",1130580001.201,1,5,601,3,12,0) +100878 +"DATA",1130580001.201,1,5,601,3,13,0) +100879 +"DATA",1130580001.201,1,5,601,3,14,0) +100894 +"DATA",1130580001.201,1,5,601,3,15,0) +100887 +"DATA",1130580001.201,1,5,601,3,16,0) +100888 +"DATA",1130580001.201,1,5,601,3,17,0) +100338 +"DATA",1130580001.201,1,5,601,3,18,0) +100848 +"DATA",1130580001.201,1,5,601,3,19,0) +100845 +"DATA",1130580001.201,1,5,601,3,20,0) +100850 +"DATA",1130580001.201,1,5,601,3,21,0) +100855 +"DATA",1130580001.201,1,5,601,3,22,0) +100846 +"DATA",1130580001.201,1,5,601,3,23,0) +100847 +"DATA",1130580001.201,1,5,601,3,24,0) +100849 +"DATA",1130580001.201,1,5,601,3,25,0) +100858 +"DATA",1130580001.201,1,5,601,3,26,0) +100852 +"DATA",1130580001.201,1,5,601,3,27,0) +100929 +"DATA",1130580001.201,1,5,601,3,28,0) +100923 +"DATA",1130580001.201,1,5,601,3,29,0) +100904 +"DATA",1130580001.201,1,5,601,3,30,0) +100905 +"DATA",1130580001.201,1,5,601,3,31,0) +100907 +"DATA",1130580001.201,1,5,601,3,32,0) +100913 +"DATA",1130580001.201,1,5,601,3,33,0) +100859 +"DATA",1130580001.201,1,5,601,3,34,0) +100860 +"DATA",1130580001.201,1,5,601,3,35,0) +100862 +"DATA",1130580001.201,1,5,601,3,36,0) +100861 +"DATA",1130580001.201,1,5,601,3,37,0) +100863 +"DATA",1130580001.201,1,5,601,3,38,0) +100851 +"DATA",1130580001.201,1,5,601,3,39,0) +100853 +"DATA",1130580001.201,1,5,601,3,40,0) +100856 +"DATA",1130580001.201,1,5,601,3,41,0) +100146 +"DATA",1130580001.201,1,5,601,3,42,0) +100857 +"DATA",1130580001.201,1,5,601,3,43,0) +100616 +"DATA",1130580001.201,1,5,601,3,44,0) +774 +"DATA",1130580001.201,1,5,601,3,45,0) +100667 +"DATA",1130580001.201,1,5,601,3,46,0) +100676 +"DATA",1130580001.201,1,5,601,3,47,0) +249 +"DATA",1130580001.201,1,5,601,4) +47 +"DATA",1130580001.201,1,5,602,0) +6 +"DATA",1130580001.201,1,5,602,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,602,1,1,0) +100647 +"DATA",1130580001.201,1,5,602,1,2,0) +100894 +"DATA",1130580001.201,1,5,602,1,3,0) +100900 +"DATA",1130580001.201,1,5,602,1,4,0) +100901 +"DATA",1130580001.201,1,5,602,1,5,0) +100902 +"DATA",1130580001.201,1,5,602,1,6,0) +100903 +"DATA",1130580001.201,1,5,602,1,7,0) +100885 +"DATA",1130580001.201,1,5,602,1,8,0) +100887 +"DATA",1130580001.201,1,5,602,1,9,0) +100890 +"DATA",1130580001.201,1,5,602,1,10,0) +100891 +"DATA",1130580001.201,1,5,602,2) +10 +"DATA",1130580001.201,1,5,602,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,1,5,602,3,1,0) +100696 +"DATA",1130580001.201,1,5,602,3,2,0) +100622 +"DATA",1130580001.201,1,5,602,3,3,0) +100662 +"DATA",1130580001.201,1,5,602,3,4,0) +100661 +"DATA",1130580001.201,1,5,602,3,5,0) +100499 +"DATA",1130580001.201,1,5,602,3,6,0) +100506 +"DATA",1130580001.201,1,5,602,3,7,0) +100647 +"DATA",1130580001.201,1,5,602,3,8,0) +100648 +"DATA",1130580001.201,1,5,602,3,9,0) +100649 +"DATA",1130580001.201,1,5,602,3,10,0) +100839 +"DATA",1130580001.201,1,5,602,3,11,0) +100894 +"DATA",1130580001.201,1,5,602,3,12,0) +100895 +"DATA",1130580001.201,1,5,602,3,13,0) +100896 +"DATA",1130580001.201,1,5,602,3,14,0) +100897 +"DATA",1130580001.201,1,5,602,3,15,0) +100898 +"DATA",1130580001.201,1,5,602,3,16,0) +100899 +"DATA",1130580001.201,1,5,602,3,17,0) +100900 +"DATA",1130580001.201,1,5,602,3,18,0) +100901 +"DATA",1130580001.201,1,5,602,3,19,0) +100902 +"DATA",1130580001.201,1,5,602,3,20,0) +100903 +"DATA",1130580001.201,1,5,602,3,21,0) +100885 +"DATA",1130580001.201,1,5,602,3,22,0) +100887 +"DATA",1130580001.201,1,5,602,3,23,0) +100888 +"DATA",1130580001.201,1,5,602,3,24,0) +100889 +"DATA",1130580001.201,1,5,602,3,25,0) +100890 +"DATA",1130580001.201,1,5,602,3,26,0) +100891 +"DATA",1130580001.201,1,5,602,3,27,0) +100929 +"DATA",1130580001.201,1,5,602,3,28,0) +100930 +"DATA",1130580001.201,1,5,602,3,29,0) +100931 +"DATA",1130580001.201,1,5,602,3,30,0) +100932 +"DATA",1130580001.201,1,5,602,3,31,0) +100933 +"DATA",1130580001.201,1,5,602,3,32,0) +100616 +"DATA",1130580001.201,1,5,602,3,33,0) +774 +"DATA",1130580001.201,1,5,602,3,34,0) +100667 +"DATA",1130580001.201,1,5,602,3,35,0) +100676 +"DATA",1130580001.201,1,5,602,3,36,0) +249 +"DATA",1130580001.201,1,5,602,4) +36 +"DATA",1130580001.201,1,5,603,0) +7 +"DATA",1130580001.201,1,5,603,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,603,1,1,0) +100894 +"DATA",1130580001.201,1,5,603,1,2,0) +100895 +"DATA",1130580001.201,1,5,603,1,3,0) +100896 +"DATA",1130580001.201,1,5,603,1,4,0) +100897 +"DATA",1130580001.201,1,5,603,1,5,0) +100898 +"DATA",1130580001.201,1,5,603,1,6,0) +100899 +"DATA",1130580001.201,1,5,603,1,7,0) +100900 +"DATA",1130580001.201,1,5,603,1,8,0) +100901 +"DATA",1130580001.201,1,5,603,1,9,0) +100902 +"DATA",1130580001.201,1,5,603,2) +9 +"DATA",1130580001.201,1,5,603,3,0) +^1130580001.20112P^14^14 +"DATA",1130580001.201,1,5,603,3,1,0) +100499 +"DATA",1130580001.201,1,5,603,3,2,0) +100839 +"DATA",1130580001.201,1,5,603,3,3,0) +100894 +"DATA",1130580001.201,1,5,603,3,4,0) +100895 +"DATA",1130580001.201,1,5,603,3,5,0) +100896 +"DATA",1130580001.201,1,5,603,3,6,0) +100897 +"DATA",1130580001.201,1,5,603,3,7,0) +100898 +"DATA",1130580001.201,1,5,603,3,8,0) +100899 +"DATA",1130580001.201,1,5,603,3,9,0) +100900 +"DATA",1130580001.201,1,5,603,3,10,0) +100901 +"DATA",1130580001.201,1,5,603,3,11,0) +100902 +"DATA",1130580001.201,1,5,603,3,12,0) +100888 +"DATA",1130580001.201,1,5,603,3,13,0) +100929 +"DATA",1130580001.201,1,5,603,3,14,0) +100930 +"DATA",1130580001.201,1,5,603,4) +14 +"DATA",1130580001.201,1,5,604,0) +2 +"DATA",1130580001.201,1,5,604,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,604,1,1,0) +100647 +"DATA",1130580001.201,1,5,604,1,2,0) +100878 +"DATA",1130580001.201,1,5,604,1,3,0) +100879 +"DATA",1130580001.201,1,5,604,1,4,0) +100880 +"DATA",1130580001.201,1,5,604,1,5,0) +100881 +"DATA",1130580001.201,1,5,604,1,6,0) +100883 +"DATA",1130580001.201,1,5,604,1,7,0) +100899 +"DATA",1130580001.201,1,5,604,1,8,0) +100900 +"DATA",1130580001.201,1,5,604,1,9,0) +100901 +"DATA",1130580001.201,1,5,604,1,10,0) +100902 +"DATA",1130580001.201,1,5,604,2) +10 +"DATA",1130580001.201,1,5,604,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,1,5,604,3,1,0) +100647 +"DATA",1130580001.201,1,5,604,3,2,0) +100878 +"DATA",1130580001.201,1,5,604,3,3,0) +100879 +"DATA",1130580001.201,1,5,604,3,4,0) +100880 +"DATA",1130580001.201,1,5,604,3,5,0) +100881 +"DATA",1130580001.201,1,5,604,3,6,0) +100883 +"DATA",1130580001.201,1,5,604,3,7,0) +100899 +"DATA",1130580001.201,1,5,604,3,8,0) +100900 +"DATA",1130580001.201,1,5,604,3,9,0) +100901 +"DATA",1130580001.201,1,5,604,3,10,0) +100902 +"DATA",1130580001.201,1,5,604,4) +10 +"DATA",1130580001.201,1,5,605,0) +8 +"DATA",1130580001.201,1,5,605,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,605,1,1,0) +100839 +"DATA",1130580001.201,1,5,605,1,2,0) +100338 +"DATA",1130580001.201,1,5,605,1,3,0) +100848 +"DATA",1130580001.201,1,5,605,1,4,0) +100845 +"DATA",1130580001.201,1,5,605,1,5,0) +100850 +"DATA",1130580001.201,1,5,605,1,6,0) +100855 +"DATA",1130580001.201,1,5,605,1,7,0) +100846 +"DATA",1130580001.201,1,5,605,1,8,0) +100930 +"DATA",1130580001.201,1,5,605,1,9,0) +100146 +"DATA",1130580001.201,1,5,605,1,10,0) +100676 +"DATA",1130580001.201,1,5,605,2) +10 +"DATA",1130580001.201,1,5,605,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,605,3,1,0) +100696 +"DATA",1130580001.201,1,5,605,3,2,0) +100622 +"DATA",1130580001.201,1,5,605,3,3,0) +100661 +"DATA",1130580001.201,1,5,605,3,4,0) +100839 +"DATA",1130580001.201,1,5,605,3,5,0) +100338 +"DATA",1130580001.201,1,5,605,3,6,0) +100848 +"DATA",1130580001.201,1,5,605,3,7,0) +100845 +"DATA",1130580001.201,1,5,605,3,8,0) +100850 +"DATA",1130580001.201,1,5,605,3,9,0) +100855 +"DATA",1130580001.201,1,5,605,3,10,0) +100846 +"DATA",1130580001.201,1,5,605,3,11,0) +100847 +"DATA",1130580001.201,1,5,605,3,12,0) +100849 +"DATA",1130580001.201,1,5,605,3,13,0) +100858 +"DATA",1130580001.201,1,5,605,3,14,0) +100852 +"DATA",1130580001.201,1,5,605,3,15,0) +100930 +"DATA",1130580001.201,1,5,605,3,16,0) +100146 +"DATA",1130580001.201,1,5,605,3,17,0) +100676 +"DATA",1130580001.201,1,5,605,4) +17 +"DATA",1130580001.201,1,5,606,0) +9 +"DATA",1130580001.201,1,5,606,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,606,1,1,0) +100696 +"DATA",1130580001.201,1,5,606,1,2,0) +100622 +"DATA",1130580001.201,1,5,606,1,3,0) +100338 +"DATA",1130580001.201,1,5,606,1,4,0) +100848 +"DATA",1130580001.201,1,5,606,1,5,0) +100845 +"DATA",1130580001.201,1,5,606,1,6,0) +100855 +"DATA",1130580001.201,1,5,606,1,7,0) +100846 +"DATA",1130580001.201,1,5,606,2) +7 +"DATA",1130580001.201,1,5,606,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,606,3,1,0) +100696 +"DATA",1130580001.201,1,5,606,3,2,0) +100622 +"DATA",1130580001.201,1,5,606,3,3,0) +100661 +"DATA",1130580001.201,1,5,606,3,4,0) +100839 +"DATA",1130580001.201,1,5,606,3,5,0) +100338 +"DATA",1130580001.201,1,5,606,3,6,0) +100848 +"DATA",1130580001.201,1,5,606,3,7,0) +100845 +"DATA",1130580001.201,1,5,606,3,8,0) +100850 +"DATA",1130580001.201,1,5,606,3,9,0) +100855 +"DATA",1130580001.201,1,5,606,3,10,0) +100846 +"DATA",1130580001.201,1,5,606,3,11,0) +100847 +"DATA",1130580001.201,1,5,606,3,12,0) +100849 +"DATA",1130580001.201,1,5,606,3,13,0) +100858 +"DATA",1130580001.201,1,5,606,3,14,0) +100852 +"DATA",1130580001.201,1,5,606,3,15,0) +100930 +"DATA",1130580001.201,1,5,606,3,16,0) +100146 +"DATA",1130580001.201,1,5,606,3,17,0) +100676 +"DATA",1130580001.201,1,5,606,4) +17 +"DATA",1130580001.201,1,5,607,0) +10 +"DATA",1130580001.201,1,5,607,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,607,1,1,0) +100839 +"DATA",1130580001.201,1,5,607,1,2,0) +100880 +"DATA",1130580001.201,1,5,607,1,3,0) +100881 +"DATA",1130580001.201,1,5,607,1,4,0) +100882 +"DATA",1130580001.201,1,5,607,1,5,0) +100874 +"DATA",1130580001.201,1,5,607,1,6,0) +100875 +"DATA",1130580001.201,1,5,607,1,7,0) +100899 +"DATA",1130580001.201,1,5,607,1,8,0) +100900 +"DATA",1130580001.201,1,5,607,1,9,0) +100901 +"DATA",1130580001.201,1,5,607,1,10,0) +100903 +"DATA",1130580001.201,1,5,607,2) +10 +"DATA",1130580001.201,1,5,607,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,607,3,1,0) +100839 +"DATA",1130580001.201,1,5,607,3,2,0) +100880 +"DATA",1130580001.201,1,5,607,3,3,0) +100881 +"DATA",1130580001.201,1,5,607,3,4,0) +100882 +"DATA",1130580001.201,1,5,607,3,5,0) +100874 +"DATA",1130580001.201,1,5,607,3,6,0) +100875 +"DATA",1130580001.201,1,5,607,3,7,0) +100899 +"DATA",1130580001.201,1,5,607,3,8,0) +100900 +"DATA",1130580001.201,1,5,607,3,9,0) +100901 +"DATA",1130580001.201,1,5,607,3,10,0) +100902 +"DATA",1130580001.201,1,5,607,3,11,0) +100903 +"DATA",1130580001.201,1,5,607,4) +11 +"DATA",1130580001.201,1,5,608,0) +16 +"DATA",1130580001.201,1,5,608,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,608,1,1,0) +100696 +"DATA",1130580001.201,1,5,608,1,2,0) +100622 +"DATA",1130580001.201,1,5,608,1,3,0) +100662 +"DATA",1130580001.201,1,5,608,1,4,0) +100661 +"DATA",1130580001.201,1,5,608,1,5,0) +100499 +"DATA",1130580001.201,1,5,608,1,6,0) +100647 +"DATA",1130580001.201,1,5,608,1,7,0) +100839 +"DATA",1130580001.201,1,5,608,1,8,0) +100888 +"DATA",1130580001.201,1,5,608,1,9,0) +100930 +"DATA",1130580001.201,1,5,608,2) +9 +"DATA",1130580001.201,1,5,608,3,0) +^1130580001.20112P^53^53 +"DATA",1130580001.201,1,5,608,3,1,0) +100095 +"DATA",1130580001.201,1,5,608,3,2,0) +100696 +"DATA",1130580001.201,1,5,608,3,3,0) +100622 +"DATA",1130580001.201,1,5,608,3,4,0) +100662 +"DATA",1130580001.201,1,5,608,3,5,0) +100661 +"DATA",1130580001.201,1,5,608,3,6,0) +100499 +"DATA",1130580001.201,1,5,608,3,7,0) +100506 +"DATA",1130580001.201,1,5,608,3,8,0) +100647 +"DATA",1130580001.201,1,5,608,3,9,0) +100648 +"DATA",1130580001.201,1,5,608,3,10,0) +100649 +"DATA",1130580001.201,1,5,608,3,11,0) +100839 +"DATA",1130580001.201,1,5,608,3,12,0) +100878 +"DATA",1130580001.201,1,5,608,3,13,0) +100879 +"DATA",1130580001.201,1,5,608,3,14,0) +100894 +"DATA",1130580001.201,1,5,608,3,15,0) +100887 +"DATA",1130580001.201,1,5,608,3,16,0) +100888 +"DATA",1130580001.201,1,5,608,3,17,0) +100338 +"DATA",1130580001.201,1,5,608,3,18,0) +100848 +"DATA",1130580001.201,1,5,608,3,19,0) +100845 +"DATA",1130580001.201,1,5,608,3,20,0) +100850 +"DATA",1130580001.201,1,5,608,3,21,0) +100855 +"DATA",1130580001.201,1,5,608,3,22,0) +100846 +"DATA",1130580001.201,1,5,608,3,23,0) +100847 +"DATA",1130580001.201,1,5,608,3,24,0) +100849 +"DATA",1130580001.201,1,5,608,3,25,0) +100858 +"DATA",1130580001.201,1,5,608,3,26,0) +100852 +"DATA",1130580001.201,1,5,608,3,27,0) +100929 +"DATA",1130580001.201,1,5,608,3,28,0) +100930 +"DATA",1130580001.201,1,5,608,3,29,0) +100931 +"DATA",1130580001.201,1,5,608,3,30,0) +100914 +"DATA",1130580001.201,1,5,608,3,31,0) +100915 +"DATA",1130580001.201,1,5,608,3,32,0) +100917 +"DATA",1130580001.201,1,5,608,3,33,0) +100923 +"DATA",1130580001.201,1,5,608,3,34,0) +100904 +"DATA",1130580001.201,1,5,608,3,35,0) +100905 +"DATA",1130580001.201,1,5,608,3,36,0) +100907 +"DATA",1130580001.201,1,5,608,3,37,0) +100913 +"DATA",1130580001.201,1,5,608,3,38,0) +100859 +"DATA",1130580001.201,1,5,608,3,39,0) +100860 +"DATA",1130580001.201,1,5,608,3,40,0) +100862 +"DATA",1130580001.201,1,5,608,3,41,0) +100861 +"DATA",1130580001.201,1,5,608,3,42,0) +100863 +"DATA",1130580001.201,1,5,608,3,43,0) +100851 +"DATA",1130580001.201,1,5,608,3,44,0) +100853 +"DATA",1130580001.201,1,5,608,3,45,0) +100856 +"DATA",1130580001.201,1,5,608,3,46,0) +100146 +"DATA",1130580001.201,1,5,608,3,47,0) +100857 +"DATA",1130580001.201,1,5,608,3,48,0) +100955 +"DATA",1130580001.201,1,5,608,3,49,0) +100616 +"DATA",1130580001.201,1,5,608,3,50,0) +774 +"DATA",1130580001.201,1,5,608,3,51,0) +100667 +"DATA",1130580001.201,1,5,608,3,52,0) +100676 +"DATA",1130580001.201,1,5,608,3,53,0) +249 +"DATA",1130580001.201,1,5,608,4) +53 +"DATA",1130580001.201,1,5,609,0) +14 +"DATA",1130580001.201,1,5,609,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,609,1,1,0) +100839 +"DATA",1130580001.201,1,5,609,1,2,0) +100894 +"DATA",1130580001.201,1,5,609,1,3,0) +100895 +"DATA",1130580001.201,1,5,609,1,4,0) +100896 +"DATA",1130580001.201,1,5,609,1,5,0) +100897 +"DATA",1130580001.201,1,5,609,1,6,0) +100898 +"DATA",1130580001.201,1,5,609,1,7,0) +100929 +"DATA",1130580001.201,1,5,609,1,8,0) +100930 +"DATA",1130580001.201,1,5,609,1,9,0) +100931 +"DATA",1130580001.201,1,5,609,1,10,0) +100932 +"DATA",1130580001.201,1,5,609,1,11,0) +100933 +"DATA",1130580001.201,1,5,609,2) +11 +"DATA",1130580001.201,1,5,609,3,0) +^1130580001.20112P^21^21 +"DATA",1130580001.201,1,5,609,3,1,0) +100499 +"DATA",1130580001.201,1,5,609,3,2,0) +100506 +"DATA",1130580001.201,1,5,609,3,3,0) +100839 +"DATA",1130580001.201,1,5,609,3,4,0) +100894 +"DATA",1130580001.201,1,5,609,3,5,0) +100895 +"DATA",1130580001.201,1,5,609,3,6,0) +100896 +"DATA",1130580001.201,1,5,609,3,7,0) +100897 +"DATA",1130580001.201,1,5,609,3,8,0) +100898 +"DATA",1130580001.201,1,5,609,3,9,0) +100899 +"DATA",1130580001.201,1,5,609,3,10,0) +100900 +"DATA",1130580001.201,1,5,609,3,11,0) +100901 +"DATA",1130580001.201,1,5,609,3,12,0) +100902 +"DATA",1130580001.201,1,5,609,3,13,0) +100903 +"DATA",1130580001.201,1,5,609,3,14,0) +100885 +"DATA",1130580001.201,1,5,609,3,15,0) +100887 +"DATA",1130580001.201,1,5,609,3,16,0) +100888 +"DATA",1130580001.201,1,5,609,3,17,0) +100929 +"DATA",1130580001.201,1,5,609,3,18,0) +100930 +"DATA",1130580001.201,1,5,609,3,19,0) +100931 +"DATA",1130580001.201,1,5,609,3,20,0) +100932 +"DATA",1130580001.201,1,5,609,3,21,0) +100933 +"DATA",1130580001.201,1,5,609,4) +21 +"DATA",1130580001.201,1,5,610,0) +1 +"DATA",1130580001.201,1,5,610,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,610,1,1,0) +100338 +"DATA",1130580001.201,1,5,610,1,2,0) +100848 +"DATA",1130580001.201,1,5,610,1,3,0) +100845 +"DATA",1130580001.201,1,5,610,1,4,0) +100855 +"DATA",1130580001.201,1,5,610,1,5,0) +100849 +"DATA",1130580001.201,1,5,610,1,6,0) +100930 +"DATA",1130580001.201,1,5,610,1,7,0) +100146 +"DATA",1130580001.201,1,5,610,2) +7 +"DATA",1130580001.201,1,5,610,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,610,3,1,0) +100696 +"DATA",1130580001.201,1,5,610,3,2,0) +100622 +"DATA",1130580001.201,1,5,610,3,3,0) +100661 +"DATA",1130580001.201,1,5,610,3,4,0) +100839 +"DATA",1130580001.201,1,5,610,3,5,0) +100338 +"DATA",1130580001.201,1,5,610,3,6,0) +100848 +"DATA",1130580001.201,1,5,610,3,7,0) +100845 +"DATA",1130580001.201,1,5,610,3,8,0) +100850 +"DATA",1130580001.201,1,5,610,3,9,0) +100855 +"DATA",1130580001.201,1,5,610,3,10,0) +100846 +"DATA",1130580001.201,1,5,610,3,11,0) +100847 +"DATA",1130580001.201,1,5,610,3,12,0) +100849 +"DATA",1130580001.201,1,5,610,3,13,0) +100858 +"DATA",1130580001.201,1,5,610,3,14,0) +100852 +"DATA",1130580001.201,1,5,610,3,15,0) +100930 +"DATA",1130580001.201,1,5,610,3,16,0) +100146 +"DATA",1130580001.201,1,5,610,3,17,0) +100676 +"DATA",1130580001.201,1,5,610,4) +17 +"DATA",1130580001.201,1,5,611,0) +17 +"DATA",1130580001.201,1,5,611,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,611,1,1,0) +100839 +"DATA",1130580001.201,1,5,611,1,2,0) +100897 +"DATA",1130580001.201,1,5,611,1,3,0) +100898 +"DATA",1130580001.201,1,5,611,1,4,0) +100899 +"DATA",1130580001.201,1,5,611,1,5,0) +100900 +"DATA",1130580001.201,1,5,611,1,6,0) +100901 +"DATA",1130580001.201,1,5,611,1,7,0) +100902 +"DATA",1130580001.201,1,5,611,2) +7 +"DATA",1130580001.201,1,5,611,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,611,3,1,0) +100839 +"DATA",1130580001.201,1,5,611,3,2,0) +100894 +"DATA",1130580001.201,1,5,611,3,3,0) +100895 +"DATA",1130580001.201,1,5,611,3,4,0) +100896 +"DATA",1130580001.201,1,5,611,3,5,0) +100897 +"DATA",1130580001.201,1,5,611,3,6,0) +100898 +"DATA",1130580001.201,1,5,611,3,7,0) +100899 +"DATA",1130580001.201,1,5,611,3,8,0) +100900 +"DATA",1130580001.201,1,5,611,3,9,0) +100901 +"DATA",1130580001.201,1,5,611,3,10,0) +100902 +"DATA",1130580001.201,1,5,611,3,11,0) +100929 +"DATA",1130580001.201,1,5,611,4) +11 +"DATA",1130580001.201,1,5,612,0) +18 +"DATA",1130580001.201,1,5,612,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,612,1,1,0) +100696 +"DATA",1130580001.201,1,5,612,1,2,0) +100622 +"DATA",1130580001.201,1,5,612,1,3,0) +100662 +"DATA",1130580001.201,1,5,612,1,4,0) +100661 +"DATA",1130580001.201,1,5,612,1,5,0) +100499 +"DATA",1130580001.201,1,5,612,1,6,0) +100647 +"DATA",1130580001.201,1,5,612,1,7,0) +100649 +"DATA",1130580001.201,1,5,612,1,8,0) +100839 +"DATA",1130580001.201,1,5,612,1,9,0) +100888 +"DATA",1130580001.201,1,5,612,1,10,0) +100929 +"DATA",1130580001.201,1,5,612,1,11,0) +100930 +"DATA",1130580001.201,1,5,612,1,12,0) +774 +"DATA",1130580001.201,1,5,612,2) +12 +"DATA",1130580001.201,1,5,612,3,0) +^1130580001.20112P^20^20 +"DATA",1130580001.201,1,5,612,3,1,0) +100696 +"DATA",1130580001.201,1,5,612,3,2,0) +100622 +"DATA",1130580001.201,1,5,612,3,3,0) +100662 +"DATA",1130580001.201,1,5,612,3,4,0) +100661 +"DATA",1130580001.201,1,5,612,3,5,0) +100499 +"DATA",1130580001.201,1,5,612,3,6,0) +100506 +"DATA",1130580001.201,1,5,612,3,7,0) +100647 +"DATA",1130580001.201,1,5,612,3,8,0) +100648 +"DATA",1130580001.201,1,5,612,3,9,0) +100649 +"DATA",1130580001.201,1,5,612,3,10,0) +100839 +"DATA",1130580001.201,1,5,612,3,11,0) +100894 +"DATA",1130580001.201,1,5,612,3,12,0) +100887 +"DATA",1130580001.201,1,5,612,3,13,0) +100888 +"DATA",1130580001.201,1,5,612,3,14,0) +100929 +"DATA",1130580001.201,1,5,612,3,15,0) +100930 +"DATA",1130580001.201,1,5,612,3,16,0) +100616 +"DATA",1130580001.201,1,5,612,3,17,0) +774 +"DATA",1130580001.201,1,5,612,3,18,0) +100667 +"DATA",1130580001.201,1,5,612,3,19,0) +100676 +"DATA",1130580001.201,1,5,612,3,20,0) +249 +"DATA",1130580001.201,1,5,612,4) +20 +"DATA",1130580001.201,1,5,613,0) +19 +"DATA",1130580001.201,1,5,613,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,613,1,1,0) +100878 +"DATA",1130580001.201,1,5,613,1,2,0) +100894 +"DATA",1130580001.201,1,5,613,1,3,0) +100895 +"DATA",1130580001.201,1,5,613,1,4,0) +100897 +"DATA",1130580001.201,1,5,613,1,5,0) +100885 +"DATA",1130580001.201,1,5,613,1,6,0) +100850 +"DATA",1130580001.201,1,5,613,1,7,0) +100929 +"DATA",1130580001.201,1,5,613,1,8,0) +100915 +"DATA",1130580001.201,1,5,613,1,9,0) +100955 +"DATA",1130580001.201,1,5,613,2) +9 +"DATA",1130580001.201,1,5,613,3,0) +^1130580001.20112P^78^78 +"DATA",1130580001.201,1,5,613,3,1,0) +100095 +"DATA",1130580001.201,1,5,613,3,2,0) +100696 +"DATA",1130580001.201,1,5,613,3,3,0) +100622 +"DATA",1130580001.201,1,5,613,3,4,0) +100662 +"DATA",1130580001.201,1,5,613,3,5,0) +100661 +"DATA",1130580001.201,1,5,613,3,6,0) +100499 +"DATA",1130580001.201,1,5,613,3,7,0) +100506 +"DATA",1130580001.201,1,5,613,3,8,0) +100647 +"DATA",1130580001.201,1,5,613,3,9,0) +100648 +"DATA",1130580001.201,1,5,613,3,10,0) +100649 +"DATA",1130580001.201,1,5,613,3,11,0) +100839 +"DATA",1130580001.201,1,5,613,3,12,0) +100878 +"DATA",1130580001.201,1,5,613,3,13,0) +100879 +"DATA",1130580001.201,1,5,613,3,14,0) +100880 +"DATA",1130580001.201,1,5,613,3,15,0) +100881 +"DATA",1130580001.201,1,5,613,3,16,0) +100882 +"DATA",1130580001.201,1,5,613,3,17,0) +100874 +"DATA",1130580001.201,1,5,613,3,18,0) +100875 +"DATA",1130580001.201,1,5,613,3,19,0) +100883 +"DATA",1130580001.201,1,5,613,3,20,0) +100894 +"DATA",1130580001.201,1,5,613,3,21,0) +100895 +"DATA",1130580001.201,1,5,613,3,22,0) +100896 +"DATA",1130580001.201,1,5,613,3,23,0) +100897 +"DATA",1130580001.201,1,5,613,3,24,0) +100898 +"DATA",1130580001.201,1,5,613,3,25,0) +100899 +"DATA",1130580001.201,1,5,613,3,26,0) +100900 +"DATA",1130580001.201,1,5,613,3,27,0) +100901 +"DATA",1130580001.201,1,5,613,3,28,0) +100902 +"DATA",1130580001.201,1,5,613,3,29,0) +100903 +"DATA",1130580001.201,1,5,613,3,30,0) +100884 +"DATA",1130580001.201,1,5,613,3,31,0) +100885 +"DATA",1130580001.201,1,5,613,3,32,0) +100886 +"DATA",1130580001.201,1,5,613,3,33,0) +100887 +"DATA",1130580001.201,1,5,613,3,34,0) +100888 +"DATA",1130580001.201,1,5,613,3,35,0) +100889 +"DATA",1130580001.201,1,5,613,3,36,0) +100890 +"DATA",1130580001.201,1,5,613,3,37,0) +100891 +"DATA",1130580001.201,1,5,613,3,38,0) +100338 +"DATA",1130580001.201,1,5,613,3,39,0) +100848 +"DATA",1130580001.201,1,5,613,3,40,0) +100845 +"DATA",1130580001.201,1,5,613,3,41,0) +100850 +"DATA",1130580001.201,1,5,613,3,42,0) +100855 +"DATA",1130580001.201,1,5,613,3,43,0) +100846 +"DATA",1130580001.201,1,5,613,3,44,0) +100847 +"DATA",1130580001.201,1,5,613,3,45,0) +100849 +"DATA",1130580001.201,1,5,613,3,46,0) +100858 +"DATA",1130580001.201,1,5,613,3,47,0) +100852 +"DATA",1130580001.201,1,5,613,3,48,0) +100929 +"DATA",1130580001.201,1,5,613,3,49,0) +100930 +"DATA",1130580001.201,1,5,613,3,50,0) +100931 +"DATA",1130580001.201,1,5,613,3,51,0) +100932 +"DATA",1130580001.201,1,5,613,3,52,0) +100933 +"DATA",1130580001.201,1,5,613,3,53,0) +100914 +"DATA",1130580001.201,1,5,613,3,54,0) +100915 +"DATA",1130580001.201,1,5,613,3,55,0) +100917 +"DATA",1130580001.201,1,5,613,3,56,0) +100923 +"DATA",1130580001.201,1,5,613,3,57,0) +100904 +"DATA",1130580001.201,1,5,613,3,58,0) +100905 +"DATA",1130580001.201,1,5,613,3,59,0) +100906 +"DATA",1130580001.201,1,5,613,3,60,0) +100907 +"DATA",1130580001.201,1,5,613,3,61,0) +100909 +"DATA",1130580001.201,1,5,613,3,62,0) +100913 +"DATA",1130580001.201,1,5,613,3,63,0) +100859 +"DATA",1130580001.201,1,5,613,3,64,0) +100860 +"DATA",1130580001.201,1,5,613,3,65,0) +100862 +"DATA",1130580001.201,1,5,613,3,66,0) +100861 +"DATA",1130580001.201,1,5,613,3,67,0) +100863 +"DATA",1130580001.201,1,5,613,3,68,0) +100851 +"DATA",1130580001.201,1,5,613,3,69,0) +100853 +"DATA",1130580001.201,1,5,613,3,70,0) +100856 +"DATA",1130580001.201,1,5,613,3,71,0) +100146 +"DATA",1130580001.201,1,5,613,3,72,0) +100857 +"DATA",1130580001.201,1,5,613,3,73,0) +100955 +"DATA",1130580001.201,1,5,613,3,74,0) +100616 +"DATA",1130580001.201,1,5,613,3,75,0) +774 +"DATA",1130580001.201,1,5,613,3,76,0) +100667 +"DATA",1130580001.201,1,5,613,3,77,0) +100676 +"DATA",1130580001.201,1,5,613,3,78,0) +249 +"DATA",1130580001.201,1,5,613,4) +78 +"DATA",1130580001.201,1,5,614,0) +13 +"DATA",1130580001.201,1,5,614,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,614,1,1,0) +100647 +"DATA",1130580001.201,1,5,614,1,2,0) +100929 +"DATA",1130580001.201,1,5,614,1,3,0) +100915 +"DATA",1130580001.201,1,5,614,1,4,0) +100917 +"DATA",1130580001.201,1,5,614,1,5,0) +100904 +"DATA",1130580001.201,1,5,614,1,6,0) +100905 +"DATA",1130580001.201,1,5,614,1,7,0) +100906 +"DATA",1130580001.201,1,5,614,1,8,0) +100907 +"DATA",1130580001.201,1,5,614,1,9,0) +100909 +"DATA",1130580001.201,1,5,614,1,10,0) +100955 +"DATA",1130580001.201,1,5,614,2) +10 +"DATA",1130580001.201,1,5,614,3,0) +^1130580001.20112P^52^52 +"DATA",1130580001.201,1,5,614,3,1,0) +100095 +"DATA",1130580001.201,1,5,614,3,2,0) +100696 +"DATA",1130580001.201,1,5,614,3,3,0) +100622 +"DATA",1130580001.201,1,5,614,3,4,0) +100662 +"DATA",1130580001.201,1,5,614,3,5,0) +100661 +"DATA",1130580001.201,1,5,614,3,6,0) +100499 +"DATA",1130580001.201,1,5,614,3,7,0) +100506 +"DATA",1130580001.201,1,5,614,3,8,0) +100647 +"DATA",1130580001.201,1,5,614,3,9,0) +100648 +"DATA",1130580001.201,1,5,614,3,10,0) +100649 +"DATA",1130580001.201,1,5,614,3,11,0) +100839 +"DATA",1130580001.201,1,5,614,3,12,0) +100878 +"DATA",1130580001.201,1,5,614,3,13,0) +100879 +"DATA",1130580001.201,1,5,614,3,14,0) +100894 +"DATA",1130580001.201,1,5,614,3,15,0) +100887 +"DATA",1130580001.201,1,5,614,3,16,0) +100888 +"DATA",1130580001.201,1,5,614,3,17,0) +100338 +"DATA",1130580001.201,1,5,614,3,18,0) +100848 +"DATA",1130580001.201,1,5,614,3,19,0) +100845 +"DATA",1130580001.201,1,5,614,3,20,0) +100850 +"DATA",1130580001.201,1,5,614,3,21,0) +100855 +"DATA",1130580001.201,1,5,614,3,22,0) +100846 +"DATA",1130580001.201,1,5,614,3,23,0) +100847 +"DATA",1130580001.201,1,5,614,3,24,0) +100849 +"DATA",1130580001.201,1,5,614,3,25,0) +100858 +"DATA",1130580001.201,1,5,614,3,26,0) +100852 +"DATA",1130580001.201,1,5,614,3,27,0) +100929 +"DATA",1130580001.201,1,5,614,3,28,0) +100930 +"DATA",1130580001.201,1,5,614,3,29,0) +100914 +"DATA",1130580001.201,1,5,614,3,30,0) +100915 +"DATA",1130580001.201,1,5,614,3,31,0) +100917 +"DATA",1130580001.201,1,5,614,3,32,0) +100923 +"DATA",1130580001.201,1,5,614,3,33,0) +100904 +"DATA",1130580001.201,1,5,614,3,34,0) +100905 +"DATA",1130580001.201,1,5,614,3,35,0) +100907 +"DATA",1130580001.201,1,5,614,3,36,0) +100913 +"DATA",1130580001.201,1,5,614,3,37,0) +100859 +"DATA",1130580001.201,1,5,614,3,38,0) +100860 +"DATA",1130580001.201,1,5,614,3,39,0) +100862 +"DATA",1130580001.201,1,5,614,3,40,0) +100861 +"DATA",1130580001.201,1,5,614,3,41,0) +100863 +"DATA",1130580001.201,1,5,614,3,42,0) +100851 +"DATA",1130580001.201,1,5,614,3,43,0) +100853 +"DATA",1130580001.201,1,5,614,3,44,0) +100856 +"DATA",1130580001.201,1,5,614,3,45,0) +100146 +"DATA",1130580001.201,1,5,614,3,46,0) +100857 +"DATA",1130580001.201,1,5,614,3,47,0) +100955 +"DATA",1130580001.201,1,5,614,3,48,0) +100616 +"DATA",1130580001.201,1,5,614,3,49,0) +774 +"DATA",1130580001.201,1,5,614,3,50,0) +100667 +"DATA",1130580001.201,1,5,614,3,51,0) +100676 +"DATA",1130580001.201,1,5,614,3,52,0) +249 +"DATA",1130580001.201,1,5,614,4) +52 +"DATA",1130580001.201,1,5,615,0) +11 +"DATA",1130580001.201,1,5,615,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,615,1,1,0) +100899 +"DATA",1130580001.201,1,5,615,1,2,0) +100900 +"DATA",1130580001.201,1,5,615,1,3,0) +100846 +"DATA",1130580001.201,1,5,615,1,4,0) +100847 +"DATA",1130580001.201,1,5,615,1,5,0) +100849 +"DATA",1130580001.201,1,5,615,1,6,0) +100858 +"DATA",1130580001.201,1,5,615,1,7,0) +100852 +"DATA",1130580001.201,1,5,615,1,8,0) +100929 +"DATA",1130580001.201,1,5,615,1,9,0) +100931 +"DATA",1130580001.201,1,5,615,1,10,0) +100932 +"DATA",1130580001.201,1,5,615,1,11,0) +100933 +"DATA",1130580001.201,1,5,615,2) +11 +"DATA",1130580001.201,1,5,615,3,0) +^1130580001.20112P^99^99 +"DATA",1130580001.201,1,5,615,3,1,0) +100095 +"DATA",1130580001.201,1,5,615,3,2,0) +100696 +"DATA",1130580001.201,1,5,615,3,3,0) +100622 +"DATA",1130580001.201,1,5,615,3,4,0) +100662 +"DATA",1130580001.201,1,5,615,3,5,0) +100661 +"DATA",1130580001.201,1,5,615,3,6,0) +100499 +"DATA",1130580001.201,1,5,615,3,7,0) +100506 +"DATA",1130580001.201,1,5,615,3,8,0) +100647 +"DATA",1130580001.201,1,5,615,3,9,0) +100648 +"DATA",1130580001.201,1,5,615,3,10,0) +100649 +"DATA",1130580001.201,1,5,615,3,11,0) +100839 +"DATA",1130580001.201,1,5,615,3,12,0) +100878 +"DATA",1130580001.201,1,5,615,3,13,0) +100879 +"DATA",1130580001.201,1,5,615,3,14,0) +100880 +"DATA",1130580001.201,1,5,615,3,15,0) +100881 +"DATA",1130580001.201,1,5,615,3,16,0) +100882 +"DATA",1130580001.201,1,5,615,3,17,0) +100874 +"DATA",1130580001.201,1,5,615,3,18,0) +100875 +"DATA",1130580001.201,1,5,615,3,19,0) +100877 +"DATA",1130580001.201,1,5,615,3,20,0) +100883 +"DATA",1130580001.201,1,5,615,3,21,0) +100894 +"DATA",1130580001.201,1,5,615,3,22,0) +100895 +"DATA",1130580001.201,1,5,615,3,23,0) +100896 +"DATA",1130580001.201,1,5,615,3,24,0) +100897 +"DATA",1130580001.201,1,5,615,3,25,0) +100898 +"DATA",1130580001.201,1,5,615,3,26,0) +100899 +"DATA",1130580001.201,1,5,615,3,27,0) +100900 +"DATA",1130580001.201,1,5,615,3,28,0) +100901 +"DATA",1130580001.201,1,5,615,3,29,0) +100902 +"DATA",1130580001.201,1,5,615,3,30,0) +100903 +"DATA",1130580001.201,1,5,615,3,31,0) +100884 +"DATA",1130580001.201,1,5,615,3,32,0) +100885 +"DATA",1130580001.201,1,5,615,3,33,0) +100886 +"DATA",1130580001.201,1,5,615,3,34,0) +100887 +"DATA",1130580001.201,1,5,615,3,35,0) +100888 +"DATA",1130580001.201,1,5,615,3,36,0) +100889 +"DATA",1130580001.201,1,5,615,3,37,0) +100890 +"DATA",1130580001.201,1,5,615,3,38,0) +100891 +"DATA",1130580001.201,1,5,615,3,39,0) +100892 +"DATA",1130580001.201,1,5,615,3,40,0) +100893 +"DATA",1130580001.201,1,5,615,3,41,0) +100338 +"DATA",1130580001.201,1,5,615,3,42,0) +100848 +"DATA",1130580001.201,1,5,615,3,43,0) +100845 +"DATA",1130580001.201,1,5,615,3,44,0) +100850 +"DATA",1130580001.201,1,5,615,3,45,0) +100855 +"DATA",1130580001.201,1,5,615,3,46,0) +100846 +"DATA",1130580001.201,1,5,615,3,47,0) +100847 +"DATA",1130580001.201,1,5,615,3,48,0) +100849 +"DATA",1130580001.201,1,5,615,3,49,0) +100858 +"DATA",1130580001.201,1,5,615,3,50,0) +100852 +"DATA",1130580001.201,1,5,615,3,51,0) +100929 +"DATA",1130580001.201,1,5,615,3,52,0) +100930 +"DATA",1130580001.201,1,5,615,3,53,0) +100931 +"DATA",1130580001.201,1,5,615,3,54,0) +100932 +"DATA",1130580001.201,1,5,615,3,55,0) +100933 +"DATA",1130580001.201,1,5,615,3,56,0) +100914 +"DATA",1130580001.201,1,5,615,3,57,0) +100915 +"DATA",1130580001.201,1,5,615,3,58,0) +100917 +"DATA",1130580001.201,1,5,615,3,59,0) +100923 +"DATA",1130580001.201,1,5,615,3,60,0) +100904 +"DATA",1130580001.201,1,5,615,3,61,0) +100905 +"DATA",1130580001.201,1,5,615,3,62,0) +100906 +"DATA",1130580001.201,1,5,615,3,63,0) +100907 +"DATA",1130580001.201,1,5,615,3,64,0) +100908 +"DATA",1130580001.201,1,5,615,3,65,0) +100909 +"DATA",1130580001.201,1,5,615,3,66,0) +100910 +"DATA",1130580001.201,1,5,615,3,67,0) +100911 +"DATA",1130580001.201,1,5,615,3,68,0) +100912 +"DATA",1130580001.201,1,5,615,3,69,0) +100913 +"DATA",1130580001.201,1,5,615,3,70,0) +100864 +"DATA",1130580001.201,1,5,615,3,71,0) +100865 +"DATA",1130580001.201,1,5,615,3,72,0) +100866 +"DATA",1130580001.201,1,5,615,3,73,0) +100867 +"DATA",1130580001.201,1,5,615,3,74,0) +100868 +"DATA",1130580001.201,1,5,615,3,75,0) +100869 +"DATA",1130580001.201,1,5,615,3,76,0) +100870 +"DATA",1130580001.201,1,5,615,3,77,0) +100871 +"DATA",1130580001.201,1,5,615,3,78,0) +100872 +"DATA",1130580001.201,1,5,615,3,79,0) +100873 +"DATA",1130580001.201,1,5,615,3,80,0) +100859 +"DATA",1130580001.201,1,5,615,3,81,0) +100860 +"DATA",1130580001.201,1,5,615,3,82,0) +100862 +"DATA",1130580001.201,1,5,615,3,83,0) +100861 +"DATA",1130580001.201,1,5,615,3,84,0) +100863 +"DATA",1130580001.201,1,5,615,3,85,0) +100851 +"DATA",1130580001.201,1,5,615,3,86,0) +100853 +"DATA",1130580001.201,1,5,615,3,87,0) +100856 +"DATA",1130580001.201,1,5,615,3,88,0) +100146 +"DATA",1130580001.201,1,5,615,3,89,0) +100857 +"DATA",1130580001.201,1,5,615,3,90,0) +100955 +"DATA",1130580001.201,1,5,615,3,91,0) +100616 +"DATA",1130580001.201,1,5,615,3,92,0) +100146 +"DATA",1130580001.201,1,5,615,3,93,0) +100499 +"DATA",1130580001.201,1,5,615,3,94,0) +100506 +"DATA",1130580001.201,1,5,615,3,95,0) +774 +"DATA",1130580001.201,1,5,615,3,96,0) +774 +"DATA",1130580001.201,1,5,615,3,97,0) +100667 +"DATA",1130580001.201,1,5,615,3,98,0) +100676 +"DATA",1130580001.201,1,5,615,3,99,0) +249 +"DATA",1130580001.201,1,5,615,4) +99 +"DATA",1130580001.201,1,5,616,0) +12 +"DATA",1130580001.201,1,5,616,2) +0 +"DATA",1130580001.201,1,5,616,3,0) +^1130580001.20112P^98^98 +"DATA",1130580001.201,1,5,616,3,1,0) +100095 +"DATA",1130580001.201,1,5,616,3,2,0) +100696 +"DATA",1130580001.201,1,5,616,3,3,0) +100622 +"DATA",1130580001.201,1,5,616,3,4,0) +100662 +"DATA",1130580001.201,1,5,616,3,5,0) +100661 +"DATA",1130580001.201,1,5,616,3,6,0) +100499 +"DATA",1130580001.201,1,5,616,3,7,0) +100506 +"DATA",1130580001.201,1,5,616,3,8,0) +100647 +"DATA",1130580001.201,1,5,616,3,9,0) +100648 +"DATA",1130580001.201,1,5,616,3,10,0) +100649 +"DATA",1130580001.201,1,5,616,3,11,0) +100839 +"DATA",1130580001.201,1,5,616,3,12,0) +100878 +"DATA",1130580001.201,1,5,616,3,13,0) +100879 +"DATA",1130580001.201,1,5,616,3,14,0) +100880 +"DATA",1130580001.201,1,5,616,3,15,0) +100881 +"DATA",1130580001.201,1,5,616,3,16,0) +100882 +"DATA",1130580001.201,1,5,616,3,17,0) +100874 +"DATA",1130580001.201,1,5,616,3,18,0) +100875 +"DATA",1130580001.201,1,5,616,3,19,0) +100876 +"DATA",1130580001.201,1,5,616,3,20,0) +100877 +"DATA",1130580001.201,1,5,616,3,21,0) +100883 +"DATA",1130580001.201,1,5,616,3,22,0) +100894 +"DATA",1130580001.201,1,5,616,3,23,0) +100895 +"DATA",1130580001.201,1,5,616,3,24,0) +100896 +"DATA",1130580001.201,1,5,616,3,25,0) +100897 +"DATA",1130580001.201,1,5,616,3,26,0) +100898 +"DATA",1130580001.201,1,5,616,3,27,0) +100899 +"DATA",1130580001.201,1,5,616,3,28,0) +100900 +"DATA",1130580001.201,1,5,616,3,29,0) +100901 +"DATA",1130580001.201,1,5,616,3,30,0) +100902 +"DATA",1130580001.201,1,5,616,3,31,0) +100903 +"DATA",1130580001.201,1,5,616,3,32,0) +100884 +"DATA",1130580001.201,1,5,616,3,33,0) +100885 +"DATA",1130580001.201,1,5,616,3,34,0) +100886 +"DATA",1130580001.201,1,5,616,3,35,0) +100887 +"DATA",1130580001.201,1,5,616,3,36,0) +100888 +"DATA",1130580001.201,1,5,616,3,37,0) +100889 +"DATA",1130580001.201,1,5,616,3,38,0) +100890 +"DATA",1130580001.201,1,5,616,3,39,0) +100891 +"DATA",1130580001.201,1,5,616,3,40,0) +100892 +"DATA",1130580001.201,1,5,616,3,41,0) +100893 +"DATA",1130580001.201,1,5,616,3,42,0) +100338 +"DATA",1130580001.201,1,5,616,3,43,0) +100848 +"DATA",1130580001.201,1,5,616,3,44,0) +100845 +"DATA",1130580001.201,1,5,616,3,45,0) +100850 +"DATA",1130580001.201,1,5,616,3,46,0) +100855 +"DATA",1130580001.201,1,5,616,3,47,0) +100846 +"DATA",1130580001.201,1,5,616,3,48,0) +100847 +"DATA",1130580001.201,1,5,616,3,49,0) +100849 +"DATA",1130580001.201,1,5,616,3,50,0) +100858 +"DATA",1130580001.201,1,5,616,3,51,0) +100852 +"DATA",1130580001.201,1,5,616,3,52,0) +100929 +"DATA",1130580001.201,1,5,616,3,53,0) +100930 +"DATA",1130580001.201,1,5,616,3,54,0) +100931 +"DATA",1130580001.201,1,5,616,3,55,0) +100914 +"DATA",1130580001.201,1,5,616,3,56,0) +100915 +"DATA",1130580001.201,1,5,616,3,57,0) +100917 +"DATA",1130580001.201,1,5,616,3,58,0) +100923 +"DATA",1130580001.201,1,5,616,3,59,0) +100904 +"DATA",1130580001.201,1,5,616,3,60,0) +100905 +"DATA",1130580001.201,1,5,616,3,61,0) +100906 +"DATA",1130580001.201,1,5,616,3,62,0) +100907 +"DATA",1130580001.201,1,5,616,3,63,0) +100908 +"DATA",1130580001.201,1,5,616,3,64,0) +100909 +"DATA",1130580001.201,1,5,616,3,65,0) +100910 +"DATA",1130580001.201,1,5,616,3,66,0) +100911 +"DATA",1130580001.201,1,5,616,3,67,0) +100912 +"DATA",1130580001.201,1,5,616,3,68,0) +100913 +"DATA",1130580001.201,1,5,616,3,69,0) +100864 +"DATA",1130580001.201,1,5,616,3,70,0) +100865 +"DATA",1130580001.201,1,5,616,3,71,0) +100866 +"DATA",1130580001.201,1,5,616,3,72,0) +100867 +"DATA",1130580001.201,1,5,616,3,73,0) +100868 +"DATA",1130580001.201,1,5,616,3,74,0) +100869 +"DATA",1130580001.201,1,5,616,3,75,0) +100870 +"DATA",1130580001.201,1,5,616,3,76,0) +100871 +"DATA",1130580001.201,1,5,616,3,77,0) +100872 +"DATA",1130580001.201,1,5,616,3,78,0) +100873 +"DATA",1130580001.201,1,5,616,3,79,0) +100859 +"DATA",1130580001.201,1,5,616,3,80,0) +100860 +"DATA",1130580001.201,1,5,616,3,81,0) +100862 +"DATA",1130580001.201,1,5,616,3,82,0) +100861 +"DATA",1130580001.201,1,5,616,3,83,0) +100863 +"DATA",1130580001.201,1,5,616,3,84,0) +100851 +"DATA",1130580001.201,1,5,616,3,85,0) +100853 +"DATA",1130580001.201,1,5,616,3,86,0) +100856 +"DATA",1130580001.201,1,5,616,3,87,0) +100146 +"DATA",1130580001.201,1,5,616,3,88,0) +100857 +"DATA",1130580001.201,1,5,616,3,89,0) +100955 +"DATA",1130580001.201,1,5,616,3,90,0) +100616 +"DATA",1130580001.201,1,5,616,3,91,0) +100146 +"DATA",1130580001.201,1,5,616,3,92,0) +100499 +"DATA",1130580001.201,1,5,616,3,93,0) +100506 +"DATA",1130580001.201,1,5,616,3,94,0) +774 +"DATA",1130580001.201,1,5,616,3,95,0) +774 +"DATA",1130580001.201,1,5,616,3,96,0) +100667 +"DATA",1130580001.201,1,5,616,3,97,0) +100676 +"DATA",1130580001.201,1,5,616,3,98,0) +249 +"DATA",1130580001.201,1,5,616,4) +98 +"DATA",1130580001.201,1,5,617,0) +21 +"DATA",1130580001.201,1,5,617,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,617,1,1,0) +100942 +"DATA",1130580001.201,1,5,617,1,2,0) +100943 +"DATA",1130580001.201,1,5,617,1,3,0) +100944 +"DATA",1130580001.201,1,5,617,1,4,0) +100945 +"DATA",1130580001.201,1,5,617,1,5,0) +100946 +"DATA",1130580001.201,1,5,617,1,6,0) +100935 +"DATA",1130580001.201,1,5,617,1,7,0) +100936 +"DATA",1130580001.201,1,5,617,1,8,0) +100939 +"DATA",1130580001.201,1,5,617,1,9,0) +100940 +"DATA",1130580001.201,1,5,617,1,10,0) +100941 +"DATA",1130580001.201,1,5,617,2) +10 +"DATA",1130580001.201,1,5,617,3,0) +^1130580001.20112P^19^19 +"DATA",1130580001.201,1,5,617,3,1,0) +100942 +"DATA",1130580001.201,1,5,617,3,2,0) +100943 +"DATA",1130580001.201,1,5,617,3,3,0) +100944 +"DATA",1130580001.201,1,5,617,3,4,0) +100945 +"DATA",1130580001.201,1,5,617,3,5,0) +100946 +"DATA",1130580001.201,1,5,617,3,6,0) +100935 +"DATA",1130580001.201,1,5,617,3,7,0) +100936 +"DATA",1130580001.201,1,5,617,3,8,0) +100939 +"DATA",1130580001.201,1,5,617,3,9,0) +100940 +"DATA",1130580001.201,1,5,617,3,10,0) +100941 +"DATA",1130580001.201,1,5,617,3,11,0) +100951 +"DATA",1130580001.201,1,5,617,3,12,0) +100952 +"DATA",1130580001.201,1,5,617,3,13,0) +100953 +"DATA",1130580001.201,1,5,617,3,14,0) +100954 +"DATA",1130580001.201,1,5,617,3,15,0) +100934 +"DATA",1130580001.201,1,5,617,3,16,0) +100937 +"DATA",1130580001.201,1,5,617,3,17,0) +100947 +"DATA",1130580001.201,1,5,617,3,18,0) +100948 +"DATA",1130580001.201,1,5,617,3,19,0) +100949 +"DATA",1130580001.201,1,5,617,4) +19 +"DATA",1130580001.201,1,5,618,0) +20 +"DATA",1130580001.201,1,5,618,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,618,1,1,0) +100950 +"DATA",1130580001.201,1,5,618,1,2,0) +100951 +"DATA",1130580001.201,1,5,618,1,3,0) +100952 +"DATA",1130580001.201,1,5,618,1,4,0) +100953 +"DATA",1130580001.201,1,5,618,1,5,0) +100954 +"DATA",1130580001.201,1,5,618,1,6,0) +100934 +"DATA",1130580001.201,1,5,618,1,7,0) +100937 +"DATA",1130580001.201,1,5,618,1,8,0) +100947 +"DATA",1130580001.201,1,5,618,1,9,0) +100948 +"DATA",1130580001.201,1,5,618,1,10,0) +100949 +"DATA",1130580001.201,1,5,618,1,11,0) +100957 +"DATA",1130580001.201,1,5,618,2) +11 +"DATA",1130580001.201,1,5,618,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,618,3,1,0) +100950 +"DATA",1130580001.201,1,5,618,3,2,0) +100951 +"DATA",1130580001.201,1,5,618,3,3,0) +100952 +"DATA",1130580001.201,1,5,618,3,4,0) +100953 +"DATA",1130580001.201,1,5,618,3,5,0) +100954 +"DATA",1130580001.201,1,5,618,3,6,0) +100934 +"DATA",1130580001.201,1,5,618,3,7,0) +100937 +"DATA",1130580001.201,1,5,618,3,8,0) +100947 +"DATA",1130580001.201,1,5,618,3,9,0) +100948 +"DATA",1130580001.201,1,5,618,3,10,0) +100949 +"DATA",1130580001.201,1,5,618,3,11,0) +100957 +"DATA",1130580001.201,1,5,618,4) +11 +"DATA",1130580001.201,1,6) +^N^Y +"DATA",1130580001.201,2,0) +SAMPLE2 +"DATA",1130580001.201,3,0) +GPLTEST SET +"DATA",1130580001.201,3,5,0) +^1130580001.2011P^16^3 +"DATA",1130580001.201,3,5,14,0) +5 +"DATA",1130580001.201,3,5,14,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,3,5,14,1,1,0) +100696 +"DATA",1130580001.201,3,5,14,1,2,0) +100622 +"DATA",1130580001.201,3,5,14,1,3,0) +100662 +"DATA",1130580001.201,3,5,14,1,4,0) +100661 +"DATA",1130580001.201,3,5,14,1,5,0) +100649 +"DATA",1130580001.201,3,5,14,1,6,0) +100338 +"DATA",1130580001.201,3,5,14,1,7,0) +100848 +"DATA",1130580001.201,3,5,14,1,8,0) +100845 +"DATA",1130580001.201,3,5,14,1,9,0) +100146 +"DATA",1130580001.201,3,5,14,1,10,0) +100616 +"DATA",1130580001.201,3,5,14,1,11,0) +100667 +"DATA",1130580001.201,3,5,14,1,12,0) +100676 +"DATA",1130580001.201,3,5,14,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,3,5,14,3,1,0) +100095 +"DATA",1130580001.201,3,5,14,3,2,0) +100696 +"DATA",1130580001.201,3,5,14,3,3,0) +100622 +"DATA",1130580001.201,3,5,14,3,4,0) +100662 +"DATA",1130580001.201,3,5,14,3,5,0) +100661 +"DATA",1130580001.201,3,5,14,3,6,0) +100499 +"DATA",1130580001.201,3,5,14,3,7,0) +100506 +"DATA",1130580001.201,3,5,14,3,8,0) +100647 +"DATA",1130580001.201,3,5,14,3,9,0) +100648 +"DATA",1130580001.201,3,5,14,3,10,0) +100649 +"DATA",1130580001.201,3,5,14,3,11,0) +100839 +"DATA",1130580001.201,3,5,14,3,12,0) +100878 +"DATA",1130580001.201,3,5,14,3,13,0) +100879 +"DATA",1130580001.201,3,5,14,3,14,0) +100894 +"DATA",1130580001.201,3,5,14,3,15,0) +100887 +"DATA",1130580001.201,3,5,14,3,16,0) +100888 +"DATA",1130580001.201,3,5,14,3,17,0) +100338 +"DATA",1130580001.201,3,5,14,3,18,0) +100848 +"DATA",1130580001.201,3,5,14,3,19,0) +100845 +"DATA",1130580001.201,3,5,14,3,20,0) +100850 +"DATA",1130580001.201,3,5,14,3,21,0) +100855 +"DATA",1130580001.201,3,5,14,3,22,0) +100846 +"DATA",1130580001.201,3,5,14,3,23,0) +100847 +"DATA",1130580001.201,3,5,14,3,24,0) +100849 +"DATA",1130580001.201,3,5,14,3,25,0) +100858 +"DATA",1130580001.201,3,5,14,3,26,0) +100852 +"DATA",1130580001.201,3,5,14,3,27,0) +100929 +"DATA",1130580001.201,3,5,14,3,28,0) +100923 +"DATA",1130580001.201,3,5,14,3,29,0) +100904 +"DATA",1130580001.201,3,5,14,3,30,0) +100905 +"DATA",1130580001.201,3,5,14,3,31,0) +100907 +"DATA",1130580001.201,3,5,14,3,32,0) +100913 +"DATA",1130580001.201,3,5,14,3,33,0) +100859 +"DATA",1130580001.201,3,5,14,3,34,0) +100860 +"DATA",1130580001.201,3,5,14,3,35,0) +100862 +"DATA",1130580001.201,3,5,14,3,36,0) +100861 +"DATA",1130580001.201,3,5,14,3,37,0) +100863 +"DATA",1130580001.201,3,5,14,3,38,0) +100851 +"DATA",1130580001.201,3,5,14,3,39,0) +100853 +"DATA",1130580001.201,3,5,14,3,40,0) +100856 +"DATA",1130580001.201,3,5,14,3,41,0) +100146 +"DATA",1130580001.201,3,5,14,3,42,0) +100857 +"DATA",1130580001.201,3,5,14,3,43,0) +100616 +"DATA",1130580001.201,3,5,14,3,44,0) +774 +"DATA",1130580001.201,3,5,14,3,45,0) +100667 +"DATA",1130580001.201,3,5,14,3,46,0) +100676 +"DATA",1130580001.201,3,5,14,3,47,0) +249 +"DATA",1130580001.201,3,5,15,0) +4 +"DATA",1130580001.201,3,5,15,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,3,5,15,1,1,0) +100095 +"DATA",1130580001.201,3,5,15,1,2,0) +100696 +"DATA",1130580001.201,3,5,15,1,3,0) +100622 +"DATA",1130580001.201,3,5,15,1,4,0) +100662 +"DATA",1130580001.201,3,5,15,1,5,0) +100661 +"DATA",1130580001.201,3,5,15,1,6,0) +100499 +"DATA",1130580001.201,3,5,15,1,7,0) +100506 +"DATA",1130580001.201,3,5,15,1,8,0) +100647 +"DATA",1130580001.201,3,5,15,1,9,0) +100648 +"DATA",1130580001.201,3,5,15,1,10,0) +100649 +"DATA",1130580001.201,3,5,15,1,11,0) +100839 +"DATA",1130580001.201,3,5,15,1,12,0) +100942 +"DATA",1130580001.201,3,5,15,1,13,0) +100943 +"DATA",1130580001.201,3,5,15,1,14,0) +100935 +"DATA",1130580001.201,3,5,15,1,15,0) +100941 +"DATA",1130580001.201,3,5,15,1,16,0) +100878 +"DATA",1130580001.201,3,5,15,1,17,0) +100879 +"DATA",1130580001.201,3,5,15,1,18,0) +100880 +"DATA",1130580001.201,3,5,15,1,19,0) +100881 +"DATA",1130580001.201,3,5,15,1,20,0) +100882 +"DATA",1130580001.201,3,5,15,1,21,0) +100874 +"DATA",1130580001.201,3,5,15,1,22,0) +100875 +"DATA",1130580001.201,3,5,15,1,23,0) +100876 +"DATA",1130580001.201,3,5,15,1,24,0) +100883 +"DATA",1130580001.201,3,5,15,1,25,0) +100894 +"DATA",1130580001.201,3,5,15,1,26,0) +100895 +"DATA",1130580001.201,3,5,15,1,27,0) +100896 +"DATA",1130580001.201,3,5,15,1,28,0) +100897 +"DATA",1130580001.201,3,5,15,1,29,0) +100898 +"DATA",1130580001.201,3,5,15,1,30,0) +100899 +"DATA",1130580001.201,3,5,15,1,31,0) +100900 +"DATA",1130580001.201,3,5,15,1,32,0) +100901 +"DATA",1130580001.201,3,5,15,1,33,0) +100902 +"DATA",1130580001.201,3,5,15,1,34,0) +100903 +"DATA",1130580001.201,3,5,15,1,35,0) +100884 +"DATA",1130580001.201,3,5,15,1,36,0) +100885 +"DATA",1130580001.201,3,5,15,1,37,0) +100886 +"DATA",1130580001.201,3,5,15,1,38,0) +100887 +"DATA",1130580001.201,3,5,15,1,39,0) +100888 +"DATA",1130580001.201,3,5,15,1,40,0) +100889 +"DATA",1130580001.201,3,5,15,1,41,0) +100890 +"DATA",1130580001.201,3,5,15,1,42,0) +100891 +"DATA",1130580001.201,3,5,15,1,43,0) +100338 +"DATA",1130580001.201,3,5,15,1,44,0) +100848 +"DATA",1130580001.201,3,5,15,1,45,0) +100845 +"DATA",1130580001.201,3,5,15,1,46,0) +100850 +"DATA",1130580001.201,3,5,15,1,47,0) +100855 +"DATA",1130580001.201,3,5,15,1,48,0) +100846 +"DATA",1130580001.201,3,5,15,1,49,0) +100847 +"DATA",1130580001.201,3,5,15,1,50,0) +100849 +"DATA",1130580001.201,3,5,15,1,51,0) +100858 +"DATA",1130580001.201,3,5,15,1,52,0) +100852 +"DATA",1130580001.201,3,5,15,1,53,0) +100929 +"DATA",1130580001.201,3,5,15,1,54,0) +100930 +"DATA",1130580001.201,3,5,15,1,55,0) +100931 +"DATA",1130580001.201,3,5,15,1,56,0) +100932 +"DATA",1130580001.201,3,5,15,1,57,0) +100933 +"DATA",1130580001.201,3,5,15,1,58,0) +100914 +"DATA",1130580001.201,3,5,15,1,59,0) +100915 +"DATA",1130580001.201,3,5,15,1,60,0) +100917 +"DATA",1130580001.201,3,5,15,1,61,0) +100923 +"DATA",1130580001.201,3,5,15,1,62,0) +100904 +"DATA",1130580001.201,3,5,15,1,63,0) +100905 +"DATA",1130580001.201,3,5,15,1,64,0) +100906 +"DATA",1130580001.201,3,5,15,1,65,0) +100907 +"DATA",1130580001.201,3,5,15,1,66,0) +100909 +"DATA",1130580001.201,3,5,15,1,67,0) +100913 +"DATA",1130580001.201,3,5,15,1,68,0) +100859 +"DATA",1130580001.201,3,5,15,1,69,0) +100860 +"DATA",1130580001.201,3,5,15,1,70,0) +100862 +"DATA",1130580001.201,3,5,15,1,71,0) +100861 +"DATA",1130580001.201,3,5,15,1,72,0) +100863 +"DATA",1130580001.201,3,5,15,1,73,0) +100851 +"DATA",1130580001.201,3,5,15,1,74,0) +100853 +"DATA",1130580001.201,3,5,15,1,75,0) +100856 +"DATA",1130580001.201,3,5,15,1,76,0) +100146 +"DATA",1130580001.201,3,5,15,1,77,0) +100857 +"DATA",1130580001.201,3,5,15,1,78,0) +100955 +"DATA",1130580001.201,3,5,15,1,79,0) +100616 +"DATA",1130580001.201,3,5,15,1,80,0) +100146 +"DATA",1130580001.201,3,5,15,1,81,0) +100499 +"DATA",1130580001.201,3,5,15,1,82,0) +100506 +"DATA",1130580001.201,3,5,15,1,83,0) +774 +"DATA",1130580001.201,3,5,15,1,84,0) +774 +"DATA",1130580001.201,3,5,15,1,85,0) +100667 +"DATA",1130580001.201,3,5,15,1,86,0) +100676 +"DATA",1130580001.201,3,5,15,1,87,0) +100951 +"DATA",1130580001.201,3,5,15,1,88,0) +100952 +"DATA",1130580001.201,3,5,15,1,89,0) +100953 +"DATA",1130580001.201,3,5,15,1,90,0) +100954 +"DATA",1130580001.201,3,5,15,1,91,0) +100934 +"DATA",1130580001.201,3,5,15,1,92,0) +100937 +"DATA",1130580001.201,3,5,15,1,93,0) +100947 +"DATA",1130580001.201,3,5,15,1,94,0) +100948 +"DATA",1130580001.201,3,5,15,1,95,0) +100949 +"DATA",1130580001.201,3,5,15,1,96,0) +249 +"DATA",1130580001.201,3,5,15,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,3,5,15,3,1,0) +100095 +"DATA",1130580001.201,3,5,15,3,2,0) +100696 +"DATA",1130580001.201,3,5,15,3,3,0) +100622 +"DATA",1130580001.201,3,5,15,3,4,0) +100662 +"DATA",1130580001.201,3,5,15,3,5,0) +100661 +"DATA",1130580001.201,3,5,15,3,6,0) +100499 +"DATA",1130580001.201,3,5,15,3,7,0) +100506 +"DATA",1130580001.201,3,5,15,3,8,0) +100647 +"DATA",1130580001.201,3,5,15,3,9,0) +100648 +"DATA",1130580001.201,3,5,15,3,10,0) +100649 +"DATA",1130580001.201,3,5,15,3,11,0) +100839 +"DATA",1130580001.201,3,5,15,3,12,0) +100942 +"DATA",1130580001.201,3,5,15,3,13,0) +100943 +"DATA",1130580001.201,3,5,15,3,14,0) +100935 +"DATA",1130580001.201,3,5,15,3,15,0) +100941 +"DATA",1130580001.201,3,5,15,3,16,0) +100878 +"DATA",1130580001.201,3,5,15,3,17,0) +100879 +"DATA",1130580001.201,3,5,15,3,18,0) +100880 +"DATA",1130580001.201,3,5,15,3,19,0) +100881 +"DATA",1130580001.201,3,5,15,3,20,0) +100882 +"DATA",1130580001.201,3,5,15,3,21,0) +100874 +"DATA",1130580001.201,3,5,15,3,22,0) +100875 +"DATA",1130580001.201,3,5,15,3,23,0) +100876 +"DATA",1130580001.201,3,5,15,3,24,0) +100883 +"DATA",1130580001.201,3,5,15,3,25,0) +100894 +"DATA",1130580001.201,3,5,15,3,26,0) +100895 +"DATA",1130580001.201,3,5,15,3,27,0) +100896 +"DATA",1130580001.201,3,5,15,3,28,0) +100897 +"DATA",1130580001.201,3,5,15,3,29,0) +100898 +"DATA",1130580001.201,3,5,15,3,30,0) +100899 +"DATA",1130580001.201,3,5,15,3,31,0) +100900 +"DATA",1130580001.201,3,5,15,3,32,0) +100901 +"DATA",1130580001.201,3,5,15,3,33,0) +100902 +"DATA",1130580001.201,3,5,15,3,34,0) +100903 +"DATA",1130580001.201,3,5,15,3,35,0) +100884 +"DATA",1130580001.201,3,5,15,3,36,0) +100885 +"DATA",1130580001.201,3,5,15,3,37,0) +100886 +"DATA",1130580001.201,3,5,15,3,38,0) +100887 +"DATA",1130580001.201,3,5,15,3,39,0) +100888 +"DATA",1130580001.201,3,5,15,3,40,0) +100889 +"DATA",1130580001.201,3,5,15,3,41,0) +100890 +"DATA",1130580001.201,3,5,15,3,42,0) +100891 +"DATA",1130580001.201,3,5,15,3,43,0) +100338 +"DATA",1130580001.201,3,5,15,3,44,0) +100848 +"DATA",1130580001.201,3,5,15,3,45,0) +100845 +"DATA",1130580001.201,3,5,15,3,46,0) +100850 +"DATA",1130580001.201,3,5,15,3,47,0) +100855 +"DATA",1130580001.201,3,5,15,3,48,0) +100846 +"DATA",1130580001.201,3,5,15,3,49,0) +100847 +"DATA",1130580001.201,3,5,15,3,50,0) +100849 +"DATA",1130580001.201,3,5,15,3,51,0) +100858 +"DATA",1130580001.201,3,5,15,3,52,0) +100852 +"DATA",1130580001.201,3,5,15,3,53,0) +100929 +"DATA",1130580001.201,3,5,15,3,54,0) +100930 +"DATA",1130580001.201,3,5,15,3,55,0) +100931 +"DATA",1130580001.201,3,5,15,3,56,0) +100932 +"DATA",1130580001.201,3,5,15,3,57,0) +100933 +"DATA",1130580001.201,3,5,15,3,58,0) +100914 +"DATA",1130580001.201,3,5,15,3,59,0) +100915 +"DATA",1130580001.201,3,5,15,3,60,0) +100917 +"DATA",1130580001.201,3,5,15,3,61,0) +100923 +"DATA",1130580001.201,3,5,15,3,62,0) +100904 +"DATA",1130580001.201,3,5,15,3,63,0) +100905 +"DATA",1130580001.201,3,5,15,3,64,0) +100906 +"DATA",1130580001.201,3,5,15,3,65,0) +100907 +"DATA",1130580001.201,3,5,15,3,66,0) +100909 +"DATA",1130580001.201,3,5,15,3,67,0) +100913 +"DATA",1130580001.201,3,5,15,3,68,0) +100859 +"DATA",1130580001.201,3,5,15,3,69,0) +100860 +"DATA",1130580001.201,3,5,15,3,70,0) +100862 +"DATA",1130580001.201,3,5,15,3,71,0) +100861 +"DATA",1130580001.201,3,5,15,3,72,0) +100863 +"DATA",1130580001.201,3,5,15,3,73,0) +100851 +"DATA",1130580001.201,3,5,15,3,74,0) +100853 +"DATA",1130580001.201,3,5,15,3,75,0) +100856 +"DATA",1130580001.201,3,5,15,3,76,0) +100146 +"DATA",1130580001.201,3,5,15,3,77,0) +100857 +"DATA",1130580001.201,3,5,15,3,78,0) +100955 +"DATA",1130580001.201,3,5,15,3,79,0) +100616 +"DATA",1130580001.201,3,5,15,3,80,0) +100146 +"DATA",1130580001.201,3,5,15,3,81,0) +100499 +"DATA",1130580001.201,3,5,15,3,82,0) +100506 +"DATA",1130580001.201,3,5,15,3,83,0) +774 +"DATA",1130580001.201,3,5,15,3,84,0) +774 +"DATA",1130580001.201,3,5,15,3,85,0) +100667 +"DATA",1130580001.201,3,5,15,3,86,0) +100676 +"DATA",1130580001.201,3,5,15,3,87,0) +100951 +"DATA",1130580001.201,3,5,15,3,88,0) +100952 +"DATA",1130580001.201,3,5,15,3,89,0) +100953 +"DATA",1130580001.201,3,5,15,3,90,0) +100954 +"DATA",1130580001.201,3,5,15,3,91,0) +100934 +"DATA",1130580001.201,3,5,15,3,92,0) +100937 +"DATA",1130580001.201,3,5,15,3,93,0) +100947 +"DATA",1130580001.201,3,5,15,3,94,0) +100948 +"DATA",1130580001.201,3,5,15,3,95,0) +100949 +"DATA",1130580001.201,3,5,15,3,96,0) +249 +"DATA",1130580001.201,3,5,16,0) +6 +"DATA",1130580001.201,3,5,16,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,3,5,16,1,1,0) +100647 +"DATA",1130580001.201,3,5,16,1,2,0) +100894 +"DATA",1130580001.201,3,5,16,1,3,0) +100900 +"DATA",1130580001.201,3,5,16,1,4,0) +100901 +"DATA",1130580001.201,3,5,16,1,5,0) +100902 +"DATA",1130580001.201,3,5,16,1,6,0) +100903 +"DATA",1130580001.201,3,5,16,1,7,0) +100885 +"DATA",1130580001.201,3,5,16,1,8,0) +100887 +"DATA",1130580001.201,3,5,16,1,9,0) +100890 +"DATA",1130580001.201,3,5,16,1,10,0) +100891 +"DATA",1130580001.201,3,5,16,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,3,5,16,3,1,0) +100696 +"DATA",1130580001.201,3,5,16,3,2,0) +100622 +"DATA",1130580001.201,3,5,16,3,3,0) +100662 +"DATA",1130580001.201,3,5,16,3,4,0) +100661 +"DATA",1130580001.201,3,5,16,3,5,0) +100499 +"DATA",1130580001.201,3,5,16,3,6,0) +100506 +"DATA",1130580001.201,3,5,16,3,7,0) +100647 +"DATA",1130580001.201,3,5,16,3,8,0) +100648 +"DATA",1130580001.201,3,5,16,3,9,0) +100649 +"DATA",1130580001.201,3,5,16,3,10,0) +100839 +"DATA",1130580001.201,3,5,16,3,11,0) +100894 +"DATA",1130580001.201,3,5,16,3,12,0) +100895 +"DATA",1130580001.201,3,5,16,3,13,0) +100896 +"DATA",1130580001.201,3,5,16,3,14,0) +100897 +"DATA",1130580001.201,3,5,16,3,15,0) +100898 +"DATA",1130580001.201,3,5,16,3,16,0) +100899 +"DATA",1130580001.201,3,5,16,3,17,0) +100900 +"DATA",1130580001.201,3,5,16,3,18,0) +100901 +"DATA",1130580001.201,3,5,16,3,19,0) +100902 +"DATA",1130580001.201,3,5,16,3,20,0) +100903 +"DATA",1130580001.201,3,5,16,3,21,0) +100885 +"DATA",1130580001.201,3,5,16,3,22,0) +100887 +"DATA",1130580001.201,3,5,16,3,23,0) +100888 +"DATA",1130580001.201,3,5,16,3,24,0) +100889 +"DATA",1130580001.201,3,5,16,3,25,0) +100890 +"DATA",1130580001.201,3,5,16,3,26,0) +100891 +"DATA",1130580001.201,3,5,16,3,27,0) +100929 +"DATA",1130580001.201,3,5,16,3,28,0) +100930 +"DATA",1130580001.201,3,5,16,3,29,0) +100931 +"DATA",1130580001.201,3,5,16,3,30,0) +100932 +"DATA",1130580001.201,3,5,16,3,31,0) +100933 +"DATA",1130580001.201,3,5,16,3,32,0) +100616 +"DATA",1130580001.201,3,5,16,3,33,0) +774 +"DATA",1130580001.201,3,5,16,3,34,0) +100667 +"DATA",1130580001.201,3,5,16,3,35,0) +100676 +"DATA",1130580001.201,3,5,16,3,36,0) +249 +"DATA",1130580001.201,4,0) +MEANINGFUL USE +"DATA",1130580001.201,4,4) +^^3100101^3101231 +"DATA",1130580001.201,4,5,0) +^1130580001.2011P^1^1 +"DATA",1130580001.201,4,5,1,0) +22 +"DATA",1130580001.201,4,5,1,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,4,5,1,1,1,0) +100894 +"DATA",1130580001.201,4,5,1,1,2,0) +100897 +"DATA",1130580001.201,4,5,1,1,3,0) +100885 +"DATA",1130580001.201,4,5,1,1,4,0) +100929 +"DATA",1130580001.201,4,5,1,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,4,5,1,3,1,0) +100894 +"DATA",1130580001.201,4,5,1,3,2,0) +100897 +"DATA",1130580001.201,4,5,1,3,3,0) +100885 +"DATA",1130580001.201,4,5,1,3,4,0) +100929 +"DATA",1130580001.201,4,6) +^^Y +"DATA",1130580001.201,5,0) +HOS 2011 MEANINGFUL USE +"DATA",1130580001.201,5,5,0) +^1130580001.2011P^361^15 +"DATA",1130580001.201,5,5,347,0) +23 +"DATA",1130580001.201,5,5,347,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,347,1,1,0) +109 +"DATA",1130580001.201,5,5,347,1,2,0) +135 +"DATA",1130580001.201,5,5,347,1,3,0) +113 +"DATA",1130580001.201,5,5,347,1,4,0) +138 +"DATA",1130580001.201,5,5,347,1,5,0) +122 +"DATA",1130580001.201,5,5,347,2) +5 +"DATA",1130580001.201,5,5,347,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,347,3,1,0) +109 +"DATA",1130580001.201,5,5,347,3,2,0) +135 +"DATA",1130580001.201,5,5,347,3,3,0) +113 +"DATA",1130580001.201,5,5,347,3,4,0) +138 +"DATA",1130580001.201,5,5,347,3,5,0) +122 +"DATA",1130580001.201,5,5,347,4) +5^100 +"DATA",1130580001.201,5,5,348,0) +24 +"DATA",1130580001.201,5,5,348,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,348,1,1,0) +15 +"DATA",1130580001.201,5,5,348,1,2,0) +152 +"DATA",1130580001.201,5,5,348,2) +2 +"DATA",1130580001.201,5,5,348,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,348,3,1,0) +109 +"DATA",1130580001.201,5,5,348,3,2,0) +135 +"DATA",1130580001.201,5,5,348,3,3,0) +113 +"DATA",1130580001.201,5,5,348,3,4,0) +138 +"DATA",1130580001.201,5,5,348,3,5,0) +122 +"DATA",1130580001.201,5,5,348,4) +5^40 +"DATA",1130580001.201,5,5,349,0) +32 +"DATA",1130580001.201,5,5,349,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,349,1,1,0) +111 +"DATA",1130580001.201,5,5,349,2) +1 +"DATA",1130580001.201,5,5,349,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,349,3,1,0) +146 +"DATA",1130580001.201,5,5,349,3,2,0) +97 +"DATA",1130580001.201,5,5,349,3,3,0) +135 +"DATA",1130580001.201,5,5,349,4) +3^33 +"DATA",1130580001.201,5,5,350,0) +33 +"DATA",1130580001.201,5,5,350,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,350,1,1,0) +146 +"DATA",1130580001.201,5,5,350,1,2,0) +97 +"DATA",1130580001.201,5,5,350,1,3,0) +135 +"DATA",1130580001.201,5,5,350,2) +3 +"DATA",1130580001.201,5,5,350,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,350,3,1,0) +146 +"DATA",1130580001.201,5,5,350,3,2,0) +97 +"DATA",1130580001.201,5,5,350,3,3,0) +135 +"DATA",1130580001.201,5,5,350,4) +3^100 +"DATA",1130580001.201,5,5,351,0) +34 +"DATA",1130580001.201,5,5,351,2) +0 +"DATA",1130580001.201,5,5,351,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,351,3,1,0) +128 +"DATA",1130580001.201,5,5,351,3,2,0) +141 +"DATA",1130580001.201,5,5,351,4) +2^0 +"DATA",1130580001.201,5,5,352,0) +35 +"DATA",1130580001.201,5,5,352,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,352,1,1,0) +128 +"DATA",1130580001.201,5,5,352,2) +1 +"DATA",1130580001.201,5,5,352,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,352,3,1,0) +128 +"DATA",1130580001.201,5,5,352,3,2,0) +141 +"DATA",1130580001.201,5,5,352,4) +2^50 +"DATA",1130580001.201,5,5,353,0) +36 +"DATA",1130580001.201,5,5,353,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,353,1,1,0) +120 +"DATA",1130580001.201,5,5,353,2) +1 +"DATA",1130580001.201,5,5,353,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,353,3,1,0) +127 +"DATA",1130580001.201,5,5,353,3,2,0) +120 +"DATA",1130580001.201,5,5,353,4) +2^50 +"DATA",1130580001.201,5,5,354,0) +37 +"DATA",1130580001.201,5,5,354,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,354,1,1,0) +150 +"DATA",1130580001.201,5,5,354,2) +1 +"DATA",1130580001.201,5,5,354,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,5,5,354,3,1,0) +127 +"DATA",1130580001.201,5,5,354,3,2,0) +120 +"DATA",1130580001.201,5,5,354,3,3,0) +106 +"DATA",1130580001.201,5,5,354,3,4,0) +128 +"DATA",1130580001.201,5,5,354,3,5,0) +150 +"DATA",1130580001.201,5,5,354,3,6,0) +141 +"DATA",1130580001.201,5,5,354,4) +6^17 +"DATA",1130580001.201,5,5,355,0) +25 +"DATA",1130580001.201,5,5,355,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,355,1,1,0) +129 +"DATA",1130580001.201,5,5,355,1,2,0) +111 +"DATA",1130580001.201,5,5,355,2) +2 +"DATA",1130580001.201,5,5,355,3,0) +^1130580001.20112P^15^15 +"DATA",1130580001.201,5,5,355,3,1,0) +144 +"DATA",1130580001.201,5,5,355,3,2,0) +103 +"DATA",1130580001.201,5,5,355,3,3,0) +145 +"DATA",1130580001.201,5,5,355,3,4,0) +123 +"DATA",1130580001.201,5,5,355,3,5,0) +147 +"DATA",1130580001.201,5,5,355,3,6,0) +129 +"DATA",1130580001.201,5,5,355,3,7,0) +149 +"DATA",1130580001.201,5,5,355,3,8,0) +130 +"DATA",1130580001.201,5,5,355,3,9,0) +131 +"DATA",1130580001.201,5,5,355,3,10,0) +109 +"DATA",1130580001.201,5,5,355,3,11,0) +110 +"DATA",1130580001.201,5,5,355,3,12,0) +111 +"DATA",1130580001.201,5,5,355,3,13,0) +134 +"DATA",1130580001.201,5,5,355,3,14,0) +113 +"DATA",1130580001.201,5,5,355,3,15,0) +138 +"DATA",1130580001.201,5,5,355,4) +15^13 +"DATA",1130580001.201,5,5,356,0) +26 +"DATA",1130580001.201,5,5,356,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,356,1,1,0) +131 +"DATA",1130580001.201,5,5,356,2) +1 +"DATA",1130580001.201,5,5,356,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,356,3,1,0) +149 +"DATA",1130580001.201,5,5,356,3,2,0) +130 +"DATA",1130580001.201,5,5,356,3,3,0) +131 +"DATA",1130580001.201,5,5,356,4) +3^33 +"DATA",1130580001.201,5,5,357,0) +27 +"DATA",1130580001.201,5,5,357,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,357,1,1,0) +138 +"DATA",1130580001.201,5,5,357,2) +1 +"DATA",1130580001.201,5,5,357,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,357,3,1,0) +109 +"DATA",1130580001.201,5,5,357,3,2,0) +113 +"DATA",1130580001.201,5,5,357,3,3,0) +138 +"DATA",1130580001.201,5,5,357,4) +3^33 +"DATA",1130580001.201,5,5,358,0) +28 +"DATA",1130580001.201,5,5,358,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,358,1,1,0) +111 +"DATA",1130580001.201,5,5,358,2) +1 +"DATA",1130580001.201,5,5,358,3,0) +^1130580001.20112P^8^8 +"DATA",1130580001.201,5,5,358,3,1,0) +129 +"DATA",1130580001.201,5,5,358,3,2,0) +149 +"DATA",1130580001.201,5,5,358,3,3,0) +130 +"DATA",1130580001.201,5,5,358,3,4,0) +131 +"DATA",1130580001.201,5,5,358,3,5,0) +110 +"DATA",1130580001.201,5,5,358,3,6,0) +111 +"DATA",1130580001.201,5,5,358,3,7,0) +134 +"DATA",1130580001.201,5,5,358,3,8,0) +41 +"DATA",1130580001.201,5,5,358,4) +8^13 +"DATA",1130580001.201,5,5,359,0) +31 +"DATA",1130580001.201,5,5,359,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,359,1,1,0) +144 +"DATA",1130580001.201,5,5,359,1,2,0) +145 +"DATA",1130580001.201,5,5,359,1,3,0) +123 +"DATA",1130580001.201,5,5,359,1,4,0) +147 +"DATA",1130580001.201,5,5,359,1,5,0) +129 +"DATA",1130580001.201,5,5,359,2) +5 +"DATA",1130580001.201,5,5,359,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,5,5,359,3,1,0) +144 +"DATA",1130580001.201,5,5,359,3,2,0) +103 +"DATA",1130580001.201,5,5,359,3,3,0) +145 +"DATA",1130580001.201,5,5,359,3,4,0) +125 +"DATA",1130580001.201,5,5,359,3,5,0) +123 +"DATA",1130580001.201,5,5,359,3,6,0) +147 +"DATA",1130580001.201,5,5,359,3,7,0) +129 +"DATA",1130580001.201,5,5,359,3,8,0) +149 +"DATA",1130580001.201,5,5,359,3,9,0) +130 +"DATA",1130580001.201,5,5,359,3,10,0) +131 +"DATA",1130580001.201,5,5,359,3,11,0) +109 +"DATA",1130580001.201,5,5,359,3,12,0) +110 +"DATA",1130580001.201,5,5,359,3,13,0) +111 +"DATA",1130580001.201,5,5,359,3,14,0) +133 +"DATA",1130580001.201,5,5,359,3,15,0) +134 +"DATA",1130580001.201,5,5,359,3,16,0) +113 +"DATA",1130580001.201,5,5,359,3,17,0) +138 +"DATA",1130580001.201,5,5,359,4) +17^29 +"DATA",1130580001.201,5,5,360,0) +29 +"DATA",1130580001.201,5,5,360,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,360,1,1,0) +144 +"DATA",1130580001.201,5,5,360,2) +1 +"DATA",1130580001.201,5,5,360,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,360,3,1,0) +144 +"DATA",1130580001.201,5,5,360,3,2,0) +103 +"DATA",1130580001.201,5,5,360,3,3,0) +145 +"DATA",1130580001.201,5,5,360,4) +3^33 +"DATA",1130580001.201,5,5,361,0) +30 +"DATA",1130580001.201,5,5,361,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,361,1,1,0) +125 +"DATA",1130580001.201,5,5,361,1,2,0) +123 +"DATA",1130580001.201,5,5,361,1,3,0) +147 +"DATA",1130580001.201,5,5,361,2) +3 +"DATA",1130580001.201,5,5,361,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,5,5,361,3,1,0) +125 +"DATA",1130580001.201,5,5,361,3,2,0) +123 +"DATA",1130580001.201,5,5,361,3,3,0) +127 +"DATA",1130580001.201,5,5,361,3,4,0) +120 +"DATA",1130580001.201,5,5,361,3,5,0) +147 +"DATA",1130580001.201,5,5,361,3,6,0) +107 +"DATA",1130580001.201,5,5,361,3,7,0) +134 +"DATA",1130580001.201,5,5,361,4) +7^43 +"DATA",1130580001.201,6,0) +EP 2011 MEANINGFUL USE +"DATA",1130580001.201,6,5,0) +^1130580001.2011P^214^43 +"DATA",1130580001.201,6,5,172,0) +59 +"DATA",1130580001.201,6,5,172,2) +0 +"DATA",1130580001.201,6,5,173,0) +60 +"DATA",1130580001.201,6,5,173,2) +0 +"DATA",1130580001.201,6,5,174,0) +71 +"DATA",1130580001.201,6,5,174,2) +0 +"DATA",1130580001.201,6,5,175,0) +72 +"DATA",1130580001.201,6,5,175,2) +0 +"DATA",1130580001.201,6,5,176,0) +40 +"DATA",1130580001.201,6,5,176,2) +0 +"DATA",1130580001.201,6,5,177,0) +73 +"DATA",1130580001.201,6,5,177,2) +0 +"DATA",1130580001.201,6,5,178,0) +74 +"DATA",1130580001.201,6,5,178,2) +0 +"DATA",1130580001.201,6,5,179,0) +43 +"DATA",1130580001.201,6,5,179,2) +0 +"DATA",1130580001.201,6,5,179,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,6,5,179,3,1,0) +11 +"DATA",1130580001.201,6,5,179,3,2,0) +30 +"DATA",1130580001.201,6,5,179,3,3,0) +4 +"DATA",1130580001.201,6,5,179,3,4,0) +52 +"DATA",1130580001.201,6,5,179,4) +4 +"DATA",1130580001.201,6,5,180,0) +63 +"DATA",1130580001.201,6,5,180,2) +0 +"DATA",1130580001.201,6,5,181,0) +41 +"DATA",1130580001.201,6,5,181,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,6,5,181,1,1,0) +30 +"DATA",1130580001.201,6,5,181,2) +1 +"DATA",1130580001.201,6,5,181,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,6,5,181,3,1,0) +30 +"DATA",1130580001.201,6,5,181,4) +1 +"DATA",1130580001.201,6,5,182,0) +50 +"DATA",1130580001.201,6,5,182,2) +0 +"DATA",1130580001.201,6,5,183,0) +75 +"DATA",1130580001.201,6,5,183,2) +0 +"DATA",1130580001.201,6,5,184,0) +76 +"DATA",1130580001.201,6,5,184,2) +0 +"DATA",1130580001.201,6,5,185,0) +51 +"DATA",1130580001.201,6,5,185,2) +0 +"DATA",1130580001.201,6,5,186,0) +77 +"DATA",1130580001.201,6,5,186,2) +0 +"DATA",1130580001.201,6,5,187,0) +44 +"DATA",1130580001.201,6,5,187,2) +0 +"DATA",1130580001.201,6,5,188,0) +42 +"DATA",1130580001.201,6,5,188,2) +0 +"DATA",1130580001.201,6,5,189,0) +58 +"DATA",1130580001.201,6,5,189,2) +0 +"DATA",1130580001.201,6,5,190,0) +78 +"DATA",1130580001.201,6,5,190,2) +0 +"DATA",1130580001.201,6,5,191,0) +64 +"DATA",1130580001.201,6,5,191,2) +0 +"DATA",1130580001.201,6,5,192,0) +66 +"DATA",1130580001.201,6,5,192,2) +0 +"DATA",1130580001.201,6,5,193,0) +45 +"DATA",1130580001.201,6,5,193,2) +0 +"DATA",1130580001.201,6,5,194,0) +47 +"DATA",1130580001.201,6,5,194,2) +0 +"DATA",1130580001.201,6,5,195,0) +65 +"DATA",1130580001.201,6,5,195,2) +0 +"DATA",1130580001.201,6,5,196,0) +46 +"DATA",1130580001.201,6,5,196,2) +0 +"DATA",1130580001.201,6,5,197,0) +52 +"DATA",1130580001.201,6,5,197,2) +0 +"DATA",1130580001.201,6,5,198,0) +70 +"DATA",1130580001.201,6,5,198,2) +0 +"DATA",1130580001.201,6,5,199,0) +49 +"DATA",1130580001.201,6,5,199,2) +0 +"DATA",1130580001.201,6,5,200,0) +69 +"DATA",1130580001.201,6,5,200,2) +0 +"DATA",1130580001.201,6,5,201,0) +67 +"DATA",1130580001.201,6,5,201,2) +0 +"DATA",1130580001.201,6,5,202,0) +79 +"DATA",1130580001.201,6,5,202,2) +0 +"DATA",1130580001.201,6,5,203,0) +48 +"DATA",1130580001.201,6,5,203,2) +0 +"DATA",1130580001.201,6,5,204,0) +53 +"DATA",1130580001.201,6,5,204,2) +0 +"DATA",1130580001.201,6,5,205,0) +68 +"DATA",1130580001.201,6,5,205,2) +0 +"DATA",1130580001.201,6,5,206,0) +55 +"DATA",1130580001.201,6,5,206,2) +0 +"DATA",1130580001.201,6,5,207,0) +56 +"DATA",1130580001.201,6,5,207,2) +0 +"DATA",1130580001.201,6,5,208,0) +57 +"DATA",1130580001.201,6,5,208,2) +0 +"DATA",1130580001.201,6,5,209,0) +54 +"DATA",1130580001.201,6,5,209,2) +0 +"DATA",1130580001.201,6,5,210,0) +61 +"DATA",1130580001.201,6,5,210,2) +0 +"DATA",1130580001.201,6,5,211,0) +39 +"DATA",1130580001.201,6,5,211,2) +0 +"DATA",1130580001.201,6,5,212,0) +80 +"DATA",1130580001.201,6,5,212,2) +0 +"DATA",1130580001.201,6,5,213,0) +62 +"DATA",1130580001.201,6,5,213,2) +0 +"DATA",1130580001.201,6,5,214,0) +81 +"DATA",1130580001.201,6,5,214,2) +0 +"DATA",1130580001.201,7,0) +MU EP 2011 CERTIFICATION +"DATA",1130580001.201,7,5,0) +^1130580001.2011P^133^21 +"DATA",1130580001.201,7,5,113,0) +41 +"DATA",1130580001.201,7,5,113,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,113,1,1,0) +30 +"DATA",1130580001.201,7,5,113,1,2,0) +74 +"DATA",1130580001.201,7,5,113,2) +2 +"DATA",1130580001.201,7,5,113,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,113,3,1,0) +73 +"DATA",1130580001.201,7,5,113,3,2,0) +11 +"DATA",1130580001.201,7,5,113,3,3,0) +80 +"DATA",1130580001.201,7,5,113,3,4,0) +17 +"DATA",1130580001.201,7,5,113,3,5,0) +21 +"DATA",1130580001.201,7,5,113,3,6,0) +23 +"DATA",1130580001.201,7,5,113,3,7,0) +30 +"DATA",1130580001.201,7,5,113,3,8,0) +82 +"DATA",1130580001.201,7,5,113,3,9,0) +77 +"DATA",1130580001.201,7,5,113,3,10,0) +4 +"DATA",1130580001.201,7,5,113,3,11,0) +52 +"DATA",1130580001.201,7,5,113,3,12,0) +75 +"DATA",1130580001.201,7,5,113,4) +12^17 +"DATA",1130580001.201,7,5,114,0) +83 +"DATA",1130580001.201,7,5,114,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,114,1,1,0) +29 +"DATA",1130580001.201,7,5,114,1,2,0) +56 +"DATA",1130580001.201,7,5,114,1,3,0) +58 +"DATA",1130580001.201,7,5,114,1,4,0) +64 +"DATA",1130580001.201,7,5,114,1,5,0) +69 +"DATA",1130580001.201,7,5,114,2) +5 +"DATA",1130580001.201,7,5,114,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,114,3,1,0) +9 +"DATA",1130580001.201,7,5,114,3,2,0) +13 +"DATA",1130580001.201,7,5,114,3,3,0) +29 +"DATA",1130580001.201,7,5,114,3,4,0) +56 +"DATA",1130580001.201,7,5,114,3,5,0) +58 +"DATA",1130580001.201,7,5,114,3,6,0) +59 +"DATA",1130580001.201,7,5,114,3,7,0) +60 +"DATA",1130580001.201,7,5,114,3,8,0) +64 +"DATA",1130580001.201,7,5,114,3,9,0) +65 +"DATA",1130580001.201,7,5,114,3,10,0) +69 +"DATA",1130580001.201,7,5,114,4) +10^50 +"DATA",1130580001.201,7,5,115,0) +42 +"DATA",1130580001.201,7,5,115,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,115,1,1,0) +11 +"DATA",1130580001.201,7,5,115,1,2,0) +80 +"DATA",1130580001.201,7,5,115,1,3,0) +17 +"DATA",1130580001.201,7,5,115,1,4,0) +21 +"DATA",1130580001.201,7,5,115,1,5,0) +30 +"DATA",1130580001.201,7,5,115,1,6,0) +4 +"DATA",1130580001.201,7,5,115,2) +6 +"DATA",1130580001.201,7,5,115,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,7,5,115,3,1,0) +11 +"DATA",1130580001.201,7,5,115,3,2,0) +80 +"DATA",1130580001.201,7,5,115,3,3,0) +17 +"DATA",1130580001.201,7,5,115,3,4,0) +21 +"DATA",1130580001.201,7,5,115,3,5,0) +23 +"DATA",1130580001.201,7,5,115,3,6,0) +30 +"DATA",1130580001.201,7,5,115,3,7,0) +4 +"DATA",1130580001.201,7,5,115,4) +7^86 +"DATA",1130580001.201,7,5,116,0) +45 +"DATA",1130580001.201,7,5,116,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,116,1,1,0) +11 +"DATA",1130580001.201,7,5,116,1,2,0) +77 +"DATA",1130580001.201,7,5,116,1,3,0) +75 +"DATA",1130580001.201,7,5,116,2) +3 +"DATA",1130580001.201,7,5,116,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,116,3,1,0) +73 +"DATA",1130580001.201,7,5,116,3,2,0) +11 +"DATA",1130580001.201,7,5,116,3,3,0) +21 +"DATA",1130580001.201,7,5,116,3,4,0) +23 +"DATA",1130580001.201,7,5,116,3,5,0) +77 +"DATA",1130580001.201,7,5,116,3,6,0) +75 +"DATA",1130580001.201,7,5,116,4) +6^50 +"DATA",1130580001.201,7,5,117,0) +47 +"DATA",1130580001.201,7,5,117,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,117,1,1,0) +73 +"DATA",1130580001.201,7,5,117,1,2,0) +11 +"DATA",1130580001.201,7,5,117,1,3,0) +21 +"DATA",1130580001.201,7,5,117,1,4,0) +75 +"DATA",1130580001.201,7,5,117,2) +4 +"DATA",1130580001.201,7,5,117,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,117,3,1,0) +73 +"DATA",1130580001.201,7,5,117,3,2,0) +11 +"DATA",1130580001.201,7,5,117,3,3,0) +21 +"DATA",1130580001.201,7,5,117,3,4,0) +23 +"DATA",1130580001.201,7,5,117,3,5,0) +77 +"DATA",1130580001.201,7,5,117,3,6,0) +75 +"DATA",1130580001.201,7,5,117,4) +6^67 +"DATA",1130580001.201,7,5,118,0) +46 +"DATA",1130580001.201,7,5,118,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,118,1,1,0) +73 +"DATA",1130580001.201,7,5,118,1,2,0) +21 +"DATA",1130580001.201,7,5,118,1,3,0) +77 +"DATA",1130580001.201,7,5,118,2) +3 +"DATA",1130580001.201,7,5,118,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,118,3,1,0) +73 +"DATA",1130580001.201,7,5,118,3,2,0) +11 +"DATA",1130580001.201,7,5,118,3,3,0) +21 +"DATA",1130580001.201,7,5,118,3,4,0) +23 +"DATA",1130580001.201,7,5,118,3,5,0) +77 +"DATA",1130580001.201,7,5,118,3,6,0) +75 +"DATA",1130580001.201,7,5,118,4) +6^50 +"DATA",1130580001.201,7,5,119,0) +39 +"DATA",1130580001.201,7,5,119,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,119,1,1,0) +73 +"DATA",1130580001.201,7,5,119,1,2,0) +11 +"DATA",1130580001.201,7,5,119,1,3,0) +4 +"DATA",1130580001.201,7,5,119,2) +3 +"DATA",1130580001.201,7,5,119,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,119,3,1,0) +73 +"DATA",1130580001.201,7,5,119,3,2,0) +11 +"DATA",1130580001.201,7,5,119,3,3,0) +80 +"DATA",1130580001.201,7,5,119,3,4,0) +17 +"DATA",1130580001.201,7,5,119,3,5,0) +21 +"DATA",1130580001.201,7,5,119,3,6,0) +23 +"DATA",1130580001.201,7,5,119,3,7,0) +27 +"DATA",1130580001.201,7,5,119,3,8,0) +82 +"DATA",1130580001.201,7,5,119,3,9,0) +77 +"DATA",1130580001.201,7,5,119,3,10,0) +4 +"DATA",1130580001.201,7,5,119,3,11,0) +52 +"DATA",1130580001.201,7,5,119,3,12,0) +75 +"DATA",1130580001.201,7,5,119,4) +12^25 +"DATA",1130580001.201,7,5,120,0) +81 +"DATA",1130580001.201,7,5,120,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,7,5,120,1,1,0) +30 +"DATA",1130580001.201,7,5,120,2) +1 +"DATA",1130580001.201,7,5,120,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,120,3,1,0) +73 +"DATA",1130580001.201,7,5,120,3,2,0) +11 +"DATA",1130580001.201,7,5,120,3,3,0) +80 +"DATA",1130580001.201,7,5,120,3,4,0) +17 +"DATA",1130580001.201,7,5,120,3,5,0) +21 +"DATA",1130580001.201,7,5,120,3,6,0) +23 +"DATA",1130580001.201,7,5,120,3,7,0) +30 +"DATA",1130580001.201,7,5,120,3,8,0) +82 +"DATA",1130580001.201,7,5,120,3,9,0) +77 +"DATA",1130580001.201,7,5,120,3,10,0) +4 +"DATA",1130580001.201,7,5,120,3,11,0) +52 +"DATA",1130580001.201,7,5,120,3,12,0) +75 +"DATA",1130580001.201,7,5,120,4) +12^8 +"DATA",1130580001.201,7,5,121,0) +84 +"DATA",1130580001.201,7,5,121,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,121,1,1,0) +29 +"DATA",1130580001.201,7,5,121,1,2,0) +56 +"DATA",1130580001.201,7,5,121,1,3,0) +58 +"DATA",1130580001.201,7,5,121,1,4,0) +59 +"DATA",1130580001.201,7,5,121,1,5,0) +64 +"DATA",1130580001.201,7,5,121,1,6,0) +69 +"DATA",1130580001.201,7,5,121,2) +6 +"DATA",1130580001.201,7,5,121,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,121,3,1,0) +9 +"DATA",1130580001.201,7,5,121,3,2,0) +13 +"DATA",1130580001.201,7,5,121,3,3,0) +29 +"DATA",1130580001.201,7,5,121,3,4,0) +56 +"DATA",1130580001.201,7,5,121,3,5,0) +58 +"DATA",1130580001.201,7,5,121,3,6,0) +59 +"DATA",1130580001.201,7,5,121,3,7,0) +60 +"DATA",1130580001.201,7,5,121,3,8,0) +64 +"DATA",1130580001.201,7,5,121,3,9,0) +65 +"DATA",1130580001.201,7,5,121,3,10,0) +69 +"DATA",1130580001.201,7,5,121,4) +10^60 +"DATA",1130580001.201,7,5,122,0) +85 +"DATA",1130580001.201,7,5,122,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,122,1,1,0) +29 +"DATA",1130580001.201,7,5,122,1,2,0) +56 +"DATA",1130580001.201,7,5,122,1,3,0) +58 +"DATA",1130580001.201,7,5,122,1,4,0) +60 +"DATA",1130580001.201,7,5,122,1,5,0) +69 +"DATA",1130580001.201,7,5,122,2) +5 +"DATA",1130580001.201,7,5,122,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,122,3,1,0) +9 +"DATA",1130580001.201,7,5,122,3,2,0) +13 +"DATA",1130580001.201,7,5,122,3,3,0) +29 +"DATA",1130580001.201,7,5,122,3,4,0) +56 +"DATA",1130580001.201,7,5,122,3,5,0) +58 +"DATA",1130580001.201,7,5,122,3,6,0) +59 +"DATA",1130580001.201,7,5,122,3,7,0) +60 +"DATA",1130580001.201,7,5,122,3,8,0) +64 +"DATA",1130580001.201,7,5,122,3,9,0) +65 +"DATA",1130580001.201,7,5,122,3,10,0) +69 +"DATA",1130580001.201,7,5,122,4) +10^50 +"DATA",1130580001.201,7,5,123,0) +86 +"DATA",1130580001.201,7,5,123,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,123,1,1,0) +29 +"DATA",1130580001.201,7,5,123,1,2,0) +56 +"DATA",1130580001.201,7,5,123,1,3,0) +58 +"DATA",1130580001.201,7,5,123,1,4,0) +60 +"DATA",1130580001.201,7,5,123,1,5,0) +69 +"DATA",1130580001.201,7,5,123,2) +5 +"DATA",1130580001.201,7,5,123,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,123,3,1,0) +9 +"DATA",1130580001.201,7,5,123,3,2,0) +13 +"DATA",1130580001.201,7,5,123,3,3,0) +29 +"DATA",1130580001.201,7,5,123,3,4,0) +56 +"DATA",1130580001.201,7,5,123,3,5,0) +58 +"DATA",1130580001.201,7,5,123,3,6,0) +59 +"DATA",1130580001.201,7,5,123,3,7,0) +60 +"DATA",1130580001.201,7,5,123,3,8,0) +64 +"DATA",1130580001.201,7,5,123,3,9,0) +65 +"DATA",1130580001.201,7,5,123,3,10,0) +69 +"DATA",1130580001.201,7,5,123,4) +10^50 +"DATA",1130580001.201,7,5,124,0) +87 +"DATA",1130580001.201,7,5,124,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,124,1,1,0) +29 +"DATA",1130580001.201,7,5,124,1,2,0) +56 +"DATA",1130580001.201,7,5,124,1,3,0) +58 +"DATA",1130580001.201,7,5,124,1,4,0) +60 +"DATA",1130580001.201,7,5,124,1,5,0) +69 +"DATA",1130580001.201,7,5,124,2) +5 +"DATA",1130580001.201,7,5,124,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,124,3,1,0) +9 +"DATA",1130580001.201,7,5,124,3,2,0) +13 +"DATA",1130580001.201,7,5,124,3,3,0) +29 +"DATA",1130580001.201,7,5,124,3,4,0) +56 +"DATA",1130580001.201,7,5,124,3,5,0) +58 +"DATA",1130580001.201,7,5,124,3,6,0) +59 +"DATA",1130580001.201,7,5,124,3,7,0) +60 +"DATA",1130580001.201,7,5,124,3,8,0) +64 +"DATA",1130580001.201,7,5,124,3,9,0) +65 +"DATA",1130580001.201,7,5,124,3,10,0) +69 +"DATA",1130580001.201,7,5,124,4) +10^50 +"DATA",1130580001.201,7,5,125,0) +88 +"DATA",1130580001.201,7,5,125,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,125,1,1,0) +29 +"DATA",1130580001.201,7,5,125,1,2,0) +56 +"DATA",1130580001.201,7,5,125,1,3,0) +58 +"DATA",1130580001.201,7,5,125,1,4,0) +64 +"DATA",1130580001.201,7,5,125,1,5,0) +65 +"DATA",1130580001.201,7,5,125,1,6,0) +69 +"DATA",1130580001.201,7,5,125,2) +6 +"DATA",1130580001.201,7,5,125,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,125,3,1,0) +9 +"DATA",1130580001.201,7,5,125,3,2,0) +13 +"DATA",1130580001.201,7,5,125,3,3,0) +29 +"DATA",1130580001.201,7,5,125,3,4,0) +56 +"DATA",1130580001.201,7,5,125,3,5,0) +58 +"DATA",1130580001.201,7,5,125,3,6,0) +59 +"DATA",1130580001.201,7,5,125,3,7,0) +60 +"DATA",1130580001.201,7,5,125,3,8,0) +64 +"DATA",1130580001.201,7,5,125,3,9,0) +65 +"DATA",1130580001.201,7,5,125,3,10,0) +69 +"DATA",1130580001.201,7,5,125,4) +10^60 +"DATA",1130580001.201,7,5,126,0) +89 +"DATA",1130580001.201,7,5,126,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,126,1,1,0) +29 +"DATA",1130580001.201,7,5,126,1,2,0) +56 +"DATA",1130580001.201,7,5,126,1,3,0) +58 +"DATA",1130580001.201,7,5,126,1,4,0) +65 +"DATA",1130580001.201,7,5,126,2) +4 +"DATA",1130580001.201,7,5,126,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,126,3,1,0) +9 +"DATA",1130580001.201,7,5,126,3,2,0) +13 +"DATA",1130580001.201,7,5,126,3,3,0) +29 +"DATA",1130580001.201,7,5,126,3,4,0) +56 +"DATA",1130580001.201,7,5,126,3,5,0) +58 +"DATA",1130580001.201,7,5,126,3,6,0) +59 +"DATA",1130580001.201,7,5,126,3,7,0) +60 +"DATA",1130580001.201,7,5,126,3,8,0) +64 +"DATA",1130580001.201,7,5,126,3,9,0) +65 +"DATA",1130580001.201,7,5,126,3,10,0) +69 +"DATA",1130580001.201,7,5,126,4) +10^40 +"DATA",1130580001.201,7,5,127,0) +90 +"DATA",1130580001.201,7,5,127,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,127,1,1,0) +29 +"DATA",1130580001.201,7,5,127,1,2,0) +56 +"DATA",1130580001.201,7,5,127,1,3,0) +58 +"DATA",1130580001.201,7,5,127,1,4,0) +64 +"DATA",1130580001.201,7,5,127,1,5,0) +65 +"DATA",1130580001.201,7,5,127,2) +5 +"DATA",1130580001.201,7,5,127,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,127,3,1,0) +9 +"DATA",1130580001.201,7,5,127,3,2,0) +13 +"DATA",1130580001.201,7,5,127,3,3,0) +29 +"DATA",1130580001.201,7,5,127,3,4,0) +56 +"DATA",1130580001.201,7,5,127,3,5,0) +58 +"DATA",1130580001.201,7,5,127,3,6,0) +59 +"DATA",1130580001.201,7,5,127,3,7,0) +60 +"DATA",1130580001.201,7,5,127,3,8,0) +64 +"DATA",1130580001.201,7,5,127,3,9,0) +65 +"DATA",1130580001.201,7,5,127,3,10,0) +69 +"DATA",1130580001.201,7,5,127,4) +10^50 +"DATA",1130580001.201,7,5,128,0) +91 +"DATA",1130580001.201,7,5,128,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,128,1,1,0) +29 +"DATA",1130580001.201,7,5,128,1,2,0) +56 +"DATA",1130580001.201,7,5,128,1,3,0) +58 +"DATA",1130580001.201,7,5,128,1,4,0) +60 +"DATA",1130580001.201,7,5,128,1,5,0) +65 +"DATA",1130580001.201,7,5,128,2) +5 +"DATA",1130580001.201,7,5,128,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,128,3,1,0) +9 +"DATA",1130580001.201,7,5,128,3,2,0) +13 +"DATA",1130580001.201,7,5,128,3,3,0) +29 +"DATA",1130580001.201,7,5,128,3,4,0) +56 +"DATA",1130580001.201,7,5,128,3,5,0) +58 +"DATA",1130580001.201,7,5,128,3,6,0) +59 +"DATA",1130580001.201,7,5,128,3,7,0) +60 +"DATA",1130580001.201,7,5,128,3,8,0) +64 +"DATA",1130580001.201,7,5,128,3,9,0) +65 +"DATA",1130580001.201,7,5,128,3,10,0) +69 +"DATA",1130580001.201,7,5,128,4) +10^50 +"DATA",1130580001.201,7,5,129,0) +92 +"DATA",1130580001.201,7,5,129,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,129,1,1,0) +29 +"DATA",1130580001.201,7,5,129,1,2,0) +56 +"DATA",1130580001.201,7,5,129,1,3,0) +58 +"DATA",1130580001.201,7,5,129,1,4,0) +59 +"DATA",1130580001.201,7,5,129,2) +4 +"DATA",1130580001.201,7,5,129,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,129,3,1,0) +9 +"DATA",1130580001.201,7,5,129,3,2,0) +13 +"DATA",1130580001.201,7,5,129,3,3,0) +29 +"DATA",1130580001.201,7,5,129,3,4,0) +56 +"DATA",1130580001.201,7,5,129,3,5,0) +58 +"DATA",1130580001.201,7,5,129,3,6,0) +59 +"DATA",1130580001.201,7,5,129,3,7,0) +60 +"DATA",1130580001.201,7,5,129,3,8,0) +64 +"DATA",1130580001.201,7,5,129,3,9,0) +65 +"DATA",1130580001.201,7,5,129,3,10,0) +69 +"DATA",1130580001.201,7,5,129,4) +10^40 +"DATA",1130580001.201,7,5,130,0) +93 +"DATA",1130580001.201,7,5,130,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,130,1,1,0) +29 +"DATA",1130580001.201,7,5,130,1,2,0) +56 +"DATA",1130580001.201,7,5,130,1,3,0) +58 +"DATA",1130580001.201,7,5,130,1,4,0) +69 +"DATA",1130580001.201,7,5,130,2) +4 +"DATA",1130580001.201,7,5,130,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,130,3,1,0) +9 +"DATA",1130580001.201,7,5,130,3,2,0) +13 +"DATA",1130580001.201,7,5,130,3,3,0) +29 +"DATA",1130580001.201,7,5,130,3,4,0) +56 +"DATA",1130580001.201,7,5,130,3,5,0) +58 +"DATA",1130580001.201,7,5,130,3,6,0) +59 +"DATA",1130580001.201,7,5,130,3,7,0) +60 +"DATA",1130580001.201,7,5,130,3,8,0) +64 +"DATA",1130580001.201,7,5,130,3,9,0) +65 +"DATA",1130580001.201,7,5,130,3,10,0) +69 +"DATA",1130580001.201,7,5,130,4) +10^40 +"DATA",1130580001.201,7,5,131,0) +94 +"DATA",1130580001.201,7,5,131,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,131,1,1,0) +29 +"DATA",1130580001.201,7,5,131,1,2,0) +56 +"DATA",1130580001.201,7,5,131,1,3,0) +58 +"DATA",1130580001.201,7,5,131,2) +3 +"DATA",1130580001.201,7,5,131,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,131,3,1,0) +9 +"DATA",1130580001.201,7,5,131,3,2,0) +13 +"DATA",1130580001.201,7,5,131,3,3,0) +29 +"DATA",1130580001.201,7,5,131,3,4,0) +56 +"DATA",1130580001.201,7,5,131,3,5,0) +58 +"DATA",1130580001.201,7,5,131,3,6,0) +59 +"DATA",1130580001.201,7,5,131,3,7,0) +60 +"DATA",1130580001.201,7,5,131,3,8,0) +64 +"DATA",1130580001.201,7,5,131,3,9,0) +65 +"DATA",1130580001.201,7,5,131,3,10,0) +69 +"DATA",1130580001.201,7,5,131,4) +10^30 +"DATA",1130580001.201,7,5,132,0) +40 +"DATA",1130580001.201,7,5,132,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,132,1,1,0) +17 +"DATA",1130580001.201,7,5,132,1,2,0) +21 +"DATA",1130580001.201,7,5,132,1,3,0) +23 +"DATA",1130580001.201,7,5,132,1,4,0) +30 +"DATA",1130580001.201,7,5,132,1,5,0) +52 +"DATA",1130580001.201,7,5,132,2) +5 +"DATA",1130580001.201,7,5,132,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,7,5,132,3,1,0) +17 +"DATA",1130580001.201,7,5,132,3,2,0) +21 +"DATA",1130580001.201,7,5,132,3,3,0) +23 +"DATA",1130580001.201,7,5,132,3,4,0) +30 +"DATA",1130580001.201,7,5,132,3,5,0) +52 +"DATA",1130580001.201,7,5,132,4) +5^100 +"DATA",1130580001.201,7,5,133,0) +43 +"DATA",1130580001.201,7,5,133,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,133,1,1,0) +13 +"DATA",1130580001.201,7,5,133,1,2,0) +14 +"DATA",1130580001.201,7,5,133,2) +2 +"DATA",1130580001.201,7,5,133,3,0) +^1130580001.20112P^13^13 +"DATA",1130580001.201,7,5,133,3,1,0) +12 +"DATA",1130580001.201,7,5,133,3,2,0) +13 +"DATA",1130580001.201,7,5,133,3,3,0) +14 +"DATA",1130580001.201,7,5,133,3,4,0) +90 +"DATA",1130580001.201,7,5,133,3,5,0) +91 +"DATA",1130580001.201,7,5,133,3,6,0) +29 +"DATA",1130580001.201,7,5,133,3,7,0) +93 +"DATA",1130580001.201,7,5,133,3,8,0) +89 +"DATA",1130580001.201,7,5,133,3,9,0) +153 +"DATA",1130580001.201,7,5,133,3,10,0) +72 +"DATA",1130580001.201,7,5,133,3,11,0) +44 +"DATA",1130580001.201,7,5,133,3,12,0) +56 +"DATA",1130580001.201,7,5,133,3,13,0) +58 +"DATA",1130580001.201,7,5,133,4) +13^15 +"DATA",1130580001.201,8,0) +MU 2011 INP ATTESTATION +"DATA",1130580001.201,8,4) +^^3110703^3110930 +"DATA",1130580001.201,8,5,0) +^1130580001.2011P^18^9 +"DATA",1130580001.201,8,5,10,0) +95 +"DATA",1130580001.201,8,5,10,2) +0 +"DATA",1130580001.201,8,5,11,0) +102 +"DATA",1130580001.201,8,5,11,1,0) +^1130580001.20111P^40^40 +"DATA",1130580001.201,8,5,11,1,1,0) +341 +"DATA",1130580001.201,8,5,11,1,2,0) +210 +"DATA",1130580001.201,8,5,11,1,3,0) +97 +"DATA",1130580001.201,8,5,11,1,4,0) +99 +"DATA",1130580001.201,8,5,11,1,5,0) +212 +"DATA",1130580001.201,8,5,11,1,6,0) +199 +"DATA",1130580001.201,8,5,11,1,7,0) +221 +"DATA",1130580001.201,8,5,11,1,8,0) +220 +"DATA",1130580001.201,8,5,11,1,9,0) +227 +"DATA",1130580001.201,8,5,11,1,10,0) +218 +"DATA",1130580001.201,8,5,11,1,11,0) +172 +"DATA",1130580001.201,8,5,11,1,12,0) +181 +"DATA",1130580001.201,8,5,11,1,13,0) +171 +"DATA",1130580001.201,8,5,11,1,14,0) +176 +"DATA",1130580001.201,8,5,11,1,15,0) +174 +"DATA",1130580001.201,8,5,11,1,16,0) +175 +"DATA",1130580001.201,8,5,11,1,17,0) +177 +"DATA",1130580001.201,8,5,11,1,18,0) +178 +"DATA",1130580001.201,8,5,11,1,19,0) +179 +"DATA",1130580001.201,8,5,11,1,20,0) +180 +"DATA",1130580001.201,8,5,11,1,21,0) +306 +"DATA",1130580001.201,8,5,11,1,22,0) +309 +"DATA",1130580001.201,8,5,11,1,23,0) +308 +"DATA",1130580001.201,8,5,11,1,24,0) +183 +"DATA",1130580001.201,8,5,11,1,25,0) +233 +"DATA",1130580001.201,8,5,11,1,26,0) +187 +"DATA",1130580001.201,8,5,11,1,27,0) +189 +"DATA",1130580001.201,8,5,11,1,28,0) +322 +"DATA",1130580001.201,8,5,11,1,29,0) +345 +"DATA",1130580001.201,8,5,11,1,30,0) +321 +"DATA",1130580001.201,8,5,11,1,31,0) +344 +"DATA",1130580001.201,8,5,11,1,32,0) +343 +"DATA",1130580001.201,8,5,11,1,33,0) +211 +"DATA",1130580001.201,8,5,11,1,34,0) +270 +"DATA",1130580001.201,8,5,11,1,35,0) +110 +"DATA",1130580001.201,8,5,11,1,36,0) +121 +"DATA",1130580001.201,8,5,11,1,37,0) +18 +"DATA",1130580001.201,8,5,11,1,38,0) +137 +"DATA",1130580001.201,8,5,11,1,39,0) +332 +"DATA",1130580001.201,8,5,11,1,40,0) +126 +"DATA",1130580001.201,8,5,11,2) +40 +"DATA",1130580001.201,8,5,11,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,11,3,1,0) +341 +"DATA",1130580001.201,8,5,11,3,2,0) +340 +"DATA",1130580001.201,8,5,11,3,3,0) +316 +"DATA",1130580001.201,8,5,11,3,4,0) +317 +"DATA",1130580001.201,8,5,11,3,5,0) +210 +"DATA",1130580001.201,8,5,11,3,6,0) +97 +"DATA",1130580001.201,8,5,11,3,7,0) +99 +"DATA",1130580001.201,8,5,11,3,8,0) +212 +"DATA",1130580001.201,8,5,11,3,9,0) +199 +"DATA",1130580001.201,8,5,11,3,10,0) +219 +"DATA",1130580001.201,8,5,11,3,11,0) +221 +"DATA",1130580001.201,8,5,11,3,12,0) +220 +"DATA",1130580001.201,8,5,11,3,13,0) +222 +"DATA",1130580001.201,8,5,11,3,14,0) +223 +"DATA",1130580001.201,8,5,11,3,15,0) +225 +"DATA",1130580001.201,8,5,11,3,16,0) +224 +"DATA",1130580001.201,8,5,11,3,17,0) +227 +"DATA",1130580001.201,8,5,11,3,18,0) +226 +"DATA",1130580001.201,8,5,11,3,19,0) +218 +"DATA",1130580001.201,8,5,11,3,20,0) +172 +"DATA",1130580001.201,8,5,11,3,21,0) +181 +"DATA",1130580001.201,8,5,11,3,22,0) +171 +"DATA",1130580001.201,8,5,11,3,23,0) +176 +"DATA",1130580001.201,8,5,11,3,24,0) +174 +"DATA",1130580001.201,8,5,11,3,25,0) +175 +"DATA",1130580001.201,8,5,11,3,26,0) +177 +"DATA",1130580001.201,8,5,11,3,27,0) +178 +"DATA",1130580001.201,8,5,11,3,28,0) +179 +"DATA",1130580001.201,8,5,11,3,29,0) +180 +"DATA",1130580001.201,8,5,11,3,30,0) +306 +"DATA",1130580001.201,8,5,11,3,31,0) +309 +"DATA",1130580001.201,8,5,11,3,32,0) +308 +"DATA",1130580001.201,8,5,11,3,33,0) +310 +"DATA",1130580001.201,8,5,11,3,34,0) +318 +"DATA",1130580001.201,8,5,11,3,35,0) +338 +"DATA",1130580001.201,8,5,11,3,36,0) +183 +"DATA",1130580001.201,8,5,11,3,37,0) +312 +"DATA",1130580001.201,8,5,11,3,38,0) +233 +"DATA",1130580001.201,8,5,11,3,39,0) +187 +"DATA",1130580001.201,8,5,11,3,40,0) +191 +"DATA",1130580001.201,8,5,11,3,41,0) +190 +"DATA",1130580001.201,8,5,11,3,42,0) +188 +"DATA",1130580001.201,8,5,11,3,43,0) +192 +"DATA",1130580001.201,8,5,11,3,44,0) +189 +"DATA",1130580001.201,8,5,11,3,45,0) +349 +"DATA",1130580001.201,8,5,11,3,46,0) +322 +"DATA",1130580001.201,8,5,11,3,47,0) +346 +"DATA",1130580001.201,8,5,11,3,48,0) +345 +"DATA",1130580001.201,8,5,11,3,49,0) +319 +"DATA",1130580001.201,8,5,11,3,50,0) +323 +"DATA",1130580001.201,8,5,11,3,51,0) +321 +"DATA",1130580001.201,8,5,11,3,52,0) +344 +"DATA",1130580001.201,8,5,11,3,53,0) +343 +"DATA",1130580001.201,8,5,11,3,54,0) +336 +"DATA",1130580001.201,8,5,11,3,55,0) +335 +"DATA",1130580001.201,8,5,11,3,56,0) +333 +"DATA",1130580001.201,8,5,11,3,57,0) +211 +"DATA",1130580001.201,8,5,11,3,58,0) +270 +"DATA",1130580001.201,8,5,11,3,59,0) +271 +"DATA",1130580001.201,8,5,11,3,60,0) +110 +"DATA",1130580001.201,8,5,11,3,61,0) +331 +"DATA",1130580001.201,8,5,11,3,62,0) +14 +"DATA",1130580001.201,8,5,11,3,63,0) +121 +"DATA",1130580001.201,8,5,11,3,64,0) +18 +"DATA",1130580001.201,8,5,11,3,65,0) +9 +"DATA",1130580001.201,8,5,11,3,66,0) +137 +"DATA",1130580001.201,8,5,11,3,67,0) +332 +"DATA",1130580001.201,8,5,11,3,68,0) +126 +"DATA",1130580001.201,8,5,11,4) +68^59 +"DATA",1130580001.201,8,5,12,0) +96 +"DATA",1130580001.201,8,5,12,2) +0 +"DATA",1130580001.201,8,5,12,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,12,3,1,0) +341 +"DATA",1130580001.201,8,5,12,3,2,0) +340 +"DATA",1130580001.201,8,5,12,3,3,0) +316 +"DATA",1130580001.201,8,5,12,3,4,0) +317 +"DATA",1130580001.201,8,5,12,3,5,0) +210 +"DATA",1130580001.201,8,5,12,3,6,0) +97 +"DATA",1130580001.201,8,5,12,3,7,0) +99 +"DATA",1130580001.201,8,5,12,3,8,0) +212 +"DATA",1130580001.201,8,5,12,3,9,0) +199 +"DATA",1130580001.201,8,5,12,3,10,0) +219 +"DATA",1130580001.201,8,5,12,3,11,0) +221 +"DATA",1130580001.201,8,5,12,3,12,0) +220 +"DATA",1130580001.201,8,5,12,3,13,0) +222 +"DATA",1130580001.201,8,5,12,3,14,0) +223 +"DATA",1130580001.201,8,5,12,3,15,0) +225 +"DATA",1130580001.201,8,5,12,3,16,0) +224 +"DATA",1130580001.201,8,5,12,3,17,0) +227 +"DATA",1130580001.201,8,5,12,3,18,0) +226 +"DATA",1130580001.201,8,5,12,3,19,0) +218 +"DATA",1130580001.201,8,5,12,3,20,0) +172 +"DATA",1130580001.201,8,5,12,3,21,0) +181 +"DATA",1130580001.201,8,5,12,3,22,0) +171 +"DATA",1130580001.201,8,5,12,3,23,0) +176 +"DATA",1130580001.201,8,5,12,3,24,0) +174 +"DATA",1130580001.201,8,5,12,3,25,0) +175 +"DATA",1130580001.201,8,5,12,3,26,0) +177 +"DATA",1130580001.201,8,5,12,3,27,0) +178 +"DATA",1130580001.201,8,5,12,3,28,0) +179 +"DATA",1130580001.201,8,5,12,3,29,0) +180 +"DATA",1130580001.201,8,5,12,3,30,0) +306 +"DATA",1130580001.201,8,5,12,3,31,0) +309 +"DATA",1130580001.201,8,5,12,3,32,0) +308 +"DATA",1130580001.201,8,5,12,3,33,0) +310 +"DATA",1130580001.201,8,5,12,3,34,0) +318 +"DATA",1130580001.201,8,5,12,3,35,0) +338 +"DATA",1130580001.201,8,5,12,3,36,0) +183 +"DATA",1130580001.201,8,5,12,3,37,0) +312 +"DATA",1130580001.201,8,5,12,3,38,0) +233 +"DATA",1130580001.201,8,5,12,3,39,0) +187 +"DATA",1130580001.201,8,5,12,3,40,0) +191 +"DATA",1130580001.201,8,5,12,3,41,0) +190 +"DATA",1130580001.201,8,5,12,3,42,0) +188 +"DATA",1130580001.201,8,5,12,3,43,0) +192 +"DATA",1130580001.201,8,5,12,3,44,0) +189 +"DATA",1130580001.201,8,5,12,3,45,0) +349 +"DATA",1130580001.201,8,5,12,3,46,0) +322 +"DATA",1130580001.201,8,5,12,3,47,0) +346 +"DATA",1130580001.201,8,5,12,3,48,0) +345 +"DATA",1130580001.201,8,5,12,3,49,0) +319 +"DATA",1130580001.201,8,5,12,3,50,0) +323 +"DATA",1130580001.201,8,5,12,3,51,0) +321 +"DATA",1130580001.201,8,5,12,3,52,0) +344 +"DATA",1130580001.201,8,5,12,3,53,0) +343 +"DATA",1130580001.201,8,5,12,3,54,0) +336 +"DATA",1130580001.201,8,5,12,3,55,0) +335 +"DATA",1130580001.201,8,5,12,3,56,0) +333 +"DATA",1130580001.201,8,5,12,3,57,0) +211 +"DATA",1130580001.201,8,5,12,3,58,0) +270 +"DATA",1130580001.201,8,5,12,3,59,0) +271 +"DATA",1130580001.201,8,5,12,3,60,0) +110 +"DATA",1130580001.201,8,5,12,3,61,0) +331 +"DATA",1130580001.201,8,5,12,3,62,0) +14 +"DATA",1130580001.201,8,5,12,3,63,0) +121 +"DATA",1130580001.201,8,5,12,3,64,0) +18 +"DATA",1130580001.201,8,5,12,3,65,0) +9 +"DATA",1130580001.201,8,5,12,3,66,0) +137 +"DATA",1130580001.201,8,5,12,3,67,0) +332 +"DATA",1130580001.201,8,5,12,3,68,0) +126 +"DATA",1130580001.201,8,5,12,4) +68^0 +"DATA",1130580001.201,8,5,13,0) +103 +"DATA",1130580001.201,8,5,13,1,0) +^1130580001.20111P^68^68 +"DATA",1130580001.201,8,5,13,1,1,0) +341 +"DATA",1130580001.201,8,5,13,1,2,0) +340 +"DATA",1130580001.201,8,5,13,1,3,0) +316 +"DATA",1130580001.201,8,5,13,1,4,0) +317 +"DATA",1130580001.201,8,5,13,1,5,0) +210 +"DATA",1130580001.201,8,5,13,1,6,0) +97 +"DATA",1130580001.201,8,5,13,1,7,0) +99 +"DATA",1130580001.201,8,5,13,1,8,0) +212 +"DATA",1130580001.201,8,5,13,1,9,0) +199 +"DATA",1130580001.201,8,5,13,1,10,0) +219 +"DATA",1130580001.201,8,5,13,1,11,0) +221 +"DATA",1130580001.201,8,5,13,1,12,0) +220 +"DATA",1130580001.201,8,5,13,1,13,0) +222 +"DATA",1130580001.201,8,5,13,1,14,0) +223 +"DATA",1130580001.201,8,5,13,1,15,0) +225 +"DATA",1130580001.201,8,5,13,1,16,0) +224 +"DATA",1130580001.201,8,5,13,1,17,0) +227 +"DATA",1130580001.201,8,5,13,1,18,0) +226 +"DATA",1130580001.201,8,5,13,1,19,0) +218 +"DATA",1130580001.201,8,5,13,1,20,0) +172 +"DATA",1130580001.201,8,5,13,1,21,0) +181 +"DATA",1130580001.201,8,5,13,1,22,0) +171 +"DATA",1130580001.201,8,5,13,1,23,0) +176 +"DATA",1130580001.201,8,5,13,1,24,0) +174 +"DATA",1130580001.201,8,5,13,1,25,0) +175 +"DATA",1130580001.201,8,5,13,1,26,0) +177 +"DATA",1130580001.201,8,5,13,1,27,0) +178 +"DATA",1130580001.201,8,5,13,1,28,0) +179 +"DATA",1130580001.201,8,5,13,1,29,0) +180 +"DATA",1130580001.201,8,5,13,1,30,0) +306 +"DATA",1130580001.201,8,5,13,1,31,0) +309 +"DATA",1130580001.201,8,5,13,1,32,0) +308 +"DATA",1130580001.201,8,5,13,1,33,0) +310 +"DATA",1130580001.201,8,5,13,1,34,0) +318 +"DATA",1130580001.201,8,5,13,1,35,0) +338 +"DATA",1130580001.201,8,5,13,1,36,0) +183 +"DATA",1130580001.201,8,5,13,1,37,0) +312 +"DATA",1130580001.201,8,5,13,1,38,0) +233 +"DATA",1130580001.201,8,5,13,1,39,0) +187 +"DATA",1130580001.201,8,5,13,1,40,0) +191 +"DATA",1130580001.201,8,5,13,1,41,0) +190 +"DATA",1130580001.201,8,5,13,1,42,0) +188 +"DATA",1130580001.201,8,5,13,1,43,0) +192 +"DATA",1130580001.201,8,5,13,1,44,0) +189 +"DATA",1130580001.201,8,5,13,1,45,0) +349 +"DATA",1130580001.201,8,5,13,1,46,0) +322 +"DATA",1130580001.201,8,5,13,1,47,0) +346 +"DATA",1130580001.201,8,5,13,1,48,0) +345 +"DATA",1130580001.201,8,5,13,1,49,0) +319 +"DATA",1130580001.201,8,5,13,1,50,0) +323 +"DATA",1130580001.201,8,5,13,1,51,0) +321 +"DATA",1130580001.201,8,5,13,1,52,0) +344 +"DATA",1130580001.201,8,5,13,1,53,0) +343 +"DATA",1130580001.201,8,5,13,1,54,0) +336 +"DATA",1130580001.201,8,5,13,1,55,0) +335 +"DATA",1130580001.201,8,5,13,1,56,0) +333 +"DATA",1130580001.201,8,5,13,1,57,0) +211 +"DATA",1130580001.201,8,5,13,1,58,0) +270 +"DATA",1130580001.201,8,5,13,1,59,0) +271 +"DATA",1130580001.201,8,5,13,1,60,0) +110 +"DATA",1130580001.201,8,5,13,1,61,0) +331 +"DATA",1130580001.201,8,5,13,1,62,0) +14 +"DATA",1130580001.201,8,5,13,1,63,0) +121 +"DATA",1130580001.201,8,5,13,1,64,0) +18 +"DATA",1130580001.201,8,5,13,1,65,0) +9 +"DATA",1130580001.201,8,5,13,1,66,0) +137 +"DATA",1130580001.201,8,5,13,1,67,0) +332 +"DATA",1130580001.201,8,5,13,1,68,0) +126 +"DATA",1130580001.201,8,5,13,2) +68 +"DATA",1130580001.201,8,5,13,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,13,3,1,0) +341 +"DATA",1130580001.201,8,5,13,3,2,0) +340 +"DATA",1130580001.201,8,5,13,3,3,0) +316 +"DATA",1130580001.201,8,5,13,3,4,0) +317 +"DATA",1130580001.201,8,5,13,3,5,0) +210 +"DATA",1130580001.201,8,5,13,3,6,0) +97 +"DATA",1130580001.201,8,5,13,3,7,0) +99 +"DATA",1130580001.201,8,5,13,3,8,0) +212 +"DATA",1130580001.201,8,5,13,3,9,0) +199 +"DATA",1130580001.201,8,5,13,3,10,0) +219 +"DATA",1130580001.201,8,5,13,3,11,0) +221 +"DATA",1130580001.201,8,5,13,3,12,0) +220 +"DATA",1130580001.201,8,5,13,3,13,0) +222 +"DATA",1130580001.201,8,5,13,3,14,0) +223 +"DATA",1130580001.201,8,5,13,3,15,0) +225 +"DATA",1130580001.201,8,5,13,3,16,0) +224 +"DATA",1130580001.201,8,5,13,3,17,0) +227 +"DATA",1130580001.201,8,5,13,3,18,0) +226 +"DATA",1130580001.201,8,5,13,3,19,0) +218 +"DATA",1130580001.201,8,5,13,3,20,0) +172 +"DATA",1130580001.201,8,5,13,3,21,0) +181 +"DATA",1130580001.201,8,5,13,3,22,0) +171 +"DATA",1130580001.201,8,5,13,3,23,0) +176 +"DATA",1130580001.201,8,5,13,3,24,0) +174 +"DATA",1130580001.201,8,5,13,3,25,0) +175 +"DATA",1130580001.201,8,5,13,3,26,0) +177 +"DATA",1130580001.201,8,5,13,3,27,0) +178 +"DATA",1130580001.201,8,5,13,3,28,0) +179 +"DATA",1130580001.201,8,5,13,3,29,0) +180 +"DATA",1130580001.201,8,5,13,3,30,0) +306 +"DATA",1130580001.201,8,5,13,3,31,0) +309 +"DATA",1130580001.201,8,5,13,3,32,0) +308 +"DATA",1130580001.201,8,5,13,3,33,0) +310 +"DATA",1130580001.201,8,5,13,3,34,0) +318 +"DATA",1130580001.201,8,5,13,3,35,0) +338 +"DATA",1130580001.201,8,5,13,3,36,0) +183 +"DATA",1130580001.201,8,5,13,3,37,0) +312 +"DATA",1130580001.201,8,5,13,3,38,0) +233 +"DATA",1130580001.201,8,5,13,3,39,0) +187 +"DATA",1130580001.201,8,5,13,3,40,0) +191 +"DATA",1130580001.201,8,5,13,3,41,0) +190 +"DATA",1130580001.201,8,5,13,3,42,0) +188 +"DATA",1130580001.201,8,5,13,3,43,0) +192 +"DATA",1130580001.201,8,5,13,3,44,0) +189 +"DATA",1130580001.201,8,5,13,3,45,0) +349 +"DATA",1130580001.201,8,5,13,3,46,0) +322 +"DATA",1130580001.201,8,5,13,3,47,0) +346 +"DATA",1130580001.201,8,5,13,3,48,0) +345 +"DATA",1130580001.201,8,5,13,3,49,0) +319 +"DATA",1130580001.201,8,5,13,3,50,0) +323 +"DATA",1130580001.201,8,5,13,3,51,0) +321 +"DATA",1130580001.201,8,5,13,3,52,0) +344 +"DATA",1130580001.201,8,5,13,3,53,0) +343 +"DATA",1130580001.201,8,5,13,3,54,0) +336 +"DATA",1130580001.201,8,5,13,3,55,0) +335 +"DATA",1130580001.201,8,5,13,3,56,0) +333 +"DATA",1130580001.201,8,5,13,3,57,0) +211 +"DATA",1130580001.201,8,5,13,3,58,0) +270 +"DATA",1130580001.201,8,5,13,3,59,0) +271 +"DATA",1130580001.201,8,5,13,3,60,0) +110 +"DATA",1130580001.201,8,5,13,3,61,0) +331 +"DATA",1130580001.201,8,5,13,3,62,0) +14 +"DATA",1130580001.201,8,5,13,3,63,0) +121 +"DATA",1130580001.201,8,5,13,3,64,0) +18 +"DATA",1130580001.201,8,5,13,3,65,0) +9 +"DATA",1130580001.201,8,5,13,3,66,0) +137 +"DATA",1130580001.201,8,5,13,3,67,0) +332 +"DATA",1130580001.201,8,5,13,3,68,0) +126 +"DATA",1130580001.201,8,5,13,4) +68^100 +"DATA",1130580001.201,8,5,14,0) +101 +"DATA",1130580001.201,8,5,14,1,0) +^1130580001.20111P^67^67 +"DATA",1130580001.201,8,5,14,1,1,0) +341 +"DATA",1130580001.201,8,5,14,1,2,0) +340 +"DATA",1130580001.201,8,5,14,1,3,0) +316 +"DATA",1130580001.201,8,5,14,1,4,0) +317 +"DATA",1130580001.201,8,5,14,1,5,0) +210 +"DATA",1130580001.201,8,5,14,1,6,0) +97 +"DATA",1130580001.201,8,5,14,1,7,0) +99 +"DATA",1130580001.201,8,5,14,1,8,0) +212 +"DATA",1130580001.201,8,5,14,1,9,0) +199 +"DATA",1130580001.201,8,5,14,1,10,0) +219 +"DATA",1130580001.201,8,5,14,1,11,0) +221 +"DATA",1130580001.201,8,5,14,1,12,0) +220 +"DATA",1130580001.201,8,5,14,1,13,0) +222 +"DATA",1130580001.201,8,5,14,1,14,0) +223 +"DATA",1130580001.201,8,5,14,1,15,0) +225 +"DATA",1130580001.201,8,5,14,1,16,0) +224 +"DATA",1130580001.201,8,5,14,1,17,0) +227 +"DATA",1130580001.201,8,5,14,1,18,0) +226 +"DATA",1130580001.201,8,5,14,1,19,0) +218 +"DATA",1130580001.201,8,5,14,1,20,0) +172 +"DATA",1130580001.201,8,5,14,1,21,0) +181 +"DATA",1130580001.201,8,5,14,1,22,0) +171 +"DATA",1130580001.201,8,5,14,1,23,0) +176 +"DATA",1130580001.201,8,5,14,1,24,0) +174 +"DATA",1130580001.201,8,5,14,1,25,0) +175 +"DATA",1130580001.201,8,5,14,1,26,0) +177 +"DATA",1130580001.201,8,5,14,1,27,0) +178 +"DATA",1130580001.201,8,5,14,1,28,0) +179 +"DATA",1130580001.201,8,5,14,1,29,0) +180 +"DATA",1130580001.201,8,5,14,1,30,0) +306 +"DATA",1130580001.201,8,5,14,1,31,0) +309 +"DATA",1130580001.201,8,5,14,1,32,0) +308 +"DATA",1130580001.201,8,5,14,1,33,0) +310 +"DATA",1130580001.201,8,5,14,1,34,0) +318 +"DATA",1130580001.201,8,5,14,1,35,0) +338 +"DATA",1130580001.201,8,5,14,1,36,0) +183 +"DATA",1130580001.201,8,5,14,1,37,0) +312 +"DATA",1130580001.201,8,5,14,1,38,0) +233 +"DATA",1130580001.201,8,5,14,1,39,0) +187 +"DATA",1130580001.201,8,5,14,1,40,0) +191 +"DATA",1130580001.201,8,5,14,1,41,0) +190 +"DATA",1130580001.201,8,5,14,1,42,0) +188 +"DATA",1130580001.201,8,5,14,1,43,0) +192 +"DATA",1130580001.201,8,5,14,1,44,0) +189 +"DATA",1130580001.201,8,5,14,1,45,0) +349 +"DATA",1130580001.201,8,5,14,1,46,0) +322 +"DATA",1130580001.201,8,5,14,1,47,0) +346 +"DATA",1130580001.201,8,5,14,1,48,0) +345 +"DATA",1130580001.201,8,5,14,1,49,0) +319 +"DATA",1130580001.201,8,5,14,1,50,0) +323 +"DATA",1130580001.201,8,5,14,1,51,0) +321 +"DATA",1130580001.201,8,5,14,1,52,0) +344 +"DATA",1130580001.201,8,5,14,1,53,0) +343 +"DATA",1130580001.201,8,5,14,1,54,0) +336 +"DATA",1130580001.201,8,5,14,1,55,0) +335 +"DATA",1130580001.201,8,5,14,1,56,0) +333 +"DATA",1130580001.201,8,5,14,1,57,0) +211 +"DATA",1130580001.201,8,5,14,1,58,0) +270 +"DATA",1130580001.201,8,5,14,1,59,0) +271 +"DATA",1130580001.201,8,5,14,1,60,0) +331 +"DATA",1130580001.201,8,5,14,1,61,0) +14 +"DATA",1130580001.201,8,5,14,1,62,0) +121 +"DATA",1130580001.201,8,5,14,1,63,0) +18 +"DATA",1130580001.201,8,5,14,1,64,0) +9 +"DATA",1130580001.201,8,5,14,1,65,0) +137 +"DATA",1130580001.201,8,5,14,1,66,0) +332 +"DATA",1130580001.201,8,5,14,1,67,0) +126 +"DATA",1130580001.201,8,5,14,2) +67 +"DATA",1130580001.201,8,5,14,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,14,3,1,0) +341 +"DATA",1130580001.201,8,5,14,3,2,0) +340 +"DATA",1130580001.201,8,5,14,3,3,0) +316 +"DATA",1130580001.201,8,5,14,3,4,0) +317 +"DATA",1130580001.201,8,5,14,3,5,0) +210 +"DATA",1130580001.201,8,5,14,3,6,0) +97 +"DATA",1130580001.201,8,5,14,3,7,0) +99 +"DATA",1130580001.201,8,5,14,3,8,0) +212 +"DATA",1130580001.201,8,5,14,3,9,0) +199 +"DATA",1130580001.201,8,5,14,3,10,0) +219 +"DATA",1130580001.201,8,5,14,3,11,0) +221 +"DATA",1130580001.201,8,5,14,3,12,0) +220 +"DATA",1130580001.201,8,5,14,3,13,0) +222 +"DATA",1130580001.201,8,5,14,3,14,0) +223 +"DATA",1130580001.201,8,5,14,3,15,0) +225 +"DATA",1130580001.201,8,5,14,3,16,0) +224 +"DATA",1130580001.201,8,5,14,3,17,0) +227 +"DATA",1130580001.201,8,5,14,3,18,0) +226 +"DATA",1130580001.201,8,5,14,3,19,0) +218 +"DATA",1130580001.201,8,5,14,3,20,0) +172 +"DATA",1130580001.201,8,5,14,3,21,0) +181 +"DATA",1130580001.201,8,5,14,3,22,0) +171 +"DATA",1130580001.201,8,5,14,3,23,0) +176 +"DATA",1130580001.201,8,5,14,3,24,0) +174 +"DATA",1130580001.201,8,5,14,3,25,0) +175 +"DATA",1130580001.201,8,5,14,3,26,0) +177 +"DATA",1130580001.201,8,5,14,3,27,0) +178 +"DATA",1130580001.201,8,5,14,3,28,0) +179 +"DATA",1130580001.201,8,5,14,3,29,0) +180 +"DATA",1130580001.201,8,5,14,3,30,0) +306 +"DATA",1130580001.201,8,5,14,3,31,0) +309 +"DATA",1130580001.201,8,5,14,3,32,0) +308 +"DATA",1130580001.201,8,5,14,3,33,0) +310 +"DATA",1130580001.201,8,5,14,3,34,0) +318 +"DATA",1130580001.201,8,5,14,3,35,0) +338 +"DATA",1130580001.201,8,5,14,3,36,0) +183 +"DATA",1130580001.201,8,5,14,3,37,0) +312 +"DATA",1130580001.201,8,5,14,3,38,0) +233 +"DATA",1130580001.201,8,5,14,3,39,0) +187 +"DATA",1130580001.201,8,5,14,3,40,0) +191 +"DATA",1130580001.201,8,5,14,3,41,0) +190 +"DATA",1130580001.201,8,5,14,3,42,0) +188 +"DATA",1130580001.201,8,5,14,3,43,0) +192 +"DATA",1130580001.201,8,5,14,3,44,0) +189 +"DATA",1130580001.201,8,5,14,3,45,0) +349 +"DATA",1130580001.201,8,5,14,3,46,0) +322 +"DATA",1130580001.201,8,5,14,3,47,0) +346 +"DATA",1130580001.201,8,5,14,3,48,0) +345 +"DATA",1130580001.201,8,5,14,3,49,0) +319 +"DATA",1130580001.201,8,5,14,3,50,0) +323 +"DATA",1130580001.201,8,5,14,3,51,0) +321 +"DATA",1130580001.201,8,5,14,3,52,0) +344 +"DATA",1130580001.201,8,5,14,3,53,0) +343 +"DATA",1130580001.201,8,5,14,3,54,0) +336 +"DATA",1130580001.201,8,5,14,3,55,0) +335 +"DATA",1130580001.201,8,5,14,3,56,0) +333 +"DATA",1130580001.201,8,5,14,3,57,0) +211 +"DATA",1130580001.201,8,5,14,3,58,0) +270 +"DATA",1130580001.201,8,5,14,3,59,0) +271 +"DATA",1130580001.201,8,5,14,3,60,0) +110 +"DATA",1130580001.201,8,5,14,3,61,0) +331 +"DATA",1130580001.201,8,5,14,3,62,0) +14 +"DATA",1130580001.201,8,5,14,3,63,0) +121 +"DATA",1130580001.201,8,5,14,3,64,0) +18 +"DATA",1130580001.201,8,5,14,3,65,0) +9 +"DATA",1130580001.201,8,5,14,3,66,0) +137 +"DATA",1130580001.201,8,5,14,3,67,0) +332 +"DATA",1130580001.201,8,5,14,3,68,0) +126 +"DATA",1130580001.201,8,5,14,4) +68^99 +"DATA",1130580001.201,8,5,15,0) +97 +"DATA",1130580001.201,8,5,15,2) +0 +"DATA",1130580001.201,8,5,16,0) +98 +"DATA",1130580001.201,8,5,16,1,0) +^1130580001.20111P^31^31 +"DATA",1130580001.201,8,5,16,1,1,0) +210 +"DATA",1130580001.201,8,5,16,1,2,0) +97 +"DATA",1130580001.201,8,5,16,1,3,0) +99 +"DATA",1130580001.201,8,5,16,1,4,0) +212 +"DATA",1130580001.201,8,5,16,1,5,0) +199 +"DATA",1130580001.201,8,5,16,1,6,0) +219 +"DATA",1130580001.201,8,5,16,1,7,0) +221 +"DATA",1130580001.201,8,5,16,1,8,0) +220 +"DATA",1130580001.201,8,5,16,1,9,0) +223 +"DATA",1130580001.201,8,5,16,1,10,0) +227 +"DATA",1130580001.201,8,5,16,1,11,0) +218 +"DATA",1130580001.201,8,5,16,1,12,0) +172 +"DATA",1130580001.201,8,5,16,1,13,0) +171 +"DATA",1130580001.201,8,5,16,1,14,0) +176 +"DATA",1130580001.201,8,5,16,1,15,0) +174 +"DATA",1130580001.201,8,5,16,1,16,0) +175 +"DATA",1130580001.201,8,5,16,1,17,0) +177 +"DATA",1130580001.201,8,5,16,1,18,0) +178 +"DATA",1130580001.201,8,5,16,1,19,0) +179 +"DATA",1130580001.201,8,5,16,1,20,0) +180 +"DATA",1130580001.201,8,5,16,1,21,0) +183 +"DATA",1130580001.201,8,5,16,1,22,0) +187 +"DATA",1130580001.201,8,5,16,1,23,0) +189 +"DATA",1130580001.201,8,5,16,1,24,0) +323 +"DATA",1130580001.201,8,5,16,1,25,0) +211 +"DATA",1130580001.201,8,5,16,1,26,0) +110 +"DATA",1130580001.201,8,5,16,1,27,0) +18 +"DATA",1130580001.201,8,5,16,1,28,0) +9 +"DATA",1130580001.201,8,5,16,1,29,0) +137 +"DATA",1130580001.201,8,5,16,1,30,0) +332 +"DATA",1130580001.201,8,5,16,1,31,0) +126 +"DATA",1130580001.201,8,5,16,2) +31 +"DATA",1130580001.201,8,5,16,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,16,3,1,0) +341 +"DATA",1130580001.201,8,5,16,3,2,0) +340 +"DATA",1130580001.201,8,5,16,3,3,0) +316 +"DATA",1130580001.201,8,5,16,3,4,0) +317 +"DATA",1130580001.201,8,5,16,3,5,0) +210 +"DATA",1130580001.201,8,5,16,3,6,0) +97 +"DATA",1130580001.201,8,5,16,3,7,0) +99 +"DATA",1130580001.201,8,5,16,3,8,0) +212 +"DATA",1130580001.201,8,5,16,3,9,0) +199 +"DATA",1130580001.201,8,5,16,3,10,0) +219 +"DATA",1130580001.201,8,5,16,3,11,0) +221 +"DATA",1130580001.201,8,5,16,3,12,0) +220 +"DATA",1130580001.201,8,5,16,3,13,0) +222 +"DATA",1130580001.201,8,5,16,3,14,0) +223 +"DATA",1130580001.201,8,5,16,3,15,0) +225 +"DATA",1130580001.201,8,5,16,3,16,0) +224 +"DATA",1130580001.201,8,5,16,3,17,0) +227 +"DATA",1130580001.201,8,5,16,3,18,0) +226 +"DATA",1130580001.201,8,5,16,3,19,0) +218 +"DATA",1130580001.201,8,5,16,3,20,0) +172 +"DATA",1130580001.201,8,5,16,3,21,0) +181 +"DATA",1130580001.201,8,5,16,3,22,0) +171 +"DATA",1130580001.201,8,5,16,3,23,0) +176 +"DATA",1130580001.201,8,5,16,3,24,0) +174 +"DATA",1130580001.201,8,5,16,3,25,0) +175 +"DATA",1130580001.201,8,5,16,3,26,0) +177 +"DATA",1130580001.201,8,5,16,3,27,0) +178 +"DATA",1130580001.201,8,5,16,3,28,0) +179 +"DATA",1130580001.201,8,5,16,3,29,0) +180 +"DATA",1130580001.201,8,5,16,3,30,0) +306 +"DATA",1130580001.201,8,5,16,3,31,0) +309 +"DATA",1130580001.201,8,5,16,3,32,0) +308 +"DATA",1130580001.201,8,5,16,3,33,0) +310 +"DATA",1130580001.201,8,5,16,3,34,0) +318 +"DATA",1130580001.201,8,5,16,3,35,0) +338 +"DATA",1130580001.201,8,5,16,3,36,0) +183 +"DATA",1130580001.201,8,5,16,3,37,0) +312 +"DATA",1130580001.201,8,5,16,3,38,0) +233 +"DATA",1130580001.201,8,5,16,3,39,0) +187 +"DATA",1130580001.201,8,5,16,3,40,0) +191 +"DATA",1130580001.201,8,5,16,3,41,0) +190 +"DATA",1130580001.201,8,5,16,3,42,0) +188 +"DATA",1130580001.201,8,5,16,3,43,0) +192 +"DATA",1130580001.201,8,5,16,3,44,0) +189 +"DATA",1130580001.201,8,5,16,3,45,0) +349 +"DATA",1130580001.201,8,5,16,3,46,0) +322 +"DATA",1130580001.201,8,5,16,3,47,0) +346 +"DATA",1130580001.201,8,5,16,3,48,0) +345 +"DATA",1130580001.201,8,5,16,3,49,0) +319 +"DATA",1130580001.201,8,5,16,3,50,0) +323 +"DATA",1130580001.201,8,5,16,3,51,0) +321 +"DATA",1130580001.201,8,5,16,3,52,0) +344 +"DATA",1130580001.201,8,5,16,3,53,0) +343 +"DATA",1130580001.201,8,5,16,3,54,0) +336 +"DATA",1130580001.201,8,5,16,3,55,0) +335 +"DATA",1130580001.201,8,5,16,3,56,0) +333 +"DATA",1130580001.201,8,5,16,3,57,0) +211 +"DATA",1130580001.201,8,5,16,3,58,0) +270 +"DATA",1130580001.201,8,5,16,3,59,0) +271 +"DATA",1130580001.201,8,5,16,3,60,0) +110 +"DATA",1130580001.201,8,5,16,3,61,0) +331 +"DATA",1130580001.201,8,5,16,3,62,0) +14 +"DATA",1130580001.201,8,5,16,3,63,0) +121 +"DATA",1130580001.201,8,5,16,3,64,0) +18 +"DATA",1130580001.201,8,5,16,3,65,0) +9 +"DATA",1130580001.201,8,5,16,3,66,0) +137 +"DATA",1130580001.201,8,5,16,3,67,0) +332 +"DATA",1130580001.201,8,5,16,3,68,0) +126 +"DATA",1130580001.201,8,5,16,4) +68^46 +"DATA",1130580001.201,8,5,17,0) +100 +"DATA",1130580001.201,8,5,17,2) +0 +"DATA",1130580001.201,8,5,17,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,17,3,1,0) +341 +"DATA",1130580001.201,8,5,17,3,2,0) +340 +"DATA",1130580001.201,8,5,17,3,3,0) +316 +"DATA",1130580001.201,8,5,17,3,4,0) +317 +"DATA",1130580001.201,8,5,17,3,5,0) +210 +"DATA",1130580001.201,8,5,17,3,6,0) +97 +"DATA",1130580001.201,8,5,17,3,7,0) +99 +"DATA",1130580001.201,8,5,17,3,8,0) +212 +"DATA",1130580001.201,8,5,17,3,9,0) +199 +"DATA",1130580001.201,8,5,17,3,10,0) +219 +"DATA",1130580001.201,8,5,17,3,11,0) +221 +"DATA",1130580001.201,8,5,17,3,12,0) +220 +"DATA",1130580001.201,8,5,17,3,13,0) +222 +"DATA",1130580001.201,8,5,17,3,14,0) +223 +"DATA",1130580001.201,8,5,17,3,15,0) +225 +"DATA",1130580001.201,8,5,17,3,16,0) +224 +"DATA",1130580001.201,8,5,17,3,17,0) +227 +"DATA",1130580001.201,8,5,17,3,18,0) +226 +"DATA",1130580001.201,8,5,17,3,19,0) +218 +"DATA",1130580001.201,8,5,17,3,20,0) +172 +"DATA",1130580001.201,8,5,17,3,21,0) +181 +"DATA",1130580001.201,8,5,17,3,22,0) +171 +"DATA",1130580001.201,8,5,17,3,23,0) +176 +"DATA",1130580001.201,8,5,17,3,24,0) +174 +"DATA",1130580001.201,8,5,17,3,25,0) +175 +"DATA",1130580001.201,8,5,17,3,26,0) +177 +"DATA",1130580001.201,8,5,17,3,27,0) +178 +"DATA",1130580001.201,8,5,17,3,28,0) +179 +"DATA",1130580001.201,8,5,17,3,29,0) +180 +"DATA",1130580001.201,8,5,17,3,30,0) +306 +"DATA",1130580001.201,8,5,17,3,31,0) +309 +"DATA",1130580001.201,8,5,17,3,32,0) +308 +"DATA",1130580001.201,8,5,17,3,33,0) +310 +"DATA",1130580001.201,8,5,17,3,34,0) +318 +"DATA",1130580001.201,8,5,17,3,35,0) +338 +"DATA",1130580001.201,8,5,17,3,36,0) +183 +"DATA",1130580001.201,8,5,17,3,37,0) +312 +"DATA",1130580001.201,8,5,17,3,38,0) +233 +"DATA",1130580001.201,8,5,17,3,39,0) +187 +"DATA",1130580001.201,8,5,17,3,40,0) +191 +"DATA",1130580001.201,8,5,17,3,41,0) +190 +"DATA",1130580001.201,8,5,17,3,42,0) +188 +"DATA",1130580001.201,8,5,17,3,43,0) +192 +"DATA",1130580001.201,8,5,17,3,44,0) +189 +"DATA",1130580001.201,8,5,17,3,45,0) +349 +"DATA",1130580001.201,8,5,17,3,46,0) +322 +"DATA",1130580001.201,8,5,17,3,47,0) +346 +"DATA",1130580001.201,8,5,17,3,48,0) +345 +"DATA",1130580001.201,8,5,17,3,49,0) +319 +"DATA",1130580001.201,8,5,17,3,50,0) +323 +"DATA",1130580001.201,8,5,17,3,51,0) +321 +"DATA",1130580001.201,8,5,17,3,52,0) +344 +"DATA",1130580001.201,8,5,17,3,53,0) +343 +"DATA",1130580001.201,8,5,17,3,54,0) +336 +"DATA",1130580001.201,8,5,17,3,55,0) +335 +"DATA",1130580001.201,8,5,17,3,56,0) +333 +"DATA",1130580001.201,8,5,17,3,57,0) +211 +"DATA",1130580001.201,8,5,17,3,58,0) +270 +"DATA",1130580001.201,8,5,17,3,59,0) +271 +"DATA",1130580001.201,8,5,17,3,60,0) +110 +"DATA",1130580001.201,8,5,17,3,61,0) +331 +"DATA",1130580001.201,8,5,17,3,62,0) +14 +"DATA",1130580001.201,8,5,17,3,63,0) +121 +"DATA",1130580001.201,8,5,17,3,64,0) +18 +"DATA",1130580001.201,8,5,17,3,65,0) +9 +"DATA",1130580001.201,8,5,17,3,66,0) +137 +"DATA",1130580001.201,8,5,17,3,67,0) +332 +"DATA",1130580001.201,8,5,17,3,68,0) +126 +"DATA",1130580001.201,8,5,17,4) +68^0 +"DATA",1130580001.201,8,5,18,0) +99 +"DATA",1130580001.201,8,5,18,2) +0 +"DATA",1130580001.201,8,5,18,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,18,3,1,0) +341 +"DATA",1130580001.201,8,5,18,3,2,0) +340 +"DATA",1130580001.201,8,5,18,3,3,0) +316 +"DATA",1130580001.201,8,5,18,3,4,0) +317 +"DATA",1130580001.201,8,5,18,3,5,0) +210 +"DATA",1130580001.201,8,5,18,3,6,0) +97 +"DATA",1130580001.201,8,5,18,3,7,0) +99 +"DATA",1130580001.201,8,5,18,3,8,0) +212 +"DATA",1130580001.201,8,5,18,3,9,0) +199 +"DATA",1130580001.201,8,5,18,3,10,0) +219 +"DATA",1130580001.201,8,5,18,3,11,0) +221 +"DATA",1130580001.201,8,5,18,3,12,0) +220 +"DATA",1130580001.201,8,5,18,3,13,0) +222 +"DATA",1130580001.201,8,5,18,3,14,0) +223 +"DATA",1130580001.201,8,5,18,3,15,0) +225 +"DATA",1130580001.201,8,5,18,3,16,0) +224 +"DATA",1130580001.201,8,5,18,3,17,0) +227 +"DATA",1130580001.201,8,5,18,3,18,0) +226 +"DATA",1130580001.201,8,5,18,3,19,0) +218 +"DATA",1130580001.201,8,5,18,3,20,0) +172 +"DATA",1130580001.201,8,5,18,3,21,0) +181 +"DATA",1130580001.201,8,5,18,3,22,0) +171 +"DATA",1130580001.201,8,5,18,3,23,0) +176 +"DATA",1130580001.201,8,5,18,3,24,0) +174 +"DATA",1130580001.201,8,5,18,3,25,0) +175 +"DATA",1130580001.201,8,5,18,3,26,0) +177 +"DATA",1130580001.201,8,5,18,3,27,0) +178 +"DATA",1130580001.201,8,5,18,3,28,0) +179 +"DATA",1130580001.201,8,5,18,3,29,0) +180 +"DATA",1130580001.201,8,5,18,3,30,0) +306 +"DATA",1130580001.201,8,5,18,3,31,0) +309 +"DATA",1130580001.201,8,5,18,3,32,0) +308 +"DATA",1130580001.201,8,5,18,3,33,0) +310 +"DATA",1130580001.201,8,5,18,3,34,0) +318 +"DATA",1130580001.201,8,5,18,3,35,0) +338 +"DATA",1130580001.201,8,5,18,3,36,0) +183 +"DATA",1130580001.201,8,5,18,3,37,0) +312 +"DATA",1130580001.201,8,5,18,3,38,0) +233 +"DATA",1130580001.201,8,5,18,3,39,0) +187 +"DATA",1130580001.201,8,5,18,3,40,0) +191 +"DATA",1130580001.201,8,5,18,3,41,0) +190 +"DATA",1130580001.201,8,5,18,3,42,0) +188 +"DATA",1130580001.201,8,5,18,3,43,0) +192 +"DATA",1130580001.201,8,5,18,3,44,0) +189 +"DATA",1130580001.201,8,5,18,3,45,0) +349 +"DATA",1130580001.201,8,5,18,3,46,0) +322 +"DATA",1130580001.201,8,5,18,3,47,0) +346 +"DATA",1130580001.201,8,5,18,3,48,0) +345 +"DATA",1130580001.201,8,5,18,3,49,0) +319 +"DATA",1130580001.201,8,5,18,3,50,0) +323 +"DATA",1130580001.201,8,5,18,3,51,0) +321 +"DATA",1130580001.201,8,5,18,3,52,0) +344 +"DATA",1130580001.201,8,5,18,3,53,0) +343 +"DATA",1130580001.201,8,5,18,3,54,0) +336 +"DATA",1130580001.201,8,5,18,3,55,0) +335 +"DATA",1130580001.201,8,5,18,3,56,0) +333 +"DATA",1130580001.201,8,5,18,3,57,0) +211 +"DATA",1130580001.201,8,5,18,3,58,0) +270 +"DATA",1130580001.201,8,5,18,3,59,0) +271 +"DATA",1130580001.201,8,5,18,3,60,0) +110 +"DATA",1130580001.201,8,5,18,3,61,0) +331 +"DATA",1130580001.201,8,5,18,3,62,0) +14 +"DATA",1130580001.201,8,5,18,3,63,0) +121 +"DATA",1130580001.201,8,5,18,3,64,0) +18 +"DATA",1130580001.201,8,5,18,3,65,0) +9 +"DATA",1130580001.201,8,5,18,3,66,0) +137 +"DATA",1130580001.201,8,5,18,3,67,0) +332 +"DATA",1130580001.201,8,5,18,3,68,0) +126 +"DATA",1130580001.201,8,5,18,4) +68^0 +"DATA",1130580001.301,5,0) +MU 2011 INP NO MED +"DATA",1130580001.301,5,3) +NoMed +"DATA",1130580001.301,9,0) +MU 2011 INP FAIL DEMO +"DATA",1130580001.301,9,3) +FailedDemographics +"DATA",1130580001.301,10,0) +MU 2011 INP CPOE MED ORDERS +"DATA",1130580001.301,10,3) +HasMedOrders +"DATA",1130580001.301,11,0) +MU 2011 INP NO CPOE MED +"DATA",1130580001.301,11,3) +NoMedOrders +"DATA",1130580001.301,12,0) +MU 2011 INP HAS SMOKING ST +"DATA",1130580001.301,12,3) +HasSmokingStatus +"DATA",1130580001.301,13,0) +MU 2011 INP NO SMOKING ST +"DATA",1130580001.301,13,3) +NoSmokingStatus +"DATA",1130580001.301,14,0) +MU 2011 INP OVER 65 DEN +"DATA",1130580001.301,14,3) +Over65 +"DATA",1130580001.301,15,0) +MU 2011 INP HAS ADV DIR +"DATA",1130580001.301,15,3) +HasAdvancedDirective +"DATA",1130580001.301,16,0) +MU 2011 INP HAS VITAL SIGNS +"DATA",1130580001.301,16,3) +HasVitalSigns +"DATA",1130580001.301,17,0) +MU 2011 INP NO ADV DIR +"DATA",1130580001.301,17,3) +NoAdvancedDirective +"DATA",1130580001.301,18,0) +MU 2011 INP NO VITAL SIGNS +"DATA",1130580001.301,18,3) +NoVitalSigns +"DATA",1130580001.301,19,0) +MU 2011 INP HAS MED RECON +"DATA",1130580001.301,19,3) +HasMedRecon +"DATA",1130580001.301,20,0) +MU 2011 INP NO MED RECON +"DATA",1130580001.301,20,3) +NoMedRecon +"DATA",1130580001.301,21,0) +MU 2011 INP XFER OF CARE DEN +"DATA",1130580001.301,21,3) +XferOfCare +"DATA",1130580001.301,24,0) +MU 2011 INP HAS ALLERGY +"DATA",1130580001.301,24,1,0) +^1130580001.311P^40^40 +"DATA",1130580001.301,24,1,1,0) +18 +"DATA",1130580001.301,24,1,2,0) +97 +"DATA",1130580001.301,24,1,3,0) +99 +"DATA",1130580001.301,24,1,4,0) +110 +"DATA",1130580001.301,24,1,5,0) +121 +"DATA",1130580001.301,24,1,6,0) +126 +"DATA",1130580001.301,24,1,7,0) +137 +"DATA",1130580001.301,24,1,8,0) +171 +"DATA",1130580001.301,24,1,9,0) +172 +"DATA",1130580001.301,24,1,10,0) +174 +"DATA",1130580001.301,24,1,11,0) +175 +"DATA",1130580001.301,24,1,12,0) +176 +"DATA",1130580001.301,24,1,13,0) +177 +"DATA",1130580001.301,24,1,14,0) +178 +"DATA",1130580001.301,24,1,15,0) +179 +"DATA",1130580001.301,24,1,16,0) +180 +"DATA",1130580001.301,24,1,17,0) +181 +"DATA",1130580001.301,24,1,18,0) +183 +"DATA",1130580001.301,24,1,19,0) +187 +"DATA",1130580001.301,24,1,20,0) +189 +"DATA",1130580001.301,24,1,21,0) +199 +"DATA",1130580001.301,24,1,22,0) +210 +"DATA",1130580001.301,24,1,23,0) +211 +"DATA",1130580001.301,24,1,24,0) +212 +"DATA",1130580001.301,24,1,25,0) +218 +"DATA",1130580001.301,24,1,26,0) +220 +"DATA",1130580001.301,24,1,27,0) +221 +"DATA",1130580001.301,24,1,28,0) +227 +"DATA",1130580001.301,24,1,29,0) +233 +"DATA",1130580001.301,24,1,30,0) +270 +"DATA",1130580001.301,24,1,31,0) +306 +"DATA",1130580001.301,24,1,32,0) +308 +"DATA",1130580001.301,24,1,33,0) +309 +"DATA",1130580001.301,24,1,34,0) +321 +"DATA",1130580001.301,24,1,35,0) +322 +"DATA",1130580001.301,24,1,36,0) +332 +"DATA",1130580001.301,24,1,37,0) +341 +"DATA",1130580001.301,24,1,38,0) +343 +"DATA",1130580001.301,24,1,39,0) +344 +"DATA",1130580001.301,24,1,40,0) +345 +"DATA",1130580001.301,24,3) +HasAllergy +"DATA",1130580001.301,25,0) +MU 2011 INP HAS DEMO +"DATA",1130580001.301,25,1,0) +^1130580001.311P^69^69 +"DATA",1130580001.301,25,1,1,0) +9 +"DATA",1130580001.301,25,1,2,0) +14 +"DATA",1130580001.301,25,1,3,0) +18 +"DATA",1130580001.301,25,1,4,0) +97 +"DATA",1130580001.301,25,1,5,0) +99 +"DATA",1130580001.301,25,1,6,0) +110 +"DATA",1130580001.301,25,1,7,0) +121 +"DATA",1130580001.301,25,1,8,0) +126 +"DATA",1130580001.301,25,1,9,0) +137 +"DATA",1130580001.301,25,1,10,0) +171 +"DATA",1130580001.301,25,1,11,0) +172 +"DATA",1130580001.301,25,1,12,0) +174 +"DATA",1130580001.301,25,1,13,0) +175 +"DATA",1130580001.301,25,1,14,0) +176 +"DATA",1130580001.301,25,1,15,0) +177 +"DATA",1130580001.301,25,1,16,0) +178 +"DATA",1130580001.301,25,1,17,0) +179 +"DATA",1130580001.301,25,1,18,0) +180 +"DATA",1130580001.301,25,1,19,0) +181 +"DATA",1130580001.301,25,1,20,0) +183 +"DATA",1130580001.301,25,1,21,0) +187 +"DATA",1130580001.301,25,1,22,0) +188 +"DATA",1130580001.301,25,1,23,0) +189 +"DATA",1130580001.301,25,1,24,0) +190 +"DATA",1130580001.301,25,1,25,0) +191 +"DATA",1130580001.301,25,1,26,0) +192 +"DATA",1130580001.301,25,1,27,0) +199 +"DATA",1130580001.301,25,1,28,0) +210 +"DATA",1130580001.301,25,1,29,0) +211 +"DATA",1130580001.301,25,1,30,0) +212 +"DATA",1130580001.301,25,1,31,0) +218 +"DATA",1130580001.301,25,1,32,0) +219 +"DATA",1130580001.301,25,1,33,0) +220 +"DATA",1130580001.301,25,1,34,0) +221 +"DATA",1130580001.301,25,1,35,0) +222 +"DATA",1130580001.301,25,1,36,0) +223 +"DATA",1130580001.301,25,1,37,0) +224 +"DATA",1130580001.301,25,1,38,0) +225 +"DATA",1130580001.301,25,1,39,0) +226 +"DATA",1130580001.301,25,1,40,0) +227 +"DATA",1130580001.301,25,1,41,0) +233 +"DATA",1130580001.301,25,1,42,0) +270 +"DATA",1130580001.301,25,1,43,0) +271 +"DATA",1130580001.301,25,1,44,0) +306 +"DATA",1130580001.301,25,1,45,0) +308 +"DATA",1130580001.301,25,1,46,0) +309 +"DATA",1130580001.301,25,1,47,0) +310 +"DATA",1130580001.301,25,1,48,0) +312 +"DATA",1130580001.301,25,1,49,0) +316 +"DATA",1130580001.301,25,1,50,0) +317 +"DATA",1130580001.301,25,1,51,0) +318 +"DATA",1130580001.301,25,1,52,0) +319 +"DATA",1130580001.301,25,1,53,0) +321 +"DATA",1130580001.301,25,1,54,0) +322 +"DATA",1130580001.301,25,1,55,0) +323 +"DATA",1130580001.301,25,1,56,0) +331 +"DATA",1130580001.301,25,1,57,0) +332 +"DATA",1130580001.301,25,1,58,0) +333 +"DATA",1130580001.301,25,1,59,0) +335 +"DATA",1130580001.301,25,1,60,0) +336 +"DATA",1130580001.301,25,1,61,0) +338 +"DATA",1130580001.301,25,1,62,0) +340 +"DATA",1130580001.301,25,1,63,0) +341 +"DATA",1130580001.301,25,1,64,0) +343 +"DATA",1130580001.301,25,1,65,0) +344 +"DATA",1130580001.301,25,1,66,0) +345 +"DATA",1130580001.301,25,1,67,0) +346 +"DATA",1130580001.301,25,1,68,0) +349 +"DATA",1130580001.301,25,1,69,0) +351 +"DATA",1130580001.301,25,3) +HasDemographics +"DATA",1130580001.301,26,0) +MU 2011 INP HAS MED +"DATA",1130580001.301,26,1,0) +^1130580001.311P^68^68 +"DATA",1130580001.301,26,1,1,0) +9 +"DATA",1130580001.301,26,1,2,0) +14 +"DATA",1130580001.301,26,1,3,0) +18 +"DATA",1130580001.301,26,1,4,0) +97 +"DATA",1130580001.301,26,1,5,0) +99 +"DATA",1130580001.301,26,1,6,0) +121 +"DATA",1130580001.301,26,1,7,0) +126 +"DATA",1130580001.301,26,1,8,0) +137 +"DATA",1130580001.301,26,1,9,0) +171 +"DATA",1130580001.301,26,1,10,0) +172 +"DATA",1130580001.301,26,1,11,0) +174 +"DATA",1130580001.301,26,1,12,0) +175 +"DATA",1130580001.301,26,1,13,0) +176 +"DATA",1130580001.301,26,1,14,0) +177 +"DATA",1130580001.301,26,1,15,0) +178 +"DATA",1130580001.301,26,1,16,0) +179 +"DATA",1130580001.301,26,1,17,0) +180 +"DATA",1130580001.301,26,1,18,0) +181 +"DATA",1130580001.301,26,1,19,0) +183 +"DATA",1130580001.301,26,1,20,0) +187 +"DATA",1130580001.301,26,1,21,0) +188 +"DATA",1130580001.301,26,1,22,0) +189 +"DATA",1130580001.301,26,1,23,0) +190 +"DATA",1130580001.301,26,1,24,0) +191 +"DATA",1130580001.301,26,1,25,0) +192 +"DATA",1130580001.301,26,1,26,0) +199 +"DATA",1130580001.301,26,1,27,0) +210 +"DATA",1130580001.301,26,1,28,0) +211 +"DATA",1130580001.301,26,1,29,0) +212 +"DATA",1130580001.301,26,1,30,0) +218 +"DATA",1130580001.301,26,1,31,0) +219 +"DATA",1130580001.301,26,1,32,0) +220 +"DATA",1130580001.301,26,1,33,0) +221 +"DATA",1130580001.301,26,1,34,0) +222 +"DATA",1130580001.301,26,1,35,0) +223 +"DATA",1130580001.301,26,1,36,0) +224 +"DATA",1130580001.301,26,1,37,0) +225 +"DATA",1130580001.301,26,1,38,0) +226 +"DATA",1130580001.301,26,1,39,0) +227 +"DATA",1130580001.301,26,1,40,0) +233 +"DATA",1130580001.301,26,1,41,0) +270 +"DATA",1130580001.301,26,1,42,0) +271 +"DATA",1130580001.301,26,1,43,0) +306 +"DATA",1130580001.301,26,1,44,0) +308 +"DATA",1130580001.301,26,1,45,0) +309 +"DATA",1130580001.301,26,1,46,0) +310 +"DATA",1130580001.301,26,1,47,0) +312 +"DATA",1130580001.301,26,1,48,0) +316 +"DATA",1130580001.301,26,1,49,0) +317 +"DATA",1130580001.301,26,1,50,0) +318 +"DATA",1130580001.301,26,1,51,0) +319 +"DATA",1130580001.301,26,1,52,0) +321 +"DATA",1130580001.301,26,1,53,0) +322 +"DATA",1130580001.301,26,1,54,0) +323 +"DATA",1130580001.301,26,1,55,0) +331 +"DATA",1130580001.301,26,1,56,0) +332 +"DATA",1130580001.301,26,1,57,0) +333 +"DATA",1130580001.301,26,1,58,0) +335 +"DATA",1130580001.301,26,1,59,0) +336 +"DATA",1130580001.301,26,1,60,0) +338 +"DATA",1130580001.301,26,1,61,0) +340 +"DATA",1130580001.301,26,1,62,0) +341 +"DATA",1130580001.301,26,1,63,0) +343 +"DATA",1130580001.301,26,1,64,0) +344 +"DATA",1130580001.301,26,1,65,0) +345 +"DATA",1130580001.301,26,1,66,0) +346 +"DATA",1130580001.301,26,1,67,0) +349 +"DATA",1130580001.301,26,1,68,0) +351 +"DATA",1130580001.301,26,3) +HasMed +"DATA",1130580001.301,27,0) +MU 2011 INP HAS PROBLEM +"DATA",1130580001.301,27,1,0) +^1130580001.311P^31^31 +"DATA",1130580001.301,27,1,1,0) +9 +"DATA",1130580001.301,27,1,2,0) +18 +"DATA",1130580001.301,27,1,3,0) +97 +"DATA",1130580001.301,27,1,4,0) +99 +"DATA",1130580001.301,27,1,5,0) +110 +"DATA",1130580001.301,27,1,6,0) +126 +"DATA",1130580001.301,27,1,7,0) +137 +"DATA",1130580001.301,27,1,8,0) +171 +"DATA",1130580001.301,27,1,9,0) +172 +"DATA",1130580001.301,27,1,10,0) +174 +"DATA",1130580001.301,27,1,11,0) +175 +"DATA",1130580001.301,27,1,12,0) +176 +"DATA",1130580001.301,27,1,13,0) +177 +"DATA",1130580001.301,27,1,14,0) +178 +"DATA",1130580001.301,27,1,15,0) +179 +"DATA",1130580001.301,27,1,16,0) +180 +"DATA",1130580001.301,27,1,17,0) +183 +"DATA",1130580001.301,27,1,18,0) +187 +"DATA",1130580001.301,27,1,19,0) +189 +"DATA",1130580001.301,27,1,20,0) +199 +"DATA",1130580001.301,27,1,21,0) +210 +"DATA",1130580001.301,27,1,22,0) +211 +"DATA",1130580001.301,27,1,23,0) +212 +"DATA",1130580001.301,27,1,24,0) +218 +"DATA",1130580001.301,27,1,25,0) +219 +"DATA",1130580001.301,27,1,26,0) +220 +"DATA",1130580001.301,27,1,27,0) +221 +"DATA",1130580001.301,27,1,28,0) +223 +"DATA",1130580001.301,27,1,29,0) +227 +"DATA",1130580001.301,27,1,30,0) +323 +"DATA",1130580001.301,27,1,31,0) +332 +"DATA",1130580001.301,27,3) +HasProblem +"DATA",1130580001.301,28,0) +MU 2011 INP NO ALLERGY +"DATA",1130580001.301,28,1,0) +^1130580001.311P^29^29 +"DATA",1130580001.301,28,1,1,0) +9 +"DATA",1130580001.301,28,1,2,0) +14 +"DATA",1130580001.301,28,1,3,0) +188 +"DATA",1130580001.301,28,1,4,0) +190 +"DATA",1130580001.301,28,1,5,0) +191 +"DATA",1130580001.301,28,1,6,0) +192 +"DATA",1130580001.301,28,1,7,0) +219 +"DATA",1130580001.301,28,1,8,0) +222 +"DATA",1130580001.301,28,1,9,0) +223 +"DATA",1130580001.301,28,1,10,0) +224 +"DATA",1130580001.301,28,1,11,0) +225 +"DATA",1130580001.301,28,1,12,0) +226 +"DATA",1130580001.301,28,1,13,0) +271 +"DATA",1130580001.301,28,1,14,0) +310 +"DATA",1130580001.301,28,1,15,0) +312 +"DATA",1130580001.301,28,1,16,0) +316 +"DATA",1130580001.301,28,1,17,0) +317 +"DATA",1130580001.301,28,1,18,0) +318 +"DATA",1130580001.301,28,1,19,0) +319 +"DATA",1130580001.301,28,1,20,0) +323 +"DATA",1130580001.301,28,1,21,0) +331 +"DATA",1130580001.301,28,1,22,0) +333 +"DATA",1130580001.301,28,1,23,0) +335 +"DATA",1130580001.301,28,1,24,0) +336 +"DATA",1130580001.301,28,1,25,0) +338 +"DATA",1130580001.301,28,1,26,0) +340 +"DATA",1130580001.301,28,1,27,0) +346 +"DATA",1130580001.301,28,1,28,0) +349 +"DATA",1130580001.301,28,1,29,0) +351 +"DATA",1130580001.301,28,3) +NoAllergy +"DATA",1130580001.301,29,0) +MU 2011 INP NO PROBLEM +"DATA",1130580001.301,29,1,0) +^1130580001.311P^38^38 +"DATA",1130580001.301,29,1,1,0) +14 +"DATA",1130580001.301,29,1,2,0) +121 +"DATA",1130580001.301,29,1,3,0) +181 +"DATA",1130580001.301,29,1,4,0) +188 +"DATA",1130580001.301,29,1,5,0) +190 +"DATA",1130580001.301,29,1,6,0) +191 +"DATA",1130580001.301,29,1,7,0) +192 +"DATA",1130580001.301,29,1,8,0) +222 +"DATA",1130580001.301,29,1,9,0) +224 +"DATA",1130580001.301,29,1,10,0) +225 +"DATA",1130580001.301,29,1,11,0) +226 +"DATA",1130580001.301,29,1,12,0) +233 +"DATA",1130580001.301,29,1,13,0) +270 +"DATA",1130580001.301,29,1,14,0) +271 +"DATA",1130580001.301,29,1,15,0) +306 +"DATA",1130580001.301,29,1,16,0) +308 +"DATA",1130580001.301,29,1,17,0) +309 +"DATA",1130580001.301,29,1,18,0) +310 +"DATA",1130580001.301,29,1,19,0) +312 +"DATA",1130580001.301,29,1,20,0) +316 +"DATA",1130580001.301,29,1,21,0) +317 +"DATA",1130580001.301,29,1,22,0) +318 +"DATA",1130580001.301,29,1,23,0) +319 +"DATA",1130580001.301,29,1,24,0) +321 +"DATA",1130580001.301,29,1,25,0) +322 +"DATA",1130580001.301,29,1,26,0) +331 +"DATA",1130580001.301,29,1,27,0) +333 +"DATA",1130580001.301,29,1,28,0) +335 +"DATA",1130580001.301,29,1,29,0) +336 +"DATA",1130580001.301,29,1,30,0) +338 +"DATA",1130580001.301,29,1,31,0) +340 +"DATA",1130580001.301,29,1,32,0) +341 +"DATA",1130580001.301,29,1,33,0) +343 +"DATA",1130580001.301,29,1,34,0) +344 +"DATA",1130580001.301,29,1,35,0) +345 +"DATA",1130580001.301,29,1,36,0) +346 +"DATA",1130580001.301,29,1,37,0) +349 +"DATA",1130580001.301,29,1,38,0) +351 +"DATA",1130580001.301,29,3) +NoProblem +"DATA",1130580001.301,30,0) +MU 2011 INPATIENT PATIENT DEN +"DATA",1130580001.301,30,1,0) +^1130580001.311P^69^69 +"DATA",1130580001.301,30,1,1,0) +9 +"DATA",1130580001.301,30,1,2,0) +14 +"DATA",1130580001.301,30,1,3,0) +18 +"DATA",1130580001.301,30,1,4,0) +97 +"DATA",1130580001.301,30,1,5,0) +99 +"DATA",1130580001.301,30,1,6,0) +110 +"DATA",1130580001.301,30,1,7,0) +121 +"DATA",1130580001.301,30,1,8,0) +126 +"DATA",1130580001.301,30,1,9,0) +137 +"DATA",1130580001.301,30,1,10,0) +171 +"DATA",1130580001.301,30,1,11,0) +172 +"DATA",1130580001.301,30,1,12,0) +174 +"DATA",1130580001.301,30,1,13,0) +175 +"DATA",1130580001.301,30,1,14,0) +176 +"DATA",1130580001.301,30,1,15,0) +177 +"DATA",1130580001.301,30,1,16,0) +178 +"DATA",1130580001.301,30,1,17,0) +179 +"DATA",1130580001.301,30,1,18,0) +180 +"DATA",1130580001.301,30,1,19,0) +181 +"DATA",1130580001.301,30,1,20,0) +183 +"DATA",1130580001.301,30,1,21,0) +187 +"DATA",1130580001.301,30,1,22,0) +188 +"DATA",1130580001.301,30,1,23,0) +189 +"DATA",1130580001.301,30,1,24,0) +190 +"DATA",1130580001.301,30,1,25,0) +191 +"DATA",1130580001.301,30,1,26,0) +192 +"DATA",1130580001.301,30,1,27,0) +199 +"DATA",1130580001.301,30,1,28,0) +210 +"DATA",1130580001.301,30,1,29,0) +211 +"DATA",1130580001.301,30,1,30,0) +212 +"DATA",1130580001.301,30,1,31,0) +218 +"DATA",1130580001.301,30,1,32,0) +219 +"DATA",1130580001.301,30,1,33,0) +220 +"DATA",1130580001.301,30,1,34,0) +221 +"DATA",1130580001.301,30,1,35,0) +222 +"DATA",1130580001.301,30,1,36,0) +223 +"DATA",1130580001.301,30,1,37,0) +224 +"DATA",1130580001.301,30,1,38,0) +225 +"DATA",1130580001.301,30,1,39,0) +226 +"DATA",1130580001.301,30,1,40,0) +227 +"DATA",1130580001.301,30,1,41,0) +233 +"DATA",1130580001.301,30,1,42,0) +270 +"DATA",1130580001.301,30,1,43,0) +271 +"DATA",1130580001.301,30,1,44,0) +306 +"DATA",1130580001.301,30,1,45,0) +308 +"DATA",1130580001.301,30,1,46,0) +309 +"DATA",1130580001.301,30,1,47,0) +310 +"DATA",1130580001.301,30,1,48,0) +312 +"DATA",1130580001.301,30,1,49,0) +316 +"DATA",1130580001.301,30,1,50,0) +317 +"DATA",1130580001.301,30,1,51,0) +318 +"DATA",1130580001.301,30,1,52,0) +319 +"DATA",1130580001.301,30,1,53,0) +321 +"DATA",1130580001.301,30,1,54,0) +322 +"DATA",1130580001.301,30,1,55,0) +323 +"DATA",1130580001.301,30,1,56,0) +331 +"DATA",1130580001.301,30,1,57,0) +332 +"DATA",1130580001.301,30,1,58,0) +333 +"DATA",1130580001.301,30,1,59,0) +335 +"DATA",1130580001.301,30,1,60,0) +336 +"DATA",1130580001.301,30,1,61,0) +338 +"DATA",1130580001.301,30,1,62,0) +340 +"DATA",1130580001.301,30,1,63,0) +341 +"DATA",1130580001.301,30,1,64,0) +343 +"DATA",1130580001.301,30,1,65,0) +344 +"DATA",1130580001.301,30,1,66,0) +345 +"DATA",1130580001.301,30,1,67,0) +346 +"DATA",1130580001.301,30,1,68,0) +349 +"DATA",1130580001.301,30,1,69,0) +351 +"DATA",1130580001.301,30,3) +Patient +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"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^^y^o^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 +"FIA",1130580001.301) +C0Q PATIENT LIST +"FIA",1130580001.301,0) +^C0Q(301, +"FIA",1130580001.301,0,0) +1130580001.301I +"FIA",1130580001.301,0,1) +y^y^f^^n^^y^m^n +"FIA",1130580001.301,0,10) + +"FIA",1130580001.301,0,11) + +"FIA",1130580001.301,0,"RLRO") + +"FIA",1130580001.301,1130580001.301) +0 +"FIA",1130580001.301,1130580001.311) +0 +"FIA",1130580001.301,1130580001.3111) +0 +"FIA",1130580001.301,1130580001.321) +0 +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"IX",1130580001.301,1130580001.301,"CATTR",0) +1130580001.301^CATTR^ATTRIBUTE TO TIE PATIENT LIST RECORD TO INTERNAL ARRAYS^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"CATTR",1) +S ^C0Q(301,"CATTR",$E(X,1,64),DA)="" +"IX",1130580001.301,1130580001.301,"CATTR",2) +K ^C0Q(301,"CATTR",$E(X,1,64),DA) +"IX",1130580001.301,1130580001.301,"CATTR",2.5) +K ^C0Q(301,"CATTR") +"IX",1130580001.301,1130580001.301,"CATTR",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"CATTR",11.1,1,0) +1^F^1130580001.301^999^64^1^F +"KRN",.4,1589,-1) +0^3 +"KRN",.4,1589,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3110502 +"KRN",.4,1589,"F",2) +.01~.5~1~2~ +"KRN",.4,1589,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1590,-1) +0^2 +"KRN",.4,1590,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1590,"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,1590,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1591,-1) +0^1 +"KRN",.4,1591,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1591,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1591,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1592,-1) +0^5 +"KRN",.4,1592,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1592,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1592,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1592,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1592,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1592,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1592,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1592,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1593,-1) +0^4 +"KRN",.4,1593,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1593,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1593,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1593,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1593,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1593,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1593,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1593,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1594,-1) +0^6 +"KRN",.4,1594,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3110816 +"KRN",.4,1594,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1594,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1594,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1778,-1) +0^2 +"KRN",.402,1778,0) +C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3110809 +"KRN",.402,1778,"DR",1,1130580001.101) +.01;.5;1;2; +"KRN",.402,1779,-1) +0^1 +"KRN",.402,1779,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1779,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1779,"DR",2,1130580001.2011) +.01; +"KRN",19,11104,-1) +0^9 +"KRN",19,11104,0) +C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^ +"KRN",19,11104,30) +C0Q(101, +"KRN",19,11104,31) +AEMQL +"KRN",19,11104,50) +C0Q(101, +"KRN",19,11104,51) +[C0Q QUALITY MEASURE DEFINITION] +"KRN",19,11104,"U") +QUALITY MEASURE DEFINITION +"KRN",19,11105,-1) +0^8 +"KRN",19,11105,0) +C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^ +"KRN",19,11105,30) +C0Q(201, +"KRN",19,11105,31) +AEMQL +"KRN",19,11105,50) +C0Q(201, +"KRN",19,11105,51) +[C0Q MEASUREMENT SET DEFINE] +"KRN",19,11105,"U") +MEASURE SET DEFINITION +"KRN",19,11106,-1) +0^10 +"KRN",19,11106,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11106,10,0) +^19.01IP^14^14 +"KRN",19,11106,10,1,0) +11105 +"KRN",19,11106,10,1,"^") +C0Q MEASURE SET DEFINITION +"KRN",19,11106,10,2,0) +11104 +"KRN",19,11106,10,2,"^") +C0Q QUALITY MEASURE DEFINITION +"KRN",19,11106,10,6,0) +11110 +"KRN",19,11106,10,6,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11106,10,7,0) +11111 +"KRN",19,11106,10,7,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11106,10,9,0) +11113 +"KRN",19,11106,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11106,10,11,0) +11115 +"KRN",19,11106,10,11,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11106,10,12,0) +11116 +"KRN",19,11106,10,12,"^") +C0Q PQRI MENU +"KRN",19,11106,10,13,0) +11117 +"KRN",19,11106,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11106,10,14,0) +11118 +"KRN",19,11106,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11106,99) +62305,47814 +"KRN",19,11106,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11107,-1) +0^4 +"KRN",19,11107,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^ +"KRN",19,11107,60) +C0Q(101, +"KRN",19,11107,62) +0 +"KRN",19,11107,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11107,64) + +"KRN",19,11107,65) + +"KRN",19,11107,66) + +"KRN",19,11107,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11108,-1) +0^3 +"KRN",19,11108,0) +C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^ +"KRN",19,11108,60) +C0Q(201, +"KRN",19,11108,62) +0 +"KRN",19,11108,63) +[C0Q PRINT MEASUREMENT SET] +"KRN",19,11108,64) + +"KRN",19,11108,65) + +"KRN",19,11108,66) + +"KRN",19,11108,"U") +DISPLAY MEASURE SET +"KRN",19,11109,-1) +0^7 +"KRN",19,11109,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11109,25) +EN^C0QMAIN +"KRN",19,11109,"U") +LIST MEASURE SET +"KRN",19,11110,-1) +0^1 +"KRN",19,11110,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11110,25) +NBYP^C0QMAIN +"KRN",19,11110,"U") +BY PATIENT NUMERATOR +"KRN",19,11111,-1) +0^2 +"KRN",19,11111,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11111,25) +DBYP^C0QMAIN +"KRN",19,11111,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11112,-1) +0^5 +"KRN",19,11112,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11112,25) +EXPORT^C0QMAIN +"KRN",19,11112,"U") +EXPORT CCR BY MEASURE +"KRN",19,11113,-1) +0^12 +"KRN",19,11113,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11113,25) +EN2^C0QMAIN +"KRN",19,11113,"U") +COPY OVER PATIENT LISTS +"KRN",19,11114,-1) +0^6 +"KRN",19,11114,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11114,25) +ENEXP^C0QMAIN +"KRN",19,11114,"U") +ALL MEASURES EXPORT +"KRN",19,11115,-1) +0^15 +"KRN",19,11115,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11115,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11115,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11115,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11115,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11115,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11115,25) +QUE^C0QMAIN +"KRN",19,11115,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11116,-1) +0^13 +"KRN",19,11116,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11116,10,0) +^19.01IP^3^3 +"KRN",19,11116,10,1,0) +11114 +"KRN",19,11116,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11116,10,2,0) +11112 +"KRN",19,11116,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11116,10,3,0) +11109 +"KRN",19,11116,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11116,99) +62305,47814 +"KRN",19,11116,"U") +PQRI MENU +"KRN",19,11117,-1) +0^14 +"KRN",19,11117,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11117,30) +C0Q(201, +"KRN",19,11117,31) +AEMQ +"KRN",19,11117,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11117,80) +C0Q(201, +"KRN",19,11117,"U") +PRINT C0Q MEASURES +"KRN",19,11118,-1) +0^16 +"KRN",19,11118,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11118,25) +EN^C0QPQRI +"KRN",19,11118,"U") +PQRI PRINT XML +"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") +8 +"RTN","C0QERTIM") +0^5^B7596326 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; +"RTN","C0QERTIM",2,0) + ;;0.1;C0Q;;;Build 12 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QERTIM",58,0) + +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 12 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 12 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 12 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QIMMUN") +0^6^B6463760 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; +"RTN","C0QIMMUN",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 12 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",7,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",8,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",9,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",10,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",11,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",12,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",13,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",14,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",15,0) + . D:Y>0 +"RTN","C0QIMMUN",16,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",17,0) + . . L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",18,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",19,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",20,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",21,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",22,0) + . . Q +"RTN","C0QIMMUN",23,0) + . Q +"RTN","C0QIMMUN",24,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",25,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",26,0) + L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",27,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",28,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",29,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",30,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",31,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",32,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",33,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",34,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",35,0) + . Q +"RTN","C0QIMMUN",36,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",37,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",38,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",39,0) + Q +"RTN","C0QIMMUN",40,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",41,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",42,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",43,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",44,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",45,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",46,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",47,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",48,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",49,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",50,0) + . Q +"RTN","C0QIMMUN",51,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",52,0) + Q +"RTN","C0QMAIN") +0^1^B114653305 +"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 12 +"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) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"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) + ; iterate over the measures +"RTN","C0QMAIN",151,0) + S MEASURE=0 +"RTN","C0QMAIN",152,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",153,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",154,0) + . ; now count the numerator patients +"RTN","C0QMAIN",155,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",156,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",157,0) + . ; and count the denominator patients +"RTN","C0QMAIN",158,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",159,0) + . Q:DENOM=0 +"RTN","C0QMAIN",160,0) + . ; and stuff the values +"RTN","C0QMAIN",161,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",162,0) + . Q +"RTN","C0QMAIN",163,0) + Q +"RTN","C0QMAIN",164,0) + ; +"RTN","C0QMAIN",165,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",166,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",167,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",168,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",169,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",170,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",171,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",172,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",173,0) + N ZI S ZI="" +"RTN","C0QMAIN",174,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",175,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",176,0) + D DELIST("C0QM") +"RTN","C0QMAIN",177,0) + N ZII S ZII="" +"RTN","C0QMAIN",178,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",179,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",180,0) + K C0QM +"RTN","C0QMAIN",181,0) + D CLEAN^DILF +"RTN","C0QMAIN",182,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",183,0) + D DELIST("C0QM") +"RTN","C0QMAIN",184,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",185,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",186,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",187,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",188,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",189,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",190,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",191,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",192,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",193,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QMAIN",194,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",195,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",196,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",197,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QMAIN",198,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",199,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",200,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",201,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",202,0) + . N C0QUFN ; FILE NUMBER TO USE +"RTN","C0QMAIN",203,0) + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",204,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",205,0) + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",206,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",207,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",208,0) + . K C0QNUMP +"RTN","C0QMAIN",209,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",210,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",211,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",212,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",213,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",214,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",215,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",216,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",217,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",218,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",219,0) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",220,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",221,0) + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",222,0) + . ;D DELIST("G") +"RTN","C0QMAIN",223,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",224,0) + . ;S ZJ="" +"RTN","C0QMAIN",225,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",226,0) + . K C0QDEMP +"RTN","C0QMAIN",227,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",228,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",229,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",230,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",231,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",232,0) + . ;E D ; +"RTN","C0QMAIN",233,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",234,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",235,0) + Q +"RTN","C0QMAIN",236,0) + ; +"RTN","C0QMAIN",237,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",238,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",239,0) + ; +"RTN","C0QMAIN",240,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",241,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",242,0) + D CLEAN^DILF +"RTN","C0QMAIN",243,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",244,0) + D CLEAN^DILF +"RTN","C0QMAIN",245,0) + K ZERR +"RTN","C0QMAIN",246,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",247,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",248,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",249,0) + ;. W "ERROR",! +"RTN","C0QMAIN",250,0) + ;. ZWR ZERR +"RTN","C0QMAIN",251,0) + ;. B +"RTN","C0QMAIN",252,0) + K C0QFDA +"RTN","C0QMAIN",253,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",254,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",255,0) + Q +"RTN","C0QMAIN",256,0) + ; +"RTN","C0QMAIN",257,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",258,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",259,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",260,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",261,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",262,0) + N C0QI,C0QJ +"RTN","C0QMAIN",263,0) + N C0QFDA +"RTN","C0QMAIN",264,0) + S C0QI="" +"RTN","C0QMAIN",265,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",266,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",267,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",268,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",269,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",270,0) + K C0QFDA +"RTN","C0QMAIN",271,0) + S C0QI="" +"RTN","C0QMAIN",272,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",273,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",274,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",275,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",276,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",277,0) + Q +"RTN","C0QMAIN",278,0) + ; +"RTN","C0QMAIN",279,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",280,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",281,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",282,0) + S ZI="" +"RTN","C0QMAIN",283,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",284,0) + K @RTN +"RTN","C0QMAIN",285,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",286,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",287,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",288,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",289,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",290,0) + Q +"RTN","C0QMAIN",291,0) + ; +"RTN","C0QMAIN",292,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",293,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",294,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",295,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",296,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",297,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",298,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",299,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",300,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",301,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",302,0) + N C0QI,C0QJ +"RTN","C0QMAIN",303,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",304,0) + K C0QFDA +"RTN","C0QMAIN",305,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",306,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",307,0) + ;D +"RTN","C0QMAIN",308,0) + Q +"RTN","C0QMAIN",309,0) + ; +"RTN","C0QMAIN",310,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",311,0) + K ZERR +"RTN","C0QMAIN",312,0) + D CLEAN^DILF +"RTN","C0QMAIN",313,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",314,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",315,0) + ;. W "ERROR",! +"RTN","C0QMAIN",316,0) + ;. ZWR ZERR +"RTN","C0QMAIN",317,0) + ;. B +"RTN","C0QMAIN",318,0) + K C0QFDA +"RTN","C0QMAIN",319,0) + Q +"RTN","C0QMAIN",320,0) + ; +"RTN","C0QMAIN",321,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",322,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",323,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",324,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",325,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",326,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",327,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",328,0) + S ZTIO="" +"RTN","C0QMAIN",329,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",330,0) + D ^%ZTLOAD +"RTN","C0QMAIN",331,0) + Q +"RTN","C0QMAIN",332,0) + ; +"RTN","C0QMAIN",333,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",334,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",335,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",336,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",337,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",338,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",339,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",340,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",341,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",342,0) + N ZI S ZI="" +"RTN","C0QMAIN",343,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",344,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",345,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",346,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",347,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",348,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",349,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",350,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",351,0) + Q +"RTN","C0QPQRI") +0^7^B41579607 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 +"RTN","C0QPQRI",2,0) + ;;0.1;C0C;nopatch;noreleasedate;Build 12 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"RTN","C0QPRML") +0^8^B30599131 +"RTN","C0QPRML",1,0) +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm +"RTN","C0QPRML",2,0) + ;;1.0;MU PACKAGE;;;Build 12 +"RTN","C0QPRML",3,0) + ; +"RTN","C0QPRML",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QPRML",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QPRML",6,0) + ; +"RTN","C0QPRML",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPRML",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPRML",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPRML",10,0) + ;(at your option) any later version. +"RTN","C0QPRML",11,0) + ; +"RTN","C0QPRML",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPRML",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPRML",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPRML",15,0) + ;GNU General Public License for more details. +"RTN","C0QPRML",16,0) + ; +"RTN","C0QPRML",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPRML",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPRML",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPRML",20,0) + ; +"RTN","C0QPRML",21,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QPRML",22,0) + ; patient lists +"RTN","C0QPRML",23,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QPRML",24,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QPRML",25,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QPRML",26,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QPRML",27,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QPRML",28,0) + D ALL ; all currently admitted patients in the hospital +"RTN","C0QPRML",29,0) + D DIS ; all patients discharged since the reporting period began +"RTN","C0QPRML",30,0) + I C0QSS ZWR GRSLT +"RTN","C0QPRML",31,0) + I C0QPL D FILE ; FILE THE PATIENT LISTS +"RTN","C0QPRML",32,0) + Q +"RTN","C0QPRML",33,0) + ; +"RTN","C0QPRML",34,0) +ALL ;retrieve active inpatients +"RTN","C0QPRML",35,0) + N WARD S WARD="" +"RTN","C0QPRML",36,0) + F D Q:WARD="" +"RTN","C0QPRML",37,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QPRML",38,0) + . Q:WARD="" +"RTN","C0QPRML",39,0) + . N WIEN S WIEN="" +"RTN","C0QPRML",40,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QPRML",41,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QPRML",42,0) + . . N DFN,RB S DFN="" +"RTN","C0QPRML",43,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QPRML",44,0) + . . . D DEMO +"RTN","C0QPRML",45,0) + . . . D PROBLEM +"RTN","C0QPRML",46,0) + . . . D ALLERGY +"RTN","C0QPRML",47,0) + . . . D MEDS +"RTN","C0QPRML",48,0) + . . . I C0QPR D PRINT +"RTN","C0QPRML",49,0) + . . . I C0QSS D SS +"RTN","C0QPRML",50,0) + . . . I C0QPL D PATLIST +"RTN","C0QPRML",51,0) + Q +"RTN","C0QPRML",52,0) + ; +"RTN","C0QPRML",53,0) +DEMO ; patient demographics +"RTN","C0QPRML",54,0) + S PTNAME=$P(^DPT(DFN,0),U) ;patient name +"RTN","C0QPRML",55,0) + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",56,0) + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",57,0) + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",58,0) + S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",59,0) + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",60,0) + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",61,0) + S RACE="" +"RTN","C0QPRML",62,0) + F D Q:RACE="" +"RTN","C0QPRML",63,0) + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN +"RTN","C0QPRML",64,0) + . Q:'RACE +"RTN","C0QPRML",65,0) + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description +"RTN","C0QPRML",66,0) + S ETHN="" +"RTN","C0QPRML",67,0) + F D Q:ETHN="" +"RTN","C0QPRML",68,0) + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN +"RTN","C0QPRML",69,0) + . Q:'ETHN +"RTN","C0QPRML",70,0) + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description +"RTN","C0QPRML",71,0) + S RB=$P(^DPT(DFN,.101),U) ;room and bed +"RTN","C0QPRML",72,0) + Q +"RTN","C0QPRML",73,0) + ; +"RTN","C0QPRML",74,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QPRML",75,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",76,0) + S PBCNT="" +"RTN","C0QPRML",77,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",78,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",79,0) + K PROBL +"RTN","C0QPRML",80,0) + Q +"RTN","C0QPRML",81,0) + ; +"RTN","C0QPRML",82,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QPRML",83,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",84,0) + S ALCNT="" +"RTN","C0QPRML",85,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",86,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",87,0) + K ALRGYL +"RTN","C0QPRML",88,0) + Q +"RTN","C0QPRML",89,0) + ; +"RTN","C0QPRML",90,0) +MEDS ; MEDICATIONS +"RTN","C0QPRML",91,0) + D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",92,0) + S MDCNT="" +"RTN","C0QPRML",93,0) + F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",94,0) + . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",95,0) + . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",96,0) + . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",97,0) + K MEDSL +"RTN","C0QPRML",98,0) + Q +"RTN","C0QPRML",99,0) + ; +"RTN","C0QPRML",100,0) +PRINT ; PRINT TO SCREEN +"RTN","C0QPRML",101,0) + +"RTN","C0QPRML",102,0) + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " +"RTN","C0QPRML",103,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",104,0) + . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",105,0) + . W !,DFN," ",PTNAME +"RTN","C0QPRML",106,0) + W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",107,0) + W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",108,0) + W !,"Race: ",RACEDSC +"RTN","C0QPRML",109,0) + W !,"Ethnicity: ",$G(ETHNDSC) +"RTN","C0QPRML",110,0) + W !,"Problems: " +"RTN","C0QPRML",111,0) + W !,PBDESC +"RTN","C0QPRML",112,0) + W !,"Allergies: " +"RTN","C0QPRML",113,0) + W !,ALDESC +"RTN","C0QPRML",114,0) + W !,"Medications: " +"RTN","C0QPRML",115,0) + W ! +"RTN","C0QPRML",116,0) + Q +"RTN","C0QPRML",117,0) + ; +"RTN","C0QPRML",118,0) +SS ; CREATE SPREADSHEET ARRAY +"RTN","C0QPRML",119,0) + S G1("Patient")=DFN +"RTN","C0QPRML",120,0) + I $D(WARD) D ; +"RTN","C0QPRML",121,0) + . S G1("WardName")=WARDNAME +"RTN","C0QPRML",122,0) + . S G1("RoomAndBed")=RB +"RTN","C0QPRML",123,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",124,0) + . S G1("DischargeDate")=EXDTE +"RTN","C0QPRML",125,0) + S G1("PatientName")=PTNAME +"RTN","C0QPRML",126,0) + S G1("Gender")=PTSEX +"RTN","C0QPRML",127,0) + S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",128,0) + S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",129,0) + S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",130,0) + S G1("Race")=RACEDSC +"RTN","C0QPRML",131,0) + S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",132,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",133,0) + I PBDESC["No problems found" S G1("HasProblem")=0 +"RTN","C0QPRML",134,0) + E S G1("HasProblem")=1 +"RTN","C0QPRML",135,0) + S G1("Allergies")=ALDESC +"RTN","C0QPRML",136,0) + I ALDESC["No Allergy" S G1("HasAllergy")=0 +"RTN","C0QPRML",137,0) + E S G1("HasAllergy")=1 +"RTN","C0QPRML",138,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",139,0) + . S G1("HasMed")=1 +"RTN","C0QPRML",140,0) + E S G1("HasMed")=0 +"RTN","C0QPRML",141,0) + S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",142,0) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC +"RTN","C0QPRML",143,0) + D RNF1TO2B^C0CRNF("GRSLT","G1") +"RTN","C0QPRML",144,0) + K G1 +"RTN","C0QPRML",145,0) + Q ; DON'T WANT TO DO THE NHIN STUFF NOW +"RTN","C0QPRML",146,0) + ; +"RTN","C0QPRML",147,0) +PATLIST ; CREATE PATIENT LISTS +"RTN","C0QPRML",148,0) + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST +"RTN","C0QPRML",149,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QPRML",150,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QPRML",151,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QPRML",152,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QPRML",153,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QPRML",154,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QPRML",155,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QPRML",156,0) + I DEMOYN S C0QLIST("HasDemographics",DFN)="" +"RTN","C0QPRML",157,0) + E S C0QLIST("FailedDemographics",DFN)="" +"RTN","C0QPRML",158,0) + ;S G1("Gender")=PTSEX +"RTN","C0QPRML",159,0) + ;S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",160,0) + ;S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",161,0) + ;S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",162,0) + ;S G1("Race")=RACEDSC +"RTN","C0QPRML",163,0) + ;S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",164,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",165,0) + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" +"RTN","C0QPRML",166,0) + E S C0QLIST("HasProblem",DFN)="" +"RTN","C0QPRML",167,0) + ;S G1("Allergies")=ALDESC +"RTN","C0QPRML",168,0) + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" +"RTN","C0QPRML",169,0) + E S C0QLIST("HasAllergy",DFN)="" +"RTN","C0QPRML",170,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",171,0) + . S C0QLIST("HasMed",DFN)="" +"RTN","C0QPRML",172,0) + E S G1("NoMed",DFN)="" +"RTN","C0QPRML",173,0) + ;S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",174,0) + Q +"RTN","C0QPRML",175,0) + ; +"RTN","C0QPRML",176,0) +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT +"RTN","C0QPRML",177,0) + Q:DFN=137!14 +"RTN","C0QPRML",178,0) + D EN^C0CNHIN(.G,DFN,"") +"RTN","C0QPRML",179,0) + ZWR G +"RTN","C0QPRML",180,0) + K G +"RTN","C0QPRML",181,0) + ; +"RTN","C0QPRML",182,0) + QUIT ;end of WARD +"RTN","C0QPRML",183,0) + ; +"RTN","C0QPRML",184,0) + ; +"RTN","C0QPRML",185,0) +DIS; +"RTN","C0QPRML",186,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QPRML",187,0) + F D Q:DTE="" +"RTN","C0QPRML",188,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QPRML",189,0) + . Q:'DTE +"RTN","C0QPRML",190,0) + . Q:DTE<3110703 +"RTN","C0QPRML",191,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QPRML",192,0) + . N PTFM S PTFM="" +"RTN","C0QPRML",193,0) + . D +"RTN","C0QPRML",194,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QPRML",195,0) + . . Q:'PTFM +"RTN","C0QPRML",196,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QPRML",197,0) + . . D DEMO +"RTN","C0QPRML",198,0) + . . D PROBLEM +"RTN","C0QPRML",199,0) + . . D ALLERGY +"RTN","C0QPRML",200,0) + . . D MEDS +"RTN","C0QPRML",201,0) + . . I C0QPR D PRINT +"RTN","C0QPRML",202,0) + . . I C0QSS D SS +"RTN","C0QPRML",203,0) + . . I C0QPL D PATLIST +"RTN","C0QPRML",204,0) + Q +"RTN","C0QPRML",205,0) + ; +"RTN","C0QPRML",206,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",207,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QPRML",208,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QPRML",209,0) + ; +"RTN","C0QPRML",210,0) + I '$D(C0QLIST) Q ; +"RTN","C0QPRML",211,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QPRML",212,0) + N ZI,ZN +"RTN","C0QPRML",213,0) + S ZI="" +"RTN","C0QPRML",214,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QPRML",215,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QPRML",216,0) + . I ZN="" D Q ; OOPS +"RTN","C0QPRML",217,0) + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QPRML",218,0) + . S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QPRML",219,0) + . K C0QFDA +"RTN","C0QPRML",220,0) + . N ZJ,ZC +"RTN","C0QPRML",221,0) + . S ZJ="" S ZC=1 +"RTN","C0QPRML",222,0) + . F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QPRML",223,0) + . . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QPRML",224,0) + . . S ZC=ZC+1 +"RTN","C0QPRML",225,0) + . D UPDIE +"RTN","C0QPRML",226,0) + . W !,"FOUND:"_ZI +"RTN","C0QPRML",227,0) + Q +"RTN","C0QPRML",228,0) + ; +"RTN","C0QPRML",229,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QPRML",230,0) + ; +"RTN","C0QPRML",231,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QPRML",232,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",233,0) + D CLEAN^DILF +"RTN","C0QPRML",234,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QPRML",235,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QPRML",236,0) + D CLEAN^DILF +"RTN","C0QPRML",237,0) + K ZERR +"RTN","C0QPRML",238,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QPRML",239,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QPRML",240,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",241,0) + ;. W "ERROR",! +"RTN","C0QPRML",242,0) + ;. ZWR ZERR +"RTN","C0QPRML",243,0) + ;. B +"RTN","C0QPRML",244,0) + K C0QFDA +"RTN","C0QPRML",245,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QPRML",246,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QPRML",247,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QPRML",248,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QPRML",249,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QPRML",250,0) + ; +"RTN","C0QPRML",251,0) + Q ZR +"RTN","C0QPRML",252,0) + ; +"RTN","C0QPRML",253,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QPRML",254,0) + K ZERR +"RTN","C0QPRML",255,0) + D CLEAN^DILF +"RTN","C0QPRML",256,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QPRML",257,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",258,0) + ;. W "ERROR",! +"RTN","C0QPRML",259,0) + ;. ZWR ZERR +"RTN","C0QPRML",260,0) + ;. B +"RTN","C0QPRML",261,0) + K C0QFDA +"RTN","C0QPRML",262,0) + Q +"RTN","C0QPRML",263,0) + ; +"RTN","C0QPRML",264,0) + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS +"RTN","C0QPRML",265,0) + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) +"RTN","C0QPRML",266,0) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",267,0) + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",268,0) + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",269,0) + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",270,0) + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",271,0) + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",272,0) + ;. . S RACE="" +"RTN","C0QPRML",273,0) + ;. . F D Q:RACE="" +"RTN","C0QPRML",274,0) + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) +"RTN","C0QPRML",275,0) + ;. . . Q:'RACE +"RTN","C0QPRML",276,0) + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) +"RTN","C0QPRML",277,0) + ;. . N ETHNDSC +"RTN","C0QPRML",278,0) + ;. . N ETHNDSC S ETHNDSC="" +"RTN","C0QPRML",279,0) + ;. . S ETHN="" +"RTN","C0QPRML",280,0) + ;. . F D Q:ETHN="" +"RTN","C0QPRML",281,0) + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) +"RTN","C0QPRML",282,0) + ;. . . Q:'ETHN +"RTN","C0QPRML",283,0) + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) +"RTN","C0QPRML",284,0) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",285,0) + ;. . S PBCNT="" +"RTN","C0QPRML",286,0) + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",287,0) + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",288,0) + ;. . K PROBL +"RTN","C0QPRML",289,0) + ;. . D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",290,0) + ;. . S ALCNT="" +"RTN","C0QPRML",291,0) + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",292,0) + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",293,0) + ;. . K ALRGYL +"RTN","C0QPRML",294,0) + ;. . D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",295,0) + ;. . S MDCNT="" +"RTN","C0QPRML",296,0) + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",297,0) + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",298,0) + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",299,0) + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",300,0) + ;. . K MEDSL +"RTN","C0QPRML",301,0) + ;. . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",302,0) + ;. . W !,DFN," ",PTNAME +"RTN","C0QPRML",303,0) + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",304,0) + ;. . W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",305,0) + ;. . W !,"Race: ",RACEDSC +"RTN","C0QPRML",306,0) + ;. . W !,"Ethnicity: ",ETHNDSC +"RTN","C0QPRML",307,0) + ;. . W !,"Problems: " +"RTN","C0QPRML",308,0) + ;. . W !,PBDESC +"RTN","C0QPRML",309,0) + ;. . W !,"Allergies: " +"RTN","C0QPRML",310,0) + ;. . W !,ALDESC +"RTN","C0QPRML",311,0) + ;. . W !,"Medications: " +"RTN","C0QPRML",312,0) + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC +"RTN","C0QPRML",313,0) + ;. . W ! +"RTN","C0QPRML",314,0) + ;Q +"RTN","C0QPRML",315,0) + ; +"RTN","C0QPRML",316,0) + ; +"RTN","C0QPRML",317,0) + ; +"RTN","C0QPRML",318,0) + ; +"RTN","C0QPRML",319,0) +END ;end of C0QPRML; +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"AUDIT") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DEL") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"LAYGO") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"RD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"WR") +@ +"VER") +8.0^22.0 +"^DD",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^1.51^14 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^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^7 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3110621 +"^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") +3110621 +"^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^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.301,1130580001.301,0) +FIELD^^999^8 +"^DD",1130580001.301,1130580001.301,0,"DDA") +N +"^DD",1130580001.301,1130580001.301,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,0,"ID",999) +W:$D(^(3)) " ",$P(^(3),U,1) +"^DD",1130580001.301,1130580001.301,0,"IX","B",1130580001.301,.01) + +"^DD",1130580001.301,1130580001.301,0,"NM","C0Q PATIENT LIST") + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.51) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,2.1) + +"^DD",1130580001.301,1130580001.301,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.301,1130580001.301,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.301,.01,1,1,0) +1130580001.301^B +"^DD",1130580001.301,1130580001.301,.01,1,1,1) +S ^C0Q(301,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.301,.01,1,1,2) +K ^C0Q(301,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.301,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.301,1130580001.301,.02,0) +REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2011)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.02,3) +Type a number between 2011 and 2050, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.03,0) +REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.03,3) +Type a number between 1 and 12, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.03,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.04,0) +ORIGINAL DATE CREATED^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X +"^DD",1130580001.301,1130580001.301,.04,3) +(No range limit on date) +"^DD",1130580001.301,1130580001.301,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.07,0) +CREATOR^P200'^VA(200,^0;5^Q +"^DD",1130580001.301,1130580001.301,.07,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,30,0) +PATIENTS^1130580001.311P^^1;0 +"^DD",1130580001.301,1130580001.301,200,0) +CREATION DOCUMENTATION^1130580001.321^^2;0 +"^DD",1130580001.301,1130580001.301,999,0) +ATTRIBUTE^F^^3;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,999,3) +PATIENT LIST ATTRIBUTE +"^DD",1130580001.301,1130580001.301,999,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0) +PATIENTS SUB-FIELD^^.05^4 +"^DD",1130580001.301,1130580001.311,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0,"IX","B",1130580001.311,.01) + +"^DD",1130580001.301,1130580001.311,0,"NM","PATIENTS") + +"^DD",1130580001.301,1130580001.311,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.311,.01,0) +PATIENTS^MP2'^DPT(^0;1^Q +"^DD",1130580001.301,1130580001.311,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.311,.01,1,1,0) +1130580001.311^B +"^DD",1130580001.301,1130580001.311,.01,1,1,1) +S ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.311,.01,1,1,2) +K ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.311,.01,3) +PATIENTS IN THE LIST +"^DD",1130580001.301,1130580001.311,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.04,0) +DESEASED^S^0:NO;1:YES;^2;1^Q +"^DD",1130580001.301,1130580001.311,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.05,0) +TEST PATIENT^S^0:NO;1:YES;^2;2^Q +"^DD",1130580001.301,1130580001.311,.05,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,1,0) +DATA^1130580001.3111^^1;0 +"^DD",1130580001.301,1130580001.3111,0) +DATA SUB-FIELD^^.02^2 +"^DD",1130580001.301,1130580001.3111,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,0,"IX","B",1130580001.3111,.01) + +"^DD",1130580001.301,1130580001.3111,0,"NM","DATA") + +"^DD",1130580001.301,1130580001.3111,0,"UP") +1130580001.311 +"^DD",1130580001.301,1130580001.3111,.01,0) +DATA TYPE^MF^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.3111,.01,1,1,0) +1130580001.3111^B +"^DD",1130580001.301,1130580001.3111,.01,1,1,1) +S ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.3111,.01,1,1,2) +K ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.3111,.01,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,.02,0) +VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.02,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0) +CREATION DOCUMENTATION SUB-FIELD^^.01^1 +"^DD",1130580001.301,1130580001.321,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0,"NM","CREATION DOCUMENTATION") + +"^DD",1130580001.301,1130580001.321,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.321,.01,0) +CREATION DOCUMENTATION^W^^0;1 +"^DD",1130580001.301,1130580001.321,.01,3) +DOCUMENTATION +"^DD",1130580001.301,1130580001.321,.01,"DT") +3110805 +"^DIC",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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) + +"^DIC",1130580001.301,1130580001.301,0) +C0Q PATIENT LIST^1130580001.301 +"^DIC",1130580001.301,1130580001.301,0,"GL") +^C0Q(301, +"^DIC",1130580001.301,1130580001.301,"%",0) +^1.005^^ +"^DIC",1130580001.301,"B","C0Q PATIENT LIST",1130580001.301) + +**END** +**END** diff --git a/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T6.KID b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T6.KID new file mode 100644 index 0000000..615c552 --- /dev/null +++ b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T6.KID @@ -0,0 +1,12700 @@ +KIDS Distribution saved on Aug 19, 2011@09:32:12 +addition of C0QSET for set operations on lists +**KIDS**:C0Q*1.0*0^ + +**INSTALL NAME** +C0Q*1.0*0 +"BLD",7812,0) +C0Q*1.0*0^^0^3110819^n +"BLD",7812,4,0) +^9.64PA^1130580001.301^4 +"BLD",7812,4,178.301,0) +178.301 +"BLD",7812,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.101,0) +1130580001.101 +"BLD",7812,4,1130580001.101,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.201,0) +1130580001.201 +"BLD",7812,4,1130580001.201,222) +y^y^f^^n^^y^o^n +"BLD",7812,4,1130580001.301,0) +1130580001.301 +"BLD",7812,4,1130580001.301,222) +y^y^f^^n^^y^m^n +"BLD",7812,4,"B",178.301,178.301) + +"BLD",7812,4,"B",1130580001.101,1130580001.101) + +"BLD",7812,4,"B",1130580001.201,1130580001.201) + +"BLD",7812,4,"B",1130580001.301,1130580001.301) + +"BLD",7812,6.3) +13 +"BLD",7812,"KRN",0) +^9.67PA^779.2^20 +"BLD",7812,"KRN",.4,0) +.4 +"BLD",7812,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7812,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7812,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7812,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7812,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7812,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7812,"KRN",.401,0) +.401 +"BLD",7812,"KRN",.402,0) +.402 +"BLD",7812,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7812,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7812,"KRN",.402,"NM",2,0) +C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101^1130580001.101^0 +"BLD",7812,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7812,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101",2) + +"BLD",7812,"KRN",.403,0) +.403 +"BLD",7812,"KRN",.5,0) +.5 +"BLD",7812,"KRN",.84,0) +.84 +"BLD",7812,"KRN",3.6,0) +3.6 +"BLD",7812,"KRN",3.8,0) +3.8 +"BLD",7812,"KRN",9.2,0) +9.2 +"BLD",7812,"KRN",9.8,0) +9.8 +"BLD",7812,"KRN",9.8,"NM",0) +^9.68A^9^9 +"BLD",7812,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B114653305 +"BLD",7812,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7812,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7812,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7812,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7596326 +"BLD",7812,"KRN",9.8,"NM",6,0) +C0QIMMUN^^0^B6463760 +"BLD",7812,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41579607 +"BLD",7812,"KRN",9.8,"NM",8,0) +C0QPRML^^0^B30599131 +"BLD",7812,"KRN",9.8,"NM",9,0) +C0QSET^^0^B8062516 +"BLD",7812,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7812,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7812,"KRN",9.8,"NM","B","C0QIMMUN",6) + +"BLD",7812,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7812,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7812,"KRN",9.8,"NM","B","C0QPRML",8) + +"BLD",7812,"KRN",9.8,"NM","B","C0QSET",9) + +"BLD",7812,"KRN",19,0) +19 +"BLD",7812,"KRN",19,"NM",0) +^9.68A^16^15 +"BLD",7812,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7812,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7812,"KRN",19,"NM",3,0) +C0Q DISPLAY MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7812,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7812,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7812,"KRN",19,"NM",8,0) +C0Q MEASURE SET DEFINITION^^0 +"BLD",7812,"KRN",19,"NM",9,0) +C0Q QUALITY MEASURE DEFINITION^^0 +"BLD",7812,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7812,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7812,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7812,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7812,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7812,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7812,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7812,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7812,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7812,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3) + +"BLD",7812,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7812,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7812,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7812,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7812,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8) + +"BLD",7812,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7812,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7812,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7812,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9) + +"BLD",7812,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7812,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7812,"KRN",19.1,0) +19.1 +"BLD",7812,"KRN",101,0) +101 +"BLD",7812,"KRN",409.61,0) +409.61 +"BLD",7812,"KRN",771,0) +771 +"BLD",7812,"KRN",779.2,0) +779.2 +"BLD",7812,"KRN",870,0) +870 +"BLD",7812,"KRN",8989.51,0) +8989.51 +"BLD",7812,"KRN",8989.52,0) +8989.52 +"BLD",7812,"KRN",8994,0) +8994 +"BLD",7812,"KRN","B",.4,.4) + +"BLD",7812,"KRN","B",.401,.401) + +"BLD",7812,"KRN","B",.402,.402) + +"BLD",7812,"KRN","B",.403,.403) + +"BLD",7812,"KRN","B",.5,.5) + +"BLD",7812,"KRN","B",.84,.84) + +"BLD",7812,"KRN","B",3.6,3.6) + +"BLD",7812,"KRN","B",3.8,3.8) + +"BLD",7812,"KRN","B",9.2,9.2) + +"BLD",7812,"KRN","B",9.8,9.8) + +"BLD",7812,"KRN","B",19,19) + +"BLD",7812,"KRN","B",19.1,19.1) + +"BLD",7812,"KRN","B",101,101) + +"BLD",7812,"KRN","B",409.61,409.61) + +"BLD",7812,"KRN","B",771,771) + +"BLD",7812,"KRN","B",779.2,779.2) + +"BLD",7812,"KRN","B",870,870) + +"BLD",7812,"KRN","B",8989.51,8989.51) + +"BLD",7812,"KRN","B",8989.52,8989.52) + +"BLD",7812,"KRN","B",8994,8994) + +"BLD",7812,"QUES",0) +^9.62^^ +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"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) +^1130580001.111^3^3^3110412^^ +"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 +"DATA",1130580001.101,22,0) +TEST M0028A^107^106^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,22,1) +Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,4) +PQRI-28 +"DATA",1130580001.101,22,5) +Preventive care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,6,0) +^1130580001.111^4^4^3110427^^^^ +"DATA",1130580001.101,22,6,1,0) +Percentage of patients aged 18 years of older who were screene +"DATA",1130580001.101,22,6,2,0) +d about tobacco use at least once during the two year measurement period +"DATA",1130580001.101,22,6,3,0) +AND who received smoking cessation counseling if identified as a tobacco +"DATA",1130580001.101,22,6,4,0) +user +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^53^135 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^54^94 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^55^56 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^57^58 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^59^60 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^61^62 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^63^64 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^65^66 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^67^68 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^44^43 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^69^45 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^70^71 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^72^73 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^74^75 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^76^77 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376 +"DATA",1130580001.101,38,0) +12 +"DATA",1130580001.101,39,0) +MU EP NQF 0421^156^152 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421 +"DATA",1130580001.101,40,0) +MU EP NQF 0013^99^40 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013 +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^102^100 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A +"DATA",1130580001.101,42,0) +MU EP NQF 0041^144^132 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041 +"DATA",1130580001.101,43,0) +MU EP NQF 0024^42^41 +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. +"DATA",1130580001.101,43,7) +NQF0024 +"DATA",1130580001.101,44,0) +MU EP NQF 0038 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038 +"DATA",1130580001.101,45,0) +MU EP NQF 0059^146^145 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059 +"DATA",1130580001.101,46,0) +MU EP NQF 0064^139^145 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064 +"DATA",1130580001.101,47,0) +MU EP NQF 0061^147^145 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061 +"DATA",1130580001.101,48,0) +MU EP NQF 0081 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081 +"DATA",1130580001.101,49,0) +MU EP NQF 0070 +"DATA",1130580001.101,49,1) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,5) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients 65 years of age and older who have ever +"DATA",1130580001.101,49,6,2,0) +received a pneumococcal vaccine. +"DATA",1130580001.101,49,7) +NQF0070 +"DATA",1130580001.101,50,0) +MU EP NQF 0031 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031 +"DATA",1130580001.101,51,0) +MU EP NQF 0034 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034 +"DATA",1130580001.101,52,0) +MU EP NQF 0067 +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067 +"DATA",1130580001.101,53,0) +MU EP NQF 0083 +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083 +"DATA",1130580001.101,54,0) +MU EP NQF 0105 +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105 +"DATA",1130580001.101,55,0) +MU EP NQF 0086 +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086 +"DATA",1130580001.101,56,0) +MU EP NQF 0088 +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088 +"DATA",1130580001.101,57,0) +MU EP NQF 0089 +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089 +"DATA",1130580001.101,58,0) +MU EP NQF 0047 +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047 +"DATA",1130580001.101,59,0) +MU EP NQF 0001 +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001 +"DATA",1130580001.101,60,0) +MU EP NQF 0002 +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002 +"DATA",1130580001.101,61,0) +MU EP NQF 0385 +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385 +"DATA",1130580001.101,62,0) +MU EP NQF 0389 +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389 +"DATA",1130580001.101,63,0) +MU EP NQF 0027 +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027 +"DATA",1130580001.101,64,0) +MU EP NQF 0055 +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055 +"DATA",1130580001.101,65,0) +MU EP NQF 0062 +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062 +"DATA",1130580001.101,66,0) +MU EP NQF 0056 +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056 +"DATA",1130580001.101,67,0) +MU EP NQF 0074 +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074 +"DATA",1130580001.101,68,0) +MU EP NQF 0084 +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084 +"DATA",1130580001.101,69,0) +MU EP NQF 0073 +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073 +"DATA",1130580001.101,70,0) +MU EP NQF 0068 +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068 +"DATA",1130580001.101,71,0) +MU EP NQF 0004 +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004 +"DATA",1130580001.101,72,0) +MU EP NQF 0012 +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012 +"DATA",1130580001.101,73,0) +MU EP NQF 0014 +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014 +"DATA",1130580001.101,74,0) +MU EP NQF 0018 +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018 +"DATA",1130580001.101,75,0) +MU EP NQF 0032 +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032 +"DATA",1130580001.101,76,0) +MU EP NQF 0033 +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033 +"DATA",1130580001.101,77,0) +MU EP NQF 0036 +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036 +"DATA",1130580001.101,78,0) +MU EP NQF 0052 +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052 +"DATA",1130580001.101,79,0) +MU EP NQF 0075 +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075 +"DATA",1130580001.101,80,0) +MU EP NQF 0575 +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575 +"DATA",1130580001.101,81,0) +MU EP NQF 0028B^104^103 +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B +"DATA",1130580001.101,82,0) +MU EP 0028B +"DATA",1130580001.101,83,0) +NQF0038 NUM1 DPT^115^109 +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT +"DATA",1130580001.101,84,0) +NQF0038 NUM2 IPV^123^109 +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV +"DATA",1130580001.101,85,0) +NQF0038 NUM3 MMR^114^109 +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR +"DATA",1130580001.101,86,0) +NQF0038 NUM4 HiB^116^109 +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB +"DATA",1130580001.101,87,0) +NQF0038 NUM5 HEP B^117^109 +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,88,0) +NQF0038 NUM6 VZV^118^109 +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV +"DATA",1130580001.101,89,0) +NQF0038 NUM7 PCV^119^109 +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV +"DATA",1130580001.101,90,0) +NQF0038 NUM8 HEP A^120^109 +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,91,0) +NQF0038 NUM9^121^109 +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9 +"DATA",1130580001.101,92,0) +NQF0038 NUM10^122^109 +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10 +"DATA",1130580001.101,93,0) +NQF0038 NUM11 COMBO5^124^109 +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,94,0) +NQF0038 NUM12 COMBO6^125^109 +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,95,7) +^15^14^^17 +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,96,7) +^10^1^^11 +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,97,7) +^19^21^^20 +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,98,7) +^2^1^^3 +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,99,7) +^16^1^^18 +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,100,7) +^12^1^^13 +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,101,7) +^4^1^^5 +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,102,7) +^6^1^^7 +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,103,7) +^8^1^^9 +"DATA",1130580001.201,1,0) +SAMPLE MEASURE SET +"DATA",1130580001.201,1,4) +^^3100101^3101231 +"DATA",1130580001.201,1,5,0) +^1130580001.2011P^618^21 +"DATA",1130580001.201,1,5,10,0) +15 +"DATA",1130580001.201,1,5,10,2) +0 +"DATA",1130580001.201,1,5,599,0) +3 +"DATA",1130580001.201,1,5,599,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,599,1,1,0) +100884 +"DATA",1130580001.201,1,5,599,1,2,0) +100885 +"DATA",1130580001.201,1,5,599,1,3,0) +100886 +"DATA",1130580001.201,1,5,599,1,4,0) +100887 +"DATA",1130580001.201,1,5,599,1,5,0) +100888 +"DATA",1130580001.201,1,5,599,1,6,0) +100848 +"DATA",1130580001.201,1,5,599,1,7,0) +100904 +"DATA",1130580001.201,1,5,599,1,8,0) +100905 +"DATA",1130580001.201,1,5,599,1,9,0) +100906 +"DATA",1130580001.201,1,5,599,1,10,0) +100907 +"DATA",1130580001.201,1,5,599,2) +10 +"DATA",1130580001.201,1,5,599,3,0) +^1130580001.20112P^45^45 +"DATA",1130580001.201,1,5,599,3,1,0) +100095 +"DATA",1130580001.201,1,5,599,3,2,0) +100839 +"DATA",1130580001.201,1,5,599,3,3,0) +100878 +"DATA",1130580001.201,1,5,599,3,4,0) +100879 +"DATA",1130580001.201,1,5,599,3,5,0) +100880 +"DATA",1130580001.201,1,5,599,3,6,0) +100881 +"DATA",1130580001.201,1,5,599,3,7,0) +100882 +"DATA",1130580001.201,1,5,599,3,8,0) +100894 +"DATA",1130580001.201,1,5,599,3,9,0) +100895 +"DATA",1130580001.201,1,5,599,3,10,0) +100896 +"DATA",1130580001.201,1,5,599,3,11,0) +100897 +"DATA",1130580001.201,1,5,599,3,12,0) +100898 +"DATA",1130580001.201,1,5,599,3,13,0) +100899 +"DATA",1130580001.201,1,5,599,3,14,0) +100900 +"DATA",1130580001.201,1,5,599,3,15,0) +100901 +"DATA",1130580001.201,1,5,599,3,16,0) +100902 +"DATA",1130580001.201,1,5,599,3,17,0) +100903 +"DATA",1130580001.201,1,5,599,3,18,0) +100884 +"DATA",1130580001.201,1,5,599,3,19,0) +100885 +"DATA",1130580001.201,1,5,599,3,20,0) +100886 +"DATA",1130580001.201,1,5,599,3,21,0) +100887 +"DATA",1130580001.201,1,5,599,3,22,0) +100888 +"DATA",1130580001.201,1,5,599,3,23,0) +100338 +"DATA",1130580001.201,1,5,599,3,24,0) +100848 +"DATA",1130580001.201,1,5,599,3,25,0) +100845 +"DATA",1130580001.201,1,5,599,3,26,0) +100850 +"DATA",1130580001.201,1,5,599,3,27,0) +100855 +"DATA",1130580001.201,1,5,599,3,28,0) +100929 +"DATA",1130580001.201,1,5,599,3,29,0) +100930 +"DATA",1130580001.201,1,5,599,3,30,0) +100931 +"DATA",1130580001.201,1,5,599,3,31,0) +100932 +"DATA",1130580001.201,1,5,599,3,32,0) +100933 +"DATA",1130580001.201,1,5,599,3,33,0) +100914 +"DATA",1130580001.201,1,5,599,3,34,0) +100915 +"DATA",1130580001.201,1,5,599,3,35,0) +100917 +"DATA",1130580001.201,1,5,599,3,36,0) +100904 +"DATA",1130580001.201,1,5,599,3,37,0) +100905 +"DATA",1130580001.201,1,5,599,3,38,0) +100906 +"DATA",1130580001.201,1,5,599,3,39,0) +100907 +"DATA",1130580001.201,1,5,599,3,40,0) +100913 +"DATA",1130580001.201,1,5,599,3,41,0) +100859 +"DATA",1130580001.201,1,5,599,3,42,0) +100860 +"DATA",1130580001.201,1,5,599,3,43,0) +100862 +"DATA",1130580001.201,1,5,599,3,44,0) +100861 +"DATA",1130580001.201,1,5,599,3,45,0) +100863 +"DATA",1130580001.201,1,5,599,4) +45 +"DATA",1130580001.201,1,5,600,0) +4 +"DATA",1130580001.201,1,5,600,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,1,5,600,1,1,0) +100095 +"DATA",1130580001.201,1,5,600,1,2,0) +100696 +"DATA",1130580001.201,1,5,600,1,3,0) +100622 +"DATA",1130580001.201,1,5,600,1,4,0) +100662 +"DATA",1130580001.201,1,5,600,1,5,0) +100661 +"DATA",1130580001.201,1,5,600,1,6,0) +100499 +"DATA",1130580001.201,1,5,600,1,7,0) +100506 +"DATA",1130580001.201,1,5,600,1,8,0) +100647 +"DATA",1130580001.201,1,5,600,1,9,0) +100648 +"DATA",1130580001.201,1,5,600,1,10,0) +100649 +"DATA",1130580001.201,1,5,600,1,11,0) +100839 +"DATA",1130580001.201,1,5,600,1,12,0) +100942 +"DATA",1130580001.201,1,5,600,1,13,0) +100943 +"DATA",1130580001.201,1,5,600,1,14,0) +100935 +"DATA",1130580001.201,1,5,600,1,15,0) +100941 +"DATA",1130580001.201,1,5,600,1,16,0) +100878 +"DATA",1130580001.201,1,5,600,1,17,0) +100879 +"DATA",1130580001.201,1,5,600,1,18,0) +100880 +"DATA",1130580001.201,1,5,600,1,19,0) +100881 +"DATA",1130580001.201,1,5,600,1,20,0) +100882 +"DATA",1130580001.201,1,5,600,1,21,0) +100874 +"DATA",1130580001.201,1,5,600,1,22,0) +100875 +"DATA",1130580001.201,1,5,600,1,23,0) +100876 +"DATA",1130580001.201,1,5,600,1,24,0) +100883 +"DATA",1130580001.201,1,5,600,1,25,0) +100894 +"DATA",1130580001.201,1,5,600,1,26,0) +100895 +"DATA",1130580001.201,1,5,600,1,27,0) +100896 +"DATA",1130580001.201,1,5,600,1,28,0) +100897 +"DATA",1130580001.201,1,5,600,1,29,0) +100898 +"DATA",1130580001.201,1,5,600,1,30,0) +100899 +"DATA",1130580001.201,1,5,600,1,31,0) +100900 +"DATA",1130580001.201,1,5,600,1,32,0) +100901 +"DATA",1130580001.201,1,5,600,1,33,0) +100902 +"DATA",1130580001.201,1,5,600,1,34,0) +100903 +"DATA",1130580001.201,1,5,600,1,35,0) +100884 +"DATA",1130580001.201,1,5,600,1,36,0) +100885 +"DATA",1130580001.201,1,5,600,1,37,0) +100886 +"DATA",1130580001.201,1,5,600,1,38,0) +100887 +"DATA",1130580001.201,1,5,600,1,39,0) +100888 +"DATA",1130580001.201,1,5,600,1,40,0) +100889 +"DATA",1130580001.201,1,5,600,1,41,0) +100890 +"DATA",1130580001.201,1,5,600,1,42,0) +100891 +"DATA",1130580001.201,1,5,600,1,43,0) +100338 +"DATA",1130580001.201,1,5,600,1,44,0) +100848 +"DATA",1130580001.201,1,5,600,1,45,0) +100845 +"DATA",1130580001.201,1,5,600,1,46,0) +100850 +"DATA",1130580001.201,1,5,600,1,47,0) +100855 +"DATA",1130580001.201,1,5,600,1,48,0) +100846 +"DATA",1130580001.201,1,5,600,1,49,0) +100847 +"DATA",1130580001.201,1,5,600,1,50,0) +100849 +"DATA",1130580001.201,1,5,600,1,51,0) +100858 +"DATA",1130580001.201,1,5,600,1,52,0) +100852 +"DATA",1130580001.201,1,5,600,1,53,0) +100929 +"DATA",1130580001.201,1,5,600,1,54,0) +100930 +"DATA",1130580001.201,1,5,600,1,55,0) +100931 +"DATA",1130580001.201,1,5,600,1,56,0) +100932 +"DATA",1130580001.201,1,5,600,1,57,0) +100933 +"DATA",1130580001.201,1,5,600,1,58,0) +100914 +"DATA",1130580001.201,1,5,600,1,59,0) +100915 +"DATA",1130580001.201,1,5,600,1,60,0) +100917 +"DATA",1130580001.201,1,5,600,1,61,0) +100923 +"DATA",1130580001.201,1,5,600,1,62,0) +100904 +"DATA",1130580001.201,1,5,600,1,63,0) +100905 +"DATA",1130580001.201,1,5,600,1,64,0) +100906 +"DATA",1130580001.201,1,5,600,1,65,0) +100907 +"DATA",1130580001.201,1,5,600,1,66,0) +100909 +"DATA",1130580001.201,1,5,600,1,67,0) +100913 +"DATA",1130580001.201,1,5,600,1,68,0) +100859 +"DATA",1130580001.201,1,5,600,1,69,0) +100860 +"DATA",1130580001.201,1,5,600,1,70,0) +100862 +"DATA",1130580001.201,1,5,600,1,71,0) +100861 +"DATA",1130580001.201,1,5,600,1,72,0) +100863 +"DATA",1130580001.201,1,5,600,1,73,0) +100851 +"DATA",1130580001.201,1,5,600,1,74,0) +100853 +"DATA",1130580001.201,1,5,600,1,75,0) +100856 +"DATA",1130580001.201,1,5,600,1,76,0) +100146 +"DATA",1130580001.201,1,5,600,1,77,0) +100857 +"DATA",1130580001.201,1,5,600,1,78,0) +100955 +"DATA",1130580001.201,1,5,600,1,79,0) +100616 +"DATA",1130580001.201,1,5,600,1,80,0) +100146 +"DATA",1130580001.201,1,5,600,1,81,0) +100499 +"DATA",1130580001.201,1,5,600,1,82,0) +100506 +"DATA",1130580001.201,1,5,600,1,83,0) +774 +"DATA",1130580001.201,1,5,600,1,84,0) +774 +"DATA",1130580001.201,1,5,600,1,85,0) +100667 +"DATA",1130580001.201,1,5,600,1,86,0) +100676 +"DATA",1130580001.201,1,5,600,1,87,0) +100951 +"DATA",1130580001.201,1,5,600,1,88,0) +100952 +"DATA",1130580001.201,1,5,600,1,89,0) +100953 +"DATA",1130580001.201,1,5,600,1,90,0) +100954 +"DATA",1130580001.201,1,5,600,1,91,0) +100934 +"DATA",1130580001.201,1,5,600,1,92,0) +100937 +"DATA",1130580001.201,1,5,600,1,93,0) +100947 +"DATA",1130580001.201,1,5,600,1,94,0) +100948 +"DATA",1130580001.201,1,5,600,1,95,0) +100949 +"DATA",1130580001.201,1,5,600,1,96,0) +249 +"DATA",1130580001.201,1,5,600,2) +96 +"DATA",1130580001.201,1,5,600,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,1,5,600,3,1,0) +100095 +"DATA",1130580001.201,1,5,600,3,2,0) +100696 +"DATA",1130580001.201,1,5,600,3,3,0) +100622 +"DATA",1130580001.201,1,5,600,3,4,0) +100662 +"DATA",1130580001.201,1,5,600,3,5,0) +100661 +"DATA",1130580001.201,1,5,600,3,6,0) +100499 +"DATA",1130580001.201,1,5,600,3,7,0) +100506 +"DATA",1130580001.201,1,5,600,3,8,0) +100647 +"DATA",1130580001.201,1,5,600,3,9,0) +100648 +"DATA",1130580001.201,1,5,600,3,10,0) +100649 +"DATA",1130580001.201,1,5,600,3,11,0) +100839 +"DATA",1130580001.201,1,5,600,3,12,0) +100942 +"DATA",1130580001.201,1,5,600,3,13,0) +100943 +"DATA",1130580001.201,1,5,600,3,14,0) +100935 +"DATA",1130580001.201,1,5,600,3,15,0) +100941 +"DATA",1130580001.201,1,5,600,3,16,0) +100878 +"DATA",1130580001.201,1,5,600,3,17,0) +100879 +"DATA",1130580001.201,1,5,600,3,18,0) +100880 +"DATA",1130580001.201,1,5,600,3,19,0) +100881 +"DATA",1130580001.201,1,5,600,3,20,0) +100882 +"DATA",1130580001.201,1,5,600,3,21,0) +100874 +"DATA",1130580001.201,1,5,600,3,22,0) +100875 +"DATA",1130580001.201,1,5,600,3,23,0) +100876 +"DATA",1130580001.201,1,5,600,3,24,0) +100883 +"DATA",1130580001.201,1,5,600,3,25,0) +100894 +"DATA",1130580001.201,1,5,600,3,26,0) +100895 +"DATA",1130580001.201,1,5,600,3,27,0) +100896 +"DATA",1130580001.201,1,5,600,3,28,0) +100897 +"DATA",1130580001.201,1,5,600,3,29,0) +100898 +"DATA",1130580001.201,1,5,600,3,30,0) +100899 +"DATA",1130580001.201,1,5,600,3,31,0) +100900 +"DATA",1130580001.201,1,5,600,3,32,0) +100901 +"DATA",1130580001.201,1,5,600,3,33,0) +100902 +"DATA",1130580001.201,1,5,600,3,34,0) +100903 +"DATA",1130580001.201,1,5,600,3,35,0) +100884 +"DATA",1130580001.201,1,5,600,3,36,0) +100885 +"DATA",1130580001.201,1,5,600,3,37,0) +100886 +"DATA",1130580001.201,1,5,600,3,38,0) +100887 +"DATA",1130580001.201,1,5,600,3,39,0) +100888 +"DATA",1130580001.201,1,5,600,3,40,0) +100889 +"DATA",1130580001.201,1,5,600,3,41,0) +100890 +"DATA",1130580001.201,1,5,600,3,42,0) +100891 +"DATA",1130580001.201,1,5,600,3,43,0) +100338 +"DATA",1130580001.201,1,5,600,3,44,0) +100848 +"DATA",1130580001.201,1,5,600,3,45,0) +100845 +"DATA",1130580001.201,1,5,600,3,46,0) +100850 +"DATA",1130580001.201,1,5,600,3,47,0) +100855 +"DATA",1130580001.201,1,5,600,3,48,0) +100846 +"DATA",1130580001.201,1,5,600,3,49,0) +100847 +"DATA",1130580001.201,1,5,600,3,50,0) +100849 +"DATA",1130580001.201,1,5,600,3,51,0) +100858 +"DATA",1130580001.201,1,5,600,3,52,0) +100852 +"DATA",1130580001.201,1,5,600,3,53,0) +100929 +"DATA",1130580001.201,1,5,600,3,54,0) +100930 +"DATA",1130580001.201,1,5,600,3,55,0) +100931 +"DATA",1130580001.201,1,5,600,3,56,0) +100932 +"DATA",1130580001.201,1,5,600,3,57,0) +100933 +"DATA",1130580001.201,1,5,600,3,58,0) +100914 +"DATA",1130580001.201,1,5,600,3,59,0) +100915 +"DATA",1130580001.201,1,5,600,3,60,0) +100917 +"DATA",1130580001.201,1,5,600,3,61,0) +100923 +"DATA",1130580001.201,1,5,600,3,62,0) +100904 +"DATA",1130580001.201,1,5,600,3,63,0) +100905 +"DATA",1130580001.201,1,5,600,3,64,0) +100906 +"DATA",1130580001.201,1,5,600,3,65,0) +100907 +"DATA",1130580001.201,1,5,600,3,66,0) +100909 +"DATA",1130580001.201,1,5,600,3,67,0) +100913 +"DATA",1130580001.201,1,5,600,3,68,0) +100859 +"DATA",1130580001.201,1,5,600,3,69,0) +100860 +"DATA",1130580001.201,1,5,600,3,70,0) +100862 +"DATA",1130580001.201,1,5,600,3,71,0) +100861 +"DATA",1130580001.201,1,5,600,3,72,0) +100863 +"DATA",1130580001.201,1,5,600,3,73,0) +100851 +"DATA",1130580001.201,1,5,600,3,74,0) +100853 +"DATA",1130580001.201,1,5,600,3,75,0) +100856 +"DATA",1130580001.201,1,5,600,3,76,0) +100146 +"DATA",1130580001.201,1,5,600,3,77,0) +100857 +"DATA",1130580001.201,1,5,600,3,78,0) +100955 +"DATA",1130580001.201,1,5,600,3,79,0) +100616 +"DATA",1130580001.201,1,5,600,3,80,0) +100146 +"DATA",1130580001.201,1,5,600,3,81,0) +100499 +"DATA",1130580001.201,1,5,600,3,82,0) +100506 +"DATA",1130580001.201,1,5,600,3,83,0) +774 +"DATA",1130580001.201,1,5,600,3,84,0) +774 +"DATA",1130580001.201,1,5,600,3,85,0) +100667 +"DATA",1130580001.201,1,5,600,3,86,0) +100676 +"DATA",1130580001.201,1,5,600,3,87,0) +100951 +"DATA",1130580001.201,1,5,600,3,88,0) +100952 +"DATA",1130580001.201,1,5,600,3,89,0) +100953 +"DATA",1130580001.201,1,5,600,3,90,0) +100954 +"DATA",1130580001.201,1,5,600,3,91,0) +100934 +"DATA",1130580001.201,1,5,600,3,92,0) +100937 +"DATA",1130580001.201,1,5,600,3,93,0) +100947 +"DATA",1130580001.201,1,5,600,3,94,0) +100948 +"DATA",1130580001.201,1,5,600,3,95,0) +100949 +"DATA",1130580001.201,1,5,600,3,96,0) +249 +"DATA",1130580001.201,1,5,600,4) +96 +"DATA",1130580001.201,1,5,601,0) +5 +"DATA",1130580001.201,1,5,601,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,601,1,1,0) +100696 +"DATA",1130580001.201,1,5,601,1,2,0) +100622 +"DATA",1130580001.201,1,5,601,1,3,0) +100662 +"DATA",1130580001.201,1,5,601,1,4,0) +100661 +"DATA",1130580001.201,1,5,601,1,5,0) +100649 +"DATA",1130580001.201,1,5,601,1,6,0) +100338 +"DATA",1130580001.201,1,5,601,1,7,0) +100848 +"DATA",1130580001.201,1,5,601,1,8,0) +100845 +"DATA",1130580001.201,1,5,601,1,9,0) +100146 +"DATA",1130580001.201,1,5,601,1,10,0) +100616 +"DATA",1130580001.201,1,5,601,1,11,0) +100667 +"DATA",1130580001.201,1,5,601,1,12,0) +100676 +"DATA",1130580001.201,1,5,601,2) +12 +"DATA",1130580001.201,1,5,601,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,1,5,601,3,1,0) +100095 +"DATA",1130580001.201,1,5,601,3,2,0) +100696 +"DATA",1130580001.201,1,5,601,3,3,0) +100622 +"DATA",1130580001.201,1,5,601,3,4,0) +100662 +"DATA",1130580001.201,1,5,601,3,5,0) +100661 +"DATA",1130580001.201,1,5,601,3,6,0) +100499 +"DATA",1130580001.201,1,5,601,3,7,0) +100506 +"DATA",1130580001.201,1,5,601,3,8,0) +100647 +"DATA",1130580001.201,1,5,601,3,9,0) +100648 +"DATA",1130580001.201,1,5,601,3,10,0) +100649 +"DATA",1130580001.201,1,5,601,3,11,0) +100839 +"DATA",1130580001.201,1,5,601,3,12,0) +100878 +"DATA",1130580001.201,1,5,601,3,13,0) +100879 +"DATA",1130580001.201,1,5,601,3,14,0) +100894 +"DATA",1130580001.201,1,5,601,3,15,0) +100887 +"DATA",1130580001.201,1,5,601,3,16,0) +100888 +"DATA",1130580001.201,1,5,601,3,17,0) +100338 +"DATA",1130580001.201,1,5,601,3,18,0) +100848 +"DATA",1130580001.201,1,5,601,3,19,0) +100845 +"DATA",1130580001.201,1,5,601,3,20,0) +100850 +"DATA",1130580001.201,1,5,601,3,21,0) +100855 +"DATA",1130580001.201,1,5,601,3,22,0) +100846 +"DATA",1130580001.201,1,5,601,3,23,0) +100847 +"DATA",1130580001.201,1,5,601,3,24,0) +100849 +"DATA",1130580001.201,1,5,601,3,25,0) +100858 +"DATA",1130580001.201,1,5,601,3,26,0) +100852 +"DATA",1130580001.201,1,5,601,3,27,0) +100929 +"DATA",1130580001.201,1,5,601,3,28,0) +100923 +"DATA",1130580001.201,1,5,601,3,29,0) +100904 +"DATA",1130580001.201,1,5,601,3,30,0) +100905 +"DATA",1130580001.201,1,5,601,3,31,0) +100907 +"DATA",1130580001.201,1,5,601,3,32,0) +100913 +"DATA",1130580001.201,1,5,601,3,33,0) +100859 +"DATA",1130580001.201,1,5,601,3,34,0) +100860 +"DATA",1130580001.201,1,5,601,3,35,0) +100862 +"DATA",1130580001.201,1,5,601,3,36,0) +100861 +"DATA",1130580001.201,1,5,601,3,37,0) +100863 +"DATA",1130580001.201,1,5,601,3,38,0) +100851 +"DATA",1130580001.201,1,5,601,3,39,0) +100853 +"DATA",1130580001.201,1,5,601,3,40,0) +100856 +"DATA",1130580001.201,1,5,601,3,41,0) +100146 +"DATA",1130580001.201,1,5,601,3,42,0) +100857 +"DATA",1130580001.201,1,5,601,3,43,0) +100616 +"DATA",1130580001.201,1,5,601,3,44,0) +774 +"DATA",1130580001.201,1,5,601,3,45,0) +100667 +"DATA",1130580001.201,1,5,601,3,46,0) +100676 +"DATA",1130580001.201,1,5,601,3,47,0) +249 +"DATA",1130580001.201,1,5,601,4) +47 +"DATA",1130580001.201,1,5,602,0) +6 +"DATA",1130580001.201,1,5,602,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,602,1,1,0) +100647 +"DATA",1130580001.201,1,5,602,1,2,0) +100894 +"DATA",1130580001.201,1,5,602,1,3,0) +100900 +"DATA",1130580001.201,1,5,602,1,4,0) +100901 +"DATA",1130580001.201,1,5,602,1,5,0) +100902 +"DATA",1130580001.201,1,5,602,1,6,0) +100903 +"DATA",1130580001.201,1,5,602,1,7,0) +100885 +"DATA",1130580001.201,1,5,602,1,8,0) +100887 +"DATA",1130580001.201,1,5,602,1,9,0) +100890 +"DATA",1130580001.201,1,5,602,1,10,0) +100891 +"DATA",1130580001.201,1,5,602,2) +10 +"DATA",1130580001.201,1,5,602,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,1,5,602,3,1,0) +100696 +"DATA",1130580001.201,1,5,602,3,2,0) +100622 +"DATA",1130580001.201,1,5,602,3,3,0) +100662 +"DATA",1130580001.201,1,5,602,3,4,0) +100661 +"DATA",1130580001.201,1,5,602,3,5,0) +100499 +"DATA",1130580001.201,1,5,602,3,6,0) +100506 +"DATA",1130580001.201,1,5,602,3,7,0) +100647 +"DATA",1130580001.201,1,5,602,3,8,0) +100648 +"DATA",1130580001.201,1,5,602,3,9,0) +100649 +"DATA",1130580001.201,1,5,602,3,10,0) +100839 +"DATA",1130580001.201,1,5,602,3,11,0) +100894 +"DATA",1130580001.201,1,5,602,3,12,0) +100895 +"DATA",1130580001.201,1,5,602,3,13,0) +100896 +"DATA",1130580001.201,1,5,602,3,14,0) +100897 +"DATA",1130580001.201,1,5,602,3,15,0) +100898 +"DATA",1130580001.201,1,5,602,3,16,0) +100899 +"DATA",1130580001.201,1,5,602,3,17,0) +100900 +"DATA",1130580001.201,1,5,602,3,18,0) +100901 +"DATA",1130580001.201,1,5,602,3,19,0) +100902 +"DATA",1130580001.201,1,5,602,3,20,0) +100903 +"DATA",1130580001.201,1,5,602,3,21,0) +100885 +"DATA",1130580001.201,1,5,602,3,22,0) +100887 +"DATA",1130580001.201,1,5,602,3,23,0) +100888 +"DATA",1130580001.201,1,5,602,3,24,0) +100889 +"DATA",1130580001.201,1,5,602,3,25,0) +100890 +"DATA",1130580001.201,1,5,602,3,26,0) +100891 +"DATA",1130580001.201,1,5,602,3,27,0) +100929 +"DATA",1130580001.201,1,5,602,3,28,0) +100930 +"DATA",1130580001.201,1,5,602,3,29,0) +100931 +"DATA",1130580001.201,1,5,602,3,30,0) +100932 +"DATA",1130580001.201,1,5,602,3,31,0) +100933 +"DATA",1130580001.201,1,5,602,3,32,0) +100616 +"DATA",1130580001.201,1,5,602,3,33,0) +774 +"DATA",1130580001.201,1,5,602,3,34,0) +100667 +"DATA",1130580001.201,1,5,602,3,35,0) +100676 +"DATA",1130580001.201,1,5,602,3,36,0) +249 +"DATA",1130580001.201,1,5,602,4) +36 +"DATA",1130580001.201,1,5,603,0) +7 +"DATA",1130580001.201,1,5,603,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,603,1,1,0) +100894 +"DATA",1130580001.201,1,5,603,1,2,0) +100895 +"DATA",1130580001.201,1,5,603,1,3,0) +100896 +"DATA",1130580001.201,1,5,603,1,4,0) +100897 +"DATA",1130580001.201,1,5,603,1,5,0) +100898 +"DATA",1130580001.201,1,5,603,1,6,0) +100899 +"DATA",1130580001.201,1,5,603,1,7,0) +100900 +"DATA",1130580001.201,1,5,603,1,8,0) +100901 +"DATA",1130580001.201,1,5,603,1,9,0) +100902 +"DATA",1130580001.201,1,5,603,2) +9 +"DATA",1130580001.201,1,5,603,3,0) +^1130580001.20112P^14^14 +"DATA",1130580001.201,1,5,603,3,1,0) +100499 +"DATA",1130580001.201,1,5,603,3,2,0) +100839 +"DATA",1130580001.201,1,5,603,3,3,0) +100894 +"DATA",1130580001.201,1,5,603,3,4,0) +100895 +"DATA",1130580001.201,1,5,603,3,5,0) +100896 +"DATA",1130580001.201,1,5,603,3,6,0) +100897 +"DATA",1130580001.201,1,5,603,3,7,0) +100898 +"DATA",1130580001.201,1,5,603,3,8,0) +100899 +"DATA",1130580001.201,1,5,603,3,9,0) +100900 +"DATA",1130580001.201,1,5,603,3,10,0) +100901 +"DATA",1130580001.201,1,5,603,3,11,0) +100902 +"DATA",1130580001.201,1,5,603,3,12,0) +100888 +"DATA",1130580001.201,1,5,603,3,13,0) +100929 +"DATA",1130580001.201,1,5,603,3,14,0) +100930 +"DATA",1130580001.201,1,5,603,4) +14 +"DATA",1130580001.201,1,5,604,0) +2 +"DATA",1130580001.201,1,5,604,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,604,1,1,0) +100647 +"DATA",1130580001.201,1,5,604,1,2,0) +100878 +"DATA",1130580001.201,1,5,604,1,3,0) +100879 +"DATA",1130580001.201,1,5,604,1,4,0) +100880 +"DATA",1130580001.201,1,5,604,1,5,0) +100881 +"DATA",1130580001.201,1,5,604,1,6,0) +100883 +"DATA",1130580001.201,1,5,604,1,7,0) +100899 +"DATA",1130580001.201,1,5,604,1,8,0) +100900 +"DATA",1130580001.201,1,5,604,1,9,0) +100901 +"DATA",1130580001.201,1,5,604,1,10,0) +100902 +"DATA",1130580001.201,1,5,604,2) +10 +"DATA",1130580001.201,1,5,604,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,1,5,604,3,1,0) +100647 +"DATA",1130580001.201,1,5,604,3,2,0) +100878 +"DATA",1130580001.201,1,5,604,3,3,0) +100879 +"DATA",1130580001.201,1,5,604,3,4,0) +100880 +"DATA",1130580001.201,1,5,604,3,5,0) +100881 +"DATA",1130580001.201,1,5,604,3,6,0) +100883 +"DATA",1130580001.201,1,5,604,3,7,0) +100899 +"DATA",1130580001.201,1,5,604,3,8,0) +100900 +"DATA",1130580001.201,1,5,604,3,9,0) +100901 +"DATA",1130580001.201,1,5,604,3,10,0) +100902 +"DATA",1130580001.201,1,5,604,4) +10 +"DATA",1130580001.201,1,5,605,0) +8 +"DATA",1130580001.201,1,5,605,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,605,1,1,0) +100839 +"DATA",1130580001.201,1,5,605,1,2,0) +100338 +"DATA",1130580001.201,1,5,605,1,3,0) +100848 +"DATA",1130580001.201,1,5,605,1,4,0) +100845 +"DATA",1130580001.201,1,5,605,1,5,0) +100850 +"DATA",1130580001.201,1,5,605,1,6,0) +100855 +"DATA",1130580001.201,1,5,605,1,7,0) +100846 +"DATA",1130580001.201,1,5,605,1,8,0) +100930 +"DATA",1130580001.201,1,5,605,1,9,0) +100146 +"DATA",1130580001.201,1,5,605,1,10,0) +100676 +"DATA",1130580001.201,1,5,605,2) +10 +"DATA",1130580001.201,1,5,605,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,605,3,1,0) +100696 +"DATA",1130580001.201,1,5,605,3,2,0) +100622 +"DATA",1130580001.201,1,5,605,3,3,0) +100661 +"DATA",1130580001.201,1,5,605,3,4,0) +100839 +"DATA",1130580001.201,1,5,605,3,5,0) +100338 +"DATA",1130580001.201,1,5,605,3,6,0) +100848 +"DATA",1130580001.201,1,5,605,3,7,0) +100845 +"DATA",1130580001.201,1,5,605,3,8,0) +100850 +"DATA",1130580001.201,1,5,605,3,9,0) +100855 +"DATA",1130580001.201,1,5,605,3,10,0) +100846 +"DATA",1130580001.201,1,5,605,3,11,0) +100847 +"DATA",1130580001.201,1,5,605,3,12,0) +100849 +"DATA",1130580001.201,1,5,605,3,13,0) +100858 +"DATA",1130580001.201,1,5,605,3,14,0) +100852 +"DATA",1130580001.201,1,5,605,3,15,0) +100930 +"DATA",1130580001.201,1,5,605,3,16,0) +100146 +"DATA",1130580001.201,1,5,605,3,17,0) +100676 +"DATA",1130580001.201,1,5,605,4) +17 +"DATA",1130580001.201,1,5,606,0) +9 +"DATA",1130580001.201,1,5,606,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,606,1,1,0) +100696 +"DATA",1130580001.201,1,5,606,1,2,0) +100622 +"DATA",1130580001.201,1,5,606,1,3,0) +100338 +"DATA",1130580001.201,1,5,606,1,4,0) +100848 +"DATA",1130580001.201,1,5,606,1,5,0) +100845 +"DATA",1130580001.201,1,5,606,1,6,0) +100855 +"DATA",1130580001.201,1,5,606,1,7,0) +100846 +"DATA",1130580001.201,1,5,606,2) +7 +"DATA",1130580001.201,1,5,606,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,606,3,1,0) +100696 +"DATA",1130580001.201,1,5,606,3,2,0) +100622 +"DATA",1130580001.201,1,5,606,3,3,0) +100661 +"DATA",1130580001.201,1,5,606,3,4,0) +100839 +"DATA",1130580001.201,1,5,606,3,5,0) +100338 +"DATA",1130580001.201,1,5,606,3,6,0) +100848 +"DATA",1130580001.201,1,5,606,3,7,0) +100845 +"DATA",1130580001.201,1,5,606,3,8,0) +100850 +"DATA",1130580001.201,1,5,606,3,9,0) +100855 +"DATA",1130580001.201,1,5,606,3,10,0) +100846 +"DATA",1130580001.201,1,5,606,3,11,0) +100847 +"DATA",1130580001.201,1,5,606,3,12,0) +100849 +"DATA",1130580001.201,1,5,606,3,13,0) +100858 +"DATA",1130580001.201,1,5,606,3,14,0) +100852 +"DATA",1130580001.201,1,5,606,3,15,0) +100930 +"DATA",1130580001.201,1,5,606,3,16,0) +100146 +"DATA",1130580001.201,1,5,606,3,17,0) +100676 +"DATA",1130580001.201,1,5,606,4) +17 +"DATA",1130580001.201,1,5,607,0) +10 +"DATA",1130580001.201,1,5,607,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,607,1,1,0) +100839 +"DATA",1130580001.201,1,5,607,1,2,0) +100880 +"DATA",1130580001.201,1,5,607,1,3,0) +100881 +"DATA",1130580001.201,1,5,607,1,4,0) +100882 +"DATA",1130580001.201,1,5,607,1,5,0) +100874 +"DATA",1130580001.201,1,5,607,1,6,0) +100875 +"DATA",1130580001.201,1,5,607,1,7,0) +100899 +"DATA",1130580001.201,1,5,607,1,8,0) +100900 +"DATA",1130580001.201,1,5,607,1,9,0) +100901 +"DATA",1130580001.201,1,5,607,1,10,0) +100903 +"DATA",1130580001.201,1,5,607,2) +10 +"DATA",1130580001.201,1,5,607,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,607,3,1,0) +100839 +"DATA",1130580001.201,1,5,607,3,2,0) +100880 +"DATA",1130580001.201,1,5,607,3,3,0) +100881 +"DATA",1130580001.201,1,5,607,3,4,0) +100882 +"DATA",1130580001.201,1,5,607,3,5,0) +100874 +"DATA",1130580001.201,1,5,607,3,6,0) +100875 +"DATA",1130580001.201,1,5,607,3,7,0) +100899 +"DATA",1130580001.201,1,5,607,3,8,0) +100900 +"DATA",1130580001.201,1,5,607,3,9,0) +100901 +"DATA",1130580001.201,1,5,607,3,10,0) +100902 +"DATA",1130580001.201,1,5,607,3,11,0) +100903 +"DATA",1130580001.201,1,5,607,4) +11 +"DATA",1130580001.201,1,5,608,0) +16 +"DATA",1130580001.201,1,5,608,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,608,1,1,0) +100696 +"DATA",1130580001.201,1,5,608,1,2,0) +100622 +"DATA",1130580001.201,1,5,608,1,3,0) +100662 +"DATA",1130580001.201,1,5,608,1,4,0) +100661 +"DATA",1130580001.201,1,5,608,1,5,0) +100499 +"DATA",1130580001.201,1,5,608,1,6,0) +100647 +"DATA",1130580001.201,1,5,608,1,7,0) +100839 +"DATA",1130580001.201,1,5,608,1,8,0) +100888 +"DATA",1130580001.201,1,5,608,1,9,0) +100930 +"DATA",1130580001.201,1,5,608,2) +9 +"DATA",1130580001.201,1,5,608,3,0) +^1130580001.20112P^53^53 +"DATA",1130580001.201,1,5,608,3,1,0) +100095 +"DATA",1130580001.201,1,5,608,3,2,0) +100696 +"DATA",1130580001.201,1,5,608,3,3,0) +100622 +"DATA",1130580001.201,1,5,608,3,4,0) +100662 +"DATA",1130580001.201,1,5,608,3,5,0) +100661 +"DATA",1130580001.201,1,5,608,3,6,0) +100499 +"DATA",1130580001.201,1,5,608,3,7,0) +100506 +"DATA",1130580001.201,1,5,608,3,8,0) +100647 +"DATA",1130580001.201,1,5,608,3,9,0) +100648 +"DATA",1130580001.201,1,5,608,3,10,0) +100649 +"DATA",1130580001.201,1,5,608,3,11,0) +100839 +"DATA",1130580001.201,1,5,608,3,12,0) +100878 +"DATA",1130580001.201,1,5,608,3,13,0) +100879 +"DATA",1130580001.201,1,5,608,3,14,0) +100894 +"DATA",1130580001.201,1,5,608,3,15,0) +100887 +"DATA",1130580001.201,1,5,608,3,16,0) +100888 +"DATA",1130580001.201,1,5,608,3,17,0) +100338 +"DATA",1130580001.201,1,5,608,3,18,0) +100848 +"DATA",1130580001.201,1,5,608,3,19,0) +100845 +"DATA",1130580001.201,1,5,608,3,20,0) +100850 +"DATA",1130580001.201,1,5,608,3,21,0) +100855 +"DATA",1130580001.201,1,5,608,3,22,0) +100846 +"DATA",1130580001.201,1,5,608,3,23,0) +100847 +"DATA",1130580001.201,1,5,608,3,24,0) +100849 +"DATA",1130580001.201,1,5,608,3,25,0) +100858 +"DATA",1130580001.201,1,5,608,3,26,0) +100852 +"DATA",1130580001.201,1,5,608,3,27,0) +100929 +"DATA",1130580001.201,1,5,608,3,28,0) +100930 +"DATA",1130580001.201,1,5,608,3,29,0) +100931 +"DATA",1130580001.201,1,5,608,3,30,0) +100914 +"DATA",1130580001.201,1,5,608,3,31,0) +100915 +"DATA",1130580001.201,1,5,608,3,32,0) +100917 +"DATA",1130580001.201,1,5,608,3,33,0) +100923 +"DATA",1130580001.201,1,5,608,3,34,0) +100904 +"DATA",1130580001.201,1,5,608,3,35,0) +100905 +"DATA",1130580001.201,1,5,608,3,36,0) +100907 +"DATA",1130580001.201,1,5,608,3,37,0) +100913 +"DATA",1130580001.201,1,5,608,3,38,0) +100859 +"DATA",1130580001.201,1,5,608,3,39,0) +100860 +"DATA",1130580001.201,1,5,608,3,40,0) +100862 +"DATA",1130580001.201,1,5,608,3,41,0) +100861 +"DATA",1130580001.201,1,5,608,3,42,0) +100863 +"DATA",1130580001.201,1,5,608,3,43,0) +100851 +"DATA",1130580001.201,1,5,608,3,44,0) +100853 +"DATA",1130580001.201,1,5,608,3,45,0) +100856 +"DATA",1130580001.201,1,5,608,3,46,0) +100146 +"DATA",1130580001.201,1,5,608,3,47,0) +100857 +"DATA",1130580001.201,1,5,608,3,48,0) +100955 +"DATA",1130580001.201,1,5,608,3,49,0) +100616 +"DATA",1130580001.201,1,5,608,3,50,0) +774 +"DATA",1130580001.201,1,5,608,3,51,0) +100667 +"DATA",1130580001.201,1,5,608,3,52,0) +100676 +"DATA",1130580001.201,1,5,608,3,53,0) +249 +"DATA",1130580001.201,1,5,608,4) +53 +"DATA",1130580001.201,1,5,609,0) +14 +"DATA",1130580001.201,1,5,609,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,609,1,1,0) +100839 +"DATA",1130580001.201,1,5,609,1,2,0) +100894 +"DATA",1130580001.201,1,5,609,1,3,0) +100895 +"DATA",1130580001.201,1,5,609,1,4,0) +100896 +"DATA",1130580001.201,1,5,609,1,5,0) +100897 +"DATA",1130580001.201,1,5,609,1,6,0) +100898 +"DATA",1130580001.201,1,5,609,1,7,0) +100929 +"DATA",1130580001.201,1,5,609,1,8,0) +100930 +"DATA",1130580001.201,1,5,609,1,9,0) +100931 +"DATA",1130580001.201,1,5,609,1,10,0) +100932 +"DATA",1130580001.201,1,5,609,1,11,0) +100933 +"DATA",1130580001.201,1,5,609,2) +11 +"DATA",1130580001.201,1,5,609,3,0) +^1130580001.20112P^21^21 +"DATA",1130580001.201,1,5,609,3,1,0) +100499 +"DATA",1130580001.201,1,5,609,3,2,0) +100506 +"DATA",1130580001.201,1,5,609,3,3,0) +100839 +"DATA",1130580001.201,1,5,609,3,4,0) +100894 +"DATA",1130580001.201,1,5,609,3,5,0) +100895 +"DATA",1130580001.201,1,5,609,3,6,0) +100896 +"DATA",1130580001.201,1,5,609,3,7,0) +100897 +"DATA",1130580001.201,1,5,609,3,8,0) +100898 +"DATA",1130580001.201,1,5,609,3,9,0) +100899 +"DATA",1130580001.201,1,5,609,3,10,0) +100900 +"DATA",1130580001.201,1,5,609,3,11,0) +100901 +"DATA",1130580001.201,1,5,609,3,12,0) +100902 +"DATA",1130580001.201,1,5,609,3,13,0) +100903 +"DATA",1130580001.201,1,5,609,3,14,0) +100885 +"DATA",1130580001.201,1,5,609,3,15,0) +100887 +"DATA",1130580001.201,1,5,609,3,16,0) +100888 +"DATA",1130580001.201,1,5,609,3,17,0) +100929 +"DATA",1130580001.201,1,5,609,3,18,0) +100930 +"DATA",1130580001.201,1,5,609,3,19,0) +100931 +"DATA",1130580001.201,1,5,609,3,20,0) +100932 +"DATA",1130580001.201,1,5,609,3,21,0) +100933 +"DATA",1130580001.201,1,5,609,4) +21 +"DATA",1130580001.201,1,5,610,0) +1 +"DATA",1130580001.201,1,5,610,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,610,1,1,0) +100338 +"DATA",1130580001.201,1,5,610,1,2,0) +100848 +"DATA",1130580001.201,1,5,610,1,3,0) +100845 +"DATA",1130580001.201,1,5,610,1,4,0) +100855 +"DATA",1130580001.201,1,5,610,1,5,0) +100849 +"DATA",1130580001.201,1,5,610,1,6,0) +100930 +"DATA",1130580001.201,1,5,610,1,7,0) +100146 +"DATA",1130580001.201,1,5,610,2) +7 +"DATA",1130580001.201,1,5,610,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,610,3,1,0) +100696 +"DATA",1130580001.201,1,5,610,3,2,0) +100622 +"DATA",1130580001.201,1,5,610,3,3,0) +100661 +"DATA",1130580001.201,1,5,610,3,4,0) +100839 +"DATA",1130580001.201,1,5,610,3,5,0) +100338 +"DATA",1130580001.201,1,5,610,3,6,0) +100848 +"DATA",1130580001.201,1,5,610,3,7,0) +100845 +"DATA",1130580001.201,1,5,610,3,8,0) +100850 +"DATA",1130580001.201,1,5,610,3,9,0) +100855 +"DATA",1130580001.201,1,5,610,3,10,0) +100846 +"DATA",1130580001.201,1,5,610,3,11,0) +100847 +"DATA",1130580001.201,1,5,610,3,12,0) +100849 +"DATA",1130580001.201,1,5,610,3,13,0) +100858 +"DATA",1130580001.201,1,5,610,3,14,0) +100852 +"DATA",1130580001.201,1,5,610,3,15,0) +100930 +"DATA",1130580001.201,1,5,610,3,16,0) +100146 +"DATA",1130580001.201,1,5,610,3,17,0) +100676 +"DATA",1130580001.201,1,5,610,4) +17 +"DATA",1130580001.201,1,5,611,0) +17 +"DATA",1130580001.201,1,5,611,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,611,1,1,0) +100839 +"DATA",1130580001.201,1,5,611,1,2,0) +100897 +"DATA",1130580001.201,1,5,611,1,3,0) +100898 +"DATA",1130580001.201,1,5,611,1,4,0) +100899 +"DATA",1130580001.201,1,5,611,1,5,0) +100900 +"DATA",1130580001.201,1,5,611,1,6,0) +100901 +"DATA",1130580001.201,1,5,611,1,7,0) +100902 +"DATA",1130580001.201,1,5,611,2) +7 +"DATA",1130580001.201,1,5,611,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,611,3,1,0) +100839 +"DATA",1130580001.201,1,5,611,3,2,0) +100894 +"DATA",1130580001.201,1,5,611,3,3,0) +100895 +"DATA",1130580001.201,1,5,611,3,4,0) +100896 +"DATA",1130580001.201,1,5,611,3,5,0) +100897 +"DATA",1130580001.201,1,5,611,3,6,0) +100898 +"DATA",1130580001.201,1,5,611,3,7,0) +100899 +"DATA",1130580001.201,1,5,611,3,8,0) +100900 +"DATA",1130580001.201,1,5,611,3,9,0) +100901 +"DATA",1130580001.201,1,5,611,3,10,0) +100902 +"DATA",1130580001.201,1,5,611,3,11,0) +100929 +"DATA",1130580001.201,1,5,611,4) +11 +"DATA",1130580001.201,1,5,612,0) +18 +"DATA",1130580001.201,1,5,612,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,612,1,1,0) +100696 +"DATA",1130580001.201,1,5,612,1,2,0) +100622 +"DATA",1130580001.201,1,5,612,1,3,0) +100662 +"DATA",1130580001.201,1,5,612,1,4,0) +100661 +"DATA",1130580001.201,1,5,612,1,5,0) +100499 +"DATA",1130580001.201,1,5,612,1,6,0) +100647 +"DATA",1130580001.201,1,5,612,1,7,0) +100649 +"DATA",1130580001.201,1,5,612,1,8,0) +100839 +"DATA",1130580001.201,1,5,612,1,9,0) +100888 +"DATA",1130580001.201,1,5,612,1,10,0) +100929 +"DATA",1130580001.201,1,5,612,1,11,0) +100930 +"DATA",1130580001.201,1,5,612,1,12,0) +774 +"DATA",1130580001.201,1,5,612,2) +12 +"DATA",1130580001.201,1,5,612,3,0) +^1130580001.20112P^20^20 +"DATA",1130580001.201,1,5,612,3,1,0) +100696 +"DATA",1130580001.201,1,5,612,3,2,0) +100622 +"DATA",1130580001.201,1,5,612,3,3,0) +100662 +"DATA",1130580001.201,1,5,612,3,4,0) +100661 +"DATA",1130580001.201,1,5,612,3,5,0) +100499 +"DATA",1130580001.201,1,5,612,3,6,0) +100506 +"DATA",1130580001.201,1,5,612,3,7,0) +100647 +"DATA",1130580001.201,1,5,612,3,8,0) +100648 +"DATA",1130580001.201,1,5,612,3,9,0) +100649 +"DATA",1130580001.201,1,5,612,3,10,0) +100839 +"DATA",1130580001.201,1,5,612,3,11,0) +100894 +"DATA",1130580001.201,1,5,612,3,12,0) +100887 +"DATA",1130580001.201,1,5,612,3,13,0) +100888 +"DATA",1130580001.201,1,5,612,3,14,0) +100929 +"DATA",1130580001.201,1,5,612,3,15,0) +100930 +"DATA",1130580001.201,1,5,612,3,16,0) +100616 +"DATA",1130580001.201,1,5,612,3,17,0) +774 +"DATA",1130580001.201,1,5,612,3,18,0) +100667 +"DATA",1130580001.201,1,5,612,3,19,0) +100676 +"DATA",1130580001.201,1,5,612,3,20,0) +249 +"DATA",1130580001.201,1,5,612,4) +20 +"DATA",1130580001.201,1,5,613,0) +19 +"DATA",1130580001.201,1,5,613,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,613,1,1,0) +100878 +"DATA",1130580001.201,1,5,613,1,2,0) +100894 +"DATA",1130580001.201,1,5,613,1,3,0) +100895 +"DATA",1130580001.201,1,5,613,1,4,0) +100897 +"DATA",1130580001.201,1,5,613,1,5,0) +100885 +"DATA",1130580001.201,1,5,613,1,6,0) +100850 +"DATA",1130580001.201,1,5,613,1,7,0) +100929 +"DATA",1130580001.201,1,5,613,1,8,0) +100915 +"DATA",1130580001.201,1,5,613,1,9,0) +100955 +"DATA",1130580001.201,1,5,613,2) +9 +"DATA",1130580001.201,1,5,613,3,0) +^1130580001.20112P^78^78 +"DATA",1130580001.201,1,5,613,3,1,0) +100095 +"DATA",1130580001.201,1,5,613,3,2,0) +100696 +"DATA",1130580001.201,1,5,613,3,3,0) +100622 +"DATA",1130580001.201,1,5,613,3,4,0) +100662 +"DATA",1130580001.201,1,5,613,3,5,0) +100661 +"DATA",1130580001.201,1,5,613,3,6,0) +100499 +"DATA",1130580001.201,1,5,613,3,7,0) +100506 +"DATA",1130580001.201,1,5,613,3,8,0) +100647 +"DATA",1130580001.201,1,5,613,3,9,0) +100648 +"DATA",1130580001.201,1,5,613,3,10,0) +100649 +"DATA",1130580001.201,1,5,613,3,11,0) +100839 +"DATA",1130580001.201,1,5,613,3,12,0) +100878 +"DATA",1130580001.201,1,5,613,3,13,0) +100879 +"DATA",1130580001.201,1,5,613,3,14,0) +100880 +"DATA",1130580001.201,1,5,613,3,15,0) +100881 +"DATA",1130580001.201,1,5,613,3,16,0) +100882 +"DATA",1130580001.201,1,5,613,3,17,0) +100874 +"DATA",1130580001.201,1,5,613,3,18,0) +100875 +"DATA",1130580001.201,1,5,613,3,19,0) +100883 +"DATA",1130580001.201,1,5,613,3,20,0) +100894 +"DATA",1130580001.201,1,5,613,3,21,0) +100895 +"DATA",1130580001.201,1,5,613,3,22,0) +100896 +"DATA",1130580001.201,1,5,613,3,23,0) +100897 +"DATA",1130580001.201,1,5,613,3,24,0) +100898 +"DATA",1130580001.201,1,5,613,3,25,0) +100899 +"DATA",1130580001.201,1,5,613,3,26,0) +100900 +"DATA",1130580001.201,1,5,613,3,27,0) +100901 +"DATA",1130580001.201,1,5,613,3,28,0) +100902 +"DATA",1130580001.201,1,5,613,3,29,0) +100903 +"DATA",1130580001.201,1,5,613,3,30,0) +100884 +"DATA",1130580001.201,1,5,613,3,31,0) +100885 +"DATA",1130580001.201,1,5,613,3,32,0) +100886 +"DATA",1130580001.201,1,5,613,3,33,0) +100887 +"DATA",1130580001.201,1,5,613,3,34,0) +100888 +"DATA",1130580001.201,1,5,613,3,35,0) +100889 +"DATA",1130580001.201,1,5,613,3,36,0) +100890 +"DATA",1130580001.201,1,5,613,3,37,0) +100891 +"DATA",1130580001.201,1,5,613,3,38,0) +100338 +"DATA",1130580001.201,1,5,613,3,39,0) +100848 +"DATA",1130580001.201,1,5,613,3,40,0) +100845 +"DATA",1130580001.201,1,5,613,3,41,0) +100850 +"DATA",1130580001.201,1,5,613,3,42,0) +100855 +"DATA",1130580001.201,1,5,613,3,43,0) +100846 +"DATA",1130580001.201,1,5,613,3,44,0) +100847 +"DATA",1130580001.201,1,5,613,3,45,0) +100849 +"DATA",1130580001.201,1,5,613,3,46,0) +100858 +"DATA",1130580001.201,1,5,613,3,47,0) +100852 +"DATA",1130580001.201,1,5,613,3,48,0) +100929 +"DATA",1130580001.201,1,5,613,3,49,0) +100930 +"DATA",1130580001.201,1,5,613,3,50,0) +100931 +"DATA",1130580001.201,1,5,613,3,51,0) +100932 +"DATA",1130580001.201,1,5,613,3,52,0) +100933 +"DATA",1130580001.201,1,5,613,3,53,0) +100914 +"DATA",1130580001.201,1,5,613,3,54,0) +100915 +"DATA",1130580001.201,1,5,613,3,55,0) +100917 +"DATA",1130580001.201,1,5,613,3,56,0) +100923 +"DATA",1130580001.201,1,5,613,3,57,0) +100904 +"DATA",1130580001.201,1,5,613,3,58,0) +100905 +"DATA",1130580001.201,1,5,613,3,59,0) +100906 +"DATA",1130580001.201,1,5,613,3,60,0) +100907 +"DATA",1130580001.201,1,5,613,3,61,0) +100909 +"DATA",1130580001.201,1,5,613,3,62,0) +100913 +"DATA",1130580001.201,1,5,613,3,63,0) +100859 +"DATA",1130580001.201,1,5,613,3,64,0) +100860 +"DATA",1130580001.201,1,5,613,3,65,0) +100862 +"DATA",1130580001.201,1,5,613,3,66,0) +100861 +"DATA",1130580001.201,1,5,613,3,67,0) +100863 +"DATA",1130580001.201,1,5,613,3,68,0) +100851 +"DATA",1130580001.201,1,5,613,3,69,0) +100853 +"DATA",1130580001.201,1,5,613,3,70,0) +100856 +"DATA",1130580001.201,1,5,613,3,71,0) +100146 +"DATA",1130580001.201,1,5,613,3,72,0) +100857 +"DATA",1130580001.201,1,5,613,3,73,0) +100955 +"DATA",1130580001.201,1,5,613,3,74,0) +100616 +"DATA",1130580001.201,1,5,613,3,75,0) +774 +"DATA",1130580001.201,1,5,613,3,76,0) +100667 +"DATA",1130580001.201,1,5,613,3,77,0) +100676 +"DATA",1130580001.201,1,5,613,3,78,0) +249 +"DATA",1130580001.201,1,5,613,4) +78 +"DATA",1130580001.201,1,5,614,0) +13 +"DATA",1130580001.201,1,5,614,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,614,1,1,0) +100647 +"DATA",1130580001.201,1,5,614,1,2,0) +100929 +"DATA",1130580001.201,1,5,614,1,3,0) +100915 +"DATA",1130580001.201,1,5,614,1,4,0) +100917 +"DATA",1130580001.201,1,5,614,1,5,0) +100904 +"DATA",1130580001.201,1,5,614,1,6,0) +100905 +"DATA",1130580001.201,1,5,614,1,7,0) +100906 +"DATA",1130580001.201,1,5,614,1,8,0) +100907 +"DATA",1130580001.201,1,5,614,1,9,0) +100909 +"DATA",1130580001.201,1,5,614,1,10,0) +100955 +"DATA",1130580001.201,1,5,614,2) +10 +"DATA",1130580001.201,1,5,614,3,0) +^1130580001.20112P^52^52 +"DATA",1130580001.201,1,5,614,3,1,0) +100095 +"DATA",1130580001.201,1,5,614,3,2,0) +100696 +"DATA",1130580001.201,1,5,614,3,3,0) +100622 +"DATA",1130580001.201,1,5,614,3,4,0) +100662 +"DATA",1130580001.201,1,5,614,3,5,0) +100661 +"DATA",1130580001.201,1,5,614,3,6,0) +100499 +"DATA",1130580001.201,1,5,614,3,7,0) +100506 +"DATA",1130580001.201,1,5,614,3,8,0) +100647 +"DATA",1130580001.201,1,5,614,3,9,0) +100648 +"DATA",1130580001.201,1,5,614,3,10,0) +100649 +"DATA",1130580001.201,1,5,614,3,11,0) +100839 +"DATA",1130580001.201,1,5,614,3,12,0) +100878 +"DATA",1130580001.201,1,5,614,3,13,0) +100879 +"DATA",1130580001.201,1,5,614,3,14,0) +100894 +"DATA",1130580001.201,1,5,614,3,15,0) +100887 +"DATA",1130580001.201,1,5,614,3,16,0) +100888 +"DATA",1130580001.201,1,5,614,3,17,0) +100338 +"DATA",1130580001.201,1,5,614,3,18,0) +100848 +"DATA",1130580001.201,1,5,614,3,19,0) +100845 +"DATA",1130580001.201,1,5,614,3,20,0) +100850 +"DATA",1130580001.201,1,5,614,3,21,0) +100855 +"DATA",1130580001.201,1,5,614,3,22,0) +100846 +"DATA",1130580001.201,1,5,614,3,23,0) +100847 +"DATA",1130580001.201,1,5,614,3,24,0) +100849 +"DATA",1130580001.201,1,5,614,3,25,0) +100858 +"DATA",1130580001.201,1,5,614,3,26,0) +100852 +"DATA",1130580001.201,1,5,614,3,27,0) +100929 +"DATA",1130580001.201,1,5,614,3,28,0) +100930 +"DATA",1130580001.201,1,5,614,3,29,0) +100914 +"DATA",1130580001.201,1,5,614,3,30,0) +100915 +"DATA",1130580001.201,1,5,614,3,31,0) +100917 +"DATA",1130580001.201,1,5,614,3,32,0) +100923 +"DATA",1130580001.201,1,5,614,3,33,0) +100904 +"DATA",1130580001.201,1,5,614,3,34,0) +100905 +"DATA",1130580001.201,1,5,614,3,35,0) +100907 +"DATA",1130580001.201,1,5,614,3,36,0) +100913 +"DATA",1130580001.201,1,5,614,3,37,0) +100859 +"DATA",1130580001.201,1,5,614,3,38,0) +100860 +"DATA",1130580001.201,1,5,614,3,39,0) +100862 +"DATA",1130580001.201,1,5,614,3,40,0) +100861 +"DATA",1130580001.201,1,5,614,3,41,0) +100863 +"DATA",1130580001.201,1,5,614,3,42,0) +100851 +"DATA",1130580001.201,1,5,614,3,43,0) +100853 +"DATA",1130580001.201,1,5,614,3,44,0) +100856 +"DATA",1130580001.201,1,5,614,3,45,0) +100146 +"DATA",1130580001.201,1,5,614,3,46,0) +100857 +"DATA",1130580001.201,1,5,614,3,47,0) +100955 +"DATA",1130580001.201,1,5,614,3,48,0) +100616 +"DATA",1130580001.201,1,5,614,3,49,0) +774 +"DATA",1130580001.201,1,5,614,3,50,0) +100667 +"DATA",1130580001.201,1,5,614,3,51,0) +100676 +"DATA",1130580001.201,1,5,614,3,52,0) +249 +"DATA",1130580001.201,1,5,614,4) +52 +"DATA",1130580001.201,1,5,615,0) +11 +"DATA",1130580001.201,1,5,615,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,615,1,1,0) +100899 +"DATA",1130580001.201,1,5,615,1,2,0) +100900 +"DATA",1130580001.201,1,5,615,1,3,0) +100846 +"DATA",1130580001.201,1,5,615,1,4,0) +100847 +"DATA",1130580001.201,1,5,615,1,5,0) +100849 +"DATA",1130580001.201,1,5,615,1,6,0) +100858 +"DATA",1130580001.201,1,5,615,1,7,0) +100852 +"DATA",1130580001.201,1,5,615,1,8,0) +100929 +"DATA",1130580001.201,1,5,615,1,9,0) +100931 +"DATA",1130580001.201,1,5,615,1,10,0) +100932 +"DATA",1130580001.201,1,5,615,1,11,0) +100933 +"DATA",1130580001.201,1,5,615,2) +11 +"DATA",1130580001.201,1,5,615,3,0) +^1130580001.20112P^99^99 +"DATA",1130580001.201,1,5,615,3,1,0) +100095 +"DATA",1130580001.201,1,5,615,3,2,0) +100696 +"DATA",1130580001.201,1,5,615,3,3,0) +100622 +"DATA",1130580001.201,1,5,615,3,4,0) +100662 +"DATA",1130580001.201,1,5,615,3,5,0) +100661 +"DATA",1130580001.201,1,5,615,3,6,0) +100499 +"DATA",1130580001.201,1,5,615,3,7,0) +100506 +"DATA",1130580001.201,1,5,615,3,8,0) +100647 +"DATA",1130580001.201,1,5,615,3,9,0) +100648 +"DATA",1130580001.201,1,5,615,3,10,0) +100649 +"DATA",1130580001.201,1,5,615,3,11,0) +100839 +"DATA",1130580001.201,1,5,615,3,12,0) +100878 +"DATA",1130580001.201,1,5,615,3,13,0) +100879 +"DATA",1130580001.201,1,5,615,3,14,0) +100880 +"DATA",1130580001.201,1,5,615,3,15,0) +100881 +"DATA",1130580001.201,1,5,615,3,16,0) +100882 +"DATA",1130580001.201,1,5,615,3,17,0) +100874 +"DATA",1130580001.201,1,5,615,3,18,0) +100875 +"DATA",1130580001.201,1,5,615,3,19,0) +100877 +"DATA",1130580001.201,1,5,615,3,20,0) +100883 +"DATA",1130580001.201,1,5,615,3,21,0) +100894 +"DATA",1130580001.201,1,5,615,3,22,0) +100895 +"DATA",1130580001.201,1,5,615,3,23,0) +100896 +"DATA",1130580001.201,1,5,615,3,24,0) +100897 +"DATA",1130580001.201,1,5,615,3,25,0) +100898 +"DATA",1130580001.201,1,5,615,3,26,0) +100899 +"DATA",1130580001.201,1,5,615,3,27,0) +100900 +"DATA",1130580001.201,1,5,615,3,28,0) +100901 +"DATA",1130580001.201,1,5,615,3,29,0) +100902 +"DATA",1130580001.201,1,5,615,3,30,0) +100903 +"DATA",1130580001.201,1,5,615,3,31,0) +100884 +"DATA",1130580001.201,1,5,615,3,32,0) +100885 +"DATA",1130580001.201,1,5,615,3,33,0) +100886 +"DATA",1130580001.201,1,5,615,3,34,0) +100887 +"DATA",1130580001.201,1,5,615,3,35,0) +100888 +"DATA",1130580001.201,1,5,615,3,36,0) +100889 +"DATA",1130580001.201,1,5,615,3,37,0) +100890 +"DATA",1130580001.201,1,5,615,3,38,0) +100891 +"DATA",1130580001.201,1,5,615,3,39,0) +100892 +"DATA",1130580001.201,1,5,615,3,40,0) +100893 +"DATA",1130580001.201,1,5,615,3,41,0) +100338 +"DATA",1130580001.201,1,5,615,3,42,0) +100848 +"DATA",1130580001.201,1,5,615,3,43,0) +100845 +"DATA",1130580001.201,1,5,615,3,44,0) +100850 +"DATA",1130580001.201,1,5,615,3,45,0) +100855 +"DATA",1130580001.201,1,5,615,3,46,0) +100846 +"DATA",1130580001.201,1,5,615,3,47,0) +100847 +"DATA",1130580001.201,1,5,615,3,48,0) +100849 +"DATA",1130580001.201,1,5,615,3,49,0) +100858 +"DATA",1130580001.201,1,5,615,3,50,0) +100852 +"DATA",1130580001.201,1,5,615,3,51,0) +100929 +"DATA",1130580001.201,1,5,615,3,52,0) +100930 +"DATA",1130580001.201,1,5,615,3,53,0) +100931 +"DATA",1130580001.201,1,5,615,3,54,0) +100932 +"DATA",1130580001.201,1,5,615,3,55,0) +100933 +"DATA",1130580001.201,1,5,615,3,56,0) +100914 +"DATA",1130580001.201,1,5,615,3,57,0) +100915 +"DATA",1130580001.201,1,5,615,3,58,0) +100917 +"DATA",1130580001.201,1,5,615,3,59,0) +100923 +"DATA",1130580001.201,1,5,615,3,60,0) +100904 +"DATA",1130580001.201,1,5,615,3,61,0) +100905 +"DATA",1130580001.201,1,5,615,3,62,0) +100906 +"DATA",1130580001.201,1,5,615,3,63,0) +100907 +"DATA",1130580001.201,1,5,615,3,64,0) +100908 +"DATA",1130580001.201,1,5,615,3,65,0) +100909 +"DATA",1130580001.201,1,5,615,3,66,0) +100910 +"DATA",1130580001.201,1,5,615,3,67,0) +100911 +"DATA",1130580001.201,1,5,615,3,68,0) +100912 +"DATA",1130580001.201,1,5,615,3,69,0) +100913 +"DATA",1130580001.201,1,5,615,3,70,0) +100864 +"DATA",1130580001.201,1,5,615,3,71,0) +100865 +"DATA",1130580001.201,1,5,615,3,72,0) +100866 +"DATA",1130580001.201,1,5,615,3,73,0) +100867 +"DATA",1130580001.201,1,5,615,3,74,0) +100868 +"DATA",1130580001.201,1,5,615,3,75,0) +100869 +"DATA",1130580001.201,1,5,615,3,76,0) +100870 +"DATA",1130580001.201,1,5,615,3,77,0) +100871 +"DATA",1130580001.201,1,5,615,3,78,0) +100872 +"DATA",1130580001.201,1,5,615,3,79,0) +100873 +"DATA",1130580001.201,1,5,615,3,80,0) +100859 +"DATA",1130580001.201,1,5,615,3,81,0) +100860 +"DATA",1130580001.201,1,5,615,3,82,0) +100862 +"DATA",1130580001.201,1,5,615,3,83,0) +100861 +"DATA",1130580001.201,1,5,615,3,84,0) +100863 +"DATA",1130580001.201,1,5,615,3,85,0) +100851 +"DATA",1130580001.201,1,5,615,3,86,0) +100853 +"DATA",1130580001.201,1,5,615,3,87,0) +100856 +"DATA",1130580001.201,1,5,615,3,88,0) +100146 +"DATA",1130580001.201,1,5,615,3,89,0) +100857 +"DATA",1130580001.201,1,5,615,3,90,0) +100955 +"DATA",1130580001.201,1,5,615,3,91,0) +100616 +"DATA",1130580001.201,1,5,615,3,92,0) +100146 +"DATA",1130580001.201,1,5,615,3,93,0) +100499 +"DATA",1130580001.201,1,5,615,3,94,0) +100506 +"DATA",1130580001.201,1,5,615,3,95,0) +774 +"DATA",1130580001.201,1,5,615,3,96,0) +774 +"DATA",1130580001.201,1,5,615,3,97,0) +100667 +"DATA",1130580001.201,1,5,615,3,98,0) +100676 +"DATA",1130580001.201,1,5,615,3,99,0) +249 +"DATA",1130580001.201,1,5,615,4) +99 +"DATA",1130580001.201,1,5,616,0) +12 +"DATA",1130580001.201,1,5,616,2) +0 +"DATA",1130580001.201,1,5,616,3,0) +^1130580001.20112P^98^98 +"DATA",1130580001.201,1,5,616,3,1,0) +100095 +"DATA",1130580001.201,1,5,616,3,2,0) +100696 +"DATA",1130580001.201,1,5,616,3,3,0) +100622 +"DATA",1130580001.201,1,5,616,3,4,0) +100662 +"DATA",1130580001.201,1,5,616,3,5,0) +100661 +"DATA",1130580001.201,1,5,616,3,6,0) +100499 +"DATA",1130580001.201,1,5,616,3,7,0) +100506 +"DATA",1130580001.201,1,5,616,3,8,0) +100647 +"DATA",1130580001.201,1,5,616,3,9,0) +100648 +"DATA",1130580001.201,1,5,616,3,10,0) +100649 +"DATA",1130580001.201,1,5,616,3,11,0) +100839 +"DATA",1130580001.201,1,5,616,3,12,0) +100878 +"DATA",1130580001.201,1,5,616,3,13,0) +100879 +"DATA",1130580001.201,1,5,616,3,14,0) +100880 +"DATA",1130580001.201,1,5,616,3,15,0) +100881 +"DATA",1130580001.201,1,5,616,3,16,0) +100882 +"DATA",1130580001.201,1,5,616,3,17,0) +100874 +"DATA",1130580001.201,1,5,616,3,18,0) +100875 +"DATA",1130580001.201,1,5,616,3,19,0) +100876 +"DATA",1130580001.201,1,5,616,3,20,0) +100877 +"DATA",1130580001.201,1,5,616,3,21,0) +100883 +"DATA",1130580001.201,1,5,616,3,22,0) +100894 +"DATA",1130580001.201,1,5,616,3,23,0) +100895 +"DATA",1130580001.201,1,5,616,3,24,0) +100896 +"DATA",1130580001.201,1,5,616,3,25,0) +100897 +"DATA",1130580001.201,1,5,616,3,26,0) +100898 +"DATA",1130580001.201,1,5,616,3,27,0) +100899 +"DATA",1130580001.201,1,5,616,3,28,0) +100900 +"DATA",1130580001.201,1,5,616,3,29,0) +100901 +"DATA",1130580001.201,1,5,616,3,30,0) +100902 +"DATA",1130580001.201,1,5,616,3,31,0) +100903 +"DATA",1130580001.201,1,5,616,3,32,0) +100884 +"DATA",1130580001.201,1,5,616,3,33,0) +100885 +"DATA",1130580001.201,1,5,616,3,34,0) +100886 +"DATA",1130580001.201,1,5,616,3,35,0) +100887 +"DATA",1130580001.201,1,5,616,3,36,0) +100888 +"DATA",1130580001.201,1,5,616,3,37,0) +100889 +"DATA",1130580001.201,1,5,616,3,38,0) +100890 +"DATA",1130580001.201,1,5,616,3,39,0) +100891 +"DATA",1130580001.201,1,5,616,3,40,0) +100892 +"DATA",1130580001.201,1,5,616,3,41,0) +100893 +"DATA",1130580001.201,1,5,616,3,42,0) +100338 +"DATA",1130580001.201,1,5,616,3,43,0) +100848 +"DATA",1130580001.201,1,5,616,3,44,0) +100845 +"DATA",1130580001.201,1,5,616,3,45,0) +100850 +"DATA",1130580001.201,1,5,616,3,46,0) +100855 +"DATA",1130580001.201,1,5,616,3,47,0) +100846 +"DATA",1130580001.201,1,5,616,3,48,0) +100847 +"DATA",1130580001.201,1,5,616,3,49,0) +100849 +"DATA",1130580001.201,1,5,616,3,50,0) +100858 +"DATA",1130580001.201,1,5,616,3,51,0) +100852 +"DATA",1130580001.201,1,5,616,3,52,0) +100929 +"DATA",1130580001.201,1,5,616,3,53,0) +100930 +"DATA",1130580001.201,1,5,616,3,54,0) +100931 +"DATA",1130580001.201,1,5,616,3,55,0) +100914 +"DATA",1130580001.201,1,5,616,3,56,0) +100915 +"DATA",1130580001.201,1,5,616,3,57,0) +100917 +"DATA",1130580001.201,1,5,616,3,58,0) +100923 +"DATA",1130580001.201,1,5,616,3,59,0) +100904 +"DATA",1130580001.201,1,5,616,3,60,0) +100905 +"DATA",1130580001.201,1,5,616,3,61,0) +100906 +"DATA",1130580001.201,1,5,616,3,62,0) +100907 +"DATA",1130580001.201,1,5,616,3,63,0) +100908 +"DATA",1130580001.201,1,5,616,3,64,0) +100909 +"DATA",1130580001.201,1,5,616,3,65,0) +100910 +"DATA",1130580001.201,1,5,616,3,66,0) +100911 +"DATA",1130580001.201,1,5,616,3,67,0) +100912 +"DATA",1130580001.201,1,5,616,3,68,0) +100913 +"DATA",1130580001.201,1,5,616,3,69,0) +100864 +"DATA",1130580001.201,1,5,616,3,70,0) +100865 +"DATA",1130580001.201,1,5,616,3,71,0) +100866 +"DATA",1130580001.201,1,5,616,3,72,0) +100867 +"DATA",1130580001.201,1,5,616,3,73,0) +100868 +"DATA",1130580001.201,1,5,616,3,74,0) +100869 +"DATA",1130580001.201,1,5,616,3,75,0) +100870 +"DATA",1130580001.201,1,5,616,3,76,0) +100871 +"DATA",1130580001.201,1,5,616,3,77,0) +100872 +"DATA",1130580001.201,1,5,616,3,78,0) +100873 +"DATA",1130580001.201,1,5,616,3,79,0) +100859 +"DATA",1130580001.201,1,5,616,3,80,0) +100860 +"DATA",1130580001.201,1,5,616,3,81,0) +100862 +"DATA",1130580001.201,1,5,616,3,82,0) +100861 +"DATA",1130580001.201,1,5,616,3,83,0) +100863 +"DATA",1130580001.201,1,5,616,3,84,0) +100851 +"DATA",1130580001.201,1,5,616,3,85,0) +100853 +"DATA",1130580001.201,1,5,616,3,86,0) +100856 +"DATA",1130580001.201,1,5,616,3,87,0) +100146 +"DATA",1130580001.201,1,5,616,3,88,0) +100857 +"DATA",1130580001.201,1,5,616,3,89,0) +100955 +"DATA",1130580001.201,1,5,616,3,90,0) +100616 +"DATA",1130580001.201,1,5,616,3,91,0) +100146 +"DATA",1130580001.201,1,5,616,3,92,0) +100499 +"DATA",1130580001.201,1,5,616,3,93,0) +100506 +"DATA",1130580001.201,1,5,616,3,94,0) +774 +"DATA",1130580001.201,1,5,616,3,95,0) +774 +"DATA",1130580001.201,1,5,616,3,96,0) +100667 +"DATA",1130580001.201,1,5,616,3,97,0) +100676 +"DATA",1130580001.201,1,5,616,3,98,0) +249 +"DATA",1130580001.201,1,5,616,4) +98 +"DATA",1130580001.201,1,5,617,0) +21 +"DATA",1130580001.201,1,5,617,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,617,1,1,0) +100942 +"DATA",1130580001.201,1,5,617,1,2,0) +100943 +"DATA",1130580001.201,1,5,617,1,3,0) +100944 +"DATA",1130580001.201,1,5,617,1,4,0) +100945 +"DATA",1130580001.201,1,5,617,1,5,0) +100946 +"DATA",1130580001.201,1,5,617,1,6,0) +100935 +"DATA",1130580001.201,1,5,617,1,7,0) +100936 +"DATA",1130580001.201,1,5,617,1,8,0) +100939 +"DATA",1130580001.201,1,5,617,1,9,0) +100940 +"DATA",1130580001.201,1,5,617,1,10,0) +100941 +"DATA",1130580001.201,1,5,617,2) +10 +"DATA",1130580001.201,1,5,617,3,0) +^1130580001.20112P^19^19 +"DATA",1130580001.201,1,5,617,3,1,0) +100942 +"DATA",1130580001.201,1,5,617,3,2,0) +100943 +"DATA",1130580001.201,1,5,617,3,3,0) +100944 +"DATA",1130580001.201,1,5,617,3,4,0) +100945 +"DATA",1130580001.201,1,5,617,3,5,0) +100946 +"DATA",1130580001.201,1,5,617,3,6,0) +100935 +"DATA",1130580001.201,1,5,617,3,7,0) +100936 +"DATA",1130580001.201,1,5,617,3,8,0) +100939 +"DATA",1130580001.201,1,5,617,3,9,0) +100940 +"DATA",1130580001.201,1,5,617,3,10,0) +100941 +"DATA",1130580001.201,1,5,617,3,11,0) +100951 +"DATA",1130580001.201,1,5,617,3,12,0) +100952 +"DATA",1130580001.201,1,5,617,3,13,0) +100953 +"DATA",1130580001.201,1,5,617,3,14,0) +100954 +"DATA",1130580001.201,1,5,617,3,15,0) +100934 +"DATA",1130580001.201,1,5,617,3,16,0) +100937 +"DATA",1130580001.201,1,5,617,3,17,0) +100947 +"DATA",1130580001.201,1,5,617,3,18,0) +100948 +"DATA",1130580001.201,1,5,617,3,19,0) +100949 +"DATA",1130580001.201,1,5,617,4) +19 +"DATA",1130580001.201,1,5,618,0) +20 +"DATA",1130580001.201,1,5,618,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,618,1,1,0) +100950 +"DATA",1130580001.201,1,5,618,1,2,0) +100951 +"DATA",1130580001.201,1,5,618,1,3,0) +100952 +"DATA",1130580001.201,1,5,618,1,4,0) +100953 +"DATA",1130580001.201,1,5,618,1,5,0) +100954 +"DATA",1130580001.201,1,5,618,1,6,0) +100934 +"DATA",1130580001.201,1,5,618,1,7,0) +100937 +"DATA",1130580001.201,1,5,618,1,8,0) +100947 +"DATA",1130580001.201,1,5,618,1,9,0) +100948 +"DATA",1130580001.201,1,5,618,1,10,0) +100949 +"DATA",1130580001.201,1,5,618,1,11,0) +100957 +"DATA",1130580001.201,1,5,618,2) +11 +"DATA",1130580001.201,1,5,618,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,618,3,1,0) +100950 +"DATA",1130580001.201,1,5,618,3,2,0) +100951 +"DATA",1130580001.201,1,5,618,3,3,0) +100952 +"DATA",1130580001.201,1,5,618,3,4,0) +100953 +"DATA",1130580001.201,1,5,618,3,5,0) +100954 +"DATA",1130580001.201,1,5,618,3,6,0) +100934 +"DATA",1130580001.201,1,5,618,3,7,0) +100937 +"DATA",1130580001.201,1,5,618,3,8,0) +100947 +"DATA",1130580001.201,1,5,618,3,9,0) +100948 +"DATA",1130580001.201,1,5,618,3,10,0) +100949 +"DATA",1130580001.201,1,5,618,3,11,0) +100957 +"DATA",1130580001.201,1,5,618,4) +11 +"DATA",1130580001.201,1,6) +^N^Y +"DATA",1130580001.201,2,0) +SAMPLE2 +"DATA",1130580001.201,3,0) +GPLTEST SET +"DATA",1130580001.201,3,5,0) +^1130580001.2011P^16^3 +"DATA",1130580001.201,3,5,14,0) +5 +"DATA",1130580001.201,3,5,14,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,3,5,14,1,1,0) +100696 +"DATA",1130580001.201,3,5,14,1,2,0) +100622 +"DATA",1130580001.201,3,5,14,1,3,0) +100662 +"DATA",1130580001.201,3,5,14,1,4,0) +100661 +"DATA",1130580001.201,3,5,14,1,5,0) +100649 +"DATA",1130580001.201,3,5,14,1,6,0) +100338 +"DATA",1130580001.201,3,5,14,1,7,0) +100848 +"DATA",1130580001.201,3,5,14,1,8,0) +100845 +"DATA",1130580001.201,3,5,14,1,9,0) +100146 +"DATA",1130580001.201,3,5,14,1,10,0) +100616 +"DATA",1130580001.201,3,5,14,1,11,0) +100667 +"DATA",1130580001.201,3,5,14,1,12,0) +100676 +"DATA",1130580001.201,3,5,14,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,3,5,14,3,1,0) +100095 +"DATA",1130580001.201,3,5,14,3,2,0) +100696 +"DATA",1130580001.201,3,5,14,3,3,0) +100622 +"DATA",1130580001.201,3,5,14,3,4,0) +100662 +"DATA",1130580001.201,3,5,14,3,5,0) +100661 +"DATA",1130580001.201,3,5,14,3,6,0) +100499 +"DATA",1130580001.201,3,5,14,3,7,0) +100506 +"DATA",1130580001.201,3,5,14,3,8,0) +100647 +"DATA",1130580001.201,3,5,14,3,9,0) +100648 +"DATA",1130580001.201,3,5,14,3,10,0) +100649 +"DATA",1130580001.201,3,5,14,3,11,0) +100839 +"DATA",1130580001.201,3,5,14,3,12,0) +100878 +"DATA",1130580001.201,3,5,14,3,13,0) +100879 +"DATA",1130580001.201,3,5,14,3,14,0) +100894 +"DATA",1130580001.201,3,5,14,3,15,0) +100887 +"DATA",1130580001.201,3,5,14,3,16,0) +100888 +"DATA",1130580001.201,3,5,14,3,17,0) +100338 +"DATA",1130580001.201,3,5,14,3,18,0) +100848 +"DATA",1130580001.201,3,5,14,3,19,0) +100845 +"DATA",1130580001.201,3,5,14,3,20,0) +100850 +"DATA",1130580001.201,3,5,14,3,21,0) +100855 +"DATA",1130580001.201,3,5,14,3,22,0) +100846 +"DATA",1130580001.201,3,5,14,3,23,0) +100847 +"DATA",1130580001.201,3,5,14,3,24,0) +100849 +"DATA",1130580001.201,3,5,14,3,25,0) +100858 +"DATA",1130580001.201,3,5,14,3,26,0) +100852 +"DATA",1130580001.201,3,5,14,3,27,0) +100929 +"DATA",1130580001.201,3,5,14,3,28,0) +100923 +"DATA",1130580001.201,3,5,14,3,29,0) +100904 +"DATA",1130580001.201,3,5,14,3,30,0) +100905 +"DATA",1130580001.201,3,5,14,3,31,0) +100907 +"DATA",1130580001.201,3,5,14,3,32,0) +100913 +"DATA",1130580001.201,3,5,14,3,33,0) +100859 +"DATA",1130580001.201,3,5,14,3,34,0) +100860 +"DATA",1130580001.201,3,5,14,3,35,0) +100862 +"DATA",1130580001.201,3,5,14,3,36,0) +100861 +"DATA",1130580001.201,3,5,14,3,37,0) +100863 +"DATA",1130580001.201,3,5,14,3,38,0) +100851 +"DATA",1130580001.201,3,5,14,3,39,0) +100853 +"DATA",1130580001.201,3,5,14,3,40,0) +100856 +"DATA",1130580001.201,3,5,14,3,41,0) +100146 +"DATA",1130580001.201,3,5,14,3,42,0) +100857 +"DATA",1130580001.201,3,5,14,3,43,0) +100616 +"DATA",1130580001.201,3,5,14,3,44,0) +774 +"DATA",1130580001.201,3,5,14,3,45,0) +100667 +"DATA",1130580001.201,3,5,14,3,46,0) +100676 +"DATA",1130580001.201,3,5,14,3,47,0) +249 +"DATA",1130580001.201,3,5,15,0) +4 +"DATA",1130580001.201,3,5,15,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,3,5,15,1,1,0) +100095 +"DATA",1130580001.201,3,5,15,1,2,0) +100696 +"DATA",1130580001.201,3,5,15,1,3,0) +100622 +"DATA",1130580001.201,3,5,15,1,4,0) +100662 +"DATA",1130580001.201,3,5,15,1,5,0) +100661 +"DATA",1130580001.201,3,5,15,1,6,0) +100499 +"DATA",1130580001.201,3,5,15,1,7,0) +100506 +"DATA",1130580001.201,3,5,15,1,8,0) +100647 +"DATA",1130580001.201,3,5,15,1,9,0) +100648 +"DATA",1130580001.201,3,5,15,1,10,0) +100649 +"DATA",1130580001.201,3,5,15,1,11,0) +100839 +"DATA",1130580001.201,3,5,15,1,12,0) +100942 +"DATA",1130580001.201,3,5,15,1,13,0) +100943 +"DATA",1130580001.201,3,5,15,1,14,0) +100935 +"DATA",1130580001.201,3,5,15,1,15,0) +100941 +"DATA",1130580001.201,3,5,15,1,16,0) +100878 +"DATA",1130580001.201,3,5,15,1,17,0) +100879 +"DATA",1130580001.201,3,5,15,1,18,0) +100880 +"DATA",1130580001.201,3,5,15,1,19,0) +100881 +"DATA",1130580001.201,3,5,15,1,20,0) +100882 +"DATA",1130580001.201,3,5,15,1,21,0) +100874 +"DATA",1130580001.201,3,5,15,1,22,0) +100875 +"DATA",1130580001.201,3,5,15,1,23,0) +100876 +"DATA",1130580001.201,3,5,15,1,24,0) +100883 +"DATA",1130580001.201,3,5,15,1,25,0) +100894 +"DATA",1130580001.201,3,5,15,1,26,0) +100895 +"DATA",1130580001.201,3,5,15,1,27,0) +100896 +"DATA",1130580001.201,3,5,15,1,28,0) +100897 +"DATA",1130580001.201,3,5,15,1,29,0) +100898 +"DATA",1130580001.201,3,5,15,1,30,0) +100899 +"DATA",1130580001.201,3,5,15,1,31,0) +100900 +"DATA",1130580001.201,3,5,15,1,32,0) +100901 +"DATA",1130580001.201,3,5,15,1,33,0) +100902 +"DATA",1130580001.201,3,5,15,1,34,0) +100903 +"DATA",1130580001.201,3,5,15,1,35,0) +100884 +"DATA",1130580001.201,3,5,15,1,36,0) +100885 +"DATA",1130580001.201,3,5,15,1,37,0) +100886 +"DATA",1130580001.201,3,5,15,1,38,0) +100887 +"DATA",1130580001.201,3,5,15,1,39,0) +100888 +"DATA",1130580001.201,3,5,15,1,40,0) +100889 +"DATA",1130580001.201,3,5,15,1,41,0) +100890 +"DATA",1130580001.201,3,5,15,1,42,0) +100891 +"DATA",1130580001.201,3,5,15,1,43,0) +100338 +"DATA",1130580001.201,3,5,15,1,44,0) +100848 +"DATA",1130580001.201,3,5,15,1,45,0) +100845 +"DATA",1130580001.201,3,5,15,1,46,0) +100850 +"DATA",1130580001.201,3,5,15,1,47,0) +100855 +"DATA",1130580001.201,3,5,15,1,48,0) +100846 +"DATA",1130580001.201,3,5,15,1,49,0) +100847 +"DATA",1130580001.201,3,5,15,1,50,0) +100849 +"DATA",1130580001.201,3,5,15,1,51,0) +100858 +"DATA",1130580001.201,3,5,15,1,52,0) +100852 +"DATA",1130580001.201,3,5,15,1,53,0) +100929 +"DATA",1130580001.201,3,5,15,1,54,0) +100930 +"DATA",1130580001.201,3,5,15,1,55,0) +100931 +"DATA",1130580001.201,3,5,15,1,56,0) +100932 +"DATA",1130580001.201,3,5,15,1,57,0) +100933 +"DATA",1130580001.201,3,5,15,1,58,0) +100914 +"DATA",1130580001.201,3,5,15,1,59,0) +100915 +"DATA",1130580001.201,3,5,15,1,60,0) +100917 +"DATA",1130580001.201,3,5,15,1,61,0) +100923 +"DATA",1130580001.201,3,5,15,1,62,0) +100904 +"DATA",1130580001.201,3,5,15,1,63,0) +100905 +"DATA",1130580001.201,3,5,15,1,64,0) +100906 +"DATA",1130580001.201,3,5,15,1,65,0) +100907 +"DATA",1130580001.201,3,5,15,1,66,0) +100909 +"DATA",1130580001.201,3,5,15,1,67,0) +100913 +"DATA",1130580001.201,3,5,15,1,68,0) +100859 +"DATA",1130580001.201,3,5,15,1,69,0) +100860 +"DATA",1130580001.201,3,5,15,1,70,0) +100862 +"DATA",1130580001.201,3,5,15,1,71,0) +100861 +"DATA",1130580001.201,3,5,15,1,72,0) +100863 +"DATA",1130580001.201,3,5,15,1,73,0) +100851 +"DATA",1130580001.201,3,5,15,1,74,0) +100853 +"DATA",1130580001.201,3,5,15,1,75,0) +100856 +"DATA",1130580001.201,3,5,15,1,76,0) +100146 +"DATA",1130580001.201,3,5,15,1,77,0) +100857 +"DATA",1130580001.201,3,5,15,1,78,0) +100955 +"DATA",1130580001.201,3,5,15,1,79,0) +100616 +"DATA",1130580001.201,3,5,15,1,80,0) +100146 +"DATA",1130580001.201,3,5,15,1,81,0) +100499 +"DATA",1130580001.201,3,5,15,1,82,0) +100506 +"DATA",1130580001.201,3,5,15,1,83,0) +774 +"DATA",1130580001.201,3,5,15,1,84,0) +774 +"DATA",1130580001.201,3,5,15,1,85,0) +100667 +"DATA",1130580001.201,3,5,15,1,86,0) +100676 +"DATA",1130580001.201,3,5,15,1,87,0) +100951 +"DATA",1130580001.201,3,5,15,1,88,0) +100952 +"DATA",1130580001.201,3,5,15,1,89,0) +100953 +"DATA",1130580001.201,3,5,15,1,90,0) +100954 +"DATA",1130580001.201,3,5,15,1,91,0) +100934 +"DATA",1130580001.201,3,5,15,1,92,0) +100937 +"DATA",1130580001.201,3,5,15,1,93,0) +100947 +"DATA",1130580001.201,3,5,15,1,94,0) +100948 +"DATA",1130580001.201,3,5,15,1,95,0) +100949 +"DATA",1130580001.201,3,5,15,1,96,0) +249 +"DATA",1130580001.201,3,5,15,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,3,5,15,3,1,0) +100095 +"DATA",1130580001.201,3,5,15,3,2,0) +100696 +"DATA",1130580001.201,3,5,15,3,3,0) +100622 +"DATA",1130580001.201,3,5,15,3,4,0) +100662 +"DATA",1130580001.201,3,5,15,3,5,0) +100661 +"DATA",1130580001.201,3,5,15,3,6,0) +100499 +"DATA",1130580001.201,3,5,15,3,7,0) +100506 +"DATA",1130580001.201,3,5,15,3,8,0) +100647 +"DATA",1130580001.201,3,5,15,3,9,0) +100648 +"DATA",1130580001.201,3,5,15,3,10,0) +100649 +"DATA",1130580001.201,3,5,15,3,11,0) +100839 +"DATA",1130580001.201,3,5,15,3,12,0) +100942 +"DATA",1130580001.201,3,5,15,3,13,0) +100943 +"DATA",1130580001.201,3,5,15,3,14,0) +100935 +"DATA",1130580001.201,3,5,15,3,15,0) +100941 +"DATA",1130580001.201,3,5,15,3,16,0) +100878 +"DATA",1130580001.201,3,5,15,3,17,0) +100879 +"DATA",1130580001.201,3,5,15,3,18,0) +100880 +"DATA",1130580001.201,3,5,15,3,19,0) +100881 +"DATA",1130580001.201,3,5,15,3,20,0) +100882 +"DATA",1130580001.201,3,5,15,3,21,0) +100874 +"DATA",1130580001.201,3,5,15,3,22,0) +100875 +"DATA",1130580001.201,3,5,15,3,23,0) +100876 +"DATA",1130580001.201,3,5,15,3,24,0) +100883 +"DATA",1130580001.201,3,5,15,3,25,0) +100894 +"DATA",1130580001.201,3,5,15,3,26,0) +100895 +"DATA",1130580001.201,3,5,15,3,27,0) +100896 +"DATA",1130580001.201,3,5,15,3,28,0) +100897 +"DATA",1130580001.201,3,5,15,3,29,0) +100898 +"DATA",1130580001.201,3,5,15,3,30,0) +100899 +"DATA",1130580001.201,3,5,15,3,31,0) +100900 +"DATA",1130580001.201,3,5,15,3,32,0) +100901 +"DATA",1130580001.201,3,5,15,3,33,0) +100902 +"DATA",1130580001.201,3,5,15,3,34,0) +100903 +"DATA",1130580001.201,3,5,15,3,35,0) +100884 +"DATA",1130580001.201,3,5,15,3,36,0) +100885 +"DATA",1130580001.201,3,5,15,3,37,0) +100886 +"DATA",1130580001.201,3,5,15,3,38,0) +100887 +"DATA",1130580001.201,3,5,15,3,39,0) +100888 +"DATA",1130580001.201,3,5,15,3,40,0) +100889 +"DATA",1130580001.201,3,5,15,3,41,0) +100890 +"DATA",1130580001.201,3,5,15,3,42,0) +100891 +"DATA",1130580001.201,3,5,15,3,43,0) +100338 +"DATA",1130580001.201,3,5,15,3,44,0) +100848 +"DATA",1130580001.201,3,5,15,3,45,0) +100845 +"DATA",1130580001.201,3,5,15,3,46,0) +100850 +"DATA",1130580001.201,3,5,15,3,47,0) +100855 +"DATA",1130580001.201,3,5,15,3,48,0) +100846 +"DATA",1130580001.201,3,5,15,3,49,0) +100847 +"DATA",1130580001.201,3,5,15,3,50,0) +100849 +"DATA",1130580001.201,3,5,15,3,51,0) +100858 +"DATA",1130580001.201,3,5,15,3,52,0) +100852 +"DATA",1130580001.201,3,5,15,3,53,0) +100929 +"DATA",1130580001.201,3,5,15,3,54,0) +100930 +"DATA",1130580001.201,3,5,15,3,55,0) +100931 +"DATA",1130580001.201,3,5,15,3,56,0) +100932 +"DATA",1130580001.201,3,5,15,3,57,0) +100933 +"DATA",1130580001.201,3,5,15,3,58,0) +100914 +"DATA",1130580001.201,3,5,15,3,59,0) +100915 +"DATA",1130580001.201,3,5,15,3,60,0) +100917 +"DATA",1130580001.201,3,5,15,3,61,0) +100923 +"DATA",1130580001.201,3,5,15,3,62,0) +100904 +"DATA",1130580001.201,3,5,15,3,63,0) +100905 +"DATA",1130580001.201,3,5,15,3,64,0) +100906 +"DATA",1130580001.201,3,5,15,3,65,0) +100907 +"DATA",1130580001.201,3,5,15,3,66,0) +100909 +"DATA",1130580001.201,3,5,15,3,67,0) +100913 +"DATA",1130580001.201,3,5,15,3,68,0) +100859 +"DATA",1130580001.201,3,5,15,3,69,0) +100860 +"DATA",1130580001.201,3,5,15,3,70,0) +100862 +"DATA",1130580001.201,3,5,15,3,71,0) +100861 +"DATA",1130580001.201,3,5,15,3,72,0) +100863 +"DATA",1130580001.201,3,5,15,3,73,0) +100851 +"DATA",1130580001.201,3,5,15,3,74,0) +100853 +"DATA",1130580001.201,3,5,15,3,75,0) +100856 +"DATA",1130580001.201,3,5,15,3,76,0) +100146 +"DATA",1130580001.201,3,5,15,3,77,0) +100857 +"DATA",1130580001.201,3,5,15,3,78,0) +100955 +"DATA",1130580001.201,3,5,15,3,79,0) +100616 +"DATA",1130580001.201,3,5,15,3,80,0) +100146 +"DATA",1130580001.201,3,5,15,3,81,0) +100499 +"DATA",1130580001.201,3,5,15,3,82,0) +100506 +"DATA",1130580001.201,3,5,15,3,83,0) +774 +"DATA",1130580001.201,3,5,15,3,84,0) +774 +"DATA",1130580001.201,3,5,15,3,85,0) +100667 +"DATA",1130580001.201,3,5,15,3,86,0) +100676 +"DATA",1130580001.201,3,5,15,3,87,0) +100951 +"DATA",1130580001.201,3,5,15,3,88,0) +100952 +"DATA",1130580001.201,3,5,15,3,89,0) +100953 +"DATA",1130580001.201,3,5,15,3,90,0) +100954 +"DATA",1130580001.201,3,5,15,3,91,0) +100934 +"DATA",1130580001.201,3,5,15,3,92,0) +100937 +"DATA",1130580001.201,3,5,15,3,93,0) +100947 +"DATA",1130580001.201,3,5,15,3,94,0) +100948 +"DATA",1130580001.201,3,5,15,3,95,0) +100949 +"DATA",1130580001.201,3,5,15,3,96,0) +249 +"DATA",1130580001.201,3,5,16,0) +6 +"DATA",1130580001.201,3,5,16,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,3,5,16,1,1,0) +100647 +"DATA",1130580001.201,3,5,16,1,2,0) +100894 +"DATA",1130580001.201,3,5,16,1,3,0) +100900 +"DATA",1130580001.201,3,5,16,1,4,0) +100901 +"DATA",1130580001.201,3,5,16,1,5,0) +100902 +"DATA",1130580001.201,3,5,16,1,6,0) +100903 +"DATA",1130580001.201,3,5,16,1,7,0) +100885 +"DATA",1130580001.201,3,5,16,1,8,0) +100887 +"DATA",1130580001.201,3,5,16,1,9,0) +100890 +"DATA",1130580001.201,3,5,16,1,10,0) +100891 +"DATA",1130580001.201,3,5,16,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,3,5,16,3,1,0) +100696 +"DATA",1130580001.201,3,5,16,3,2,0) +100622 +"DATA",1130580001.201,3,5,16,3,3,0) +100662 +"DATA",1130580001.201,3,5,16,3,4,0) +100661 +"DATA",1130580001.201,3,5,16,3,5,0) +100499 +"DATA",1130580001.201,3,5,16,3,6,0) +100506 +"DATA",1130580001.201,3,5,16,3,7,0) +100647 +"DATA",1130580001.201,3,5,16,3,8,0) +100648 +"DATA",1130580001.201,3,5,16,3,9,0) +100649 +"DATA",1130580001.201,3,5,16,3,10,0) +100839 +"DATA",1130580001.201,3,5,16,3,11,0) +100894 +"DATA",1130580001.201,3,5,16,3,12,0) +100895 +"DATA",1130580001.201,3,5,16,3,13,0) +100896 +"DATA",1130580001.201,3,5,16,3,14,0) +100897 +"DATA",1130580001.201,3,5,16,3,15,0) +100898 +"DATA",1130580001.201,3,5,16,3,16,0) +100899 +"DATA",1130580001.201,3,5,16,3,17,0) +100900 +"DATA",1130580001.201,3,5,16,3,18,0) +100901 +"DATA",1130580001.201,3,5,16,3,19,0) +100902 +"DATA",1130580001.201,3,5,16,3,20,0) +100903 +"DATA",1130580001.201,3,5,16,3,21,0) +100885 +"DATA",1130580001.201,3,5,16,3,22,0) +100887 +"DATA",1130580001.201,3,5,16,3,23,0) +100888 +"DATA",1130580001.201,3,5,16,3,24,0) +100889 +"DATA",1130580001.201,3,5,16,3,25,0) +100890 +"DATA",1130580001.201,3,5,16,3,26,0) +100891 +"DATA",1130580001.201,3,5,16,3,27,0) +100929 +"DATA",1130580001.201,3,5,16,3,28,0) +100930 +"DATA",1130580001.201,3,5,16,3,29,0) +100931 +"DATA",1130580001.201,3,5,16,3,30,0) +100932 +"DATA",1130580001.201,3,5,16,3,31,0) +100933 +"DATA",1130580001.201,3,5,16,3,32,0) +100616 +"DATA",1130580001.201,3,5,16,3,33,0) +774 +"DATA",1130580001.201,3,5,16,3,34,0) +100667 +"DATA",1130580001.201,3,5,16,3,35,0) +100676 +"DATA",1130580001.201,3,5,16,3,36,0) +249 +"DATA",1130580001.201,4,0) +MEANINGFUL USE +"DATA",1130580001.201,4,4) +^^3100101^3101231 +"DATA",1130580001.201,4,5,0) +^1130580001.2011P^1^1 +"DATA",1130580001.201,4,5,1,0) +22 +"DATA",1130580001.201,4,5,1,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,4,5,1,1,1,0) +100894 +"DATA",1130580001.201,4,5,1,1,2,0) +100897 +"DATA",1130580001.201,4,5,1,1,3,0) +100885 +"DATA",1130580001.201,4,5,1,1,4,0) +100929 +"DATA",1130580001.201,4,5,1,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,4,5,1,3,1,0) +100894 +"DATA",1130580001.201,4,5,1,3,2,0) +100897 +"DATA",1130580001.201,4,5,1,3,3,0) +100885 +"DATA",1130580001.201,4,5,1,3,4,0) +100929 +"DATA",1130580001.201,4,6) +^^Y +"DATA",1130580001.201,5,0) +HOS 2011 MEANINGFUL USE +"DATA",1130580001.201,5,5,0) +^1130580001.2011P^361^15 +"DATA",1130580001.201,5,5,347,0) +23 +"DATA",1130580001.201,5,5,347,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,347,1,1,0) +109 +"DATA",1130580001.201,5,5,347,1,2,0) +135 +"DATA",1130580001.201,5,5,347,1,3,0) +113 +"DATA",1130580001.201,5,5,347,1,4,0) +138 +"DATA",1130580001.201,5,5,347,1,5,0) +122 +"DATA",1130580001.201,5,5,347,2) +5 +"DATA",1130580001.201,5,5,347,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,347,3,1,0) +109 +"DATA",1130580001.201,5,5,347,3,2,0) +135 +"DATA",1130580001.201,5,5,347,3,3,0) +113 +"DATA",1130580001.201,5,5,347,3,4,0) +138 +"DATA",1130580001.201,5,5,347,3,5,0) +122 +"DATA",1130580001.201,5,5,347,4) +5^100 +"DATA",1130580001.201,5,5,348,0) +24 +"DATA",1130580001.201,5,5,348,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,348,1,1,0) +15 +"DATA",1130580001.201,5,5,348,1,2,0) +152 +"DATA",1130580001.201,5,5,348,2) +2 +"DATA",1130580001.201,5,5,348,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,348,3,1,0) +109 +"DATA",1130580001.201,5,5,348,3,2,0) +135 +"DATA",1130580001.201,5,5,348,3,3,0) +113 +"DATA",1130580001.201,5,5,348,3,4,0) +138 +"DATA",1130580001.201,5,5,348,3,5,0) +122 +"DATA",1130580001.201,5,5,348,4) +5^40 +"DATA",1130580001.201,5,5,349,0) +32 +"DATA",1130580001.201,5,5,349,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,349,1,1,0) +111 +"DATA",1130580001.201,5,5,349,2) +1 +"DATA",1130580001.201,5,5,349,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,349,3,1,0) +146 +"DATA",1130580001.201,5,5,349,3,2,0) +97 +"DATA",1130580001.201,5,5,349,3,3,0) +135 +"DATA",1130580001.201,5,5,349,4) +3^33 +"DATA",1130580001.201,5,5,350,0) +33 +"DATA",1130580001.201,5,5,350,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,350,1,1,0) +146 +"DATA",1130580001.201,5,5,350,1,2,0) +97 +"DATA",1130580001.201,5,5,350,1,3,0) +135 +"DATA",1130580001.201,5,5,350,2) +3 +"DATA",1130580001.201,5,5,350,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,350,3,1,0) +146 +"DATA",1130580001.201,5,5,350,3,2,0) +97 +"DATA",1130580001.201,5,5,350,3,3,0) +135 +"DATA",1130580001.201,5,5,350,4) +3^100 +"DATA",1130580001.201,5,5,351,0) +34 +"DATA",1130580001.201,5,5,351,2) +0 +"DATA",1130580001.201,5,5,351,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,351,3,1,0) +128 +"DATA",1130580001.201,5,5,351,3,2,0) +141 +"DATA",1130580001.201,5,5,351,4) +2^0 +"DATA",1130580001.201,5,5,352,0) +35 +"DATA",1130580001.201,5,5,352,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,352,1,1,0) +128 +"DATA",1130580001.201,5,5,352,2) +1 +"DATA",1130580001.201,5,5,352,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,352,3,1,0) +128 +"DATA",1130580001.201,5,5,352,3,2,0) +141 +"DATA",1130580001.201,5,5,352,4) +2^50 +"DATA",1130580001.201,5,5,353,0) +36 +"DATA",1130580001.201,5,5,353,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,353,1,1,0) +120 +"DATA",1130580001.201,5,5,353,2) +1 +"DATA",1130580001.201,5,5,353,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,353,3,1,0) +127 +"DATA",1130580001.201,5,5,353,3,2,0) +120 +"DATA",1130580001.201,5,5,353,4) +2^50 +"DATA",1130580001.201,5,5,354,0) +37 +"DATA",1130580001.201,5,5,354,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,354,1,1,0) +150 +"DATA",1130580001.201,5,5,354,2) +1 +"DATA",1130580001.201,5,5,354,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,5,5,354,3,1,0) +127 +"DATA",1130580001.201,5,5,354,3,2,0) +120 +"DATA",1130580001.201,5,5,354,3,3,0) +106 +"DATA",1130580001.201,5,5,354,3,4,0) +128 +"DATA",1130580001.201,5,5,354,3,5,0) +150 +"DATA",1130580001.201,5,5,354,3,6,0) +141 +"DATA",1130580001.201,5,5,354,4) +6^17 +"DATA",1130580001.201,5,5,355,0) +25 +"DATA",1130580001.201,5,5,355,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,355,1,1,0) +129 +"DATA",1130580001.201,5,5,355,1,2,0) +111 +"DATA",1130580001.201,5,5,355,2) +2 +"DATA",1130580001.201,5,5,355,3,0) +^1130580001.20112P^15^15 +"DATA",1130580001.201,5,5,355,3,1,0) +144 +"DATA",1130580001.201,5,5,355,3,2,0) +103 +"DATA",1130580001.201,5,5,355,3,3,0) +145 +"DATA",1130580001.201,5,5,355,3,4,0) +123 +"DATA",1130580001.201,5,5,355,3,5,0) +147 +"DATA",1130580001.201,5,5,355,3,6,0) +129 +"DATA",1130580001.201,5,5,355,3,7,0) +149 +"DATA",1130580001.201,5,5,355,3,8,0) +130 +"DATA",1130580001.201,5,5,355,3,9,0) +131 +"DATA",1130580001.201,5,5,355,3,10,0) +109 +"DATA",1130580001.201,5,5,355,3,11,0) +110 +"DATA",1130580001.201,5,5,355,3,12,0) +111 +"DATA",1130580001.201,5,5,355,3,13,0) +134 +"DATA",1130580001.201,5,5,355,3,14,0) +113 +"DATA",1130580001.201,5,5,355,3,15,0) +138 +"DATA",1130580001.201,5,5,355,4) +15^13 +"DATA",1130580001.201,5,5,356,0) +26 +"DATA",1130580001.201,5,5,356,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,356,1,1,0) +131 +"DATA",1130580001.201,5,5,356,2) +1 +"DATA",1130580001.201,5,5,356,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,356,3,1,0) +149 +"DATA",1130580001.201,5,5,356,3,2,0) +130 +"DATA",1130580001.201,5,5,356,3,3,0) +131 +"DATA",1130580001.201,5,5,356,4) +3^33 +"DATA",1130580001.201,5,5,357,0) +27 +"DATA",1130580001.201,5,5,357,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,357,1,1,0) +138 +"DATA",1130580001.201,5,5,357,2) +1 +"DATA",1130580001.201,5,5,357,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,357,3,1,0) +109 +"DATA",1130580001.201,5,5,357,3,2,0) +113 +"DATA",1130580001.201,5,5,357,3,3,0) +138 +"DATA",1130580001.201,5,5,357,4) +3^33 +"DATA",1130580001.201,5,5,358,0) +28 +"DATA",1130580001.201,5,5,358,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,358,1,1,0) +111 +"DATA",1130580001.201,5,5,358,2) +1 +"DATA",1130580001.201,5,5,358,3,0) +^1130580001.20112P^8^8 +"DATA",1130580001.201,5,5,358,3,1,0) +129 +"DATA",1130580001.201,5,5,358,3,2,0) +149 +"DATA",1130580001.201,5,5,358,3,3,0) +130 +"DATA",1130580001.201,5,5,358,3,4,0) +131 +"DATA",1130580001.201,5,5,358,3,5,0) +110 +"DATA",1130580001.201,5,5,358,3,6,0) +111 +"DATA",1130580001.201,5,5,358,3,7,0) +134 +"DATA",1130580001.201,5,5,358,3,8,0) +41 +"DATA",1130580001.201,5,5,358,4) +8^13 +"DATA",1130580001.201,5,5,359,0) +31 +"DATA",1130580001.201,5,5,359,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,359,1,1,0) +144 +"DATA",1130580001.201,5,5,359,1,2,0) +145 +"DATA",1130580001.201,5,5,359,1,3,0) +123 +"DATA",1130580001.201,5,5,359,1,4,0) +147 +"DATA",1130580001.201,5,5,359,1,5,0) +129 +"DATA",1130580001.201,5,5,359,2) +5 +"DATA",1130580001.201,5,5,359,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,5,5,359,3,1,0) +144 +"DATA",1130580001.201,5,5,359,3,2,0) +103 +"DATA",1130580001.201,5,5,359,3,3,0) +145 +"DATA",1130580001.201,5,5,359,3,4,0) +125 +"DATA",1130580001.201,5,5,359,3,5,0) +123 +"DATA",1130580001.201,5,5,359,3,6,0) +147 +"DATA",1130580001.201,5,5,359,3,7,0) +129 +"DATA",1130580001.201,5,5,359,3,8,0) +149 +"DATA",1130580001.201,5,5,359,3,9,0) +130 +"DATA",1130580001.201,5,5,359,3,10,0) +131 +"DATA",1130580001.201,5,5,359,3,11,0) +109 +"DATA",1130580001.201,5,5,359,3,12,0) +110 +"DATA",1130580001.201,5,5,359,3,13,0) +111 +"DATA",1130580001.201,5,5,359,3,14,0) +133 +"DATA",1130580001.201,5,5,359,3,15,0) +134 +"DATA",1130580001.201,5,5,359,3,16,0) +113 +"DATA",1130580001.201,5,5,359,3,17,0) +138 +"DATA",1130580001.201,5,5,359,4) +17^29 +"DATA",1130580001.201,5,5,360,0) +29 +"DATA",1130580001.201,5,5,360,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,360,1,1,0) +144 +"DATA",1130580001.201,5,5,360,2) +1 +"DATA",1130580001.201,5,5,360,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,360,3,1,0) +144 +"DATA",1130580001.201,5,5,360,3,2,0) +103 +"DATA",1130580001.201,5,5,360,3,3,0) +145 +"DATA",1130580001.201,5,5,360,4) +3^33 +"DATA",1130580001.201,5,5,361,0) +30 +"DATA",1130580001.201,5,5,361,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,361,1,1,0) +125 +"DATA",1130580001.201,5,5,361,1,2,0) +123 +"DATA",1130580001.201,5,5,361,1,3,0) +147 +"DATA",1130580001.201,5,5,361,2) +3 +"DATA",1130580001.201,5,5,361,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,5,5,361,3,1,0) +125 +"DATA",1130580001.201,5,5,361,3,2,0) +123 +"DATA",1130580001.201,5,5,361,3,3,0) +127 +"DATA",1130580001.201,5,5,361,3,4,0) +120 +"DATA",1130580001.201,5,5,361,3,5,0) +147 +"DATA",1130580001.201,5,5,361,3,6,0) +107 +"DATA",1130580001.201,5,5,361,3,7,0) +134 +"DATA",1130580001.201,5,5,361,4) +7^43 +"DATA",1130580001.201,6,0) +EP 2011 MEANINGFUL USE +"DATA",1130580001.201,6,5,0) +^1130580001.2011P^214^43 +"DATA",1130580001.201,6,5,172,0) +59 +"DATA",1130580001.201,6,5,172,2) +0 +"DATA",1130580001.201,6,5,173,0) +60 +"DATA",1130580001.201,6,5,173,2) +0 +"DATA",1130580001.201,6,5,174,0) +71 +"DATA",1130580001.201,6,5,174,2) +0 +"DATA",1130580001.201,6,5,175,0) +72 +"DATA",1130580001.201,6,5,175,2) +0 +"DATA",1130580001.201,6,5,176,0) +40 +"DATA",1130580001.201,6,5,176,2) +0 +"DATA",1130580001.201,6,5,177,0) +73 +"DATA",1130580001.201,6,5,177,2) +0 +"DATA",1130580001.201,6,5,178,0) +74 +"DATA",1130580001.201,6,5,178,2) +0 +"DATA",1130580001.201,6,5,179,0) +43 +"DATA",1130580001.201,6,5,179,2) +0 +"DATA",1130580001.201,6,5,179,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,6,5,179,3,1,0) +11 +"DATA",1130580001.201,6,5,179,3,2,0) +30 +"DATA",1130580001.201,6,5,179,3,3,0) +4 +"DATA",1130580001.201,6,5,179,3,4,0) +52 +"DATA",1130580001.201,6,5,179,4) +4 +"DATA",1130580001.201,6,5,180,0) +63 +"DATA",1130580001.201,6,5,180,2) +0 +"DATA",1130580001.201,6,5,181,0) +41 +"DATA",1130580001.201,6,5,181,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,6,5,181,1,1,0) +30 +"DATA",1130580001.201,6,5,181,2) +1 +"DATA",1130580001.201,6,5,181,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,6,5,181,3,1,0) +30 +"DATA",1130580001.201,6,5,181,4) +1 +"DATA",1130580001.201,6,5,182,0) +50 +"DATA",1130580001.201,6,5,182,2) +0 +"DATA",1130580001.201,6,5,183,0) +75 +"DATA",1130580001.201,6,5,183,2) +0 +"DATA",1130580001.201,6,5,184,0) +76 +"DATA",1130580001.201,6,5,184,2) +0 +"DATA",1130580001.201,6,5,185,0) +51 +"DATA",1130580001.201,6,5,185,2) +0 +"DATA",1130580001.201,6,5,186,0) +77 +"DATA",1130580001.201,6,5,186,2) +0 +"DATA",1130580001.201,6,5,187,0) +44 +"DATA",1130580001.201,6,5,187,2) +0 +"DATA",1130580001.201,6,5,188,0) +42 +"DATA",1130580001.201,6,5,188,2) +0 +"DATA",1130580001.201,6,5,189,0) +58 +"DATA",1130580001.201,6,5,189,2) +0 +"DATA",1130580001.201,6,5,190,0) +78 +"DATA",1130580001.201,6,5,190,2) +0 +"DATA",1130580001.201,6,5,191,0) +64 +"DATA",1130580001.201,6,5,191,2) +0 +"DATA",1130580001.201,6,5,192,0) +66 +"DATA",1130580001.201,6,5,192,2) +0 +"DATA",1130580001.201,6,5,193,0) +45 +"DATA",1130580001.201,6,5,193,2) +0 +"DATA",1130580001.201,6,5,194,0) +47 +"DATA",1130580001.201,6,5,194,2) +0 +"DATA",1130580001.201,6,5,195,0) +65 +"DATA",1130580001.201,6,5,195,2) +0 +"DATA",1130580001.201,6,5,196,0) +46 +"DATA",1130580001.201,6,5,196,2) +0 +"DATA",1130580001.201,6,5,197,0) +52 +"DATA",1130580001.201,6,5,197,2) +0 +"DATA",1130580001.201,6,5,198,0) +70 +"DATA",1130580001.201,6,5,198,2) +0 +"DATA",1130580001.201,6,5,199,0) +49 +"DATA",1130580001.201,6,5,199,2) +0 +"DATA",1130580001.201,6,5,200,0) +69 +"DATA",1130580001.201,6,5,200,2) +0 +"DATA",1130580001.201,6,5,201,0) +67 +"DATA",1130580001.201,6,5,201,2) +0 +"DATA",1130580001.201,6,5,202,0) +79 +"DATA",1130580001.201,6,5,202,2) +0 +"DATA",1130580001.201,6,5,203,0) +48 +"DATA",1130580001.201,6,5,203,2) +0 +"DATA",1130580001.201,6,5,204,0) +53 +"DATA",1130580001.201,6,5,204,2) +0 +"DATA",1130580001.201,6,5,205,0) +68 +"DATA",1130580001.201,6,5,205,2) +0 +"DATA",1130580001.201,6,5,206,0) +55 +"DATA",1130580001.201,6,5,206,2) +0 +"DATA",1130580001.201,6,5,207,0) +56 +"DATA",1130580001.201,6,5,207,2) +0 +"DATA",1130580001.201,6,5,208,0) +57 +"DATA",1130580001.201,6,5,208,2) +0 +"DATA",1130580001.201,6,5,209,0) +54 +"DATA",1130580001.201,6,5,209,2) +0 +"DATA",1130580001.201,6,5,210,0) +61 +"DATA",1130580001.201,6,5,210,2) +0 +"DATA",1130580001.201,6,5,211,0) +39 +"DATA",1130580001.201,6,5,211,2) +0 +"DATA",1130580001.201,6,5,212,0) +80 +"DATA",1130580001.201,6,5,212,2) +0 +"DATA",1130580001.201,6,5,213,0) +62 +"DATA",1130580001.201,6,5,213,2) +0 +"DATA",1130580001.201,6,5,214,0) +81 +"DATA",1130580001.201,6,5,214,2) +0 +"DATA",1130580001.201,7,0) +MU EP 2011 CERTIFICATION +"DATA",1130580001.201,7,5,0) +^1130580001.2011P^133^21 +"DATA",1130580001.201,7,5,113,0) +41 +"DATA",1130580001.201,7,5,113,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,113,1,1,0) +30 +"DATA",1130580001.201,7,5,113,1,2,0) +74 +"DATA",1130580001.201,7,5,113,2) +2 +"DATA",1130580001.201,7,5,113,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,113,3,1,0) +73 +"DATA",1130580001.201,7,5,113,3,2,0) +11 +"DATA",1130580001.201,7,5,113,3,3,0) +80 +"DATA",1130580001.201,7,5,113,3,4,0) +17 +"DATA",1130580001.201,7,5,113,3,5,0) +21 +"DATA",1130580001.201,7,5,113,3,6,0) +23 +"DATA",1130580001.201,7,5,113,3,7,0) +30 +"DATA",1130580001.201,7,5,113,3,8,0) +82 +"DATA",1130580001.201,7,5,113,3,9,0) +77 +"DATA",1130580001.201,7,5,113,3,10,0) +4 +"DATA",1130580001.201,7,5,113,3,11,0) +52 +"DATA",1130580001.201,7,5,113,3,12,0) +75 +"DATA",1130580001.201,7,5,113,4) +12^17 +"DATA",1130580001.201,7,5,114,0) +83 +"DATA",1130580001.201,7,5,114,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,114,1,1,0) +29 +"DATA",1130580001.201,7,5,114,1,2,0) +56 +"DATA",1130580001.201,7,5,114,1,3,0) +58 +"DATA",1130580001.201,7,5,114,1,4,0) +64 +"DATA",1130580001.201,7,5,114,1,5,0) +69 +"DATA",1130580001.201,7,5,114,2) +5 +"DATA",1130580001.201,7,5,114,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,114,3,1,0) +9 +"DATA",1130580001.201,7,5,114,3,2,0) +13 +"DATA",1130580001.201,7,5,114,3,3,0) +29 +"DATA",1130580001.201,7,5,114,3,4,0) +56 +"DATA",1130580001.201,7,5,114,3,5,0) +58 +"DATA",1130580001.201,7,5,114,3,6,0) +59 +"DATA",1130580001.201,7,5,114,3,7,0) +60 +"DATA",1130580001.201,7,5,114,3,8,0) +64 +"DATA",1130580001.201,7,5,114,3,9,0) +65 +"DATA",1130580001.201,7,5,114,3,10,0) +69 +"DATA",1130580001.201,7,5,114,4) +10^50 +"DATA",1130580001.201,7,5,115,0) +42 +"DATA",1130580001.201,7,5,115,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,115,1,1,0) +11 +"DATA",1130580001.201,7,5,115,1,2,0) +80 +"DATA",1130580001.201,7,5,115,1,3,0) +17 +"DATA",1130580001.201,7,5,115,1,4,0) +21 +"DATA",1130580001.201,7,5,115,1,5,0) +30 +"DATA",1130580001.201,7,5,115,1,6,0) +4 +"DATA",1130580001.201,7,5,115,2) +6 +"DATA",1130580001.201,7,5,115,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,7,5,115,3,1,0) +11 +"DATA",1130580001.201,7,5,115,3,2,0) +80 +"DATA",1130580001.201,7,5,115,3,3,0) +17 +"DATA",1130580001.201,7,5,115,3,4,0) +21 +"DATA",1130580001.201,7,5,115,3,5,0) +23 +"DATA",1130580001.201,7,5,115,3,6,0) +30 +"DATA",1130580001.201,7,5,115,3,7,0) +4 +"DATA",1130580001.201,7,5,115,4) +7^86 +"DATA",1130580001.201,7,5,116,0) +45 +"DATA",1130580001.201,7,5,116,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,116,1,1,0) +11 +"DATA",1130580001.201,7,5,116,1,2,0) +77 +"DATA",1130580001.201,7,5,116,1,3,0) +75 +"DATA",1130580001.201,7,5,116,2) +3 +"DATA",1130580001.201,7,5,116,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,116,3,1,0) +73 +"DATA",1130580001.201,7,5,116,3,2,0) +11 +"DATA",1130580001.201,7,5,116,3,3,0) +21 +"DATA",1130580001.201,7,5,116,3,4,0) +23 +"DATA",1130580001.201,7,5,116,3,5,0) +77 +"DATA",1130580001.201,7,5,116,3,6,0) +75 +"DATA",1130580001.201,7,5,116,4) +6^50 +"DATA",1130580001.201,7,5,117,0) +47 +"DATA",1130580001.201,7,5,117,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,117,1,1,0) +73 +"DATA",1130580001.201,7,5,117,1,2,0) +11 +"DATA",1130580001.201,7,5,117,1,3,0) +21 +"DATA",1130580001.201,7,5,117,1,4,0) +75 +"DATA",1130580001.201,7,5,117,2) +4 +"DATA",1130580001.201,7,5,117,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,117,3,1,0) +73 +"DATA",1130580001.201,7,5,117,3,2,0) +11 +"DATA",1130580001.201,7,5,117,3,3,0) +21 +"DATA",1130580001.201,7,5,117,3,4,0) +23 +"DATA",1130580001.201,7,5,117,3,5,0) +77 +"DATA",1130580001.201,7,5,117,3,6,0) +75 +"DATA",1130580001.201,7,5,117,4) +6^67 +"DATA",1130580001.201,7,5,118,0) +46 +"DATA",1130580001.201,7,5,118,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,118,1,1,0) +73 +"DATA",1130580001.201,7,5,118,1,2,0) +21 +"DATA",1130580001.201,7,5,118,1,3,0) +77 +"DATA",1130580001.201,7,5,118,2) +3 +"DATA",1130580001.201,7,5,118,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,118,3,1,0) +73 +"DATA",1130580001.201,7,5,118,3,2,0) +11 +"DATA",1130580001.201,7,5,118,3,3,0) +21 +"DATA",1130580001.201,7,5,118,3,4,0) +23 +"DATA",1130580001.201,7,5,118,3,5,0) +77 +"DATA",1130580001.201,7,5,118,3,6,0) +75 +"DATA",1130580001.201,7,5,118,4) +6^50 +"DATA",1130580001.201,7,5,119,0) +39 +"DATA",1130580001.201,7,5,119,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,119,1,1,0) +73 +"DATA",1130580001.201,7,5,119,1,2,0) +11 +"DATA",1130580001.201,7,5,119,1,3,0) +4 +"DATA",1130580001.201,7,5,119,2) +3 +"DATA",1130580001.201,7,5,119,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,119,3,1,0) +73 +"DATA",1130580001.201,7,5,119,3,2,0) +11 +"DATA",1130580001.201,7,5,119,3,3,0) +80 +"DATA",1130580001.201,7,5,119,3,4,0) +17 +"DATA",1130580001.201,7,5,119,3,5,0) +21 +"DATA",1130580001.201,7,5,119,3,6,0) +23 +"DATA",1130580001.201,7,5,119,3,7,0) +27 +"DATA",1130580001.201,7,5,119,3,8,0) +82 +"DATA",1130580001.201,7,5,119,3,9,0) +77 +"DATA",1130580001.201,7,5,119,3,10,0) +4 +"DATA",1130580001.201,7,5,119,3,11,0) +52 +"DATA",1130580001.201,7,5,119,3,12,0) +75 +"DATA",1130580001.201,7,5,119,4) +12^25 +"DATA",1130580001.201,7,5,120,0) +81 +"DATA",1130580001.201,7,5,120,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,7,5,120,1,1,0) +30 +"DATA",1130580001.201,7,5,120,2) +1 +"DATA",1130580001.201,7,5,120,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,120,3,1,0) +73 +"DATA",1130580001.201,7,5,120,3,2,0) +11 +"DATA",1130580001.201,7,5,120,3,3,0) +80 +"DATA",1130580001.201,7,5,120,3,4,0) +17 +"DATA",1130580001.201,7,5,120,3,5,0) +21 +"DATA",1130580001.201,7,5,120,3,6,0) +23 +"DATA",1130580001.201,7,5,120,3,7,0) +30 +"DATA",1130580001.201,7,5,120,3,8,0) +82 +"DATA",1130580001.201,7,5,120,3,9,0) +77 +"DATA",1130580001.201,7,5,120,3,10,0) +4 +"DATA",1130580001.201,7,5,120,3,11,0) +52 +"DATA",1130580001.201,7,5,120,3,12,0) +75 +"DATA",1130580001.201,7,5,120,4) +12^8 +"DATA",1130580001.201,7,5,121,0) +84 +"DATA",1130580001.201,7,5,121,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,121,1,1,0) +29 +"DATA",1130580001.201,7,5,121,1,2,0) +56 +"DATA",1130580001.201,7,5,121,1,3,0) +58 +"DATA",1130580001.201,7,5,121,1,4,0) +59 +"DATA",1130580001.201,7,5,121,1,5,0) +64 +"DATA",1130580001.201,7,5,121,1,6,0) +69 +"DATA",1130580001.201,7,5,121,2) +6 +"DATA",1130580001.201,7,5,121,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,121,3,1,0) +9 +"DATA",1130580001.201,7,5,121,3,2,0) +13 +"DATA",1130580001.201,7,5,121,3,3,0) +29 +"DATA",1130580001.201,7,5,121,3,4,0) +56 +"DATA",1130580001.201,7,5,121,3,5,0) +58 +"DATA",1130580001.201,7,5,121,3,6,0) +59 +"DATA",1130580001.201,7,5,121,3,7,0) +60 +"DATA",1130580001.201,7,5,121,3,8,0) +64 +"DATA",1130580001.201,7,5,121,3,9,0) +65 +"DATA",1130580001.201,7,5,121,3,10,0) +69 +"DATA",1130580001.201,7,5,121,4) +10^60 +"DATA",1130580001.201,7,5,122,0) +85 +"DATA",1130580001.201,7,5,122,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,122,1,1,0) +29 +"DATA",1130580001.201,7,5,122,1,2,0) +56 +"DATA",1130580001.201,7,5,122,1,3,0) +58 +"DATA",1130580001.201,7,5,122,1,4,0) +60 +"DATA",1130580001.201,7,5,122,1,5,0) +69 +"DATA",1130580001.201,7,5,122,2) +5 +"DATA",1130580001.201,7,5,122,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,122,3,1,0) +9 +"DATA",1130580001.201,7,5,122,3,2,0) +13 +"DATA",1130580001.201,7,5,122,3,3,0) +29 +"DATA",1130580001.201,7,5,122,3,4,0) +56 +"DATA",1130580001.201,7,5,122,3,5,0) +58 +"DATA",1130580001.201,7,5,122,3,6,0) +59 +"DATA",1130580001.201,7,5,122,3,7,0) +60 +"DATA",1130580001.201,7,5,122,3,8,0) +64 +"DATA",1130580001.201,7,5,122,3,9,0) +65 +"DATA",1130580001.201,7,5,122,3,10,0) +69 +"DATA",1130580001.201,7,5,122,4) +10^50 +"DATA",1130580001.201,7,5,123,0) +86 +"DATA",1130580001.201,7,5,123,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,123,1,1,0) +29 +"DATA",1130580001.201,7,5,123,1,2,0) +56 +"DATA",1130580001.201,7,5,123,1,3,0) +58 +"DATA",1130580001.201,7,5,123,1,4,0) +60 +"DATA",1130580001.201,7,5,123,1,5,0) +69 +"DATA",1130580001.201,7,5,123,2) +5 +"DATA",1130580001.201,7,5,123,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,123,3,1,0) +9 +"DATA",1130580001.201,7,5,123,3,2,0) +13 +"DATA",1130580001.201,7,5,123,3,3,0) +29 +"DATA",1130580001.201,7,5,123,3,4,0) +56 +"DATA",1130580001.201,7,5,123,3,5,0) +58 +"DATA",1130580001.201,7,5,123,3,6,0) +59 +"DATA",1130580001.201,7,5,123,3,7,0) +60 +"DATA",1130580001.201,7,5,123,3,8,0) +64 +"DATA",1130580001.201,7,5,123,3,9,0) +65 +"DATA",1130580001.201,7,5,123,3,10,0) +69 +"DATA",1130580001.201,7,5,123,4) +10^50 +"DATA",1130580001.201,7,5,124,0) +87 +"DATA",1130580001.201,7,5,124,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,124,1,1,0) +29 +"DATA",1130580001.201,7,5,124,1,2,0) +56 +"DATA",1130580001.201,7,5,124,1,3,0) +58 +"DATA",1130580001.201,7,5,124,1,4,0) +60 +"DATA",1130580001.201,7,5,124,1,5,0) +69 +"DATA",1130580001.201,7,5,124,2) +5 +"DATA",1130580001.201,7,5,124,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,124,3,1,0) +9 +"DATA",1130580001.201,7,5,124,3,2,0) +13 +"DATA",1130580001.201,7,5,124,3,3,0) +29 +"DATA",1130580001.201,7,5,124,3,4,0) +56 +"DATA",1130580001.201,7,5,124,3,5,0) +58 +"DATA",1130580001.201,7,5,124,3,6,0) +59 +"DATA",1130580001.201,7,5,124,3,7,0) +60 +"DATA",1130580001.201,7,5,124,3,8,0) +64 +"DATA",1130580001.201,7,5,124,3,9,0) +65 +"DATA",1130580001.201,7,5,124,3,10,0) +69 +"DATA",1130580001.201,7,5,124,4) +10^50 +"DATA",1130580001.201,7,5,125,0) +88 +"DATA",1130580001.201,7,5,125,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,125,1,1,0) +29 +"DATA",1130580001.201,7,5,125,1,2,0) +56 +"DATA",1130580001.201,7,5,125,1,3,0) +58 +"DATA",1130580001.201,7,5,125,1,4,0) +64 +"DATA",1130580001.201,7,5,125,1,5,0) +65 +"DATA",1130580001.201,7,5,125,1,6,0) +69 +"DATA",1130580001.201,7,5,125,2) +6 +"DATA",1130580001.201,7,5,125,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,125,3,1,0) +9 +"DATA",1130580001.201,7,5,125,3,2,0) +13 +"DATA",1130580001.201,7,5,125,3,3,0) +29 +"DATA",1130580001.201,7,5,125,3,4,0) +56 +"DATA",1130580001.201,7,5,125,3,5,0) +58 +"DATA",1130580001.201,7,5,125,3,6,0) +59 +"DATA",1130580001.201,7,5,125,3,7,0) +60 +"DATA",1130580001.201,7,5,125,3,8,0) +64 +"DATA",1130580001.201,7,5,125,3,9,0) +65 +"DATA",1130580001.201,7,5,125,3,10,0) +69 +"DATA",1130580001.201,7,5,125,4) +10^60 +"DATA",1130580001.201,7,5,126,0) +89 +"DATA",1130580001.201,7,5,126,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,126,1,1,0) +29 +"DATA",1130580001.201,7,5,126,1,2,0) +56 +"DATA",1130580001.201,7,5,126,1,3,0) +58 +"DATA",1130580001.201,7,5,126,1,4,0) +65 +"DATA",1130580001.201,7,5,126,2) +4 +"DATA",1130580001.201,7,5,126,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,126,3,1,0) +9 +"DATA",1130580001.201,7,5,126,3,2,0) +13 +"DATA",1130580001.201,7,5,126,3,3,0) +29 +"DATA",1130580001.201,7,5,126,3,4,0) +56 +"DATA",1130580001.201,7,5,126,3,5,0) +58 +"DATA",1130580001.201,7,5,126,3,6,0) +59 +"DATA",1130580001.201,7,5,126,3,7,0) +60 +"DATA",1130580001.201,7,5,126,3,8,0) +64 +"DATA",1130580001.201,7,5,126,3,9,0) +65 +"DATA",1130580001.201,7,5,126,3,10,0) +69 +"DATA",1130580001.201,7,5,126,4) +10^40 +"DATA",1130580001.201,7,5,127,0) +90 +"DATA",1130580001.201,7,5,127,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,127,1,1,0) +29 +"DATA",1130580001.201,7,5,127,1,2,0) +56 +"DATA",1130580001.201,7,5,127,1,3,0) +58 +"DATA",1130580001.201,7,5,127,1,4,0) +64 +"DATA",1130580001.201,7,5,127,1,5,0) +65 +"DATA",1130580001.201,7,5,127,2) +5 +"DATA",1130580001.201,7,5,127,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,127,3,1,0) +9 +"DATA",1130580001.201,7,5,127,3,2,0) +13 +"DATA",1130580001.201,7,5,127,3,3,0) +29 +"DATA",1130580001.201,7,5,127,3,4,0) +56 +"DATA",1130580001.201,7,5,127,3,5,0) +58 +"DATA",1130580001.201,7,5,127,3,6,0) +59 +"DATA",1130580001.201,7,5,127,3,7,0) +60 +"DATA",1130580001.201,7,5,127,3,8,0) +64 +"DATA",1130580001.201,7,5,127,3,9,0) +65 +"DATA",1130580001.201,7,5,127,3,10,0) +69 +"DATA",1130580001.201,7,5,127,4) +10^50 +"DATA",1130580001.201,7,5,128,0) +91 +"DATA",1130580001.201,7,5,128,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,128,1,1,0) +29 +"DATA",1130580001.201,7,5,128,1,2,0) +56 +"DATA",1130580001.201,7,5,128,1,3,0) +58 +"DATA",1130580001.201,7,5,128,1,4,0) +60 +"DATA",1130580001.201,7,5,128,1,5,0) +65 +"DATA",1130580001.201,7,5,128,2) +5 +"DATA",1130580001.201,7,5,128,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,128,3,1,0) +9 +"DATA",1130580001.201,7,5,128,3,2,0) +13 +"DATA",1130580001.201,7,5,128,3,3,0) +29 +"DATA",1130580001.201,7,5,128,3,4,0) +56 +"DATA",1130580001.201,7,5,128,3,5,0) +58 +"DATA",1130580001.201,7,5,128,3,6,0) +59 +"DATA",1130580001.201,7,5,128,3,7,0) +60 +"DATA",1130580001.201,7,5,128,3,8,0) +64 +"DATA",1130580001.201,7,5,128,3,9,0) +65 +"DATA",1130580001.201,7,5,128,3,10,0) +69 +"DATA",1130580001.201,7,5,128,4) +10^50 +"DATA",1130580001.201,7,5,129,0) +92 +"DATA",1130580001.201,7,5,129,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,129,1,1,0) +29 +"DATA",1130580001.201,7,5,129,1,2,0) +56 +"DATA",1130580001.201,7,5,129,1,3,0) +58 +"DATA",1130580001.201,7,5,129,1,4,0) +59 +"DATA",1130580001.201,7,5,129,2) +4 +"DATA",1130580001.201,7,5,129,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,129,3,1,0) +9 +"DATA",1130580001.201,7,5,129,3,2,0) +13 +"DATA",1130580001.201,7,5,129,3,3,0) +29 +"DATA",1130580001.201,7,5,129,3,4,0) +56 +"DATA",1130580001.201,7,5,129,3,5,0) +58 +"DATA",1130580001.201,7,5,129,3,6,0) +59 +"DATA",1130580001.201,7,5,129,3,7,0) +60 +"DATA",1130580001.201,7,5,129,3,8,0) +64 +"DATA",1130580001.201,7,5,129,3,9,0) +65 +"DATA",1130580001.201,7,5,129,3,10,0) +69 +"DATA",1130580001.201,7,5,129,4) +10^40 +"DATA",1130580001.201,7,5,130,0) +93 +"DATA",1130580001.201,7,5,130,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,130,1,1,0) +29 +"DATA",1130580001.201,7,5,130,1,2,0) +56 +"DATA",1130580001.201,7,5,130,1,3,0) +58 +"DATA",1130580001.201,7,5,130,1,4,0) +69 +"DATA",1130580001.201,7,5,130,2) +4 +"DATA",1130580001.201,7,5,130,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,130,3,1,0) +9 +"DATA",1130580001.201,7,5,130,3,2,0) +13 +"DATA",1130580001.201,7,5,130,3,3,0) +29 +"DATA",1130580001.201,7,5,130,3,4,0) +56 +"DATA",1130580001.201,7,5,130,3,5,0) +58 +"DATA",1130580001.201,7,5,130,3,6,0) +59 +"DATA",1130580001.201,7,5,130,3,7,0) +60 +"DATA",1130580001.201,7,5,130,3,8,0) +64 +"DATA",1130580001.201,7,5,130,3,9,0) +65 +"DATA",1130580001.201,7,5,130,3,10,0) +69 +"DATA",1130580001.201,7,5,130,4) +10^40 +"DATA",1130580001.201,7,5,131,0) +94 +"DATA",1130580001.201,7,5,131,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,131,1,1,0) +29 +"DATA",1130580001.201,7,5,131,1,2,0) +56 +"DATA",1130580001.201,7,5,131,1,3,0) +58 +"DATA",1130580001.201,7,5,131,2) +3 +"DATA",1130580001.201,7,5,131,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,131,3,1,0) +9 +"DATA",1130580001.201,7,5,131,3,2,0) +13 +"DATA",1130580001.201,7,5,131,3,3,0) +29 +"DATA",1130580001.201,7,5,131,3,4,0) +56 +"DATA",1130580001.201,7,5,131,3,5,0) +58 +"DATA",1130580001.201,7,5,131,3,6,0) +59 +"DATA",1130580001.201,7,5,131,3,7,0) +60 +"DATA",1130580001.201,7,5,131,3,8,0) +64 +"DATA",1130580001.201,7,5,131,3,9,0) +65 +"DATA",1130580001.201,7,5,131,3,10,0) +69 +"DATA",1130580001.201,7,5,131,4) +10^30 +"DATA",1130580001.201,7,5,132,0) +40 +"DATA",1130580001.201,7,5,132,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,132,1,1,0) +17 +"DATA",1130580001.201,7,5,132,1,2,0) +21 +"DATA",1130580001.201,7,5,132,1,3,0) +23 +"DATA",1130580001.201,7,5,132,1,4,0) +30 +"DATA",1130580001.201,7,5,132,1,5,0) +52 +"DATA",1130580001.201,7,5,132,2) +5 +"DATA",1130580001.201,7,5,132,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,7,5,132,3,1,0) +17 +"DATA",1130580001.201,7,5,132,3,2,0) +21 +"DATA",1130580001.201,7,5,132,3,3,0) +23 +"DATA",1130580001.201,7,5,132,3,4,0) +30 +"DATA",1130580001.201,7,5,132,3,5,0) +52 +"DATA",1130580001.201,7,5,132,4) +5^100 +"DATA",1130580001.201,7,5,133,0) +43 +"DATA",1130580001.201,7,5,133,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,133,1,1,0) +13 +"DATA",1130580001.201,7,5,133,1,2,0) +14 +"DATA",1130580001.201,7,5,133,2) +2 +"DATA",1130580001.201,7,5,133,3,0) +^1130580001.20112P^13^13 +"DATA",1130580001.201,7,5,133,3,1,0) +12 +"DATA",1130580001.201,7,5,133,3,2,0) +13 +"DATA",1130580001.201,7,5,133,3,3,0) +14 +"DATA",1130580001.201,7,5,133,3,4,0) +90 +"DATA",1130580001.201,7,5,133,3,5,0) +91 +"DATA",1130580001.201,7,5,133,3,6,0) +29 +"DATA",1130580001.201,7,5,133,3,7,0) +93 +"DATA",1130580001.201,7,5,133,3,8,0) +89 +"DATA",1130580001.201,7,5,133,3,9,0) +153 +"DATA",1130580001.201,7,5,133,3,10,0) +72 +"DATA",1130580001.201,7,5,133,3,11,0) +44 +"DATA",1130580001.201,7,5,133,3,12,0) +56 +"DATA",1130580001.201,7,5,133,3,13,0) +58 +"DATA",1130580001.201,7,5,133,4) +13^15 +"DATA",1130580001.201,8,0) +MU 2011 INP ATTESTATION +"DATA",1130580001.201,8,4) +^^3110703^3110930 +"DATA",1130580001.201,8,5,0) +^1130580001.2011P^18^9 +"DATA",1130580001.201,8,5,10,0) +95 +"DATA",1130580001.201,8,5,10,2) +0 +"DATA",1130580001.201,8,5,11,0) +102 +"DATA",1130580001.201,8,5,11,1,0) +^1130580001.20111P^40^40 +"DATA",1130580001.201,8,5,11,1,1,0) +341 +"DATA",1130580001.201,8,5,11,1,2,0) +210 +"DATA",1130580001.201,8,5,11,1,3,0) +97 +"DATA",1130580001.201,8,5,11,1,4,0) +99 +"DATA",1130580001.201,8,5,11,1,5,0) +212 +"DATA",1130580001.201,8,5,11,1,6,0) +199 +"DATA",1130580001.201,8,5,11,1,7,0) +221 +"DATA",1130580001.201,8,5,11,1,8,0) +220 +"DATA",1130580001.201,8,5,11,1,9,0) +227 +"DATA",1130580001.201,8,5,11,1,10,0) +218 +"DATA",1130580001.201,8,5,11,1,11,0) +172 +"DATA",1130580001.201,8,5,11,1,12,0) +181 +"DATA",1130580001.201,8,5,11,1,13,0) +171 +"DATA",1130580001.201,8,5,11,1,14,0) +176 +"DATA",1130580001.201,8,5,11,1,15,0) +174 +"DATA",1130580001.201,8,5,11,1,16,0) +175 +"DATA",1130580001.201,8,5,11,1,17,0) +177 +"DATA",1130580001.201,8,5,11,1,18,0) +178 +"DATA",1130580001.201,8,5,11,1,19,0) +179 +"DATA",1130580001.201,8,5,11,1,20,0) +180 +"DATA",1130580001.201,8,5,11,1,21,0) +306 +"DATA",1130580001.201,8,5,11,1,22,0) +309 +"DATA",1130580001.201,8,5,11,1,23,0) +308 +"DATA",1130580001.201,8,5,11,1,24,0) +183 +"DATA",1130580001.201,8,5,11,1,25,0) +233 +"DATA",1130580001.201,8,5,11,1,26,0) +187 +"DATA",1130580001.201,8,5,11,1,27,0) +189 +"DATA",1130580001.201,8,5,11,1,28,0) +322 +"DATA",1130580001.201,8,5,11,1,29,0) +345 +"DATA",1130580001.201,8,5,11,1,30,0) +321 +"DATA",1130580001.201,8,5,11,1,31,0) +344 +"DATA",1130580001.201,8,5,11,1,32,0) +343 +"DATA",1130580001.201,8,5,11,1,33,0) +211 +"DATA",1130580001.201,8,5,11,1,34,0) +270 +"DATA",1130580001.201,8,5,11,1,35,0) +110 +"DATA",1130580001.201,8,5,11,1,36,0) +121 +"DATA",1130580001.201,8,5,11,1,37,0) +18 +"DATA",1130580001.201,8,5,11,1,38,0) +137 +"DATA",1130580001.201,8,5,11,1,39,0) +332 +"DATA",1130580001.201,8,5,11,1,40,0) +126 +"DATA",1130580001.201,8,5,11,2) +40 +"DATA",1130580001.201,8,5,11,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,11,3,1,0) +341 +"DATA",1130580001.201,8,5,11,3,2,0) +340 +"DATA",1130580001.201,8,5,11,3,3,0) +316 +"DATA",1130580001.201,8,5,11,3,4,0) +317 +"DATA",1130580001.201,8,5,11,3,5,0) +210 +"DATA",1130580001.201,8,5,11,3,6,0) +97 +"DATA",1130580001.201,8,5,11,3,7,0) +99 +"DATA",1130580001.201,8,5,11,3,8,0) +212 +"DATA",1130580001.201,8,5,11,3,9,0) +199 +"DATA",1130580001.201,8,5,11,3,10,0) +219 +"DATA",1130580001.201,8,5,11,3,11,0) +221 +"DATA",1130580001.201,8,5,11,3,12,0) +220 +"DATA",1130580001.201,8,5,11,3,13,0) +222 +"DATA",1130580001.201,8,5,11,3,14,0) +223 +"DATA",1130580001.201,8,5,11,3,15,0) +225 +"DATA",1130580001.201,8,5,11,3,16,0) +224 +"DATA",1130580001.201,8,5,11,3,17,0) +227 +"DATA",1130580001.201,8,5,11,3,18,0) +226 +"DATA",1130580001.201,8,5,11,3,19,0) +218 +"DATA",1130580001.201,8,5,11,3,20,0) +172 +"DATA",1130580001.201,8,5,11,3,21,0) +181 +"DATA",1130580001.201,8,5,11,3,22,0) +171 +"DATA",1130580001.201,8,5,11,3,23,0) +176 +"DATA",1130580001.201,8,5,11,3,24,0) +174 +"DATA",1130580001.201,8,5,11,3,25,0) +175 +"DATA",1130580001.201,8,5,11,3,26,0) +177 +"DATA",1130580001.201,8,5,11,3,27,0) +178 +"DATA",1130580001.201,8,5,11,3,28,0) +179 +"DATA",1130580001.201,8,5,11,3,29,0) +180 +"DATA",1130580001.201,8,5,11,3,30,0) +306 +"DATA",1130580001.201,8,5,11,3,31,0) +309 +"DATA",1130580001.201,8,5,11,3,32,0) +308 +"DATA",1130580001.201,8,5,11,3,33,0) +310 +"DATA",1130580001.201,8,5,11,3,34,0) +318 +"DATA",1130580001.201,8,5,11,3,35,0) +338 +"DATA",1130580001.201,8,5,11,3,36,0) +183 +"DATA",1130580001.201,8,5,11,3,37,0) +312 +"DATA",1130580001.201,8,5,11,3,38,0) +233 +"DATA",1130580001.201,8,5,11,3,39,0) +187 +"DATA",1130580001.201,8,5,11,3,40,0) +191 +"DATA",1130580001.201,8,5,11,3,41,0) +190 +"DATA",1130580001.201,8,5,11,3,42,0) +188 +"DATA",1130580001.201,8,5,11,3,43,0) +192 +"DATA",1130580001.201,8,5,11,3,44,0) +189 +"DATA",1130580001.201,8,5,11,3,45,0) +349 +"DATA",1130580001.201,8,5,11,3,46,0) +322 +"DATA",1130580001.201,8,5,11,3,47,0) +346 +"DATA",1130580001.201,8,5,11,3,48,0) +345 +"DATA",1130580001.201,8,5,11,3,49,0) +319 +"DATA",1130580001.201,8,5,11,3,50,0) +323 +"DATA",1130580001.201,8,5,11,3,51,0) +321 +"DATA",1130580001.201,8,5,11,3,52,0) +344 +"DATA",1130580001.201,8,5,11,3,53,0) +343 +"DATA",1130580001.201,8,5,11,3,54,0) +336 +"DATA",1130580001.201,8,5,11,3,55,0) +335 +"DATA",1130580001.201,8,5,11,3,56,0) +333 +"DATA",1130580001.201,8,5,11,3,57,0) +211 +"DATA",1130580001.201,8,5,11,3,58,0) +270 +"DATA",1130580001.201,8,5,11,3,59,0) +271 +"DATA",1130580001.201,8,5,11,3,60,0) +110 +"DATA",1130580001.201,8,5,11,3,61,0) +331 +"DATA",1130580001.201,8,5,11,3,62,0) +14 +"DATA",1130580001.201,8,5,11,3,63,0) +121 +"DATA",1130580001.201,8,5,11,3,64,0) +18 +"DATA",1130580001.201,8,5,11,3,65,0) +9 +"DATA",1130580001.201,8,5,11,3,66,0) +137 +"DATA",1130580001.201,8,5,11,3,67,0) +332 +"DATA",1130580001.201,8,5,11,3,68,0) +126 +"DATA",1130580001.201,8,5,11,4) +68^59 +"DATA",1130580001.201,8,5,12,0) +96 +"DATA",1130580001.201,8,5,12,2) +0 +"DATA",1130580001.201,8,5,12,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,12,3,1,0) +341 +"DATA",1130580001.201,8,5,12,3,2,0) +340 +"DATA",1130580001.201,8,5,12,3,3,0) +316 +"DATA",1130580001.201,8,5,12,3,4,0) +317 +"DATA",1130580001.201,8,5,12,3,5,0) +210 +"DATA",1130580001.201,8,5,12,3,6,0) +97 +"DATA",1130580001.201,8,5,12,3,7,0) +99 +"DATA",1130580001.201,8,5,12,3,8,0) +212 +"DATA",1130580001.201,8,5,12,3,9,0) +199 +"DATA",1130580001.201,8,5,12,3,10,0) +219 +"DATA",1130580001.201,8,5,12,3,11,0) +221 +"DATA",1130580001.201,8,5,12,3,12,0) +220 +"DATA",1130580001.201,8,5,12,3,13,0) +222 +"DATA",1130580001.201,8,5,12,3,14,0) +223 +"DATA",1130580001.201,8,5,12,3,15,0) +225 +"DATA",1130580001.201,8,5,12,3,16,0) +224 +"DATA",1130580001.201,8,5,12,3,17,0) +227 +"DATA",1130580001.201,8,5,12,3,18,0) +226 +"DATA",1130580001.201,8,5,12,3,19,0) +218 +"DATA",1130580001.201,8,5,12,3,20,0) +172 +"DATA",1130580001.201,8,5,12,3,21,0) +181 +"DATA",1130580001.201,8,5,12,3,22,0) +171 +"DATA",1130580001.201,8,5,12,3,23,0) +176 +"DATA",1130580001.201,8,5,12,3,24,0) +174 +"DATA",1130580001.201,8,5,12,3,25,0) +175 +"DATA",1130580001.201,8,5,12,3,26,0) +177 +"DATA",1130580001.201,8,5,12,3,27,0) +178 +"DATA",1130580001.201,8,5,12,3,28,0) +179 +"DATA",1130580001.201,8,5,12,3,29,0) +180 +"DATA",1130580001.201,8,5,12,3,30,0) +306 +"DATA",1130580001.201,8,5,12,3,31,0) +309 +"DATA",1130580001.201,8,5,12,3,32,0) +308 +"DATA",1130580001.201,8,5,12,3,33,0) +310 +"DATA",1130580001.201,8,5,12,3,34,0) +318 +"DATA",1130580001.201,8,5,12,3,35,0) +338 +"DATA",1130580001.201,8,5,12,3,36,0) +183 +"DATA",1130580001.201,8,5,12,3,37,0) +312 +"DATA",1130580001.201,8,5,12,3,38,0) +233 +"DATA",1130580001.201,8,5,12,3,39,0) +187 +"DATA",1130580001.201,8,5,12,3,40,0) +191 +"DATA",1130580001.201,8,5,12,3,41,0) +190 +"DATA",1130580001.201,8,5,12,3,42,0) +188 +"DATA",1130580001.201,8,5,12,3,43,0) +192 +"DATA",1130580001.201,8,5,12,3,44,0) +189 +"DATA",1130580001.201,8,5,12,3,45,0) +349 +"DATA",1130580001.201,8,5,12,3,46,0) +322 +"DATA",1130580001.201,8,5,12,3,47,0) +346 +"DATA",1130580001.201,8,5,12,3,48,0) +345 +"DATA",1130580001.201,8,5,12,3,49,0) +319 +"DATA",1130580001.201,8,5,12,3,50,0) +323 +"DATA",1130580001.201,8,5,12,3,51,0) +321 +"DATA",1130580001.201,8,5,12,3,52,0) +344 +"DATA",1130580001.201,8,5,12,3,53,0) +343 +"DATA",1130580001.201,8,5,12,3,54,0) +336 +"DATA",1130580001.201,8,5,12,3,55,0) +335 +"DATA",1130580001.201,8,5,12,3,56,0) +333 +"DATA",1130580001.201,8,5,12,3,57,0) +211 +"DATA",1130580001.201,8,5,12,3,58,0) +270 +"DATA",1130580001.201,8,5,12,3,59,0) +271 +"DATA",1130580001.201,8,5,12,3,60,0) +110 +"DATA",1130580001.201,8,5,12,3,61,0) +331 +"DATA",1130580001.201,8,5,12,3,62,0) +14 +"DATA",1130580001.201,8,5,12,3,63,0) +121 +"DATA",1130580001.201,8,5,12,3,64,0) +18 +"DATA",1130580001.201,8,5,12,3,65,0) +9 +"DATA",1130580001.201,8,5,12,3,66,0) +137 +"DATA",1130580001.201,8,5,12,3,67,0) +332 +"DATA",1130580001.201,8,5,12,3,68,0) +126 +"DATA",1130580001.201,8,5,12,4) +68^0 +"DATA",1130580001.201,8,5,13,0) +103 +"DATA",1130580001.201,8,5,13,1,0) +^1130580001.20111P^68^68 +"DATA",1130580001.201,8,5,13,1,1,0) +341 +"DATA",1130580001.201,8,5,13,1,2,0) +340 +"DATA",1130580001.201,8,5,13,1,3,0) +316 +"DATA",1130580001.201,8,5,13,1,4,0) +317 +"DATA",1130580001.201,8,5,13,1,5,0) +210 +"DATA",1130580001.201,8,5,13,1,6,0) +97 +"DATA",1130580001.201,8,5,13,1,7,0) +99 +"DATA",1130580001.201,8,5,13,1,8,0) +212 +"DATA",1130580001.201,8,5,13,1,9,0) +199 +"DATA",1130580001.201,8,5,13,1,10,0) +219 +"DATA",1130580001.201,8,5,13,1,11,0) +221 +"DATA",1130580001.201,8,5,13,1,12,0) +220 +"DATA",1130580001.201,8,5,13,1,13,0) +222 +"DATA",1130580001.201,8,5,13,1,14,0) +223 +"DATA",1130580001.201,8,5,13,1,15,0) +225 +"DATA",1130580001.201,8,5,13,1,16,0) +224 +"DATA",1130580001.201,8,5,13,1,17,0) +227 +"DATA",1130580001.201,8,5,13,1,18,0) +226 +"DATA",1130580001.201,8,5,13,1,19,0) +218 +"DATA",1130580001.201,8,5,13,1,20,0) +172 +"DATA",1130580001.201,8,5,13,1,21,0) +181 +"DATA",1130580001.201,8,5,13,1,22,0) +171 +"DATA",1130580001.201,8,5,13,1,23,0) +176 +"DATA",1130580001.201,8,5,13,1,24,0) +174 +"DATA",1130580001.201,8,5,13,1,25,0) +175 +"DATA",1130580001.201,8,5,13,1,26,0) +177 +"DATA",1130580001.201,8,5,13,1,27,0) +178 +"DATA",1130580001.201,8,5,13,1,28,0) +179 +"DATA",1130580001.201,8,5,13,1,29,0) +180 +"DATA",1130580001.201,8,5,13,1,30,0) +306 +"DATA",1130580001.201,8,5,13,1,31,0) +309 +"DATA",1130580001.201,8,5,13,1,32,0) +308 +"DATA",1130580001.201,8,5,13,1,33,0) +310 +"DATA",1130580001.201,8,5,13,1,34,0) +318 +"DATA",1130580001.201,8,5,13,1,35,0) +338 +"DATA",1130580001.201,8,5,13,1,36,0) +183 +"DATA",1130580001.201,8,5,13,1,37,0) +312 +"DATA",1130580001.201,8,5,13,1,38,0) +233 +"DATA",1130580001.201,8,5,13,1,39,0) +187 +"DATA",1130580001.201,8,5,13,1,40,0) +191 +"DATA",1130580001.201,8,5,13,1,41,0) +190 +"DATA",1130580001.201,8,5,13,1,42,0) +188 +"DATA",1130580001.201,8,5,13,1,43,0) +192 +"DATA",1130580001.201,8,5,13,1,44,0) +189 +"DATA",1130580001.201,8,5,13,1,45,0) +349 +"DATA",1130580001.201,8,5,13,1,46,0) +322 +"DATA",1130580001.201,8,5,13,1,47,0) +346 +"DATA",1130580001.201,8,5,13,1,48,0) +345 +"DATA",1130580001.201,8,5,13,1,49,0) +319 +"DATA",1130580001.201,8,5,13,1,50,0) +323 +"DATA",1130580001.201,8,5,13,1,51,0) +321 +"DATA",1130580001.201,8,5,13,1,52,0) +344 +"DATA",1130580001.201,8,5,13,1,53,0) +343 +"DATA",1130580001.201,8,5,13,1,54,0) +336 +"DATA",1130580001.201,8,5,13,1,55,0) +335 +"DATA",1130580001.201,8,5,13,1,56,0) +333 +"DATA",1130580001.201,8,5,13,1,57,0) +211 +"DATA",1130580001.201,8,5,13,1,58,0) +270 +"DATA",1130580001.201,8,5,13,1,59,0) +271 +"DATA",1130580001.201,8,5,13,1,60,0) +110 +"DATA",1130580001.201,8,5,13,1,61,0) +331 +"DATA",1130580001.201,8,5,13,1,62,0) +14 +"DATA",1130580001.201,8,5,13,1,63,0) +121 +"DATA",1130580001.201,8,5,13,1,64,0) +18 +"DATA",1130580001.201,8,5,13,1,65,0) +9 +"DATA",1130580001.201,8,5,13,1,66,0) +137 +"DATA",1130580001.201,8,5,13,1,67,0) +332 +"DATA",1130580001.201,8,5,13,1,68,0) +126 +"DATA",1130580001.201,8,5,13,2) +68 +"DATA",1130580001.201,8,5,13,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,13,3,1,0) +341 +"DATA",1130580001.201,8,5,13,3,2,0) +340 +"DATA",1130580001.201,8,5,13,3,3,0) +316 +"DATA",1130580001.201,8,5,13,3,4,0) +317 +"DATA",1130580001.201,8,5,13,3,5,0) +210 +"DATA",1130580001.201,8,5,13,3,6,0) +97 +"DATA",1130580001.201,8,5,13,3,7,0) +99 +"DATA",1130580001.201,8,5,13,3,8,0) +212 +"DATA",1130580001.201,8,5,13,3,9,0) +199 +"DATA",1130580001.201,8,5,13,3,10,0) +219 +"DATA",1130580001.201,8,5,13,3,11,0) +221 +"DATA",1130580001.201,8,5,13,3,12,0) +220 +"DATA",1130580001.201,8,5,13,3,13,0) +222 +"DATA",1130580001.201,8,5,13,3,14,0) +223 +"DATA",1130580001.201,8,5,13,3,15,0) +225 +"DATA",1130580001.201,8,5,13,3,16,0) +224 +"DATA",1130580001.201,8,5,13,3,17,0) +227 +"DATA",1130580001.201,8,5,13,3,18,0) +226 +"DATA",1130580001.201,8,5,13,3,19,0) +218 +"DATA",1130580001.201,8,5,13,3,20,0) +172 +"DATA",1130580001.201,8,5,13,3,21,0) +181 +"DATA",1130580001.201,8,5,13,3,22,0) +171 +"DATA",1130580001.201,8,5,13,3,23,0) +176 +"DATA",1130580001.201,8,5,13,3,24,0) +174 +"DATA",1130580001.201,8,5,13,3,25,0) +175 +"DATA",1130580001.201,8,5,13,3,26,0) +177 +"DATA",1130580001.201,8,5,13,3,27,0) +178 +"DATA",1130580001.201,8,5,13,3,28,0) +179 +"DATA",1130580001.201,8,5,13,3,29,0) +180 +"DATA",1130580001.201,8,5,13,3,30,0) +306 +"DATA",1130580001.201,8,5,13,3,31,0) +309 +"DATA",1130580001.201,8,5,13,3,32,0) +308 +"DATA",1130580001.201,8,5,13,3,33,0) +310 +"DATA",1130580001.201,8,5,13,3,34,0) +318 +"DATA",1130580001.201,8,5,13,3,35,0) +338 +"DATA",1130580001.201,8,5,13,3,36,0) +183 +"DATA",1130580001.201,8,5,13,3,37,0) +312 +"DATA",1130580001.201,8,5,13,3,38,0) +233 +"DATA",1130580001.201,8,5,13,3,39,0) +187 +"DATA",1130580001.201,8,5,13,3,40,0) +191 +"DATA",1130580001.201,8,5,13,3,41,0) +190 +"DATA",1130580001.201,8,5,13,3,42,0) +188 +"DATA",1130580001.201,8,5,13,3,43,0) +192 +"DATA",1130580001.201,8,5,13,3,44,0) +189 +"DATA",1130580001.201,8,5,13,3,45,0) +349 +"DATA",1130580001.201,8,5,13,3,46,0) +322 +"DATA",1130580001.201,8,5,13,3,47,0) +346 +"DATA",1130580001.201,8,5,13,3,48,0) +345 +"DATA",1130580001.201,8,5,13,3,49,0) +319 +"DATA",1130580001.201,8,5,13,3,50,0) +323 +"DATA",1130580001.201,8,5,13,3,51,0) +321 +"DATA",1130580001.201,8,5,13,3,52,0) +344 +"DATA",1130580001.201,8,5,13,3,53,0) +343 +"DATA",1130580001.201,8,5,13,3,54,0) +336 +"DATA",1130580001.201,8,5,13,3,55,0) +335 +"DATA",1130580001.201,8,5,13,3,56,0) +333 +"DATA",1130580001.201,8,5,13,3,57,0) +211 +"DATA",1130580001.201,8,5,13,3,58,0) +270 +"DATA",1130580001.201,8,5,13,3,59,0) +271 +"DATA",1130580001.201,8,5,13,3,60,0) +110 +"DATA",1130580001.201,8,5,13,3,61,0) +331 +"DATA",1130580001.201,8,5,13,3,62,0) +14 +"DATA",1130580001.201,8,5,13,3,63,0) +121 +"DATA",1130580001.201,8,5,13,3,64,0) +18 +"DATA",1130580001.201,8,5,13,3,65,0) +9 +"DATA",1130580001.201,8,5,13,3,66,0) +137 +"DATA",1130580001.201,8,5,13,3,67,0) +332 +"DATA",1130580001.201,8,5,13,3,68,0) +126 +"DATA",1130580001.201,8,5,13,4) +68^100 +"DATA",1130580001.201,8,5,14,0) +101 +"DATA",1130580001.201,8,5,14,1,0) +^1130580001.20111P^67^67 +"DATA",1130580001.201,8,5,14,1,1,0) +341 +"DATA",1130580001.201,8,5,14,1,2,0) +340 +"DATA",1130580001.201,8,5,14,1,3,0) +316 +"DATA",1130580001.201,8,5,14,1,4,0) +317 +"DATA",1130580001.201,8,5,14,1,5,0) +210 +"DATA",1130580001.201,8,5,14,1,6,0) +97 +"DATA",1130580001.201,8,5,14,1,7,0) +99 +"DATA",1130580001.201,8,5,14,1,8,0) +212 +"DATA",1130580001.201,8,5,14,1,9,0) +199 +"DATA",1130580001.201,8,5,14,1,10,0) +219 +"DATA",1130580001.201,8,5,14,1,11,0) +221 +"DATA",1130580001.201,8,5,14,1,12,0) +220 +"DATA",1130580001.201,8,5,14,1,13,0) +222 +"DATA",1130580001.201,8,5,14,1,14,0) +223 +"DATA",1130580001.201,8,5,14,1,15,0) +225 +"DATA",1130580001.201,8,5,14,1,16,0) +224 +"DATA",1130580001.201,8,5,14,1,17,0) +227 +"DATA",1130580001.201,8,5,14,1,18,0) +226 +"DATA",1130580001.201,8,5,14,1,19,0) +218 +"DATA",1130580001.201,8,5,14,1,20,0) +172 +"DATA",1130580001.201,8,5,14,1,21,0) +181 +"DATA",1130580001.201,8,5,14,1,22,0) +171 +"DATA",1130580001.201,8,5,14,1,23,0) +176 +"DATA",1130580001.201,8,5,14,1,24,0) +174 +"DATA",1130580001.201,8,5,14,1,25,0) +175 +"DATA",1130580001.201,8,5,14,1,26,0) +177 +"DATA",1130580001.201,8,5,14,1,27,0) +178 +"DATA",1130580001.201,8,5,14,1,28,0) +179 +"DATA",1130580001.201,8,5,14,1,29,0) +180 +"DATA",1130580001.201,8,5,14,1,30,0) +306 +"DATA",1130580001.201,8,5,14,1,31,0) +309 +"DATA",1130580001.201,8,5,14,1,32,0) +308 +"DATA",1130580001.201,8,5,14,1,33,0) +310 +"DATA",1130580001.201,8,5,14,1,34,0) +318 +"DATA",1130580001.201,8,5,14,1,35,0) +338 +"DATA",1130580001.201,8,5,14,1,36,0) +183 +"DATA",1130580001.201,8,5,14,1,37,0) +312 +"DATA",1130580001.201,8,5,14,1,38,0) +233 +"DATA",1130580001.201,8,5,14,1,39,0) +187 +"DATA",1130580001.201,8,5,14,1,40,0) +191 +"DATA",1130580001.201,8,5,14,1,41,0) +190 +"DATA",1130580001.201,8,5,14,1,42,0) +188 +"DATA",1130580001.201,8,5,14,1,43,0) +192 +"DATA",1130580001.201,8,5,14,1,44,0) +189 +"DATA",1130580001.201,8,5,14,1,45,0) +349 +"DATA",1130580001.201,8,5,14,1,46,0) +322 +"DATA",1130580001.201,8,5,14,1,47,0) +346 +"DATA",1130580001.201,8,5,14,1,48,0) +345 +"DATA",1130580001.201,8,5,14,1,49,0) +319 +"DATA",1130580001.201,8,5,14,1,50,0) +323 +"DATA",1130580001.201,8,5,14,1,51,0) +321 +"DATA",1130580001.201,8,5,14,1,52,0) +344 +"DATA",1130580001.201,8,5,14,1,53,0) +343 +"DATA",1130580001.201,8,5,14,1,54,0) +336 +"DATA",1130580001.201,8,5,14,1,55,0) +335 +"DATA",1130580001.201,8,5,14,1,56,0) +333 +"DATA",1130580001.201,8,5,14,1,57,0) +211 +"DATA",1130580001.201,8,5,14,1,58,0) +270 +"DATA",1130580001.201,8,5,14,1,59,0) +271 +"DATA",1130580001.201,8,5,14,1,60,0) +331 +"DATA",1130580001.201,8,5,14,1,61,0) +14 +"DATA",1130580001.201,8,5,14,1,62,0) +121 +"DATA",1130580001.201,8,5,14,1,63,0) +18 +"DATA",1130580001.201,8,5,14,1,64,0) +9 +"DATA",1130580001.201,8,5,14,1,65,0) +137 +"DATA",1130580001.201,8,5,14,1,66,0) +332 +"DATA",1130580001.201,8,5,14,1,67,0) +126 +"DATA",1130580001.201,8,5,14,2) +67 +"DATA",1130580001.201,8,5,14,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,14,3,1,0) +341 +"DATA",1130580001.201,8,5,14,3,2,0) +340 +"DATA",1130580001.201,8,5,14,3,3,0) +316 +"DATA",1130580001.201,8,5,14,3,4,0) +317 +"DATA",1130580001.201,8,5,14,3,5,0) +210 +"DATA",1130580001.201,8,5,14,3,6,0) +97 +"DATA",1130580001.201,8,5,14,3,7,0) +99 +"DATA",1130580001.201,8,5,14,3,8,0) +212 +"DATA",1130580001.201,8,5,14,3,9,0) +199 +"DATA",1130580001.201,8,5,14,3,10,0) +219 +"DATA",1130580001.201,8,5,14,3,11,0) +221 +"DATA",1130580001.201,8,5,14,3,12,0) +220 +"DATA",1130580001.201,8,5,14,3,13,0) +222 +"DATA",1130580001.201,8,5,14,3,14,0) +223 +"DATA",1130580001.201,8,5,14,3,15,0) +225 +"DATA",1130580001.201,8,5,14,3,16,0) +224 +"DATA",1130580001.201,8,5,14,3,17,0) +227 +"DATA",1130580001.201,8,5,14,3,18,0) +226 +"DATA",1130580001.201,8,5,14,3,19,0) +218 +"DATA",1130580001.201,8,5,14,3,20,0) +172 +"DATA",1130580001.201,8,5,14,3,21,0) +181 +"DATA",1130580001.201,8,5,14,3,22,0) +171 +"DATA",1130580001.201,8,5,14,3,23,0) +176 +"DATA",1130580001.201,8,5,14,3,24,0) +174 +"DATA",1130580001.201,8,5,14,3,25,0) +175 +"DATA",1130580001.201,8,5,14,3,26,0) +177 +"DATA",1130580001.201,8,5,14,3,27,0) +178 +"DATA",1130580001.201,8,5,14,3,28,0) +179 +"DATA",1130580001.201,8,5,14,3,29,0) +180 +"DATA",1130580001.201,8,5,14,3,30,0) +306 +"DATA",1130580001.201,8,5,14,3,31,0) +309 +"DATA",1130580001.201,8,5,14,3,32,0) +308 +"DATA",1130580001.201,8,5,14,3,33,0) +310 +"DATA",1130580001.201,8,5,14,3,34,0) +318 +"DATA",1130580001.201,8,5,14,3,35,0) +338 +"DATA",1130580001.201,8,5,14,3,36,0) +183 +"DATA",1130580001.201,8,5,14,3,37,0) +312 +"DATA",1130580001.201,8,5,14,3,38,0) +233 +"DATA",1130580001.201,8,5,14,3,39,0) +187 +"DATA",1130580001.201,8,5,14,3,40,0) +191 +"DATA",1130580001.201,8,5,14,3,41,0) +190 +"DATA",1130580001.201,8,5,14,3,42,0) +188 +"DATA",1130580001.201,8,5,14,3,43,0) +192 +"DATA",1130580001.201,8,5,14,3,44,0) +189 +"DATA",1130580001.201,8,5,14,3,45,0) +349 +"DATA",1130580001.201,8,5,14,3,46,0) +322 +"DATA",1130580001.201,8,5,14,3,47,0) +346 +"DATA",1130580001.201,8,5,14,3,48,0) +345 +"DATA",1130580001.201,8,5,14,3,49,0) +319 +"DATA",1130580001.201,8,5,14,3,50,0) +323 +"DATA",1130580001.201,8,5,14,3,51,0) +321 +"DATA",1130580001.201,8,5,14,3,52,0) +344 +"DATA",1130580001.201,8,5,14,3,53,0) +343 +"DATA",1130580001.201,8,5,14,3,54,0) +336 +"DATA",1130580001.201,8,5,14,3,55,0) +335 +"DATA",1130580001.201,8,5,14,3,56,0) +333 +"DATA",1130580001.201,8,5,14,3,57,0) +211 +"DATA",1130580001.201,8,5,14,3,58,0) +270 +"DATA",1130580001.201,8,5,14,3,59,0) +271 +"DATA",1130580001.201,8,5,14,3,60,0) +110 +"DATA",1130580001.201,8,5,14,3,61,0) +331 +"DATA",1130580001.201,8,5,14,3,62,0) +14 +"DATA",1130580001.201,8,5,14,3,63,0) +121 +"DATA",1130580001.201,8,5,14,3,64,0) +18 +"DATA",1130580001.201,8,5,14,3,65,0) +9 +"DATA",1130580001.201,8,5,14,3,66,0) +137 +"DATA",1130580001.201,8,5,14,3,67,0) +332 +"DATA",1130580001.201,8,5,14,3,68,0) +126 +"DATA",1130580001.201,8,5,14,4) +68^99 +"DATA",1130580001.201,8,5,15,0) +97 +"DATA",1130580001.201,8,5,15,2) +0 +"DATA",1130580001.201,8,5,16,0) +98 +"DATA",1130580001.201,8,5,16,1,0) +^1130580001.20111P^31^31 +"DATA",1130580001.201,8,5,16,1,1,0) +210 +"DATA",1130580001.201,8,5,16,1,2,0) +97 +"DATA",1130580001.201,8,5,16,1,3,0) +99 +"DATA",1130580001.201,8,5,16,1,4,0) +212 +"DATA",1130580001.201,8,5,16,1,5,0) +199 +"DATA",1130580001.201,8,5,16,1,6,0) +219 +"DATA",1130580001.201,8,5,16,1,7,0) +221 +"DATA",1130580001.201,8,5,16,1,8,0) +220 +"DATA",1130580001.201,8,5,16,1,9,0) +223 +"DATA",1130580001.201,8,5,16,1,10,0) +227 +"DATA",1130580001.201,8,5,16,1,11,0) +218 +"DATA",1130580001.201,8,5,16,1,12,0) +172 +"DATA",1130580001.201,8,5,16,1,13,0) +171 +"DATA",1130580001.201,8,5,16,1,14,0) +176 +"DATA",1130580001.201,8,5,16,1,15,0) +174 +"DATA",1130580001.201,8,5,16,1,16,0) +175 +"DATA",1130580001.201,8,5,16,1,17,0) +177 +"DATA",1130580001.201,8,5,16,1,18,0) +178 +"DATA",1130580001.201,8,5,16,1,19,0) +179 +"DATA",1130580001.201,8,5,16,1,20,0) +180 +"DATA",1130580001.201,8,5,16,1,21,0) +183 +"DATA",1130580001.201,8,5,16,1,22,0) +187 +"DATA",1130580001.201,8,5,16,1,23,0) +189 +"DATA",1130580001.201,8,5,16,1,24,0) +323 +"DATA",1130580001.201,8,5,16,1,25,0) +211 +"DATA",1130580001.201,8,5,16,1,26,0) +110 +"DATA",1130580001.201,8,5,16,1,27,0) +18 +"DATA",1130580001.201,8,5,16,1,28,0) +9 +"DATA",1130580001.201,8,5,16,1,29,0) +137 +"DATA",1130580001.201,8,5,16,1,30,0) +332 +"DATA",1130580001.201,8,5,16,1,31,0) +126 +"DATA",1130580001.201,8,5,16,2) +31 +"DATA",1130580001.201,8,5,16,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,16,3,1,0) +341 +"DATA",1130580001.201,8,5,16,3,2,0) +340 +"DATA",1130580001.201,8,5,16,3,3,0) +316 +"DATA",1130580001.201,8,5,16,3,4,0) +317 +"DATA",1130580001.201,8,5,16,3,5,0) +210 +"DATA",1130580001.201,8,5,16,3,6,0) +97 +"DATA",1130580001.201,8,5,16,3,7,0) +99 +"DATA",1130580001.201,8,5,16,3,8,0) +212 +"DATA",1130580001.201,8,5,16,3,9,0) +199 +"DATA",1130580001.201,8,5,16,3,10,0) +219 +"DATA",1130580001.201,8,5,16,3,11,0) +221 +"DATA",1130580001.201,8,5,16,3,12,0) +220 +"DATA",1130580001.201,8,5,16,3,13,0) +222 +"DATA",1130580001.201,8,5,16,3,14,0) +223 +"DATA",1130580001.201,8,5,16,3,15,0) +225 +"DATA",1130580001.201,8,5,16,3,16,0) +224 +"DATA",1130580001.201,8,5,16,3,17,0) +227 +"DATA",1130580001.201,8,5,16,3,18,0) +226 +"DATA",1130580001.201,8,5,16,3,19,0) +218 +"DATA",1130580001.201,8,5,16,3,20,0) +172 +"DATA",1130580001.201,8,5,16,3,21,0) +181 +"DATA",1130580001.201,8,5,16,3,22,0) +171 +"DATA",1130580001.201,8,5,16,3,23,0) +176 +"DATA",1130580001.201,8,5,16,3,24,0) +174 +"DATA",1130580001.201,8,5,16,3,25,0) +175 +"DATA",1130580001.201,8,5,16,3,26,0) +177 +"DATA",1130580001.201,8,5,16,3,27,0) +178 +"DATA",1130580001.201,8,5,16,3,28,0) +179 +"DATA",1130580001.201,8,5,16,3,29,0) +180 +"DATA",1130580001.201,8,5,16,3,30,0) +306 +"DATA",1130580001.201,8,5,16,3,31,0) +309 +"DATA",1130580001.201,8,5,16,3,32,0) +308 +"DATA",1130580001.201,8,5,16,3,33,0) +310 +"DATA",1130580001.201,8,5,16,3,34,0) +318 +"DATA",1130580001.201,8,5,16,3,35,0) +338 +"DATA",1130580001.201,8,5,16,3,36,0) +183 +"DATA",1130580001.201,8,5,16,3,37,0) +312 +"DATA",1130580001.201,8,5,16,3,38,0) +233 +"DATA",1130580001.201,8,5,16,3,39,0) +187 +"DATA",1130580001.201,8,5,16,3,40,0) +191 +"DATA",1130580001.201,8,5,16,3,41,0) +190 +"DATA",1130580001.201,8,5,16,3,42,0) +188 +"DATA",1130580001.201,8,5,16,3,43,0) +192 +"DATA",1130580001.201,8,5,16,3,44,0) +189 +"DATA",1130580001.201,8,5,16,3,45,0) +349 +"DATA",1130580001.201,8,5,16,3,46,0) +322 +"DATA",1130580001.201,8,5,16,3,47,0) +346 +"DATA",1130580001.201,8,5,16,3,48,0) +345 +"DATA",1130580001.201,8,5,16,3,49,0) +319 +"DATA",1130580001.201,8,5,16,3,50,0) +323 +"DATA",1130580001.201,8,5,16,3,51,0) +321 +"DATA",1130580001.201,8,5,16,3,52,0) +344 +"DATA",1130580001.201,8,5,16,3,53,0) +343 +"DATA",1130580001.201,8,5,16,3,54,0) +336 +"DATA",1130580001.201,8,5,16,3,55,0) +335 +"DATA",1130580001.201,8,5,16,3,56,0) +333 +"DATA",1130580001.201,8,5,16,3,57,0) +211 +"DATA",1130580001.201,8,5,16,3,58,0) +270 +"DATA",1130580001.201,8,5,16,3,59,0) +271 +"DATA",1130580001.201,8,5,16,3,60,0) +110 +"DATA",1130580001.201,8,5,16,3,61,0) +331 +"DATA",1130580001.201,8,5,16,3,62,0) +14 +"DATA",1130580001.201,8,5,16,3,63,0) +121 +"DATA",1130580001.201,8,5,16,3,64,0) +18 +"DATA",1130580001.201,8,5,16,3,65,0) +9 +"DATA",1130580001.201,8,5,16,3,66,0) +137 +"DATA",1130580001.201,8,5,16,3,67,0) +332 +"DATA",1130580001.201,8,5,16,3,68,0) +126 +"DATA",1130580001.201,8,5,16,4) +68^46 +"DATA",1130580001.201,8,5,17,0) +100 +"DATA",1130580001.201,8,5,17,2) +0 +"DATA",1130580001.201,8,5,17,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,17,3,1,0) +341 +"DATA",1130580001.201,8,5,17,3,2,0) +340 +"DATA",1130580001.201,8,5,17,3,3,0) +316 +"DATA",1130580001.201,8,5,17,3,4,0) +317 +"DATA",1130580001.201,8,5,17,3,5,0) +210 +"DATA",1130580001.201,8,5,17,3,6,0) +97 +"DATA",1130580001.201,8,5,17,3,7,0) +99 +"DATA",1130580001.201,8,5,17,3,8,0) +212 +"DATA",1130580001.201,8,5,17,3,9,0) +199 +"DATA",1130580001.201,8,5,17,3,10,0) +219 +"DATA",1130580001.201,8,5,17,3,11,0) +221 +"DATA",1130580001.201,8,5,17,3,12,0) +220 +"DATA",1130580001.201,8,5,17,3,13,0) +222 +"DATA",1130580001.201,8,5,17,3,14,0) +223 +"DATA",1130580001.201,8,5,17,3,15,0) +225 +"DATA",1130580001.201,8,5,17,3,16,0) +224 +"DATA",1130580001.201,8,5,17,3,17,0) +227 +"DATA",1130580001.201,8,5,17,3,18,0) +226 +"DATA",1130580001.201,8,5,17,3,19,0) +218 +"DATA",1130580001.201,8,5,17,3,20,0) +172 +"DATA",1130580001.201,8,5,17,3,21,0) +181 +"DATA",1130580001.201,8,5,17,3,22,0) +171 +"DATA",1130580001.201,8,5,17,3,23,0) +176 +"DATA",1130580001.201,8,5,17,3,24,0) +174 +"DATA",1130580001.201,8,5,17,3,25,0) +175 +"DATA",1130580001.201,8,5,17,3,26,0) +177 +"DATA",1130580001.201,8,5,17,3,27,0) +178 +"DATA",1130580001.201,8,5,17,3,28,0) +179 +"DATA",1130580001.201,8,5,17,3,29,0) +180 +"DATA",1130580001.201,8,5,17,3,30,0) +306 +"DATA",1130580001.201,8,5,17,3,31,0) +309 +"DATA",1130580001.201,8,5,17,3,32,0) +308 +"DATA",1130580001.201,8,5,17,3,33,0) +310 +"DATA",1130580001.201,8,5,17,3,34,0) +318 +"DATA",1130580001.201,8,5,17,3,35,0) +338 +"DATA",1130580001.201,8,5,17,3,36,0) +183 +"DATA",1130580001.201,8,5,17,3,37,0) +312 +"DATA",1130580001.201,8,5,17,3,38,0) +233 +"DATA",1130580001.201,8,5,17,3,39,0) +187 +"DATA",1130580001.201,8,5,17,3,40,0) +191 +"DATA",1130580001.201,8,5,17,3,41,0) +190 +"DATA",1130580001.201,8,5,17,3,42,0) +188 +"DATA",1130580001.201,8,5,17,3,43,0) +192 +"DATA",1130580001.201,8,5,17,3,44,0) +189 +"DATA",1130580001.201,8,5,17,3,45,0) +349 +"DATA",1130580001.201,8,5,17,3,46,0) +322 +"DATA",1130580001.201,8,5,17,3,47,0) +346 +"DATA",1130580001.201,8,5,17,3,48,0) +345 +"DATA",1130580001.201,8,5,17,3,49,0) +319 +"DATA",1130580001.201,8,5,17,3,50,0) +323 +"DATA",1130580001.201,8,5,17,3,51,0) +321 +"DATA",1130580001.201,8,5,17,3,52,0) +344 +"DATA",1130580001.201,8,5,17,3,53,0) +343 +"DATA",1130580001.201,8,5,17,3,54,0) +336 +"DATA",1130580001.201,8,5,17,3,55,0) +335 +"DATA",1130580001.201,8,5,17,3,56,0) +333 +"DATA",1130580001.201,8,5,17,3,57,0) +211 +"DATA",1130580001.201,8,5,17,3,58,0) +270 +"DATA",1130580001.201,8,5,17,3,59,0) +271 +"DATA",1130580001.201,8,5,17,3,60,0) +110 +"DATA",1130580001.201,8,5,17,3,61,0) +331 +"DATA",1130580001.201,8,5,17,3,62,0) +14 +"DATA",1130580001.201,8,5,17,3,63,0) +121 +"DATA",1130580001.201,8,5,17,3,64,0) +18 +"DATA",1130580001.201,8,5,17,3,65,0) +9 +"DATA",1130580001.201,8,5,17,3,66,0) +137 +"DATA",1130580001.201,8,5,17,3,67,0) +332 +"DATA",1130580001.201,8,5,17,3,68,0) +126 +"DATA",1130580001.201,8,5,17,4) +68^0 +"DATA",1130580001.201,8,5,18,0) +99 +"DATA",1130580001.201,8,5,18,2) +0 +"DATA",1130580001.201,8,5,18,3,0) +^1130580001.20112P^68^68 +"DATA",1130580001.201,8,5,18,3,1,0) +341 +"DATA",1130580001.201,8,5,18,3,2,0) +340 +"DATA",1130580001.201,8,5,18,3,3,0) +316 +"DATA",1130580001.201,8,5,18,3,4,0) +317 +"DATA",1130580001.201,8,5,18,3,5,0) +210 +"DATA",1130580001.201,8,5,18,3,6,0) +97 +"DATA",1130580001.201,8,5,18,3,7,0) +99 +"DATA",1130580001.201,8,5,18,3,8,0) +212 +"DATA",1130580001.201,8,5,18,3,9,0) +199 +"DATA",1130580001.201,8,5,18,3,10,0) +219 +"DATA",1130580001.201,8,5,18,3,11,0) +221 +"DATA",1130580001.201,8,5,18,3,12,0) +220 +"DATA",1130580001.201,8,5,18,3,13,0) +222 +"DATA",1130580001.201,8,5,18,3,14,0) +223 +"DATA",1130580001.201,8,5,18,3,15,0) +225 +"DATA",1130580001.201,8,5,18,3,16,0) +224 +"DATA",1130580001.201,8,5,18,3,17,0) +227 +"DATA",1130580001.201,8,5,18,3,18,0) +226 +"DATA",1130580001.201,8,5,18,3,19,0) +218 +"DATA",1130580001.201,8,5,18,3,20,0) +172 +"DATA",1130580001.201,8,5,18,3,21,0) +181 +"DATA",1130580001.201,8,5,18,3,22,0) +171 +"DATA",1130580001.201,8,5,18,3,23,0) +176 +"DATA",1130580001.201,8,5,18,3,24,0) +174 +"DATA",1130580001.201,8,5,18,3,25,0) +175 +"DATA",1130580001.201,8,5,18,3,26,0) +177 +"DATA",1130580001.201,8,5,18,3,27,0) +178 +"DATA",1130580001.201,8,5,18,3,28,0) +179 +"DATA",1130580001.201,8,5,18,3,29,0) +180 +"DATA",1130580001.201,8,5,18,3,30,0) +306 +"DATA",1130580001.201,8,5,18,3,31,0) +309 +"DATA",1130580001.201,8,5,18,3,32,0) +308 +"DATA",1130580001.201,8,5,18,3,33,0) +310 +"DATA",1130580001.201,8,5,18,3,34,0) +318 +"DATA",1130580001.201,8,5,18,3,35,0) +338 +"DATA",1130580001.201,8,5,18,3,36,0) +183 +"DATA",1130580001.201,8,5,18,3,37,0) +312 +"DATA",1130580001.201,8,5,18,3,38,0) +233 +"DATA",1130580001.201,8,5,18,3,39,0) +187 +"DATA",1130580001.201,8,5,18,3,40,0) +191 +"DATA",1130580001.201,8,5,18,3,41,0) +190 +"DATA",1130580001.201,8,5,18,3,42,0) +188 +"DATA",1130580001.201,8,5,18,3,43,0) +192 +"DATA",1130580001.201,8,5,18,3,44,0) +189 +"DATA",1130580001.201,8,5,18,3,45,0) +349 +"DATA",1130580001.201,8,5,18,3,46,0) +322 +"DATA",1130580001.201,8,5,18,3,47,0) +346 +"DATA",1130580001.201,8,5,18,3,48,0) +345 +"DATA",1130580001.201,8,5,18,3,49,0) +319 +"DATA",1130580001.201,8,5,18,3,50,0) +323 +"DATA",1130580001.201,8,5,18,3,51,0) +321 +"DATA",1130580001.201,8,5,18,3,52,0) +344 +"DATA",1130580001.201,8,5,18,3,53,0) +343 +"DATA",1130580001.201,8,5,18,3,54,0) +336 +"DATA",1130580001.201,8,5,18,3,55,0) +335 +"DATA",1130580001.201,8,5,18,3,56,0) +333 +"DATA",1130580001.201,8,5,18,3,57,0) +211 +"DATA",1130580001.201,8,5,18,3,58,0) +270 +"DATA",1130580001.201,8,5,18,3,59,0) +271 +"DATA",1130580001.201,8,5,18,3,60,0) +110 +"DATA",1130580001.201,8,5,18,3,61,0) +331 +"DATA",1130580001.201,8,5,18,3,62,0) +14 +"DATA",1130580001.201,8,5,18,3,63,0) +121 +"DATA",1130580001.201,8,5,18,3,64,0) +18 +"DATA",1130580001.201,8,5,18,3,65,0) +9 +"DATA",1130580001.201,8,5,18,3,66,0) +137 +"DATA",1130580001.201,8,5,18,3,67,0) +332 +"DATA",1130580001.201,8,5,18,3,68,0) +126 +"DATA",1130580001.201,8,5,18,4) +68^0 +"DATA",1130580001.301,5,0) +MU 2011 INP NO MED +"DATA",1130580001.301,5,3) +NoMed +"DATA",1130580001.301,9,0) +MU 2011 INP FAIL DEMO +"DATA",1130580001.301,9,3) +FailedDemographics +"DATA",1130580001.301,10,0) +MU 2011 INP CPOE MED ORDERS +"DATA",1130580001.301,10,3) +HasMedOrders +"DATA",1130580001.301,11,0) +MU 2011 INP NO CPOE MED +"DATA",1130580001.301,11,3) +NoMedOrders +"DATA",1130580001.301,12,0) +MU 2011 INP HAS SMOKING ST +"DATA",1130580001.301,12,3) +HasSmokingStatus +"DATA",1130580001.301,13,0) +MU 2011 INP NO SMOKING ST +"DATA",1130580001.301,13,3) +NoSmokingStatus +"DATA",1130580001.301,14,0) +MU 2011 INP OVER 65 DEN +"DATA",1130580001.301,14,3) +Over65 +"DATA",1130580001.301,15,0) +MU 2011 INP HAS ADV DIR +"DATA",1130580001.301,15,3) +HasAdvancedDirective +"DATA",1130580001.301,16,0) +MU 2011 INP HAS VITAL SIGNS +"DATA",1130580001.301,16,3) +HasVitalSigns +"DATA",1130580001.301,17,0) +MU 2011 INP NO ADV DIR +"DATA",1130580001.301,17,3) +NoAdvancedDirective +"DATA",1130580001.301,18,0) +MU 2011 INP NO VITAL SIGNS +"DATA",1130580001.301,18,3) +NoVitalSigns +"DATA",1130580001.301,19,0) +MU 2011 INP HAS MED RECON +"DATA",1130580001.301,19,3) +HasMedRecon +"DATA",1130580001.301,20,0) +MU 2011 INP NO MED RECON +"DATA",1130580001.301,20,3) +NoMedRecon +"DATA",1130580001.301,21,0) +MU 2011 INP XFER OF CARE DEN +"DATA",1130580001.301,21,3) +XferOfCare +"DATA",1130580001.301,24,0) +MU 2011 INP HAS ALLERGY +"DATA",1130580001.301,24,1,0) +^1130580001.311P^40^40 +"DATA",1130580001.301,24,1,1,0) +18 +"DATA",1130580001.301,24,1,2,0) +97 +"DATA",1130580001.301,24,1,3,0) +99 +"DATA",1130580001.301,24,1,4,0) +110 +"DATA",1130580001.301,24,1,5,0) +121 +"DATA",1130580001.301,24,1,6,0) +126 +"DATA",1130580001.301,24,1,7,0) +137 +"DATA",1130580001.301,24,1,8,0) +171 +"DATA",1130580001.301,24,1,9,0) +172 +"DATA",1130580001.301,24,1,10,0) +174 +"DATA",1130580001.301,24,1,11,0) +175 +"DATA",1130580001.301,24,1,12,0) +176 +"DATA",1130580001.301,24,1,13,0) +177 +"DATA",1130580001.301,24,1,14,0) +178 +"DATA",1130580001.301,24,1,15,0) +179 +"DATA",1130580001.301,24,1,16,0) +180 +"DATA",1130580001.301,24,1,17,0) +181 +"DATA",1130580001.301,24,1,18,0) +183 +"DATA",1130580001.301,24,1,19,0) +187 +"DATA",1130580001.301,24,1,20,0) +189 +"DATA",1130580001.301,24,1,21,0) +199 +"DATA",1130580001.301,24,1,22,0) +210 +"DATA",1130580001.301,24,1,23,0) +211 +"DATA",1130580001.301,24,1,24,0) +212 +"DATA",1130580001.301,24,1,25,0) +218 +"DATA",1130580001.301,24,1,26,0) +220 +"DATA",1130580001.301,24,1,27,0) +221 +"DATA",1130580001.301,24,1,28,0) +227 +"DATA",1130580001.301,24,1,29,0) +233 +"DATA",1130580001.301,24,1,30,0) +270 +"DATA",1130580001.301,24,1,31,0) +306 +"DATA",1130580001.301,24,1,32,0) +308 +"DATA",1130580001.301,24,1,33,0) +309 +"DATA",1130580001.301,24,1,34,0) +321 +"DATA",1130580001.301,24,1,35,0) +322 +"DATA",1130580001.301,24,1,36,0) +332 +"DATA",1130580001.301,24,1,37,0) +341 +"DATA",1130580001.301,24,1,38,0) +343 +"DATA",1130580001.301,24,1,39,0) +344 +"DATA",1130580001.301,24,1,40,0) +345 +"DATA",1130580001.301,24,3) +HasAllergy +"DATA",1130580001.301,25,0) +MU 2011 INP HAS DEMO +"DATA",1130580001.301,25,1,0) +^1130580001.311P^69^69 +"DATA",1130580001.301,25,1,1,0) +9 +"DATA",1130580001.301,25,1,2,0) +14 +"DATA",1130580001.301,25,1,3,0) +18 +"DATA",1130580001.301,25,1,4,0) +97 +"DATA",1130580001.301,25,1,5,0) +99 +"DATA",1130580001.301,25,1,6,0) +110 +"DATA",1130580001.301,25,1,7,0) +121 +"DATA",1130580001.301,25,1,8,0) +126 +"DATA",1130580001.301,25,1,9,0) +137 +"DATA",1130580001.301,25,1,10,0) +171 +"DATA",1130580001.301,25,1,11,0) +172 +"DATA",1130580001.301,25,1,12,0) +174 +"DATA",1130580001.301,25,1,13,0) +175 +"DATA",1130580001.301,25,1,14,0) +176 +"DATA",1130580001.301,25,1,15,0) +177 +"DATA",1130580001.301,25,1,16,0) +178 +"DATA",1130580001.301,25,1,17,0) +179 +"DATA",1130580001.301,25,1,18,0) +180 +"DATA",1130580001.301,25,1,19,0) +181 +"DATA",1130580001.301,25,1,20,0) +183 +"DATA",1130580001.301,25,1,21,0) +187 +"DATA",1130580001.301,25,1,22,0) +188 +"DATA",1130580001.301,25,1,23,0) +189 +"DATA",1130580001.301,25,1,24,0) +190 +"DATA",1130580001.301,25,1,25,0) +191 +"DATA",1130580001.301,25,1,26,0) +192 +"DATA",1130580001.301,25,1,27,0) +199 +"DATA",1130580001.301,25,1,28,0) +210 +"DATA",1130580001.301,25,1,29,0) +211 +"DATA",1130580001.301,25,1,30,0) +212 +"DATA",1130580001.301,25,1,31,0) +218 +"DATA",1130580001.301,25,1,32,0) +219 +"DATA",1130580001.301,25,1,33,0) +220 +"DATA",1130580001.301,25,1,34,0) +221 +"DATA",1130580001.301,25,1,35,0) +222 +"DATA",1130580001.301,25,1,36,0) +223 +"DATA",1130580001.301,25,1,37,0) +224 +"DATA",1130580001.301,25,1,38,0) +225 +"DATA",1130580001.301,25,1,39,0) +226 +"DATA",1130580001.301,25,1,40,0) +227 +"DATA",1130580001.301,25,1,41,0) +233 +"DATA",1130580001.301,25,1,42,0) +270 +"DATA",1130580001.301,25,1,43,0) +271 +"DATA",1130580001.301,25,1,44,0) +306 +"DATA",1130580001.301,25,1,45,0) +308 +"DATA",1130580001.301,25,1,46,0) +309 +"DATA",1130580001.301,25,1,47,0) +310 +"DATA",1130580001.301,25,1,48,0) +312 +"DATA",1130580001.301,25,1,49,0) +316 +"DATA",1130580001.301,25,1,50,0) +317 +"DATA",1130580001.301,25,1,51,0) +318 +"DATA",1130580001.301,25,1,52,0) +319 +"DATA",1130580001.301,25,1,53,0) +321 +"DATA",1130580001.301,25,1,54,0) +322 +"DATA",1130580001.301,25,1,55,0) +323 +"DATA",1130580001.301,25,1,56,0) +331 +"DATA",1130580001.301,25,1,57,0) +332 +"DATA",1130580001.301,25,1,58,0) +333 +"DATA",1130580001.301,25,1,59,0) +335 +"DATA",1130580001.301,25,1,60,0) +336 +"DATA",1130580001.301,25,1,61,0) +338 +"DATA",1130580001.301,25,1,62,0) +340 +"DATA",1130580001.301,25,1,63,0) +341 +"DATA",1130580001.301,25,1,64,0) +343 +"DATA",1130580001.301,25,1,65,0) +344 +"DATA",1130580001.301,25,1,66,0) +345 +"DATA",1130580001.301,25,1,67,0) +346 +"DATA",1130580001.301,25,1,68,0) +349 +"DATA",1130580001.301,25,1,69,0) +351 +"DATA",1130580001.301,25,3) +HasDemographics +"DATA",1130580001.301,26,0) +MU 2011 INP HAS MED +"DATA",1130580001.301,26,1,0) +^1130580001.311P^68^68 +"DATA",1130580001.301,26,1,1,0) +9 +"DATA",1130580001.301,26,1,2,0) +14 +"DATA",1130580001.301,26,1,3,0) +18 +"DATA",1130580001.301,26,1,4,0) +97 +"DATA",1130580001.301,26,1,5,0) +99 +"DATA",1130580001.301,26,1,6,0) +121 +"DATA",1130580001.301,26,1,7,0) +126 +"DATA",1130580001.301,26,1,8,0) +137 +"DATA",1130580001.301,26,1,9,0) +171 +"DATA",1130580001.301,26,1,10,0) +172 +"DATA",1130580001.301,26,1,11,0) +174 +"DATA",1130580001.301,26,1,12,0) +175 +"DATA",1130580001.301,26,1,13,0) +176 +"DATA",1130580001.301,26,1,14,0) +177 +"DATA",1130580001.301,26,1,15,0) +178 +"DATA",1130580001.301,26,1,16,0) +179 +"DATA",1130580001.301,26,1,17,0) +180 +"DATA",1130580001.301,26,1,18,0) +181 +"DATA",1130580001.301,26,1,19,0) +183 +"DATA",1130580001.301,26,1,20,0) +187 +"DATA",1130580001.301,26,1,21,0) +188 +"DATA",1130580001.301,26,1,22,0) +189 +"DATA",1130580001.301,26,1,23,0) +190 +"DATA",1130580001.301,26,1,24,0) +191 +"DATA",1130580001.301,26,1,25,0) +192 +"DATA",1130580001.301,26,1,26,0) +199 +"DATA",1130580001.301,26,1,27,0) +210 +"DATA",1130580001.301,26,1,28,0) +211 +"DATA",1130580001.301,26,1,29,0) +212 +"DATA",1130580001.301,26,1,30,0) +218 +"DATA",1130580001.301,26,1,31,0) +219 +"DATA",1130580001.301,26,1,32,0) +220 +"DATA",1130580001.301,26,1,33,0) +221 +"DATA",1130580001.301,26,1,34,0) +222 +"DATA",1130580001.301,26,1,35,0) +223 +"DATA",1130580001.301,26,1,36,0) +224 +"DATA",1130580001.301,26,1,37,0) +225 +"DATA",1130580001.301,26,1,38,0) +226 +"DATA",1130580001.301,26,1,39,0) +227 +"DATA",1130580001.301,26,1,40,0) +233 +"DATA",1130580001.301,26,1,41,0) +270 +"DATA",1130580001.301,26,1,42,0) +271 +"DATA",1130580001.301,26,1,43,0) +306 +"DATA",1130580001.301,26,1,44,0) +308 +"DATA",1130580001.301,26,1,45,0) +309 +"DATA",1130580001.301,26,1,46,0) +310 +"DATA",1130580001.301,26,1,47,0) +312 +"DATA",1130580001.301,26,1,48,0) +316 +"DATA",1130580001.301,26,1,49,0) +317 +"DATA",1130580001.301,26,1,50,0) +318 +"DATA",1130580001.301,26,1,51,0) +319 +"DATA",1130580001.301,26,1,52,0) +321 +"DATA",1130580001.301,26,1,53,0) +322 +"DATA",1130580001.301,26,1,54,0) +323 +"DATA",1130580001.301,26,1,55,0) +331 +"DATA",1130580001.301,26,1,56,0) +332 +"DATA",1130580001.301,26,1,57,0) +333 +"DATA",1130580001.301,26,1,58,0) +335 +"DATA",1130580001.301,26,1,59,0) +336 +"DATA",1130580001.301,26,1,60,0) +338 +"DATA",1130580001.301,26,1,61,0) +340 +"DATA",1130580001.301,26,1,62,0) +341 +"DATA",1130580001.301,26,1,63,0) +343 +"DATA",1130580001.301,26,1,64,0) +344 +"DATA",1130580001.301,26,1,65,0) +345 +"DATA",1130580001.301,26,1,66,0) +346 +"DATA",1130580001.301,26,1,67,0) +349 +"DATA",1130580001.301,26,1,68,0) +351 +"DATA",1130580001.301,26,3) +HasMed +"DATA",1130580001.301,27,0) +MU 2011 INP HAS PROBLEM +"DATA",1130580001.301,27,1,0) +^1130580001.311P^31^31 +"DATA",1130580001.301,27,1,1,0) +9 +"DATA",1130580001.301,27,1,2,0) +18 +"DATA",1130580001.301,27,1,3,0) +97 +"DATA",1130580001.301,27,1,4,0) +99 +"DATA",1130580001.301,27,1,5,0) +110 +"DATA",1130580001.301,27,1,6,0) +126 +"DATA",1130580001.301,27,1,7,0) +137 +"DATA",1130580001.301,27,1,8,0) +171 +"DATA",1130580001.301,27,1,9,0) +172 +"DATA",1130580001.301,27,1,10,0) +174 +"DATA",1130580001.301,27,1,11,0) +175 +"DATA",1130580001.301,27,1,12,0) +176 +"DATA",1130580001.301,27,1,13,0) +177 +"DATA",1130580001.301,27,1,14,0) +178 +"DATA",1130580001.301,27,1,15,0) +179 +"DATA",1130580001.301,27,1,16,0) +180 +"DATA",1130580001.301,27,1,17,0) +183 +"DATA",1130580001.301,27,1,18,0) +187 +"DATA",1130580001.301,27,1,19,0) +189 +"DATA",1130580001.301,27,1,20,0) +199 +"DATA",1130580001.301,27,1,21,0) +210 +"DATA",1130580001.301,27,1,22,0) +211 +"DATA",1130580001.301,27,1,23,0) +212 +"DATA",1130580001.301,27,1,24,0) +218 +"DATA",1130580001.301,27,1,25,0) +219 +"DATA",1130580001.301,27,1,26,0) +220 +"DATA",1130580001.301,27,1,27,0) +221 +"DATA",1130580001.301,27,1,28,0) +223 +"DATA",1130580001.301,27,1,29,0) +227 +"DATA",1130580001.301,27,1,30,0) +323 +"DATA",1130580001.301,27,1,31,0) +332 +"DATA",1130580001.301,27,3) +HasProblem +"DATA",1130580001.301,28,0) +MU 2011 INP NO ALLERGY +"DATA",1130580001.301,28,1,0) +^1130580001.311P^29^29 +"DATA",1130580001.301,28,1,1,0) +9 +"DATA",1130580001.301,28,1,2,0) +14 +"DATA",1130580001.301,28,1,3,0) +188 +"DATA",1130580001.301,28,1,4,0) +190 +"DATA",1130580001.301,28,1,5,0) +191 +"DATA",1130580001.301,28,1,6,0) +192 +"DATA",1130580001.301,28,1,7,0) +219 +"DATA",1130580001.301,28,1,8,0) +222 +"DATA",1130580001.301,28,1,9,0) +223 +"DATA",1130580001.301,28,1,10,0) +224 +"DATA",1130580001.301,28,1,11,0) +225 +"DATA",1130580001.301,28,1,12,0) +226 +"DATA",1130580001.301,28,1,13,0) +271 +"DATA",1130580001.301,28,1,14,0) +310 +"DATA",1130580001.301,28,1,15,0) +312 +"DATA",1130580001.301,28,1,16,0) +316 +"DATA",1130580001.301,28,1,17,0) +317 +"DATA",1130580001.301,28,1,18,0) +318 +"DATA",1130580001.301,28,1,19,0) +319 +"DATA",1130580001.301,28,1,20,0) +323 +"DATA",1130580001.301,28,1,21,0) +331 +"DATA",1130580001.301,28,1,22,0) +333 +"DATA",1130580001.301,28,1,23,0) +335 +"DATA",1130580001.301,28,1,24,0) +336 +"DATA",1130580001.301,28,1,25,0) +338 +"DATA",1130580001.301,28,1,26,0) +340 +"DATA",1130580001.301,28,1,27,0) +346 +"DATA",1130580001.301,28,1,28,0) +349 +"DATA",1130580001.301,28,1,29,0) +351 +"DATA",1130580001.301,28,3) +NoAllergy +"DATA",1130580001.301,29,0) +MU 2011 INP NO PROBLEM +"DATA",1130580001.301,29,1,0) +^1130580001.311P^38^38 +"DATA",1130580001.301,29,1,1,0) +14 +"DATA",1130580001.301,29,1,2,0) +121 +"DATA",1130580001.301,29,1,3,0) +181 +"DATA",1130580001.301,29,1,4,0) +188 +"DATA",1130580001.301,29,1,5,0) +190 +"DATA",1130580001.301,29,1,6,0) +191 +"DATA",1130580001.301,29,1,7,0) +192 +"DATA",1130580001.301,29,1,8,0) +222 +"DATA",1130580001.301,29,1,9,0) +224 +"DATA",1130580001.301,29,1,10,0) +225 +"DATA",1130580001.301,29,1,11,0) +226 +"DATA",1130580001.301,29,1,12,0) +233 +"DATA",1130580001.301,29,1,13,0) +270 +"DATA",1130580001.301,29,1,14,0) +271 +"DATA",1130580001.301,29,1,15,0) +306 +"DATA",1130580001.301,29,1,16,0) +308 +"DATA",1130580001.301,29,1,17,0) +309 +"DATA",1130580001.301,29,1,18,0) +310 +"DATA",1130580001.301,29,1,19,0) +312 +"DATA",1130580001.301,29,1,20,0) +316 +"DATA",1130580001.301,29,1,21,0) +317 +"DATA",1130580001.301,29,1,22,0) +318 +"DATA",1130580001.301,29,1,23,0) +319 +"DATA",1130580001.301,29,1,24,0) +321 +"DATA",1130580001.301,29,1,25,0) +322 +"DATA",1130580001.301,29,1,26,0) +331 +"DATA",1130580001.301,29,1,27,0) +333 +"DATA",1130580001.301,29,1,28,0) +335 +"DATA",1130580001.301,29,1,29,0) +336 +"DATA",1130580001.301,29,1,30,0) +338 +"DATA",1130580001.301,29,1,31,0) +340 +"DATA",1130580001.301,29,1,32,0) +341 +"DATA",1130580001.301,29,1,33,0) +343 +"DATA",1130580001.301,29,1,34,0) +344 +"DATA",1130580001.301,29,1,35,0) +345 +"DATA",1130580001.301,29,1,36,0) +346 +"DATA",1130580001.301,29,1,37,0) +349 +"DATA",1130580001.301,29,1,38,0) +351 +"DATA",1130580001.301,29,3) +NoProblem +"DATA",1130580001.301,30,0) +MU 2011 INPATIENT PATIENT DEN +"DATA",1130580001.301,30,1,0) +^1130580001.311P^69^69 +"DATA",1130580001.301,30,1,1,0) +9 +"DATA",1130580001.301,30,1,2,0) +14 +"DATA",1130580001.301,30,1,3,0) +18 +"DATA",1130580001.301,30,1,4,0) +97 +"DATA",1130580001.301,30,1,5,0) +99 +"DATA",1130580001.301,30,1,6,0) +110 +"DATA",1130580001.301,30,1,7,0) +121 +"DATA",1130580001.301,30,1,8,0) +126 +"DATA",1130580001.301,30,1,9,0) +137 +"DATA",1130580001.301,30,1,10,0) +171 +"DATA",1130580001.301,30,1,11,0) +172 +"DATA",1130580001.301,30,1,12,0) +174 +"DATA",1130580001.301,30,1,13,0) +175 +"DATA",1130580001.301,30,1,14,0) +176 +"DATA",1130580001.301,30,1,15,0) +177 +"DATA",1130580001.301,30,1,16,0) +178 +"DATA",1130580001.301,30,1,17,0) +179 +"DATA",1130580001.301,30,1,18,0) +180 +"DATA",1130580001.301,30,1,19,0) +181 +"DATA",1130580001.301,30,1,20,0) +183 +"DATA",1130580001.301,30,1,21,0) +187 +"DATA",1130580001.301,30,1,22,0) +188 +"DATA",1130580001.301,30,1,23,0) +189 +"DATA",1130580001.301,30,1,24,0) +190 +"DATA",1130580001.301,30,1,25,0) +191 +"DATA",1130580001.301,30,1,26,0) +192 +"DATA",1130580001.301,30,1,27,0) +199 +"DATA",1130580001.301,30,1,28,0) +210 +"DATA",1130580001.301,30,1,29,0) +211 +"DATA",1130580001.301,30,1,30,0) +212 +"DATA",1130580001.301,30,1,31,0) +218 +"DATA",1130580001.301,30,1,32,0) +219 +"DATA",1130580001.301,30,1,33,0) +220 +"DATA",1130580001.301,30,1,34,0) +221 +"DATA",1130580001.301,30,1,35,0) +222 +"DATA",1130580001.301,30,1,36,0) +223 +"DATA",1130580001.301,30,1,37,0) +224 +"DATA",1130580001.301,30,1,38,0) +225 +"DATA",1130580001.301,30,1,39,0) +226 +"DATA",1130580001.301,30,1,40,0) +227 +"DATA",1130580001.301,30,1,41,0) +233 +"DATA",1130580001.301,30,1,42,0) +270 +"DATA",1130580001.301,30,1,43,0) +271 +"DATA",1130580001.301,30,1,44,0) +306 +"DATA",1130580001.301,30,1,45,0) +308 +"DATA",1130580001.301,30,1,46,0) +309 +"DATA",1130580001.301,30,1,47,0) +310 +"DATA",1130580001.301,30,1,48,0) +312 +"DATA",1130580001.301,30,1,49,0) +316 +"DATA",1130580001.301,30,1,50,0) +317 +"DATA",1130580001.301,30,1,51,0) +318 +"DATA",1130580001.301,30,1,52,0) +319 +"DATA",1130580001.301,30,1,53,0) +321 +"DATA",1130580001.301,30,1,54,0) +322 +"DATA",1130580001.301,30,1,55,0) +323 +"DATA",1130580001.301,30,1,56,0) +331 +"DATA",1130580001.301,30,1,57,0) +332 +"DATA",1130580001.301,30,1,58,0) +333 +"DATA",1130580001.301,30,1,59,0) +335 +"DATA",1130580001.301,30,1,60,0) +336 +"DATA",1130580001.301,30,1,61,0) +338 +"DATA",1130580001.301,30,1,62,0) +340 +"DATA",1130580001.301,30,1,63,0) +341 +"DATA",1130580001.301,30,1,64,0) +343 +"DATA",1130580001.301,30,1,65,0) +344 +"DATA",1130580001.301,30,1,66,0) +345 +"DATA",1130580001.301,30,1,67,0) +346 +"DATA",1130580001.301,30,1,68,0) +349 +"DATA",1130580001.301,30,1,69,0) +351 +"DATA",1130580001.301,30,3) +Patient +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"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^^y^o^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 +"FIA",1130580001.301) +C0Q PATIENT LIST +"FIA",1130580001.301,0) +^C0Q(301, +"FIA",1130580001.301,0,0) +1130580001.301I +"FIA",1130580001.301,0,1) +y^y^f^^n^^y^m^n +"FIA",1130580001.301,0,10) + +"FIA",1130580001.301,0,11) + +"FIA",1130580001.301,0,"RLRO") + +"FIA",1130580001.301,1130580001.301) +0 +"FIA",1130580001.301,1130580001.311) +0 +"FIA",1130580001.301,1130580001.3111) +0 +"FIA",1130580001.301,1130580001.321) +0 +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"IX",1130580001.301,1130580001.301,"CATTR",0) +1130580001.301^CATTR^ATTRIBUTE TO TIE PATIENT LIST RECORD TO INTERNAL ARRAYS^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"CATTR",1) +S ^C0Q(301,"CATTR",$E(X,1,64),DA)="" +"IX",1130580001.301,1130580001.301,"CATTR",2) +K ^C0Q(301,"CATTR",$E(X,1,64),DA) +"IX",1130580001.301,1130580001.301,"CATTR",2.5) +K ^C0Q(301,"CATTR") +"IX",1130580001.301,1130580001.301,"CATTR",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"CATTR",11.1,1,0) +1^F^1130580001.301^999^64^1^F +"KRN",.4,1589,-1) +0^3 +"KRN",.4,1589,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3110502 +"KRN",.4,1589,"F",2) +.01~.5~1~2~ +"KRN",.4,1589,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1590,-1) +0^2 +"KRN",.4,1590,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1590,"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,1590,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1591,-1) +0^1 +"KRN",.4,1591,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1591,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1591,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1592,-1) +0^5 +"KRN",.4,1592,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1592,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1592,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1592,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1592,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1592,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1592,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1592,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1593,-1) +0^4 +"KRN",.4,1593,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1593,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1593,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1593,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1593,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1593,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1593,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1593,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1594,-1) +0^6 +"KRN",.4,1594,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3110816 +"KRN",.4,1594,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1594,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1594,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1778,-1) +0^2 +"KRN",.402,1778,0) +C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3110809 +"KRN",.402,1778,"DR",1,1130580001.101) +.01;.5;1;2; +"KRN",.402,1779,-1) +0^1 +"KRN",.402,1779,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1779,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1779,"DR",2,1130580001.2011) +.01; +"KRN",19,11104,-1) +0^9 +"KRN",19,11104,0) +C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^ +"KRN",19,11104,30) +C0Q(101, +"KRN",19,11104,31) +AEMQL +"KRN",19,11104,50) +C0Q(101, +"KRN",19,11104,51) +[C0Q QUALITY MEASURE DEFINITION] +"KRN",19,11104,"U") +QUALITY MEASURE DEFINITION +"KRN",19,11105,-1) +0^8 +"KRN",19,11105,0) +C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^ +"KRN",19,11105,30) +C0Q(201, +"KRN",19,11105,31) +AEMQL +"KRN",19,11105,50) +C0Q(201, +"KRN",19,11105,51) +[C0Q MEASUREMENT SET DEFINE] +"KRN",19,11105,"U") +MEASURE SET DEFINITION +"KRN",19,11106,-1) +0^10 +"KRN",19,11106,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11106,10,0) +^19.01IP^14^14 +"KRN",19,11106,10,1,0) +11105 +"KRN",19,11106,10,1,"^") +C0Q MEASURE SET DEFINITION +"KRN",19,11106,10,2,0) +11104 +"KRN",19,11106,10,2,"^") +C0Q QUALITY MEASURE DEFINITION +"KRN",19,11106,10,6,0) +11110 +"KRN",19,11106,10,6,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11106,10,7,0) +11111 +"KRN",19,11106,10,7,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11106,10,9,0) +11113 +"KRN",19,11106,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11106,10,11,0) +11115 +"KRN",19,11106,10,11,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11106,10,12,0) +11116 +"KRN",19,11106,10,12,"^") +C0Q PQRI MENU +"KRN",19,11106,10,13,0) +11117 +"KRN",19,11106,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11106,10,14,0) +11118 +"KRN",19,11106,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11106,99) +62305,47814 +"KRN",19,11106,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11107,-1) +0^4 +"KRN",19,11107,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^ +"KRN",19,11107,60) +C0Q(101, +"KRN",19,11107,62) +0 +"KRN",19,11107,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11107,64) + +"KRN",19,11107,65) + +"KRN",19,11107,66) + +"KRN",19,11107,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11108,-1) +0^3 +"KRN",19,11108,0) +C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^ +"KRN",19,11108,60) +C0Q(201, +"KRN",19,11108,62) +0 +"KRN",19,11108,63) +[C0Q PRINT MEASUREMENT SET] +"KRN",19,11108,64) + +"KRN",19,11108,65) + +"KRN",19,11108,66) + +"KRN",19,11108,"U") +DISPLAY MEASURE SET +"KRN",19,11109,-1) +0^7 +"KRN",19,11109,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11109,25) +EN^C0QMAIN +"KRN",19,11109,"U") +LIST MEASURE SET +"KRN",19,11110,-1) +0^1 +"KRN",19,11110,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11110,25) +NBYP^C0QMAIN +"KRN",19,11110,"U") +BY PATIENT NUMERATOR +"KRN",19,11111,-1) +0^2 +"KRN",19,11111,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11111,25) +DBYP^C0QMAIN +"KRN",19,11111,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11112,-1) +0^5 +"KRN",19,11112,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11112,25) +EXPORT^C0QMAIN +"KRN",19,11112,"U") +EXPORT CCR BY MEASURE +"KRN",19,11113,-1) +0^12 +"KRN",19,11113,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11113,25) +EN2^C0QMAIN +"KRN",19,11113,"U") +COPY OVER PATIENT LISTS +"KRN",19,11114,-1) +0^6 +"KRN",19,11114,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11114,25) +ENEXP^C0QMAIN +"KRN",19,11114,"U") +ALL MEASURES EXPORT +"KRN",19,11115,-1) +0^15 +"KRN",19,11115,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11115,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11115,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11115,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11115,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11115,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11115,25) +QUE^C0QMAIN +"KRN",19,11115,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11116,-1) +0^13 +"KRN",19,11116,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11116,10,0) +^19.01IP^3^3 +"KRN",19,11116,10,1,0) +11114 +"KRN",19,11116,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11116,10,2,0) +11112 +"KRN",19,11116,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11116,10,3,0) +11109 +"KRN",19,11116,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11116,99) +62305,47814 +"KRN",19,11116,"U") +PQRI MENU +"KRN",19,11117,-1) +0^14 +"KRN",19,11117,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11117,30) +C0Q(201, +"KRN",19,11117,31) +AEMQ +"KRN",19,11117,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11117,80) +C0Q(201, +"KRN",19,11117,"U") +PRINT C0Q MEASURES +"KRN",19,11118,-1) +0^16 +"KRN",19,11118,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11118,25) +EN^C0QPQRI +"KRN",19,11118,"U") +PQRI PRINT XML +"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") +9 +"RTN","C0QERTIM") +0^5^B7596326 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; +"RTN","C0QERTIM",2,0) + ;;0.1;C0Q;;;Build 13 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QERTIM",58,0) + +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 13 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 13 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 13 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QIMMUN") +0^6^B6463760 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; +"RTN","C0QIMMUN",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 13 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",7,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",8,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",9,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",10,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",11,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",12,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",13,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",14,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",15,0) + . D:Y>0 +"RTN","C0QIMMUN",16,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",17,0) + . . L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",18,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",19,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",20,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",21,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",22,0) + . . Q +"RTN","C0QIMMUN",23,0) + . Q +"RTN","C0QIMMUN",24,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",25,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",26,0) + L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",27,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",28,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",29,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",30,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",31,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",32,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",33,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",34,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",35,0) + . Q +"RTN","C0QIMMUN",36,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",37,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",38,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",39,0) + Q +"RTN","C0QIMMUN",40,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",41,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",42,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",43,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",44,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",45,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",46,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",47,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",48,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",49,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",50,0) + . Q +"RTN","C0QIMMUN",51,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",52,0) + Q +"RTN","C0QMAIN") +0^1^B114653305 +"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 13 +"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) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"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) + ; iterate over the measures +"RTN","C0QMAIN",151,0) + S MEASURE=0 +"RTN","C0QMAIN",152,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",153,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",154,0) + . ; now count the numerator patients +"RTN","C0QMAIN",155,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",156,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",157,0) + . ; and count the denominator patients +"RTN","C0QMAIN",158,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",159,0) + . Q:DENOM=0 +"RTN","C0QMAIN",160,0) + . ; and stuff the values +"RTN","C0QMAIN",161,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",162,0) + . Q +"RTN","C0QMAIN",163,0) + Q +"RTN","C0QMAIN",164,0) + ; +"RTN","C0QMAIN",165,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",166,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",167,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",168,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",169,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",170,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",171,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",172,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",173,0) + N ZI S ZI="" +"RTN","C0QMAIN",174,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",175,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",176,0) + D DELIST("C0QM") +"RTN","C0QMAIN",177,0) + N ZII S ZII="" +"RTN","C0QMAIN",178,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",179,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",180,0) + K C0QM +"RTN","C0QMAIN",181,0) + D CLEAN^DILF +"RTN","C0QMAIN",182,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",183,0) + D DELIST("C0QM") +"RTN","C0QMAIN",184,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",185,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",186,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",187,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",188,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",189,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",190,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",191,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",192,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",193,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QMAIN",194,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",195,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",196,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",197,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QMAIN",198,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",199,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",200,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",201,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",202,0) + . N C0QUFN ; FILE NUMBER TO USE +"RTN","C0QMAIN",203,0) + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",204,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",205,0) + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",206,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",207,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",208,0) + . K C0QNUMP +"RTN","C0QMAIN",209,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",210,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",211,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",212,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",213,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",214,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",215,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",216,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",217,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",218,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",219,0) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",220,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",221,0) + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",222,0) + . ;D DELIST("G") +"RTN","C0QMAIN",223,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",224,0) + . ;S ZJ="" +"RTN","C0QMAIN",225,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",226,0) + . K C0QDEMP +"RTN","C0QMAIN",227,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",228,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",229,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",230,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",231,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",232,0) + . ;E D ; +"RTN","C0QMAIN",233,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",234,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",235,0) + Q +"RTN","C0QMAIN",236,0) + ; +"RTN","C0QMAIN",237,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",238,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",239,0) + ; +"RTN","C0QMAIN",240,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",241,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",242,0) + D CLEAN^DILF +"RTN","C0QMAIN",243,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",244,0) + D CLEAN^DILF +"RTN","C0QMAIN",245,0) + K ZERR +"RTN","C0QMAIN",246,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",247,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",248,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",249,0) + ;. W "ERROR",! +"RTN","C0QMAIN",250,0) + ;. ZWR ZERR +"RTN","C0QMAIN",251,0) + ;. B +"RTN","C0QMAIN",252,0) + K C0QFDA +"RTN","C0QMAIN",253,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",254,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",255,0) + Q +"RTN","C0QMAIN",256,0) + ; +"RTN","C0QMAIN",257,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",258,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",259,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",260,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",261,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",262,0) + N C0QI,C0QJ +"RTN","C0QMAIN",263,0) + N C0QFDA +"RTN","C0QMAIN",264,0) + S C0QI="" +"RTN","C0QMAIN",265,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",266,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",267,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",268,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",269,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",270,0) + K C0QFDA +"RTN","C0QMAIN",271,0) + S C0QI="" +"RTN","C0QMAIN",272,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",273,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",274,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",275,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",276,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",277,0) + Q +"RTN","C0QMAIN",278,0) + ; +"RTN","C0QMAIN",279,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",280,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",281,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",282,0) + S ZI="" +"RTN","C0QMAIN",283,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",284,0) + K @RTN +"RTN","C0QMAIN",285,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",286,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",287,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",288,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",289,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",290,0) + Q +"RTN","C0QMAIN",291,0) + ; +"RTN","C0QMAIN",292,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",293,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",294,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",295,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",296,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",297,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",298,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",299,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",300,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",301,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",302,0) + N C0QI,C0QJ +"RTN","C0QMAIN",303,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",304,0) + K C0QFDA +"RTN","C0QMAIN",305,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",306,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",307,0) + ;D +"RTN","C0QMAIN",308,0) + Q +"RTN","C0QMAIN",309,0) + ; +"RTN","C0QMAIN",310,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",311,0) + K ZERR +"RTN","C0QMAIN",312,0) + D CLEAN^DILF +"RTN","C0QMAIN",313,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",314,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",315,0) + ;. W "ERROR",! +"RTN","C0QMAIN",316,0) + ;. ZWR ZERR +"RTN","C0QMAIN",317,0) + ;. B +"RTN","C0QMAIN",318,0) + K C0QFDA +"RTN","C0QMAIN",319,0) + Q +"RTN","C0QMAIN",320,0) + ; +"RTN","C0QMAIN",321,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",322,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",323,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",324,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",325,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",326,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",327,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",328,0) + S ZTIO="" +"RTN","C0QMAIN",329,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",330,0) + D ^%ZTLOAD +"RTN","C0QMAIN",331,0) + Q +"RTN","C0QMAIN",332,0) + ; +"RTN","C0QMAIN",333,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",334,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",335,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",336,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",337,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",338,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",339,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",340,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",341,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",342,0) + N ZI S ZI="" +"RTN","C0QMAIN",343,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",344,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",345,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",346,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",347,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",348,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",349,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",350,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",351,0) + Q +"RTN","C0QPQRI") +0^7^B41579607 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 +"RTN","C0QPQRI",2,0) + ;;0.1;C0C;nopatch;noreleasedate;Build 13 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"RTN","C0QPRML") +0^8^B30599131 +"RTN","C0QPRML",1,0) +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm +"RTN","C0QPRML",2,0) + ;;1.0;MU PACKAGE;;;Build 13 +"RTN","C0QPRML",3,0) + ; +"RTN","C0QPRML",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QPRML",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QPRML",6,0) + ; +"RTN","C0QPRML",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPRML",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPRML",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPRML",10,0) + ;(at your option) any later version. +"RTN","C0QPRML",11,0) + ; +"RTN","C0QPRML",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPRML",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPRML",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPRML",15,0) + ;GNU General Public License for more details. +"RTN","C0QPRML",16,0) + ; +"RTN","C0QPRML",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPRML",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPRML",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPRML",20,0) + ; +"RTN","C0QPRML",21,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QPRML",22,0) + ; patient lists +"RTN","C0QPRML",23,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QPRML",24,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QPRML",25,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QPRML",26,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QPRML",27,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QPRML",28,0) + D ALL ; all currently admitted patients in the hospital +"RTN","C0QPRML",29,0) + D DIS ; all patients discharged since the reporting period began +"RTN","C0QPRML",30,0) + I C0QSS ZWR GRSLT +"RTN","C0QPRML",31,0) + I C0QPL D FILE ; FILE THE PATIENT LISTS +"RTN","C0QPRML",32,0) + Q +"RTN","C0QPRML",33,0) + ; +"RTN","C0QPRML",34,0) +ALL ;retrieve active inpatients +"RTN","C0QPRML",35,0) + N WARD S WARD="" +"RTN","C0QPRML",36,0) + F D Q:WARD="" +"RTN","C0QPRML",37,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QPRML",38,0) + . Q:WARD="" +"RTN","C0QPRML",39,0) + . N WIEN S WIEN="" +"RTN","C0QPRML",40,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QPRML",41,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QPRML",42,0) + . . N DFN,RB S DFN="" +"RTN","C0QPRML",43,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QPRML",44,0) + . . . D DEMO +"RTN","C0QPRML",45,0) + . . . D PROBLEM +"RTN","C0QPRML",46,0) + . . . D ALLERGY +"RTN","C0QPRML",47,0) + . . . D MEDS +"RTN","C0QPRML",48,0) + . . . I C0QPR D PRINT +"RTN","C0QPRML",49,0) + . . . I C0QSS D SS +"RTN","C0QPRML",50,0) + . . . I C0QPL D PATLIST +"RTN","C0QPRML",51,0) + Q +"RTN","C0QPRML",52,0) + ; +"RTN","C0QPRML",53,0) +DEMO ; patient demographics +"RTN","C0QPRML",54,0) + S PTNAME=$P(^DPT(DFN,0),U) ;patient name +"RTN","C0QPRML",55,0) + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",56,0) + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",57,0) + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",58,0) + S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",59,0) + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",60,0) + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",61,0) + S RACE="" +"RTN","C0QPRML",62,0) + F D Q:RACE="" +"RTN","C0QPRML",63,0) + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN +"RTN","C0QPRML",64,0) + . Q:'RACE +"RTN","C0QPRML",65,0) + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description +"RTN","C0QPRML",66,0) + S ETHN="" +"RTN","C0QPRML",67,0) + F D Q:ETHN="" +"RTN","C0QPRML",68,0) + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN +"RTN","C0QPRML",69,0) + . Q:'ETHN +"RTN","C0QPRML",70,0) + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description +"RTN","C0QPRML",71,0) + S RB=$P(^DPT(DFN,.101),U) ;room and bed +"RTN","C0QPRML",72,0) + Q +"RTN","C0QPRML",73,0) + ; +"RTN","C0QPRML",74,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QPRML",75,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",76,0) + S PBCNT="" +"RTN","C0QPRML",77,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",78,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",79,0) + K PROBL +"RTN","C0QPRML",80,0) + Q +"RTN","C0QPRML",81,0) + ; +"RTN","C0QPRML",82,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QPRML",83,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",84,0) + S ALCNT="" +"RTN","C0QPRML",85,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",86,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",87,0) + K ALRGYL +"RTN","C0QPRML",88,0) + Q +"RTN","C0QPRML",89,0) + ; +"RTN","C0QPRML",90,0) +MEDS ; MEDICATIONS +"RTN","C0QPRML",91,0) + D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",92,0) + S MDCNT="" +"RTN","C0QPRML",93,0) + F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",94,0) + . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",95,0) + . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",96,0) + . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",97,0) + K MEDSL +"RTN","C0QPRML",98,0) + Q +"RTN","C0QPRML",99,0) + ; +"RTN","C0QPRML",100,0) +PRINT ; PRINT TO SCREEN +"RTN","C0QPRML",101,0) + +"RTN","C0QPRML",102,0) + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " +"RTN","C0QPRML",103,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",104,0) + . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",105,0) + . W !,DFN," ",PTNAME +"RTN","C0QPRML",106,0) + W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",107,0) + W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",108,0) + W !,"Race: ",RACEDSC +"RTN","C0QPRML",109,0) + W !,"Ethnicity: ",$G(ETHNDSC) +"RTN","C0QPRML",110,0) + W !,"Problems: " +"RTN","C0QPRML",111,0) + W !,PBDESC +"RTN","C0QPRML",112,0) + W !,"Allergies: " +"RTN","C0QPRML",113,0) + W !,ALDESC +"RTN","C0QPRML",114,0) + W !,"Medications: " +"RTN","C0QPRML",115,0) + W ! +"RTN","C0QPRML",116,0) + Q +"RTN","C0QPRML",117,0) + ; +"RTN","C0QPRML",118,0) +SS ; CREATE SPREADSHEET ARRAY +"RTN","C0QPRML",119,0) + S G1("Patient")=DFN +"RTN","C0QPRML",120,0) + I $D(WARD) D ; +"RTN","C0QPRML",121,0) + . S G1("WardName")=WARDNAME +"RTN","C0QPRML",122,0) + . S G1("RoomAndBed")=RB +"RTN","C0QPRML",123,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",124,0) + . S G1("DischargeDate")=EXDTE +"RTN","C0QPRML",125,0) + S G1("PatientName")=PTNAME +"RTN","C0QPRML",126,0) + S G1("Gender")=PTSEX +"RTN","C0QPRML",127,0) + S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",128,0) + S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",129,0) + S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",130,0) + S G1("Race")=RACEDSC +"RTN","C0QPRML",131,0) + S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",132,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",133,0) + I PBDESC["No problems found" S G1("HasProblem")=0 +"RTN","C0QPRML",134,0) + E S G1("HasProblem")=1 +"RTN","C0QPRML",135,0) + S G1("Allergies")=ALDESC +"RTN","C0QPRML",136,0) + I ALDESC["No Allergy" S G1("HasAllergy")=0 +"RTN","C0QPRML",137,0) + E S G1("HasAllergy")=1 +"RTN","C0QPRML",138,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",139,0) + . S G1("HasMed")=1 +"RTN","C0QPRML",140,0) + E S G1("HasMed")=0 +"RTN","C0QPRML",141,0) + S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",142,0) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC +"RTN","C0QPRML",143,0) + D RNF1TO2B^C0CRNF("GRSLT","G1") +"RTN","C0QPRML",144,0) + K G1 +"RTN","C0QPRML",145,0) + Q ; DON'T WANT TO DO THE NHIN STUFF NOW +"RTN","C0QPRML",146,0) + ; +"RTN","C0QPRML",147,0) +PATLIST ; CREATE PATIENT LISTS +"RTN","C0QPRML",148,0) + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST +"RTN","C0QPRML",149,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QPRML",150,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QPRML",151,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QPRML",152,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QPRML",153,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QPRML",154,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QPRML",155,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QPRML",156,0) + I DEMOYN S C0QLIST("HasDemographics",DFN)="" +"RTN","C0QPRML",157,0) + E S C0QLIST("FailedDemographics",DFN)="" +"RTN","C0QPRML",158,0) + ;S G1("Gender")=PTSEX +"RTN","C0QPRML",159,0) + ;S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",160,0) + ;S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",161,0) + ;S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",162,0) + ;S G1("Race")=RACEDSC +"RTN","C0QPRML",163,0) + ;S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",164,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",165,0) + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" +"RTN","C0QPRML",166,0) + E S C0QLIST("HasProblem",DFN)="" +"RTN","C0QPRML",167,0) + ;S G1("Allergies")=ALDESC +"RTN","C0QPRML",168,0) + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" +"RTN","C0QPRML",169,0) + E S C0QLIST("HasAllergy",DFN)="" +"RTN","C0QPRML",170,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",171,0) + . S C0QLIST("HasMed",DFN)="" +"RTN","C0QPRML",172,0) + E S G1("NoMed",DFN)="" +"RTN","C0QPRML",173,0) + ;S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",174,0) + Q +"RTN","C0QPRML",175,0) + ; +"RTN","C0QPRML",176,0) +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT +"RTN","C0QPRML",177,0) + Q:DFN=137!14 +"RTN","C0QPRML",178,0) + D EN^C0CNHIN(.G,DFN,"") +"RTN","C0QPRML",179,0) + ZWR G +"RTN","C0QPRML",180,0) + K G +"RTN","C0QPRML",181,0) + ; +"RTN","C0QPRML",182,0) + QUIT ;end of WARD +"RTN","C0QPRML",183,0) + ; +"RTN","C0QPRML",184,0) + ; +"RTN","C0QPRML",185,0) +DIS; +"RTN","C0QPRML",186,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QPRML",187,0) + F D Q:DTE="" +"RTN","C0QPRML",188,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QPRML",189,0) + . Q:'DTE +"RTN","C0QPRML",190,0) + . Q:DTE<3110703 +"RTN","C0QPRML",191,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QPRML",192,0) + . N PTFM S PTFM="" +"RTN","C0QPRML",193,0) + . D +"RTN","C0QPRML",194,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QPRML",195,0) + . . Q:'PTFM +"RTN","C0QPRML",196,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QPRML",197,0) + . . D DEMO +"RTN","C0QPRML",198,0) + . . D PROBLEM +"RTN","C0QPRML",199,0) + . . D ALLERGY +"RTN","C0QPRML",200,0) + . . D MEDS +"RTN","C0QPRML",201,0) + . . I C0QPR D PRINT +"RTN","C0QPRML",202,0) + . . I C0QSS D SS +"RTN","C0QPRML",203,0) + . . I C0QPL D PATLIST +"RTN","C0QPRML",204,0) + Q +"RTN","C0QPRML",205,0) + ; +"RTN","C0QPRML",206,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",207,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QPRML",208,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QPRML",209,0) + ; +"RTN","C0QPRML",210,0) + I '$D(C0QLIST) Q ; +"RTN","C0QPRML",211,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QPRML",212,0) + N ZI,ZN +"RTN","C0QPRML",213,0) + S ZI="" +"RTN","C0QPRML",214,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QPRML",215,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QPRML",216,0) + . I ZN="" D Q ; OOPS +"RTN","C0QPRML",217,0) + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QPRML",218,0) + . S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QPRML",219,0) + . K C0QFDA +"RTN","C0QPRML",220,0) + . N ZJ,ZC +"RTN","C0QPRML",221,0) + . S ZJ="" S ZC=1 +"RTN","C0QPRML",222,0) + . F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QPRML",223,0) + . . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QPRML",224,0) + . . S ZC=ZC+1 +"RTN","C0QPRML",225,0) + . D UPDIE +"RTN","C0QPRML",226,0) + . W !,"FOUND:"_ZI +"RTN","C0QPRML",227,0) + Q +"RTN","C0QPRML",228,0) + ; +"RTN","C0QPRML",229,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QPRML",230,0) + ; +"RTN","C0QPRML",231,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QPRML",232,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",233,0) + D CLEAN^DILF +"RTN","C0QPRML",234,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QPRML",235,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QPRML",236,0) + D CLEAN^DILF +"RTN","C0QPRML",237,0) + K ZERR +"RTN","C0QPRML",238,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QPRML",239,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QPRML",240,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",241,0) + ;. W "ERROR",! +"RTN","C0QPRML",242,0) + ;. ZWR ZERR +"RTN","C0QPRML",243,0) + ;. B +"RTN","C0QPRML",244,0) + K C0QFDA +"RTN","C0QPRML",245,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QPRML",246,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QPRML",247,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QPRML",248,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QPRML",249,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QPRML",250,0) + ; +"RTN","C0QPRML",251,0) + Q ZR +"RTN","C0QPRML",252,0) + ; +"RTN","C0QPRML",253,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QPRML",254,0) + K ZERR +"RTN","C0QPRML",255,0) + D CLEAN^DILF +"RTN","C0QPRML",256,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QPRML",257,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",258,0) + ;. W "ERROR",! +"RTN","C0QPRML",259,0) + ;. ZWR ZERR +"RTN","C0QPRML",260,0) + ;. B +"RTN","C0QPRML",261,0) + K C0QFDA +"RTN","C0QPRML",262,0) + Q +"RTN","C0QPRML",263,0) + ; +"RTN","C0QPRML",264,0) + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS +"RTN","C0QPRML",265,0) + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) +"RTN","C0QPRML",266,0) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",267,0) + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",268,0) + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",269,0) + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",270,0) + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",271,0) + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",272,0) + ;. . S RACE="" +"RTN","C0QPRML",273,0) + ;. . F D Q:RACE="" +"RTN","C0QPRML",274,0) + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) +"RTN","C0QPRML",275,0) + ;. . . Q:'RACE +"RTN","C0QPRML",276,0) + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) +"RTN","C0QPRML",277,0) + ;. . N ETHNDSC +"RTN","C0QPRML",278,0) + ;. . N ETHNDSC S ETHNDSC="" +"RTN","C0QPRML",279,0) + ;. . S ETHN="" +"RTN","C0QPRML",280,0) + ;. . F D Q:ETHN="" +"RTN","C0QPRML",281,0) + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) +"RTN","C0QPRML",282,0) + ;. . . Q:'ETHN +"RTN","C0QPRML",283,0) + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) +"RTN","C0QPRML",284,0) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",285,0) + ;. . S PBCNT="" +"RTN","C0QPRML",286,0) + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",287,0) + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",288,0) + ;. . K PROBL +"RTN","C0QPRML",289,0) + ;. . D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",290,0) + ;. . S ALCNT="" +"RTN","C0QPRML",291,0) + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",292,0) + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",293,0) + ;. . K ALRGYL +"RTN","C0QPRML",294,0) + ;. . D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",295,0) + ;. . S MDCNT="" +"RTN","C0QPRML",296,0) + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",297,0) + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",298,0) + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",299,0) + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",300,0) + ;. . K MEDSL +"RTN","C0QPRML",301,0) + ;. . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",302,0) + ;. . W !,DFN," ",PTNAME +"RTN","C0QPRML",303,0) + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",304,0) + ;. . W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",305,0) + ;. . W !,"Race: ",RACEDSC +"RTN","C0QPRML",306,0) + ;. . W !,"Ethnicity: ",ETHNDSC +"RTN","C0QPRML",307,0) + ;. . W !,"Problems: " +"RTN","C0QPRML",308,0) + ;. . W !,PBDESC +"RTN","C0QPRML",309,0) + ;. . W !,"Allergies: " +"RTN","C0QPRML",310,0) + ;. . W !,ALDESC +"RTN","C0QPRML",311,0) + ;. . W !,"Medications: " +"RTN","C0QPRML",312,0) + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC +"RTN","C0QPRML",313,0) + ;. . W ! +"RTN","C0QPRML",314,0) + ;Q +"RTN","C0QPRML",315,0) + ; +"RTN","C0QPRML",316,0) + ; +"RTN","C0QPRML",317,0) + ; +"RTN","C0QPRML",318,0) + ; +"RTN","C0QPRML",319,0) +END ;end of C0QPRML; +"RTN","C0QSET") +0^9^B8062516 +"RTN","C0QSET",1,0) +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm +"RTN","C0QSET",2,0) + ;;1.0;MU PACKAGE;;;Build 13 +"RTN","C0QSET",3,0) + ; +"RTN","C0QSET",4,0) + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU +"RTN","C0QSET",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QSET",6,0) + ; +"RTN","C0QSET",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QSET",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QSET",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QSET",10,0) + ;(at your option) any later version. +"RTN","C0QSET",11,0) + ; +"RTN","C0QSET",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QSET",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QSET",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QSET",15,0) + ;GNU General Public License for more details. +"RTN","C0QSET",16,0) + ; +"RTN","C0QSET",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QSET",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QSET",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QSET",20,0) + ; +"RTN","C0QSET",21,0) + Q +"RTN","C0QSET",22,0) + ; +"RTN","C0QSET",23,0) +TEST ; TEST OF UNITY ROUTINE +"RTN","C0QSET",24,0) + ; +"RTN","C0QSET",25,0) + S A(1)="" +"RTN","C0QSET",26,0) + S A(2)="" +"RTN","C0QSET",27,0) + S A(3)="" +"RTN","C0QSET",28,0) + S B(3)="" +"RTN","C0QSET",29,0) + S B(4)="" +"RTN","C0QSET",30,0) + D UNITY("C","A","B") +"RTN","C0QSET",31,0) + ZWR C +"RTN","C0QSET",32,0) + Q +"RTN","C0QSET",33,0) + ; +"RTN","C0QSET",34,0) +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? +"RTN","C0QSET",35,0) + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? +"RTN","C0QSET",36,0) + S PATS=$NA(^DPT) +"RTN","C0QSET",37,0) + S MEDS=$NA(^PS(55)) +"RTN","C0QSET",38,0) + D UNITY("DELTA",PATS,MEDS) +"RTN","C0QSET",39,0) + W !,"PATIENTS WITH NO MEDS",! +"RTN","C0QSET",40,0) + ZWR DELTA(0,*) +"RTN","C0QSET",41,0) + W !,"BAD POINTERS IN THE MEDS FILE",! +"RTN","C0QSET",42,0) + ZWR DELTA(2,*) +"RTN","C0QSET",43,0) + Q +"RTN","C0QSET",44,0) + ; +"RTN","C0QSET",45,0) +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",46,0) + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS +"RTN","C0QSET",47,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",48,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",49,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",50,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",51,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",52,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",53,0) + N ZI S ZI=0 +"RTN","C0QSET",54,0) + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",55,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",56,0) + S ZI=0 +"RTN","C0QSET",57,0) + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",58,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",59,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",60,0) + S ZI=0 +"RTN","C0QSET",61,0) + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM +"RTN","C0QSET",62,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",63,0) + Q +"RTN","C0QSET",64,0) + ; +"RTN","C0QSET",65,0) +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",66,0) + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST +"RTN","C0QSET",67,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",68,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",69,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",70,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",71,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",72,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",73,0) + N ZI S ZI="" +"RTN","C0QSET",74,0) + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",75,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",76,0) + S ZI="" +"RTN","C0QSET",77,0) + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",78,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",79,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",80,0) + S ZI="" +"RTN","C0QSET",81,0) + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM +"RTN","C0QSET",82,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",83,0) + Q +"RTN","C0QSET",84,0) + ; +"RTN","C0QSET",85,0) +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD +"RTN","C0QSET",86,0) + N ZD +"RTN","C0QSET",87,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",88,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",89,0) + Q +"RTN","C0QSET",90,0) + ; +"RTN","C0QSET",91,0) +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH +"RTN","C0QSET",92,0) + N ZD +"RTN","C0QSET",93,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",94,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",95,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",96,0) + Q +"RTN","C0QSET",97,0) + ; +"RTN","C0QSET",98,0) +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT +"RTN","C0QSET",99,0) + N ZD +"RTN","C0QSET",100,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",101,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",102,0) + Q +"RTN","C0QSET",103,0) + ; +"RTN","C0QSET",104,0) +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH +"RTN","C0QSET",105,0) + N ZD +"RTN","C0QSET",106,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",107,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",108,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",109,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",110,0) + Q +"RTN","C0QSET",111,0) + ; +"RTN","C0QSET",112,0) +END ;end of C0QSET; +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"AUDIT") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DEL") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"LAYGO") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"RD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"WR") +@ +"VER") +8.0^22.0 +"^DD",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^1.51^14 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^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^7 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3110621 +"^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") +3110621 +"^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^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.301,1130580001.301,0) +FIELD^^999^8 +"^DD",1130580001.301,1130580001.301,0,"DDA") +N +"^DD",1130580001.301,1130580001.301,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,0,"ID",999) +W:$D(^(3)) " ",$P(^(3),U,1) +"^DD",1130580001.301,1130580001.301,0,"IX","B",1130580001.301,.01) + +"^DD",1130580001.301,1130580001.301,0,"NM","C0Q PATIENT LIST") + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.51) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,2.1) + +"^DD",1130580001.301,1130580001.301,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.301,1130580001.301,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.301,.01,1,1,0) +1130580001.301^B +"^DD",1130580001.301,1130580001.301,.01,1,1,1) +S ^C0Q(301,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.301,.01,1,1,2) +K ^C0Q(301,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.301,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.301,1130580001.301,.02,0) +REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2011)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.02,3) +Type a number between 2011 and 2050, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.03,0) +REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.03,3) +Type a number between 1 and 12, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.03,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.04,0) +ORIGINAL DATE CREATED^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X +"^DD",1130580001.301,1130580001.301,.04,3) +(No range limit on date) +"^DD",1130580001.301,1130580001.301,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.07,0) +CREATOR^P200'^VA(200,^0;5^Q +"^DD",1130580001.301,1130580001.301,.07,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,30,0) +PATIENTS^1130580001.311P^^1;0 +"^DD",1130580001.301,1130580001.301,200,0) +CREATION DOCUMENTATION^1130580001.321^^2;0 +"^DD",1130580001.301,1130580001.301,999,0) +ATTRIBUTE^F^^3;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,999,3) +PATIENT LIST ATTRIBUTE +"^DD",1130580001.301,1130580001.301,999,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0) +PATIENTS SUB-FIELD^^.05^4 +"^DD",1130580001.301,1130580001.311,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0,"IX","B",1130580001.311,.01) + +"^DD",1130580001.301,1130580001.311,0,"NM","PATIENTS") + +"^DD",1130580001.301,1130580001.311,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.311,.01,0) +PATIENTS^MP2'^DPT(^0;1^Q +"^DD",1130580001.301,1130580001.311,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.311,.01,1,1,0) +1130580001.311^B +"^DD",1130580001.301,1130580001.311,.01,1,1,1) +S ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.311,.01,1,1,2) +K ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.311,.01,3) +PATIENTS IN THE LIST +"^DD",1130580001.301,1130580001.311,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.04,0) +DESEASED^S^0:NO;1:YES;^2;1^Q +"^DD",1130580001.301,1130580001.311,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.05,0) +TEST PATIENT^S^0:NO;1:YES;^2;2^Q +"^DD",1130580001.301,1130580001.311,.05,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,1,0) +DATA^1130580001.3111^^1;0 +"^DD",1130580001.301,1130580001.3111,0) +DATA SUB-FIELD^^.02^2 +"^DD",1130580001.301,1130580001.3111,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,0,"IX","B",1130580001.3111,.01) + +"^DD",1130580001.301,1130580001.3111,0,"NM","DATA") + +"^DD",1130580001.301,1130580001.3111,0,"UP") +1130580001.311 +"^DD",1130580001.301,1130580001.3111,.01,0) +DATA TYPE^MF^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.3111,.01,1,1,0) +1130580001.3111^B +"^DD",1130580001.301,1130580001.3111,.01,1,1,1) +S ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.3111,.01,1,1,2) +K ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.3111,.01,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,.02,0) +VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.02,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0) +CREATION DOCUMENTATION SUB-FIELD^^.01^1 +"^DD",1130580001.301,1130580001.321,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0,"NM","CREATION DOCUMENTATION") + +"^DD",1130580001.301,1130580001.321,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.321,.01,0) +CREATION DOCUMENTATION^W^^0;1 +"^DD",1130580001.301,1130580001.321,.01,3) +DOCUMENTATION +"^DD",1130580001.301,1130580001.321,.01,"DT") +3110805 +"^DIC",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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) + +"^DIC",1130580001.301,1130580001.301,0) +C0Q PATIENT LIST^1130580001.301 +"^DIC",1130580001.301,1130580001.301,0,"GL") +^C0Q(301, +"^DIC",1130580001.301,1130580001.301,"%",0) +^1.005^^ +"^DIC",1130580001.301,"B","C0Q PATIENT LIST",1130580001.301) + +**END** +**END** diff --git a/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T8.KID b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T8.KID new file mode 100644 index 0000000..02fc232 --- /dev/null +++ b/qrda/C0Q/branches/ohum/kids/C0Q_1_0_0_T8.KID @@ -0,0 +1,11126 @@ +KIDS Distribution saved on Aug 30, 2011@10:59:30 +copy instead of delete patient lists and initial nulls +**KIDS**:C0Q*1.0*0^ + +**INSTALL NAME** +C0Q*1.0*0 +"BLD",7770,0) +C0Q*1.0*0^^0^3110830^n +"BLD",7770,4,0) +^9.64PA^1130580001.301^4 +"BLD",7770,4,178.301,0) +178.301 +"BLD",7770,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7770,4,1130580001.101,0) +1130580001.101 +"BLD",7770,4,1130580001.101,222) +y^y^f^^n^^y^o^n +"BLD",7770,4,1130580001.201,0) +1130580001.201 +"BLD",7770,4,1130580001.201,222) +y^y^f^^n^^y^o^n +"BLD",7770,4,1130580001.301,0) +1130580001.301 +"BLD",7770,4,1130580001.301,222) +y^y^f^^n^^y^m^n +"BLD",7770,4,"B",178.301,178.301) + +"BLD",7770,4,"B",1130580001.101,1130580001.101) + +"BLD",7770,4,"B",1130580001.201,1130580001.201) + +"BLD",7770,4,"B",1130580001.301,1130580001.301) + +"BLD",7770,6.3) +15 +"BLD",7770,"KRN",0) +^9.67PA^779.2^20 +"BLD",7770,"KRN",.4,0) +.4 +"BLD",7770,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7770,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7770,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7770,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7770,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7770,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7770,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7770,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7770,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7770,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7770,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7770,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7770,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7770,"KRN",.401,0) +.401 +"BLD",7770,"KRN",.402,0) +.402 +"BLD",7770,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7770,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7770,"KRN",.402,"NM",2,0) +C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101^1130580001.101^0 +"BLD",7770,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7770,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101",2) + +"BLD",7770,"KRN",.403,0) +.403 +"BLD",7770,"KRN",.5,0) +.5 +"BLD",7770,"KRN",.84,0) +.84 +"BLD",7770,"KRN",3.6,0) +3.6 +"BLD",7770,"KRN",3.8,0) +3.8 +"BLD",7770,"KRN",9.2,0) +9.2 +"BLD",7770,"KRN",9.8,0) +9.8 +"BLD",7770,"KRN",9.8,"NM",0) +^9.68A^10^10 +"BLD",7770,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B115162981 +"BLD",7770,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7770,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7770,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7770,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7596326 +"BLD",7770,"KRN",9.8,"NM",6,0) +C0QIMMUN^^0^B6463760 +"BLD",7770,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41579607 +"BLD",7770,"KRN",9.8,"NM",8,0) +C0QPRML^^0^B72463400 +"BLD",7770,"KRN",9.8,"NM",9,0) +C0QSET^^0^B8586809 +"BLD",7770,"KRN",9.8,"NM",10,0) +C0QUPDT^^0^B39929946 +"BLD",7770,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7770,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7770,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7770,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7770,"KRN",9.8,"NM","B","C0QIMMUN",6) + +"BLD",7770,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7770,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7770,"KRN",9.8,"NM","B","C0QPRML",8) + +"BLD",7770,"KRN",9.8,"NM","B","C0QSET",9) + +"BLD",7770,"KRN",9.8,"NM","B","C0QUPDT",10) + +"BLD",7770,"KRN",19,0) +19 +"BLD",7770,"KRN",19,"NM",0) +^9.68A^17^16 +"BLD",7770,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7770,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7770,"KRN",19,"NM",3,0) +C0Q DISPLAY MEASURE SET^^0 +"BLD",7770,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7770,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7770,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7770,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7770,"KRN",19,"NM",8,0) +C0Q MEASURE SET DEFINITION^^0 +"BLD",7770,"KRN",19,"NM",9,0) +C0Q QUALITY MEASURE DEFINITION^^0 +"BLD",7770,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7770,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7770,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7770,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7770,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7770,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7770,"KRN",19,"NM",17,0) +C0Q UPDATE MU MEASURES^^0 +"BLD",7770,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7770,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7770,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7770,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3) + +"BLD",7770,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7770,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7770,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7770,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7770,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8) + +"BLD",7770,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7770,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7770,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7770,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9) + +"BLD",7770,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7770,"KRN",19,"NM","B","C0Q UPDATE MU MEASURES",17) + +"BLD",7770,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7770,"KRN",19.1,0) +19.1 +"BLD",7770,"KRN",101,0) +101 +"BLD",7770,"KRN",409.61,0) +409.61 +"BLD",7770,"KRN",771,0) +771 +"BLD",7770,"KRN",779.2,0) +779.2 +"BLD",7770,"KRN",870,0) +870 +"BLD",7770,"KRN",8989.51,0) +8989.51 +"BLD",7770,"KRN",8989.52,0) +8989.52 +"BLD",7770,"KRN",8994,0) +8994 +"BLD",7770,"KRN","B",.4,.4) + +"BLD",7770,"KRN","B",.401,.401) + +"BLD",7770,"KRN","B",.402,.402) + +"BLD",7770,"KRN","B",.403,.403) + +"BLD",7770,"KRN","B",.5,.5) + +"BLD",7770,"KRN","B",.84,.84) + +"BLD",7770,"KRN","B",3.6,3.6) + +"BLD",7770,"KRN","B",3.8,3.8) + +"BLD",7770,"KRN","B",9.2,9.2) + +"BLD",7770,"KRN","B",9.8,9.8) + +"BLD",7770,"KRN","B",19,19) + +"BLD",7770,"KRN","B",19.1,19.1) + +"BLD",7770,"KRN","B",101,101) + +"BLD",7770,"KRN","B",409.61,409.61) + +"BLD",7770,"KRN","B",771,771) + +"BLD",7770,"KRN","B",779.2,779.2) + +"BLD",7770,"KRN","B",870,870) + +"BLD",7770,"KRN","B",8989.51,8989.51) + +"BLD",7770,"KRN","B",8989.52,8989.52) + +"BLD",7770,"KRN","B",8994,8994) + +"BLD",7770,"QUES",0) +^9.62^^ +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"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) +^1130580001.111^3^3^3110412^^ +"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 +"DATA",1130580001.101,22,0) +TEST M0028A^107^106^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,22,1) +Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,4) +PQRI-28 +"DATA",1130580001.101,22,5) +Preventive care and Screening: Tobacco Use: Screening and Cessation Intervention +"DATA",1130580001.101,22,6,0) +^1130580001.111^4^4^3110427^^^^ +"DATA",1130580001.101,22,6,1,0) +Percentage of patients aged 18 years of older who were screene +"DATA",1130580001.101,22,6,2,0) +d about tobacco use at least once during the two year measurement period +"DATA",1130580001.101,22,6,3,0) +AND who received smoking cessation counseling if identified as a tobacco +"DATA",1130580001.101,22,6,4,0) +user +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^53^135 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^54^94 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^55^56 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^57^58 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^59^60 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^61^62 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^63^64 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^65^66 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^67^68 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^44^43 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^69^45 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^70^71 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^72^73 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^74^75 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^76^77 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376 +"DATA",1130580001.101,38,0) +12 +"DATA",1130580001.101,39,0) +MU EP NQF 0421^156^152 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421 +"DATA",1130580001.101,40,0) +MU EP NQF 0013^99^40 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013 +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^102^100 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A +"DATA",1130580001.101,42,0) +MU EP NQF 0041^144^132 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041 +"DATA",1130580001.101,43,0) +MU EP NQF 0024^42^41 +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. +"DATA",1130580001.101,43,7) +NQF0024 +"DATA",1130580001.101,44,0) +MU EP NQF 0038 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038 +"DATA",1130580001.101,45,0) +MU EP NQF 0059^146^145 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059 +"DATA",1130580001.101,46,0) +MU EP NQF 0064^139^145 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064 +"DATA",1130580001.101,47,0) +MU EP NQF 0061^147^145 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061 +"DATA",1130580001.101,48,0) +MU EP NQF 0081 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081 +"DATA",1130580001.101,49,0) +MU EP NQF 0070 +"DATA",1130580001.101,49,1) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,5) +Pneumonia Vaccination Status for Older Adults +"DATA",1130580001.101,49,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients 65 years of age and older who have ever +"DATA",1130580001.101,49,6,2,0) +received a pneumococcal vaccine. +"DATA",1130580001.101,49,7) +NQF0070 +"DATA",1130580001.101,50,0) +MU EP NQF 0031 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031 +"DATA",1130580001.101,51,0) +MU EP NQF 0034 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034 +"DATA",1130580001.101,52,0) +MU EP NQF 0067 +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067 +"DATA",1130580001.101,53,0) +MU EP NQF 0083 +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083 +"DATA",1130580001.101,54,0) +MU EP NQF 0105 +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105 +"DATA",1130580001.101,55,0) +MU EP NQF 0086 +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086 +"DATA",1130580001.101,56,0) +MU EP NQF 0088 +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088 +"DATA",1130580001.101,57,0) +MU EP NQF 0089 +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089 +"DATA",1130580001.101,58,0) +MU EP NQF 0047 +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047 +"DATA",1130580001.101,59,0) +MU EP NQF 0001 +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001 +"DATA",1130580001.101,60,0) +MU EP NQF 0002 +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002 +"DATA",1130580001.101,61,0) +MU EP NQF 0385 +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385 +"DATA",1130580001.101,62,0) +MU EP NQF 0389 +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389 +"DATA",1130580001.101,63,0) +MU EP NQF 0027 +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027 +"DATA",1130580001.101,64,0) +MU EP NQF 0055 +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055 +"DATA",1130580001.101,65,0) +MU EP NQF 0062 +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062 +"DATA",1130580001.101,66,0) +MU EP NQF 0056 +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056 +"DATA",1130580001.101,67,0) +MU EP NQF 0074 +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074 +"DATA",1130580001.101,68,0) +MU EP NQF 0084 +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084 +"DATA",1130580001.101,69,0) +MU EP NQF 0073 +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073 +"DATA",1130580001.101,70,0) +MU EP NQF 0068 +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068 +"DATA",1130580001.101,71,0) +MU EP NQF 0004 +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004 +"DATA",1130580001.101,72,0) +MU EP NQF 0012 +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012 +"DATA",1130580001.101,73,0) +MU EP NQF 0014 +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014 +"DATA",1130580001.101,74,0) +MU EP NQF 0018 +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018 +"DATA",1130580001.101,75,0) +MU EP NQF 0032 +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032 +"DATA",1130580001.101,76,0) +MU EP NQF 0033 +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033 +"DATA",1130580001.101,77,0) +MU EP NQF 0036 +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036 +"DATA",1130580001.101,78,0) +MU EP NQF 0052 +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052 +"DATA",1130580001.101,79,0) +MU EP NQF 0075 +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075 +"DATA",1130580001.101,80,0) +MU EP NQF 0575 +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575 +"DATA",1130580001.101,81,0) +MU EP NQF 0028B^104^103 +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B +"DATA",1130580001.101,82,0) +MU EP 0028B +"DATA",1130580001.101,83,0) +NQF0038 NUM1 DPT^115^109 +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT +"DATA",1130580001.101,84,0) +NQF0038 NUM2 IPV^123^109 +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV +"DATA",1130580001.101,85,0) +NQF0038 NUM3 MMR^114^109 +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR +"DATA",1130580001.101,86,0) +NQF0038 NUM4 HiB^116^109 +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB +"DATA",1130580001.101,87,0) +NQF0038 NUM5 HEP B^117^109 +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,88,0) +NQF0038 NUM6 VZV^118^109 +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV +"DATA",1130580001.101,89,0) +NQF0038 NUM7 PCV^119^109 +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV +"DATA",1130580001.101,90,0) +NQF0038 NUM8 HEP A^120^109 +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,91,0) +NQF0038 NUM9^121^109 +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9 +"DATA",1130580001.101,92,0) +NQF0038 NUM10^122^109 +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10 +"DATA",1130580001.101,93,0) +NQF0038 NUM11 COMBO5^124^109 +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,94,0) +NQF0038 NUM12 COMBO6^125^109 +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,95,7) +^15^14^^17 +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,96,7) +^10^30^^11 +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,97,7) +^19^21^^20 +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,98,7) +^27^30^^29 +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,99,7) +^16^30^^18 +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,100,7) +^12^30^^13 +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,101,7) +^26^30^^5 +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,102,7) +^24^30^^28 +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,103,7) +^25^30^^9 +"DATA",1130580001.201,1,0) +SAMPLE MEASURE SET +"DATA",1130580001.201,1,4) +^^3100101^3101231 +"DATA",1130580001.201,1,5,0) +^1130580001.2011P^618^21 +"DATA",1130580001.201,1,5,10,0) +15 +"DATA",1130580001.201,1,5,10,2) +0 +"DATA",1130580001.201,1,5,599,0) +3 +"DATA",1130580001.201,1,5,599,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,599,1,1,0) +100884 +"DATA",1130580001.201,1,5,599,1,2,0) +100885 +"DATA",1130580001.201,1,5,599,1,3,0) +100886 +"DATA",1130580001.201,1,5,599,1,4,0) +100887 +"DATA",1130580001.201,1,5,599,1,5,0) +100888 +"DATA",1130580001.201,1,5,599,1,6,0) +100848 +"DATA",1130580001.201,1,5,599,1,7,0) +100904 +"DATA",1130580001.201,1,5,599,1,8,0) +100905 +"DATA",1130580001.201,1,5,599,1,9,0) +100906 +"DATA",1130580001.201,1,5,599,1,10,0) +100907 +"DATA",1130580001.201,1,5,599,2) +10 +"DATA",1130580001.201,1,5,599,3,0) +^1130580001.20112P^45^45 +"DATA",1130580001.201,1,5,599,3,1,0) +100095 +"DATA",1130580001.201,1,5,599,3,2,0) +100839 +"DATA",1130580001.201,1,5,599,3,3,0) +100878 +"DATA",1130580001.201,1,5,599,3,4,0) +100879 +"DATA",1130580001.201,1,5,599,3,5,0) +100880 +"DATA",1130580001.201,1,5,599,3,6,0) +100881 +"DATA",1130580001.201,1,5,599,3,7,0) +100882 +"DATA",1130580001.201,1,5,599,3,8,0) +100894 +"DATA",1130580001.201,1,5,599,3,9,0) +100895 +"DATA",1130580001.201,1,5,599,3,10,0) +100896 +"DATA",1130580001.201,1,5,599,3,11,0) +100897 +"DATA",1130580001.201,1,5,599,3,12,0) +100898 +"DATA",1130580001.201,1,5,599,3,13,0) +100899 +"DATA",1130580001.201,1,5,599,3,14,0) +100900 +"DATA",1130580001.201,1,5,599,3,15,0) +100901 +"DATA",1130580001.201,1,5,599,3,16,0) +100902 +"DATA",1130580001.201,1,5,599,3,17,0) +100903 +"DATA",1130580001.201,1,5,599,3,18,0) +100884 +"DATA",1130580001.201,1,5,599,3,19,0) +100885 +"DATA",1130580001.201,1,5,599,3,20,0) +100886 +"DATA",1130580001.201,1,5,599,3,21,0) +100887 +"DATA",1130580001.201,1,5,599,3,22,0) +100888 +"DATA",1130580001.201,1,5,599,3,23,0) +100338 +"DATA",1130580001.201,1,5,599,3,24,0) +100848 +"DATA",1130580001.201,1,5,599,3,25,0) +100845 +"DATA",1130580001.201,1,5,599,3,26,0) +100850 +"DATA",1130580001.201,1,5,599,3,27,0) +100855 +"DATA",1130580001.201,1,5,599,3,28,0) +100929 +"DATA",1130580001.201,1,5,599,3,29,0) +100930 +"DATA",1130580001.201,1,5,599,3,30,0) +100931 +"DATA",1130580001.201,1,5,599,3,31,0) +100932 +"DATA",1130580001.201,1,5,599,3,32,0) +100933 +"DATA",1130580001.201,1,5,599,3,33,0) +100914 +"DATA",1130580001.201,1,5,599,3,34,0) +100915 +"DATA",1130580001.201,1,5,599,3,35,0) +100917 +"DATA",1130580001.201,1,5,599,3,36,0) +100904 +"DATA",1130580001.201,1,5,599,3,37,0) +100905 +"DATA",1130580001.201,1,5,599,3,38,0) +100906 +"DATA",1130580001.201,1,5,599,3,39,0) +100907 +"DATA",1130580001.201,1,5,599,3,40,0) +100913 +"DATA",1130580001.201,1,5,599,3,41,0) +100859 +"DATA",1130580001.201,1,5,599,3,42,0) +100860 +"DATA",1130580001.201,1,5,599,3,43,0) +100862 +"DATA",1130580001.201,1,5,599,3,44,0) +100861 +"DATA",1130580001.201,1,5,599,3,45,0) +100863 +"DATA",1130580001.201,1,5,599,4) +45 +"DATA",1130580001.201,1,5,600,0) +4 +"DATA",1130580001.201,1,5,600,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,1,5,600,1,1,0) +100095 +"DATA",1130580001.201,1,5,600,1,2,0) +100696 +"DATA",1130580001.201,1,5,600,1,3,0) +100622 +"DATA",1130580001.201,1,5,600,1,4,0) +100662 +"DATA",1130580001.201,1,5,600,1,5,0) +100661 +"DATA",1130580001.201,1,5,600,1,6,0) +100499 +"DATA",1130580001.201,1,5,600,1,7,0) +100506 +"DATA",1130580001.201,1,5,600,1,8,0) +100647 +"DATA",1130580001.201,1,5,600,1,9,0) +100648 +"DATA",1130580001.201,1,5,600,1,10,0) +100649 +"DATA",1130580001.201,1,5,600,1,11,0) +100839 +"DATA",1130580001.201,1,5,600,1,12,0) +100942 +"DATA",1130580001.201,1,5,600,1,13,0) +100943 +"DATA",1130580001.201,1,5,600,1,14,0) +100935 +"DATA",1130580001.201,1,5,600,1,15,0) +100941 +"DATA",1130580001.201,1,5,600,1,16,0) +100878 +"DATA",1130580001.201,1,5,600,1,17,0) +100879 +"DATA",1130580001.201,1,5,600,1,18,0) +100880 +"DATA",1130580001.201,1,5,600,1,19,0) +100881 +"DATA",1130580001.201,1,5,600,1,20,0) +100882 +"DATA",1130580001.201,1,5,600,1,21,0) +100874 +"DATA",1130580001.201,1,5,600,1,22,0) +100875 +"DATA",1130580001.201,1,5,600,1,23,0) +100876 +"DATA",1130580001.201,1,5,600,1,24,0) +100883 +"DATA",1130580001.201,1,5,600,1,25,0) +100894 +"DATA",1130580001.201,1,5,600,1,26,0) +100895 +"DATA",1130580001.201,1,5,600,1,27,0) +100896 +"DATA",1130580001.201,1,5,600,1,28,0) +100897 +"DATA",1130580001.201,1,5,600,1,29,0) +100898 +"DATA",1130580001.201,1,5,600,1,30,0) +100899 +"DATA",1130580001.201,1,5,600,1,31,0) +100900 +"DATA",1130580001.201,1,5,600,1,32,0) +100901 +"DATA",1130580001.201,1,5,600,1,33,0) +100902 +"DATA",1130580001.201,1,5,600,1,34,0) +100903 +"DATA",1130580001.201,1,5,600,1,35,0) +100884 +"DATA",1130580001.201,1,5,600,1,36,0) +100885 +"DATA",1130580001.201,1,5,600,1,37,0) +100886 +"DATA",1130580001.201,1,5,600,1,38,0) +100887 +"DATA",1130580001.201,1,5,600,1,39,0) +100888 +"DATA",1130580001.201,1,5,600,1,40,0) +100889 +"DATA",1130580001.201,1,5,600,1,41,0) +100890 +"DATA",1130580001.201,1,5,600,1,42,0) +100891 +"DATA",1130580001.201,1,5,600,1,43,0) +100338 +"DATA",1130580001.201,1,5,600,1,44,0) +100848 +"DATA",1130580001.201,1,5,600,1,45,0) +100845 +"DATA",1130580001.201,1,5,600,1,46,0) +100850 +"DATA",1130580001.201,1,5,600,1,47,0) +100855 +"DATA",1130580001.201,1,5,600,1,48,0) +100846 +"DATA",1130580001.201,1,5,600,1,49,0) +100847 +"DATA",1130580001.201,1,5,600,1,50,0) +100849 +"DATA",1130580001.201,1,5,600,1,51,0) +100858 +"DATA",1130580001.201,1,5,600,1,52,0) +100852 +"DATA",1130580001.201,1,5,600,1,53,0) +100929 +"DATA",1130580001.201,1,5,600,1,54,0) +100930 +"DATA",1130580001.201,1,5,600,1,55,0) +100931 +"DATA",1130580001.201,1,5,600,1,56,0) +100932 +"DATA",1130580001.201,1,5,600,1,57,0) +100933 +"DATA",1130580001.201,1,5,600,1,58,0) +100914 +"DATA",1130580001.201,1,5,600,1,59,0) +100915 +"DATA",1130580001.201,1,5,600,1,60,0) +100917 +"DATA",1130580001.201,1,5,600,1,61,0) +100923 +"DATA",1130580001.201,1,5,600,1,62,0) +100904 +"DATA",1130580001.201,1,5,600,1,63,0) +100905 +"DATA",1130580001.201,1,5,600,1,64,0) +100906 +"DATA",1130580001.201,1,5,600,1,65,0) +100907 +"DATA",1130580001.201,1,5,600,1,66,0) +100909 +"DATA",1130580001.201,1,5,600,1,67,0) +100913 +"DATA",1130580001.201,1,5,600,1,68,0) +100859 +"DATA",1130580001.201,1,5,600,1,69,0) +100860 +"DATA",1130580001.201,1,5,600,1,70,0) +100862 +"DATA",1130580001.201,1,5,600,1,71,0) +100861 +"DATA",1130580001.201,1,5,600,1,72,0) +100863 +"DATA",1130580001.201,1,5,600,1,73,0) +100851 +"DATA",1130580001.201,1,5,600,1,74,0) +100853 +"DATA",1130580001.201,1,5,600,1,75,0) +100856 +"DATA",1130580001.201,1,5,600,1,76,0) +100146 +"DATA",1130580001.201,1,5,600,1,77,0) +100857 +"DATA",1130580001.201,1,5,600,1,78,0) +100955 +"DATA",1130580001.201,1,5,600,1,79,0) +100616 +"DATA",1130580001.201,1,5,600,1,80,0) +100146 +"DATA",1130580001.201,1,5,600,1,81,0) +100499 +"DATA",1130580001.201,1,5,600,1,82,0) +100506 +"DATA",1130580001.201,1,5,600,1,83,0) +774 +"DATA",1130580001.201,1,5,600,1,84,0) +774 +"DATA",1130580001.201,1,5,600,1,85,0) +100667 +"DATA",1130580001.201,1,5,600,1,86,0) +100676 +"DATA",1130580001.201,1,5,600,1,87,0) +100951 +"DATA",1130580001.201,1,5,600,1,88,0) +100952 +"DATA",1130580001.201,1,5,600,1,89,0) +100953 +"DATA",1130580001.201,1,5,600,1,90,0) +100954 +"DATA",1130580001.201,1,5,600,1,91,0) +100934 +"DATA",1130580001.201,1,5,600,1,92,0) +100937 +"DATA",1130580001.201,1,5,600,1,93,0) +100947 +"DATA",1130580001.201,1,5,600,1,94,0) +100948 +"DATA",1130580001.201,1,5,600,1,95,0) +100949 +"DATA",1130580001.201,1,5,600,1,96,0) +249 +"DATA",1130580001.201,1,5,600,2) +96 +"DATA",1130580001.201,1,5,600,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,1,5,600,3,1,0) +100095 +"DATA",1130580001.201,1,5,600,3,2,0) +100696 +"DATA",1130580001.201,1,5,600,3,3,0) +100622 +"DATA",1130580001.201,1,5,600,3,4,0) +100662 +"DATA",1130580001.201,1,5,600,3,5,0) +100661 +"DATA",1130580001.201,1,5,600,3,6,0) +100499 +"DATA",1130580001.201,1,5,600,3,7,0) +100506 +"DATA",1130580001.201,1,5,600,3,8,0) +100647 +"DATA",1130580001.201,1,5,600,3,9,0) +100648 +"DATA",1130580001.201,1,5,600,3,10,0) +100649 +"DATA",1130580001.201,1,5,600,3,11,0) +100839 +"DATA",1130580001.201,1,5,600,3,12,0) +100942 +"DATA",1130580001.201,1,5,600,3,13,0) +100943 +"DATA",1130580001.201,1,5,600,3,14,0) +100935 +"DATA",1130580001.201,1,5,600,3,15,0) +100941 +"DATA",1130580001.201,1,5,600,3,16,0) +100878 +"DATA",1130580001.201,1,5,600,3,17,0) +100879 +"DATA",1130580001.201,1,5,600,3,18,0) +100880 +"DATA",1130580001.201,1,5,600,3,19,0) +100881 +"DATA",1130580001.201,1,5,600,3,20,0) +100882 +"DATA",1130580001.201,1,5,600,3,21,0) +100874 +"DATA",1130580001.201,1,5,600,3,22,0) +100875 +"DATA",1130580001.201,1,5,600,3,23,0) +100876 +"DATA",1130580001.201,1,5,600,3,24,0) +100883 +"DATA",1130580001.201,1,5,600,3,25,0) +100894 +"DATA",1130580001.201,1,5,600,3,26,0) +100895 +"DATA",1130580001.201,1,5,600,3,27,0) +100896 +"DATA",1130580001.201,1,5,600,3,28,0) +100897 +"DATA",1130580001.201,1,5,600,3,29,0) +100898 +"DATA",1130580001.201,1,5,600,3,30,0) +100899 +"DATA",1130580001.201,1,5,600,3,31,0) +100900 +"DATA",1130580001.201,1,5,600,3,32,0) +100901 +"DATA",1130580001.201,1,5,600,3,33,0) +100902 +"DATA",1130580001.201,1,5,600,3,34,0) +100903 +"DATA",1130580001.201,1,5,600,3,35,0) +100884 +"DATA",1130580001.201,1,5,600,3,36,0) +100885 +"DATA",1130580001.201,1,5,600,3,37,0) +100886 +"DATA",1130580001.201,1,5,600,3,38,0) +100887 +"DATA",1130580001.201,1,5,600,3,39,0) +100888 +"DATA",1130580001.201,1,5,600,3,40,0) +100889 +"DATA",1130580001.201,1,5,600,3,41,0) +100890 +"DATA",1130580001.201,1,5,600,3,42,0) +100891 +"DATA",1130580001.201,1,5,600,3,43,0) +100338 +"DATA",1130580001.201,1,5,600,3,44,0) +100848 +"DATA",1130580001.201,1,5,600,3,45,0) +100845 +"DATA",1130580001.201,1,5,600,3,46,0) +100850 +"DATA",1130580001.201,1,5,600,3,47,0) +100855 +"DATA",1130580001.201,1,5,600,3,48,0) +100846 +"DATA",1130580001.201,1,5,600,3,49,0) +100847 +"DATA",1130580001.201,1,5,600,3,50,0) +100849 +"DATA",1130580001.201,1,5,600,3,51,0) +100858 +"DATA",1130580001.201,1,5,600,3,52,0) +100852 +"DATA",1130580001.201,1,5,600,3,53,0) +100929 +"DATA",1130580001.201,1,5,600,3,54,0) +100930 +"DATA",1130580001.201,1,5,600,3,55,0) +100931 +"DATA",1130580001.201,1,5,600,3,56,0) +100932 +"DATA",1130580001.201,1,5,600,3,57,0) +100933 +"DATA",1130580001.201,1,5,600,3,58,0) +100914 +"DATA",1130580001.201,1,5,600,3,59,0) +100915 +"DATA",1130580001.201,1,5,600,3,60,0) +100917 +"DATA",1130580001.201,1,5,600,3,61,0) +100923 +"DATA",1130580001.201,1,5,600,3,62,0) +100904 +"DATA",1130580001.201,1,5,600,3,63,0) +100905 +"DATA",1130580001.201,1,5,600,3,64,0) +100906 +"DATA",1130580001.201,1,5,600,3,65,0) +100907 +"DATA",1130580001.201,1,5,600,3,66,0) +100909 +"DATA",1130580001.201,1,5,600,3,67,0) +100913 +"DATA",1130580001.201,1,5,600,3,68,0) +100859 +"DATA",1130580001.201,1,5,600,3,69,0) +100860 +"DATA",1130580001.201,1,5,600,3,70,0) +100862 +"DATA",1130580001.201,1,5,600,3,71,0) +100861 +"DATA",1130580001.201,1,5,600,3,72,0) +100863 +"DATA",1130580001.201,1,5,600,3,73,0) +100851 +"DATA",1130580001.201,1,5,600,3,74,0) +100853 +"DATA",1130580001.201,1,5,600,3,75,0) +100856 +"DATA",1130580001.201,1,5,600,3,76,0) +100146 +"DATA",1130580001.201,1,5,600,3,77,0) +100857 +"DATA",1130580001.201,1,5,600,3,78,0) +100955 +"DATA",1130580001.201,1,5,600,3,79,0) +100616 +"DATA",1130580001.201,1,5,600,3,80,0) +100146 +"DATA",1130580001.201,1,5,600,3,81,0) +100499 +"DATA",1130580001.201,1,5,600,3,82,0) +100506 +"DATA",1130580001.201,1,5,600,3,83,0) +774 +"DATA",1130580001.201,1,5,600,3,84,0) +774 +"DATA",1130580001.201,1,5,600,3,85,0) +100667 +"DATA",1130580001.201,1,5,600,3,86,0) +100676 +"DATA",1130580001.201,1,5,600,3,87,0) +100951 +"DATA",1130580001.201,1,5,600,3,88,0) +100952 +"DATA",1130580001.201,1,5,600,3,89,0) +100953 +"DATA",1130580001.201,1,5,600,3,90,0) +100954 +"DATA",1130580001.201,1,5,600,3,91,0) +100934 +"DATA",1130580001.201,1,5,600,3,92,0) +100937 +"DATA",1130580001.201,1,5,600,3,93,0) +100947 +"DATA",1130580001.201,1,5,600,3,94,0) +100948 +"DATA",1130580001.201,1,5,600,3,95,0) +100949 +"DATA",1130580001.201,1,5,600,3,96,0) +249 +"DATA",1130580001.201,1,5,600,4) +96 +"DATA",1130580001.201,1,5,601,0) +5 +"DATA",1130580001.201,1,5,601,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,601,1,1,0) +100696 +"DATA",1130580001.201,1,5,601,1,2,0) +100622 +"DATA",1130580001.201,1,5,601,1,3,0) +100662 +"DATA",1130580001.201,1,5,601,1,4,0) +100661 +"DATA",1130580001.201,1,5,601,1,5,0) +100649 +"DATA",1130580001.201,1,5,601,1,6,0) +100338 +"DATA",1130580001.201,1,5,601,1,7,0) +100848 +"DATA",1130580001.201,1,5,601,1,8,0) +100845 +"DATA",1130580001.201,1,5,601,1,9,0) +100146 +"DATA",1130580001.201,1,5,601,1,10,0) +100616 +"DATA",1130580001.201,1,5,601,1,11,0) +100667 +"DATA",1130580001.201,1,5,601,1,12,0) +100676 +"DATA",1130580001.201,1,5,601,2) +12 +"DATA",1130580001.201,1,5,601,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,1,5,601,3,1,0) +100095 +"DATA",1130580001.201,1,5,601,3,2,0) +100696 +"DATA",1130580001.201,1,5,601,3,3,0) +100622 +"DATA",1130580001.201,1,5,601,3,4,0) +100662 +"DATA",1130580001.201,1,5,601,3,5,0) +100661 +"DATA",1130580001.201,1,5,601,3,6,0) +100499 +"DATA",1130580001.201,1,5,601,3,7,0) +100506 +"DATA",1130580001.201,1,5,601,3,8,0) +100647 +"DATA",1130580001.201,1,5,601,3,9,0) +100648 +"DATA",1130580001.201,1,5,601,3,10,0) +100649 +"DATA",1130580001.201,1,5,601,3,11,0) +100839 +"DATA",1130580001.201,1,5,601,3,12,0) +100878 +"DATA",1130580001.201,1,5,601,3,13,0) +100879 +"DATA",1130580001.201,1,5,601,3,14,0) +100894 +"DATA",1130580001.201,1,5,601,3,15,0) +100887 +"DATA",1130580001.201,1,5,601,3,16,0) +100888 +"DATA",1130580001.201,1,5,601,3,17,0) +100338 +"DATA",1130580001.201,1,5,601,3,18,0) +100848 +"DATA",1130580001.201,1,5,601,3,19,0) +100845 +"DATA",1130580001.201,1,5,601,3,20,0) +100850 +"DATA",1130580001.201,1,5,601,3,21,0) +100855 +"DATA",1130580001.201,1,5,601,3,22,0) +100846 +"DATA",1130580001.201,1,5,601,3,23,0) +100847 +"DATA",1130580001.201,1,5,601,3,24,0) +100849 +"DATA",1130580001.201,1,5,601,3,25,0) +100858 +"DATA",1130580001.201,1,5,601,3,26,0) +100852 +"DATA",1130580001.201,1,5,601,3,27,0) +100929 +"DATA",1130580001.201,1,5,601,3,28,0) +100923 +"DATA",1130580001.201,1,5,601,3,29,0) +100904 +"DATA",1130580001.201,1,5,601,3,30,0) +100905 +"DATA",1130580001.201,1,5,601,3,31,0) +100907 +"DATA",1130580001.201,1,5,601,3,32,0) +100913 +"DATA",1130580001.201,1,5,601,3,33,0) +100859 +"DATA",1130580001.201,1,5,601,3,34,0) +100860 +"DATA",1130580001.201,1,5,601,3,35,0) +100862 +"DATA",1130580001.201,1,5,601,3,36,0) +100861 +"DATA",1130580001.201,1,5,601,3,37,0) +100863 +"DATA",1130580001.201,1,5,601,3,38,0) +100851 +"DATA",1130580001.201,1,5,601,3,39,0) +100853 +"DATA",1130580001.201,1,5,601,3,40,0) +100856 +"DATA",1130580001.201,1,5,601,3,41,0) +100146 +"DATA",1130580001.201,1,5,601,3,42,0) +100857 +"DATA",1130580001.201,1,5,601,3,43,0) +100616 +"DATA",1130580001.201,1,5,601,3,44,0) +774 +"DATA",1130580001.201,1,5,601,3,45,0) +100667 +"DATA",1130580001.201,1,5,601,3,46,0) +100676 +"DATA",1130580001.201,1,5,601,3,47,0) +249 +"DATA",1130580001.201,1,5,601,4) +47 +"DATA",1130580001.201,1,5,602,0) +6 +"DATA",1130580001.201,1,5,602,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,602,1,1,0) +100647 +"DATA",1130580001.201,1,5,602,1,2,0) +100894 +"DATA",1130580001.201,1,5,602,1,3,0) +100900 +"DATA",1130580001.201,1,5,602,1,4,0) +100901 +"DATA",1130580001.201,1,5,602,1,5,0) +100902 +"DATA",1130580001.201,1,5,602,1,6,0) +100903 +"DATA",1130580001.201,1,5,602,1,7,0) +100885 +"DATA",1130580001.201,1,5,602,1,8,0) +100887 +"DATA",1130580001.201,1,5,602,1,9,0) +100890 +"DATA",1130580001.201,1,5,602,1,10,0) +100891 +"DATA",1130580001.201,1,5,602,2) +10 +"DATA",1130580001.201,1,5,602,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,1,5,602,3,1,0) +100696 +"DATA",1130580001.201,1,5,602,3,2,0) +100622 +"DATA",1130580001.201,1,5,602,3,3,0) +100662 +"DATA",1130580001.201,1,5,602,3,4,0) +100661 +"DATA",1130580001.201,1,5,602,3,5,0) +100499 +"DATA",1130580001.201,1,5,602,3,6,0) +100506 +"DATA",1130580001.201,1,5,602,3,7,0) +100647 +"DATA",1130580001.201,1,5,602,3,8,0) +100648 +"DATA",1130580001.201,1,5,602,3,9,0) +100649 +"DATA",1130580001.201,1,5,602,3,10,0) +100839 +"DATA",1130580001.201,1,5,602,3,11,0) +100894 +"DATA",1130580001.201,1,5,602,3,12,0) +100895 +"DATA",1130580001.201,1,5,602,3,13,0) +100896 +"DATA",1130580001.201,1,5,602,3,14,0) +100897 +"DATA",1130580001.201,1,5,602,3,15,0) +100898 +"DATA",1130580001.201,1,5,602,3,16,0) +100899 +"DATA",1130580001.201,1,5,602,3,17,0) +100900 +"DATA",1130580001.201,1,5,602,3,18,0) +100901 +"DATA",1130580001.201,1,5,602,3,19,0) +100902 +"DATA",1130580001.201,1,5,602,3,20,0) +100903 +"DATA",1130580001.201,1,5,602,3,21,0) +100885 +"DATA",1130580001.201,1,5,602,3,22,0) +100887 +"DATA",1130580001.201,1,5,602,3,23,0) +100888 +"DATA",1130580001.201,1,5,602,3,24,0) +100889 +"DATA",1130580001.201,1,5,602,3,25,0) +100890 +"DATA",1130580001.201,1,5,602,3,26,0) +100891 +"DATA",1130580001.201,1,5,602,3,27,0) +100929 +"DATA",1130580001.201,1,5,602,3,28,0) +100930 +"DATA",1130580001.201,1,5,602,3,29,0) +100931 +"DATA",1130580001.201,1,5,602,3,30,0) +100932 +"DATA",1130580001.201,1,5,602,3,31,0) +100933 +"DATA",1130580001.201,1,5,602,3,32,0) +100616 +"DATA",1130580001.201,1,5,602,3,33,0) +774 +"DATA",1130580001.201,1,5,602,3,34,0) +100667 +"DATA",1130580001.201,1,5,602,3,35,0) +100676 +"DATA",1130580001.201,1,5,602,3,36,0) +249 +"DATA",1130580001.201,1,5,602,4) +36 +"DATA",1130580001.201,1,5,603,0) +7 +"DATA",1130580001.201,1,5,603,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,603,1,1,0) +100894 +"DATA",1130580001.201,1,5,603,1,2,0) +100895 +"DATA",1130580001.201,1,5,603,1,3,0) +100896 +"DATA",1130580001.201,1,5,603,1,4,0) +100897 +"DATA",1130580001.201,1,5,603,1,5,0) +100898 +"DATA",1130580001.201,1,5,603,1,6,0) +100899 +"DATA",1130580001.201,1,5,603,1,7,0) +100900 +"DATA",1130580001.201,1,5,603,1,8,0) +100901 +"DATA",1130580001.201,1,5,603,1,9,0) +100902 +"DATA",1130580001.201,1,5,603,2) +9 +"DATA",1130580001.201,1,5,603,3,0) +^1130580001.20112P^14^14 +"DATA",1130580001.201,1,5,603,3,1,0) +100499 +"DATA",1130580001.201,1,5,603,3,2,0) +100839 +"DATA",1130580001.201,1,5,603,3,3,0) +100894 +"DATA",1130580001.201,1,5,603,3,4,0) +100895 +"DATA",1130580001.201,1,5,603,3,5,0) +100896 +"DATA",1130580001.201,1,5,603,3,6,0) +100897 +"DATA",1130580001.201,1,5,603,3,7,0) +100898 +"DATA",1130580001.201,1,5,603,3,8,0) +100899 +"DATA",1130580001.201,1,5,603,3,9,0) +100900 +"DATA",1130580001.201,1,5,603,3,10,0) +100901 +"DATA",1130580001.201,1,5,603,3,11,0) +100902 +"DATA",1130580001.201,1,5,603,3,12,0) +100888 +"DATA",1130580001.201,1,5,603,3,13,0) +100929 +"DATA",1130580001.201,1,5,603,3,14,0) +100930 +"DATA",1130580001.201,1,5,603,4) +14 +"DATA",1130580001.201,1,5,604,0) +2 +"DATA",1130580001.201,1,5,604,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,604,1,1,0) +100647 +"DATA",1130580001.201,1,5,604,1,2,0) +100878 +"DATA",1130580001.201,1,5,604,1,3,0) +100879 +"DATA",1130580001.201,1,5,604,1,4,0) +100880 +"DATA",1130580001.201,1,5,604,1,5,0) +100881 +"DATA",1130580001.201,1,5,604,1,6,0) +100883 +"DATA",1130580001.201,1,5,604,1,7,0) +100899 +"DATA",1130580001.201,1,5,604,1,8,0) +100900 +"DATA",1130580001.201,1,5,604,1,9,0) +100901 +"DATA",1130580001.201,1,5,604,1,10,0) +100902 +"DATA",1130580001.201,1,5,604,2) +10 +"DATA",1130580001.201,1,5,604,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,1,5,604,3,1,0) +100647 +"DATA",1130580001.201,1,5,604,3,2,0) +100878 +"DATA",1130580001.201,1,5,604,3,3,0) +100879 +"DATA",1130580001.201,1,5,604,3,4,0) +100880 +"DATA",1130580001.201,1,5,604,3,5,0) +100881 +"DATA",1130580001.201,1,5,604,3,6,0) +100883 +"DATA",1130580001.201,1,5,604,3,7,0) +100899 +"DATA",1130580001.201,1,5,604,3,8,0) +100900 +"DATA",1130580001.201,1,5,604,3,9,0) +100901 +"DATA",1130580001.201,1,5,604,3,10,0) +100902 +"DATA",1130580001.201,1,5,604,4) +10 +"DATA",1130580001.201,1,5,605,0) +8 +"DATA",1130580001.201,1,5,605,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,605,1,1,0) +100839 +"DATA",1130580001.201,1,5,605,1,2,0) +100338 +"DATA",1130580001.201,1,5,605,1,3,0) +100848 +"DATA",1130580001.201,1,5,605,1,4,0) +100845 +"DATA",1130580001.201,1,5,605,1,5,0) +100850 +"DATA",1130580001.201,1,5,605,1,6,0) +100855 +"DATA",1130580001.201,1,5,605,1,7,0) +100846 +"DATA",1130580001.201,1,5,605,1,8,0) +100930 +"DATA",1130580001.201,1,5,605,1,9,0) +100146 +"DATA",1130580001.201,1,5,605,1,10,0) +100676 +"DATA",1130580001.201,1,5,605,2) +10 +"DATA",1130580001.201,1,5,605,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,605,3,1,0) +100696 +"DATA",1130580001.201,1,5,605,3,2,0) +100622 +"DATA",1130580001.201,1,5,605,3,3,0) +100661 +"DATA",1130580001.201,1,5,605,3,4,0) +100839 +"DATA",1130580001.201,1,5,605,3,5,0) +100338 +"DATA",1130580001.201,1,5,605,3,6,0) +100848 +"DATA",1130580001.201,1,5,605,3,7,0) +100845 +"DATA",1130580001.201,1,5,605,3,8,0) +100850 +"DATA",1130580001.201,1,5,605,3,9,0) +100855 +"DATA",1130580001.201,1,5,605,3,10,0) +100846 +"DATA",1130580001.201,1,5,605,3,11,0) +100847 +"DATA",1130580001.201,1,5,605,3,12,0) +100849 +"DATA",1130580001.201,1,5,605,3,13,0) +100858 +"DATA",1130580001.201,1,5,605,3,14,0) +100852 +"DATA",1130580001.201,1,5,605,3,15,0) +100930 +"DATA",1130580001.201,1,5,605,3,16,0) +100146 +"DATA",1130580001.201,1,5,605,3,17,0) +100676 +"DATA",1130580001.201,1,5,605,4) +17 +"DATA",1130580001.201,1,5,606,0) +9 +"DATA",1130580001.201,1,5,606,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,606,1,1,0) +100696 +"DATA",1130580001.201,1,5,606,1,2,0) +100622 +"DATA",1130580001.201,1,5,606,1,3,0) +100338 +"DATA",1130580001.201,1,5,606,1,4,0) +100848 +"DATA",1130580001.201,1,5,606,1,5,0) +100845 +"DATA",1130580001.201,1,5,606,1,6,0) +100855 +"DATA",1130580001.201,1,5,606,1,7,0) +100846 +"DATA",1130580001.201,1,5,606,2) +7 +"DATA",1130580001.201,1,5,606,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,606,3,1,0) +100696 +"DATA",1130580001.201,1,5,606,3,2,0) +100622 +"DATA",1130580001.201,1,5,606,3,3,0) +100661 +"DATA",1130580001.201,1,5,606,3,4,0) +100839 +"DATA",1130580001.201,1,5,606,3,5,0) +100338 +"DATA",1130580001.201,1,5,606,3,6,0) +100848 +"DATA",1130580001.201,1,5,606,3,7,0) +100845 +"DATA",1130580001.201,1,5,606,3,8,0) +100850 +"DATA",1130580001.201,1,5,606,3,9,0) +100855 +"DATA",1130580001.201,1,5,606,3,10,0) +100846 +"DATA",1130580001.201,1,5,606,3,11,0) +100847 +"DATA",1130580001.201,1,5,606,3,12,0) +100849 +"DATA",1130580001.201,1,5,606,3,13,0) +100858 +"DATA",1130580001.201,1,5,606,3,14,0) +100852 +"DATA",1130580001.201,1,5,606,3,15,0) +100930 +"DATA",1130580001.201,1,5,606,3,16,0) +100146 +"DATA",1130580001.201,1,5,606,3,17,0) +100676 +"DATA",1130580001.201,1,5,606,4) +17 +"DATA",1130580001.201,1,5,607,0) +10 +"DATA",1130580001.201,1,5,607,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,607,1,1,0) +100839 +"DATA",1130580001.201,1,5,607,1,2,0) +100880 +"DATA",1130580001.201,1,5,607,1,3,0) +100881 +"DATA",1130580001.201,1,5,607,1,4,0) +100882 +"DATA",1130580001.201,1,5,607,1,5,0) +100874 +"DATA",1130580001.201,1,5,607,1,6,0) +100875 +"DATA",1130580001.201,1,5,607,1,7,0) +100899 +"DATA",1130580001.201,1,5,607,1,8,0) +100900 +"DATA",1130580001.201,1,5,607,1,9,0) +100901 +"DATA",1130580001.201,1,5,607,1,10,0) +100903 +"DATA",1130580001.201,1,5,607,2) +10 +"DATA",1130580001.201,1,5,607,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,607,3,1,0) +100839 +"DATA",1130580001.201,1,5,607,3,2,0) +100880 +"DATA",1130580001.201,1,5,607,3,3,0) +100881 +"DATA",1130580001.201,1,5,607,3,4,0) +100882 +"DATA",1130580001.201,1,5,607,3,5,0) +100874 +"DATA",1130580001.201,1,5,607,3,6,0) +100875 +"DATA",1130580001.201,1,5,607,3,7,0) +100899 +"DATA",1130580001.201,1,5,607,3,8,0) +100900 +"DATA",1130580001.201,1,5,607,3,9,0) +100901 +"DATA",1130580001.201,1,5,607,3,10,0) +100902 +"DATA",1130580001.201,1,5,607,3,11,0) +100903 +"DATA",1130580001.201,1,5,607,4) +11 +"DATA",1130580001.201,1,5,608,0) +16 +"DATA",1130580001.201,1,5,608,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,608,1,1,0) +100696 +"DATA",1130580001.201,1,5,608,1,2,0) +100622 +"DATA",1130580001.201,1,5,608,1,3,0) +100662 +"DATA",1130580001.201,1,5,608,1,4,0) +100661 +"DATA",1130580001.201,1,5,608,1,5,0) +100499 +"DATA",1130580001.201,1,5,608,1,6,0) +100647 +"DATA",1130580001.201,1,5,608,1,7,0) +100839 +"DATA",1130580001.201,1,5,608,1,8,0) +100888 +"DATA",1130580001.201,1,5,608,1,9,0) +100930 +"DATA",1130580001.201,1,5,608,2) +9 +"DATA",1130580001.201,1,5,608,3,0) +^1130580001.20112P^53^53 +"DATA",1130580001.201,1,5,608,3,1,0) +100095 +"DATA",1130580001.201,1,5,608,3,2,0) +100696 +"DATA",1130580001.201,1,5,608,3,3,0) +100622 +"DATA",1130580001.201,1,5,608,3,4,0) +100662 +"DATA",1130580001.201,1,5,608,3,5,0) +100661 +"DATA",1130580001.201,1,5,608,3,6,0) +100499 +"DATA",1130580001.201,1,5,608,3,7,0) +100506 +"DATA",1130580001.201,1,5,608,3,8,0) +100647 +"DATA",1130580001.201,1,5,608,3,9,0) +100648 +"DATA",1130580001.201,1,5,608,3,10,0) +100649 +"DATA",1130580001.201,1,5,608,3,11,0) +100839 +"DATA",1130580001.201,1,5,608,3,12,0) +100878 +"DATA",1130580001.201,1,5,608,3,13,0) +100879 +"DATA",1130580001.201,1,5,608,3,14,0) +100894 +"DATA",1130580001.201,1,5,608,3,15,0) +100887 +"DATA",1130580001.201,1,5,608,3,16,0) +100888 +"DATA",1130580001.201,1,5,608,3,17,0) +100338 +"DATA",1130580001.201,1,5,608,3,18,0) +100848 +"DATA",1130580001.201,1,5,608,3,19,0) +100845 +"DATA",1130580001.201,1,5,608,3,20,0) +100850 +"DATA",1130580001.201,1,5,608,3,21,0) +100855 +"DATA",1130580001.201,1,5,608,3,22,0) +100846 +"DATA",1130580001.201,1,5,608,3,23,0) +100847 +"DATA",1130580001.201,1,5,608,3,24,0) +100849 +"DATA",1130580001.201,1,5,608,3,25,0) +100858 +"DATA",1130580001.201,1,5,608,3,26,0) +100852 +"DATA",1130580001.201,1,5,608,3,27,0) +100929 +"DATA",1130580001.201,1,5,608,3,28,0) +100930 +"DATA",1130580001.201,1,5,608,3,29,0) +100931 +"DATA",1130580001.201,1,5,608,3,30,0) +100914 +"DATA",1130580001.201,1,5,608,3,31,0) +100915 +"DATA",1130580001.201,1,5,608,3,32,0) +100917 +"DATA",1130580001.201,1,5,608,3,33,0) +100923 +"DATA",1130580001.201,1,5,608,3,34,0) +100904 +"DATA",1130580001.201,1,5,608,3,35,0) +100905 +"DATA",1130580001.201,1,5,608,3,36,0) +100907 +"DATA",1130580001.201,1,5,608,3,37,0) +100913 +"DATA",1130580001.201,1,5,608,3,38,0) +100859 +"DATA",1130580001.201,1,5,608,3,39,0) +100860 +"DATA",1130580001.201,1,5,608,3,40,0) +100862 +"DATA",1130580001.201,1,5,608,3,41,0) +100861 +"DATA",1130580001.201,1,5,608,3,42,0) +100863 +"DATA",1130580001.201,1,5,608,3,43,0) +100851 +"DATA",1130580001.201,1,5,608,3,44,0) +100853 +"DATA",1130580001.201,1,5,608,3,45,0) +100856 +"DATA",1130580001.201,1,5,608,3,46,0) +100146 +"DATA",1130580001.201,1,5,608,3,47,0) +100857 +"DATA",1130580001.201,1,5,608,3,48,0) +100955 +"DATA",1130580001.201,1,5,608,3,49,0) +100616 +"DATA",1130580001.201,1,5,608,3,50,0) +774 +"DATA",1130580001.201,1,5,608,3,51,0) +100667 +"DATA",1130580001.201,1,5,608,3,52,0) +100676 +"DATA",1130580001.201,1,5,608,3,53,0) +249 +"DATA",1130580001.201,1,5,608,4) +53 +"DATA",1130580001.201,1,5,609,0) +14 +"DATA",1130580001.201,1,5,609,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,609,1,1,0) +100839 +"DATA",1130580001.201,1,5,609,1,2,0) +100894 +"DATA",1130580001.201,1,5,609,1,3,0) +100895 +"DATA",1130580001.201,1,5,609,1,4,0) +100896 +"DATA",1130580001.201,1,5,609,1,5,0) +100897 +"DATA",1130580001.201,1,5,609,1,6,0) +100898 +"DATA",1130580001.201,1,5,609,1,7,0) +100929 +"DATA",1130580001.201,1,5,609,1,8,0) +100930 +"DATA",1130580001.201,1,5,609,1,9,0) +100931 +"DATA",1130580001.201,1,5,609,1,10,0) +100932 +"DATA",1130580001.201,1,5,609,1,11,0) +100933 +"DATA",1130580001.201,1,5,609,2) +11 +"DATA",1130580001.201,1,5,609,3,0) +^1130580001.20112P^21^21 +"DATA",1130580001.201,1,5,609,3,1,0) +100499 +"DATA",1130580001.201,1,5,609,3,2,0) +100506 +"DATA",1130580001.201,1,5,609,3,3,0) +100839 +"DATA",1130580001.201,1,5,609,3,4,0) +100894 +"DATA",1130580001.201,1,5,609,3,5,0) +100895 +"DATA",1130580001.201,1,5,609,3,6,0) +100896 +"DATA",1130580001.201,1,5,609,3,7,0) +100897 +"DATA",1130580001.201,1,5,609,3,8,0) +100898 +"DATA",1130580001.201,1,5,609,3,9,0) +100899 +"DATA",1130580001.201,1,5,609,3,10,0) +100900 +"DATA",1130580001.201,1,5,609,3,11,0) +100901 +"DATA",1130580001.201,1,5,609,3,12,0) +100902 +"DATA",1130580001.201,1,5,609,3,13,0) +100903 +"DATA",1130580001.201,1,5,609,3,14,0) +100885 +"DATA",1130580001.201,1,5,609,3,15,0) +100887 +"DATA",1130580001.201,1,5,609,3,16,0) +100888 +"DATA",1130580001.201,1,5,609,3,17,0) +100929 +"DATA",1130580001.201,1,5,609,3,18,0) +100930 +"DATA",1130580001.201,1,5,609,3,19,0) +100931 +"DATA",1130580001.201,1,5,609,3,20,0) +100932 +"DATA",1130580001.201,1,5,609,3,21,0) +100933 +"DATA",1130580001.201,1,5,609,4) +21 +"DATA",1130580001.201,1,5,610,0) +1 +"DATA",1130580001.201,1,5,610,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,610,1,1,0) +100338 +"DATA",1130580001.201,1,5,610,1,2,0) +100848 +"DATA",1130580001.201,1,5,610,1,3,0) +100845 +"DATA",1130580001.201,1,5,610,1,4,0) +100855 +"DATA",1130580001.201,1,5,610,1,5,0) +100849 +"DATA",1130580001.201,1,5,610,1,6,0) +100930 +"DATA",1130580001.201,1,5,610,1,7,0) +100146 +"DATA",1130580001.201,1,5,610,2) +7 +"DATA",1130580001.201,1,5,610,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,1,5,610,3,1,0) +100696 +"DATA",1130580001.201,1,5,610,3,2,0) +100622 +"DATA",1130580001.201,1,5,610,3,3,0) +100661 +"DATA",1130580001.201,1,5,610,3,4,0) +100839 +"DATA",1130580001.201,1,5,610,3,5,0) +100338 +"DATA",1130580001.201,1,5,610,3,6,0) +100848 +"DATA",1130580001.201,1,5,610,3,7,0) +100845 +"DATA",1130580001.201,1,5,610,3,8,0) +100850 +"DATA",1130580001.201,1,5,610,3,9,0) +100855 +"DATA",1130580001.201,1,5,610,3,10,0) +100846 +"DATA",1130580001.201,1,5,610,3,11,0) +100847 +"DATA",1130580001.201,1,5,610,3,12,0) +100849 +"DATA",1130580001.201,1,5,610,3,13,0) +100858 +"DATA",1130580001.201,1,5,610,3,14,0) +100852 +"DATA",1130580001.201,1,5,610,3,15,0) +100930 +"DATA",1130580001.201,1,5,610,3,16,0) +100146 +"DATA",1130580001.201,1,5,610,3,17,0) +100676 +"DATA",1130580001.201,1,5,610,4) +17 +"DATA",1130580001.201,1,5,611,0) +17 +"DATA",1130580001.201,1,5,611,1,0) +^1130580001.20111P^7^7 +"DATA",1130580001.201,1,5,611,1,1,0) +100839 +"DATA",1130580001.201,1,5,611,1,2,0) +100897 +"DATA",1130580001.201,1,5,611,1,3,0) +100898 +"DATA",1130580001.201,1,5,611,1,4,0) +100899 +"DATA",1130580001.201,1,5,611,1,5,0) +100900 +"DATA",1130580001.201,1,5,611,1,6,0) +100901 +"DATA",1130580001.201,1,5,611,1,7,0) +100902 +"DATA",1130580001.201,1,5,611,2) +7 +"DATA",1130580001.201,1,5,611,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,611,3,1,0) +100839 +"DATA",1130580001.201,1,5,611,3,2,0) +100894 +"DATA",1130580001.201,1,5,611,3,3,0) +100895 +"DATA",1130580001.201,1,5,611,3,4,0) +100896 +"DATA",1130580001.201,1,5,611,3,5,0) +100897 +"DATA",1130580001.201,1,5,611,3,6,0) +100898 +"DATA",1130580001.201,1,5,611,3,7,0) +100899 +"DATA",1130580001.201,1,5,611,3,8,0) +100900 +"DATA",1130580001.201,1,5,611,3,9,0) +100901 +"DATA",1130580001.201,1,5,611,3,10,0) +100902 +"DATA",1130580001.201,1,5,611,3,11,0) +100929 +"DATA",1130580001.201,1,5,611,4) +11 +"DATA",1130580001.201,1,5,612,0) +18 +"DATA",1130580001.201,1,5,612,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,1,5,612,1,1,0) +100696 +"DATA",1130580001.201,1,5,612,1,2,0) +100622 +"DATA",1130580001.201,1,5,612,1,3,0) +100662 +"DATA",1130580001.201,1,5,612,1,4,0) +100661 +"DATA",1130580001.201,1,5,612,1,5,0) +100499 +"DATA",1130580001.201,1,5,612,1,6,0) +100647 +"DATA",1130580001.201,1,5,612,1,7,0) +100649 +"DATA",1130580001.201,1,5,612,1,8,0) +100839 +"DATA",1130580001.201,1,5,612,1,9,0) +100888 +"DATA",1130580001.201,1,5,612,1,10,0) +100929 +"DATA",1130580001.201,1,5,612,1,11,0) +100930 +"DATA",1130580001.201,1,5,612,1,12,0) +774 +"DATA",1130580001.201,1,5,612,2) +12 +"DATA",1130580001.201,1,5,612,3,0) +^1130580001.20112P^20^20 +"DATA",1130580001.201,1,5,612,3,1,0) +100696 +"DATA",1130580001.201,1,5,612,3,2,0) +100622 +"DATA",1130580001.201,1,5,612,3,3,0) +100662 +"DATA",1130580001.201,1,5,612,3,4,0) +100661 +"DATA",1130580001.201,1,5,612,3,5,0) +100499 +"DATA",1130580001.201,1,5,612,3,6,0) +100506 +"DATA",1130580001.201,1,5,612,3,7,0) +100647 +"DATA",1130580001.201,1,5,612,3,8,0) +100648 +"DATA",1130580001.201,1,5,612,3,9,0) +100649 +"DATA",1130580001.201,1,5,612,3,10,0) +100839 +"DATA",1130580001.201,1,5,612,3,11,0) +100894 +"DATA",1130580001.201,1,5,612,3,12,0) +100887 +"DATA",1130580001.201,1,5,612,3,13,0) +100888 +"DATA",1130580001.201,1,5,612,3,14,0) +100929 +"DATA",1130580001.201,1,5,612,3,15,0) +100930 +"DATA",1130580001.201,1,5,612,3,16,0) +100616 +"DATA",1130580001.201,1,5,612,3,17,0) +774 +"DATA",1130580001.201,1,5,612,3,18,0) +100667 +"DATA",1130580001.201,1,5,612,3,19,0) +100676 +"DATA",1130580001.201,1,5,612,3,20,0) +249 +"DATA",1130580001.201,1,5,612,4) +20 +"DATA",1130580001.201,1,5,613,0) +19 +"DATA",1130580001.201,1,5,613,1,0) +^1130580001.20111P^9^9 +"DATA",1130580001.201,1,5,613,1,1,0) +100878 +"DATA",1130580001.201,1,5,613,1,2,0) +100894 +"DATA",1130580001.201,1,5,613,1,3,0) +100895 +"DATA",1130580001.201,1,5,613,1,4,0) +100897 +"DATA",1130580001.201,1,5,613,1,5,0) +100885 +"DATA",1130580001.201,1,5,613,1,6,0) +100850 +"DATA",1130580001.201,1,5,613,1,7,0) +100929 +"DATA",1130580001.201,1,5,613,1,8,0) +100915 +"DATA",1130580001.201,1,5,613,1,9,0) +100955 +"DATA",1130580001.201,1,5,613,2) +9 +"DATA",1130580001.201,1,5,613,3,0) +^1130580001.20112P^78^78 +"DATA",1130580001.201,1,5,613,3,1,0) +100095 +"DATA",1130580001.201,1,5,613,3,2,0) +100696 +"DATA",1130580001.201,1,5,613,3,3,0) +100622 +"DATA",1130580001.201,1,5,613,3,4,0) +100662 +"DATA",1130580001.201,1,5,613,3,5,0) +100661 +"DATA",1130580001.201,1,5,613,3,6,0) +100499 +"DATA",1130580001.201,1,5,613,3,7,0) +100506 +"DATA",1130580001.201,1,5,613,3,8,0) +100647 +"DATA",1130580001.201,1,5,613,3,9,0) +100648 +"DATA",1130580001.201,1,5,613,3,10,0) +100649 +"DATA",1130580001.201,1,5,613,3,11,0) +100839 +"DATA",1130580001.201,1,5,613,3,12,0) +100878 +"DATA",1130580001.201,1,5,613,3,13,0) +100879 +"DATA",1130580001.201,1,5,613,3,14,0) +100880 +"DATA",1130580001.201,1,5,613,3,15,0) +100881 +"DATA",1130580001.201,1,5,613,3,16,0) +100882 +"DATA",1130580001.201,1,5,613,3,17,0) +100874 +"DATA",1130580001.201,1,5,613,3,18,0) +100875 +"DATA",1130580001.201,1,5,613,3,19,0) +100883 +"DATA",1130580001.201,1,5,613,3,20,0) +100894 +"DATA",1130580001.201,1,5,613,3,21,0) +100895 +"DATA",1130580001.201,1,5,613,3,22,0) +100896 +"DATA",1130580001.201,1,5,613,3,23,0) +100897 +"DATA",1130580001.201,1,5,613,3,24,0) +100898 +"DATA",1130580001.201,1,5,613,3,25,0) +100899 +"DATA",1130580001.201,1,5,613,3,26,0) +100900 +"DATA",1130580001.201,1,5,613,3,27,0) +100901 +"DATA",1130580001.201,1,5,613,3,28,0) +100902 +"DATA",1130580001.201,1,5,613,3,29,0) +100903 +"DATA",1130580001.201,1,5,613,3,30,0) +100884 +"DATA",1130580001.201,1,5,613,3,31,0) +100885 +"DATA",1130580001.201,1,5,613,3,32,0) +100886 +"DATA",1130580001.201,1,5,613,3,33,0) +100887 +"DATA",1130580001.201,1,5,613,3,34,0) +100888 +"DATA",1130580001.201,1,5,613,3,35,0) +100889 +"DATA",1130580001.201,1,5,613,3,36,0) +100890 +"DATA",1130580001.201,1,5,613,3,37,0) +100891 +"DATA",1130580001.201,1,5,613,3,38,0) +100338 +"DATA",1130580001.201,1,5,613,3,39,0) +100848 +"DATA",1130580001.201,1,5,613,3,40,0) +100845 +"DATA",1130580001.201,1,5,613,3,41,0) +100850 +"DATA",1130580001.201,1,5,613,3,42,0) +100855 +"DATA",1130580001.201,1,5,613,3,43,0) +100846 +"DATA",1130580001.201,1,5,613,3,44,0) +100847 +"DATA",1130580001.201,1,5,613,3,45,0) +100849 +"DATA",1130580001.201,1,5,613,3,46,0) +100858 +"DATA",1130580001.201,1,5,613,3,47,0) +100852 +"DATA",1130580001.201,1,5,613,3,48,0) +100929 +"DATA",1130580001.201,1,5,613,3,49,0) +100930 +"DATA",1130580001.201,1,5,613,3,50,0) +100931 +"DATA",1130580001.201,1,5,613,3,51,0) +100932 +"DATA",1130580001.201,1,5,613,3,52,0) +100933 +"DATA",1130580001.201,1,5,613,3,53,0) +100914 +"DATA",1130580001.201,1,5,613,3,54,0) +100915 +"DATA",1130580001.201,1,5,613,3,55,0) +100917 +"DATA",1130580001.201,1,5,613,3,56,0) +100923 +"DATA",1130580001.201,1,5,613,3,57,0) +100904 +"DATA",1130580001.201,1,5,613,3,58,0) +100905 +"DATA",1130580001.201,1,5,613,3,59,0) +100906 +"DATA",1130580001.201,1,5,613,3,60,0) +100907 +"DATA",1130580001.201,1,5,613,3,61,0) +100909 +"DATA",1130580001.201,1,5,613,3,62,0) +100913 +"DATA",1130580001.201,1,5,613,3,63,0) +100859 +"DATA",1130580001.201,1,5,613,3,64,0) +100860 +"DATA",1130580001.201,1,5,613,3,65,0) +100862 +"DATA",1130580001.201,1,5,613,3,66,0) +100861 +"DATA",1130580001.201,1,5,613,3,67,0) +100863 +"DATA",1130580001.201,1,5,613,3,68,0) +100851 +"DATA",1130580001.201,1,5,613,3,69,0) +100853 +"DATA",1130580001.201,1,5,613,3,70,0) +100856 +"DATA",1130580001.201,1,5,613,3,71,0) +100146 +"DATA",1130580001.201,1,5,613,3,72,0) +100857 +"DATA",1130580001.201,1,5,613,3,73,0) +100955 +"DATA",1130580001.201,1,5,613,3,74,0) +100616 +"DATA",1130580001.201,1,5,613,3,75,0) +774 +"DATA",1130580001.201,1,5,613,3,76,0) +100667 +"DATA",1130580001.201,1,5,613,3,77,0) +100676 +"DATA",1130580001.201,1,5,613,3,78,0) +249 +"DATA",1130580001.201,1,5,613,4) +78 +"DATA",1130580001.201,1,5,614,0) +13 +"DATA",1130580001.201,1,5,614,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,614,1,1,0) +100647 +"DATA",1130580001.201,1,5,614,1,2,0) +100929 +"DATA",1130580001.201,1,5,614,1,3,0) +100915 +"DATA",1130580001.201,1,5,614,1,4,0) +100917 +"DATA",1130580001.201,1,5,614,1,5,0) +100904 +"DATA",1130580001.201,1,5,614,1,6,0) +100905 +"DATA",1130580001.201,1,5,614,1,7,0) +100906 +"DATA",1130580001.201,1,5,614,1,8,0) +100907 +"DATA",1130580001.201,1,5,614,1,9,0) +100909 +"DATA",1130580001.201,1,5,614,1,10,0) +100955 +"DATA",1130580001.201,1,5,614,2) +10 +"DATA",1130580001.201,1,5,614,3,0) +^1130580001.20112P^52^52 +"DATA",1130580001.201,1,5,614,3,1,0) +100095 +"DATA",1130580001.201,1,5,614,3,2,0) +100696 +"DATA",1130580001.201,1,5,614,3,3,0) +100622 +"DATA",1130580001.201,1,5,614,3,4,0) +100662 +"DATA",1130580001.201,1,5,614,3,5,0) +100661 +"DATA",1130580001.201,1,5,614,3,6,0) +100499 +"DATA",1130580001.201,1,5,614,3,7,0) +100506 +"DATA",1130580001.201,1,5,614,3,8,0) +100647 +"DATA",1130580001.201,1,5,614,3,9,0) +100648 +"DATA",1130580001.201,1,5,614,3,10,0) +100649 +"DATA",1130580001.201,1,5,614,3,11,0) +100839 +"DATA",1130580001.201,1,5,614,3,12,0) +100878 +"DATA",1130580001.201,1,5,614,3,13,0) +100879 +"DATA",1130580001.201,1,5,614,3,14,0) +100894 +"DATA",1130580001.201,1,5,614,3,15,0) +100887 +"DATA",1130580001.201,1,5,614,3,16,0) +100888 +"DATA",1130580001.201,1,5,614,3,17,0) +100338 +"DATA",1130580001.201,1,5,614,3,18,0) +100848 +"DATA",1130580001.201,1,5,614,3,19,0) +100845 +"DATA",1130580001.201,1,5,614,3,20,0) +100850 +"DATA",1130580001.201,1,5,614,3,21,0) +100855 +"DATA",1130580001.201,1,5,614,3,22,0) +100846 +"DATA",1130580001.201,1,5,614,3,23,0) +100847 +"DATA",1130580001.201,1,5,614,3,24,0) +100849 +"DATA",1130580001.201,1,5,614,3,25,0) +100858 +"DATA",1130580001.201,1,5,614,3,26,0) +100852 +"DATA",1130580001.201,1,5,614,3,27,0) +100929 +"DATA",1130580001.201,1,5,614,3,28,0) +100930 +"DATA",1130580001.201,1,5,614,3,29,0) +100914 +"DATA",1130580001.201,1,5,614,3,30,0) +100915 +"DATA",1130580001.201,1,5,614,3,31,0) +100917 +"DATA",1130580001.201,1,5,614,3,32,0) +100923 +"DATA",1130580001.201,1,5,614,3,33,0) +100904 +"DATA",1130580001.201,1,5,614,3,34,0) +100905 +"DATA",1130580001.201,1,5,614,3,35,0) +100907 +"DATA",1130580001.201,1,5,614,3,36,0) +100913 +"DATA",1130580001.201,1,5,614,3,37,0) +100859 +"DATA",1130580001.201,1,5,614,3,38,0) +100860 +"DATA",1130580001.201,1,5,614,3,39,0) +100862 +"DATA",1130580001.201,1,5,614,3,40,0) +100861 +"DATA",1130580001.201,1,5,614,3,41,0) +100863 +"DATA",1130580001.201,1,5,614,3,42,0) +100851 +"DATA",1130580001.201,1,5,614,3,43,0) +100853 +"DATA",1130580001.201,1,5,614,3,44,0) +100856 +"DATA",1130580001.201,1,5,614,3,45,0) +100146 +"DATA",1130580001.201,1,5,614,3,46,0) +100857 +"DATA",1130580001.201,1,5,614,3,47,0) +100955 +"DATA",1130580001.201,1,5,614,3,48,0) +100616 +"DATA",1130580001.201,1,5,614,3,49,0) +774 +"DATA",1130580001.201,1,5,614,3,50,0) +100667 +"DATA",1130580001.201,1,5,614,3,51,0) +100676 +"DATA",1130580001.201,1,5,614,3,52,0) +249 +"DATA",1130580001.201,1,5,614,4) +52 +"DATA",1130580001.201,1,5,615,0) +11 +"DATA",1130580001.201,1,5,615,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,615,1,1,0) +100899 +"DATA",1130580001.201,1,5,615,1,2,0) +100900 +"DATA",1130580001.201,1,5,615,1,3,0) +100846 +"DATA",1130580001.201,1,5,615,1,4,0) +100847 +"DATA",1130580001.201,1,5,615,1,5,0) +100849 +"DATA",1130580001.201,1,5,615,1,6,0) +100858 +"DATA",1130580001.201,1,5,615,1,7,0) +100852 +"DATA",1130580001.201,1,5,615,1,8,0) +100929 +"DATA",1130580001.201,1,5,615,1,9,0) +100931 +"DATA",1130580001.201,1,5,615,1,10,0) +100932 +"DATA",1130580001.201,1,5,615,1,11,0) +100933 +"DATA",1130580001.201,1,5,615,2) +11 +"DATA",1130580001.201,1,5,615,3,0) +^1130580001.20112P^99^99 +"DATA",1130580001.201,1,5,615,3,1,0) +100095 +"DATA",1130580001.201,1,5,615,3,2,0) +100696 +"DATA",1130580001.201,1,5,615,3,3,0) +100622 +"DATA",1130580001.201,1,5,615,3,4,0) +100662 +"DATA",1130580001.201,1,5,615,3,5,0) +100661 +"DATA",1130580001.201,1,5,615,3,6,0) +100499 +"DATA",1130580001.201,1,5,615,3,7,0) +100506 +"DATA",1130580001.201,1,5,615,3,8,0) +100647 +"DATA",1130580001.201,1,5,615,3,9,0) +100648 +"DATA",1130580001.201,1,5,615,3,10,0) +100649 +"DATA",1130580001.201,1,5,615,3,11,0) +100839 +"DATA",1130580001.201,1,5,615,3,12,0) +100878 +"DATA",1130580001.201,1,5,615,3,13,0) +100879 +"DATA",1130580001.201,1,5,615,3,14,0) +100880 +"DATA",1130580001.201,1,5,615,3,15,0) +100881 +"DATA",1130580001.201,1,5,615,3,16,0) +100882 +"DATA",1130580001.201,1,5,615,3,17,0) +100874 +"DATA",1130580001.201,1,5,615,3,18,0) +100875 +"DATA",1130580001.201,1,5,615,3,19,0) +100877 +"DATA",1130580001.201,1,5,615,3,20,0) +100883 +"DATA",1130580001.201,1,5,615,3,21,0) +100894 +"DATA",1130580001.201,1,5,615,3,22,0) +100895 +"DATA",1130580001.201,1,5,615,3,23,0) +100896 +"DATA",1130580001.201,1,5,615,3,24,0) +100897 +"DATA",1130580001.201,1,5,615,3,25,0) +100898 +"DATA",1130580001.201,1,5,615,3,26,0) +100899 +"DATA",1130580001.201,1,5,615,3,27,0) +100900 +"DATA",1130580001.201,1,5,615,3,28,0) +100901 +"DATA",1130580001.201,1,5,615,3,29,0) +100902 +"DATA",1130580001.201,1,5,615,3,30,0) +100903 +"DATA",1130580001.201,1,5,615,3,31,0) +100884 +"DATA",1130580001.201,1,5,615,3,32,0) +100885 +"DATA",1130580001.201,1,5,615,3,33,0) +100886 +"DATA",1130580001.201,1,5,615,3,34,0) +100887 +"DATA",1130580001.201,1,5,615,3,35,0) +100888 +"DATA",1130580001.201,1,5,615,3,36,0) +100889 +"DATA",1130580001.201,1,5,615,3,37,0) +100890 +"DATA",1130580001.201,1,5,615,3,38,0) +100891 +"DATA",1130580001.201,1,5,615,3,39,0) +100892 +"DATA",1130580001.201,1,5,615,3,40,0) +100893 +"DATA",1130580001.201,1,5,615,3,41,0) +100338 +"DATA",1130580001.201,1,5,615,3,42,0) +100848 +"DATA",1130580001.201,1,5,615,3,43,0) +100845 +"DATA",1130580001.201,1,5,615,3,44,0) +100850 +"DATA",1130580001.201,1,5,615,3,45,0) +100855 +"DATA",1130580001.201,1,5,615,3,46,0) +100846 +"DATA",1130580001.201,1,5,615,3,47,0) +100847 +"DATA",1130580001.201,1,5,615,3,48,0) +100849 +"DATA",1130580001.201,1,5,615,3,49,0) +100858 +"DATA",1130580001.201,1,5,615,3,50,0) +100852 +"DATA",1130580001.201,1,5,615,3,51,0) +100929 +"DATA",1130580001.201,1,5,615,3,52,0) +100930 +"DATA",1130580001.201,1,5,615,3,53,0) +100931 +"DATA",1130580001.201,1,5,615,3,54,0) +100932 +"DATA",1130580001.201,1,5,615,3,55,0) +100933 +"DATA",1130580001.201,1,5,615,3,56,0) +100914 +"DATA",1130580001.201,1,5,615,3,57,0) +100915 +"DATA",1130580001.201,1,5,615,3,58,0) +100917 +"DATA",1130580001.201,1,5,615,3,59,0) +100923 +"DATA",1130580001.201,1,5,615,3,60,0) +100904 +"DATA",1130580001.201,1,5,615,3,61,0) +100905 +"DATA",1130580001.201,1,5,615,3,62,0) +100906 +"DATA",1130580001.201,1,5,615,3,63,0) +100907 +"DATA",1130580001.201,1,5,615,3,64,0) +100908 +"DATA",1130580001.201,1,5,615,3,65,0) +100909 +"DATA",1130580001.201,1,5,615,3,66,0) +100910 +"DATA",1130580001.201,1,5,615,3,67,0) +100911 +"DATA",1130580001.201,1,5,615,3,68,0) +100912 +"DATA",1130580001.201,1,5,615,3,69,0) +100913 +"DATA",1130580001.201,1,5,615,3,70,0) +100864 +"DATA",1130580001.201,1,5,615,3,71,0) +100865 +"DATA",1130580001.201,1,5,615,3,72,0) +100866 +"DATA",1130580001.201,1,5,615,3,73,0) +100867 +"DATA",1130580001.201,1,5,615,3,74,0) +100868 +"DATA",1130580001.201,1,5,615,3,75,0) +100869 +"DATA",1130580001.201,1,5,615,3,76,0) +100870 +"DATA",1130580001.201,1,5,615,3,77,0) +100871 +"DATA",1130580001.201,1,5,615,3,78,0) +100872 +"DATA",1130580001.201,1,5,615,3,79,0) +100873 +"DATA",1130580001.201,1,5,615,3,80,0) +100859 +"DATA",1130580001.201,1,5,615,3,81,0) +100860 +"DATA",1130580001.201,1,5,615,3,82,0) +100862 +"DATA",1130580001.201,1,5,615,3,83,0) +100861 +"DATA",1130580001.201,1,5,615,3,84,0) +100863 +"DATA",1130580001.201,1,5,615,3,85,0) +100851 +"DATA",1130580001.201,1,5,615,3,86,0) +100853 +"DATA",1130580001.201,1,5,615,3,87,0) +100856 +"DATA",1130580001.201,1,5,615,3,88,0) +100146 +"DATA",1130580001.201,1,5,615,3,89,0) +100857 +"DATA",1130580001.201,1,5,615,3,90,0) +100955 +"DATA",1130580001.201,1,5,615,3,91,0) +100616 +"DATA",1130580001.201,1,5,615,3,92,0) +100146 +"DATA",1130580001.201,1,5,615,3,93,0) +100499 +"DATA",1130580001.201,1,5,615,3,94,0) +100506 +"DATA",1130580001.201,1,5,615,3,95,0) +774 +"DATA",1130580001.201,1,5,615,3,96,0) +774 +"DATA",1130580001.201,1,5,615,3,97,0) +100667 +"DATA",1130580001.201,1,5,615,3,98,0) +100676 +"DATA",1130580001.201,1,5,615,3,99,0) +249 +"DATA",1130580001.201,1,5,615,4) +99 +"DATA",1130580001.201,1,5,616,0) +12 +"DATA",1130580001.201,1,5,616,2) +0 +"DATA",1130580001.201,1,5,616,3,0) +^1130580001.20112P^98^98 +"DATA",1130580001.201,1,5,616,3,1,0) +100095 +"DATA",1130580001.201,1,5,616,3,2,0) +100696 +"DATA",1130580001.201,1,5,616,3,3,0) +100622 +"DATA",1130580001.201,1,5,616,3,4,0) +100662 +"DATA",1130580001.201,1,5,616,3,5,0) +100661 +"DATA",1130580001.201,1,5,616,3,6,0) +100499 +"DATA",1130580001.201,1,5,616,3,7,0) +100506 +"DATA",1130580001.201,1,5,616,3,8,0) +100647 +"DATA",1130580001.201,1,5,616,3,9,0) +100648 +"DATA",1130580001.201,1,5,616,3,10,0) +100649 +"DATA",1130580001.201,1,5,616,3,11,0) +100839 +"DATA",1130580001.201,1,5,616,3,12,0) +100878 +"DATA",1130580001.201,1,5,616,3,13,0) +100879 +"DATA",1130580001.201,1,5,616,3,14,0) +100880 +"DATA",1130580001.201,1,5,616,3,15,0) +100881 +"DATA",1130580001.201,1,5,616,3,16,0) +100882 +"DATA",1130580001.201,1,5,616,3,17,0) +100874 +"DATA",1130580001.201,1,5,616,3,18,0) +100875 +"DATA",1130580001.201,1,5,616,3,19,0) +100876 +"DATA",1130580001.201,1,5,616,3,20,0) +100877 +"DATA",1130580001.201,1,5,616,3,21,0) +100883 +"DATA",1130580001.201,1,5,616,3,22,0) +100894 +"DATA",1130580001.201,1,5,616,3,23,0) +100895 +"DATA",1130580001.201,1,5,616,3,24,0) +100896 +"DATA",1130580001.201,1,5,616,3,25,0) +100897 +"DATA",1130580001.201,1,5,616,3,26,0) +100898 +"DATA",1130580001.201,1,5,616,3,27,0) +100899 +"DATA",1130580001.201,1,5,616,3,28,0) +100900 +"DATA",1130580001.201,1,5,616,3,29,0) +100901 +"DATA",1130580001.201,1,5,616,3,30,0) +100902 +"DATA",1130580001.201,1,5,616,3,31,0) +100903 +"DATA",1130580001.201,1,5,616,3,32,0) +100884 +"DATA",1130580001.201,1,5,616,3,33,0) +100885 +"DATA",1130580001.201,1,5,616,3,34,0) +100886 +"DATA",1130580001.201,1,5,616,3,35,0) +100887 +"DATA",1130580001.201,1,5,616,3,36,0) +100888 +"DATA",1130580001.201,1,5,616,3,37,0) +100889 +"DATA",1130580001.201,1,5,616,3,38,0) +100890 +"DATA",1130580001.201,1,5,616,3,39,0) +100891 +"DATA",1130580001.201,1,5,616,3,40,0) +100892 +"DATA",1130580001.201,1,5,616,3,41,0) +100893 +"DATA",1130580001.201,1,5,616,3,42,0) +100338 +"DATA",1130580001.201,1,5,616,3,43,0) +100848 +"DATA",1130580001.201,1,5,616,3,44,0) +100845 +"DATA",1130580001.201,1,5,616,3,45,0) +100850 +"DATA",1130580001.201,1,5,616,3,46,0) +100855 +"DATA",1130580001.201,1,5,616,3,47,0) +100846 +"DATA",1130580001.201,1,5,616,3,48,0) +100847 +"DATA",1130580001.201,1,5,616,3,49,0) +100849 +"DATA",1130580001.201,1,5,616,3,50,0) +100858 +"DATA",1130580001.201,1,5,616,3,51,0) +100852 +"DATA",1130580001.201,1,5,616,3,52,0) +100929 +"DATA",1130580001.201,1,5,616,3,53,0) +100930 +"DATA",1130580001.201,1,5,616,3,54,0) +100931 +"DATA",1130580001.201,1,5,616,3,55,0) +100914 +"DATA",1130580001.201,1,5,616,3,56,0) +100915 +"DATA",1130580001.201,1,5,616,3,57,0) +100917 +"DATA",1130580001.201,1,5,616,3,58,0) +100923 +"DATA",1130580001.201,1,5,616,3,59,0) +100904 +"DATA",1130580001.201,1,5,616,3,60,0) +100905 +"DATA",1130580001.201,1,5,616,3,61,0) +100906 +"DATA",1130580001.201,1,5,616,3,62,0) +100907 +"DATA",1130580001.201,1,5,616,3,63,0) +100908 +"DATA",1130580001.201,1,5,616,3,64,0) +100909 +"DATA",1130580001.201,1,5,616,3,65,0) +100910 +"DATA",1130580001.201,1,5,616,3,66,0) +100911 +"DATA",1130580001.201,1,5,616,3,67,0) +100912 +"DATA",1130580001.201,1,5,616,3,68,0) +100913 +"DATA",1130580001.201,1,5,616,3,69,0) +100864 +"DATA",1130580001.201,1,5,616,3,70,0) +100865 +"DATA",1130580001.201,1,5,616,3,71,0) +100866 +"DATA",1130580001.201,1,5,616,3,72,0) +100867 +"DATA",1130580001.201,1,5,616,3,73,0) +100868 +"DATA",1130580001.201,1,5,616,3,74,0) +100869 +"DATA",1130580001.201,1,5,616,3,75,0) +100870 +"DATA",1130580001.201,1,5,616,3,76,0) +100871 +"DATA",1130580001.201,1,5,616,3,77,0) +100872 +"DATA",1130580001.201,1,5,616,3,78,0) +100873 +"DATA",1130580001.201,1,5,616,3,79,0) +100859 +"DATA",1130580001.201,1,5,616,3,80,0) +100860 +"DATA",1130580001.201,1,5,616,3,81,0) +100862 +"DATA",1130580001.201,1,5,616,3,82,0) +100861 +"DATA",1130580001.201,1,5,616,3,83,0) +100863 +"DATA",1130580001.201,1,5,616,3,84,0) +100851 +"DATA",1130580001.201,1,5,616,3,85,0) +100853 +"DATA",1130580001.201,1,5,616,3,86,0) +100856 +"DATA",1130580001.201,1,5,616,3,87,0) +100146 +"DATA",1130580001.201,1,5,616,3,88,0) +100857 +"DATA",1130580001.201,1,5,616,3,89,0) +100955 +"DATA",1130580001.201,1,5,616,3,90,0) +100616 +"DATA",1130580001.201,1,5,616,3,91,0) +100146 +"DATA",1130580001.201,1,5,616,3,92,0) +100499 +"DATA",1130580001.201,1,5,616,3,93,0) +100506 +"DATA",1130580001.201,1,5,616,3,94,0) +774 +"DATA",1130580001.201,1,5,616,3,95,0) +774 +"DATA",1130580001.201,1,5,616,3,96,0) +100667 +"DATA",1130580001.201,1,5,616,3,97,0) +100676 +"DATA",1130580001.201,1,5,616,3,98,0) +249 +"DATA",1130580001.201,1,5,616,4) +98 +"DATA",1130580001.201,1,5,617,0) +21 +"DATA",1130580001.201,1,5,617,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,1,5,617,1,1,0) +100942 +"DATA",1130580001.201,1,5,617,1,2,0) +100943 +"DATA",1130580001.201,1,5,617,1,3,0) +100944 +"DATA",1130580001.201,1,5,617,1,4,0) +100945 +"DATA",1130580001.201,1,5,617,1,5,0) +100946 +"DATA",1130580001.201,1,5,617,1,6,0) +100935 +"DATA",1130580001.201,1,5,617,1,7,0) +100936 +"DATA",1130580001.201,1,5,617,1,8,0) +100939 +"DATA",1130580001.201,1,5,617,1,9,0) +100940 +"DATA",1130580001.201,1,5,617,1,10,0) +100941 +"DATA",1130580001.201,1,5,617,2) +10 +"DATA",1130580001.201,1,5,617,3,0) +^1130580001.20112P^19^19 +"DATA",1130580001.201,1,5,617,3,1,0) +100942 +"DATA",1130580001.201,1,5,617,3,2,0) +100943 +"DATA",1130580001.201,1,5,617,3,3,0) +100944 +"DATA",1130580001.201,1,5,617,3,4,0) +100945 +"DATA",1130580001.201,1,5,617,3,5,0) +100946 +"DATA",1130580001.201,1,5,617,3,6,0) +100935 +"DATA",1130580001.201,1,5,617,3,7,0) +100936 +"DATA",1130580001.201,1,5,617,3,8,0) +100939 +"DATA",1130580001.201,1,5,617,3,9,0) +100940 +"DATA",1130580001.201,1,5,617,3,10,0) +100941 +"DATA",1130580001.201,1,5,617,3,11,0) +100951 +"DATA",1130580001.201,1,5,617,3,12,0) +100952 +"DATA",1130580001.201,1,5,617,3,13,0) +100953 +"DATA",1130580001.201,1,5,617,3,14,0) +100954 +"DATA",1130580001.201,1,5,617,3,15,0) +100934 +"DATA",1130580001.201,1,5,617,3,16,0) +100937 +"DATA",1130580001.201,1,5,617,3,17,0) +100947 +"DATA",1130580001.201,1,5,617,3,18,0) +100948 +"DATA",1130580001.201,1,5,617,3,19,0) +100949 +"DATA",1130580001.201,1,5,617,4) +19 +"DATA",1130580001.201,1,5,618,0) +20 +"DATA",1130580001.201,1,5,618,1,0) +^1130580001.20111P^11^11 +"DATA",1130580001.201,1,5,618,1,1,0) +100950 +"DATA",1130580001.201,1,5,618,1,2,0) +100951 +"DATA",1130580001.201,1,5,618,1,3,0) +100952 +"DATA",1130580001.201,1,5,618,1,4,0) +100953 +"DATA",1130580001.201,1,5,618,1,5,0) +100954 +"DATA",1130580001.201,1,5,618,1,6,0) +100934 +"DATA",1130580001.201,1,5,618,1,7,0) +100937 +"DATA",1130580001.201,1,5,618,1,8,0) +100947 +"DATA",1130580001.201,1,5,618,1,9,0) +100948 +"DATA",1130580001.201,1,5,618,1,10,0) +100949 +"DATA",1130580001.201,1,5,618,1,11,0) +100957 +"DATA",1130580001.201,1,5,618,2) +11 +"DATA",1130580001.201,1,5,618,3,0) +^1130580001.20112P^11^11 +"DATA",1130580001.201,1,5,618,3,1,0) +100950 +"DATA",1130580001.201,1,5,618,3,2,0) +100951 +"DATA",1130580001.201,1,5,618,3,3,0) +100952 +"DATA",1130580001.201,1,5,618,3,4,0) +100953 +"DATA",1130580001.201,1,5,618,3,5,0) +100954 +"DATA",1130580001.201,1,5,618,3,6,0) +100934 +"DATA",1130580001.201,1,5,618,3,7,0) +100937 +"DATA",1130580001.201,1,5,618,3,8,0) +100947 +"DATA",1130580001.201,1,5,618,3,9,0) +100948 +"DATA",1130580001.201,1,5,618,3,10,0) +100949 +"DATA",1130580001.201,1,5,618,3,11,0) +100957 +"DATA",1130580001.201,1,5,618,4) +11 +"DATA",1130580001.201,1,6) +^N^Y +"DATA",1130580001.201,2,0) +SAMPLE2 +"DATA",1130580001.201,3,0) +GPLTEST SET +"DATA",1130580001.201,3,5,0) +^1130580001.2011P^16^3 +"DATA",1130580001.201,3,5,14,0) +5 +"DATA",1130580001.201,3,5,14,1,0) +^1130580001.20111P^12^12 +"DATA",1130580001.201,3,5,14,1,1,0) +100696 +"DATA",1130580001.201,3,5,14,1,2,0) +100622 +"DATA",1130580001.201,3,5,14,1,3,0) +100662 +"DATA",1130580001.201,3,5,14,1,4,0) +100661 +"DATA",1130580001.201,3,5,14,1,5,0) +100649 +"DATA",1130580001.201,3,5,14,1,6,0) +100338 +"DATA",1130580001.201,3,5,14,1,7,0) +100848 +"DATA",1130580001.201,3,5,14,1,8,0) +100845 +"DATA",1130580001.201,3,5,14,1,9,0) +100146 +"DATA",1130580001.201,3,5,14,1,10,0) +100616 +"DATA",1130580001.201,3,5,14,1,11,0) +100667 +"DATA",1130580001.201,3,5,14,1,12,0) +100676 +"DATA",1130580001.201,3,5,14,3,0) +^1130580001.20112P^47^47 +"DATA",1130580001.201,3,5,14,3,1,0) +100095 +"DATA",1130580001.201,3,5,14,3,2,0) +100696 +"DATA",1130580001.201,3,5,14,3,3,0) +100622 +"DATA",1130580001.201,3,5,14,3,4,0) +100662 +"DATA",1130580001.201,3,5,14,3,5,0) +100661 +"DATA",1130580001.201,3,5,14,3,6,0) +100499 +"DATA",1130580001.201,3,5,14,3,7,0) +100506 +"DATA",1130580001.201,3,5,14,3,8,0) +100647 +"DATA",1130580001.201,3,5,14,3,9,0) +100648 +"DATA",1130580001.201,3,5,14,3,10,0) +100649 +"DATA",1130580001.201,3,5,14,3,11,0) +100839 +"DATA",1130580001.201,3,5,14,3,12,0) +100878 +"DATA",1130580001.201,3,5,14,3,13,0) +100879 +"DATA",1130580001.201,3,5,14,3,14,0) +100894 +"DATA",1130580001.201,3,5,14,3,15,0) +100887 +"DATA",1130580001.201,3,5,14,3,16,0) +100888 +"DATA",1130580001.201,3,5,14,3,17,0) +100338 +"DATA",1130580001.201,3,5,14,3,18,0) +100848 +"DATA",1130580001.201,3,5,14,3,19,0) +100845 +"DATA",1130580001.201,3,5,14,3,20,0) +100850 +"DATA",1130580001.201,3,5,14,3,21,0) +100855 +"DATA",1130580001.201,3,5,14,3,22,0) +100846 +"DATA",1130580001.201,3,5,14,3,23,0) +100847 +"DATA",1130580001.201,3,5,14,3,24,0) +100849 +"DATA",1130580001.201,3,5,14,3,25,0) +100858 +"DATA",1130580001.201,3,5,14,3,26,0) +100852 +"DATA",1130580001.201,3,5,14,3,27,0) +100929 +"DATA",1130580001.201,3,5,14,3,28,0) +100923 +"DATA",1130580001.201,3,5,14,3,29,0) +100904 +"DATA",1130580001.201,3,5,14,3,30,0) +100905 +"DATA",1130580001.201,3,5,14,3,31,0) +100907 +"DATA",1130580001.201,3,5,14,3,32,0) +100913 +"DATA",1130580001.201,3,5,14,3,33,0) +100859 +"DATA",1130580001.201,3,5,14,3,34,0) +100860 +"DATA",1130580001.201,3,5,14,3,35,0) +100862 +"DATA",1130580001.201,3,5,14,3,36,0) +100861 +"DATA",1130580001.201,3,5,14,3,37,0) +100863 +"DATA",1130580001.201,3,5,14,3,38,0) +100851 +"DATA",1130580001.201,3,5,14,3,39,0) +100853 +"DATA",1130580001.201,3,5,14,3,40,0) +100856 +"DATA",1130580001.201,3,5,14,3,41,0) +100146 +"DATA",1130580001.201,3,5,14,3,42,0) +100857 +"DATA",1130580001.201,3,5,14,3,43,0) +100616 +"DATA",1130580001.201,3,5,14,3,44,0) +774 +"DATA",1130580001.201,3,5,14,3,45,0) +100667 +"DATA",1130580001.201,3,5,14,3,46,0) +100676 +"DATA",1130580001.201,3,5,14,3,47,0) +249 +"DATA",1130580001.201,3,5,15,0) +4 +"DATA",1130580001.201,3,5,15,1,0) +^1130580001.20111P^96^96 +"DATA",1130580001.201,3,5,15,1,1,0) +100095 +"DATA",1130580001.201,3,5,15,1,2,0) +100696 +"DATA",1130580001.201,3,5,15,1,3,0) +100622 +"DATA",1130580001.201,3,5,15,1,4,0) +100662 +"DATA",1130580001.201,3,5,15,1,5,0) +100661 +"DATA",1130580001.201,3,5,15,1,6,0) +100499 +"DATA",1130580001.201,3,5,15,1,7,0) +100506 +"DATA",1130580001.201,3,5,15,1,8,0) +100647 +"DATA",1130580001.201,3,5,15,1,9,0) +100648 +"DATA",1130580001.201,3,5,15,1,10,0) +100649 +"DATA",1130580001.201,3,5,15,1,11,0) +100839 +"DATA",1130580001.201,3,5,15,1,12,0) +100942 +"DATA",1130580001.201,3,5,15,1,13,0) +100943 +"DATA",1130580001.201,3,5,15,1,14,0) +100935 +"DATA",1130580001.201,3,5,15,1,15,0) +100941 +"DATA",1130580001.201,3,5,15,1,16,0) +100878 +"DATA",1130580001.201,3,5,15,1,17,0) +100879 +"DATA",1130580001.201,3,5,15,1,18,0) +100880 +"DATA",1130580001.201,3,5,15,1,19,0) +100881 +"DATA",1130580001.201,3,5,15,1,20,0) +100882 +"DATA",1130580001.201,3,5,15,1,21,0) +100874 +"DATA",1130580001.201,3,5,15,1,22,0) +100875 +"DATA",1130580001.201,3,5,15,1,23,0) +100876 +"DATA",1130580001.201,3,5,15,1,24,0) +100883 +"DATA",1130580001.201,3,5,15,1,25,0) +100894 +"DATA",1130580001.201,3,5,15,1,26,0) +100895 +"DATA",1130580001.201,3,5,15,1,27,0) +100896 +"DATA",1130580001.201,3,5,15,1,28,0) +100897 +"DATA",1130580001.201,3,5,15,1,29,0) +100898 +"DATA",1130580001.201,3,5,15,1,30,0) +100899 +"DATA",1130580001.201,3,5,15,1,31,0) +100900 +"DATA",1130580001.201,3,5,15,1,32,0) +100901 +"DATA",1130580001.201,3,5,15,1,33,0) +100902 +"DATA",1130580001.201,3,5,15,1,34,0) +100903 +"DATA",1130580001.201,3,5,15,1,35,0) +100884 +"DATA",1130580001.201,3,5,15,1,36,0) +100885 +"DATA",1130580001.201,3,5,15,1,37,0) +100886 +"DATA",1130580001.201,3,5,15,1,38,0) +100887 +"DATA",1130580001.201,3,5,15,1,39,0) +100888 +"DATA",1130580001.201,3,5,15,1,40,0) +100889 +"DATA",1130580001.201,3,5,15,1,41,0) +100890 +"DATA",1130580001.201,3,5,15,1,42,0) +100891 +"DATA",1130580001.201,3,5,15,1,43,0) +100338 +"DATA",1130580001.201,3,5,15,1,44,0) +100848 +"DATA",1130580001.201,3,5,15,1,45,0) +100845 +"DATA",1130580001.201,3,5,15,1,46,0) +100850 +"DATA",1130580001.201,3,5,15,1,47,0) +100855 +"DATA",1130580001.201,3,5,15,1,48,0) +100846 +"DATA",1130580001.201,3,5,15,1,49,0) +100847 +"DATA",1130580001.201,3,5,15,1,50,0) +100849 +"DATA",1130580001.201,3,5,15,1,51,0) +100858 +"DATA",1130580001.201,3,5,15,1,52,0) +100852 +"DATA",1130580001.201,3,5,15,1,53,0) +100929 +"DATA",1130580001.201,3,5,15,1,54,0) +100930 +"DATA",1130580001.201,3,5,15,1,55,0) +100931 +"DATA",1130580001.201,3,5,15,1,56,0) +100932 +"DATA",1130580001.201,3,5,15,1,57,0) +100933 +"DATA",1130580001.201,3,5,15,1,58,0) +100914 +"DATA",1130580001.201,3,5,15,1,59,0) +100915 +"DATA",1130580001.201,3,5,15,1,60,0) +100917 +"DATA",1130580001.201,3,5,15,1,61,0) +100923 +"DATA",1130580001.201,3,5,15,1,62,0) +100904 +"DATA",1130580001.201,3,5,15,1,63,0) +100905 +"DATA",1130580001.201,3,5,15,1,64,0) +100906 +"DATA",1130580001.201,3,5,15,1,65,0) +100907 +"DATA",1130580001.201,3,5,15,1,66,0) +100909 +"DATA",1130580001.201,3,5,15,1,67,0) +100913 +"DATA",1130580001.201,3,5,15,1,68,0) +100859 +"DATA",1130580001.201,3,5,15,1,69,0) +100860 +"DATA",1130580001.201,3,5,15,1,70,0) +100862 +"DATA",1130580001.201,3,5,15,1,71,0) +100861 +"DATA",1130580001.201,3,5,15,1,72,0) +100863 +"DATA",1130580001.201,3,5,15,1,73,0) +100851 +"DATA",1130580001.201,3,5,15,1,74,0) +100853 +"DATA",1130580001.201,3,5,15,1,75,0) +100856 +"DATA",1130580001.201,3,5,15,1,76,0) +100146 +"DATA",1130580001.201,3,5,15,1,77,0) +100857 +"DATA",1130580001.201,3,5,15,1,78,0) +100955 +"DATA",1130580001.201,3,5,15,1,79,0) +100616 +"DATA",1130580001.201,3,5,15,1,80,0) +100146 +"DATA",1130580001.201,3,5,15,1,81,0) +100499 +"DATA",1130580001.201,3,5,15,1,82,0) +100506 +"DATA",1130580001.201,3,5,15,1,83,0) +774 +"DATA",1130580001.201,3,5,15,1,84,0) +774 +"DATA",1130580001.201,3,5,15,1,85,0) +100667 +"DATA",1130580001.201,3,5,15,1,86,0) +100676 +"DATA",1130580001.201,3,5,15,1,87,0) +100951 +"DATA",1130580001.201,3,5,15,1,88,0) +100952 +"DATA",1130580001.201,3,5,15,1,89,0) +100953 +"DATA",1130580001.201,3,5,15,1,90,0) +100954 +"DATA",1130580001.201,3,5,15,1,91,0) +100934 +"DATA",1130580001.201,3,5,15,1,92,0) +100937 +"DATA",1130580001.201,3,5,15,1,93,0) +100947 +"DATA",1130580001.201,3,5,15,1,94,0) +100948 +"DATA",1130580001.201,3,5,15,1,95,0) +100949 +"DATA",1130580001.201,3,5,15,1,96,0) +249 +"DATA",1130580001.201,3,5,15,3,0) +^1130580001.20112P^96^96 +"DATA",1130580001.201,3,5,15,3,1,0) +100095 +"DATA",1130580001.201,3,5,15,3,2,0) +100696 +"DATA",1130580001.201,3,5,15,3,3,0) +100622 +"DATA",1130580001.201,3,5,15,3,4,0) +100662 +"DATA",1130580001.201,3,5,15,3,5,0) +100661 +"DATA",1130580001.201,3,5,15,3,6,0) +100499 +"DATA",1130580001.201,3,5,15,3,7,0) +100506 +"DATA",1130580001.201,3,5,15,3,8,0) +100647 +"DATA",1130580001.201,3,5,15,3,9,0) +100648 +"DATA",1130580001.201,3,5,15,3,10,0) +100649 +"DATA",1130580001.201,3,5,15,3,11,0) +100839 +"DATA",1130580001.201,3,5,15,3,12,0) +100942 +"DATA",1130580001.201,3,5,15,3,13,0) +100943 +"DATA",1130580001.201,3,5,15,3,14,0) +100935 +"DATA",1130580001.201,3,5,15,3,15,0) +100941 +"DATA",1130580001.201,3,5,15,3,16,0) +100878 +"DATA",1130580001.201,3,5,15,3,17,0) +100879 +"DATA",1130580001.201,3,5,15,3,18,0) +100880 +"DATA",1130580001.201,3,5,15,3,19,0) +100881 +"DATA",1130580001.201,3,5,15,3,20,0) +100882 +"DATA",1130580001.201,3,5,15,3,21,0) +100874 +"DATA",1130580001.201,3,5,15,3,22,0) +100875 +"DATA",1130580001.201,3,5,15,3,23,0) +100876 +"DATA",1130580001.201,3,5,15,3,24,0) +100883 +"DATA",1130580001.201,3,5,15,3,25,0) +100894 +"DATA",1130580001.201,3,5,15,3,26,0) +100895 +"DATA",1130580001.201,3,5,15,3,27,0) +100896 +"DATA",1130580001.201,3,5,15,3,28,0) +100897 +"DATA",1130580001.201,3,5,15,3,29,0) +100898 +"DATA",1130580001.201,3,5,15,3,30,0) +100899 +"DATA",1130580001.201,3,5,15,3,31,0) +100900 +"DATA",1130580001.201,3,5,15,3,32,0) +100901 +"DATA",1130580001.201,3,5,15,3,33,0) +100902 +"DATA",1130580001.201,3,5,15,3,34,0) +100903 +"DATA",1130580001.201,3,5,15,3,35,0) +100884 +"DATA",1130580001.201,3,5,15,3,36,0) +100885 +"DATA",1130580001.201,3,5,15,3,37,0) +100886 +"DATA",1130580001.201,3,5,15,3,38,0) +100887 +"DATA",1130580001.201,3,5,15,3,39,0) +100888 +"DATA",1130580001.201,3,5,15,3,40,0) +100889 +"DATA",1130580001.201,3,5,15,3,41,0) +100890 +"DATA",1130580001.201,3,5,15,3,42,0) +100891 +"DATA",1130580001.201,3,5,15,3,43,0) +100338 +"DATA",1130580001.201,3,5,15,3,44,0) +100848 +"DATA",1130580001.201,3,5,15,3,45,0) +100845 +"DATA",1130580001.201,3,5,15,3,46,0) +100850 +"DATA",1130580001.201,3,5,15,3,47,0) +100855 +"DATA",1130580001.201,3,5,15,3,48,0) +100846 +"DATA",1130580001.201,3,5,15,3,49,0) +100847 +"DATA",1130580001.201,3,5,15,3,50,0) +100849 +"DATA",1130580001.201,3,5,15,3,51,0) +100858 +"DATA",1130580001.201,3,5,15,3,52,0) +100852 +"DATA",1130580001.201,3,5,15,3,53,0) +100929 +"DATA",1130580001.201,3,5,15,3,54,0) +100930 +"DATA",1130580001.201,3,5,15,3,55,0) +100931 +"DATA",1130580001.201,3,5,15,3,56,0) +100932 +"DATA",1130580001.201,3,5,15,3,57,0) +100933 +"DATA",1130580001.201,3,5,15,3,58,0) +100914 +"DATA",1130580001.201,3,5,15,3,59,0) +100915 +"DATA",1130580001.201,3,5,15,3,60,0) +100917 +"DATA",1130580001.201,3,5,15,3,61,0) +100923 +"DATA",1130580001.201,3,5,15,3,62,0) +100904 +"DATA",1130580001.201,3,5,15,3,63,0) +100905 +"DATA",1130580001.201,3,5,15,3,64,0) +100906 +"DATA",1130580001.201,3,5,15,3,65,0) +100907 +"DATA",1130580001.201,3,5,15,3,66,0) +100909 +"DATA",1130580001.201,3,5,15,3,67,0) +100913 +"DATA",1130580001.201,3,5,15,3,68,0) +100859 +"DATA",1130580001.201,3,5,15,3,69,0) +100860 +"DATA",1130580001.201,3,5,15,3,70,0) +100862 +"DATA",1130580001.201,3,5,15,3,71,0) +100861 +"DATA",1130580001.201,3,5,15,3,72,0) +100863 +"DATA",1130580001.201,3,5,15,3,73,0) +100851 +"DATA",1130580001.201,3,5,15,3,74,0) +100853 +"DATA",1130580001.201,3,5,15,3,75,0) +100856 +"DATA",1130580001.201,3,5,15,3,76,0) +100146 +"DATA",1130580001.201,3,5,15,3,77,0) +100857 +"DATA",1130580001.201,3,5,15,3,78,0) +100955 +"DATA",1130580001.201,3,5,15,3,79,0) +100616 +"DATA",1130580001.201,3,5,15,3,80,0) +100146 +"DATA",1130580001.201,3,5,15,3,81,0) +100499 +"DATA",1130580001.201,3,5,15,3,82,0) +100506 +"DATA",1130580001.201,3,5,15,3,83,0) +774 +"DATA",1130580001.201,3,5,15,3,84,0) +774 +"DATA",1130580001.201,3,5,15,3,85,0) +100667 +"DATA",1130580001.201,3,5,15,3,86,0) +100676 +"DATA",1130580001.201,3,5,15,3,87,0) +100951 +"DATA",1130580001.201,3,5,15,3,88,0) +100952 +"DATA",1130580001.201,3,5,15,3,89,0) +100953 +"DATA",1130580001.201,3,5,15,3,90,0) +100954 +"DATA",1130580001.201,3,5,15,3,91,0) +100934 +"DATA",1130580001.201,3,5,15,3,92,0) +100937 +"DATA",1130580001.201,3,5,15,3,93,0) +100947 +"DATA",1130580001.201,3,5,15,3,94,0) +100948 +"DATA",1130580001.201,3,5,15,3,95,0) +100949 +"DATA",1130580001.201,3,5,15,3,96,0) +249 +"DATA",1130580001.201,3,5,16,0) +6 +"DATA",1130580001.201,3,5,16,1,0) +^1130580001.20111P^10^10 +"DATA",1130580001.201,3,5,16,1,1,0) +100647 +"DATA",1130580001.201,3,5,16,1,2,0) +100894 +"DATA",1130580001.201,3,5,16,1,3,0) +100900 +"DATA",1130580001.201,3,5,16,1,4,0) +100901 +"DATA",1130580001.201,3,5,16,1,5,0) +100902 +"DATA",1130580001.201,3,5,16,1,6,0) +100903 +"DATA",1130580001.201,3,5,16,1,7,0) +100885 +"DATA",1130580001.201,3,5,16,1,8,0) +100887 +"DATA",1130580001.201,3,5,16,1,9,0) +100890 +"DATA",1130580001.201,3,5,16,1,10,0) +100891 +"DATA",1130580001.201,3,5,16,3,0) +^1130580001.20112P^36^36 +"DATA",1130580001.201,3,5,16,3,1,0) +100696 +"DATA",1130580001.201,3,5,16,3,2,0) +100622 +"DATA",1130580001.201,3,5,16,3,3,0) +100662 +"DATA",1130580001.201,3,5,16,3,4,0) +100661 +"DATA",1130580001.201,3,5,16,3,5,0) +100499 +"DATA",1130580001.201,3,5,16,3,6,0) +100506 +"DATA",1130580001.201,3,5,16,3,7,0) +100647 +"DATA",1130580001.201,3,5,16,3,8,0) +100648 +"DATA",1130580001.201,3,5,16,3,9,0) +100649 +"DATA",1130580001.201,3,5,16,3,10,0) +100839 +"DATA",1130580001.201,3,5,16,3,11,0) +100894 +"DATA",1130580001.201,3,5,16,3,12,0) +100895 +"DATA",1130580001.201,3,5,16,3,13,0) +100896 +"DATA",1130580001.201,3,5,16,3,14,0) +100897 +"DATA",1130580001.201,3,5,16,3,15,0) +100898 +"DATA",1130580001.201,3,5,16,3,16,0) +100899 +"DATA",1130580001.201,3,5,16,3,17,0) +100900 +"DATA",1130580001.201,3,5,16,3,18,0) +100901 +"DATA",1130580001.201,3,5,16,3,19,0) +100902 +"DATA",1130580001.201,3,5,16,3,20,0) +100903 +"DATA",1130580001.201,3,5,16,3,21,0) +100885 +"DATA",1130580001.201,3,5,16,3,22,0) +100887 +"DATA",1130580001.201,3,5,16,3,23,0) +100888 +"DATA",1130580001.201,3,5,16,3,24,0) +100889 +"DATA",1130580001.201,3,5,16,3,25,0) +100890 +"DATA",1130580001.201,3,5,16,3,26,0) +100891 +"DATA",1130580001.201,3,5,16,3,27,0) +100929 +"DATA",1130580001.201,3,5,16,3,28,0) +100930 +"DATA",1130580001.201,3,5,16,3,29,0) +100931 +"DATA",1130580001.201,3,5,16,3,30,0) +100932 +"DATA",1130580001.201,3,5,16,3,31,0) +100933 +"DATA",1130580001.201,3,5,16,3,32,0) +100616 +"DATA",1130580001.201,3,5,16,3,33,0) +774 +"DATA",1130580001.201,3,5,16,3,34,0) +100667 +"DATA",1130580001.201,3,5,16,3,35,0) +100676 +"DATA",1130580001.201,3,5,16,3,36,0) +249 +"DATA",1130580001.201,4,0) +MEANINGFUL USE +"DATA",1130580001.201,4,4) +^^3100101^3101231 +"DATA",1130580001.201,4,5,0) +^1130580001.2011P^1^1 +"DATA",1130580001.201,4,5,1,0) +22 +"DATA",1130580001.201,4,5,1,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,4,5,1,1,1,0) +100894 +"DATA",1130580001.201,4,5,1,1,2,0) +100897 +"DATA",1130580001.201,4,5,1,1,3,0) +100885 +"DATA",1130580001.201,4,5,1,1,4,0) +100929 +"DATA",1130580001.201,4,5,1,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,4,5,1,3,1,0) +100894 +"DATA",1130580001.201,4,5,1,3,2,0) +100897 +"DATA",1130580001.201,4,5,1,3,3,0) +100885 +"DATA",1130580001.201,4,5,1,3,4,0) +100929 +"DATA",1130580001.201,4,6) +^^Y +"DATA",1130580001.201,5,0) +HOS 2011 MEANINGFUL USE +"DATA",1130580001.201,5,5,0) +^1130580001.2011P^376^15 +"DATA",1130580001.201,5,5,362,0) +23 +"DATA",1130580001.201,5,5,362,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,362,1,1,0) +109 +"DATA",1130580001.201,5,5,362,1,2,0) +135 +"DATA",1130580001.201,5,5,362,1,3,0) +113 +"DATA",1130580001.201,5,5,362,1,4,0) +138 +"DATA",1130580001.201,5,5,362,1,5,0) +122 +"DATA",1130580001.201,5,5,362,2) +0 +"DATA",1130580001.201,5,5,362,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,362,3,1,0) +109 +"DATA",1130580001.201,5,5,362,3,2,0) +135 +"DATA",1130580001.201,5,5,362,3,3,0) +113 +"DATA",1130580001.201,5,5,362,3,4,0) +138 +"DATA",1130580001.201,5,5,362,3,5,0) +122 +"DATA",1130580001.201,5,5,362,4) +5^100 +"DATA",1130580001.201,5,5,363,0) +24 +"DATA",1130580001.201,5,5,363,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,363,1,1,0) +15 +"DATA",1130580001.201,5,5,363,1,2,0) +152 +"DATA",1130580001.201,5,5,363,2) +0 +"DATA",1130580001.201,5,5,363,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,5,5,363,3,1,0) +109 +"DATA",1130580001.201,5,5,363,3,2,0) +135 +"DATA",1130580001.201,5,5,363,3,3,0) +113 +"DATA",1130580001.201,5,5,363,3,4,0) +138 +"DATA",1130580001.201,5,5,363,3,5,0) +122 +"DATA",1130580001.201,5,5,363,4) +5^40 +"DATA",1130580001.201,5,5,364,0) +32 +"DATA",1130580001.201,5,5,364,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,364,1,1,0) +111 +"DATA",1130580001.201,5,5,364,2) +0 +"DATA",1130580001.201,5,5,364,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,364,3,1,0) +146 +"DATA",1130580001.201,5,5,364,3,2,0) +97 +"DATA",1130580001.201,5,5,364,3,3,0) +135 +"DATA",1130580001.201,5,5,364,4) +3^33 +"DATA",1130580001.201,5,5,365,0) +33 +"DATA",1130580001.201,5,5,365,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,365,1,1,0) +146 +"DATA",1130580001.201,5,5,365,1,2,0) +97 +"DATA",1130580001.201,5,5,365,1,3,0) +135 +"DATA",1130580001.201,5,5,365,2) +0 +"DATA",1130580001.201,5,5,365,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,365,3,1,0) +146 +"DATA",1130580001.201,5,5,365,3,2,0) +97 +"DATA",1130580001.201,5,5,365,3,3,0) +135 +"DATA",1130580001.201,5,5,365,4) +3^100 +"DATA",1130580001.201,5,5,366,0) +34 +"DATA",1130580001.201,5,5,366,2) +0 +"DATA",1130580001.201,5,5,366,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,366,3,1,0) +128 +"DATA",1130580001.201,5,5,366,3,2,0) +141 +"DATA",1130580001.201,5,5,366,4) +2^0 +"DATA",1130580001.201,5,5,367,0) +35 +"DATA",1130580001.201,5,5,367,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,367,1,1,0) +128 +"DATA",1130580001.201,5,5,367,2) +0 +"DATA",1130580001.201,5,5,367,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,367,3,1,0) +128 +"DATA",1130580001.201,5,5,367,3,2,0) +141 +"DATA",1130580001.201,5,5,367,4) +2^50 +"DATA",1130580001.201,5,5,368,0) +36 +"DATA",1130580001.201,5,5,368,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,368,1,1,0) +120 +"DATA",1130580001.201,5,5,368,2) +0 +"DATA",1130580001.201,5,5,368,3,0) +^1130580001.20112P^2^2 +"DATA",1130580001.201,5,5,368,3,1,0) +127 +"DATA",1130580001.201,5,5,368,3,2,0) +120 +"DATA",1130580001.201,5,5,368,4) +2^50 +"DATA",1130580001.201,5,5,369,0) +37 +"DATA",1130580001.201,5,5,369,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,369,1,1,0) +150 +"DATA",1130580001.201,5,5,369,2) +0 +"DATA",1130580001.201,5,5,369,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,5,5,369,3,1,0) +127 +"DATA",1130580001.201,5,5,369,3,2,0) +120 +"DATA",1130580001.201,5,5,369,3,3,0) +106 +"DATA",1130580001.201,5,5,369,3,4,0) +128 +"DATA",1130580001.201,5,5,369,3,5,0) +150 +"DATA",1130580001.201,5,5,369,3,6,0) +141 +"DATA",1130580001.201,5,5,369,4) +6^17 +"DATA",1130580001.201,5,5,370,0) +25 +"DATA",1130580001.201,5,5,370,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,5,5,370,1,1,0) +129 +"DATA",1130580001.201,5,5,370,1,2,0) +111 +"DATA",1130580001.201,5,5,370,2) +0 +"DATA",1130580001.201,5,5,370,3,0) +^1130580001.20112P^15^15 +"DATA",1130580001.201,5,5,370,3,1,0) +144 +"DATA",1130580001.201,5,5,370,3,2,0) +103 +"DATA",1130580001.201,5,5,370,3,3,0) +145 +"DATA",1130580001.201,5,5,370,3,4,0) +123 +"DATA",1130580001.201,5,5,370,3,5,0) +147 +"DATA",1130580001.201,5,5,370,3,6,0) +129 +"DATA",1130580001.201,5,5,370,3,7,0) +149 +"DATA",1130580001.201,5,5,370,3,8,0) +130 +"DATA",1130580001.201,5,5,370,3,9,0) +131 +"DATA",1130580001.201,5,5,370,3,10,0) +109 +"DATA",1130580001.201,5,5,370,3,11,0) +110 +"DATA",1130580001.201,5,5,370,3,12,0) +111 +"DATA",1130580001.201,5,5,370,3,13,0) +134 +"DATA",1130580001.201,5,5,370,3,14,0) +113 +"DATA",1130580001.201,5,5,370,3,15,0) +138 +"DATA",1130580001.201,5,5,370,4) +15^13 +"DATA",1130580001.201,5,5,371,0) +26 +"DATA",1130580001.201,5,5,371,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,371,1,1,0) +131 +"DATA",1130580001.201,5,5,371,2) +0 +"DATA",1130580001.201,5,5,371,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,371,3,1,0) +149 +"DATA",1130580001.201,5,5,371,3,2,0) +130 +"DATA",1130580001.201,5,5,371,3,3,0) +131 +"DATA",1130580001.201,5,5,371,4) +3^33 +"DATA",1130580001.201,5,5,372,0) +27 +"DATA",1130580001.201,5,5,372,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,372,1,1,0) +138 +"DATA",1130580001.201,5,5,372,2) +0 +"DATA",1130580001.201,5,5,372,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,372,3,1,0) +109 +"DATA",1130580001.201,5,5,372,3,2,0) +113 +"DATA",1130580001.201,5,5,372,3,3,0) +138 +"DATA",1130580001.201,5,5,372,4) +3^33 +"DATA",1130580001.201,5,5,373,0) +28 +"DATA",1130580001.201,5,5,373,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,373,1,1,0) +111 +"DATA",1130580001.201,5,5,373,2) +0 +"DATA",1130580001.201,5,5,373,3,0) +^1130580001.20112P^8^8 +"DATA",1130580001.201,5,5,373,3,1,0) +129 +"DATA",1130580001.201,5,5,373,3,2,0) +149 +"DATA",1130580001.201,5,5,373,3,3,0) +130 +"DATA",1130580001.201,5,5,373,3,4,0) +131 +"DATA",1130580001.201,5,5,373,3,5,0) +110 +"DATA",1130580001.201,5,5,373,3,6,0) +111 +"DATA",1130580001.201,5,5,373,3,7,0) +134 +"DATA",1130580001.201,5,5,373,3,8,0) +41 +"DATA",1130580001.201,5,5,373,4) +8^13 +"DATA",1130580001.201,5,5,374,0) +31 +"DATA",1130580001.201,5,5,374,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,5,5,374,1,1,0) +144 +"DATA",1130580001.201,5,5,374,1,2,0) +145 +"DATA",1130580001.201,5,5,374,1,3,0) +123 +"DATA",1130580001.201,5,5,374,1,4,0) +147 +"DATA",1130580001.201,5,5,374,1,5,0) +129 +"DATA",1130580001.201,5,5,374,2) +0 +"DATA",1130580001.201,5,5,374,3,0) +^1130580001.20112P^17^17 +"DATA",1130580001.201,5,5,374,3,1,0) +144 +"DATA",1130580001.201,5,5,374,3,2,0) +103 +"DATA",1130580001.201,5,5,374,3,3,0) +145 +"DATA",1130580001.201,5,5,374,3,4,0) +125 +"DATA",1130580001.201,5,5,374,3,5,0) +123 +"DATA",1130580001.201,5,5,374,3,6,0) +147 +"DATA",1130580001.201,5,5,374,3,7,0) +129 +"DATA",1130580001.201,5,5,374,3,8,0) +149 +"DATA",1130580001.201,5,5,374,3,9,0) +130 +"DATA",1130580001.201,5,5,374,3,10,0) +131 +"DATA",1130580001.201,5,5,374,3,11,0) +109 +"DATA",1130580001.201,5,5,374,3,12,0) +110 +"DATA",1130580001.201,5,5,374,3,13,0) +111 +"DATA",1130580001.201,5,5,374,3,14,0) +133 +"DATA",1130580001.201,5,5,374,3,15,0) +134 +"DATA",1130580001.201,5,5,374,3,16,0) +113 +"DATA",1130580001.201,5,5,374,3,17,0) +138 +"DATA",1130580001.201,5,5,374,4) +17^29 +"DATA",1130580001.201,5,5,375,0) +29 +"DATA",1130580001.201,5,5,375,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,5,5,375,1,1,0) +144 +"DATA",1130580001.201,5,5,375,2) +0 +"DATA",1130580001.201,5,5,375,3,0) +^1130580001.20112P^3^3 +"DATA",1130580001.201,5,5,375,3,1,0) +144 +"DATA",1130580001.201,5,5,375,3,2,0) +103 +"DATA",1130580001.201,5,5,375,3,3,0) +145 +"DATA",1130580001.201,5,5,375,4) +3^33 +"DATA",1130580001.201,5,5,376,0) +30 +"DATA",1130580001.201,5,5,376,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,5,5,376,1,1,0) +125 +"DATA",1130580001.201,5,5,376,1,2,0) +123 +"DATA",1130580001.201,5,5,376,1,3,0) +147 +"DATA",1130580001.201,5,5,376,2) +0 +"DATA",1130580001.201,5,5,376,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,5,5,376,3,1,0) +125 +"DATA",1130580001.201,5,5,376,3,2,0) +123 +"DATA",1130580001.201,5,5,376,3,3,0) +127 +"DATA",1130580001.201,5,5,376,3,4,0) +120 +"DATA",1130580001.201,5,5,376,3,5,0) +147 +"DATA",1130580001.201,5,5,376,3,6,0) +107 +"DATA",1130580001.201,5,5,376,3,7,0) +134 +"DATA",1130580001.201,5,5,376,4) +7^43 +"DATA",1130580001.201,6,0) +EP 2011 MEANINGFUL USE +"DATA",1130580001.201,6,5,0) +^1130580001.2011P^214^43 +"DATA",1130580001.201,6,5,172,0) +59 +"DATA",1130580001.201,6,5,172,2) +0 +"DATA",1130580001.201,6,5,173,0) +60 +"DATA",1130580001.201,6,5,173,2) +0 +"DATA",1130580001.201,6,5,174,0) +71 +"DATA",1130580001.201,6,5,174,2) +0 +"DATA",1130580001.201,6,5,175,0) +72 +"DATA",1130580001.201,6,5,175,2) +0 +"DATA",1130580001.201,6,5,176,0) +40 +"DATA",1130580001.201,6,5,176,2) +0 +"DATA",1130580001.201,6,5,177,0) +73 +"DATA",1130580001.201,6,5,177,2) +0 +"DATA",1130580001.201,6,5,178,0) +74 +"DATA",1130580001.201,6,5,178,2) +0 +"DATA",1130580001.201,6,5,179,0) +43 +"DATA",1130580001.201,6,5,179,2) +0 +"DATA",1130580001.201,6,5,179,3,0) +^1130580001.20112P^4^4 +"DATA",1130580001.201,6,5,179,3,1,0) +11 +"DATA",1130580001.201,6,5,179,3,2,0) +30 +"DATA",1130580001.201,6,5,179,3,3,0) +4 +"DATA",1130580001.201,6,5,179,3,4,0) +52 +"DATA",1130580001.201,6,5,179,4) +4 +"DATA",1130580001.201,6,5,180,0) +63 +"DATA",1130580001.201,6,5,180,2) +0 +"DATA",1130580001.201,6,5,181,0) +41 +"DATA",1130580001.201,6,5,181,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,6,5,181,1,1,0) +30 +"DATA",1130580001.201,6,5,181,2) +1 +"DATA",1130580001.201,6,5,181,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,6,5,181,3,1,0) +30 +"DATA",1130580001.201,6,5,181,4) +1 +"DATA",1130580001.201,6,5,182,0) +50 +"DATA",1130580001.201,6,5,182,2) +0 +"DATA",1130580001.201,6,5,183,0) +75 +"DATA",1130580001.201,6,5,183,2) +0 +"DATA",1130580001.201,6,5,184,0) +76 +"DATA",1130580001.201,6,5,184,2) +0 +"DATA",1130580001.201,6,5,185,0) +51 +"DATA",1130580001.201,6,5,185,2) +0 +"DATA",1130580001.201,6,5,186,0) +77 +"DATA",1130580001.201,6,5,186,2) +0 +"DATA",1130580001.201,6,5,187,0) +44 +"DATA",1130580001.201,6,5,187,2) +0 +"DATA",1130580001.201,6,5,188,0) +42 +"DATA",1130580001.201,6,5,188,2) +0 +"DATA",1130580001.201,6,5,189,0) +58 +"DATA",1130580001.201,6,5,189,2) +0 +"DATA",1130580001.201,6,5,190,0) +78 +"DATA",1130580001.201,6,5,190,2) +0 +"DATA",1130580001.201,6,5,191,0) +64 +"DATA",1130580001.201,6,5,191,2) +0 +"DATA",1130580001.201,6,5,192,0) +66 +"DATA",1130580001.201,6,5,192,2) +0 +"DATA",1130580001.201,6,5,193,0) +45 +"DATA",1130580001.201,6,5,193,2) +0 +"DATA",1130580001.201,6,5,194,0) +47 +"DATA",1130580001.201,6,5,194,2) +0 +"DATA",1130580001.201,6,5,195,0) +65 +"DATA",1130580001.201,6,5,195,2) +0 +"DATA",1130580001.201,6,5,196,0) +46 +"DATA",1130580001.201,6,5,196,2) +0 +"DATA",1130580001.201,6,5,197,0) +52 +"DATA",1130580001.201,6,5,197,2) +0 +"DATA",1130580001.201,6,5,198,0) +70 +"DATA",1130580001.201,6,5,198,2) +0 +"DATA",1130580001.201,6,5,199,0) +49 +"DATA",1130580001.201,6,5,199,2) +0 +"DATA",1130580001.201,6,5,200,0) +69 +"DATA",1130580001.201,6,5,200,2) +0 +"DATA",1130580001.201,6,5,201,0) +67 +"DATA",1130580001.201,6,5,201,2) +0 +"DATA",1130580001.201,6,5,202,0) +79 +"DATA",1130580001.201,6,5,202,2) +0 +"DATA",1130580001.201,6,5,203,0) +48 +"DATA",1130580001.201,6,5,203,2) +0 +"DATA",1130580001.201,6,5,204,0) +53 +"DATA",1130580001.201,6,5,204,2) +0 +"DATA",1130580001.201,6,5,205,0) +68 +"DATA",1130580001.201,6,5,205,2) +0 +"DATA",1130580001.201,6,5,206,0) +55 +"DATA",1130580001.201,6,5,206,2) +0 +"DATA",1130580001.201,6,5,207,0) +56 +"DATA",1130580001.201,6,5,207,2) +0 +"DATA",1130580001.201,6,5,208,0) +57 +"DATA",1130580001.201,6,5,208,2) +0 +"DATA",1130580001.201,6,5,209,0) +54 +"DATA",1130580001.201,6,5,209,2) +0 +"DATA",1130580001.201,6,5,210,0) +61 +"DATA",1130580001.201,6,5,210,2) +0 +"DATA",1130580001.201,6,5,211,0) +39 +"DATA",1130580001.201,6,5,211,2) +0 +"DATA",1130580001.201,6,5,212,0) +80 +"DATA",1130580001.201,6,5,212,2) +0 +"DATA",1130580001.201,6,5,213,0) +62 +"DATA",1130580001.201,6,5,213,2) +0 +"DATA",1130580001.201,6,5,214,0) +81 +"DATA",1130580001.201,6,5,214,2) +0 +"DATA",1130580001.201,7,0) +MU EP 2011 CERTIFICATION +"DATA",1130580001.201,7,5,0) +^1130580001.2011P^133^21 +"DATA",1130580001.201,7,5,113,0) +41 +"DATA",1130580001.201,7,5,113,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,113,1,1,0) +30 +"DATA",1130580001.201,7,5,113,1,2,0) +74 +"DATA",1130580001.201,7,5,113,2) +2 +"DATA",1130580001.201,7,5,113,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,113,3,1,0) +73 +"DATA",1130580001.201,7,5,113,3,2,0) +11 +"DATA",1130580001.201,7,5,113,3,3,0) +80 +"DATA",1130580001.201,7,5,113,3,4,0) +17 +"DATA",1130580001.201,7,5,113,3,5,0) +21 +"DATA",1130580001.201,7,5,113,3,6,0) +23 +"DATA",1130580001.201,7,5,113,3,7,0) +30 +"DATA",1130580001.201,7,5,113,3,8,0) +82 +"DATA",1130580001.201,7,5,113,3,9,0) +77 +"DATA",1130580001.201,7,5,113,3,10,0) +4 +"DATA",1130580001.201,7,5,113,3,11,0) +52 +"DATA",1130580001.201,7,5,113,3,12,0) +75 +"DATA",1130580001.201,7,5,113,4) +12^17 +"DATA",1130580001.201,7,5,114,0) +83 +"DATA",1130580001.201,7,5,114,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,114,1,1,0) +29 +"DATA",1130580001.201,7,5,114,1,2,0) +56 +"DATA",1130580001.201,7,5,114,1,3,0) +58 +"DATA",1130580001.201,7,5,114,1,4,0) +64 +"DATA",1130580001.201,7,5,114,1,5,0) +69 +"DATA",1130580001.201,7,5,114,2) +5 +"DATA",1130580001.201,7,5,114,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,114,3,1,0) +9 +"DATA",1130580001.201,7,5,114,3,2,0) +13 +"DATA",1130580001.201,7,5,114,3,3,0) +29 +"DATA",1130580001.201,7,5,114,3,4,0) +56 +"DATA",1130580001.201,7,5,114,3,5,0) +58 +"DATA",1130580001.201,7,5,114,3,6,0) +59 +"DATA",1130580001.201,7,5,114,3,7,0) +60 +"DATA",1130580001.201,7,5,114,3,8,0) +64 +"DATA",1130580001.201,7,5,114,3,9,0) +65 +"DATA",1130580001.201,7,5,114,3,10,0) +69 +"DATA",1130580001.201,7,5,114,4) +10^50 +"DATA",1130580001.201,7,5,115,0) +42 +"DATA",1130580001.201,7,5,115,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,115,1,1,0) +11 +"DATA",1130580001.201,7,5,115,1,2,0) +80 +"DATA",1130580001.201,7,5,115,1,3,0) +17 +"DATA",1130580001.201,7,5,115,1,4,0) +21 +"DATA",1130580001.201,7,5,115,1,5,0) +30 +"DATA",1130580001.201,7,5,115,1,6,0) +4 +"DATA",1130580001.201,7,5,115,2) +6 +"DATA",1130580001.201,7,5,115,3,0) +^1130580001.20112P^7^7 +"DATA",1130580001.201,7,5,115,3,1,0) +11 +"DATA",1130580001.201,7,5,115,3,2,0) +80 +"DATA",1130580001.201,7,5,115,3,3,0) +17 +"DATA",1130580001.201,7,5,115,3,4,0) +21 +"DATA",1130580001.201,7,5,115,3,5,0) +23 +"DATA",1130580001.201,7,5,115,3,6,0) +30 +"DATA",1130580001.201,7,5,115,3,7,0) +4 +"DATA",1130580001.201,7,5,115,4) +7^86 +"DATA",1130580001.201,7,5,116,0) +45 +"DATA",1130580001.201,7,5,116,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,116,1,1,0) +11 +"DATA",1130580001.201,7,5,116,1,2,0) +77 +"DATA",1130580001.201,7,5,116,1,3,0) +75 +"DATA",1130580001.201,7,5,116,2) +3 +"DATA",1130580001.201,7,5,116,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,116,3,1,0) +73 +"DATA",1130580001.201,7,5,116,3,2,0) +11 +"DATA",1130580001.201,7,5,116,3,3,0) +21 +"DATA",1130580001.201,7,5,116,3,4,0) +23 +"DATA",1130580001.201,7,5,116,3,5,0) +77 +"DATA",1130580001.201,7,5,116,3,6,0) +75 +"DATA",1130580001.201,7,5,116,4) +6^50 +"DATA",1130580001.201,7,5,117,0) +47 +"DATA",1130580001.201,7,5,117,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,117,1,1,0) +73 +"DATA",1130580001.201,7,5,117,1,2,0) +11 +"DATA",1130580001.201,7,5,117,1,3,0) +21 +"DATA",1130580001.201,7,5,117,1,4,0) +75 +"DATA",1130580001.201,7,5,117,2) +4 +"DATA",1130580001.201,7,5,117,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,117,3,1,0) +73 +"DATA",1130580001.201,7,5,117,3,2,0) +11 +"DATA",1130580001.201,7,5,117,3,3,0) +21 +"DATA",1130580001.201,7,5,117,3,4,0) +23 +"DATA",1130580001.201,7,5,117,3,5,0) +77 +"DATA",1130580001.201,7,5,117,3,6,0) +75 +"DATA",1130580001.201,7,5,117,4) +6^67 +"DATA",1130580001.201,7,5,118,0) +46 +"DATA",1130580001.201,7,5,118,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,118,1,1,0) +73 +"DATA",1130580001.201,7,5,118,1,2,0) +21 +"DATA",1130580001.201,7,5,118,1,3,0) +77 +"DATA",1130580001.201,7,5,118,2) +3 +"DATA",1130580001.201,7,5,118,3,0) +^1130580001.20112P^6^6 +"DATA",1130580001.201,7,5,118,3,1,0) +73 +"DATA",1130580001.201,7,5,118,3,2,0) +11 +"DATA",1130580001.201,7,5,118,3,3,0) +21 +"DATA",1130580001.201,7,5,118,3,4,0) +23 +"DATA",1130580001.201,7,5,118,3,5,0) +77 +"DATA",1130580001.201,7,5,118,3,6,0) +75 +"DATA",1130580001.201,7,5,118,4) +6^50 +"DATA",1130580001.201,7,5,119,0) +39 +"DATA",1130580001.201,7,5,119,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,119,1,1,0) +73 +"DATA",1130580001.201,7,5,119,1,2,0) +11 +"DATA",1130580001.201,7,5,119,1,3,0) +4 +"DATA",1130580001.201,7,5,119,2) +3 +"DATA",1130580001.201,7,5,119,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,119,3,1,0) +73 +"DATA",1130580001.201,7,5,119,3,2,0) +11 +"DATA",1130580001.201,7,5,119,3,3,0) +80 +"DATA",1130580001.201,7,5,119,3,4,0) +17 +"DATA",1130580001.201,7,5,119,3,5,0) +21 +"DATA",1130580001.201,7,5,119,3,6,0) +23 +"DATA",1130580001.201,7,5,119,3,7,0) +27 +"DATA",1130580001.201,7,5,119,3,8,0) +82 +"DATA",1130580001.201,7,5,119,3,9,0) +77 +"DATA",1130580001.201,7,5,119,3,10,0) +4 +"DATA",1130580001.201,7,5,119,3,11,0) +52 +"DATA",1130580001.201,7,5,119,3,12,0) +75 +"DATA",1130580001.201,7,5,119,4) +12^25 +"DATA",1130580001.201,7,5,120,0) +81 +"DATA",1130580001.201,7,5,120,1,0) +^1130580001.20111P^1^1 +"DATA",1130580001.201,7,5,120,1,1,0) +30 +"DATA",1130580001.201,7,5,120,2) +1 +"DATA",1130580001.201,7,5,120,3,0) +^1130580001.20112P^12^12 +"DATA",1130580001.201,7,5,120,3,1,0) +73 +"DATA",1130580001.201,7,5,120,3,2,0) +11 +"DATA",1130580001.201,7,5,120,3,3,0) +80 +"DATA",1130580001.201,7,5,120,3,4,0) +17 +"DATA",1130580001.201,7,5,120,3,5,0) +21 +"DATA",1130580001.201,7,5,120,3,6,0) +23 +"DATA",1130580001.201,7,5,120,3,7,0) +30 +"DATA",1130580001.201,7,5,120,3,8,0) +82 +"DATA",1130580001.201,7,5,120,3,9,0) +77 +"DATA",1130580001.201,7,5,120,3,10,0) +4 +"DATA",1130580001.201,7,5,120,3,11,0) +52 +"DATA",1130580001.201,7,5,120,3,12,0) +75 +"DATA",1130580001.201,7,5,120,4) +12^8 +"DATA",1130580001.201,7,5,121,0) +84 +"DATA",1130580001.201,7,5,121,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,121,1,1,0) +29 +"DATA",1130580001.201,7,5,121,1,2,0) +56 +"DATA",1130580001.201,7,5,121,1,3,0) +58 +"DATA",1130580001.201,7,5,121,1,4,0) +59 +"DATA",1130580001.201,7,5,121,1,5,0) +64 +"DATA",1130580001.201,7,5,121,1,6,0) +69 +"DATA",1130580001.201,7,5,121,2) +6 +"DATA",1130580001.201,7,5,121,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,121,3,1,0) +9 +"DATA",1130580001.201,7,5,121,3,2,0) +13 +"DATA",1130580001.201,7,5,121,3,3,0) +29 +"DATA",1130580001.201,7,5,121,3,4,0) +56 +"DATA",1130580001.201,7,5,121,3,5,0) +58 +"DATA",1130580001.201,7,5,121,3,6,0) +59 +"DATA",1130580001.201,7,5,121,3,7,0) +60 +"DATA",1130580001.201,7,5,121,3,8,0) +64 +"DATA",1130580001.201,7,5,121,3,9,0) +65 +"DATA",1130580001.201,7,5,121,3,10,0) +69 +"DATA",1130580001.201,7,5,121,4) +10^60 +"DATA",1130580001.201,7,5,122,0) +85 +"DATA",1130580001.201,7,5,122,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,122,1,1,0) +29 +"DATA",1130580001.201,7,5,122,1,2,0) +56 +"DATA",1130580001.201,7,5,122,1,3,0) +58 +"DATA",1130580001.201,7,5,122,1,4,0) +60 +"DATA",1130580001.201,7,5,122,1,5,0) +69 +"DATA",1130580001.201,7,5,122,2) +5 +"DATA",1130580001.201,7,5,122,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,122,3,1,0) +9 +"DATA",1130580001.201,7,5,122,3,2,0) +13 +"DATA",1130580001.201,7,5,122,3,3,0) +29 +"DATA",1130580001.201,7,5,122,3,4,0) +56 +"DATA",1130580001.201,7,5,122,3,5,0) +58 +"DATA",1130580001.201,7,5,122,3,6,0) +59 +"DATA",1130580001.201,7,5,122,3,7,0) +60 +"DATA",1130580001.201,7,5,122,3,8,0) +64 +"DATA",1130580001.201,7,5,122,3,9,0) +65 +"DATA",1130580001.201,7,5,122,3,10,0) +69 +"DATA",1130580001.201,7,5,122,4) +10^50 +"DATA",1130580001.201,7,5,123,0) +86 +"DATA",1130580001.201,7,5,123,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,123,1,1,0) +29 +"DATA",1130580001.201,7,5,123,1,2,0) +56 +"DATA",1130580001.201,7,5,123,1,3,0) +58 +"DATA",1130580001.201,7,5,123,1,4,0) +60 +"DATA",1130580001.201,7,5,123,1,5,0) +69 +"DATA",1130580001.201,7,5,123,2) +5 +"DATA",1130580001.201,7,5,123,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,123,3,1,0) +9 +"DATA",1130580001.201,7,5,123,3,2,0) +13 +"DATA",1130580001.201,7,5,123,3,3,0) +29 +"DATA",1130580001.201,7,5,123,3,4,0) +56 +"DATA",1130580001.201,7,5,123,3,5,0) +58 +"DATA",1130580001.201,7,5,123,3,6,0) +59 +"DATA",1130580001.201,7,5,123,3,7,0) +60 +"DATA",1130580001.201,7,5,123,3,8,0) +64 +"DATA",1130580001.201,7,5,123,3,9,0) +65 +"DATA",1130580001.201,7,5,123,3,10,0) +69 +"DATA",1130580001.201,7,5,123,4) +10^50 +"DATA",1130580001.201,7,5,124,0) +87 +"DATA",1130580001.201,7,5,124,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,124,1,1,0) +29 +"DATA",1130580001.201,7,5,124,1,2,0) +56 +"DATA",1130580001.201,7,5,124,1,3,0) +58 +"DATA",1130580001.201,7,5,124,1,4,0) +60 +"DATA",1130580001.201,7,5,124,1,5,0) +69 +"DATA",1130580001.201,7,5,124,2) +5 +"DATA",1130580001.201,7,5,124,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,124,3,1,0) +9 +"DATA",1130580001.201,7,5,124,3,2,0) +13 +"DATA",1130580001.201,7,5,124,3,3,0) +29 +"DATA",1130580001.201,7,5,124,3,4,0) +56 +"DATA",1130580001.201,7,5,124,3,5,0) +58 +"DATA",1130580001.201,7,5,124,3,6,0) +59 +"DATA",1130580001.201,7,5,124,3,7,0) +60 +"DATA",1130580001.201,7,5,124,3,8,0) +64 +"DATA",1130580001.201,7,5,124,3,9,0) +65 +"DATA",1130580001.201,7,5,124,3,10,0) +69 +"DATA",1130580001.201,7,5,124,4) +10^50 +"DATA",1130580001.201,7,5,125,0) +88 +"DATA",1130580001.201,7,5,125,1,0) +^1130580001.20111P^6^6 +"DATA",1130580001.201,7,5,125,1,1,0) +29 +"DATA",1130580001.201,7,5,125,1,2,0) +56 +"DATA",1130580001.201,7,5,125,1,3,0) +58 +"DATA",1130580001.201,7,5,125,1,4,0) +64 +"DATA",1130580001.201,7,5,125,1,5,0) +65 +"DATA",1130580001.201,7,5,125,1,6,0) +69 +"DATA",1130580001.201,7,5,125,2) +6 +"DATA",1130580001.201,7,5,125,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,125,3,1,0) +9 +"DATA",1130580001.201,7,5,125,3,2,0) +13 +"DATA",1130580001.201,7,5,125,3,3,0) +29 +"DATA",1130580001.201,7,5,125,3,4,0) +56 +"DATA",1130580001.201,7,5,125,3,5,0) +58 +"DATA",1130580001.201,7,5,125,3,6,0) +59 +"DATA",1130580001.201,7,5,125,3,7,0) +60 +"DATA",1130580001.201,7,5,125,3,8,0) +64 +"DATA",1130580001.201,7,5,125,3,9,0) +65 +"DATA",1130580001.201,7,5,125,3,10,0) +69 +"DATA",1130580001.201,7,5,125,4) +10^60 +"DATA",1130580001.201,7,5,126,0) +89 +"DATA",1130580001.201,7,5,126,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,126,1,1,0) +29 +"DATA",1130580001.201,7,5,126,1,2,0) +56 +"DATA",1130580001.201,7,5,126,1,3,0) +58 +"DATA",1130580001.201,7,5,126,1,4,0) +65 +"DATA",1130580001.201,7,5,126,2) +4 +"DATA",1130580001.201,7,5,126,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,126,3,1,0) +9 +"DATA",1130580001.201,7,5,126,3,2,0) +13 +"DATA",1130580001.201,7,5,126,3,3,0) +29 +"DATA",1130580001.201,7,5,126,3,4,0) +56 +"DATA",1130580001.201,7,5,126,3,5,0) +58 +"DATA",1130580001.201,7,5,126,3,6,0) +59 +"DATA",1130580001.201,7,5,126,3,7,0) +60 +"DATA",1130580001.201,7,5,126,3,8,0) +64 +"DATA",1130580001.201,7,5,126,3,9,0) +65 +"DATA",1130580001.201,7,5,126,3,10,0) +69 +"DATA",1130580001.201,7,5,126,4) +10^40 +"DATA",1130580001.201,7,5,127,0) +90 +"DATA",1130580001.201,7,5,127,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,127,1,1,0) +29 +"DATA",1130580001.201,7,5,127,1,2,0) +56 +"DATA",1130580001.201,7,5,127,1,3,0) +58 +"DATA",1130580001.201,7,5,127,1,4,0) +64 +"DATA",1130580001.201,7,5,127,1,5,0) +65 +"DATA",1130580001.201,7,5,127,2) +5 +"DATA",1130580001.201,7,5,127,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,127,3,1,0) +9 +"DATA",1130580001.201,7,5,127,3,2,0) +13 +"DATA",1130580001.201,7,5,127,3,3,0) +29 +"DATA",1130580001.201,7,5,127,3,4,0) +56 +"DATA",1130580001.201,7,5,127,3,5,0) +58 +"DATA",1130580001.201,7,5,127,3,6,0) +59 +"DATA",1130580001.201,7,5,127,3,7,0) +60 +"DATA",1130580001.201,7,5,127,3,8,0) +64 +"DATA",1130580001.201,7,5,127,3,9,0) +65 +"DATA",1130580001.201,7,5,127,3,10,0) +69 +"DATA",1130580001.201,7,5,127,4) +10^50 +"DATA",1130580001.201,7,5,128,0) +91 +"DATA",1130580001.201,7,5,128,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,128,1,1,0) +29 +"DATA",1130580001.201,7,5,128,1,2,0) +56 +"DATA",1130580001.201,7,5,128,1,3,0) +58 +"DATA",1130580001.201,7,5,128,1,4,0) +60 +"DATA",1130580001.201,7,5,128,1,5,0) +65 +"DATA",1130580001.201,7,5,128,2) +5 +"DATA",1130580001.201,7,5,128,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,128,3,1,0) +9 +"DATA",1130580001.201,7,5,128,3,2,0) +13 +"DATA",1130580001.201,7,5,128,3,3,0) +29 +"DATA",1130580001.201,7,5,128,3,4,0) +56 +"DATA",1130580001.201,7,5,128,3,5,0) +58 +"DATA",1130580001.201,7,5,128,3,6,0) +59 +"DATA",1130580001.201,7,5,128,3,7,0) +60 +"DATA",1130580001.201,7,5,128,3,8,0) +64 +"DATA",1130580001.201,7,5,128,3,9,0) +65 +"DATA",1130580001.201,7,5,128,3,10,0) +69 +"DATA",1130580001.201,7,5,128,4) +10^50 +"DATA",1130580001.201,7,5,129,0) +92 +"DATA",1130580001.201,7,5,129,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,129,1,1,0) +29 +"DATA",1130580001.201,7,5,129,1,2,0) +56 +"DATA",1130580001.201,7,5,129,1,3,0) +58 +"DATA",1130580001.201,7,5,129,1,4,0) +59 +"DATA",1130580001.201,7,5,129,2) +4 +"DATA",1130580001.201,7,5,129,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,129,3,1,0) +9 +"DATA",1130580001.201,7,5,129,3,2,0) +13 +"DATA",1130580001.201,7,5,129,3,3,0) +29 +"DATA",1130580001.201,7,5,129,3,4,0) +56 +"DATA",1130580001.201,7,5,129,3,5,0) +58 +"DATA",1130580001.201,7,5,129,3,6,0) +59 +"DATA",1130580001.201,7,5,129,3,7,0) +60 +"DATA",1130580001.201,7,5,129,3,8,0) +64 +"DATA",1130580001.201,7,5,129,3,9,0) +65 +"DATA",1130580001.201,7,5,129,3,10,0) +69 +"DATA",1130580001.201,7,5,129,4) +10^40 +"DATA",1130580001.201,7,5,130,0) +93 +"DATA",1130580001.201,7,5,130,1,0) +^1130580001.20111P^4^4 +"DATA",1130580001.201,7,5,130,1,1,0) +29 +"DATA",1130580001.201,7,5,130,1,2,0) +56 +"DATA",1130580001.201,7,5,130,1,3,0) +58 +"DATA",1130580001.201,7,5,130,1,4,0) +69 +"DATA",1130580001.201,7,5,130,2) +4 +"DATA",1130580001.201,7,5,130,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,130,3,1,0) +9 +"DATA",1130580001.201,7,5,130,3,2,0) +13 +"DATA",1130580001.201,7,5,130,3,3,0) +29 +"DATA",1130580001.201,7,5,130,3,4,0) +56 +"DATA",1130580001.201,7,5,130,3,5,0) +58 +"DATA",1130580001.201,7,5,130,3,6,0) +59 +"DATA",1130580001.201,7,5,130,3,7,0) +60 +"DATA",1130580001.201,7,5,130,3,8,0) +64 +"DATA",1130580001.201,7,5,130,3,9,0) +65 +"DATA",1130580001.201,7,5,130,3,10,0) +69 +"DATA",1130580001.201,7,5,130,4) +10^40 +"DATA",1130580001.201,7,5,131,0) +94 +"DATA",1130580001.201,7,5,131,1,0) +^1130580001.20111P^3^3 +"DATA",1130580001.201,7,5,131,1,1,0) +29 +"DATA",1130580001.201,7,5,131,1,2,0) +56 +"DATA",1130580001.201,7,5,131,1,3,0) +58 +"DATA",1130580001.201,7,5,131,2) +3 +"DATA",1130580001.201,7,5,131,3,0) +^1130580001.20112P^10^10 +"DATA",1130580001.201,7,5,131,3,1,0) +9 +"DATA",1130580001.201,7,5,131,3,2,0) +13 +"DATA",1130580001.201,7,5,131,3,3,0) +29 +"DATA",1130580001.201,7,5,131,3,4,0) +56 +"DATA",1130580001.201,7,5,131,3,5,0) +58 +"DATA",1130580001.201,7,5,131,3,6,0) +59 +"DATA",1130580001.201,7,5,131,3,7,0) +60 +"DATA",1130580001.201,7,5,131,3,8,0) +64 +"DATA",1130580001.201,7,5,131,3,9,0) +65 +"DATA",1130580001.201,7,5,131,3,10,0) +69 +"DATA",1130580001.201,7,5,131,4) +10^30 +"DATA",1130580001.201,7,5,132,0) +40 +"DATA",1130580001.201,7,5,132,1,0) +^1130580001.20111P^5^5 +"DATA",1130580001.201,7,5,132,1,1,0) +17 +"DATA",1130580001.201,7,5,132,1,2,0) +21 +"DATA",1130580001.201,7,5,132,1,3,0) +23 +"DATA",1130580001.201,7,5,132,1,4,0) +30 +"DATA",1130580001.201,7,5,132,1,5,0) +52 +"DATA",1130580001.201,7,5,132,2) +5 +"DATA",1130580001.201,7,5,132,3,0) +^1130580001.20112P^5^5 +"DATA",1130580001.201,7,5,132,3,1,0) +17 +"DATA",1130580001.201,7,5,132,3,2,0) +21 +"DATA",1130580001.201,7,5,132,3,3,0) +23 +"DATA",1130580001.201,7,5,132,3,4,0) +30 +"DATA",1130580001.201,7,5,132,3,5,0) +52 +"DATA",1130580001.201,7,5,132,4) +5^100 +"DATA",1130580001.201,7,5,133,0) +43 +"DATA",1130580001.201,7,5,133,1,0) +^1130580001.20111P^2^2 +"DATA",1130580001.201,7,5,133,1,1,0) +13 +"DATA",1130580001.201,7,5,133,1,2,0) +14 +"DATA",1130580001.201,7,5,133,2) +2 +"DATA",1130580001.201,7,5,133,3,0) +^1130580001.20112P^13^13 +"DATA",1130580001.201,7,5,133,3,1,0) +12 +"DATA",1130580001.201,7,5,133,3,2,0) +13 +"DATA",1130580001.201,7,5,133,3,3,0) +14 +"DATA",1130580001.201,7,5,133,3,4,0) +90 +"DATA",1130580001.201,7,5,133,3,5,0) +91 +"DATA",1130580001.201,7,5,133,3,6,0) +29 +"DATA",1130580001.201,7,5,133,3,7,0) +93 +"DATA",1130580001.201,7,5,133,3,8,0) +89 +"DATA",1130580001.201,7,5,133,3,9,0) +153 +"DATA",1130580001.201,7,5,133,3,10,0) +72 +"DATA",1130580001.201,7,5,133,3,11,0) +44 +"DATA",1130580001.201,7,5,133,3,12,0) +56 +"DATA",1130580001.201,7,5,133,3,13,0) +58 +"DATA",1130580001.201,7,5,133,4) +13^15 +"DATA",1130580001.201,8,0) +MU 2011 INP ATTESTATION +"DATA",1130580001.201,8,4) +^^3110703^3110930 +"DATA",1130580001.201,8,5,0) +^1130580001.2011P^18^9 +"DATA",1130580001.201,8,5,10,0) +95 +"DATA",1130580001.201,8,5,10,2) +0 +"DATA",1130580001.201,8,5,10,4) +0 +"DATA",1130580001.201,8,5,11,0) +102 +"DATA",1130580001.201,8,5,11,1,0) +^1130580001.20111P^^0 +"DATA",1130580001.201,8,5,11,2) +0 +"DATA",1130580001.201,8,5,11,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,11,3,1,0) +58787 +"DATA",1130580001.201,8,5,11,4) +1^0 +"DATA",1130580001.201,8,5,12,0) +96 +"DATA",1130580001.201,8,5,12,2) +0 +"DATA",1130580001.201,8,5,12,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,12,3,1,0) +58787 +"DATA",1130580001.201,8,5,12,4) +1^0 +"DATA",1130580001.201,8,5,13,0) +103 +"DATA",1130580001.201,8,5,13,1,0) +^1130580001.20111P^^0 +"DATA",1130580001.201,8,5,13,2) +0 +"DATA",1130580001.201,8,5,13,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,13,3,1,0) +58787 +"DATA",1130580001.201,8,5,13,4) +1^0 +"DATA",1130580001.201,8,5,14,0) +101 +"DATA",1130580001.201,8,5,14,1,0) +^1130580001.20111P^^0 +"DATA",1130580001.201,8,5,14,2) +0 +"DATA",1130580001.201,8,5,14,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,14,3,1,0) +58787 +"DATA",1130580001.201,8,5,14,4) +1^0 +"DATA",1130580001.201,8,5,15,0) +97 +"DATA",1130580001.201,8,5,15,2) +0 +"DATA",1130580001.201,8,5,15,4) +0 +"DATA",1130580001.201,8,5,16,0) +98 +"DATA",1130580001.201,8,5,16,1,0) +^1130580001.20111P^^0 +"DATA",1130580001.201,8,5,16,2) +0 +"DATA",1130580001.201,8,5,16,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,16,3,1,0) +58787 +"DATA",1130580001.201,8,5,16,4) +1^0 +"DATA",1130580001.201,8,5,17,0) +100 +"DATA",1130580001.201,8,5,17,2) +0 +"DATA",1130580001.201,8,5,17,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,17,3,1,0) +58787 +"DATA",1130580001.201,8,5,17,4) +1^0 +"DATA",1130580001.201,8,5,18,0) +99 +"DATA",1130580001.201,8,5,18,2) +0 +"DATA",1130580001.201,8,5,18,3,0) +^1130580001.20112P^1^1 +"DATA",1130580001.201,8,5,18,3,1,0) +58787 +"DATA",1130580001.201,8,5,18,4) +1^0 +"DATA",1130580001.301,5,0) +MU 2011 INP NO MED +"DATA",1130580001.301,5,3) +NoMed +"DATA",1130580001.301,9,0) +MU 2011 INP FAIL DEMO +"DATA",1130580001.301,9,1,0) +^1130580001.311P^1^1 +"DATA",1130580001.301,9,1,1,0) +58787 +"DATA",1130580001.301,9,3) +FailedDemographics +"DATA",1130580001.301,10,0) +MU 2011 INP CPOE MED ORDERS +"DATA",1130580001.301,10,3) +HasMedOrders +"DATA",1130580001.301,11,0) +MU 2011 INP NO CPOE MED +"DATA",1130580001.301,11,3) +NoMedOrders +"DATA",1130580001.301,12,0) +MU 2011 INP HAS SMOKING ST +"DATA",1130580001.301,12,3) +HasSmokingStatus +"DATA",1130580001.301,13,0) +MU 2011 INP NO SMOKING ST +"DATA",1130580001.301,13,3) +NoSmokingStatus +"DATA",1130580001.301,14,0) +MU 2011 INP OVER 65 DEN +"DATA",1130580001.301,14,3) +Over65 +"DATA",1130580001.301,15,0) +MU 2011 INP HAS ADV DIR +"DATA",1130580001.301,15,3) +HasAdvancedDirective +"DATA",1130580001.301,16,0) +MU 2011 INP HAS VITAL SIGNS +"DATA",1130580001.301,16,3) +HasVitalSigns +"DATA",1130580001.301,17,0) +MU 2011 INP NO ADV DIR +"DATA",1130580001.301,17,3) +NoAdvancedDirective +"DATA",1130580001.301,18,0) +MU 2011 INP NO VITAL SIGNS +"DATA",1130580001.301,18,3) +NoVitalSigns +"DATA",1130580001.301,19,0) +MU 2011 INP HAS MED RECON +"DATA",1130580001.301,19,3) +HasMedRecon +"DATA",1130580001.301,20,0) +MU 2011 INP NO MED RECON +"DATA",1130580001.301,20,3) +NoMedRecon +"DATA",1130580001.301,21,0) +MU 2011 INP XFER OF CARE DEN +"DATA",1130580001.301,21,3) +XferOfCare +"DATA",1130580001.301,24,0) +MU 2011 INP HAS ALLERGY +"DATA",1130580001.301,24,1,0) +^1130580001.311P^^0 +"DATA",1130580001.301,24,3) +HasAllergy +"DATA",1130580001.301,25,0) +MU 2011 INP HAS DEMO +"DATA",1130580001.301,25,1,0) +^1130580001.311P^^0 +"DATA",1130580001.301,25,3) +HasDemographics +"DATA",1130580001.301,26,0) +MU 2011 INP HAS MED +"DATA",1130580001.301,26,1,0) +^1130580001.311P^^0 +"DATA",1130580001.301,26,3) +HasMed +"DATA",1130580001.301,27,0) +MU 2011 INP HAS PROBLEM +"DATA",1130580001.301,27,1,0) +^1130580001.311P^^0 +"DATA",1130580001.301,27,3) +HasProblem +"DATA",1130580001.301,28,0) +MU 2011 INP NO ALLERGY +"DATA",1130580001.301,28,1,0) +^1130580001.311P^1^1 +"DATA",1130580001.301,28,1,1,0) +58787 +"DATA",1130580001.301,28,3) +NoAllergy +"DATA",1130580001.301,29,0) +MU 2011 INP NO PROBLEM +"DATA",1130580001.301,29,1,0) +^1130580001.311P^1^1 +"DATA",1130580001.301,29,1,1,0) +58787 +"DATA",1130580001.301,29,3) +NoProblem +"DATA",1130580001.301,30,0) +MU 2011 INPATIENT PATIENT DEN +"DATA",1130580001.301,30,1,0) +^1130580001.311P^1^1 +"DATA",1130580001.301,30,1,1,0) +58787 +"DATA",1130580001.301,30,3) +Patient +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"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^^y^o^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 +"FIA",1130580001.301) +C0Q PATIENT LIST +"FIA",1130580001.301,0) +^C0Q(301, +"FIA",1130580001.301,0,0) +1130580001.301I +"FIA",1130580001.301,0,1) +y^y^f^^n^^y^m^n +"FIA",1130580001.301,0,10) + +"FIA",1130580001.301,0,11) + +"FIA",1130580001.301,0,"RLRO") + +"FIA",1130580001.301,1130580001.301) +0 +"FIA",1130580001.301,1130580001.311) +0 +"FIA",1130580001.301,1130580001.3111) +0 +"FIA",1130580001.301,1130580001.321) +0 +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"IX",1130580001.301,1130580001.301,"CATTR",0) +1130580001.301^CATTR^ATTRIBUTE TO TIE PATIENT LIST RECORD TO INTERNAL ARRAYS^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"CATTR",1) +S ^C0Q(301,"CATTR",$E(X,1,64),DA)="" +"IX",1130580001.301,1130580001.301,"CATTR",2) +K ^C0Q(301,"CATTR",$E(X,1,64),DA) +"IX",1130580001.301,1130580001.301,"CATTR",2.5) +K ^C0Q(301,"CATTR") +"IX",1130580001.301,1130580001.301,"CATTR",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"CATTR",11.1,1,0) +1^F^1130580001.301^999^64^1^F +"KRN",.4,1558,-1) +0^3 +"KRN",.4,1558,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3110502 +"KRN",.4,1558,"F",2) +.01~.5~1~2~ +"KRN",.4,1558,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1559,-1) +0^2 +"KRN",.4,1559,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1559,"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,1559,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1560,-1) +0^1 +"KRN",.4,1560,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1560,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1560,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1561,-1) +0^5 +"KRN",.4,1561,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1561,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1561,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1561,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1561,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1561,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1561,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1561,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1562,-1) +0^4 +"KRN",.4,1562,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1562,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1562,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1562,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1562,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1562,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1562,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1562,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1563,-1) +0^6 +"KRN",.4,1563,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3110830 +"KRN",.4,1563,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1563,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1563,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1787,-1) +0^2 +"KRN",.402,1787,0) +C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3110809 +"KRN",.402,1787,"DR",1,1130580001.101) +.01;.5;1;2; +"KRN",.402,1788,-1) +0^1 +"KRN",.402,1788,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1788,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1788,"DR",2,1130580001.2011) +.01; +"KRN",19,11047,-1) +0^9 +"KRN",19,11047,0) +C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^ +"KRN",19,11047,30) +C0Q(101, +"KRN",19,11047,31) +AEMQL +"KRN",19,11047,50) +C0Q(101, +"KRN",19,11047,51) +[C0Q QUALITY MEASURE DEFINITION] +"KRN",19,11047,"U") +QUALITY MEASURE DEFINITION +"KRN",19,11048,-1) +0^8 +"KRN",19,11048,0) +C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^ +"KRN",19,11048,30) +C0Q(201, +"KRN",19,11048,31) +AEMQL +"KRN",19,11048,50) +C0Q(201, +"KRN",19,11048,51) +[C0Q MEASUREMENT SET DEFINE] +"KRN",19,11048,"U") +MEASURE SET DEFINITION +"KRN",19,11049,-1) +0^10 +"KRN",19,11049,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11049,10,0) +^19.01IP^15^15 +"KRN",19,11049,10,1,0) +11048 +"KRN",19,11049,10,1,"^") +C0Q MEASURE SET DEFINITION +"KRN",19,11049,10,2,0) +11047 +"KRN",19,11049,10,2,"^") +C0Q QUALITY MEASURE DEFINITION +"KRN",19,11049,10,6,0) +11053 +"KRN",19,11049,10,6,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11049,10,7,0) +11054 +"KRN",19,11049,10,7,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11049,10,9,0) +11056 +"KRN",19,11049,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11049,10,11,0) +11058 +"KRN",19,11049,10,11,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11049,10,12,0) +11059 +"KRN",19,11049,10,12,"^") +C0Q PQRI MENU +"KRN",19,11049,10,13,0) +11060 +"KRN",19,11049,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11049,10,14,0) +11061 +"KRN",19,11049,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11049,10,15,0) +11063 +"KRN",19,11049,10,15,"^") +C0Q UPDATE MU MEASURES +"KRN",19,11049,99) +62333,38574 +"KRN",19,11049,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11050,-1) +0^4 +"KRN",19,11050,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^ +"KRN",19,11050,60) +C0Q(101, +"KRN",19,11050,62) +0 +"KRN",19,11050,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11050,64) + +"KRN",19,11050,65) + +"KRN",19,11050,66) + +"KRN",19,11050,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11051,-1) +0^3 +"KRN",19,11051,0) +C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^ +"KRN",19,11051,60) +C0Q(201, +"KRN",19,11051,62) +0 +"KRN",19,11051,63) +[C0Q PRINT MEASUREMENT SET] +"KRN",19,11051,64) + +"KRN",19,11051,65) + +"KRN",19,11051,66) + +"KRN",19,11051,"U") +DISPLAY MEASURE SET +"KRN",19,11052,-1) +0^7 +"KRN",19,11052,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11052,25) +EN^C0QMAIN +"KRN",19,11052,"U") +LIST MEASURE SET +"KRN",19,11053,-1) +0^1 +"KRN",19,11053,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11053,25) +NBYP^C0QMAIN +"KRN",19,11053,"U") +BY PATIENT NUMERATOR +"KRN",19,11054,-1) +0^2 +"KRN",19,11054,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11054,25) +DBYP^C0QMAIN +"KRN",19,11054,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11055,-1) +0^5 +"KRN",19,11055,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11055,25) +EXPORT^C0QMAIN +"KRN",19,11055,"U") +EXPORT CCR BY MEASURE +"KRN",19,11056,-1) +0^12 +"KRN",19,11056,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11056,25) +EN2^C0QMAIN +"KRN",19,11056,"U") +COPY OVER PATIENT LISTS +"KRN",19,11057,-1) +0^6 +"KRN",19,11057,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11057,25) +ENEXP^C0QMAIN +"KRN",19,11057,"U") +ALL MEASURES EXPORT +"KRN",19,11058,-1) +0^15 +"KRN",19,11058,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11058,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11058,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11058,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11058,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11058,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11058,25) +QUE^C0QMAIN +"KRN",19,11058,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11059,-1) +0^13 +"KRN",19,11059,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11059,10,0) +^19.01IP^3^3 +"KRN",19,11059,10,1,0) +11057 +"KRN",19,11059,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11059,10,2,0) +11055 +"KRN",19,11059,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11059,10,3,0) +11052 +"KRN",19,11059,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11059,99) +62333,38574 +"KRN",19,11059,"U") +PQRI MENU +"KRN",19,11060,-1) +0^14 +"KRN",19,11060,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11060,30) +C0Q(201, +"KRN",19,11060,31) +AEMQ +"KRN",19,11060,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11060,80) +C0Q(201, +"KRN",19,11060,"U") +PRINT C0Q MEASURES +"KRN",19,11061,-1) +0^16 +"KRN",19,11061,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11061,25) +EN^C0QPQRI +"KRN",19,11061,"U") +PQRI PRINT XML +"KRN",19,11063,-1) +0^17 +"KRN",19,11063,0) +C0Q UPDATE MU MEASURES^UPDATE MU MEASURES^^R^^^^^^^^ +"KRN",19,11063,25) +BUILD^C0QPRML +"KRN",19,11063,"U") +UPDATE MU MEASURES +"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") +10 +"RTN","C0QERTIM") +0^5^B7596326 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; +"RTN","C0QERTIM",2,0) + ;;0.1;C0Q;;;Build 15 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QERTIM",58,0) + +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 15 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 15 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 15 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QIMMUN") +0^6^B6463760 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; +"RTN","C0QIMMUN",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 15 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",7,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",8,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",9,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",10,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",11,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",12,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",13,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",14,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",15,0) + . D:Y>0 +"RTN","C0QIMMUN",16,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",17,0) + . . L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",18,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",19,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",20,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",21,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",22,0) + . . Q +"RTN","C0QIMMUN",23,0) + . Q +"RTN","C0QIMMUN",24,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",25,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",26,0) + L +^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",27,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",28,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",29,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",30,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",31,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",32,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",33,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",34,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",35,0) + . Q +"RTN","C0QIMMUN",36,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",37,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",38,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",39,0) + Q +"RTN","C0QIMMUN",40,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",41,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",42,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",43,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",44,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",45,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",46,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",47,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",48,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",49,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",50,0) + . Q +"RTN","C0QIMMUN",51,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",52,0) + Q +"RTN","C0QMAIN") +0^1^B115162981 +"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 15 +"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) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"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) + D UPDATE^C0QUPDT(.G,MSIEN) +"RTN","C0QMAIN",142,0) + Q +"RTN","C0QMAIN",143,0) + ; +"RTN","C0QMAIN",144,0) +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC +"RTN","C0QMAIN",145,0) + ; +"RTN","C0QMAIN",146,0) + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC +"RTN","C0QMAIN",147,0) + I Y<1 Q ; EXIT +"RTN","C0QMAIN",148,0) + N MSIEN S MSIEN=+Y +"RTN","C0QMAIN",149,0) + S C0QSUM=1 +"RTN","C0QMAIN",150,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",151,0) + ; iterate over the measures +"RTN","C0QMAIN",152,0) + S MEASURE=0 +"RTN","C0QMAIN",153,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",154,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",155,0) + . ; now count the numerator patients +"RTN","C0QMAIN",156,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",157,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",158,0) + . ; and count the denominator patients +"RTN","C0QMAIN",159,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",160,0) + . Q:DENOM=0 +"RTN","C0QMAIN",161,0) + . ; and stuff the values +"RTN","C0QMAIN",162,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",163,0) + . Q +"RTN","C0QMAIN",164,0) + Q +"RTN","C0QMAIN",165,0) + ; +"RTN","C0QMAIN",166,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",167,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",168,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",169,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",170,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",171,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",172,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",173,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",174,0) + N ZI S ZI="" +"RTN","C0QMAIN",175,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",176,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",177,0) + D DELIST("C0QM") +"RTN","C0QMAIN",178,0) + N ZII S ZII=0 +"RTN","C0QMAIN",179,0) + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE +"RTN","C0QMAIN",180,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",181,0) + K C0QM +"RTN","C0QMAIN",182,0) + D CLEAN^DILF +"RTN","C0QMAIN",183,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",184,0) + D DELIST("C0QM") +"RTN","C0QMAIN",185,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",186,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",187,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",188,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",189,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",190,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",191,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",192,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",193,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",194,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QMAIN",195,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",196,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",197,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",198,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QMAIN",199,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",200,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",201,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",202,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",203,0) + . N C0QUFN ; FILE NUMBER TO USE +"RTN","C0QMAIN",204,0) + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",205,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",206,0) + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",207,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",208,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",209,0) + . K C0QNUMP +"RTN","C0QMAIN",210,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",211,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",212,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",213,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",214,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",215,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",216,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",217,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",218,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",219,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",220,0) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",221,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",222,0) + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",223,0) + . ;D DELIST("G") +"RTN","C0QMAIN",224,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",225,0) + . ;S ZJ="" +"RTN","C0QMAIN",226,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",227,0) + . K C0QDEMP +"RTN","C0QMAIN",228,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",229,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",230,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",231,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",232,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",233,0) + . ;E D ; +"RTN","C0QMAIN",234,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",235,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",236,0) + Q +"RTN","C0QMAIN",237,0) + ; +"RTN","C0QMAIN",238,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",239,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",240,0) + ; +"RTN","C0QMAIN",241,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",242,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",243,0) + D CLEAN^DILF +"RTN","C0QMAIN",244,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",245,0) + D CLEAN^DILF +"RTN","C0QMAIN",246,0) + K ZERR +"RTN","C0QMAIN",247,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",248,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",249,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",250,0) + ;. W "ERROR",! +"RTN","C0QMAIN",251,0) + ;. ZWR ZERR +"RTN","C0QMAIN",252,0) + ;. B +"RTN","C0QMAIN",253,0) + K C0QFDA +"RTN","C0QMAIN",254,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",255,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",256,0) + Q +"RTN","C0QMAIN",257,0) + ; +"RTN","C0QMAIN",258,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",259,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",260,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",261,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",262,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",263,0) + N C0QI,C0QJ +"RTN","C0QMAIN",264,0) + N C0QFDA +"RTN","C0QMAIN",265,0) + S C0QI="" +"RTN","C0QMAIN",266,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",267,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",268,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",269,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",270,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",271,0) + K C0QFDA +"RTN","C0QMAIN",272,0) + S C0QI="" +"RTN","C0QMAIN",273,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",274,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",275,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",276,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",277,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",278,0) + Q +"RTN","C0QMAIN",279,0) + ; +"RTN","C0QMAIN",280,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",281,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",282,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",283,0) + S ZI="" +"RTN","C0QMAIN",284,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",285,0) + K @RTN +"RTN","C0QMAIN",286,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",287,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",288,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",289,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",290,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",291,0) + Q +"RTN","C0QMAIN",292,0) + ; +"RTN","C0QMAIN",293,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",294,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",295,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",296,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",297,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",298,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",299,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",300,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",301,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",302,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",303,0) + N C0QI,C0QJ +"RTN","C0QMAIN",304,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",305,0) + K C0QFDA +"RTN","C0QMAIN",306,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",307,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",308,0) + ;D +"RTN","C0QMAIN",309,0) + Q +"RTN","C0QMAIN",310,0) + ; +"RTN","C0QMAIN",311,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",312,0) + K ZERR +"RTN","C0QMAIN",313,0) + D CLEAN^DILF +"RTN","C0QMAIN",314,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",315,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",316,0) + ;. W "ERROR",! +"RTN","C0QMAIN",317,0) + ;. ZWR ZERR +"RTN","C0QMAIN",318,0) + ;. B +"RTN","C0QMAIN",319,0) + K C0QFDA +"RTN","C0QMAIN",320,0) + Q +"RTN","C0QMAIN",321,0) + ; +"RTN","C0QMAIN",322,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",323,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",324,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",325,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",326,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",327,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",328,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",329,0) + S ZTIO="" +"RTN","C0QMAIN",330,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",331,0) + D ^%ZTLOAD +"RTN","C0QMAIN",332,0) + Q +"RTN","C0QMAIN",333,0) + ; +"RTN","C0QMAIN",334,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",335,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",336,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",337,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",338,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",339,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",340,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",341,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",342,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",343,0) + N ZI S ZI="" +"RTN","C0QMAIN",344,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",345,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",346,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",347,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",348,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",349,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",350,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",351,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",352,0) + Q +"RTN","C0QPQRI") +0^7^B41579607 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 +"RTN","C0QPQRI",2,0) + ;;0.1;C0C;nopatch;noreleasedate;Build 15 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"RTN","C0QPRML") +0^8^B72463400 +"RTN","C0QPRML",1,0) +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm +"RTN","C0QPRML",2,0) + ;;1.0;MU PACKAGE;;;Build 15 +"RTN","C0QPRML",3,0) + ; +"RTN","C0QPRML",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QPRML",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QPRML",6,0) + ; +"RTN","C0QPRML",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPRML",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPRML",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPRML",10,0) + ;(at your option) any later version. +"RTN","C0QPRML",11,0) + ; +"RTN","C0QPRML",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPRML",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPRML",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPRML",15,0) + ;GNU General Public License for more details. +"RTN","C0QPRML",16,0) + ; +"RTN","C0QPRML",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPRML",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPRML",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPRML",20,0) + ; +"RTN","C0QPRML",21,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QPRML",22,0) + ; patient lists +"RTN","C0QPRML",23,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QPRML",24,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QPRML",25,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QPRML",26,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QPRML",27,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QPRML",28,0) + ; INITIALIZE LISTS +"RTN","C0QPRML",29,0) + S C0QLIST("HasDemographics")="" +"RTN","C0QPRML",30,0) + S C0QLIST("Patient")="" +"RTN","C0QPRML",31,0) + S C0QLIST("HasProblem")="" +"RTN","C0QPRML",32,0) + S C0QLIST("HasAllergy")="" +"RTN","C0QPRML",33,0) + S C0QLIST("HasMed")="" +"RTN","C0QPRML",34,0) + D ALL ; all currently admitted patients in the hospital +"RTN","C0QPRML",35,0) + D DIS ; all patients discharged since the reporting period began +"RTN","C0QPRML",36,0) + I C0QSS ZWR GRSLT +"RTN","C0QPRML",37,0) + I C0QPL D ; +"RTN","C0QPRML",38,0) + . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QPRML",39,0) + . D UPDATE^C0QUPDT(.G,8) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QPRML",40,0) + Q +"RTN","C0QPRML",41,0) + ; +"RTN","C0QPRML",42,0) +ALL ;retrieve active inpatients +"RTN","C0QPRML",43,0) + N WARD S WARD="" +"RTN","C0QPRML",44,0) + F D Q:WARD="" +"RTN","C0QPRML",45,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QPRML",46,0) + . Q:WARD="" +"RTN","C0QPRML",47,0) + . N WIEN S WIEN="" +"RTN","C0QPRML",48,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QPRML",49,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QPRML",50,0) + . . N DFN,RB S DFN="" +"RTN","C0QPRML",51,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QPRML",52,0) + . . . D DEMO +"RTN","C0QPRML",53,0) + . . . D PROBLEM +"RTN","C0QPRML",54,0) + . . . D ALLERGY +"RTN","C0QPRML",55,0) + . . . D MEDS +"RTN","C0QPRML",56,0) + . . . I C0QPR D PRINT +"RTN","C0QPRML",57,0) + . . . I C0QSS D SS +"RTN","C0QPRML",58,0) + . . . I C0QPL D PATLIST +"RTN","C0QPRML",59,0) + Q +"RTN","C0QPRML",60,0) + ; +"RTN","C0QPRML",61,0) +DEMO ; patient demographics +"RTN","C0QPRML",62,0) + S PTNAME=$P(^DPT(DFN,0),U) ;patient name +"RTN","C0QPRML",63,0) + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",64,0) + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",65,0) + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",66,0) + S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",67,0) + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",68,0) + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",69,0) + S RACE="" +"RTN","C0QPRML",70,0) + F D Q:RACE="" +"RTN","C0QPRML",71,0) + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN +"RTN","C0QPRML",72,0) + . Q:'RACE +"RTN","C0QPRML",73,0) + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description +"RTN","C0QPRML",74,0) + S ETHN="" +"RTN","C0QPRML",75,0) + F D Q:ETHN="" +"RTN","C0QPRML",76,0) + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN +"RTN","C0QPRML",77,0) + . Q:'ETHN +"RTN","C0QPRML",78,0) + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description +"RTN","C0QPRML",79,0) + S RB=$P(^DPT(DFN,.101),U) ;room and bed +"RTN","C0QPRML",80,0) + Q +"RTN","C0QPRML",81,0) + ; +"RTN","C0QPRML",82,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QPRML",83,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",84,0) + S PBCNT="" +"RTN","C0QPRML",85,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",86,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",87,0) + K PROBL +"RTN","C0QPRML",88,0) + Q +"RTN","C0QPRML",89,0) + ; +"RTN","C0QPRML",90,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QPRML",91,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",92,0) + S ALCNT="" +"RTN","C0QPRML",93,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",94,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",95,0) + K ALRGYL +"RTN","C0QPRML",96,0) + Q +"RTN","C0QPRML",97,0) + ; +"RTN","C0QPRML",98,0) +MEDS ; MEDICATIONS +"RTN","C0QPRML",99,0) + D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",100,0) + S MDCNT="" +"RTN","C0QPRML",101,0) + F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",102,0) + . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",103,0) + . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",104,0) + . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",105,0) + K MEDSL +"RTN","C0QPRML",106,0) + Q +"RTN","C0QPRML",107,0) + ; +"RTN","C0QPRML",108,0) +PRINT ; PRINT TO SCREEN +"RTN","C0QPRML",109,0) + +"RTN","C0QPRML",110,0) + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " +"RTN","C0QPRML",111,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",112,0) + . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",113,0) + . W !,DFN," ",PTNAME +"RTN","C0QPRML",114,0) + W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",115,0) + W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",116,0) + W !,"Race: ",RACEDSC +"RTN","C0QPRML",117,0) + W !,"Ethnicity: ",$G(ETHNDSC) +"RTN","C0QPRML",118,0) + W !,"Problems: " +"RTN","C0QPRML",119,0) + W !,PBDESC +"RTN","C0QPRML",120,0) + W !,"Allergies: " +"RTN","C0QPRML",121,0) + W !,ALDESC +"RTN","C0QPRML",122,0) + W !,"Medications: " +"RTN","C0QPRML",123,0) + W ! +"RTN","C0QPRML",124,0) + Q +"RTN","C0QPRML",125,0) + ; +"RTN","C0QPRML",126,0) +SS ; CREATE SPREADSHEET ARRAY +"RTN","C0QPRML",127,0) + S G1("Patient")=DFN +"RTN","C0QPRML",128,0) + I $D(WARD) D ; +"RTN","C0QPRML",129,0) + . S G1("WardName")=WARDNAME +"RTN","C0QPRML",130,0) + . S G1("RoomAndBed")=RB +"RTN","C0QPRML",131,0) + I $D(EXDTE) D ; +"RTN","C0QPRML",132,0) + . S G1("DischargeDate")=EXDTE +"RTN","C0QPRML",133,0) + S G1("PatientName")=PTNAME +"RTN","C0QPRML",134,0) + S G1("Gender")=PTSEX +"RTN","C0QPRML",135,0) + S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",136,0) + S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",137,0) + S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",138,0) + S G1("Race")=RACEDSC +"RTN","C0QPRML",139,0) + S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",140,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",141,0) + I PBDESC["No problems found" S G1("HasProblem")=0 +"RTN","C0QPRML",142,0) + E S G1("HasProblem")=1 +"RTN","C0QPRML",143,0) + S G1("Allergies")=ALDESC +"RTN","C0QPRML",144,0) + I ALDESC["No Allergy" S G1("HasAllergy")=0 +"RTN","C0QPRML",145,0) + E S G1("HasAllergy")=1 +"RTN","C0QPRML",146,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",147,0) + . S G1("HasMed")=1 +"RTN","C0QPRML",148,0) + E S G1("HasMed")=0 +"RTN","C0QPRML",149,0) + S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",150,0) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC +"RTN","C0QPRML",151,0) + D RNF1TO2B^C0CRNF("GRSLT","G1") +"RTN","C0QPRML",152,0) + K G1 +"RTN","C0QPRML",153,0) + Q ; DON'T WANT TO DO THE NHIN STUFF NOW +"RTN","C0QPRML",154,0) + ; +"RTN","C0QPRML",155,0) +PATLIST ; CREATE PATIENT LISTS +"RTN","C0QPRML",156,0) + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST +"RTN","C0QPRML",157,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QPRML",158,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QPRML",159,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QPRML",160,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QPRML",161,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QPRML",162,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QPRML",163,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QPRML",164,0) + I DEMOYN S C0QLIST("HasDemographics",DFN)="" +"RTN","C0QPRML",165,0) + E S C0QLIST("FailedDemographics",DFN)="" +"RTN","C0QPRML",166,0) + ;S G1("Gender")=PTSEX +"RTN","C0QPRML",167,0) + ;S G1("DateOfBirth")=PTDOB +"RTN","C0QPRML",168,0) + ;S G1("HealthRecordNumber")=PTHRN +"RTN","C0QPRML",169,0) + ;S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QPRML",170,0) + ;S G1("Race")=RACEDSC +"RTN","C0QPRML",171,0) + ;S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QPRML",172,0) + S G1("Problem")=PBDESC +"RTN","C0QPRML",173,0) + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" +"RTN","C0QPRML",174,0) + E S C0QLIST("HasProblem",DFN)="" +"RTN","C0QPRML",175,0) + ;S G1("Allergies")=ALDESC +"RTN","C0QPRML",176,0) + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" +"RTN","C0QPRML",177,0) + E S C0QLIST("HasAllergy",DFN)="" +"RTN","C0QPRML",178,0) + I $D(MDITEM) D ; +"RTN","C0QPRML",179,0) + . S C0QLIST("HasMed",DFN)="" +"RTN","C0QPRML",180,0) + E S G1("NoMed",DFN)="" +"RTN","C0QPRML",181,0) + ;S G1("MedDescription")=$G(MDDESC) +"RTN","C0QPRML",182,0) + Q +"RTN","C0QPRML",183,0) + ; +"RTN","C0QPRML",184,0) +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT +"RTN","C0QPRML",185,0) + Q:DFN=137!14 +"RTN","C0QPRML",186,0) + D EN^C0CNHIN(.G,DFN,"") +"RTN","C0QPRML",187,0) + ZWR G +"RTN","C0QPRML",188,0) + K G +"RTN","C0QPRML",189,0) + ; +"RTN","C0QPRML",190,0) + QUIT ;end of WARD +"RTN","C0QPRML",191,0) + ; +"RTN","C0QPRML",192,0) + ; +"RTN","C0QPRML",193,0) +DIS; +"RTN","C0QPRML",194,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QPRML",195,0) + F D Q:DTE="" +"RTN","C0QPRML",196,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QPRML",197,0) + . Q:'DTE +"RTN","C0QPRML",198,0) + . Q:DTE<3110703 +"RTN","C0QPRML",199,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QPRML",200,0) + . N PTFM S PTFM="" +"RTN","C0QPRML",201,0) + . D +"RTN","C0QPRML",202,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QPRML",203,0) + . . Q:'PTFM +"RTN","C0QPRML",204,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QPRML",205,0) + . . D DEMO +"RTN","C0QPRML",206,0) + . . D PROBLEM +"RTN","C0QPRML",207,0) + . . D ALLERGY +"RTN","C0QPRML",208,0) + . . D MEDS +"RTN","C0QPRML",209,0) + . . I C0QPR D PRINT +"RTN","C0QPRML",210,0) + . . I C0QSS D SS +"RTN","C0QPRML",211,0) + . . I C0QPL D PATLIST +"RTN","C0QPRML",212,0) + Q +"RTN","C0QPRML",213,0) + ; +"RTN","C0QPRML",214,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",215,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QPRML",216,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QPRML",217,0) + ; +"RTN","C0QPRML",218,0) + I '$D(C0QLIST) Q ; +"RTN","C0QPRML",219,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QPRML",220,0) + N ZI,ZN +"RTN","C0QPRML",221,0) + S ZI="" +"RTN","C0QPRML",222,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QPRML",223,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QPRML",224,0) + . I ZN="" D Q ; OOPS +"RTN","C0QPRML",225,0) + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QPRML",226,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QPRML",227,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QPRML",228,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QPRML",229,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QPRML",230,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QPRML",231,0) + . N ZJ,ZK +"RTN","C0QPRML",232,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QPRML",233,0) + . K C0QFDA +"RTN","C0QPRML",234,0) + . S ZJ="" +"RTN","C0QPRML",235,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QPRML",236,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QPRML",237,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QPRML",238,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QPRML",239,0) + . . . B +"RTN","C0QPRML",240,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QPRML",241,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QPRML",242,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QPRML",243,0) + . K C0QFDA +"RTN","C0QPRML",244,0) + . S ZJ="" S ZK=1 +"RTN","C0QPRML",245,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QPRML",246,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QPRML",247,0) + . . S ZK=ZK+1 +"RTN","C0QPRML",248,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QPRML",249,0) + ;. Q +"RTN","C0QPRML",250,0) + ;. K C0QFDA +"RTN","C0QPRML",251,0) + ;. N ZJ,ZC +"RTN","C0QPRML",252,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QPRML",253,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QPRML",254,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QPRML",255,0) + ;. . S ZC=ZC+1 +"RTN","C0QPRML",256,0) + ;. D UPDIE +"RTN","C0QPRML",257,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QPRML",258,0) + Q +"RTN","C0QPRML",259,0) + ; +"RTN","C0QPRML",260,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QPRML",261,0) + ; +"RTN","C0QPRML",262,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QPRML",263,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QPRML",264,0) + D CLEAN^DILF +"RTN","C0QPRML",265,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QPRML",266,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QPRML",267,0) + D CLEAN^DILF +"RTN","C0QPRML",268,0) + K ZERR +"RTN","C0QPRML",269,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QPRML",270,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QPRML",271,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",272,0) + ;. W "ERROR",! +"RTN","C0QPRML",273,0) + ;. ZWR ZERR +"RTN","C0QPRML",274,0) + ;. B +"RTN","C0QPRML",275,0) + K C0QFDA +"RTN","C0QPRML",276,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QPRML",277,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QPRML",278,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QPRML",279,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QPRML",280,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QPRML",281,0) + ; +"RTN","C0QPRML",282,0) + Q ZR +"RTN","C0QPRML",283,0) + ; +"RTN","C0QPRML",284,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QPRML",285,0) + K ZERR +"RTN","C0QPRML",286,0) + D CLEAN^DILF +"RTN","C0QPRML",287,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QPRML",288,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QPRML",289,0) + ;. W "ERROR",! +"RTN","C0QPRML",290,0) + ;. ZWR ZERR +"RTN","C0QPRML",291,0) + ;. B +"RTN","C0QPRML",292,0) + K C0QFDA +"RTN","C0QPRML",293,0) + Q +"RTN","C0QPRML",294,0) + ; +"RTN","C0QPRML",295,0) + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS +"RTN","C0QPRML",296,0) + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) +"RTN","C0QPRML",297,0) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QPRML",298,0) + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QPRML",299,0) + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QPRML",300,0) + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QPRML",301,0) + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QPRML",302,0) + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QPRML",303,0) + ;. . S RACE="" +"RTN","C0QPRML",304,0) + ;. . F D Q:RACE="" +"RTN","C0QPRML",305,0) + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) +"RTN","C0QPRML",306,0) + ;. . . Q:'RACE +"RTN","C0QPRML",307,0) + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) +"RTN","C0QPRML",308,0) + ;. . N ETHNDSC +"RTN","C0QPRML",309,0) + ;. . N ETHNDSC S ETHNDSC="" +"RTN","C0QPRML",310,0) + ;. . S ETHN="" +"RTN","C0QPRML",311,0) + ;. . F D Q:ETHN="" +"RTN","C0QPRML",312,0) + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) +"RTN","C0QPRML",313,0) + ;. . . Q:'ETHN +"RTN","C0QPRML",314,0) + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) +"RTN","C0QPRML",315,0) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QPRML",316,0) + ;. . S PBCNT="" +"RTN","C0QPRML",317,0) + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QPRML",318,0) + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QPRML",319,0) + ;. . K PROBL +"RTN","C0QPRML",320,0) + ;. . D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QPRML",321,0) + ;. . S ALCNT="" +"RTN","C0QPRML",322,0) + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QPRML",323,0) + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QPRML",324,0) + ;. . K ALRGYL +"RTN","C0QPRML",325,0) + ;. . D COVER^ORWPS(.MEDSL,DFN) +"RTN","C0QPRML",326,0) + ;. . S MDCNT="" +"RTN","C0QPRML",327,0) + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D +"RTN","C0QPRML",328,0) + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only +"RTN","C0QPRML",329,0) + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description +"RTN","C0QPRML",330,0) + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) +"RTN","C0QPRML",331,0) + ;. . K MEDSL +"RTN","C0QPRML",332,0) + ;. . W !,"Discharge Date: ",EXDTE +"RTN","C0QPRML",333,0) + ;. . W !,DFN," ",PTNAME +"RTN","C0QPRML",334,0) + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QPRML",335,0) + ;. . W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QPRML",336,0) + ;. . W !,"Race: ",RACEDSC +"RTN","C0QPRML",337,0) + ;. . W !,"Ethnicity: ",ETHNDSC +"RTN","C0QPRML",338,0) + ;. . W !,"Problems: " +"RTN","C0QPRML",339,0) + ;. . W !,PBDESC +"RTN","C0QPRML",340,0) + ;. . W !,"Allergies: " +"RTN","C0QPRML",341,0) + ;. . W !,ALDESC +"RTN","C0QPRML",342,0) + ;. . W !,"Medications: " +"RTN","C0QPRML",343,0) + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC +"RTN","C0QPRML",344,0) + ;. . W ! +"RTN","C0QPRML",345,0) + ;Q +"RTN","C0QPRML",346,0) + ; +"RTN","C0QPRML",347,0) + ; +"RTN","C0QPRML",348,0) + ; +"RTN","C0QPRML",349,0) + ; +"RTN","C0QPRML",350,0) +END ;end of C0QPRML; +"RTN","C0QSET") +0^9^B8586809 +"RTN","C0QSET",1,0) +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm +"RTN","C0QSET",2,0) + ;;1.0;MU PACKAGE;;;Build 15 +"RTN","C0QSET",3,0) + ; +"RTN","C0QSET",4,0) + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU +"RTN","C0QSET",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QSET",6,0) + ; +"RTN","C0QSET",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QSET",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QSET",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QSET",10,0) + ;(at your option) any later version. +"RTN","C0QSET",11,0) + ; +"RTN","C0QSET",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QSET",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QSET",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QSET",15,0) + ;GNU General Public License for more details. +"RTN","C0QSET",16,0) + ; +"RTN","C0QSET",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QSET",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QSET",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QSET",20,0) + ; +"RTN","C0QSET",21,0) + Q +"RTN","C0QSET",22,0) + ; +"RTN","C0QSET",23,0) +TEST ; TEST OF UNITY ROUTINE +"RTN","C0QSET",24,0) + ; +"RTN","C0QSET",25,0) + S A(1)="" +"RTN","C0QSET",26,0) + S A(2)="" +"RTN","C0QSET",27,0) + S A(3)="" +"RTN","C0QSET",28,0) + S B(3)="" +"RTN","C0QSET",29,0) + S B(4)="" +"RTN","C0QSET",30,0) + D UNITY("C","A","B") +"RTN","C0QSET",31,0) + ZWR C +"RTN","C0QSET",32,0) + Q +"RTN","C0QSET",33,0) + ; +"RTN","C0QSET",34,0) +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? +"RTN","C0QSET",35,0) + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? +"RTN","C0QSET",36,0) + S PATS=$NA(^DPT) +"RTN","C0QSET",37,0) + S MEDS=$NA(^PS(55)) +"RTN","C0QSET",38,0) + D UNITY("DELTA",PATS,MEDS) +"RTN","C0QSET",39,0) + W !,"PATIENTS WITH NO MEDS",! +"RTN","C0QSET",40,0) + ZWR DELTA(0,*) +"RTN","C0QSET",41,0) + W !,"BAD POINTERS IN THE MEDS FILE",! +"RTN","C0QSET",42,0) + ZWR DELTA(2,*) +"RTN","C0QSET",43,0) + Q +"RTN","C0QSET",44,0) + ; +"RTN","C0QSET",45,0) +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",46,0) + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS +"RTN","C0QSET",47,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",48,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",49,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",50,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",51,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",52,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",53,0) + N ZN S ZN=0 ; COUNT +"RTN","C0QSET",54,0) + N ZI S ZI=0 +"RTN","C0QSET",55,0) + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",56,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",57,0) + . S ZN=ZN+1 +"RTN","C0QSET",58,0) + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT +"RTN","C0QSET",59,0) + S ZI=0 +"RTN","C0QSET",60,0) + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",61,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",62,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",63,0) + S ZI=0 +"RTN","C0QSET",64,0) + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM +"RTN","C0QSET",65,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",66,0) + Q +"RTN","C0QSET",67,0) + ; +"RTN","C0QSET",68,0) +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",69,0) + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST +"RTN","C0QSET",70,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",71,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",72,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",73,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",74,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",75,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",76,0) + N ZI S ZI="" +"RTN","C0QSET",77,0) + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",78,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",79,0) + S ZI="" +"RTN","C0QSET",80,0) + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",81,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",82,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",83,0) + S ZI="" +"RTN","C0QSET",84,0) + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM +"RTN","C0QSET",85,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",86,0) + Q +"RTN","C0QSET",87,0) + ; +"RTN","C0QSET",88,0) +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD +"RTN","C0QSET",89,0) + N ZD +"RTN","C0QSET",90,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",91,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",92,0) + Q +"RTN","C0QSET",93,0) + ; +"RTN","C0QSET",94,0) +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH +"RTN","C0QSET",95,0) + N ZD +"RTN","C0QSET",96,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",97,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",98,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",99,0) + Q +"RTN","C0QSET",100,0) + ; +"RTN","C0QSET",101,0) +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT +"RTN","C0QSET",102,0) + N ZD +"RTN","C0QSET",103,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",104,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",105,0) + Q +"RTN","C0QSET",106,0) + ; +"RTN","C0QSET",107,0) +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH +"RTN","C0QSET",108,0) + N ZD +"RTN","C0QSET",109,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",110,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",111,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",112,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",113,0) + Q +"RTN","C0QSET",114,0) + ; +"RTN","C0QSET",115,0) +END ;end of C0QSET; +"RTN","C0QUPDT") +0^10^B39929946 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11 17:05 +"RTN","C0QUPDT",2,0) + ;;0.1;C0Q;nopatch;noreleasedate;Build 15 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",30,0) + ; +"RTN","C0QUPDT",31,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",32,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",33,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",34,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",35,0) + ; +"RTN","C0QUPDT",36,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",37,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",38,0) + ; +"RTN","C0QUPDT",39,0) + N ZI S ZI="" +"RTN","C0QUPDT",40,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",41,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",42,0) + D DELIST("C0QM") +"RTN","C0QUPDT",43,0) + N ZII S ZII="" +"RTN","C0QUPDT",44,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",45,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",46,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",47,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",48,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",49,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",50,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",51,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",52,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",53,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",54,0) + . ; +"RTN","C0QUPDT",55,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",56,0) + . ; +"RTN","C0QUPDT",57,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",58,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",59,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",60,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",61,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",62,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",63,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",64,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",65,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",66,0) + . N C0QCNT +"RTN","C0QUPDT",67,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",68,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",69,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",70,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",71,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",72,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",73,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",74,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",75,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",76,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",77,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",78,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",79,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",80,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",81,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",82,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",83,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",84,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",85,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",86,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",87,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",88,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",89,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",90,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",91,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",92,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",93,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",94,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",95,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",96,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",97,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",98,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",99,0) + . ; +"RTN","C0QUPDT",100,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",101,0) + . ; +"RTN","C0QUPDT",102,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",103,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",104,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",105,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",106,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",107,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",108,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",109,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",110,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",111,0) + . N C0QDCNT +"RTN","C0QUPDT",112,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",113,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",114,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",115,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",116,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",117,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",118,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",119,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",120,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",121,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",122,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",123,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",124,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",125,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",126,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",127,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",128,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",129,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",130,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",131,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",132,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",133,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",134,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",135,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",136,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",137,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",138,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",139,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",140,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",141,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",142,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",143,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",144,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",145,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",146,0) + . I C0QDCNT>0 D ; +"RTN","C0QUPDT",147,0) + . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",148,0) + . . K C0QFDA +"RTN","C0QUPDT",149,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",150,0) + . . D UPDIE +"RTN","C0QUPDT",151,0) + Q +"RTN","C0QUPDT",152,0) + ; +"RTN","C0QUPDT",153,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",154,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",155,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",156,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QUPDT",157,0) + S ZI="" +"RTN","C0QUPDT",158,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",159,0) + K @RTN +"RTN","C0QUPDT",160,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",161,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",162,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",163,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",164,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QUPDT",165,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",166,0) + Q +"RTN","C0QUPDT",167,0) + ; +"RTN","C0QUPDT",168,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",169,0) + K ZERR +"RTN","C0QUPDT",170,0) + D CLEAN^DILF +"RTN","C0QUPDT",171,0) + ZWR C0QFDA +"RTN","C0QUPDT",172,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",173,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",174,0) + ;. W "ERROR",! +"RTN","C0QUPDT",175,0) + ;. ZWR ZERR +"RTN","C0QUPDT",176,0) + ;. B +"RTN","C0QUPDT",177,0) + K C0QFDA +"RTN","C0QUPDT",178,0) + Q +"RTN","C0QUPDT",179,0) + ; +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"AUDIT") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DEL") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"LAYGO") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"RD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"WR") +@ +"VER") +8.0^22.0 +"^DD",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^1.51^14 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^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^7 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3110621 +"^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") +3110621 +"^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^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.301,1130580001.301,0) +FIELD^^999^8 +"^DD",1130580001.301,1130580001.301,0,"DDA") +N +"^DD",1130580001.301,1130580001.301,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,0,"ID",999) +W:$D(^(3)) " ",$P(^(3),U,1) +"^DD",1130580001.301,1130580001.301,0,"IX","B",1130580001.301,.01) + +"^DD",1130580001.301,1130580001.301,0,"NM","C0Q PATIENT LIST") + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.51) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,2.1) + +"^DD",1130580001.301,1130580001.301,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.301,1130580001.301,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.301,.01,1,1,0) +1130580001.301^B +"^DD",1130580001.301,1130580001.301,.01,1,1,1) +S ^C0Q(301,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.301,.01,1,1,2) +K ^C0Q(301,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.301,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.301,1130580001.301,.02,0) +REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2011)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.02,3) +Type a number between 2011 and 2050, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.03,0) +REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.03,3) +Type a number between 1 and 12, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.03,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.04,0) +ORIGINAL DATE CREATED^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X +"^DD",1130580001.301,1130580001.301,.04,3) +(No range limit on date) +"^DD",1130580001.301,1130580001.301,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.07,0) +CREATOR^P200'^VA(200,^0;5^Q +"^DD",1130580001.301,1130580001.301,.07,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,30,0) +PATIENTS^1130580001.311P^^1;0 +"^DD",1130580001.301,1130580001.301,200,0) +CREATION DOCUMENTATION^1130580001.321^^2;0 +"^DD",1130580001.301,1130580001.301,999,0) +ATTRIBUTE^F^^3;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,999,3) +PATIENT LIST ATTRIBUTE +"^DD",1130580001.301,1130580001.301,999,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0) +PATIENTS SUB-FIELD^^.05^4 +"^DD",1130580001.301,1130580001.311,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0,"IX","B",1130580001.311,.01) + +"^DD",1130580001.301,1130580001.311,0,"NM","PATIENTS") + +"^DD",1130580001.301,1130580001.311,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.311,.01,0) +PATIENTS^MP2'^DPT(^0;1^Q +"^DD",1130580001.301,1130580001.311,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.311,.01,1,1,0) +1130580001.311^B +"^DD",1130580001.301,1130580001.311,.01,1,1,1) +S ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.311,.01,1,1,2) +K ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.311,.01,3) +PATIENTS IN THE LIST +"^DD",1130580001.301,1130580001.311,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.04,0) +DESEASED^S^0:NO;1:YES;^2;1^Q +"^DD",1130580001.301,1130580001.311,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.05,0) +TEST PATIENT^S^0:NO;1:YES;^2;2^Q +"^DD",1130580001.301,1130580001.311,.05,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,1,0) +DATA^1130580001.3111^^1;0 +"^DD",1130580001.301,1130580001.3111,0) +DATA SUB-FIELD^^.02^2 +"^DD",1130580001.301,1130580001.3111,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,0,"IX","B",1130580001.3111,.01) + +"^DD",1130580001.301,1130580001.3111,0,"NM","DATA") + +"^DD",1130580001.301,1130580001.3111,0,"UP") +1130580001.311 +"^DD",1130580001.301,1130580001.3111,.01,0) +DATA TYPE^MF^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.3111,.01,1,1,0) +1130580001.3111^B +"^DD",1130580001.301,1130580001.3111,.01,1,1,1) +S ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.3111,.01,1,1,2) +K ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.3111,.01,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,.02,0) +VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.02,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0) +CREATION DOCUMENTATION SUB-FIELD^^.01^1 +"^DD",1130580001.301,1130580001.321,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0,"NM","CREATION DOCUMENTATION") + +"^DD",1130580001.301,1130580001.321,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.321,.01,0) +CREATION DOCUMENTATION^W^^0;1 +"^DD",1130580001.301,1130580001.321,.01,3) +DOCUMENTATION +"^DD",1130580001.301,1130580001.321,.01,"DT") +3110805 +"^DIC",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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) + +"^DIC",1130580001.301,1130580001.301,0) +C0Q PATIENT LIST^1130580001.301 +"^DIC",1130580001.301,1130580001.301,0,"GL") +^C0Q(301, +"^DIC",1130580001.301,1130580001.301,"%",0) +^1.005^^0 +"^DIC",1130580001.301,"B","C0Q PATIENT LIST",1130580001.301) + +**END** +**END** diff --git a/qrda/C0Q/branches/ohum/p/C0QERTIM.m b/qrda/C0Q/branches/ohum/p/C0QERTIM.m new file mode 100644 index 0000000..a0a8f72 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QERTIM.m @@ -0,0 +1,58 @@ +C0QERTIM ; Time from admission to leaving a hospital location ; + ;;0.1;C0Q;;;Build 19 +EN ;Get Location + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT + S LOCATION=+Y + ;Start date + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y + ;End date + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y + ;select device: + S %ZIS="Q" D ^%ZIS G EXIT:POP + I $D(IO("Q")) D G EXIT + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") + . Q +DQ ; Get down to business + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. + ;^DGPT("AF",date/time,DA) + S PATCOUNT=0,ADMITIME=START + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D + . Q:ADMITIME>STOP + . ;FMIN from ADMISSION DATE piece 2 + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") + . . . I FMINDAY'=FMOUTDAY D + . . . . S DIFFDAY=FMOUTDAY-FMINDAY + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") + . . . . Q + . . . S PATCOUNT=PATCOUNT+1 + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) + . . . Q + . . Q + . Q + U IO W @IOF + ;list median time from Admission to leaving hospital LOCATION + S MID=$P(PATCOUNT/2,"."),SUM=0 + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID + . Q + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) + ;list patient and time from admission to leaving the location + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +EXIT ; DO CLEANUP + S:$D(ZTQUEUED) ZTREQ="@" + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) + Q + diff --git a/qrda/C0Q/branches/ohum/p/C0QGMRAD.m b/qrda/C0Q/branches/ohum/p/C0QGMRAD.m new file mode 100644 index 0000000..5127a8f --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QGMRAD.m @@ -0,0 +1,118 @@ +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 19 +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA + ;INPUT VARIABLES: + ; + ; DFN Pointer to Patient file. + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL + ; where A = 0 return all reactions (allergic/non-allergic). + ; 1 return allergies only. + ; 2 return non-allergies only. + ; B = 0 return all data (verified or non-verified). + ; 1 return only verified data. + ; 2 return only non-verified data. + ; C = X_Y_Z + ; where X, Y, and Z are either 0 or 1. 1 would mean to + ; return an Adverse Reaction of that particular type, + ; and zero means do not return an Adverse Reaction of + ; that type. + ; X is for TYPE=OTHER + ; Y is for TYPE=FOOD + ; Z is for TYPE=DRUG. + ; E.g., 001 (return drug only), 111 (returns all types), + ; and 010 (returns food only). + ; **LOCAL + ; D = 0 return both Observed and Historical + ; 1 return only Observed + ; **LOCAL + ;OUTPUT VARIABLES: + ; GMRAL = 1 if patient has Adverse Reaction + ; 0 if patient has no known Adverse Reaction + ; null if patient has not been asked about Adverse Reaction + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I + ; where A = Pointer to Patient file. + ; B = Free text of causative agent. + ; *C = Type of reaction, where D is drug, F is food, and O is + ; other. + ; D = 1 if Adverse Reaction has been verified + ; 0 if Adverse Reaction has not been verified + ; E = 0 if this is an allergic reaction + ; 1 if this is not an allergic reaction + ; **F = the mechanism of reaction in the format: + ; External format;Internal format + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). + ; G = Type of reaction. + ; where D = drug + ; DF = drug/food + ; DFO = drug/food/other + ; DO = drug/other + ; F = food + ; FO = food/other + ; O = other + ; H = the mechanism of reaction in the format: + ; External format;Internal format + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) + ; I = IEN and Global root of reactant (stored in piece B above) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT + ; ALLERGY file (#120.8) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S + ; where COUNT = number 1 to number of signs/symptoms for this + ; reaction. + ; S = a sign/symptom for this reaction in the format: + ; External format;Internal format + ; + ;* NOTE: This piece will no longer be supported after 9/1/97, + ; Please use piece G. + ;** NOTE: This piece will no longer be supported after 9/1/97, + ; Please use piece H. + ; + N GMRAOTH + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +DPT ; + ;Read NKA Node in file 120.86 + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) + ;Do not set GMRAL array if patient is unassessed or NKA. + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT + Q +SETAL ; + N %,GMRAI,GMRASIGN + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL + I '$P(GMRA,"^") S GMRAI=1 + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET + D PASS(GMRAREC,.GMRAL) + Q +PASS(GMRAREC,GMRAL) ; Data filer + ; This subroutine will store all the patient date for a reaction is an + ; array. + ; Input: + ; GMRAREC = The IEN for the entry in 120.8 + ;Output: + ; GMRAL(GMRAREC) the array entry for the record + ; + N GMRANODE + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" + S %=$P(GMRANODE,"^",14) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) + .Q + K GMRAX,GMRAY,GMRAZ + Q diff --git a/qrda/C0Q/branches/ohum/p/C0QGMTSA.m b/qrda/C0Q/branches/ohum/p/C0QGMTSA.m new file mode 100644 index 0000000..ee8a7dd --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QGMTSA.m @@ -0,0 +1,26 @@ +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 19 + ; + ; External References + ; DBIA 10096 ^%ZOSF("TEST" + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD + ; +ALLRG ; Allergies + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") + I $T D Q:$D(GMTSQIT) + . D GETALLRG I ALLRG D + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP + Q +ALLRGP ; Allergy Print + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +GETALLRG ; Get Allergies + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q + Q diff --git a/qrda/C0Q/branches/ohum/p/C0QGMTSG.m b/qrda/C0Q/branches/ohum/p/C0QGMTSG.m new file mode 100644 index 0000000..04d41e1 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QGMTSG.m @@ -0,0 +1,101 @@ +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 19 + ; + ; External References + ; DBIA 10096 ^%ZOSF("TEST" + ; DBIA 10035 ^DPT( + ; DBIA 905 ^GMR(120.8 + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) + ; DBIA 10011 ^DIWP + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD + ; DBIA 10060 ^VA(200, + ; DBIA 3449 ^GMR(120.86, + ; +ALLRG ; Allergies + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" + S X="C0QGMRAD" X ^%ZOSF("TEST") + I $T D Q:$D(GMTSQIT) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA + I 'ALLRG,'$L($G(GMTSALAS)) D + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT + Q +ALLRGP ; Allergy Print + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D + .... I GMTSAV=1 W " (AV" + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 + ..... S MX=MX+1 + ..... W:MX>1 ", " + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q + ..... S ALL=1 W N + .... D SIGBLK($P(GMTSAFN,U,5)) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT + Q +NKA ; No known allergies + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! + Q +GETALLRG ; Get Allergies + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q + I $D(GMRAL)>9 D + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) + .. S ALLRG=1 + Q +ALLAS ; Allergy Assessment + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" + Q +AUTOV ; Autoverify + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 + Q +TITLE ; Print title + D CKP^GMTSUP Q:$D(GMTSQIT) + I $D(GMTSPNF) W ?21,TITLE,! + E W ?21,"Title: ",TITLE,! + Q +TEXT ; Setup for print of allergy comments + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) + K ^UTILITY($J,"W") + Q:'GMTSLN + W ! Q +FORMAT ; Formats each line + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP + Q +LINE ; Writes formatted lines of text + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) + Q +SIGBLK(GMTSALF) ; Signature block + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST + Q diff --git a/qrda/C0Q/branches/ohum/p/C0QHF.m b/qrda/C0Q/branches/ohum/p/C0QHF.m new file mode 100644 index 0000000..e03122f --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QHF.m @@ -0,0 +1,75 @@ +C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; + ; these routines are for quick lookups on HEALTH FACTOR and V HEALTH FACTOR + ; files... + ; + ; from the DD: + ;STANDARD DATA DICTIONARY #9000010.23 -- V HEALTH FACTORS FILE + ;STORED IN ^AUPNVHF( (6744 ENTRIES) + ;CROSS REFERENCED BY: PATIENT NAME(AATOO), HEALTH FACTOR(AATOO1), VISIT(AD), + ; VISIT(AV10), HEALTH FACTOR(B), PATIENT NAME(C) + ; + ;STANDARD DATA DICTIONARY #9999999.64 -- HEALTH FACTORS FILE + ;STORED IN ^AUTTHF( (8656 ENTRIES) + ;CROSS REFERENCED BY: CATEGORY(AC), ENTRY TYPE(AD), FACTOR(B), SYNONYM(D) + ; +HFYN(DFN,C0QHF) ; EXTRINSIC RETURNS 1 (YES) OR 0 (NO) IF A PATIENT + ; HAS A HEALTH FACTOR + N ZI,ZJ,ZR + S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN + I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1 + E S ZR=0 + Q ZR + ; +HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY + ; RTN IS PASSED BY REFERENCE AND RETURNS AN ARRAY OF HEALTH FACTORS + ; THAT THE PATIENT HAS IN THE CATEGORY. RETURNS NULL IF NONE + ; FORMAT RNT(HEALTH FACTOR IEN,HEALTH FACTOR NAME)="" + N ZI + S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN + N C0QN,C0QO + S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS + S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; THE DIFFERENCE + K RTN ; CLEAR THE RETURN ARRAY + N ZJ S ZJ="" + F S ZJ=$O(C0QR(1,ZJ)) Q:ZJ="" D ; FOR ALL HEALTH FACTOR MATCHES + . S RTN(ZJ,$P(^AUTTHF(ZJ,0),"^",1))="" + Q + ; +HFLCAT(RTN,C0QHFCAT) ; RETURNS A LIST OF PATIENTS WHO HAVE A HEALTH FACTOR + ; IN THE C0QHFCAT CATEGORY. RTN IS PASSED BY REFERENCE + ; THIS WILL BE HARD TO DO WITHOUT SOME NEW INDEXES + Q + ; +HFLPAT(RTN,C0QHF) ; RETURNS A LIST OF PATIENTS WHO HAVE A SPECIFIC HEALTH + ; FACTOR. RTN IS PASSED BY REFERENCE + ; THIS ONE ALSO WILL BE HARD TO DO QUICKLY WITHOUT A NEW INDEX + Q + ; +INDEXES(DDREF) ;PRINT THE INDEXES ACTUALLY ON FILE DDREF + ; IE D INDEXES($NA(^DD)) + N ZI + S ZI="A" + F S ZI=$O(@DDREF@(ZI)) Q:ZI="" W !,ZI + Q + ; diff --git a/qrda/C0Q/branches/ohum/p/C0QIMMUN.m b/qrda/C0Q/branches/ohum/p/C0QIMMUN.m new file mode 100644 index 0000000..73840a3 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QIMMUN.m @@ -0,0 +1,52 @@ +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 + ; ^XTMP("C0QIMMUN",0)=purge date^create date + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +FIND ; Find the next set of immunization orders + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR + S DIR("A")="Do you want to reset that value" + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 + . S DIR("A")="What value shall be used?" + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR + . W:Y'>0 !,"We'll skip reseting it then." + . D:Y>0 + . . S LASTORDR=+Y + . . L +^XTMP("C0QIMMUN") + . . S X1=DT,X2=365 D C^%DTC + . . S ^XTMP("C0QIMMUN",0)=X_U_DT + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR + . . L -^XTMP("C0QIMMUN") + . . Q + . Q + S DIR("A")="Ready to prep more immunization orders for HL7 messages" + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 + L +^XTMP("C0QIMMUN") + I '$D(^XTMP("C0QIMMUN",0)) D + . S X1=DT,X2=365 D C^%DTC + . S ^XTMP("C0QIMMUN",0)=X_U_DT + . S ^XTMP("C0QIMMUN","LASTORDR")=0 + S ORDER=^XTMP("C0QIMMUN","LASTORDR") + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D + . S LASTORDR=ORDER + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE + . Q + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR + W !,"Done",!,"Last Order processed: ",LASTORDR,! + L -^XTMP("C0QIMMUN") + Q +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP + S NOW=$P(^OR(100,ORDER,0),U,7) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) + . Q:'$L(SUBSC) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y + . Q + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) + Q diff --git a/qrda/C0Q/branches/ohum/p/C0QMAIN.m b/qrda/C0Q/branches/ohum/p/C0QMAIN.m new file mode 100644 index 0000000..e49aafb --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QMAIN.m @@ -0,0 +1,352 @@ +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +EXPORT ; EXPORT ENTRY POINT FOR CCR + ; Select a patient. + N C0QMS,C0QM,C0QMIEN,C0QNA,C0QNORD + S C0QNORD=3 ; WE WANT DENOMINATORS USE 1 FOR NUMERATORS + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QMS=$P(Y,U,1) ; SET THE MEASURE SET + S DIC=$$C0QQFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QM=$P(Y,U,1) ; SET THE MEASURE IEN + N C0QMN S C0QMN=$P(Y,U,2) ; SET THE MEASURE NAME + S C0QMIEN=$O(^C0Q(201,C0QMS,5,"B",C0QM,"")) + S C0QNA=$NA(^C0Q(201,C0QMS,5,C0QMIEN,C0QNORD,"B")) + N ZI S ZI="" + F S ZI=$O(@C0QNA@(ZI)) Q:ZI="" D ; + . W !,ZI + . N ONAME S ONAME=C0QMN_"_"_ZI_"_CCR_V1_0_0.xml" + . D XPAT^C0CCCR(ZI,,,ONAME) ; EXPORT TO A FILE + Q + ; +NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + W !,"NUMERATOR PATIENT LIST",! + N C0QPAT + D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + Q + ; +DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + N C0QPAT + W !,"DENOMINATOR PATIENT LIST",! + D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + . ; + Q + ; +ENEXP ; EXTERNAL MENU ENTRY POINT FOR EXP + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + D EXP(MSIEN) + Q + ; +EXP(MSET,NOEX) ; EXPORT ALL PATIENTS FOR MEASURE SET IEN MSET + ; ALSO, WRITE OUT THE BY PATIENT MEASURE TEXT FILE + ; IF NOEX=1, THEN ONLY THE MEASURE TEXT FILE GETS WRITTEN, NO EXPORTS ARE + ; DONE + I '$D(NOEX) S NOEX=0 + N ZQI,ZARY,ZFN,ODIR + S ZQI="" + D PATS(.ZARY,MSET,"D",1) + S ZFN="MEASURES-BY-PATIENT.txt" + S ODIR=^TMP("C0CCCR","ODIR") ; OUTPUT DIRECTORY + S GARY=$NA(^TMP("C0Q",$J)) + K @GARY + M @GARY=ZARY + S GARY1=$NA(@GARY@(1)) + N ZY + S ZY=$$OUTPUT^C0CXPATH(GARY1,ZFN,ODIR) + W !,ZY + I NOEX=1 Q ; DO NOT EXPORT + F S ZQI=$O(ZARY(ZQI)) Q:ZQI="" D ; FOR EACH PATIENT + . D XPAT^C0CCCR(+ZARY(ZQI)) ; + Q + ; +PATS(ZRTN,MSIEN,NORD,QT) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES + ; FOR MEASURE SET MSET. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS + ; NORD="D" MEANS DENOMINATOR PATIENTS + ; QT=1 MEANS QUIET + I $G(QT)'=1 S QT=0 + N ZI,ZJ,ZK,ZIDX,ZN,ZM + S ZN=0 ; COUNT OF PATIENTS + S ZI="" + ; GOING TO USE THE NUMERATOR BY PATIENT INDEX + I '$D(NORD) S NORD="N" + I '((NORD="N")!(NORD="D")) S NORD="N" + I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP")) + E S ZIDX=$NA(^C0Q(201,"ADBYP")) + F S ZI=$O(@ZIDX@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . I $O(@ZIDX@(ZI,MSIEN,""))'="" D ; IF PATIENT IS IN THIS SET + . . I 'QT W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME + . . S ZN=ZN+1 ; INCREMENT PATIENT COUNT + . . S ZRTN(ZN)=ZI + . E Q ; NEXT PATIENT + . S (ZJ,ZK)="" + . F S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ="" D ; FOR EACH MEASURE + . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH + . . S ZK="" + . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I") + . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,! + . . S ZM=$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME + . . I 'QT W " ",ZM + . . S ZRTN(ZN)=ZRTN(ZN)_" "_ZM + Q + ; +EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + ;D C0QRPC(.G,MSIEN) + D UPDATE^C0QUPDT(.G,MSIEN) + Q + ; +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + S C0QSUM=1 + D C0QRPC(.G,MSIEN) + ; iterate over the measures + S MEASURE=0 + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D + . S NUMER=0,DENOM=0 + . ; now count the numerator patients + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER + . ; and count the denominator patients + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 + . Q:DENOM=0 + . ; and stuff the values + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) + . Q + Q + ; +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT + ; MSET IS THE NAME OR IEN OF THE MEASURE SET + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED + ;W !,"LOOKING FOR MEASURE SET ",MSET,! + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII=0 + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE + K C0QM + D CLEAN^DILF + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN + D DELIST("C0QM") + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . I C0QNL="" D ; CHECK ALTERNATE LIST + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER + . . I C0QNL'="" S C0QNALT=1 + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . I C0QDL="" D ; CHECK ALTERNATE LIST + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER + . . I C0QDL'="" S C0QDALT=1 + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! + . ; FIRST PROCESS THE NUMERATOR + . K ^TMP("DILIST",$J) + . N C0QUFN ; FILE NUMBER TO USE + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() + . E S C0QUFN=$$RLSTPFN + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") ; + . ;I $D(G) ZWR G + . K C0QNUMP + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT + . N ZJ S ZJ="" + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QNUMP("N",ZJ,ZDFN)="" + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . D ADDPATS(MSET,ZII,"C0QNUMP") + . ; NEXT PROCESS THE DENOMINATOR + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! + . K ^TMP("DILIST",$J) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() + . E S C0QUFN=$$RLSTPFN + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") + . ;I $D(G) ZWR G + . ;S ZJ="" + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT + . K C0QDEMP + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QDEMP("D",ZJ,ZDFN)="" + . D ADDPATS(MSET,ZII,"C0QDEMP") + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . ;E D ; + . ;. W "NUM CNT: ",NCNT + . ;. W " DEN CNT: ",DCNT,! + Q + ; +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE + ; MEASURE MEAS IN MEASURE SET IEN MSET + ; + N C0QFDA,MFN,MEASURE + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE + D CLEAN^DILF + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER + D CLEAN^DILF + K ZERR + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE + D UPDIE ; CREATE THE SUBFILE + Q + ; +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN + N C0QI,C0QJ + N C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) + ;W "ADDING NUMERATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + K C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) + ;W "ADDING DENOMINATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV + Q + ; +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) + ; MSET IS THE IEN OF THE MEASURE SET + ; MEAS IS THE IEN OF THE MEASURE + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED + N C0QI,C0QJ + D LIST^DIC($$C0QMMFN,","_MSET_",") + K C0QFDA + ;ZWR ^TMP("DILIST",$J,*) + ;ZWR ^TMP("DIERR",$J,*) + ;D + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS + ;AND THEIR MEASURES + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE + S ZTDESC="CREATE PATIENT LIST" + S ZTRTN="RUN^C0QMAIN" + S ZTSAVE("MSIEN")="" + S ZTIO="" + S ZTDTH=$$NOW^XLFDT + D ^%ZTLOAD + Q + ; +RUN ; DO THE REAL WORK + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date + S PATCREAT="N" ;Secure list - N=No + S PLISTPUG="N" ;Purge list after 5 years - N=No + S PXRMDPAT=0 ;Include deceased patients - N=No + S PXRMTPAT=0 ;Include test patients - N=No + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" + N ZI S ZI="" + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) + D C0QRPC(.G,MSIEN) + Q diff --git a/qrda/C0Q/branches/ohum/p/C0QMAIN2.m b/qrda/C0Q/branches/ohum/p/C0QMAIN2.m new file mode 100644 index 0000000..e00af3e --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QMAIN2.m @@ -0,0 +1,210 @@ +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 + ;;0.1;C0Q;nopatch;noreleasedate; + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE + ; +NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + W !,"NUMERATOR PATIENT LIST",! + N C0QPAT + D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . + . ; + Q + ; +DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + N C0QPAT + W !,"DENOMINATOR PATIENT LIST",! + D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + . ; + Q + ; +PATS(ZRTN,MSIEN,NORD,PAT,EFORM) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES + ; FOR MEASURE SET MSIEN. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS + ; NORD="D" MEANS DENOMINATOR PATIENTS + ; PAT IS THE IEN OF A SINGLE PATIENT FOR PROCESSING. IF PAT IS OMMITED OR "*", + ; ALL PATIENTS IN THE MEASURE SET NUM/DENOM WILL BE PROCESSED + ; EFORM=1 MEANS ZRTN IS IN "EXTERNAL FORMAT" - THIS IS FOR USE AS AN RPC + ; EXTERNAL FORMAT IS AN ARRAY OF STRINGS + ; ZRTN(x)=DFN^NAME^MEASURE IEN^MEASURE NAME + ; ONE FOR EACH MEASURE FOR EACH PATIENT IN THE NUMERATOR/DENOMINATOR + ; EFORM=0 (DEFAULT) MEANS "INTERNAL FORMAT" - THIS IS FOR MUMPS CALLS + ; ZRTN(DFN,MEASURE IEN)="" IT IS A PAIR OF POINTERS IN INDEX FORMAT + ; ONE FOR EACH MEASURE FOR EACH PATIENT IN THE NUMERATOR/DENOMINATOR + ; + N ZI,ZJ,ZK,ZIDX + S ZI="" + ; GOING TO USE THE NUMERATOR BY PATIENT INDEX + I '$D(NORD) S NORD="N" + I '((NORD="N")!(NORD="D")) S NORD="N" + I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP")) + E S ZIDX=$NA(^C0Q(201,"ADBYP")) + F S ZI=$O(@ZIDX@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . I $O(@ZIDX@(ZI,MSIEN,""))'="" D ; IF PATIENT IS IN THIS SET + . . W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME + . E Q ; NEXT PATIENT + . S (ZJ,ZK)="" + . F S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ="" D ; FOR EACH MEASURE + . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH + . . S ZK="" + . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I") + . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,! + . . W " ",$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME + Q + ; +EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + D C0QRPC(.G,MSIEN) + Q + ; +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT + ; MSET IS THE NAME OR IEN OF THE MEASURE SET + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED + W !,"LOOKING FOR MEASURE SET ",MSET,! + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII="" + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS + . W "MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME + . ; FOLLOW THE POINTERS TO THE C0Q QUALITY MEASURE FILE AND GET LIST PTRS + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE + . W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! + . ; FIRST PROCESS THE NUMERATOR + . K ^TMP("DILIST",$J) + . D LIST^DIC($$RLSTPFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") ; + . ;I $D(G) ZWR G + . K C0QNUMP + . N ZJ S ZJ="" + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QNUMP("N",ZJ,ZDFN)="" + . ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . D ADDPATS(MSET,ZII,"C0QNUMP") + . ; NEXT PROCESS THE DENOMINATOR + . W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! + . K ^TMP("DILIST",$J) + . D LIST^DIC($$RLSTPFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") + . ;I $D(G) ZWR G + . ;S ZJ="" + . K C0QDEMP + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QDEMP("D",ZJ,ZDFN)="" + . D ADDPATS(MSET,ZII,"C0QDEMP") + . ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + Q + ; +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN + N C0QI,C0QJ + N C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) + ;W "ADDING NUMERATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + K C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) + ;W "ADDING DENOMINATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV + Q + ; +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) + ; MSET IS THE IEN OF THE MEASURE SET + ; MEAS IS THE IEN OF THE MEASURE + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED + N C0QI,C0QJ + D LIST^DIC($$C0QMMFN,","_MSET_",") + K C0QFDA + ZWR ^TMP("DILIST",$J,*) + ZWR ^TMP("DIERR",$J,*) + D + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) D ; + . W "ERROR",! + . ZWR ZERR + . B + K C0QFDA + Q + ; diff --git a/qrda/C0Q/branches/ohum/p/C0QPQRI.m b/qrda/C0Q/branches/ohum/p/C0QPQRI.m new file mode 100644 index 0000000..5b2f556 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QPQRI.m @@ -0,0 +1,180 @@ +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 + ;;0.1;C0C;nopatch;noreleasedate;Build 19 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE + ; +EN ; + ; lets try some hard coded values for now + N C0QVAR + ; + ; first, the values that occur only once for the file + ; + S C0QVAR("create-by")="RegistryA" + S C0QVAR("create-date")="12-10-2010" + S C0QVAR("create-time")="14:27" + S C0QVAR("file-number")=1 + S C0QVAR("number-of-files")=9 + S C0QVAR("version")="1.0" + ; + ; registry values + ; + S C0QVAR("registry-id")=125789123 + S C0QVAR("registry-name")="Model Registry" + S C0QVAR("submission-method")="C" + ; + ; values for each provider + ; + S C0QVAR("npi")=12011989 + S C0QVAR("tin")=387682321 + S C0QVAR("waiver-signed")="Y" + S C0QVAR("encounter-from-date")="06-13-2010" + S C0QVAR("encounter-to-date")="12-10-2010" + ; + ; values for each measure group + ; + S C0QVAR("ffs-patient-count")=2 + S C0QVAR("group-eligible-instances")=30 + S C0QVAR("group-reporting-rate")=66.67 + S C0QVAR("group-reporting-rate-numerator")=20 + ; + ; for each measure + ; + S C0QVAR("pqri-measure-number")=128 + S C0QVAR("eligible-instances")=100 + S C0QVAR("meets-performance-instances")=18 + S C0QVAR("performance-exclusion-instances")=0 + S C0QVAR("performance-not-met-instances")=10 + S C0QVAR("performance-rate")="90.00" + S C0QVAR("reporting-rate")="28.00" + ; + ; + N ZG,ZV + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML + D MEA("GG","GGG") ; GET THE MEASURES + N GB ; BUILD LIST + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML + N ZI S ZI=0 + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML + . W !,GZO(ZI) ; WRITE OUT THE XML + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) + K @GN + K ZO(0) ; GET RID OF LINE COUNT + M @GN=GZO + S GN1=$NA(@GN@(1)) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) + K @GN ; DONT NEED IT ANYMORE + Q + ; +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY + ; + ;N GGG + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML + Q + ; +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE + ; + N ZG + S ZG=$NA(^TMP("PQRIXML",$J)) + K @ZG + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML + N C0CDOCID + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 + Q + ; +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML + ; ZRTN IS PASSED BY REFERENCE + ; ZXML IS PASSED BY NAME + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED + ; + N ZG + S ZG=$NA(^TMP("C0CXML",$J)) + K @ZG + M @ZG=@ZXML + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 + Q + ; +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY + ; + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET + ;N GPL + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") + N ZI S ZI="" + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) + . N ZMIEN,ZMEAIEN,ZRNAME + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) + . N ZNUM,ZDEM,ZPCT + . S (ZNUM,ZDEM,ZPCT)=0 + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) + . S @RTN@(ZI,"ien")=ZI + ;ZWR GPL + Q + ; +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY + ; + D GETFM(ZIN) ; GET THE MEASURES + ;N G + ;N ZI,ZJ + S ZI="" + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; + . N ZDEN,ZNUM,ZPCT + . S ZDEN=$G(@ZIN@(ZI,"denominator")) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) + . S ZPCT=$G(@ZIN@(ZI,"percent")) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM + . S G("pqri-measure",ZI,"performance-rate")=ZPCT + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT + K ^TMP("MXMLDOM",$J) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) + Q + ; diff --git a/qrda/C0Q/branches/ohum/p/C0QPRML.m b/qrda/C0Q/branches/ohum/p/C0QPRML.m new file mode 100644 index 0000000..588fc91 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QPRML.m @@ -0,0 +1,393 @@ +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 19 + ; + ;2011 Zach Gonzales - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + S C0QLIST("HasDemographics")="" + S C0QLIST("Patient")="" + S C0QLIST("HasProblem")="" + S C0QLIST("HasAllergy")="" + S C0QLIST("HasMed")="" + S C0QLIST("HasVitalSigns")="" + S C0QLIST("HasMedOrders")="" + S C0QLIST("HasSmokingStatus")="" + D ALL ; all currently admitted patients in the hospital + D DIS ; all patients discharged since the reporting period began + I C0QSS ZWR GRSLT + I C0QPL D ; + . D FILE ; FILE THE PATIENT LISTS + . D UPDATE^C0QUPDT(.G,8) ; UPDATE THE MU MEASUREMENT SET + Q + ; +ALL ;retrieve active inpatients + N WARD S WARD="" + F D Q:WARD="" + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name + . Q:WARD="" + . N WIEN S WIEN="" + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name + . . N DFN,RB S DFN="" + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward + . . . D DEMO + . . . D PROBLEM + . . . D ALLERGY + . . . D MEDS + . . . D SMOKING + . . . D VITALS + . . . I C0QPR D PRINT + . . . I C0QSS D SS + . . . I C0QPL D PATLIST + Q + ; +DEMO ; patient demographics + S PTNAME=$P(^DPT(DFN,0),U) ;patient name + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + S PTHRN=$P($G(VA("PID")),U) ;health record number + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + S RACE="" + F D Q:RACE="" + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN + . Q:'RACE + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description + S ETHN="" + F D Q:ETHN="" + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN + . Q:'ETHN + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed + Q + ; +PROBLEM ; PATIENT PROBLEMS + D LIST^ORQQPL(.PROBL,DFN,"A") + S PBCNT="" + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + K PROBL + Q + ; +ALLERGY ; ALLERGY LIST + D LIST^ORQQAL(.ALRGYL,DFN) + S ALCNT="" + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + K ALRGYL + Q + ; +MEDS ; MEDICATIONS + ; + I DFN=97 D Q ; + . S MDCNT=271 + K MEDSL + D EN^C0CNHIN(.MEDSL,DFN,"MED;") ; GET THE MEDS FROM THE NHIN API + ; can't use COVER^ORWPS even though it's fast.. we need to detect + ; if the medications are Inpatient to compute the CPOE measure + ; we will use the NHINV routines for this purpose + ;D COVER^ORWPS(.MEDSL,DFN) + S MDCNT="" S HASINP=0 + F S MDCNT=$O(MEDSL("med",MDCNT)) Q:MDCNT="" D + . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + . Q:MEDSL("med",MDCNT,"status@value")'="active" + . ;S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + . S MDDESC=$G(MEDSL("med",MDCNT,"products.product@name")) + . ;S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + . S MDITEM=$G(MEDSL("med",MDCNT,"sig")) ; i think this is what meditem is + . I MEDSL("med",MDCNT,"vaType@value")="I" S HASINP=1 + I HASINP D ; THE PATIENT HAS AN INPATIENT MED + . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE + E S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient + K MEDSL + Q + ; +SMOKING ; + N C0QSMOKE + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE + ; PATIENT IN THE CATEGORY OF TOBACCO + I $D(C0QSMOKE) S C0QLIST("HasSmokingStatus",DFN)="" + E S C0QLIST("NoSmokingStatus",DFN)="" + Q + ; +VITALS ; + ; + N C0QSDT,C0QEDT + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS + I $D(VITRSLT) D ;ZWR VITRSLT B ; + . I VITRSLT(1)["No vitals found." S C0QLIST("NoVitalSigns",DFN)="" + . E S C0QLIST("HasVitalSigns",DFN)="" + Q + ; +PRINT ; PRINT TO SCREEN + + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " + I $D(EXDTE) D ; + . W !,"Discharge Date: ",EXDTE + . W !,DFN," ",PTNAME + W !,"DOB: ",PTDOB," HRN: ",PTHRN + W !,"Language Spoken: ",$G(PTLANG) + W !,"Race: ",RACEDSC + W !,"Ethnicity: ",$G(ETHNDSC) + W !,"Problems: " + W !,PBDESC + W !,"Allergies: " + W !,ALDESC + W !,"Medications: " + W ! + Q + ; +SS ; CREATE SPREADSHEET ARRAY + S G1("Patient")=DFN + I $D(WARD) D ; + . S G1("WardName")=WARDNAME + . S G1("RoomAndBed")=RB + I $D(EXDTE) D ; + . S G1("DischargeDate")=EXDTE + S G1("PatientName")=PTNAME + S G1("Gender")=PTSEX + S G1("DateOfBirth")=PTDOB + S G1("HealthRecordNumber")=PTHRN + S G1("LanguageSpoken")=$G(PTLANG) + S G1("Race")=RACEDSC + S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S G1("HasProblem")=0 + E S G1("HasProblem")=1 + S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S G1("HasAllergy")=0 + E S G1("HasAllergy")=1 + I $D(MDITEM) D ; + . S G1("HasMed")=1 + E S G1("HasMed")=0 + S G1("MedDescription")=$G(MDDESC) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC + D RNF1TO2B^C0CRNF("GRSLT","G1") + K G1 + Q ; DON'T WANT TO DO THE NHIN STUFF NOW + ; +PATLIST ; CREATE PATIENT LISTS + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + I DEMOYN S C0QLIST("HasDemographics",DFN)="" + E S C0QLIST("FailedDemographics",DFN)="" + ;S G1("Gender")=PTSEX + ;S G1("DateOfBirth")=PTDOB + ;S G1("HealthRecordNumber")=PTHRN + ;S G1("LanguageSpoken")=$G(PTLANG) + ;S G1("Race")=RACEDSC + ;S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" + E S C0QLIST("HasProblem",DFN)="" + ;S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" + E S C0QLIST("HasAllergy",DFN)="" + I $D(MDITEM) D ; + . S C0QLIST("HasMed",DFN)="" + E S G1("NoMed",DFN)="" + ;S G1("MedDescription")=$G(MDDESC) + Q + ; +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT + Q:DFN=137!14 + D EN^C0CNHIN(.G,DFN,"") + ZWR G + K G + ; + QUIT ;end of WARD + ; + ; +DIS; + N DFN,DTE,EXDTE S DTE="" + F D Q:DTE="" + . S DTE=$O(^DGPM("B",DTE)) + . Q:'DTE + . Q:DTE<3110703 + . S EXDTE=$$FMTE^XLFDT(DTE) + . N PTFM S PTFM="" + . D + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) + . . Q:'PTFM + . . S DFN=$P(^DGPM(PTFM,0),U,3) + . . D DEMO + . . D PROBLEM + . . D ALLERGY + . . D MEDS + . . D SMOKING + . . D VITALS + . . I C0QPR D PRINT + . . I C0QSS D SS + . . I C0QPL D PATLIST + Q + ; +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST + ; + I '$D(C0QLIST) Q ; + N LFN S LFN=$$C0QALFN() + N ZI,ZN + S ZI="" + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) + . I ZN="" D Q ; OOPS + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN + . N C0QNEW,C0QOLD,C0QRSLT + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW + . N ZJ,ZK + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST + . K C0QFDA + . S ZJ="" + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" + . . . B + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS + . ; SECOND, PROCESS THE ADDITIONS + . K C0QFDA + . S ZJ="" S ZK=1 + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ + . . S ZK=ZK+1 + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS + ;. Q + ;. K C0QFDA + ;. N ZJ,ZC + ;. S ZJ="" S ZC=1 + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ + ;. . S ZC=ZC+1 + ;. D UPDIE + ;. W !,"FOUND:"_ZI + Q + ; +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE + ; + N C0QFDA,ZFN,LIST,ATTR + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE + D CLEAN^DILF + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE + D CLEAN^DILF + K ZERR + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE + D UPDIE ; CREATE THE SUBFILE + N ZR ; NEW IEN FOR THE RECORD + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) + ; + Q ZR + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + ;. . S RACE="" + ;. . F D Q:RACE="" + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) + ;. . . Q:'RACE + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) + ;. . N ETHNDSC + ;. . N ETHNDSC S ETHNDSC="" + ;. . S ETHN="" + ;. . F D Q:ETHN="" + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) + ;. . . Q:'ETHN + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") + ;. . S PBCNT="" + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + ;. . K PROBL + ;. . D LIST^ORQQAL(.ALRGYL,DFN) + ;. . S ALCNT="" + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + ;. . K ALRGYL + ;. . D COVER^ORWPS(.MEDSL,DFN) + ;. . S MDCNT="" + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + ;. . K MEDSL + ;. . W !,"Discharge Date: ",EXDTE + ;. . W !,DFN," ",PTNAME + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN + ;. . W !,"Language Spoken: ",$G(PTLANG) + ;. . W !,"Race: ",RACEDSC + ;. . W !,"Ethnicity: ",ETHNDSC + ;. . W !,"Problems: " + ;. . W !,PBDESC + ;. . W !,"Allergies: " + ;. . W !,ALDESC + ;. . W !,"Medications: " + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC + ;. . W ! + ;Q + ; + ; + ; + ; +END ;end of C0QPRML; diff --git a/qrda/C0Q/branches/ohum/p/C0QSET.m b/qrda/C0Q/branches/ohum/p/C0QSET.m new file mode 100644 index 0000000..8162369 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QSET.m @@ -0,0 +1,115 @@ +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 19 + ; + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +TEST ; TEST OF UNITY ROUTINE + ; + S A(1)="" + S A(2)="" + S A(3)="" + S B(3)="" + S B(4)="" + D UNITY("C","A","B") + ZWR C + Q + ; +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? + S PATS=$NA(^DPT) + S MEDS=$NA(^PS(55)) + D UNITY("DELTA",PATS,MEDS) + W !,"PATIENTS WITH NO MEDS",! + ZWR DELTA(0,*) + W !,"BAD POINTERS IN THE MEDS FILE",! + ZWR DELTA(2,*) + Q + ; +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME + ; FORMAT OF RETURN ARRAY: + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY + N C0QD ; TEMP WORK ARRAY + N ZN S ZN=0 ; COUNT + N ZI S ZI=0 + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW + . S ZN=ZN+1 + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT + S ZI=0 + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED + S ZI=0 + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY + Q + ; +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME + ; FORMAT OF RETURN ARRAY: + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY + N C0QD ; TEMP WORK ARRAY + N ZI S ZI="" + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW + S ZI="" + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED + S ZI="" + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY + Q + ; +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD + N ZD + D UNITY("ZD",ZNEW,ZOLD) + M @ZRTN=ZD(1) + Q + ; +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH + N ZD + D UNITY("ZD",ZNEW,ZOLD) + M @ZRTN=ZD(0) + M @ZRTN=ZD(2) + Q + ; +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT + N ZD + D UNITY("ZD",ZA,ZB) + M @ZRTN=ZD(0) + Q + ; +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH + N ZD + D UNITY("ZD",ZA,ZB) + M @ZRTN=ZD(0) + M @ZRTN=ZD(1) + M @ZRTN=ZD(2) + Q + ; +END ;end of C0QSET; diff --git a/qrda/C0Q/branches/ohum/p/C0QUPDT.m b/qrda/C0Q/branches/ohum/p/C0QUPDT.m new file mode 100644 index 0000000..7ac4f21 --- /dev/null +++ b/qrda/C0Q/branches/ohum/p/C0QUPDT.m @@ -0,0 +1,179 @@ +C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 19 + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; + ; +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE + ; NUMERATOR AND DENOMINATOR COUNTS + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE + ; + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING + ; + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII="" + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . I C0QNL="" D ; CHECK ALTERNATE LIST + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER + . . I C0QNL'="" S C0QNALT=1 + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . I C0QDL="" D ; CHECK ALTERNATE LIST + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER + . . I C0QDL'="" S C0QDALT=1 + . ; + . ; FIRST PROCESS THE NUMERATOR + . ; + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES + . N C0QCNT + . S C0QNCNT=$G(C0QRSLT("COUNT")) + . I C0QNCNT="" D ; + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO + . . N GZZ S GZZ="" + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY + . . . S C0QNCNT=C0QNCNT+1 + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY + . . . S C0QNCNT=C0QNCNT+1 + . K C0QFDA ; CLEAR THE FDA + . N C0QONCNT ; OLD COUNT + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT + . . D UPDIE ; UPDATE THE NUMERATOR COUNT + . I $D(C0QRSLT) D ;B ; + . . ;ZWR C0QRSLT + . ; FIRST PROCESS DELETIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZIEN S ZG="" + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY + . . I ZIEN="" D Q ; OOPS + . . . W !,"ERROR DELETING ENTRY!! ",ZG + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; SECOND, PROCESS ADDITIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZC S ZG="" S ZC=1 + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY + . . S ZC=ZC+1 + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; + . ; PROCESS THE DENOMINATOR + . ; + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES + . N C0QDCNT + . S C0QDCNT=$G(C0QRSLT("COUNT")) + . I C0QDCNT="" D ; + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO + . . N GZZ S GZZ="" + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY + . . . S C0QDCNT=C0QDCNT+1 + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY + . . . S C0QDCNT=C0QDCNT+1 + . K C0QFDA ; CLEAR THE FDA + . N C0QODCNT ; OLD COUNT + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT + . I $D(C0QRSLT) D ;B ; + . . ;ZWR C0QRSLT + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE + . ; FIRST PROCESS DELETIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZIEN S ZG="" + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY + . . I ZIEN="" D Q ; OOPS + . . . W !,"ERROR DELETING ENTRY!! ",ZG + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; SECOND, PROCESS ADDITIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZC S ZG="" S ZC=1 + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY + . . S ZC=ZC+1 + . I $D(C0QFDA) D UPDIE ; PROCESS + . N C0QPCT ; PERCENT + . I C0QDCNT>0 D ; + . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) + . . K C0QFDA + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT + . . D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV + . ;S @RTN@("B",IV,ZIEN)=EV + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + ZWR C0QFDA + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QERTIM.m b/qrda/C0Q/branches/recon/C0QERTIM.m new file mode 100644 index 0000000..dc6b205 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QERTIM.m @@ -0,0 +1,58 @@ +C0QERTIM ; Time from admission to leaving a hospital location ; + ;;0.1;C0Q;;;Build 26 +EN ;Get Location + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT + S LOCATION=+Y + ;Start date + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y + ;End date + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y + ;select device: + S %ZIS="Q" D ^%ZIS G EXIT:POP + I $D(IO("Q")) D G EXIT + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") + . Q +DQ ; Get down to business + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. + ;^DGPT("AF",date/time,DA) + S PATCOUNT=0,ADMITIME=START + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D + . Q:ADMITIME>STOP + . ;FMIN from ADMISSION DATE piece 2 + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") + . . . I FMINDAY'=FMOUTDAY D + . . . . S DIFFDAY=FMOUTDAY-FMINDAY + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") + . . . . Q + . . . S PATCOUNT=PATCOUNT+1 + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) + . . . Q + . . Q + . Q + U IO W @IOF + ;list median time from Admission to leaving hospital LOCATION + S MID=$P(PATCOUNT/2,"."),SUM=0 + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID + . Q + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) + ;list patient and time from admission to leaving the location + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +EXIT ; DO CLEANUP + S:$D(ZTQUEUED) ZTREQ="@" + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) + Q + diff --git a/qrda/C0Q/branches/recon/C0QGMRAD.m b/qrda/C0Q/branches/recon/C0QGMRAD.m new file mode 100644 index 0000000..6df04e8 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QGMRAD.m @@ -0,0 +1,118 @@ +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 + ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 26 +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA + ;INPUT VARIABLES: + ; + ; DFN Pointer to Patient file. + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL + ; where A = 0 return all reactions (allergic/non-allergic). + ; 1 return allergies only. + ; 2 return non-allergies only. + ; B = 0 return all data (verified or non-verified). + ; 1 return only verified data. + ; 2 return only non-verified data. + ; C = X_Y_Z + ; where X, Y, and Z are either 0 or 1. 1 would mean to + ; return an Adverse Reaction of that particular type, + ; and zero means do not return an Adverse Reaction of + ; that type. + ; X is for TYPE=OTHER + ; Y is for TYPE=FOOD + ; Z is for TYPE=DRUG. + ; E.g., 001 (return drug only), 111 (returns all types), + ; and 010 (returns food only). + ; **LOCAL + ; D = 0 return both Observed and Historical + ; 1 return only Observed + ; **LOCAL + ;OUTPUT VARIABLES: + ; GMRAL = 1 if patient has Adverse Reaction + ; 0 if patient has no known Adverse Reaction + ; null if patient has not been asked about Adverse Reaction + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I + ; where A = Pointer to Patient file. + ; B = Free text of causative agent. + ; *C = Type of reaction, where D is drug, F is food, and O is + ; other. + ; D = 1 if Adverse Reaction has been verified + ; 0 if Adverse Reaction has not been verified + ; E = 0 if this is an allergic reaction + ; 1 if this is not an allergic reaction + ; **F = the mechanism of reaction in the format: + ; External format;Internal format + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). + ; G = Type of reaction. + ; where D = drug + ; DF = drug/food + ; DFO = drug/food/other + ; DO = drug/other + ; F = food + ; FO = food/other + ; O = other + ; H = the mechanism of reaction in the format: + ; External format;Internal format + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) + ; I = IEN and Global root of reactant (stored in piece B above) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT + ; ALLERGY file (#120.8) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S + ; where COUNT = number 1 to number of signs/symptoms for this + ; reaction. + ; S = a sign/symptom for this reaction in the format: + ; External format;Internal format + ; + ;* NOTE: This piece will no longer be supported after 9/1/97, + ; Please use piece G. + ;** NOTE: This piece will no longer be supported after 9/1/97, + ; Please use piece H. + ; + N GMRAOTH + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +DPT ; + ;Read NKA Node in file 120.86 + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) + ;Do not set GMRAL array if patient is unassessed or NKA. + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT + Q +SETAL ; + N %,GMRAI,GMRASIGN + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL + I '$P(GMRA,"^") S GMRAI=1 + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET + D PASS(GMRAREC,.GMRAL) + Q +PASS(GMRAREC,GMRAL) ; Data filer + ; This subroutine will store all the patient date for a reaction is an + ; array. + ; Input: + ; GMRAREC = The IEN for the entry in 120.8 + ;Output: + ; GMRAL(GMRAREC) the array entry for the record + ; + N GMRANODE + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" + S %=$P(GMRANODE,"^",14) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) + .Q + K GMRAX,GMRAY,GMRAZ + Q diff --git a/qrda/C0Q/branches/recon/C0QGMTSA.m b/qrda/C0Q/branches/recon/C0QGMTSA.m new file mode 100644 index 0000000..0d98317 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QGMTSA.m @@ -0,0 +1,26 @@ +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 + ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 26 + ; + ; External References + ; DBIA 10096 ^%ZOSF("TEST" + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD + ; +ALLRG ; Allergies + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") + I $T D Q:$D(GMTSQIT) + . D GETALLRG I ALLRG D + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP + Q +ALLRGP ; Allergy Print + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +GETALLRG ; Get Allergies + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q + Q diff --git a/qrda/C0Q/branches/recon/C0QGMTSG.m b/qrda/C0Q/branches/recon/C0QGMTSG.m new file mode 100644 index 0000000..e58ed3c --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QGMTSG.m @@ -0,0 +1,101 @@ +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 + ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 26 + ; + ; External References + ; DBIA 10096 ^%ZOSF("TEST" + ; DBIA 10035 ^DPT( + ; DBIA 905 ^GMR(120.8 + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) + ; DBIA 10011 ^DIWP + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD + ; DBIA 10060 ^VA(200, + ; DBIA 3449 ^GMR(120.86, + ; +ALLRG ; Allergies + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" + S X="C0QGMRAD" X ^%ZOSF("TEST") + I $T D Q:$D(GMTSQIT) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA + I 'ALLRG,'$L($G(GMTSALAS)) D + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT + Q +ALLRGP ; Allergy Print + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D + .... I GMTSAV=1 W " (AV" + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 + ..... S MX=MX+1 + ..... W:MX>1 ", " + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q + ..... S ALL=1 W N + .... D SIGBLK($P(GMTSAFN,U,5)) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT + Q +NKA ; No known allergies + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! + Q +GETALLRG ; Get Allergies + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q + I $D(GMRAL)>9 D + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) + .. S ALLRG=1 + Q +ALLAS ; Allergy Assessment + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" + Q +AUTOV ; Autoverify + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 + Q +TITLE ; Print title + D CKP^GMTSUP Q:$D(GMTSQIT) + I $D(GMTSPNF) W ?21,TITLE,! + E W ?21,"Title: ",TITLE,! + Q +TEXT ; Setup for print of allergy comments + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) + K ^UTILITY($J,"W") + Q:'GMTSLN + W ! Q +FORMAT ; Formats each line + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP + Q +LINE ; Writes formatted lines of text + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) + Q +SIGBLK(GMTSALF) ; Signature block + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST + Q diff --git a/qrda/C0Q/branches/recon/C0QHF.m b/qrda/C0Q/branches/recon/C0QHF.m new file mode 100644 index 0000000..d45512a --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QHF.m @@ -0,0 +1,91 @@ +C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 26 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; + ; these routines are for quick lookups on HEALTH FACTOR and V HEALTH FACTOR + ; files... + ; + ; from the DD: + ;STANDARD DATA DICTIONARY #9000010.23 -- V HEALTH FACTORS FILE + ;STORED IN ^AUPNVHF( (6744 ENTRIES) + ;CROSS REFERENCED BY: PATIENT NAME(AATOO), HEALTH FACTOR(AATOO1), VISIT(AD), + ; VISIT(AV10), HEALTH FACTOR(B), PATIENT NAME(C) + ; + ;STANDARD DATA DICTIONARY #9999999.64 -- HEALTH FACTORS FILE + ;STORED IN ^AUTTHF( (8656 ENTRIES) + ;CROSS REFERENCED BY: CATEGORY(AC), ENTRY TYPE(AD), FACTOR(B), SYNONYM(D) + ; +HFYN(DFN,C0QHF) ; EXTRINSIC RETURNS 1 (YES) OR 0 (NO) IF A PATIENT + ; HAS A HEALTH FACTOR + N ZI,ZJ,ZR + S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN + I ZI="" D Q 0 ; + . W !,"BAD HEALTH FACTOR: ",C0QHF + I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1 + E S ZR=0 + Q ZR + ; +HFIEN(ZHF) ; EXTRINSIC RETURNS THE IEN OF THE HEALTHFACTOR + N ZI + S ZI=$O(^AUTTHF("B",ZHF,"")) ; HEALTH FACTOR IEN + Q ZI + ; +VHFIEN(DFN,ZHF) ; EXTRINSIC RETURNS THE LAST IEN OF THIS HEALTH FACTOR + ; FOR THE PATIENT + N ZG,ZJ,ZK + S ZG=$$HFIEN(ZHF) + I ZG="" Q ; OPPS HEALTH FACTOR NOT FOUND + S ZJ=$O(^AUPNVHF("AA",DFN,ZG,""),-1) ;DATE + S ZK=$O(^AUPNVHF("AA",DFN,ZG,ZJ,"")) ;IEN + Q ZK + ; +HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY + ; RTN IS PASSED BY REFERENCE AND RETURNS AN ARRAY OF HEALTH FACTORS + ; THAT THE PATIENT HAS IN THE CATEGORY. RETURNS NULL IF NONE + ; FORMAT RNT(HEALTH FACTOR IEN,HEALTH FACTOR NAME)="" + N ZI + S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN + N C0QN,C0QO,C0QR + S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS + S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; THE DIFFERENCE + K RTN ; CLEAR THE RETURN ARRAY + N ZJ S ZJ="" + F S ZJ=$O(C0QR(1,ZJ)) Q:ZJ="" D ; FOR ALL HEALTH FACTOR MATCHES + . S RTN(ZJ,$P(^AUTTHF(ZJ,0),"^",1))="" + Q + ; +HFLCAT(RTN,C0QHFCAT) ; RETURNS A LIST OF PATIENTS WHO HAVE A HEALTH FACTOR + ; IN THE C0QHFCAT CATEGORY. RTN IS PASSED BY REFERENCE + ; THIS WILL BE HARD TO DO WITHOUT SOME NEW INDEXES + Q + ; +HFLPAT(RTN,C0QHF) ; RETURNS A LIST OF PATIENTS WHO HAVE A SPECIFIC HEALTH + ; FACTOR. RTN IS PASSED BY REFERENCE + ; THIS ONE ALSO WILL BE HARD TO DO QUICKLY WITHOUT A NEW INDEX + Q + ; +INDEXES(DDREF) ;PRINT THE INDEXES ACTUALLY ON FILE DDREF + ; IE D INDEXES($NA(^DD)) + N ZI + S ZI="A" + F S ZI=$O(@DDREF@(ZI)) Q:ZI="" W !,ZI + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QIMMUN.m b/qrda/C0Q/branches/recon/C0QIMMUN.m new file mode 100644 index 0000000..2d6987f --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QIMMUN.m @@ -0,0 +1,52 @@ +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; + ;;0.1;C0Q;nopatch;noreleasedate;Build 26 + ; ^XTMP("C0QIMMUN",0)=purge date^create date + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +FIND ; Find the next set of immunization orders + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR + S DIR("A")="Do you want to reset that value" + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 + . S DIR("A")="What value shall be used?" + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR + . W:Y'>0 !,"We'll skip reseting it then." + . D:Y>0 + . . S LASTORDR=+Y + . . L +^XTMP("C0QIMMUN") + . . S X1=DT,X2=365 D C^%DTC + . . S ^XTMP("C0QIMMUN",0)=X_U_DT + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR + . . L -^XTMP("C0QIMMUN") + . . Q + . Q + S DIR("A")="Ready to prep more immunization orders for HL7 messages" + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 + L +^XTMP("C0QIMMUN") + I '$D(^XTMP("C0QIMMUN",0)) D + . S X1=DT,X2=365 D C^%DTC + . S ^XTMP("C0QIMMUN",0)=X_U_DT + . S ^XTMP("C0QIMMUN","LASTORDR")=0 + S ORDER=^XTMP("C0QIMMUN","LASTORDR") + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D + . S LASTORDR=ORDER + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE + . Q + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR + W !,"Done",!,"Last Order processed: ",LASTORDR,! + L -^XTMP("C0QIMMUN") + Q +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP + S NOW=$P(^OR(100,ORDER,0),U,7) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) + . Q:'$L(SUBSC) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y + . Q + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) + Q diff --git a/qrda/C0Q/branches/recon/C0QINIT.m b/qrda/C0Q/branches/recon/C0QINIT.m new file mode 100644 index 0000000..280f905 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QINIT.m @@ -0,0 +1,72 @@ +C0QINIT ; GPL - Quality Reporting Initialization Routines ;12/01/11 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 26 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; + ; +COPYQ ; INTERACTIVE COPY OF A QUALITY MEASURE + N FN + S FN=$$C0QQFN + S DIC=FN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QIEN=$P(Y,U) + ;N G,ZWP + D GETS^DIQ(FN,C0QIEN,"**","EI","G") + M ZWP=G(FN,C0QIEN_",",.61) + ; GET READY TO CREATE THE NEW COPY + ; FIRST FIND OUT THE NEW NAME + N QNAME + S QNAME=G(FN,C0QIEN_",",.01,"E") + S DIR(0)="F^3:240" + S DIR("A")="New Measure Name" + S DIR("B")=QNAME + D ^DIR + I Y="^" Q ; + N QNEW + S QNEW=Y + K C0QFDA + N ZI S ZI="" + F S ZI=$O(G(FN,C0QIEN_",",ZI)) Q:ZI="" D ; FOR EACH FIELD + . I ZI=.01 D Q ; THE NEW NAME + . . S C0QFDA(FN,"+1,",.01)=QNEW ; NEW MEASURE NAME + . I ZI=3.1 Q ; SKIP THE COMPUTED FIELD + . S C0QFDA(FN,"+1,",ZI)=G(FN,C0QIEN_",",ZI,"I") + D UPDIE ; CREATE THE NEW RECORD + S DIE=$$C0QQFN ; GET READY TO EDIT IT + D EN^DIB ; EDIT THE NEW RECORD + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + ZWR C0QFDA + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, + ; INVOKE THE ERROR TRAP IF TASKED + K C0QFDA + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QMAIN.m b/qrda/C0Q/branches/recon/C0QMAIN.m new file mode 100644 index 0000000..38b0508 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QMAIN.m @@ -0,0 +1,356 @@ +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 26 + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +EXPORT ; EXPORT ENTRY POINT FOR CCR + ; Select a patient. + N C0QMS,C0QM,C0QMIEN,C0QNA,C0QNORD + S C0QNORD=3 ; WE WANT DENOMINATORS USE 1 FOR NUMERATORS + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QMS=$P(Y,U,1) ; SET THE MEASURE SET + S DIC=$$C0QQFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QM=$P(Y,U,1) ; SET THE MEASURE IEN + N C0QMN S C0QMN=$P(Y,U,2) ; SET THE MEASURE NAME + S C0QMIEN=$O(^C0Q(201,C0QMS,5,"B",C0QM,"")) + S C0QNA=$NA(^C0Q(201,C0QMS,5,C0QMIEN,C0QNORD,"B")) + N ZI S ZI="" + F S ZI=$O(@C0QNA@(ZI)) Q:ZI="" D ; + . W !,ZI + . N ONAME S ONAME=C0QMN_"_"_ZI_"_CCR_V1_0_0.xml" + . D XPAT^C0CCCR(ZI,,,ONAME) ; EXPORT TO A FILE + Q + ; +NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + W !,"NUMERATOR PATIENT LIST",! + N C0QPAT + D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + Q + ; +DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + N C0QPAT + W !,"DENOMINATOR PATIENT LIST",! + D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + . ; + Q + ; +ENEXP ; EXTERNAL MENU ENTRY POINT FOR EXP + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + D EXP(MSIEN) + Q + ; +EXP(MSET,NOEX) ; EXPORT ALL PATIENTS FOR MEASURE SET IEN MSET + ; ALSO, WRITE OUT THE BY PATIENT MEASURE TEXT FILE + ; IF NOEX=1, THEN ONLY THE MEASURE TEXT FILE GETS WRITTEN, NO EXPORTS ARE + ; DONE + I '$D(NOEX) S NOEX=0 + N ZQI,ZARY,ZFN,ODIR + S ZQI="" + D PATS(.ZARY,MSET,"D",1) + S ZFN="MEASURES-BY-PATIENT.txt" + S ODIR=^TMP("C0CCCR","ODIR") ; OUTPUT DIRECTORY + S GARY=$NA(^TMP("C0Q",$J)) + K @GARY + M @GARY=ZARY + S GARY1=$NA(@GARY@(1)) + N ZY + S ZY=$$OUTPUT^C0CXPATH(GARY1,ZFN,ODIR) + W !,ZY + I NOEX=1 Q ; DO NOT EXPORT + F S ZQI=$O(ZARY(ZQI)) Q:ZQI="" D ; FOR EACH PATIENT + . D XPAT^C0CCCR(+ZARY(ZQI)) ; + Q + ; +PATS(ZRTN,MSIEN,NORD,QT) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES + ; FOR MEASURE SET MSET. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS + ; NORD="D" MEANS DENOMINATOR PATIENTS + ; QT=1 MEANS QUIET + I $G(QT)'=1 S QT=0 + N ZI,ZJ,ZK,ZIDX,ZN,ZM + S ZN=0 ; COUNT OF PATIENTS + S ZI="" + ; GOING TO USE THE NUMERATOR BY PATIENT INDEX + I '$D(NORD) S NORD="N" + I '((NORD="N")!(NORD="D")) S NORD="N" + I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP")) + E S ZIDX=$NA(^C0Q(201,"ADBYP")) + F S ZI=$O(@ZIDX@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . I $O(@ZIDX@(ZI,MSIEN,""))'="" D ; IF PATIENT IS IN THIS SET + . . I 'QT W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME + . . S ZN=ZN+1 ; INCREMENT PATIENT COUNT + . . S ZRTN(ZN)=ZI + . E Q ; NEXT PATIENT + . S (ZJ,ZK)="" + . F S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ="" D ; FOR EACH MEASURE + . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH + . . S ZK="" + . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I") + . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,! + . . S ZM=$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME + . . I 'QT W " ",ZM + . . S ZRTN(ZN)=ZRTN(ZN)_" "_ZM + Q + ; +EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + ;D C0QRPC(.G,MSIEN) + D UPDATE^C0QUPDT(.G,MSIEN) + Q + ; +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + ; changed by gpl to call the new UPDATE^C0QUPDT routine instead + D UPDATE^C0QUPDT(.G,MSIEN) + Q + ; end gpl change + S C0QSUM=1 + D C0QRPC(.G,MSIEN) + ; iterate over the measures + S MEASURE=0 + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D + . S NUMER=0,DENOM=0 + . ; now count the numerator patients + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER + . ; and count the denominator patients + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 + . Q:DENOM=0 + . ; and stuff the values + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) + . Q + Q + ; +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT + ; MSET IS THE NAME OR IEN OF THE MEASURE SET + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED + ;W !,"LOOKING FOR MEASURE SET ",MSET,! + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII=0 + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE + K C0QM + D CLEAN^DILF + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN + D DELIST("C0QM") + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . I C0QNL="" D ; CHECK ALTERNATE LIST + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER + . . I C0QNL'="" S C0QNALT=1 + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . I C0QDL="" D ; CHECK ALTERNATE LIST + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER + . . I C0QDL'="" S C0QDALT=1 + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! + . ; FIRST PROCESS THE NUMERATOR + . K ^TMP("DILIST",$J) + . N C0QUFN ; FILE NUMBER TO USE + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() + . E S C0QUFN=$$RLSTPFN + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") ; + . ;I $D(G) ZWR G + . K C0QNUMP + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT + . N ZJ S ZJ="" + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QNUMP("N",ZJ,ZDFN)="" + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . D ADDPATS(MSET,ZII,"C0QNUMP") + . ; NEXT PROCESS THE DENOMINATOR + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! + . K ^TMP("DILIST",$J) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() + . E S C0QUFN=$$RLSTPFN + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") + . ;I $D(G) ZWR G + . ;S ZJ="" + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT + . K C0QDEMP + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QDEMP("D",ZJ,ZDFN)="" + . D ADDPATS(MSET,ZII,"C0QDEMP") + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . ;E D ; + . ;. W "NUM CNT: ",NCNT + . ;. W " DEN CNT: ",DCNT,! + Q + ; +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE + ; MEASURE MEAS IN MEASURE SET IEN MSET + ; + N C0QFDA,MFN,MEASURE + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE + D CLEAN^DILF + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER + D CLEAN^DILF + K ZERR + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE + D UPDIE ; CREATE THE SUBFILE + Q + ; +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN + N C0QI,C0QJ + N C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) + ;W "ADDING NUMERATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + K C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) + ;W "ADDING DENOMINATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV + Q + ; +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) + ; MSET IS THE IEN OF THE MEASURE SET + ; MEAS IS THE IEN OF THE MEASURE + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED + N C0QI,C0QJ + D LIST^DIC($$C0QMMFN,","_MSET_",") + K C0QFDA + ;ZWR ^TMP("DILIST",$J,*) + ;ZWR ^TMP("DIERR",$J,*) + ;D + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS + ;AND THEIR MEASURES + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE + S ZTDESC="CREATE PATIENT LIST" + S ZTRTN="RUN^C0QMAIN" + S ZTSAVE("MSIEN")="" + S ZTIO="" + S ZTDTH=$$NOW^XLFDT + D ^%ZTLOAD + Q + ; +RUN ; DO THE REAL WORK + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date + S PATCREAT="N" ;Secure list - N=No + S PLISTPUG="N" ;Purge list after 5 years - N=No + S PXRMDPAT=0 ;Include deceased patients - N=No + S PXRMTPAT=0 ;Include test patients - N=No + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" + N ZI S ZI="" + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) + D C0QRPC(.G,MSIEN) + Q diff --git a/qrda/C0Q/branches/recon/C0QMU12.m b/qrda/C0Q/branches/recon/C0QMU12.m new file mode 100644 index 0000000..5537aa4 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QMU12.m @@ -0,0 +1,1025 @@ +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 26 + ; + ;2011 Zach Gonzales - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL + ; +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS + ; ZARY IS PASSED BY NAME + ; ZTYP IS "INP" OR "EP" + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS + K @ZARY ; CLEAR RETURN ARRAY + N ZIEN,ZCNT,ZX + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE + . W !,"ERROR, NO PARAMETERS AVAILABLE" + S ZIEN="" + S ZCNT=0 + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; + . S ZCNT=ZCNT+1 + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") + . D CLEAN^DILF + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST + . . W !,"ERROR READING CLINIC PARAMETER LIST" + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) + ; + Q + ; +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + S ZYR="MU12-" + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + S C0QLIST(ZYR_"HasDemographics")="" + S C0QLIST(ZYR_"Patient")="" + S C0QLIST(ZYR_"HasProblem")="" + S C0QLIST(ZYR_"HasAllergy")="" + S C0QLIST(ZYR_"HasMed")="" + S C0QLIST(ZYR_"HasVitalSigns")="" + S C0QLIST(ZYR_"HasMedOrders")="" + S C0QLIST(ZYR_"HasSmokingStatus")="" + D ALL ; all currently admitted patients in the hospital + D DIS ; all patients discharged since the reporting period began + I C0QSS ZWR GRSLT + D ICUPAT ; GENERATE ICU PATIENT LIST + I C0QPL D ; + . D FILE ; FILE THE PATIENT LISTS + . D UPDATE^C0QUPDT(.G,10) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR + . D UPDATE^C0QUPDT(.G,11) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR + Q + ; +BUILD2 ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + S ZYR="MU12-" + D INITCLST ; initialize C0QLIST + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + N C0QPARM + D INIT("C0QPARM","INP") ; initialize inpatient parms + I $O(C0QPARM(""))="" D Q ; no parms for inpatient + . W !,"No inpatient parameters" + N ZDIV S ZDIV="" + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division + . D ALL ; all currently admitted patients in the hospital + . D DIS ; all patients discharged since the reporting period began + . I C0QSS ZWR GRSLT + . D ICUPAT ; GENERATE ICU PATIENT LIST + . I C0QPL D ; + . . D FILE ; FILE THE PATIENT LISTS + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; + . K C0QLIST + Q + ; +INITCLST ; initialize C0QLIST + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + K C0QLIST + S C0QLIST(ZYR_"HasDemographics")="" + S C0QLIST(ZYR_"Patient")="" + S C0QLIST(ZYR_"HasProblem")="" + S C0QLIST(ZYR_"HasAllergy")="" + S C0QLIST(ZYR_"HasMed")="" + S C0QLIST(ZYR_"HasVitalSigns")="" + S C0QLIST(ZYR_"HasMedOrders")="" + S C0QLIST(ZYR_"HasSmokingStatus")="" + Q + ; +ALL ;retrieve active inpatients + N WARD S WARD="" + F D Q:WARD="" + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name + . Q:WARD="" + . N WIEN S WIEN="" + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name + . . N DFN,RB S DFN="" + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward + . . . D DEMO + . . . D PROBLEM + . . . D ALLERGY + . . . D MEDS4 + . . . D RECON2 + . . . D ADVDIR + . . . D SMOKING + . . . D VITALS + . . . D VTE1 + . . . D COD + . . . D EDTIME + . . . I C0QPR D PRINT + . . . I C0QSS D SS + . . . I C0QPL D PATLIST + Q + ; +DEMO ; patient demographics + K PTDOB + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB + S PTNAME=$P(^DPT(DFN,0),U) ;patient name + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + S PTHRN=$P($G(VA("PID")),U) ;health record number + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + S RACE="" + F D Q:RACE="" + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN + . Q:'RACE + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description + S ETHN="" + F D Q:ETHN="" + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN + . Q:'ETHN + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + I DEMOYN S C0QLIST(ZYR_"HasDemographics",DFN)="" + E S C0QLIST(ZYR_"FailedDemographics",DFN)="" + Q + ; +PROBLEM ; PATIENT PROBLEMS + D LIST^ORQQPL(.PROBL,DFN,"A") + S PBCNT="" + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" + E S C0QLIST(ZYR_"HasProblem",DFN)="" + K PROBL + Q + ; +ALLERGY ; ALLERGY LIST + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL + D LIST^ORQQAL(.ALRGYL,DFN) + S ALCNT="" + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" + E S C0QLIST(ZYR_"HasAllergy",DFN)="" + K ALRGYL + Q + ; +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 + N BEG,END + S BEG=$$DT^C0PCUR("JULY 3,2011") + S END=$$DT^C0PCUR("NOW") + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 + N C0QMEDS + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL + N FOUND + N ZI + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS + . S C0QLIST(ZYR_"NoMed",DFN)="" + E D ; HAS MEDS + . S C0QLIST(ZYR_"HasMed",DFN)="" + S ZI="" S FOUND=0 + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED + . N ZM + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE + . . S FOUND=1 + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" + Q + ; +RECON ; MEDICATIONS RECONCILIATION + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL + ; + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient + N HASRECON S HASRECON=0 + N GT,G + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON + . S HASRECON=1 + ;N ZT + ;S ZT="MEDICATION RECONCILIATION COMPLET" + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; + ;. S HASRECON=1 + ;E D ; + ;. S ZT="Medication Reconcilation Complete" + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; + ;. . S HASRECON=1 + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 + I HASRECON D ; + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +ERX ; FOR EP, WE LOOK AT ERX MEDS + N ZI S ZI="" + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; + . ;B + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; + . . S C0QLIST(ZYR_"HasMed",DFN)="" + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" + . . S C0QLIST(ZYR_"HasERX",DFN)="" + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + . E D ; + . . S C0QLIST(ZYR_"NoMed",DFN)="" + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" + . . S C0QLIST(ZYR_"NoERX",DFN)="" + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +ADVDIR ; ADVANCE DIRECTIVE + ; + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER + . S C0QLIST(ZYR_"Over65",DFN)="" + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" + . E D ; + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" + Q + ; +SMOKING ; + ; WANT TO CHANGE SMOKING STATUS CHECKING FOR 2012 TO A SIMPLE SET OF + ; HEALTH FACTORS. GPL + I $$INLIST(ZYR_"HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STAT CHECK + . S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" + . S C0QLIST(ZYR_"Over12",DFN)="" + I $$INLIST(ZYR_"NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" + . S C0QLIST(ZYR_"Over12",DFN)="" + N C0QSMOKE,C0QSYN + S C0QSYN=0 + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE + ; PATIENT IN THE CATEGORY OF TOBACCO + I $D(C0QSMOKE) S C0QSYN=1 + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - No") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - Yes") + S C0QLIST(ZYR_"Over12",DFN)="" + ;N GT + ;S GT(1,"HasSmokingStatus","SMOK")="" + ;S GT(2,"HasSmokingStatus","Smok")="" + ;S GT(3,"HasSmokingStatus","smok")="" + ;I 'C0QSYN D ; + ;. N G + ;. S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) + ;. I $D(G) S C0QSYN=1 + I C0QSYN S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" + E S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" + Q + ; +VITALS ; + ; + N C0QSDT,C0QEDT + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS + I $D(VITRSLT) D ;ZWR VITRSLT B ; + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" + Q + ; +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL + ; + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; + . S C0QLIST(ZYR_"HasVTE24",DFN)="" + E S C0QLIST(ZYR_"NoVTE24",DFN)="" + Q + ; +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" + Q + ; +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS + N FOUND + S FOUND=0 + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 + I FOUND D ; + . S C0QLIST(ZYR_"HasEDtime",DFN)="" + E S C0QLIST(ZYR_"NoEDtime",DFN)="" + Q + ; +ICUPAT ; CREATE LIST OF ICU PATIENTS + N ZICU + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION + N ZI,ZJ,ZP + S ZI="" + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE + . S ZJ="" + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" + Q + ; +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING + K C0QLIST + N ZPAT + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted + ; during the reporting period. used to filter other lists + ; + ; filter ICU patients against ZPAT + N GN,GO,GF + S GN=ZPAT + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE + ; + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + D FILE ; FILE ALL THE PATIENT LISTS + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set + Q + ; +ED1 ; + S ZYR="MU12-" + D DOTIME("ED DEPARTURE TIME") + Q + ; +ED2 ; + S ZYR="MU12-" + D DOTIME2("TIME DECISION TO ADMIT MADE") + Q + ; +DOTIME(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME + N ZP + S ZP=$$PATLN(ZYR_"HasEDtime") ; patient list name for patients to process + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS + S ZVFN=9000010 ; VISIT FILE NUMBER + K ZARY1,ZARY2 + N ZI S ZI="" + S COUNT=0 + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . S COUNT=COUNT+1 + . N ZA,ZD + . S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT + . ; THE COMMENT IS THE TIME XXYY + . N OK,TMP + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) + . S GTOT=G1-G2 + . W !,"TIME: ",GTOT," ESTIMATED" + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES + . W !,"COMPUTED MINUTES: ",ZT + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES + . . W !,"****EXCLUDED****" + . I ZT>400000 D Q ; THESE ARE ERRORS + . . W !,"****EXCLUDED****" + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS + N ZY,ZZ S ZY="" S ZZ="" + N ZCOUNT S ZCOUNT=0 + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME + . . S ZCOUNT=ZCOUNT+1 + . . S ZARY2(ZCOUNT,ZY,ZZ)="" + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY + N ZMID + S ZMID=$P(ZCOUNT/2,".") + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT + W !,"ED ARRIVAL TIME UNTIL ",ZHF + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) + Q + ; +DOTIME2(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME + N ZP + S ZP=$$PATLN(ZYR_"HasEDtime") ; patient list name for patients to process + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS + S ZVFN=9000010 ; VISIT FILE NUMBER + K ZARY1,ZARY2 + N ZI S ZI="" + S COUNT=0 + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . S COUNT=COUNT+1 + . N ZA,ZD + . ;S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . ;S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . S ZA=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . S ZD=$$VHFIEN^C0QHF(ZI,"ED DEPARTURE TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT + . ; THE COMMENT IS THE TIME XXYY + . N OK,TMP + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) + . S GTOT=G1-G2 + . W !,"TIME: ",GTOT," ESTIMATED" + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES + . W !,"COMPUTED MINUTES: ",ZT + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES + . . W !,"****EXCLUDED****" + . I ZT>400000 D Q ; THESE ARE ERRORS + . . W !,"****EXCLUDED****" + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS + N ZY,ZZ S ZY="" S ZZ="" + N ZCOUNT S ZCOUNT=0 + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME + . . S ZCOUNT=ZCOUNT+1 + . . S ZARY2(ZCOUNT,ZY,ZZ)="" + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY + N ZMID + S ZMID=$P(ZCOUNT/2,".") + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT + W !,"ED ARRIVAL TIME UNTIL ",ZHF + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) + Q + ; +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST + ; WHOSE NAME IS ZLST + N ZIEN,ZN + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST + Q ZN + ; +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH + ; THE ATTRIBUTE ZATTR + N ZIEN,ZN + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST + Q ZN + ; +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST + N ZL,ZR + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE + I ZL="" Q 0 ; LIST DOES NOT EXIST + S ZR=0 ; ASSUME NOT IN LIST + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST + Q ZR + ; + ; LOOK AT GETTING RID OF PRINT AND SS AS THEY ARE NOT BEING USED. GPL +PRINT ; PRINT TO SCREEN + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " + I $D(EXDTE) D ; + . W !,"Discharge Date: ",EXDTE + . W !,DFN," ",PTNAME + W !,"DOB: ",PTDOB," HRN: ",PTHRN + W !,"Language Spoken: ",$G(PTLANG) + W !,"Race: ",RACEDSC + W !,"Ethnicity: ",$G(ETHNDSC) + W !,"Problems: " + W !,PBDESC + W !,"Allergies: " + W !,ALDESC + W !,"Medications: " + W ! + Q + ; +SS ; CREATE SPREADSHEET ARRAY + S G1("Patient")=DFN + I $D(WARD) D ; + . S G1("WardName")=WARDNAME + . S G1("RoomAndBed")=RB + I $D(EXDTE) D ; + . S G1("DischargeDate")=EXDTE + S G1("PatientName")=PTNAME + S G1("Gender")=PTSEX + S G1("DateOfBirth")=PTDOB + S G1("HealthRecordNumber")=PTHRN + S G1("LanguageSpoken")=$G(PTLANG) + S G1("Race")=RACEDSC + S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S G1("HasProblem")=0 + E S G1("HasProblem")=1 + S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S G1("HasAllergy")=0 + E S G1("HasAllergy")=1 + I $D(MDITEM) D ; + . S G1("HasMed")=1 + E S G1("HasMed")=0 + S G1("MedDescription")=$G(MDDESC) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC + D RNF1TO2B^C0CRNF("GRSLT","G1") + K G1 + Q ; DON'T WANT TO DO THE NHIN STUFF NOW + ; +PATLIST ; CREATE PATIENT LISTS + ; WANT TO GET RID OF PATLIST AND MOVE FUNCTION TO OTHER ROUTINES. GPL + S C0QLIST(ZYR_"Patient",DFN)="" ; THE PATIENT LIST + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" + ;E S C0QLIST("FailedDemographics",DFN)="" + ;S G1("Gender")=PTSEX + ;S G1("DateOfBirth")=PTDOB + ;S G1("HealthRecordNumber")=PTHRN + ;S G1("LanguageSpoken")=$G(PTLANG) + ;S G1("Race")=RACEDSC + ;S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" + E S C0QLIST(ZYR_"HasProblem",DFN)="" + ;S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" + E S C0QLIST(ZYR_"HasAllergy",DFN)="" + ;I $D(MDITEM) D ; + ;. S C0QLIST("HasMed",DFN)="" + ;E S G1("NoMed",DFN)="" + ;S G1("MedDescription")=$G(MDDESC) + Q + ; +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT + Q:DFN=137!14 + D EN^C0CNHIN(.G,DFN,"") + ZWR G + K G + ; + QUIT ;end of WARD + ; +LOCPAT(PREFIX,LOC) ;retrieve active outpatients + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" + ; LOC IS HOSPITAL LOCATION + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION + I ULOC="" D Q ; OOPS + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC + S IDTE=9999999-DTE ; INVERSE DATE + N ZI + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE + . W !,$$FMTE^XLFDT(9999999-ZI) ;B ; + . I ZI="" Q ; + . N ZJ S ZJ="" + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT + . . S C0QLIST(PREFIX_"Patient",DFN)="" + Q + ; +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS + ; + S DTE=3111000 + S MUYR=ZYR + N ZC,ZN + S ZN=0 + N ZI S ZI=0 + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC + . S ZCIEN=ZI ; IEN OF CLINIC + . S ZN=ZN+1 ; COUNT OF CLINICS + . S PRE=MUYR_"-EP-"_ZC_"-" + . D LOCPAT(PRE,ZC) + W !,"NUMBER OF CLINICS: ",ZN + D FILE ; CREATE ALL THE EP PATIENT LISTS + Q + ; +DOEP ; DO EP COMPUTATIONS + S ZYR="MU12-" + N C0QPARM,C0QCLNC + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS + K C0QLIST ; CLEAR THE LIST + N ZI S ZI="" + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now + . S PRE=ZYR_"EP-"_C0QCLNC_"-" + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS + . I $D(DEBUG) ZWR C0QLIST + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") + S DFN="" + S ZYR=ZYR_"EP-" + F S DFN=$O(C0QLIST(ZYR_"EP-ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT + . D DEMO + . D PROBLEM + . D ALLERGY + . ;D MEDS + . D ERX + . D SMOKING + . D VITALS + D FILE ; FILE THE PATIENT LISTS + N C0QCIEN + S ZI="" + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; + . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set + . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET + Q + ; +DIS; + N DFN,DTE,EXDTE S DTE="" + F D Q:DTE="" + . S DTE=$O(^DGPM("B",DTE)) + . Q:'DTE + . ;Q:$P(DTE,".")<3110703 + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 + . S EXDTE=$$FMTE^XLFDT(DTE) + . N PTFM S PTFM="" + . D + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) + . . Q:'PTFM + . . S DFN=$P(^DGPM(PTFM,0),U,3) + . . S C0QLIST(ZYR_"Patient",DFN)="" + . . D DEMO + . . D PROBLEM + . . D ALLERGY + . . D MEDS4 + . . D RECON2 + . . D ADVDIR + . . D SMOKING + . . D VITALS + . . ;D:$P(DTE,".")>3110912 VTE1 + . . D VTE1 + . . D COD + . . D EDTIME + . . I C0QPR D PRINT + . . I C0QSS D SS + . . I C0QPL D PATLIST + Q + ; +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST + ; + I '$D(C0QLIST) Q ; + N LFN S LFN=$$C0QALFN() + N ZI,ZN + S ZI="" + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) + . I ZN="" D ; LIST NOT FOUND, CREATE IT + . . K C0QFDA + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE + . . S C0QFDA(FN,"+1,",.01)=ZI + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE + . . W !,"CREATING ",ZI + . . D UPDIE ; ADD THE RECORD + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN + . ;I ZN="" D Q ; OOPS + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN + . N C0QNEW,C0QOLD,C0QRSLT + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW + . N ZJ,ZK + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST + . K C0QFDA + . S ZJ="" + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" + . . . B + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS + . ; SECOND, PROCESS THE ADDITIONS + . K C0QFDA + . S ZJ="" S ZK=1 + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ + . . S ZK=ZK+1 + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS + ;. Q + ;. K C0QFDA + ;. N ZJ,ZC + ;. S ZJ="" S ZC=1 + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ + ;. . S ZC=ZC+1 + ;. D UPDIE + ;. W !,"FOUND:"_ZI + Q + ; +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE + ; + N C0QFDA,ZFN,LIST,ATTR + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE + D CLEAN^DILF + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE + D CLEAN^DILF + K ZERR + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE + D UPDIE ; CREATE THE SUBFILE + N ZR ; NEW IEN FOR THE RECORD + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) + ; + Q ZR + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + ;. . S RACE="" + ;. . F D Q:RACE="" + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) + ;. . . Q:'RACE + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) + ;. . N ETHNDSC + ;. . N ETHNDSC S ETHNDSC="" + ;. . S ETHN="" + ;. . F D Q:ETHN="" + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) + ;. . . Q:'ETHN + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") + ;. . S PBCNT="" + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + ;. . K PROBL + ;. . D LIST^ORQQAL(.ALRGYL,DFN) + ;. . S ALCNT="" + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + ;. . K ALRGYL + ;. . D COVER^ORWPS(.MEDSL,DFN) + ;. . S MDCNT="" + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + ;. . K MEDSL + ;. . W !,"Discharge Date: ",EXDTE + ;. . W !,DFN," ",PTNAME + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN + ;. . W !,"Language Spoken: ",$G(PTLANG) + ;. . W !,"Race: ",RACEDSC + ;. . W !,"Ethnicity: ",ETHNDSC + ;. . W !,"Problems: " + ;. . W !,PBDESC + ;. . W !,"Allergies: " + ;. . W !,ALDESC + ;. . W !,"Medications: " + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC + ;. . W ! + ;Q + ; + ; + ; + ; +END ;end of C0QPRML; diff --git a/qrda/C0Q/branches/recon/C0QMUERX.m b/qrda/C0Q/branches/recon/C0QMUERX.m new file mode 100644 index 0000000..e7e2682 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QMUERX.m @@ -0,0 +1,199 @@ +C0QMUERX ; VEN - Analyze ERx Data for Patients ; 5/30/12 10:21am + ;;1.0;C0Q;;May 21, 2012;Build 44 + QUIT ; No Entry from the top + ; +UT ; Unit Tests + N C0QDEBUG S C0QDEBUG=1 + W "Testing ^DPT B Index",! + D EN("^DPT(""B"")") + W !,"Testing B Index on a C0Q Patient List",! + D EN("^C0Q(301,4,1,""B"")") + W !,"Testing ^AUPNPAT B Index",! + D EN("^AUPNPAT(""B"")") + W !,"Testing Reminder Patient List B Index",! + D EN("^PXRMXP(810.5,80,30,""B"")") + W !,"Testing upright file ^DPT",! + D EN("^DPT") + W !,"Testing a file with no data",! + D EN("^ALKJSDF") + W !,"Testing a no valid parameters",! + D EN("") +UT2 ; Units Tests 2 + N C0QDEBUG S C0QDEBUG=1 + D EN("^C0Q(301,4,1,""B"")") + QUIT +UT3 ; Unit test 3 + N C0QDEBUG S C0QDEBUG=1 + N GN S GN=$NA(^C0Q(301,32,1,"B")) + D EN(GN) + Q + ; +EN(C0QLIST) ; PEP - Analyze ERx Data and store + ; Parameters: + ; C0QLIST - Pass by Name. Global or Local Reference. + ; Can be: ^DPT("B") for all patients or ^C0Q(301,2,1,"B") for a specific patient list + ; Future: Can be a search template on file 2 or 9000001 + ; + ; Check if XML Soap Message is installed + I '$D(^C0PX("B","GETMEDS6")) WRITE "GETMEDS6 Soap Message not installed",! QUIT + ; + ; Check if SOAP^C0PWS2 exists + I '$L($T(SOAP^C0PWS2)) WRITE "C0PWS2 Doesn't exist",! QUIT + ; + ; Check C0QLIST for sanity. Must be a single node. + IF '($DATA(C0QLIST)#2)!(C0QLIST="") WRITE "You didn't pass the list",! QUIT + ; + ; Contents must be a Reference with Data + IF '$DATA(@C0QLIST) WRITE "Destination doesn't contain any data",! QUIT + ; + ; Is this a B index? + NEW C0QB + IF $QSUBSCRIPT(C0QLIST,$QLENGTH(C0QLIST))="B" DO + . SET C0QB=1 + . ; DEBUG + . W:$G(C0QDEBUG) "B index passed",! + . ; DEBUG + ELSE SET C0QB=0 + ; + ; Make sure our TMP is empty + K ^TMP($J) + ; + ; Walk the global + N C0QWALK S C0QWALK=$SELECT(C0QB:"",'C0QB:0) ; Walker + N C0QDONE S C0QDONE=0 ; Finish Flag + FOR SET C0QWALK=$O(@C0QLIST@(C0QWALK)) QUIT:C0QDONE DO + . ; Are we done? + . I C0QB,C0QWALK="" S C0QDONE=1 QUIT ; If in index and we are out, done + . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT ; If not in index and we are not numeric, done + . ; + . N C0QDFN ; DFN of Patient + . ; If Walking B Index and Index not numeric, grab DFN (assuming ^DPT or ^AUPNPAT) + . ; TODO: Should I check that the global is ^DPT or ^AUPNPAT? + . I C0QB,'+C0QWALK S C0QDFN=$O(@C0QLIST@(C0QWALK,"")) + . ; Otherwise, we will assume the contents of the index are the DFNs + . E S C0QDFN=C0QWALK + . I $G(C0QDEBUG) W C0QDFN," " + . ; + . ; Now, check to see if the patient has e-Rx's + . I $$HASERX(C0QDFN) S ^TMP($J,C0QDFN)="" + ; + W:$G(C0QDEBUG) ! ; + ; + ; Loop through collected DFNs, send to WS, and get data back, store in ^TMP($J,DFN) + N C0QDFN S C0QDFN=0 + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO + . N C0POUT + . W:$G(C0QDEBUG) "Calling GETMEDS6 SOAP Web Service Call for "_C0QDFN,! + . D SOAP^C0PWS2("C0POUT","GETMEDS6",DUZ,C0QDFN) + . Q:$G(C0POUT(1,"RowCount"))=0 ; WS says no data + . M ^TMP($J,C0QDFN)=C0POUT + ; + ; From the New Crop Meaningful Use documentation: + ; Appendix G: Meaningful Use Certification FAQ Question 10 + ; + ; DENOMINATOR NUMERATOR + ; DeaClassCode = 0, 9 DeaClassCode = 0, 9 + ; PharmacyType = 1 PharmacyType = 1 + ; PharmacyDetailType = 1, 2 PharmacyDetailType = 1, 2 + ; FinalDestinationType = 1, 2, 3, 4 FinalDestinationType = 3, 4 + ; FinalStatusType = 1, 4, 5 FinalStatusType = 1, 5 + ; + ; DeMorgan's Law + ; NOT(A or B) = NOT(A) and NOT(B) + ; So to collect prescriptions for which DeaClassCode is 0 or 9 + ; We exclude all those who are not 0 AND not 9. + ; See: http://en.wikipedia.org/wiki/De_Morgan%27s_laws#Negation_of_a_disjunction + ; + ; The algorithms below use an Onion Peeling method. Any prescription which + ; fails makes you jump to the next prescription. + ; The "Onion levels" are: + ; DeaClassCode, PharamcyType, PharmacyDetailType, FinalDestinationType, FinalStatusType + ; + ; Now walk through collected DFNs and accumulate MU stats + ; + ; WARNING: Naked References below + ; + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 + N C0QD S C0QD=0 ; Denominator + ; + ; Calculate Denominator below + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! + .. ; + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE + .. ; + .. N DEA S DEA=^("DeaClassCode") + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! + .. Q:((DEA'=0)&(DEA'=9)) + .. ; + .. N PT S PT=^("PharmacyType") + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! + .. Q:(PT'=1) + .. ; + .. N PDT S PDT=^("PharmacyDetailType") + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! + .. Q:((PDT'=1)&(PDT'=2)) + .. ; + .. N FDT S FDT=^("FinalDestinationType") + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! + .. Q:((FDT'=1)&(FDT'=2)&(FDT'=3)&(FDT'=4)) + .. ; + .. N FST S FST=^("FinalStatusType") + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! + .. Q:((FST'=1)&(FST'=4)&(FST'=5)) + .. ; + .. W:$G(C0QDEBUG) "Adding to Denominator",! + .. S C0QD=C0QD+1 + ; + ; Calculate Numerator below + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 + N C0QN S C0QN=0 ; Numerator + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! + .. ; + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE + .. ; + .. N DEA S DEA=^("DeaClassCode") + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! + .. Q:((DEA'=0)&(DEA'=9)) + .. ; + .. N PT S PT=^("PharmacyType") + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! + .. Q:(PT'=1) + .. ; + .. N PDT S PDT=^("PharmacyDetailType") + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! + .. Q:((PDT'=1)&(PDT'=2)) + .. ; + .. N FDT S FDT=^("FinalDestinationType") + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! + .. Q:((FDT'=3)&(FDT'=4)) + .. ; + .. N FST S FST=^("FinalStatusType") + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! + .. Q:((FST'=1)&(FST'=5)) + .. ; + .. W:$G(C0QDEBUG) "Adding to Numerator",! + .. S C0QN=C0QN+1 + ; + S ^TMP($J)=C0QN_U_C0QD + ; + ; TODO: Over here, do something with the numerator and denominator.. + ; Probably store them somewhere. + ; + I '$G(C0QDEBUG) K ^TMP($J) ; Empty out in production not testing + QUIT + ; +HASERX(DFN) ; $$ - Private; Has E-Prescriptions? + ; Parameters + ; - DFN by Value + ; Output + ; 0 or 1 (false or true) + N ZI S ZI="" + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) + N DONE,HASERX + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" Q:$G(DONE) D + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" S (DONE,HASERX)=1 + Q +$G(HASERX) diff --git a/qrda/C0Q/branches/recon/C0QNOTES.m b/qrda/C0Q/branches/recon/C0QNOTES.m new file mode 100644 index 0000000..d6b1686 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QNOTES.m @@ -0,0 +1,116 @@ +C0QNOTES ;GPL - Utility to look up patient notes ;9/5/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 26 + ; + ;2011 George Lilly - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q +HASNTYN(ZNTYP,DFN) ; EXTRINSIC 1 YES 0 NO DOES THE PATIENT DFN HAVE + ; NOTE TYPE ZNTYP + N C0QN,C0QO + S C0QO=$NA(^TIU(8925.1,"B",ZNTYP)) ; ALL DOCUMENT DEFS FOR THIS NAME + S C0QN=$NA(^TIU(8925,"AA",DFN)) ; NOTES THE PATIENT HAS + N C0QR + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; DOES PATIENT HAVE THE NOTE? + N ZR + I $D(C0QR(1)) S ZR=1 + E S ZR=0 + Q ZR + ; +TESTNT(DFN) ; TEST THE NTTXT ROUTINE + W !,"MEDICATION RECON IN ER NURSE NOTE" + I $$NTTXT("ER NURSE NOTE","MEDICATION RECONCILIATION COMPLET",DFN) W " FOUND" + E W " NOT FOUND" + W !,"Medication Recon in MED/SURG NURSING ADMISSION ASSESSMENT" + I $$NTTXT("MED/SURG NURSING ADMISSION ASSESSMENT","Medication Reconcilation complete",DFN) W "FOUND" + E W " NOT FOUND" + Q + ; +NTTXT(NTTITLE,NTTXT,DFN) ; EXTRINSIC 1 YES 0 NO DOES PATIENT HAVE + ; TEXT NTTXT IN NOTE TITLE NTTITLE + N C0QNTA,C0QTYP + S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN + S C0QNTA=$NA(^TIU(8925,"AA",DFN,C0QDFMT)) ; ARRAY OF NOTES OF THIS TYPE FOR + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" + N ZI,ZN,ZD,ZL + S ZD="" ; DATE OF THE THE NOTE + N FOUND S FOUND=0 + F S ZD=$O(@C0QNTA@(ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE + . S ZN="" + . F S ZN=$O(@C0QNTA@(ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE + . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) + . . S ZI=0 ; WANT TO STAR ON LINE 1 + . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) + . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; + . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; + . . . . W "**********",$G(@ZL@(ZI,0)),! + Q FOUND ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT + ; YOU SEARCH FOR...gpl ... for example is this is the note title: + ; MED/SURG NURSING ADMISSION ASSESSMENT + ;and this is the text you want: Medication Reconcilation completed. + ; search for: Medication Reconcilation complete + ; that will leave the "d." in piece two of the line + ; + ; or for this note: + ;ER NURSE NOTE + ; and this text: + ;MEDICATION RECONCILIATION COMPLETED + ; search for MEDICATION RECONCILIATION COMPLET + ; which will leave the "ED" in piece 2 +TXTALL(ZRTN,ZTARY,DFN) ; EXTRINSIC WHICH SEARCHES ALL OF A PATIENT'S NOTES + ; FOR AN ARRAY OF TEXT MATCHES. ZRTN IS PASSED BY REFERENCE AND IS LIKE + ; AN RPC RETURN. ZTARY IS PASSED BY REFERENCE AND HAS THE FORMAT + ; ZTARY(1,"TEXT1")="" ZTARY(2,"TEXT2")="" ETC + N C0QTYP,C0QDFMT + ;S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN + S C0QNTA=$NA(^TIU(8925,"AA",DFN)) ; ARRAY OF NOTES FOR + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" + N ZI,ZJ,ZN,ZD,ZL,ZT,NTTXT,ZC,ZTYP + S ZT="" + F S ZT=$O(@C0QNTA@(ZT)) Q:ZT="" D ; + . S ZTYP=$$GET1^DIQ(8925.1,ZT_",",.01) ; NAME OF NOTE TITLE + . S ZD="" ; DATE OF THE THE NOTE + . N FOUND S FOUND=0 + . F S ZD=$O(@C0QNTA@(ZT,ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE + . . S ZN="" + . . F S ZN=$O(@C0QNTA@(ZT,ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE + . . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) + . . . S ZI=0 ; WANT TO STAR ON LINE 1 + . . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) + . . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; + . . . . S ZJ="" ; INDEX FOR SEARCH TERMS + . . . . F S ZJ=$O(ZTARY(ZJ)) Q:ZJ="" D ; FOR EACH SEARCH TERM + . . . . . S ATTR=$O(ZTARY(ZJ,"")) + . . . . . S NTTXT=$O(ZTARY(ZJ,ATTR,"")) + . . . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; + . . . . . . W "**********",$G(@ZL@(ZI,0)),! + . . . . . . S ZC=$O(ZRTN(""),-1) ; NEXT COUNT + . . . . . . I ZC="" S ZC=1 + . . . . . . E S ZC=ZC+1 + . . . . . . S ZRTN(ZC,ATTR,ZTYP,ZN,NTTXT)=$G(@ZL@(ZI,0)) + Q $G(FOUND) ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT + ; +TESTALL ; + S GT(1,"HasSmokingStatus","SMOK")="" + S GT(2,"HasSmokingStatus","Smok")="" + S GT(3,"HasSmokingStatus","smok")="" + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + W $$TXTALL(.G,.GT,2) ; CHECK ALL PATIENT 2'S NOTEST FOR SMOKING + ZWR G + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QPQRI.m b/qrda/C0Q/branches/recon/C0QPQRI.m new file mode 100644 index 0000000..fba09f5 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QPQRI.m @@ -0,0 +1,180 @@ +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 + ;;0.1;C0C;nopatch;noreleasedate;Build 26 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE + ; +EN ; + ; lets try some hard coded values for now + N C0QVAR + ; + ; first, the values that occur only once for the file + ; + S C0QVAR("create-by")="RegistryA" + S C0QVAR("create-date")="12-10-2010" + S C0QVAR("create-time")="14:27" + S C0QVAR("file-number")=1 + S C0QVAR("number-of-files")=9 + S C0QVAR("version")="1.0" + ; + ; registry values + ; + S C0QVAR("registry-id")=125789123 + S C0QVAR("registry-name")="Model Registry" + S C0QVAR("submission-method")="C" + ; + ; values for each provider + ; + S C0QVAR("npi")=12011989 + S C0QVAR("tin")=387682321 + S C0QVAR("waiver-signed")="Y" + S C0QVAR("encounter-from-date")="06-13-2010" + S C0QVAR("encounter-to-date")="12-10-2010" + ; + ; values for each measure group + ; + S C0QVAR("ffs-patient-count")=2 + S C0QVAR("group-eligible-instances")=30 + S C0QVAR("group-reporting-rate")=66.67 + S C0QVAR("group-reporting-rate-numerator")=20 + ; + ; for each measure + ; + S C0QVAR("pqri-measure-number")=128 + S C0QVAR("eligible-instances")=100 + S C0QVAR("meets-performance-instances")=18 + S C0QVAR("performance-exclusion-instances")=0 + S C0QVAR("performance-not-met-instances")=10 + S C0QVAR("performance-rate")="90.00" + S C0QVAR("reporting-rate")="28.00" + ; + ; + N ZG,ZV + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML + D MEA("GG","GGG") ; GET THE MEASURES + N GB ; BUILD LIST + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML + N ZI S ZI=0 + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML + . W !,GZO(ZI) ; WRITE OUT THE XML + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) + K @GN + K ZO(0) ; GET RID OF LINE COUNT + M @GN=GZO + S GN1=$NA(@GN@(1)) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) + K @GN ; DONT NEED IT ANYMORE + Q + ; +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY + ; + ;N GGG + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH + D INSINNER^COCXPATH(ZARY,GGG,ZONE) ; INSERT XML + Q + ; +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE + ; + N ZG + S ZG=$NA(^TMP("PQRIXML",$J)) + K @ZG + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML + N C0CDOCID + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 + Q + ; +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML + ; ZRTN IS PASSED BY REFERENCE + ; ZXML IS PASSED BY NAME + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED + ; + N ZG + S ZG=$NA(^TMP("C0CXML",$J)) + K @ZG + M @ZG=@ZXML + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 + Q + ; +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY + ; + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET + ;N GPL + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") + N ZI S ZI="" + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) + . N ZMIEN,ZMEAIEN,ZRNAME + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) + . N ZNUM,ZDEM,ZPCT + . S (ZNUM,ZDEM,ZPCT)=0 + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) + . S @RTN@(ZI,"ien")=ZI + ;ZWR GPL + Q + ; +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY + ; + D GETFM(ZIN) ; GET THE MEASURES + ;N G + ;N ZI,ZJ + S ZI="" + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; + . N ZDEN,ZNUM,ZPCT + . S ZDEN=$G(@ZIN@(ZI,"denominator")) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) + . S ZPCT=$G(@ZIN@(ZI,"percent")) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM + . S G("pqri-measure",ZI,"performance-rate")=ZPCT + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT + K ^TMP("MXMLDOM",$J) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QPRML.m b/qrda/C0Q/branches/recon/C0QPRML.m new file mode 100644 index 0000000..f1c0490 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QPRML.m @@ -0,0 +1,690 @@ +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 26 + ; + ;2011 Zach Gonzales - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + S C0QLIST("HasDemographics")="" + S C0QLIST("Patient")="" + S C0QLIST("HasProblem")="" + S C0QLIST("HasAllergy")="" + S C0QLIST("HasMed")="" + S C0QLIST("HasVitalSigns")="" + S C0QLIST("HasMedOrders")="" + S C0QLIST("HasSmokingStatus")="" + D ALL ; all currently admitted patients in the hospital + D DIS ; all patients discharged since the reporting period began + I C0QSS ZWR GRSLT + I C0QPL D ; + . D FILE ; FILE THE PATIENT LISTS + . D UPDATE^C0QUPDT(.G,8) ; UPDATE THE MU MEASUREMENT SET + . D UPDATE^C0QUPDT(.G,9) ; UPDATE THE MU MEASUREMENT SET + Q + ; +ALL ;retrieve active inpatients + N WARD S WARD="" + F D Q:WARD="" + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name + . Q:WARD="" + . N WIEN S WIEN="" + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name + . . N DFN,RB S DFN="" + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward + . . . D DEMO + . . . D PROBLEM + . . . D ALLERGY + . . . D MEDS4 + . . . D RECON2 + . . . D ADVDIR + . . . D SMOKING + . . . D VITALS + . . . D VTE1 + . . . D EDTIME + . . . I C0QPR D PRINT + . . . I C0QSS D SS + . . . I C0QPL D PATLIST + Q + ; +DEMO ; patient demographics + K PTDOB + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB + S PTNAME=$P(^DPT(DFN,0),U) ;patient name + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + S PTHRN=$P($G(VA("PID")),U) ;health record number + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + S RACE="" + F D Q:RACE="" + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN + . Q:'RACE + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description + S ETHN="" + F D Q:ETHN="" + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN + . Q:'ETHN + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + I DEMOYN S C0QLIST("HasDemographics",DFN)="" + E S C0QLIST("FailedDemographics",DFN)="" + Q + ; +PROBLEM ; PATIENT PROBLEMS + D LIST^ORQQPL(.PROBL,DFN,"A") + S PBCNT="" + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + K PROBL + Q + ; +ALLERGY ; ALLERGY LIST + D LIST^ORQQAL(.ALRGYL,DFN) + S ALCNT="" + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + K ALRGYL + Q + ; +MEDS ; MEDICATIONS + ; + I DFN=97 D Q ; + . S MDCNT=271 + K MEDSL + D EN^C0CNHIN(.MEDSL,DFN,"MED;") ; GET THE MEDS FROM THE NHIN API + ; can't use COVER^ORWPS even though it's fast.. we need to detect + ; if the medications are Inpatient to compute the CPOE measure + ; we will use the NHINV routines for this purpose + ;D COVER^ORWPS(.MEDSL,DFN) + S MDCNT="" S HASINP=0 + F S MDCNT=$O(MEDSL("med",MDCNT)) Q:MDCNT="" D + . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + . Q:MEDSL("med",MDCNT,"status@value")'="active" + . ;S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + . S MDDESC=$G(MEDSL("med",MDCNT,"products.product@name")) + . ;S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + . S MDITEM=$G(MEDSL("med",MDCNT,"sig")) ; i think this is what meditem is + . I MEDSL("med",MDCNT,"vaType@value")="I" S HASINP=1 + I HASINP D ; THE PATIENT HAS AN INPATIENT MED + . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE + E S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient + K MEDSL + Q + ; +MEDS2 ; MEDICATIONS + ; + K MEDSL,MDDESC,MDITEM + D COVER^ORWPS(.MEDSL,DFN) ; CPRS MED LIST + I '$D(MEDSL) D ; + . S C0QLIST("NoMedOrders",DFN)="" + . I $$HFYN^C0QHF(DFN,"MEDS HAVE BEEN REVIEWED") D ; + . . S C0QLIST("HasMed",DFN)="" + . E S C0QLIST("NoMed",DFN)="" + S MDCNT="" S HASINP=0 + F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D ; + . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + . ;S C0QLIST("HasMedOrders",DFN)="" + . S C0QLIST("HasMed",DFN)="" + . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + . I $P($P(MEDSL(MDCNT),"^",1),";",2)="I" S HASINP=1 + I HASINP D ; THE PATIENT HAS AN INPATIENT MED + . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE + E S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient + K MEDSL + Q + ; +MEDS3 ; USE THE REMINDER INDEX ^PXRMINDX TO CHECK FOR MEDS + ; + S C0QPXRM=$NA(^PXRMINDX(55,"PI")) ; REMINDER INDEX FOR DRUGS + I $D(@C0QPXRM@(DFN)) D ; HAS MEDS + . S C0QLIST("HasMed",DFN)="" + . S C0QLIST("HasMedOrders",DFN)="" + E D ; NO MEDS + . S C0QLIST("NoMed",DFN)="" + . S C0QLIST("NoMedOrders",DFN)="" + Q + ; +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS + N BEG,END + S BEG=$$DT^C0PCUR("JULY 3,2011") + S END=$$DT^C0PCUR("NOW") + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 + N C0QMEDS + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL + N FOUND + N ZI + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS + . S C0QLIST("NoMed",DFN)="" + E D ; HAS MEDS + . S C0QLIST("HasMed",DFN)="" + S ZI="" S FOUND=0 + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED + . N ZM + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE + . . S FOUND=1 + I FOUND S C0QLIST("HasMedOrders",DFN)="" ; MET CPOE MEASURE + E S C0QLIST("NoMedOrders",DFN)="" + Q + ; +RECON ; MEDICATIONS RECONCILIATION + ; + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST("XferOfCare",DFN)="" ; transfer of care patient + N HASRECON S HASRECON=0 + N GT,G + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON + . S HASRECON=1 + ;N ZT + ;S ZT="MEDICATION RECONCILIATION COMPLET" + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; + ;. S HASRECON=1 + ;E D ; + ;. S ZT="Medication Reconcilation Complete" + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; + ;. . S HASRECON=1 + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 + I HASRECON D ; + . S C0QLIST("HasMedRecon",DFN)="" + E S C0QLIST("NoMedRecon",DFN)="" + Q + ; +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST("XferOfCare",DFN)="" ; transfer of care patient + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; + . S C0QLIST("HasMedRecon",DFN)="" + E S C0QLIST("NoMedRecon",DFN)="" + Q + ; +ADVDIR ; ADVANCE DIRECTIVE + ; + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER + . S C0QLIST("Over65",DFN)="" + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; + . . S C0QLIST("HasAdvanceDirective",DFN)="" + . E D ; + . . S C0QLIST("NoAdvanceDirective",DFN)="" + Q + ; +SMOKING ; + I $$INLIST("HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST("HasSmokingStatus",DFN)="" + . S C0QLIST("Over12",DFN)="" + I $$INLIST("NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST("NoSmokingStatus",DFN)="" + . S C0QLIST("Over12",DFN)="" + N C0QSMOKE,C0QSYN + S C0QSYN=0 + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE + ; PATIENT IN THE CATEGORY OF TOBACCO + I $D(C0QSMOKE) S C0QSYN=1 + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") + S C0QLIST("Over12",DFN)="" + N GT + S GT(1,"HasSmokingStatus","SMOK")="" + S GT(2,"HasSmokingStatus","Smok")="" + S GT(3,"HasSmokingStatus","smok")="" + ;N ZT + ;S ZT="Smok" + ;S:'C0QSYN C0QSYN=$$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) ; + I 'C0QSYN D ; + . N G + . S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) + . I $D(G) S C0QSYN=1 + I C0QSYN S C0QLIST("HasSmokingStatus",DFN)="" + E S C0QLIST("NoSmokingStatus",DFN)="" + Q + ; +VITALS ; + ; + N C0QSDT,C0QEDT + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS + I $D(VITRSLT) D ;ZWR VITRSLT B ; + . I VITRSLT(1)["No vitals found." S C0QLIST("NoVitalSigns",DFN)="" + . E S C0QLIST("HasVitalSigns",DFN)="" + Q + ; +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL + ; + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; + . S C0QLIST("HasVTE24",DFN)="" + E S C0QLIST("NoVTE24",DFN)="" + Q + ; +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS + N FOUND + S FOUND=0 + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 + I FOUND D ; + . S C0QLIST("HasEDtime",DFN)="" + E S C0QLIST("NoEDtime",DFN)="" + Q + ; +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST + N ZL,ZR + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE + I ZL="" Q 0 ; LIST DOES NOT EXIST + S ZR=0 ; ASSUME NOT IN LIST + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST + Q ZR + ; +PRINT ; PRINT TO SCREEN + + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " + I $D(EXDTE) D ; + . W !,"Discharge Date: ",EXDTE + . W !,DFN," ",PTNAME + W !,"DOB: ",PTDOB," HRN: ",PTHRN + W !,"Language Spoken: ",$G(PTLANG) + W !,"Race: ",RACEDSC + W !,"Ethnicity: ",$G(ETHNDSC) + W !,"Problems: " + W !,PBDESC + W !,"Allergies: " + W !,ALDESC + W !,"Medications: " + W ! + Q + ; +SS ; CREATE SPREADSHEET ARRAY + S G1("Patient")=DFN + I $D(WARD) D ; + . S G1("WardName")=WARDNAME + . S G1("RoomAndBed")=RB + I $D(EXDTE) D ; + . S G1("DischargeDate")=EXDTE + S G1("PatientName")=PTNAME + S G1("Gender")=PTSEX + S G1("DateOfBirth")=PTDOB + S G1("HealthRecordNumber")=PTHRN + S G1("LanguageSpoken")=$G(PTLANG) + S G1("Race")=RACEDSC + S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S G1("HasProblem")=0 + E S G1("HasProblem")=1 + S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S G1("HasAllergy")=0 + E S G1("HasAllergy")=1 + I $D(MDITEM) D ; + . S G1("HasMed")=1 + E S G1("HasMed")=0 + S G1("MedDescription")=$G(MDDESC) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC + D RNF1TO2B^C0CRNF("GRSLT","G1") + K G1 + Q ; DON'T WANT TO DO THE NHIN STUFF NOW + ; +PATLIST ; CREATE PATIENT LISTS + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" + ;E S C0QLIST("FailedDemographics",DFN)="" + ;S G1("Gender")=PTSEX + ;S G1("DateOfBirth")=PTDOB + ;S G1("HealthRecordNumber")=PTHRN + ;S G1("LanguageSpoken")=$G(PTLANG) + ;S G1("Race")=RACEDSC + ;S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" + E S C0QLIST("HasProblem",DFN)="" + ;S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" + E S C0QLIST("HasAllergy",DFN)="" + ;I $D(MDITEM) D ; + ;. S C0QLIST("HasMed",DFN)="" + ;E S G1("NoMed",DFN)="" + ;S G1("MedDescription")=$G(MDDESC) + Q + ; +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT + Q:DFN=137!14 + D EN^C0CNHIN(.G,DFN,"") + ZWR G + K G + ; + QUIT ;end of WARD + ; + ; +DIS; + N DFN,DTE,EXDTE S DTE="" + F D Q:DTE="" + . S DTE=$O(^DGPM("B",DTE)) + . Q:'DTE + . Q:$P(DTE,".")<3110703 + . S EXDTE=$$FMTE^XLFDT(DTE) + . N PTFM S PTFM="" + . D + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) + . . Q:'PTFM + . . S DFN=$P(^DGPM(PTFM,0),U,3) + . . S C0QLIST("Patient",DFN)="" + . . D DEMO + . . D PROBLEM + . . D ALLERGY + . . D MEDS4 + . . D RECON2 + . . D ADVDIR + . . D SMOKING + . . D VITALS + . . D VTE1 + . . D EDTIME + . . I C0QPR D PRINT + . . I C0QSS D SS + . . I C0QPL D PATLIST + Q + ; +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST + ; + I '$D(C0QLIST) Q ; + N LFN S LFN=$$C0QALFN() + N ZI,ZN + S ZI="" + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) + . I ZN="" D Q ; OOPS + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN + . N C0QNEW,C0QOLD,C0QRSLT + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW + . N ZJ,ZK + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST + . K C0QFDA + . S ZJ="" + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" + . . . B + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS + . ; SECOND, PROCESS THE ADDITIONS + . K C0QFDA + . S ZJ="" S ZK=1 + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ + . . S ZK=ZK+1 + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS + ;. Q + ;. K C0QFDA + ;. N ZJ,ZC + ;. S ZJ="" S ZC=1 + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ + ;. . S ZC=ZC+1 + ;. D UPDIE + ;. W !,"FOUND:"_ZI + Q + ; +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE + ; + N C0QFDA,ZFN,LIST,ATTR + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE + D CLEAN^DILF + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE + D CLEAN^DILF + K ZERR + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE + D UPDIE ; CREATE THE SUBFILE + N ZR ; NEW IEN FOR THE RECORD + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) + ; + Q ZR + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + ;. . S RACE="" + ;. . F D Q:RACE="" + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) + ;. . . Q:'RACE + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) + ;. . N ETHNDSC + ;. . N ETHNDSC S ETHNDSC="" + ;. . S ETHN="" + ;. . F D Q:ETHN="" + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) + ;. . . Q:'ETHN + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") + ;. . S PBCNT="" + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + ;. . K PROBL + ;. . D LIST^ORQQAL(.ALRGYL,DFN) + ;. . S ALCNT="" + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + ;. . K ALRGYL + ;. . D COVER^ORWPS(.MEDSL,DFN) + ;. . S MDCNT="" + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + ;. . K MEDSL + ;. . W !,"Discharge Date: ",EXDTE + ;. . W !,DFN," ",PTNAME + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN + ;. . W !,"Language Spoken: ",$G(PTLANG) + ;. . W !,"Race: ",RACEDSC + ;. . W !,"Ethnicity: ",ETHNDSC + ;. . W !,"Problems: " + ;. . W !,PBDESC + ;. . W !,"Allergies: " + ;. . W !,ALDESC + ;. . W !,"Medications: " + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC + ;. . W ! + ;Q + ; + ; + ; + ; +END ;end of C0QPRML; diff --git a/qrda/C0Q/branches/recon/C0QSET.m b/qrda/C0Q/branches/recon/C0QSET.m new file mode 100644 index 0000000..e51e286 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QSET.m @@ -0,0 +1,115 @@ +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 26 + ; + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +TEST ; TEST OF UNITY ROUTINE + ; + S A(1)="" + S A(2)="" + S A(3)="" + S B(3)="" + S B(4)="" + D UNITY("C","A","B") + ZWR C + Q + ; +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? + S PATS=$NA(^DPT) + S MEDS=$NA(^PS(55)) + D UNITY("DELTA",PATS,MEDS) + W !,"PATIENTS WITH NO MEDS",! + ZWR DELTA(0,*) + W !,"BAD POINTERS IN THE MEDS FILE",! + ZWR DELTA(2,*) + Q + ; +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME + ; FORMAT OF RETURN ARRAY: + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY + N C0QD ; TEMP WORK ARRAY + N ZN S ZN=0 ; COUNT + N ZI S ZI=0 + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW + . S ZN=ZN+1 + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT + S ZI=0 + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED + S ZI=0 + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY + Q + ; +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME + ; FORMAT OF RETURN ARRAY: + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY + N C0QD ; TEMP WORK ARRAY + N ZI S ZI="" + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW + S ZI="" + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED + S ZI="" + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY + Q + ; +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD + N ZD + D UNITY("ZD",ZNEW,ZOLD) + M @ZRTN=ZD(1) + Q + ; +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH + N ZD + D UNITY("ZD",ZNEW,ZOLD) + M @ZRTN=ZD(0) + M @ZRTN=ZD(2) + Q + ; +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT + N ZD + D UNITY("ZD",ZA,ZB) + M @ZRTN=ZD(0) + Q + ; +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH + N ZD + D UNITY("ZD",ZA,ZB) + M @ZRTN=ZD(0) + M @ZRTN=ZD(1) + M @ZRTN=ZD(2) + Q + ; +END ;end of C0QSET; diff --git a/qrda/C0Q/branches/recon/C0QTEST.m b/qrda/C0Q/branches/recon/C0QTEST.m new file mode 100644 index 0000000..a00e303 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QTEST.m @@ -0,0 +1,509 @@ +C0PTEST ; ERX/GPL - eRx Refill utilities ; 3/19/10 11:53am + ;;0.1;C0P;nopatch;noreleasedate;Build 26 + ;Copyright 2009,2010 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +TESTMEDS ; PRINT OUT MEDICATIONS FOR INPATIENTS WITH MEDS BUT NO INPATIENT + ; MEDS + S ZI="" + D BUILD^C0QPRML + S GNEW=$NA(C0QLIST("NoMedOrders")) + S GOLD=$NA(C0QLIST("HasMed")) + K G + D UNITY^C0QSET("G",GNEW,GOLD) + F S ZI=$O(G(1,ZI)) Q:ZI="" D ; FOR EACH PATIENT IN BOTH LISTS + . K GG + . D COVER^ORWPS(.GG,ZI) ; GET MED LIST + . W !,"PATIENT: ",ZI,! + . ZWR GG + Q + ; +TESTREQ(ZDUZ,ZDFN) ; TEST REFILL REQUEST + I '$D(ZDFN) S ZDFN="" + D REFREQ("ZG",ZDUZ,ZDFN) + W ! + ZWR C0PRXML + Q + ; +REFREQ(GRTN,IDUZ,IDFN) ; MAKE A WEB SERVICE CALL TO GENERATE A REFIL REQUEST + ; + N GPL,C0PFARY,GVOR + D ENCREQ("GPL",IDUZ,IDFN) + S GVOR("XMLIN")=GPL + S GVOR("ORIG-FILL-DATE")="" + S GVOR("CREATE-MED-YN")="0" + ;D EN^C0PMAIN("GG","GURL",IDUZ,IDFN,"GENREFILL","GVOR") + D INITXPF^C0PWS2("C0PFARY") + D SOAP^C0PWS2("GRTN","GENREFILL",IDUZ,IDFN,"GVOR") + ;D SOAP^C0CSOAP("GRTN","GENREFILL",,,"GG","C0PFARY") ; + Q + ; +GG1 ; IDENTIFY ORPHAN NODES IN ^PS(55,DFN,"NVA", + S ZI="" S BAD="" S ZN=0 + F S ZI=$O(^PS(55,ZI)) Q:ZI="" D ; + . S ZJ="" + . F S ZJ=$O(^PS(55,ZI,"NVA",ZJ)) Q:ZJ="" D ; FOR EACH NVA DRUG + . . I $D(^PS(55,ZI,"NVA",ZJ,1,7,0)) D ; IF THE CODES NODE EXISTS + . . . I '$D(^PS(55,ZI,"NVA",ZJ,1,0)) D ; I NO ZERO NODE + . . . . S BAD(ZI,ZJ)="" + . . . . S ZN=ZN+1 + K ^G + M ^G("BAD")=BAD + ZWR BAD + W !,"BAD COUNT: ",ZN + Q + ; +GG2 ; DISPLAY THE BAD NODES + S ZI="" + F S ZI=$O(^G("BAD",ZI)) Q:ZI="" D ; + . S ZJ="" + . F S ZJ=$O(^G("BAD",ZI,ZJ)) Q:ZJ="" D ; + . . W !,^PS(55,ZI,"NVA",ZJ,1,7,0) + . . I $D(^PS(55,ZI,"NVA",ZJ,1,0)) W !,"ERROR, DRUG EXISTS!" + Q + ; +GGKILL ; KILL THE BAD NODES + S ZI="" + F S ZI=$O(^G("BAD",ZI)) Q:ZI="" D ; + . S ZJ="" + . F S ZJ=$O(^G("BAD",ZI,ZJ)) Q:ZJ="" D ; + . . W !,^PS(55,ZI,"NVA",ZJ,1,7,0) + . . I $D(^PS(55,ZI,"NVA",ZJ,1,0)) D Q ; + . . . W !," ERROR, DRUG EXISTS!" + . . . W !," NODE NOT KILLED, PLEASE REVIEW" + . . K ^PS(55,ZI,"NVA",ZJ,1,7,0) + . . W !," BAD NODE KILLED" + Q + ; +GTEST ; TESTING RENEWAL PROCESSING + K G + D SOAP^C0PWS2("G","REFILLS",135,961) + S ZI="" + F S ZI=$O(G(ZI)) Q:ZI="" D ; + . S ZG=G(ZI,"RenewalRequestGuid") + . I ZG="" W !,"ERROR NULL GUID" + . S ZT=$O(^TMP("C0E","INDEX",ZG,"")) + . I ZT'="" D ; HAVE A TOKEN + . . S ZM1=G(ZI,"DrugInfo") + . . S ZM2=^TMP("C0E","TOKEN",ZT,"renewalToken") + . . S ZM3=^TMP("C0E","TOKEN",ZT,"medication") + . . W !,!,"GUID:",ZG,!," TOKEN: ",ZT + . . W !,"DRUG1: ",ZM1,!," DRUG2: ",ZM2,!," DRUG3: ",ZM3 + . . ;ZWR ^TMP("C0E","TOKEN",ZT,*) + Q + ; +GTEST2 ; SECOND TEST - FINDING INCONSISTANCIES IN RENEWAL ALERTS + S ZI="" + S ZN=0 + S ZTMP=$NA(^TMP("C0E","TOKEN")) + F S ZI=$O(@ZTMP@(ZI)) Q:ZI="" D ; FOR EACH TOKEN + . I @ZTMP@(ZI,"C0PRenewalName")["request for" D ; MED WHERE NAME SHOULD BE + . . W !,!,"TOKEN:",ZI + . . W !,"GUID:",@ZTMP@(ZI,"C0PGuid") + . . W !,@ZTMP@(ZI,"C0PRenewalName") + . . W !,@ZTMP@(ZI,"medication") + . . W !,@ZTMP@(ZI,"renewalToken") + . . S ISTR=@ZTMP@(ZI,"renewalToken") + . . S IDUZ=@ZTMP@(ZI,"IDUZ") + . . S ZALRT=$P(ISTR,";",3) ; RENEWAL TOKEN + . . S ^G2(IDUZ,ZALRT,ISTR)="" + . . S ZN=ZN+1 + W !,!,"NUMBER OF TOKENS:",ZN + Q + ; +GTEST3 ; USE ^G2 TO TRY AND FIND THE ALERTS + ; + S ZDUZ="" + F S ZDUZ=$O(^G2(ZDUZ)) Q:ZDUZ="" D ; + . S ZALRT="" + . F S ZALRT=$O(^G2(ZDUZ,ZALRT)) Q:ZALRT="" D ; + . . W !,!,ZALRT + . . W !,$G(^XTV(8992,ZDUZ,"XQA",ZALRT,0)) + . . S NXTALRT=$O(^XTV(8992,ZDUZ,"XQA",ZALRT)) ; NEXT ALERT + . . W !,"NEXT:",NXTALRT + . . I NXTALRT'="" W !,$G(^XTV(8992,ZDUZ,"XQA",NXTALRT,0)) + Q + ; +GINDEX ; INDEX THE ^TMP("C0E","TOKEN") ARRAY BY GUID + S ZI="" + S ZN=0 + F S ZI=$O(^TMP("C0E","TOKEN",ZI)) Q:ZI="" D ; + . S ZG=^TMP("C0E","TOKEN",ZI,"C0PGuid") + . S ^TMP("C0E","INDEX",ZG,ZI)="" + . S ZN=ZN+1 + W !,"NUMBER OF TOKENS: ",ZN + Q + ; +ENCREQ(ZRTN,ZDUZ,ZDFN) ; ENCODE AN NCSCRIPT RENEWAL REQUEST + ; + D GENTEST("GPL","GURL",ZDUZ,ZDFN,1) + ;S ZI="" + ;S GPL(1)="RxInput="_GPL(1) + S ZI=0 ; + ;F S ZI=$O(GPL(ZI)) Q:ZI="" D ; MAKE IT XML SAFE + ;. S GPL(ZI)=$$SYMENC^MXMLUTL(GPL(ZI)) + ;. W !,GPL(ZI) + S ZI=0 + S G="" + K GPL(0) ; GET RID OF LINE COUNT + F S ZI=$O(GPL(ZI)) Q:ZI="" D ; + . S G=G_GPL(ZI) + S @ZRTN=$$ENCODE^RGUTUU(G) + ;S @ZRTN=G + Q + ; +CERTTEST ; GENERATE XML FILES FOR NEWCROP CERTIFICATION + ; + N ZII + S ZDFN=18 ; TEST PATIENT TO USE + F ZII=154,155,156,157 D ; IENS OF SUBSCRIBER PROFILES + . D CERTONE(ZII,ZDFN) + Q + ; +CERTONE(ZI,ZDFN) ; GENERATE ONE XML FILE + N ZN + D EN^C0PMAIN("C0PG1","G2",ZI,ZDFN) ; GET THE NCSCRIPT + S ZN=$P($P(^VA(200,ZI,0),U,1),",",2) ; GIVEN NAME OF USER + ; ON OUR SYSTEM THESE ARE ERX,DOCTOR ERX,MID-LEVEL ERX,NURSE AND ERX,MANAGER + S ZN=ZN_".xml" ; APPEND .xml extension + K C0PG1(0) + S ZDIR=^TMP("C0CCCR","ODIR") + W !,$$OUTPUT^C0CXPATH("C0PG1(1)",ZN,ZDIR) + Q + ; +GENTEST(RTNXML,RTNURL,ZDUZ,ZDFN,ZFILE) ; GENERATE A TEST + ; CLICK-THROUGH HTLM FILE FOR + ; GENERATING REFILL REQUESTS , XML IS RETURNED IN RTN,PASSED BY NAME + ; IF ZFILE IS 1, THE FILE IS WRITTEN TO HOST FILE + D EN^C0PMAIN("C0PG1","G2",ZDUZ,ZDFN) ; GET THE NCSCRIPT + ;D GETMEDS("G6",ZDFN) ;GET MEDICATIONS + ;D QUERY^C0CXPATH("G6","//NewPrescription[1]","G7") ;JUST THE FIRST ONE + ;D INSERT^C0CXPATH("C0PG1","G7","//NCScript") + K C0PG1(0) + M @RTNXML=C0PG1 ; + S ZDIR=^TMP("C0CCCR","ODIR") + I $G(ZFILE)=1 W $$OUTPUT^C0CXPATH("C0PG1(1)","REFILL-"_ZDFN_".xml",ZDIR) + Q + ; +GETMEDS(OUTARY,ZDFN) ; GET THE PATIENT'S MEDS AND PUT INTO XML + ; + N ZG,ZG2,ZB,ZN + S DEBUG=0 + D GETTEMP^C0PWS2("ZG","OUTMEDS") ;GET THE MEDICATIONS TEMPLATE + D SOAP^C0PWS2("ZG2","GETMEDS",$$PRIMARY^C0PMAIN(),ZDFN) ; GET MEDS + I '$D(ZG2) Q ; SHOULDN'T HAPPEN + I ZG2(1,"Status")'="OK" D Q ; BAD RETURN FROM WEB SERVER + . W $G(ZG2(1,"Message")),! + N ZI S ZI="" + S ZN=$NA(^TMP("C0PREFIL",$J)) + K @ZN + F S ZI=$O(ZG2(ZI)) Q:ZI="" D ; FOR EACH MED + . N ZV + . S ZV=$NA(@ZN@("DATA",ZI)) + . S ZX=$NA(@ZN@("XML",ZI)) + . S @ZV@("dispenseNumber")=$G(ZG2(ZI,"Dispense")) + . S @ZV@("dosage")="Take "_$G(ZG2(ZI,"DosageNumberDescription"))_" "_$G(ZG2(ZI,"Route"))_" "_$G(ZG2(ZI,"DosageFrequencyDescription")) + . S @ZV@("drugIdentifier")=ZG2(ZI,"DrugID") + . S @ZV@("drugIdentifierType")="FDB" + . S @ZV@("pharmacistMessage")="No childproof caps please" + . S @ZV@("pharmacyIdentifier")=1231212 + . S @ZV@("refillCount")=ZG2(ZI,"Refills") + . S @ZV@("substitution")="SubstitutionAllowed" + . D MAP^C0CXPATH("ZG",ZV,ZX) + . D QUEUE^C0CXPATH("ZB",ZX,2,$O(@ZX@(""),-1)) + D BUILD^C0CXPATH("ZB",OUTARY) + K @ZN ;CLEAN UP + Q + ; + ;B + ; + ;D GET^C0PCUR(.ZG2,ZDFN) ; GET THE MEDS FOR THIS PATIENT + ;D EXTRACT^C0CALERT("ZG",ZDFN,"ZG2","ALGYCBK^C0PALGY3(ALTVMAP,A1)") + S ZN=$O(ZR(""),-1) ;NUMBER OF LINES IN OUTPUT + D QUEUE^C0CXPATH("ZB","ZG2",2,ZN-1) + D BUILD^C0CXPATH("ZB",OUTARY) + Q + ; +RGUIDS(ZARY,ZDUZ) ; RETURNS AN ARRAY OF ALL REFILL REQUEST GUIDS FOR + ; DUZ ZDUZ. ZARY IS PASSED BY NAME + ; FORMAT IS @ZARY@("GUID")=IEN + ; THIS ROUTINE IS REUSED FOR THE STATUS ROUTINE - INCOMPLETE ORDERS + N ZI,ZJ,ZK,ZL,ZM,ZN + S ZI=0 + ;F S ZI=$O(^XTV(8992.1,"R",ZDUZ,ZI)) Q:ZI="" D ; ALL ALERT FOR DUZ + F S ZI=$O(^XTV(8992,ZDUZ,"XQA",ZI)) Q:ZI="" D ; USE XQA MULTIPLE + . S ZL=^XTV(8992,ZDUZ,"XQA",ZI,0) ; + . S ZM=$P(ZL,U,2) ; RECORD ID + . S ZN=$O(^XTV(8992.1,"B",ZM,"")) ;IEN OF ALERT TRACKING RECORD + . S ZK=$$GET1^DIQ(8992.1,ZN_",",.03) + . I ZK'["OR,1130" Q ; NOT OUR PACKAGE - ALL ERX ALERTS START WITH 1130 + . ; 11305 IS FOR REFILLS + . ; 11306 IS FOR INCOMPLETE ORDERS + . S ZJ="" + . S ZJ=$$GET1^DIQ(8992.1,ZN_",",2) + . I ZJ="" Q + . ; FOR RENEWALS (11305) NEED TO PULL THE GUID OUT - IT IS THE FIRST PIECE + . ; OTHERWISE USE THE ENTIRE STRING. FOR INCOMPLETE ORDERS THIS WILL + . ; INCLUDE THE MED AND PRESCRIPTION DATE + . I ZK["OR,11305" S ZJ=$P(ZJ,"^",1) ; FIRST PIECE IS THE GUILD GUID^DOB^SEX + . S @ZARY@(ZJ)=ZN + Q + ; +EN ; BATCH ENTRY POINT FOR REFILL (RENEWAL) STATUS AND FAILEDFAX CHECKING + D REFILL + K ZRSLT + ;D STATUS ; ALSO RUN CHECK FOR INCOMPLETE ORDERS + D FAILFAX ; ALSO RUN CHECK FOR FAILED FAXES + Q + ; +REFILL ; PULL REFILL REQUESTS AND POST ALERTS + ; + N ZDUZ ; USER NUMBER UNDER WHICH WE BUILD THE WEB SERVICE CALL + N ZDFN ; PATIENT NUMBER USED TO BUILD THE WEB SERVICE CALL + S ZDUZ=$$PRIMARY^C0PMAIN() ; PRIMARY ERX USER FOR BATCH CALLS + ;S ZDUZ=DUZ ; SHOULD CHANGE THIS FOR PRODUCTION TO A "BATCH" USER + S ZDFN="" ; NO PATIENT NEEDED FOR THESE CALLS + ; S ZDFN=18 ; SHOULD NOT NEED THIS BE MAKE THE CALL - FIX IN EN^C0PMAIN + N ZRSLT + D SOAP^C0PWS2("ZRSLT","REFILLS",ZDUZ,ZDFN) ; WS CALL TO RETURN REFILS + ;S XXX=YYY ; + I $G(ZRSLT(1,"Status"))'="OK" Q ; NO ROWS WERE RETURNED + I $G(ZRSLT(1,"RowCount"))=0 Q ; NO ROWS WERE RETURNED + D NOTIPURG^XQALBUTL(11305) ; DELETE ALL CURRENT REFILL ALERTS + S C0PNPIF=$$GET1^DIQ(C0PAF,C0PACCT_",",8,"I") ; LEGACY FLAG TO USE NPI FOR SID + N ZI S ZI=0 + N ZAPACK S ZAPACK="OR" ; ALERT PACKAGE CODE + N ZADFN S ZADFN=0 ; DFN TO ASSOCIATE ALERT WITH - WE DON'T KNOW THIS + N ZACODE S ZACODE=11305 ; IEN TO OE/RR NOTIFICATIONS file for eRx Refills + F S ZI=$O(ZRSLT(ZI)) Q:+ZI=0 D ; FOR EACH RETURNED REFILL REQUEST + . N ZSID S ZSID=ZRSLT(ZI,"ExternalDoctorId") ; NPI FOR SUBSCRIBER + . I C0PNPIF'=1 S ZDUZ=$O(^VA(200,"AC0PSID",ZSID,"")) ; GUID SID + . E S ZDUZ=$O(^VA(200,"C0PNPI",ZSID,"")) ; DUZ FOR SUBSCRIBER + . S ZRSLT("DUZ",ZDUZ,ZI)="" + N ZJ S ZJ="" + F S ZJ=$O(ZRSLT("DUZ",ZJ)) Q:ZJ="" D ; FOR EACH PROVIDER + . N ZGUIDS + . D RGUIDS("ZGUIDS",ZJ) ; GET ARRAY OF CURRENT ACTIVE GUIDS + . S ZI="" + . F S ZI=$O(ZRSLT("DUZ",ZJ,ZI)) Q:ZI="" D ; FOR EACH REQUEST + . . N ZRRG S ZRRG=ZRSLT(ZI,"RenewalRequestGuid") ;renewal request number + . . I $D(ZGUIDS(ZRRG)) D Q ; THIS REQUEST IS A DUPLICATE, SKIP IT + . . . W ZRRG_" IS A DUP",! + . . N ZDATE S ZDATE=$P(ZRSLT(ZI,"ReceivedTimestamp")," ",1) ;DATE RECEIVED + . . I $G(^TMP("C0P","TestNoMatch"))=1 D ; + . . . S ZRSLT(ZI,"PatientMiddleName")="XXX" ;TESTING NO MATCH REMOVE ME + . . ;I DUZ=135 S ZRSLT(ZI,"PatientMiddleName")="Uta" ;TESTING NO MATCH REMOVE + . . N ZPAT S ZPAT=$G(ZRSLT(ZI,"PatientLastName"))_","_$G(ZRSLT(ZI,"PatientFirstName")) ; PATIENT NAME LAST,FIRST + . . I $G(ZRSLT(ZI,"PatientMiddleName"))'="" S ZPAT=ZPAT_" "_$G(ZRSLT(ZI,"PatientMiddleName")) + . . S ZDOB=$G(ZRSLT(ZI,"PatientDOB")) ;patient date of birth + . . S ZSEX=$G(ZRSLT(ZI,"PatientGender")) ;patient gender + . . S ZADFN=$$PATMAT(ZPAT,ZDOB,ZSEX) ; TRY AND MATCH THE PATIENT + . . ;W "DFN="_ZADFN," ",ZI,! + . . N ZXQAID S ZXQAID=ZAPACK_","_ZADFN_","_ZACODE ; FORMAT FOR P1 OF XQAID + . . N ZMED S ZMED=ZRSLT(ZI,"DrugInfo") + . . ;S XQA(ZDUZ)="" ; WHO TO SEND THE ALERT TO + . . I '$D(^TMP("C0P","AlertVerify")) S XQA(ZJ)="" ; WHO TO SEND THE ALERT TO + . . E D ; AlertVerify sends alerts only to testers, not recipients + . . . ; use this when installing eRx to verify ewd installation + . . . N ZZZ S ZZZ="" + . . . F S ZZZ=$O(^TMP("C0P","AlertVerify",ZZZ)) Q:ZZZ="" D ; WHICH DUZ + . . . . S XQA(ZZZ)="" ; MARK THIS USER TO RECIEVE ALERTS + . . ;S XQA(135)="" ; ALWAYS SEND TO GPL + . . ;S XQA(148)="" ; ALWAYS SEND TO RICH + . . N ZP6 ; STRING THAT CPRS WILL RETURN FOR MATCHING + . . I ZADFN=0 D ; NO MATCH + . . . S XQAMSG="no match: ): [eRx] "_ZPAT_" Renewal request for "_ZMED + . . . S ZP6=ZPAT_" Renewal request for "_ZMED + . . E D ; + . . . S XQAMSG=ZPAT_": ): [eRx] Renewal request for "_ZMED + . . . S ZP6="Renewal request for "_ZMED + . . ;S XQAMSG=$E(XQAMSG,1,70) ; TRUNCATE TO 70 CHARS + . . S XQAID=ZXQAID ; PACKAGE IDENTIFIER + . . ;S XQADATA=ZRRG ; THE GUID OF THE REQUEST. NEEDED TO PROCESS THE ALERT + . . S XQADATA=ZRRG_"^"_ZDOB_"^"_ZSEX ; SAVE DOB AND SEX WITH GUID + . . W "SENDING",XQAID_" "_XQADATA,! + . . D SETUP^XQALERT ; MAKE THE CALL TO SET THE ALERT + K ZRSLT + ;D STATUS ; ALSO RUN CHECK FOR INCOMPLETE ORDERS + ;D FAILFAX ; ALSO RUN CHECK FOR FAILED FAXES + Q + ; +PATMAT(ZNAME,INDOB,INSEX) ;EXTRINSIC TO TRY AND MATCH THE PATIENT + ; RETURNS ZERO IF NO EXACT MATCH IS FOUND + N ZP + S ZP=$O(^DPT("B",ZNAME,"")) + I ZP="" Q 0 ; EXACT MATCH NOT FOUND ON NAME + ; CHECK DATE OF BIRTH + ;W "CHECKING DATE OF BIRTH",! + N DOB + S DOB=$$GET1^DIQ(2,ZP_",",.03,"I") ; PATIENT'S DATE OF BIRTH IN VISTA + N ZD ;INCOMING DATE OF BIRTH IS IN YYYYMMDD FORMAT + S ZD=($E(INDOB,1,4)-1700)_$E(INDOB,5,8) ; DATE OF BIRTH CONVERTED TO FM FORMAT + ;W ZD_" "_DOB,! + I +ZD'=+DOB Q 0 ; DATE OF BIRTH DOES NOT MATCH + ; + ; CHECK GENDER + ;W "CHECKING GENDER",! + N GENDER + S GENDER=$$GET1^DIQ(2,ZP_",",.02,"I") ; PATIENT'S GENDER IN VISTA + ;W GENDER_INSEX,! + I GENDER'=INSEX Q 0 ;GENDER DOESN'T MATCH + Q ZP + ; +STATUS ; BATCH CALL TO RETRIEVE ERX ACCOUNT STATUS + ; RETURNS UNFINISHED ORDERS FOR ALL PROVIDERS + ; AND SENDS STATUS ALERTS + N VOR + S VOR("STATUS-SECTION-TYPE")="AllDoctorReview" + S VOR("SORT-ORDER")="A" + S VOR("INCLUDE-SCHEMA")="N" + S ZDUZ=$$PRIMARY^C0PMAIN() ; PRIMARY ERX USER FOR BATCH CALLS + K ZRSLT + ; D SOAP^C0PWS1("ZRSLT","STATUS",ZDUZ,"","VOR") + D SOAP^C0PWS2("ZRSLT","STATUS",ZDUZ,"","VOR") + I '$D(ZRSLT) Q ; SHOULDN'T HAPPEN + I $G(ZRSLT(1,"DrugInfo"))="" Q ; NO ROWS + S C0PNPIF=$$GET1^DIQ(C0PAF,C0PACCT_",",8,"I") ; LEGACY FLAG TO USE NPI FOR SID + N ZI S ZI=0 + N ZAPACK S ZAPACK="OR" ; ALERT PACKAGE CODE + N ZADFN S ZADFN=0 ; DFN TO ASSOCIATE ALERT WITH - WE DON'T KNOW THIS + N ZACODE S ZACODE=11306 ; IEN TO OE/RR NOTIFICATIONS file for eRx incomplete + ; orders + F S ZI=$O(ZRSLT(ZI)) Q:+ZI=0 D ; FOR EACH RETURNED REFILL REQUEST + . N ZSID S ZSID=$G(ZRSLT(ZI,"ExternalDoctorId")) ; NPI FOR SUBSCRIBER + . I ZSID="" Q ; NO EXTERNAL ID FOR THIS STATUS + . I C0PNPIF'=1 S ZDUZ=$O(^VA(200,"AC0PSID",ZSID,"")) ; GUID SID + . E S ZDUZ=$O(^VA(200,"C0PNPI",ZSID,"")) ; DUZ FOR SUBSCRIBER + . S ZRSLT("DUZ",ZDUZ,ZI)="" + N ZJ S ZJ="" + D RMSTATUS ; REMOVE ALL STATUS ALERTS + F S ZJ=$O(ZRSLT("DUZ",ZJ)) Q:ZJ="" D ; FOR EACH PROVIDER + . N ZGUIDS + . D RGUIDS("ZGUIDS",ZJ) ; GET ARRAY OF CURRENT ACTIVE ALERTS + . S ZI="" + . F S ZI=$O(ZRSLT("DUZ",ZJ,ZI)) Q:ZI="" D ; FOR EACH REQUEST + . . N ZRRG S ZRRG=$G(ZRSLT(ZI,"DrugInfo")) ; first piece of XQDATA + . . S $P(ZRRG,"^",2)=$G(ZRSLT(ZI,"PrescriptionDate")) ; second piece + . . I $D(ZGUIDS(ZRRG)) D Q ; THIS REQUEST IS A DUPLICATE, SKIP IT + . . . ;W ZRRG_" IS A DUP",! + . . I ZRRG="^" D Q ; THIS IS AN ERROR + . . . B + . . N ZDATE S ZDATE=$P($G(ZRSLT(ZI,"PrescriptionDate"))," ",1) ; + . . N ZPAT S ZPAT=$G(ZRSLT(ZI,"ExternalPatientId")) ; format PATIENTDFN + . . I ZPAT="" Q ;THIS IS AN ERROR + . . S ZADFN=$P(ZPAT,"PATIENT",2) ; EXTRACT THE DFN + . . S ZPAT=$$GET1^DIQ(2,ZADFN_",",.01) ;PATIENT'S NAME + . . ;W "DFN="_ZADFN," ",ZI,! + . . N ZXQAID S ZXQAID=ZAPACK_","_ZADFN_","_ZACODE ; FORMAT FOR P1 OF XQAID + . . N ZMED S ZMED=ZRSLT(ZI,"DrugInfo") + . . ;S XQA(ZDUZ)="" ; WHO TO SEND THE ALERT TO + . . S XQA(ZJ)="" ; WHO TO SEND THE ALERT TO + . . ;S XQA(135)="" ; ALWAYS SEND TO GPL + . . ;S XQA(148)="" ; ALWAYS SEND TO RICH + . . N ZP6 ; STRING THAT CPRS WILL RETURN FOR MATCHING + . . I ZADFN=0 D ; NO MATCH + . . . S XQAMSG="no match: ): [eRx] "_ZPAT_" Incomplete Order for "_ZMED + . . . S ZP6=ZPAT_" Incomplete Order for "_ZMED + . . E D ; + . . . S XQAMSG=ZPAT_": ): [eRx] Incomplete Order for "_ZMED + . . . S ZP6="Incomplete Order for "_ZMED + . . ;S XQAMSG=$E(XQAMSG,1,70) ; TRUNCATE TO 70 CHARS + . . S XQAID=ZXQAID ; PACKAGE IDENTIFIER + . . S XQADATA=ZRRG ; THE GUID OF THE REQUEST. NEEDED TO PROCESS THE ALERT + . . D SETUP^XQALERT ; MAKE THE CALL TO SET THE ALERT + Q + ; +RMSTATUS ; DELETES ALL STATUS ALERTS FOR ALL USERS (THEY WILL BE + ; RESTORED NEXT TIME STATUS^C0PREFIL IS RUN - IN ERX BATCH + D NOTIPURG^XQALBUTL(11306) ; + W !,"ALL ERX STATUS ALERTS HAVE BEEN DELETED" + Q + ; +FAILFAX ; BATCH CALL TO RETRIEVE ERX FAILED FAX STATUS + ; RETURNS A COUNT OF FAILED FAXES AND AN ARRAY OF PATIENTS + N VOR,ZRSLT + S VOR("STATUS-SECTION-TYPE")="FailedFax" + ;S VOR("ACCOUNT-PARTNERNAME")="demo" + S VOR("SORT-ORDER")="A" + S VOR("INCLUDE-SCHEMA")="N" + S ZDUZ=$$PRIMARY^C0PMAIN() ; PRIMARY ERX USER FOR BATCH CALLS + D SOAP^C0PWS1("ZRSLT","STATUS",ZDUZ,"","VOR") + N ZCOUNT + S ZCOUNT=$O(ZRSLT(""),-1) ; HOW MANY FAILED FAXES + I +ZCOUNT=0 Q ; NO FAILED FAXES + ;I $G(ZRSLT(1,"RowCount"))=0 Q ; NO FAILED FAXES + ;I $G(ZRSLT(1,"RowCount"))="" Q ; SHOULD NOT HAPPEN + N XQA,XQAMSG,XQAID,XQAKILL + S XQAID="C0P" ; GOING TO FIRST KILL ALL FAILED FAX ALERTS + D DELETEA^XQALERT ; KILL ALL FAILED FAX ALERTS + S XQA("G.ERX HELP DESK")="" + ;S XQA(135)="" + S XQAID="C0P" + S XQAMSG="eRx: "_ZCOUNT_" Failed Faxes on ePrescribing" + D SETUP^XQALERT ; CREATE NEW FAILED FAX ALERTS TO THE MAILGROUP + Q + ; +RUN ; USED TO PROCESS AN ALERT. THIS ROUTINE IS LISTED IN + ; 0E/RR CPRS NOTIFICATIONS AS THE ROUTINE TO RUN TO PROCESS + ; A C0P ERX ALERT + W "MADE IT TO RUN C0PREFIL",! + W XQADATA + B + Q + ; +GETALRT(ZARY,ZID) ; LOOKS UP AN ALERT BY USING THE "RECORDID" FROM CPRS, + ; PASSED BY VALUE IN ZID. RESULTS ARE RETURNED IN ZARY, PASSED BY NAME + ;N ZIEN + ;S ZIEN=$O(^XTV(8992.1,"B",ZID,"")) ;IEN IN THE ALERT TRACKING FILE + ;I ZIEN="" W "ERROR RETRIEVING ALERT",! Q ; + D GETN^C0CRNF(ZARY,8992.1,ZID,"B") ; GET ALL THE ALERT FIELDS + ; THE FORMAT IS @ZARY@("DATA FOR PROCESSING")="FILE^FIELD^VALUE" + ; ALL POPULATED FIELDS (BUT NOT SUBFILES) ARE RETURNED + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0PFDA","","ZERR") + I $D(ZERR) D ; + . W "ERROR",! + . ZWR ZERR + . B + K C0PFDA + Q + ; +FIND ; FIND ALL CURRENT ALERTS + N ZI S ZI="" ; DUZ + F S ZI=$O(^XTV(8992,"AXQAN","OR,0,11305",ZI)) Q:ZI="" D ; + . N ZJ S ZJ="" ; TIME STAMP + . F S ZJ=$O(^XTV(8992,"AXQAN","OR,0,11305",ZI,ZJ)) Q:ZJ="" D ; + . . N ZZ,ZT + . . S ZZ=$G(^XTV(8992,ZI,"XQA",ZJ,0)) + . . S ZT=$P(ZZ,U,2) + . . Q:ZT="" + . . S ZG=$O(^XTV(8992.1,"B",ZT,"")) + . . Q:ZG="" + . . S ZGUID=$G(^XTV(8992.1,ZG,2)) + . . Q:ZGUID="" + . . S ZGUID=$P(ZGUID,U,1) + . . W !,ZI," ",ZJ," ",ZT," ",ZG," ",ZGUID + . . ;ZWR ^XTV(8992.1,ZG,*) + . . S G(ZJ,ZT,ZGUID)="" + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QUPDT.m b/qrda/C0Q/branches/recon/C0QUPDT.m new file mode 100644 index 0000000..d01a0fa --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QUPDT.m @@ -0,0 +1,201 @@ +C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11 17:05 + ;;0.1;C0Q;nopatch;noreleasedate;Build 26 + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; + ; +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE + ; NUMERATOR AND DENOMINATOR COUNTS + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE + ; + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING + ; + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII="" + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . I C0QNL="" D ; CHECK ALTERNATE LIST + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER + . . I C0QNL'="" S C0QNALT=1 + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . I C0QDL="" D ; CHECK ALTERNATE LIST + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER + . . I C0QDL'="" S C0QDALT=1 + . ; + . ; FIRST PROCESS THE NUMERATOR + . ; + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST + . . N ZNEW + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST + . . K C0QFLTRD + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) + . . S C0QNEW="C0QFLTRD" + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES + . N C0QCNT + . S C0QNCNT=$G(C0QRSLT("COUNT")) + . I C0QNCNT="" D ; + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO + . . N GZZ S GZZ="" + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY + . . . S C0QNCNT=C0QNCNT+1 + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY + . . . S C0QNCNT=C0QNCNT+1 + . K C0QFDA ; CLEAR THE FDA + . N C0QONCNT ; OLD COUNT + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT + . . D UPDIE ; UPDATE THE NUMERATOR COUNT + . I $D(C0QRSLT) D ;B ; + . . ;ZWR C0QRSLT + . ; FIRST PROCESS DELETIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZIEN S ZG="" + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY + . . I ZIEN="" D Q ; OOPS + . . . W !,"ERROR DELETING ENTRY!! ",ZG + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; SECOND, PROCESS ADDITIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZC S ZG="" S ZC=1 + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY + . . S ZC=ZC+1 + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; + . ; PROCESS THE DENOMINATOR + . ; + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST + . . N ZNEW + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST + . . K C0QFLTRD + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) + . . S C0QNEW="C0QFLTRD" + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES + . N C0QDCNT + . S C0QDCNT=$G(C0QRSLT("COUNT")) + . I C0QDCNT="" D ; + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO + . . N GZZ S GZZ="" + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY + . . . S C0QDCNT=C0QDCNT+1 + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY + . . . S C0QDCNT=C0QDCNT+1 + . K C0QFDA ; CLEAR THE FDA + . N C0QODCNT ; OLD COUNT + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT + . I $D(C0QRSLT) D ;B ; + . . ;ZWR C0QRSLT + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE + . ; FIRST PROCESS DELETIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZIEN S ZG="" + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY + . . I ZIEN="" D Q ; OOPS + . . . W !,"ERROR DELETING ENTRY!! ",ZG + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; SECOND, PROCESS ADDITIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZC S ZG="" S ZC=1 + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY + . . S ZC=ZC+1 + . I $D(C0QFDA) D UPDIE ; PROCESS + . N C0QPCT ; PERCENT + . D ; + . . I C0QDCNT>0 D ; + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) + . . E S C0QPCT=0 + . . K C0QFDA + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT + . . D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD + . ;S @RTN@("B",IV,ZIEN)=EV + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + ZWR C0QFDA + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; diff --git a/qrda/C0Q/branches/recon/C0QUTIL.m b/qrda/C0Q/branches/recon/C0QUTIL.m new file mode 100644 index 0000000..c27bca8 --- /dev/null +++ b/qrda/C0Q/branches/recon/C0QUTIL.m @@ -0,0 +1,75 @@ +C0QUTIL ;JJOH/ZAG/GPL - Utilities for C0Q Package ;9/2/11 4:30pm + ;;1.0;MU PACKAGE;;;Build 26 + ; + ;2011 Licensed under the terms of the GNU General Public License + ;See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; +AGE(DFN) ; return current age in years and months + ; + Q:'$G(DFN) ;quit if no there is no patient + N DOB S DOB=$P(^DPT(+DFN,0),U,3) ;date of birth + N YRS + N DOD S DOD=+$G(^DPT(9,.35)) ;check for date of death + I 'DOD D + . N CDTE S CDTE=DT ;current date + . S YRS=$E(CDTE,1,3)-$E(DOB,1,3)-($E(CDTE,4,7)<$E(DOB,4,7)) + E D + . S YRS=$E(DOD,1,3)-$E(DOB,1,3)-($E(DOD,4,7)<$E(DOB,4,7)) + ; + ;Come back here and fix MONTHS and DAYS + ;N CM S CM=+$E(DT,4,5) ;current month + ;N CD S CD=+$E(DT,6,7) ;current day + ;N BM S BM=+$E(DOB,4,5) ;birth month + ;N BD S BD=+$E(DOB,6,7) ;birth day + ; + ;N DAYS S DAYS="" + ; + Q YRS ;_"y" gpl ..just want the number + ; + ; +DTDIFF(ZD1,ZT1,ZD2,ZT2,SHOW) ; extrinsic which returns the number of minutes + ; between 2 dates. ZD1 and ZD2 are fileman dates + ; ZT1 AND ZT2 are valid times (military time) ie 20:10 + ; IF SHOW=1 DEBUGGING INTERMEDIATE VALUES WILL BE DISPLAYED + I '$D(SHOW) S SHOW=0 + N GT1,GT2,GDT1,GDT2 + I ZT1[":" D ; + . S GT1=($P(ZT1,":",1)*3600)+($P(ZT1,":",2)*60) ; SECONDS + . S GT2=($P(ZT2,":",1)*3600)+($P(ZT2,":",2)*60) ; SECONDS + E D ; + . S GT1=($E(ZT1,1,2)*3600)+($E(ZT1,3,4)*60) + . S GT2=($E(ZT2,1,2)*3600)+($E(ZT2,3,4)*60) + ;W:SHOW !,"SECONDS: ",GT1," ",GT2 + ;S %=GT1 D S^%DTC ; FILEMAN TIME + ;S GDT1=ZD1_% ; FILEMAN DATE AND TIME + ;S %=GT2 D S^%DTC ; FILEMAN TIME + ;S GDT2=ZD2_% ; FILEMAN DATE AND TIME + S GDT1=ZD1_"."_ZT1 + S GDT2=ZD2_"."_ZT2 + W:SHOW !,"FILEMAN: ",GDT1," ",GDT2 + N ZH1,ZH2 + S ZH1=$$FMTH^XLFDT(GDT1) ; $H FORMAT + S ZH2=$$FMTH^XLFDT(GDT2) ; $H FORMAT + W:SHOW !,"$H: ",ZH1," ",ZH2 + N ZSECS,ZMIN + S ZSECS=$$HDIFF^XLFDT(ZH1,ZH2,2) ; DIFFERENCE IN $H + W:SHOW !,"DIFF: ",ZSECS + S ZMIN=ZSECS/60 ; DIFFERENCE IN MINUTES + W:SHOW !,"MIN: ",ZMIN + Q ZMIN + ; +END ;end of C0QUTIL diff --git a/qrda/C0Q/branches/recon/JJOHMU12.m b/qrda/C0Q/branches/recon/JJOHMU12.m new file mode 100644 index 0000000..5537aa4 --- /dev/null +++ b/qrda/C0Q/branches/recon/JJOHMU12.m @@ -0,0 +1,1025 @@ +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 26 + ; + ;2011 Zach Gonzales - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL + ; +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS + ; ZARY IS PASSED BY NAME + ; ZTYP IS "INP" OR "EP" + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS + K @ZARY ; CLEAR RETURN ARRAY + N ZIEN,ZCNT,ZX + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE + . W !,"ERROR, NO PARAMETERS AVAILABLE" + S ZIEN="" + S ZCNT=0 + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; + . S ZCNT=ZCNT+1 + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") + . D CLEAN^DILF + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST + . . W !,"ERROR READING CLINIC PARAMETER LIST" + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) + ; + Q + ; +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + S ZYR="MU12-" + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + S C0QLIST(ZYR_"HasDemographics")="" + S C0QLIST(ZYR_"Patient")="" + S C0QLIST(ZYR_"HasProblem")="" + S C0QLIST(ZYR_"HasAllergy")="" + S C0QLIST(ZYR_"HasMed")="" + S C0QLIST(ZYR_"HasVitalSigns")="" + S C0QLIST(ZYR_"HasMedOrders")="" + S C0QLIST(ZYR_"HasSmokingStatus")="" + D ALL ; all currently admitted patients in the hospital + D DIS ; all patients discharged since the reporting period began + I C0QSS ZWR GRSLT + D ICUPAT ; GENERATE ICU PATIENT LIST + I C0QPL D ; + . D FILE ; FILE THE PATIENT LISTS + . D UPDATE^C0QUPDT(.G,10) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR + . D UPDATE^C0QUPDT(.G,11) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR + Q + ; +BUILD2 ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + S ZYR="MU12-" + D INITCLST ; initialize C0QLIST + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + N C0QPARM + D INIT("C0QPARM","INP") ; initialize inpatient parms + I $O(C0QPARM(""))="" D Q ; no parms for inpatient + . W !,"No inpatient parameters" + N ZDIV S ZDIV="" + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division + . D ALL ; all currently admitted patients in the hospital + . D DIS ; all patients discharged since the reporting period began + . I C0QSS ZWR GRSLT + . D ICUPAT ; GENERATE ICU PATIENT LIST + . I C0QPL D ; + . . D FILE ; FILE THE PATIENT LISTS + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; + . K C0QLIST + Q + ; +INITCLST ; initialize C0QLIST + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + K C0QLIST + S C0QLIST(ZYR_"HasDemographics")="" + S C0QLIST(ZYR_"Patient")="" + S C0QLIST(ZYR_"HasProblem")="" + S C0QLIST(ZYR_"HasAllergy")="" + S C0QLIST(ZYR_"HasMed")="" + S C0QLIST(ZYR_"HasVitalSigns")="" + S C0QLIST(ZYR_"HasMedOrders")="" + S C0QLIST(ZYR_"HasSmokingStatus")="" + Q + ; +ALL ;retrieve active inpatients + N WARD S WARD="" + F D Q:WARD="" + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name + . Q:WARD="" + . N WIEN S WIEN="" + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name + . . N DFN,RB S DFN="" + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward + . . . D DEMO + . . . D PROBLEM + . . . D ALLERGY + . . . D MEDS4 + . . . D RECON2 + . . . D ADVDIR + . . . D SMOKING + . . . D VITALS + . . . D VTE1 + . . . D COD + . . . D EDTIME + . . . I C0QPR D PRINT + . . . I C0QSS D SS + . . . I C0QPL D PATLIST + Q + ; +DEMO ; patient demographics + K PTDOB + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB + S PTNAME=$P(^DPT(DFN,0),U) ;patient name + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + S PTHRN=$P($G(VA("PID")),U) ;health record number + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + S RACE="" + F D Q:RACE="" + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN + . Q:'RACE + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description + S ETHN="" + F D Q:ETHN="" + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN + . Q:'ETHN + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + I DEMOYN S C0QLIST(ZYR_"HasDemographics",DFN)="" + E S C0QLIST(ZYR_"FailedDemographics",DFN)="" + Q + ; +PROBLEM ; PATIENT PROBLEMS + D LIST^ORQQPL(.PROBL,DFN,"A") + S PBCNT="" + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" + E S C0QLIST(ZYR_"HasProblem",DFN)="" + K PROBL + Q + ; +ALLERGY ; ALLERGY LIST + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL + D LIST^ORQQAL(.ALRGYL,DFN) + S ALCNT="" + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" + E S C0QLIST(ZYR_"HasAllergy",DFN)="" + K ALRGYL + Q + ; +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 + N BEG,END + S BEG=$$DT^C0PCUR("JULY 3,2011") + S END=$$DT^C0PCUR("NOW") + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 + N C0QMEDS + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL + N FOUND + N ZI + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS + . S C0QLIST(ZYR_"NoMed",DFN)="" + E D ; HAS MEDS + . S C0QLIST(ZYR_"HasMed",DFN)="" + S ZI="" S FOUND=0 + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED + . N ZM + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE + . . S FOUND=1 + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" + Q + ; +RECON ; MEDICATIONS RECONCILIATION + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL + ; + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient + N HASRECON S HASRECON=0 + N GT,G + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON + . S HASRECON=1 + ;N ZT + ;S ZT="MEDICATION RECONCILIATION COMPLET" + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; + ;. S HASRECON=1 + ;E D ; + ;. S ZT="Medication Reconcilation Complete" + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; + ;. . S HASRECON=1 + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 + I HASRECON D ; + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +ERX ; FOR EP, WE LOOK AT ERX MEDS + N ZI S ZI="" + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; + . ;B + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; + . . S C0QLIST(ZYR_"HasMed",DFN)="" + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" + . . S C0QLIST(ZYR_"HasERX",DFN)="" + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + . E D ; + . . S C0QLIST(ZYR_"NoMed",DFN)="" + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" + . . S C0QLIST(ZYR_"NoERX",DFN)="" + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +ADVDIR ; ADVANCE DIRECTIVE + ; + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER + . S C0QLIST(ZYR_"Over65",DFN)="" + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" + . E D ; + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" + Q + ; +SMOKING ; + ; WANT TO CHANGE SMOKING STATUS CHECKING FOR 2012 TO A SIMPLE SET OF + ; HEALTH FACTORS. GPL + I $$INLIST(ZYR_"HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STAT CHECK + . S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" + . S C0QLIST(ZYR_"Over12",DFN)="" + I $$INLIST(ZYR_"NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" + . S C0QLIST(ZYR_"Over12",DFN)="" + N C0QSMOKE,C0QSYN + S C0QSYN=0 + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE + ; PATIENT IN THE CATEGORY OF TOBACCO + I $D(C0QSMOKE) S C0QSYN=1 + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - No") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - Yes") + S C0QLIST(ZYR_"Over12",DFN)="" + ;N GT + ;S GT(1,"HasSmokingStatus","SMOK")="" + ;S GT(2,"HasSmokingStatus","Smok")="" + ;S GT(3,"HasSmokingStatus","smok")="" + ;I 'C0QSYN D ; + ;. N G + ;. S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) + ;. I $D(G) S C0QSYN=1 + I C0QSYN S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" + E S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" + Q + ; +VITALS ; + ; + N C0QSDT,C0QEDT + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS + I $D(VITRSLT) D ;ZWR VITRSLT B ; + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" + Q + ; +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL + ; + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; + . S C0QLIST(ZYR_"HasVTE24",DFN)="" + E S C0QLIST(ZYR_"NoVTE24",DFN)="" + Q + ; +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" + Q + ; +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS + N FOUND + S FOUND=0 + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 + I FOUND D ; + . S C0QLIST(ZYR_"HasEDtime",DFN)="" + E S C0QLIST(ZYR_"NoEDtime",DFN)="" + Q + ; +ICUPAT ; CREATE LIST OF ICU PATIENTS + N ZICU + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION + N ZI,ZJ,ZP + S ZI="" + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE + . S ZJ="" + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" + Q + ; +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING + K C0QLIST + N ZPAT + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted + ; during the reporting period. used to filter other lists + ; + ; filter ICU patients against ZPAT + N GN,GO,GF + S GN=ZPAT + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE + ; + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + D FILE ; FILE ALL THE PATIENT LISTS + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set + Q + ; +ED1 ; + S ZYR="MU12-" + D DOTIME("ED DEPARTURE TIME") + Q + ; +ED2 ; + S ZYR="MU12-" + D DOTIME2("TIME DECISION TO ADMIT MADE") + Q + ; +DOTIME(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME + N ZP + S ZP=$$PATLN(ZYR_"HasEDtime") ; patient list name for patients to process + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS + S ZVFN=9000010 ; VISIT FILE NUMBER + K ZARY1,ZARY2 + N ZI S ZI="" + S COUNT=0 + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . S COUNT=COUNT+1 + . N ZA,ZD + . S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT + . ; THE COMMENT IS THE TIME XXYY + . N OK,TMP + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) + . S GTOT=G1-G2 + . W !,"TIME: ",GTOT," ESTIMATED" + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES + . W !,"COMPUTED MINUTES: ",ZT + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES + . . W !,"****EXCLUDED****" + . I ZT>400000 D Q ; THESE ARE ERRORS + . . W !,"****EXCLUDED****" + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS + N ZY,ZZ S ZY="" S ZZ="" + N ZCOUNT S ZCOUNT=0 + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME + . . S ZCOUNT=ZCOUNT+1 + . . S ZARY2(ZCOUNT,ZY,ZZ)="" + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY + N ZMID + S ZMID=$P(ZCOUNT/2,".") + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT + W !,"ED ARRIVAL TIME UNTIL ",ZHF + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) + Q + ; +DOTIME2(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME + N ZP + S ZP=$$PATLN(ZYR_"HasEDtime") ; patient list name for patients to process + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS + S ZVFN=9000010 ; VISIT FILE NUMBER + K ZARY1,ZARY2 + N ZI S ZI="" + S COUNT=0 + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . S COUNT=COUNT+1 + . N ZA,ZD + . ;S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . ;S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . S ZA=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . S ZD=$$VHFIEN^C0QHF(ZI,"ED DEPARTURE TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT + . ; THE COMMENT IS THE TIME XXYY + . N OK,TMP + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) + . S GTOT=G1-G2 + . W !,"TIME: ",GTOT," ESTIMATED" + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES + . W !,"COMPUTED MINUTES: ",ZT + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES + . . W !,"****EXCLUDED****" + . I ZT>400000 D Q ; THESE ARE ERRORS + . . W !,"****EXCLUDED****" + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS + N ZY,ZZ S ZY="" S ZZ="" + N ZCOUNT S ZCOUNT=0 + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME + . . S ZCOUNT=ZCOUNT+1 + . . S ZARY2(ZCOUNT,ZY,ZZ)="" + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY + N ZMID + S ZMID=$P(ZCOUNT/2,".") + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT + W !,"ED ARRIVAL TIME UNTIL ",ZHF + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) + Q + ; +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST + ; WHOSE NAME IS ZLST + N ZIEN,ZN + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST + Q ZN + ; +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH + ; THE ATTRIBUTE ZATTR + N ZIEN,ZN + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST + Q ZN + ; +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST + N ZL,ZR + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE + I ZL="" Q 0 ; LIST DOES NOT EXIST + S ZR=0 ; ASSUME NOT IN LIST + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST + Q ZR + ; + ; LOOK AT GETTING RID OF PRINT AND SS AS THEY ARE NOT BEING USED. GPL +PRINT ; PRINT TO SCREEN + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " + I $D(EXDTE) D ; + . W !,"Discharge Date: ",EXDTE + . W !,DFN," ",PTNAME + W !,"DOB: ",PTDOB," HRN: ",PTHRN + W !,"Language Spoken: ",$G(PTLANG) + W !,"Race: ",RACEDSC + W !,"Ethnicity: ",$G(ETHNDSC) + W !,"Problems: " + W !,PBDESC + W !,"Allergies: " + W !,ALDESC + W !,"Medications: " + W ! + Q + ; +SS ; CREATE SPREADSHEET ARRAY + S G1("Patient")=DFN + I $D(WARD) D ; + . S G1("WardName")=WARDNAME + . S G1("RoomAndBed")=RB + I $D(EXDTE) D ; + . S G1("DischargeDate")=EXDTE + S G1("PatientName")=PTNAME + S G1("Gender")=PTSEX + S G1("DateOfBirth")=PTDOB + S G1("HealthRecordNumber")=PTHRN + S G1("LanguageSpoken")=$G(PTLANG) + S G1("Race")=RACEDSC + S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S G1("HasProblem")=0 + E S G1("HasProblem")=1 + S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S G1("HasAllergy")=0 + E S G1("HasAllergy")=1 + I $D(MDITEM) D ; + . S G1("HasMed")=1 + E S G1("HasMed")=0 + S G1("MedDescription")=$G(MDDESC) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC + D RNF1TO2B^C0CRNF("GRSLT","G1") + K G1 + Q ; DON'T WANT TO DO THE NHIN STUFF NOW + ; +PATLIST ; CREATE PATIENT LISTS + ; WANT TO GET RID OF PATLIST AND MOVE FUNCTION TO OTHER ROUTINES. GPL + S C0QLIST(ZYR_"Patient",DFN)="" ; THE PATIENT LIST + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" + ;E S C0QLIST("FailedDemographics",DFN)="" + ;S G1("Gender")=PTSEX + ;S G1("DateOfBirth")=PTDOB + ;S G1("HealthRecordNumber")=PTHRN + ;S G1("LanguageSpoken")=$G(PTLANG) + ;S G1("Race")=RACEDSC + ;S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" + E S C0QLIST(ZYR_"HasProblem",DFN)="" + ;S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" + E S C0QLIST(ZYR_"HasAllergy",DFN)="" + ;I $D(MDITEM) D ; + ;. S C0QLIST("HasMed",DFN)="" + ;E S G1("NoMed",DFN)="" + ;S G1("MedDescription")=$G(MDDESC) + Q + ; +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT + Q:DFN=137!14 + D EN^C0CNHIN(.G,DFN,"") + ZWR G + K G + ; + QUIT ;end of WARD + ; +LOCPAT(PREFIX,LOC) ;retrieve active outpatients + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" + ; LOC IS HOSPITAL LOCATION + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION + I ULOC="" D Q ; OOPS + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC + S IDTE=9999999-DTE ; INVERSE DATE + N ZI + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE + . W !,$$FMTE^XLFDT(9999999-ZI) ;B ; + . I ZI="" Q ; + . N ZJ S ZJ="" + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT + . . S C0QLIST(PREFIX_"Patient",DFN)="" + Q + ; +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS + ; + S DTE=3111000 + S MUYR=ZYR + N ZC,ZN + S ZN=0 + N ZI S ZI=0 + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC + . S ZCIEN=ZI ; IEN OF CLINIC + . S ZN=ZN+1 ; COUNT OF CLINICS + . S PRE=MUYR_"-EP-"_ZC_"-" + . D LOCPAT(PRE,ZC) + W !,"NUMBER OF CLINICS: ",ZN + D FILE ; CREATE ALL THE EP PATIENT LISTS + Q + ; +DOEP ; DO EP COMPUTATIONS + S ZYR="MU12-" + N C0QPARM,C0QCLNC + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS + K C0QLIST ; CLEAR THE LIST + N ZI S ZI="" + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now + . S PRE=ZYR_"EP-"_C0QCLNC_"-" + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS + . I $D(DEBUG) ZWR C0QLIST + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") + S DFN="" + S ZYR=ZYR_"EP-" + F S DFN=$O(C0QLIST(ZYR_"EP-ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT + . D DEMO + . D PROBLEM + . D ALLERGY + . ;D MEDS + . D ERX + . D SMOKING + . D VITALS + D FILE ; FILE THE PATIENT LISTS + N C0QCIEN + S ZI="" + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; + . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set + . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET + Q + ; +DIS; + N DFN,DTE,EXDTE S DTE="" + F D Q:DTE="" + . S DTE=$O(^DGPM("B",DTE)) + . Q:'DTE + . ;Q:$P(DTE,".")<3110703 + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 + . S EXDTE=$$FMTE^XLFDT(DTE) + . N PTFM S PTFM="" + . D + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) + . . Q:'PTFM + . . S DFN=$P(^DGPM(PTFM,0),U,3) + . . S C0QLIST(ZYR_"Patient",DFN)="" + . . D DEMO + . . D PROBLEM + . . D ALLERGY + . . D MEDS4 + . . D RECON2 + . . D ADVDIR + . . D SMOKING + . . D VITALS + . . ;D:$P(DTE,".")>3110912 VTE1 + . . D VTE1 + . . D COD + . . D EDTIME + . . I C0QPR D PRINT + . . I C0QSS D SS + . . I C0QPL D PATLIST + Q + ; +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST + ; + I '$D(C0QLIST) Q ; + N LFN S LFN=$$C0QALFN() + N ZI,ZN + S ZI="" + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) + . I ZN="" D ; LIST NOT FOUND, CREATE IT + . . K C0QFDA + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE + . . S C0QFDA(FN,"+1,",.01)=ZI + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE + . . W !,"CREATING ",ZI + . . D UPDIE ; ADD THE RECORD + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN + . ;I ZN="" D Q ; OOPS + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN + . N C0QNEW,C0QOLD,C0QRSLT + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW + . N ZJ,ZK + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST + . K C0QFDA + . S ZJ="" + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" + . . . B + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS + . ; SECOND, PROCESS THE ADDITIONS + . K C0QFDA + . S ZJ="" S ZK=1 + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ + . . S ZK=ZK+1 + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS + ;. Q + ;. K C0QFDA + ;. N ZJ,ZC + ;. S ZJ="" S ZC=1 + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ + ;. . S ZC=ZC+1 + ;. D UPDIE + ;. W !,"FOUND:"_ZI + Q + ; +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE + ; + N C0QFDA,ZFN,LIST,ATTR + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE + D CLEAN^DILF + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE + D CLEAN^DILF + K ZERR + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE + D UPDIE ; CREATE THE SUBFILE + N ZR ; NEW IEN FOR THE RECORD + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) + ; + Q ZR + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + ;. . S RACE="" + ;. . F D Q:RACE="" + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) + ;. . . Q:'RACE + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) + ;. . N ETHNDSC + ;. . N ETHNDSC S ETHNDSC="" + ;. . S ETHN="" + ;. . F D Q:ETHN="" + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) + ;. . . Q:'ETHN + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") + ;. . S PBCNT="" + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + ;. . K PROBL + ;. . D LIST^ORQQAL(.ALRGYL,DFN) + ;. . S ALCNT="" + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + ;. . K ALRGYL + ;. . D COVER^ORWPS(.MEDSL,DFN) + ;. . S MDCNT="" + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + ;. . K MEDSL + ;. . W !,"Discharge Date: ",EXDTE + ;. . W !,DFN," ",PTNAME + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN + ;. . W !,"Language Spoken: ",$G(PTLANG) + ;. . W !,"Race: ",RACEDSC + ;. . W !,"Ethnicity: ",ETHNDSC + ;. . W !,"Problems: " + ;. . W !,PBDESC + ;. . W !,"Allergies: " + ;. . W !,ALDESC + ;. . W !,"Medications: " + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC + ;. . W ! + ;Q + ; + ; + ; + ; +END ;end of C0QPRML; diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-001_PAT-002.KID b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-001_PAT-002.KID new file mode 100644 index 0000000..a8ad2aa --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-001_PAT-002.KID @@ -0,0 +1,75488 @@ +KIDS Distribution saved on Aug 03, 2012@15:53:39 +QUALITY MEASURES 1.0 PATCH 2 +**KIDS**:C0Q*1.0*2^ + +**INSTALL NAME** +C0Q*1.0*2 +"BLD",7935,0) +C0Q*1.0*2^QUALITY MEASURES^0^3120803^y +"BLD",7935,1,0) +^^307^307^3120803^ +"BLD",7935,1,1,0) + Summary +"BLD",7935,1,2,0) + ======= +"BLD",7935,1,3,0) + This build contains the reminder rules and extracts for use with the +"BLD",7935,1,4,0) +Quality Measures package for reporting for Meaningful use Stage I. It +"BLD",7935,1,5,0) +also installs reminder dialogs for use in populating data for some of the +"BLD",7935,1,6,0) +Outpatient Measures. +"BLD",7935,1,7,0) + +"BLD",7935,1,8,0) + Source, Copyright, & Licensing: +"BLD",7935,1,9,0) + =============================== +"BLD",7935,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"BLD",7935,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"BLD",7935,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"BLD",7935,1,13,0) + Copyright WorldVistA 2012. +"BLD",7935,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"BLD",7935,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"BLD",7935,1,16,0) + Released through VISTA Forum. +"BLD",7935,1,17,0) + +"BLD",7935,1,18,0) + Functionality: +"BLD",7935,1,19,0) + ============== +"BLD",7935,1,20,0) + This patch installs the following reminder rules and selectively extracts +"BLD",7935,1,21,0) +for these Meaningful Use Stage I measure. +"BLD",7935,1,22,0) + +"BLD",7935,1,23,0) + NQF 0024-alt-core_wt-kids +"BLD",7935,1,24,0) + NQF 0013-core-HTN +"BLD",7935,1,25,0) + NQF 0028a-core-tobacco-access +"BLD",7935,1,26,0) + NQF 0028b-core-tobaocc-intervention +"BLD",7935,1,27,0) + NQF 0041-alt-core-flu +"BLD",7935,1,28,0) + NQF 0059-option1-DM-Hbalc +"BLD",7935,1,29,0) + NQF 0061-option3-DM-BP +"BLD",7935,1,30,0) + NQF 0064-option2-DM-LDL +"BLD",7935,1,31,0) + NQF 0495 (Education 1 for Inpatient) +"BLD",7935,1,32,0) + NQF 0497 (Education 2 for Inpatient) +"BLD",7935,1,33,0) + MU Inpatient Stroke Measures (contains labs) +"BLD",7935,1,34,0) + - NQF 0435 +"BLD",7935,1,35,0) + - NQF 0436 +"BLD",7935,1,36,0) + - NQF 0437 +"BLD",7935,1,37,0) + - NQF 0438 +"BLD",7935,1,38,0) + - NQF 0439 +"BLD",7935,1,39,0) + - NQF 0440 +"BLD",7935,1,40,0) + - NQF 0441 +"BLD",7935,1,41,0) + MU Inpatient Venous Thombotic Embolism Measures (contains labs) +"BLD",7935,1,42,0) + - NQF 0371 +"BLD",7935,1,43,0) + - NQF 0372 +"BLD",7935,1,44,0) + - NQF 0373 +"BLD",7935,1,45,0) + - NQF 0374 +"BLD",7935,1,46,0) + - NQF 0375 +"BLD",7935,1,47,0) + - NQF 0376 +"BLD",7935,1,48,0) + - NQF 0421-core-adult-weight (contains reminder extracts) +"BLD",7935,1,49,0) + - NQF 0038-alt-core-childImms (contains reminder extracts) +"BLD",7935,1,50,0) + +"BLD",7935,1,51,0) +In addition, the following CPRS dialogs are sent in this patch. +"BLD",7935,1,52,0) + - MU NQF0421 BMI DI +"BLD",7935,1,53,0) + - MU NQF0041 INFLUENZA MANAGEMENT DI +"BLD",7935,1,54,0) + - MU NQF0038 IMMUNE MANAGEMENT DI +"BLD",7935,1,55,0) + - MU NQF0028AB MANAGEMENT DI +"BLD",7935,1,56,0) + - MU SMOKING STATUS DI +"BLD",7935,1,57,0) + +"BLD",7935,1,58,0) +All of this is installed automatically, except if the labs transported in +"BLD",7935,1,59,0) +the dialog cannot be found, the installer will be prompted to rematch +"BLD",7935,1,60,0) +them. +"BLD",7935,1,61,0) + +"BLD",7935,1,62,0) + Package Elements: +"BLD",7935,1,63,0) + ================= +"BLD",7935,1,64,0) + This build transports and installs the following REMINDER EXCHANGE +"BLD",7935,1,65,0) +entries: +"BLD",7935,1,66,0) +MU NQF0013 HTN_MK 07/06/2011@15:08:53 +"BLD",7935,1,67,0) +MU NQF0024-ALL 07/31/2012@17:49:03 +"BLD",7935,1,68,0) +MU NQF0028 TOBACCO_MK 07/06/2011@15:14:49 +"BLD",7935,1,69,0) +MU NQF0028AB MANAGEMENT DI 06/08/2011@16:50:31 +"BLD",7935,1,70,0) +MU NQF0038 CHILD IMM SMH 07/27/2012@17:48:33 +"BLD",7935,1,71,0) +MU NQF0041 FLU_MK 07/06/2011@15:26:59 +"BLD",7935,1,72,0) +MU NQF0059_61_64_SMH 07/16/2012@10:46:17 +"BLD",7935,1,73,0) +MU NQF0421 ADULT BMI SMH 07/26/2012@11:00:17 +"BLD",7935,1,74,0) +MU STROKE 2.3.4.5.6.8.10 SMH 07/18/2012@10:33:53 +"BLD",7935,1,75,0) +MU NQF 0495 ED-1 07/17/2012@11:47:55 +"BLD",7935,1,76,0) +MU NQF 0497 ED-2 07/17/2012@11:50:23 +"BLD",7935,1,77,0) +MU VTE 1.2.3.4.5.6 SMH 07/20/2012@09:48:30 +"BLD",7935,1,78,0) +MU CPRS HELP DIS 08/01/2012@18:32:29 +"BLD",7935,1,79,0) + +"BLD",7935,1,80,0) + Routines: +"BLD",7935,1,81,0) + ========= +"BLD",7935,1,82,0) + C0Q1P2 (Transport and KIDS install routine) +"BLD",7935,1,83,0) + +"BLD",7935,1,84,0) + The second line of each of these routines now looks like: +"BLD",7935,1,85,0) + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 21 +"BLD",7935,1,86,0) + +"BLD",7935,1,87,0) + Documentation: +"BLD",7935,1,88,0) + +"BLD",7935,1,89,0) + +"BLD",7935,1,90,0) + Test Sites: +"BLD",7935,1,91,0) + =========== +"BLD",7935,1,92,0) + +"BLD",7935,1,93,0) + +"BLD",7935,1,94,0) + Compliance: +"BLD",7935,1,95,0) + =========== +"BLD",7935,1,96,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7935,1,97,0) + Conventions (version 3 April 2007). +"BLD",7935,1,98,0) + +"BLD",7935,1,99,0) + Installation Instructions: +"BLD",7935,1,100,0) + ========================== +"BLD",7935,1,101,0) + Pre-installation: +"BLD",7935,1,102,0) + +"BLD",7935,1,103,0) + Prerequisite patches: +"BLD",7935,1,104,0) + - PXRM*2.0*12 (Download from VA FOIA Site; part of a Multibuild) +"BLD",7935,1,105,0) + - PXRM*2.0*17 (Download from VA FOIA Site; part of a Multibuild) +"BLD",7935,1,106,0) + - TMG*1.0*17 (Download from Trac Server: +"BLD",7935,1,107,0) + https://trac.opensourcevista.net/svn/PGC/tags/TMG-PGC/) +"BLD",7935,1,108,0) + +"BLD",7935,1,109,0) + For a successful installation, you need to be sure that the labs that +"BLD",7935,1,110,0) +the Inpatient Measures rely on exist. If not, the Lab ADPAC needs to +"BLD",7935,1,111,0) +create them. These labs are: +"BLD",7935,1,112,0) + - LDL CHOLESTEROL +"BLD",7935,1,113,0) + - PLT +"BLD",7935,1,114,0) + - INR +"BLD",7935,1,115,0) + +"BLD",7935,1,116,0) + If these don't exist by the same name as above, the installer will be +"BLD",7935,1,117,0) +asked to rematch them. +"BLD",7935,1,118,0) + +"BLD",7935,1,119,0) + Users can remain on the system while this patch is installed. +"BLD",7935,1,120,0) + +"BLD",7935,1,121,0) + Install Time - less than 5 minutes +"BLD",7935,1,122,0) + +"BLD",7935,1,123,0) + The Pre-installation routine PRE^C0Q1P2 will delete existing Reminder +"BLD",7935,1,124,0) +Exchange entries with the same name. +"BLD",7935,1,125,0) + +"BLD",7935,1,126,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7935,1,127,0) + +"BLD",7935,1,128,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7935,1,129,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"BLD",7935,1,130,0) + Use the Load a Distribution option in KIDS to load it from a +"BLD",7935,1,131,0) + host file. +"BLD",7935,1,132,0) + +"BLD",7935,1,133,0) + 2. START UP KIDS +"BLD",7935,1,134,0) + +"BLD",7935,1,135,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7935,1,136,0) + [XPD MAIN]: +"BLD",7935,1,137,0) + +"BLD",7935,1,138,0) + Edits and Distribution ... +"BLD",7935,1,139,0) + Utilities ... +"BLD",7935,1,140,0) + Installation ... +"BLD",7935,1,141,0) + +"BLD",7935,1,142,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7935,1,143,0) + --- +"BLD",7935,1,144,0) + Load a Distribution +"BLD",7935,1,145,0) + Print Transport Global +"BLD",7935,1,146,0) + Compare Transport Global to Current System +"BLD",7935,1,147,0) + Verify Checksums in Transport Global +"BLD",7935,1,148,0) + Install Package(s) +"BLD",7935,1,149,0) + Restart Install of Package(s) +"BLD",7935,1,150,0) + Unload a Distribution +"BLD",7935,1,151,0) + Backup a Transport Global +"BLD",7935,1,152,0) + +"BLD",7935,1,153,0) + Select Installation Option: +"BLD",7935,1,154,0) + +"BLD",7935,1,155,0) + 3. Select Installation Option: +"BLD",7935,1,156,0) + +"BLD",7935,1,157,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7935,1,158,0) + NAME, enter C0Q*1.0*2): +"BLD",7935,1,159,0) + +"BLD",7935,1,160,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7935,1,161,0) + message of any routines exported with this patch. It will not +"BLD",7935,1,162,0) + backup any other changes such as DD's or templates. +"BLD",7935,1,163,0) + b. Compare Transport Global to Current System - This option will +"BLD",7935,1,164,0) + allow you to view all changes that will be made when this patch +"BLD",7935,1,165,0) + is installed. It compares all components of this patch +"BLD",7935,1,166,0) + (routines, DD's, templates, etc.). +"BLD",7935,1,167,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7935,1,168,0) + you to ensure the integrity of the routines that are in the +"BLD",7935,1,169,0) + transport global. +"BLD",7935,1,170,0) + +"BLD",7935,1,171,0) + 4. Select Installation Option: Install Package(s) +"BLD",7935,1,172,0) + +"BLD",7935,1,173,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7935,1,174,0) + +"BLD",7935,1,175,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7935,1,176,0) + and enter "C0Q*1.0*2" at the INSTALL NAME prompt. +"BLD",7935,1,177,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7935,1,178,0) + Install? NO//' answer NO +"BLD",7935,1,179,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7935,1,180,0) + NO//' answer NO +"BLD",7935,1,181,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7935,1,182,0) + and Protocols? NO//' answer NO +"BLD",7935,1,183,0) + +"BLD",7935,1,184,0) + The Post-installation routine POST^C0Q1P2 will install the Reminder +"BLD",7935,1,185,0) +Exchange entries. +"BLD",7935,1,186,0) + +"BLD",7935,1,187,0) +Here is an example installation log. It includes lab replacements. +"BLD",7935,1,188,0) +Select INSTALL NAME: C0Q*1.0*2 Loaded from Distribution Loaded +"BLD",7935,1,189,0) +from D +"BLD",7935,1,190,0) +istribution 8/3/12@14:23:27 +"BLD",7935,1,191,0) + => SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"BLD",7935,1,192,0) + +"BLD",7935,1,193,0) +This Distribution was loaded on Aug 03, 2012@14:23:27 with header of +"BLD",7935,1,194,0) + SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"BLD",7935,1,195,0) + It consisted of the following Install(s): +"BLD",7935,1,196,0) + C0Q*1.0*2 +"BLD",7935,1,197,0) + +"BLD",7935,1,198,0) + Checking C0Q*1.0*2 for overlap with VOE 1.0 . OK +"BLD",7935,1,199,0) + No overlap found +"BLD",7935,1,200,0) + +"BLD",7935,1,201,0) + +"BLD",7935,1,202,0) + Checking C0Q*1.0*2 for overlap with VOE 1.1 . OK +"BLD",7935,1,203,0) + No overlap found +"BLD",7935,1,204,0) + +"BLD",7935,1,205,0) + +"BLD",7935,1,206,0) + Checking C0Q*1.0*2 for overlap with NO HOME 1.0 . OK +"BLD",7935,1,207,0) + No overlap found +"BLD",7935,1,208,0) + +"BLD",7935,1,209,0) +Checking Install for Package C0Q*1.0*2 +"BLD",7935,1,210,0) + +"BLD",7935,1,211,0) +Install Questions for C0Q*1.0*2 +"BLD",7935,1,212,0) + +"BLD",7935,1,213,0) +Incoming Files: +"BLD",7935,1,214,0) + +"BLD",7935,1,215,0) + +"BLD",7935,1,216,0) + 811.8 REMINDER EXCHANGE (including data) +"BLD",7935,1,217,0) +Note: You already have the 'REMINDER EXCHANGE' File. +"BLD",7935,1,218,0) +I will OVERWRITE your data with mine. +"BLD",7935,1,219,0) + +"BLD",7935,1,220,0) + +"BLD",7935,1,221,0) +Want KIDS to INHIBIT LOGONs during the install? NO// +"BLD",7935,1,222,0) +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// +"BLD",7935,1,223,0) + +"BLD",7935,1,224,0) +Enter the Device you want to print the Install messages. +"BLD",7935,1,225,0) +You can queue the install by enter a 'Q' at the device prompt. +"BLD",7935,1,226,0) +Enter a '^' to abort the install. +"BLD",7935,1,227,0) + +"BLD",7935,1,228,0) +DEVICE: HOME// PHOME HOME PRINTER +"BLD",7935,1,229,0) + +"BLD",7935,1,230,0) + +"BLD",7935,1,231,0) + Install Started for C0Q*1.0*2 : +"BLD",7935,1,232,0) + Aug 03, 2012@14:23:33 +"BLD",7935,1,233,0) + +"BLD",7935,1,234,0) +Build Distribution Date: Aug 03, 2012 +"BLD",7935,1,235,0) + +"BLD",7935,1,236,0) + Installing Routines:.. +"BLD",7935,1,237,0) + Aug 03, 2012@14:23:33 +"BLD",7935,1,238,0) + +"BLD",7935,1,239,0) + Running Pre-Install Routine: PRE^C0Q1P2. +"BLD",7935,1,240,0) + +"BLD",7935,1,241,0) + Installing Data Dictionaries: .. +"BLD",7935,1,242,0) + Aug 03, 2012@14:23:34 +"BLD",7935,1,243,0) + +"BLD",7935,1,244,0) + Installing Data: +"BLD",7935,1,245,0) + Aug 03, 2012@14:23:35 +"BLD",7935,1,246,0) + +"BLD",7935,1,247,0) + Running Post-Install Routine: POST^C0Q1P2. +"BLD",7935,1,248,0) + +"BLD",7935,1,249,0) +Installing reminder exchange entry MU NQF0024-ALL +"BLD",7935,1,250,0) + +"BLD",7935,1,251,0) +Installing reminder exchange entry MU NQF0013 HTN_MK +"BLD",7935,1,252,0) + +"BLD",7935,1,253,0) +Installing reminder exchange entry MU NQF0028 TOBACCO_MK +"BLD",7935,1,254,0) + +"BLD",7935,1,255,0) +Installing reminder exchange entry MU NQF0041 FLU_MK +"BLD",7935,1,256,0) + +"BLD",7935,1,257,0) +Installing reminder exchange entry MU NQF0059_61_64_SMH +"BLD",7935,1,258,0) + +"BLD",7935,1,259,0) +Installing reminder exchange entry MU NQF 0495 ED-1 +"BLD",7935,1,260,0) + +"BLD",7935,1,261,0) +Installing reminder exchange entry MU NQF 0497 ED-2 +"BLD",7935,1,262,0) + +"BLD",7935,1,263,0) +Installing reminder exchange entry MU STROKE 2.3.4.5.6.8.10 SMH +"BLD",7935,1,264,0) + +"BLD",7935,1,265,0) +Installing reminder exchange entry MU VTE 1.2.3.4.5.6 SMH +"BLD",7935,1,266,0) +Finding LT.INR does not exist, what do you want to do? +"BLD",7935,1,267,0) + +"BLD",7935,1,268,0) + Select one of the following: +"BLD",7935,1,269,0) + +"BLD",7935,1,270,0) + +"BLD",7935,1,271,0) + D Delete +"BLD",7935,1,272,0) + P Replace with an existing entry +"BLD",7935,1,273,0) + Q Quit the install +"BLD",7935,1,274,0) + +"BLD",7935,1,275,0) +Enter response: P Replace with an existing entry +"BLD",7935,1,276,0) +Select LABORATORY TEST NAME: SAM INR +"BLD",7935,1,277,0) +Finding LT.INR does not exist, what do you want to do? +"BLD",7935,1,278,0) + +"BLD",7935,1,279,0) + Select one of the following: +"BLD",7935,1,280,0) + +"BLD",7935,1,281,0) + +"BLD",7935,1,282,0) + D Delete +"BLD",7935,1,283,0) + P Replace with an existing entry +"BLD",7935,1,284,0) + Q Quit the install +"BLD",7935,1,285,0) + +"BLD",7935,1,286,0) +Enter response: P Replace with an existing entry +"BLD",7935,1,287,0) +Select LABORATORY TEST NAME: SAM INR +"BLD",7935,1,288,0) + +"BLD",7935,1,289,0) +Installing reminder exchange entry MU NQF0421 ADULT BMI SMH +"BLD",7935,1,290,0) + +"BLD",7935,1,291,0) +Installing reminder exchange entry MU NQF0038 CHILD IMM SMH +"BLD",7935,1,292,0) + +"BLD",7935,1,293,0) +Installing reminder exchange entry MU CPRS HELP DIS +"BLD",7935,1,294,0) + +"BLD",7935,1,295,0) + Updating Routine file...... +"BLD",7935,1,296,0) + +"BLD",7935,1,297,0) + Updating KIDS files....... +"BLD",7935,1,298,0) + +"BLD",7935,1,299,0) + C0Q*1.0*2 Installed. +"BLD",7935,1,300,0) + Aug 03, 2012@14:24:27 +"BLD",7935,1,301,0) + +"BLD",7935,1,302,0) + Not a VA primary domain +"BLD",7935,1,303,0) + +"BLD",7935,1,304,0) + NO Install Message sent +"BLD",7935,1,305,0) + +"BLD",7935,1,306,0) + After installation, make sure you install C0Q*1.0*3, which relies on +"BLD",7935,1,307,0) +this patch. +"BLD",7935,4,0) +^9.64PA^811.8^1 +"BLD",7935,4,811.8,0) +811.8 +"BLD",7935,4,811.8,222) +y^y^f^^n^^y^o^n +"BLD",7935,4,811.8,224) +I $$EXFINC^C0Q1P2(Y) +"BLD",7935,4,"B",811.8,811.8) + +"BLD",7935,6.3) +23 +"BLD",7935,"ABPKG") +n +"BLD",7935,"INI") +PRE^C0Q1P2 +"BLD",7935,"INIT") +POST^C0Q1P2 +"BLD",7935,"KRN",0) +^9.67PA^779.2^20 +"BLD",7935,"KRN",.4,0) +.4 +"BLD",7935,"KRN",.401,0) +.401 +"BLD",7935,"KRN",.402,0) +.402 +"BLD",7935,"KRN",.403,0) +.403 +"BLD",7935,"KRN",.5,0) +.5 +"BLD",7935,"KRN",.84,0) +.84 +"BLD",7935,"KRN",3.6,0) +3.6 +"BLD",7935,"KRN",3.8,0) +3.8 +"BLD",7935,"KRN",9.2,0) +9.2 +"BLD",7935,"KRN",9.8,0) +9.8 +"BLD",7935,"KRN",19,0) +19 +"BLD",7935,"KRN",19.1,0) +19.1 +"BLD",7935,"KRN",101,0) +101 +"BLD",7935,"KRN",409.61,0) +409.61 +"BLD",7935,"KRN",771,0) +771 +"BLD",7935,"KRN",779.2,0) +779.2 +"BLD",7935,"KRN",870,0) +870 +"BLD",7935,"KRN",8989.51,0) +8989.51 +"BLD",7935,"KRN",8989.52,0) +8989.52 +"BLD",7935,"KRN",8994,0) +8994 +"BLD",7935,"KRN","B",.4,.4) + +"BLD",7935,"KRN","B",.401,.401) + +"BLD",7935,"KRN","B",.402,.402) + +"BLD",7935,"KRN","B",.403,.403) + +"BLD",7935,"KRN","B",.5,.5) + +"BLD",7935,"KRN","B",.84,.84) + +"BLD",7935,"KRN","B",3.6,3.6) + +"BLD",7935,"KRN","B",3.8,3.8) + +"BLD",7935,"KRN","B",9.2,9.2) + +"BLD",7935,"KRN","B",9.8,9.8) + +"BLD",7935,"KRN","B",19,19) + +"BLD",7935,"KRN","B",19.1,19.1) + +"BLD",7935,"KRN","B",101,101) + +"BLD",7935,"KRN","B",409.61,409.61) + +"BLD",7935,"KRN","B",771,771) + +"BLD",7935,"KRN","B",779.2,779.2) + +"BLD",7935,"KRN","B",870,870) + +"BLD",7935,"KRN","B",8989.51,8989.51) + +"BLD",7935,"KRN","B",8989.52,8989.52) + +"BLD",7935,"KRN","B",8994,8994) + +"BLD",7935,"PRET") + +"BLD",7935,"QDEF") +^^^^NO^^^^NO^^NO +"BLD",7935,"QUES",0) +^9.62^^ +"BLD",7935,"REQB",0) +^9.611^3^3 +"BLD",7935,"REQB",1,0) +PXRM*2.0*12^2 +"BLD",7935,"REQB",2,0) +PXRM*2.0*17^2 +"BLD",7935,"REQB",3,0) +TMG*1.0*17^2 +"BLD",7935,"REQB","B","PXRM*2.0*12",1) + +"BLD",7935,"REQB","B","PXRM*2.0*17",2) + +"BLD",7935,"REQB","B","TMG*1.0*17",3) + +"DATA",811.8,127,0) +MU NQF0013 HTN_MK^KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION^3110706.150853 +"DATA",811.8,127,100,0) +^811.801^387^387 +"DATA",811.8,127,100,1,0) + +"DATA",811.8,127,100,2,0) + +"DATA",811.8,127,100,3,0) +2.0P17 +"DATA",811.8,127,100,4,0) +323 +"DATA",811.8,127,100,5,0) + +"DATA",811.8,127,100,6,0) +MU NQF0013 HTN_MK +"DATA",811.8,127,100,7,0) +KING,MATTHEW MICHAEL +"DATA",811.8,127,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,127,100,9,0) +07/06/2011@15:08:53 +"DATA",811.8,127,100,10,0) + +"DATA",811.8,127,100,11,0) + +"DATA",811.8,127,100,17,0) + +"DATA",811.8,127,100,18,0) +MU NQF0013 HTN +"DATA",811.8,127,100,19,0) + +"DATA",811.8,127,100,20,0) + +"DATA",811.8,127,100,21,0) +GMRV VITAL TYPE +"DATA",811.8,127,100,22,0) +120.51 +"DATA",811.8,127,100,23,0) +BLOOD PRESSURE +"DATA",811.8,127,100,24,0) +1 +"DATA",811.8,127,100,25,0) +4024959586 +"DATA",811.8,127,100,26,0) +NO +"DATA",811.8,127,100,27,0) + +"DATA",811.8,127,100,28,0) + +"DATA",811.8,127,100,31,0) + +"DATA",811.8,127,100,32,0) + +"DATA",811.8,127,100,33,0) + +"DATA",811.8,127,100,34,0) +REMINDER TAXONOMY +"DATA",811.8,127,100,35,0) +811.2 +"DATA",811.8,127,100,36,0) +MU NQF0013 ENC-INCLUSIONS ALL +"DATA",811.8,127,100,37,0) +140 +"DATA",811.8,127,100,38,0) +1860899415 +"DATA",811.8,127,100,39,0) +NO +"DATA",811.8,127,100,40,0) + +"DATA",811.8,127,100,41,0) + +"DATA",811.8,127,100,80,0) + +"DATA",811.8,127,100,81,0) + +"DATA",811.8,127,100,82,0) + +"DATA",811.8,127,100,93,0) + +"DATA",811.8,127,100,94,0) + +"DATA",811.8,127,100,95,0) + +"DATA",811.8,127,100,96,0) +REMINDER TAXONOMY +"DATA",811.8,127,100,97,0) +811.2 +"DATA",811.8,127,100,98,0) +MU NQF0013 HTN CODES +"DATA",811.8,127,100,99,0) +131 +"DATA",811.8,127,100,100,0) +1754662415 +"DATA",811.8,127,100,101,0) +NO +"DATA",811.8,127,100,102,0) + +"DATA",811.8,127,100,103,0) + +"DATA",811.8,127,100,115,0) + +"DATA",811.8,127,100,116,0) + +"DATA",811.8,127,100,117,0) + +"DATA",811.8,127,100,121,0) + +"DATA",811.8,127,100,122,0) + +"DATA",811.8,127,100,123,0) + +"DATA",811.8,127,100,124,0) +REMINDER TERM +"DATA",811.8,127,100,125,0) +811.5 +"DATA",811.8,127,100,126,0) +MU NQF0013 BP ANY +"DATA",811.8,127,100,127,0) +535 +"DATA",811.8,127,100,128,0) +2282931117 +"DATA",811.8,127,100,129,0) +NO +"DATA",811.8,127,100,130,0) + +"DATA",811.8,127,100,131,0) + +"DATA",811.8,127,100,142,0) + +"DATA",811.8,127,100,143,0) + +"DATA",811.8,127,100,144,0) + +"DATA",811.8,127,100,148,0) + +"DATA",811.8,127,100,149,0) + +"DATA",811.8,127,100,150,0) + +"DATA",811.8,127,100,151,0) +REMINDER DEFINITION +"DATA",811.8,127,100,152,0) +811.9 +"DATA",811.8,127,100,153,0) +MU NQF0013 HTM DEM LIST2 +"DATA",811.8,127,100,154,0) +148 +"DATA",811.8,127,100,155,0) +2179470209 +"DATA",811.8,127,100,156,0) +NO +"DATA",811.8,127,100,157,0) + +"DATA",811.8,127,100,158,0) +1 +"DATA",811.8,127,100,192,0) +811.925;+152,+148,;10~FN(1)>1 +"DATA",811.8,127,100,193,0) +811.925;+152,+148,;12~AND +"DATA",811.8,127,100,194,0) +811.925;+152,+148,;41~0 +"DATA",811.8,127,100,195,0) +811.925;+152,+148,;42~0 +"DATA",811.8,127,100,196,0) +811.9255;+153,+152,+148,;.01~1 +"DATA",811.8,127,100,197,0) +811.9255;+153,+152,+148,;.02~COUNT +"DATA",811.8,127,100,198,0) +811.9256;+154,+153,+152,+148,;.01~1 +"DATA",811.8,127,100,199,0) +811.97;+155,+148,;.01~99Y +"DATA",811.8,127,100,200,0) +811.97;+155,+148,;1~18 +"DATA",811.8,127,100,201,0) +811.97;+155,+148,;5~0 +"DATA",811.8,127,100,202,0) +811.97;+155,+148,;6~0 +"DATA",811.8,127,100,203,0) +]]> +"DATA",811.8,127,100,204,0) + +"DATA",811.8,127,100,205,0) + +"DATA",811.8,127,100,206,0) + +"DATA",811.8,127,100,215,0) + +"DATA",811.8,127,100,216,0) + +"DATA",811.8,127,100,217,0) + +"DATA",811.8,127,100,218,0) +REMINDER LIST RULE +"DATA",811.8,127,100,219,0) +810.4 +"DATA",811.8,127,100,220,0) +MU NQF0013 HTN NUM FR +"DATA",811.8,127,100,221,0) +143 +"DATA",811.8,127,100,222,0) +3246118128 +"DATA",811.8,127,100,223,0) +NO +"DATA",811.8,127,100,224,0) + +"DATA",811.8,127,100,225,0) + +"DATA",811.8,127,100,234,0) + +"DATA",811.8,127,100,235,0) + +"DATA",811.8,127,100,236,0) + +"DATA",811.8,127,100,239,0) + +"DATA",811.8,127,100,240,0) + +"DATA",811.8,127,100,241,0) + +"DATA",811.8,127,100,242,0) +REMINDER LIST RULE +"DATA",811.8,127,100,243,0) +810.4 +"DATA",811.8,127,100,244,0) +MU NFQ0013 HTN DENOM2 RR +"DATA",811.8,127,100,245,0) +166 +"DATA",811.8,127,100,246,0) +2432739085 +"DATA",811.8,127,100,247,0) +NO +"DATA",811.8,127,100,248,0) + +"DATA",811.8,127,100,249,0) + +"DATA",811.8,127,100,258,0) + +"DATA",811.8,127,100,259,0) + +"DATA",811.8,127,100,260,0) + +"DATA",811.8,127,100,263,0) + +"DATA",811.8,127,100,264,0) + +"DATA",811.8,127,100,265,0) + +"DATA",811.8,127,100,266,0) +REMINDER LIST RULE +"DATA",811.8,127,100,267,0) +810.4 +"DATA",811.8,127,100,268,0) +MU NQF0013 HTN NUMER2 RS +"DATA",811.8,127,100,269,0) +142 +"DATA",811.8,127,100,270,0) +2055164988 +"DATA",811.8,127,100,271,0) +YES +"DATA",811.8,127,100,272,0) + +"DATA",811.8,127,100,273,0) + +"DATA",811.8,127,100,287,0) + +"DATA",811.8,127,100,288,0) + +"DATA",811.8,127,100,289,0) + +"DATA",811.8,127,100,294,0) + +"DATA",811.8,127,100,295,0) + +"DATA",811.8,127,100,296,0) + +"DATA",811.8,127,100,297,0) +REMINDER LIST RULE +"DATA",811.8,127,100,298,0) +810.4 +"DATA",811.8,127,100,299,0) +MU NQF0013 HTN DENOM2 RS +"DATA",811.8,127,100,300,0) +167 +"DATA",811.8,127,100,301,0) +3891878762 +"DATA",811.8,127,100,302,0) +YES +"DATA",811.8,127,100,303,0) + +"DATA",811.8,127,100,304,0) + +"DATA",811.8,127,100,315,0) + +"DATA",811.8,127,100,316,0) + +"DATA",811.8,127,100,317,0) + +"DATA",811.8,127,100,321,0) + +"DATA",811.8,127,100,322,0) + +"DATA",811.8,127,100,323,0) + +"DATA",811.8,127,100,324,0) +9 +"DATA",811.8,127,100,325,0) + +"DATA",811.8,127,100,326,0) +29 +"DATA",811.8,127,100,327,0) +29 +"DATA",811.8,127,100,328,0) +20 +"DATA",811.8,127,100,329,0) + +"DATA",811.8,127,100,330,0) + +"DATA",811.8,127,100,331,0) +78 +"DATA",811.8,127,100,332,0) +42 +"DATA",811.8,127,100,333,0) +33 +"DATA",811.8,127,100,334,0) +91 +"DATA",811.8,127,100,335,0) +83 +"DATA",811.8,127,100,336,0) + +"DATA",811.8,127,100,337,0) + +"DATA",811.8,127,100,338,0) +113 +"DATA",811.8,127,100,339,0) +104 +"DATA",811.8,127,100,340,0) +95 +"DATA",811.8,127,100,341,0) +119 +"DATA",811.8,127,100,342,0) +118 +"DATA",811.8,127,100,343,0) + +"DATA",811.8,127,100,344,0) + +"DATA",811.8,127,100,345,0) +140 +"DATA",811.8,127,100,346,0) +132 +"DATA",811.8,127,100,347,0) +123 +"DATA",811.8,127,100,348,0) +146 +"DATA",811.8,127,100,349,0) +145 +"DATA",811.8,127,100,350,0) + +"DATA",811.8,127,100,351,0) + +"DATA",811.8,127,100,352,0) +202 +"DATA",811.8,127,100,353,0) +159 +"DATA",811.8,127,100,354,0) +150 +"DATA",811.8,127,100,355,0) +213 +"DATA",811.8,127,100,356,0) +207 +"DATA",811.8,127,100,357,0) + +"DATA",811.8,127,100,358,0) + +"DATA",811.8,127,100,359,0) +232 +"DATA",811.8,127,100,360,0) +226 +"DATA",811.8,127,100,361,0) +217 +"DATA",811.8,127,100,362,0) +237 +"DATA",811.8,127,100,363,0) +237 +"DATA",811.8,127,100,364,0) + +"DATA",811.8,127,100,365,0) + +"DATA",811.8,127,100,366,0) +256 +"DATA",811.8,127,100,367,0) +250 +"DATA",811.8,127,100,368,0) +241 +"DATA",811.8,127,100,369,0) +261 +"DATA",811.8,127,100,370,0) +261 +"DATA",811.8,127,100,371,0) + +"DATA",811.8,127,100,372,0) + +"DATA",811.8,127,100,373,0) +285 +"DATA",811.8,127,100,374,0) +274 +"DATA",811.8,127,100,375,0) +265 +"DATA",811.8,127,100,376,0) +292 +"DATA",811.8,127,100,377,0) +290 +"DATA",811.8,127,100,378,0) + +"DATA",811.8,127,100,379,0) + +"DATA",811.8,127,100,380,0) +313 +"DATA",811.8,127,100,381,0) +305 +"DATA",811.8,127,100,382,0) +296 +"DATA",811.8,127,100,383,0) +319 +"DATA",811.8,127,100,384,0) +318 +"DATA",811.8,127,100,385,0) + +"DATA",811.8,127,100,386,0) + +"DATA",811.8,127,100,387,0) + +"DATA",811.8,127,110,0) +^811.804^14^14 +"DATA",811.8,127,110,1,0) +Source: KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION +"DATA",811.8,127,110,2,0) +Date Packed: 07/06/2011@15:08:53 +"DATA",811.8,127,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,127,110,4,0) + +"DATA",811.8,127,110,5,0) +Description: +"DATA",811.8,127,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,127,110,7,0) +REMINDER LIST RULE +"DATA",811.8,127,110,8,0) + MU NQF0013 HTN NUMER2 RS +"DATA",811.8,127,110,9,0) + MU NQF0013 HTN DENOM2 RS +"DATA",811.8,127,110,10,0) + +"DATA",811.8,127,110,11,0) +Keywords: +"DATA",811.8,127,110,12,0) +MU NQF0013 HTN +"DATA",811.8,127,110,13,0) + +"DATA",811.8,127,110,14,0) +Components: +"DATA",811.8,127,119) +5 +"DATA",811.8,127,120,0) +^811.802A^9^9 +"DATA",811.8,127,120,1,0) +GMRV VITAL TYPE^120.51^1 +"DATA",811.8,127,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,127,120,1,1,1,0) +BLOOD PRESSURE^29^29^^^0^0 +"DATA",811.8,127,120,2,0) +REMINDER TAXONOMY^811.2^2 +"DATA",811.8,127,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,127,120,2,1,1,0) +MU NQF0013 ENC-INCLUSIONS ALL^42^78^83^91^1^0 +"DATA",811.8,127,120,2,1,2,0) +MU NQF0013 HTN CODES^104^113^118^119^1^0 +"DATA",811.8,127,120,3,0) +REMINDER TERM^811.5^1 +"DATA",811.8,127,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,127,120,3,1,1,0) +MU NQF0013 BP ANY^132^140^145^146^1^0 +"DATA",811.8,127,120,4,0) +REMINDER DEFINITION^811.9^1 +"DATA",811.8,127,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,127,120,4,1,1,0) +MU NQF0013 HTM DEM LIST2^159^202^207^213^1^0 +"DATA",811.8,127,120,5,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,127,120,5,1,0) +^811.8021A^4^4 +"DATA",811.8,127,120,5,1,1,0) +MU NQF0013 HTN NUM FR^226^232^237^237^1^0 +"DATA",811.8,127,120,5,1,2,0) +MU NFQ0013 HTN DENOM2 RR^250^256^261^261^1^0 +"DATA",811.8,127,120,5,1,3,0) +MU NQF0013 HTN NUMER2 RS^274^285^290^292^1^1 +"DATA",811.8,127,120,5,1,4,0) +MU NQF0013 HTN DENOM2 RS^305^313^318^319^1^1 +"DATA",811.8,127,130,0) +^811.803DA^1^1 +"DATA",811.8,127,130,1,0) +3120713.132307^MANAGER,SYSTEM^SILENT +"DATA",811.8,127,130,1,1,0) +^811.8031A^8^8 +"DATA",811.8,127,130,1,1,1,0) +1^REMINDER TAXONOMY^MU NQF0013 ENC-INCLUSIONS ALL^S^ +"DATA",811.8,127,130,1,1,2,0) +2^REMINDER TAXONOMY^MU NQF0013 HTN CODES^S^ +"DATA",811.8,127,130,1,1,3,0) +3^REMINDER TERM^MU NQF0013 BP ANY^S^ +"DATA",811.8,127,130,1,1,4,0) +4^REMINDER DEFINITION^MU NQF0013 HTM DEM LIST2^S^ +"DATA",811.8,127,130,1,1,5,0) +5^REMINDER LIST RULE^MU NQF0013 HTN NUM FR^S^ +"DATA",811.8,127,130,1,1,6,0) +6^REMINDER LIST RULE^MU NFQ0013 HTN DENOM2 RR^S^ +"DATA",811.8,127,130,1,1,7,0) +7^REMINDER LIST RULE^MU NQF0013 HTN NUMER2 RS^S^ +"DATA",811.8,127,130,1,1,8,0) +8^REMINDER LIST RULE^MU NQF0013 HTN DENOM2 RS^S^ +"DATA",811.8,132,0) +MU NQF0028 TOBACCO_MK^KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION^3110706.151449 +"DATA",811.8,132,100,0) +^811.801^836^836 +"DATA",811.8,132,100,1,0) + +"DATA",811.8,132,100,2,0) + +"DATA",811.8,132,100,3,0) +2.0P17 +"DATA",811.8,132,100,4,0) +689 +"DATA",811.8,132,100,5,0) + +"DATA",811.8,132,100,6,0) +MU NQF0028 TOBACCO_MK +"DATA",811.8,132,100,7,0) +KING,MATTHEW MICHAEL +"DATA",811.8,132,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,132,100,9,0) +07/06/2011@15:14:49 +"DATA",811.8,132,100,10,0) + +"DATA",811.8,132,100,11,0) + +"DATA",811.8,132,100,18,0) + +"DATA",811.8,132,100,19,0) +MU NQF0028 TOBACCO +"DATA",811.8,132,100,20,0) + +"DATA",811.8,132,100,21,0) + +"DATA",811.8,132,100,22,0) +HEALTH FACTORS +"DATA",811.8,132,100,23,0) +9999999.64 +"DATA",811.8,132,100,24,0) +SNOMED CODES +"DATA",811.8,132,100,25,0) +500013 +"DATA",811.8,132,100,26,0) +3190378291 +"DATA",811.8,132,100,27,0) +NO +"DATA",811.8,132,100,28,0) + +"DATA",811.8,132,100,29,0) + +"DATA",811.8,132,100,33,0) + +"DATA",811.8,132,100,34,0) + +"DATA",811.8,132,100,35,0) + +"DATA",811.8,132,100,36,0) +HEALTH FACTORS +"DATA",811.8,132,100,37,0) +9999999.64 +"DATA",811.8,132,100,38,0) +395700008 +"DATA",811.8,132,100,39,0) +500247 +"DATA",811.8,132,100,40,0) +984823388 +"DATA",811.8,132,100,41,0) +NO +"DATA",811.8,132,100,42,0) + +"DATA",811.8,132,100,43,0) + +"DATA",811.8,132,100,50,0) + +"DATA",811.8,132,100,51,0) + +"DATA",811.8,132,100,52,0) + +"DATA",811.8,132,100,53,0) +HEALTH FACTORS +"DATA",811.8,132,100,54,0) +9999999.64 +"DATA",811.8,132,100,55,0) +384742004 +"DATA",811.8,132,100,56,0) +500246 +"DATA",811.8,132,100,57,0) +3679292001 +"DATA",811.8,132,100,58,0) +NO +"DATA",811.8,132,100,59,0) + +"DATA",811.8,132,100,60,0) + +"DATA",811.8,132,100,67,0) + +"DATA",811.8,132,100,68,0) + +"DATA",811.8,132,100,69,0) + +"DATA",811.8,132,100,70,0) +HEALTH FACTORS +"DATA",811.8,132,100,71,0) +9999999.64 +"DATA",811.8,132,100,72,0) +225323000 +"DATA",811.8,132,100,73,0) +500245 +"DATA",811.8,132,100,74,0) +1335550128 +"DATA",811.8,132,100,75,0) +NO +"DATA",811.8,132,100,76,0) + +"DATA",811.8,132,100,77,0) + +"DATA",811.8,132,100,84,0) + +"DATA",811.8,132,100,85,0) + +"DATA",811.8,132,100,86,0) + +"DATA",811.8,132,100,87,0) +HEALTH FACTORS +"DATA",811.8,132,100,88,0) +9999999.64 +"DATA",811.8,132,100,89,0) +401068004 +"DATA",811.8,132,100,90,0) +500224 +"DATA",811.8,132,100,91,0) +1922052298 +"DATA",811.8,132,100,92,0) +NO +"DATA",811.8,132,100,93,0) + +"DATA",811.8,132,100,94,0) + +"DATA",811.8,132,100,100,0) + +"DATA",811.8,132,100,101,0) + +"DATA",811.8,132,100,102,0) + +"DATA",811.8,132,100,103,0) +HEALTH FACTORS +"DATA",811.8,132,100,104,0) +9999999.64 +"DATA",811.8,132,100,105,0) +110483000 +"DATA",811.8,132,100,106,0) +500244 +"DATA",811.8,132,100,107,0) +1262444182 +"DATA",811.8,132,100,108,0) +NO +"DATA",811.8,132,100,109,0) + +"DATA",811.8,132,100,110,0) + +"DATA",811.8,132,100,117,0) + +"DATA",811.8,132,100,118,0) + +"DATA",811.8,132,100,119,0) + +"DATA",811.8,132,100,120,0) +HEALTH FACTORS +"DATA",811.8,132,100,121,0) +9999999.64 +"DATA",811.8,132,100,122,0) +89765005 +"DATA",811.8,132,100,123,0) +500243 +"DATA",811.8,132,100,124,0) +4124297208 +"DATA",811.8,132,100,125,0) +NO +"DATA",811.8,132,100,126,0) + +"DATA",811.8,132,100,127,0) + +"DATA",811.8,132,100,134,0) + +"DATA",811.8,132,100,135,0) + +"DATA",811.8,132,100,136,0) + +"DATA",811.8,132,100,137,0) +HEALTH FACTORS +"DATA",811.8,132,100,138,0) +9999999.64 +"DATA",811.8,132,100,139,0) +81703003 +"DATA",811.8,132,100,140,0) +500242 +"DATA",811.8,132,100,141,0) +3655332569 +"DATA",811.8,132,100,142,0) +NO +"DATA",811.8,132,100,143,0) + +"DATA",811.8,132,100,144,0) + +"DATA",811.8,132,100,151,0) + +"DATA",811.8,132,100,152,0) + +"DATA",811.8,132,100,153,0) + +"DATA",811.8,132,100,154,0) +HEALTH FACTORS +"DATA",811.8,132,100,155,0) +9999999.64 +"DATA",811.8,132,100,156,0) +228504007 +"DATA",811.8,132,100,157,0) +500241 +"DATA",811.8,132,100,158,0) +3382870893 +"DATA",811.8,132,100,159,0) +NO +"DATA",811.8,132,100,160,0) + +"DATA",811.8,132,100,161,0) + +"DATA",811.8,132,100,168,0) + +"DATA",811.8,132,100,169,0) + +"DATA",811.8,132,100,170,0) + +"DATA",811.8,132,100,171,0) +HEALTH FACTORS +"DATA",811.8,132,100,172,0) +9999999.64 +"DATA",811.8,132,100,173,0) +266919005 +"DATA",811.8,132,100,174,0) +500250 +"DATA",811.8,132,100,175,0) +103305487 +"DATA",811.8,132,100,176,0) +NO +"DATA",811.8,132,100,177,0) + +"DATA",811.8,132,100,178,0) + +"DATA",811.8,132,100,185,0) + +"DATA",811.8,132,100,186,0) + +"DATA",811.8,132,100,187,0) + +"DATA",811.8,132,100,188,0) +HEALTH FACTORS +"DATA",811.8,132,100,189,0) +9999999.64 +"DATA",811.8,132,100,190,0) +105539002 +"DATA",811.8,132,100,191,0) +500249 +"DATA",811.8,132,100,192,0) +3625812579 +"DATA",811.8,132,100,193,0) +NO +"DATA",811.8,132,100,194,0) + +"DATA",811.8,132,100,195,0) + +"DATA",811.8,132,100,202,0) + +"DATA",811.8,132,100,203,0) + +"DATA",811.8,132,100,204,0) + +"DATA",811.8,132,100,205,0) +HEALTH FACTORS +"DATA",811.8,132,100,206,0) +9999999.64 +"DATA",811.8,132,100,207,0) +228491005 +"DATA",811.8,132,100,208,0) +500248 +"DATA",811.8,132,100,209,0) +1154489745 +"DATA",811.8,132,100,210,0) +NO +"DATA",811.8,132,100,211,0) + +"DATA",811.8,132,100,212,0) + +"DATA",811.8,132,100,219,0) + +"DATA",811.8,132,100,220,0) + +"DATA",811.8,132,100,221,0) + +"DATA",811.8,132,100,222,0) +REMINDER TAXONOMY +"DATA",811.8,132,100,223,0) +811.2 +"DATA",811.8,132,100,224,0) +MU NQF0028AB DENOM ENC INCLUSIONS +"DATA",811.8,132,100,225,0) +136 +"DATA",811.8,132,100,226,0) +1029997974 +"DATA",811.8,132,100,227,0) +NO +"DATA",811.8,132,100,228,0) + +"DATA",811.8,132,100,229,0) + +"DATA",811.8,132,100,284,0) + +"DATA",811.8,132,100,285,0) + +"DATA",811.8,132,100,286,0) + +"DATA",811.8,132,100,303,0) + +"DATA",811.8,132,100,304,0) + +"DATA",811.8,132,100,305,0) + +"DATA",811.8,132,100,306,0) +REMINDER TERM +"DATA",811.8,132,100,307,0) +811.5 +"DATA",811.8,132,100,308,0) +PQRI M0028 INTERVENTION INCU +"DATA",811.8,132,100,309,0) +520 +"DATA",811.8,132,100,310,0) +1204822678 +"DATA",811.8,132,100,311,0) +NO +"DATA",811.8,132,100,312,0) + +"DATA",811.8,132,100,313,0) + +"DATA",811.8,132,100,324,0) + +"DATA",811.8,132,100,325,0) + +"DATA",811.8,132,100,326,0) + +"DATA",811.8,132,100,333,0) + +"DATA",811.8,132,100,334,0) + +"DATA",811.8,132,100,335,0) + +"DATA",811.8,132,100,336,0) +REMINDER TERM +"DATA",811.8,132,100,337,0) +811.5 +"DATA",811.8,132,100,338,0) +PQRI M0028 TOBACCO USER SNO INC +"DATA",811.8,132,100,339,0) +489 +"DATA",811.8,132,100,340,0) +2036227251 +"DATA",811.8,132,100,341,0) +NO +"DATA",811.8,132,100,342,0) + +"DATA",811.8,132,100,343,0) + +"DATA",811.8,132,100,354,0) + +"DATA",811.8,132,100,355,0) + +"DATA",811.8,132,100,356,0) + +"DATA",811.8,132,100,363,0) + +"DATA",811.8,132,100,364,0) + +"DATA",811.8,132,100,365,0) + +"DATA",811.8,132,100,366,0) +REMINDER TERM +"DATA",811.8,132,100,367,0) +811.5 +"DATA",811.8,132,100,368,0) +PQRI M0028 NON USERS INCL +"DATA",811.8,132,100,369,0) +521 +"DATA",811.8,132,100,370,0) +1027961898 +"DATA",811.8,132,100,371,0) +NO +"DATA",811.8,132,100,372,0) + +"DATA",811.8,132,100,373,0) + +"DATA",811.8,132,100,383,0) + +"DATA",811.8,132,100,384,0) + +"DATA",811.8,132,100,385,0) + +"DATA",811.8,132,100,391,0) + +"DATA",811.8,132,100,392,0) + +"DATA",811.8,132,100,393,0) + +"DATA",811.8,132,100,394,0) +REMINDER DEFINITION +"DATA",811.8,132,100,395,0) +811.9 +"DATA",811.8,132,100,396,0) +MU NQF0028B SMOKING DENOM LIST +"DATA",811.8,132,100,397,0) +173 +"DATA",811.8,132,100,398,0) +3779101274 +"DATA",811.8,132,100,399,0) +NO +"DATA",811.8,132,100,400,0) + +"DATA",811.8,132,100,401,0) +1 +"DATA",811.8,132,100,445,0) +811.925;+177,+173,;10~FN(1)>1 +"DATA",811.8,132,100,446,0) +811.925;+177,+173,;12~AND +"DATA",811.8,132,100,447,0) +811.925;+177,+173,;41~0 +"DATA",811.8,132,100,448,0) +811.925;+177,+173,;42~0 +"DATA",811.8,132,100,449,0) +811.9255;+178,+177,+173,;.01~1 +"DATA",811.8,132,100,450,0) +811.9255;+178,+177,+173,;.02~COUNT +"DATA",811.8,132,100,451,0) +811.9256;+179,+178,+177,+173,;.01~1 +"DATA",811.8,132,100,452,0) +811.97;+180,+173,;.01~99Y +"DATA",811.8,132,100,453,0) +811.97;+180,+173,;1~18 +"DATA",811.8,132,100,454,0) +811.97;+180,+173,;5~0 +"DATA",811.8,132,100,455,0) +811.97;+180,+173,;6~0 +"DATA",811.8,132,100,456,0) +]]> +"DATA",811.8,132,100,457,0) + +"DATA",811.8,132,100,458,0) + +"DATA",811.8,132,100,459,0) + +"DATA",811.8,132,100,468,0) + +"DATA",811.8,132,100,469,0) + +"DATA",811.8,132,100,470,0) + +"DATA",811.8,132,100,471,0) +REMINDER DEFINITION +"DATA",811.8,132,100,472,0) +811.9 +"DATA",811.8,132,100,473,0) +MU NQF0028A SMOKING SCREEN NUM PL +"DATA",811.8,132,100,474,0) +180 +"DATA",811.8,132,100,475,0) +2766998037 +"DATA",811.8,132,100,476,0) +NO +"DATA",811.8,132,100,477,0) + +"DATA",811.8,132,100,478,0) + +"DATA",811.8,132,100,522,0) + +"DATA",811.8,132,100,523,0) + +"DATA",811.8,132,100,524,0) + +"DATA",811.8,132,100,530,0) + +"DATA",811.8,132,100,531,0) + +"DATA",811.8,132,100,532,0) + +"DATA",811.8,132,100,533,0) +REMINDER LIST RULE +"DATA",811.8,132,100,534,0) +810.4 +"DATA",811.8,132,100,535,0) +MU NQF0028B TOBACCO INTERV NUM FR +"DATA",811.8,132,100,536,0) +161 +"DATA",811.8,132,100,537,0) +1238266823 +"DATA",811.8,132,100,538,0) +NO +"DATA",811.8,132,100,539,0) + +"DATA",811.8,132,100,540,0) + +"DATA",811.8,132,100,549,0) + +"DATA",811.8,132,100,550,0) + +"DATA",811.8,132,100,551,0) + +"DATA",811.8,132,100,554,0) + +"DATA",811.8,132,100,555,0) + +"DATA",811.8,132,100,556,0) + +"DATA",811.8,132,100,557,0) +REMINDER LIST RULE +"DATA",811.8,132,100,558,0) +810.4 +"DATA",811.8,132,100,559,0) +MU NQF0028B TOBACCO INTERV DENOM RR +"DATA",811.8,132,100,560,0) +159 +"DATA",811.8,132,100,561,0) +498527628 +"DATA",811.8,132,100,562,0) +NO +"DATA",811.8,132,100,563,0) + +"DATA",811.8,132,100,564,0) + +"DATA",811.8,132,100,573,0) + +"DATA",811.8,132,100,574,0) + +"DATA",811.8,132,100,575,0) + +"DATA",811.8,132,100,578,0) + +"DATA",811.8,132,100,579,0) + +"DATA",811.8,132,100,580,0) + +"DATA",811.8,132,100,581,0) +REMINDER LIST RULE +"DATA",811.8,132,100,582,0) +810.4 +"DATA",811.8,132,100,583,0) +MU NQF0028B TOBACCO INTERV NUM2 RS +"DATA",811.8,132,100,584,0) +154 +"DATA",811.8,132,100,585,0) +3698796309 +"DATA",811.8,132,100,586,0) +YES +"DATA",811.8,132,100,587,0) + +"DATA",811.8,132,100,588,0) + +"DATA",811.8,132,100,602,0) + +"DATA",811.8,132,100,603,0) + +"DATA",811.8,132,100,604,0) + +"DATA",811.8,132,100,609,0) + +"DATA",811.8,132,100,610,0) + +"DATA",811.8,132,100,611,0) + +"DATA",811.8,132,100,612,0) +REMINDER LIST RULE +"DATA",811.8,132,100,613,0) +810.4 +"DATA",811.8,132,100,614,0) +MU NQF0028B TOBACCO INTERV DENOM RS +"DATA",811.8,132,100,615,0) +160 +"DATA",811.8,132,100,616,0) +953544858 +"DATA",811.8,132,100,617,0) +YES +"DATA",811.8,132,100,618,0) + +"DATA",811.8,132,100,619,0) + +"DATA",811.8,132,100,630,0) + +"DATA",811.8,132,100,631,0) + +"DATA",811.8,132,100,632,0) + +"DATA",811.8,132,100,636,0) + +"DATA",811.8,132,100,637,0) + +"DATA",811.8,132,100,638,0) + +"DATA",811.8,132,100,639,0) +REMINDER LIST RULE +"DATA",811.8,132,100,640,0) +810.4 +"DATA",811.8,132,100,641,0) +MU NQF0028A TOBACCO SCREEN NUM RR +"DATA",811.8,132,100,642,0) +155 +"DATA",811.8,132,100,643,0) +2786717001 +"DATA",811.8,132,100,644,0) +NO +"DATA",811.8,132,100,645,0) + +"DATA",811.8,132,100,646,0) + +"DATA",811.8,132,100,655,0) + +"DATA",811.8,132,100,656,0) + +"DATA",811.8,132,100,657,0) + +"DATA",811.8,132,100,660,0) + +"DATA",811.8,132,100,661,0) + +"DATA",811.8,132,100,662,0) + +"DATA",811.8,132,100,663,0) +REMINDER LIST RULE +"DATA",811.8,132,100,664,0) +810.4 +"DATA",811.8,132,100,665,0) +MU NQF0028A TOBACCO SCREEN NUM RS +"DATA",811.8,132,100,666,0) +157 +"DATA",811.8,132,100,667,0) +3071628214 +"DATA",811.8,132,100,668,0) +YES +"DATA",811.8,132,100,669,0) + +"DATA",811.8,132,100,670,0) + +"DATA",811.8,132,100,681,0) + +"DATA",811.8,132,100,682,0) + +"DATA",811.8,132,100,683,0) + +"DATA",811.8,132,100,687,0) + +"DATA",811.8,132,100,688,0) + +"DATA",811.8,132,100,689,0) + +"DATA",811.8,132,100,690,0) +24 +"DATA",811.8,132,100,691,0) + +"DATA",811.8,132,100,692,0) +31 +"DATA",811.8,132,100,693,0) +30 +"DATA",811.8,132,100,694,0) +21 +"DATA",811.8,132,100,695,0) + +"DATA",811.8,132,100,696,0) + +"DATA",811.8,132,100,697,0) +48 +"DATA",811.8,132,100,698,0) +44 +"DATA",811.8,132,100,699,0) +35 +"DATA",811.8,132,100,700,0) + +"DATA",811.8,132,100,701,0) + +"DATA",811.8,132,100,702,0) +65 +"DATA",811.8,132,100,703,0) +61 +"DATA",811.8,132,100,704,0) +52 +"DATA",811.8,132,100,705,0) + +"DATA",811.8,132,100,706,0) + +"DATA",811.8,132,100,707,0) +82 +"DATA",811.8,132,100,708,0) +78 +"DATA",811.8,132,100,709,0) +69 +"DATA",811.8,132,100,710,0) + +"DATA",811.8,132,100,711,0) + +"DATA",811.8,132,100,712,0) +98 +"DATA",811.8,132,100,713,0) +95 +"DATA",811.8,132,100,714,0) +86 +"DATA",811.8,132,100,715,0) + +"DATA",811.8,132,100,716,0) + +"DATA",811.8,132,100,717,0) +115 +"DATA",811.8,132,100,718,0) +111 +"DATA",811.8,132,100,719,0) +102 +"DATA",811.8,132,100,720,0) + +"DATA",811.8,132,100,721,0) + +"DATA",811.8,132,100,722,0) +132 +"DATA",811.8,132,100,723,0) +128 +"DATA",811.8,132,100,724,0) +119 +"DATA",811.8,132,100,725,0) + +"DATA",811.8,132,100,726,0) + +"DATA",811.8,132,100,727,0) +149 +"DATA",811.8,132,100,728,0) +145 +"DATA",811.8,132,100,729,0) +136 +"DATA",811.8,132,100,730,0) + +"DATA",811.8,132,100,731,0) + +"DATA",811.8,132,100,732,0) +166 +"DATA",811.8,132,100,733,0) +162 +"DATA",811.8,132,100,734,0) +153 +"DATA",811.8,132,100,735,0) + +"DATA",811.8,132,100,736,0) + +"DATA",811.8,132,100,737,0) +183 +"DATA",811.8,132,100,738,0) +179 +"DATA",811.8,132,100,739,0) +170 +"DATA",811.8,132,100,740,0) + +"DATA",811.8,132,100,741,0) + +"DATA",811.8,132,100,742,0) +200 +"DATA",811.8,132,100,743,0) +196 +"DATA",811.8,132,100,744,0) +187 +"DATA",811.8,132,100,745,0) + +"DATA",811.8,132,100,746,0) + +"DATA",811.8,132,100,747,0) +217 +"DATA",811.8,132,100,748,0) +213 +"DATA",811.8,132,100,749,0) +204 +"DATA",811.8,132,100,750,0) + +"DATA",811.8,132,100,751,0) + +"DATA",811.8,132,100,752,0) +282 +"DATA",811.8,132,100,753,0) +230 +"DATA",811.8,132,100,754,0) +221 +"DATA",811.8,132,100,755,0) +301 +"DATA",811.8,132,100,756,0) +287 +"DATA",811.8,132,100,757,0) + +"DATA",811.8,132,100,758,0) + +"DATA",811.8,132,100,759,0) +322 +"DATA",811.8,132,100,760,0) +314 +"DATA",811.8,132,100,761,0) +305 +"DATA",811.8,132,100,762,0) +331 +"DATA",811.8,132,100,763,0) +327 +"DATA",811.8,132,100,764,0) + +"DATA",811.8,132,100,765,0) + +"DATA",811.8,132,100,766,0) +352 +"DATA",811.8,132,100,767,0) +344 +"DATA",811.8,132,100,768,0) +335 +"DATA",811.8,132,100,769,0) +361 +"DATA",811.8,132,100,770,0) +357 +"DATA",811.8,132,100,771,0) + +"DATA",811.8,132,100,772,0) + +"DATA",811.8,132,100,773,0) +381 +"DATA",811.8,132,100,774,0) +374 +"DATA",811.8,132,100,775,0) +365 +"DATA",811.8,132,100,776,0) +389 +"DATA",811.8,132,100,777,0) +386 +"DATA",811.8,132,100,778,0) + +"DATA",811.8,132,100,779,0) + +"DATA",811.8,132,100,780,0) +455 +"DATA",811.8,132,100,781,0) +402 +"DATA",811.8,132,100,782,0) +393 +"DATA",811.8,132,100,783,0) +466 +"DATA",811.8,132,100,784,0) +460 +"DATA",811.8,132,100,785,0) + +"DATA",811.8,132,100,786,0) + +"DATA",811.8,132,100,787,0) +520 +"DATA",811.8,132,100,788,0) +479 +"DATA",811.8,132,100,789,0) +470 +"DATA",811.8,132,100,790,0) +528 +"DATA",811.8,132,100,791,0) +525 +"DATA",811.8,132,100,792,0) + +"DATA",811.8,132,100,793,0) + +"DATA",811.8,132,100,794,0) +547 +"DATA",811.8,132,100,795,0) +541 +"DATA",811.8,132,100,796,0) +532 +"DATA",811.8,132,100,797,0) +552 +"DATA",811.8,132,100,798,0) +552 +"DATA",811.8,132,100,799,0) + +"DATA",811.8,132,100,800,0) + +"DATA",811.8,132,100,801,0) +571 +"DATA",811.8,132,100,802,0) +565 +"DATA",811.8,132,100,803,0) +556 +"DATA",811.8,132,100,804,0) +576 +"DATA",811.8,132,100,805,0) +576 +"DATA",811.8,132,100,806,0) + +"DATA",811.8,132,100,807,0) + +"DATA",811.8,132,100,808,0) +600 +"DATA",811.8,132,100,809,0) +589 +"DATA",811.8,132,100,810,0) +580 +"DATA",811.8,132,100,811,0) +607 +"DATA",811.8,132,100,812,0) +605 +"DATA",811.8,132,100,813,0) + +"DATA",811.8,132,100,814,0) + +"DATA",811.8,132,100,815,0) +628 +"DATA",811.8,132,100,816,0) +620 +"DATA",811.8,132,100,817,0) +611 +"DATA",811.8,132,100,818,0) +634 +"DATA",811.8,132,100,819,0) +633 +"DATA",811.8,132,100,820,0) + +"DATA",811.8,132,100,821,0) + +"DATA",811.8,132,100,822,0) +653 +"DATA",811.8,132,100,823,0) +647 +"DATA",811.8,132,100,824,0) +638 +"DATA",811.8,132,100,825,0) +658 +"DATA",811.8,132,100,826,0) +658 +"DATA",811.8,132,100,827,0) + +"DATA",811.8,132,100,828,0) + +"DATA",811.8,132,100,829,0) +679 +"DATA",811.8,132,100,830,0) +671 +"DATA",811.8,132,100,831,0) +662 +"DATA",811.8,132,100,832,0) +685 +"DATA",811.8,132,100,833,0) +684 +"DATA",811.8,132,100,834,0) + +"DATA",811.8,132,100,835,0) + +"DATA",811.8,132,100,836,0) + +"DATA",811.8,132,110,0) +^811.804^15^15 +"DATA",811.8,132,110,1,0) +Source: KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION +"DATA",811.8,132,110,2,0) +Date Packed: 07/06/2011@15:14:49 +"DATA",811.8,132,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,132,110,4,0) + +"DATA",811.8,132,110,5,0) +Description: +"DATA",811.8,132,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,132,110,7,0) +REMINDER LIST RULE +"DATA",811.8,132,110,8,0) + MU NQF0028B TOBACCO INTERV NUM2 RS +"DATA",811.8,132,110,9,0) + MU NQF0028A TOBACCO SCREEN NUM RS +"DATA",811.8,132,110,10,0) + MU NQF0028B TOBACCO INTERV DENOM RS +"DATA",811.8,132,110,11,0) + +"DATA",811.8,132,110,12,0) +Keywords: +"DATA",811.8,132,110,13,0) +MU NQF0028 TOBACCO +"DATA",811.8,132,110,14,0) + +"DATA",811.8,132,110,15,0) +Components: +"DATA",811.8,132,119) +5 +"DATA",811.8,132,120,0) +^811.802A^24^24 +"DATA",811.8,132,120,1,0) +HEALTH FACTORS^9999999.64^12 +"DATA",811.8,132,120,1,1,0) +^811.8021A^12^12 +"DATA",811.8,132,120,1,1,1,0) +SNOMED CODES^30^31^^^1^0 +"DATA",811.8,132,120,1,1,2,0) +395700008^44^48^^^1^0 +"DATA",811.8,132,120,1,1,3,0) +384742004^61^65^^^1^0 +"DATA",811.8,132,120,1,1,4,0) +225323000^78^82^^^1^0 +"DATA",811.8,132,120,1,1,5,0) +401068004^95^98^^^1^0 +"DATA",811.8,132,120,1,1,6,0) +110483000^111^115^^^1^0 +"DATA",811.8,132,120,1,1,7,0) +89765005^128^132^^^1^0 +"DATA",811.8,132,120,1,1,8,0) +81703003^145^149^^^1^0 +"DATA",811.8,132,120,1,1,9,0) +228504007^162^166^^^1^0 +"DATA",811.8,132,120,1,1,10,0) +266919005^179^183^^^1^0 +"DATA",811.8,132,120,1,1,11,0) +105539002^196^200^^^1^0 +"DATA",811.8,132,120,1,1,12,0) +228491005^213^217^^^1^0 +"DATA",811.8,132,120,2,0) +REMINDER TAXONOMY^811.2^1 +"DATA",811.8,132,120,2,1,0) +^811.8021A^1^1 +"DATA",811.8,132,120,2,1,1,0) +MU NQF0028AB DENOM ENC INCLUSIONS^230^282^287^301^1^0 +"DATA",811.8,132,120,3,0) +REMINDER TERM^811.5^3 +"DATA",811.8,132,120,3,1,0) +^811.8021A^3^3 +"DATA",811.8,132,120,3,1,1,0) +PQRI M0028 INTERVENTION INCU^314^322^327^331^1^0 +"DATA",811.8,132,120,3,1,2,0) +PQRI M0028 TOBACCO USER SNO INC^344^352^357^361^1^0 +"DATA",811.8,132,120,3,1,3,0) +PQRI M0028 NON USERS INCL^374^381^386^389^1^0 +"DATA",811.8,132,120,4,0) +REMINDER DEFINITION^811.9^2 +"DATA",811.8,132,120,4,1,0) +^811.8021A^2^2 +"DATA",811.8,132,120,4,1,1,0) +MU NQF0028B SMOKING DENOM LIST^402^455^460^466^1^0 +"DATA",811.8,132,120,4,1,2,0) +MU NQF0028A SMOKING SCREEN NUM PL^479^520^525^528^1^0 +"DATA",811.8,132,120,5,0) +REMINDER LIST RULE^810.4^6 +"DATA",811.8,132,120,5,1,0) +^811.8021A^6^6 +"DATA",811.8,132,120,5,1,1,0) +MU NQF0028B TOBACCO INTERV NUM FR^541^547^552^552^1^0 +"DATA",811.8,132,120,5,1,2,0) +MU NQF0028B TOBACCO INTERV DENOM RR^565^571^576^576^1^0 +"DATA",811.8,132,120,5,1,3,0) +MU NQF0028B TOBACCO INTERV NUM2 RS^589^600^605^607^1^1 +"DATA",811.8,132,120,5,1,4,0) +MU NQF0028B TOBACCO INTERV DENOM RS^620^628^633^634^1^1 +"DATA",811.8,132,120,5,1,5,0) +MU NQF0028A TOBACCO SCREEN NUM RR^647^653^658^658^1^0 +"DATA",811.8,132,120,5,1,6,0) +MU NQF0028A TOBACCO SCREEN NUM RS^671^679^684^685^1^1 +"DATA",811.8,133,0) +MU NQF0041 FLU_MK^KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION^3110706.152659 +"DATA",811.8,133,100,0) +^811.801^473^473 +"DATA",811.8,133,100,1,0) + +"DATA",811.8,133,100,2,0) + +"DATA",811.8,133,100,3,0) +2.0P17 +"DATA",811.8,133,100,4,0) +402 +"DATA",811.8,133,100,5,0) + +"DATA",811.8,133,100,6,0) +MU NQF0041 FLU_MK +"DATA",811.8,133,100,7,0) +KING,MATTHEW MICHAEL +"DATA",811.8,133,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,133,100,9,0) +07/06/2011@15:26:59 +"DATA",811.8,133,100,10,0) + +"DATA",811.8,133,100,11,0) + +"DATA",811.8,133,100,17,0) + +"DATA",811.8,133,100,18,0) +MU NQF0041 +"DATA",811.8,133,100,19,0) + +"DATA",811.8,133,100,20,0) + +"DATA",811.8,133,100,21,0) +IMMUNIZATION +"DATA",811.8,133,100,22,0) +9999999.14 +"DATA",811.8,133,100,23,0) +FLU,3 YRS +"DATA",811.8,133,100,24,0) +52 +"DATA",811.8,133,100,25,0) +4239920913 +"DATA",811.8,133,100,26,0) +NO +"DATA",811.8,133,100,27,0) + +"DATA",811.8,133,100,28,0) + +"DATA",811.8,133,100,32,0) + +"DATA",811.8,133,100,33,0) + +"DATA",811.8,133,100,34,0) + +"DATA",811.8,133,100,35,0) +REMINDER TAXONOMY +"DATA",811.8,133,100,36,0) +811.2 +"DATA",811.8,133,100,37,0) +MU NQF0041 FLU CODES NUM INCLUSIONS +"DATA",811.8,133,100,38,0) +138 +"DATA",811.8,133,100,39,0) +1660514885 +"DATA",811.8,133,100,40,0) +NO +"DATA",811.8,133,100,41,0) + +"DATA",811.8,133,100,42,0) + +"DATA",811.8,133,100,63,0) + +"DATA",811.8,133,100,64,0) + +"DATA",811.8,133,100,65,0) + +"DATA",811.8,133,100,74,0) + +"DATA",811.8,133,100,75,0) + +"DATA",811.8,133,100,76,0) + +"DATA",811.8,133,100,77,0) +REMINDER TAXONOMY +"DATA",811.8,133,100,78,0) +811.2 +"DATA",811.8,133,100,79,0) +MU NQF0041 DEM EXCLUSIONS +"DATA",811.8,133,100,80,0) +139 +"DATA",811.8,133,100,81,0) +3694115559 +"DATA",811.8,133,100,82,0) +NO +"DATA",811.8,133,100,83,0) + +"DATA",811.8,133,100,84,0) + +"DATA",811.8,133,100,99,0) + +"DATA",811.8,133,100,100,0) + +"DATA",811.8,133,100,101,0) + +"DATA",811.8,133,100,108,0) + +"DATA",811.8,133,100,109,0) + +"DATA",811.8,133,100,110,0) + +"DATA",811.8,133,100,111,0) +REMINDER TAXONOMY +"DATA",811.8,133,100,112,0) +811.2 +"DATA",811.8,133,100,113,0) +MU NQF0041 ENC INCLUSIONS +"DATA",811.8,133,100,114,0) +137 +"DATA",811.8,133,100,115,0) +512743364 +"DATA",811.8,133,100,116,0) +NO +"DATA",811.8,133,100,117,0) + +"DATA",811.8,133,100,118,0) + +"DATA",811.8,133,100,177,0) + +"DATA",811.8,133,100,178,0) + +"DATA",811.8,133,100,179,0) + +"DATA",811.8,133,100,196,0) + +"DATA",811.8,133,100,197,0) + +"DATA",811.8,133,100,198,0) + +"DATA",811.8,133,100,199,0) +REMINDER TERM +"DATA",811.8,133,100,200,0) +811.5 +"DATA",811.8,133,100,201,0) +MU NQF0041 NUMERATOR INCLUSIONS +"DATA",811.8,133,100,202,0) +539 +"DATA",811.8,133,100,203,0) +137926524 +"DATA",811.8,133,100,204,0) +NO +"DATA",811.8,133,100,205,0) + +"DATA",811.8,133,100,206,0) + +"DATA",811.8,133,100,221,0) + +"DATA",811.8,133,100,222,0) + +"DATA",811.8,133,100,223,0) + +"DATA",811.8,133,100,228,0) + +"DATA",811.8,133,100,229,0) + +"DATA",811.8,133,100,230,0) + +"DATA",811.8,133,100,231,0) +REMINDER DEFINITION +"DATA",811.8,133,100,232,0) +811.9 +"DATA",811.8,133,100,233,0) +MU NQF0041 FLU DENOM LIST +"DATA",811.8,133,100,234,0) +146 +"DATA",811.8,133,100,235,0) +1326227489 +"DATA",811.8,133,100,236,0) +NO +"DATA",811.8,133,100,237,0) + +"DATA",811.8,133,100,238,0) +1 +"DATA",811.8,133,100,271,0) +811.925;+150,+146,;10~FN(1)>1 +"DATA",811.8,133,100,272,0) +811.925;+150,+146,;12~AND +"DATA",811.8,133,100,273,0) +811.925;+150,+146,;41~0 +"DATA",811.8,133,100,274,0) +811.925;+150,+146,;42~0 +"DATA",811.8,133,100,275,0) +811.9255;+151,+150,+146,;.01~1 +"DATA",811.8,133,100,276,0) +811.9255;+151,+150,+146,;.02~COUNT +"DATA",811.8,133,100,277,0) +811.9256;+152,+151,+150,+146,;.01~1 +"DATA",811.8,133,100,278,0) +811.97;+153,+146,;.01~99Y +"DATA",811.8,133,100,279,0) +811.97;+153,+146,;1~50 +"DATA",811.8,133,100,280,0) +811.97;+153,+146,;5~0 +"DATA",811.8,133,100,281,0) +811.97;+153,+146,;6~0 +"DATA",811.8,133,100,282,0) +]]> +"DATA",811.8,133,100,283,0) + +"DATA",811.8,133,100,284,0) + +"DATA",811.8,133,100,285,0) + +"DATA",811.8,133,100,294,0) + +"DATA",811.8,133,100,295,0) + +"DATA",811.8,133,100,296,0) + +"DATA",811.8,133,100,297,0) +REMINDER LIST RULE +"DATA",811.8,133,100,298,0) +810.4 +"DATA",811.8,133,100,299,0) +MU NQF0041 FLU INCLUSIONS +"DATA",811.8,133,100,300,0) +241 +"DATA",811.8,133,100,301,0) +2845674447 +"DATA",811.8,133,100,302,0) +NO +"DATA",811.8,133,100,303,0) + +"DATA",811.8,133,100,304,0) + +"DATA",811.8,133,100,313,0) + +"DATA",811.8,133,100,314,0) + +"DATA",811.8,133,100,315,0) + +"DATA",811.8,133,100,318,0) + +"DATA",811.8,133,100,319,0) + +"DATA",811.8,133,100,320,0) + +"DATA",811.8,133,100,321,0) +REMINDER LIST RULE +"DATA",811.8,133,100,322,0) +810.4 +"DATA",811.8,133,100,323,0) +MU NQF0041 FLU DENOM RR +"DATA",811.8,133,100,324,0) +240 +"DATA",811.8,133,100,325,0) +4115290732 +"DATA",811.8,133,100,326,0) +NO +"DATA",811.8,133,100,327,0) + +"DATA",811.8,133,100,328,0) + +"DATA",811.8,133,100,337,0) + +"DATA",811.8,133,100,338,0) + +"DATA",811.8,133,100,339,0) + +"DATA",811.8,133,100,342,0) + +"DATA",811.8,133,100,343,0) + +"DATA",811.8,133,100,344,0) + +"DATA",811.8,133,100,345,0) +REMINDER LIST RULE +"DATA",811.8,133,100,346,0) +810.4 +"DATA",811.8,133,100,347,0) +MU NQF0041 FLU RS +"DATA",811.8,133,100,348,0) +242 +"DATA",811.8,133,100,349,0) +2533080092 +"DATA",811.8,133,100,350,0) +YES +"DATA",811.8,133,100,351,0) + +"DATA",811.8,133,100,352,0) + +"DATA",811.8,133,100,366,0) + +"DATA",811.8,133,100,367,0) + +"DATA",811.8,133,100,368,0) + +"DATA",811.8,133,100,373,0) + +"DATA",811.8,133,100,374,0) + +"DATA",811.8,133,100,375,0) + +"DATA",811.8,133,100,376,0) +REMINDER LIST RULE +"DATA",811.8,133,100,377,0) +810.4 +"DATA",811.8,133,100,378,0) +MU NQF0041 FLU DENOM RS +"DATA",811.8,133,100,379,0) +243 +"DATA",811.8,133,100,380,0) +3853333550 +"DATA",811.8,133,100,381,0) +YES +"DATA",811.8,133,100,382,0) + +"DATA",811.8,133,100,383,0) + +"DATA",811.8,133,100,394,0) + +"DATA",811.8,133,100,395,0) + +"DATA",811.8,133,100,396,0) + +"DATA",811.8,133,100,400,0) + +"DATA",811.8,133,100,401,0) + +"DATA",811.8,133,100,402,0) + +"DATA",811.8,133,100,403,0) +10 +"DATA",811.8,133,100,404,0) + +"DATA",811.8,133,100,405,0) +30 +"DATA",811.8,133,100,406,0) +29 +"DATA",811.8,133,100,407,0) +20 +"DATA",811.8,133,100,408,0) + +"DATA",811.8,133,100,409,0) + +"DATA",811.8,133,100,410,0) +61 +"DATA",811.8,133,100,411,0) +43 +"DATA",811.8,133,100,412,0) +34 +"DATA",811.8,133,100,413,0) +72 +"DATA",811.8,133,100,414,0) +66 +"DATA",811.8,133,100,415,0) + +"DATA",811.8,133,100,416,0) + +"DATA",811.8,133,100,417,0) +97 +"DATA",811.8,133,100,418,0) +85 +"DATA",811.8,133,100,419,0) +76 +"DATA",811.8,133,100,420,0) +106 +"DATA",811.8,133,100,421,0) +102 +"DATA",811.8,133,100,422,0) + +"DATA",811.8,133,100,423,0) + +"DATA",811.8,133,100,424,0) +175 +"DATA",811.8,133,100,425,0) +119 +"DATA",811.8,133,100,426,0) +110 +"DATA",811.8,133,100,427,0) +194 +"DATA",811.8,133,100,428,0) +180 +"DATA",811.8,133,100,429,0) + +"DATA",811.8,133,100,430,0) + +"DATA",811.8,133,100,431,0) +219 +"DATA",811.8,133,100,432,0) +207 +"DATA",811.8,133,100,433,0) +198 +"DATA",811.8,133,100,434,0) +226 +"DATA",811.8,133,100,435,0) +224 +"DATA",811.8,133,100,436,0) + +"DATA",811.8,133,100,437,0) + +"DATA",811.8,133,100,438,0) +281 +"DATA",811.8,133,100,439,0) +239 +"DATA",811.8,133,100,440,0) +230 +"DATA",811.8,133,100,441,0) +292 +"DATA",811.8,133,100,442,0) +286 +"DATA",811.8,133,100,443,0) + +"DATA",811.8,133,100,444,0) + +"DATA",811.8,133,100,445,0) +311 +"DATA",811.8,133,100,446,0) +305 +"DATA",811.8,133,100,447,0) +296 +"DATA",811.8,133,100,448,0) +316 +"DATA",811.8,133,100,449,0) +316 +"DATA",811.8,133,100,450,0) + +"DATA",811.8,133,100,451,0) + +"DATA",811.8,133,100,452,0) +335 +"DATA",811.8,133,100,453,0) +329 +"DATA",811.8,133,100,454,0) +320 +"DATA",811.8,133,100,455,0) +340 +"DATA",811.8,133,100,456,0) +340 +"DATA",811.8,133,100,457,0) + +"DATA",811.8,133,100,458,0) + +"DATA",811.8,133,100,459,0) +364 +"DATA",811.8,133,100,460,0) +353 +"DATA",811.8,133,100,461,0) +344 +"DATA",811.8,133,100,462,0) +371 +"DATA",811.8,133,100,463,0) +369 +"DATA",811.8,133,100,464,0) + +"DATA",811.8,133,100,465,0) + +"DATA",811.8,133,100,466,0) +392 +"DATA",811.8,133,100,467,0) +384 +"DATA",811.8,133,100,468,0) +375 +"DATA",811.8,133,100,469,0) +398 +"DATA",811.8,133,100,470,0) +397 +"DATA",811.8,133,100,471,0) + +"DATA",811.8,133,100,472,0) + +"DATA",811.8,133,100,473,0) + +"DATA",811.8,133,110,0) +^811.804^14^14 +"DATA",811.8,133,110,1,0) +Source: KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION +"DATA",811.8,133,110,2,0) +Date Packed: 07/06/2011@15:26:59 +"DATA",811.8,133,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,133,110,4,0) + +"DATA",811.8,133,110,5,0) +Description: +"DATA",811.8,133,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,133,110,7,0) +REMINDER LIST RULE +"DATA",811.8,133,110,8,0) + MU NQF0041 FLU RS +"DATA",811.8,133,110,9,0) + MU NQF0041 FLU DENOM RS +"DATA",811.8,133,110,10,0) + +"DATA",811.8,133,110,11,0) +Keywords: +"DATA",811.8,133,110,12,0) +MU NQF0041 +"DATA",811.8,133,110,13,0) + +"DATA",811.8,133,110,14,0) +Components: +"DATA",811.8,133,119) +5 +"DATA",811.8,133,120,0) +^811.802A^10^10 +"DATA",811.8,133,120,1,0) +IMMUNIZATION^9999999.14^1 +"DATA",811.8,133,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,133,120,1,1,1,0) +FLU,3 YRS^29^30^^^1^0 +"DATA",811.8,133,120,2,0) +REMINDER TAXONOMY^811.2^3 +"DATA",811.8,133,120,2,1,0) +^811.8021A^3^3 +"DATA",811.8,133,120,2,1,1,0) +MU NQF0041 FLU CODES NUM INCLUSIONS^43^61^66^72^1^0 +"DATA",811.8,133,120,2,1,2,0) +MU NQF0041 DEM EXCLUSIONS^85^97^102^106^1^0 +"DATA",811.8,133,120,2,1,3,0) +MU NQF0041 ENC INCLUSIONS^119^175^180^194^1^0 +"DATA",811.8,133,120,3,0) +REMINDER TERM^811.5^1 +"DATA",811.8,133,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,133,120,3,1,1,0) +MU NQF0041 NUMERATOR INCLUSIONS^207^219^224^226^1^0 +"DATA",811.8,133,120,4,0) +REMINDER DEFINITION^811.9^1 +"DATA",811.8,133,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,133,120,4,1,1,0) +MU NQF0041 FLU DENOM LIST^239^281^286^292^1^0 +"DATA",811.8,133,120,5,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,133,120,5,1,0) +^811.8021A^4^4 +"DATA",811.8,133,120,5,1,1,0) +MU NQF0041 FLU INCLUSIONS^305^311^316^316^1^0 +"DATA",811.8,133,120,5,1,2,0) +MU NQF0041 FLU DENOM RR^329^335^340^340^1^0 +"DATA",811.8,133,120,5,1,3,0) +MU NQF0041 FLU RS^353^364^369^371^1^1 +"DATA",811.8,133,120,5,1,4,0) +MU NQF0041 FLU DENOM RS^384^392^397^398^1^1 +"DATA",811.8,173,0) +MU NQF0059_61_64_SMH^MANAGER,SYSTEM at VOE OFFICE INSTITUTION^3120716.104617 +"DATA",811.8,173,100,0) +^811.801^1510^1510 +"DATA",811.8,173,100,1,0) + +"DATA",811.8,173,100,2,0) + +"DATA",811.8,173,100,3,0) +2.0P17 +"DATA",811.8,173,100,4,0) +1289 +"DATA",811.8,173,100,5,0) + +"DATA",811.8,173,100,6,0) +MU NQF0059_61_64_SMH +"DATA",811.8,173,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,173,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,173,100,9,0) +07/16/2012@10:46:17 +"DATA",811.8,173,100,10,0) + +"DATA",811.8,173,100,11,0) + +"DATA",811.8,173,100,20,0) + +"DATA",811.8,173,100,21,0) +MU NQF0059 +"DATA",811.8,173,100,22,0) +MU NQF0061 +"DATA",811.8,173,100,23,0) +MU NQF0064 +"DATA",811.8,173,100,24,0) + +"DATA",811.8,173,100,25,0) + +"DATA",811.8,173,100,26,0) +VA DRUG CLASS +"DATA",811.8,173,100,27,0) +50.605 +"DATA",811.8,173,100,28,0) +HS509 +"DATA",811.8,173,100,29,0) +637 +"DATA",811.8,173,100,30,0) +264195558 +"DATA",811.8,173,100,31,0) +NO +"DATA",811.8,173,100,32,0) + +"DATA",811.8,173,100,33,0) + +"DATA",811.8,173,100,36,0) + +"DATA",811.8,173,100,37,0) + +"DATA",811.8,173,100,38,0) + +"DATA",811.8,173,100,39,0) +VA DRUG CLASS +"DATA",811.8,173,100,40,0) +50.605 +"DATA",811.8,173,100,41,0) +HS502 +"DATA",811.8,173,100,42,0) +130 +"DATA",811.8,173,100,43,0) +2557318254 +"DATA",811.8,173,100,44,0) +NO +"DATA",811.8,173,100,45,0) + +"DATA",811.8,173,100,46,0) + +"DATA",811.8,173,100,49,0) + +"DATA",811.8,173,100,50,0) + +"DATA",811.8,173,100,51,0) + +"DATA",811.8,173,100,52,0) +VA DRUG CLASS +"DATA",811.8,173,100,53,0) +50.605 +"DATA",811.8,173,100,54,0) +HS501 +"DATA",811.8,173,100,55,0) +129 +"DATA",811.8,173,100,56,0) +23381460 +"DATA",811.8,173,100,57,0) +NO +"DATA",811.8,173,100,58,0) + +"DATA",811.8,173,100,59,0) + +"DATA",811.8,173,100,62,0) + +"DATA",811.8,173,100,63,0) + +"DATA",811.8,173,100,64,0) + +"DATA",811.8,173,100,65,0) +LABORATORY TEST +"DATA",811.8,173,100,66,0) +60 +"DATA",811.8,173,100,67,0) +HEMOGLOBIN A1C +"DATA",811.8,173,100,68,0) +97 +"DATA",811.8,173,100,69,0) +2958680123 +"DATA",811.8,173,100,70,0) +NO +"DATA",811.8,173,100,71,0) + +"DATA",811.8,173,100,72,0) + +"DATA",811.8,173,100,75,0) + +"DATA",811.8,173,100,76,0) + +"DATA",811.8,173,100,77,0) + +"DATA",811.8,173,100,78,0) +LABORATORY TEST +"DATA",811.8,173,100,79,0) +60 +"DATA",811.8,173,100,80,0) +LDL CHOLESTEROL +"DATA",811.8,173,100,81,0) +901 +"DATA",811.8,173,100,82,0) +1035251149 +"DATA",811.8,173,100,83,0) +NO +"DATA",811.8,173,100,84,0) + +"DATA",811.8,173,100,85,0) + +"DATA",811.8,173,100,88,0) + +"DATA",811.8,173,100,89,0) + +"DATA",811.8,173,100,90,0) + +"DATA",811.8,173,100,91,0) +GMRV VITAL TYPE +"DATA",811.8,173,100,92,0) +120.51 +"DATA",811.8,173,100,93,0) +BLOOD PRESSURE +"DATA",811.8,173,100,94,0) +1 +"DATA",811.8,173,100,95,0) +4024959586 +"DATA",811.8,173,100,96,0) +NO +"DATA",811.8,173,100,97,0) + +"DATA",811.8,173,100,98,0) + +"DATA",811.8,173,100,101,0) + +"DATA",811.8,173,100,102,0) + +"DATA",811.8,173,100,103,0) + +"DATA",811.8,173,100,104,0) +HEALTH FACTORS +"DATA",811.8,173,100,105,0) +9999999.64 +"DATA",811.8,173,100,106,0) +PQRI HBA1C RESULT +"DATA",811.8,173,100,107,0) +500052 +"DATA",811.8,173,100,108,0) +1062400184 +"DATA",811.8,173,100,109,0) +NO +"DATA",811.8,173,100,110,0) + +"DATA",811.8,173,100,111,0) + +"DATA",811.8,173,100,115,0) + +"DATA",811.8,173,100,116,0) + +"DATA",811.8,173,100,117,0) + +"DATA",811.8,173,100,118,0) +HEALTH FACTORS +"DATA",811.8,173,100,119,0) +9999999.64 +"DATA",811.8,173,100,120,0) +HBA1C >9 +"DATA",811.8,173,100,121,0) +500053 +"DATA",811.8,173,100,122,0) +2910847938 +"DATA",811.8,173,100,123,0) +NO +"DATA",811.8,173,100,124,0) + +"DATA",811.8,173,100,125,0) +9 +"DATA",811.8,173,100,127,0) +9999999.64;+500053,;.03~PQRI HBA1C RESULT +"DATA",811.8,173,100,128,0) +9999999.64;+500053,;.04~HBA1C BAD +"DATA",811.8,173,100,129,0) +9999999.64;+500053,;.08~YES +"DATA",811.8,173,100,130,0) +9999999.64;+500053,;.1~FACTOR +"DATA",811.8,173,100,131,0) +]]> +"DATA",811.8,173,100,132,0) + +"DATA",811.8,173,100,133,0) + +"DATA",811.8,173,100,134,0) + +"DATA",811.8,173,100,135,0) +HEALTH FACTORS +"DATA",811.8,173,100,136,0) +9999999.64 +"DATA",811.8,173,100,137,0) +PQRI LDL CAT +"DATA",811.8,173,100,138,0) +500057 +"DATA",811.8,173,100,139,0) +686758236 +"DATA",811.8,173,100,140,0) +NO +"DATA",811.8,173,100,141,0) + +"DATA",811.8,173,100,142,0) + +"DATA",811.8,173,100,146,0) + +"DATA",811.8,173,100,147,0) + +"DATA",811.8,173,100,148,0) + +"DATA",811.8,173,100,149,0) +HEALTH FACTORS +"DATA",811.8,173,100,150,0) +9999999.64 +"DATA",811.8,173,100,151,0) +PQRI LDL < 100 +"DATA",811.8,173,100,152,0) +500079 +"DATA",811.8,173,100,153,0) +2793963508 +"DATA",811.8,173,100,154,0) +NO +"DATA",811.8,173,100,155,0) + +"DATA",811.8,173,100,156,0) + +"DATA",811.8,173,100,162,0) + +"DATA",811.8,173,100,163,0) + +"DATA",811.8,173,100,164,0) + +"DATA",811.8,173,100,165,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,166,0) +811.2 +"DATA",811.8,173,100,167,0) +MU NQF0059 DM DX ICD9 INCLUSIONS +"DATA",811.8,173,100,168,0) +143 +"DATA",811.8,173,100,169,0) +3992231752 +"DATA",811.8,173,100,170,0) +NO +"DATA",811.8,173,100,171,0) + +"DATA",811.8,173,100,172,0) + +"DATA",811.8,173,100,231,0) + +"DATA",811.8,173,100,232,0) + +"DATA",811.8,173,100,233,0) + +"DATA",811.8,173,100,250,0) + +"DATA",811.8,173,100,251,0) + +"DATA",811.8,173,100,252,0) + +"DATA",811.8,173,100,253,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,254,0) +811.2 +"DATA",811.8,173,100,255,0) +MU NQF0059 DM ENC1 INCLUSIONS +"DATA",811.8,173,100,256,0) +142 +"DATA",811.8,173,100,257,0) +3849860511 +"DATA",811.8,173,100,258,0) +NO +"DATA",811.8,173,100,259,0) + +"DATA",811.8,173,100,260,0) + +"DATA",811.8,173,100,289,0) + +"DATA",811.8,173,100,290,0) + +"DATA",811.8,173,100,291,0) + +"DATA",811.8,173,100,300,0) + +"DATA",811.8,173,100,301,0) + +"DATA",811.8,173,100,302,0) + +"DATA",811.8,173,100,303,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,304,0) +811.2 +"DATA",811.8,173,100,305,0) +MU NQF0059 DM 2 ENC INCLUSIONS +"DATA",811.8,173,100,306,0) +141 +"DATA",811.8,173,100,307,0) +3278900051 +"DATA",811.8,173,100,308,0) +NO +"DATA",811.8,173,100,309,0) + +"DATA",811.8,173,100,310,0) + +"DATA",811.8,173,100,395,0) + +"DATA",811.8,173,100,396,0) + +"DATA",811.8,173,100,397,0) + +"DATA",811.8,173,100,422,0) + +"DATA",811.8,173,100,423,0) + +"DATA",811.8,173,100,424,0) + +"DATA",811.8,173,100,425,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,426,0) +811.2 +"DATA",811.8,173,100,427,0) +MU NQF0068 DM +"DATA",811.8,173,100,428,0) +214 +"DATA",811.8,173,100,429,0) +2028393631 +"DATA",811.8,173,100,430,0) +NO +"DATA",811.8,173,100,431,0) + +"DATA",811.8,173,100,432,0) + +"DATA",811.8,173,100,443,0) + +"DATA",811.8,173,100,444,0) + +"DATA",811.8,173,100,445,0) + +"DATA",811.8,173,100,449,0) + +"DATA",811.8,173,100,450,0) + +"DATA",811.8,173,100,451,0) + +"DATA",811.8,173,100,452,0) +REMINDER TERM +"DATA",811.8,173,100,453,0) +811.5 +"DATA",811.8,173,100,454,0) +MU NQF0061 DM HTN<140/90 +"DATA",811.8,173,100,455,0) +548 +"DATA",811.8,173,100,456,0) +566342049 +"DATA",811.8,173,100,457,0) +NO +"DATA",811.8,173,100,458,0) + +"DATA",811.8,173,100,459,0) + +"DATA",811.8,173,100,473,0) + +"DATA",811.8,173,100,474,0) + +"DATA",811.8,173,100,475,0) + +"DATA",811.8,173,100,479,0) + +"DATA",811.8,173,100,480,0) + +"DATA",811.8,173,100,481,0) + +"DATA",811.8,173,100,482,0) +REMINDER TERM +"DATA",811.8,173,100,483,0) +811.5 +"DATA",811.8,173,100,484,0) +MU NQF0059 DM MEDS_ACTIVE +"DATA",811.8,173,100,485,0) +545 +"DATA",811.8,173,100,486,0) +2030299270 +"DATA",811.8,173,100,487,0) +NO +"DATA",811.8,173,100,488,0) + +"DATA",811.8,173,100,489,0) + +"DATA",811.8,173,100,517,0) + +"DATA",811.8,173,100,518,0) + +"DATA",811.8,173,100,519,0) + +"DATA",811.8,173,100,528,0) + +"DATA",811.8,173,100,529,0) + +"DATA",811.8,173,100,530,0) + +"DATA",811.8,173,100,531,0) +REMINDER TERM +"DATA",811.8,173,100,532,0) +811.5 +"DATA",811.8,173,100,533,0) +PQRI HBA1C>9 MK +"DATA",811.8,173,100,534,0) +605 +"DATA",811.8,173,100,535,0) +1033370734 +"DATA",811.8,173,100,536,0) +NO +"DATA",811.8,173,100,537,0) + +"DATA",811.8,173,100,538,0) +9 MK +"DATA",811.8,173,100,540,0) +811.5;+605,;100~LOCAL +"DATA",811.8,173,100,541,0) +811.52;+606,+605,;.01~HF.HBA1C >9 +"DATA",811.8,173,100,542,0) +811.52;+606,+605,;17~1 +"DATA",811.8,173,100,543,0) +811.53;+607,+605,;.01~07/16/2012@10:46:54 +"DATA",811.8,173,100,544,0) +811.53;+607,+605,;2~WP-start~1 +"DATA",811.8,173,100,545,0) +Exchange Stub +"DATA",811.8,173,100,546,0) +]]> +"DATA",811.8,173,100,547,0) + +"DATA",811.8,173,100,548,0) + +"DATA",811.8,173,100,549,0) + +"DATA",811.8,173,100,553,0) + +"DATA",811.8,173,100,554,0) + +"DATA",811.8,173,100,555,0) + +"DATA",811.8,173,100,556,0) +REMINDER TERM +"DATA",811.8,173,100,557,0) +811.5 +"DATA",811.8,173,100,558,0) +HBA1C LAB >9 +"DATA",811.8,173,100,559,0) +604 +"DATA",811.8,173,100,560,0) +3946832908 +"DATA",811.8,173,100,561,0) +NO +"DATA",811.8,173,100,562,0) + +"DATA",811.8,173,100,563,0) +9 +"DATA",811.8,173,100,565,0) +811.5;+604,;1~WP-start~1 +"DATA",811.8,173,100,566,0) +FINDINGS HERE ARE LABS NOT HF. +"DATA",811.8,173,100,567,0) +811.5;+604,;100~LOCAL +"DATA",811.8,173,100,568,0) +811.52;+605,+604,;.01~LT.HEMOGLOBIN A1C +"DATA",811.8,173,100,569,0) +811.52;+605,+604,;14~I V>9 +"DATA",811.8,173,100,570,0) +811.52;+605,+604,;17~1 +"DATA",811.8,173,100,571,0) +811.52;+605,+604,;18~YES +"DATA",811.8,173,100,572,0) +811.52;+605,+604,;22~I V>9 +"DATA",811.8,173,100,573,0) +811.53;+606,+604,;.01~07/16/2012@10:46:54 +"DATA",811.8,173,100,574,0) +811.53;+606,+604,;2~WP-start~1 +"DATA",811.8,173,100,575,0) +Exchange Stub +"DATA",811.8,173,100,576,0) +]]> +"DATA",811.8,173,100,577,0) + +"DATA",811.8,173,100,578,0) + +"DATA",811.8,173,100,579,0) + +"DATA",811.8,173,100,583,0) + +"DATA",811.8,173,100,584,0) + +"DATA",811.8,173,100,585,0) + +"DATA",811.8,173,100,586,0) +REMINDER TERM +"DATA",811.8,173,100,587,0) +811.5 +"DATA",811.8,173,100,588,0) +MU NQF0064 DN LDL<100 HF +"DATA",811.8,173,100,589,0) +550 +"DATA",811.8,173,100,590,0) +1606040963 +"DATA",811.8,173,100,591,0) +NO +"DATA",811.8,173,100,592,0) + +"DATA",811.8,173,100,593,0) + +"DATA",811.8,173,100,602,0) + +"DATA",811.8,173,100,603,0) + +"DATA",811.8,173,100,604,0) + +"DATA",811.8,173,100,608,0) + +"DATA",811.8,173,100,609,0) + +"DATA",811.8,173,100,610,0) + +"DATA",811.8,173,100,611,0) +REMINDER TERM +"DATA",811.8,173,100,612,0) +811.5 +"DATA",811.8,173,100,613,0) +MU NQF0064 DM LDL<100 LAB +"DATA",811.8,173,100,614,0) +549 +"DATA",811.8,173,100,615,0) +4099758307 +"DATA",811.8,173,100,616,0) +NO +"DATA",811.8,173,100,617,0) + +"DATA",811.8,173,100,618,0) + +"DATA",811.8,173,100,630,0) + +"DATA",811.8,173,100,631,0) + +"DATA",811.8,173,100,632,0) + +"DATA",811.8,173,100,636,0) + +"DATA",811.8,173,100,637,0) + +"DATA",811.8,173,100,638,0) + +"DATA",811.8,173,100,639,0) +REMINDER DEFINITION +"DATA",811.8,173,100,640,0) +811.9 +"DATA",811.8,173,100,641,0) +MU NQF0059 DM DENOMINATOR LIST-ALL +"DATA",811.8,173,100,642,0) +154 +"DATA",811.8,173,100,643,0) +3275631521 +"DATA",811.8,173,100,644,0) +NO +"DATA",811.8,173,100,645,0) + +"DATA",811.8,173,100,646,0) + +"DATA",811.8,173,100,693,0) + +"DATA",811.8,173,100,694,0) + +"DATA",811.8,173,100,695,0) + +"DATA",811.8,173,100,704,0) + +"DATA",811.8,173,100,705,0) + +"DATA",811.8,173,100,706,0) + +"DATA",811.8,173,100,707,0) +REMINDER DEFINITION +"DATA",811.8,173,100,708,0) +811.9 +"DATA",811.8,173,100,709,0) +MU NQF0059 DM NUMER LIST +"DATA",811.8,173,100,710,0) +156 +"DATA",811.8,173,100,711,0) +1553329245 +"DATA",811.8,173,100,712,0) +NO +"DATA",811.8,173,100,713,0) + +"DATA",811.8,173,100,714,0) +9 MK +"DATA",811.8,173,100,755,0) +811.902;+162,+156,;17~1 +"DATA",811.8,173,100,756,0) +811.902;+162,+156,;24~0 +"DATA",811.8,173,100,757,0) +811.902;+162,+156,;25~0 +"DATA",811.8,173,100,758,0) +811.902;+163,+156,;.01~RT.HBA1C LAB >9 +"DATA",811.8,173,100,759,0) +811.902;+163,+156,;14~I V>9 +"DATA",811.8,173,100,760,0) +811.902;+163,+156,;17~1 +"DATA",811.8,173,100,761,0) +811.902;+163,+156,;18~YES +"DATA",811.8,173,100,762,0) +811.902;+163,+156,;22~I V>9 +"DATA",811.8,173,100,763,0) +811.902;+163,+156,;24~0 +"DATA",811.8,173,100,764,0) +811.902;+163,+156,;25~0 +"DATA",811.8,173,100,765,0) +811.90221;+164,+161,+156,;.01~ACTIVE +"DATA",811.8,173,100,766,0) +811.925;+165,+156,;.01~1 +"DATA",811.8,173,100,767,0) +811.925;+165,+156,;3~COUNT(1)>1 +"DATA",811.8,173,100,768,0) +811.925;+165,+156,;10~FN(1)>1 +"DATA",811.8,173,100,769,0) +811.925;+165,+156,;41~0 +"DATA",811.8,173,100,770,0) +811.925;+165,+156,;42~0 +"DATA",811.8,173,100,771,0) +811.925;+166,+156,;.01~2 +"DATA",811.8,173,100,772,0) +811.925;+166,+156,;3~MAX_DATE(6,7)>MAX_DATE(7)&MAX_DATE(6)>0 +"DATA",811.8,173,100,773,0) +811.925;+166,+156,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,774,0) +811.925;+166,+156,;41~0 +"DATA",811.8,173,100,775,0) +811.925;+166,+156,;42~0 +"DATA",811.8,173,100,776,0) +811.925;+167,+156,;.01~3 +"DATA",811.8,173,100,777,0) +811.925;+167,+156,;3~MAX_DATE(6,7)>MAX_DATE(6)&MAX_DATE(7)>0 +"DATA",811.8,173,100,778,0) +811.925;+167,+156,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,779,0) +811.925;+167,+156,;41~0 +"DATA",811.8,173,100,780,0) +811.925;+167,+156,;42~0 +"DATA",811.8,173,100,781,0) +811.9255;+168,+165,+156,;.01~1 +"DATA",811.8,173,100,782,0) +811.9255;+168,+165,+156,;.02~COUNT +"DATA",811.8,173,100,783,0) +811.9255;+169,+166,+156,;.01~1 +"DATA",811.8,173,100,784,0) +811.9255;+169,+166,+156,;.02~MAX_DATE +"DATA",811.8,173,100,785,0) +811.9255;+170,+167,+156,;.01~1 +"DATA",811.8,173,100,786,0) +811.9255;+170,+167,+156,;.02~MAX_DATE +"DATA",811.8,173,100,787,0) +811.9255;+171,+166,+156,;.01~2 +"DATA",811.8,173,100,788,0) +811.9255;+171,+166,+156,;.02~MAX_DATE +"DATA",811.8,173,100,789,0) +811.9255;+172,+167,+156,;.01~2 +"DATA",811.8,173,100,790,0) +811.9255;+172,+167,+156,;.02~MAX_DATE +"DATA",811.8,173,100,791,0) +811.9255;+173,+166,+156,;.01~3 +"DATA",811.8,173,100,792,0) +811.9255;+173,+166,+156,;.02~MAX_DATE +"DATA",811.8,173,100,793,0) +811.9255;+174,+167,+156,;.01~3 +"DATA",811.8,173,100,794,0) +811.9255;+174,+167,+156,;.02~MAX_DATE +"DATA",811.8,173,100,795,0) +811.9256;+175,+168,+165,+156,;.01~1 +"DATA",811.8,173,100,796,0) +811.9256;+176,+169,+166,+156,;.01~6 +"DATA",811.8,173,100,797,0) +811.9256;+177,+170,+167,+156,;.01~6 +"DATA",811.8,173,100,798,0) +811.9256;+178,+171,+166,+156,;.01~7 +"DATA",811.8,173,100,799,0) +811.9256;+179,+172,+167,+156,;.01~6 +"DATA",811.8,173,100,800,0) +811.9256;+180,+173,+166,+156,;.01~6 +"DATA",811.8,173,100,801,0) +811.9256;+181,+174,+167,+156,;.01~7 +"DATA",811.8,173,100,802,0) +811.9256;+182,+169,+166,+156,;.01~7 +"DATA",811.8,173,100,803,0) +811.9256;+183,+170,+167,+156,;.01~7 +"DATA",811.8,173,100,804,0) +811.97;+184,+156,;.01~99Y +"DATA",811.8,173,100,805,0) +811.97;+184,+156,;1~18 +"DATA",811.8,173,100,806,0) +811.97;+184,+156,;2~75 +"DATA",811.8,173,100,807,0) +811.97;+184,+156,;5~0 +"DATA",811.8,173,100,808,0) +811.97;+184,+156,;6~0 +"DATA",811.8,173,100,809,0) +]]> +"DATA",811.8,173,100,810,0) + +"DATA",811.8,173,100,811,0) + +"DATA",811.8,173,100,812,0) + +"DATA",811.8,173,100,842,0) + +"DATA",811.8,173,100,843,0) + +"DATA",811.8,173,100,844,0) + +"DATA",811.8,173,100,845,0) +REMINDER DEFINITION +"DATA",811.8,173,100,846,0) +811.9 +"DATA",811.8,173,100,847,0) +MU NQF0064 DM DENOM LIST +"DATA",811.8,173,100,848,0) +248 +"DATA",811.8,173,100,849,0) +3524211489 +"DATA",811.8,173,100,850,0) +NO +"DATA",811.8,173,100,851,0) + +"DATA",811.8,173,100,852,0) + +"DATA",811.8,173,100,883,0) + +"DATA",811.8,173,100,884,0) + +"DATA",811.8,173,100,885,0) + +"DATA",811.8,173,100,890,0) + +"DATA",811.8,173,100,891,0) + +"DATA",811.8,173,100,892,0) + +"DATA",811.8,173,100,893,0) +REMINDER DEFINITION +"DATA",811.8,173,100,894,0) +811.9 +"DATA",811.8,173,100,895,0) +MU NQF0064 DM LDL<100 +"DATA",811.8,173,100,896,0) +157 +"DATA",811.8,173,100,897,0) +1527574796 +"DATA",811.8,173,100,898,0) +NO +"DATA",811.8,173,100,899,0) + +"DATA",811.8,173,100,900,0) +1 +"DATA",811.8,173,100,954,0) +811.925;+166,+157,;10~FN(1)>1 +"DATA",811.8,173,100,955,0) +811.925;+166,+157,;41~0 +"DATA",811.8,173,100,956,0) +811.925;+166,+157,;42~0 +"DATA",811.8,173,100,957,0) +811.925;+167,+157,;.01~2 +"DATA",811.8,173,100,958,0) +811.925;+167,+157,;3~MAX_DATE(6,7)>MAX_DATE(7)&MAX_DATE(6)>0 +"DATA",811.8,173,100,959,0) +811.925;+167,+157,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,960,0) +811.925;+167,+157,;41~0 +"DATA",811.8,173,100,961,0) +811.925;+167,+157,;42~0 +"DATA",811.8,173,100,962,0) +811.925;+168,+157,;.01~3 +"DATA",811.8,173,100,963,0) +811.925;+168,+157,;3~MAX_DATE(6,7)>MAX_DATE(6)&MAX_DATE(7)>0 +"DATA",811.8,173,100,964,0) +811.925;+168,+157,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,965,0) +811.925;+168,+157,;41~0 +"DATA",811.8,173,100,966,0) +811.925;+168,+157,;42~0 +"DATA",811.8,173,100,967,0) +811.9255;+169,+166,+157,;.01~1 +"DATA",811.8,173,100,968,0) +811.9255;+169,+166,+157,;.02~COUNT +"DATA",811.8,173,100,969,0) +811.9255;+170,+167,+157,;.01~1 +"DATA",811.8,173,100,970,0) +811.9255;+170,+167,+157,;.02~MAX_DATE +"DATA",811.8,173,100,971,0) +811.9255;+171,+168,+157,;.01~1 +"DATA",811.8,173,100,972,0) +811.9255;+171,+168,+157,;.02~MAX_DATE +"DATA",811.8,173,100,973,0) +811.9255;+172,+167,+157,;.01~2 +"DATA",811.8,173,100,974,0) +811.9255;+172,+167,+157,;.02~MAX_DATE +"DATA",811.8,173,100,975,0) +811.9255;+173,+168,+157,;.01~2 +"DATA",811.8,173,100,976,0) +811.9255;+173,+168,+157,;.02~MAX_DATE +"DATA",811.8,173,100,977,0) +811.9255;+174,+167,+157,;.01~3 +"DATA",811.8,173,100,978,0) +811.9255;+174,+167,+157,;.02~MAX_DATE +"DATA",811.8,173,100,979,0) +811.9255;+175,+168,+157,;.01~3 +"DATA",811.8,173,100,980,0) +811.9255;+175,+168,+157,;.02~MAX_DATE +"DATA",811.8,173,100,981,0) +811.9256;+176,+169,+166,+157,;.01~1 +"DATA",811.8,173,100,982,0) +811.9256;+177,+170,+167,+157,;.01~6 +"DATA",811.8,173,100,983,0) +811.9256;+178,+171,+168,+157,;.01~6 +"DATA",811.8,173,100,984,0) +811.9256;+179,+172,+167,+157,;.01~7 +"DATA",811.8,173,100,985,0) +811.9256;+180,+173,+168,+157,;.01~6 +"DATA",811.8,173,100,986,0) +811.9256;+181,+174,+167,+157,;.01~6 +"DATA",811.8,173,100,987,0) +811.9256;+182,+175,+168,+157,;.01~7 +"DATA",811.8,173,100,988,0) +811.9256;+183,+170,+167,+157,;.01~7 +"DATA",811.8,173,100,989,0) +811.9256;+184,+171,+168,+157,;.01~7 +"DATA",811.8,173,100,990,0) +811.97;+185,+157,;.01~99Y +"DATA",811.8,173,100,991,0) +811.97;+185,+157,;1~18 +"DATA",811.8,173,100,992,0) +811.97;+185,+157,;2~75 +"DATA",811.8,173,100,993,0) +811.97;+185,+157,;5~0 +"DATA",811.8,173,100,994,0) +811.97;+185,+157,;6~0 +"DATA",811.8,173,100,995,0) +]]> +"DATA",811.8,173,100,996,0) + +"DATA",811.8,173,100,997,0) + +"DATA",811.8,173,100,998,0) + +"DATA",811.8,173,100,1028,0) + +"DATA",811.8,173,100,1029,0) + +"DATA",811.8,173,100,1030,0) + +"DATA",811.8,173,100,1031,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1032,0) +810.4 +"DATA",811.8,173,100,1033,0) +MU NQF0061 BP<140/90 +"DATA",811.8,173,100,1034,0) +261 +"DATA",811.8,173,100,1035,0) +518981220 +"DATA",811.8,173,100,1036,0) +NO +"DATA",811.8,173,100,1037,0) + +"DATA",811.8,173,100,1038,0) + +"DATA",811.8,173,100,1047,0) + +"DATA",811.8,173,100,1048,0) + +"DATA",811.8,173,100,1049,0) + +"DATA",811.8,173,100,1052,0) + +"DATA",811.8,173,100,1053,0) + +"DATA",811.8,173,100,1054,0) + +"DATA",811.8,173,100,1055,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1056,0) +810.4 +"DATA",811.8,173,100,1057,0) +MU NQF0059 DM DENOM RR +"DATA",811.8,173,100,1058,0) +257 +"DATA",811.8,173,100,1059,0) +2446968057 +"DATA",811.8,173,100,1060,0) +NO +"DATA",811.8,173,100,1061,0) + +"DATA",811.8,173,100,1062,0) + +"DATA",811.8,173,100,1071,0) + +"DATA",811.8,173,100,1072,0) + +"DATA",811.8,173,100,1073,0) + +"DATA",811.8,173,100,1076,0) + +"DATA",811.8,173,100,1077,0) + +"DATA",811.8,173,100,1078,0) + +"DATA",811.8,173,100,1079,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1080,0) +810.4 +"DATA",811.8,173,100,1081,0) +MU NQF0061 NUM DM BP<140/90 RS +"DATA",811.8,173,100,1082,0) +262 +"DATA",811.8,173,100,1083,0) +2580697611 +"DATA",811.8,173,100,1084,0) +YES +"DATA",811.8,173,100,1085,0) + +"DATA",811.8,173,100,1086,0) + +"DATA",811.8,173,100,1100,0) + +"DATA",811.8,173,100,1101,0) + +"DATA",811.8,173,100,1102,0) + +"DATA",811.8,173,100,1107,0) + +"DATA",811.8,173,100,1108,0) + +"DATA",811.8,173,100,1109,0) + +"DATA",811.8,173,100,1110,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1111,0) +810.4 +"DATA",811.8,173,100,1112,0) +MU NQF0059 HBA1C NUM RR +"DATA",811.8,173,100,1113,0) +259 +"DATA",811.8,173,100,1114,0) +1255396299 +"DATA",811.8,173,100,1115,0) +NO +"DATA",811.8,173,100,1116,0) + +"DATA",811.8,173,100,1117,0) + +"DATA",811.8,173,100,1126,0) + +"DATA",811.8,173,100,1127,0) + +"DATA",811.8,173,100,1128,0) + +"DATA",811.8,173,100,1131,0) + +"DATA",811.8,173,100,1132,0) + +"DATA",811.8,173,100,1133,0) + +"DATA",811.8,173,100,1134,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1135,0) +810.4 +"DATA",811.8,173,100,1136,0) +MU NQF0059 HBA1C NUM RS +"DATA",811.8,173,100,1137,0) +260 +"DATA",811.8,173,100,1138,0) +242611370 +"DATA",811.8,173,100,1139,0) +YES +"DATA",811.8,173,100,1140,0) + +"DATA",811.8,173,100,1141,0) + +"DATA",811.8,173,100,1152,0) + +"DATA",811.8,173,100,1153,0) + +"DATA",811.8,173,100,1154,0) + +"DATA",811.8,173,100,1158,0) + +"DATA",811.8,173,100,1159,0) + +"DATA",811.8,173,100,1160,0) + +"DATA",811.8,173,100,1161,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1162,0) +810.4 +"DATA",811.8,173,100,1163,0) +MU NQF0059 DM DENOM-ALL RS +"DATA",811.8,173,100,1164,0) +258 +"DATA",811.8,173,100,1165,0) +2579369947 +"DATA",811.8,173,100,1166,0) +YES +"DATA",811.8,173,100,1167,0) + +"DATA",811.8,173,100,1168,0) + +"DATA",811.8,173,100,1179,0) + +"DATA",811.8,173,100,1180,0) + +"DATA",811.8,173,100,1181,0) + +"DATA",811.8,173,100,1185,0) + +"DATA",811.8,173,100,1186,0) + +"DATA",811.8,173,100,1187,0) + +"DATA",811.8,173,100,1188,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1189,0) +810.4 +"DATA",811.8,173,100,1190,0) +MU NQF0064 DM DENOM RR +"DATA",811.8,173,100,1191,0) +249 +"DATA",811.8,173,100,1192,0) +4043562952 +"DATA",811.8,173,100,1193,0) +NO +"DATA",811.8,173,100,1194,0) + +"DATA",811.8,173,100,1195,0) + +"DATA",811.8,173,100,1204,0) + +"DATA",811.8,173,100,1205,0) + +"DATA",811.8,173,100,1206,0) + +"DATA",811.8,173,100,1209,0) + +"DATA",811.8,173,100,1210,0) + +"DATA",811.8,173,100,1211,0) + +"DATA",811.8,173,100,1212,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1213,0) +810.4 +"DATA",811.8,173,100,1214,0) +MU NQF0064 DM DENOM RS +"DATA",811.8,173,100,1215,0) +250 +"DATA",811.8,173,100,1216,0) +1236316883 +"DATA",811.8,173,100,1217,0) +YES +"DATA",811.8,173,100,1218,0) + +"DATA",811.8,173,100,1219,0) + +"DATA",811.8,173,100,1230,0) + +"DATA",811.8,173,100,1231,0) + +"DATA",811.8,173,100,1232,0) + +"DATA",811.8,173,100,1236,0) + +"DATA",811.8,173,100,1237,0) + +"DATA",811.8,173,100,1238,0) + +"DATA",811.8,173,100,1239,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1240,0) +810.4 +"DATA",811.8,173,100,1241,0) +MU NQF0064 NUM LDL RR +"DATA",811.8,173,100,1242,0) +247 +"DATA",811.8,173,100,1243,0) +3311292798 +"DATA",811.8,173,100,1244,0) +NO +"DATA",811.8,173,100,1245,0) + +"DATA",811.8,173,100,1246,0) + +"DATA",811.8,173,100,1255,0) + +"DATA",811.8,173,100,1256,0) + +"DATA",811.8,173,100,1257,0) + +"DATA",811.8,173,100,1260,0) + +"DATA",811.8,173,100,1261,0) + +"DATA",811.8,173,100,1262,0) + +"DATA",811.8,173,100,1263,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1264,0) +810.4 +"DATA",811.8,173,100,1265,0) +MU NQF0064 NUM LDL RS +"DATA",811.8,173,100,1266,0) +248 +"DATA",811.8,173,100,1267,0) +3711066382 +"DATA",811.8,173,100,1268,0) +YES +"DATA",811.8,173,100,1269,0) + +"DATA",811.8,173,100,1270,0) + +"DATA",811.8,173,100,1281,0) + +"DATA",811.8,173,100,1282,0) + +"DATA",811.8,173,100,1283,0) + +"DATA",811.8,173,100,1287,0) + +"DATA",811.8,173,100,1288,0) + +"DATA",811.8,173,100,1289,0) + +"DATA",811.8,173,100,1290,0) +34 +"DATA",811.8,173,100,1291,0) + +"DATA",811.8,173,100,1292,0) +34 +"DATA",811.8,173,100,1293,0) +34 +"DATA",811.8,173,100,1294,0) +25 +"DATA",811.8,173,100,1295,0) + +"DATA",811.8,173,100,1296,0) + +"DATA",811.8,173,100,1297,0) +47 +"DATA",811.8,173,100,1298,0) +47 +"DATA",811.8,173,100,1299,0) +38 +"DATA",811.8,173,100,1300,0) + +"DATA",811.8,173,100,1301,0) + +"DATA",811.8,173,100,1302,0) +60 +"DATA",811.8,173,100,1303,0) +60 +"DATA",811.8,173,100,1304,0) +51 +"DATA",811.8,173,100,1305,0) + +"DATA",811.8,173,100,1306,0) + +"DATA",811.8,173,100,1307,0) +73 +"DATA",811.8,173,100,1308,0) +73 +"DATA",811.8,173,100,1309,0) +64 +"DATA",811.8,173,100,1310,0) + +"DATA",811.8,173,100,1311,0) + +"DATA",811.8,173,100,1312,0) +86 +"DATA",811.8,173,100,1313,0) +86 +"DATA",811.8,173,100,1314,0) +77 +"DATA",811.8,173,100,1315,0) + +"DATA",811.8,173,100,1316,0) + +"DATA",811.8,173,100,1317,0) +99 +"DATA",811.8,173,100,1318,0) +99 +"DATA",811.8,173,100,1319,0) +90 +"DATA",811.8,173,100,1320,0) + +"DATA",811.8,173,100,1321,0) + +"DATA",811.8,173,100,1322,0) +113 +"DATA",811.8,173,100,1323,0) +112 +"DATA",811.8,173,100,1324,0) +103 +"DATA",811.8,173,100,1325,0) + +"DATA",811.8,173,100,1326,0) + +"DATA",811.8,173,100,1327,0) +130 +"DATA",811.8,173,100,1328,0) +126 +"DATA",811.8,173,100,1329,0) +117 +"DATA",811.8,173,100,1330,0) + +"DATA",811.8,173,100,1331,0) + +"DATA",811.8,173,100,1332,0) +144 +"DATA",811.8,173,100,1333,0) +143 +"DATA",811.8,173,100,1334,0) +134 +"DATA",811.8,173,100,1335,0) + +"DATA",811.8,173,100,1336,0) + +"DATA",811.8,173,100,1337,0) +160 +"DATA",811.8,173,100,1338,0) +157 +"DATA",811.8,173,100,1339,0) +148 +"DATA",811.8,173,100,1340,0) + +"DATA",811.8,173,100,1341,0) + +"DATA",811.8,173,100,1342,0) +229 +"DATA",811.8,173,100,1343,0) +173 +"DATA",811.8,173,100,1344,0) +164 +"DATA",811.8,173,100,1345,0) +248 +"DATA",811.8,173,100,1346,0) +234 +"DATA",811.8,173,100,1347,0) + +"DATA",811.8,173,100,1348,0) + +"DATA",811.8,173,100,1349,0) +287 +"DATA",811.8,173,100,1350,0) +261 +"DATA",811.8,173,100,1351,0) +252 +"DATA",811.8,173,100,1352,0) +298 +"DATA",811.8,173,100,1353,0) +292 +"DATA",811.8,173,100,1354,0) + +"DATA",811.8,173,100,1355,0) + +"DATA",811.8,173,100,1356,0) +393 +"DATA",811.8,173,100,1357,0) +311 +"DATA",811.8,173,100,1358,0) +302 +"DATA",811.8,173,100,1359,0) +420 +"DATA",811.8,173,100,1360,0) +398 +"DATA",811.8,173,100,1361,0) + +"DATA",811.8,173,100,1362,0) + +"DATA",811.8,173,100,1363,0) +441 +"DATA",811.8,173,100,1364,0) +433 +"DATA",811.8,173,100,1365,0) +424 +"DATA",811.8,173,100,1366,0) +447 +"DATA",811.8,173,100,1367,0) +446 +"DATA",811.8,173,100,1368,0) + +"DATA",811.8,173,100,1369,0) + +"DATA",811.8,173,100,1370,0) +471 +"DATA",811.8,173,100,1371,0) +460 +"DATA",811.8,173,100,1372,0) +451 +"DATA",811.8,173,100,1373,0) +477 +"DATA",811.8,173,100,1374,0) +476 +"DATA",811.8,173,100,1375,0) + +"DATA",811.8,173,100,1376,0) + +"DATA",811.8,173,100,1377,0) +515 +"DATA",811.8,173,100,1378,0) +490 +"DATA",811.8,173,100,1379,0) +481 +"DATA",811.8,173,100,1380,0) +526 +"DATA",811.8,173,100,1381,0) +520 +"DATA",811.8,173,100,1382,0) + +"DATA",811.8,173,100,1383,0) + +"DATA",811.8,173,100,1384,0) +545 +"DATA",811.8,173,100,1385,0) +539 +"DATA",811.8,173,100,1386,0) +530 +"DATA",811.8,173,100,1387,0) +551 +"DATA",811.8,173,100,1388,0) +550 +"DATA",811.8,173,100,1389,0) + +"DATA",811.8,173,100,1390,0) + +"DATA",811.8,173,100,1391,0) +575 +"DATA",811.8,173,100,1392,0) +564 +"DATA",811.8,173,100,1393,0) +555 +"DATA",811.8,173,100,1394,0) +581 +"DATA",811.8,173,100,1395,0) +580 +"DATA",811.8,173,100,1396,0) + +"DATA",811.8,173,100,1397,0) + +"DATA",811.8,173,100,1398,0) +600 +"DATA",811.8,173,100,1399,0) +594 +"DATA",811.8,173,100,1400,0) +585 +"DATA",811.8,173,100,1401,0) +606 +"DATA",811.8,173,100,1402,0) +605 +"DATA",811.8,173,100,1403,0) + +"DATA",811.8,173,100,1404,0) + +"DATA",811.8,173,100,1405,0) +628 +"DATA",811.8,173,100,1406,0) +619 +"DATA",811.8,173,100,1407,0) +610 +"DATA",811.8,173,100,1408,0) +634 +"DATA",811.8,173,100,1409,0) +633 +"DATA",811.8,173,100,1410,0) + +"DATA",811.8,173,100,1411,0) + +"DATA",811.8,173,100,1412,0) +691 +"DATA",811.8,173,100,1413,0) +647 +"DATA",811.8,173,100,1414,0) +638 +"DATA",811.8,173,100,1415,0) +702 +"DATA",811.8,173,100,1416,0) +696 +"DATA",811.8,173,100,1417,0) + +"DATA",811.8,173,100,1418,0) + +"DATA",811.8,173,100,1419,0) +808 +"DATA",811.8,173,100,1420,0) +715 +"DATA",811.8,173,100,1421,0) +706 +"DATA",811.8,173,100,1422,0) +840 +"DATA",811.8,173,100,1423,0) +813 +"DATA",811.8,173,100,1424,0) + +"DATA",811.8,173,100,1425,0) + +"DATA",811.8,173,100,1426,0) +881 +"DATA",811.8,173,100,1427,0) +853 +"DATA",811.8,173,100,1428,0) +844 +"DATA",811.8,173,100,1429,0) +888 +"DATA",811.8,173,100,1430,0) +886 +"DATA",811.8,173,100,1431,0) + +"DATA",811.8,173,100,1432,0) + +"DATA",811.8,173,100,1433,0) +994 +"DATA",811.8,173,100,1434,0) +901 +"DATA",811.8,173,100,1435,0) +892 +"DATA",811.8,173,100,1436,0) +1026 +"DATA",811.8,173,100,1437,0) +999 +"DATA",811.8,173,100,1438,0) + +"DATA",811.8,173,100,1439,0) + +"DATA",811.8,173,100,1440,0) +1045 +"DATA",811.8,173,100,1441,0) +1039 +"DATA",811.8,173,100,1442,0) +1030 +"DATA",811.8,173,100,1443,0) +1050 +"DATA",811.8,173,100,1444,0) +1050 +"DATA",811.8,173,100,1445,0) + +"DATA",811.8,173,100,1446,0) + +"DATA",811.8,173,100,1447,0) +1069 +"DATA",811.8,173,100,1448,0) +1063 +"DATA",811.8,173,100,1449,0) +1054 +"DATA",811.8,173,100,1450,0) +1074 +"DATA",811.8,173,100,1451,0) +1074 +"DATA",811.8,173,100,1452,0) + +"DATA",811.8,173,100,1453,0) + +"DATA",811.8,173,100,1454,0) +1098 +"DATA",811.8,173,100,1455,0) +1087 +"DATA",811.8,173,100,1456,0) +1078 +"DATA",811.8,173,100,1457,0) +1105 +"DATA",811.8,173,100,1458,0) +1103 +"DATA",811.8,173,100,1459,0) + +"DATA",811.8,173,100,1460,0) + +"DATA",811.8,173,100,1461,0) +1124 +"DATA",811.8,173,100,1462,0) +1118 +"DATA",811.8,173,100,1463,0) +1109 +"DATA",811.8,173,100,1464,0) +1129 +"DATA",811.8,173,100,1465,0) +1129 +"DATA",811.8,173,100,1466,0) + +"DATA",811.8,173,100,1467,0) + +"DATA",811.8,173,100,1468,0) +1150 +"DATA",811.8,173,100,1469,0) +1142 +"DATA",811.8,173,100,1470,0) +1133 +"DATA",811.8,173,100,1471,0) +1156 +"DATA",811.8,173,100,1472,0) +1155 +"DATA",811.8,173,100,1473,0) + +"DATA",811.8,173,100,1474,0) + +"DATA",811.8,173,100,1475,0) +1177 +"DATA",811.8,173,100,1476,0) +1169 +"DATA",811.8,173,100,1477,0) +1160 +"DATA",811.8,173,100,1478,0) +1183 +"DATA",811.8,173,100,1479,0) +1182 +"DATA",811.8,173,100,1480,0) + +"DATA",811.8,173,100,1481,0) + +"DATA",811.8,173,100,1482,0) +1202 +"DATA",811.8,173,100,1483,0) +1196 +"DATA",811.8,173,100,1484,0) +1187 +"DATA",811.8,173,100,1485,0) +1207 +"DATA",811.8,173,100,1486,0) +1207 +"DATA",811.8,173,100,1487,0) + +"DATA",811.8,173,100,1488,0) + +"DATA",811.8,173,100,1489,0) +1228 +"DATA",811.8,173,100,1490,0) +1220 +"DATA",811.8,173,100,1491,0) +1211 +"DATA",811.8,173,100,1492,0) +1234 +"DATA",811.8,173,100,1493,0) +1233 +"DATA",811.8,173,100,1494,0) + +"DATA",811.8,173,100,1495,0) + +"DATA",811.8,173,100,1496,0) +1253 +"DATA",811.8,173,100,1497,0) +1247 +"DATA",811.8,173,100,1498,0) +1238 +"DATA",811.8,173,100,1499,0) +1258 +"DATA",811.8,173,100,1500,0) +1258 +"DATA",811.8,173,100,1501,0) + +"DATA",811.8,173,100,1502,0) + +"DATA",811.8,173,100,1503,0) +1279 +"DATA",811.8,173,100,1504,0) +1271 +"DATA",811.8,173,100,1505,0) +1262 +"DATA",811.8,173,100,1506,0) +1285 +"DATA",811.8,173,100,1507,0) +1284 +"DATA",811.8,173,100,1508,0) + +"DATA",811.8,173,100,1509,0) + +"DATA",811.8,173,100,1510,0) + +"DATA",811.8,173,110,0) +^811.804^19^19 +"DATA",811.8,173,110,1,0) +Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION +"DATA",811.8,173,110,2,0) +Date Packed: 07/16/2012@10:46:17 +"DATA",811.8,173,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,173,110,4,0) + +"DATA",811.8,173,110,5,0) +Description: +"DATA",811.8,173,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,173,110,7,0) +REMINDER LIST RULE +"DATA",811.8,173,110,8,0) + MU NQF0064 NUM LDL RS +"DATA",811.8,173,110,9,0) + MU NQF0064 DM DENOM RS +"DATA",811.8,173,110,10,0) + MU NQF0059 DM DENOM-ALL RS +"DATA",811.8,173,110,11,0) + MU NQF0059 HBA1C NUM RS +"DATA",811.8,173,110,12,0) + MU NQF0061 NUM DM BP<140/90 RS +"DATA",811.8,173,110,13,0) + +"DATA",811.8,173,110,14,0) +Keywords: +"DATA",811.8,173,110,15,0) +MU NQF0059 +"DATA",811.8,173,110,16,0) +MU NQF0061 +"DATA",811.8,173,110,17,0) +MU NQF0064 +"DATA",811.8,173,110,18,0) + +"DATA",811.8,173,110,19,0) +Components: +"DATA",811.8,173,119) +8 +"DATA",811.8,173,120,0) +^811.802A^34^34 +"DATA",811.8,173,120,1,0) +VA DRUG CLASS^50.605^3 +"DATA",811.8,173,120,1,1,0) +^811.8021A^3^3 +"DATA",811.8,173,120,1,1,1,0) +HS509^34^34^^^0^0 +"DATA",811.8,173,120,1,1,2,0) +HS502^47^47^^^0^0 +"DATA",811.8,173,120,1,1,3,0) +HS501^60^60^^^0^0 +"DATA",811.8,173,120,2,0) +LABORATORY TEST^60^2 +"DATA",811.8,173,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,173,120,2,1,1,0) +HEMOGLOBIN A1C^73^73^^^0^0 +"DATA",811.8,173,120,2,1,2,0) +LDL CHOLESTEROL^86^86^^^0^0 +"DATA",811.8,173,120,3,0) +GMRV VITAL TYPE^120.51^1 +"DATA",811.8,173,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,173,120,3,1,1,0) +BLOOD PRESSURE^99^99^^^0^0 +"DATA",811.8,173,120,4,0) +HEALTH FACTORS^9999999.64^4 +"DATA",811.8,173,120,4,1,0) +^811.8021A^4^4 +"DATA",811.8,173,120,4,1,1,0) +PQRI HBA1C RESULT^112^113^^^1^0 +"DATA",811.8,173,120,4,1,2,0) +HBA1C >9^126^130^^^1^0 +"DATA",811.8,173,120,4,1,3,0) +PQRI LDL CAT^143^144^^^1^0 +"DATA",811.8,173,120,4,1,4,0) +PQRI LDL < 100^157^160^^^1^0 +"DATA",811.8,173,120,5,0) +REMINDER TAXONOMY^811.2^4 +"DATA",811.8,173,120,5,1,0) +^811.8021A^4^4 +"DATA",811.8,173,120,5,1,1,0) +MU NQF0059 DM DX ICD9 INCLUSIONS^173^229^234^248^1^0 +"DATA",811.8,173,120,5,1,2,0) +MU NQF0059 DM ENC1 INCLUSIONS^261^287^292^298^1^0 +"DATA",811.8,173,120,5,1,3,0) +MU NQF0059 DM 2 ENC INCLUSIONS^311^393^398^420^1^0 +"DATA",811.8,173,120,5,1,4,0) +MU NQF0068 DM^433^441^446^447^1^0 +"DATA",811.8,173,120,6,0) +REMINDER TERM^811.5^6 +"DATA",811.8,173,120,6,1,0) +^811.8021A^6^6 +"DATA",811.8,173,120,6,1,1,0) +MU NQF0061 DM HTN<140/90^460^471^476^477^1^0 +"DATA",811.8,173,120,6,1,2,0) +MU NQF0059 DM MEDS_ACTIVE^490^515^520^526^1^0 +"DATA",811.8,173,120,6,1,3,0) +PQRI HBA1C>9 MK^539^545^550^551^1^0 +"DATA",811.8,173,120,6,1,4,0) +HBA1C LAB >9^564^575^580^581^1^0 +"DATA",811.8,173,120,6,1,5,0) +MU NQF0064 DN LDL<100 HF^594^600^605^606^1^0 +"DATA",811.8,173,120,6,1,6,0) +MU NQF0064 DM LDL<100 LAB^619^628^633^634^1^0 +"DATA",811.8,173,120,7,0) +REMINDER DEFINITION^811.9^4 +"DATA",811.8,173,120,7,1,0) +^811.8021A^4^4 +"DATA",811.8,173,120,7,1,1,0) +MU NQF0059 DM DENOMINATOR LIST-ALL^647^691^696^702^1^0 +"DATA",811.8,173,120,7,1,2,0) +MU NQF0059 DM NUMER LIST^715^808^813^840^1^0 +"DATA",811.8,173,120,7,1,3,0) +MU NQF0064 DM DENOM LIST^853^881^886^888^1^0 +"DATA",811.8,173,120,7,1,4,0) +MU NQF0064 DM LDL<100^901^994^999^1026^1^0 +"DATA",811.8,173,120,8,0) +REMINDER LIST RULE^810.4^10 +"DATA",811.8,173,120,8,1,0) +^811.8021A^10^10 +"DATA",811.8,173,120,8,1,1,0) +MU NQF0061 BP<140/90^1039^1045^1050^1050^1^0 +"DATA",811.8,173,120,8,1,2,0) +MU NQF0059 DM DENOM RR^1063^1069^1074^1074^1^0 +"DATA",811.8,173,120,8,1,3,0) +MU NQF0061 NUM DM BP<140/90 RS^1087^1098^1103^1105^1^1 +"DATA",811.8,173,120,8,1,4,0) +MU NQF0059 HBA1C NUM RR^1118^1124^1129^1129^1^0 +"DATA",811.8,173,120,8,1,5,0) +MU NQF0059 HBA1C NUM RS^1142^1150^1155^1156^1^1 +"DATA",811.8,173,120,8,1,6,0) +MU NQF0059 DM DENOM-ALL RS^1169^1177^1182^1183^1^1 +"DATA",811.8,173,120,8,1,7,0) +MU NQF0064 DM DENOM RR^1196^1202^1207^1207^1^0 +"DATA",811.8,173,120,8,1,8,0) +MU NQF0064 DM DENOM RS^1220^1228^1233^1234^1^1 +"DATA",811.8,173,120,8,1,9,0) +MU NQF0064 NUM LDL RR^1247^1253^1258^1258^1^0 +"DATA",811.8,173,120,8,1,10,0) +MU NQF0064 NUM LDL RS^1271^1279^1284^1285^1^1 +"DATA",811.8,175,0) +MU NQF0421 ADULT BMI SMH^HABIEL,SAM at VOE OFFICE INSTITUTION^3120726.110017 +"DATA",811.8,175,100,0) +^811.801^2339^2339 +"DATA",811.8,175,100,1,0) + +"DATA",811.8,175,100,2,0) + +"DATA",811.8,175,100,3,0) +2.0P17 +"DATA",811.8,175,100,4,0) +1936 +"DATA",811.8,175,100,5,0) + +"DATA",811.8,175,100,6,0) +MU NQF0421 ADULT BMI SMH +"DATA",811.8,175,100,7,0) +HABIEL,SAM +"DATA",811.8,175,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,175,100,9,0) +07/26/2012@11:00:17 +"DATA",811.8,175,100,10,0) + +"DATA",811.8,175,100,11,0) + +"DATA",811.8,175,100,15,0) + +"DATA",811.8,175,100,16,0) +MU +"DATA",811.8,175,100,17,0) +NQF0421 +"DATA",811.8,175,100,18,0) +0421 +"DATA",811.8,175,100,19,0) +NQF +"DATA",811.8,175,100,20,0) +ADULT +"DATA",811.8,175,100,21,0) +BMI +"DATA",811.8,175,100,22,0) + +"DATA",811.8,175,100,23,0) + +"DATA",811.8,175,100,24,0) +PXRMBMI +"DATA",811.8,175,100,25,0) +3245654505 +"DATA",811.8,175,100,26,0) + +"DATA",811.8,175,100,27,0) +0:-1,1:1) +"DATA",811.8,175,100,110,0) + S NOCC=$S(NGET>0:NGET,1:-NGET) +"DATA",811.8,175,100,111,0) + ;Get a list of weight measurements in the date range. +"DATA",811.8,175,100,112,0) + S TDATE=BDT-.000001 +"DATA",811.8,175,100,113,0) + F S TDATE=+$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE)) Q:(TDATE=0)!(TDATE>EDT) D +"DATA",811.8,175,100,114,0) + . S DAS=$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE,"")) +"DATA",811.8,175,100,115,0) + . S WLIST(TDATE)=DAS +"DATA",811.8,175,100,116,0) + ;Get up to NOCC BMI values. +"DATA",811.8,175,100,117,0) + S TDATE="",(DONE,NFOUND)=0 +"DATA",811.8,175,100,118,0) + F S TDATE=$O(WLIST(TDATE),SDIR) Q:(DONE)!(TDATE="") D +"DATA",811.8,175,100,119,0) + . S DAS=WLIST(TDATE) +"DATA",811.8,175,100,120,0) + . K TEMP +"DATA",811.8,175,100,121,0) + . D GETDATA^PXRMVITL(DAS,.TEMP) +"DATA",811.8,175,100,122,0) + . I TEMP("RATE")'=+TEMP("RATE") Q +"DATA",811.8,175,100,123,0) + . S WT=+TEMP("RATE")*0.4535924 +"DATA",811.8,175,100,124,0) + .;Find the closest height measurement. +"DATA",811.8,175,100,125,0) + . D GHEIGHT(DFN,TDATE,.HT,.HDATE) +"DATA",811.8,175,100,126,0) + . I HT=-1 Q +"DATA",811.8,175,100,127,0) + . S NFOUND=NFOUND+1 +"DATA",811.8,175,100,128,0) + . S WHL(NFOUND)=TDATE_U_WT_U_HT_U_HDATE +"DATA",811.8,175,100,129,0) + . I NFOUND=NOCC S DONE=1 +"DATA",811.8,175,100,130,0) + Q +"DATA",811.8,175,100,131,0) + ; +"DATA",811.8,175,100,132,0) +]]> +"DATA",811.8,175,100,133,0) + +"DATA",811.8,175,100,134,0) + +"DATA",811.8,175,100,135,0) + +"DATA",811.8,175,100,136,0) +GMRV VITAL TYPE +"DATA",811.8,175,100,137,0) +120.51 +"DATA",811.8,175,100,138,0) +WEIGHT +"DATA",811.8,175,100,139,0) +9 +"DATA",811.8,175,100,140,0) +3151076501 +"DATA",811.8,175,100,141,0) +NO +"DATA",811.8,175,100,142,0) + +"DATA",811.8,175,100,143,0) + +"DATA",811.8,175,100,146,0) + +"DATA",811.8,175,100,147,0) + +"DATA",811.8,175,100,148,0) + +"DATA",811.8,175,100,149,0) +HEALTH FACTORS +"DATA",811.8,175,100,150,0) +9999999.64 +"DATA",811.8,175,100,151,0) +SNOMED CODES +"DATA",811.8,175,100,152,0) +500013 +"DATA",811.8,175,100,153,0) +3190378291 +"DATA",811.8,175,100,154,0) +NO +"DATA",811.8,175,100,155,0) + +"DATA",811.8,175,100,156,0) + +"DATA",811.8,175,100,160,0) + +"DATA",811.8,175,100,161,0) + +"DATA",811.8,175,100,162,0) + +"DATA",811.8,175,100,163,0) +HEALTH FACTORS +"DATA",811.8,175,100,164,0) +9999999.64 +"DATA",811.8,175,100,165,0) +289908002 +"DATA",811.8,175,100,166,0) +644 +"DATA",811.8,175,100,167,0) +788821390 +"DATA",811.8,175,100,168,0) +NO +"DATA",811.8,175,100,169,0) + +"DATA",811.8,175,100,170,0) + +"DATA",811.8,175,100,178,0) + +"DATA",811.8,175,100,179,0) + +"DATA",811.8,175,100,180,0) + +"DATA",811.8,175,100,181,0) +HEALTH FACTORS +"DATA",811.8,175,100,182,0) +9999999.64 +"DATA",811.8,175,100,183,0) +300936002 +"DATA",811.8,175,100,184,0) +643 +"DATA",811.8,175,100,185,0) +397166804 +"DATA",811.8,175,100,186,0) +NO +"DATA",811.8,175,100,187,0) + +"DATA",811.8,175,100,188,0) + +"DATA",811.8,175,100,195,0) + +"DATA",811.8,175,100,196,0) + +"DATA",811.8,175,100,197,0) + +"DATA",811.8,175,100,198,0) +HEALTH FACTORS +"DATA",811.8,175,100,199,0) +9999999.64 +"DATA",811.8,175,100,200,0) +CPT-4 CODES +"DATA",811.8,175,100,201,0) +641 +"DATA",811.8,175,100,202,0) +124440117 +"DATA",811.8,175,100,203,0) +NO +"DATA",811.8,175,100,204,0) + +"DATA",811.8,175,100,205,0) + +"DATA",811.8,175,100,209,0) + +"DATA",811.8,175,100,210,0) + +"DATA",811.8,175,100,211,0) + +"DATA",811.8,175,100,212,0) +HEALTH FACTORS +"DATA",811.8,175,100,213,0) +9999999.64 +"DATA",811.8,175,100,214,0) +3008F-1P +"DATA",811.8,175,100,215,0) +642 +"DATA",811.8,175,100,216,0) +1352173547 +"DATA",811.8,175,100,217,0) +NO +"DATA",811.8,175,100,218,0) + +"DATA",811.8,175,100,219,0) + +"DATA",811.8,175,100,226,0) + +"DATA",811.8,175,100,227,0) + +"DATA",811.8,175,100,228,0) + +"DATA",811.8,175,100,229,0) +HEALTH FACTORS +"DATA",811.8,175,100,230,0) +9999999.64 +"DATA",811.8,175,100,231,0) +BMI MANAGEMENT OPTIONS +"DATA",811.8,175,100,232,0) +50212 +"DATA",811.8,175,100,233,0) +3865298610 +"DATA",811.8,175,100,234,0) +NO +"DATA",811.8,175,100,235,0) + +"DATA",811.8,175,100,236,0) + +"DATA",811.8,175,100,240,0) + +"DATA",811.8,175,100,241,0) + +"DATA",811.8,175,100,242,0) + +"DATA",811.8,175,100,243,0) +HEALTH FACTORS +"DATA",811.8,175,100,244,0) +9999999.64 +"DATA",811.8,175,100,245,0) +BMI DIETARY CONSULT DONE +"DATA",811.8,175,100,246,0) +50214 +"DATA",811.8,175,100,247,0) +2104698889 +"DATA",811.8,175,100,248,0) +NO +"DATA",811.8,175,100,249,0) + +"DATA",811.8,175,100,250,0) + +"DATA",811.8,175,100,256,0) + +"DATA",811.8,175,100,257,0) + +"DATA",811.8,175,100,258,0) + +"DATA",811.8,175,100,259,0) +HEALTH FACTORS +"DATA",811.8,175,100,260,0) +9999999.64 +"DATA",811.8,175,100,261,0) +BMI CARE GOAL DOCUMENTED +"DATA",811.8,175,100,262,0) +50213 +"DATA",811.8,175,100,263,0) +2777035191 +"DATA",811.8,175,100,264,0) +NO +"DATA",811.8,175,100,265,0) + +"DATA",811.8,175,100,266,0) + +"DATA",811.8,175,100,272,0) + +"DATA",811.8,175,100,273,0) + +"DATA",811.8,175,100,274,0) + +"DATA",811.8,175,100,275,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,175,100,276,0) +811.4 +"DATA",811.8,175,100,277,0) +VA-BMI +"DATA",811.8,175,100,278,0) +1 +"DATA",811.8,175,100,279,0) +3808685416 +"DATA",811.8,175,100,280,0) +NO +"DATA",811.8,175,100,281,0) + +"DATA",811.8,175,100,282,0) +25"; +"DATA",811.8,175,100,296,0) +3) This finding will be evaluated to true for patients with a BMI that is +"DATA",811.8,175,100,297,0) +greater than 25. +"DATA",811.8,175,100,298,0) + +"DATA",811.8,175,100,299,0) +This is a multi-occurrence computed finding. +"DATA",811.8,175,100,300,0) + +"DATA",811.8,175,100,301,0) + +"DATA",811.8,175,100,302,0) + +"DATA",811.8,175,100,303,0) + +"DATA",811.8,175,100,304,0) +811.4;+1,;5~MULTIPLE +"DATA",811.8,175,100,305,0) +811.4;+1,;100~NATIONAL +"DATA",811.8,175,100,306,0) +811.42;+2,+1,;.01~07/26/2012@11:01:04 +"DATA",811.8,175,100,307,0) +811.42;+2,+1,;2~WP-start~1 +"DATA",811.8,175,100,308,0) +Exchange Stub +"DATA",811.8,175,100,309,0) +]]> +"DATA",811.8,175,100,310,0) + +"DATA",811.8,175,100,311,0) + +"DATA",811.8,175,100,312,0) + +"DATA",811.8,175,100,315,0) + +"DATA",811.8,175,100,316,0) + +"DATA",811.8,175,100,317,0) + +"DATA",811.8,175,100,318,0) +REMINDER TAXONOMY +"DATA",811.8,175,100,319,0) +811.2 +"DATA",811.8,175,100,320,0) +PQRI PREGNANCY I9 CODES +"DATA",811.8,175,100,321,0) +216 +"DATA",811.8,175,100,322,0) +334965997 +"DATA",811.8,175,100,323,0) +NO +"DATA",811.8,175,100,324,0) + +"DATA",811.8,175,100,325,0) + +"DATA",811.8,175,100,345,0) + +"DATA",811.8,175,100,346,0) + +"DATA",811.8,175,100,347,0) + +"DATA",811.8,175,100,353,0) + +"DATA",811.8,175,100,354,0) + +"DATA",811.8,175,100,355,0) + +"DATA",811.8,175,100,356,0) +REMINDER TAXONOMY +"DATA",811.8,175,100,357,0) +811.2 +"DATA",811.8,175,100,358,0) +PQRI M128 DEM C4 EXCLUSION +"DATA",811.8,175,100,359,0) +215 +"DATA",811.8,175,100,360,0) +3384846975 +"DATA",811.8,175,100,361,0) +NO +"DATA",811.8,175,100,362,0) + +"DATA",811.8,175,100,363,0) + +"DATA",811.8,175,100,375,0) + +"DATA",811.8,175,100,376,0) + +"DATA",811.8,175,100,377,0) + +"DATA",811.8,175,100,381,0) + +"DATA",811.8,175,100,382,0) + +"DATA",811.8,175,100,383,0) + +"DATA",811.8,175,100,384,0) +REMINDER TAXONOMY +"DATA",811.8,175,100,385,0) +811.2 +"DATA",811.8,175,100,386,0) +MU_E+M_CODES +"DATA",811.8,175,100,387,0) +217 +"DATA",811.8,175,100,388,0) +4265471670 +"DATA",811.8,175,100,389,0) +NO +"DATA",811.8,175,100,390,0) + +"DATA",811.8,175,100,391,0) + +"DATA",811.8,175,100,403,0) + +"DATA",811.8,175,100,404,0) + +"DATA",811.8,175,100,405,0) + +"DATA",811.8,175,100,409,0) + +"DATA",811.8,175,100,410,0) + +"DATA",811.8,175,100,411,0) + +"DATA",811.8,175,100,412,0) +REMINDER TERM +"DATA",811.8,175,100,413,0) +811.5 +"DATA",811.8,175,100,414,0) +PQRI M128 DENOMINATOR EXCLUSIONS +"DATA",811.8,175,100,415,0) +751 +"DATA",811.8,175,100,416,0) +3903178578 +"DATA",811.8,175,100,417,0) +NO +"DATA",811.8,175,100,418,0) + +"DATA",811.8,175,100,419,0) + +"DATA",811.8,175,100,442,0) + +"DATA",811.8,175,100,443,0) + +"DATA",811.8,175,100,444,0) + +"DATA",811.8,175,100,452,0) + +"DATA",811.8,175,100,453,0) + +"DATA",811.8,175,100,454,0) + +"DATA",811.8,175,100,455,0) +REMINDER TERM +"DATA",811.8,175,100,456,0) +811.5 +"DATA",811.8,175,100,457,0) +MU NQF0421 <65Y BMI LOW +"DATA",811.8,175,100,458,0) +757 +"DATA",811.8,175,100,459,0) +2873114190 +"DATA",811.8,175,100,460,0) +NO +"DATA",811.8,175,100,461,0) + +"DATA",811.8,175,100,462,0) + +"DATA",811.8,175,100,473,0) + +"DATA",811.8,175,100,474,0) + +"DATA",811.8,175,100,475,0) + +"DATA",811.8,175,100,479,0) + +"DATA",811.8,175,100,480,0) + +"DATA",811.8,175,100,481,0) + +"DATA",811.8,175,100,482,0) +REMINDER TERM +"DATA",811.8,175,100,483,0) +811.5 +"DATA",811.8,175,100,484,0) +MU NQF0421 <65Y BMI HIGH +"DATA",811.8,175,100,485,0) +758 +"DATA",811.8,175,100,486,0) +759192226 +"DATA",811.8,175,100,487,0) +NO +"DATA",811.8,175,100,488,0) + +"DATA",811.8,175,100,489,0) +24.9 +"DATA",811.8,175,100,494,0) +811.52;+759,+758,;18~YES +"DATA",811.8,175,100,495,0) +811.52;+759,+758,;22~I V>24.9 +"DATA",811.8,175,100,496,0) +811.53;+760,+758,;.01~07/26/2012@11:01:04 +"DATA",811.8,175,100,497,0) +811.53;+760,+758,;2~WP-start~1 +"DATA",811.8,175,100,498,0) +Exchange Stub +"DATA",811.8,175,100,499,0) +]]> +"DATA",811.8,175,100,500,0) + +"DATA",811.8,175,100,501,0) + +"DATA",811.8,175,100,502,0) + +"DATA",811.8,175,100,506,0) + +"DATA",811.8,175,100,507,0) + +"DATA",811.8,175,100,508,0) + +"DATA",811.8,175,100,509,0) +REMINDER TERM +"DATA",811.8,175,100,510,0) +811.5 +"DATA",811.8,175,100,511,0) +MU NQF0421 BMI FINDING +"DATA",811.8,175,100,512,0) +755 +"DATA",811.8,175,100,513,0) +29796399 +"DATA",811.8,175,100,514,0) +NO +"DATA",811.8,175,100,515,0) + +"DATA",811.8,175,100,516,0) + +"DATA",811.8,175,100,525,0) + +"DATA",811.8,175,100,526,0) + +"DATA",811.8,175,100,527,0) + +"DATA",811.8,175,100,531,0) + +"DATA",811.8,175,100,532,0) + +"DATA",811.8,175,100,533,0) + +"DATA",811.8,175,100,534,0) +REMINDER TERM +"DATA",811.8,175,100,535,0) +811.5 +"DATA",811.8,175,100,536,0) +MU NQF0421 WEIGHT +"DATA",811.8,175,100,537,0) +759 +"DATA",811.8,175,100,538,0) +1560996267 +"DATA",811.8,175,100,539,0) +NO +"DATA",811.8,175,100,540,0) + +"DATA",811.8,175,100,541,0) + +"DATA",811.8,175,100,550,0) + +"DATA",811.8,175,100,551,0) + +"DATA",811.8,175,100,552,0) + +"DATA",811.8,175,100,556,0) + +"DATA",811.8,175,100,557,0) + +"DATA",811.8,175,100,558,0) + +"DATA",811.8,175,100,559,0) +REMINDER TERM +"DATA",811.8,175,100,560,0) +811.5 +"DATA",811.8,175,100,561,0) +MU NQF0421 BMI MANAGEMENT OPTIONS +"DATA",811.8,175,100,562,0) +754 +"DATA",811.8,175,100,563,0) +3410741318 +"DATA",811.8,175,100,564,0) +NO +"DATA",811.8,175,100,565,0) + +"DATA",811.8,175,100,566,0) + +"DATA",811.8,175,100,577,0) + +"DATA",811.8,175,100,578,0) + +"DATA",811.8,175,100,579,0) + +"DATA",811.8,175,100,584,0) + +"DATA",811.8,175,100,585,0) + +"DATA",811.8,175,100,586,0) + +"DATA",811.8,175,100,587,0) +REMINDER TERM +"DATA",811.8,175,100,588,0) +811.5 +"DATA",811.8,175,100,589,0) +MU NQF0421 65Y BMI LOW +"DATA",811.8,175,100,590,0) +760 +"DATA",811.8,175,100,591,0) +4200126736 +"DATA",811.8,175,100,592,0) +NO +"DATA",811.8,175,100,593,0) + +"DATA",811.8,175,100,594,0) + +"DATA",811.8,175,100,605,0) + +"DATA",811.8,175,100,606,0) + +"DATA",811.8,175,100,607,0) + +"DATA",811.8,175,100,611,0) + +"DATA",811.8,175,100,612,0) + +"DATA",811.8,175,100,613,0) + +"DATA",811.8,175,100,614,0) +REMINDER TERM +"DATA",811.8,175,100,615,0) +811.5 +"DATA",811.8,175,100,616,0) +MU NQF0421 65Y BMI HIGH +"DATA",811.8,175,100,617,0) +761 +"DATA",811.8,175,100,618,0) +777281056 +"DATA",811.8,175,100,619,0) +NO +"DATA",811.8,175,100,620,0) + +"DATA",811.8,175,100,621,0) +29.9 +"DATA",811.8,175,100,626,0) +811.52;+762,+761,;18~YES +"DATA",811.8,175,100,627,0) +811.52;+762,+761,;22~I V>29.9 +"DATA",811.8,175,100,628,0) +811.53;+763,+761,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,629,0) +811.53;+763,+761,;2~WP-start~1 +"DATA",811.8,175,100,630,0) +Exchange Stub +"DATA",811.8,175,100,631,0) +]]> +"DATA",811.8,175,100,632,0) + +"DATA",811.8,175,100,633,0) + +"DATA",811.8,175,100,634,0) + +"DATA",811.8,175,100,638,0) + +"DATA",811.8,175,100,639,0) + +"DATA",811.8,175,100,640,0) + +"DATA",811.8,175,100,641,0) +REMINDER DEFINITION +"DATA",811.8,175,100,642,0) +811.9 +"DATA",811.8,175,100,643,0) +MU NQF0421 BMU DENOM2 LIST +"DATA",811.8,175,100,644,0) +257 +"DATA",811.8,175,100,645,0) +1282884968 +"DATA",811.8,175,100,646,0) +NO +"DATA",811.8,175,100,647,0) + +"DATA",811.8,175,100,648,0) +1 +"DATA",811.8,175,100,676,0) +811.925;+260,+257,;10~FN(1)>1 +"DATA",811.8,175,100,677,0) +811.925;+260,+257,;12~AND +"DATA",811.8,175,100,678,0) +811.925;+260,+257,;41~0 +"DATA",811.8,175,100,679,0) +811.925;+260,+257,;42~0 +"DATA",811.8,175,100,680,0) +811.9255;+261,+260,+257,;.01~1 +"DATA",811.8,175,100,681,0) +811.9255;+261,+260,+257,;.02~COUNT +"DATA",811.8,175,100,682,0) +811.9256;+262,+261,+260,+257,;.01~1 +"DATA",811.8,175,100,683,0) +811.97;+263,+257,;.01~99Y +"DATA",811.8,175,100,684,0) +811.97;+263,+257,;1~18 +"DATA",811.8,175,100,685,0) +811.97;+263,+257,;2~64 +"DATA",811.8,175,100,686,0) +811.97;+263,+257,;5~0 +"DATA",811.8,175,100,687,0) +811.97;+263,+257,;6~0 +"DATA",811.8,175,100,688,0) +]]> +"DATA",811.8,175,100,689,0) + +"DATA",811.8,175,100,690,0) + +"DATA",811.8,175,100,691,0) + +"DATA",811.8,175,100,699,0) + +"DATA",811.8,175,100,700,0) + +"DATA",811.8,175,100,701,0) + +"DATA",811.8,175,100,702,0) +REMINDER DEFINITION +"DATA",811.8,175,100,703,0) +811.9 +"DATA",811.8,175,100,704,0) +MU NQF0421 BMI DENOM 1 LIST +"DATA",811.8,175,100,705,0) +255 +"DATA",811.8,175,100,706,0) +2014610145 +"DATA",811.8,175,100,707,0) +NO +"DATA",811.8,175,100,708,0) + +"DATA",811.8,175,100,709,0) +1 +"DATA",811.8,175,100,739,0) +811.925;+258,+255,;10~FN(1)>1 +"DATA",811.8,175,100,740,0) +811.925;+258,+255,;12~AND +"DATA",811.8,175,100,741,0) +811.925;+258,+255,;41~0 +"DATA",811.8,175,100,742,0) +811.925;+258,+255,;42~0 +"DATA",811.8,175,100,743,0) +811.9255;+259,+258,+255,;.01~1 +"DATA",811.8,175,100,744,0) +811.9255;+259,+258,+255,;.02~COUNT +"DATA",811.8,175,100,745,0) +811.9256;+260,+259,+258,+255,;.01~1 +"DATA",811.8,175,100,746,0) +811.97;+261,+255,;.01~99Y +"DATA",811.8,175,100,747,0) +811.97;+261,+255,;1~65 +"DATA",811.8,175,100,748,0) +811.97;+261,+255,;5~0 +"DATA",811.8,175,100,749,0) +811.97;+261,+255,;6~0 +"DATA",811.8,175,100,750,0) +]]> +"DATA",811.8,175,100,751,0) + +"DATA",811.8,175,100,752,0) + +"DATA",811.8,175,100,753,0) + +"DATA",811.8,175,100,761,0) + +"DATA",811.8,175,100,762,0) + +"DATA",811.8,175,100,763,0) + +"DATA",811.8,175,100,764,0) +REMINDER DEFINITION +"DATA",811.8,175,100,765,0) +811.9 +"DATA",811.8,175,100,766,0) +MU NQF0421 BMI NUM2 LIST +"DATA",811.8,175,100,767,0) +258 +"DATA",811.8,175,100,768,0) +107614712 +"DATA",811.8,175,100,769,0) +NO +"DATA",811.8,175,100,770,0) + +"DATA",811.8,175,100,771,0) + +"DATA",811.8,175,100,817,0) + +"DATA",811.8,175,100,818,0) + +"DATA",811.8,175,100,819,0) + +"DATA",811.8,175,100,829,0) + +"DATA",811.8,175,100,830,0) + +"DATA",811.8,175,100,831,0) + +"DATA",811.8,175,100,832,0) +REMINDER DEFINITION +"DATA",811.8,175,100,833,0) +811.9 +"DATA",811.8,175,100,834,0) +MU NQF0421 BMI NUM1 LIST +"DATA",811.8,175,100,835,0) +256 +"DATA",811.8,175,100,836,0) +4013036031 +"DATA",811.8,175,100,837,0) +NO +"DATA",811.8,175,100,838,0) + +"DATA",811.8,175,100,839,0) + +"DATA",811.8,175,100,884,0) + +"DATA",811.8,175,100,885,0) + +"DATA",811.8,175,100,886,0) + +"DATA",811.8,175,100,896,0) + +"DATA",811.8,175,100,897,0) + +"DATA",811.8,175,100,898,0) + +"DATA",811.8,175,100,899,0) +REMINDER LIST RULE +"DATA",811.8,175,100,900,0) +810.4 +"DATA",811.8,175,100,901,0) +MU NQF0421 <65Y BMI NUM2-ALL PLL +"DATA",811.8,175,100,902,0) +319 +"DATA",811.8,175,100,903,0) +3393778207 +"DATA",811.8,175,100,904,0) +NO +"DATA",811.8,175,100,905,0) + +"DATA",811.8,175,100,906,0) + +"DATA",811.8,175,100,916,0) + +"DATA",811.8,175,100,917,0) + +"DATA",811.8,175,100,918,0) + +"DATA",811.8,175,100,921,0) + +"DATA",811.8,175,100,922,0) + +"DATA",811.8,175,100,923,0) + +"DATA",811.8,175,100,924,0) +REMINDER LIST RULE +"DATA",811.8,175,100,925,0) +810.4 +"DATA",811.8,175,100,926,0) +MU NQF0421 65Y BMI NUM1-ALL PLL +"DATA",811.8,175,100,927,0) +317 +"DATA",811.8,175,100,928,0) +3244572912 +"DATA",811.8,175,100,929,0) +NO +"DATA",811.8,175,100,930,0) + +"DATA",811.8,175,100,931,0) +=65Y Numerator1 Patient List Rule +"DATA",811.8,175,100,934,0) +810.4;+317,;.03~PATIENT LIST +"DATA",811.8,175,100,935,0) +810.4;+317,;7~MU NQF0421 65Y BMI NUM1-ALL PL Mnn/yyyy +"DATA",811.8,175,100,936,0) +810.4;+317,;100~LOCAL +"DATA",811.8,175,100,937,0) +810.42;+318,+317,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,938,0) +810.42;+318,+317,;2~WP-start~1 +"DATA",811.8,175,100,939,0) +Exchange Stub +"DATA",811.8,175,100,940,0) +]]> +"DATA",811.8,175,100,941,0) + +"DATA",811.8,175,100,942,0) + +"DATA",811.8,175,100,943,0) + +"DATA",811.8,175,100,946,0) + +"DATA",811.8,175,100,947,0) + +"DATA",811.8,175,100,948,0) + +"DATA",811.8,175,100,949,0) +REMINDER LIST RULE +"DATA",811.8,175,100,950,0) +810.4 +"DATA",811.8,175,100,951,0) +MU NQF0421 BMI NUM ALL RS +"DATA",811.8,175,100,952,0) +321 +"DATA",811.8,175,100,953,0) +1990984385 +"DATA",811.8,175,100,954,0) +NO +"DATA",811.8,175,100,955,0) + +"DATA",811.8,175,100,956,0) +=65 yo) +"DATA",811.8,175,100,959,0) +810.4;+321,;.03~RULE SET +"DATA",811.8,175,100,960,0) +810.4;+321,;100~LOCAL +"DATA",811.8,175,100,961,0) +810.41;+322,+321,;.01~10 +"DATA",811.8,175,100,962,0) +810.41;+322,+321,;.02~MU NQF0421 65Y BMI NUM1-ALL PLL +"DATA",811.8,175,100,963,0) +810.41;+322,+321,;.03~ADD PATIENT +"DATA",811.8,175,100,964,0) +810.41;+323,+321,;.01~20 +"DATA",811.8,175,100,965,0) +810.41;+323,+321,;.02~MU NQF0421 <65Y BMI NUM2-ALL PLL +"DATA",811.8,175,100,966,0) +810.41;+323,+321,;.03~ADD PATIENT +"DATA",811.8,175,100,967,0) +810.42;+324,+321,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,968,0) +810.42;+324,+321,;2~WP-start~1 +"DATA",811.8,175,100,969,0) +Exchange Stub +"DATA",811.8,175,100,970,0) +]]> +"DATA",811.8,175,100,971,0) + +"DATA",811.8,175,100,972,0) + +"DATA",811.8,175,100,973,0) + +"DATA",811.8,175,100,978,0) + +"DATA",811.8,175,100,979,0) + +"DATA",811.8,175,100,980,0) + +"DATA",811.8,175,100,981,0) +REMINDER LIST RULE +"DATA",811.8,175,100,982,0) +810.4 +"DATA",811.8,175,100,983,0) +MU NQF0421 BMI DENOM2 PLL +"DATA",811.8,175,100,984,0) +318 +"DATA",811.8,175,100,985,0) +830474672 +"DATA",811.8,175,100,986,0) +NO +"DATA",811.8,175,100,987,0) + +"DATA",811.8,175,100,988,0) + +"DATA",811.8,175,100,998,0) + +"DATA",811.8,175,100,999,0) + +"DATA",811.8,175,100,1000,0) + +"DATA",811.8,175,100,1003,0) + +"DATA",811.8,175,100,1004,0) + +"DATA",811.8,175,100,1005,0) + +"DATA",811.8,175,100,1006,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1007,0) +810.4 +"DATA",811.8,175,100,1008,0) +MU NQF0421 BMI DENOM1 PLL +"DATA",811.8,175,100,1009,0) +316 +"DATA",811.8,175,100,1010,0) +455613172 +"DATA",811.8,175,100,1011,0) +NO +"DATA",811.8,175,100,1012,0) + +"DATA",811.8,175,100,1013,0) + +"DATA",811.8,175,100,1023,0) + +"DATA",811.8,175,100,1024,0) + +"DATA",811.8,175,100,1025,0) + +"DATA",811.8,175,100,1028,0) + +"DATA",811.8,175,100,1029,0) + +"DATA",811.8,175,100,1030,0) + +"DATA",811.8,175,100,1031,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1032,0) +810.4 +"DATA",811.8,175,100,1033,0) +MU NQF0421 BMI DENOM ALL RS +"DATA",811.8,175,100,1034,0) +320 +"DATA",811.8,175,100,1035,0) +2099774664 +"DATA",811.8,175,100,1036,0) +NO +"DATA",811.8,175,100,1037,0) + +"DATA",811.8,175,100,1038,0) +=65) +"DATA",811.8,175,100,1041,0) +810.4;+320,;.03~RULE SET +"DATA",811.8,175,100,1042,0) +810.4;+320,;100~LOCAL +"DATA",811.8,175,100,1043,0) +810.41;+321,+320,;.01~10 +"DATA",811.8,175,100,1044,0) +810.41;+321,+320,;.02~MU NQF0421 BMI DENOM1 PLL +"DATA",811.8,175,100,1045,0) +810.41;+321,+320,;.03~ADD PATIENT +"DATA",811.8,175,100,1046,0) +810.41;+322,+320,;.01~20 +"DATA",811.8,175,100,1047,0) +810.41;+322,+320,;.02~MU NQF0421 BMI DENOM2 PLL +"DATA",811.8,175,100,1048,0) +810.41;+322,+320,;.03~ADD PATIENT +"DATA",811.8,175,100,1049,0) +810.42;+323,+320,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,1050,0) +810.42;+323,+320,;2~WP-start~1 +"DATA",811.8,175,100,1051,0) +Exchange Stub +"DATA",811.8,175,100,1052,0) +]]> +"DATA",811.8,175,100,1053,0) + +"DATA",811.8,175,100,1054,0) + +"DATA",811.8,175,100,1055,0) + +"DATA",811.8,175,100,1060,0) + +"DATA",811.8,175,100,1061,0) + +"DATA",811.8,175,100,1062,0) + +"DATA",811.8,175,100,1063,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1064,0) +810.4 +"DATA",811.8,175,100,1065,0) +MU NQF0421 BMI DENOM EXCL FR +"DATA",811.8,175,100,1066,0) +271 +"DATA",811.8,175,100,1067,0) +4011544089 +"DATA",811.8,175,100,1068,0) +NO +"DATA",811.8,175,100,1069,0) + +"DATA",811.8,175,100,1070,0) + +"DATA",811.8,175,100,1079,0) + +"DATA",811.8,175,100,1080,0) + +"DATA",811.8,175,100,1081,0) + +"DATA",811.8,175,100,1084,0) + +"DATA",811.8,175,100,1085,0) + +"DATA",811.8,175,100,1086,0) + +"DATA",811.8,175,100,1087,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1088,0) +810.4 +"DATA",811.8,175,100,1089,0) +MU NQF0421 BMI DENOM2 RR +"DATA",811.8,175,100,1090,0) +277 +"DATA",811.8,175,100,1091,0) +1425638256 +"DATA",811.8,175,100,1092,0) +NO +"DATA",811.8,175,100,1093,0) + +"DATA",811.8,175,100,1094,0) + +"DATA",811.8,175,100,1103,0) + +"DATA",811.8,175,100,1104,0) + +"DATA",811.8,175,100,1105,0) + +"DATA",811.8,175,100,1108,0) + +"DATA",811.8,175,100,1109,0) + +"DATA",811.8,175,100,1110,0) + +"DATA",811.8,175,100,1111,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1112,0) +810.4 +"DATA",811.8,175,100,1113,0) +MU NQF0421 BMI DENOM2 RS +"DATA",811.8,175,100,1114,0) +278 +"DATA",811.8,175,100,1115,0) +107790628 +"DATA",811.8,175,100,1116,0) +NO +"DATA",811.8,175,100,1117,0) + +"DATA",811.8,175,100,1118,0) + +"DATA",811.8,175,100,1132,0) + +"DATA",811.8,175,100,1133,0) + +"DATA",811.8,175,100,1134,0) + +"DATA",811.8,175,100,1139,0) + +"DATA",811.8,175,100,1140,0) + +"DATA",811.8,175,100,1141,0) + +"DATA",811.8,175,100,1142,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1143,0) +810.4 +"DATA",811.8,175,100,1144,0) +MU NQF0421 BMI DENOM1 RR +"DATA",811.8,175,100,1145,0) +272 +"DATA",811.8,175,100,1146,0) +1627116276 +"DATA",811.8,175,100,1147,0) +NO +"DATA",811.8,175,100,1148,0) + +"DATA",811.8,175,100,1149,0) + +"DATA",811.8,175,100,1158,0) + +"DATA",811.8,175,100,1159,0) + +"DATA",811.8,175,100,1160,0) + +"DATA",811.8,175,100,1163,0) + +"DATA",811.8,175,100,1164,0) + +"DATA",811.8,175,100,1165,0) + +"DATA",811.8,175,100,1166,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1167,0) +810.4 +"DATA",811.8,175,100,1168,0) +MU NQF0421 BMI DENOM1 RS +"DATA",811.8,175,100,1169,0) +273 +"DATA",811.8,175,100,1170,0) +2308321999 +"DATA",811.8,175,100,1171,0) +NO +"DATA",811.8,175,100,1172,0) + +"DATA",811.8,175,100,1173,0) + +"DATA",811.8,175,100,1187,0) + +"DATA",811.8,175,100,1188,0) + +"DATA",811.8,175,100,1189,0) + +"DATA",811.8,175,100,1194,0) + +"DATA",811.8,175,100,1195,0) + +"DATA",811.8,175,100,1196,0) + +"DATA",811.8,175,100,1197,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1198,0) +810.4 +"DATA",811.8,175,100,1199,0) +MU NQF0421 <65Y BMI NL NUM2 PLL +"DATA",811.8,175,100,1200,0) +308 +"DATA",811.8,175,100,1201,0) +2514936764 +"DATA",811.8,175,100,1202,0) +NO +"DATA",811.8,175,100,1203,0) + +"DATA",811.8,175,100,1204,0) + +"DATA",811.8,175,100,1214,0) + +"DATA",811.8,175,100,1215,0) + +"DATA",811.8,175,100,1216,0) + +"DATA",811.8,175,100,1219,0) + +"DATA",811.8,175,100,1220,0) + +"DATA",811.8,175,100,1221,0) + +"DATA",811.8,175,100,1222,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1223,0) +810.4 +"DATA",811.8,175,100,1224,0) +MU NQF0421 <65Y BMI LOW NUM2 PLL +"DATA",811.8,175,100,1225,0) +309 +"DATA",811.8,175,100,1226,0) +267573585 +"DATA",811.8,175,100,1227,0) +NO +"DATA",811.8,175,100,1228,0) + +"DATA",811.8,175,100,1229,0) + +"DATA",811.8,175,100,1239,0) + +"DATA",811.8,175,100,1240,0) + +"DATA",811.8,175,100,1241,0) + +"DATA",811.8,175,100,1244,0) + +"DATA",811.8,175,100,1245,0) + +"DATA",811.8,175,100,1246,0) + +"DATA",811.8,175,100,1247,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1248,0) +810.4 +"DATA",811.8,175,100,1249,0) +MU NQF0421 <65Y BMI HIGH NUM2 PLL +"DATA",811.8,175,100,1250,0) +310 +"DATA",811.8,175,100,1251,0) +2015317458 +"DATA",811.8,175,100,1252,0) +NO +"DATA",811.8,175,100,1253,0) + +"DATA",811.8,175,100,1254,0) + +"DATA",811.8,175,100,1264,0) + +"DATA",811.8,175,100,1265,0) + +"DATA",811.8,175,100,1266,0) + +"DATA",811.8,175,100,1269,0) + +"DATA",811.8,175,100,1270,0) + +"DATA",811.8,175,100,1271,0) + +"DATA",811.8,175,100,1272,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1273,0) +810.4 +"DATA",811.8,175,100,1274,0) +MU NQF0421 <65Y BMI NUM2-ALL RS +"DATA",811.8,175,100,1275,0) +311 +"DATA",811.8,175,100,1276,0) +3851364976 +"DATA",811.8,175,100,1277,0) +NO +"DATA",811.8,175,100,1278,0) + +"DATA",811.8,175,100,1279,0) + +"DATA",811.8,175,100,1297,0) + +"DATA",811.8,175,100,1298,0) + +"DATA",811.8,175,100,1299,0) + +"DATA",811.8,175,100,1305,0) + +"DATA",811.8,175,100,1306,0) + +"DATA",811.8,175,100,1307,0) + +"DATA",811.8,175,100,1308,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1309,0) +810.4 +"DATA",811.8,175,100,1310,0) +MU NQF0421 <65Y BMI LOW FR +"DATA",811.8,175,100,1311,0) +287 +"DATA",811.8,175,100,1312,0) +1048434153 +"DATA",811.8,175,100,1313,0) +NO +"DATA",811.8,175,100,1314,0) + +"DATA",811.8,175,100,1315,0) + +"DATA",811.8,175,100,1324,0) + +"DATA",811.8,175,100,1325,0) + +"DATA",811.8,175,100,1326,0) + +"DATA",811.8,175,100,1329,0) + +"DATA",811.8,175,100,1330,0) + +"DATA",811.8,175,100,1331,0) + +"DATA",811.8,175,100,1332,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1333,0) +810.4 +"DATA",811.8,175,100,1334,0) +MU NQF0421 <65Y BMI HIGH FR +"DATA",811.8,175,100,1335,0) +288 +"DATA",811.8,175,100,1336,0) +2281079770 +"DATA",811.8,175,100,1337,0) +NO +"DATA",811.8,175,100,1338,0) + +"DATA",811.8,175,100,1339,0) + +"DATA",811.8,175,100,1348,0) + +"DATA",811.8,175,100,1349,0) + +"DATA",811.8,175,100,1350,0) + +"DATA",811.8,175,100,1353,0) + +"DATA",811.8,175,100,1354,0) + +"DATA",811.8,175,100,1355,0) + +"DATA",811.8,175,100,1356,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1357,0) +810.4 +"DATA",811.8,175,100,1358,0) +MU NQF0421 BMI FINDING FR +"DATA",811.8,175,100,1359,0) +274 +"DATA",811.8,175,100,1360,0) +1536451744 +"DATA",811.8,175,100,1361,0) +NO +"DATA",811.8,175,100,1362,0) + +"DATA",811.8,175,100,1363,0) + +"DATA",811.8,175,100,1372,0) + +"DATA",811.8,175,100,1373,0) + +"DATA",811.8,175,100,1374,0) + +"DATA",811.8,175,100,1377,0) + +"DATA",811.8,175,100,1378,0) + +"DATA",811.8,175,100,1379,0) + +"DATA",811.8,175,100,1380,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1381,0) +810.4 +"DATA",811.8,175,100,1382,0) +MU NQF0421 BMI NUM2 RR +"DATA",811.8,175,100,1383,0) +279 +"DATA",811.8,175,100,1384,0) +790324432 +"DATA",811.8,175,100,1385,0) +NO +"DATA",811.8,175,100,1386,0) + +"DATA",811.8,175,100,1387,0) + +"DATA",811.8,175,100,1396,0) + +"DATA",811.8,175,100,1397,0) + +"DATA",811.8,175,100,1398,0) + +"DATA",811.8,175,100,1401,0) + +"DATA",811.8,175,100,1402,0) + +"DATA",811.8,175,100,1403,0) + +"DATA",811.8,175,100,1404,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1405,0) +810.4 +"DATA",811.8,175,100,1406,0) +MU NQF0421 <65Y BMI NL NUM2 RS +"DATA",811.8,175,100,1407,0) +289 +"DATA",811.8,175,100,1408,0) +3144089747 +"DATA",811.8,175,100,1409,0) +NO +"DATA",811.8,175,100,1410,0) + +"DATA",811.8,175,100,1411,0) + +"DATA",811.8,175,100,1434,0) + +"DATA",811.8,175,100,1435,0) + +"DATA",811.8,175,100,1436,0) + +"DATA",811.8,175,100,1444,0) + +"DATA",811.8,175,100,1445,0) + +"DATA",811.8,175,100,1446,0) + +"DATA",811.8,175,100,1447,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1448,0) +810.4 +"DATA",811.8,175,100,1449,0) +MU NQF0421 MANAGEMENT FR +"DATA",811.8,175,100,1450,0) +290 +"DATA",811.8,175,100,1451,0) +3768218604 +"DATA",811.8,175,100,1452,0) +NO +"DATA",811.8,175,100,1453,0) + +"DATA",811.8,175,100,1454,0) + +"DATA",811.8,175,100,1463,0) + +"DATA",811.8,175,100,1464,0) + +"DATA",811.8,175,100,1465,0) + +"DATA",811.8,175,100,1468,0) + +"DATA",811.8,175,100,1469,0) + +"DATA",811.8,175,100,1470,0) + +"DATA",811.8,175,100,1471,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1472,0) +810.4 +"DATA",811.8,175,100,1473,0) +MU NQF0421 <65Y BMI LOW NUM2 RS +"DATA",811.8,175,100,1474,0) +291 +"DATA",811.8,175,100,1475,0) +2406261177 +"DATA",811.8,175,100,1476,0) +NO +"DATA",811.8,175,100,1477,0) + +"DATA",811.8,175,100,1478,0) + +"DATA",811.8,175,100,1495,0) + +"DATA",811.8,175,100,1496,0) + +"DATA",811.8,175,100,1497,0) + +"DATA",811.8,175,100,1503,0) + +"DATA",811.8,175,100,1504,0) + +"DATA",811.8,175,100,1505,0) + +"DATA",811.8,175,100,1506,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1507,0) +810.4 +"DATA",811.8,175,100,1508,0) +MU NQF0421 <65Y BMI HIGH NUM2 RS +"DATA",811.8,175,100,1509,0) +292 +"DATA",811.8,175,100,1510,0) +785920733 +"DATA",811.8,175,100,1511,0) +NO +"DATA",811.8,175,100,1512,0) + +"DATA",811.8,175,100,1513,0) + +"DATA",811.8,175,100,1530,0) + +"DATA",811.8,175,100,1531,0) + +"DATA",811.8,175,100,1532,0) + +"DATA",811.8,175,100,1538,0) + +"DATA",811.8,175,100,1539,0) + +"DATA",811.8,175,100,1540,0) + +"DATA",811.8,175,100,1541,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1542,0) +810.4 +"DATA",811.8,175,100,1543,0) +MU NQF0421 65Y BMI NL NUM1 PLL +"DATA",811.8,175,100,1544,0) +312 +"DATA",811.8,175,100,1545,0) +1133969827 +"DATA",811.8,175,100,1546,0) +NO +"DATA",811.8,175,100,1547,0) + +"DATA",811.8,175,100,1548,0) +=65Y BMI Normal Patient List Rule using Extract Patient List +"DATA",811.8,175,100,1551,0) +810.4;+312,;.03~PATIENT LIST +"DATA",811.8,175,100,1552,0) +810.4;+312,;7~MU NQF0421 65Y BMI NL NUM1 PL Mnn/yyyy +"DATA",811.8,175,100,1553,0) +810.4;+312,;100~LOCAL +"DATA",811.8,175,100,1554,0) +810.42;+313,+312,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1555,0) +810.42;+313,+312,;2~WP-start~1 +"DATA",811.8,175,100,1556,0) +Exchange Stub +"DATA",811.8,175,100,1557,0) +]]> +"DATA",811.8,175,100,1558,0) + +"DATA",811.8,175,100,1559,0) + +"DATA",811.8,175,100,1560,0) + +"DATA",811.8,175,100,1563,0) + +"DATA",811.8,175,100,1564,0) + +"DATA",811.8,175,100,1565,0) + +"DATA",811.8,175,100,1566,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1567,0) +810.4 +"DATA",811.8,175,100,1568,0) +MU NQF0421 65Y BMI LOW NUM1 PLL +"DATA",811.8,175,100,1569,0) +313 +"DATA",811.8,175,100,1570,0) +13337916 +"DATA",811.8,175,100,1571,0) +NO +"DATA",811.8,175,100,1572,0) + +"DATA",811.8,175,100,1573,0) +=65Y BMI Low Patient List Rule using Extract Patient List +"DATA",811.8,175,100,1576,0) +810.4;+313,;.03~PATIENT LIST +"DATA",811.8,175,100,1577,0) +810.4;+313,;7~MU NQF0421 65Y BMI LOW NUM1 PL Mnn/yyyy +"DATA",811.8,175,100,1578,0) +810.4;+313,;100~LOCAL +"DATA",811.8,175,100,1579,0) +810.42;+314,+313,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1580,0) +810.42;+314,+313,;2~WP-start~1 +"DATA",811.8,175,100,1581,0) +Exchange Stub +"DATA",811.8,175,100,1582,0) +]]> +"DATA",811.8,175,100,1583,0) + +"DATA",811.8,175,100,1584,0) + +"DATA",811.8,175,100,1585,0) + +"DATA",811.8,175,100,1588,0) + +"DATA",811.8,175,100,1589,0) + +"DATA",811.8,175,100,1590,0) + +"DATA",811.8,175,100,1591,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1592,0) +810.4 +"DATA",811.8,175,100,1593,0) +MU NQF0421 65Y BMI HIGH NUM1 PLL +"DATA",811.8,175,100,1594,0) +314 +"DATA",811.8,175,100,1595,0) +3287530148 +"DATA",811.8,175,100,1596,0) +NO +"DATA",811.8,175,100,1597,0) + +"DATA",811.8,175,100,1598,0) +=65Y BMI High Patient List Rule using Extract Patient List +"DATA",811.8,175,100,1601,0) +810.4;+314,;.03~PATIENT LIST +"DATA",811.8,175,100,1602,0) +810.4;+314,;7~MU NQF0421 65Y BMI HIGH NUM1 PL Mnn/yyyy +"DATA",811.8,175,100,1603,0) +810.4;+314,;100~LOCAL +"DATA",811.8,175,100,1604,0) +810.42;+315,+314,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1605,0) +810.42;+315,+314,;2~WP-start~1 +"DATA",811.8,175,100,1606,0) +Exchange Stub +"DATA",811.8,175,100,1607,0) +]]> +"DATA",811.8,175,100,1608,0) + +"DATA",811.8,175,100,1609,0) + +"DATA",811.8,175,100,1610,0) + +"DATA",811.8,175,100,1613,0) + +"DATA",811.8,175,100,1614,0) + +"DATA",811.8,175,100,1615,0) + +"DATA",811.8,175,100,1616,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1617,0) +810.4 +"DATA",811.8,175,100,1618,0) +MU NQF0421 65Y BMI NUM1-ALL RS +"DATA",811.8,175,100,1619,0) +315 +"DATA",811.8,175,100,1620,0) +3561795460 +"DATA",811.8,175,100,1621,0) +NO +"DATA",811.8,175,100,1622,0) + +"DATA",811.8,175,100,1623,0) + +"DATA",811.8,175,100,1641,0) + +"DATA",811.8,175,100,1642,0) + +"DATA",811.8,175,100,1643,0) + +"DATA",811.8,175,100,1649,0) + +"DATA",811.8,175,100,1650,0) + +"DATA",811.8,175,100,1651,0) + +"DATA",811.8,175,100,1652,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1653,0) +810.4 +"DATA",811.8,175,100,1654,0) +MU NQF0421 65Y BMI LOW FR +"DATA",811.8,175,100,1655,0) +293 +"DATA",811.8,175,100,1656,0) +3932500980 +"DATA",811.8,175,100,1657,0) +NO +"DATA",811.8,175,100,1658,0) + +"DATA",811.8,175,100,1659,0) + +"DATA",811.8,175,100,1668,0) + +"DATA",811.8,175,100,1669,0) + +"DATA",811.8,175,100,1670,0) + +"DATA",811.8,175,100,1673,0) + +"DATA",811.8,175,100,1674,0) + +"DATA",811.8,175,100,1675,0) + +"DATA",811.8,175,100,1676,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1677,0) +810.4 +"DATA",811.8,175,100,1678,0) +MU NQF0421 65Y BMI HIGH FR +"DATA",811.8,175,100,1679,0) +294 +"DATA",811.8,175,100,1680,0) +4259001419 +"DATA",811.8,175,100,1681,0) +NO +"DATA",811.8,175,100,1682,0) + +"DATA",811.8,175,100,1683,0) + +"DATA",811.8,175,100,1692,0) + +"DATA",811.8,175,100,1693,0) + +"DATA",811.8,175,100,1694,0) + +"DATA",811.8,175,100,1697,0) + +"DATA",811.8,175,100,1698,0) + +"DATA",811.8,175,100,1699,0) + +"DATA",811.8,175,100,1700,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1701,0) +810.4 +"DATA",811.8,175,100,1702,0) +MU NQF0421 BMI NUM1 RR +"DATA",811.8,175,100,1703,0) +275 +"DATA",811.8,175,100,1704,0) +898190435 +"DATA",811.8,175,100,1705,0) +NO +"DATA",811.8,175,100,1706,0) + +"DATA",811.8,175,100,1707,0) + +"DATA",811.8,175,100,1716,0) + +"DATA",811.8,175,100,1717,0) + +"DATA",811.8,175,100,1718,0) + +"DATA",811.8,175,100,1721,0) + +"DATA",811.8,175,100,1722,0) + +"DATA",811.8,175,100,1723,0) + +"DATA",811.8,175,100,1724,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1725,0) +810.4 +"DATA",811.8,175,100,1726,0) +MU NQF0421 65Y BMI NL NUM1 RS +"DATA",811.8,175,100,1727,0) +295 +"DATA",811.8,175,100,1728,0) +2476411300 +"DATA",811.8,175,100,1729,0) +NO +"DATA",811.8,175,100,1730,0) + +"DATA",811.8,175,100,1731,0) +65Y AND NL BMI +"DATA",811.8,175,100,1734,0) +810.4;+295,;.03~RULE SET +"DATA",811.8,175,100,1735,0) +810.4;+295,;100~LOCAL +"DATA",811.8,175,100,1736,0) +810.41;+296,+295,;.01~1 +"DATA",811.8,175,100,1737,0) +810.41;+296,+295,;.02~MU NQF0421 BMI NUM1 RR +"DATA",811.8,175,100,1738,0) +810.41;+296,+295,;.03~ADD PATIENT +"DATA",811.8,175,100,1739,0) +810.41;+297,+295,;.01~2 +"DATA",811.8,175,100,1740,0) +810.41;+297,+295,;.02~MU NQF0421 BMI FINDING FR +"DATA",811.8,175,100,1741,0) +810.41;+297,+295,;.03~SELECT +"DATA",811.8,175,100,1742,0) +810.41;+298,+295,;.01~3 +"DATA",811.8,175,100,1743,0) +810.41;+298,+295,;.02~MU NQF0421 BMI DENOM EXCL FR +"DATA",811.8,175,100,1744,0) +810.41;+298,+295,;.03~REMOVE +"DATA",811.8,175,100,1745,0) +810.41;+299,+295,;.01~4 +"DATA",811.8,175,100,1746,0) +810.41;+299,+295,;.02~MU NQF0421 65Y BMI HIGH FR +"DATA",811.8,175,100,1747,0) +810.41;+299,+295,;.03~REMOVE +"DATA",811.8,175,100,1748,0) +810.41;+300,+295,;.01~5 +"DATA",811.8,175,100,1749,0) +810.41;+300,+295,;.02~MU NQF0421 65Y BMI LOW FR +"DATA",811.8,175,100,1750,0) +810.41;+300,+295,;.03~REMOVE +"DATA",811.8,175,100,1751,0) +810.42;+301,+295,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1752,0) +810.42;+301,+295,;2~WP-start~1 +"DATA",811.8,175,100,1753,0) +Exchange Stub +"DATA",811.8,175,100,1754,0) +]]> +"DATA",811.8,175,100,1755,0) + +"DATA",811.8,175,100,1756,0) + +"DATA",811.8,175,100,1757,0) + +"DATA",811.8,175,100,1765,0) + +"DATA",811.8,175,100,1766,0) + +"DATA",811.8,175,100,1767,0) + +"DATA",811.8,175,100,1768,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1769,0) +810.4 +"DATA",811.8,175,100,1770,0) +MU NQF0421 65Y BMI LOW NUM1 RS +"DATA",811.8,175,100,1771,0) +296 +"DATA",811.8,175,100,1772,0) +1376197315 +"DATA",811.8,175,100,1773,0) +NO +"DATA",811.8,175,100,1774,0) + +"DATA",811.8,175,100,1775,0) + +"DATA",811.8,175,100,1792,0) + +"DATA",811.8,175,100,1793,0) + +"DATA",811.8,175,100,1794,0) + +"DATA",811.8,175,100,1800,0) + +"DATA",811.8,175,100,1801,0) + +"DATA",811.8,175,100,1802,0) + +"DATA",811.8,175,100,1803,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1804,0) +810.4 +"DATA",811.8,175,100,1805,0) +MU NQF0421 65Y BMI HIGH NUM1 RS +"DATA",811.8,175,100,1806,0) +298 +"DATA",811.8,175,100,1807,0) +3941807583 +"DATA",811.8,175,100,1808,0) +NO +"DATA",811.8,175,100,1809,0) + +"DATA",811.8,175,100,1810,0) + +"DATA",811.8,175,100,1827,0) + +"DATA",811.8,175,100,1828,0) + +"DATA",811.8,175,100,1829,0) + +"DATA",811.8,175,100,1835,0) + +"DATA",811.8,175,100,1836,0) + +"DATA",811.8,175,100,1837,0) + +"DATA",811.8,175,100,1838,0) +REMINDER EXTRACT DEFINITION +"DATA",811.8,175,100,1839,0) +810.2 +"DATA",811.8,175,100,1840,0) +MU NQF0421 ADULT BMI +"DATA",811.8,175,100,1841,0) +10 +"DATA",811.8,175,100,1842,0) +2621697332 +"DATA",811.8,175,100,1843,0) +YES +"DATA",811.8,175,100,1844,0) + +"DATA",811.8,175,100,1845,0) + +"DATA",811.8,175,100,1917,0) + +"DATA",811.8,175,100,1918,0) + +"DATA",811.8,175,100,1919,0) + +"DATA",811.8,175,100,1934,0) + +"DATA",811.8,175,100,1935,0) + +"DATA",811.8,175,100,1936,0) + +"DATA",811.8,175,100,1937,0) +60 +"DATA",811.8,175,100,1938,0) + +"DATA",811.8,175,100,1939,0) +23 +"DATA",811.8,175,100,1940,0) +131 +"DATA",811.8,175,100,1941,0) +28 +"DATA",811.8,175,100,1942,0) + +"DATA",811.8,175,100,1943,0) + +"DATA",811.8,175,100,1944,0) +144 +"DATA",811.8,175,100,1945,0) +144 +"DATA",811.8,175,100,1946,0) +135 +"DATA",811.8,175,100,1947,0) + +"DATA",811.8,175,100,1948,0) + +"DATA",811.8,175,100,1949,0) +158 +"DATA",811.8,175,100,1950,0) +157 +"DATA",811.8,175,100,1951,0) +148 +"DATA",811.8,175,100,1952,0) + +"DATA",811.8,175,100,1953,0) + +"DATA",811.8,175,100,1954,0) +176 +"DATA",811.8,175,100,1955,0) +171 +"DATA",811.8,175,100,1956,0) +162 +"DATA",811.8,175,100,1957,0) + +"DATA",811.8,175,100,1958,0) + +"DATA",811.8,175,100,1959,0) +193 +"DATA",811.8,175,100,1960,0) +189 +"DATA",811.8,175,100,1961,0) +180 +"DATA",811.8,175,100,1962,0) + +"DATA",811.8,175,100,1963,0) + +"DATA",811.8,175,100,1964,0) +207 +"DATA",811.8,175,100,1965,0) +206 +"DATA",811.8,175,100,1966,0) +197 +"DATA",811.8,175,100,1967,0) + +"DATA",811.8,175,100,1968,0) + +"DATA",811.8,175,100,1969,0) +224 +"DATA",811.8,175,100,1970,0) +220 +"DATA",811.8,175,100,1971,0) +211 +"DATA",811.8,175,100,1972,0) + +"DATA",811.8,175,100,1973,0) + +"DATA",811.8,175,100,1974,0) +238 +"DATA",811.8,175,100,1975,0) +237 +"DATA",811.8,175,100,1976,0) +228 +"DATA",811.8,175,100,1977,0) + +"DATA",811.8,175,100,1978,0) + +"DATA",811.8,175,100,1979,0) +254 +"DATA",811.8,175,100,1980,0) +251 +"DATA",811.8,175,100,1981,0) +242 +"DATA",811.8,175,100,1982,0) + +"DATA",811.8,175,100,1983,0) + +"DATA",811.8,175,100,1984,0) +270 +"DATA",811.8,175,100,1985,0) +267 +"DATA",811.8,175,100,1986,0) +258 +"DATA",811.8,175,100,1987,0) + +"DATA",811.8,175,100,1988,0) + +"DATA",811.8,175,100,1989,0) +308 +"DATA",811.8,175,100,1990,0) +283 +"DATA",811.8,175,100,1991,0) +274 +"DATA",811.8,175,100,1992,0) +313 +"DATA",811.8,175,100,1993,0) +313 +"DATA",811.8,175,100,1994,0) + +"DATA",811.8,175,100,1995,0) + +"DATA",811.8,175,100,1996,0) +343 +"DATA",811.8,175,100,1997,0) +326 +"DATA",811.8,175,100,1998,0) +317 +"DATA",811.8,175,100,1999,0) +351 +"DATA",811.8,175,100,2000,0) +348 +"DATA",811.8,175,100,2001,0) + +"DATA",811.8,175,100,2002,0) + +"DATA",811.8,175,100,2003,0) +373 +"DATA",811.8,175,100,2004,0) +364 +"DATA",811.8,175,100,2005,0) +355 +"DATA",811.8,175,100,2006,0) +379 +"DATA",811.8,175,100,2007,0) +378 +"DATA",811.8,175,100,2008,0) + +"DATA",811.8,175,100,2009,0) + +"DATA",811.8,175,100,2010,0) +401 +"DATA",811.8,175,100,2011,0) +392 +"DATA",811.8,175,100,2012,0) +383 +"DATA",811.8,175,100,2013,0) +407 +"DATA",811.8,175,100,2014,0) +406 +"DATA",811.8,175,100,2015,0) + +"DATA",811.8,175,100,2016,0) + +"DATA",811.8,175,100,2017,0) +440 +"DATA",811.8,175,100,2018,0) +420 +"DATA",811.8,175,100,2019,0) +411 +"DATA",811.8,175,100,2020,0) +450 +"DATA",811.8,175,100,2021,0) +445 +"DATA",811.8,175,100,2022,0) + +"DATA",811.8,175,100,2023,0) + +"DATA",811.8,175,100,2024,0) +471 +"DATA",811.8,175,100,2025,0) +463 +"DATA",811.8,175,100,2026,0) +454 +"DATA",811.8,175,100,2027,0) +477 +"DATA",811.8,175,100,2028,0) +476 +"DATA",811.8,175,100,2029,0) + +"DATA",811.8,175,100,2030,0) + +"DATA",811.8,175,100,2031,0) +498 +"DATA",811.8,175,100,2032,0) +490 +"DATA",811.8,175,100,2033,0) +481 +"DATA",811.8,175,100,2034,0) +504 +"DATA",811.8,175,100,2035,0) +503 +"DATA",811.8,175,100,2036,0) + +"DATA",811.8,175,100,2037,0) + +"DATA",811.8,175,100,2038,0) +523 +"DATA",811.8,175,100,2039,0) +517 +"DATA",811.8,175,100,2040,0) +508 +"DATA",811.8,175,100,2041,0) +529 +"DATA",811.8,175,100,2042,0) +528 +"DATA",811.8,175,100,2043,0) + +"DATA",811.8,175,100,2044,0) + +"DATA",811.8,175,100,2045,0) +548 +"DATA",811.8,175,100,2046,0) +542 +"DATA",811.8,175,100,2047,0) +533 +"DATA",811.8,175,100,2048,0) +554 +"DATA",811.8,175,100,2049,0) +553 +"DATA",811.8,175,100,2050,0) + +"DATA",811.8,175,100,2051,0) + +"DATA",811.8,175,100,2052,0) +575 +"DATA",811.8,175,100,2053,0) +567 +"DATA",811.8,175,100,2054,0) +558 +"DATA",811.8,175,100,2055,0) +582 +"DATA",811.8,175,100,2056,0) +580 +"DATA",811.8,175,100,2057,0) + +"DATA",811.8,175,100,2058,0) + +"DATA",811.8,175,100,2059,0) +603 +"DATA",811.8,175,100,2060,0) +595 +"DATA",811.8,175,100,2061,0) +586 +"DATA",811.8,175,100,2062,0) +609 +"DATA",811.8,175,100,2063,0) +608 +"DATA",811.8,175,100,2064,0) + +"DATA",811.8,175,100,2065,0) + +"DATA",811.8,175,100,2066,0) +630 +"DATA",811.8,175,100,2067,0) +622 +"DATA",811.8,175,100,2068,0) +613 +"DATA",811.8,175,100,2069,0) +636 +"DATA",811.8,175,100,2070,0) +635 +"DATA",811.8,175,100,2071,0) + +"DATA",811.8,175,100,2072,0) + +"DATA",811.8,175,100,2073,0) +687 +"DATA",811.8,175,100,2074,0) +649 +"DATA",811.8,175,100,2075,0) +640 +"DATA",811.8,175,100,2076,0) +697 +"DATA",811.8,175,100,2077,0) +692 +"DATA",811.8,175,100,2078,0) + +"DATA",811.8,175,100,2079,0) + +"DATA",811.8,175,100,2080,0) +749 +"DATA",811.8,175,100,2081,0) +710 +"DATA",811.8,175,100,2082,0) +701 +"DATA",811.8,175,100,2083,0) +759 +"DATA",811.8,175,100,2084,0) +754 +"DATA",811.8,175,100,2085,0) + +"DATA",811.8,175,100,2086,0) + +"DATA",811.8,175,100,2087,0) +815 +"DATA",811.8,175,100,2088,0) +772 +"DATA",811.8,175,100,2089,0) +763 +"DATA",811.8,175,100,2090,0) +827 +"DATA",811.8,175,100,2091,0) +820 +"DATA",811.8,175,100,2092,0) + +"DATA",811.8,175,100,2093,0) + +"DATA",811.8,175,100,2094,0) +882 +"DATA",811.8,175,100,2095,0) +840 +"DATA",811.8,175,100,2096,0) +831 +"DATA",811.8,175,100,2097,0) +894 +"DATA",811.8,175,100,2098,0) +887 +"DATA",811.8,175,100,2099,0) + +"DATA",811.8,175,100,2100,0) + +"DATA",811.8,175,100,2101,0) +914 +"DATA",811.8,175,100,2102,0) +907 +"DATA",811.8,175,100,2103,0) +898 +"DATA",811.8,175,100,2104,0) +919 +"DATA",811.8,175,100,2105,0) +919 +"DATA",811.8,175,100,2106,0) + +"DATA",811.8,175,100,2107,0) + +"DATA",811.8,175,100,2108,0) +939 +"DATA",811.8,175,100,2109,0) +932 +"DATA",811.8,175,100,2110,0) +923 +"DATA",811.8,175,100,2111,0) +944 +"DATA",811.8,175,100,2112,0) +944 +"DATA",811.8,175,100,2113,0) + +"DATA",811.8,175,100,2114,0) + +"DATA",811.8,175,100,2115,0) +969 +"DATA",811.8,175,100,2116,0) +957 +"DATA",811.8,175,100,2117,0) +948 +"DATA",811.8,175,100,2118,0) +976 +"DATA",811.8,175,100,2119,0) +974 +"DATA",811.8,175,100,2120,0) + +"DATA",811.8,175,100,2121,0) + +"DATA",811.8,175,100,2122,0) +996 +"DATA",811.8,175,100,2123,0) +989 +"DATA",811.8,175,100,2124,0) +980 +"DATA",811.8,175,100,2125,0) +1001 +"DATA",811.8,175,100,2126,0) +1001 +"DATA",811.8,175,100,2127,0) + +"DATA",811.8,175,100,2128,0) + +"DATA",811.8,175,100,2129,0) +1021 +"DATA",811.8,175,100,2130,0) +1014 +"DATA",811.8,175,100,2131,0) +1005 +"DATA",811.8,175,100,2132,0) +1026 +"DATA",811.8,175,100,2133,0) +1026 +"DATA",811.8,175,100,2134,0) + +"DATA",811.8,175,100,2135,0) + +"DATA",811.8,175,100,2136,0) +1051 +"DATA",811.8,175,100,2137,0) +1039 +"DATA",811.8,175,100,2138,0) +1030 +"DATA",811.8,175,100,2139,0) +1058 +"DATA",811.8,175,100,2140,0) +1056 +"DATA",811.8,175,100,2141,0) + +"DATA",811.8,175,100,2142,0) + +"DATA",811.8,175,100,2143,0) +1077 +"DATA",811.8,175,100,2144,0) +1071 +"DATA",811.8,175,100,2145,0) +1062 +"DATA",811.8,175,100,2146,0) +1082 +"DATA",811.8,175,100,2147,0) +1082 +"DATA",811.8,175,100,2148,0) + +"DATA",811.8,175,100,2149,0) + +"DATA",811.8,175,100,2150,0) +1101 +"DATA",811.8,175,100,2151,0) +1095 +"DATA",811.8,175,100,2152,0) +1086 +"DATA",811.8,175,100,2153,0) +1106 +"DATA",811.8,175,100,2154,0) +1106 +"DATA",811.8,175,100,2155,0) + +"DATA",811.8,175,100,2156,0) + +"DATA",811.8,175,100,2157,0) +1130 +"DATA",811.8,175,100,2158,0) +1119 +"DATA",811.8,175,100,2159,0) +1110 +"DATA",811.8,175,100,2160,0) +1137 +"DATA",811.8,175,100,2161,0) +1135 +"DATA",811.8,175,100,2162,0) + +"DATA",811.8,175,100,2163,0) + +"DATA",811.8,175,100,2164,0) +1156 +"DATA",811.8,175,100,2165,0) +1150 +"DATA",811.8,175,100,2166,0) +1141 +"DATA",811.8,175,100,2167,0) +1161 +"DATA",811.8,175,100,2168,0) +1161 +"DATA",811.8,175,100,2169,0) + +"DATA",811.8,175,100,2170,0) + +"DATA",811.8,175,100,2171,0) +1185 +"DATA",811.8,175,100,2172,0) +1174 +"DATA",811.8,175,100,2173,0) +1165 +"DATA",811.8,175,100,2174,0) +1192 +"DATA",811.8,175,100,2175,0) +1190 +"DATA",811.8,175,100,2176,0) + +"DATA",811.8,175,100,2177,0) + +"DATA",811.8,175,100,2178,0) +1212 +"DATA",811.8,175,100,2179,0) +1205 +"DATA",811.8,175,100,2180,0) +1196 +"DATA",811.8,175,100,2181,0) +1217 +"DATA",811.8,175,100,2182,0) +1217 +"DATA",811.8,175,100,2183,0) + +"DATA",811.8,175,100,2184,0) + +"DATA",811.8,175,100,2185,0) +1237 +"DATA",811.8,175,100,2186,0) +1230 +"DATA",811.8,175,100,2187,0) +1221 +"DATA",811.8,175,100,2188,0) +1242 +"DATA",811.8,175,100,2189,0) +1242 +"DATA",811.8,175,100,2190,0) + +"DATA",811.8,175,100,2191,0) + +"DATA",811.8,175,100,2192,0) +1262 +"DATA",811.8,175,100,2193,0) +1255 +"DATA",811.8,175,100,2194,0) +1246 +"DATA",811.8,175,100,2195,0) +1267 +"DATA",811.8,175,100,2196,0) +1267 +"DATA",811.8,175,100,2197,0) + +"DATA",811.8,175,100,2198,0) + +"DATA",811.8,175,100,2199,0) +1295 +"DATA",811.8,175,100,2200,0) +1280 +"DATA",811.8,175,100,2201,0) +1271 +"DATA",811.8,175,100,2202,0) +1303 +"DATA",811.8,175,100,2203,0) +1300 +"DATA",811.8,175,100,2204,0) + +"DATA",811.8,175,100,2205,0) + +"DATA",811.8,175,100,2206,0) +1322 +"DATA",811.8,175,100,2207,0) +1316 +"DATA",811.8,175,100,2208,0) +1307 +"DATA",811.8,175,100,2209,0) +1327 +"DATA",811.8,175,100,2210,0) +1327 +"DATA",811.8,175,100,2211,0) + +"DATA",811.8,175,100,2212,0) + +"DATA",811.8,175,100,2213,0) +1346 +"DATA",811.8,175,100,2214,0) +1340 +"DATA",811.8,175,100,2215,0) +1331 +"DATA",811.8,175,100,2216,0) +1351 +"DATA",811.8,175,100,2217,0) +1351 +"DATA",811.8,175,100,2218,0) + +"DATA",811.8,175,100,2219,0) + +"DATA",811.8,175,100,2220,0) +1370 +"DATA",811.8,175,100,2221,0) +1364 +"DATA",811.8,175,100,2222,0) +1355 +"DATA",811.8,175,100,2223,0) +1375 +"DATA",811.8,175,100,2224,0) +1375 +"DATA",811.8,175,100,2225,0) + +"DATA",811.8,175,100,2226,0) + +"DATA",811.8,175,100,2227,0) +1394 +"DATA",811.8,175,100,2228,0) +1388 +"DATA",811.8,175,100,2229,0) +1379 +"DATA",811.8,175,100,2230,0) +1399 +"DATA",811.8,175,100,2231,0) +1399 +"DATA",811.8,175,100,2232,0) + +"DATA",811.8,175,100,2233,0) + +"DATA",811.8,175,100,2234,0) +1432 +"DATA",811.8,175,100,2235,0) +1412 +"DATA",811.8,175,100,2236,0) +1403 +"DATA",811.8,175,100,2237,0) +1442 +"DATA",811.8,175,100,2238,0) +1437 +"DATA",811.8,175,100,2239,0) + +"DATA",811.8,175,100,2240,0) + +"DATA",811.8,175,100,2241,0) +1461 +"DATA",811.8,175,100,2242,0) +1455 +"DATA",811.8,175,100,2243,0) +1446 +"DATA",811.8,175,100,2244,0) +1466 +"DATA",811.8,175,100,2245,0) +1466 +"DATA",811.8,175,100,2246,0) + +"DATA",811.8,175,100,2247,0) + +"DATA",811.8,175,100,2248,0) +1493 +"DATA",811.8,175,100,2249,0) +1479 +"DATA",811.8,175,100,2250,0) +1470 +"DATA",811.8,175,100,2251,0) +1501 +"DATA",811.8,175,100,2252,0) +1498 +"DATA",811.8,175,100,2253,0) + +"DATA",811.8,175,100,2254,0) + +"DATA",811.8,175,100,2255,0) +1528 +"DATA",811.8,175,100,2256,0) +1514 +"DATA",811.8,175,100,2257,0) +1505 +"DATA",811.8,175,100,2258,0) +1536 +"DATA",811.8,175,100,2259,0) +1533 +"DATA",811.8,175,100,2260,0) + +"DATA",811.8,175,100,2261,0) + +"DATA",811.8,175,100,2262,0) +1556 +"DATA",811.8,175,100,2263,0) +1549 +"DATA",811.8,175,100,2264,0) +1540 +"DATA",811.8,175,100,2265,0) +1561 +"DATA",811.8,175,100,2266,0) +1561 +"DATA",811.8,175,100,2267,0) + +"DATA",811.8,175,100,2268,0) + +"DATA",811.8,175,100,2269,0) +1581 +"DATA",811.8,175,100,2270,0) +1574 +"DATA",811.8,175,100,2271,0) +1565 +"DATA",811.8,175,100,2272,0) +1586 +"DATA",811.8,175,100,2273,0) +1586 +"DATA",811.8,175,100,2274,0) + +"DATA",811.8,175,100,2275,0) + +"DATA",811.8,175,100,2276,0) +1606 +"DATA",811.8,175,100,2277,0) +1599 +"DATA",811.8,175,100,2278,0) +1590 +"DATA",811.8,175,100,2279,0) +1611 +"DATA",811.8,175,100,2280,0) +1611 +"DATA",811.8,175,100,2281,0) + +"DATA",811.8,175,100,2282,0) + +"DATA",811.8,175,100,2283,0) +1639 +"DATA",811.8,175,100,2284,0) +1624 +"DATA",811.8,175,100,2285,0) +1615 +"DATA",811.8,175,100,2286,0) +1647 +"DATA",811.8,175,100,2287,0) +1644 +"DATA",811.8,175,100,2288,0) + +"DATA",811.8,175,100,2289,0) + +"DATA",811.8,175,100,2290,0) +1666 +"DATA",811.8,175,100,2291,0) +1660 +"DATA",811.8,175,100,2292,0) +1651 +"DATA",811.8,175,100,2293,0) +1671 +"DATA",811.8,175,100,2294,0) +1671 +"DATA",811.8,175,100,2295,0) + +"DATA",811.8,175,100,2296,0) + +"DATA",811.8,175,100,2297,0) +1690 +"DATA",811.8,175,100,2298,0) +1684 +"DATA",811.8,175,100,2299,0) +1675 +"DATA",811.8,175,100,2300,0) +1695 +"DATA",811.8,175,100,2301,0) +1695 +"DATA",811.8,175,100,2302,0) + +"DATA",811.8,175,100,2303,0) + +"DATA",811.8,175,100,2304,0) +1714 +"DATA",811.8,175,100,2305,0) +1708 +"DATA",811.8,175,100,2306,0) +1699 +"DATA",811.8,175,100,2307,0) +1719 +"DATA",811.8,175,100,2308,0) +1719 +"DATA",811.8,175,100,2309,0) + +"DATA",811.8,175,100,2310,0) + +"DATA",811.8,175,100,2311,0) +1753 +"DATA",811.8,175,100,2312,0) +1732 +"DATA",811.8,175,100,2313,0) +1723 +"DATA",811.8,175,100,2314,0) +1763 +"DATA",811.8,175,100,2315,0) +1758 +"DATA",811.8,175,100,2316,0) + +"DATA",811.8,175,100,2317,0) + +"DATA",811.8,175,100,2318,0) +1790 +"DATA",811.8,175,100,2319,0) +1776 +"DATA",811.8,175,100,2320,0) +1767 +"DATA",811.8,175,100,2321,0) +1798 +"DATA",811.8,175,100,2322,0) +1795 +"DATA",811.8,175,100,2323,0) + +"DATA",811.8,175,100,2324,0) + +"DATA",811.8,175,100,2325,0) +1825 +"DATA",811.8,175,100,2326,0) +1811 +"DATA",811.8,175,100,2327,0) +1802 +"DATA",811.8,175,100,2328,0) +1833 +"DATA",811.8,175,100,2329,0) +1830 +"DATA",811.8,175,100,2330,0) + +"DATA",811.8,175,100,2331,0) + +"DATA",811.8,175,100,2332,0) +1915 +"DATA",811.8,175,100,2333,0) +1846 +"DATA",811.8,175,100,2334,0) +1837 +"DATA",811.8,175,100,2335,0) +1932 +"DATA",811.8,175,100,2336,0) +1920 +"DATA",811.8,175,100,2337,0) + +"DATA",811.8,175,100,2338,0) + +"DATA",811.8,175,100,2339,0) + +"DATA",811.8,175,110,0) +^811.804^17^17 +"DATA",811.8,175,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,175,110,2,0) +Date Packed: 07/26/2012@11:00:17 +"DATA",811.8,175,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,175,110,4,0) + +"DATA",811.8,175,110,5,0) +Description: +"DATA",811.8,175,110,6,0) +This extract creates all the patient lists for the Adult BMI Measure NQF +"DATA",811.8,175,110,7,0) +0421. The package includes all rule sets as well. +"DATA",811.8,175,110,8,0) + +"DATA",811.8,175,110,9,0) +Keywords: +"DATA",811.8,175,110,10,0) +MU +"DATA",811.8,175,110,11,0) +NQF0421 +"DATA",811.8,175,110,12,0) +0421 +"DATA",811.8,175,110,13,0) +NQF +"DATA",811.8,175,110,14,0) +ADULT +"DATA",811.8,175,110,15,0) +BMI +"DATA",811.8,175,110,16,0) + +"DATA",811.8,175,110,17,0) +Components: +"DATA",811.8,176,0) +MU NQF 0497 ED-2^HABIEL,SAM at VOE OFFICE INSTITUTION^3120717.115023 +"DATA",811.8,176,100,0) +^811.801^1419^1419 +"DATA",811.8,176,100,1,0) + +"DATA",811.8,176,100,2,0) + +"DATA",811.8,176,100,3,0) +2.0P17 +"DATA",811.8,176,100,4,0) +1326 +"DATA",811.8,176,100,5,0) + +"DATA",811.8,176,100,6,0) +MU NQF 0497 ED-2 +"DATA",811.8,176,100,7,0) +HABIEL,SAM +"DATA",811.8,176,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,176,100,9,0) +07/17/2012@11:50:23 +"DATA",811.8,176,100,10,0) + +"DATA",811.8,176,100,11,0) + +"DATA",811.8,176,100,19,0) + +"DATA",811.8,176,100,20,0) +MU +"DATA",811.8,176,100,21,0) +NQF +"DATA",811.8,176,100,22,0) +0497 +"DATA",811.8,176,100,23,0) +ED-2 +"DATA",811.8,176,100,24,0) + +"DATA",811.8,176,100,25,0) + +"DATA",811.8,176,100,26,0) +PXRMINPL +"DATA",811.8,176,100,27,0) +2982435994 +"DATA",811.8,176,100,28,0) + +"DATA",811.8,176,100,29,0) +EDT)!(DATE="") D +"DATA",811.8,176,100,48,0) + . S IEN="" +"DATA",811.8,176,100,49,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,176,100,50,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,176,100,51,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,176,100,52,0) + .. I SUB="ATT1" D +"DATA",811.8,176,100,53,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,176,100,54,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,176,100,55,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,176,100,56,0) + .. I SUB="ATT3" D +"DATA",811.8,176,100,57,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,176,100,58,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,176,100,59,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,176,100,60,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,176,100,61,0) + ..;location for the ward is on the list. +"DATA",811.8,176,100,62,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,176,100,63,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,176,100,64,0) + .. I 'OK Q +"DATA",811.8,176,100,65,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,176,100,66,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,176,100,67,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,176,100,68,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,176,100,69,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,176,100,70,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,176,100,71,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,176,100,72,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,176,100,73,0) + K ^TMP($J,"CNT") +"DATA",811.8,176,100,74,0) + Q +"DATA",811.8,176,100,75,0) + ; +"DATA",811.8,176,100,76,0) + ;===================================== +"DATA",811.8,176,100,77,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,176,100,78,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,176,100,79,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,176,100,80,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,176,100,81,0) + S OK=1 +"DATA",811.8,176,100,82,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,176,100,83,0) + S WARD="" +"DATA",811.8,176,100,84,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,176,100,85,0) + . S DFN=0 +"DATA",811.8,176,100,86,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,176,100,87,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,176,100,88,0) + ..;location for the ward is on the list. +"DATA",811.8,176,100,89,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,176,100,90,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,176,100,91,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,176,100,92,0) + .. I 'OK Q +"DATA",811.8,176,100,93,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,176,100,94,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,176,100,95,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,176,100,96,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,176,100,97,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,176,100,98,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,176,100,99,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,176,100,100,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,176,100,101,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,176,100,102,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,176,100,103,0) + K ^TMP($J,"CNT") +"DATA",811.8,176,100,104,0) + Q +"DATA",811.8,176,100,105,0) + ; +"DATA",811.8,176,100,106,0) + ;===================================== +"DATA",811.8,176,100,107,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,176,100,108,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,176,100,109,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,176,100,110,0) + Q +"DATA",811.8,176,100,111,0) + ; +"DATA",811.8,176,100,112,0) +]]> +"DATA",811.8,176,100,113,0) + +"DATA",811.8,176,100,114,0) + +"DATA",811.8,176,100,115,0) + +"DATA",811.8,176,100,116,0) +HEALTH FACTORS +"DATA",811.8,176,100,117,0) +9999999.64 +"DATA",811.8,176,100,118,0) +MU STK +"DATA",811.8,176,100,119,0) +50049 +"DATA",811.8,176,100,120,0) +1292931282 +"DATA",811.8,176,100,121,0) +NO +"DATA",811.8,176,100,122,0) + +"DATA",811.8,176,100,123,0) + +"DATA",811.8,176,100,127,0) + +"DATA",811.8,176,100,128,0) + +"DATA",811.8,176,100,129,0) + +"DATA",811.8,176,100,130,0) +HEALTH FACTORS +"DATA",811.8,176,100,131,0) +9999999.64 +"DATA",811.8,176,100,132,0) +ADMIT DECISION +"DATA",811.8,176,100,133,0) +50092 +"DATA",811.8,176,100,134,0) +3538184457 +"DATA",811.8,176,100,135,0) +NO +"DATA",811.8,176,100,136,0) + +"DATA",811.8,176,100,137,0) + +"DATA",811.8,176,100,144,0) + +"DATA",811.8,176,100,145,0) + +"DATA",811.8,176,100,146,0) + +"DATA",811.8,176,100,147,0) +HEALTH FACTORS +"DATA",811.8,176,100,148,0) +9999999.64 +"DATA",811.8,176,100,149,0) +ARRIVAL +"DATA",811.8,176,100,150,0) +50063 +"DATA",811.8,176,100,151,0) +3668375555 +"DATA",811.8,176,100,152,0) +NO +"DATA",811.8,176,100,153,0) + +"DATA",811.8,176,100,154,0) + +"DATA",811.8,176,100,161,0) + +"DATA",811.8,176,100,162,0) + +"DATA",811.8,176,100,163,0) + +"DATA",811.8,176,100,164,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,176,100,165,0) +811.4 +"DATA",811.8,176,100,166,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,176,100,167,0) +90 +"DATA",811.8,176,100,168,0) +1960922291 +"DATA",811.8,176,100,169,0) +NO +"DATA",811.8,176,100,170,0) + +"DATA",811.8,176,100,171,0) + +"DATA",811.8,176,100,212,0) + +"DATA",811.8,176,100,213,0) + +"DATA",811.8,176,100,214,0) + +"DATA",811.8,176,100,217,0) + +"DATA",811.8,176,100,218,0) + +"DATA",811.8,176,100,219,0) + +"DATA",811.8,176,100,220,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,176,100,221,0) +811.4 +"DATA",811.8,176,100,222,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,176,100,223,0) +94 +"DATA",811.8,176,100,224,0) +1608937132 +"DATA",811.8,176,100,225,0) +NO +"DATA",811.8,176,100,226,0) + +"DATA",811.8,176,100,227,0) + +"DATA",811.8,176,100,265,0) + +"DATA",811.8,176,100,266,0) + +"DATA",811.8,176,100,267,0) + +"DATA",811.8,176,100,270,0) + +"DATA",811.8,176,100,271,0) + +"DATA",811.8,176,100,272,0) + +"DATA",811.8,176,100,273,0) +REMINDER TAXONOMY +"DATA",811.8,176,100,274,0) +811.2 +"DATA",811.8,176,100,275,0) +MU TABLE 7P01 TX +"DATA",811.8,176,100,276,0) +187 +"DATA",811.8,176,100,277,0) +1550059983 +"DATA",811.8,176,100,278,0) +NO +"DATA",811.8,176,100,279,0) + +"DATA",811.8,176,100,280,0) + +"DATA",811.8,176,100,876,0) + +"DATA",811.8,176,100,877,0) + +"DATA",811.8,176,100,878,0) + +"DATA",811.8,176,100,1028,0) + +"DATA",811.8,176,100,1029,0) + +"DATA",811.8,176,100,1030,0) + +"DATA",811.8,176,100,1031,0) +REMINDER TERM +"DATA",811.8,176,100,1032,0) +811.5 +"DATA",811.8,176,100,1033,0) +MU ADMISSION ICU OBSERVATION TRM +"DATA",811.8,176,100,1034,0) +668 +"DATA",811.8,176,100,1035,0) +1406123770 +"DATA",811.8,176,100,1036,0) +NO +"DATA",811.8,176,100,1037,0) + +"DATA",811.8,176,100,1038,0) + +"DATA",811.8,176,100,1048,0) + +"DATA",811.8,176,100,1049,0) + +"DATA",811.8,176,100,1050,0) + +"DATA",811.8,176,100,1054,0) + +"DATA",811.8,176,100,1055,0) + +"DATA",811.8,176,100,1056,0) + +"DATA",811.8,176,100,1057,0) +REMINDER DEFINITION +"DATA",811.8,176,100,1058,0) +811.9 +"DATA",811.8,176,100,1059,0) +MU ED2 CR +"DATA",811.8,176,100,1060,0) +219 +"DATA",811.8,176,100,1061,0) +534524201 +"DATA",811.8,176,100,1062,0) +NO +"DATA",811.8,176,100,1063,0) + +"DATA",811.8,176,100,1064,0) + +"DATA",811.8,176,100,1122,0) + +"DATA",811.8,176,100,1123,0) + +"DATA",811.8,176,100,1124,0) + +"DATA",811.8,176,100,1138,0) + +"DATA",811.8,176,100,1139,0) + +"DATA",811.8,176,100,1140,0) + +"DATA",811.8,176,100,1141,0) +REMINDER DEFINITION +"DATA",811.8,176,100,1142,0) +811.9 +"DATA",811.8,176,100,1143,0) +MU ED 1&2 DENOM +"DATA",811.8,176,100,1144,0) +247 +"DATA",811.8,176,100,1145,0) +543950955 +"DATA",811.8,176,100,1146,0) +NO +"DATA",811.8,176,100,1147,0) + +"DATA",811.8,176,100,1148,0) + +"DATA",811.8,176,100,1207,0) + +"DATA",811.8,176,100,1208,0) + +"DATA",811.8,176,100,1209,0) + +"DATA",811.8,176,100,1222,0) + +"DATA",811.8,176,100,1223,0) + +"DATA",811.8,176,100,1224,0) + +"DATA",811.8,176,100,1225,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1226,0) +810.4 +"DATA",811.8,176,100,1227,0) +MU ED-2 NUMER RR +"DATA",811.8,176,100,1228,0) +89 +"DATA",811.8,176,100,1229,0) +739660164 +"DATA",811.8,176,100,1230,0) +NO +"DATA",811.8,176,100,1231,0) + +"DATA",811.8,176,100,1232,0) + +"DATA",811.8,176,100,1241,0) + +"DATA",811.8,176,100,1242,0) + +"DATA",811.8,176,100,1243,0) + +"DATA",811.8,176,100,1246,0) + +"DATA",811.8,176,100,1247,0) + +"DATA",811.8,176,100,1248,0) + +"DATA",811.8,176,100,1249,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1250,0) +810.4 +"DATA",811.8,176,100,1251,0) +MU ED-2 NUMER RS +"DATA",811.8,176,100,1252,0) +90 +"DATA",811.8,176,100,1253,0) +34079790 +"DATA",811.8,176,100,1254,0) +YES +"DATA",811.8,176,100,1255,0) + +"DATA",811.8,176,100,1256,0) + +"DATA",811.8,176,100,1267,0) + +"DATA",811.8,176,100,1268,0) + +"DATA",811.8,176,100,1269,0) + +"DATA",811.8,176,100,1273,0) + +"DATA",811.8,176,100,1274,0) + +"DATA",811.8,176,100,1275,0) + +"DATA",811.8,176,100,1276,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1277,0) +810.4 +"DATA",811.8,176,100,1278,0) +MU ED-2 DENOM RR +"DATA",811.8,176,100,1279,0) +164 +"DATA",811.8,176,100,1280,0) +1426345292 +"DATA",811.8,176,100,1281,0) +NO +"DATA",811.8,176,100,1282,0) + +"DATA",811.8,176,100,1283,0) + +"DATA",811.8,176,100,1292,0) + +"DATA",811.8,176,100,1293,0) + +"DATA",811.8,176,100,1294,0) + +"DATA",811.8,176,100,1297,0) + +"DATA",811.8,176,100,1298,0) + +"DATA",811.8,176,100,1299,0) + +"DATA",811.8,176,100,1300,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1301,0) +810.4 +"DATA",811.8,176,100,1302,0) +MU ED-2 DENOM RS +"DATA",811.8,176,100,1303,0) +168 +"DATA",811.8,176,100,1304,0) +833941687 +"DATA",811.8,176,100,1305,0) +YES +"DATA",811.8,176,100,1306,0) + +"DATA",811.8,176,100,1307,0) + +"DATA",811.8,176,100,1318,0) + +"DATA",811.8,176,100,1319,0) + +"DATA",811.8,176,100,1320,0) + +"DATA",811.8,176,100,1324,0) + +"DATA",811.8,176,100,1325,0) + +"DATA",811.8,176,100,1326,0) + +"DATA",811.8,176,100,1327,0) +14 +"DATA",811.8,176,100,1328,0) + +"DATA",811.8,176,100,1329,0) +25 +"DATA",811.8,176,100,1330,0) +111 +"DATA",811.8,176,100,1331,0) +30 +"DATA",811.8,176,100,1332,0) + +"DATA",811.8,176,100,1333,0) + +"DATA",811.8,176,100,1334,0) +125 +"DATA",811.8,176,100,1335,0) +124 +"DATA",811.8,176,100,1336,0) +115 +"DATA",811.8,176,100,1337,0) + +"DATA",811.8,176,100,1338,0) + +"DATA",811.8,176,100,1339,0) +142 +"DATA",811.8,176,100,1340,0) +138 +"DATA",811.8,176,100,1341,0) +129 +"DATA",811.8,176,100,1342,0) + +"DATA",811.8,176,100,1343,0) + +"DATA",811.8,176,100,1344,0) +159 +"DATA",811.8,176,100,1345,0) +155 +"DATA",811.8,176,100,1346,0) +146 +"DATA",811.8,176,100,1347,0) + +"DATA",811.8,176,100,1348,0) + +"DATA",811.8,176,100,1349,0) +210 +"DATA",811.8,176,100,1350,0) +172 +"DATA",811.8,176,100,1351,0) +163 +"DATA",811.8,176,100,1352,0) +215 +"DATA",811.8,176,100,1353,0) +215 +"DATA",811.8,176,100,1354,0) + +"DATA",811.8,176,100,1355,0) + +"DATA",811.8,176,100,1356,0) +263 +"DATA",811.8,176,100,1357,0) +228 +"DATA",811.8,176,100,1358,0) +219 +"DATA",811.8,176,100,1359,0) +268 +"DATA",811.8,176,100,1360,0) +268 +"DATA",811.8,176,100,1361,0) + +"DATA",811.8,176,100,1362,0) + +"DATA",811.8,176,100,1363,0) +874 +"DATA",811.8,176,100,1364,0) +281 +"DATA",811.8,176,100,1365,0) +272 +"DATA",811.8,176,100,1366,0) +1026 +"DATA",811.8,176,100,1367,0) +879 +"DATA",811.8,176,100,1368,0) + +"DATA",811.8,176,100,1369,0) + +"DATA",811.8,176,100,1370,0) +1046 +"DATA",811.8,176,100,1371,0) +1039 +"DATA",811.8,176,100,1372,0) +1030 +"DATA",811.8,176,100,1373,0) +1052 +"DATA",811.8,176,100,1374,0) +1051 +"DATA",811.8,176,100,1375,0) + +"DATA",811.8,176,100,1376,0) + +"DATA",811.8,176,100,1377,0) +1120 +"DATA",811.8,176,100,1378,0) +1065 +"DATA",811.8,176,100,1379,0) +1056 +"DATA",811.8,176,100,1380,0) +1136 +"DATA",811.8,176,100,1381,0) +1125 +"DATA",811.8,176,100,1382,0) + +"DATA",811.8,176,100,1383,0) + +"DATA",811.8,176,100,1384,0) +1205 +"DATA",811.8,176,100,1385,0) +1149 +"DATA",811.8,176,100,1386,0) +1140 +"DATA",811.8,176,100,1387,0) +1220 +"DATA",811.8,176,100,1388,0) +1210 +"DATA",811.8,176,100,1389,0) + +"DATA",811.8,176,100,1390,0) + +"DATA",811.8,176,100,1391,0) +1239 +"DATA",811.8,176,100,1392,0) +1233 +"DATA",811.8,176,100,1393,0) +1224 +"DATA",811.8,176,100,1394,0) +1244 +"DATA",811.8,176,100,1395,0) +1244 +"DATA",811.8,176,100,1396,0) + +"DATA",811.8,176,100,1397,0) + +"DATA",811.8,176,100,1398,0) +1265 +"DATA",811.8,176,100,1399,0) +1257 +"DATA",811.8,176,100,1400,0) +1248 +"DATA",811.8,176,100,1401,0) +1271 +"DATA",811.8,176,100,1402,0) +1270 +"DATA",811.8,176,100,1403,0) + +"DATA",811.8,176,100,1404,0) + +"DATA",811.8,176,100,1405,0) +1290 +"DATA",811.8,176,100,1406,0) +1284 +"DATA",811.8,176,100,1407,0) +1275 +"DATA",811.8,176,100,1408,0) +1295 +"DATA",811.8,176,100,1409,0) +1295 +"DATA",811.8,176,100,1410,0) + +"DATA",811.8,176,100,1411,0) + +"DATA",811.8,176,100,1412,0) +1316 +"DATA",811.8,176,100,1413,0) +1308 +"DATA",811.8,176,100,1414,0) +1299 +"DATA",811.8,176,100,1415,0) +1322 +"DATA",811.8,176,100,1416,0) +1321 +"DATA",811.8,176,100,1417,0) + +"DATA",811.8,176,100,1418,0) + +"DATA",811.8,176,100,1419,0) + +"DATA",811.8,176,110,0) +^811.804^19^19 +"DATA",811.8,176,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,176,110,2,0) +Date Packed: 07/17/2012@11:50:23 +"DATA",811.8,176,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,176,110,4,0) + +"DATA",811.8,176,110,5,0) +Description: +"DATA",811.8,176,110,6,0) +Package for Inpatient Measure MU HOS NQF 0497 +"DATA",811.8,176,110,7,0) + +"DATA",811.8,176,110,8,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,176,110,9,0) +REMINDER LIST RULE +"DATA",811.8,176,110,10,0) + MU ED-2 NUMER RS +"DATA",811.8,176,110,11,0) + MU ED-2 DENOM RS +"DATA",811.8,176,110,12,0) + +"DATA",811.8,176,110,13,0) +Keywords: +"DATA",811.8,176,110,14,0) +MU +"DATA",811.8,176,110,15,0) +NQF +"DATA",811.8,176,110,16,0) +0497 +"DATA",811.8,176,110,17,0) +ED-2 +"DATA",811.8,176,110,18,0) + +"DATA",811.8,176,110,19,0) +Components: +"DATA",811.8,176,119) +7 +"DATA",811.8,176,120,0) +^811.802A^14^14 +"DATA",811.8,176,120,1,0) +ROUTINE^0^1 +"DATA",811.8,176,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,176,120,1,1,1,0) +PXRMINPL^30^111^^^1^0 +"DATA",811.8,176,120,2,0) +HEALTH FACTORS^9999999.64^3 +"DATA",811.8,176,120,2,1,0) +^811.8021A^3^3 +"DATA",811.8,176,120,2,1,1,0) +MU STK^124^125^^^1^0 +"DATA",811.8,176,120,2,1,2,0) +ADMIT DECISION^138^142^^^1^0 +"DATA",811.8,176,120,2,1,3,0) +ARRIVAL^155^159^^^1^0 +"DATA",811.8,176,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,176,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,176,120,3,1,1,0) +VA-ADMISSIONS FOR A DATE RANGE^172^210^215^215^1^0 +"DATA",811.8,176,120,3,1,2,0) +VA-DISCHARGES FOR A DATE RANGE^228^263^268^268^1^0 +"DATA",811.8,176,120,4,0) +REMINDER TAXONOMY^811.2^1 +"DATA",811.8,176,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,176,120,4,1,1,0) +MU TABLE 7P01 TX^281^874^879^1026^1^0 +"DATA",811.8,176,120,5,0) +REMINDER TERM^811.5^1 +"DATA",811.8,176,120,5,1,0) +^811.8021A^1^1 +"DATA",811.8,176,120,5,1,1,0) +MU ADMISSION ICU OBSERVATION TRM^1039^1046^1051^1052^1^0 +"DATA",811.8,176,120,6,0) +REMINDER DEFINITION^811.9^2 +"DATA",811.8,176,120,6,1,0) +^811.8021A^2^2 +"DATA",811.8,176,120,6,1,1,0) +MU ED2 CR^1065^1120^1125^1136^1^0 +"DATA",811.8,176,120,6,1,2,0) +MU ED 1&2 DENOM^1149^1205^1210^1220^1^0 +"DATA",811.8,176,120,7,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,176,120,7,1,0) +^811.8021A^4^4 +"DATA",811.8,176,120,7,1,1,0) +MU ED-2 NUMER RR^1233^1239^1244^1244^1^0 +"DATA",811.8,176,120,7,1,2,0) +MU ED-2 NUMER RS^1257^1265^1270^1271^1^1 +"DATA",811.8,176,120,7,1,3,0) +MU ED-2 DENOM RR^1284^1290^1295^1295^1^0 +"DATA",811.8,176,120,7,1,4,0) +MU ED-2 DENOM RS^1308^1316^1321^1322^1^1 +"DATA",811.8,177,0) +MU STROKE 2.3.4.5.6.8.10 SMH^HABIEL,SAM at VOE OFFICE INSTITUTION^3120718.103353 +"DATA",811.8,177,100,0) +^811.801^6136^6136 +"DATA",811.8,177,100,1,0) + +"DATA",811.8,177,100,2,0) + +"DATA",811.8,177,100,3,0) +2.0P17 +"DATA",811.8,177,100,4,0) +5336 +"DATA",811.8,177,100,5,0) + +"DATA",811.8,177,100,6,0) +MU STROKE 2.3.4.5.6.8.10 SMH +"DATA",811.8,177,100,7,0) +HABIEL,SAM +"DATA",811.8,177,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,177,100,9,0) +07/18/2012@10:33:53 +"DATA",811.8,177,100,10,0) + +"DATA",811.8,177,100,11,0) + +"DATA",811.8,177,100,38,0) + +"DATA",811.8,177,100,39,0) +NQF 0435 +"DATA",811.8,177,100,40,0) +NQF 0436 +"DATA",811.8,177,100,41,0) +NQF 0437 +"DATA",811.8,177,100,42,0) +NQF 0438 +"DATA",811.8,177,100,43,0) +NQF 0439 +"DATA",811.8,177,100,44,0) +NQF 0440 +"DATA",811.8,177,100,45,0) +NQF 0441 +"DATA",811.8,177,100,46,0) +MU +"DATA",811.8,177,100,47,0) +STROKE +"DATA",811.8,177,100,48,0) + +"DATA",811.8,177,100,49,0) + +"DATA",811.8,177,100,50,0) +PXRMINPL +"DATA",811.8,177,100,51,0) +2982435994 +"DATA",811.8,177,100,52,0) + +"DATA",811.8,177,100,53,0) +EDT)!(DATE="") D +"DATA",811.8,177,100,72,0) + . S IEN="" +"DATA",811.8,177,100,73,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,177,100,74,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,177,100,75,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,177,100,76,0) + .. I SUB="ATT1" D +"DATA",811.8,177,100,77,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,177,100,78,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,177,100,79,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,177,100,80,0) + .. I SUB="ATT3" D +"DATA",811.8,177,100,81,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,177,100,82,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,177,100,83,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,177,100,84,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,177,100,85,0) + ..;location for the ward is on the list. +"DATA",811.8,177,100,86,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,177,100,87,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,177,100,88,0) + .. I 'OK Q +"DATA",811.8,177,100,89,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,177,100,90,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,177,100,91,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,177,100,92,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,177,100,93,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,177,100,94,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,177,100,95,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,177,100,96,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,177,100,97,0) + K ^TMP($J,"CNT") +"DATA",811.8,177,100,98,0) + Q +"DATA",811.8,177,100,99,0) + ; +"DATA",811.8,177,100,100,0) + ;===================================== +"DATA",811.8,177,100,101,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,177,100,102,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,177,100,103,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,177,100,104,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,177,100,105,0) + S OK=1 +"DATA",811.8,177,100,106,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,177,100,107,0) + S WARD="" +"DATA",811.8,177,100,108,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,177,100,109,0) + . S DFN=0 +"DATA",811.8,177,100,110,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,177,100,111,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,177,100,112,0) + ..;location for the ward is on the list. +"DATA",811.8,177,100,113,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,177,100,114,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,177,100,115,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,177,100,116,0) + .. I 'OK Q +"DATA",811.8,177,100,117,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,177,100,118,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,177,100,119,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,177,100,120,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,177,100,121,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,177,100,122,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,177,100,123,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,177,100,124,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,177,100,125,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,177,100,126,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,177,100,127,0) + K ^TMP($J,"CNT") +"DATA",811.8,177,100,128,0) + Q +"DATA",811.8,177,100,129,0) + ; +"DATA",811.8,177,100,130,0) + ;===================================== +"DATA",811.8,177,100,131,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,177,100,132,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,177,100,133,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,177,100,134,0) + Q +"DATA",811.8,177,100,135,0) + ; +"DATA",811.8,177,100,136,0) +]]> +"DATA",811.8,177,100,137,0) + +"DATA",811.8,177,100,138,0) + +"DATA",811.8,177,100,139,0) + +"DATA",811.8,177,100,140,0) +VA DRUG CLASS +"DATA",811.8,177,100,141,0) +50.605 +"DATA",811.8,177,100,142,0) +VT103 +"DATA",811.8,177,100,143,0) +421 +"DATA",811.8,177,100,144,0) +2858687870 +"DATA",811.8,177,100,145,0) +NO +"DATA",811.8,177,100,146,0) + +"DATA",811.8,177,100,147,0) + +"DATA",811.8,177,100,150,0) + +"DATA",811.8,177,100,151,0) + +"DATA",811.8,177,100,152,0) + +"DATA",811.8,177,100,153,0) +VA DRUG CLASS +"DATA",811.8,177,100,154,0) +50.605 +"DATA",811.8,177,100,155,0) +CV350 +"DATA",811.8,177,100,156,0) +58 +"DATA",811.8,177,100,157,0) +1335344278 +"DATA",811.8,177,100,158,0) +NO +"DATA",811.8,177,100,159,0) + +"DATA",811.8,177,100,160,0) + +"DATA",811.8,177,100,163,0) + +"DATA",811.8,177,100,164,0) + +"DATA",811.8,177,100,165,0) + +"DATA",811.8,177,100,166,0) +VA DRUG CLASS +"DATA",811.8,177,100,167,0) +50.605 +"DATA",811.8,177,100,168,0) +BL115 +"DATA",811.8,177,100,169,0) +254 +"DATA",811.8,177,100,170,0) +1523697464 +"DATA",811.8,177,100,171,0) +NO +"DATA",811.8,177,100,172,0) + +"DATA",811.8,177,100,173,0) + +"DATA",811.8,177,100,176,0) + +"DATA",811.8,177,100,177,0) + +"DATA",811.8,177,100,178,0) + +"DATA",811.8,177,100,179,0) +VA DRUG CLASS +"DATA",811.8,177,100,180,0) +50.605 +"DATA",811.8,177,100,181,0) +BL110 +"DATA",811.8,177,100,182,0) +46 +"DATA",811.8,177,100,183,0) +716911543 +"DATA",811.8,177,100,184,0) +NO +"DATA",811.8,177,100,185,0) + +"DATA",811.8,177,100,186,0) + +"DATA",811.8,177,100,189,0) + +"DATA",811.8,177,100,190,0) + +"DATA",811.8,177,100,191,0) + +"DATA",811.8,177,100,192,0) +VA DRUG CLASS +"DATA",811.8,177,100,193,0) +50.605 +"DATA",811.8,177,100,194,0) +BL117 +"DATA",811.8,177,100,195,0) +255 +"DATA",811.8,177,100,196,0) +3034555924 +"DATA",811.8,177,100,197,0) +NO +"DATA",811.8,177,100,198,0) + +"DATA",811.8,177,100,199,0) + +"DATA",811.8,177,100,202,0) + +"DATA",811.8,177,100,203,0) + +"DATA",811.8,177,100,204,0) + +"DATA",811.8,177,100,205,0) +LABORATORY TEST +"DATA",811.8,177,100,206,0) +60 +"DATA",811.8,177,100,207,0) +LDL CHOLESTEROL +"DATA",811.8,177,100,208,0) +901 +"DATA",811.8,177,100,209,0) +1035251149 +"DATA",811.8,177,100,210,0) +NO +"DATA",811.8,177,100,211,0) + +"DATA",811.8,177,100,212,0) + +"DATA",811.8,177,100,215,0) + +"DATA",811.8,177,100,216,0) + +"DATA",811.8,177,100,217,0) + +"DATA",811.8,177,100,218,0) +HEALTH FACTORS +"DATA",811.8,177,100,219,0) +9999999.64 +"DATA",811.8,177,100,220,0) +MU STK +"DATA",811.8,177,100,221,0) +50049 +"DATA",811.8,177,100,222,0) +1292931282 +"DATA",811.8,177,100,223,0) +NO +"DATA",811.8,177,100,224,0) + +"DATA",811.8,177,100,225,0) + +"DATA",811.8,177,100,229,0) + +"DATA",811.8,177,100,230,0) + +"DATA",811.8,177,100,231,0) + +"DATA",811.8,177,100,232,0) +HEALTH FACTORS +"DATA",811.8,177,100,233,0) +9999999.64 +"DATA",811.8,177,100,234,0) +ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,235,0) +500306 +"DATA",811.8,177,100,236,0) +2385829161 +"DATA",811.8,177,100,237,0) +NO +"DATA",811.8,177,100,238,0) + +"DATA",811.8,177,100,239,0) + +"DATA",811.8,177,100,246,0) + +"DATA",811.8,177,100,247,0) + +"DATA",811.8,177,100,248,0) + +"DATA",811.8,177,100,249,0) +HEALTH FACTORS +"DATA",811.8,177,100,250,0) +9999999.64 +"DATA",811.8,177,100,251,0) +COMFORT MEASURES PROTOCOL FOLLOWED +"DATA",811.8,177,100,252,0) +500305 +"DATA",811.8,177,100,253,0) +779307093 +"DATA",811.8,177,100,254,0) +NO +"DATA",811.8,177,100,255,0) + +"DATA",811.8,177,100,256,0) + +"DATA",811.8,177,100,263,0) + +"DATA",811.8,177,100,264,0) + +"DATA",811.8,177,100,265,0) + +"DATA",811.8,177,100,266,0) +HEALTH FACTORS +"DATA",811.8,177,100,267,0) +9999999.64 +"DATA",811.8,177,100,268,0) +ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,269,0) +50071 +"DATA",811.8,177,100,270,0) +4182986683 +"DATA",811.8,177,100,271,0) +NO +"DATA",811.8,177,100,272,0) + +"DATA",811.8,177,100,273,0) + +"DATA",811.8,177,100,280,0) + +"DATA",811.8,177,100,281,0) + +"DATA",811.8,177,100,282,0) + +"DATA",811.8,177,100,283,0) +HEALTH FACTORS +"DATA",811.8,177,100,284,0) +9999999.64 +"DATA",811.8,177,100,285,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL +"DATA",811.8,177,100,286,0) +50064 +"DATA",811.8,177,100,287,0) +1895354898 +"DATA",811.8,177,100,288,0) +NO +"DATA",811.8,177,100,289,0) + +"DATA",811.8,177,100,290,0) + +"DATA",811.8,177,100,297,0) + +"DATA",811.8,177,100,298,0) + +"DATA",811.8,177,100,299,0) + +"DATA",811.8,177,100,300,0) +HEALTH FACTORS +"DATA",811.8,177,100,301,0) +9999999.64 +"DATA",811.8,177,100,302,0) +REHABILITATION SERVICES RECEIVED +"DATA",811.8,177,100,303,0) +50208 +"DATA",811.8,177,100,304,0) +1652347862 +"DATA",811.8,177,100,305,0) +NO +"DATA",811.8,177,100,306,0) + +"DATA",811.8,177,100,307,0) + +"DATA",811.8,177,100,314,0) + +"DATA",811.8,177,100,315,0) + +"DATA",811.8,177,100,316,0) + +"DATA",811.8,177,100,317,0) +HEALTH FACTORS +"DATA",811.8,177,100,318,0) +9999999.64 +"DATA",811.8,177,100,319,0) +ADDRESSED:ACTIVATION OF EMERG MED SYS +"DATA",811.8,177,100,320,0) +50050 +"DATA",811.8,177,100,321,0) +464735467 +"DATA",811.8,177,100,322,0) +NO +"DATA",811.8,177,100,323,0) + +"DATA",811.8,177,100,324,0) + +"DATA",811.8,177,100,331,0) + +"DATA",811.8,177,100,332,0) + +"DATA",811.8,177,100,333,0) + +"DATA",811.8,177,100,334,0) +HEALTH FACTORS +"DATA",811.8,177,100,335,0) +9999999.64 +"DATA",811.8,177,100,336,0) +ADDRESSED:FOLLOW-UP +"DATA",811.8,177,100,337,0) +50051 +"DATA",811.8,177,100,338,0) +1748576748 +"DATA",811.8,177,100,339,0) +NO +"DATA",811.8,177,100,340,0) + +"DATA",811.8,177,100,341,0) + +"DATA",811.8,177,100,348,0) + +"DATA",811.8,177,100,349,0) + +"DATA",811.8,177,100,350,0) + +"DATA",811.8,177,100,351,0) +HEALTH FACTORS +"DATA",811.8,177,100,352,0) +9999999.64 +"DATA",811.8,177,100,353,0) +ADDRESSED:MEDICATION AT DISCHARGE +"DATA",811.8,177,100,354,0) +50052 +"DATA",811.8,177,100,355,0) +4044354407 +"DATA",811.8,177,100,356,0) +NO +"DATA",811.8,177,100,357,0) + +"DATA",811.8,177,100,358,0) + +"DATA",811.8,177,100,365,0) + +"DATA",811.8,177,100,366,0) + +"DATA",811.8,177,100,367,0) + +"DATA",811.8,177,100,368,0) +HEALTH FACTORS +"DATA",811.8,177,100,369,0) +9999999.64 +"DATA",811.8,177,100,370,0) +ADDRESSED:STROKE RISK FACTORS +"DATA",811.8,177,100,371,0) +50053 +"DATA",811.8,177,100,372,0) +3060682712 +"DATA",811.8,177,100,373,0) +NO +"DATA",811.8,177,100,374,0) + +"DATA",811.8,177,100,375,0) + +"DATA",811.8,177,100,382,0) + +"DATA",811.8,177,100,383,0) + +"DATA",811.8,177,100,384,0) + +"DATA",811.8,177,100,385,0) +HEALTH FACTORS +"DATA",811.8,177,100,386,0) +9999999.64 +"DATA",811.8,177,100,387,0) +ADDRESSED:STROKE WARNING SIGNS/SYMPTOMS +"DATA",811.8,177,100,388,0) +50054 +"DATA",811.8,177,100,389,0) +3238240041 +"DATA",811.8,177,100,390,0) +NO +"DATA",811.8,177,100,391,0) + +"DATA",811.8,177,100,392,0) + +"DATA",811.8,177,100,399,0) + +"DATA",811.8,177,100,400,0) + +"DATA",811.8,177,100,401,0) + +"DATA",811.8,177,100,402,0) +HEALTH FACTORS +"DATA",811.8,177,100,403,0) +9999999.64 +"DATA",811.8,177,100,404,0) +LABORATORY +"DATA",811.8,177,100,405,0) +628 +"DATA",811.8,177,100,406,0) +3529089054 +"DATA",811.8,177,100,407,0) +NO +"DATA",811.8,177,100,408,0) + +"DATA",811.8,177,100,409,0) + +"DATA",811.8,177,100,413,0) + +"DATA",811.8,177,100,414,0) + +"DATA",811.8,177,100,415,0) + +"DATA",811.8,177,100,416,0) +HEALTH FACTORS +"DATA",811.8,177,100,417,0) +9999999.64 +"DATA",811.8,177,100,418,0) +LDL 100 OR ABOVE +"DATA",811.8,177,100,419,0) +630 +"DATA",811.8,177,100,420,0) +778274999 +"DATA",811.8,177,100,421,0) +NO +"DATA",811.8,177,100,422,0) + +"DATA",811.8,177,100,423,0) + +"DATA",811.8,177,100,430,0) + +"DATA",811.8,177,100,431,0) + +"DATA",811.8,177,100,432,0) + +"DATA",811.8,177,100,433,0) +HEALTH FACTORS +"DATA",811.8,177,100,434,0) +9999999.64 +"DATA",811.8,177,100,435,0) +LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,436,0) +629 +"DATA",811.8,177,100,437,0) +1019186990 +"DATA",811.8,177,100,438,0) +NO +"DATA",811.8,177,100,439,0) + +"DATA",811.8,177,100,440,0) + +"DATA",811.8,177,100,447,0) + +"DATA",811.8,177,100,448,0) + +"DATA",811.8,177,100,449,0) + +"DATA",811.8,177,100,450,0) +HEALTH FACTORS +"DATA",811.8,177,100,451,0) +9999999.64 +"DATA",811.8,177,100,452,0) +LIPID MED INTERVENTIONS +"DATA",811.8,177,100,453,0) +660077 +"DATA",811.8,177,100,454,0) +249707256 +"DATA",811.8,177,100,455,0) +NO +"DATA",811.8,177,100,456,0) + +"DATA",811.8,177,100,457,0) + +"DATA",811.8,177,100,462,0) + +"DATA",811.8,177,100,463,0) + +"DATA",811.8,177,100,464,0) + +"DATA",811.8,177,100,465,0) +HEALTH FACTORS +"DATA",811.8,177,100,466,0) +9999999.64 +"DATA",811.8,177,100,467,0) +LIPID LOWERING MED PRIOR TO HOSP ARRIVAL +"DATA",811.8,177,100,468,0) +627 +"DATA",811.8,177,100,469,0) +4037945624 +"DATA",811.8,177,100,470,0) +NO +"DATA",811.8,177,100,471,0) + +"DATA",811.8,177,100,472,0) + +"DATA",811.8,177,100,479,0) + +"DATA",811.8,177,100,480,0) + +"DATA",811.8,177,100,481,0) + +"DATA",811.8,177,100,482,0) +HEALTH FACTORS +"DATA",811.8,177,100,483,0) +9999999.64 +"DATA",811.8,177,100,484,0) +STATIN NOT PRESCRIBED AT DISCHARGE +"DATA",811.8,177,100,485,0) +50076 +"DATA",811.8,177,100,486,0) +2709566975 +"DATA",811.8,177,100,487,0) +NO +"DATA",811.8,177,100,488,0) + +"DATA",811.8,177,100,489,0) + +"DATA",811.8,177,100,496,0) + +"DATA",811.8,177,100,497,0) + +"DATA",811.8,177,100,498,0) + +"DATA",811.8,177,100,499,0) +HEALTH FACTORS +"DATA",811.8,177,100,500,0) +9999999.64 +"DATA",811.8,177,100,501,0) +STATIN MEDS GIVEN AT DISCHARGE +"DATA",811.8,177,100,502,0) +50207 +"DATA",811.8,177,100,503,0) +1904696844 +"DATA",811.8,177,100,504,0) +NO +"DATA",811.8,177,100,505,0) + +"DATA",811.8,177,100,506,0) + +"DATA",811.8,177,100,513,0) + +"DATA",811.8,177,100,514,0) + +"DATA",811.8,177,100,515,0) + +"DATA",811.8,177,100,516,0) +HEALTH FACTORS +"DATA",811.8,177,100,517,0) +9999999.64 +"DATA",811.8,177,100,518,0) +t-PA STARTED AT THIS FACILITY +"DATA",811.8,177,100,519,0) +50080 +"DATA",811.8,177,100,520,0) +1836103415 +"DATA",811.8,177,100,521,0) +NO +"DATA",811.8,177,100,522,0) + +"DATA",811.8,177,100,523,0) + +"DATA",811.8,177,100,530,0) + +"DATA",811.8,177,100,531,0) + +"DATA",811.8,177,100,532,0) + +"DATA",811.8,177,100,533,0) +HEALTH FACTORS +"DATA",811.8,177,100,534,0) +9999999.64 +"DATA",811.8,177,100,535,0) +t-PA STARTED 24H BEFORE ARRIVAL +"DATA",811.8,177,100,536,0) +50079 +"DATA",811.8,177,100,537,0) +3959174881 +"DATA",811.8,177,100,538,0) +NO +"DATA",811.8,177,100,539,0) + +"DATA",811.8,177,100,540,0) + +"DATA",811.8,177,100,547,0) + +"DATA",811.8,177,100,548,0) + +"DATA",811.8,177,100,549,0) + +"DATA",811.8,177,100,550,0) +HEALTH FACTORS +"DATA",811.8,177,100,551,0) +9999999.64 +"DATA",811.8,177,100,552,0) +DISCHARGED PRIOR TO END OF HOSP DAY2 +"DATA",811.8,177,100,553,0) +50065 +"DATA",811.8,177,100,554,0) +3513051705 +"DATA",811.8,177,100,555,0) +NO +"DATA",811.8,177,100,556,0) + +"DATA",811.8,177,100,557,0) + +"DATA",811.8,177,100,564,0) + +"DATA",811.8,177,100,565,0) + +"DATA",811.8,177,100,566,0) + +"DATA",811.8,177,100,567,0) +HEALTH FACTORS +"DATA",811.8,177,100,568,0) +9999999.64 +"DATA",811.8,177,100,569,0) +ANTITHROMBOTIC NOT GIVEN(HOSP DAY2 END) +"DATA",811.8,177,100,570,0) +50061 +"DATA",811.8,177,100,571,0) +258736928 +"DATA",811.8,177,100,572,0) +NO +"DATA",811.8,177,100,573,0) + +"DATA",811.8,177,100,574,0) + +"DATA",811.8,177,100,581,0) + +"DATA",811.8,177,100,582,0) + +"DATA",811.8,177,100,583,0) + +"DATA",811.8,177,100,584,0) +HEALTH FACTORS +"DATA",811.8,177,100,585,0) +9999999.64 +"DATA",811.8,177,100,586,0) +ANTITHROMBOTIC GIVEN BY HOSP DAY2 END +"DATA",811.8,177,100,587,0) +50206 +"DATA",811.8,177,100,588,0) +3251081900 +"DATA",811.8,177,100,589,0) +NO +"DATA",811.8,177,100,590,0) + +"DATA",811.8,177,100,591,0) + +"DATA",811.8,177,100,598,0) + +"DATA",811.8,177,100,599,0) + +"DATA",811.8,177,100,600,0) + +"DATA",811.8,177,100,601,0) +HEALTH FACTORS +"DATA",811.8,177,100,602,0) +9999999.64 +"DATA",811.8,177,100,603,0) +ARRIVAL +"DATA",811.8,177,100,604,0) +50063 +"DATA",811.8,177,100,605,0) +3668375555 +"DATA",811.8,177,100,606,0) +NO +"DATA",811.8,177,100,607,0) + +"DATA",811.8,177,100,608,0) + +"DATA",811.8,177,100,615,0) + +"DATA",811.8,177,100,616,0) + +"DATA",811.8,177,100,617,0) + +"DATA",811.8,177,100,618,0) +HEALTH FACTORS +"DATA",811.8,177,100,619,0) +9999999.64 +"DATA",811.8,177,100,620,0) +LAST KNOWN WELL > 2H +"DATA",811.8,177,100,621,0) +50073 +"DATA",811.8,177,100,622,0) +2352775339 +"DATA",811.8,177,100,623,0) +NO +"DATA",811.8,177,100,624,0) + +"DATA",811.8,177,100,625,0) + 2H +"DATA",811.8,177,100,627,0) +9999999.64;+50073,;.03~MU STK +"DATA",811.8,177,100,628,0) +9999999.64;+50073,;.04~LKW>2H +"DATA",811.8,177,100,629,0) +9999999.64;+50073,;.08~YES +"DATA",811.8,177,100,630,0) +9999999.64;+50073,;.1~FACTOR +"DATA",811.8,177,100,631,0) +]]> +"DATA",811.8,177,100,632,0) + +"DATA",811.8,177,100,633,0) + +"DATA",811.8,177,100,634,0) + +"DATA",811.8,177,100,635,0) +HEALTH FACTORS +"DATA",811.8,177,100,636,0) +9999999.64 +"DATA",811.8,177,100,637,0) +THROMBOLYTIC IV THERAPY INITIATED <3H +"DATA",811.8,177,100,638,0) +50078 +"DATA",811.8,177,100,639,0) +96605916 +"DATA",811.8,177,100,640,0) +NO +"DATA",811.8,177,100,641,0) + +"DATA",811.8,177,100,642,0) + +"DATA",811.8,177,100,649,0) + +"DATA",811.8,177,100,650,0) + +"DATA",811.8,177,100,651,0) + +"DATA",811.8,177,100,652,0) +HEALTH FACTORS +"DATA",811.8,177,100,653,0) +9999999.64 +"DATA",811.8,177,100,654,0) +THROMBOLYTIC IV NOT INITIATED. REASON +"DATA",811.8,177,100,655,0) +50077 +"DATA",811.8,177,100,656,0) +4215951146 +"DATA",811.8,177,100,657,0) +NO +"DATA",811.8,177,100,658,0) + +"DATA",811.8,177,100,659,0) + +"DATA",811.8,177,100,666,0) + +"DATA",811.8,177,100,667,0) + +"DATA",811.8,177,100,668,0) + +"DATA",811.8,177,100,669,0) +HEALTH FACTORS +"DATA",811.8,177,100,670,0) +9999999.64 +"DATA",811.8,177,100,671,0) +LAST KNOWN WELL < 2H +"DATA",811.8,177,100,672,0) +50072 +"DATA",811.8,177,100,673,0) +2235324988 +"DATA",811.8,177,100,674,0) +NO +"DATA",811.8,177,100,675,0) + +"DATA",811.8,177,100,676,0) + +"DATA",811.8,177,100,683,0) + +"DATA",811.8,177,100,684,0) + +"DATA",811.8,177,100,685,0) + +"DATA",811.8,177,100,686,0) +HEALTH FACTORS +"DATA",811.8,177,100,687,0) +9999999.64 +"DATA",811.8,177,100,688,0) +ANTICOAGULATION THERAPY CAN'T BE GIVEN +"DATA",811.8,177,100,689,0) +50056 +"DATA",811.8,177,100,690,0) +2672973820 +"DATA",811.8,177,100,691,0) +NO +"DATA",811.8,177,100,692,0) + +"DATA",811.8,177,100,693,0) + +"DATA",811.8,177,100,700,0) + +"DATA",811.8,177,100,701,0) + +"DATA",811.8,177,100,702,0) + +"DATA",811.8,177,100,703,0) +HEALTH FACTORS +"DATA",811.8,177,100,704,0) +9999999.64 +"DATA",811.8,177,100,705,0) +ANTICOAGULATION THERAPY PRESCRIBED +"DATA",811.8,177,100,706,0) +50058 +"DATA",811.8,177,100,707,0) +4157731543 +"DATA",811.8,177,100,708,0) +NO +"DATA",811.8,177,100,709,0) + +"DATA",811.8,177,100,710,0) + +"DATA",811.8,177,100,717,0) + +"DATA",811.8,177,100,718,0) + +"DATA",811.8,177,100,719,0) + +"DATA",811.8,177,100,720,0) +HEALTH FACTORS +"DATA",811.8,177,100,721,0) +9999999.64 +"DATA",811.8,177,100,722,0) +ANTITHROMBOTIC NOT GIVEN AT DISCHARGE +"DATA",811.8,177,100,723,0) +50060 +"DATA",811.8,177,100,724,0) +1494926459 +"DATA",811.8,177,100,725,0) +NO +"DATA",811.8,177,100,726,0) + +"DATA",811.8,177,100,727,0) + +"DATA",811.8,177,100,734,0) + +"DATA",811.8,177,100,735,0) + +"DATA",811.8,177,100,736,0) + +"DATA",811.8,177,100,737,0) +HEALTH FACTORS +"DATA",811.8,177,100,738,0) +9999999.64 +"DATA",811.8,177,100,739,0) +ANTITHROMBOTIC THERAPY GIVEN AT DISCH +"DATA",811.8,177,100,740,0) +50062 +"DATA",811.8,177,100,741,0) +2153255037 +"DATA",811.8,177,100,742,0) +NO +"DATA",811.8,177,100,743,0) + +"DATA",811.8,177,100,744,0) + +"DATA",811.8,177,100,751,0) + +"DATA",811.8,177,100,752,0) + +"DATA",811.8,177,100,753,0) + +"DATA",811.8,177,100,754,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,177,100,755,0) +811.4 +"DATA",811.8,177,100,756,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,757,0) +94 +"DATA",811.8,177,100,758,0) +1608937132 +"DATA",811.8,177,100,759,0) +NO +"DATA",811.8,177,100,760,0) + +"DATA",811.8,177,100,761,0) + +"DATA",811.8,177,100,799,0) + +"DATA",811.8,177,100,800,0) + +"DATA",811.8,177,100,801,0) + +"DATA",811.8,177,100,804,0) + +"DATA",811.8,177,100,805,0) + +"DATA",811.8,177,100,806,0) + +"DATA",811.8,177,100,807,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,177,100,808,0) +811.4 +"DATA",811.8,177,100,809,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,810,0) +90 +"DATA",811.8,177,100,811,0) +1960922291 +"DATA",811.8,177,100,812,0) +NO +"DATA",811.8,177,100,813,0) + +"DATA",811.8,177,100,814,0) + +"DATA",811.8,177,100,855,0) + +"DATA",811.8,177,100,856,0) + +"DATA",811.8,177,100,857,0) + +"DATA",811.8,177,100,860,0) + +"DATA",811.8,177,100,861,0) + +"DATA",811.8,177,100,862,0) + +"DATA",811.8,177,100,863,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,864,0) +811.2 +"DATA",811.8,177,100,865,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,866,0) +122 +"DATA",811.8,177,100,867,0) +3882324901 +"DATA",811.8,177,100,868,0) +NO +"DATA",811.8,177,100,869,0) + +"DATA",811.8,177,100,870,0) + +"DATA",811.8,177,100,890,0) + +"DATA",811.8,177,100,891,0) + +"DATA",811.8,177,100,892,0) + +"DATA",811.8,177,100,898,0) + +"DATA",811.8,177,100,899,0) + +"DATA",811.8,177,100,900,0) + +"DATA",811.8,177,100,901,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,902,0) +811.2 +"DATA",811.8,177,100,903,0) +MU STK-8 DENOM INCLU TX +"DATA",811.8,177,100,904,0) +120 +"DATA",811.8,177,100,905,0) +3610401467 +"DATA",811.8,177,100,906,0) +NO +"DATA",811.8,177,100,907,0) + +"DATA",811.8,177,100,908,0) + +"DATA",811.8,177,100,969,0) + +"DATA",811.8,177,100,970,0) + +"DATA",811.8,177,100,971,0) + +"DATA",811.8,177,100,987,0) + +"DATA",811.8,177,100,988,0) + +"DATA",811.8,177,100,989,0) + +"DATA",811.8,177,100,990,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,991,0) +811.2 +"DATA",811.8,177,100,992,0) +MU STK-6 DENOM INCLU TX +"DATA",811.8,177,100,993,0) +121 +"DATA",811.8,177,100,994,0) +336592338 +"DATA",811.8,177,100,995,0) +NO +"DATA",811.8,177,100,996,0) + +"DATA",811.8,177,100,997,0) + +"DATA",811.8,177,100,1054,0) + +"DATA",811.8,177,100,1055,0) + +"DATA",811.8,177,100,1056,0) + +"DATA",811.8,177,100,1071,0) + +"DATA",811.8,177,100,1072,0) + +"DATA",811.8,177,100,1073,0) + +"DATA",811.8,177,100,1074,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1075,0) +811.2 +"DATA",811.8,177,100,1076,0) +MU STK-5 DENOM INCLU TX +"DATA",811.8,177,100,1077,0) +123 +"DATA",811.8,177,100,1078,0) +1314163667 +"DATA",811.8,177,100,1079,0) +NO +"DATA",811.8,177,100,1080,0) + +"DATA",811.8,177,100,1081,0) + +"DATA",811.8,177,100,1137,0) + +"DATA",811.8,177,100,1138,0) + +"DATA",811.8,177,100,1139,0) + +"DATA",811.8,177,100,1154,0) + +"DATA",811.8,177,100,1155,0) + +"DATA",811.8,177,100,1156,0) + +"DATA",811.8,177,100,1157,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1158,0) +811.2 +"DATA",811.8,177,100,1159,0) +MU STK-4 DENOM INCLU TX +"DATA",811.8,177,100,1160,0) +124 +"DATA",811.8,177,100,1161,0) +2004493598 +"DATA",811.8,177,100,1162,0) +NO +"DATA",811.8,177,100,1163,0) + +"DATA",811.8,177,100,1164,0) + +"DATA",811.8,177,100,1221,0) + +"DATA",811.8,177,100,1222,0) + +"DATA",811.8,177,100,1223,0) + +"DATA",811.8,177,100,1238,0) + +"DATA",811.8,177,100,1239,0) + +"DATA",811.8,177,100,1240,0) + +"DATA",811.8,177,100,1241,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1242,0) +811.2 +"DATA",811.8,177,100,1243,0) +MU STK-3 DENOM INCLU AT FIB/FL TX +"DATA",811.8,177,100,1244,0) +213 +"DATA",811.8,177,100,1245,0) +21988516 +"DATA",811.8,177,100,1246,0) +NO +"DATA",811.8,177,100,1247,0) + +"DATA",811.8,177,100,1248,0) + +"DATA",811.8,177,100,1260,0) + +"DATA",811.8,177,100,1261,0) + +"DATA",811.8,177,100,1262,0) + +"DATA",811.8,177,100,1266,0) + +"DATA",811.8,177,100,1267,0) + +"DATA",811.8,177,100,1268,0) + +"DATA",811.8,177,100,1269,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1270,0) +811.2 +"DATA",811.8,177,100,1271,0) +MU STK-3 DENOM INCLU TX +"DATA",811.8,177,100,1272,0) +144 +"DATA",811.8,177,100,1273,0) +2852347166 +"DATA",811.8,177,100,1274,0) +NO +"DATA",811.8,177,100,1275,0) + +"DATA",811.8,177,100,1276,0) + +"DATA",811.8,177,100,1353,0) + +"DATA",811.8,177,100,1354,0) + +"DATA",811.8,177,100,1355,0) + +"DATA",811.8,177,100,1384,0) + +"DATA",811.8,177,100,1385,0) + +"DATA",811.8,177,100,1386,0) + +"DATA",811.8,177,100,1387,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1388,0) +811.2 +"DATA",811.8,177,100,1389,0) +MU STK-2 DENOM INCLU TX +"DATA",811.8,177,100,1390,0) +146 +"DATA",811.8,177,100,1391,0) +3538177098 +"DATA",811.8,177,100,1392,0) +NO +"DATA",811.8,177,100,1393,0) + +"DATA",811.8,177,100,1394,0) + +"DATA",811.8,177,100,1451,0) + +"DATA",811.8,177,100,1452,0) + +"DATA",811.8,177,100,1453,0) + +"DATA",811.8,177,100,1468,0) + +"DATA",811.8,177,100,1469,0) + +"DATA",811.8,177,100,1470,0) + +"DATA",811.8,177,100,1471,0) +REMINDER TERM +"DATA",811.8,177,100,1472,0) +811.5 +"DATA",811.8,177,100,1473,0) +MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,1474,0) +729 +"DATA",811.8,177,100,1475,0) +3422916630 +"DATA",811.8,177,100,1476,0) +NO +"DATA",811.8,177,100,1477,0) + +"DATA",811.8,177,100,1478,0) + +"DATA",811.8,177,100,1489,0) + +"DATA",811.8,177,100,1490,0) + +"DATA",811.8,177,100,1491,0) + +"DATA",811.8,177,100,1495,0) + +"DATA",811.8,177,100,1496,0) + +"DATA",811.8,177,100,1497,0) + +"DATA",811.8,177,100,1498,0) +REMINDER TERM +"DATA",811.8,177,100,1499,0) +811.5 +"DATA",811.8,177,100,1500,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,1501,0) +688 +"DATA",811.8,177,100,1502,0) +1255054350 +"DATA",811.8,177,100,1503,0) +NO +"DATA",811.8,177,100,1504,0) + +"DATA",811.8,177,100,1505,0) + +"DATA",811.8,177,100,1516,0) + +"DATA",811.8,177,100,1517,0) + +"DATA",811.8,177,100,1518,0) + +"DATA",811.8,177,100,1522,0) + +"DATA",811.8,177,100,1523,0) + +"DATA",811.8,177,100,1524,0) + +"DATA",811.8,177,100,1525,0) +REMINDER TERM +"DATA",811.8,177,100,1526,0) +811.5 +"DATA",811.8,177,100,1527,0) +MU DISCHARGE DEATH +"DATA",811.8,177,100,1528,0) +685 +"DATA",811.8,177,100,1529,0) +536067863 +"DATA",811.8,177,100,1530,0) +NO +"DATA",811.8,177,100,1531,0) + +"DATA",811.8,177,100,1532,0) + +"DATA",811.8,177,100,1543,0) + +"DATA",811.8,177,100,1544,0) + +"DATA",811.8,177,100,1545,0) + +"DATA",811.8,177,100,1549,0) + +"DATA",811.8,177,100,1550,0) + +"DATA",811.8,177,100,1551,0) + +"DATA",811.8,177,100,1552,0) +REMINDER TERM +"DATA",811.8,177,100,1553,0) +811.5 +"DATA",811.8,177,100,1554,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,1555,0) +684 +"DATA",811.8,177,100,1556,0) +1819822144 +"DATA",811.8,177,100,1557,0) +NO +"DATA",811.8,177,100,1558,0) + +"DATA",811.8,177,100,1559,0) + +"DATA",811.8,177,100,1570,0) + +"DATA",811.8,177,100,1571,0) + +"DATA",811.8,177,100,1572,0) + +"DATA",811.8,177,100,1576,0) + +"DATA",811.8,177,100,1577,0) + +"DATA",811.8,177,100,1578,0) + +"DATA",811.8,177,100,1579,0) +REMINDER TERM +"DATA",811.8,177,100,1580,0) +811.5 +"DATA",811.8,177,100,1581,0) +MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,1582,0) +675 +"DATA",811.8,177,100,1583,0) +1839453929 +"DATA",811.8,177,100,1584,0) +NO +"DATA",811.8,177,100,1585,0) + +"DATA",811.8,177,100,1586,0) + +"DATA",811.8,177,100,1597,0) + +"DATA",811.8,177,100,1598,0) + +"DATA",811.8,177,100,1599,0) + +"DATA",811.8,177,100,1603,0) + +"DATA",811.8,177,100,1604,0) + +"DATA",811.8,177,100,1605,0) + +"DATA",811.8,177,100,1606,0) +REMINDER TERM +"DATA",811.8,177,100,1607,0) +811.5 +"DATA",811.8,177,100,1608,0) +MU STK-8 DENOM EXCLU TRM +"DATA",811.8,177,100,1609,0) +543 +"DATA",811.8,177,100,1610,0) +1459727918 +"DATA",811.8,177,100,1611,0) +NO +"DATA",811.8,177,100,1612,0) + +"DATA",811.8,177,100,1613,0) + +"DATA",811.8,177,100,1626,0) + +"DATA",811.8,177,100,1627,0) + +"DATA",811.8,177,100,1628,0) + +"DATA",811.8,177,100,1635,0) + +"DATA",811.8,177,100,1636,0) + +"DATA",811.8,177,100,1637,0) + +"DATA",811.8,177,100,1638,0) +REMINDER TERM +"DATA",811.8,177,100,1639,0) +811.5 +"DATA",811.8,177,100,1640,0) +MU STK-10 NUMER INCLU TRM +"DATA",811.8,177,100,1641,0) +736 +"DATA",811.8,177,100,1642,0) +3597923117 +"DATA",811.8,177,100,1643,0) +NO +"DATA",811.8,177,100,1644,0) + +"DATA",811.8,177,100,1645,0) + +"DATA",811.8,177,100,1653,0) + +"DATA",811.8,177,100,1654,0) + +"DATA",811.8,177,100,1655,0) + +"DATA",811.8,177,100,1659,0) + +"DATA",811.8,177,100,1660,0) + +"DATA",811.8,177,100,1661,0) + +"DATA",811.8,177,100,1662,0) +REMINDER TERM +"DATA",811.8,177,100,1663,0) +811.5 +"DATA",811.8,177,100,1664,0) +MU DISCHARGED COURT/LAW +"DATA",811.8,177,100,1665,0) +674 +"DATA",811.8,177,100,1666,0) +1301941291 +"DATA",811.8,177,100,1667,0) +NO +"DATA",811.8,177,100,1668,0) + +"DATA",811.8,177,100,1669,0) + +"DATA",811.8,177,100,1680,0) + +"DATA",811.8,177,100,1681,0) + +"DATA",811.8,177,100,1682,0) + +"DATA",811.8,177,100,1686,0) + +"DATA",811.8,177,100,1687,0) + +"DATA",811.8,177,100,1688,0) + +"DATA",811.8,177,100,1689,0) +REMINDER TERM +"DATA",811.8,177,100,1690,0) +811.5 +"DATA",811.8,177,100,1691,0) +MU DISCHARGED HOME +"DATA",811.8,177,100,1692,0) +673 +"DATA",811.8,177,100,1693,0) +2743717861 +"DATA",811.8,177,100,1694,0) +NO +"DATA",811.8,177,100,1695,0) + +"DATA",811.8,177,100,1696,0) + +"DATA",811.8,177,100,1707,0) + +"DATA",811.8,177,100,1708,0) + +"DATA",811.8,177,100,1709,0) + +"DATA",811.8,177,100,1713,0) + +"DATA",811.8,177,100,1714,0) + +"DATA",811.8,177,100,1715,0) + +"DATA",811.8,177,100,1716,0) +REMINDER TERM +"DATA",811.8,177,100,1717,0) +811.5 +"DATA",811.8,177,100,1718,0) +MU STK-8 NUMER INCLU EMS TRM +"DATA",811.8,177,100,1719,0) +540 +"DATA",811.8,177,100,1720,0) +2550873597 +"DATA",811.8,177,100,1721,0) +NO +"DATA",811.8,177,100,1722,0) + +"DATA",811.8,177,100,1723,0) + +"DATA",811.8,177,100,1731,0) + +"DATA",811.8,177,100,1732,0) + +"DATA",811.8,177,100,1733,0) + +"DATA",811.8,177,100,1737,0) + +"DATA",811.8,177,100,1738,0) + +"DATA",811.8,177,100,1739,0) + +"DATA",811.8,177,100,1740,0) +REMINDER TERM +"DATA",811.8,177,100,1741,0) +811.5 +"DATA",811.8,177,100,1742,0) +MU STK-8 NUMER INCLU FOLLOW-UP TRM +"DATA",811.8,177,100,1743,0) +538 +"DATA",811.8,177,100,1744,0) +3614554001 +"DATA",811.8,177,100,1745,0) +NO +"DATA",811.8,177,100,1746,0) + +"DATA",811.8,177,100,1747,0) + +"DATA",811.8,177,100,1755,0) + +"DATA",811.8,177,100,1756,0) + +"DATA",811.8,177,100,1757,0) + +"DATA",811.8,177,100,1761,0) + +"DATA",811.8,177,100,1762,0) + +"DATA",811.8,177,100,1763,0) + +"DATA",811.8,177,100,1764,0) +REMINDER TERM +"DATA",811.8,177,100,1765,0) +811.5 +"DATA",811.8,177,100,1766,0) +MU STK-8 NUMER INCLU MED TRM +"DATA",811.8,177,100,1767,0) +537 +"DATA",811.8,177,100,1768,0) +3120744118 +"DATA",811.8,177,100,1769,0) +NO +"DATA",811.8,177,100,1770,0) + +"DATA",811.8,177,100,1771,0) + +"DATA",811.8,177,100,1779,0) + +"DATA",811.8,177,100,1780,0) + +"DATA",811.8,177,100,1781,0) + +"DATA",811.8,177,100,1785,0) + +"DATA",811.8,177,100,1786,0) + +"DATA",811.8,177,100,1787,0) + +"DATA",811.8,177,100,1788,0) +REMINDER TERM +"DATA",811.8,177,100,1789,0) +811.5 +"DATA",811.8,177,100,1790,0) +MU STK-8 NUMER INCLU RISK TRM +"DATA",811.8,177,100,1791,0) +536 +"DATA",811.8,177,100,1792,0) +3486940289 +"DATA",811.8,177,100,1793,0) +NO +"DATA",811.8,177,100,1794,0) + +"DATA",811.8,177,100,1795,0) + +"DATA",811.8,177,100,1803,0) + +"DATA",811.8,177,100,1804,0) + +"DATA",811.8,177,100,1805,0) + +"DATA",811.8,177,100,1809,0) + +"DATA",811.8,177,100,1810,0) + +"DATA",811.8,177,100,1811,0) + +"DATA",811.8,177,100,1812,0) +REMINDER TERM +"DATA",811.8,177,100,1813,0) +811.5 +"DATA",811.8,177,100,1814,0) +MU STK-8 NUMER INCLU WARNING SIGN/SY TRM +"DATA",811.8,177,100,1815,0) +533 +"DATA",811.8,177,100,1816,0) +3232873249 +"DATA",811.8,177,100,1817,0) +NO +"DATA",811.8,177,100,1818,0) + +"DATA",811.8,177,100,1819,0) + +"DATA",811.8,177,100,1827,0) + +"DATA",811.8,177,100,1828,0) + +"DATA",811.8,177,100,1829,0) + +"DATA",811.8,177,100,1833,0) + +"DATA",811.8,177,100,1834,0) + +"DATA",811.8,177,100,1835,0) + +"DATA",811.8,177,100,1836,0) +REMINDER TERM +"DATA",811.8,177,100,1837,0) +811.5 +"DATA",811.8,177,100,1838,0) +MU STK-6 DENOM INCLU LAB>=100 +"DATA",811.8,177,100,1839,0) +557 +"DATA",811.8,177,100,1840,0) +3302260757 +"DATA",811.8,177,100,1841,0) +NO +"DATA",811.8,177,100,1842,0) + +"DATA",811.8,177,100,1843,0) +=100 +"DATA",811.8,177,100,1845,0) +811.5;+557,;100~LOCAL +"DATA",811.8,177,100,1846,0) +811.52;+558,+557,;.01~LT.LDL CHOLESTEROL +"DATA",811.8,177,100,1847,0) +811.52;+558,+557,;14~I V>99 +"DATA",811.8,177,100,1848,0) +811.52;+558,+557,;17~1 +"DATA",811.8,177,100,1849,0) +811.52;+558,+557,;22~I V>99 +"DATA",811.8,177,100,1850,0) +811.52;+559,+557,;.01~HF.LDL 100 OR ABOVE +"DATA",811.8,177,100,1851,0) +811.52;+560,+557,;.01~HF.LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,1852,0) +811.53;+561,+557,;.01~07/18/2012@10:34:37 +"DATA",811.8,177,100,1853,0) +811.53;+561,+557,;2~WP-start~1 +"DATA",811.8,177,100,1854,0) +Exchange Stub +"DATA",811.8,177,100,1855,0) +]]> +"DATA",811.8,177,100,1856,0) + +"DATA",811.8,177,100,1857,0) + +"DATA",811.8,177,100,1858,0) + +"DATA",811.8,177,100,1864,0) + +"DATA",811.8,177,100,1865,0) + +"DATA",811.8,177,100,1866,0) + +"DATA",811.8,177,100,1867,0) +REMINDER TERM +"DATA",811.8,177,100,1868,0) +811.5 +"DATA",811.8,177,100,1869,0) +MU STK-6 DENOM INCLU DRUG TRM +"DATA",811.8,177,100,1870,0) +556 +"DATA",811.8,177,100,1871,0) +2232999810 +"DATA",811.8,177,100,1872,0) +NO +"DATA",811.8,177,100,1873,0) + +"DATA",811.8,177,100,1874,0) + +"DATA",811.8,177,100,1884,0) + +"DATA",811.8,177,100,1885,0) + +"DATA",811.8,177,100,1886,0) + +"DATA",811.8,177,100,1892,0) + +"DATA",811.8,177,100,1893,0) + +"DATA",811.8,177,100,1894,0) + +"DATA",811.8,177,100,1895,0) +REMINDER TERM +"DATA",811.8,177,100,1896,0) +811.5 +"DATA",811.8,177,100,1897,0) +MU STK-6 DENOM INCLU LAB TRM +"DATA",811.8,177,100,1898,0) +554 +"DATA",811.8,177,100,1899,0) +2815214583 +"DATA",811.8,177,100,1900,0) +NO +"DATA",811.8,177,100,1901,0) + +"DATA",811.8,177,100,1902,0) + +"DATA",811.8,177,100,1910,0) + +"DATA",811.8,177,100,1911,0) + +"DATA",811.8,177,100,1912,0) + +"DATA",811.8,177,100,1916,0) + +"DATA",811.8,177,100,1917,0) + +"DATA",811.8,177,100,1918,0) + +"DATA",811.8,177,100,1919,0) +REMINDER TERM +"DATA",811.8,177,100,1920,0) +811.5 +"DATA",811.8,177,100,1921,0) +MU STK-6 DENOM INCLU LAB<100 TRM +"DATA",811.8,177,100,1922,0) +553 +"DATA",811.8,177,100,1923,0) +3862626982 +"DATA",811.8,177,100,1924,0) +NO +"DATA",811.8,177,100,1925,0) + +"DATA",811.8,177,100,1926,0) + +"DATA",811.8,177,100,1936,0) + +"DATA",811.8,177,100,1937,0) + +"DATA",811.8,177,100,1938,0) + +"DATA",811.8,177,100,1942,0) + +"DATA",811.8,177,100,1943,0) + +"DATA",811.8,177,100,1944,0) + +"DATA",811.8,177,100,1945,0) +REMINDER TERM +"DATA",811.8,177,100,1946,0) +811.5 +"DATA",811.8,177,100,1947,0) +MU STK-6 DENOM EXCLU TRM +"DATA",811.8,177,100,1948,0) +544 +"DATA",811.8,177,100,1949,0) +1237097076 +"DATA",811.8,177,100,1950,0) +NO +"DATA",811.8,177,100,1951,0) + +"DATA",811.8,177,100,1952,0) + +"DATA",811.8,177,100,1966,0) + +"DATA",811.8,177,100,1967,0) + +"DATA",811.8,177,100,1968,0) + +"DATA",811.8,177,100,1976,0) + +"DATA",811.8,177,100,1977,0) + +"DATA",811.8,177,100,1978,0) + +"DATA",811.8,177,100,1979,0) +REMINDER TERM +"DATA",811.8,177,100,1980,0) +811.5 +"DATA",811.8,177,100,1981,0) +MU STK-6 NUMER INCLU DRUG +"DATA",811.8,177,100,1982,0) +735 +"DATA",811.8,177,100,1983,0) +2841598559 +"DATA",811.8,177,100,1984,0) +NO +"DATA",811.8,177,100,1985,0) + +"DATA",811.8,177,100,1986,0) + +"DATA",811.8,177,100,1994,0) + +"DATA",811.8,177,100,1995,0) + +"DATA",811.8,177,100,1996,0) + +"DATA",811.8,177,100,2000,0) + +"DATA",811.8,177,100,2001,0) + +"DATA",811.8,177,100,2002,0) + +"DATA",811.8,177,100,2003,0) +REMINDER TERM +"DATA",811.8,177,100,2004,0) +811.5 +"DATA",811.8,177,100,2005,0) +MU STK-5 DENOM EXCLU T-PA TRM +"DATA",811.8,177,100,2006,0) +575 +"DATA",811.8,177,100,2007,0) +1911213661 +"DATA",811.8,177,100,2008,0) +NO +"DATA",811.8,177,100,2009,0) + +"DATA",811.8,177,100,2010,0) + +"DATA",811.8,177,100,2019,0) + +"DATA",811.8,177,100,2020,0) + +"DATA",811.8,177,100,2021,0) + +"DATA",811.8,177,100,2026,0) + +"DATA",811.8,177,100,2027,0) + +"DATA",811.8,177,100,2028,0) + +"DATA",811.8,177,100,2029,0) +REMINDER TERM +"DATA",811.8,177,100,2030,0) +811.5 +"DATA",811.8,177,100,2031,0) +MU STK-5 DENOM EXCLU TRM +"DATA",811.8,177,100,2032,0) +560 +"DATA",811.8,177,100,2033,0) +4115852591 +"DATA",811.8,177,100,2034,0) +NO +"DATA",811.8,177,100,2035,0) + +"DATA",811.8,177,100,2036,0) + +"DATA",811.8,177,100,2055,0) + +"DATA",811.8,177,100,2056,0) + +"DATA",811.8,177,100,2057,0) + +"DATA",811.8,177,100,2070,0) + +"DATA",811.8,177,100,2071,0) + +"DATA",811.8,177,100,2072,0) + +"DATA",811.8,177,100,2073,0) +REMINDER TERM +"DATA",811.8,177,100,2074,0) +811.5 +"DATA",811.8,177,100,2075,0) +MU STK-5 NUMER INCLU TRM +"DATA",811.8,177,100,2076,0) +558 +"DATA",811.8,177,100,2077,0) +1988107668 +"DATA",811.8,177,100,2078,0) +NO +"DATA",811.8,177,100,2079,0) + +"DATA",811.8,177,100,2080,0) + +"DATA",811.8,177,100,2089,0) + +"DATA",811.8,177,100,2090,0) + +"DATA",811.8,177,100,2091,0) + +"DATA",811.8,177,100,2096,0) + +"DATA",811.8,177,100,2097,0) + +"DATA",811.8,177,100,2098,0) + +"DATA",811.8,177,100,2099,0) +REMINDER TERM +"DATA",811.8,177,100,2100,0) +811.5 +"DATA",811.8,177,100,2101,0) +MU STK-4 DENOM ARRIVAL HF +"DATA",811.8,177,100,2102,0) +733 +"DATA",811.8,177,100,2103,0) +1730002429 +"DATA",811.8,177,100,2104,0) +NO +"DATA",811.8,177,100,2105,0) + +"DATA",811.8,177,100,2106,0) + +"DATA",811.8,177,100,2114,0) + +"DATA",811.8,177,100,2115,0) + +"DATA",811.8,177,100,2116,0) + +"DATA",811.8,177,100,2120,0) + +"DATA",811.8,177,100,2121,0) + +"DATA",811.8,177,100,2122,0) + +"DATA",811.8,177,100,2123,0) +REMINDER TERM +"DATA",811.8,177,100,2124,0) +811.5 +"DATA",811.8,177,100,2125,0) +MU STK-4 DENOM EXCLU HF>2H +"DATA",811.8,177,100,2126,0) +732 +"DATA",811.8,177,100,2127,0) +3727629332 +"DATA",811.8,177,100,2128,0) +NO +"DATA",811.8,177,100,2129,0) + +"DATA",811.8,177,100,2130,0) +2H +"DATA",811.8,177,100,2132,0) +811.5;+732,;100~LOCAL +"DATA",811.8,177,100,2133,0) +811.52;+733,+732,;.01~HF.LAST KNOWN WELL > 2H +"DATA",811.8,177,100,2134,0) +811.53;+734,+732,;.01~07/18/2012@10:34:38 +"DATA",811.8,177,100,2135,0) +811.53;+734,+732,;2~WP-start~1 +"DATA",811.8,177,100,2136,0) +Exchange Stub +"DATA",811.8,177,100,2137,0) +]]> +"DATA",811.8,177,100,2138,0) + +"DATA",811.8,177,100,2139,0) + +"DATA",811.8,177,100,2140,0) + +"DATA",811.8,177,100,2144,0) + +"DATA",811.8,177,100,2145,0) + +"DATA",811.8,177,100,2146,0) + +"DATA",811.8,177,100,2147,0) +REMINDER TERM +"DATA",811.8,177,100,2148,0) +811.5 +"DATA",811.8,177,100,2149,0) +MU ADMISSION EMERGENCY RT +"DATA",811.8,177,100,2150,0) +731 +"DATA",811.8,177,100,2151,0) +1925315236 +"DATA",811.8,177,100,2152,0) +NO +"DATA",811.8,177,100,2153,0) + +"DATA",811.8,177,100,2154,0) + +"DATA",811.8,177,100,2164,0) + +"DATA",811.8,177,100,2165,0) + +"DATA",811.8,177,100,2166,0) + +"DATA",811.8,177,100,2170,0) + +"DATA",811.8,177,100,2171,0) + +"DATA",811.8,177,100,2172,0) + +"DATA",811.8,177,100,2173,0) +REMINDER TERM +"DATA",811.8,177,100,2174,0) +811.5 +"DATA",811.8,177,100,2175,0) +MU STK-4 NUMER INCLU TRM +"DATA",811.8,177,100,2176,0) +616 +"DATA",811.8,177,100,2177,0) +2614590554 +"DATA",811.8,177,100,2178,0) +NO +"DATA",811.8,177,100,2179,0) + +"DATA",811.8,177,100,2180,0) + +"DATA",811.8,177,100,2189,0) + +"DATA",811.8,177,100,2190,0) + +"DATA",811.8,177,100,2191,0) + +"DATA",811.8,177,100,2196,0) + +"DATA",811.8,177,100,2197,0) + +"DATA",811.8,177,100,2198,0) + +"DATA",811.8,177,100,2199,0) +REMINDER TERM +"DATA",811.8,177,100,2200,0) +811.5 +"DATA",811.8,177,100,2201,0) +MU STK-4 DENOM EXCLU TRM +"DATA",811.8,177,100,2202,0) +615 +"DATA",811.8,177,100,2203,0) +3119065295 +"DATA",811.8,177,100,2204,0) +NO +"DATA",811.8,177,100,2205,0) + +"DATA",811.8,177,100,2206,0) + 2H +"DATA",811.8,177,100,2213,0) +811.52;+618,+615,;.01~HF.ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,2214,0) +811.52;+619,+615,;.01~HF.ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,2215,0) +811.53;+620,+615,;.01~07/18/2012@10:34:38 +"DATA",811.8,177,100,2216,0) +811.53;+620,+615,;2~WP-start~1 +"DATA",811.8,177,100,2217,0) +Exchange Stub +"DATA",811.8,177,100,2218,0) +]]> +"DATA",811.8,177,100,2219,0) + +"DATA",811.8,177,100,2220,0) + +"DATA",811.8,177,100,2221,0) + +"DATA",811.8,177,100,2228,0) + +"DATA",811.8,177,100,2229,0) + +"DATA",811.8,177,100,2230,0) + +"DATA",811.8,177,100,2231,0) +REMINDER TERM +"DATA",811.8,177,100,2232,0) +811.5 +"DATA",811.8,177,100,2233,0) +MU STK-4 DENOM INC HF<2H +"DATA",811.8,177,100,2234,0) +576 +"DATA",811.8,177,100,2235,0) +3508683479 +"DATA",811.8,177,100,2236,0) +NO +"DATA",811.8,177,100,2237,0) + +"DATA",811.8,177,100,2238,0) + +"DATA",811.8,177,100,2248,0) + +"DATA",811.8,177,100,2249,0) + +"DATA",811.8,177,100,2250,0) + +"DATA",811.8,177,100,2254,0) + +"DATA",811.8,177,100,2255,0) + +"DATA",811.8,177,100,2256,0) + +"DATA",811.8,177,100,2257,0) +REMINDER TERM +"DATA",811.8,177,100,2258,0) +811.5 +"DATA",811.8,177,100,2259,0) +MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,177,100,2260,0) +660 +"DATA",811.8,177,100,2261,0) +1258096799 +"DATA",811.8,177,100,2262,0) +NO +"DATA",811.8,177,100,2263,0) + +"DATA",811.8,177,100,2264,0) + +"DATA",811.8,177,100,2275,0) + +"DATA",811.8,177,100,2276,0) + +"DATA",811.8,177,100,2277,0) + +"DATA",811.8,177,100,2281,0) + +"DATA",811.8,177,100,2282,0) + +"DATA",811.8,177,100,2283,0) + +"DATA",811.8,177,100,2284,0) +REMINDER TERM +"DATA",811.8,177,100,2285,0) +811.5 +"DATA",811.8,177,100,2286,0) +MU STK-3 DENOM EXCLU TRM +"DATA",811.8,177,100,2287,0) +621 +"DATA",811.8,177,100,2288,0) +4208060120 +"DATA",811.8,177,100,2289,0) +NO +"DATA",811.8,177,100,2290,0) + +"DATA",811.8,177,100,2291,0) + +"DATA",811.8,177,100,2304,0) + +"DATA",811.8,177,100,2305,0) + +"DATA",811.8,177,100,2306,0) + +"DATA",811.8,177,100,2313,0) + +"DATA",811.8,177,100,2314,0) + +"DATA",811.8,177,100,2315,0) + +"DATA",811.8,177,100,2316,0) +REMINDER TERM +"DATA",811.8,177,100,2317,0) +811.5 +"DATA",811.8,177,100,2318,0) +MU STK-3 NUMER INCLU TRM +"DATA",811.8,177,100,2319,0) +622 +"DATA",811.8,177,100,2320,0) +1707257158 +"DATA",811.8,177,100,2321,0) +NO +"DATA",811.8,177,100,2322,0) + +"DATA",811.8,177,100,2323,0) + +"DATA",811.8,177,100,2334,0) + +"DATA",811.8,177,100,2335,0) + +"DATA",811.8,177,100,2336,0) + +"DATA",811.8,177,100,2343,0) + +"DATA",811.8,177,100,2344,0) + +"DATA",811.8,177,100,2345,0) + +"DATA",811.8,177,100,2346,0) +REMINDER TERM +"DATA",811.8,177,100,2347,0) +811.5 +"DATA",811.8,177,100,2348,0) +MU STK-2 DENOM EXCLU TRM +"DATA",811.8,177,100,2349,0) +652 +"DATA",811.8,177,100,2350,0) +706072082 +"DATA",811.8,177,100,2351,0) +NO +"DATA",811.8,177,100,2352,0) + +"DATA",811.8,177,100,2353,0) + +"DATA",811.8,177,100,2366,0) + +"DATA",811.8,177,100,2367,0) + +"DATA",811.8,177,100,2368,0) + +"DATA",811.8,177,100,2375,0) + +"DATA",811.8,177,100,2376,0) + +"DATA",811.8,177,100,2377,0) + +"DATA",811.8,177,100,2378,0) +REMINDER TERM +"DATA",811.8,177,100,2379,0) +811.5 +"DATA",811.8,177,100,2380,0) +MU STK-2 NUMER INCLU TRM +"DATA",811.8,177,100,2381,0) +734 +"DATA",811.8,177,100,2382,0) +1179920368 +"DATA",811.8,177,100,2383,0) +NO +"DATA",811.8,177,100,2384,0) + +"DATA",811.8,177,100,2385,0) + +"DATA",811.8,177,100,2399,0) + +"DATA",811.8,177,100,2400,0) + +"DATA",811.8,177,100,2401,0) + +"DATA",811.8,177,100,2409,0) + +"DATA",811.8,177,100,2410,0) + +"DATA",811.8,177,100,2411,0) + +"DATA",811.8,177,100,2412,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2413,0) +811.9 +"DATA",811.8,177,100,2414,0) +MU STK-10 DENOM CR +"DATA",811.8,177,100,2415,0) +241 +"DATA",811.8,177,100,2416,0) +1212364542 +"DATA",811.8,177,100,2417,0) +NO +"DATA",811.8,177,100,2418,0) + +"DATA",811.8,177,100,2419,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,2557,0) + +"DATA",811.8,177,100,2558,0) + +"DATA",811.8,177,100,2559,0) + +"DATA",811.8,177,100,2604,0) + +"DATA",811.8,177,100,2605,0) + +"DATA",811.8,177,100,2606,0) + +"DATA",811.8,177,100,2607,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2608,0) +811.9 +"DATA",811.8,177,100,2609,0) +MU STK-10 NUMER CR +"DATA",811.8,177,100,2610,0) +242 +"DATA",811.8,177,100,2611,0) +1119886564 +"DATA",811.8,177,100,2612,0) +NO +"DATA",811.8,177,100,2613,0) + +"DATA",811.8,177,100,2614,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,2755,0) + +"DATA",811.8,177,100,2756,0) + +"DATA",811.8,177,100,2757,0) + +"DATA",811.8,177,100,2803,0) + +"DATA",811.8,177,100,2804,0) + +"DATA",811.8,177,100,2805,0) + +"DATA",811.8,177,100,2806,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2807,0) +811.9 +"DATA",811.8,177,100,2808,0) +MU STK-8 DENOM CR +"DATA",811.8,177,100,2809,0) +193 +"DATA",811.8,177,100,2810,0) +3528780773 +"DATA",811.8,177,100,2811,0) +NO +"DATA",811.8,177,100,2812,0) + +"DATA",811.8,177,100,2813,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,2942,0) + +"DATA",811.8,177,100,2943,0) + +"DATA",811.8,177,100,2944,0) + +"DATA",811.8,177,100,2986,0) + +"DATA",811.8,177,100,2987,0) + +"DATA",811.8,177,100,2988,0) + +"DATA",811.8,177,100,2989,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2990,0) +811.9 +"DATA",811.8,177,100,2991,0) +MU STK-8 NUMER CR +"DATA",811.8,177,100,2992,0) +240 +"DATA",811.8,177,100,2993,0) +1879819296 +"DATA",811.8,177,100,2994,0) +NO +"DATA",811.8,177,100,2995,0) + +"DATA",811.8,177,100,2996,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,3140,0) + +"DATA",811.8,177,100,3141,0) + +"DATA",811.8,177,100,3142,0) + +"DATA",811.8,177,100,3189,0) + +"DATA",811.8,177,100,3190,0) + +"DATA",811.8,177,100,3191,0) + +"DATA",811.8,177,100,3192,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3193,0) +811.9 +"DATA",811.8,177,100,3194,0) +MU STK-6 DENOM CR +"DATA",811.8,177,100,3195,0) +195 +"DATA",811.8,177,100,3196,0) +1268617803 +"DATA",811.8,177,100,3197,0) +NO +"DATA",811.8,177,100,3198,0) + +"DATA",811.8,177,100,3199,0) + 18y +"DATA",811.8,177,100,3204,0) +LOS <=120 DAYS +"DATA",811.8,177,100,3205,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,3206,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,3207,0) +EX PT ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3208,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,3209,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,3210,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,3211,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,3212,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3213,0) +EX PT WITH A REASON FOR NOT PRESCRIBING STATIN MEDICATION AT DISCHARGE +"DATA",811.8,177,100,3214,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,3215,0) +Patients who were on a lipid lowering medication prior to hospital arrival +"DATA",811.8,177,100,3216,0) +Patients with LDL-c not measured +"DATA",811.8,177,100,3217,0) +Patients with LDL-c Greater than or equal to 100mg/dl +"DATA",811.8,177,100,3218,0) +811.9;+195,;30~(AGE)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3219,0) +811.9;+195,;31~(AGE)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3220,0) +811.9;+195,;32~11 +"DATA",811.8,177,100,3221,0) +811.9;+195,;33~AGE;1;7;6;13;14;15;16;17;3;2 +"DATA",811.8,177,100,3222,0) +811.9;+195,;36~0 +"DATA",811.8,177,100,3223,0) +811.9;+195,;40~0 +"DATA",811.8,177,100,3224,0) +811.9;+195,;42~8 +"DATA",811.8,177,100,3225,0) +811.9;+195,;43~4;5;8;9;11;FF1;FF2;FF3 +"DATA",811.8,177,100,3226,0) +811.9;+195,;60~WP-start~1 +"DATA",811.8,177,100,3227,0) + ^ +"DATA",811.8,177,100,3228,0) +811.9;+195,;62~1 +"DATA",811.8,177,100,3229,0) +811.9;+195,;63~0 +"DATA",811.8,177,100,3230,0) +811.9;+195,;67~0 +"DATA",811.8,177,100,3231,0) +811.9;+195,;68~0 +"DATA",811.8,177,100,3232,0) +811.9;+195,;71~WP-start~1 +"DATA",811.8,177,100,3233,0) + +"DATA",811.8,177,100,3234,0) +811.9;+195,;72~0 +"DATA",811.8,177,100,3235,0) +811.9;+195,;73~1 +"DATA",811.8,177,100,3236,0) +811.9;+195,;77~0 +"DATA",811.8,177,100,3237,0) +811.9;+195,;78~0 +"DATA",811.8,177,100,3238,0) +811.9;+195,;100~LOCAL +"DATA",811.8,177,100,3239,0) +811.9;+195,;103~L +"DATA",811.8,177,100,3240,0) +811.9001;+196,+195,;.01~07/18/2012@10:34:41 +"DATA",811.8,177,100,3241,0) +811.9001;+196,+195,;2~WP-start~1 +"DATA",811.8,177,100,3242,0) +Exchange Stub +"DATA",811.8,177,100,3243,0) +811.902;+197,+195,;.01~TX.MU STK-6 DENOM INCLU TX +"DATA",811.8,177,100,3244,0) +811.902;+197,+195,;24~0 +"DATA",811.8,177,100,3245,0) +811.902;+197,+195,;25~0 +"DATA",811.8,177,100,3246,0) +811.902;+198,+195,;.01~HF.LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,3247,0) +811.902;+198,+195,;11~0 +"DATA",811.8,177,100,3248,0) +811.902;+198,+195,;24~0 +"DATA",811.8,177,100,3249,0) +811.902;+198,+195,;25~0 +"DATA",811.8,177,100,3250,0) +811.902;+199,+195,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,3251,0) +811.902;+199,+195,;24~0 +"DATA",811.8,177,100,3252,0) +811.902;+199,+195,;25~0 +"DATA",811.8,177,100,3253,0) +811.902;+200,+195,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,3254,0) +811.902;+200,+195,;24~0 +"DATA",811.8,177,100,3255,0) +811.902;+200,+195,;25~0 +"DATA",811.8,177,100,3256,0) +811.902;+201,+195,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,3257,0) +811.902;+201,+195,;24~0 +"DATA",811.8,177,100,3258,0) +811.902;+201,+195,;25~0 +"DATA",811.8,177,100,3259,0) +811.902;+202,+195,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,3260,0) +811.902;+202,+195,;24~0 +"DATA",811.8,177,100,3261,0) +811.902;+202,+195,;25~0 +"DATA",811.8,177,100,3262,0) +811.902;+203,+195,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3263,0) +811.902;+203,+195,;24~0 +"DATA",811.8,177,100,3264,0) +811.902;+203,+195,;25~0 +"DATA",811.8,177,100,3265,0) +811.902;+204,+195,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,3266,0) +811.902;+204,+195,;24~0 +"DATA",811.8,177,100,3267,0) +811.902;+204,+195,;25~0 +"DATA",811.8,177,100,3268,0) +811.902;+205,+195,;.01~RT.MU STK-6 DENOM EXCLU TRM +"DATA",811.8,177,100,3269,0) +811.902;+205,+195,;24~0 +"DATA",811.8,177,100,3270,0) +811.902;+205,+195,;25~0 +"DATA",811.8,177,100,3271,0) +811.902;+206,+195,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3272,0) +811.902;+206,+195,;24~0 +"DATA",811.8,177,100,3273,0) +811.902;+206,+195,;25~0 +"DATA",811.8,177,100,3274,0) +811.902;+207,+195,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3275,0) +811.902;+207,+195,;24~0 +"DATA",811.8,177,100,3276,0) +811.902;+207,+195,;25~0 +"DATA",811.8,177,100,3277,0) +811.902;+208,+195,;.01~RT.MU STK-6 DENOM INCLU LAB>=100 +"DATA",811.8,177,100,3278,0) +811.902;+208,+195,;24~0 +"DATA",811.8,177,100,3279,0) +811.902;+208,+195,;25~0 +"DATA",811.8,177,100,3280,0) +811.902;+209,+195,;.01~RT.MU STK-6 DENOM INCLU DRUG TRM +"DATA",811.8,177,100,3281,0) +811.902;+209,+195,;24~0 +"DATA",811.8,177,100,3282,0) +811.902;+209,+195,;25~0 +"DATA",811.8,177,100,3283,0) +811.902;+210,+195,;.01~RT.MU STK-6 DENOM INCLU LAB<100 TRM +"DATA",811.8,177,100,3284,0) +811.902;+210,+195,;24~0 +"DATA",811.8,177,100,3285,0) +811.902;+210,+195,;25~0 +"DATA",811.8,177,100,3286,0) +811.902;+211,+195,;.01~RT.MU STK-6 DENOM INCLU LAB TRM +"DATA",811.8,177,100,3287,0) +811.902;+211,+195,;24~0 +"DATA",811.8,177,100,3288,0) +811.902;+211,+195,;25~0 +"DATA",811.8,177,100,3289,0) +811.90221;+212,+209,+195,;.01~ACTIVE +"DATA",811.8,177,100,3290,0) +811.90221;+213,+209,+195,;.01~DISCONTINUED +"DATA",811.8,177,100,3291,0) +811.90221;+214,+209,+195,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3292,0) +811.90221;+215,+209,+195,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3293,0) +811.90221;+216,+209,+195,;.01~EXPIRED +"DATA",811.8,177,100,3294,0) +811.90221;+217,+209,+195,;.01~SUSPENDED +"DATA",811.8,177,100,3295,0) +811.925;+218,+195,;.01~1 +"DATA",811.8,177,100,3296,0) +811.925;+218,+195,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,3297,0) +811.925;+218,+195,;10~FN(1)<121 +"DATA",811.8,177,100,3298,0) +811.925;+218,+195,;41~0 +"DATA",811.8,177,100,3299,0) +811.925;+218,+195,;42~0 +"DATA",811.8,177,100,3300,0) +811.925;+219,+195,;.01~2 +"DATA",811.8,177,100,3301,0) +811.925;+219,+195,;3~(MAX_DATE(1)MAX_DATE(4))!(MAX_DATE(1)=MAX_DATE(4)))&((MAX_DATE(1)>MAX_DATE(12))!(MAX_DATE(1)=MAX_DATE(12)))) +"DATA",811.8,177,100,3307,0) +811.925;+220,+195,;10~(FN(1)FN(6))!(FN(1)=FN(6)))&((FN(1)>FN(10))!(FN(1)=FN(10)))) +"DATA",811.8,177,100,3308,0) +811.925;+220,+195,;41~0 +"DATA",811.8,177,100,3309,0) +811.925;+220,+195,;42~0 +"DATA",811.8,177,100,3310,0) +811.9255;+221,+218,+195,;.01~1 +"DATA",811.8,177,100,3311,0) +811.9255;+221,+218,+195,;.02~DIFF_DATE +"DATA",811.8,177,100,3312,0) +811.9255;+222,+219,+195,;.01~1 +"DATA",811.8,177,100,3313,0) +811.9255;+222,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3314,0) +811.9255;+223,+220,+195,;.01~1 +"DATA",811.8,177,100,3315,0) +811.9255;+223,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3316,0) +811.9255;+224,+220,+195,;.01~10 +"DATA",811.8,177,100,3317,0) +811.9255;+224,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3318,0) +811.9255;+225,+220,+195,;.01~11 +"DATA",811.8,177,100,3319,0) +811.9255;+225,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3320,0) +811.9255;+226,+220,+195,;.01~12 +"DATA",811.8,177,100,3321,0) +811.9255;+226,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3322,0) +811.9255;+227,+219,+195,;.01~2 +"DATA",811.8,177,100,3323,0) +811.9255;+227,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3324,0) +811.9255;+228,+220,+195,;.01~2 +"DATA",811.8,177,100,3325,0) +811.9255;+228,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3326,0) +811.9255;+229,+219,+195,;.01~3 +"DATA",811.8,177,100,3327,0) +811.9255;+229,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3328,0) +811.9255;+230,+220,+195,;.01~3 +"DATA",811.8,177,100,3329,0) +811.9255;+230,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3330,0) +811.9255;+231,+219,+195,;.01~4 +"DATA",811.8,177,100,3331,0) +811.9255;+231,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3332,0) +811.9255;+232,+220,+195,;.01~4 +"DATA",811.8,177,100,3333,0) +811.9255;+232,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3334,0) +811.9255;+233,+220,+195,;.01~5 +"DATA",811.8,177,100,3335,0) +811.9255;+233,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3336,0) +811.9255;+234,+220,+195,;.01~6 +"DATA",811.8,177,100,3337,0) +811.9255;+234,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3338,0) +811.9255;+235,+220,+195,;.01~7 +"DATA",811.8,177,100,3339,0) +811.9255;+235,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3340,0) +811.9255;+236,+220,+195,;.01~8 +"DATA",811.8,177,100,3341,0) +811.9255;+236,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3342,0) +811.9255;+237,+220,+195,;.01~9 +"DATA",811.8,177,100,3343,0) +811.9255;+237,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3344,0) +811.9256;+238,+221,+218,+195,;.01~5 +"DATA",811.8,177,100,3345,0) +811.9256;+239,+222,+219,+195,;.01~1 +"DATA",811.8,177,100,3346,0) +811.9256;+240,+223,+220,+195,;.01~1 +"DATA",811.8,177,100,3347,0) +811.9256;+241,+224,+220,+195,;.01~12 +"DATA",811.8,177,100,3348,0) +811.9256;+242,+225,+220,+195,;.01~1 +"DATA",811.8,177,100,3349,0) +811.9256;+243,+226,+220,+195,;.01~12 +"DATA",811.8,177,100,3350,0) +811.9256;+244,+227,+219,+195,;.01~5 +"DATA",811.8,177,100,3351,0) +811.9256;+245,+228,+220,+195,;.01~5 +"DATA",811.8,177,100,3352,0) +811.9256;+246,+229,+219,+195,;.01~1 +"DATA",811.8,177,100,3353,0) +811.9256;+247,+230,+220,+195,;.01~1 +"DATA",811.8,177,100,3354,0) +811.9256;+248,+231,+219,+195,;.01~5 +"DATA",811.8,177,100,3355,0) +811.9256;+249,+232,+220,+195,;.01~5 +"DATA",811.8,177,100,3356,0) +811.9256;+250,+233,+220,+195,;.01~1 +"DATA",811.8,177,100,3357,0) +811.9256;+251,+234,+220,+195,;.01~4 +"DATA",811.8,177,100,3358,0) +811.9256;+252,+235,+220,+195,;.01~1 +"DATA",811.8,177,100,3359,0) +811.9256;+253,+236,+220,+195,;.01~4 +"DATA",811.8,177,100,3360,0) +811.9256;+254,+237,+220,+195,;.01~1 +"DATA",811.8,177,100,3361,0) +811.9256;+255,+221,+218,+195,;.01~4 +"DATA",811.8,177,100,3362,0) +811.97;+256,+195,;.01~99Y +"DATA",811.8,177,100,3363,0) +811.97;+256,+195,;1~18 +"DATA",811.8,177,100,3364,0) +811.97;+256,+195,;2~99 +"DATA",811.8,177,100,3365,0) +811.97;+256,+195,;5~0 +"DATA",811.8,177,100,3366,0) +811.97;+256,+195,;6~0 +"DATA",811.8,177,100,3367,0) +]]> +"DATA",811.8,177,100,3368,0) + +"DATA",811.8,177,100,3369,0) + +"DATA",811.8,177,100,3370,0) + +"DATA",811.8,177,100,3433,0) + +"DATA",811.8,177,100,3434,0) + +"DATA",811.8,177,100,3435,0) + +"DATA",811.8,177,100,3436,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3437,0) +811.9 +"DATA",811.8,177,100,3438,0) +MU STK-6 NUMER CR +"DATA",811.8,177,100,3439,0) +239 +"DATA",811.8,177,100,3440,0) +3624100900 +"DATA",811.8,177,100,3441,0) +NO +"DATA",811.8,177,100,3442,0) + +"DATA",811.8,177,100,3443,0) + 18y +"DATA",811.8,177,100,3448,0) +LOS <=120 DAYS +"DATA",811.8,177,100,3449,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,3450,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,3451,0) +EX PT ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3452,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,3453,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,3454,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,3455,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,3456,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3457,0) +EX PT WITH A REASON FOR NOT PRESCRIBING STATIN MEDICATION AT DISCHARGE +"DATA",811.8,177,100,3458,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,3459,0) +Patients who were on a lipid lowering medication prior to hospital arrival +"DATA",811.8,177,100,3460,0) +Patients with LDL-c not measured +"DATA",811.8,177,100,3461,0) +Patients with LDL-c Greater than or equal to 100mg/dl +"DATA",811.8,177,100,3462,0) +811.9;+239,;30~(AGE)&FI(10)&FI(12)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3463,0) +811.9;+239,;31~(AGE)&FI(10)&FI(12)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3464,0) +811.9;+239,;32~13 +"DATA",811.8,177,100,3465,0) +811.9;+239,;33~AGE;10;12;1;7;6;13;14;15;16;17;3;2 +"DATA",811.8,177,100,3466,0) +811.9;+239,;36~0 +"DATA",811.8,177,100,3467,0) +811.9;+239,;40~0 +"DATA",811.8,177,100,3468,0) +811.9;+239,;42~8 +"DATA",811.8,177,100,3469,0) +811.9;+239,;43~4;5;8;9;11;FF1;FF2;FF3 +"DATA",811.8,177,100,3470,0) +811.9;+239,;60~WP-start~1 +"DATA",811.8,177,100,3471,0) + ^ +"DATA",811.8,177,100,3472,0) +811.9;+239,;62~1 +"DATA",811.8,177,100,3473,0) +811.9;+239,;63~0 +"DATA",811.8,177,100,3474,0) +811.9;+239,;67~0 +"DATA",811.8,177,100,3475,0) +811.9;+239,;68~0 +"DATA",811.8,177,100,3476,0) +811.9;+239,;71~WP-start~1 +"DATA",811.8,177,100,3477,0) + +"DATA",811.8,177,100,3478,0) +811.9;+239,;72~0 +"DATA",811.8,177,100,3479,0) +811.9;+239,;73~1 +"DATA",811.8,177,100,3480,0) +811.9;+239,;77~0 +"DATA",811.8,177,100,3481,0) +811.9;+239,;78~0 +"DATA",811.8,177,100,3482,0) +811.9;+239,;100~LOCAL +"DATA",811.8,177,100,3483,0) +811.9;+239,;103~L +"DATA",811.8,177,100,3484,0) +811.9001;+240,+239,;.01~07/18/2012@10:34:41 +"DATA",811.8,177,100,3485,0) +811.9001;+240,+239,;2~WP-start~1 +"DATA",811.8,177,100,3486,0) +Exchange Stub +"DATA",811.8,177,100,3487,0) +811.902;+241,+239,;.01~TX.MU STK-6 DENOM INCLU TX +"DATA",811.8,177,100,3488,0) +811.902;+241,+239,;24~0 +"DATA",811.8,177,100,3489,0) +811.902;+241,+239,;25~0 +"DATA",811.8,177,100,3490,0) +811.902;+242,+239,;.01~RT.MU STK-6 NUMER INCLU DRUG +"DATA",811.8,177,100,3491,0) +811.902;+242,+239,;24~0 +"DATA",811.8,177,100,3492,0) +811.902;+242,+239,;25~0 +"DATA",811.8,177,100,3493,0) +811.902;+243,+239,;.01~HF.LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,3494,0) +811.902;+243,+239,;11~0 +"DATA",811.8,177,100,3495,0) +811.902;+243,+239,;24~0 +"DATA",811.8,177,100,3496,0) +811.902;+243,+239,;25~0 +"DATA",811.8,177,100,3497,0) +811.902;+244,+239,;.01~DC.CV350 +"DATA",811.8,177,100,3498,0) +811.902;+244,+239,;24~0 +"DATA",811.8,177,100,3499,0) +811.902;+244,+239,;25~0 +"DATA",811.8,177,100,3500,0) +811.902;+245,+239,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,3501,0) +811.902;+245,+239,;24~0 +"DATA",811.8,177,100,3502,0) +811.902;+245,+239,;25~0 +"DATA",811.8,177,100,3503,0) +811.902;+246,+239,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,3504,0) +811.902;+246,+239,;24~0 +"DATA",811.8,177,100,3505,0) +811.902;+246,+239,;25~0 +"DATA",811.8,177,100,3506,0) +811.902;+247,+239,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,3507,0) +811.902;+247,+239,;24~0 +"DATA",811.8,177,100,3508,0) +811.902;+247,+239,;25~0 +"DATA",811.8,177,100,3509,0) +811.902;+248,+239,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,3510,0) +811.902;+248,+239,;24~0 +"DATA",811.8,177,100,3511,0) +811.902;+248,+239,;25~0 +"DATA",811.8,177,100,3512,0) +811.902;+249,+239,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3513,0) +811.902;+249,+239,;24~0 +"DATA",811.8,177,100,3514,0) +811.902;+249,+239,;25~0 +"DATA",811.8,177,100,3515,0) +811.902;+250,+239,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,3516,0) +811.902;+250,+239,;24~0 +"DATA",811.8,177,100,3517,0) +811.902;+250,+239,;25~0 +"DATA",811.8,177,100,3518,0) +811.902;+251,+239,;.01~RT.MU STK-6 DENOM EXCLU TRM +"DATA",811.8,177,100,3519,0) +811.902;+251,+239,;24~0 +"DATA",811.8,177,100,3520,0) +811.902;+251,+239,;25~0 +"DATA",811.8,177,100,3521,0) +811.902;+252,+239,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3522,0) +811.902;+252,+239,;24~0 +"DATA",811.8,177,100,3523,0) +811.902;+252,+239,;25~0 +"DATA",811.8,177,100,3524,0) +811.902;+253,+239,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3525,0) +811.902;+253,+239,;24~0 +"DATA",811.8,177,100,3526,0) +811.902;+253,+239,;25~0 +"DATA",811.8,177,100,3527,0) +811.902;+254,+239,;.01~RT.MU STK-6 DENOM INCLU LAB>=100 +"DATA",811.8,177,100,3528,0) +811.902;+254,+239,;24~0 +"DATA",811.8,177,100,3529,0) +811.902;+254,+239,;25~0 +"DATA",811.8,177,100,3530,0) +811.902;+255,+239,;.01~RT.MU STK-6 DENOM INCLU DRUG TRM +"DATA",811.8,177,100,3531,0) +811.902;+255,+239,;24~0 +"DATA",811.8,177,100,3532,0) +811.902;+255,+239,;25~0 +"DATA",811.8,177,100,3533,0) +811.902;+256,+239,;.01~RT.MU STK-6 DENOM INCLU LAB<100 TRM +"DATA",811.8,177,100,3534,0) +811.902;+256,+239,;24~0 +"DATA",811.8,177,100,3535,0) +811.902;+256,+239,;25~0 +"DATA",811.8,177,100,3536,0) +811.902;+257,+239,;.01~RT.MU STK-6 DENOM INCLU LAB TRM +"DATA",811.8,177,100,3537,0) +811.902;+257,+239,;24~0 +"DATA",811.8,177,100,3538,0) +811.902;+257,+239,;25~0 +"DATA",811.8,177,100,3539,0) +811.90221;+258,+244,+239,;.01~ACTIVE +"DATA",811.8,177,100,3540,0) +811.90221;+259,+255,+239,;.01~ACTIVE +"DATA",811.8,177,100,3541,0) +811.90221;+260,+244,+239,;.01~DISCONTINUED +"DATA",811.8,177,100,3542,0) +811.90221;+261,+255,+239,;.01~DISCONTINUED +"DATA",811.8,177,100,3543,0) +811.90221;+262,+244,+239,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3544,0) +811.90221;+263,+255,+239,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3545,0) +811.90221;+264,+244,+239,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3546,0) +811.90221;+265,+255,+239,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3547,0) +811.90221;+266,+244,+239,;.01~EXPIRED +"DATA",811.8,177,100,3548,0) +811.90221;+267,+255,+239,;.01~EXPIRED +"DATA",811.8,177,100,3549,0) +811.90221;+268,+244,+239,;.01~SUSPENDED +"DATA",811.8,177,100,3550,0) +811.90221;+269,+255,+239,;.01~SUSPENDED +"DATA",811.8,177,100,3551,0) +811.925;+270,+239,;.01~1 +"DATA",811.8,177,100,3552,0) +811.925;+270,+239,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,3553,0) +811.925;+270,+239,;10~FN(1)<121 +"DATA",811.8,177,100,3554,0) +811.925;+270,+239,;41~0 +"DATA",811.8,177,100,3555,0) +811.925;+270,+239,;42~0 +"DATA",811.8,177,100,3556,0) +811.925;+271,+239,;.01~2 +"DATA",811.8,177,100,3557,0) +811.925;+271,+239,;3~(MAX_DATE(1)MAX_DATE(4))!(MAX_DATE(1)=MAX_DATE(4)))&((MAX_DATE(1)>MAX_DATE(12))!(MAX_DATE(1)=MAX_DATE(12)))) +"DATA",811.8,177,100,3563,0) +811.925;+272,+239,;10~(FN(1)FN(6))!(FN(1)=FN(6)))&((FN(1)>FN(10))!(FN(1)=FN(10)))) +"DATA",811.8,177,100,3564,0) +811.925;+272,+239,;41~0 +"DATA",811.8,177,100,3565,0) +811.925;+272,+239,;42~0 +"DATA",811.8,177,100,3566,0) +811.9255;+273,+270,+239,;.01~1 +"DATA",811.8,177,100,3567,0) +811.9255;+273,+270,+239,;.02~DIFF_DATE +"DATA",811.8,177,100,3568,0) +811.9255;+274,+271,+239,;.01~1 +"DATA",811.8,177,100,3569,0) +811.9255;+274,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3570,0) +811.9255;+275,+272,+239,;.01~1 +"DATA",811.8,177,100,3571,0) +811.9255;+275,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3572,0) +811.9255;+276,+272,+239,;.01~10 +"DATA",811.8,177,100,3573,0) +811.9255;+276,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3574,0) +811.9255;+277,+272,+239,;.01~11 +"DATA",811.8,177,100,3575,0) +811.9255;+277,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3576,0) +811.9255;+278,+272,+239,;.01~12 +"DATA",811.8,177,100,3577,0) +811.9255;+278,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3578,0) +811.9255;+279,+271,+239,;.01~2 +"DATA",811.8,177,100,3579,0) +811.9255;+279,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3580,0) +811.9255;+280,+272,+239,;.01~2 +"DATA",811.8,177,100,3581,0) +811.9255;+280,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3582,0) +811.9255;+281,+271,+239,;.01~3 +"DATA",811.8,177,100,3583,0) +811.9255;+281,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3584,0) +811.9255;+282,+272,+239,;.01~3 +"DATA",811.8,177,100,3585,0) +811.9255;+282,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3586,0) +811.9255;+283,+271,+239,;.01~4 +"DATA",811.8,177,100,3587,0) +811.9255;+283,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3588,0) +811.9255;+284,+272,+239,;.01~4 +"DATA",811.8,177,100,3589,0) +811.9255;+284,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3590,0) +811.9255;+285,+272,+239,;.01~5 +"DATA",811.8,177,100,3591,0) +811.9255;+285,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3592,0) +811.9255;+286,+272,+239,;.01~6 +"DATA",811.8,177,100,3593,0) +811.9255;+286,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3594,0) +811.9255;+287,+272,+239,;.01~7 +"DATA",811.8,177,100,3595,0) +811.9255;+287,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3596,0) +811.9255;+288,+272,+239,;.01~8 +"DATA",811.8,177,100,3597,0) +811.9255;+288,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3598,0) +811.9255;+289,+272,+239,;.01~9 +"DATA",811.8,177,100,3599,0) +811.9255;+289,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3600,0) +811.9256;+290,+273,+270,+239,;.01~5 +"DATA",811.8,177,100,3601,0) +811.9256;+291,+274,+271,+239,;.01~1 +"DATA",811.8,177,100,3602,0) +811.9256;+292,+275,+272,+239,;.01~1 +"DATA",811.8,177,100,3603,0) +811.9256;+293,+276,+272,+239,;.01~12 +"DATA",811.8,177,100,3604,0) +811.9256;+294,+277,+272,+239,;.01~1 +"DATA",811.8,177,100,3605,0) +811.9256;+295,+278,+272,+239,;.01~12 +"DATA",811.8,177,100,3606,0) +811.9256;+296,+279,+271,+239,;.01~5 +"DATA",811.8,177,100,3607,0) +811.9256;+297,+280,+272,+239,;.01~5 +"DATA",811.8,177,100,3608,0) +811.9256;+298,+281,+271,+239,;.01~1 +"DATA",811.8,177,100,3609,0) +811.9256;+299,+282,+272,+239,;.01~1 +"DATA",811.8,177,100,3610,0) +811.9256;+300,+283,+271,+239,;.01~5 +"DATA",811.8,177,100,3611,0) +811.9256;+301,+284,+272,+239,;.01~5 +"DATA",811.8,177,100,3612,0) +811.9256;+302,+285,+272,+239,;.01~1 +"DATA",811.8,177,100,3613,0) +811.9256;+303,+286,+272,+239,;.01~4 +"DATA",811.8,177,100,3614,0) +811.9256;+304,+287,+272,+239,;.01~1 +"DATA",811.8,177,100,3615,0) +811.9256;+305,+288,+272,+239,;.01~4 +"DATA",811.8,177,100,3616,0) +811.9256;+306,+289,+272,+239,;.01~1 +"DATA",811.8,177,100,3617,0) +811.9256;+307,+273,+270,+239,;.01~4 +"DATA",811.8,177,100,3618,0) +811.97;+308,+239,;.01~99Y +"DATA",811.8,177,100,3619,0) +811.97;+308,+239,;1~18 +"DATA",811.8,177,100,3620,0) +811.97;+308,+239,;2~99 +"DATA",811.8,177,100,3621,0) +811.97;+308,+239,;5~0 +"DATA",811.8,177,100,3622,0) +811.97;+308,+239,;6~0 +"DATA",811.8,177,100,3623,0) +]]> +"DATA",811.8,177,100,3624,0) + +"DATA",811.8,177,100,3625,0) + +"DATA",811.8,177,100,3626,0) + +"DATA",811.8,177,100,3697,0) + +"DATA",811.8,177,100,3698,0) + +"DATA",811.8,177,100,3699,0) + +"DATA",811.8,177,100,3700,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3701,0) +811.9 +"DATA",811.8,177,100,3702,0) +MU STK-5 DENOM CR +"DATA",811.8,177,100,3703,0) +197 +"DATA",811.8,177,100,3704,0) +1286769028 +"DATA",811.8,177,100,3705,0) +NO +"DATA",811.8,177,100,3706,0) + +"DATA",811.8,177,100,3707,0) +120D AND <2D +"DATA",811.8,177,100,3714,0) +EX PTS ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,3715,0) +EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3716,0) +EX PATIENTS WITH COMFORT MEASURES DOCUMENTED ON DAY OF OR DAY AFTER ARRIVAL +"DATA",811.8,177,100,3717,0) +EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC +"DATA",811.8,177,100,3718,0) +EX PATIENTS WITH IV OR IA THROMBOLYTIC (t-PA) THERAPY ADMINSITERED AT THIS HOSPITAL OR WITHIN 24 H PRIOR TO ARRIVAL +"DATA",811.8,177,100,3719,0) +EX PATIENTS WITH A DOCUMENTED REASON FOR NOT ADMINISTERING ANTITHROMBOTIC THERPAY BY END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3720,0) +EX PATIENTS DISCHARGED PRIOR TO THE END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3721,0) +811.9;+197,;30~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&'FI(5) +"DATA",811.8,177,100,3722,0) +811.9;+197,;31~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&'FI(5) +"DATA",811.8,177,100,3723,0) +811.9;+197,;32~8 +"DATA",811.8,177,100,3724,0) +811.9;+197,;33~AGE;1;FF1;FF2;2;FF1;FF2;5 +"DATA",811.8,177,100,3725,0) +811.9;+197,;36~0 +"DATA",811.8,177,100,3726,0) +811.9;+197,;40~0 +"DATA",811.8,177,100,3727,0) +811.9;+197,;42~2 +"DATA",811.8,177,100,3728,0) +811.9;+197,;43~3;4 +"DATA",811.8,177,100,3729,0) +811.9;+197,;62~0 +"DATA",811.8,177,100,3730,0) +811.9;+197,;63~0 +"DATA",811.8,177,100,3731,0) +811.9;+197,;67~0 +"DATA",811.8,177,100,3732,0) +811.9;+197,;68~0 +"DATA",811.8,177,100,3733,0) +811.9;+197,;72~0 +"DATA",811.8,177,100,3734,0) +811.9;+197,;73~0 +"DATA",811.8,177,100,3735,0) +811.9;+197,;77~0 +"DATA",811.8,177,100,3736,0) +811.9;+197,;78~0 +"DATA",811.8,177,100,3737,0) +811.9;+197,;100~LOCAL +"DATA",811.8,177,100,3738,0) +811.9;+197,;103~L +"DATA",811.8,177,100,3739,0) +811.9001;+198,+197,;.01~07/18/2012@10:34:42 +"DATA",811.8,177,100,3740,0) +811.9001;+198,+197,;2~WP-start~1 +"DATA",811.8,177,100,3741,0) +Exchange Stub +"DATA",811.8,177,100,3742,0) +811.902;+199,+197,;.01~TX.MU STK-5 DENOM INCLU TX +"DATA",811.8,177,100,3743,0) +811.902;+199,+197,;24~0 +"DATA",811.8,177,100,3744,0) +811.902;+199,+197,;25~0 +"DATA",811.8,177,100,3745,0) +811.902;+200,+197,;.01~RT.MU STK-5 DENOM EXCLU TRM +"DATA",811.8,177,100,3746,0) +811.902;+200,+197,;24~0 +"DATA",811.8,177,100,3747,0) +811.902;+200,+197,;25~0 +"DATA",811.8,177,100,3748,0) +811.902;+201,+197,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3749,0) +811.902;+201,+197,;24~0 +"DATA",811.8,177,100,3750,0) +811.902;+201,+197,;25~0 +"DATA",811.8,177,100,3751,0) +811.902;+202,+197,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3752,0) +811.902;+202,+197,;24~0 +"DATA",811.8,177,100,3753,0) +811.902;+202,+197,;25~0 +"DATA",811.8,177,100,3754,0) +811.902;+203,+197,;.01~RT.MU STK-5 DENOM EXCLU T-PA TRM +"DATA",811.8,177,100,3755,0) +811.902;+203,+197,;24~0 +"DATA",811.8,177,100,3756,0) +811.902;+203,+197,;25~0 +"DATA",811.8,177,100,3757,0) +811.925;+204,+197,;.01~1 +"DATA",811.8,177,100,3758,0) +811.925;+204,+197,;3~DIFF_DATE(3,4)<121 +"DATA",811.8,177,100,3759,0) +811.925;+204,+197,;10~FN(1)<121 +"DATA",811.8,177,100,3760,0) +811.925;+204,+197,;41~0 +"DATA",811.8,177,100,3761,0) +811.925;+204,+197,;42~0 +"DATA",811.8,177,100,3762,0) +811.925;+205,+197,;.01~2 +"DATA",811.8,177,100,3763,0) +811.925;+205,+197,;3~DIFF_DATE(3,4)>1 +"DATA",811.8,177,100,3764,0) +811.925;+205,+197,;10~FN(1)>1 +"DATA",811.8,177,100,3765,0) +811.925;+205,+197,;41~0 +"DATA",811.8,177,100,3766,0) +811.925;+205,+197,;42~0 +"DATA",811.8,177,100,3767,0) +811.9255;+206,+204,+197,;.01~1 +"DATA",811.8,177,100,3768,0) +811.9255;+206,+204,+197,;.02~DIFF_DATE +"DATA",811.8,177,100,3769,0) +811.9255;+207,+205,+197,;.01~1 +"DATA",811.8,177,100,3770,0) +811.9255;+207,+205,+197,;.02~DIFF_DATE +"DATA",811.8,177,100,3771,0) +811.9256;+208,+206,+204,+197,;.01~3 +"DATA",811.8,177,100,3772,0) +811.9256;+209,+207,+205,+197,;.01~3 +"DATA",811.8,177,100,3773,0) +811.9256;+210,+206,+204,+197,;.01~4 +"DATA",811.8,177,100,3774,0) +811.9256;+211,+207,+205,+197,;.01~4 +"DATA",811.8,177,100,3775,0) +811.97;+212,+197,;.01~99Y +"DATA",811.8,177,100,3776,0) +811.97;+212,+197,;1~18 +"DATA",811.8,177,100,3777,0) +811.97;+212,+197,;2~99 +"DATA",811.8,177,100,3778,0) +811.97;+212,+197,;5~0 +"DATA",811.8,177,100,3779,0) +811.97;+212,+197,;6~0 +"DATA",811.8,177,100,3780,0) +]]> +"DATA",811.8,177,100,3781,0) + +"DATA",811.8,177,100,3782,0) + +"DATA",811.8,177,100,3783,0) + +"DATA",811.8,177,100,3800,0) + +"DATA",811.8,177,100,3801,0) + +"DATA",811.8,177,100,3802,0) + +"DATA",811.8,177,100,3803,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3804,0) +811.9 +"DATA",811.8,177,100,3805,0) +MU STK-5 NUMER CR +"DATA",811.8,177,100,3806,0) +196 +"DATA",811.8,177,100,3807,0) +2769487849 +"DATA",811.8,177,100,3808,0) +NO +"DATA",811.8,177,100,3809,0) + +"DATA",811.8,177,100,3810,0) +120D AND <2D +"DATA",811.8,177,100,3817,0) +EX PTS ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,3818,0) +EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3819,0) +EX PATIENTS WITH COMFORT MEASURES DOCUMENTED ON DAY OF OR DAY AFTER ARRIVAL +"DATA",811.8,177,100,3820,0) +EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC +"DATA",811.8,177,100,3821,0) +EX PATIENTS WITH IV OR IA THROMBOLYTIC (t-PA) THERAPY ADMINSITERED AT THIS HOSPITAL OR WITHIN 24 H PRIOR TO ARRIVAL +"DATA",811.8,177,100,3822,0) +EX PATIENTS WITH A DOCUMENTED REASON FOR NOT ADMINISTERING ANTITHROMBOTIC THERPAY BY END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3823,0) +EX PATIENTS DISCHARGED PRIOR TO THE END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3824,0) +Ischemic stroke patients who had antithrombotic therapy administered by end of hospital day 2 +"DATA",811.8,177,100,3825,0) +811.9;+196,;30~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&(FI(5)&FF(3)) +"DATA",811.8,177,100,3826,0) +811.9;+196,;31~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&(FI(5)&FF(3)) +"DATA",811.8,177,100,3827,0) +811.9;+196,;32~9 +"DATA",811.8,177,100,3828,0) +811.9;+196,;33~AGE;1;FF1;FF2;2;FF1;FF2;5;FF3 +"DATA",811.8,177,100,3829,0) +811.9;+196,;36~0 +"DATA",811.8,177,100,3830,0) +811.9;+196,;40~0 +"DATA",811.8,177,100,3831,0) +811.9;+196,;42~2 +"DATA",811.8,177,100,3832,0) +811.9;+196,;43~3;4 +"DATA",811.8,177,100,3833,0) +811.9;+196,;62~0 +"DATA",811.8,177,100,3834,0) +811.9;+196,;63~0 +"DATA",811.8,177,100,3835,0) +811.9;+196,;67~0 +"DATA",811.8,177,100,3836,0) +811.9;+196,;68~0 +"DATA",811.8,177,100,3837,0) +811.9;+196,;72~0 +"DATA",811.8,177,100,3838,0) +811.9;+196,;73~0 +"DATA",811.8,177,100,3839,0) +811.9;+196,;77~0 +"DATA",811.8,177,100,3840,0) +811.9;+196,;78~0 +"DATA",811.8,177,100,3841,0) +811.9;+196,;100~LOCAL +"DATA",811.8,177,100,3842,0) +811.9;+196,;103~L +"DATA",811.8,177,100,3843,0) +811.9001;+197,+196,;.01~07/18/2012@10:34:43 +"DATA",811.8,177,100,3844,0) +811.9001;+197,+196,;2~WP-start~1 +"DATA",811.8,177,100,3845,0) +Exchange Stub +"DATA",811.8,177,100,3846,0) +811.902;+198,+196,;.01~TX.MU STK-5 DENOM INCLU TX +"DATA",811.8,177,100,3847,0) +811.902;+198,+196,;24~0 +"DATA",811.8,177,100,3848,0) +811.902;+198,+196,;25~0 +"DATA",811.8,177,100,3849,0) +811.902;+199,+196,;.01~RT.MU STK-5 DENOM EXCLU TRM +"DATA",811.8,177,100,3850,0) +811.902;+199,+196,;24~0 +"DATA",811.8,177,100,3851,0) +811.902;+199,+196,;25~0 +"DATA",811.8,177,100,3852,0) +811.902;+200,+196,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3853,0) +811.902;+200,+196,;24~0 +"DATA",811.8,177,100,3854,0) +811.902;+200,+196,;25~0 +"DATA",811.8,177,100,3855,0) +811.902;+201,+196,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3856,0) +811.902;+201,+196,;24~0 +"DATA",811.8,177,100,3857,0) +811.902;+201,+196,;25~0 +"DATA",811.8,177,100,3858,0) +811.902;+202,+196,;.01~RT.MU STK-5 NUMER INCLU TRM +"DATA",811.8,177,100,3859,0) +811.902;+202,+196,;24~0 +"DATA",811.8,177,100,3860,0) +811.902;+202,+196,;25~0 +"DATA",811.8,177,100,3861,0) +811.90221;+203,+202,+196,;.01~ACTIVE +"DATA",811.8,177,100,3862,0) +811.90221;+204,+202,+196,;.01~DISCONTINUED +"DATA",811.8,177,100,3863,0) +811.90221;+205,+202,+196,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3864,0) +811.90221;+206,+202,+196,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3865,0) +811.90221;+207,+202,+196,;.01~EXPIRED +"DATA",811.8,177,100,3866,0) +811.90221;+208,+202,+196,;.01~SUSPENDED +"DATA",811.8,177,100,3867,0) +811.925;+209,+196,;.01~1 +"DATA",811.8,177,100,3868,0) +811.925;+209,+196,;3~DIFF_DATE(3,4)<121 +"DATA",811.8,177,100,3869,0) +811.925;+209,+196,;10~FN(1)<121 +"DATA",811.8,177,100,3870,0) +811.925;+209,+196,;41~0 +"DATA",811.8,177,100,3871,0) +811.925;+209,+196,;42~0 +"DATA",811.8,177,100,3872,0) +811.925;+210,+196,;.01~2 +"DATA",811.8,177,100,3873,0) +811.925;+210,+196,;3~DIFF_DATE(3,4)>1 +"DATA",811.8,177,100,3874,0) +811.925;+210,+196,;10~FN(1)>1 +"DATA",811.8,177,100,3875,0) +811.925;+210,+196,;41~0 +"DATA",811.8,177,100,3876,0) +811.925;+210,+196,;42~0 +"DATA",811.8,177,100,3877,0) +811.925;+211,+196,;.01~3 +"DATA",811.8,177,100,3878,0) +811.925;+211,+196,;3~DIFF_DATE(3,5)<2 +"DATA",811.8,177,100,3879,0) +811.925;+211,+196,;10~FN(1)<2 +"DATA",811.8,177,100,3880,0) +811.925;+211,+196,;41~0 +"DATA",811.8,177,100,3881,0) +811.925;+211,+196,;42~0 +"DATA",811.8,177,100,3882,0) +811.9255;+212,+209,+196,;.01~1 +"DATA",811.8,177,100,3883,0) +811.9255;+212,+209,+196,;.02~DIFF_DATE +"DATA",811.8,177,100,3884,0) +811.9255;+213,+210,+196,;.01~1 +"DATA",811.8,177,100,3885,0) +811.9255;+213,+210,+196,;.02~DIFF_DATE +"DATA",811.8,177,100,3886,0) +811.9255;+214,+211,+196,;.01~1 +"DATA",811.8,177,100,3887,0) +811.9255;+214,+211,+196,;.02~DIFF_DATE +"DATA",811.8,177,100,3888,0) +811.9256;+215,+212,+209,+196,;.01~3 +"DATA",811.8,177,100,3889,0) +811.9256;+216,+213,+210,+196,;.01~3 +"DATA",811.8,177,100,3890,0) +811.9256;+217,+214,+211,+196,;.01~3 +"DATA",811.8,177,100,3891,0) +811.9256;+218,+212,+209,+196,;.01~4 +"DATA",811.8,177,100,3892,0) +811.9256;+219,+213,+210,+196,;.01~4 +"DATA",811.8,177,100,3893,0) +811.9256;+220,+214,+211,+196,;.01~5 +"DATA",811.8,177,100,3894,0) +811.97;+221,+196,;.01~99Y +"DATA",811.8,177,100,3895,0) +811.97;+221,+196,;1~18 +"DATA",811.8,177,100,3896,0) +811.97;+221,+196,;2~99 +"DATA",811.8,177,100,3897,0) +811.97;+221,+196,;5~0 +"DATA",811.8,177,100,3898,0) +811.97;+221,+196,;6~0 +"DATA",811.8,177,100,3899,0) +]]> +"DATA",811.8,177,100,3900,0) + +"DATA",811.8,177,100,3901,0) + +"DATA",811.8,177,100,3902,0) + +"DATA",811.8,177,100,3929,0) + +"DATA",811.8,177,100,3930,0) + +"DATA",811.8,177,100,3931,0) + +"DATA",811.8,177,100,3932,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3933,0) +811.9 +"DATA",811.8,177,100,3934,0) +MU STK-4 NUMER CR +"DATA",811.8,177,100,3935,0) +198 +"DATA",811.8,177,100,3936,0) +2503807966 +"DATA",811.8,177,100,3937,0) +NO +"DATA",811.8,177,100,3938,0) + +"DATA",811.8,177,100,3939,0) +2H +"DATA",811.8,177,100,3987,0) +811.902;+207,+198,;24~0 +"DATA",811.8,177,100,3988,0) +811.902;+207,+198,;25~0 +"DATA",811.8,177,100,3989,0) +811.902;+208,+198,;.01~TX.MU STK-4 DENOM INCLU TX +"DATA",811.8,177,100,3990,0) +811.902;+208,+198,;24~0 +"DATA",811.8,177,100,3991,0) +811.902;+208,+198,;25~0 +"DATA",811.8,177,100,3992,0) +811.925;+209,+198,;.01~1 +"DATA",811.8,177,100,3993,0) +811.925;+209,+198,;3~DIFF_DATE(4,3)<121 +"DATA",811.8,177,100,3994,0) +811.925;+209,+198,;10~FN(1)<121 +"DATA",811.8,177,100,3995,0) +811.925;+209,+198,;41~0 +"DATA",811.8,177,100,3996,0) +811.925;+209,+198,;42~0 +"DATA",811.8,177,100,3997,0) +811.9255;+210,+209,+198,;.01~1 +"DATA",811.8,177,100,3998,0) +811.9255;+210,+209,+198,;.02~DIFF_DATE +"DATA",811.8,177,100,3999,0) +811.9256;+211,+210,+209,+198,;.01~4 +"DATA",811.8,177,100,4000,0) +811.9256;+212,+210,+209,+198,;.01~3 +"DATA",811.8,177,100,4001,0) +811.97;+213,+198,;.01~99Y +"DATA",811.8,177,100,4002,0) +811.97;+213,+198,;1~18 +"DATA",811.8,177,100,4003,0) +811.97;+213,+198,;2~99 +"DATA",811.8,177,100,4004,0) +811.97;+213,+198,;5~0 +"DATA",811.8,177,100,4005,0) +811.97;+213,+198,;6~0 +"DATA",811.8,177,100,4006,0) +]]> +"DATA",811.8,177,100,4007,0) + +"DATA",811.8,177,100,4008,0) + +"DATA",811.8,177,100,4009,0) + +"DATA",811.8,177,100,4026,0) + +"DATA",811.8,177,100,4027,0) + +"DATA",811.8,177,100,4028,0) + +"DATA",811.8,177,100,4029,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4030,0) +811.9 +"DATA",811.8,177,100,4031,0) +MU STK-4 DENOM CR +"DATA",811.8,177,100,4032,0) +199 +"DATA",811.8,177,100,4033,0) +3156679946 +"DATA",811.8,177,100,4034,0) +NO +"DATA",811.8,177,100,4035,0) + +"DATA",811.8,177,100,4036,0) +18Y +"DATA",811.8,177,100,4042,0) +EX LOS > 120D +"DATA",811.8,177,100,4043,0) +EX PTS ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,4044,0) +EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,4045,0) +EX TIME LAST KNOWN WELL TO ARRIVAL IN EMERGENCY DEPT > 2 H +"DATA",811.8,177,100,4046,0) +EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC +"DATA",811.8,177,100,4047,0) +811.9;+199,;30~(AGE)&(FI(6)&FF(1))&'FI(8)&'FI(2)&'FI(5)&FI(1) +"DATA",811.8,177,100,4048,0) +811.9;+199,;31~(AGE)&(FI(6)&FF(1))&'FI(8)&'FI(2)&'FI(5)&FI(1) +"DATA",811.8,177,100,4049,0) +811.9;+199,;32~7 +"DATA",811.8,177,100,4050,0) +811.9;+199,;33~AGE;6;FF1;8;2;5;1 +"DATA",811.8,177,100,4051,0) +811.9;+199,;36~0 +"DATA",811.8,177,100,4052,0) +811.9;+199,;40~0 +"DATA",811.8,177,100,4053,0) +811.9;+199,;42~3 +"DATA",811.8,177,100,4054,0) +811.9;+199,;43~3;4;7 +"DATA",811.8,177,100,4055,0) +811.9;+199,;62~0 +"DATA",811.8,177,100,4056,0) +811.9;+199,;63~0 +"DATA",811.8,177,100,4057,0) +811.9;+199,;67~0 +"DATA",811.8,177,100,4058,0) +811.9;+199,;68~0 +"DATA",811.8,177,100,4059,0) +811.9;+199,;72~0 +"DATA",811.8,177,100,4060,0) +811.9;+199,;73~0 +"DATA",811.8,177,100,4061,0) +811.9;+199,;77~0 +"DATA",811.8,177,100,4062,0) +811.9;+199,;78~0 +"DATA",811.8,177,100,4063,0) +811.9;+199,;100~LOCAL +"DATA",811.8,177,100,4064,0) +811.9;+199,;103~L +"DATA",811.8,177,100,4065,0) +811.9001;+200,+199,;.01~07/18/2012@10:34:43 +"DATA",811.8,177,100,4066,0) +811.9001;+200,+199,;2~WP-start~1 +"DATA",811.8,177,100,4067,0) +Exchange Stub +"DATA",811.8,177,100,4068,0) +811.902;+201,+199,;.01~RT.MU STK-4 DENOM INC HF<2H +"DATA",811.8,177,100,4069,0) +811.902;+201,+199,;24~0 +"DATA",811.8,177,100,4070,0) +811.902;+201,+199,;25~0 +"DATA",811.8,177,100,4071,0) +811.902;+202,+199,;.01~RT.MU STK-4 DENOM EXCLU TRM +"DATA",811.8,177,100,4072,0) +811.902;+202,+199,;24~0 +"DATA",811.8,177,100,4073,0) +811.902;+202,+199,;25~0 +"DATA",811.8,177,100,4074,0) +811.902;+203,+199,;.01~RT.MU ADMISSION EMERGENCY RT +"DATA",811.8,177,100,4075,0) +811.902;+203,+199,;24~0 +"DATA",811.8,177,100,4076,0) +811.902;+203,+199,;25~0 +"DATA",811.8,177,100,4077,0) +811.902;+204,+199,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,4078,0) +811.902;+204,+199,;24~0 +"DATA",811.8,177,100,4079,0) +811.902;+204,+199,;25~0 +"DATA",811.8,177,100,4080,0) +811.902;+205,+199,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,4081,0) +811.902;+205,+199,;24~0 +"DATA",811.8,177,100,4082,0) +811.902;+205,+199,;25~0 +"DATA",811.8,177,100,4083,0) +811.902;+206,+199,;.01~TX.MU STK-4 DENOM INCLU TX +"DATA",811.8,177,100,4084,0) +811.902;+206,+199,;24~0 +"DATA",811.8,177,100,4085,0) +811.902;+206,+199,;25~0 +"DATA",811.8,177,100,4086,0) +811.902;+207,+199,;.01~RT.MU STK-4 DENOM ARRIVAL HF +"DATA",811.8,177,100,4087,0) +811.902;+207,+199,;24~0 +"DATA",811.8,177,100,4088,0) +811.902;+207,+199,;25~0 +"DATA",811.8,177,100,4089,0) +811.902;+208,+199,;.01~RT.MU STK-4 DENOM EXCLU HF>2H +"DATA",811.8,177,100,4090,0) +811.902;+208,+199,;24~0 +"DATA",811.8,177,100,4091,0) +811.902;+208,+199,;25~0 +"DATA",811.8,177,100,4092,0) +811.925;+209,+199,;.01~1 +"DATA",811.8,177,100,4093,0) +811.925;+209,+199,;3~DIFF_DATE(3,4)<121 +"DATA",811.8,177,100,4094,0) +811.925;+209,+199,;10~FN(1)<121 +"DATA",811.8,177,100,4095,0) +811.925;+209,+199,;41~0 +"DATA",811.8,177,100,4096,0) +811.925;+209,+199,;42~0 +"DATA",811.8,177,100,4097,0) +811.9255;+210,+209,+199,;.01~1 +"DATA",811.8,177,100,4098,0) +811.9255;+210,+209,+199,;.02~DIFF_DATE +"DATA",811.8,177,100,4099,0) +811.9256;+211,+210,+209,+199,;.01~3 +"DATA",811.8,177,100,4100,0) +811.9256;+212,+210,+209,+199,;.01~4 +"DATA",811.8,177,100,4101,0) +811.97;+213,+199,;.01~99Y +"DATA",811.8,177,100,4102,0) +811.97;+213,+199,;1~18 +"DATA",811.8,177,100,4103,0) +811.97;+213,+199,;2~99 +"DATA",811.8,177,100,4104,0) +811.97;+213,+199,;5~0 +"DATA",811.8,177,100,4105,0) +811.97;+213,+199,;6~0 +"DATA",811.8,177,100,4106,0) +]]> +"DATA",811.8,177,100,4107,0) + +"DATA",811.8,177,100,4108,0) + +"DATA",811.8,177,100,4109,0) + +"DATA",811.8,177,100,4125,0) + +"DATA",811.8,177,100,4126,0) + +"DATA",811.8,177,100,4127,0) + +"DATA",811.8,177,100,4128,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4129,0) +811.9 +"DATA",811.8,177,100,4130,0) +MU STK-3 DENOM CR +"DATA",811.8,177,100,4131,0) +201 +"DATA",811.8,177,100,4132,0) +1512051686 +"DATA",811.8,177,100,4133,0) +NO +"DATA",811.8,177,100,4134,0) + +"DATA",811.8,177,100,4135,0) + 18y +"DATA",811.8,177,100,4140,0) +LOS <=120 DAYS +"DATA",811.8,177,100,4141,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,4142,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,4143,0) +EX PT ADMITTED FO RELECTIVE CAROTID INTERENTION +"DATA",811.8,177,100,4144,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,4145,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,4146,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,4147,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,4148,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4149,0) +EX PT WITH A DOCUMENTED REASON FOR NOT PRESCRIBING ANITCIAGULATION THERAPY +"DATA",811.8,177,100,4150,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,4151,0) +PTS WITH DOCUMENTED ATRIAL FIBRILLATION/FLUTTER +"DATA",811.8,177,100,4152,0) +811.9;+201,;30~(AGE)&(FI(1)&FF(1))&'FI(6)&'FI(7)&'FI(10)&'FI(8)&'FI(9)&'FI(11)&'FI(3)&'FI(2)&(FI(12)&FF(1)) +"DATA",811.8,177,100,4153,0) +811.9;+201,;31~(AGE)&(FI(1)&FF(1))&'FI(6)&'FI(7)&'FI(10)&'FI(8)&'FI(9)&'FI(11)&'FI(3)&'FI(2)&(FI(12)&FF(1)) +"DATA",811.8,177,100,4154,0) +811.9;+201,;32~13 +"DATA",811.8,177,100,4155,0) +811.9;+201,;33~AGE;1;FF1;6;7;10;8;9;11;3;2;12;FF1 +"DATA",811.8,177,100,4156,0) +811.9;+201,;36~0 +"DATA",811.8,177,100,4157,0) +811.9;+201,;40~0 +"DATA",811.8,177,100,4158,0) +811.9;+201,;42~2 +"DATA",811.8,177,100,4159,0) +811.9;+201,;43~4;5 +"DATA",811.8,177,100,4160,0) +811.9;+201,;62~0 +"DATA",811.8,177,100,4161,0) +811.9;+201,;63~0 +"DATA",811.8,177,100,4162,0) +811.9;+201,;67~0 +"DATA",811.8,177,100,4163,0) +811.9;+201,;68~0 +"DATA",811.8,177,100,4164,0) +811.9;+201,;71~WP-start~1 +"DATA",811.8,177,100,4165,0) + +"DATA",811.8,177,100,4166,0) +811.9;+201,;72~0 +"DATA",811.8,177,100,4167,0) +811.9;+201,;73~1 +"DATA",811.8,177,100,4168,0) +811.9;+201,;77~0 +"DATA",811.8,177,100,4169,0) +811.9;+201,;78~0 +"DATA",811.8,177,100,4170,0) +811.9;+201,;100~LOCAL +"DATA",811.8,177,100,4171,0) +811.9;+201,;103~L +"DATA",811.8,177,100,4172,0) +811.9001;+202,+201,;.01~07/18/2012@10:34:44 +"DATA",811.8,177,100,4173,0) +811.9001;+202,+201,;2~WP-start~1 +"DATA",811.8,177,100,4174,0) +Exchange Stub +"DATA",811.8,177,100,4175,0) +811.902;+203,+201,;.01~TX.MU STK-3 DENOM INCLU TX +"DATA",811.8,177,100,4176,0) +811.902;+203,+201,;24~0 +"DATA",811.8,177,100,4177,0) +811.902;+203,+201,;25~0 +"DATA",811.8,177,100,4178,0) +811.902;+204,+201,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,4179,0) +811.902;+204,+201,;24~0 +"DATA",811.8,177,100,4180,0) +811.902;+204,+201,;25~0 +"DATA",811.8,177,100,4181,0) +811.902;+205,+201,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4182,0) +811.902;+205,+201,;24~0 +"DATA",811.8,177,100,4183,0) +811.902;+205,+201,;25~0 +"DATA",811.8,177,100,4184,0) +811.902;+206,+201,;.01~TX.MU STK-3 DENOM INCLU AT FIB/FL TX +"DATA",811.8,177,100,4185,0) +811.902;+206,+201,;24~0 +"DATA",811.8,177,100,4186,0) +811.902;+206,+201,;25~0 +"DATA",811.8,177,100,4187,0) +811.902;+207,+201,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,4188,0) +811.902;+207,+201,;24~0 +"DATA",811.8,177,100,4189,0) +811.902;+207,+201,;25~0 +"DATA",811.8,177,100,4190,0) +811.902;+208,+201,;.01~RT.MU STK-3 DENOM EXCLU TRM +"DATA",811.8,177,100,4191,0) +811.902;+208,+201,;24~0 +"DATA",811.8,177,100,4192,0) +811.902;+208,+201,;25~0 +"DATA",811.8,177,100,4193,0) +811.902;+209,+201,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,4194,0) +811.902;+209,+201,;24~0 +"DATA",811.8,177,100,4195,0) +811.902;+209,+201,;25~0 +"DATA",811.8,177,100,4196,0) +811.902;+210,+201,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,4197,0) +811.902;+210,+201,;24~0 +"DATA",811.8,177,100,4198,0) +811.902;+210,+201,;25~0 +"DATA",811.8,177,100,4199,0) +811.902;+211,+201,;.01~RT.MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,177,100,4200,0) +811.902;+211,+201,;24~0 +"DATA",811.8,177,100,4201,0) +811.902;+211,+201,;25~0 +"DATA",811.8,177,100,4202,0) +811.902;+212,+201,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,4203,0) +811.902;+212,+201,;24~0 +"DATA",811.8,177,100,4204,0) +811.902;+212,+201,;25~0 +"DATA",811.8,177,100,4205,0) +811.902;+213,+201,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,4206,0) +811.902;+213,+201,;24~0 +"DATA",811.8,177,100,4207,0) +811.902;+213,+201,;25~0 +"DATA",811.8,177,100,4208,0) +811.902;+214,+201,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,4209,0) +811.902;+214,+201,;24~0 +"DATA",811.8,177,100,4210,0) +811.902;+214,+201,;25~0 +"DATA",811.8,177,100,4211,0) +811.925;+215,+201,;.01~1 +"DATA",811.8,177,100,4212,0) +811.925;+215,+201,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,4213,0) +811.925;+215,+201,;10~FN(1)<121 +"DATA",811.8,177,100,4214,0) +811.925;+215,+201,;41~0 +"DATA",811.8,177,100,4215,0) +811.925;+215,+201,;42~0 +"DATA",811.8,177,100,4216,0) +811.9255;+216,+215,+201,;.01~1 +"DATA",811.8,177,100,4217,0) +811.9255;+216,+215,+201,;.02~DIFF_DATE +"DATA",811.8,177,100,4218,0) +811.9256;+217,+216,+215,+201,;.01~5 +"DATA",811.8,177,100,4219,0) +811.9256;+218,+216,+215,+201,;.01~4 +"DATA",811.8,177,100,4220,0) +811.97;+219,+201,;.01~99Y +"DATA",811.8,177,100,4221,0) +811.97;+219,+201,;1~18 +"DATA",811.8,177,100,4222,0) +811.97;+219,+201,;2~99 +"DATA",811.8,177,100,4223,0) +811.97;+219,+201,;5~0 +"DATA",811.8,177,100,4224,0) +811.97;+219,+201,;6~0 +"DATA",811.8,177,100,4225,0) +]]> +"DATA",811.8,177,100,4226,0) + +"DATA",811.8,177,100,4227,0) + +"DATA",811.8,177,100,4228,0) + +"DATA",811.8,177,100,4248,0) + +"DATA",811.8,177,100,4249,0) + +"DATA",811.8,177,100,4250,0) + +"DATA",811.8,177,100,4251,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4252,0) +811.9 +"DATA",811.8,177,100,4253,0) +MU STK-3 NUMER CR +"DATA",811.8,177,100,4254,0) +200 +"DATA",811.8,177,100,4255,0) +3951192449 +"DATA",811.8,177,100,4256,0) +NO +"DATA",811.8,177,100,4257,0) + +"DATA",811.8,177,100,4258,0) + 18y +"DATA",811.8,177,100,4263,0) +LOS <=120 DAYS +"DATA",811.8,177,100,4264,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,4265,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,4266,0) +EX PT ADMITTED FO RELECTIVE CAROTID INTERENTION +"DATA",811.8,177,100,4267,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,4268,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,4269,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,4270,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,4271,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4272,0) +EX PT WITH A DOCUMENTED REASON FOR NOT PRESCRIBING ANITCIAGULATION THERAPY +"DATA",811.8,177,100,4273,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,4274,0) +PTS WITH DOCUMENTED ATRIAL FIBRILLATION/FLUTTER +"DATA",811.8,177,100,4275,0) +811.9;+200,;30~(AGE)&(FI(1)&FF(1))&'FI(8)&'FI(9)&'FI(10)&'FI(11)&'FI(12)&'FI(13)&'FI(3)&'FI(2)&(FI(6)&FF(2))&(FI(7)&FF(1))&(FI(1)&FI(7)) +"DATA",811.8,177,100,4276,0) +811.9;+200,;31~(AGE)&(FI(1)&FF(1))&'FI(8)&'FI(9)&'FI(10)&'FI(11)&'FI(12)&'FI(13)&'FI(3)&'FI(2)&(FI(6)&FF(2))&(FI(7)&FF(1))&(FI(1)&FI(7)) +"DATA",811.8,177,100,4277,0) +811.9;+200,;32~17 +"DATA",811.8,177,100,4278,0) +811.9;+200,;33~AGE;1;FF1;8;9;10;11;12;13;3;2;6;FF2;7;FF1;1;7 +"DATA",811.8,177,100,4279,0) +811.9;+200,;36~0 +"DATA",811.8,177,100,4280,0) +811.9;+200,;40~0 +"DATA",811.8,177,100,4281,0) +811.9;+200,;42~2 +"DATA",811.8,177,100,4282,0) +811.9;+200,;43~4;5 +"DATA",811.8,177,100,4283,0) +811.9;+200,;62~0 +"DATA",811.8,177,100,4284,0) +811.9;+200,;63~0 +"DATA",811.8,177,100,4285,0) +811.9;+200,;67~0 +"DATA",811.8,177,100,4286,0) +811.9;+200,;68~0 +"DATA",811.8,177,100,4287,0) +811.9;+200,;71~WP-start~1 +"DATA",811.8,177,100,4288,0) + +"DATA",811.8,177,100,4289,0) +811.9;+200,;72~0 +"DATA",811.8,177,100,4290,0) +811.9;+200,;73~1 +"DATA",811.8,177,100,4291,0) +811.9;+200,;77~0 +"DATA",811.8,177,100,4292,0) +811.9;+200,;78~0 +"DATA",811.8,177,100,4293,0) +811.9;+200,;100~LOCAL +"DATA",811.8,177,100,4294,0) +811.9;+200,;103~L +"DATA",811.8,177,100,4295,0) +811.9001;+201,+200,;.01~07/18/2012@10:34:44 +"DATA",811.8,177,100,4296,0) +811.9001;+201,+200,;2~WP-start~1 +"DATA",811.8,177,100,4297,0) +Exchange Stub +"DATA",811.8,177,100,4298,0) +811.902;+202,+200,;.01~TX.MU STK-3 DENOM INCLU TX +"DATA",811.8,177,100,4299,0) +811.902;+202,+200,;24~0 +"DATA",811.8,177,100,4300,0) +811.902;+202,+200,;25~0 +"DATA",811.8,177,100,4301,0) +811.902;+203,+200,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,4302,0) +811.902;+203,+200,;24~0 +"DATA",811.8,177,100,4303,0) +811.902;+203,+200,;25~0 +"DATA",811.8,177,100,4304,0) +811.902;+204,+200,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,4305,0) +811.902;+204,+200,;24~0 +"DATA",811.8,177,100,4306,0) +811.902;+204,+200,;25~0 +"DATA",811.8,177,100,4307,0) +811.902;+205,+200,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,4308,0) +811.902;+205,+200,;24~0 +"DATA",811.8,177,100,4309,0) +811.902;+205,+200,;25~0 +"DATA",811.8,177,100,4310,0) +811.902;+206,+200,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4311,0) +811.902;+206,+200,;24~0 +"DATA",811.8,177,100,4312,0) +811.902;+206,+200,;25~0 +"DATA",811.8,177,100,4313,0) +811.902;+207,+200,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,4314,0) +811.902;+207,+200,;24~0 +"DATA",811.8,177,100,4315,0) +811.902;+207,+200,;25~0 +"DATA",811.8,177,100,4316,0) +811.902;+208,+200,;.01~RT.MU STK-3 DENOM EXCLU TRM +"DATA",811.8,177,100,4317,0) +811.902;+208,+200,;24~0 +"DATA",811.8,177,100,4318,0) +811.902;+208,+200,;25~0 +"DATA",811.8,177,100,4319,0) +811.902;+209,+200,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,4320,0) +811.902;+209,+200,;24~0 +"DATA",811.8,177,100,4321,0) +811.902;+209,+200,;25~0 +"DATA",811.8,177,100,4322,0) +811.902;+210,+200,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,4323,0) +811.902;+210,+200,;24~0 +"DATA",811.8,177,100,4324,0) +811.902;+210,+200,;25~0 +"DATA",811.8,177,100,4325,0) +811.902;+211,+200,;.01~RT.MU STK-3 NUMER INCLU TRM +"DATA",811.8,177,100,4326,0) +811.902;+211,+200,;24~0 +"DATA",811.8,177,100,4327,0) +811.902;+211,+200,;25~0 +"DATA",811.8,177,100,4328,0) +811.902;+212,+200,;.01~TX.MU STK-3 DENOM INCLU AT FIB/FL TX +"DATA",811.8,177,100,4329,0) +811.902;+212,+200,;24~0 +"DATA",811.8,177,100,4330,0) +811.902;+212,+200,;25~0 +"DATA",811.8,177,100,4331,0) +811.902;+213,+200,;.01~RT.MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,177,100,4332,0) +811.902;+213,+200,;24~0 +"DATA",811.8,177,100,4333,0) +811.902;+213,+200,;25~0 +"DATA",811.8,177,100,4334,0) +811.902;+214,+200,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,4335,0) +811.902;+214,+200,;24~0 +"DATA",811.8,177,100,4336,0) +811.902;+214,+200,;25~0 +"DATA",811.8,177,100,4337,0) +811.925;+215,+200,;.01~1 +"DATA",811.8,177,100,4338,0) +811.925;+215,+200,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,4339,0) +811.925;+215,+200,;10~FN(1)<121 +"DATA",811.8,177,100,4340,0) +811.925;+215,+200,;41~0 +"DATA",811.8,177,100,4341,0) +811.925;+215,+200,;42~0 +"DATA",811.8,177,100,4342,0) +811.925;+216,+200,;.01~2 +"DATA",811.8,177,100,4343,0) +811.925;+216,+200,;3~DIFF_DATE(6,5)=0 +"DATA",811.8,177,100,4344,0) +811.925;+216,+200,;10~FN(1)=0 +"DATA",811.8,177,100,4345,0) +811.925;+216,+200,;41~0 +"DATA",811.8,177,100,4346,0) +811.925;+216,+200,;42~0 +"DATA",811.8,177,100,4347,0) +811.9255;+217,+215,+200,;.01~1 +"DATA",811.8,177,100,4348,0) +811.9255;+217,+215,+200,;.02~DIFF_DATE +"DATA",811.8,177,100,4349,0) +811.9255;+218,+216,+200,;.01~1 +"DATA",811.8,177,100,4350,0) +811.9255;+218,+216,+200,;.02~DIFF_DATE +"DATA",811.8,177,100,4351,0) +811.9256;+219,+217,+215,+200,;.01~5 +"DATA",811.8,177,100,4352,0) +811.9256;+220,+218,+216,+200,;.01~6 +"DATA",811.8,177,100,4353,0) +811.9256;+221,+217,+215,+200,;.01~4 +"DATA",811.8,177,100,4354,0) +811.9256;+222,+218,+216,+200,;.01~5 +"DATA",811.8,177,100,4355,0) +811.97;+223,+200,;.01~99Y +"DATA",811.8,177,100,4356,0) +811.97;+223,+200,;1~18 +"DATA",811.8,177,100,4357,0) +811.97;+223,+200,;2~99 +"DATA",811.8,177,100,4358,0) +811.97;+223,+200,;5~0 +"DATA",811.8,177,100,4359,0) +811.97;+223,+200,;6~0 +"DATA",811.8,177,100,4360,0) +]]> +"DATA",811.8,177,100,4361,0) + +"DATA",811.8,177,100,4362,0) + +"DATA",811.8,177,100,4363,0) + +"DATA",811.8,177,100,4388,0) + +"DATA",811.8,177,100,4389,0) + +"DATA",811.8,177,100,4390,0) + +"DATA",811.8,177,100,4391,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4392,0) +811.9 +"DATA",811.8,177,100,4393,0) +MU STK-2 DENOM CR +"DATA",811.8,177,100,4394,0) +203 +"DATA",811.8,177,100,4395,0) +28017522 +"DATA",811.8,177,100,4396,0) +NO +"DATA",811.8,177,100,4397,0) + +"DATA",811.8,177,100,4398,0) + 18 Years of age +"DATA",811.8,177,100,4404,0) +LOS +"DATA",811.8,177,100,4477,0) + +"DATA",811.8,177,100,4478,0) + +"DATA",811.8,177,100,4479,0) + +"DATA",811.8,177,100,4498,0) + +"DATA",811.8,177,100,4499,0) + +"DATA",811.8,177,100,4500,0) + +"DATA",811.8,177,100,4501,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4502,0) +811.9 +"DATA",811.8,177,100,4503,0) +MU STK-2 NUMER CR +"DATA",811.8,177,100,4504,0) +202 +"DATA",811.8,177,100,4505,0) +3007164804 +"DATA",811.8,177,100,4506,0) +NO +"DATA",811.8,177,100,4507,0) + +"DATA",811.8,177,100,4508,0) + +"DATA",811.8,177,100,4594,0) + +"DATA",811.8,177,100,4595,0) + +"DATA",811.8,177,100,4596,0) + +"DATA",811.8,177,100,4620,0) + +"DATA",811.8,177,100,4621,0) + +"DATA",811.8,177,100,4622,0) + +"DATA",811.8,177,100,4623,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4624,0) +810.4 +"DATA",811.8,177,100,4625,0) +MU STK-10 DENOM RR +"DATA",811.8,177,100,4626,0) +104 +"DATA",811.8,177,100,4627,0) +3794494103 +"DATA",811.8,177,100,4628,0) +NO +"DATA",811.8,177,100,4629,0) + +"DATA",811.8,177,100,4630,0) + +"DATA",811.8,177,100,4639,0) + +"DATA",811.8,177,100,4640,0) + +"DATA",811.8,177,100,4641,0) + +"DATA",811.8,177,100,4644,0) + +"DATA",811.8,177,100,4645,0) + +"DATA",811.8,177,100,4646,0) + +"DATA",811.8,177,100,4647,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4648,0) +810.4 +"DATA",811.8,177,100,4649,0) +MU STK-10 DENOM RS +"DATA",811.8,177,100,4650,0) +127 +"DATA",811.8,177,100,4651,0) +3393720656 +"DATA",811.8,177,100,4652,0) +YES +"DATA",811.8,177,100,4653,0) + +"DATA",811.8,177,100,4654,0) + +"DATA",811.8,177,100,4665,0) + +"DATA",811.8,177,100,4666,0) + +"DATA",811.8,177,100,4667,0) + +"DATA",811.8,177,100,4671,0) + +"DATA",811.8,177,100,4672,0) + +"DATA",811.8,177,100,4673,0) + +"DATA",811.8,177,100,4674,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4675,0) +810.4 +"DATA",811.8,177,100,4676,0) +MU STK-10 NUMER RR +"DATA",811.8,177,100,4677,0) +103 +"DATA",811.8,177,100,4678,0) +3356659019 +"DATA",811.8,177,100,4679,0) +NO +"DATA",811.8,177,100,4680,0) + +"DATA",811.8,177,100,4681,0) + +"DATA",811.8,177,100,4690,0) + +"DATA",811.8,177,100,4691,0) + +"DATA",811.8,177,100,4692,0) + +"DATA",811.8,177,100,4695,0) + +"DATA",811.8,177,100,4696,0) + +"DATA",811.8,177,100,4697,0) + +"DATA",811.8,177,100,4698,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4699,0) +810.4 +"DATA",811.8,177,100,4700,0) +MU STK-10 NUMER RS +"DATA",811.8,177,100,4701,0) +126 +"DATA",811.8,177,100,4702,0) +366962990 +"DATA",811.8,177,100,4703,0) +YES +"DATA",811.8,177,100,4704,0) + +"DATA",811.8,177,100,4705,0) + +"DATA",811.8,177,100,4716,0) + +"DATA",811.8,177,100,4717,0) + +"DATA",811.8,177,100,4718,0) + +"DATA",811.8,177,100,4722,0) + +"DATA",811.8,177,100,4723,0) + +"DATA",811.8,177,100,4724,0) + +"DATA",811.8,177,100,4725,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4726,0) +810.4 +"DATA",811.8,177,100,4727,0) +MU STK-8 DENOM RR +"DATA",811.8,177,100,4728,0) +102 +"DATA",811.8,177,100,4729,0) +2074637946 +"DATA",811.8,177,100,4730,0) +NO +"DATA",811.8,177,100,4731,0) + +"DATA",811.8,177,100,4732,0) + +"DATA",811.8,177,100,4741,0) + +"DATA",811.8,177,100,4742,0) + +"DATA",811.8,177,100,4743,0) + +"DATA",811.8,177,100,4746,0) + +"DATA",811.8,177,100,4747,0) + +"DATA",811.8,177,100,4748,0) + +"DATA",811.8,177,100,4749,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4750,0) +810.4 +"DATA",811.8,177,100,4751,0) +MU STK-8 DENOM RS +"DATA",811.8,177,100,4752,0) +125 +"DATA",811.8,177,100,4753,0) +749620612 +"DATA",811.8,177,100,4754,0) +YES +"DATA",811.8,177,100,4755,0) + +"DATA",811.8,177,100,4756,0) + +"DATA",811.8,177,100,4767,0) + +"DATA",811.8,177,100,4768,0) + +"DATA",811.8,177,100,4769,0) + +"DATA",811.8,177,100,4773,0) + +"DATA",811.8,177,100,4774,0) + +"DATA",811.8,177,100,4775,0) + +"DATA",811.8,177,100,4776,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4777,0) +810.4 +"DATA",811.8,177,100,4778,0) +MU STK-8 NUMER RR +"DATA",811.8,177,100,4779,0) +101 +"DATA",811.8,177,100,4780,0) +3121293187 +"DATA",811.8,177,100,4781,0) +NO +"DATA",811.8,177,100,4782,0) + +"DATA",811.8,177,100,4783,0) + +"DATA",811.8,177,100,4792,0) + +"DATA",811.8,177,100,4793,0) + +"DATA",811.8,177,100,4794,0) + +"DATA",811.8,177,100,4797,0) + +"DATA",811.8,177,100,4798,0) + +"DATA",811.8,177,100,4799,0) + +"DATA",811.8,177,100,4800,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4801,0) +810.4 +"DATA",811.8,177,100,4802,0) +MU STK-8 NUMER RS +"DATA",811.8,177,100,4803,0) +124 +"DATA",811.8,177,100,4804,0) +1677377554 +"DATA",811.8,177,100,4805,0) +YES +"DATA",811.8,177,100,4806,0) + +"DATA",811.8,177,100,4807,0) + +"DATA",811.8,177,100,4818,0) + +"DATA",811.8,177,100,4819,0) + +"DATA",811.8,177,100,4820,0) + +"DATA",811.8,177,100,4824,0) + +"DATA",811.8,177,100,4825,0) + +"DATA",811.8,177,100,4826,0) + +"DATA",811.8,177,100,4827,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4828,0) +810.4 +"DATA",811.8,177,100,4829,0) +MU STK-6 DENOM RR +"DATA",811.8,177,100,4830,0) +99 +"DATA",811.8,177,100,4831,0) +3005171252 +"DATA",811.8,177,100,4832,0) +NO +"DATA",811.8,177,100,4833,0) + +"DATA",811.8,177,100,4834,0) + +"DATA",811.8,177,100,4843,0) + +"DATA",811.8,177,100,4844,0) + +"DATA",811.8,177,100,4845,0) + +"DATA",811.8,177,100,4848,0) + +"DATA",811.8,177,100,4849,0) + +"DATA",811.8,177,100,4850,0) + +"DATA",811.8,177,100,4851,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4852,0) +810.4 +"DATA",811.8,177,100,4853,0) +MU STK-6 DENOM RS +"DATA",811.8,177,100,4854,0) +123 +"DATA",811.8,177,100,4855,0) +2179780751 +"DATA",811.8,177,100,4856,0) +YES +"DATA",811.8,177,100,4857,0) + +"DATA",811.8,177,100,4858,0) + +"DATA",811.8,177,100,4869,0) + +"DATA",811.8,177,100,4870,0) + +"DATA",811.8,177,100,4871,0) + +"DATA",811.8,177,100,4875,0) + +"DATA",811.8,177,100,4876,0) + +"DATA",811.8,177,100,4877,0) + +"DATA",811.8,177,100,4878,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4879,0) +810.4 +"DATA",811.8,177,100,4880,0) +MU STK-6 NUMER RR +"DATA",811.8,177,100,4881,0) +100 +"DATA",811.8,177,100,4882,0) +1924929485 +"DATA",811.8,177,100,4883,0) +NO +"DATA",811.8,177,100,4884,0) + +"DATA",811.8,177,100,4885,0) + +"DATA",811.8,177,100,4894,0) + +"DATA",811.8,177,100,4895,0) + +"DATA",811.8,177,100,4896,0) + +"DATA",811.8,177,100,4899,0) + +"DATA",811.8,177,100,4900,0) + +"DATA",811.8,177,100,4901,0) + +"DATA",811.8,177,100,4902,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4903,0) +810.4 +"DATA",811.8,177,100,4904,0) +MU STK-6 NUMER RS +"DATA",811.8,177,100,4905,0) +122 +"DATA",811.8,177,100,4906,0) +3468188953 +"DATA",811.8,177,100,4907,0) +YES +"DATA",811.8,177,100,4908,0) + +"DATA",811.8,177,100,4909,0) + +"DATA",811.8,177,100,4920,0) + +"DATA",811.8,177,100,4921,0) + +"DATA",811.8,177,100,4922,0) + +"DATA",811.8,177,100,4926,0) + +"DATA",811.8,177,100,4927,0) + +"DATA",811.8,177,100,4928,0) + +"DATA",811.8,177,100,4929,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4930,0) +810.4 +"DATA",811.8,177,100,4931,0) +MU STK-5 DENOM RR +"DATA",811.8,177,100,4932,0) +98 +"DATA",811.8,177,100,4933,0) +11249569 +"DATA",811.8,177,100,4934,0) +NO +"DATA",811.8,177,100,4935,0) + +"DATA",811.8,177,100,4936,0) + +"DATA",811.8,177,100,4945,0) + +"DATA",811.8,177,100,4946,0) + +"DATA",811.8,177,100,4947,0) + +"DATA",811.8,177,100,4950,0) + +"DATA",811.8,177,100,4951,0) + +"DATA",811.8,177,100,4952,0) + +"DATA",811.8,177,100,4953,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4954,0) +810.4 +"DATA",811.8,177,100,4955,0) +MU STK-5 DENOM RS +"DATA",811.8,177,100,4956,0) +121 +"DATA",811.8,177,100,4957,0) +207921755 +"DATA",811.8,177,100,4958,0) +YES +"DATA",811.8,177,100,4959,0) + +"DATA",811.8,177,100,4960,0) + +"DATA",811.8,177,100,4971,0) + +"DATA",811.8,177,100,4972,0) + +"DATA",811.8,177,100,4973,0) + +"DATA",811.8,177,100,4977,0) + +"DATA",811.8,177,100,4978,0) + +"DATA",811.8,177,100,4979,0) + +"DATA",811.8,177,100,4980,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4981,0) +810.4 +"DATA",811.8,177,100,4982,0) +MU STK-5 NUMER RR +"DATA",811.8,177,100,4983,0) +97 +"DATA",811.8,177,100,4984,0) +3238590040 +"DATA",811.8,177,100,4985,0) +NO +"DATA",811.8,177,100,4986,0) + +"DATA",811.8,177,100,4987,0) + +"DATA",811.8,177,100,4996,0) + +"DATA",811.8,177,100,4997,0) + +"DATA",811.8,177,100,4998,0) + +"DATA",811.8,177,100,5001,0) + +"DATA",811.8,177,100,5002,0) + +"DATA",811.8,177,100,5003,0) + +"DATA",811.8,177,100,5004,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5005,0) +810.4 +"DATA",811.8,177,100,5006,0) +MU STK-5 NUMER RS +"DATA",811.8,177,100,5007,0) +120 +"DATA",811.8,177,100,5008,0) +1127231437 +"DATA",811.8,177,100,5009,0) +YES +"DATA",811.8,177,100,5010,0) + +"DATA",811.8,177,100,5011,0) + +"DATA",811.8,177,100,5022,0) + +"DATA",811.8,177,100,5023,0) + +"DATA",811.8,177,100,5024,0) + +"DATA",811.8,177,100,5028,0) + +"DATA",811.8,177,100,5029,0) + +"DATA",811.8,177,100,5030,0) + +"DATA",811.8,177,100,5031,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5032,0) +810.4 +"DATA",811.8,177,100,5033,0) +MU STK-4 NUMER RR +"DATA",811.8,177,100,5034,0) +95 +"DATA",811.8,177,100,5035,0) +424389396 +"DATA",811.8,177,100,5036,0) +NO +"DATA",811.8,177,100,5037,0) + +"DATA",811.8,177,100,5038,0) + +"DATA",811.8,177,100,5047,0) + +"DATA",811.8,177,100,5048,0) + +"DATA",811.8,177,100,5049,0) + +"DATA",811.8,177,100,5052,0) + +"DATA",811.8,177,100,5053,0) + +"DATA",811.8,177,100,5054,0) + +"DATA",811.8,177,100,5055,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5056,0) +810.4 +"DATA",811.8,177,100,5057,0) +MU STK-4 NUMER RS +"DATA",811.8,177,100,5058,0) +119 +"DATA",811.8,177,100,5059,0) +944243073 +"DATA",811.8,177,100,5060,0) +YES +"DATA",811.8,177,100,5061,0) + +"DATA",811.8,177,100,5062,0) + +"DATA",811.8,177,100,5073,0) + +"DATA",811.8,177,100,5074,0) + +"DATA",811.8,177,100,5075,0) + +"DATA",811.8,177,100,5079,0) + +"DATA",811.8,177,100,5080,0) + +"DATA",811.8,177,100,5081,0) + +"DATA",811.8,177,100,5082,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5083,0) +810.4 +"DATA",811.8,177,100,5084,0) +MU STK-4 DENOM RR +"DATA",811.8,177,100,5085,0) +96 +"DATA",811.8,177,100,5086,0) +3639147245 +"DATA",811.8,177,100,5087,0) +NO +"DATA",811.8,177,100,5088,0) + +"DATA",811.8,177,100,5089,0) + +"DATA",811.8,177,100,5098,0) + +"DATA",811.8,177,100,5099,0) + +"DATA",811.8,177,100,5100,0) + +"DATA",811.8,177,100,5103,0) + +"DATA",811.8,177,100,5104,0) + +"DATA",811.8,177,100,5105,0) + +"DATA",811.8,177,100,5106,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5107,0) +810.4 +"DATA",811.8,177,100,5108,0) +MU STK-4 DENOM RS +"DATA",811.8,177,100,5109,0) +118 +"DATA",811.8,177,100,5110,0) +1998359575 +"DATA",811.8,177,100,5111,0) +YES +"DATA",811.8,177,100,5112,0) + +"DATA",811.8,177,100,5113,0) + +"DATA",811.8,177,100,5124,0) + +"DATA",811.8,177,100,5125,0) + +"DATA",811.8,177,100,5126,0) + +"DATA",811.8,177,100,5130,0) + +"DATA",811.8,177,100,5131,0) + +"DATA",811.8,177,100,5132,0) + +"DATA",811.8,177,100,5133,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5134,0) +810.4 +"DATA",811.8,177,100,5135,0) +MU STK-3 DENOM RR +"DATA",811.8,177,100,5136,0) +94 +"DATA",811.8,177,100,5137,0) +3165872842 +"DATA",811.8,177,100,5138,0) +NO +"DATA",811.8,177,100,5139,0) + +"DATA",811.8,177,100,5140,0) + +"DATA",811.8,177,100,5149,0) + +"DATA",811.8,177,100,5150,0) + +"DATA",811.8,177,100,5151,0) + +"DATA",811.8,177,100,5154,0) + +"DATA",811.8,177,100,5155,0) + +"DATA",811.8,177,100,5156,0) + +"DATA",811.8,177,100,5157,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5158,0) +810.4 +"DATA",811.8,177,100,5159,0) +MU STK-3 DENOM RS +"DATA",811.8,177,100,5160,0) +117 +"DATA",811.8,177,100,5161,0) +3422896562 +"DATA",811.8,177,100,5162,0) +YES +"DATA",811.8,177,100,5163,0) + +"DATA",811.8,177,100,5164,0) + +"DATA",811.8,177,100,5175,0) + +"DATA",811.8,177,100,5176,0) + +"DATA",811.8,177,100,5177,0) + +"DATA",811.8,177,100,5181,0) + +"DATA",811.8,177,100,5182,0) + +"DATA",811.8,177,100,5183,0) + +"DATA",811.8,177,100,5184,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5185,0) +810.4 +"DATA",811.8,177,100,5186,0) +MU STK-3 NUMER RR +"DATA",811.8,177,100,5187,0) +93 +"DATA",811.8,177,100,5188,0) +2098213683 +"DATA",811.8,177,100,5189,0) +NO +"DATA",811.8,177,100,5190,0) + +"DATA",811.8,177,100,5191,0) + +"DATA",811.8,177,100,5200,0) + +"DATA",811.8,177,100,5201,0) + +"DATA",811.8,177,100,5202,0) + +"DATA",811.8,177,100,5205,0) + +"DATA",811.8,177,100,5206,0) + +"DATA",811.8,177,100,5207,0) + +"DATA",811.8,177,100,5208,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5209,0) +810.4 +"DATA",811.8,177,100,5210,0) +MU STK-3 NUMER RS +"DATA",811.8,177,100,5211,0) +116 +"DATA",811.8,177,100,5212,0) +2203175972 +"DATA",811.8,177,100,5213,0) +YES +"DATA",811.8,177,100,5214,0) + +"DATA",811.8,177,100,5215,0) + +"DATA",811.8,177,100,5226,0) + +"DATA",811.8,177,100,5227,0) + +"DATA",811.8,177,100,5228,0) + +"DATA",811.8,177,100,5232,0) + +"DATA",811.8,177,100,5233,0) + +"DATA",811.8,177,100,5234,0) + +"DATA",811.8,177,100,5235,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5236,0) +810.4 +"DATA",811.8,177,100,5237,0) +MU STK-2 DENOM RR +"DATA",811.8,177,100,5238,0) +92 +"DATA",811.8,177,100,5239,0) +1693466502 +"DATA",811.8,177,100,5240,0) +NO +"DATA",811.8,177,100,5241,0) + +"DATA",811.8,177,100,5242,0) + +"DATA",811.8,177,100,5251,0) + +"DATA",811.8,177,100,5252,0) + +"DATA",811.8,177,100,5253,0) + +"DATA",811.8,177,100,5256,0) + +"DATA",811.8,177,100,5257,0) + +"DATA",811.8,177,100,5258,0) + +"DATA",811.8,177,100,5259,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5260,0) +810.4 +"DATA",811.8,177,100,5261,0) +MU STK-2 DENOM RS +"DATA",811.8,177,100,5262,0) +115 +"DATA",811.8,177,100,5263,0) +3078451198 +"DATA",811.8,177,100,5264,0) +YES +"DATA",811.8,177,100,5265,0) + +"DATA",811.8,177,100,5266,0) + +"DATA",811.8,177,100,5277,0) + +"DATA",811.8,177,100,5278,0) + +"DATA",811.8,177,100,5279,0) + +"DATA",811.8,177,100,5283,0) + +"DATA",811.8,177,100,5284,0) + +"DATA",811.8,177,100,5285,0) + +"DATA",811.8,177,100,5286,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5287,0) +810.4 +"DATA",811.8,177,100,5288,0) +MU STK-2 NUMER RR +"DATA",811.8,177,100,5289,0) +91 +"DATA",811.8,177,100,5290,0) +2773708415 +"DATA",811.8,177,100,5291,0) +NO +"DATA",811.8,177,100,5292,0) + +"DATA",811.8,177,100,5293,0) + +"DATA",811.8,177,100,5302,0) + +"DATA",811.8,177,100,5303,0) + +"DATA",811.8,177,100,5304,0) + +"DATA",811.8,177,100,5307,0) + +"DATA",811.8,177,100,5308,0) + +"DATA",811.8,177,100,5309,0) + +"DATA",811.8,177,100,5310,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5311,0) +810.4 +"DATA",811.8,177,100,5312,0) +MU STK-2 NUMER RS +"DATA",811.8,177,100,5313,0) +114 +"DATA",811.8,177,100,5314,0) +4163494504 +"DATA",811.8,177,100,5315,0) +YES +"DATA",811.8,177,100,5316,0) + +"DATA",811.8,177,100,5317,0) + +"DATA",811.8,177,100,5328,0) + +"DATA",811.8,177,100,5329,0) + +"DATA",811.8,177,100,5330,0) + +"DATA",811.8,177,100,5334,0) + +"DATA",811.8,177,100,5335,0) + +"DATA",811.8,177,100,5336,0) + +"DATA",811.8,177,100,5337,0) +125 +"DATA",811.8,177,100,5338,0) + +"DATA",811.8,177,100,5339,0) +49 +"DATA",811.8,177,100,5340,0) +135 +"DATA",811.8,177,100,5341,0) +54 +"DATA",811.8,177,100,5342,0) + +"DATA",811.8,177,100,5343,0) + +"DATA",811.8,177,100,5344,0) +148 +"DATA",811.8,177,100,5345,0) +148 +"DATA",811.8,177,100,5346,0) +139 +"DATA",811.8,177,100,5347,0) + +"DATA",811.8,177,100,5348,0) + +"DATA",811.8,177,100,5349,0) +161 +"DATA",811.8,177,100,5350,0) +161 +"DATA",811.8,177,100,5351,0) +152 +"DATA",811.8,177,100,5352,0) + +"DATA",811.8,177,100,5353,0) + +"DATA",811.8,177,100,5354,0) +174 +"DATA",811.8,177,100,5355,0) +174 +"DATA",811.8,177,100,5356,0) +165 +"DATA",811.8,177,100,5357,0) + +"DATA",811.8,177,100,5358,0) + +"DATA",811.8,177,100,5359,0) +187 +"DATA",811.8,177,100,5360,0) +187 +"DATA",811.8,177,100,5361,0) +178 +"DATA",811.8,177,100,5362,0) + +"DATA",811.8,177,100,5363,0) + +"DATA",811.8,177,100,5364,0) +200 +"DATA",811.8,177,100,5365,0) +200 +"DATA",811.8,177,100,5366,0) +191 +"DATA",811.8,177,100,5367,0) + +"DATA",811.8,177,100,5368,0) + +"DATA",811.8,177,100,5369,0) +213 +"DATA",811.8,177,100,5370,0) +213 +"DATA",811.8,177,100,5371,0) +204 +"DATA",811.8,177,100,5372,0) + +"DATA",811.8,177,100,5373,0) + +"DATA",811.8,177,100,5374,0) +227 +"DATA",811.8,177,100,5375,0) +226 +"DATA",811.8,177,100,5376,0) +217 +"DATA",811.8,177,100,5377,0) + +"DATA",811.8,177,100,5378,0) + +"DATA",811.8,177,100,5379,0) +244 +"DATA",811.8,177,100,5380,0) +240 +"DATA",811.8,177,100,5381,0) +231 +"DATA",811.8,177,100,5382,0) + +"DATA",811.8,177,100,5383,0) + +"DATA",811.8,177,100,5384,0) +261 +"DATA",811.8,177,100,5385,0) +257 +"DATA",811.8,177,100,5386,0) +248 +"DATA",811.8,177,100,5387,0) + +"DATA",811.8,177,100,5388,0) + +"DATA",811.8,177,100,5389,0) +278 +"DATA",811.8,177,100,5390,0) +274 +"DATA",811.8,177,100,5391,0) +265 +"DATA",811.8,177,100,5392,0) + +"DATA",811.8,177,100,5393,0) + +"DATA",811.8,177,100,5394,0) +295 +"DATA",811.8,177,100,5395,0) +291 +"DATA",811.8,177,100,5396,0) +282 +"DATA",811.8,177,100,5397,0) + +"DATA",811.8,177,100,5398,0) + +"DATA",811.8,177,100,5399,0) +312 +"DATA",811.8,177,100,5400,0) +308 +"DATA",811.8,177,100,5401,0) +299 +"DATA",811.8,177,100,5402,0) + +"DATA",811.8,177,100,5403,0) + +"DATA",811.8,177,100,5404,0) +329 +"DATA",811.8,177,100,5405,0) +325 +"DATA",811.8,177,100,5406,0) +316 +"DATA",811.8,177,100,5407,0) + +"DATA",811.8,177,100,5408,0) + +"DATA",811.8,177,100,5409,0) +346 +"DATA",811.8,177,100,5410,0) +342 +"DATA",811.8,177,100,5411,0) +333 +"DATA",811.8,177,100,5412,0) + +"DATA",811.8,177,100,5413,0) + +"DATA",811.8,177,100,5414,0) +363 +"DATA",811.8,177,100,5415,0) +359 +"DATA",811.8,177,100,5416,0) +350 +"DATA",811.8,177,100,5417,0) + +"DATA",811.8,177,100,5418,0) + +"DATA",811.8,177,100,5419,0) +380 +"DATA",811.8,177,100,5420,0) +376 +"DATA",811.8,177,100,5421,0) +367 +"DATA",811.8,177,100,5422,0) + +"DATA",811.8,177,100,5423,0) + +"DATA",811.8,177,100,5424,0) +397 +"DATA",811.8,177,100,5425,0) +393 +"DATA",811.8,177,100,5426,0) +384 +"DATA",811.8,177,100,5427,0) + +"DATA",811.8,177,100,5428,0) + +"DATA",811.8,177,100,5429,0) +411 +"DATA",811.8,177,100,5430,0) +410 +"DATA",811.8,177,100,5431,0) +401 +"DATA",811.8,177,100,5432,0) + +"DATA",811.8,177,100,5433,0) + +"DATA",811.8,177,100,5434,0) +428 +"DATA",811.8,177,100,5435,0) +424 +"DATA",811.8,177,100,5436,0) +415 +"DATA",811.8,177,100,5437,0) + +"DATA",811.8,177,100,5438,0) + +"DATA",811.8,177,100,5439,0) +445 +"DATA",811.8,177,100,5440,0) +441 +"DATA",811.8,177,100,5441,0) +432 +"DATA",811.8,177,100,5442,0) + +"DATA",811.8,177,100,5443,0) + +"DATA",811.8,177,100,5444,0) +460 +"DATA",811.8,177,100,5445,0) +458 +"DATA",811.8,177,100,5446,0) +449 +"DATA",811.8,177,100,5447,0) + +"DATA",811.8,177,100,5448,0) + +"DATA",811.8,177,100,5449,0) +477 +"DATA",811.8,177,100,5450,0) +473 +"DATA",811.8,177,100,5451,0) +464 +"DATA",811.8,177,100,5452,0) + +"DATA",811.8,177,100,5453,0) + +"DATA",811.8,177,100,5454,0) +494 +"DATA",811.8,177,100,5455,0) +490 +"DATA",811.8,177,100,5456,0) +481 +"DATA",811.8,177,100,5457,0) + +"DATA",811.8,177,100,5458,0) + +"DATA",811.8,177,100,5459,0) +511 +"DATA",811.8,177,100,5460,0) +507 +"DATA",811.8,177,100,5461,0) +498 +"DATA",811.8,177,100,5462,0) + +"DATA",811.8,177,100,5463,0) + +"DATA",811.8,177,100,5464,0) +528 +"DATA",811.8,177,100,5465,0) +524 +"DATA",811.8,177,100,5466,0) +515 +"DATA",811.8,177,100,5467,0) + +"DATA",811.8,177,100,5468,0) + +"DATA",811.8,177,100,5469,0) +545 +"DATA",811.8,177,100,5470,0) +541 +"DATA",811.8,177,100,5471,0) +532 +"DATA",811.8,177,100,5472,0) + +"DATA",811.8,177,100,5473,0) + +"DATA",811.8,177,100,5474,0) +562 +"DATA",811.8,177,100,5475,0) +558 +"DATA",811.8,177,100,5476,0) +549 +"DATA",811.8,177,100,5477,0) + +"DATA",811.8,177,100,5478,0) + +"DATA",811.8,177,100,5479,0) +579 +"DATA",811.8,177,100,5480,0) +575 +"DATA",811.8,177,100,5481,0) +566 +"DATA",811.8,177,100,5482,0) + +"DATA",811.8,177,100,5483,0) + +"DATA",811.8,177,100,5484,0) +596 +"DATA",811.8,177,100,5485,0) +592 +"DATA",811.8,177,100,5486,0) +583 +"DATA",811.8,177,100,5487,0) + +"DATA",811.8,177,100,5488,0) + +"DATA",811.8,177,100,5489,0) +613 +"DATA",811.8,177,100,5490,0) +609 +"DATA",811.8,177,100,5491,0) +600 +"DATA",811.8,177,100,5492,0) + +"DATA",811.8,177,100,5493,0) + +"DATA",811.8,177,100,5494,0) +630 +"DATA",811.8,177,100,5495,0) +626 +"DATA",811.8,177,100,5496,0) +617 +"DATA",811.8,177,100,5497,0) + +"DATA",811.8,177,100,5498,0) + +"DATA",811.8,177,100,5499,0) +647 +"DATA",811.8,177,100,5500,0) +643 +"DATA",811.8,177,100,5501,0) +634 +"DATA",811.8,177,100,5502,0) + +"DATA",811.8,177,100,5503,0) + +"DATA",811.8,177,100,5504,0) +664 +"DATA",811.8,177,100,5505,0) +660 +"DATA",811.8,177,100,5506,0) +651 +"DATA",811.8,177,100,5507,0) + +"DATA",811.8,177,100,5508,0) + +"DATA",811.8,177,100,5509,0) +681 +"DATA",811.8,177,100,5510,0) +677 +"DATA",811.8,177,100,5511,0) +668 +"DATA",811.8,177,100,5512,0) + +"DATA",811.8,177,100,5513,0) + +"DATA",811.8,177,100,5514,0) +698 +"DATA",811.8,177,100,5515,0) +694 +"DATA",811.8,177,100,5516,0) +685 +"DATA",811.8,177,100,5517,0) + +"DATA",811.8,177,100,5518,0) + +"DATA",811.8,177,100,5519,0) +715 +"DATA",811.8,177,100,5520,0) +711 +"DATA",811.8,177,100,5521,0) +702 +"DATA",811.8,177,100,5522,0) + +"DATA",811.8,177,100,5523,0) + +"DATA",811.8,177,100,5524,0) +732 +"DATA",811.8,177,100,5525,0) +728 +"DATA",811.8,177,100,5526,0) +719 +"DATA",811.8,177,100,5527,0) + +"DATA",811.8,177,100,5528,0) + +"DATA",811.8,177,100,5529,0) +749 +"DATA",811.8,177,100,5530,0) +745 +"DATA",811.8,177,100,5531,0) +736 +"DATA",811.8,177,100,5532,0) + +"DATA",811.8,177,100,5533,0) + +"DATA",811.8,177,100,5534,0) +797 +"DATA",811.8,177,100,5535,0) +762 +"DATA",811.8,177,100,5536,0) +753 +"DATA",811.8,177,100,5537,0) +802 +"DATA",811.8,177,100,5538,0) +802 +"DATA",811.8,177,100,5539,0) + +"DATA",811.8,177,100,5540,0) + +"DATA",811.8,177,100,5541,0) +853 +"DATA",811.8,177,100,5542,0) +815 +"DATA",811.8,177,100,5543,0) +806 +"DATA",811.8,177,100,5544,0) +858 +"DATA",811.8,177,100,5545,0) +858 +"DATA",811.8,177,100,5546,0) + +"DATA",811.8,177,100,5547,0) + +"DATA",811.8,177,100,5548,0) +888 +"DATA",811.8,177,100,5549,0) +871 +"DATA",811.8,177,100,5550,0) +862 +"DATA",811.8,177,100,5551,0) +896 +"DATA",811.8,177,100,5552,0) +893 +"DATA",811.8,177,100,5553,0) + +"DATA",811.8,177,100,5554,0) + +"DATA",811.8,177,100,5555,0) +967 +"DATA",811.8,177,100,5556,0) +909 +"DATA",811.8,177,100,5557,0) +900 +"DATA",811.8,177,100,5558,0) +985 +"DATA",811.8,177,100,5559,0) +972 +"DATA",811.8,177,100,5560,0) + +"DATA",811.8,177,100,5561,0) + +"DATA",811.8,177,100,5562,0) +1052 +"DATA",811.8,177,100,5563,0) +998 +"DATA",811.8,177,100,5564,0) +989 +"DATA",811.8,177,100,5565,0) +1069 +"DATA",811.8,177,100,5566,0) +1057 +"DATA",811.8,177,100,5567,0) + +"DATA",811.8,177,100,5568,0) + +"DATA",811.8,177,100,5569,0) +1135 +"DATA",811.8,177,100,5570,0) +1082 +"DATA",811.8,177,100,5571,0) +1073 +"DATA",811.8,177,100,5572,0) +1152 +"DATA",811.8,177,100,5573,0) +1140 +"DATA",811.8,177,100,5574,0) + +"DATA",811.8,177,100,5575,0) + +"DATA",811.8,177,100,5576,0) +1219 +"DATA",811.8,177,100,5577,0) +1165 +"DATA",811.8,177,100,5578,0) +1156 +"DATA",811.8,177,100,5579,0) +1236 +"DATA",811.8,177,100,5580,0) +1224 +"DATA",811.8,177,100,5581,0) + +"DATA",811.8,177,100,5582,0) + +"DATA",811.8,177,100,5583,0) +1258 +"DATA",811.8,177,100,5584,0) +1249 +"DATA",811.8,177,100,5585,0) +1240 +"DATA",811.8,177,100,5586,0) +1264 +"DATA",811.8,177,100,5587,0) +1263 +"DATA",811.8,177,100,5588,0) + +"DATA",811.8,177,100,5589,0) + +"DATA",811.8,177,100,5590,0) +1351 +"DATA",811.8,177,100,5591,0) +1277 +"DATA",811.8,177,100,5592,0) +1268 +"DATA",811.8,177,100,5593,0) +1382 +"DATA",811.8,177,100,5594,0) +1356 +"DATA",811.8,177,100,5595,0) + +"DATA",811.8,177,100,5596,0) + +"DATA",811.8,177,100,5597,0) +1449 +"DATA",811.8,177,100,5598,0) +1395 +"DATA",811.8,177,100,5599,0) +1386 +"DATA",811.8,177,100,5600,0) +1466 +"DATA",811.8,177,100,5601,0) +1454 +"DATA",811.8,177,100,5602,0) + +"DATA",811.8,177,100,5603,0) + +"DATA",811.8,177,100,5604,0) +1487 +"DATA",811.8,177,100,5605,0) +1479 +"DATA",811.8,177,100,5606,0) +1470 +"DATA",811.8,177,100,5607,0) +1493 +"DATA",811.8,177,100,5608,0) +1492 +"DATA",811.8,177,100,5609,0) + +"DATA",811.8,177,100,5610,0) + +"DATA",811.8,177,100,5611,0) +1514 +"DATA",811.8,177,100,5612,0) +1506 +"DATA",811.8,177,100,5613,0) +1497 +"DATA",811.8,177,100,5614,0) +1520 +"DATA",811.8,177,100,5615,0) +1519 +"DATA",811.8,177,100,5616,0) + +"DATA",811.8,177,100,5617,0) + +"DATA",811.8,177,100,5618,0) +1541 +"DATA",811.8,177,100,5619,0) +1533 +"DATA",811.8,177,100,5620,0) +1524 +"DATA",811.8,177,100,5621,0) +1547 +"DATA",811.8,177,100,5622,0) +1546 +"DATA",811.8,177,100,5623,0) + +"DATA",811.8,177,100,5624,0) + +"DATA",811.8,177,100,5625,0) +1568 +"DATA",811.8,177,100,5626,0) +1560 +"DATA",811.8,177,100,5627,0) +1551 +"DATA",811.8,177,100,5628,0) +1574 +"DATA",811.8,177,100,5629,0) +1573 +"DATA",811.8,177,100,5630,0) + +"DATA",811.8,177,100,5631,0) + +"DATA",811.8,177,100,5632,0) +1595 +"DATA",811.8,177,100,5633,0) +1587 +"DATA",811.8,177,100,5634,0) +1578 +"DATA",811.8,177,100,5635,0) +1601 +"DATA",811.8,177,100,5636,0) +1600 +"DATA",811.8,177,100,5637,0) + +"DATA",811.8,177,100,5638,0) + +"DATA",811.8,177,100,5639,0) +1624 +"DATA",811.8,177,100,5640,0) +1614 +"DATA",811.8,177,100,5641,0) +1605 +"DATA",811.8,177,100,5642,0) +1633 +"DATA",811.8,177,100,5643,0) +1629 +"DATA",811.8,177,100,5644,0) + +"DATA",811.8,177,100,5645,0) + +"DATA",811.8,177,100,5646,0) +1651 +"DATA",811.8,177,100,5647,0) +1646 +"DATA",811.8,177,100,5648,0) +1637 +"DATA",811.8,177,100,5649,0) +1657 +"DATA",811.8,177,100,5650,0) +1656 +"DATA",811.8,177,100,5651,0) + +"DATA",811.8,177,100,5652,0) + +"DATA",811.8,177,100,5653,0) +1678 +"DATA",811.8,177,100,5654,0) +1670 +"DATA",811.8,177,100,5655,0) +1661 +"DATA",811.8,177,100,5656,0) +1684 +"DATA",811.8,177,100,5657,0) +1683 +"DATA",811.8,177,100,5658,0) + +"DATA",811.8,177,100,5659,0) + +"DATA",811.8,177,100,5660,0) +1705 +"DATA",811.8,177,100,5661,0) +1697 +"DATA",811.8,177,100,5662,0) +1688 +"DATA",811.8,177,100,5663,0) +1711 +"DATA",811.8,177,100,5664,0) +1710 +"DATA",811.8,177,100,5665,0) + +"DATA",811.8,177,100,5666,0) + +"DATA",811.8,177,100,5667,0) +1729 +"DATA",811.8,177,100,5668,0) +1724 +"DATA",811.8,177,100,5669,0) +1715 +"DATA",811.8,177,100,5670,0) +1735 +"DATA",811.8,177,100,5671,0) +1734 +"DATA",811.8,177,100,5672,0) + +"DATA",811.8,177,100,5673,0) + +"DATA",811.8,177,100,5674,0) +1753 +"DATA",811.8,177,100,5675,0) +1748 +"DATA",811.8,177,100,5676,0) +1739 +"DATA",811.8,177,100,5677,0) +1759 +"DATA",811.8,177,100,5678,0) +1758 +"DATA",811.8,177,100,5679,0) + +"DATA",811.8,177,100,5680,0) + +"DATA",811.8,177,100,5681,0) +1777 +"DATA",811.8,177,100,5682,0) +1772 +"DATA",811.8,177,100,5683,0) +1763 +"DATA",811.8,177,100,5684,0) +1783 +"DATA",811.8,177,100,5685,0) +1782 +"DATA",811.8,177,100,5686,0) + +"DATA",811.8,177,100,5687,0) + +"DATA",811.8,177,100,5688,0) +1801 +"DATA",811.8,177,100,5689,0) +1796 +"DATA",811.8,177,100,5690,0) +1787 +"DATA",811.8,177,100,5691,0) +1807 +"DATA",811.8,177,100,5692,0) +1806 +"DATA",811.8,177,100,5693,0) + +"DATA",811.8,177,100,5694,0) + +"DATA",811.8,177,100,5695,0) +1825 +"DATA",811.8,177,100,5696,0) +1820 +"DATA",811.8,177,100,5697,0) +1811 +"DATA",811.8,177,100,5698,0) +1831 +"DATA",811.8,177,100,5699,0) +1830 +"DATA",811.8,177,100,5700,0) + +"DATA",811.8,177,100,5701,0) + +"DATA",811.8,177,100,5702,0) +1854 +"DATA",811.8,177,100,5703,0) +1844 +"DATA",811.8,177,100,5704,0) +1835 +"DATA",811.8,177,100,5705,0) +1862 +"DATA",811.8,177,100,5706,0) +1859 +"DATA",811.8,177,100,5707,0) + +"DATA",811.8,177,100,5708,0) + +"DATA",811.8,177,100,5709,0) +1882 +"DATA",811.8,177,100,5710,0) +1875 +"DATA",811.8,177,100,5711,0) +1866 +"DATA",811.8,177,100,5712,0) +1890 +"DATA",811.8,177,100,5713,0) +1887 +"DATA",811.8,177,100,5714,0) + +"DATA",811.8,177,100,5715,0) + +"DATA",811.8,177,100,5716,0) +1908 +"DATA",811.8,177,100,5717,0) +1903 +"DATA",811.8,177,100,5718,0) +1894 +"DATA",811.8,177,100,5719,0) +1914 +"DATA",811.8,177,100,5720,0) +1913 +"DATA",811.8,177,100,5721,0) + +"DATA",811.8,177,100,5722,0) + +"DATA",811.8,177,100,5723,0) +1934 +"DATA",811.8,177,100,5724,0) +1927 +"DATA",811.8,177,100,5725,0) +1918 +"DATA",811.8,177,100,5726,0) +1940 +"DATA",811.8,177,100,5727,0) +1939 +"DATA",811.8,177,100,5728,0) + +"DATA",811.8,177,100,5729,0) + +"DATA",811.8,177,100,5730,0) +1964 +"DATA",811.8,177,100,5731,0) +1953 +"DATA",811.8,177,100,5732,0) +1944 +"DATA",811.8,177,100,5733,0) +1974 +"DATA",811.8,177,100,5734,0) +1969 +"DATA",811.8,177,100,5735,0) + +"DATA",811.8,177,100,5736,0) + +"DATA",811.8,177,100,5737,0) +1992 +"DATA",811.8,177,100,5738,0) +1987 +"DATA",811.8,177,100,5739,0) +1978 +"DATA",811.8,177,100,5740,0) +1998 +"DATA",811.8,177,100,5741,0) +1997 +"DATA",811.8,177,100,5742,0) + +"DATA",811.8,177,100,5743,0) + +"DATA",811.8,177,100,5744,0) +2017 +"DATA",811.8,177,100,5745,0) +2011 +"DATA",811.8,177,100,5746,0) +2002 +"DATA",811.8,177,100,5747,0) +2024 +"DATA",811.8,177,100,5748,0) +2022 +"DATA",811.8,177,100,5749,0) + +"DATA",811.8,177,100,5750,0) + +"DATA",811.8,177,100,5751,0) +2053 +"DATA",811.8,177,100,5752,0) +2037 +"DATA",811.8,177,100,5753,0) +2028 +"DATA",811.8,177,100,5754,0) +2068 +"DATA",811.8,177,100,5755,0) +2058 +"DATA",811.8,177,100,5756,0) + +"DATA",811.8,177,100,5757,0) + +"DATA",811.8,177,100,5758,0) +2087 +"DATA",811.8,177,100,5759,0) +2081 +"DATA",811.8,177,100,5760,0) +2072 +"DATA",811.8,177,100,5761,0) +2094 +"DATA",811.8,177,100,5762,0) +2092 +"DATA",811.8,177,100,5763,0) + +"DATA",811.8,177,100,5764,0) + +"DATA",811.8,177,100,5765,0) +2112 +"DATA",811.8,177,100,5766,0) +2107 +"DATA",811.8,177,100,5767,0) +2098 +"DATA",811.8,177,100,5768,0) +2118 +"DATA",811.8,177,100,5769,0) +2117 +"DATA",811.8,177,100,5770,0) + +"DATA",811.8,177,100,5771,0) + +"DATA",811.8,177,100,5772,0) +2136 +"DATA",811.8,177,100,5773,0) +2131 +"DATA",811.8,177,100,5774,0) +2122 +"DATA",811.8,177,100,5775,0) +2142 +"DATA",811.8,177,100,5776,0) +2141 +"DATA",811.8,177,100,5777,0) + +"DATA",811.8,177,100,5778,0) + +"DATA",811.8,177,100,5779,0) +2162 +"DATA",811.8,177,100,5780,0) +2155 +"DATA",811.8,177,100,5781,0) +2146 +"DATA",811.8,177,100,5782,0) +2168 +"DATA",811.8,177,100,5783,0) +2167 +"DATA",811.8,177,100,5784,0) + +"DATA",811.8,177,100,5785,0) + +"DATA",811.8,177,100,5786,0) +2187 +"DATA",811.8,177,100,5787,0) +2181 +"DATA",811.8,177,100,5788,0) +2172 +"DATA",811.8,177,100,5789,0) +2194 +"DATA",811.8,177,100,5790,0) +2192 +"DATA",811.8,177,100,5791,0) + +"DATA",811.8,177,100,5792,0) + +"DATA",811.8,177,100,5793,0) +2217 +"DATA",811.8,177,100,5794,0) +2207 +"DATA",811.8,177,100,5795,0) +2198 +"DATA",811.8,177,100,5796,0) +2226 +"DATA",811.8,177,100,5797,0) +2222 +"DATA",811.8,177,100,5798,0) + +"DATA",811.8,177,100,5799,0) + +"DATA",811.8,177,100,5800,0) +2246 +"DATA",811.8,177,100,5801,0) +2239 +"DATA",811.8,177,100,5802,0) +2230 +"DATA",811.8,177,100,5803,0) +2252 +"DATA",811.8,177,100,5804,0) +2251 +"DATA",811.8,177,100,5805,0) + +"DATA",811.8,177,100,5806,0) + +"DATA",811.8,177,100,5807,0) +2273 +"DATA",811.8,177,100,5808,0) +2265 +"DATA",811.8,177,100,5809,0) +2256 +"DATA",811.8,177,100,5810,0) +2279 +"DATA",811.8,177,100,5811,0) +2278 +"DATA",811.8,177,100,5812,0) + +"DATA",811.8,177,100,5813,0) + +"DATA",811.8,177,100,5814,0) +2302 +"DATA",811.8,177,100,5815,0) +2292 +"DATA",811.8,177,100,5816,0) +2283 +"DATA",811.8,177,100,5817,0) +2311 +"DATA",811.8,177,100,5818,0) +2307 +"DATA",811.8,177,100,5819,0) + +"DATA",811.8,177,100,5820,0) + +"DATA",811.8,177,100,5821,0) +2332 +"DATA",811.8,177,100,5822,0) +2324 +"DATA",811.8,177,100,5823,0) +2315 +"DATA",811.8,177,100,5824,0) +2341 +"DATA",811.8,177,100,5825,0) +2337 +"DATA",811.8,177,100,5826,0) + +"DATA",811.8,177,100,5827,0) + +"DATA",811.8,177,100,5828,0) +2364 +"DATA",811.8,177,100,5829,0) +2354 +"DATA",811.8,177,100,5830,0) +2345 +"DATA",811.8,177,100,5831,0) +2373 +"DATA",811.8,177,100,5832,0) +2369 +"DATA",811.8,177,100,5833,0) + +"DATA",811.8,177,100,5834,0) + +"DATA",811.8,177,100,5835,0) +2397 +"DATA",811.8,177,100,5836,0) +2386 +"DATA",811.8,177,100,5837,0) +2377 +"DATA",811.8,177,100,5838,0) +2407 +"DATA",811.8,177,100,5839,0) +2402 +"DATA",811.8,177,100,5840,0) + +"DATA",811.8,177,100,5841,0) + +"DATA",811.8,177,100,5842,0) +2555 +"DATA",811.8,177,100,5843,0) +2420 +"DATA",811.8,177,100,5844,0) +2411 +"DATA",811.8,177,100,5845,0) +2602 +"DATA",811.8,177,100,5846,0) +2560 +"DATA",811.8,177,100,5847,0) + +"DATA",811.8,177,100,5848,0) + +"DATA",811.8,177,100,5849,0) +2753 +"DATA",811.8,177,100,5850,0) +2615 +"DATA",811.8,177,100,5851,0) +2606 +"DATA",811.8,177,100,5852,0) +2801 +"DATA",811.8,177,100,5853,0) +2758 +"DATA",811.8,177,100,5854,0) + +"DATA",811.8,177,100,5855,0) + +"DATA",811.8,177,100,5856,0) +2940 +"DATA",811.8,177,100,5857,0) +2814 +"DATA",811.8,177,100,5858,0) +2805 +"DATA",811.8,177,100,5859,0) +2984 +"DATA",811.8,177,100,5860,0) +2945 +"DATA",811.8,177,100,5861,0) + +"DATA",811.8,177,100,5862,0) + +"DATA",811.8,177,100,5863,0) +3138 +"DATA",811.8,177,100,5864,0) +2997 +"DATA",811.8,177,100,5865,0) +2988 +"DATA",811.8,177,100,5866,0) +3187 +"DATA",811.8,177,100,5867,0) +3143 +"DATA",811.8,177,100,5868,0) + +"DATA",811.8,177,100,5869,0) + +"DATA",811.8,177,100,5870,0) +3366 +"DATA",811.8,177,100,5871,0) +3200 +"DATA",811.8,177,100,5872,0) +3191 +"DATA",811.8,177,100,5873,0) +3431 +"DATA",811.8,177,100,5874,0) +3371 +"DATA",811.8,177,100,5875,0) + +"DATA",811.8,177,100,5876,0) + +"DATA",811.8,177,100,5877,0) +3622 +"DATA",811.8,177,100,5878,0) +3444 +"DATA",811.8,177,100,5879,0) +3435 +"DATA",811.8,177,100,5880,0) +3695 +"DATA",811.8,177,100,5881,0) +3627 +"DATA",811.8,177,100,5882,0) + +"DATA",811.8,177,100,5883,0) + +"DATA",811.8,177,100,5884,0) +3779 +"DATA",811.8,177,100,5885,0) +3708 +"DATA",811.8,177,100,5886,0) +3699 +"DATA",811.8,177,100,5887,0) +3798 +"DATA",811.8,177,100,5888,0) +3784 +"DATA",811.8,177,100,5889,0) + +"DATA",811.8,177,100,5890,0) + +"DATA",811.8,177,100,5891,0) +3898 +"DATA",811.8,177,100,5892,0) +3811 +"DATA",811.8,177,100,5893,0) +3802 +"DATA",811.8,177,100,5894,0) +3927 +"DATA",811.8,177,100,5895,0) +3903 +"DATA",811.8,177,100,5896,0) + +"DATA",811.8,177,100,5897,0) + +"DATA",811.8,177,100,5898,0) +4005 +"DATA",811.8,177,100,5899,0) +3940 +"DATA",811.8,177,100,5900,0) +3931 +"DATA",811.8,177,100,5901,0) +4024 +"DATA",811.8,177,100,5902,0) +4010 +"DATA",811.8,177,100,5903,0) + +"DATA",811.8,177,100,5904,0) + +"DATA",811.8,177,100,5905,0) +4105 +"DATA",811.8,177,100,5906,0) +4037 +"DATA",811.8,177,100,5907,0) +4028 +"DATA",811.8,177,100,5908,0) +4123 +"DATA",811.8,177,100,5909,0) +4110 +"DATA",811.8,177,100,5910,0) + +"DATA",811.8,177,100,5911,0) + +"DATA",811.8,177,100,5912,0) +4224 +"DATA",811.8,177,100,5913,0) +4136 +"DATA",811.8,177,100,5914,0) +4127 +"DATA",811.8,177,100,5915,0) +4246 +"DATA",811.8,177,100,5916,0) +4229 +"DATA",811.8,177,100,5917,0) + +"DATA",811.8,177,100,5918,0) + +"DATA",811.8,177,100,5919,0) +4359 +"DATA",811.8,177,100,5920,0) +4259 +"DATA",811.8,177,100,5921,0) +4250 +"DATA",811.8,177,100,5922,0) +4386 +"DATA",811.8,177,100,5923,0) +4364 +"DATA",811.8,177,100,5924,0) + +"DATA",811.8,177,100,5925,0) + +"DATA",811.8,177,100,5926,0) +4475 +"DATA",811.8,177,100,5927,0) +4399 +"DATA",811.8,177,100,5928,0) +4390 +"DATA",811.8,177,100,5929,0) +4496 +"DATA",811.8,177,100,5930,0) +4480 +"DATA",811.8,177,100,5931,0) + +"DATA",811.8,177,100,5932,0) + +"DATA",811.8,177,100,5933,0) +4592 +"DATA",811.8,177,100,5934,0) +4509 +"DATA",811.8,177,100,5935,0) +4500 +"DATA",811.8,177,100,5936,0) +4618 +"DATA",811.8,177,100,5937,0) +4597 +"DATA",811.8,177,100,5938,0) + +"DATA",811.8,177,100,5939,0) + +"DATA",811.8,177,100,5940,0) +4637 +"DATA",811.8,177,100,5941,0) +4631 +"DATA",811.8,177,100,5942,0) +4622 +"DATA",811.8,177,100,5943,0) +4642 +"DATA",811.8,177,100,5944,0) +4642 +"DATA",811.8,177,100,5945,0) + +"DATA",811.8,177,100,5946,0) + +"DATA",811.8,177,100,5947,0) +4663 +"DATA",811.8,177,100,5948,0) +4655 +"DATA",811.8,177,100,5949,0) +4646 +"DATA",811.8,177,100,5950,0) +4669 +"DATA",811.8,177,100,5951,0) +4668 +"DATA",811.8,177,100,5952,0) + +"DATA",811.8,177,100,5953,0) + +"DATA",811.8,177,100,5954,0) +4688 +"DATA",811.8,177,100,5955,0) +4682 +"DATA",811.8,177,100,5956,0) +4673 +"DATA",811.8,177,100,5957,0) +4693 +"DATA",811.8,177,100,5958,0) +4693 +"DATA",811.8,177,100,5959,0) + +"DATA",811.8,177,100,5960,0) + +"DATA",811.8,177,100,5961,0) +4714 +"DATA",811.8,177,100,5962,0) +4706 +"DATA",811.8,177,100,5963,0) +4697 +"DATA",811.8,177,100,5964,0) +4720 +"DATA",811.8,177,100,5965,0) +4719 +"DATA",811.8,177,100,5966,0) + +"DATA",811.8,177,100,5967,0) + +"DATA",811.8,177,100,5968,0) +4739 +"DATA",811.8,177,100,5969,0) +4733 +"DATA",811.8,177,100,5970,0) +4724 +"DATA",811.8,177,100,5971,0) +4744 +"DATA",811.8,177,100,5972,0) +4744 +"DATA",811.8,177,100,5973,0) + +"DATA",811.8,177,100,5974,0) + +"DATA",811.8,177,100,5975,0) +4765 +"DATA",811.8,177,100,5976,0) +4757 +"DATA",811.8,177,100,5977,0) +4748 +"DATA",811.8,177,100,5978,0) +4771 +"DATA",811.8,177,100,5979,0) +4770 +"DATA",811.8,177,100,5980,0) + +"DATA",811.8,177,100,5981,0) + +"DATA",811.8,177,100,5982,0) +4790 +"DATA",811.8,177,100,5983,0) +4784 +"DATA",811.8,177,100,5984,0) +4775 +"DATA",811.8,177,100,5985,0) +4795 +"DATA",811.8,177,100,5986,0) +4795 +"DATA",811.8,177,100,5987,0) + +"DATA",811.8,177,100,5988,0) + +"DATA",811.8,177,100,5989,0) +4816 +"DATA",811.8,177,100,5990,0) +4808 +"DATA",811.8,177,100,5991,0) +4799 +"DATA",811.8,177,100,5992,0) +4822 +"DATA",811.8,177,100,5993,0) +4821 +"DATA",811.8,177,100,5994,0) + +"DATA",811.8,177,100,5995,0) + +"DATA",811.8,177,100,5996,0) +4841 +"DATA",811.8,177,100,5997,0) +4835 +"DATA",811.8,177,100,5998,0) +4826 +"DATA",811.8,177,100,5999,0) +4846 +"DATA",811.8,177,100,6000,0) +4846 +"DATA",811.8,177,100,6001,0) + +"DATA",811.8,177,100,6002,0) + +"DATA",811.8,177,100,6003,0) +4867 +"DATA",811.8,177,100,6004,0) +4859 +"DATA",811.8,177,100,6005,0) +4850 +"DATA",811.8,177,100,6006,0) +4873 +"DATA",811.8,177,100,6007,0) +4872 +"DATA",811.8,177,100,6008,0) + +"DATA",811.8,177,100,6009,0) + +"DATA",811.8,177,100,6010,0) +4892 +"DATA",811.8,177,100,6011,0) +4886 +"DATA",811.8,177,100,6012,0) +4877 +"DATA",811.8,177,100,6013,0) +4897 +"DATA",811.8,177,100,6014,0) +4897 +"DATA",811.8,177,100,6015,0) + +"DATA",811.8,177,100,6016,0) + +"DATA",811.8,177,100,6017,0) +4918 +"DATA",811.8,177,100,6018,0) +4910 +"DATA",811.8,177,100,6019,0) +4901 +"DATA",811.8,177,100,6020,0) +4924 +"DATA",811.8,177,100,6021,0) +4923 +"DATA",811.8,177,100,6022,0) + +"DATA",811.8,177,100,6023,0) + +"DATA",811.8,177,100,6024,0) +4943 +"DATA",811.8,177,100,6025,0) +4937 +"DATA",811.8,177,100,6026,0) +4928 +"DATA",811.8,177,100,6027,0) +4948 +"DATA",811.8,177,100,6028,0) +4948 +"DATA",811.8,177,100,6029,0) + +"DATA",811.8,177,100,6030,0) + +"DATA",811.8,177,100,6031,0) +4969 +"DATA",811.8,177,100,6032,0) +4961 +"DATA",811.8,177,100,6033,0) +4952 +"DATA",811.8,177,100,6034,0) +4975 +"DATA",811.8,177,100,6035,0) +4974 +"DATA",811.8,177,100,6036,0) + +"DATA",811.8,177,100,6037,0) + +"DATA",811.8,177,100,6038,0) +4994 +"DATA",811.8,177,100,6039,0) +4988 +"DATA",811.8,177,100,6040,0) +4979 +"DATA",811.8,177,100,6041,0) +4999 +"DATA",811.8,177,100,6042,0) +4999 +"DATA",811.8,177,100,6043,0) + +"DATA",811.8,177,100,6044,0) + +"DATA",811.8,177,100,6045,0) +5020 +"DATA",811.8,177,100,6046,0) +5012 +"DATA",811.8,177,100,6047,0) +5003 +"DATA",811.8,177,100,6048,0) +5026 +"DATA",811.8,177,100,6049,0) +5025 +"DATA",811.8,177,100,6050,0) + +"DATA",811.8,177,100,6051,0) + +"DATA",811.8,177,100,6052,0) +5045 +"DATA",811.8,177,100,6053,0) +5039 +"DATA",811.8,177,100,6054,0) +5030 +"DATA",811.8,177,100,6055,0) +5050 +"DATA",811.8,177,100,6056,0) +5050 +"DATA",811.8,177,100,6057,0) + +"DATA",811.8,177,100,6058,0) + +"DATA",811.8,177,100,6059,0) +5071 +"DATA",811.8,177,100,6060,0) +5063 +"DATA",811.8,177,100,6061,0) +5054 +"DATA",811.8,177,100,6062,0) +5077 +"DATA",811.8,177,100,6063,0) +5076 +"DATA",811.8,177,100,6064,0) + +"DATA",811.8,177,100,6065,0) + +"DATA",811.8,177,100,6066,0) +5096 +"DATA",811.8,177,100,6067,0) +5090 +"DATA",811.8,177,100,6068,0) +5081 +"DATA",811.8,177,100,6069,0) +5101 +"DATA",811.8,177,100,6070,0) +5101 +"DATA",811.8,177,100,6071,0) + +"DATA",811.8,177,100,6072,0) + +"DATA",811.8,177,100,6073,0) +5122 +"DATA",811.8,177,100,6074,0) +5114 +"DATA",811.8,177,100,6075,0) +5105 +"DATA",811.8,177,100,6076,0) +5128 +"DATA",811.8,177,100,6077,0) +5127 +"DATA",811.8,177,100,6078,0) + +"DATA",811.8,177,100,6079,0) + +"DATA",811.8,177,100,6080,0) +5147 +"DATA",811.8,177,100,6081,0) +5141 +"DATA",811.8,177,100,6082,0) +5132 +"DATA",811.8,177,100,6083,0) +5152 +"DATA",811.8,177,100,6084,0) +5152 +"DATA",811.8,177,100,6085,0) + +"DATA",811.8,177,100,6086,0) + +"DATA",811.8,177,100,6087,0) +5173 +"DATA",811.8,177,100,6088,0) +5165 +"DATA",811.8,177,100,6089,0) +5156 +"DATA",811.8,177,100,6090,0) +5179 +"DATA",811.8,177,100,6091,0) +5178 +"DATA",811.8,177,100,6092,0) + +"DATA",811.8,177,100,6093,0) + +"DATA",811.8,177,100,6094,0) +5198 +"DATA",811.8,177,100,6095,0) +5192 +"DATA",811.8,177,100,6096,0) +5183 +"DATA",811.8,177,100,6097,0) +5203 +"DATA",811.8,177,100,6098,0) +5203 +"DATA",811.8,177,100,6099,0) + +"DATA",811.8,177,100,6100,0) + +"DATA",811.8,177,100,6101,0) +5224 +"DATA",811.8,177,100,6102,0) +5216 +"DATA",811.8,177,100,6103,0) +5207 +"DATA",811.8,177,100,6104,0) +5230 +"DATA",811.8,177,100,6105,0) +5229 +"DATA",811.8,177,100,6106,0) + +"DATA",811.8,177,100,6107,0) + +"DATA",811.8,177,100,6108,0) +5249 +"DATA",811.8,177,100,6109,0) +5243 +"DATA",811.8,177,100,6110,0) +5234 +"DATA",811.8,177,100,6111,0) +5254 +"DATA",811.8,177,100,6112,0) +5254 +"DATA",811.8,177,100,6113,0) + +"DATA",811.8,177,100,6114,0) + +"DATA",811.8,177,100,6115,0) +5275 +"DATA",811.8,177,100,6116,0) +5267 +"DATA",811.8,177,100,6117,0) +5258 +"DATA",811.8,177,100,6118,0) +5281 +"DATA",811.8,177,100,6119,0) +5280 +"DATA",811.8,177,100,6120,0) + +"DATA",811.8,177,100,6121,0) + +"DATA",811.8,177,100,6122,0) +5300 +"DATA",811.8,177,100,6123,0) +5294 +"DATA",811.8,177,100,6124,0) +5285 +"DATA",811.8,177,100,6125,0) +5305 +"DATA",811.8,177,100,6126,0) +5305 +"DATA",811.8,177,100,6127,0) + +"DATA",811.8,177,100,6128,0) + +"DATA",811.8,177,100,6129,0) +5326 +"DATA",811.8,177,100,6130,0) +5318 +"DATA",811.8,177,100,6131,0) +5309 +"DATA",811.8,177,100,6132,0) +5332 +"DATA",811.8,177,100,6133,0) +5331 +"DATA",811.8,177,100,6134,0) + +"DATA",811.8,177,100,6135,0) + +"DATA",811.8,177,100,6136,0) + +"DATA",811.8,177,110,0) +^811.804^43^43 +"DATA",811.8,177,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,177,110,2,0) +Date Packed: 07/18/2012@10:33:53 +"DATA",811.8,177,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,177,110,4,0) + +"DATA",811.8,177,110,5,0) +Description: +"DATA",811.8,177,110,6,0) +Meaningful Use Inpatient Stroke Measures. +"DATA",811.8,177,110,7,0) +NQF 0435 +"DATA",811.8,177,110,8,0) +NQF 0436 +"DATA",811.8,177,110,9,0) +NQF 0437 +"DATA",811.8,177,110,10,0) +NQF 0438 +"DATA",811.8,177,110,11,0) +NQF 0439 +"DATA",811.8,177,110,12,0) +NQF 0440 +"DATA",811.8,177,110,13,0) +NQF 0441 +"DATA",811.8,177,110,14,0) + +"DATA",811.8,177,110,15,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,177,110,16,0) +REMINDER LIST RULE +"DATA",811.8,177,110,17,0) + MU STK-2 NUMER RS +"DATA",811.8,177,110,18,0) + MU STK-2 DENOM RS +"DATA",811.8,177,110,19,0) + MU STK-3 NUMER RS +"DATA",811.8,177,110,20,0) + MU STK-3 DENOM RS +"DATA",811.8,177,110,21,0) + MU STK-4 DENOM RS +"DATA",811.8,177,110,22,0) + MU STK-4 NUMER RS +"DATA",811.8,177,110,23,0) + MU STK-5 NUMER RS +"DATA",811.8,177,110,24,0) + MU STK-5 DENOM RS +"DATA",811.8,177,110,25,0) + MU STK-6 NUMER RS +"DATA",811.8,177,110,26,0) + MU STK-6 DENOM RS +"DATA",811.8,177,110,27,0) + MU STK-8 NUMER RS +"DATA",811.8,177,110,28,0) + MU STK-8 DENOM RS +"DATA",811.8,177,110,29,0) + MU STK-10 NUMER RS +"DATA",811.8,177,110,30,0) + MU STK-10 DENOM RS +"DATA",811.8,177,110,31,0) + +"DATA",811.8,177,110,32,0) +Keywords: +"DATA",811.8,177,110,33,0) +NQF 0435 +"DATA",811.8,177,110,34,0) +NQF 0436 +"DATA",811.8,177,110,35,0) +NQF 0437 +"DATA",811.8,177,110,36,0) +NQF 0438 +"DATA",811.8,177,110,37,0) +NQF 0439 +"DATA",811.8,177,110,38,0) +NQF 0440 +"DATA",811.8,177,110,39,0) +NQF 0441 +"DATA",811.8,177,110,40,0) +MU +"DATA",811.8,177,110,41,0) +STROKE +"DATA",811.8,177,110,42,0) + +"DATA",811.8,177,110,43,0) +Components: +"DATA",811.8,177,119) +9 +"DATA",811.8,177,120,0) +^811.802A^125^125 +"DATA",811.8,177,120,1,0) +ROUTINE^0^1 +"DATA",811.8,177,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,177,120,1,1,1,0) +PXRMINPL^54^135^^^1^0 +"DATA",811.8,177,120,2,0) +VA DRUG CLASS^50.605^5 +"DATA",811.8,177,120,2,1,0) +^811.8021A^5^5 +"DATA",811.8,177,120,2,1,1,0) +VT103^148^148^^^0^0 +"DATA",811.8,177,120,2,1,2,0) +CV350^161^161^^^0^0 +"DATA",811.8,177,120,2,1,3,0) +BL115^174^174^^^0^0 +"DATA",811.8,177,120,2,1,4,0) +BL110^187^187^^^0^0 +"DATA",811.8,177,120,2,1,5,0) +BL117^200^200^^^0^0 +"DATA",811.8,177,120,3,0) +LABORATORY TEST^60^1 +"DATA",811.8,177,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,177,120,3,1,1,0) +LDL CHOLESTEROL^213^213^^^0^0 +"DATA",811.8,177,120,4,0) +HEALTH FACTORS^9999999.64^32 +"DATA",811.8,177,120,4,1,0) +^811.8021A^32^32 +"DATA",811.8,177,120,4,1,1,0) +MU STK^226^227^^^1^0 +"DATA",811.8,177,120,4,1,2,0) +ELECTIVE CAROTID INTERVENTION^240^244^^^1^0 +"DATA",811.8,177,120,4,1,3,0) +COMFORT MEASURES PROTOCOL FOLLOWED^257^261^^^1^0 +"DATA",811.8,177,120,4,1,4,0) +ENROLLED IN CLINICAL TRIALS^274^278^^^1^0 +"DATA",811.8,177,120,4,1,5,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL^291^295^^^1^0 +"DATA",811.8,177,120,4,1,6,0) +REHABILITATION SERVICES RECEIVED^308^312^^^1^0 +"DATA",811.8,177,120,4,1,7,0) +ADDRESSED:ACTIVATION OF EMERG MED SYS^325^329^^^1^0 +"DATA",811.8,177,120,4,1,8,0) +ADDRESSED:FOLLOW-UP^342^346^^^1^0 +"DATA",811.8,177,120,4,1,9,0) +ADDRESSED:MEDICATION AT DISCHARGE^359^363^^^1^0 +"DATA",811.8,177,120,4,1,10,0) +ADDRESSED:STROKE RISK FACTORS^376^380^^^1^0 +"DATA",811.8,177,120,4,1,11,0) +ADDRESSED:STROKE WARNING SIGNS/SYMPTOMS^393^397^^^1^0 +"DATA",811.8,177,120,4,1,12,0) +LABORATORY^410^411^^^1^0 +"DATA",811.8,177,120,4,1,13,0) +LDL 100 OR ABOVE^424^428^^^1^0 +"DATA",811.8,177,120,4,1,14,0) +LDL NOT DONE PRIOR TO HOSP ADMISSION^441^445^^^1^0 +"DATA",811.8,177,120,4,1,15,0) +LIPID MED INTERVENTIONS^458^460^^^1^0 +"DATA",811.8,177,120,4,1,16,0) +LIPID LOWERING MED PRIOR TO HOSP ARRIVAL^473^477^^^1^0 +"DATA",811.8,177,120,4,1,17,0) +STATIN NOT PRESCRIBED AT DISCHARGE^490^494^^^1^0 +"DATA",811.8,177,120,4,1,18,0) +STATIN MEDS GIVEN AT DISCHARGE^507^511^^^1^0 +"DATA",811.8,177,120,4,1,19,0) +t-PA STARTED AT THIS FACILITY^524^528^^^1^0 +"DATA",811.8,177,120,4,1,20,0) +t-PA STARTED 24H BEFORE ARRIVAL^541^545^^^1^0 +"DATA",811.8,177,120,4,1,21,0) +DISCHARGED PRIOR TO END OF HOSP DAY2^558^562^^^1^0 +"DATA",811.8,177,120,4,1,22,0) +ANTITHROMBOTIC NOT GIVEN(HOSP DAY2 END)^575^579^^^1^0 +"DATA",811.8,177,120,4,1,23,0) +ANTITHROMBOTIC GIVEN BY HOSP DAY2 END^592^596^^^1^0 +"DATA",811.8,177,120,4,1,24,0) +ARRIVAL^609^613^^^1^0 +"DATA",811.8,177,120,4,1,25,0) +LAST KNOWN WELL > 2H^626^630^^^1^0 +"DATA",811.8,177,120,4,1,26,0) +THROMBOLYTIC IV THERAPY INITIATED <3H^643^647^^^1^0 +"DATA",811.8,177,120,4,1,27,0) +THROMBOLYTIC IV NOT INITIATED. REASON^660^664^^^1^0 +"DATA",811.8,177,120,4,1,28,0) +LAST KNOWN WELL < 2H^677^681^^^1^0 +"DATA",811.8,177,120,4,1,29,0) +ANTICOAGULATION THERAPY CAN'T BE GIVEN^694^698^^^1^0 +"DATA",811.8,177,120,4,1,30,0) +ANTICOAGULATION THERAPY PRESCRIBED^711^715^^^1^0 +"DATA",811.8,177,120,4,1,31,0) +ANTITHROMBOTIC NOT GIVEN AT DISCHARGE^728^732^^^1^0 +"DATA",811.8,177,120,4,1,32,0) +ANTITHROMBOTIC THERAPY GIVEN AT DISCH^745^749^^^1^0 +"DATA",811.8,177,120,5,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,177,120,5,1,0) +^811.8021A^2^2 +"DATA",811.8,177,120,5,1,1,0) +VA-DISCHARGES FOR A DATE RANGE^762^797^802^802^1^0 +"DATA",811.8,177,120,5,1,2,0) +VA-ADMISSIONS FOR A DATE RANGE^815^853^858^858^1^0 +"DATA",811.8,177,120,6,0) +REMINDER TAXONOMY^811.2^8 +"DATA",811.8,177,120,6,1,0) +^811.8021A^8^8 +"DATA",811.8,177,120,6,1,1,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX^871^888^893^896^1^0 +"DATA",811.8,177,120,6,1,2,0) +MU STK-8 DENOM INCLU TX^909^967^972^985^1^0 +"DATA",811.8,177,120,6,1,3,0) +MU STK-6 DENOM INCLU TX^998^1052^1057^1069^1^0 +"DATA",811.8,177,120,6,1,4,0) +MU STK-5 DENOM INCLU TX^1082^1135^1140^1152^1^0 +"DATA",811.8,177,120,6,1,5,0) +MU STK-4 DENOM INCLU TX^1165^1219^1224^1236^1^0 +"DATA",811.8,177,120,6,1,6,0) +MU STK-3 DENOM INCLU AT FIB/FL TX^1249^1258^1263^1264^1^0 +"DATA",811.8,177,120,6,1,7,0) +MU STK-3 DENOM INCLU TX^1277^1351^1356^1382^1^0 +"DATA",811.8,177,120,6,1,8,0) +MU STK-2 DENOM INCLU TX^1395^1449^1454^1466^1^0 +"DATA",811.8,177,120,7,0) +REMINDER TERM^811.5^34 +"DATA",811.8,177,120,7,1,0) +^811.8021A^34^34 +"DATA",811.8,177,120,7,1,1,0) +MU DISCHARGE TO ANOTHER HOSP^1479^1487^1492^1493^1^0 +"DATA",811.8,177,120,7,1,2,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE^1506^1514^1519^1520^1^0 +"DATA",811.8,177,120,7,1,3,0) +MU DISCHARGE DEATH^1533^1541^1546^1547^1^0 +"DATA",811.8,177,120,7,1,4,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE^1560^1568^1573^1574^1^0 +"DATA",811.8,177,120,7,1,5,0) +MU DISCHARGED HOME-HOSPIC CARE^1587^1595^1600^1601^1^0 +"DATA",811.8,177,120,7,1,6,0) +MU STK-8 DENOM EXCLU TRM^1614^1624^1629^1633^1^0 +"DATA",811.8,177,120,7,1,7,0) +MU STK-10 NUMER INCLU TRM^1646^1651^1656^1657^1^0 +"DATA",811.8,177,120,7,1,8,0) +MU DISCHARGED COURT/LAW ^1670^1678^1683^1684^1^0 +"DATA",811.8,177,120,7,1,9,0) +MU DISCHARGED HOME^1697^1705^1710^1711^1^0 +"DATA",811.8,177,120,7,1,10,0) +MU STK-8 NUMER INCLU EMS TRM^1724^1729^1734^1735^1^0 +"DATA",811.8,177,120,7,1,11,0) +MU STK-8 NUMER INCLU FOLLOW-UP TRM^1748^1753^1758^1759^1^0 +"DATA",811.8,177,120,7,1,12,0) +MU STK-8 NUMER INCLU MED TRM^1772^1777^1782^1783^1^0 +"DATA",811.8,177,120,7,1,13,0) +MU STK-8 NUMER INCLU RISK TRM^1796^1801^1806^1807^1^0 +"DATA",811.8,177,120,7,1,14,0) +MU STK-8 NUMER INCLU WARNING SIGN/SY TRM^1820^1825^1830^1831^1^0 +"DATA",811.8,177,120,7,1,15,0) +MU STK-6 DENOM INCLU LAB>=100^1844^1854^1859^1862^1^0 +"DATA",811.8,177,120,7,1,16,0) +MU STK-6 DENOM INCLU DRUG TRM^1875^1882^1887^1890^1^0 +"DATA",811.8,177,120,7,1,17,0) +MU STK-6 DENOM INCLU LAB TRM^1903^1908^1913^1914^1^0 +"DATA",811.8,177,120,7,1,18,0) +MU STK-6 DENOM INCLU LAB<100 TRM^1927^1934^1939^1940^1^0 +"DATA",811.8,177,120,7,1,19,0) +MU STK-6 DENOM EXCLU TRM^1953^1964^1969^1974^1^0 +"DATA",811.8,177,120,7,1,20,0) +MU STK-6 NUMER INCLU DRUG^1987^1992^1997^1998^1^0 +"DATA",811.8,177,120,7,1,21,0) +MU STK-5 DENOM EXCLU T-PA TRM^2011^2017^2022^2024^1^0 +"DATA",811.8,177,120,7,1,22,0) +MU STK-5 DENOM EXCLU TRM^2037^2053^2058^2068^1^0 +"DATA",811.8,177,120,7,1,23,0) +MU STK-5 NUMER INCLU TRM^2081^2087^2092^2094^1^0 +"DATA",811.8,177,120,7,1,24,0) +MU STK-4 DENOM ARRIVAL HF^2107^2112^2117^2118^1^0 +"DATA",811.8,177,120,7,1,25,0) +MU STK-4 DENOM EXCLU HF>2H^2131^2136^2141^2142^1^0 +"DATA",811.8,177,120,7,1,26,0) +MU ADMISSION EMERGENCY RT^2155^2162^2167^2168^1^0 +"DATA",811.8,177,120,7,1,27,0) +MU STK-4 NUMER INCLU TRM^2181^2187^2192^2194^1^0 +"DATA",811.8,177,120,7,1,28,0) +MU STK-4 DENOM EXCLU TRM^2207^2217^2222^2226^1^0 +"DATA",811.8,177,120,7,1,29,0) +MU STK-4 DENOM INC HF<2H^2239^2246^2251^2252^1^0 +"DATA",811.8,177,120,7,1,30,0) +MU ADMISSION MVMT TRIAL TRM^2265^2273^2278^2279^1^0 +"DATA",811.8,177,120,7,1,31,0) +MU STK-3 DENOM EXCLU TRM^2292^2302^2307^2311^1^0 +"DATA",811.8,177,120,7,1,32,0) +MU STK-3 NUMER INCLU TRM^2324^2332^2337^2341^1^0 +"DATA",811.8,177,120,7,1,33,0) +MU STK-2 DENOM EXCLU TRM^2354^2364^2369^2373^1^0 +"DATA",811.8,177,120,7,1,34,0) +MU STK-2 NUMER INCLU TRM^2386^2397^2402^2407^1^0 +"DATA",811.8,177,120,8,0) +REMINDER DEFINITION^811.9^14 +"DATA",811.8,177,120,8,1,0) +^811.8021A^14^14 +"DATA",811.8,177,120,8,1,1,0) +MU STK-10 DENOM CR^2420^2555^2560^2602^1^0 +"DATA",811.8,177,120,8,1,2,0) +MU STK-10 NUMER CR^2615^2753^2758^2801^1^0 +"DATA",811.8,177,120,8,1,3,0) +MU STK-8 DENOM CR^2814^2940^2945^2984^1^0 +"DATA",811.8,177,120,8,1,4,0) +MU STK-8 NUMER CR^2997^3138^3143^3187^1^0 +"DATA",811.8,177,120,8,1,5,0) +MU STK-6 DENOM CR^3200^3366^3371^3431^1^0 +"DATA",811.8,177,120,8,1,6,0) +MU STK-6 NUMER CR^3444^3622^3627^3695^1^0 +"DATA",811.8,177,120,8,1,7,0) +MU STK-5 DENOM CR^3708^3779^3784^3798^1^0 +"DATA",811.8,177,120,8,1,8,0) +MU STK-5 NUMER CR^3811^3898^3903^3927^1^0 +"DATA",811.8,177,120,8,1,9,0) +MU STK-4 NUMER CR^3940^4005^4010^4024^1^0 +"DATA",811.8,177,120,8,1,10,0) +MU STK-4 DENOM CR^4037^4105^4110^4123^1^0 +"DATA",811.8,177,120,8,1,11,0) +MU STK-3 DENOM CR^4136^4224^4229^4246^1^0 +"DATA",811.8,177,120,8,1,12,0) +MU STK-3 NUMER CR^4259^4359^4364^4386^1^0 +"DATA",811.8,177,120,8,1,13,0) +MU STK-2 DENOM CR^4399^4475^4480^4496^1^0 +"DATA",811.8,177,120,8,1,14,0) +MU STK-2 NUMER CR^4509^4592^4597^4618^1^0 +"DATA",811.8,177,120,9,0) +REMINDER LIST RULE^810.4^28 +"DATA",811.8,177,120,9,1,0) +^811.8021A^28^28 +"DATA",811.8,177,120,9,1,1,0) +MU STK-10 DENOM RR^4631^4637^4642^4642^1^0 +"DATA",811.8,177,120,9,1,2,0) +MU STK-10 DENOM RS^4655^4663^4668^4669^1^1 +"DATA",811.8,177,120,9,1,3,0) +MU STK-10 NUMER RR^4682^4688^4693^4693^1^0 +"DATA",811.8,177,120,9,1,4,0) +MU STK-10 NUMER RS^4706^4714^4719^4720^1^1 +"DATA",811.8,177,120,9,1,5,0) +MU STK-8 DENOM RR^4733^4739^4744^4744^1^0 +"DATA",811.8,177,120,9,1,6,0) +MU STK-8 DENOM RS^4757^4765^4770^4771^1^1 +"DATA",811.8,177,120,9,1,7,0) +MU STK-8 NUMER RR^4784^4790^4795^4795^1^0 +"DATA",811.8,177,120,9,1,8,0) +MU STK-8 NUMER RS^4808^4816^4821^4822^1^1 +"DATA",811.8,177,120,9,1,9,0) +MU STK-6 DENOM RR^4835^4841^4846^4846^1^0 +"DATA",811.8,177,120,9,1,10,0) +MU STK-6 DENOM RS^4859^4867^4872^4873^1^1 +"DATA",811.8,177,120,9,1,11,0) +MU STK-6 NUMER RR^4886^4892^4897^4897^1^0 +"DATA",811.8,177,120,9,1,12,0) +MU STK-6 NUMER RS^4910^4918^4923^4924^1^1 +"DATA",811.8,177,120,9,1,13,0) +MU STK-5 DENOM RR^4937^4943^4948^4948^1^0 +"DATA",811.8,177,120,9,1,14,0) +MU STK-5 DENOM RS^4961^4969^4974^4975^1^1 +"DATA",811.8,177,120,9,1,15,0) +MU STK-5 NUMER RR^4988^4994^4999^4999^1^0 +"DATA",811.8,177,120,9,1,16,0) +MU STK-5 NUMER RS^5012^5020^5025^5026^1^1 +"DATA",811.8,177,120,9,1,17,0) +MU STK-4 NUMER RR^5039^5045^5050^5050^1^0 +"DATA",811.8,177,120,9,1,18,0) +MU STK-4 NUMER RS^5063^5071^5076^5077^1^1 +"DATA",811.8,177,120,9,1,19,0) +MU STK-4 DENOM RR^5090^5096^5101^5101^1^0 +"DATA",811.8,177,120,9,1,20,0) +MU STK-4 DENOM RS^5114^5122^5127^5128^1^1 +"DATA",811.8,177,120,9,1,21,0) +MU STK-3 DENOM RR^5141^5147^5152^5152^1^0 +"DATA",811.8,177,120,9,1,22,0) +MU STK-3 DENOM RS^5165^5173^5178^5179^1^1 +"DATA",811.8,177,120,9,1,23,0) +MU STK-3 NUMER RR^5192^5198^5203^5203^1^0 +"DATA",811.8,177,120,9,1,24,0) +MU STK-3 NUMER RS^5216^5224^5229^5230^1^1 +"DATA",811.8,177,120,9,1,25,0) +MU STK-2 DENOM RR^5243^5249^5254^5254^1^0 +"DATA",811.8,177,120,9,1,26,0) +MU STK-2 DENOM RS^5267^5275^5280^5281^1^1 +"DATA",811.8,177,120,9,1,27,0) +MU STK-2 NUMER RR^5294^5300^5305^5305^1^0 +"DATA",811.8,177,120,9,1,28,0) +MU STK-2 NUMER RS^5318^5326^5331^5332^1^1 +"DATA",811.8,178,0) +MU NQF 0495 ED-1^HABIEL,SAM at VOE OFFICE INSTITUTION^3120717.114755 +"DATA",811.8,178,100,0) +^811.801^1363^1363 +"DATA",811.8,178,100,1,0) + +"DATA",811.8,178,100,2,0) + +"DATA",811.8,178,100,3,0) +2.0P17 +"DATA",811.8,178,100,4,0) +1282 +"DATA",811.8,178,100,5,0) + +"DATA",811.8,178,100,6,0) +MU NQF 0495 ED-1 +"DATA",811.8,178,100,7,0) +HABIEL,SAM +"DATA",811.8,178,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,178,100,9,0) +07/17/2012@11:47:55 +"DATA",811.8,178,100,10,0) + +"DATA",811.8,178,100,11,0) + +"DATA",811.8,178,100,19,0) + +"DATA",811.8,178,100,20,0) +MU +"DATA",811.8,178,100,21,0) +NQF +"DATA",811.8,178,100,22,0) +0495 +"DATA",811.8,178,100,23,0) +ED-1 +"DATA",811.8,178,100,24,0) + +"DATA",811.8,178,100,25,0) + +"DATA",811.8,178,100,26,0) +PXRMINPL +"DATA",811.8,178,100,27,0) +2982435994 +"DATA",811.8,178,100,28,0) + +"DATA",811.8,178,100,29,0) +EDT)!(DATE="") D +"DATA",811.8,178,100,48,0) + . S IEN="" +"DATA",811.8,178,100,49,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,178,100,50,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,178,100,51,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,178,100,52,0) + .. I SUB="ATT1" D +"DATA",811.8,178,100,53,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,178,100,54,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,178,100,55,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,178,100,56,0) + .. I SUB="ATT3" D +"DATA",811.8,178,100,57,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,178,100,58,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,178,100,59,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,178,100,60,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,178,100,61,0) + ..;location for the ward is on the list. +"DATA",811.8,178,100,62,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,178,100,63,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,178,100,64,0) + .. I 'OK Q +"DATA",811.8,178,100,65,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,178,100,66,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,178,100,67,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,178,100,68,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,178,100,69,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,178,100,70,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,178,100,71,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,178,100,72,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,178,100,73,0) + K ^TMP($J,"CNT") +"DATA",811.8,178,100,74,0) + Q +"DATA",811.8,178,100,75,0) + ; +"DATA",811.8,178,100,76,0) + ;===================================== +"DATA",811.8,178,100,77,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,178,100,78,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,178,100,79,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,178,100,80,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,178,100,81,0) + S OK=1 +"DATA",811.8,178,100,82,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,178,100,83,0) + S WARD="" +"DATA",811.8,178,100,84,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,178,100,85,0) + . S DFN=0 +"DATA",811.8,178,100,86,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,178,100,87,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,178,100,88,0) + ..;location for the ward is on the list. +"DATA",811.8,178,100,89,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,178,100,90,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,178,100,91,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,178,100,92,0) + .. I 'OK Q +"DATA",811.8,178,100,93,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,178,100,94,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,178,100,95,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,178,100,96,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,178,100,97,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,178,100,98,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,178,100,99,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,178,100,100,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,178,100,101,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,178,100,102,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,178,100,103,0) + K ^TMP($J,"CNT") +"DATA",811.8,178,100,104,0) + Q +"DATA",811.8,178,100,105,0) + ; +"DATA",811.8,178,100,106,0) + ;===================================== +"DATA",811.8,178,100,107,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,178,100,108,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,178,100,109,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,178,100,110,0) + Q +"DATA",811.8,178,100,111,0) + ; +"DATA",811.8,178,100,112,0) +]]> +"DATA",811.8,178,100,113,0) + +"DATA",811.8,178,100,114,0) + +"DATA",811.8,178,100,115,0) + +"DATA",811.8,178,100,116,0) +HEALTH FACTORS +"DATA",811.8,178,100,117,0) +9999999.64 +"DATA",811.8,178,100,118,0) +MU STK +"DATA",811.8,178,100,119,0) +50049 +"DATA",811.8,178,100,120,0) +1292931282 +"DATA",811.8,178,100,121,0) +NO +"DATA",811.8,178,100,122,0) + +"DATA",811.8,178,100,123,0) + +"DATA",811.8,178,100,127,0) + +"DATA",811.8,178,100,128,0) + +"DATA",811.8,178,100,129,0) + +"DATA",811.8,178,100,130,0) +HEALTH FACTORS +"DATA",811.8,178,100,131,0) +9999999.64 +"DATA",811.8,178,100,132,0) +ARRIVAL +"DATA",811.8,178,100,133,0) +50063 +"DATA",811.8,178,100,134,0) +3668375555 +"DATA",811.8,178,100,135,0) +NO +"DATA",811.8,178,100,136,0) + +"DATA",811.8,178,100,137,0) + +"DATA",811.8,178,100,144,0) + +"DATA",811.8,178,100,145,0) + +"DATA",811.8,178,100,146,0) + +"DATA",811.8,178,100,147,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,178,100,148,0) +811.4 +"DATA",811.8,178,100,149,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,178,100,150,0) +94 +"DATA",811.8,178,100,151,0) +1608937132 +"DATA",811.8,178,100,152,0) +NO +"DATA",811.8,178,100,153,0) + +"DATA",811.8,178,100,154,0) + +"DATA",811.8,178,100,192,0) + +"DATA",811.8,178,100,193,0) + +"DATA",811.8,178,100,194,0) + +"DATA",811.8,178,100,197,0) + +"DATA",811.8,178,100,198,0) + +"DATA",811.8,178,100,199,0) + +"DATA",811.8,178,100,200,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,178,100,201,0) +811.4 +"DATA",811.8,178,100,202,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,178,100,203,0) +90 +"DATA",811.8,178,100,204,0) +1960922291 +"DATA",811.8,178,100,205,0) +NO +"DATA",811.8,178,100,206,0) + +"DATA",811.8,178,100,207,0) + +"DATA",811.8,178,100,248,0) + +"DATA",811.8,178,100,249,0) + +"DATA",811.8,178,100,250,0) + +"DATA",811.8,178,100,253,0) + +"DATA",811.8,178,100,254,0) + +"DATA",811.8,178,100,255,0) + +"DATA",811.8,178,100,256,0) +REMINDER TAXONOMY +"DATA",811.8,178,100,257,0) +811.2 +"DATA",811.8,178,100,258,0) +MU TABLE 7P01 TX +"DATA",811.8,178,100,259,0) +187 +"DATA",811.8,178,100,260,0) +1550059983 +"DATA",811.8,178,100,261,0) +NO +"DATA",811.8,178,100,262,0) + +"DATA",811.8,178,100,263,0) + +"DATA",811.8,178,100,859,0) + +"DATA",811.8,178,100,860,0) + +"DATA",811.8,178,100,861,0) + +"DATA",811.8,178,100,1011,0) + +"DATA",811.8,178,100,1012,0) + +"DATA",811.8,178,100,1013,0) + +"DATA",811.8,178,100,1014,0) +REMINDER DEFINITION +"DATA",811.8,178,100,1015,0) +811.9 +"DATA",811.8,178,100,1016,0) +MU ED1 CR +"DATA",811.8,178,100,1017,0) +215 +"DATA",811.8,178,100,1018,0) +2525598549 +"DATA",811.8,178,100,1019,0) +NO +"DATA",811.8,178,100,1020,0) + +"DATA",811.8,178,100,1021,0) + +"DATA",811.8,178,100,1079,0) + +"DATA",811.8,178,100,1080,0) + +"DATA",811.8,178,100,1081,0) + +"DATA",811.8,178,100,1094,0) + +"DATA",811.8,178,100,1095,0) + +"DATA",811.8,178,100,1096,0) + +"DATA",811.8,178,100,1097,0) +REMINDER DEFINITION +"DATA",811.8,178,100,1098,0) +811.9 +"DATA",811.8,178,100,1099,0) +MU ED 1&2 DENOM +"DATA",811.8,178,100,1100,0) +247 +"DATA",811.8,178,100,1101,0) +543950955 +"DATA",811.8,178,100,1102,0) +NO +"DATA",811.8,178,100,1103,0) + +"DATA",811.8,178,100,1104,0) + +"DATA",811.8,178,100,1163,0) + +"DATA",811.8,178,100,1164,0) + +"DATA",811.8,178,100,1165,0) + +"DATA",811.8,178,100,1178,0) + +"DATA",811.8,178,100,1179,0) + +"DATA",811.8,178,100,1180,0) + +"DATA",811.8,178,100,1181,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1182,0) +810.4 +"DATA",811.8,178,100,1183,0) +MU ED-1 NUMER RR +"DATA",811.8,178,100,1184,0) +87 +"DATA",811.8,178,100,1185,0) +3352144439 +"DATA",811.8,178,100,1186,0) +NO +"DATA",811.8,178,100,1187,0) + +"DATA",811.8,178,100,1188,0) + +"DATA",811.8,178,100,1197,0) + +"DATA",811.8,178,100,1198,0) + +"DATA",811.8,178,100,1199,0) + +"DATA",811.8,178,100,1202,0) + +"DATA",811.8,178,100,1203,0) + +"DATA",811.8,178,100,1204,0) + +"DATA",811.8,178,100,1205,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1206,0) +810.4 +"DATA",811.8,178,100,1207,0) +MU ED-1 NUMER RS +"DATA",811.8,178,100,1208,0) +88 +"DATA",811.8,178,100,1209,0) +3590207834 +"DATA",811.8,178,100,1210,0) +YES +"DATA",811.8,178,100,1211,0) + +"DATA",811.8,178,100,1212,0) + +"DATA",811.8,178,100,1223,0) + +"DATA",811.8,178,100,1224,0) + +"DATA",811.8,178,100,1225,0) + +"DATA",811.8,178,100,1229,0) + +"DATA",811.8,178,100,1230,0) + +"DATA",811.8,178,100,1231,0) + +"DATA",811.8,178,100,1232,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1233,0) +810.4 +"DATA",811.8,178,100,1234,0) +MU ED-1 DENOM RR +"DATA",811.8,178,100,1235,0) +163 +"DATA",811.8,178,100,1236,0) +4198688042 +"DATA",811.8,178,100,1237,0) +NO +"DATA",811.8,178,100,1238,0) + +"DATA",811.8,178,100,1239,0) + +"DATA",811.8,178,100,1248,0) + +"DATA",811.8,178,100,1249,0) + +"DATA",811.8,178,100,1250,0) + +"DATA",811.8,178,100,1253,0) + +"DATA",811.8,178,100,1254,0) + +"DATA",811.8,178,100,1255,0) + +"DATA",811.8,178,100,1256,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1257,0) +810.4 +"DATA",811.8,178,100,1258,0) +MU ED-1 DENOM RS +"DATA",811.8,178,100,1259,0) +165 +"DATA",811.8,178,100,1260,0) +3863137731 +"DATA",811.8,178,100,1261,0) +YES +"DATA",811.8,178,100,1262,0) + +"DATA",811.8,178,100,1263,0) + +"DATA",811.8,178,100,1274,0) + +"DATA",811.8,178,100,1275,0) + +"DATA",811.8,178,100,1276,0) + +"DATA",811.8,178,100,1280,0) + +"DATA",811.8,178,100,1281,0) + +"DATA",811.8,178,100,1282,0) + +"DATA",811.8,178,100,1283,0) +12 +"DATA",811.8,178,100,1284,0) + +"DATA",811.8,178,100,1285,0) +25 +"DATA",811.8,178,100,1286,0) +111 +"DATA",811.8,178,100,1287,0) +30 +"DATA",811.8,178,100,1288,0) + +"DATA",811.8,178,100,1289,0) + +"DATA",811.8,178,100,1290,0) +125 +"DATA",811.8,178,100,1291,0) +124 +"DATA",811.8,178,100,1292,0) +115 +"DATA",811.8,178,100,1293,0) + +"DATA",811.8,178,100,1294,0) + +"DATA",811.8,178,100,1295,0) +142 +"DATA",811.8,178,100,1296,0) +138 +"DATA",811.8,178,100,1297,0) +129 +"DATA",811.8,178,100,1298,0) + +"DATA",811.8,178,100,1299,0) + +"DATA",811.8,178,100,1300,0) +190 +"DATA",811.8,178,100,1301,0) +155 +"DATA",811.8,178,100,1302,0) +146 +"DATA",811.8,178,100,1303,0) +195 +"DATA",811.8,178,100,1304,0) +195 +"DATA",811.8,178,100,1305,0) + +"DATA",811.8,178,100,1306,0) + +"DATA",811.8,178,100,1307,0) +246 +"DATA",811.8,178,100,1308,0) +208 +"DATA",811.8,178,100,1309,0) +199 +"DATA",811.8,178,100,1310,0) +251 +"DATA",811.8,178,100,1311,0) +251 +"DATA",811.8,178,100,1312,0) + +"DATA",811.8,178,100,1313,0) + +"DATA",811.8,178,100,1314,0) +857 +"DATA",811.8,178,100,1315,0) +264 +"DATA",811.8,178,100,1316,0) +255 +"DATA",811.8,178,100,1317,0) +1009 +"DATA",811.8,178,100,1318,0) +862 +"DATA",811.8,178,100,1319,0) + +"DATA",811.8,178,100,1320,0) + +"DATA",811.8,178,100,1321,0) +1077 +"DATA",811.8,178,100,1322,0) +1022 +"DATA",811.8,178,100,1323,0) +1013 +"DATA",811.8,178,100,1324,0) +1092 +"DATA",811.8,178,100,1325,0) +1082 +"DATA",811.8,178,100,1326,0) + +"DATA",811.8,178,100,1327,0) + +"DATA",811.8,178,100,1328,0) +1161 +"DATA",811.8,178,100,1329,0) +1105 +"DATA",811.8,178,100,1330,0) +1096 +"DATA",811.8,178,100,1331,0) +1176 +"DATA",811.8,178,100,1332,0) +1166 +"DATA",811.8,178,100,1333,0) + +"DATA",811.8,178,100,1334,0) + +"DATA",811.8,178,100,1335,0) +1195 +"DATA",811.8,178,100,1336,0) +1189 +"DATA",811.8,178,100,1337,0) +1180 +"DATA",811.8,178,100,1338,0) +1200 +"DATA",811.8,178,100,1339,0) +1200 +"DATA",811.8,178,100,1340,0) + +"DATA",811.8,178,100,1341,0) + +"DATA",811.8,178,100,1342,0) +1221 +"DATA",811.8,178,100,1343,0) +1213 +"DATA",811.8,178,100,1344,0) +1204 +"DATA",811.8,178,100,1345,0) +1227 +"DATA",811.8,178,100,1346,0) +1226 +"DATA",811.8,178,100,1347,0) + +"DATA",811.8,178,100,1348,0) + +"DATA",811.8,178,100,1349,0) +1246 +"DATA",811.8,178,100,1350,0) +1240 +"DATA",811.8,178,100,1351,0) +1231 +"DATA",811.8,178,100,1352,0) +1251 +"DATA",811.8,178,100,1353,0) +1251 +"DATA",811.8,178,100,1354,0) + +"DATA",811.8,178,100,1355,0) + +"DATA",811.8,178,100,1356,0) +1272 +"DATA",811.8,178,100,1357,0) +1264 +"DATA",811.8,178,100,1358,0) +1255 +"DATA",811.8,178,100,1359,0) +1278 +"DATA",811.8,178,100,1360,0) +1277 +"DATA",811.8,178,100,1361,0) + +"DATA",811.8,178,100,1362,0) + +"DATA",811.8,178,100,1363,0) + +"DATA",811.8,178,110,0) +^811.804^19^19 +"DATA",811.8,178,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,178,110,2,0) +Date Packed: 07/17/2012@11:47:55 +"DATA",811.8,178,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,178,110,4,0) + +"DATA",811.8,178,110,5,0) +Description: +"DATA",811.8,178,110,6,0) +For Inpatient Education measure MU HOS NQF 0495 +"DATA",811.8,178,110,7,0) + +"DATA",811.8,178,110,8,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,178,110,9,0) +REMINDER LIST RULE +"DATA",811.8,178,110,10,0) + MU ED-1 NUMER RS +"DATA",811.8,178,110,11,0) + MU ED-1 DENOM RS +"DATA",811.8,178,110,12,0) + +"DATA",811.8,178,110,13,0) +Keywords: +"DATA",811.8,178,110,14,0) +MU +"DATA",811.8,178,110,15,0) +NQF +"DATA",811.8,178,110,16,0) +0495 +"DATA",811.8,178,110,17,0) +ED-1 +"DATA",811.8,178,110,18,0) + +"DATA",811.8,178,110,19,0) +Components: +"DATA",811.8,178,119) +6 +"DATA",811.8,178,120,0) +^811.802A^12^12 +"DATA",811.8,178,120,1,0) +ROUTINE^0^1 +"DATA",811.8,178,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,178,120,1,1,1,0) +PXRMINPL^30^111^^^1^0 +"DATA",811.8,178,120,2,0) +HEALTH FACTORS^9999999.64^2 +"DATA",811.8,178,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,178,120,2,1,1,0) +MU STK^124^125^^^1^0 +"DATA",811.8,178,120,2,1,2,0) +ARRIVAL^138^142^^^1^0 +"DATA",811.8,178,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,178,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,178,120,3,1,1,0) +VA-DISCHARGES FOR A DATE RANGE^155^190^195^195^1^0 +"DATA",811.8,178,120,3,1,2,0) +VA-ADMISSIONS FOR A DATE RANGE^208^246^251^251^1^0 +"DATA",811.8,178,120,4,0) +REMINDER TAXONOMY^811.2^1 +"DATA",811.8,178,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,178,120,4,1,1,0) +MU TABLE 7P01 TX^264^857^862^1009^1^0 +"DATA",811.8,178,120,5,0) +REMINDER DEFINITION^811.9^2 +"DATA",811.8,178,120,5,1,0) +^811.8021A^2^2 +"DATA",811.8,178,120,5,1,1,0) +MU ED1 CR^1022^1077^1082^1092^1^0 +"DATA",811.8,178,120,5,1,2,0) +MU ED 1&2 DENOM^1105^1161^1166^1176^1^0 +"DATA",811.8,178,120,6,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,178,120,6,1,0) +^811.8021A^4^4 +"DATA",811.8,178,120,6,1,1,0) +MU ED-1 NUMER RR^1189^1195^1200^1200^1^0 +"DATA",811.8,178,120,6,1,2,0) +MU ED-1 NUMER RS^1213^1221^1226^1227^1^1 +"DATA",811.8,178,120,6,1,3,0) +MU ED-1 DENOM RR^1240^1246^1251^1251^1^0 +"DATA",811.8,178,120,6,1,4,0) +MU ED-1 DENOM RS^1264^1272^1277^1278^1^1 +"DATA",811.8,180,0) +MU VTE 1.2.3.4.5.6 SMH^MANAGER,SYSTEM at VOE OFFICE INSTITUTION^3120720.09483 +"DATA",811.8,180,100,0) +^811.801^7838^7838 +"DATA",811.8,180,100,1,0) + +"DATA",811.8,180,100,2,0) + +"DATA",811.8,180,100,3,0) +2.0P17 +"DATA",811.8,180,100,4,0) +7060 +"DATA",811.8,180,100,5,0) + +"DATA",811.8,180,100,6,0) +MU VTE 1.2.3.4.5.6 SMH +"DATA",811.8,180,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,180,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,180,100,9,0) +07/20/2012@09:48:30 +"DATA",811.8,180,100,10,0) + +"DATA",811.8,180,100,11,0) + +"DATA",811.8,180,100,36,0) + +"DATA",811.8,180,100,37,0) +NQF 0371 +"DATA",811.8,180,100,38,0) +NQF 0372 +"DATA",811.8,180,100,39,0) +NQF 0373 +"DATA",811.8,180,100,40,0) +NQF 0374 +"DATA",811.8,180,100,41,0) +NQF 0375 +"DATA",811.8,180,100,42,0) +NQF 0376 +"DATA",811.8,180,100,43,0) +MU +"DATA",811.8,180,100,44,0) +VTE +"DATA",811.8,180,100,45,0) +VENOUS THROMBOEMBOLISM +"DATA",811.8,180,100,46,0) + +"DATA",811.8,180,100,47,0) + +"DATA",811.8,180,100,48,0) +PXRMINPL +"DATA",811.8,180,100,49,0) +2982435994 +"DATA",811.8,180,100,50,0) + +"DATA",811.8,180,100,51,0) +EDT)!(DATE="") D +"DATA",811.8,180,100,70,0) + . S IEN="" +"DATA",811.8,180,100,71,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,180,100,72,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,180,100,73,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,180,100,74,0) + .. I SUB="ATT1" D +"DATA",811.8,180,100,75,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,180,100,76,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,180,100,77,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,180,100,78,0) + .. I SUB="ATT3" D +"DATA",811.8,180,100,79,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,180,100,80,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,180,100,81,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,180,100,82,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,180,100,83,0) + ..;location for the ward is on the list. +"DATA",811.8,180,100,84,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,180,100,85,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,180,100,86,0) + .. I 'OK Q +"DATA",811.8,180,100,87,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,180,100,88,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,180,100,89,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,180,100,90,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,180,100,91,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,180,100,92,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,180,100,93,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,180,100,94,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,180,100,95,0) + K ^TMP($J,"CNT") +"DATA",811.8,180,100,96,0) + Q +"DATA",811.8,180,100,97,0) + ; +"DATA",811.8,180,100,98,0) + ;===================================== +"DATA",811.8,180,100,99,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,180,100,100,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,180,100,101,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,180,100,102,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,180,100,103,0) + S OK=1 +"DATA",811.8,180,100,104,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,180,100,105,0) + S WARD="" +"DATA",811.8,180,100,106,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,180,100,107,0) + . S DFN=0 +"DATA",811.8,180,100,108,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,180,100,109,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,180,100,110,0) + ..;location for the ward is on the list. +"DATA",811.8,180,100,111,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,180,100,112,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,180,100,113,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,180,100,114,0) + .. I 'OK Q +"DATA",811.8,180,100,115,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,180,100,116,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,180,100,117,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,180,100,118,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,180,100,119,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,180,100,120,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,180,100,121,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,180,100,122,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,180,100,123,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,180,100,124,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,180,100,125,0) + K ^TMP($J,"CNT") +"DATA",811.8,180,100,126,0) + Q +"DATA",811.8,180,100,127,0) + ; +"DATA",811.8,180,100,128,0) + ;===================================== +"DATA",811.8,180,100,129,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,180,100,130,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,180,100,131,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,180,100,132,0) + Q +"DATA",811.8,180,100,133,0) + ; +"DATA",811.8,180,100,134,0) +]]> +"DATA",811.8,180,100,135,0) + +"DATA",811.8,180,100,136,0) + +"DATA",811.8,180,100,137,0) + +"DATA",811.8,180,100,138,0) +VA GENERIC +"DATA",811.8,180,100,139,0) +50.6 +"DATA",811.8,180,100,140,0) +WARFARIN +"DATA",811.8,180,100,141,0) +865 +"DATA",811.8,180,100,142,0) +2690312802 +"DATA",811.8,180,100,143,0) +NO +"DATA",811.8,180,100,144,0) + +"DATA",811.8,180,100,145,0) + +"DATA",811.8,180,100,148,0) + +"DATA",811.8,180,100,149,0) + +"DATA",811.8,180,100,150,0) + +"DATA",811.8,180,100,151,0) +VA GENERIC +"DATA",811.8,180,100,152,0) +50.6 +"DATA",811.8,180,100,153,0) +HEPARIN/SODIUM CHLORIDE +"DATA",811.8,180,100,154,0) +374 +"DATA",811.8,180,100,155,0) +387006986 +"DATA",811.8,180,100,156,0) +NO +"DATA",811.8,180,100,157,0) + +"DATA",811.8,180,100,158,0) + +"DATA",811.8,180,100,161,0) + +"DATA",811.8,180,100,162,0) + +"DATA",811.8,180,100,163,0) + +"DATA",811.8,180,100,164,0) +VA GENERIC +"DATA",811.8,180,100,165,0) +50.6 +"DATA",811.8,180,100,166,0) +HEPARIN +"DATA",811.8,180,100,167,0) +80 +"DATA",811.8,180,100,168,0) +2604723312 +"DATA",811.8,180,100,169,0) +NO +"DATA",811.8,180,100,170,0) + +"DATA",811.8,180,100,171,0) + +"DATA",811.8,180,100,174,0) + +"DATA",811.8,180,100,175,0) + +"DATA",811.8,180,100,176,0) + +"DATA",811.8,180,100,177,0) +VA DRUG CLASS +"DATA",811.8,180,100,178,0) +50.605 +"DATA",811.8,180,100,179,0) +BL110 +"DATA",811.8,180,100,180,0) +46 +"DATA",811.8,180,100,181,0) +716911543 +"DATA",811.8,180,100,182,0) +NO +"DATA",811.8,180,100,183,0) + +"DATA",811.8,180,100,184,0) + +"DATA",811.8,180,100,187,0) + +"DATA",811.8,180,100,188,0) + +"DATA",811.8,180,100,189,0) + +"DATA",811.8,180,100,190,0) +VA DRUG CLASS +"DATA",811.8,180,100,191,0) +50.605 +"DATA",811.8,180,100,192,0) +BL115 +"DATA",811.8,180,100,193,0) +254 +"DATA",811.8,180,100,194,0) +1523697464 +"DATA",811.8,180,100,195,0) +NO +"DATA",811.8,180,100,196,0) + +"DATA",811.8,180,100,197,0) + +"DATA",811.8,180,100,200,0) + +"DATA",811.8,180,100,201,0) + +"DATA",811.8,180,100,202,0) + +"DATA",811.8,180,100,203,0) +LABORATORY TEST +"DATA",811.8,180,100,204,0) +60 +"DATA",811.8,180,100,205,0) +PLT +"DATA",811.8,180,100,206,0) +9 +"DATA",811.8,180,100,207,0) +1060313375 +"DATA",811.8,180,100,208,0) +NO +"DATA",811.8,180,100,209,0) + +"DATA",811.8,180,100,210,0) + +"DATA",811.8,180,100,213,0) + +"DATA",811.8,180,100,214,0) + +"DATA",811.8,180,100,215,0) + +"DATA",811.8,180,100,216,0) +LABORATORY TEST +"DATA",811.8,180,100,217,0) +60 +"DATA",811.8,180,100,218,0) +INR +"DATA",811.8,180,100,219,0) +5075 +"DATA",811.8,180,100,220,0) +1104670184 +"DATA",811.8,180,100,221,0) +NO +"DATA",811.8,180,100,222,0) + +"DATA",811.8,180,100,223,0) + +"DATA",811.8,180,100,226,0) + +"DATA",811.8,180,100,227,0) + +"DATA",811.8,180,100,228,0) + +"DATA",811.8,180,100,229,0) +HEALTH FACTORS +"DATA",811.8,180,100,230,0) +9999999.64 +"DATA",811.8,180,100,231,0) +MU STK +"DATA",811.8,180,100,232,0) +50049 +"DATA",811.8,180,100,233,0) +1292931282 +"DATA",811.8,180,100,234,0) +NO +"DATA",811.8,180,100,235,0) + +"DATA",811.8,180,100,236,0) + +"DATA",811.8,180,100,240,0) + +"DATA",811.8,180,100,241,0) + +"DATA",811.8,180,100,242,0) + +"DATA",811.8,180,100,243,0) +HEALTH FACTORS +"DATA",811.8,180,100,244,0) +9999999.64 +"DATA",811.8,180,100,245,0) +VTE TEST ORDER +"DATA",811.8,180,100,246,0) +50195 +"DATA",811.8,180,100,247,0) +808123084 +"DATA",811.8,180,100,248,0) +NO +"DATA",811.8,180,100,249,0) + +"DATA",811.8,180,100,250,0) + +"DATA",811.8,180,100,257,0) + +"DATA",811.8,180,100,258,0) + +"DATA",811.8,180,100,259,0) + +"DATA",811.8,180,100,260,0) +HEALTH FACTORS +"DATA",811.8,180,100,261,0) +9999999.64 +"DATA",811.8,180,100,262,0) +VTE PRESENT AT ADMISSION +"DATA",811.8,180,100,263,0) +50194 +"DATA",811.8,180,100,264,0) +3373262956 +"DATA",811.8,180,100,265,0) +NO +"DATA",811.8,180,100,266,0) + +"DATA",811.8,180,100,267,0) + +"DATA",811.8,180,100,274,0) + +"DATA",811.8,180,100,275,0) + +"DATA",811.8,180,100,276,0) + +"DATA",811.8,180,100,277,0) +HEALTH FACTORS +"DATA",811.8,180,100,278,0) +9999999.64 +"DATA",811.8,180,100,279,0) +VTE DX CONFIRMED DURING HOSPTIALIZATION +"DATA",811.8,180,100,280,0) +50193 +"DATA",811.8,180,100,281,0) +1875261175 +"DATA",811.8,180,100,282,0) +NO +"DATA",811.8,180,100,283,0) + +"DATA",811.8,180,100,284,0) + +"DATA",811.8,180,100,291,0) + +"DATA",811.8,180,100,292,0) + +"DATA",811.8,180,100,293,0) + +"DATA",811.8,180,100,294,0) +HEALTH FACTORS +"DATA",811.8,180,100,295,0) +9999999.64 +"DATA",811.8,180,100,296,0) +VTE NOT GIVEN-HOSPITAL ADMISSION +"DATA",811.8,180,100,297,0) +500304 +"DATA",811.8,180,100,298,0) +886939234 +"DATA",811.8,180,100,299,0) +NO +"DATA",811.8,180,100,300,0) + +"DATA",811.8,180,100,301,0) + +"DATA",811.8,180,100,308,0) + +"DATA",811.8,180,100,309,0) + +"DATA",811.8,180,100,310,0) + +"DATA",811.8,180,100,311,0) +HEALTH FACTORS +"DATA",811.8,180,100,312,0) +9999999.64 +"DATA",811.8,180,100,313,0) +VTE PROPHYLAXIS DECLINED +"DATA",811.8,180,100,314,0) +500303 +"DATA",811.8,180,100,315,0) +3681543442 +"DATA",811.8,180,100,316,0) +NO +"DATA",811.8,180,100,317,0) + +"DATA",811.8,180,100,318,0) + +"DATA",811.8,180,100,325,0) + +"DATA",811.8,180,100,326,0) + +"DATA",811.8,180,100,327,0) + +"DATA",811.8,180,100,328,0) +HEALTH FACTORS +"DATA",811.8,180,100,329,0) +9999999.64 +"DATA",811.8,180,100,330,0) +VTE PROHYLAXIS NOT RECEIVED +"DATA",811.8,180,100,331,0) +500302 +"DATA",811.8,180,100,332,0) +1720149288 +"DATA",811.8,180,100,333,0) +NO +"DATA",811.8,180,100,334,0) + +"DATA",811.8,180,100,335,0) + +"DATA",811.8,180,100,342,0) + +"DATA",811.8,180,100,343,0) + +"DATA",811.8,180,100,344,0) + +"DATA",811.8,180,100,345,0) +HEALTH FACTORS +"DATA",811.8,180,100,346,0) +9999999.64 +"DATA",811.8,180,100,347,0) +VTE NO MECHANICAL PROPHYLAXIS: REASON +"DATA",811.8,180,100,348,0) +50192 +"DATA",811.8,180,100,349,0) +3263321586 +"DATA",811.8,180,100,350,0) +NO +"DATA",811.8,180,100,351,0) + +"DATA",811.8,180,100,352,0) + +"DATA",811.8,180,100,359,0) + +"DATA",811.8,180,100,360,0) + +"DATA",811.8,180,100,361,0) + +"DATA",811.8,180,100,362,0) +HEALTH FACTORS +"DATA",811.8,180,100,363,0) +9999999.64 +"DATA",811.8,180,100,364,0) +ENROLLED IN CLINICAL TRIALS +"DATA",811.8,180,100,365,0) +50071 +"DATA",811.8,180,100,366,0) +4182986683 +"DATA",811.8,180,100,367,0) +NO +"DATA",811.8,180,100,368,0) + +"DATA",811.8,180,100,369,0) + +"DATA",811.8,180,100,376,0) + +"DATA",811.8,180,100,377,0) + +"DATA",811.8,180,100,378,0) + +"DATA",811.8,180,100,379,0) +HEALTH FACTORS +"DATA",811.8,180,100,380,0) +9999999.64 +"DATA",811.8,180,100,381,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL +"DATA",811.8,180,100,382,0) +50064 +"DATA",811.8,180,100,383,0) +1895354898 +"DATA",811.8,180,100,384,0) +NO +"DATA",811.8,180,100,385,0) + +"DATA",811.8,180,100,386,0) + +"DATA",811.8,180,100,393,0) + +"DATA",811.8,180,100,394,0) + +"DATA",811.8,180,100,395,0) + +"DATA",811.8,180,100,396,0) +HEALTH FACTORS +"DATA",811.8,180,100,397,0) +9999999.64 +"DATA",811.8,180,100,398,0) +VTE PROPHYLAXIS RECEIVED +"DATA",811.8,180,100,399,0) +500301 +"DATA",811.8,180,100,400,0) +1598536246 +"DATA",811.8,180,100,401,0) +NO +"DATA",811.8,180,100,402,0) + +"DATA",811.8,180,100,403,0) + +"DATA",811.8,180,100,410,0) + +"DATA",811.8,180,100,411,0) + +"DATA",811.8,180,100,412,0) + +"DATA",811.8,180,100,413,0) +HEALTH FACTORS +"DATA",811.8,180,100,414,0) +9999999.64 +"DATA",811.8,180,100,415,0) +WARFARIN PRESCRIBED AT DISCHARGE +"DATA",811.8,180,100,416,0) +50196 +"DATA",811.8,180,100,417,0) +3674032829 +"DATA",811.8,180,100,418,0) +NO +"DATA",811.8,180,100,419,0) + +"DATA",811.8,180,100,420,0) + +"DATA",811.8,180,100,427,0) + +"DATA",811.8,180,100,428,0) + +"DATA",811.8,180,100,429,0) + +"DATA",811.8,180,100,430,0) +HEALTH FACTORS +"DATA",811.8,180,100,431,0) +9999999.64 +"DATA",811.8,180,100,432,0) +WARFARIN FOLLOW-UP MONITORING ADDRESSED +"DATA",811.8,180,100,433,0) +50201 +"DATA",811.8,180,100,434,0) +644373442 +"DATA",811.8,180,100,435,0) +NO +"DATA",811.8,180,100,436,0) + +"DATA",811.8,180,100,437,0) + +"DATA",811.8,180,100,444,0) + +"DATA",811.8,180,100,445,0) + +"DATA",811.8,180,100,446,0) + +"DATA",811.8,180,100,447,0) +HEALTH FACTORS +"DATA",811.8,180,100,448,0) +9999999.64 +"DATA",811.8,180,100,449,0) +WARFARIN ADVERSE REACTIONS ADDRESSED +"DATA",811.8,180,100,450,0) +50200 +"DATA",811.8,180,100,451,0) +3691692119 +"DATA",811.8,180,100,452,0) +NO +"DATA",811.8,180,100,453,0) + +"DATA",811.8,180,100,454,0) + +"DATA",811.8,180,100,461,0) + +"DATA",811.8,180,100,462,0) + +"DATA",811.8,180,100,463,0) + +"DATA",811.8,180,100,464,0) +HEALTH FACTORS +"DATA",811.8,180,100,465,0) +9999999.64 +"DATA",811.8,180,100,466,0) +WARFARIN DIETARY ADVICE GIVEN +"DATA",811.8,180,100,467,0) +50199 +"DATA",811.8,180,100,468,0) +2792967222 +"DATA",811.8,180,100,469,0) +NO +"DATA",811.8,180,100,470,0) + +"DATA",811.8,180,100,471,0) + +"DATA",811.8,180,100,478,0) + +"DATA",811.8,180,100,479,0) + +"DATA",811.8,180,100,480,0) + +"DATA",811.8,180,100,481,0) +HEALTH FACTORS +"DATA",811.8,180,100,482,0) +9999999.64 +"DATA",811.8,180,100,483,0) +WARFARIN COMPLIANCE ADDRESSED +"DATA",811.8,180,100,484,0) +50198 +"DATA",811.8,180,100,485,0) +2192273470 +"DATA",811.8,180,100,486,0) +NO +"DATA",811.8,180,100,487,0) + +"DATA",811.8,180,100,488,0) + +"DATA",811.8,180,100,495,0) + +"DATA",811.8,180,100,496,0) + +"DATA",811.8,180,100,497,0) + +"DATA",811.8,180,100,498,0) +HEALTH FACTORS +"DATA",811.8,180,100,499,0) +9999999.64 +"DATA",811.8,180,100,500,0) +WARFARIN EDU MATERIAL GIVEN AT DISCH +"DATA",811.8,180,100,501,0) +50197 +"DATA",811.8,180,100,502,0) +184824224 +"DATA",811.8,180,100,503,0) +NO +"DATA",811.8,180,100,504,0) + +"DATA",811.8,180,100,505,0) + +"DATA",811.8,180,100,512,0) + +"DATA",811.8,180,100,513,0) + +"DATA",811.8,180,100,514,0) + +"DATA",811.8,180,100,515,0) +HEALTH FACTORS +"DATA",811.8,180,100,516,0) +9999999.64 +"DATA",811.8,180,100,517,0) +SURGICAL CARE IMPROVEMENT PROJECT (SCIP) +"DATA",811.8,180,100,518,0) +50034 +"DATA",811.8,180,100,519,0) +3503105561 +"DATA",811.8,180,100,520,0) +NO +"DATA",811.8,180,100,521,0) + +"DATA",811.8,180,100,522,0) + +"DATA",811.8,180,100,529,0) + +"DATA",811.8,180,100,530,0) + +"DATA",811.8,180,100,531,0) + +"DATA",811.8,180,100,532,0) +HEALTH FACTORS +"DATA",811.8,180,100,533,0) +9999999.64 +"DATA",811.8,180,100,534,0) +VTE PROPHYLAXIS DOCUMENTED +"DATA",811.8,180,100,535,0) +50209 +"DATA",811.8,180,100,536,0) +4064470376 +"DATA",811.8,180,100,537,0) +NO +"DATA",811.8,180,100,538,0) + +"DATA",811.8,180,100,539,0) + +"DATA",811.8,180,100,546,0) + +"DATA",811.8,180,100,547,0) + +"DATA",811.8,180,100,548,0) + +"DATA",811.8,180,100,549,0) +HEALTH FACTORS +"DATA",811.8,180,100,550,0) +9999999.64 +"DATA",811.8,180,100,551,0) +ELECTIVE CAROTID INTERVENTION +"DATA",811.8,180,100,552,0) +500306 +"DATA",811.8,180,100,553,0) +2385829161 +"DATA",811.8,180,100,554,0) +NO +"DATA",811.8,180,100,555,0) + +"DATA",811.8,180,100,556,0) + +"DATA",811.8,180,100,563,0) + +"DATA",811.8,180,100,564,0) + +"DATA",811.8,180,100,565,0) + +"DATA",811.8,180,100,566,0) +HEALTH FACTORS +"DATA",811.8,180,100,567,0) +9999999.64 +"DATA",811.8,180,100,568,0) +COMFORT MEASURES PROTOCOL FOLLOWED +"DATA",811.8,180,100,569,0) +500305 +"DATA",811.8,180,100,570,0) +779307093 +"DATA",811.8,180,100,571,0) +NO +"DATA",811.8,180,100,572,0) + +"DATA",811.8,180,100,573,0) + +"DATA",811.8,180,100,580,0) + +"DATA",811.8,180,100,581,0) + +"DATA",811.8,180,100,582,0) + +"DATA",811.8,180,100,583,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,180,100,584,0) +811.4 +"DATA",811.8,180,100,585,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,180,100,586,0) +90 +"DATA",811.8,180,100,587,0) +1960922291 +"DATA",811.8,180,100,588,0) +NO +"DATA",811.8,180,100,589,0) + +"DATA",811.8,180,100,590,0) + +"DATA",811.8,180,100,631,0) + +"DATA",811.8,180,100,632,0) + +"DATA",811.8,180,100,633,0) + +"DATA",811.8,180,100,636,0) + +"DATA",811.8,180,100,637,0) + +"DATA",811.8,180,100,638,0) + +"DATA",811.8,180,100,639,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,180,100,640,0) +811.4 +"DATA",811.8,180,100,641,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,180,100,642,0) +94 +"DATA",811.8,180,100,643,0) +1608937132 +"DATA",811.8,180,100,644,0) +NO +"DATA",811.8,180,100,645,0) + +"DATA",811.8,180,100,646,0) + +"DATA",811.8,180,100,684,0) + +"DATA",811.8,180,100,685,0) + +"DATA",811.8,180,100,686,0) + +"DATA",811.8,180,100,689,0) + +"DATA",811.8,180,100,690,0) + +"DATA",811.8,180,100,691,0) + +"DATA",811.8,180,100,692,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,693,0) +811.2 +"DATA",811.8,180,100,694,0) +MU VTE-6 TABLE 7.04 DISCH DX TX +"DATA",811.8,180,100,695,0) +209 +"DATA",811.8,180,100,696,0) +1488823505 +"DATA",811.8,180,100,697,0) +NO +"DATA",811.8,180,100,698,0) + +"DATA",811.8,180,100,699,0) + +"DATA",811.8,180,100,768,0) + +"DATA",811.8,180,100,769,0) + +"DATA",811.8,180,100,770,0) + +"DATA",811.8,180,100,788,0) + +"DATA",811.8,180,100,789,0) + +"DATA",811.8,180,100,790,0) + +"DATA",811.8,180,100,791,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,792,0) +811.2 +"DATA",811.8,180,100,793,0) +MU VTE-6 TABLE 7.03 DISCH DX TX +"DATA",811.8,180,100,794,0) +208 +"DATA",811.8,180,100,795,0) +3284149279 +"DATA",811.8,180,100,796,0) +NO +"DATA",811.8,180,100,797,0) + +"DATA",811.8,180,100,798,0) + +"DATA",811.8,180,100,847,0) + +"DATA",811.8,180,100,848,0) + +"DATA",811.8,180,100,849,0) + +"DATA",811.8,180,100,862,0) + +"DATA",811.8,180,100,863,0) + +"DATA",811.8,180,100,864,0) + +"DATA",811.8,180,100,865,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,866,0) +811.2 +"DATA",811.8,180,100,867,0) +MU TABLE 7.04 TX +"DATA",811.8,180,100,868,0) +190 +"DATA",811.8,180,100,869,0) +3678313254 +"DATA",811.8,180,100,870,0) +NO +"DATA",811.8,180,100,871,0) + +"DATA",811.8,180,100,872,0) + +"DATA",811.8,180,100,940,0) + +"DATA",811.8,180,100,941,0) + +"DATA",811.8,180,100,942,0) + +"DATA",811.8,180,100,960,0) + +"DATA",811.8,180,100,961,0) + +"DATA",811.8,180,100,962,0) + +"DATA",811.8,180,100,963,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,964,0) +811.2 +"DATA",811.8,180,100,965,0) +MU TABLE 7.03 TX +"DATA",811.8,180,100,966,0) +189 +"DATA",811.8,180,100,967,0) +2377246465 +"DATA",811.8,180,100,968,0) +NO +"DATA",811.8,180,100,969,0) + +"DATA",811.8,180,100,970,0) + +"DATA",811.8,180,100,1018,0) + +"DATA",811.8,180,100,1019,0) + +"DATA",811.8,180,100,1020,0) + +"DATA",811.8,180,100,1033,0) + +"DATA",811.8,180,100,1034,0) + +"DATA",811.8,180,100,1035,0) + +"DATA",811.8,180,100,1036,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1037,0) +811.2 +"DATA",811.8,180,100,1038,0) +MU INTRACRAN NEURO SURG 5.17 +"DATA",811.8,180,100,1039,0) +118 +"DATA",811.8,180,100,1040,0) +2255516464 +"DATA",811.8,180,100,1041,0) +NO +"DATA",811.8,180,100,1042,0) + +"DATA",811.8,180,100,1043,0) + +"DATA",811.8,180,100,1079,0) + +"DATA",811.8,180,100,1080,0) + +"DATA",811.8,180,100,1081,0) + +"DATA",811.8,180,100,1091,0) + +"DATA",811.8,180,100,1092,0) + +"DATA",811.8,180,100,1093,0) + +"DATA",811.8,180,100,1094,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1095,0) +811.2 +"DATA",811.8,180,100,1096,0) +MU GENERAL SURGERY 5.19 +"DATA",811.8,180,100,1097,0) +117 +"DATA",811.8,180,100,1098,0) +3458058209 +"DATA",811.8,180,100,1099,0) +NO +"DATA",811.8,180,100,1100,0) + +"DATA",811.8,180,100,1101,0) + +"DATA",811.8,180,100,1521,0) + +"DATA",811.8,180,100,1522,0) + +"DATA",811.8,180,100,1523,0) + +"DATA",811.8,180,100,1629,0) + +"DATA",811.8,180,100,1630,0) + +"DATA",811.8,180,100,1631,0) + +"DATA",811.8,180,100,1632,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1633,0) +811.2 +"DATA",811.8,180,100,1634,0) +MU GYNERCOLOGICAL SURG 5.20 +"DATA",811.8,180,100,1635,0) +116 +"DATA",811.8,180,100,1636,0) +3597002898 +"DATA",811.8,180,100,1637,0) +NO +"DATA",811.8,180,100,1638,0) + +"DATA",811.8,180,100,1639,0) + +"DATA",811.8,180,100,1711,0) + +"DATA",811.8,180,100,1712,0) + +"DATA",811.8,180,100,1713,0) + +"DATA",811.8,180,100,1732,0) + +"DATA",811.8,180,100,1733,0) + +"DATA",811.8,180,100,1734,0) + +"DATA",811.8,180,100,1735,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1736,0) +811.2 +"DATA",811.8,180,100,1737,0) +MU UROLOGICAL SURGERY 5.21 +"DATA",811.8,180,100,1738,0) +115 +"DATA",811.8,180,100,1739,0) +340959905 +"DATA",811.8,180,100,1740,0) +NO +"DATA",811.8,180,100,1741,0) + +"DATA",811.8,180,100,1742,0) + +"DATA",811.8,180,100,1802,0) + +"DATA",811.8,180,100,1803,0) + +"DATA",811.8,180,100,1804,0) + +"DATA",811.8,180,100,1820,0) + +"DATA",811.8,180,100,1821,0) + +"DATA",811.8,180,100,1822,0) + +"DATA",811.8,180,100,1823,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1824,0) +811.2 +"DATA",811.8,180,100,1825,0) +MU ELECTIVE HIP REPL 5.22 +"DATA",811.8,180,100,1826,0) +114 +"DATA",811.8,180,100,1827,0) +1201679318 +"DATA",811.8,180,100,1828,0) +NO +"DATA",811.8,180,100,1829,0) + +"DATA",811.8,180,100,1830,0) + +"DATA",811.8,180,100,1854,0) + +"DATA",811.8,180,100,1855,0) + +"DATA",811.8,180,100,1856,0) + +"DATA",811.8,180,100,1863,0) + +"DATA",811.8,180,100,1864,0) + +"DATA",811.8,180,100,1865,0) + +"DATA",811.8,180,100,1866,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1867,0) +811.2 +"DATA",811.8,180,100,1868,0) +MU ELECTIVE TOTAL KNEE REPL 5.23 +"DATA",811.8,180,100,1869,0) +113 +"DATA",811.8,180,100,1870,0) +3327003657 +"DATA",811.8,180,100,1871,0) +NO +"DATA",811.8,180,100,1872,0) + +"DATA",811.8,180,100,1873,0) + +"DATA",811.8,180,100,1889,0) + +"DATA",811.8,180,100,1890,0) + +"DATA",811.8,180,100,1891,0) + +"DATA",811.8,180,100,1896,0) + +"DATA",811.8,180,100,1897,0) + +"DATA",811.8,180,100,1898,0) + +"DATA",811.8,180,100,1899,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1900,0) +811.2 +"DATA",811.8,180,100,1901,0) +MU HIP FRAC 5.24 +"DATA",811.8,180,100,1902,0) +112 +"DATA",811.8,180,100,1903,0) +2413513853 +"DATA",811.8,180,100,1904,0) +NO +"DATA",811.8,180,100,1905,0) + +"DATA",811.8,180,100,1906,0) + +"DATA",811.8,180,100,1918,0) + +"DATA",811.8,180,100,1919,0) + +"DATA",811.8,180,100,1920,0) + +"DATA",811.8,180,100,1924,0) + +"DATA",811.8,180,100,1925,0) + +"DATA",811.8,180,100,1926,0) + +"DATA",811.8,180,100,1927,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1928,0) +811.2 +"DATA",811.8,180,100,1929,0) +MU OBSTETRICS 7.02 +"DATA",811.8,180,100,1930,0) +111 +"DATA",811.8,180,100,1931,0) +4046671681 +"DATA",811.8,180,100,1932,0) +NO +"DATA",811.8,180,100,1933,0) + +"DATA",811.8,180,100,1934,0) + +"DATA",811.8,180,100,2674,0) + +"DATA",811.8,180,100,2675,0) + +"DATA",811.8,180,100,2676,0) + +"DATA",811.8,180,100,2862,0) + +"DATA",811.8,180,100,2863,0) + +"DATA",811.8,180,100,2864,0) + +"DATA",811.8,180,100,2865,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,2866,0) +811.2 +"DATA",811.8,180,100,2867,0) +MU STK-1 DENOM INCLU TX +"DATA",811.8,180,100,2868,0) +147 +"DATA",811.8,180,100,2869,0) +929230959 +"DATA",811.8,180,100,2870,0) +NO +"DATA",811.8,180,100,2871,0) + +"DATA",811.8,180,100,2872,0) + +"DATA",811.8,180,100,2933,0) + +"DATA",811.8,180,100,2934,0) + +"DATA",811.8,180,100,2935,0) + +"DATA",811.8,180,100,2951,0) + +"DATA",811.8,180,100,2952,0) + +"DATA",811.8,180,100,2953,0) + +"DATA",811.8,180,100,2954,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,2955,0) +811.2 +"DATA",811.8,180,100,2956,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,180,100,2957,0) +122 +"DATA",811.8,180,100,2958,0) +3882324901 +"DATA",811.8,180,100,2959,0) +NO +"DATA",811.8,180,100,2960,0) + +"DATA",811.8,180,100,2961,0) + +"DATA",811.8,180,100,2981,0) + +"DATA",811.8,180,100,2982,0) + +"DATA",811.8,180,100,2983,0) + +"DATA",811.8,180,100,2989,0) + +"DATA",811.8,180,100,2990,0) + +"DATA",811.8,180,100,2991,0) + +"DATA",811.8,180,100,2992,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,2993,0) +811.2 +"DATA",811.8,180,100,2994,0) +MU TABLE 7.01 TX +"DATA",811.8,180,100,2995,0) +219 +"DATA",811.8,180,100,2996,0) +2517265193 +"DATA",811.8,180,100,2997,0) +NO +"DATA",811.8,180,100,2998,0) + +"DATA",811.8,180,100,2999,0) + +"DATA",811.8,180,100,3595,0) + +"DATA",811.8,180,100,3596,0) + +"DATA",811.8,180,100,3597,0) + +"DATA",811.8,180,100,3747,0) + +"DATA",811.8,180,100,3748,0) + +"DATA",811.8,180,100,3749,0) + +"DATA",811.8,180,100,3750,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,3751,0) +811.2 +"DATA",811.8,180,100,3752,0) +MU TABLE 8.2 TX +"DATA",811.8,180,100,3753,0) +194 +"DATA",811.8,180,100,3754,0) +2381427883 +"DATA",811.8,180,100,3755,0) +NO +"DATA",811.8,180,100,3756,0) + +"DATA",811.8,180,100,3757,0) + +"DATA",811.8,180,100,3773,0) + +"DATA",811.8,180,100,3774,0) + +"DATA",811.8,180,100,3775,0) + +"DATA",811.8,180,100,3780,0) + +"DATA",811.8,180,100,3781,0) + +"DATA",811.8,180,100,3782,0) + +"DATA",811.8,180,100,3783,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,3784,0) +811.2 +"DATA",811.8,180,100,3785,0) +MU STROKE 8.1 TX +"DATA",811.8,180,100,3786,0) +119 +"DATA",811.8,180,100,3787,0) +368190634 +"DATA",811.8,180,100,3788,0) +NO +"DATA",811.8,180,100,3789,0) + +"DATA",811.8,180,100,3790,0) + +"DATA",811.8,180,100,3846,0) + +"DATA",811.8,180,100,3847,0) + +"DATA",811.8,180,100,3848,0) + +"DATA",811.8,180,100,3863,0) + +"DATA",811.8,180,100,3864,0) + +"DATA",811.8,180,100,3865,0) + +"DATA",811.8,180,100,3866,0) +REMINDER TERM +"DATA",811.8,180,100,3867,0) +811.5 +"DATA",811.8,180,100,3868,0) +MU VTE-6 DENOM TEST ORDERED TRM +"DATA",811.8,180,100,3869,0) +682 +"DATA",811.8,180,100,3870,0) +557709074 +"DATA",811.8,180,100,3871,0) +NO +"DATA",811.8,180,100,3872,0) + +"DATA",811.8,180,100,3873,0) + +"DATA",811.8,180,100,3881,0) + +"DATA",811.8,180,100,3882,0) + +"DATA",811.8,180,100,3883,0) + +"DATA",811.8,180,100,3887,0) + +"DATA",811.8,180,100,3888,0) + +"DATA",811.8,180,100,3889,0) + +"DATA",811.8,180,100,3890,0) +REMINDER TERM +"DATA",811.8,180,100,3891,0) +811.5 +"DATA",811.8,180,100,3892,0) +MU VTE-6 DENOM VTE PRESENT AT ADMISSION TRM +"DATA",811.8,180,100,3893,0) +681 +"DATA",811.8,180,100,3894,0) +2646552455 +"DATA",811.8,180,100,3895,0) +NO +"DATA",811.8,180,100,3896,0) + +"DATA",811.8,180,100,3897,0) + +"DATA",811.8,180,100,3905,0) + +"DATA",811.8,180,100,3906,0) + +"DATA",811.8,180,100,3907,0) + +"DATA",811.8,180,100,3911,0) + +"DATA",811.8,180,100,3912,0) + +"DATA",811.8,180,100,3913,0) + +"DATA",811.8,180,100,3914,0) +REMINDER TERM +"DATA",811.8,180,100,3915,0) +811.5 +"DATA",811.8,180,100,3916,0) +MU VTE-6 DENOM CONFIRMED DX TRM +"DATA",811.8,180,100,3917,0) +680 +"DATA",811.8,180,100,3918,0) +3454806409 +"DATA",811.8,180,100,3919,0) +NO +"DATA",811.8,180,100,3920,0) + +"DATA",811.8,180,100,3921,0) + +"DATA",811.8,180,100,3929,0) + +"DATA",811.8,180,100,3930,0) + +"DATA",811.8,180,100,3931,0) + +"DATA",811.8,180,100,3935,0) + +"DATA",811.8,180,100,3936,0) + +"DATA",811.8,180,100,3937,0) + +"DATA",811.8,180,100,3938,0) +REMINDER TERM +"DATA",811.8,180,100,3939,0) +811.5 +"DATA",811.8,180,100,3940,0) +MU VTE-6 NO PROPHYLAXIS EXCLU DENOM TRM +"DATA",811.8,180,100,3941,0) +670 +"DATA",811.8,180,100,3942,0) +1309039022 +"DATA",811.8,180,100,3943,0) +NO +"DATA",811.8,180,100,3944,0) + +"DATA",811.8,180,100,3945,0) + +"DATA",811.8,180,100,3956,0) + +"DATA",811.8,180,100,3957,0) + +"DATA",811.8,180,100,3958,0) + +"DATA",811.8,180,100,3965,0) + +"DATA",811.8,180,100,3966,0) + +"DATA",811.8,180,100,3967,0) + +"DATA",811.8,180,100,3968,0) +REMINDER TERM +"DATA",811.8,180,100,3969,0) +811.5 +"DATA",811.8,180,100,3970,0) +MU VTE-6 EXCLU DENOM TRM +"DATA",811.8,180,100,3971,0) +669 +"DATA",811.8,180,100,3972,0) +616584539 +"DATA",811.8,180,100,3973,0) +NO +"DATA",811.8,180,100,3974,0) + +"DATA",811.8,180,100,3975,0) + +"DATA",811.8,180,100,3984,0) + +"DATA",811.8,180,100,3985,0) + +"DATA",811.8,180,100,3986,0) + +"DATA",811.8,180,100,3991,0) + +"DATA",811.8,180,100,3992,0) + +"DATA",811.8,180,100,3993,0) + +"DATA",811.8,180,100,3994,0) +REMINDER TERM +"DATA",811.8,180,100,3995,0) +811.5 +"DATA",811.8,180,100,3996,0) +MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,180,100,3997,0) +660 +"DATA",811.8,180,100,3998,0) +1258096799 +"DATA",811.8,180,100,3999,0) +NO +"DATA",811.8,180,100,4000,0) + +"DATA",811.8,180,100,4001,0) + +"DATA",811.8,180,100,4012,0) + +"DATA",811.8,180,100,4013,0) + +"DATA",811.8,180,100,4014,0) + +"DATA",811.8,180,100,4018,0) + +"DATA",811.8,180,100,4019,0) + +"DATA",811.8,180,100,4020,0) + +"DATA",811.8,180,100,4021,0) +REMINDER TERM +"DATA",811.8,180,100,4022,0) +811.5 +"DATA",811.8,180,100,4023,0) +MU VTE-6 PROPHYLAXIS GIVEN TRM +"DATA",811.8,180,100,4024,0) +672 +"DATA",811.8,180,100,4025,0) +719937458 +"DATA",811.8,180,100,4026,0) +NO +"DATA",811.8,180,100,4027,0) + +"DATA",811.8,180,100,4028,0) + +"DATA",811.8,180,100,4041,0) + +"DATA",811.8,180,100,4042,0) + +"DATA",811.8,180,100,4043,0) + +"DATA",811.8,180,100,4052,0) + +"DATA",811.8,180,100,4053,0) + +"DATA",811.8,180,100,4054,0) + +"DATA",811.8,180,100,4055,0) +REMINDER TERM +"DATA",811.8,180,100,4056,0) +811.5 +"DATA",811.8,180,100,4057,0) +MU VTE-5 WARFARIN TRM +"DATA",811.8,180,100,4058,0) +683 +"DATA",811.8,180,100,4059,0) +2360865138 +"DATA",811.8,180,100,4060,0) +NO +"DATA",811.8,180,100,4061,0) + +"DATA",811.8,180,100,4062,0) + +"DATA",811.8,180,100,4072,0) + +"DATA",811.8,180,100,4073,0) + +"DATA",811.8,180,100,4074,0) + +"DATA",811.8,180,100,4080,0) + +"DATA",811.8,180,100,4081,0) + +"DATA",811.8,180,100,4082,0) + +"DATA",811.8,180,100,4083,0) +REMINDER TERM +"DATA",811.8,180,100,4084,0) +811.5 +"DATA",811.8,180,100,4085,0) +MU VTE-5 WARFARIN INSTRUCTION TRM +"DATA",811.8,180,100,4086,0) +679 +"DATA",811.8,180,100,4087,0) +3294970800 +"DATA",811.8,180,100,4088,0) +NO +"DATA",811.8,180,100,4089,0) + +"DATA",811.8,180,100,4090,0) + +"DATA",811.8,180,100,4102,0) + +"DATA",811.8,180,100,4103,0) + +"DATA",811.8,180,100,4104,0) + +"DATA",811.8,180,100,4112,0) + +"DATA",811.8,180,100,4113,0) + +"DATA",811.8,180,100,4114,0) + +"DATA",811.8,180,100,4115,0) +REMINDER TERM +"DATA",811.8,180,100,4116,0) +811.5 +"DATA",811.8,180,100,4117,0) +MU VTE-5 DENOM TEST ORDER TRM +"DATA",811.8,180,100,4118,0) +678 +"DATA",811.8,180,100,4119,0) +3278676975 +"DATA",811.8,180,100,4120,0) +NO +"DATA",811.8,180,100,4121,0) + +"DATA",811.8,180,100,4122,0) + +"DATA",811.8,180,100,4130,0) + +"DATA",811.8,180,100,4131,0) + +"DATA",811.8,180,100,4132,0) + +"DATA",811.8,180,100,4136,0) + +"DATA",811.8,180,100,4137,0) + +"DATA",811.8,180,100,4138,0) + +"DATA",811.8,180,100,4139,0) +REMINDER TERM +"DATA",811.8,180,100,4140,0) +811.5 +"DATA",811.8,180,100,4141,0) +MU VTE-5 DENOM CONFIRMED DX TRM +"DATA",811.8,180,100,4142,0) +677 +"DATA",811.8,180,100,4143,0) +865367625 +"DATA",811.8,180,100,4144,0) +NO +"DATA",811.8,180,100,4145,0) + +"DATA",811.8,180,100,4146,0) + +"DATA",811.8,180,100,4154,0) + +"DATA",811.8,180,100,4155,0) + +"DATA",811.8,180,100,4156,0) + +"DATA",811.8,180,100,4160,0) + +"DATA",811.8,180,100,4161,0) + +"DATA",811.8,180,100,4162,0) + +"DATA",811.8,180,100,4163,0) +REMINDER TERM +"DATA",811.8,180,100,4164,0) +811.5 +"DATA",811.8,180,100,4165,0) +MU VTE-5 DENOM INCL 7.03 OR 7.04 TX TRM +"DATA",811.8,180,100,4166,0) +676 +"DATA",811.8,180,100,4167,0) +2774899428 +"DATA",811.8,180,100,4168,0) +NO +"DATA",811.8,180,100,4169,0) + +"DATA",811.8,180,100,4170,0) + +"DATA",811.8,180,100,4179,0) + +"DATA",811.8,180,100,4180,0) + +"DATA",811.8,180,100,4181,0) + +"DATA",811.8,180,100,4186,0) + +"DATA",811.8,180,100,4187,0) + +"DATA",811.8,180,100,4188,0) + +"DATA",811.8,180,100,4189,0) +REMINDER TERM +"DATA",811.8,180,100,4190,0) +811.5 +"DATA",811.8,180,100,4191,0) +MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,180,100,4192,0) +675 +"DATA",811.8,180,100,4193,0) +1839453929 +"DATA",811.8,180,100,4194,0) +NO +"DATA",811.8,180,100,4195,0) + +"DATA",811.8,180,100,4196,0) + +"DATA",811.8,180,100,4207,0) + +"DATA",811.8,180,100,4208,0) + +"DATA",811.8,180,100,4209,0) + +"DATA",811.8,180,100,4213,0) + +"DATA",811.8,180,100,4214,0) + +"DATA",811.8,180,100,4215,0) + +"DATA",811.8,180,100,4216,0) +REMINDER TERM +"DATA",811.8,180,100,4217,0) +811.5 +"DATA",811.8,180,100,4218,0) +MU DISCHARGED COURT/LAW +"DATA",811.8,180,100,4219,0) +674 +"DATA",811.8,180,100,4220,0) +1301941291 +"DATA",811.8,180,100,4221,0) +NO +"DATA",811.8,180,100,4222,0) + +"DATA",811.8,180,100,4223,0) + +"DATA",811.8,180,100,4234,0) + +"DATA",811.8,180,100,4235,0) + +"DATA",811.8,180,100,4236,0) + +"DATA",811.8,180,100,4240,0) + +"DATA",811.8,180,100,4241,0) + +"DATA",811.8,180,100,4242,0) + +"DATA",811.8,180,100,4243,0) +REMINDER TERM +"DATA",811.8,180,100,4244,0) +811.5 +"DATA",811.8,180,100,4245,0) +MU DISCHARGED HOME +"DATA",811.8,180,100,4246,0) +673 +"DATA",811.8,180,100,4247,0) +2743717861 +"DATA",811.8,180,100,4248,0) +NO +"DATA",811.8,180,100,4249,0) + +"DATA",811.8,180,100,4250,0) + +"DATA",811.8,180,100,4261,0) + +"DATA",811.8,180,100,4262,0) + +"DATA",811.8,180,100,4263,0) + +"DATA",811.8,180,100,4267,0) + +"DATA",811.8,180,100,4268,0) + +"DATA",811.8,180,100,4269,0) + +"DATA",811.8,180,100,4270,0) +REMINDER TERM +"DATA",811.8,180,100,4271,0) +811.5 +"DATA",811.8,180,100,4272,0) +MU VTE-5 DENOM EXCLU TRM +"DATA",811.8,180,100,4273,0) +671 +"DATA",811.8,180,100,4274,0) +1175648455 +"DATA",811.8,180,100,4275,0) +NO +"DATA",811.8,180,100,4276,0) + +"DATA",811.8,180,100,4277,0) + +"DATA",811.8,180,100,4285,0) + +"DATA",811.8,180,100,4286,0) + +"DATA",811.8,180,100,4287,0) + +"DATA",811.8,180,100,4291,0) + +"DATA",811.8,180,100,4292,0) + +"DATA",811.8,180,100,4293,0) + +"DATA",811.8,180,100,4294,0) +REMINDER TERM +"DATA",811.8,180,100,4295,0) +811.5 +"DATA",811.8,180,100,4296,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,180,100,4297,0) +688 +"DATA",811.8,180,100,4298,0) +1255054350 +"DATA",811.8,180,100,4299,0) +NO +"DATA",811.8,180,100,4300,0) + +"DATA",811.8,180,100,4301,0) + +"DATA",811.8,180,100,4312,0) + +"DATA",811.8,180,100,4313,0) + +"DATA",811.8,180,100,4314,0) + +"DATA",811.8,180,100,4318,0) + +"DATA",811.8,180,100,4319,0) + +"DATA",811.8,180,100,4320,0) + +"DATA",811.8,180,100,4321,0) +REMINDER TERM +"DATA",811.8,180,100,4322,0) +811.5 +"DATA",811.8,180,100,4323,0) +MU DISCHARGED TRANSFER OUT +"DATA",811.8,180,100,4324,0) +687 +"DATA",811.8,180,100,4325,0) +1371446481 +"DATA",811.8,180,100,4326,0) +NO +"DATA",811.8,180,100,4327,0) + +"DATA",811.8,180,100,4328,0) + +"DATA",811.8,180,100,4339,0) + +"DATA",811.8,180,100,4340,0) + +"DATA",811.8,180,100,4341,0) + +"DATA",811.8,180,100,4345,0) + +"DATA",811.8,180,100,4346,0) + +"DATA",811.8,180,100,4347,0) + +"DATA",811.8,180,100,4348,0) +REMINDER TERM +"DATA",811.8,180,100,4349,0) +811.5 +"DATA",811.8,180,100,4350,0) +MU VTE-4 HEPARIN MED TRM +"DATA",811.8,180,100,4351,0) +686 +"DATA",811.8,180,100,4352,0) +2876419271 +"DATA",811.8,180,100,4353,0) +NO +"DATA",811.8,180,100,4354,0) + +"DATA",811.8,180,100,4355,0) + +"DATA",811.8,180,100,4366,0) + +"DATA",811.8,180,100,4367,0) + +"DATA",811.8,180,100,4368,0) + +"DATA",811.8,180,100,4375,0) + +"DATA",811.8,180,100,4376,0) + +"DATA",811.8,180,100,4377,0) + +"DATA",811.8,180,100,4378,0) +REMINDER TERM +"DATA",811.8,180,100,4379,0) +811.5 +"DATA",811.8,180,100,4380,0) +MU DISCHARGE DEATH +"DATA",811.8,180,100,4381,0) +685 +"DATA",811.8,180,100,4382,0) +536067863 +"DATA",811.8,180,100,4383,0) +NO +"DATA",811.8,180,100,4384,0) + +"DATA",811.8,180,100,4385,0) + +"DATA",811.8,180,100,4396,0) + +"DATA",811.8,180,100,4397,0) + +"DATA",811.8,180,100,4398,0) + +"DATA",811.8,180,100,4402,0) + +"DATA",811.8,180,100,4403,0) + +"DATA",811.8,180,100,4404,0) + +"DATA",811.8,180,100,4405,0) +REMINDER TERM +"DATA",811.8,180,100,4406,0) +811.5 +"DATA",811.8,180,100,4407,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,180,100,4408,0) +684 +"DATA",811.8,180,100,4409,0) +1819822144 +"DATA",811.8,180,100,4410,0) +NO +"DATA",811.8,180,100,4411,0) + +"DATA",811.8,180,100,4412,0) + +"DATA",811.8,180,100,4423,0) + +"DATA",811.8,180,100,4424,0) + +"DATA",811.8,180,100,4425,0) + +"DATA",811.8,180,100,4429,0) + +"DATA",811.8,180,100,4430,0) + +"DATA",811.8,180,100,4431,0) + +"DATA",811.8,180,100,4432,0) +REMINDER TERM +"DATA",811.8,180,100,4433,0) +811.5 +"DATA",811.8,180,100,4434,0) +MU VTE-4 DENOM PLT LAB RESULT TRM +"DATA",811.8,180,100,4435,0) +689 +"DATA",811.8,180,100,4436,0) +1938584144 +"DATA",811.8,180,100,4437,0) +NO +"DATA",811.8,180,100,4438,0) + +"DATA",811.8,180,100,4439,0) + +"DATA",811.8,180,100,4447,0) + +"DATA",811.8,180,100,4448,0) + +"DATA",811.8,180,100,4449,0) + +"DATA",811.8,180,100,4453,0) + +"DATA",811.8,180,100,4454,0) + +"DATA",811.8,180,100,4455,0) + +"DATA",811.8,180,100,4456,0) +REMINDER TERM +"DATA",811.8,180,100,4457,0) +811.5 +"DATA",811.8,180,100,4458,0) +MU WARFARIN THERAPY +"DATA",811.8,180,100,4459,0) +740 +"DATA",811.8,180,100,4460,0) +464909860 +"DATA",811.8,180,100,4461,0) +NO +"DATA",811.8,180,100,4462,0) + +"DATA",811.8,180,100,4463,0) + +"DATA",811.8,180,100,4472,0) + +"DATA",811.8,180,100,4473,0) + +"DATA",811.8,180,100,4474,0) + +"DATA",811.8,180,100,4479,0) + +"DATA",811.8,180,100,4480,0) + +"DATA",811.8,180,100,4481,0) + +"DATA",811.8,180,100,4482,0) +REMINDER TERM +"DATA",811.8,180,100,4483,0) +811.5 +"DATA",811.8,180,100,4484,0) +MU VTE-3 DENOM TX +"DATA",811.8,180,100,4485,0) +739 +"DATA",811.8,180,100,4486,0) +1599420264 +"DATA",811.8,180,100,4487,0) +NO +"DATA",811.8,180,100,4488,0) + +"DATA",811.8,180,100,4489,0) + +"DATA",811.8,180,100,4498,0) + +"DATA",811.8,180,100,4499,0) + +"DATA",811.8,180,100,4500,0) + +"DATA",811.8,180,100,4505,0) + +"DATA",811.8,180,100,4506,0) + +"DATA",811.8,180,100,4507,0) + +"DATA",811.8,180,100,4508,0) +REMINDER TERM +"DATA",811.8,180,100,4509,0) +811.5 +"DATA",811.8,180,100,4510,0) +MU VTE-3 NUMER INR<2 TRM +"DATA",811.8,180,100,4511,0) +742 +"DATA",811.8,180,100,4512,0) +1362577542 +"DATA",811.8,180,100,4513,0) +NO +"DATA",811.8,180,100,4514,0) + +"DATA",811.8,180,100,4515,0) + +"DATA",811.8,180,100,4525,0) + +"DATA",811.8,180,100,4526,0) + +"DATA",811.8,180,100,4527,0) + +"DATA",811.8,180,100,4531,0) + +"DATA",811.8,180,100,4532,0) + +"DATA",811.8,180,100,4533,0) + +"DATA",811.8,180,100,4534,0) +REMINDER TERM +"DATA",811.8,180,100,4535,0) +811.5 +"DATA",811.8,180,100,4536,0) +MU VTE-3 NUMER INR>=2 TRM +"DATA",811.8,180,100,4537,0) +741 +"DATA",811.8,180,100,4538,0) +3670698211 +"DATA",811.8,180,100,4539,0) +NO +"DATA",811.8,180,100,4540,0) + +"DATA",811.8,180,100,4541,0) +=2 TRM +"DATA",811.8,180,100,4543,0) +811.5;+741,;100~LOCAL +"DATA",811.8,180,100,4544,0) +811.52;+742,+741,;.01~LT.INR +"DATA",811.8,180,100,4545,0) +811.52;+742,+741,;14~I V>1.9 +"DATA",811.8,180,100,4546,0) +811.52;+742,+741,;22~I V>1.9 +"DATA",811.8,180,100,4547,0) +811.53;+743,+741,;.01~07/20/2012@09:51:16 +"DATA",811.8,180,100,4548,0) +811.53;+743,+741,;2~WP-start~1 +"DATA",811.8,180,100,4549,0) +Exchange Stub +"DATA",811.8,180,100,4550,0) +]]> +"DATA",811.8,180,100,4551,0) + +"DATA",811.8,180,100,4552,0) + +"DATA",811.8,180,100,4553,0) + +"DATA",811.8,180,100,4557,0) + +"DATA",811.8,180,100,4558,0) + +"DATA",811.8,180,100,4559,0) + +"DATA",811.8,180,100,4560,0) +REMINDER TERM +"DATA",811.8,180,100,4561,0) +811.5 +"DATA",811.8,180,100,4562,0) +MU TPA THERAPY +"DATA",811.8,180,100,4563,0) +737 +"DATA",811.8,180,100,4564,0) +2878031716 +"DATA",811.8,180,100,4565,0) +NO +"DATA",811.8,180,100,4566,0) + +"DATA",811.8,180,100,4567,0) + +"DATA",811.8,180,100,4577,0) + +"DATA",811.8,180,100,4578,0) + +"DATA",811.8,180,100,4579,0) + +"DATA",811.8,180,100,4585,0) + +"DATA",811.8,180,100,4586,0) + +"DATA",811.8,180,100,4587,0) + +"DATA",811.8,180,100,4588,0) +REMINDER TERM +"DATA",811.8,180,100,4589,0) +811.5 +"DATA",811.8,180,100,4590,0) +MU VTE-1 NUMER PROPHYLAXIS TRM +"DATA",811.8,180,100,4591,0) +743 +"DATA",811.8,180,100,4592,0) +1028304784 +"DATA",811.8,180,100,4593,0) +NO +"DATA",811.8,180,100,4594,0) + +"DATA",811.8,180,100,4595,0) + +"DATA",811.8,180,100,4609,0) + +"DATA",811.8,180,100,4610,0) + +"DATA",811.8,180,100,4611,0) + +"DATA",811.8,180,100,4621,0) + +"DATA",811.8,180,100,4622,0) + +"DATA",811.8,180,100,4623,0) + +"DATA",811.8,180,100,4624,0) +REMINDER TERM +"DATA",811.8,180,100,4625,0) +811.5 +"DATA",811.8,180,100,4626,0) +MU VTE-2 DENOM TX TRM +"DATA",811.8,180,100,4627,0) +738 +"DATA",811.8,180,100,4628,0) +1518450117 +"DATA",811.8,180,100,4629,0) +NO +"DATA",811.8,180,100,4630,0) + +"DATA",811.8,180,100,4631,0) + +"DATA",811.8,180,100,4650,0) + +"DATA",811.8,180,100,4651,0) + +"DATA",811.8,180,100,4652,0) + +"DATA",811.8,180,100,4665,0) + +"DATA",811.8,180,100,4666,0) + +"DATA",811.8,180,100,4667,0) + +"DATA",811.8,180,100,4668,0) +REMINDER TERM +"DATA",811.8,180,100,4669,0) +811.5 +"DATA",811.8,180,100,4670,0) +MU VTE-2 DENOM EXCLU HF TRM +"DATA",811.8,180,100,4671,0) +661 +"DATA",811.8,180,100,4672,0) +3477886431 +"DATA",811.8,180,100,4673,0) +NO +"DATA",811.8,180,100,4674,0) + +"DATA",811.8,180,100,4675,0) + +"DATA",811.8,180,100,4687,0) + +"DATA",811.8,180,100,4688,0) + +"DATA",811.8,180,100,4689,0) + +"DATA",811.8,180,100,4695,0) + +"DATA",811.8,180,100,4696,0) + +"DATA",811.8,180,100,4697,0) + +"DATA",811.8,180,100,4698,0) +REMINDER TERM +"DATA",811.8,180,100,4699,0) +811.5 +"DATA",811.8,180,100,4700,0) +MU ADMISSION ICU TRM +"DATA",811.8,180,100,4701,0) +658 +"DATA",811.8,180,100,4702,0) +1783261594 +"DATA",811.8,180,100,4703,0) +NO +"DATA",811.8,180,100,4704,0) + +"DATA",811.8,180,100,4705,0) + +"DATA",811.8,180,100,4715,0) + +"DATA",811.8,180,100,4716,0) + +"DATA",811.8,180,100,4717,0) + +"DATA",811.8,180,100,4721,0) + +"DATA",811.8,180,100,4722,0) + +"DATA",811.8,180,100,4723,0) + +"DATA",811.8,180,100,4724,0) +REMINDER TERM +"DATA",811.8,180,100,4725,0) +811.5 +"DATA",811.8,180,100,4726,0) +MU STK-1 NUMER TRM +"DATA",811.8,180,100,4727,0) +555 +"DATA",811.8,180,100,4728,0) +1605993274 +"DATA",811.8,180,100,4729,0) +NO +"DATA",811.8,180,100,4730,0) + +"DATA",811.8,180,100,4731,0) + +"DATA",811.8,180,100,4742,0) + +"DATA",811.8,180,100,4743,0) + +"DATA",811.8,180,100,4744,0) + +"DATA",811.8,180,100,4751,0) + +"DATA",811.8,180,100,4752,0) + +"DATA",811.8,180,100,4753,0) + +"DATA",811.8,180,100,4754,0) +REMINDER TERM +"DATA",811.8,180,100,4755,0) +811.5 +"DATA",811.8,180,100,4756,0) +MU STK-1 DENOM EXCLU TRM +"DATA",811.8,180,100,4757,0) +546 +"DATA",811.8,180,100,4758,0) +2941885128 +"DATA",811.8,180,100,4759,0) +NO +"DATA",811.8,180,100,4760,0) + +"DATA",811.8,180,100,4761,0) + +"DATA",811.8,180,100,4774,0) + +"DATA",811.8,180,100,4775,0) + +"DATA",811.8,180,100,4776,0) + +"DATA",811.8,180,100,4783,0) + +"DATA",811.8,180,100,4784,0) + +"DATA",811.8,180,100,4785,0) + +"DATA",811.8,180,100,4786,0) +REMINDER TERM +"DATA",811.8,180,100,4787,0) +811.5 +"DATA",811.8,180,100,4788,0) +MU VTE-1 DENOM EXCLU TX TRM +"DATA",811.8,180,100,4789,0) +527 +"DATA",811.8,180,100,4790,0) +189263354 +"DATA",811.8,180,100,4791,0) +NO +"DATA",811.8,180,100,4792,0) + +"DATA",811.8,180,100,4793,0) + +"DATA",811.8,180,100,4815,0) + +"DATA",811.8,180,100,4816,0) + +"DATA",811.8,180,100,4817,0) + +"DATA",811.8,180,100,4833,0) + +"DATA",811.8,180,100,4834,0) + +"DATA",811.8,180,100,4835,0) + +"DATA",811.8,180,100,4836,0) +REMINDER TERM +"DATA",811.8,180,100,4837,0) +811.5 +"DATA",811.8,180,100,4838,0) +MU VTE-1 DENOM EXCLU HF TRM +"DATA",811.8,180,100,4839,0) +525 +"DATA",811.8,180,100,4840,0) +676574987 +"DATA",811.8,180,100,4841,0) +NO +"DATA",811.8,180,100,4842,0) + +"DATA",811.8,180,100,4843,0) + +"DATA",811.8,180,100,4854,0) + +"DATA",811.8,180,100,4855,0) + +"DATA",811.8,180,100,4856,0) + +"DATA",811.8,180,100,4861,0) + +"DATA",811.8,180,100,4862,0) + +"DATA",811.8,180,100,4863,0) + +"DATA",811.8,180,100,4864,0) +REMINDER DEFINITION +"DATA",811.8,180,100,4865,0) +811.9 +"DATA",811.8,180,100,4866,0) +MU VTE-6 DENOM CR +"DATA",811.8,180,100,4867,0) +221 +"DATA",811.8,180,100,4868,0) +4128277235 +"DATA",811.8,180,100,4869,0) +NO +"DATA",811.8,180,100,4870,0) + +"DATA",811.8,180,100,4871,0) + +"DATA",811.8,180,100,4960,0) + +"DATA",811.8,180,100,4961,0) + +"DATA",811.8,180,100,4962,0) + +"DATA",811.8,180,100,4990,0) + +"DATA",811.8,180,100,4991,0) + +"DATA",811.8,180,100,4992,0) + +"DATA",811.8,180,100,4993,0) +REMINDER DEFINITION +"DATA",811.8,180,100,4994,0) +811.9 +"DATA",811.8,180,100,4995,0) +MU VTE-6 NUMER CR +"DATA",811.8,180,100,4996,0) +225 +"DATA",811.8,180,100,4997,0) +3788632228 +"DATA",811.8,180,100,4998,0) +NO +"DATA",811.8,180,100,4999,0) + +"DATA",811.8,180,100,5000,0) + +"DATA",811.8,180,100,5103,0) + +"DATA",811.8,180,100,5104,0) + +"DATA",811.8,180,100,5105,0) + +"DATA",811.8,180,100,5139,0) + +"DATA",811.8,180,100,5140,0) + +"DATA",811.8,180,100,5141,0) + +"DATA",811.8,180,100,5142,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5143,0) +811.9 +"DATA",811.8,180,100,5144,0) +MU VTE-5 DENOM CR +"DATA",811.8,180,100,5145,0) +223 +"DATA",811.8,180,100,5146,0) +1077067850 +"DATA",811.8,180,100,5147,0) +NO +"DATA",811.8,180,100,5148,0) + +"DATA",811.8,180,100,5149,0) + +"DATA",811.8,180,100,5234,0) + +"DATA",811.8,180,100,5235,0) + +"DATA",811.8,180,100,5236,0) + +"DATA",811.8,180,100,5262,0) + +"DATA",811.8,180,100,5263,0) + +"DATA",811.8,180,100,5264,0) + +"DATA",811.8,180,100,5265,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5266,0) +811.9 +"DATA",811.8,180,100,5267,0) +MU VTE-5 NUMER CR +"DATA",811.8,180,100,5268,0) +224 +"DATA",811.8,180,100,5269,0) +4223723788 +"DATA",811.8,180,100,5270,0) +NO +"DATA",811.8,180,100,5271,0) + +"DATA",811.8,180,100,5272,0) + +"DATA",811.8,180,100,5358,0) + +"DATA",811.8,180,100,5359,0) + +"DATA",811.8,180,100,5360,0) + +"DATA",811.8,180,100,5386,0) + +"DATA",811.8,180,100,5387,0) + +"DATA",811.8,180,100,5388,0) + +"DATA",811.8,180,100,5389,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5390,0) +811.9 +"DATA",811.8,180,100,5391,0) +MU VTE-4 DENOM CR +"DATA",811.8,180,100,5392,0) +226 +"DATA",811.8,180,100,5393,0) +1783933120 +"DATA",811.8,180,100,5394,0) +NO +"DATA",811.8,180,100,5395,0) + +"DATA",811.8,180,100,5396,0) + +"DATA",811.8,180,100,5471,0) + +"DATA",811.8,180,100,5472,0) + +"DATA",811.8,180,100,5473,0) + +"DATA",811.8,180,100,5494,0) + +"DATA",811.8,180,100,5495,0) + +"DATA",811.8,180,100,5496,0) + +"DATA",811.8,180,100,5497,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5498,0) +811.9 +"DATA",811.8,180,100,5499,0) +MU VTE-4 NUMER CR +"DATA",811.8,180,100,5500,0) +227 +"DATA",811.8,180,100,5501,0) +1778718948 +"DATA",811.8,180,100,5502,0) +NO +"DATA",811.8,180,100,5503,0) + +"DATA",811.8,180,100,5504,0) + +"DATA",811.8,180,100,5582,0) + +"DATA",811.8,180,100,5583,0) + +"DATA",811.8,180,100,5584,0) + +"DATA",811.8,180,100,5606,0) + +"DATA",811.8,180,100,5607,0) + +"DATA",811.8,180,100,5608,0) + +"DATA",811.8,180,100,5609,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5610,0) +811.9 +"DATA",811.8,180,100,5611,0) +MU VTE-3 DENOM CR +"DATA",811.8,180,100,5612,0) +245 +"DATA",811.8,180,100,5613,0) +3747727026 +"DATA",811.8,180,100,5614,0) +NO +"DATA",811.8,180,100,5615,0) + +"DATA",811.8,180,100,5616,0) + +"DATA",811.8,180,100,5684,0) + +"DATA",811.8,180,100,5685,0) + +"DATA",811.8,180,100,5686,0) + +"DATA",811.8,180,100,5704,0) + +"DATA",811.8,180,100,5705,0) + +"DATA",811.8,180,100,5706,0) + +"DATA",811.8,180,100,5707,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5708,0) +811.9 +"DATA",811.8,180,100,5709,0) +MU VTE-3 NUMER CR +"DATA",811.8,180,100,5710,0) +246 +"DATA",811.8,180,100,5711,0) +2610777584 +"DATA",811.8,180,100,5712,0) +NO +"DATA",811.8,180,100,5713,0) + +"DATA",811.8,180,100,5714,0) +=2 TRM +"DATA",811.8,180,100,5775,0) +811.902;+260,+246,;24~0 +"DATA",811.8,180,100,5776,0) +811.902;+260,+246,;25~0 +"DATA",811.8,180,100,5777,0) +811.925;+261,+246,;.01~1 +"DATA",811.8,180,100,5778,0) +811.925;+261,+246,;3~DIFF_DATE(1,12)<121 +"DATA",811.8,180,100,5779,0) +811.925;+261,+246,;10~FN(1)<121 +"DATA",811.8,180,100,5780,0) +811.925;+261,+246,;41~0 +"DATA",811.8,180,100,5781,0) +811.925;+261,+246,;42~0 +"DATA",811.8,180,100,5782,0) +811.925;+262,+246,;.01~2 +"DATA",811.8,180,100,5783,0) +811.925;+262,+246,;3~DUR(8)>4 +"DATA",811.8,180,100,5784,0) +811.925;+262,+246,;10~FN(1)>4 +"DATA",811.8,180,100,5785,0) +811.925;+262,+246,;41~0 +"DATA",811.8,180,100,5786,0) +811.925;+262,+246,;42~0 +"DATA",811.8,180,100,5787,0) +811.925;+263,+246,;.01~3 +"DATA",811.8,180,100,5788,0) +811.925;+263,+246,;3~DUR(13)>4 +"DATA",811.8,180,100,5789,0) +811.925;+263,+246,;10~FN(1)>4 +"DATA",811.8,180,100,5790,0) +811.925;+263,+246,;41~0 +"DATA",811.8,180,100,5791,0) +811.925;+263,+246,;42~0 +"DATA",811.8,180,100,5792,0) +811.9255;+264,+261,+246,;.01~1 +"DATA",811.8,180,100,5793,0) +811.9255;+264,+261,+246,;.02~DIFF_DATE +"DATA",811.8,180,100,5794,0) +811.9255;+265,+262,+246,;.01~1 +"DATA",811.8,180,100,5795,0) +811.9255;+265,+262,+246,;.02~DUR +"DATA",811.8,180,100,5796,0) +811.9255;+266,+263,+246,;.01~1 +"DATA",811.8,180,100,5797,0) +811.9255;+266,+263,+246,;.02~DUR +"DATA",811.8,180,100,5798,0) +811.9256;+267,+264,+261,+246,;.01~1 +"DATA",811.8,180,100,5799,0) +811.9256;+268,+265,+262,+246,;.01~8 +"DATA",811.8,180,100,5800,0) +811.9256;+269,+266,+263,+246,;.01~13 +"DATA",811.8,180,100,5801,0) +811.9256;+270,+264,+261,+246,;.01~12 +"DATA",811.8,180,100,5802,0) +811.97;+271,+246,;.01~99Y +"DATA",811.8,180,100,5803,0) +811.97;+271,+246,;1~18 +"DATA",811.8,180,100,5804,0) +811.97;+271,+246,;5~0 +"DATA",811.8,180,100,5805,0) +811.97;+271,+246,;6~0 +"DATA",811.8,180,100,5806,0) +]]> +"DATA",811.8,180,100,5807,0) + +"DATA",811.8,180,100,5808,0) + +"DATA",811.8,180,100,5809,0) + +"DATA",811.8,180,100,5836,0) + +"DATA",811.8,180,100,5837,0) + +"DATA",811.8,180,100,5838,0) + +"DATA",811.8,180,100,5839,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5840,0) +811.9 +"DATA",811.8,180,100,5841,0) +MU VTE-2 NUMER CR +"DATA",811.8,180,100,5842,0) +244 +"DATA",811.8,180,100,5843,0) +308646270 +"DATA",811.8,180,100,5844,0) +NO +"DATA",811.8,180,100,5845,0) + +"DATA",811.8,180,100,5846,0) +1 +"DATA",811.8,180,100,5902,0) +811.925;+255,+244,;10~FN(1)>1 +"DATA",811.8,180,100,5903,0) +811.925;+255,+244,;41~0 +"DATA",811.8,180,100,5904,0) +811.925;+255,+244,;42~0 +"DATA",811.8,180,100,5905,0) +811.925;+256,+244,;.01~3 +"DATA",811.8,180,100,5906,0) +811.925;+256,+244,;3~DIFF_DATE(12,3)<1 +"DATA",811.8,180,100,5907,0) +811.925;+256,+244,;10~FN(1)<1 +"DATA",811.8,180,100,5908,0) +811.925;+256,+244,;41~0 +"DATA",811.8,180,100,5909,0) +811.925;+256,+244,;42~0 +"DATA",811.8,180,100,5910,0) +811.925;+257,+244,;.01~4 +"DATA",811.8,180,100,5911,0) +811.925;+257,+244,;3~MAX_DATE(5,7,4,1)MAX_DATE(3) +"DATA",811.8,180,100,5917,0) +811.925;+258,+244,;10~FN(1)>FN(2) +"DATA",811.8,180,100,5918,0) +811.925;+258,+244,;41~0 +"DATA",811.8,180,100,5919,0) +811.925;+258,+244,;42~0 +"DATA",811.8,180,100,5920,0) +811.925;+259,+244,;.01~6 +"DATA",811.8,180,100,5921,0) +811.925;+259,+244,;3~VALUE(5,1,"START DATE") +"DATA",811.8,180,100,5970,0) + +"DATA",811.8,180,100,5971,0) + +"DATA",811.8,180,100,5972,0) + +"DATA",811.8,180,100,6021,0) + +"DATA",811.8,180,100,6022,0) + +"DATA",811.8,180,100,6023,0) + +"DATA",811.8,180,100,6024,0) +REMINDER DEFINITION +"DATA",811.8,180,100,6025,0) +811.9 +"DATA",811.8,180,100,6026,0) +MU VTE-2 DENOM CR +"DATA",811.8,180,100,6027,0) +210 +"DATA",811.8,180,100,6028,0) +2276423367 +"DATA",811.8,180,100,6029,0) +NO +"DATA",811.8,180,100,6030,0) + +"DATA",811.8,180,100,6031,0) +1 +"DATA",811.8,180,100,6084,0) +811.925;+220,+210,;10~FN(1)>1 +"DATA",811.8,180,100,6085,0) +811.925;+220,+210,;41~0 +"DATA",811.8,180,100,6086,0) +811.925;+220,+210,;42~0 +"DATA",811.8,180,100,6087,0) +811.925;+221,+210,;.01~3 +"DATA",811.8,180,100,6088,0) +811.925;+221,+210,;3~DIFF_DATE(12,3)<1 +"DATA",811.8,180,100,6089,0) +811.925;+221,+210,;10~FN(1)<1 +"DATA",811.8,180,100,6090,0) +811.925;+221,+210,;41~0 +"DATA",811.8,180,100,6091,0) +811.925;+221,+210,;42~0 +"DATA",811.8,180,100,6092,0) +811.925;+222,+210,;.01~4 +"DATA",811.8,180,100,6093,0) +811.925;+222,+210,;3~MAX_DATE(5,7,4,1)MAX_DATE(3) +"DATA",811.8,180,100,6099,0) +811.925;+223,+210,;10~FN(1)>FN(2) +"DATA",811.8,180,100,6100,0) +811.925;+223,+210,;41~0 +"DATA",811.8,180,100,6101,0) +811.925;+223,+210,;42~0 +"DATA",811.8,180,100,6102,0) +811.925;+224,+210,;.01~6 +"DATA",811.8,180,100,6103,0) +811.925;+224,+210,;3~VALUE(5,1,"START DATE") +"DATA",811.8,180,100,6152,0) + +"DATA",811.8,180,100,6153,0) + +"DATA",811.8,180,100,6154,0) + +"DATA",811.8,180,100,6202,0) + +"DATA",811.8,180,100,6203,0) + +"DATA",811.8,180,100,6204,0) + +"DATA",811.8,180,100,6205,0) +REMINDER DEFINITION +"DATA",811.8,180,100,6206,0) +811.9 +"DATA",811.8,180,100,6207,0) +MU STK-1 NUMER CR +"DATA",811.8,180,100,6208,0) +204 +"DATA",811.8,180,100,6209,0) +2839878557 +"DATA",811.8,180,100,6210,0) +NO +"DATA",811.8,180,100,6211,0) + +"DATA",811.8,180,100,6212,0) +1 +"DATA",811.8,180,100,6288,0) +811.925;+228,+204,;10~FN(1)>1 +"DATA",811.8,180,100,6289,0) +811.925;+228,+204,;13~18 +"DATA",811.8,180,100,6290,0) +811.925;+228,+204,;14~99 +"DATA",811.8,180,100,6291,0) +811.925;+228,+204,;41~0 +"DATA",811.8,180,100,6292,0) +811.925;+228,+204,;42~0 +"DATA",811.8,180,100,6293,0) +811.9255;+229,+227,+204,;.01~1 +"DATA",811.8,180,100,6294,0) +811.9255;+229,+227,+204,;.02~DIFF_DATE +"DATA",811.8,180,100,6295,0) +811.9255;+230,+228,+204,;.01~1 +"DATA",811.8,180,100,6296,0) +811.9255;+230,+228,+204,;.02~DIFF_DATE +"DATA",811.8,180,100,6297,0) +811.9256;+231,+229,+227,+204,;.01~3 +"DATA",811.8,180,100,6298,0) +811.9256;+232,+230,+228,+204,;.01~3 +"DATA",811.8,180,100,6299,0) +811.9256;+233,+229,+227,+204,;.01~4 +"DATA",811.8,180,100,6300,0) +811.9256;+234,+230,+228,+204,;.01~4 +"DATA",811.8,180,100,6301,0) +811.97;+235,+204,;.01~99Y +"DATA",811.8,180,100,6302,0) +811.97;+235,+204,;1~18 +"DATA",811.8,180,100,6303,0) +811.97;+235,+204,;2~99 +"DATA",811.8,180,100,6304,0) +811.97;+235,+204,;5~0 +"DATA",811.8,180,100,6305,0) +811.97;+235,+204,;6~0 +"DATA",811.8,180,100,6306,0) +]]> +"DATA",811.8,180,100,6307,0) + +"DATA",811.8,180,100,6308,0) + +"DATA",811.8,180,100,6309,0) + +"DATA",811.8,180,100,6342,0) + +"DATA",811.8,180,100,6343,0) + +"DATA",811.8,180,100,6344,0) + +"DATA",811.8,180,100,6345,0) +REMINDER DEFINITION +"DATA",811.8,180,100,6346,0) +811.9 +"DATA",811.8,180,100,6347,0) +MU VTE-1 DENOM CR +"DATA",811.8,180,100,6348,0) +191 +"DATA",811.8,180,100,6349,0) +171958310 +"DATA",811.8,180,100,6350,0) +NO +"DATA",811.8,180,100,6351,0) + +"DATA",811.8,180,100,6352,0) +1 +"DATA",811.8,180,100,6398,0) +811.925;+199,+191,;10~FN(1)>1 +"DATA",811.8,180,100,6399,0) +811.925;+199,+191,;41~0 +"DATA",811.8,180,100,6400,0) +811.925;+199,+191,;42~0 +"DATA",811.8,180,100,6401,0) +811.925;+200,+191,;.01~3 +"DATA",811.8,180,100,6402,0) +811.925;+200,+191,;3~DIFF_DATE(11,3)>0 +"DATA",811.8,180,100,6403,0) +811.925;+200,+191,;10~FN(1)>0 +"DATA",811.8,180,100,6404,0) +811.925;+200,+191,;41~0 +"DATA",811.8,180,100,6405,0) +811.925;+200,+191,;42~0 +"DATA",811.8,180,100,6406,0) +811.9255;+201,+198,+191,;.01~1 +"DATA",811.8,180,100,6407,0) +811.9255;+201,+198,+191,;.02~DIFF_DATE +"DATA",811.8,180,100,6408,0) +811.9255;+202,+199,+191,;.01~1 +"DATA",811.8,180,100,6409,0) +811.9255;+202,+199,+191,;.02~DIFF_DATE +"DATA",811.8,180,100,6410,0) +811.9255;+203,+200,+191,;.01~1 +"DATA",811.8,180,100,6411,0) +811.9255;+203,+200,+191,;.02~DIFF_DATE +"DATA",811.8,180,100,6412,0) +811.9256;+204,+201,+198,+191,;.01~2 +"DATA",811.8,180,100,6413,0) +811.9256;+205,+202,+199,+191,;.01~2 +"DATA",811.8,180,100,6414,0) +811.9256;+206,+203,+200,+191,;.01~11 +"DATA",811.8,180,100,6415,0) +811.9256;+207,+201,+198,+191,;.01~3 +"DATA",811.8,180,100,6416,0) +811.9256;+208,+202,+199,+191,;.01~3 +"DATA",811.8,180,100,6417,0) +811.9256;+209,+203,+200,+191,;.01~3 +"DATA",811.8,180,100,6418,0) +811.97;+210,+191,;.01~99Y +"DATA",811.8,180,100,6419,0) +811.97;+210,+191,;1~18 +"DATA",811.8,180,100,6420,0) +811.97;+210,+191,;5~0 +"DATA",811.8,180,100,6421,0) +811.97;+210,+191,;6~0 +"DATA",811.8,180,100,6422,0) +]]> +"DATA",811.8,180,100,6423,0) + +"DATA",811.8,180,100,6424,0) + +"DATA",811.8,180,100,6425,0) + +"DATA",811.8,180,100,6446,0) + +"DATA",811.8,180,100,6447,0) + +"DATA",811.8,180,100,6448,0) + +"DATA",811.8,180,100,6449,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6450,0) +810.4 +"DATA",811.8,180,100,6451,0) +MU VTE-6 DENOM RR +"DATA",811.8,180,100,6452,0) +113 +"DATA",811.8,180,100,6453,0) +818724216 +"DATA",811.8,180,100,6454,0) +NO +"DATA",811.8,180,100,6455,0) + +"DATA",811.8,180,100,6456,0) + +"DATA",811.8,180,100,6465,0) + +"DATA",811.8,180,100,6466,0) + +"DATA",811.8,180,100,6467,0) + +"DATA",811.8,180,100,6470,0) + +"DATA",811.8,180,100,6471,0) + +"DATA",811.8,180,100,6472,0) + +"DATA",811.8,180,100,6473,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6474,0) +810.4 +"DATA",811.8,180,100,6475,0) +MU VTE-6 DENOM RS +"DATA",811.8,180,100,6476,0) +162 +"DATA",811.8,180,100,6477,0) +2514996428 +"DATA",811.8,180,100,6478,0) +YES +"DATA",811.8,180,100,6479,0) + +"DATA",811.8,180,100,6480,0) + +"DATA",811.8,180,100,6491,0) + +"DATA",811.8,180,100,6492,0) + +"DATA",811.8,180,100,6493,0) + +"DATA",811.8,180,100,6497,0) + +"DATA",811.8,180,100,6498,0) + +"DATA",811.8,180,100,6499,0) + +"DATA",811.8,180,100,6500,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6501,0) +810.4 +"DATA",811.8,180,100,6502,0) +MU VTE-6 NUMER RR +"DATA",811.8,180,100,6503,0) +112 +"DATA",811.8,180,100,6504,0) +4050644097 +"DATA",811.8,180,100,6505,0) +NO +"DATA",811.8,180,100,6506,0) + +"DATA",811.8,180,100,6507,0) + +"DATA",811.8,180,100,6516,0) + +"DATA",811.8,180,100,6517,0) + +"DATA",811.8,180,100,6518,0) + +"DATA",811.8,180,100,6521,0) + +"DATA",811.8,180,100,6522,0) + +"DATA",811.8,180,100,6523,0) + +"DATA",811.8,180,100,6524,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6525,0) +810.4 +"DATA",811.8,180,100,6526,0) +MU VTE-6 NUMER RS +"DATA",811.8,180,100,6527,0) +158 +"DATA",811.8,180,100,6528,0) +3669180762 +"DATA",811.8,180,100,6529,0) +YES +"DATA",811.8,180,100,6530,0) + +"DATA",811.8,180,100,6531,0) + +"DATA",811.8,180,100,6542,0) + +"DATA",811.8,180,100,6543,0) + +"DATA",811.8,180,100,6544,0) + +"DATA",811.8,180,100,6548,0) + +"DATA",811.8,180,100,6549,0) + +"DATA",811.8,180,100,6550,0) + +"DATA",811.8,180,100,6551,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6552,0) +810.4 +"DATA",811.8,180,100,6553,0) +MU VTE-5 DENOM RR +"DATA",811.8,180,100,6554,0) +111 +"DATA",811.8,180,100,6555,0) +2205703405 +"DATA",811.8,180,100,6556,0) +NO +"DATA",811.8,180,100,6557,0) + +"DATA",811.8,180,100,6558,0) + +"DATA",811.8,180,100,6567,0) + +"DATA",811.8,180,100,6568,0) + +"DATA",811.8,180,100,6569,0) + +"DATA",811.8,180,100,6572,0) + +"DATA",811.8,180,100,6573,0) + +"DATA",811.8,180,100,6574,0) + +"DATA",811.8,180,100,6575,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6576,0) +810.4 +"DATA",811.8,180,100,6577,0) +MU VTE-5 DENOM RS +"DATA",811.8,180,100,6578,0) +156 +"DATA",811.8,180,100,6579,0) +409976344 +"DATA",811.8,180,100,6580,0) +YES +"DATA",811.8,180,100,6581,0) + +"DATA",811.8,180,100,6582,0) + +"DATA",811.8,180,100,6593,0) + +"DATA",811.8,180,100,6594,0) + +"DATA",811.8,180,100,6595,0) + +"DATA",811.8,180,100,6599,0) + +"DATA",811.8,180,100,6600,0) + +"DATA",811.8,180,100,6601,0) + +"DATA",811.8,180,100,6602,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6603,0) +810.4 +"DATA",811.8,180,100,6604,0) +MU VTE-5 NUMER RR +"DATA",811.8,180,100,6605,0) +110 +"DATA",811.8,180,100,6606,0) +1121651988 +"DATA",811.8,180,100,6607,0) +NO +"DATA",811.8,180,100,6608,0) + +"DATA",811.8,180,100,6609,0) + +"DATA",811.8,180,100,6618,0) + +"DATA",811.8,180,100,6619,0) + +"DATA",811.8,180,100,6620,0) + +"DATA",811.8,180,100,6623,0) + +"DATA",811.8,180,100,6624,0) + +"DATA",811.8,180,100,6625,0) + +"DATA",811.8,180,100,6626,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6627,0) +810.4 +"DATA",811.8,180,100,6628,0) +MU VTE-5 NUMER RS +"DATA",811.8,180,100,6629,0) +147 +"DATA",811.8,180,100,6630,0) +1463497614 +"DATA",811.8,180,100,6631,0) +YES +"DATA",811.8,180,100,6632,0) + +"DATA",811.8,180,100,6633,0) + +"DATA",811.8,180,100,6644,0) + +"DATA",811.8,180,100,6645,0) + +"DATA",811.8,180,100,6646,0) + +"DATA",811.8,180,100,6650,0) + +"DATA",811.8,180,100,6651,0) + +"DATA",811.8,180,100,6652,0) + +"DATA",811.8,180,100,6653,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6654,0) +810.4 +"DATA",811.8,180,100,6655,0) +MU VTE-4 DENOM RR +"DATA",811.8,180,100,6656,0) +109 +"DATA",811.8,180,100,6657,0) +1530593697 +"DATA",811.8,180,100,6658,0) +NO +"DATA",811.8,180,100,6659,0) + +"DATA",811.8,180,100,6660,0) + +"DATA",811.8,180,100,6669,0) + +"DATA",811.8,180,100,6670,0) + +"DATA",811.8,180,100,6671,0) + +"DATA",811.8,180,100,6674,0) + +"DATA",811.8,180,100,6675,0) + +"DATA",811.8,180,100,6676,0) + +"DATA",811.8,180,100,6677,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6678,0) +810.4 +"DATA",811.8,180,100,6679,0) +MU VTE-4 DENOM RS +"DATA",811.8,180,100,6680,0) +146 +"DATA",811.8,180,100,6681,0) +1662488660 +"DATA",811.8,180,100,6682,0) +YES +"DATA",811.8,180,100,6683,0) + +"DATA",811.8,180,100,6684,0) + +"DATA",811.8,180,100,6695,0) + +"DATA",811.8,180,100,6696,0) + +"DATA",811.8,180,100,6697,0) + +"DATA",811.8,180,100,6701,0) + +"DATA",811.8,180,100,6702,0) + +"DATA",811.8,180,100,6703,0) + +"DATA",811.8,180,100,6704,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6705,0) +810.4 +"DATA",811.8,180,100,6706,0) +MU VTE-4 NUMER RR +"DATA",811.8,180,100,6707,0) +108 +"DATA",811.8,180,100,6708,0) +2593673304 +"DATA",811.8,180,100,6709,0) +NO +"DATA",811.8,180,100,6710,0) + +"DATA",811.8,180,100,6711,0) + +"DATA",811.8,180,100,6720,0) + +"DATA",811.8,180,100,6721,0) + +"DATA",811.8,180,100,6722,0) + +"DATA",811.8,180,100,6725,0) + +"DATA",811.8,180,100,6726,0) + +"DATA",811.8,180,100,6727,0) + +"DATA",811.8,180,100,6728,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6729,0) +810.4 +"DATA",811.8,180,100,6730,0) +MU VTE-4 NUMER RS +"DATA",811.8,180,100,6731,0) +145 +"DATA",811.8,180,100,6732,0) +742596034 +"DATA",811.8,180,100,6733,0) +YES +"DATA",811.8,180,100,6734,0) + +"DATA",811.8,180,100,6735,0) + +"DATA",811.8,180,100,6746,0) + +"DATA",811.8,180,100,6747,0) + +"DATA",811.8,180,100,6748,0) + +"DATA",811.8,180,100,6752,0) + +"DATA",811.8,180,100,6753,0) + +"DATA",811.8,180,100,6754,0) + +"DATA",811.8,180,100,6755,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6756,0) +810.4 +"DATA",811.8,180,100,6757,0) +MU VTE-3 DENOM RR +"DATA",811.8,180,100,6758,0) +106 +"DATA",811.8,180,100,6759,0) +1063295366 +"DATA",811.8,180,100,6760,0) +NO +"DATA",811.8,180,100,6761,0) + +"DATA",811.8,180,100,6762,0) + +"DATA",811.8,180,100,6771,0) + +"DATA",811.8,180,100,6772,0) + +"DATA",811.8,180,100,6773,0) + +"DATA",811.8,180,100,6776,0) + +"DATA",811.8,180,100,6777,0) + +"DATA",811.8,180,100,6778,0) + +"DATA",811.8,180,100,6779,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6780,0) +810.4 +"DATA",811.8,180,100,6781,0) +MU VTE-3 DENOM RS +"DATA",811.8,180,100,6782,0) +144 +"DATA",811.8,180,100,6783,0) +3624820209 +"DATA",811.8,180,100,6784,0) +YES +"DATA",811.8,180,100,6785,0) + +"DATA",811.8,180,100,6786,0) + +"DATA",811.8,180,100,6797,0) + +"DATA",811.8,180,100,6798,0) + +"DATA",811.8,180,100,6799,0) + +"DATA",811.8,180,100,6803,0) + +"DATA",811.8,180,100,6804,0) + +"DATA",811.8,180,100,6805,0) + +"DATA",811.8,180,100,6806,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6807,0) +810.4 +"DATA",811.8,180,100,6808,0) +MU VTE-3 NUMER RR +"DATA",811.8,180,100,6809,0) +107 +"DATA",811.8,180,100,6810,0) +4274243711 +"DATA",811.8,180,100,6811,0) +NO +"DATA",811.8,180,100,6812,0) + +"DATA",811.8,180,100,6813,0) + +"DATA",811.8,180,100,6822,0) + +"DATA",811.8,180,100,6823,0) + +"DATA",811.8,180,100,6824,0) + +"DATA",811.8,180,100,6827,0) + +"DATA",811.8,180,100,6828,0) + +"DATA",811.8,180,100,6829,0) + +"DATA",811.8,180,100,6830,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6831,0) +810.4 +"DATA",811.8,180,100,6832,0) +MU VTE-3 NUMER RS +"DATA",811.8,180,100,6833,0) +129 +"DATA",811.8,180,100,6834,0) +2539311207 +"DATA",811.8,180,100,6835,0) +YES +"DATA",811.8,180,100,6836,0) + +"DATA",811.8,180,100,6837,0) + +"DATA",811.8,180,100,6848,0) + +"DATA",811.8,180,100,6849,0) + +"DATA",811.8,180,100,6850,0) + +"DATA",811.8,180,100,6854,0) + +"DATA",811.8,180,100,6855,0) + +"DATA",811.8,180,100,6856,0) + +"DATA",811.8,180,100,6857,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6858,0) +810.4 +"DATA",811.8,180,100,6859,0) +MU VTE-2 NUMER RR +"DATA",811.8,180,100,6860,0) +105 +"DATA",811.8,180,100,6861,0) +645961011 +"DATA",811.8,180,100,6862,0) +NO +"DATA",811.8,180,100,6863,0) + +"DATA",811.8,180,100,6864,0) + +"DATA",811.8,180,100,6873,0) + +"DATA",811.8,180,100,6874,0) + +"DATA",811.8,180,100,6875,0) + +"DATA",811.8,180,100,6878,0) + +"DATA",811.8,180,100,6879,0) + +"DATA",811.8,180,100,6880,0) + +"DATA",811.8,180,100,6881,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6882,0) +810.4 +"DATA",811.8,180,100,6883,0) +MU VTE-2 NUMER RS +"DATA",811.8,180,100,6884,0) +128 +"DATA",811.8,180,100,6885,0) +3961716267 +"DATA",811.8,180,100,6886,0) +YES +"DATA",811.8,180,100,6887,0) + +"DATA",811.8,180,100,6888,0) + +"DATA",811.8,180,100,6899,0) + +"DATA",811.8,180,100,6900,0) + +"DATA",811.8,180,100,6901,0) + +"DATA",811.8,180,100,6905,0) + +"DATA",811.8,180,100,6906,0) + +"DATA",811.8,180,100,6907,0) + +"DATA",811.8,180,100,6908,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6909,0) +810.4 +"DATA",811.8,180,100,6910,0) +MU VTE-2 DENOM RR +"DATA",811.8,180,100,6911,0) +70 +"DATA",811.8,180,100,6912,0) +3877881034 +"DATA",811.8,180,100,6913,0) +NO +"DATA",811.8,180,100,6914,0) + +"DATA",811.8,180,100,6915,0) + +"DATA",811.8,180,100,6924,0) + +"DATA",811.8,180,100,6925,0) + +"DATA",811.8,180,100,6926,0) + +"DATA",811.8,180,100,6929,0) + +"DATA",811.8,180,100,6930,0) + +"DATA",811.8,180,100,6931,0) + +"DATA",811.8,180,100,6932,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6933,0) +810.4 +"DATA",811.8,180,100,6934,0) +MU VTE-2 DENOM RS +"DATA",811.8,180,100,6935,0) +71 +"DATA",811.8,180,100,6936,0) +2742449085 +"DATA",811.8,180,100,6937,0) +YES +"DATA",811.8,180,100,6938,0) + +"DATA",811.8,180,100,6939,0) + +"DATA",811.8,180,100,6950,0) + +"DATA",811.8,180,100,6951,0) + +"DATA",811.8,180,100,6952,0) + +"DATA",811.8,180,100,6956,0) + +"DATA",811.8,180,100,6957,0) + +"DATA",811.8,180,100,6958,0) + +"DATA",811.8,180,100,6959,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6960,0) +810.4 +"DATA",811.8,180,100,6961,0) +MU STK-1 NUMER RR +"DATA",811.8,180,100,6962,0) +63 +"DATA",811.8,180,100,6963,0) +384274410 +"DATA",811.8,180,100,6964,0) +NO +"DATA",811.8,180,100,6965,0) + +"DATA",811.8,180,100,6966,0) + +"DATA",811.8,180,100,6975,0) + +"DATA",811.8,180,100,6976,0) + +"DATA",811.8,180,100,6977,0) + +"DATA",811.8,180,100,6980,0) + +"DATA",811.8,180,100,6981,0) + +"DATA",811.8,180,100,6982,0) + +"DATA",811.8,180,100,6983,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6984,0) +810.4 +"DATA",811.8,180,100,6985,0) +MU VTE-1 NUMER RS +"DATA",811.8,180,100,6986,0) +69 +"DATA",811.8,180,100,6987,0) +4234423142 +"DATA",811.8,180,100,6988,0) +YES +"DATA",811.8,180,100,6989,0) + +"DATA",811.8,180,100,6990,0) + +"DATA",811.8,180,100,7001,0) + +"DATA",811.8,180,100,7002,0) + +"DATA",811.8,180,100,7003,0) + +"DATA",811.8,180,100,7007,0) + +"DATA",811.8,180,100,7008,0) + +"DATA",811.8,180,100,7009,0) + +"DATA",811.8,180,100,7010,0) +REMINDER LIST RULE +"DATA",811.8,180,100,7011,0) +810.4 +"DATA",811.8,180,100,7012,0) +MU VTE-1 DENOM RR +"DATA",811.8,180,100,7013,0) +66 +"DATA",811.8,180,100,7014,0) +1419191647 +"DATA",811.8,180,100,7015,0) +NO +"DATA",811.8,180,100,7016,0) + +"DATA",811.8,180,100,7017,0) + +"DATA",811.8,180,100,7026,0) + +"DATA",811.8,180,100,7027,0) + +"DATA",811.8,180,100,7028,0) + +"DATA",811.8,180,100,7031,0) + +"DATA",811.8,180,100,7032,0) + +"DATA",811.8,180,100,7033,0) + +"DATA",811.8,180,100,7034,0) +REMINDER LIST RULE +"DATA",811.8,180,100,7035,0) +810.4 +"DATA",811.8,180,100,7036,0) +MU VTE-1 DENOM RS +"DATA",811.8,180,100,7037,0) +67 +"DATA",811.8,180,100,7038,0) +788398441 +"DATA",811.8,180,100,7039,0) +YES +"DATA",811.8,180,100,7040,0) + +"DATA",811.8,180,100,7041,0) + +"DATA",811.8,180,100,7052,0) + +"DATA",811.8,180,100,7053,0) + +"DATA",811.8,180,100,7054,0) + +"DATA",811.8,180,100,7058,0) + +"DATA",811.8,180,100,7059,0) + +"DATA",811.8,180,100,7060,0) + +"DATA",811.8,180,100,7061,0) +119 +"DATA",811.8,180,100,7062,0) + +"DATA",811.8,180,100,7063,0) +47 +"DATA",811.8,180,100,7064,0) +133 +"DATA",811.8,180,100,7065,0) +52 +"DATA",811.8,180,100,7066,0) + +"DATA",811.8,180,100,7067,0) + +"DATA",811.8,180,100,7068,0) +146 +"DATA",811.8,180,100,7069,0) +146 +"DATA",811.8,180,100,7070,0) +137 +"DATA",811.8,180,100,7071,0) + +"DATA",811.8,180,100,7072,0) + +"DATA",811.8,180,100,7073,0) +159 +"DATA",811.8,180,100,7074,0) +159 +"DATA",811.8,180,100,7075,0) +150 +"DATA",811.8,180,100,7076,0) + +"DATA",811.8,180,100,7077,0) + +"DATA",811.8,180,100,7078,0) +172 +"DATA",811.8,180,100,7079,0) +172 +"DATA",811.8,180,100,7080,0) +163 +"DATA",811.8,180,100,7081,0) + +"DATA",811.8,180,100,7082,0) + +"DATA",811.8,180,100,7083,0) +185 +"DATA",811.8,180,100,7084,0) +185 +"DATA",811.8,180,100,7085,0) +176 +"DATA",811.8,180,100,7086,0) + +"DATA",811.8,180,100,7087,0) + +"DATA",811.8,180,100,7088,0) +198 +"DATA",811.8,180,100,7089,0) +198 +"DATA",811.8,180,100,7090,0) +189 +"DATA",811.8,180,100,7091,0) + +"DATA",811.8,180,100,7092,0) + +"DATA",811.8,180,100,7093,0) +211 +"DATA",811.8,180,100,7094,0) +211 +"DATA",811.8,180,100,7095,0) +202 +"DATA",811.8,180,100,7096,0) + +"DATA",811.8,180,100,7097,0) + +"DATA",811.8,180,100,7098,0) +224 +"DATA",811.8,180,100,7099,0) +224 +"DATA",811.8,180,100,7100,0) +215 +"DATA",811.8,180,100,7101,0) + +"DATA",811.8,180,100,7102,0) + +"DATA",811.8,180,100,7103,0) +238 +"DATA",811.8,180,100,7104,0) +237 +"DATA",811.8,180,100,7105,0) +228 +"DATA",811.8,180,100,7106,0) + +"DATA",811.8,180,100,7107,0) + +"DATA",811.8,180,100,7108,0) +255 +"DATA",811.8,180,100,7109,0) +251 +"DATA",811.8,180,100,7110,0) +242 +"DATA",811.8,180,100,7111,0) + +"DATA",811.8,180,100,7112,0) + +"DATA",811.8,180,100,7113,0) +272 +"DATA",811.8,180,100,7114,0) +268 +"DATA",811.8,180,100,7115,0) +259 +"DATA",811.8,180,100,7116,0) + +"DATA",811.8,180,100,7117,0) + +"DATA",811.8,180,100,7118,0) +289 +"DATA",811.8,180,100,7119,0) +285 +"DATA",811.8,180,100,7120,0) +276 +"DATA",811.8,180,100,7121,0) + +"DATA",811.8,180,100,7122,0) + +"DATA",811.8,180,100,7123,0) +306 +"DATA",811.8,180,100,7124,0) +302 +"DATA",811.8,180,100,7125,0) +293 +"DATA",811.8,180,100,7126,0) + +"DATA",811.8,180,100,7127,0) + +"DATA",811.8,180,100,7128,0) +323 +"DATA",811.8,180,100,7129,0) +319 +"DATA",811.8,180,100,7130,0) +310 +"DATA",811.8,180,100,7131,0) + +"DATA",811.8,180,100,7132,0) + +"DATA",811.8,180,100,7133,0) +340 +"DATA",811.8,180,100,7134,0) +336 +"DATA",811.8,180,100,7135,0) +327 +"DATA",811.8,180,100,7136,0) + +"DATA",811.8,180,100,7137,0) + +"DATA",811.8,180,100,7138,0) +357 +"DATA",811.8,180,100,7139,0) +353 +"DATA",811.8,180,100,7140,0) +344 +"DATA",811.8,180,100,7141,0) + +"DATA",811.8,180,100,7142,0) + +"DATA",811.8,180,100,7143,0) +374 +"DATA",811.8,180,100,7144,0) +370 +"DATA",811.8,180,100,7145,0) +361 +"DATA",811.8,180,100,7146,0) + +"DATA",811.8,180,100,7147,0) + +"DATA",811.8,180,100,7148,0) +391 +"DATA",811.8,180,100,7149,0) +387 +"DATA",811.8,180,100,7150,0) +378 +"DATA",811.8,180,100,7151,0) + +"DATA",811.8,180,100,7152,0) + +"DATA",811.8,180,100,7153,0) +408 +"DATA",811.8,180,100,7154,0) +404 +"DATA",811.8,180,100,7155,0) +395 +"DATA",811.8,180,100,7156,0) + +"DATA",811.8,180,100,7157,0) + +"DATA",811.8,180,100,7158,0) +425 +"DATA",811.8,180,100,7159,0) +421 +"DATA",811.8,180,100,7160,0) +412 +"DATA",811.8,180,100,7161,0) + +"DATA",811.8,180,100,7162,0) + +"DATA",811.8,180,100,7163,0) +442 +"DATA",811.8,180,100,7164,0) +438 +"DATA",811.8,180,100,7165,0) +429 +"DATA",811.8,180,100,7166,0) + +"DATA",811.8,180,100,7167,0) + +"DATA",811.8,180,100,7168,0) +459 +"DATA",811.8,180,100,7169,0) +455 +"DATA",811.8,180,100,7170,0) +446 +"DATA",811.8,180,100,7171,0) + +"DATA",811.8,180,100,7172,0) + +"DATA",811.8,180,100,7173,0) +476 +"DATA",811.8,180,100,7174,0) +472 +"DATA",811.8,180,100,7175,0) +463 +"DATA",811.8,180,100,7176,0) + +"DATA",811.8,180,100,7177,0) + +"DATA",811.8,180,100,7178,0) +493 +"DATA",811.8,180,100,7179,0) +489 +"DATA",811.8,180,100,7180,0) +480 +"DATA",811.8,180,100,7181,0) + +"DATA",811.8,180,100,7182,0) + +"DATA",811.8,180,100,7183,0) +510 +"DATA",811.8,180,100,7184,0) +506 +"DATA",811.8,180,100,7185,0) +497 +"DATA",811.8,180,100,7186,0) + +"DATA",811.8,180,100,7187,0) + +"DATA",811.8,180,100,7188,0) +527 +"DATA",811.8,180,100,7189,0) +523 +"DATA",811.8,180,100,7190,0) +514 +"DATA",811.8,180,100,7191,0) + +"DATA",811.8,180,100,7192,0) + +"DATA",811.8,180,100,7193,0) +544 +"DATA",811.8,180,100,7194,0) +540 +"DATA",811.8,180,100,7195,0) +531 +"DATA",811.8,180,100,7196,0) + +"DATA",811.8,180,100,7197,0) + +"DATA",811.8,180,100,7198,0) +561 +"DATA",811.8,180,100,7199,0) +557 +"DATA",811.8,180,100,7200,0) +548 +"DATA",811.8,180,100,7201,0) + +"DATA",811.8,180,100,7202,0) + +"DATA",811.8,180,100,7203,0) +578 +"DATA",811.8,180,100,7204,0) +574 +"DATA",811.8,180,100,7205,0) +565 +"DATA",811.8,180,100,7206,0) + +"DATA",811.8,180,100,7207,0) + +"DATA",811.8,180,100,7208,0) +629 +"DATA",811.8,180,100,7209,0) +591 +"DATA",811.8,180,100,7210,0) +582 +"DATA",811.8,180,100,7211,0) +634 +"DATA",811.8,180,100,7212,0) +634 +"DATA",811.8,180,100,7213,0) + +"DATA",811.8,180,100,7214,0) + +"DATA",811.8,180,100,7215,0) +682 +"DATA",811.8,180,100,7216,0) +647 +"DATA",811.8,180,100,7217,0) +638 +"DATA",811.8,180,100,7218,0) +687 +"DATA",811.8,180,100,7219,0) +687 +"DATA",811.8,180,100,7220,0) + +"DATA",811.8,180,100,7221,0) + +"DATA",811.8,180,100,7222,0) +766 +"DATA",811.8,180,100,7223,0) +700 +"DATA",811.8,180,100,7224,0) +691 +"DATA",811.8,180,100,7225,0) +786 +"DATA",811.8,180,100,7226,0) +771 +"DATA",811.8,180,100,7227,0) + +"DATA",811.8,180,100,7228,0) + +"DATA",811.8,180,100,7229,0) +845 +"DATA",811.8,180,100,7230,0) +799 +"DATA",811.8,180,100,7231,0) +790 +"DATA",811.8,180,100,7232,0) +860 +"DATA",811.8,180,100,7233,0) +850 +"DATA",811.8,180,100,7234,0) + +"DATA",811.8,180,100,7235,0) + +"DATA",811.8,180,100,7236,0) +938 +"DATA",811.8,180,100,7237,0) +873 +"DATA",811.8,180,100,7238,0) +864 +"DATA",811.8,180,100,7239,0) +958 +"DATA",811.8,180,100,7240,0) +943 +"DATA",811.8,180,100,7241,0) + +"DATA",811.8,180,100,7242,0) + +"DATA",811.8,180,100,7243,0) +1016 +"DATA",811.8,180,100,7244,0) +971 +"DATA",811.8,180,100,7245,0) +962 +"DATA",811.8,180,100,7246,0) +1031 +"DATA",811.8,180,100,7247,0) +1021 +"DATA",811.8,180,100,7248,0) + +"DATA",811.8,180,100,7249,0) + +"DATA",811.8,180,100,7250,0) +1077 +"DATA",811.8,180,100,7251,0) +1044 +"DATA",811.8,180,100,7252,0) +1035 +"DATA",811.8,180,100,7253,0) +1089 +"DATA",811.8,180,100,7254,0) +1082 +"DATA",811.8,180,100,7255,0) + +"DATA",811.8,180,100,7256,0) + +"DATA",811.8,180,100,7257,0) +1519 +"DATA",811.8,180,100,7258,0) +1102 +"DATA",811.8,180,100,7259,0) +1093 +"DATA",811.8,180,100,7260,0) +1627 +"DATA",811.8,180,100,7261,0) +1524 +"DATA",811.8,180,100,7262,0) + +"DATA",811.8,180,100,7263,0) + +"DATA",811.8,180,100,7264,0) +1709 +"DATA",811.8,180,100,7265,0) +1640 +"DATA",811.8,180,100,7266,0) +1631 +"DATA",811.8,180,100,7267,0) +1730 +"DATA",811.8,180,100,7268,0) +1714 +"DATA",811.8,180,100,7269,0) + +"DATA",811.8,180,100,7270,0) + +"DATA",811.8,180,100,7271,0) +1800 +"DATA",811.8,180,100,7272,0) +1743 +"DATA",811.8,180,100,7273,0) +1734 +"DATA",811.8,180,100,7274,0) +1818 +"DATA",811.8,180,100,7275,0) +1805 +"DATA",811.8,180,100,7276,0) + +"DATA",811.8,180,100,7277,0) + +"DATA",811.8,180,100,7278,0) +1852 +"DATA",811.8,180,100,7279,0) +1831 +"DATA",811.8,180,100,7280,0) +1822 +"DATA",811.8,180,100,7281,0) +1861 +"DATA",811.8,180,100,7282,0) +1857 +"DATA",811.8,180,100,7283,0) + +"DATA",811.8,180,100,7284,0) + +"DATA",811.8,180,100,7285,0) +1887 +"DATA",811.8,180,100,7286,0) +1874 +"DATA",811.8,180,100,7287,0) +1865 +"DATA",811.8,180,100,7288,0) +1894 +"DATA",811.8,180,100,7289,0) +1892 +"DATA",811.8,180,100,7290,0) + +"DATA",811.8,180,100,7291,0) + +"DATA",811.8,180,100,7292,0) +1916 +"DATA",811.8,180,100,7293,0) +1907 +"DATA",811.8,180,100,7294,0) +1898 +"DATA",811.8,180,100,7295,0) +1922 +"DATA",811.8,180,100,7296,0) +1921 +"DATA",811.8,180,100,7297,0) + +"DATA",811.8,180,100,7298,0) + +"DATA",811.8,180,100,7299,0) +2672 +"DATA",811.8,180,100,7300,0) +1935 +"DATA",811.8,180,100,7301,0) +1926 +"DATA",811.8,180,100,7302,0) +2860 +"DATA",811.8,180,100,7303,0) +2677 +"DATA",811.8,180,100,7304,0) + +"DATA",811.8,180,100,7305,0) + +"DATA",811.8,180,100,7306,0) +2931 +"DATA",811.8,180,100,7307,0) +2873 +"DATA",811.8,180,100,7308,0) +2864 +"DATA",811.8,180,100,7309,0) +2949 +"DATA",811.8,180,100,7310,0) +2936 +"DATA",811.8,180,100,7311,0) + +"DATA",811.8,180,100,7312,0) + +"DATA",811.8,180,100,7313,0) +2979 +"DATA",811.8,180,100,7314,0) +2962 +"DATA",811.8,180,100,7315,0) +2953 +"DATA",811.8,180,100,7316,0) +2987 +"DATA",811.8,180,100,7317,0) +2984 +"DATA",811.8,180,100,7318,0) + +"DATA",811.8,180,100,7319,0) + +"DATA",811.8,180,100,7320,0) +3593 +"DATA",811.8,180,100,7321,0) +3000 +"DATA",811.8,180,100,7322,0) +2991 +"DATA",811.8,180,100,7323,0) +3745 +"DATA",811.8,180,100,7324,0) +3598 +"DATA",811.8,180,100,7325,0) + +"DATA",811.8,180,100,7326,0) + +"DATA",811.8,180,100,7327,0) +3771 +"DATA",811.8,180,100,7328,0) +3758 +"DATA",811.8,180,100,7329,0) +3749 +"DATA",811.8,180,100,7330,0) +3778 +"DATA",811.8,180,100,7331,0) +3776 +"DATA",811.8,180,100,7332,0) + +"DATA",811.8,180,100,7333,0) + +"DATA",811.8,180,100,7334,0) +3844 +"DATA",811.8,180,100,7335,0) +3791 +"DATA",811.8,180,100,7336,0) +3782 +"DATA",811.8,180,100,7337,0) +3861 +"DATA",811.8,180,100,7338,0) +3849 +"DATA",811.8,180,100,7339,0) + +"DATA",811.8,180,100,7340,0) + +"DATA",811.8,180,100,7341,0) +3879 +"DATA",811.8,180,100,7342,0) +3874 +"DATA",811.8,180,100,7343,0) +3865 +"DATA",811.8,180,100,7344,0) +3885 +"DATA",811.8,180,100,7345,0) +3884 +"DATA",811.8,180,100,7346,0) + +"DATA",811.8,180,100,7347,0) + +"DATA",811.8,180,100,7348,0) +3903 +"DATA",811.8,180,100,7349,0) +3898 +"DATA",811.8,180,100,7350,0) +3889 +"DATA",811.8,180,100,7351,0) +3909 +"DATA",811.8,180,100,7352,0) +3908 +"DATA",811.8,180,100,7353,0) + +"DATA",811.8,180,100,7354,0) + +"DATA",811.8,180,100,7355,0) +3927 +"DATA",811.8,180,100,7356,0) +3922 +"DATA",811.8,180,100,7357,0) +3913 +"DATA",811.8,180,100,7358,0) +3933 +"DATA",811.8,180,100,7359,0) +3932 +"DATA",811.8,180,100,7360,0) + +"DATA",811.8,180,100,7361,0) + +"DATA",811.8,180,100,7362,0) +3954 +"DATA",811.8,180,100,7363,0) +3946 +"DATA",811.8,180,100,7364,0) +3937 +"DATA",811.8,180,100,7365,0) +3963 +"DATA",811.8,180,100,7366,0) +3959 +"DATA",811.8,180,100,7367,0) + +"DATA",811.8,180,100,7368,0) + +"DATA",811.8,180,100,7369,0) +3982 +"DATA",811.8,180,100,7370,0) +3976 +"DATA",811.8,180,100,7371,0) +3967 +"DATA",811.8,180,100,7372,0) +3989 +"DATA",811.8,180,100,7373,0) +3987 +"DATA",811.8,180,100,7374,0) + +"DATA",811.8,180,100,7375,0) + +"DATA",811.8,180,100,7376,0) +4010 +"DATA",811.8,180,100,7377,0) +4002 +"DATA",811.8,180,100,7378,0) +3993 +"DATA",811.8,180,100,7379,0) +4016 +"DATA",811.8,180,100,7380,0) +4015 +"DATA",811.8,180,100,7381,0) + +"DATA",811.8,180,100,7382,0) + +"DATA",811.8,180,100,7383,0) +4039 +"DATA",811.8,180,100,7384,0) +4029 +"DATA",811.8,180,100,7385,0) +4020 +"DATA",811.8,180,100,7386,0) +4050 +"DATA",811.8,180,100,7387,0) +4044 +"DATA",811.8,180,100,7388,0) + +"DATA",811.8,180,100,7389,0) + +"DATA",811.8,180,100,7390,0) +4070 +"DATA",811.8,180,100,7391,0) +4063 +"DATA",811.8,180,100,7392,0) +4054 +"DATA",811.8,180,100,7393,0) +4078 +"DATA",811.8,180,100,7394,0) +4075 +"DATA",811.8,180,100,7395,0) + +"DATA",811.8,180,100,7396,0) + +"DATA",811.8,180,100,7397,0) +4100 +"DATA",811.8,180,100,7398,0) +4091 +"DATA",811.8,180,100,7399,0) +4082 +"DATA",811.8,180,100,7400,0) +4110 +"DATA",811.8,180,100,7401,0) +4105 +"DATA",811.8,180,100,7402,0) + +"DATA",811.8,180,100,7403,0) + +"DATA",811.8,180,100,7404,0) +4128 +"DATA",811.8,180,100,7405,0) +4123 +"DATA",811.8,180,100,7406,0) +4114 +"DATA",811.8,180,100,7407,0) +4134 +"DATA",811.8,180,100,7408,0) +4133 +"DATA",811.8,180,100,7409,0) + +"DATA",811.8,180,100,7410,0) + +"DATA",811.8,180,100,7411,0) +4152 +"DATA",811.8,180,100,7412,0) +4147 +"DATA",811.8,180,100,7413,0) +4138 +"DATA",811.8,180,100,7414,0) +4158 +"DATA",811.8,180,100,7415,0) +4157 +"DATA",811.8,180,100,7416,0) + +"DATA",811.8,180,100,7417,0) + +"DATA",811.8,180,100,7418,0) +4177 +"DATA",811.8,180,100,7419,0) +4171 +"DATA",811.8,180,100,7420,0) +4162 +"DATA",811.8,180,100,7421,0) +4184 +"DATA",811.8,180,100,7422,0) +4182 +"DATA",811.8,180,100,7423,0) + +"DATA",811.8,180,100,7424,0) + +"DATA",811.8,180,100,7425,0) +4205 +"DATA",811.8,180,100,7426,0) +4197 +"DATA",811.8,180,100,7427,0) +4188 +"DATA",811.8,180,100,7428,0) +4211 +"DATA",811.8,180,100,7429,0) +4210 +"DATA",811.8,180,100,7430,0) + +"DATA",811.8,180,100,7431,0) + +"DATA",811.8,180,100,7432,0) +4232 +"DATA",811.8,180,100,7433,0) +4224 +"DATA",811.8,180,100,7434,0) +4215 +"DATA",811.8,180,100,7435,0) +4238 +"DATA",811.8,180,100,7436,0) +4237 +"DATA",811.8,180,100,7437,0) + +"DATA",811.8,180,100,7438,0) + +"DATA",811.8,180,100,7439,0) +4259 +"DATA",811.8,180,100,7440,0) +4251 +"DATA",811.8,180,100,7441,0) +4242 +"DATA",811.8,180,100,7442,0) +4265 +"DATA",811.8,180,100,7443,0) +4264 +"DATA",811.8,180,100,7444,0) + +"DATA",811.8,180,100,7445,0) + +"DATA",811.8,180,100,7446,0) +4283 +"DATA",811.8,180,100,7447,0) +4278 +"DATA",811.8,180,100,7448,0) +4269 +"DATA",811.8,180,100,7449,0) +4289 +"DATA",811.8,180,100,7450,0) +4288 +"DATA",811.8,180,100,7451,0) + +"DATA",811.8,180,100,7452,0) + +"DATA",811.8,180,100,7453,0) +4310 +"DATA",811.8,180,100,7454,0) +4302 +"DATA",811.8,180,100,7455,0) +4293 +"DATA",811.8,180,100,7456,0) +4316 +"DATA",811.8,180,100,7457,0) +4315 +"DATA",811.8,180,100,7458,0) + +"DATA",811.8,180,100,7459,0) + +"DATA",811.8,180,100,7460,0) +4337 +"DATA",811.8,180,100,7461,0) +4329 +"DATA",811.8,180,100,7462,0) +4320 +"DATA",811.8,180,100,7463,0) +4343 +"DATA",811.8,180,100,7464,0) +4342 +"DATA",811.8,180,100,7465,0) + +"DATA",811.8,180,100,7466,0) + +"DATA",811.8,180,100,7467,0) +4364 +"DATA",811.8,180,100,7468,0) +4356 +"DATA",811.8,180,100,7469,0) +4347 +"DATA",811.8,180,100,7470,0) +4373 +"DATA",811.8,180,100,7471,0) +4369 +"DATA",811.8,180,100,7472,0) + +"DATA",811.8,180,100,7473,0) + +"DATA",811.8,180,100,7474,0) +4394 +"DATA",811.8,180,100,7475,0) +4386 +"DATA",811.8,180,100,7476,0) +4377 +"DATA",811.8,180,100,7477,0) +4400 +"DATA",811.8,180,100,7478,0) +4399 +"DATA",811.8,180,100,7479,0) + +"DATA",811.8,180,100,7480,0) + +"DATA",811.8,180,100,7481,0) +4421 +"DATA",811.8,180,100,7482,0) +4413 +"DATA",811.8,180,100,7483,0) +4404 +"DATA",811.8,180,100,7484,0) +4427 +"DATA",811.8,180,100,7485,0) +4426 +"DATA",811.8,180,100,7486,0) + +"DATA",811.8,180,100,7487,0) + +"DATA",811.8,180,100,7488,0) +4445 +"DATA",811.8,180,100,7489,0) +4440 +"DATA",811.8,180,100,7490,0) +4431 +"DATA",811.8,180,100,7491,0) +4451 +"DATA",811.8,180,100,7492,0) +4450 +"DATA",811.8,180,100,7493,0) + +"DATA",811.8,180,100,7494,0) + +"DATA",811.8,180,100,7495,0) +4470 +"DATA",811.8,180,100,7496,0) +4464 +"DATA",811.8,180,100,7497,0) +4455 +"DATA",811.8,180,100,7498,0) +4477 +"DATA",811.8,180,100,7499,0) +4475 +"DATA",811.8,180,100,7500,0) + +"DATA",811.8,180,100,7501,0) + +"DATA",811.8,180,100,7502,0) +4496 +"DATA",811.8,180,100,7503,0) +4490 +"DATA",811.8,180,100,7504,0) +4481 +"DATA",811.8,180,100,7505,0) +4503 +"DATA",811.8,180,100,7506,0) +4501 +"DATA",811.8,180,100,7507,0) + +"DATA",811.8,180,100,7508,0) + +"DATA",811.8,180,100,7509,0) +4523 +"DATA",811.8,180,100,7510,0) +4516 +"DATA",811.8,180,100,7511,0) +4507 +"DATA",811.8,180,100,7512,0) +4529 +"DATA",811.8,180,100,7513,0) +4528 +"DATA",811.8,180,100,7514,0) + +"DATA",811.8,180,100,7515,0) + +"DATA",811.8,180,100,7516,0) +4549 +"DATA",811.8,180,100,7517,0) +4542 +"DATA",811.8,180,100,7518,0) +4533 +"DATA",811.8,180,100,7519,0) +4555 +"DATA",811.8,180,100,7520,0) +4554 +"DATA",811.8,180,100,7521,0) + +"DATA",811.8,180,100,7522,0) + +"DATA",811.8,180,100,7523,0) +4575 +"DATA",811.8,180,100,7524,0) +4568 +"DATA",811.8,180,100,7525,0) +4559 +"DATA",811.8,180,100,7526,0) +4583 +"DATA",811.8,180,100,7527,0) +4580 +"DATA",811.8,180,100,7528,0) + +"DATA",811.8,180,100,7529,0) + +"DATA",811.8,180,100,7530,0) +4607 +"DATA",811.8,180,100,7531,0) +4596 +"DATA",811.8,180,100,7532,0) +4587 +"DATA",811.8,180,100,7533,0) +4619 +"DATA",811.8,180,100,7534,0) +4612 +"DATA",811.8,180,100,7535,0) + +"DATA",811.8,180,100,7536,0) + +"DATA",811.8,180,100,7537,0) +4648 +"DATA",811.8,180,100,7538,0) +4632 +"DATA",811.8,180,100,7539,0) +4623 +"DATA",811.8,180,100,7540,0) +4663 +"DATA",811.8,180,100,7541,0) +4653 +"DATA",811.8,180,100,7542,0) + +"DATA",811.8,180,100,7543,0) + +"DATA",811.8,180,100,7544,0) +4685 +"DATA",811.8,180,100,7545,0) +4676 +"DATA",811.8,180,100,7546,0) +4667 +"DATA",811.8,180,100,7547,0) +4693 +"DATA",811.8,180,100,7548,0) +4690 +"DATA",811.8,180,100,7549,0) + +"DATA",811.8,180,100,7550,0) + +"DATA",811.8,180,100,7551,0) +4713 +"DATA",811.8,180,100,7552,0) +4706 +"DATA",811.8,180,100,7553,0) +4697 +"DATA",811.8,180,100,7554,0) +4719 +"DATA",811.8,180,100,7555,0) +4718 +"DATA",811.8,180,100,7556,0) + +"DATA",811.8,180,100,7557,0) + +"DATA",811.8,180,100,7558,0) +4740 +"DATA",811.8,180,100,7559,0) +4732 +"DATA",811.8,180,100,7560,0) +4723 +"DATA",811.8,180,100,7561,0) +4749 +"DATA",811.8,180,100,7562,0) +4745 +"DATA",811.8,180,100,7563,0) + +"DATA",811.8,180,100,7564,0) + +"DATA",811.8,180,100,7565,0) +4772 +"DATA",811.8,180,100,7566,0) +4762 +"DATA",811.8,180,100,7567,0) +4753 +"DATA",811.8,180,100,7568,0) +4781 +"DATA",811.8,180,100,7569,0) +4777 +"DATA",811.8,180,100,7570,0) + +"DATA",811.8,180,100,7571,0) + +"DATA",811.8,180,100,7572,0) +4813 +"DATA",811.8,180,100,7573,0) +4794 +"DATA",811.8,180,100,7574,0) +4785 +"DATA",811.8,180,100,7575,0) +4831 +"DATA",811.8,180,100,7576,0) +4818 +"DATA",811.8,180,100,7577,0) + +"DATA",811.8,180,100,7578,0) + +"DATA",811.8,180,100,7579,0) +4852 +"DATA",811.8,180,100,7580,0) +4844 +"DATA",811.8,180,100,7581,0) +4835 +"DATA",811.8,180,100,7582,0) +4859 +"DATA",811.8,180,100,7583,0) +4857 +"DATA",811.8,180,100,7584,0) + +"DATA",811.8,180,100,7585,0) + +"DATA",811.8,180,100,7586,0) +4958 +"DATA",811.8,180,100,7587,0) +4872 +"DATA",811.8,180,100,7588,0) +4863 +"DATA",811.8,180,100,7589,0) +4988 +"DATA",811.8,180,100,7590,0) +4963 +"DATA",811.8,180,100,7591,0) + +"DATA",811.8,180,100,7592,0) + +"DATA",811.8,180,100,7593,0) +5101 +"DATA",811.8,180,100,7594,0) +5001 +"DATA",811.8,180,100,7595,0) +4992 +"DATA",811.8,180,100,7596,0) +5137 +"DATA",811.8,180,100,7597,0) +5106 +"DATA",811.8,180,100,7598,0) + +"DATA",811.8,180,100,7599,0) + +"DATA",811.8,180,100,7600,0) +5232 +"DATA",811.8,180,100,7601,0) +5150 +"DATA",811.8,180,100,7602,0) +5141 +"DATA",811.8,180,100,7603,0) +5260 +"DATA",811.8,180,100,7604,0) +5237 +"DATA",811.8,180,100,7605,0) + +"DATA",811.8,180,100,7606,0) + +"DATA",811.8,180,100,7607,0) +5356 +"DATA",811.8,180,100,7608,0) +5273 +"DATA",811.8,180,100,7609,0) +5264 +"DATA",811.8,180,100,7610,0) +5384 +"DATA",811.8,180,100,7611,0) +5361 +"DATA",811.8,180,100,7612,0) + +"DATA",811.8,180,100,7613,0) + +"DATA",811.8,180,100,7614,0) +5469 +"DATA",811.8,180,100,7615,0) +5397 +"DATA",811.8,180,100,7616,0) +5388 +"DATA",811.8,180,100,7617,0) +5492 +"DATA",811.8,180,100,7618,0) +5474 +"DATA",811.8,180,100,7619,0) + +"DATA",811.8,180,100,7620,0) + +"DATA",811.8,180,100,7621,0) +5580 +"DATA",811.8,180,100,7622,0) +5505 +"DATA",811.8,180,100,7623,0) +5496 +"DATA",811.8,180,100,7624,0) +5604 +"DATA",811.8,180,100,7625,0) +5585 +"DATA",811.8,180,100,7626,0) + +"DATA",811.8,180,100,7627,0) + +"DATA",811.8,180,100,7628,0) +5682 +"DATA",811.8,180,100,7629,0) +5617 +"DATA",811.8,180,100,7630,0) +5608 +"DATA",811.8,180,100,7631,0) +5702 +"DATA",811.8,180,100,7632,0) +5687 +"DATA",811.8,180,100,7633,0) + +"DATA",811.8,180,100,7634,0) + +"DATA",811.8,180,100,7635,0) +5805 +"DATA",811.8,180,100,7636,0) +5715 +"DATA",811.8,180,100,7637,0) +5706 +"DATA",811.8,180,100,7638,0) +5834 +"DATA",811.8,180,100,7639,0) +5810 +"DATA",811.8,180,100,7640,0) + +"DATA",811.8,180,100,7641,0) + +"DATA",811.8,180,100,7642,0) +5968 +"DATA",811.8,180,100,7643,0) +5847 +"DATA",811.8,180,100,7644,0) +5838 +"DATA",811.8,180,100,7645,0) +6019 +"DATA",811.8,180,100,7646,0) +5973 +"DATA",811.8,180,100,7647,0) + +"DATA",811.8,180,100,7648,0) + +"DATA",811.8,180,100,7649,0) +6150 +"DATA",811.8,180,100,7650,0) +6032 +"DATA",811.8,180,100,7651,0) +6023 +"DATA",811.8,180,100,7652,0) +6200 +"DATA",811.8,180,100,7653,0) +6155 +"DATA",811.8,180,100,7654,0) + +"DATA",811.8,180,100,7655,0) + +"DATA",811.8,180,100,7656,0) +6305 +"DATA",811.8,180,100,7657,0) +6213 +"DATA",811.8,180,100,7658,0) +6204 +"DATA",811.8,180,100,7659,0) +6340 +"DATA",811.8,180,100,7660,0) +6310 +"DATA",811.8,180,100,7661,0) + +"DATA",811.8,180,100,7662,0) + +"DATA",811.8,180,100,7663,0) +6421 +"DATA",811.8,180,100,7664,0) +6353 +"DATA",811.8,180,100,7665,0) +6344 +"DATA",811.8,180,100,7666,0) +6444 +"DATA",811.8,180,100,7667,0) +6426 +"DATA",811.8,180,100,7668,0) + +"DATA",811.8,180,100,7669,0) + +"DATA",811.8,180,100,7670,0) +6463 +"DATA",811.8,180,100,7671,0) +6457 +"DATA",811.8,180,100,7672,0) +6448 +"DATA",811.8,180,100,7673,0) +6468 +"DATA",811.8,180,100,7674,0) +6468 +"DATA",811.8,180,100,7675,0) + +"DATA",811.8,180,100,7676,0) + +"DATA",811.8,180,100,7677,0) +6489 +"DATA",811.8,180,100,7678,0) +6481 +"DATA",811.8,180,100,7679,0) +6472 +"DATA",811.8,180,100,7680,0) +6495 +"DATA",811.8,180,100,7681,0) +6494 +"DATA",811.8,180,100,7682,0) + +"DATA",811.8,180,100,7683,0) + +"DATA",811.8,180,100,7684,0) +6514 +"DATA",811.8,180,100,7685,0) +6508 +"DATA",811.8,180,100,7686,0) +6499 +"DATA",811.8,180,100,7687,0) +6519 +"DATA",811.8,180,100,7688,0) +6519 +"DATA",811.8,180,100,7689,0) + +"DATA",811.8,180,100,7690,0) + +"DATA",811.8,180,100,7691,0) +6540 +"DATA",811.8,180,100,7692,0) +6532 +"DATA",811.8,180,100,7693,0) +6523 +"DATA",811.8,180,100,7694,0) +6546 +"DATA",811.8,180,100,7695,0) +6545 +"DATA",811.8,180,100,7696,0) + +"DATA",811.8,180,100,7697,0) + +"DATA",811.8,180,100,7698,0) +6565 +"DATA",811.8,180,100,7699,0) +6559 +"DATA",811.8,180,100,7700,0) +6550 +"DATA",811.8,180,100,7701,0) +6570 +"DATA",811.8,180,100,7702,0) +6570 +"DATA",811.8,180,100,7703,0) + +"DATA",811.8,180,100,7704,0) + +"DATA",811.8,180,100,7705,0) +6591 +"DATA",811.8,180,100,7706,0) +6583 +"DATA",811.8,180,100,7707,0) +6574 +"DATA",811.8,180,100,7708,0) +6597 +"DATA",811.8,180,100,7709,0) +6596 +"DATA",811.8,180,100,7710,0) + +"DATA",811.8,180,100,7711,0) + +"DATA",811.8,180,100,7712,0) +6616 +"DATA",811.8,180,100,7713,0) +6610 +"DATA",811.8,180,100,7714,0) +6601 +"DATA",811.8,180,100,7715,0) +6621 +"DATA",811.8,180,100,7716,0) +6621 +"DATA",811.8,180,100,7717,0) + +"DATA",811.8,180,100,7718,0) + +"DATA",811.8,180,100,7719,0) +6642 +"DATA",811.8,180,100,7720,0) +6634 +"DATA",811.8,180,100,7721,0) +6625 +"DATA",811.8,180,100,7722,0) +6648 +"DATA",811.8,180,100,7723,0) +6647 +"DATA",811.8,180,100,7724,0) + +"DATA",811.8,180,100,7725,0) + +"DATA",811.8,180,100,7726,0) +6667 +"DATA",811.8,180,100,7727,0) +6661 +"DATA",811.8,180,100,7728,0) +6652 +"DATA",811.8,180,100,7729,0) +6672 +"DATA",811.8,180,100,7730,0) +6672 +"DATA",811.8,180,100,7731,0) + +"DATA",811.8,180,100,7732,0) + +"DATA",811.8,180,100,7733,0) +6693 +"DATA",811.8,180,100,7734,0) +6685 +"DATA",811.8,180,100,7735,0) +6676 +"DATA",811.8,180,100,7736,0) +6699 +"DATA",811.8,180,100,7737,0) +6698 +"DATA",811.8,180,100,7738,0) + +"DATA",811.8,180,100,7739,0) + +"DATA",811.8,180,100,7740,0) +6718 +"DATA",811.8,180,100,7741,0) +6712 +"DATA",811.8,180,100,7742,0) +6703 +"DATA",811.8,180,100,7743,0) +6723 +"DATA",811.8,180,100,7744,0) +6723 +"DATA",811.8,180,100,7745,0) + +"DATA",811.8,180,100,7746,0) + +"DATA",811.8,180,100,7747,0) +6744 +"DATA",811.8,180,100,7748,0) +6736 +"DATA",811.8,180,100,7749,0) +6727 +"DATA",811.8,180,100,7750,0) +6750 +"DATA",811.8,180,100,7751,0) +6749 +"DATA",811.8,180,100,7752,0) + +"DATA",811.8,180,100,7753,0) + +"DATA",811.8,180,100,7754,0) +6769 +"DATA",811.8,180,100,7755,0) +6763 +"DATA",811.8,180,100,7756,0) +6754 +"DATA",811.8,180,100,7757,0) +6774 +"DATA",811.8,180,100,7758,0) +6774 +"DATA",811.8,180,100,7759,0) + +"DATA",811.8,180,100,7760,0) + +"DATA",811.8,180,100,7761,0) +6795 +"DATA",811.8,180,100,7762,0) +6787 +"DATA",811.8,180,100,7763,0) +6778 +"DATA",811.8,180,100,7764,0) +6801 +"DATA",811.8,180,100,7765,0) +6800 +"DATA",811.8,180,100,7766,0) + +"DATA",811.8,180,100,7767,0) + +"DATA",811.8,180,100,7768,0) +6820 +"DATA",811.8,180,100,7769,0) +6814 +"DATA",811.8,180,100,7770,0) +6805 +"DATA",811.8,180,100,7771,0) +6825 +"DATA",811.8,180,100,7772,0) +6825 +"DATA",811.8,180,100,7773,0) + +"DATA",811.8,180,100,7774,0) + +"DATA",811.8,180,100,7775,0) +6846 +"DATA",811.8,180,100,7776,0) +6838 +"DATA",811.8,180,100,7777,0) +6829 +"DATA",811.8,180,100,7778,0) +6852 +"DATA",811.8,180,100,7779,0) +6851 +"DATA",811.8,180,100,7780,0) + +"DATA",811.8,180,100,7781,0) + +"DATA",811.8,180,100,7782,0) +6871 +"DATA",811.8,180,100,7783,0) +6865 +"DATA",811.8,180,100,7784,0) +6856 +"DATA",811.8,180,100,7785,0) +6876 +"DATA",811.8,180,100,7786,0) +6876 +"DATA",811.8,180,100,7787,0) + +"DATA",811.8,180,100,7788,0) + +"DATA",811.8,180,100,7789,0) +6897 +"DATA",811.8,180,100,7790,0) +6889 +"DATA",811.8,180,100,7791,0) +6880 +"DATA",811.8,180,100,7792,0) +6903 +"DATA",811.8,180,100,7793,0) +6902 +"DATA",811.8,180,100,7794,0) + +"DATA",811.8,180,100,7795,0) + +"DATA",811.8,180,100,7796,0) +6922 +"DATA",811.8,180,100,7797,0) +6916 +"DATA",811.8,180,100,7798,0) +6907 +"DATA",811.8,180,100,7799,0) +6927 +"DATA",811.8,180,100,7800,0) +6927 +"DATA",811.8,180,100,7801,0) + +"DATA",811.8,180,100,7802,0) + +"DATA",811.8,180,100,7803,0) +6948 +"DATA",811.8,180,100,7804,0) +6940 +"DATA",811.8,180,100,7805,0) +6931 +"DATA",811.8,180,100,7806,0) +6954 +"DATA",811.8,180,100,7807,0) +6953 +"DATA",811.8,180,100,7808,0) + +"DATA",811.8,180,100,7809,0) + +"DATA",811.8,180,100,7810,0) +6973 +"DATA",811.8,180,100,7811,0) +6967 +"DATA",811.8,180,100,7812,0) +6958 +"DATA",811.8,180,100,7813,0) +6978 +"DATA",811.8,180,100,7814,0) +6978 +"DATA",811.8,180,100,7815,0) + +"DATA",811.8,180,100,7816,0) + +"DATA",811.8,180,100,7817,0) +6999 +"DATA",811.8,180,100,7818,0) +6991 +"DATA",811.8,180,100,7819,0) +6982 +"DATA",811.8,180,100,7820,0) +7005 +"DATA",811.8,180,100,7821,0) +7004 +"DATA",811.8,180,100,7822,0) + +"DATA",811.8,180,100,7823,0) + +"DATA",811.8,180,100,7824,0) +7024 +"DATA",811.8,180,100,7825,0) +7018 +"DATA",811.8,180,100,7826,0) +7009 +"DATA",811.8,180,100,7827,0) +7029 +"DATA",811.8,180,100,7828,0) +7029 +"DATA",811.8,180,100,7829,0) + +"DATA",811.8,180,100,7830,0) + +"DATA",811.8,180,100,7831,0) +7050 +"DATA",811.8,180,100,7832,0) +7042 +"DATA",811.8,180,100,7833,0) +7033 +"DATA",811.8,180,100,7834,0) +7056 +"DATA",811.8,180,100,7835,0) +7055 +"DATA",811.8,180,100,7836,0) + +"DATA",811.8,180,100,7837,0) + +"DATA",811.8,180,100,7838,0) + +"DATA",811.8,180,110,0) +^811.804^41^41 +"DATA",811.8,180,110,1,0) +Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION +"DATA",811.8,180,110,2,0) +Date Packed: 07/20/2012@09:48:30 +"DATA",811.8,180,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,180,110,4,0) + +"DATA",811.8,180,110,5,0) +Description: +"DATA",811.8,180,110,6,0) +This contains the Reminder Rule Sets for the VTE measures for Meaningful +"DATA",811.8,180,110,7,0) +Use Stage 1. +"DATA",811.8,180,110,8,0) +NQF 0371 +"DATA",811.8,180,110,9,0) +NQF 0372 +"DATA",811.8,180,110,10,0) +NQF 0373 +"DATA",811.8,180,110,11,0) +NQF 0374 +"DATA",811.8,180,110,12,0) +NQF 0375 +"DATA",811.8,180,110,13,0) +NQF 0376 +"DATA",811.8,180,110,14,0) + +"DATA",811.8,180,110,15,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,180,110,16,0) +REMINDER LIST RULE +"DATA",811.8,180,110,17,0) + MU VTE-1 DENOM RS +"DATA",811.8,180,110,18,0) + MU VTE-1 NUMER RS +"DATA",811.8,180,110,19,0) + MU VTE-2 DENOM RS +"DATA",811.8,180,110,20,0) + MU VTE-2 NUMER RS +"DATA",811.8,180,110,21,0) + MU VTE-3 NUMER RS +"DATA",811.8,180,110,22,0) + MU VTE-3 DENOM RS +"DATA",811.8,180,110,23,0) + MU VTE-4 NUMER RS +"DATA",811.8,180,110,24,0) + MU VTE-4 DENOM RS +"DATA",811.8,180,110,25,0) + MU VTE-5 NUMER RS +"DATA",811.8,180,110,26,0) + MU VTE-5 DENOM RS +"DATA",811.8,180,110,27,0) + MU VTE-6 NUMER RS +"DATA",811.8,180,110,28,0) + MU VTE-6 DENOM RS +"DATA",811.8,180,110,29,0) + +"DATA",811.8,180,110,30,0) +Keywords: +"DATA",811.8,180,110,31,0) +NQF 0371 +"DATA",811.8,180,110,32,0) +NQF 0372 +"DATA",811.8,180,110,33,0) +NQF 0373 +"DATA",811.8,180,110,34,0) +NQF 0374 +"DATA",811.8,180,110,35,0) +NQF 0375 +"DATA",811.8,180,110,36,0) +NQF 0376 +"DATA",811.8,180,110,37,0) +MU +"DATA",811.8,180,110,38,0) +VTE +"DATA",811.8,180,110,39,0) +VENOUS THROMBOEMBOLISM +"DATA",811.8,180,110,40,0) + +"DATA",811.8,180,110,41,0) +Components: +"DATA",811.8,180,119) +10 +"DATA",811.8,180,120,0) +^811.802A^119^119 +"DATA",811.8,180,120,1,0) +ROUTINE^0^1 +"DATA",811.8,180,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,180,120,1,1,1,0) +PXRMINPL^52^133^^^1^0 +"DATA",811.8,180,120,2,0) +VA GENERIC^50.6^3 +"DATA",811.8,180,120,2,1,0) +^811.8021A^3^3 +"DATA",811.8,180,120,2,1,1,0) +WARFARIN^146^146^^^0^0 +"DATA",811.8,180,120,2,1,2,0) +HEPARIN/SODIUM CHLORIDE^159^159^^^0^0 +"DATA",811.8,180,120,2,1,3,0) +HEPARIN^172^172^^^0^0 +"DATA",811.8,180,120,3,0) +VA DRUG CLASS^50.605^2 +"DATA",811.8,180,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,180,120,3,1,1,0) +BL110^185^185^^^0^0 +"DATA",811.8,180,120,3,1,2,0) +BL115^198^198^^^0^0 +"DATA",811.8,180,120,4,0) +LABORATORY TEST^60^2 +"DATA",811.8,180,120,4,1,0) +^811.8021A^2^2 +"DATA",811.8,180,120,4,1,1,0) +PLT ^211^211^^^0^0 +"DATA",811.8,180,120,4,1,2,0) +INR^224^224^^^0^0 +"DATA",811.8,180,120,5,0) +HEALTH FACTORS^9999999.64^21 +"DATA",811.8,180,120,5,1,0) +^811.8021A^21^21 +"DATA",811.8,180,120,5,1,1,0) +MU STK^237^238^^^1^0 +"DATA",811.8,180,120,5,1,2,0) +VTE TEST ORDER^251^255^^^1^0 +"DATA",811.8,180,120,5,1,3,0) +VTE PRESENT AT ADMISSION^268^272^^^1^0 +"DATA",811.8,180,120,5,1,4,0) +VTE DX CONFIRMED DURING HOSPTIALIZATION^285^289^^^1^0 +"DATA",811.8,180,120,5,1,5,0) +VTE NOT GIVEN-HOSPITAL ADMISSION^302^306^^^1^0 +"DATA",811.8,180,120,5,1,6,0) +VTE PROPHYLAXIS DECLINED^319^323^^^1^0 +"DATA",811.8,180,120,5,1,7,0) +VTE PROHYLAXIS NOT RECEIVED^336^340^^^1^0 +"DATA",811.8,180,120,5,1,8,0) +VTE NO MECHANICAL PROPHYLAXIS: REASON^353^357^^^1^0 +"DATA",811.8,180,120,5,1,9,0) +ENROLLED IN CLINICAL TRIALS^370^374^^^1^0 +"DATA",811.8,180,120,5,1,10,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL^387^391^^^1^0 +"DATA",811.8,180,120,5,1,11,0) +VTE PROPHYLAXIS RECEIVED^404^408^^^1^0 +"DATA",811.8,180,120,5,1,12,0) +WARFARIN PRESCRIBED AT DISCHARGE^421^425^^^1^0 +"DATA",811.8,180,120,5,1,13,0) +WARFARIN FOLLOW-UP MONITORING ADDRESSED^438^442^^^1^0 +"DATA",811.8,180,120,5,1,14,0) +WARFARIN ADVERSE REACTIONS ADDRESSED^455^459^^^1^0 +"DATA",811.8,180,120,5,1,15,0) +WARFARIN DIETARY ADVICE GIVEN^472^476^^^1^0 +"DATA",811.8,180,120,5,1,16,0) +WARFARIN COMPLIANCE ADDRESSED^489^493^^^1^0 +"DATA",811.8,180,120,5,1,17,0) +WARFARIN EDU MATERIAL GIVEN AT DISCH^506^510^^^1^0 +"DATA",811.8,180,120,5,1,18,0) +SURGICAL CARE IMPROVEMENT PROJECT (SCIP)^523^527^^^1^0 +"DATA",811.8,180,120,5,1,19,0) +VTE PROPHYLAXIS DOCUMENTED^540^544^^^1^0 +"DATA",811.8,180,120,5,1,20,0) +ELECTIVE CAROTID INTERVENTION^557^561^^^1^0 +"DATA",811.8,180,120,5,1,21,0) +COMFORT MEASURES PROTOCOL FOLLOWED^574^578^^^1^0 +"DATA",811.8,180,120,6,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,180,120,6,1,0) +^811.8021A^2^2 +"DATA",811.8,180,120,6,1,1,0) +VA-ADMISSIONS FOR A DATE RANGE^591^629^634^634^1^0 +"DATA",811.8,180,120,6,1,2,0) +VA-DISCHARGES FOR A DATE RANGE^647^682^687^687^1^0 +"DATA",811.8,180,120,7,0) +REMINDER TAXONOMY^811.2^17 +"DATA",811.8,180,120,7,1,0) +^811.8021A^17^17 +"DATA",811.8,180,120,7,1,1,0) +MU VTE-6 TABLE 7.04 DISCH DX TX^700^766^771^786^1^0 +"DATA",811.8,180,120,7,1,2,0) +MU VTE-6 TABLE 7.03 DISCH DX TX^799^845^850^860^1^0 +"DATA",811.8,180,120,7,1,3,0) +MU TABLE 7.04 TX^873^938^943^958^1^0 +"DATA",811.8,180,120,7,1,4,0) +MU TABLE 7.03 TX^971^1016^1021^1031^1^0 +"DATA",811.8,180,120,7,1,5,0) +MU INTRACRAN NEURO SURG 5.17^1044^1077^1082^1089^1^0 +"DATA",811.8,180,120,7,1,6,0) +MU GENERAL SURGERY 5.19^1102^1519^1524^1627^1^0 +"DATA",811.8,180,120,7,1,7,0) +MU GYNERCOLOGICAL SURG 5.20^1640^1709^1714^1730^1^0 +"DATA",811.8,180,120,7,1,8,0) +MU UROLOGICAL SURGERY 5.21^1743^1800^1805^1818^1^0 +"DATA",811.8,180,120,7,1,9,0) +MU ELECTIVE HIP REPL 5.22^1831^1852^1857^1861^1^0 +"DATA",811.8,180,120,7,1,10,0) +MU ELECTIVE TOTAL KNEE REPL 5.23^1874^1887^1892^1894^1^0 +"DATA",811.8,180,120,7,1,11,0) +MU HIP FRAC 5.24^1907^1916^1921^1922^1^0 +"DATA",811.8,180,120,7,1,12,0) +MU OBSTETRICS 7.02^1935^2672^2677^2860^1^0 +"DATA",811.8,180,120,7,1,13,0) +MU STK-1 DENOM INCLU TX^2873^2931^2936^2949^1^0 +"DATA",811.8,180,120,7,1,14,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX^2962^2979^2984^2987^1^0 +"DATA",811.8,180,120,7,1,15,0) +MU TABLE 7.01 TX^3000^3593^3598^3745^1^0 +"DATA",811.8,180,120,7,1,16,0) +MU TABLE 8.2 TX^3758^3771^3776^3778^1^0 +"DATA",811.8,180,120,7,1,17,0) +MU STROKE 8.1 TX^3791^3844^3849^3861^1^0 +"DATA",811.8,180,120,8,0) +REMINDER TERM^811.5^35 +"DATA",811.8,180,120,8,1,0) +^811.8021A^35^35 +"DATA",811.8,180,120,8,1,1,0) +MU VTE-6 DENOM TEST ORDERED TRM^3874^3879^3884^3885^1^0 +"DATA",811.8,180,120,8,1,2,0) +MU VTE-6 DENOM VTE PRESENT AT ADMISSION TRM^3898^3903^3908^3909^1^0 +"DATA",811.8,180,120,8,1,3,0) +MU VTE-6 DENOM CONFIRMED DX TRM^3922^3927^3932^3933^1^0 +"DATA",811.8,180,120,8,1,4,0) +MU VTE-6 NO PROPHYLAXIS EXCLU DENOM TRM^3946^3954^3959^3963^1^0 +"DATA",811.8,180,120,8,1,5,0) +MU VTE-6 EXCLU DENOM TRM^3976^3982^3987^3989^1^0 +"DATA",811.8,180,120,8,1,6,0) +MU ADMISSION MVMT TRIAL TRM^4002^4010^4015^4016^1^0 +"DATA",811.8,180,120,8,1,7,0) +MU VTE-6 PROPHYLAXIS GIVEN TRM^4029^4039^4044^4050^1^0 +"DATA",811.8,180,120,8,1,8,0) +MU VTE-5 WARFARIN TRM^4063^4070^4075^4078^1^0 +"DATA",811.8,180,120,8,1,9,0) +MU VTE-5 WARFARIN INSTRUCTION TRM^4091^4100^4105^4110^1^0 +"DATA",811.8,180,120,8,1,10,0) +MU VTE-5 DENOM TEST ORDER TRM^4123^4128^4133^4134^1^0 +"DATA",811.8,180,120,8,1,11,0) +MU VTE-5 DENOM CONFIRMED DX TRM^4147^4152^4157^4158^1^0 +"DATA",811.8,180,120,8,1,12,0) +MU VTE-5 DENOM INCL 7.03 OR 7.04 TX TRM^4171^4177^4182^4184^1^0 +"DATA",811.8,180,120,8,1,13,0) +MU DISCHARGED HOME-HOSPIC CARE^4197^4205^4210^4211^1^0 +"DATA",811.8,180,120,8,1,14,0) +MU DISCHARGED COURT/LAW ^4224^4232^4237^4238^1^0 +"DATA",811.8,180,120,8,1,15,0) +MU DISCHARGED HOME^4251^4259^4264^4265^1^0 +"DATA",811.8,180,120,8,1,16,0) +MU VTE-5 DENOM EXCLU TRM^4278^4283^4288^4289^1^0 +"DATA",811.8,180,120,8,1,17,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE^4302^4310^4315^4316^1^0 +"DATA",811.8,180,120,8,1,18,0) +MU DISCHARGED TRANSFER OUT^4329^4337^4342^4343^1^0 +"DATA",811.8,180,120,8,1,19,0) +MU VTE-4 HEPARIN MED TRM^4356^4364^4369^4373^1^0 +"DATA",811.8,180,120,8,1,20,0) +MU DISCHARGE DEATH^4386^4394^4399^4400^1^0 +"DATA",811.8,180,120,8,1,21,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE^4413^4421^4426^4427^1^0 +"DATA",811.8,180,120,8,1,22,0) +MU VTE-4 DENOM PLT LAB RESULT TRM^4440^4445^4450^4451^1^0 +"DATA",811.8,180,120,8,1,23,0) +MU WARFARIN THERAPY^4464^4470^4475^4477^1^0 +"DATA",811.8,180,120,8,1,24,0) +MU VTE-3 DENOM TX^4490^4496^4501^4503^1^0 +"DATA",811.8,180,120,8,1,25,0) +MU VTE-3 NUMER INR<2 TRM^4516^4523^4528^4529^1^0 +"DATA",811.8,180,120,8,1,26,0) +MU VTE-3 NUMER INR>=2 TRM^4542^4549^4554^4555^1^0 +"DATA",811.8,180,120,8,1,27,0) +MU TPA THERAPY^4568^4575^4580^4583^1^0 +"DATA",811.8,180,120,8,1,28,0) +MU VTE-1 NUMER PROPHYLAXIS TRM^4596^4607^4612^4619^1^0 +"DATA",811.8,180,120,8,1,29,0) +MU VTE-2 DENOM TX TRM^4632^4648^4653^4663^1^0 +"DATA",811.8,180,120,8,1,30,0) +MU VTE-2 DENOM EXCLU HF TRM^4676^4685^4690^4693^1^0 +"DATA",811.8,180,120,8,1,31,0) +MU ADMISSION ICU TRM^4706^4713^4718^4719^1^0 +"DATA",811.8,180,120,8,1,32,0) +MU STK-1 NUMER TRM^4732^4740^4745^4749^1^0 +"DATA",811.8,180,120,8,1,33,0) +MU STK-1 DENOM EXCLU TRM^4762^4772^4777^4781^1^0 +"DATA",811.8,180,120,8,1,34,0) +MU VTE-1 DENOM EXCLU TX TRM^4794^4813^4818^4831^1^0 +"DATA",811.8,180,120,8,1,35,0) +MU VTE-1 DENOM EXCLU HF TRM^4844^4852^4857^4859^1^0 +"DATA",811.8,180,120,9,0) +REMINDER DEFINITION^811.9^12 +"DATA",811.8,180,120,9,1,0) +^811.8021A^12^12 +"DATA",811.8,180,120,9,1,1,0) +MU VTE-6 DENOM CR^4872^4958^4963^4988^1^0 +"DATA",811.8,180,120,9,1,2,0) +MU VTE-6 NUMER CR^5001^5101^5106^5137^1^0 +"DATA",811.8,180,120,9,1,3,0) +MU VTE-5 DENOM CR^5150^5232^5237^5260^1^0 +"DATA",811.8,180,120,9,1,4,0) +MU VTE-5 NUMER CR^5273^5356^5361^5384^1^0 +"DATA",811.8,180,120,9,1,5,0) +MU VTE-4 DENOM CR^5397^5469^5474^5492^1^0 +"DATA",811.8,180,120,9,1,6,0) +MU VTE-4 NUMER CR^5505^5580^5585^5604^1^0 +"DATA",811.8,180,120,9,1,7,0) +MU VTE-3 DENOM CR^5617^5682^5687^5702^1^0 +"DATA",811.8,180,120,9,1,8,0) +MU VTE-3 NUMER CR^5715^5805^5810^5834^1^0 +"DATA",811.8,180,120,9,1,9,0) +MU VTE-2 NUMER CR^5847^5968^5973^6019^1^0 +"DATA",811.8,180,120,9,1,10,0) +MU VTE-2 DENOM CR^6032^6150^6155^6200^1^0 +"DATA",811.8,180,120,9,1,11,0) +MU STK-1 NUMER CR^6213^6305^6310^6340^1^0 +"DATA",811.8,180,120,9,1,12,0) +MU VTE-1 DENOM CR^6353^6421^6426^6444^1^0 +"DATA",811.8,180,120,10,0) +REMINDER LIST RULE^810.4^24 +"DATA",811.8,180,120,10,1,0) +^811.8021A^24^24 +"DATA",811.8,180,120,10,1,1,0) +MU VTE-6 DENOM RR^6457^6463^6468^6468^1^0 +"DATA",811.8,180,120,10,1,2,0) +MU VTE-6 DENOM RS^6481^6489^6494^6495^1^1 +"DATA",811.8,180,120,10,1,3,0) +MU VTE-6 NUMER RR^6508^6514^6519^6519^1^0 +"DATA",811.8,180,120,10,1,4,0) +MU VTE-6 NUMER RS^6532^6540^6545^6546^1^1 +"DATA",811.8,180,120,10,1,5,0) +MU VTE-5 DENOM RR^6559^6565^6570^6570^1^0 +"DATA",811.8,180,120,10,1,6,0) +MU VTE-5 DENOM RS^6583^6591^6596^6597^1^1 +"DATA",811.8,180,120,10,1,7,0) +MU VTE-5 NUMER RR^6610^6616^6621^6621^1^0 +"DATA",811.8,180,120,10,1,8,0) +MU VTE-5 NUMER RS^6634^6642^6647^6648^1^1 +"DATA",811.8,180,120,10,1,9,0) +MU VTE-4 DENOM RR^6661^6667^6672^6672^1^0 +"DATA",811.8,180,120,10,1,10,0) +MU VTE-4 DENOM RS^6685^6693^6698^6699^1^1 +"DATA",811.8,180,120,10,1,11,0) +MU VTE-4 NUMER RR^6712^6718^6723^6723^1^0 +"DATA",811.8,180,120,10,1,12,0) +MU VTE-4 NUMER RS^6736^6744^6749^6750^1^1 +"DATA",811.8,180,120,10,1,13,0) +MU VTE-3 DENOM RR^6763^6769^6774^6774^1^0 +"DATA",811.8,180,120,10,1,14,0) +MU VTE-3 DENOM RS^6787^6795^6800^6801^1^1 +"DATA",811.8,180,120,10,1,15,0) +MU VTE-3 NUMER RR^6814^6820^6825^6825^1^0 +"DATA",811.8,180,120,10,1,16,0) +MU VTE-3 NUMER RS^6838^6846^6851^6852^1^1 +"DATA",811.8,180,120,10,1,17,0) +MU VTE-2 NUMER RR^6865^6871^6876^6876^1^0 +"DATA",811.8,180,120,10,1,18,0) +MU VTE-2 NUMER RS^6889^6897^6902^6903^1^1 +"DATA",811.8,180,120,10,1,19,0) +MU VTE-2 DENOM RR^6916^6922^6927^6927^1^0 +"DATA",811.8,180,120,10,1,20,0) +MU VTE-2 DENOM RS^6940^6948^6953^6954^1^1 +"DATA",811.8,180,120,10,1,21,0) +MU STK-1 NUMER RR^6967^6973^6978^6978^1^0 +"DATA",811.8,180,120,10,1,22,0) +MU VTE-1 NUMER RS^6991^6999^7004^7005^1^1 +"DATA",811.8,180,120,10,1,23,0) +MU VTE-1 DENOM RR^7018^7024^7029^7029^1^0 +"DATA",811.8,180,120,10,1,24,0) +MU VTE-1 DENOM RS^7042^7050^7055^7056^1^1 +"DATA",811.8,184,0) +MU NQF0038 CHILD IMM SMH^MANAGER,SYS at VOE OFFICE INSTITUTION OLD^3120727.174833 +"DATA",811.8,184,100,1,0) + +"DATA",811.8,184,100,2,0) + +"DATA",811.8,184,100,3,0) +2.0P17 +"DATA",811.8,184,100,4,0) +5042 +"DATA",811.8,184,100,5,0) + +"DATA",811.8,184,100,6,0) +MU NQF0038 CHILD IMM SMH +"DATA",811.8,184,100,7,0) +MANAGER,SYS +"DATA",811.8,184,100,8,0) +VOE OFFICE INSTITUTION OLD +"DATA",811.8,184,100,9,0) +07/27/2012@17:48:33 +"DATA",811.8,184,100,10,0) + +"DATA",811.8,184,100,11,0) + +"DATA",811.8,184,100,15,0) + +"DATA",811.8,184,100,16,0) +MU +"DATA",811.8,184,100,17,0) +NQF0038 +"DATA",811.8,184,100,18,0) +IMMUNIZATION +"DATA",811.8,184,100,19,0) +IMMUNIZATIONS +"DATA",811.8,184,100,20,0) +CHILDREN +"DATA",811.8,184,100,21,0) + +"DATA",811.8,184,100,22,0) + +"DATA",811.8,184,100,23,0) +PXRMART +"DATA",811.8,184,100,24,0) +2296482722 +"DATA",811.8,184,100,25,0) + +"DATA",811.8,184,100,26,0) +EDT) +"DATA",811.8,184,100,48,0) + .S NFOUND=NFOUND+1,TEST(NFOUND)=1,DATE(NFOUND)=EDATE +"DATA",811.8,184,100,49,0) + .S DATA(NFOUND,"REACTANT")=$P(GMRAR0,U,2) +"DATA",811.8,184,100,50,0) + .S TEXT(NFOUND)="Documented reaction "_$S(SUB="API":"that includes the ingredient ",1:"to an agent in class ")_$S(SUB="APC":ITEM,1:$P(^PS(50.416,ITEM,0),U))_", reactant was: "_DATA(NFOUND,"REACTANT")_"." +"DATA",811.8,184,100,51,0) + Q +"DATA",811.8,184,100,52,0) +]]> +"DATA",811.8,184,100,53,0) + +"DATA",811.8,184,100,54,0) + +"DATA",811.8,184,100,55,0) + +"DATA",811.8,184,100,56,0) +IMMUNIZATION +"DATA",811.8,184,100,57,0) +9999999.14 +"DATA",811.8,184,100,58,0) +HEP A1 PEDS +"DATA",811.8,184,100,59,0) +127 +"DATA",811.8,184,100,60,0) +927519080 +"DATA",811.8,184,100,61,0) +NO +"DATA",811.8,184,100,62,0) + +"DATA",811.8,184,100,63,0) + +"DATA",811.8,184,100,68,0) + +"DATA",811.8,184,100,69,0) + +"DATA",811.8,184,100,70,0) + +"DATA",811.8,184,100,71,0) +IMMUNIZATION +"DATA",811.8,184,100,72,0) +9999999.14 +"DATA",811.8,184,100,73,0) +HEP A2 PEDS +"DATA",811.8,184,100,74,0) +126 +"DATA",811.8,184,100,75,0) +4257862200 +"DATA",811.8,184,100,76,0) +NO +"DATA",811.8,184,100,77,0) + +"DATA",811.8,184,100,78,0) + +"DATA",811.8,184,100,83,0) + +"DATA",811.8,184,100,84,0) + +"DATA",811.8,184,100,85,0) + +"DATA",811.8,184,100,86,0) +IMMUNIZATION +"DATA",811.8,184,100,87,0) +9999999.14 +"DATA",811.8,184,100,88,0) +INFLUENZA +"DATA",811.8,184,100,89,0) +12 +"DATA",811.8,184,100,90,0) +1066305499 +"DATA",811.8,184,100,91,0) +NO +"DATA",811.8,184,100,92,0) + +"DATA",811.8,184,100,93,0) + +"DATA",811.8,184,100,98,0) + +"DATA",811.8,184,100,99,0) + +"DATA",811.8,184,100,100,0) + +"DATA",811.8,184,100,101,0) +IMMUNIZATION +"DATA",811.8,184,100,102,0) +9999999.14 +"DATA",811.8,184,100,103,0) +RV 1 PEDS +"DATA",811.8,184,100,104,0) +111 +"DATA",811.8,184,100,105,0) +1606904587 +"DATA",811.8,184,100,106,0) +NO +"DATA",811.8,184,100,107,0) + +"DATA",811.8,184,100,108,0) + +"DATA",811.8,184,100,113,0) + +"DATA",811.8,184,100,114,0) + +"DATA",811.8,184,100,115,0) + +"DATA",811.8,184,100,116,0) +IMMUNIZATION +"DATA",811.8,184,100,117,0) +9999999.14 +"DATA",811.8,184,100,118,0) +RV 2 PEDS +"DATA",811.8,184,100,119,0) +110 +"DATA",811.8,184,100,120,0) +1005051806 +"DATA",811.8,184,100,121,0) +NO +"DATA",811.8,184,100,122,0) + +"DATA",811.8,184,100,123,0) + +"DATA",811.8,184,100,128,0) + +"DATA",811.8,184,100,129,0) + +"DATA",811.8,184,100,130,0) + +"DATA",811.8,184,100,131,0) +IMMUNIZATION +"DATA",811.8,184,100,132,0) +9999999.14 +"DATA",811.8,184,100,133,0) +RV 3 PEDS +"DATA",811.8,184,100,134,0) +109 +"DATA",811.8,184,100,135,0) +403157997 +"DATA",811.8,184,100,136,0) +NO +"DATA",811.8,184,100,137,0) + +"DATA",811.8,184,100,138,0) + +"DATA",811.8,184,100,143,0) + +"DATA",811.8,184,100,144,0) + +"DATA",811.8,184,100,145,0) + +"DATA",811.8,184,100,146,0) +IMMUNIZATION +"DATA",811.8,184,100,147,0) +9999999.14 +"DATA",811.8,184,100,148,0) +HiB1 +"DATA",811.8,184,100,149,0) +125 +"DATA",811.8,184,100,150,0) +7813003 +"DATA",811.8,184,100,151,0) +NO +"DATA",811.8,184,100,152,0) + +"DATA",811.8,184,100,153,0) + +"DATA",811.8,184,100,158,0) + +"DATA",811.8,184,100,159,0) + +"DATA",811.8,184,100,160,0) + +"DATA",811.8,184,100,161,0) +IMMUNIZATION +"DATA",811.8,184,100,162,0) +9999999.14 +"DATA",811.8,184,100,163,0) +HIB PED 1 +"DATA",811.8,184,100,164,0) +75 +"DATA",811.8,184,100,165,0) +4192694622 +"DATA",811.8,184,100,166,0) +NO +"DATA",811.8,184,100,167,0) + +"DATA",811.8,184,100,168,0) + +"DATA",811.8,184,100,172,0) + +"DATA",811.8,184,100,173,0) + +"DATA",811.8,184,100,174,0) + +"DATA",811.8,184,100,175,0) +IMMUNIZATION +"DATA",811.8,184,100,176,0) +9999999.14 +"DATA",811.8,184,100,177,0) +HiB2 +"DATA",811.8,184,100,178,0) +124 +"DATA",811.8,184,100,179,0) +1144614947 +"DATA",811.8,184,100,180,0) +NO +"DATA",811.8,184,100,181,0) + +"DATA",811.8,184,100,182,0) + +"DATA",811.8,184,100,187,0) + +"DATA",811.8,184,100,188,0) + +"DATA",811.8,184,100,189,0) + +"DATA",811.8,184,100,190,0) +IMMUNIZATION +"DATA",811.8,184,100,191,0) +9999999.14 +"DATA",811.8,184,100,192,0) +HIB PED 2 +"DATA",811.8,184,100,193,0) +76 +"DATA",811.8,184,100,194,0) +3477564718 +"DATA",811.8,184,100,195,0) +NO +"DATA",811.8,184,100,196,0) + +"DATA",811.8,184,100,197,0) + +"DATA",811.8,184,100,201,0) + +"DATA",811.8,184,100,202,0) + +"DATA",811.8,184,100,203,0) + +"DATA",811.8,184,100,204,0) +IMMUNIZATION +"DATA",811.8,184,100,205,0) +9999999.14 +"DATA",811.8,184,100,206,0) +HiB3 +"DATA",811.8,184,100,207,0) +123 +"DATA",811.8,184,100,208,0) +3469979780 +"DATA",811.8,184,100,209,0) +NO +"DATA",811.8,184,100,210,0) + +"DATA",811.8,184,100,211,0) + +"DATA",811.8,184,100,216,0) + +"DATA",811.8,184,100,217,0) + +"DATA",811.8,184,100,218,0) + +"DATA",811.8,184,100,219,0) +IMMUNIZATION +"DATA",811.8,184,100,220,0) +9999999.14 +"DATA",811.8,184,100,221,0) +HIB PED 3 +"DATA",811.8,184,100,222,0) +77 +"DATA",811.8,184,100,223,0) +3710347006 +"DATA",811.8,184,100,224,0) +NO +"DATA",811.8,184,100,225,0) + +"DATA",811.8,184,100,226,0) + +"DATA",811.8,184,100,230,0) + +"DATA",811.8,184,100,231,0) + +"DATA",811.8,184,100,232,0) + +"DATA",811.8,184,100,233,0) +IMMUNIZATION +"DATA",811.8,184,100,234,0) +9999999.14 +"DATA",811.8,184,100,235,0) +PCV1 PEDS +"DATA",811.8,184,100,236,0) +116 +"DATA",811.8,184,100,237,0) +2783926850 +"DATA",811.8,184,100,238,0) +NO +"DATA",811.8,184,100,239,0) + +"DATA",811.8,184,100,240,0) + +"DATA",811.8,184,100,245,0) + +"DATA",811.8,184,100,246,0) + +"DATA",811.8,184,100,247,0) + +"DATA",811.8,184,100,248,0) +IMMUNIZATION +"DATA",811.8,184,100,249,0) +9999999.14 +"DATA",811.8,184,100,250,0) +PCV2 PEDS +"DATA",811.8,184,100,251,0) +115 +"DATA",811.8,184,100,252,0) +1606218315 +"DATA",811.8,184,100,253,0) +NO +"DATA",811.8,184,100,254,0) + +"DATA",811.8,184,100,255,0) + +"DATA",811.8,184,100,260,0) + +"DATA",811.8,184,100,261,0) + +"DATA",811.8,184,100,262,0) + +"DATA",811.8,184,100,263,0) +IMMUNIZATION +"DATA",811.8,184,100,264,0) +9999999.14 +"DATA",811.8,184,100,265,0) +PCV3 PEDS +"DATA",811.8,184,100,266,0) +114 +"DATA",811.8,184,100,267,0) +3210569843 +"DATA",811.8,184,100,268,0) +NO +"DATA",811.8,184,100,269,0) + +"DATA",811.8,184,100,270,0) + +"DATA",811.8,184,100,275,0) + +"DATA",811.8,184,100,276,0) + +"DATA",811.8,184,100,277,0) + +"DATA",811.8,184,100,278,0) +IMMUNIZATION +"DATA",811.8,184,100,279,0) +9999999.14 +"DATA",811.8,184,100,280,0) +PCV4 PEDS +"DATA",811.8,184,100,281,0) +113 +"DATA",811.8,184,100,282,0) +1886037016 +"DATA",811.8,184,100,283,0) +NO +"DATA",811.8,184,100,284,0) + +"DATA",811.8,184,100,285,0) + +"DATA",811.8,184,100,290,0) + +"DATA",811.8,184,100,291,0) + +"DATA",811.8,184,100,292,0) + +"DATA",811.8,184,100,293,0) +IMMUNIZATION +"DATA",811.8,184,100,294,0) +9999999.14 +"DATA",811.8,184,100,295,0) +PCV5 PEDS +"DATA",811.8,184,100,296,0) +112 +"DATA",811.8,184,100,297,0) +2425044512 +"DATA",811.8,184,100,298,0) +NO +"DATA",811.8,184,100,299,0) + +"DATA",811.8,184,100,300,0) + +"DATA",811.8,184,100,305,0) + +"DATA",811.8,184,100,306,0) + +"DATA",811.8,184,100,307,0) + +"DATA",811.8,184,100,308,0) +IMMUNIZATION +"DATA",811.8,184,100,309,0) +9999999.14 +"DATA",811.8,184,100,310,0) +VZV1 INFANT +"DATA",811.8,184,100,311,0) +118 +"DATA",811.8,184,100,312,0) +3905126325 +"DATA",811.8,184,100,313,0) +NO +"DATA",811.8,184,100,314,0) + +"DATA",811.8,184,100,315,0) + +"DATA",811.8,184,100,320,0) + +"DATA",811.8,184,100,321,0) + +"DATA",811.8,184,100,322,0) + +"DATA",811.8,184,100,323,0) +IMMUNIZATION +"DATA",811.8,184,100,324,0) +9999999.14 +"DATA",811.8,184,100,325,0) +VZV2 INFANT +"DATA",811.8,184,100,326,0) +117 +"DATA",811.8,184,100,327,0) +574782693 +"DATA",811.8,184,100,328,0) +NO +"DATA",811.8,184,100,329,0) + +"DATA",811.8,184,100,330,0) + +"DATA",811.8,184,100,335,0) + +"DATA",811.8,184,100,336,0) + +"DATA",811.8,184,100,337,0) + +"DATA",811.8,184,100,338,0) +IMMUNIZATION +"DATA",811.8,184,100,339,0) +9999999.14 +"DATA",811.8,184,100,340,0) +HEP B1 INFANT +"DATA",811.8,184,100,341,0) +122 +"DATA",811.8,184,100,342,0) +941135617 +"DATA",811.8,184,100,343,0) +NO +"DATA",811.8,184,100,344,0) + +"DATA",811.8,184,100,345,0) + +"DATA",811.8,184,100,350,0) + +"DATA",811.8,184,100,351,0) + +"DATA",811.8,184,100,352,0) + +"DATA",811.8,184,100,353,0) +IMMUNIZATION +"DATA",811.8,184,100,354,0) +9999999.14 +"DATA",811.8,184,100,355,0) +HEP B2 INFANT +"DATA",811.8,184,100,356,0) +121 +"DATA",811.8,184,100,357,0) +3638835454 +"DATA",811.8,184,100,358,0) +NO +"DATA",811.8,184,100,359,0) + +"DATA",811.8,184,100,360,0) + +"DATA",811.8,184,100,365,0) + +"DATA",811.8,184,100,366,0) + +"DATA",811.8,184,100,367,0) + +"DATA",811.8,184,100,368,0) +IMMUNIZATION +"DATA",811.8,184,100,369,0) +9999999.14 +"DATA",811.8,184,100,370,0) +HEP B3 INFANT +"DATA",811.8,184,100,371,0) +120 +"DATA",811.8,184,100,372,0) +832528276 +"DATA",811.8,184,100,373,0) +NO +"DATA",811.8,184,100,374,0) + +"DATA",811.8,184,100,375,0) + +"DATA",811.8,184,100,380,0) + +"DATA",811.8,184,100,381,0) + +"DATA",811.8,184,100,382,0) + +"DATA",811.8,184,100,383,0) +IMMUNIZATION +"DATA",811.8,184,100,384,0) +9999999.14 +"DATA",811.8,184,100,385,0) +HEP B4 INFANT +"DATA",811.8,184,100,386,0) +119 +"DATA",811.8,184,100,387,0) +3261882689 +"DATA",811.8,184,100,388,0) +NO +"DATA",811.8,184,100,389,0) + +"DATA",811.8,184,100,390,0) + +"DATA",811.8,184,100,395,0) + +"DATA",811.8,184,100,396,0) + +"DATA",811.8,184,100,397,0) + +"DATA",811.8,184,100,398,0) +IMMUNIZATION +"DATA",811.8,184,100,399,0) +9999999.14 +"DATA",811.8,184,100,400,0) +MMR1 +"DATA",811.8,184,100,401,0) +104 +"DATA",811.8,184,100,402,0) +2294276969 +"DATA",811.8,184,100,403,0) +NO +"DATA",811.8,184,100,404,0) + +"DATA",811.8,184,100,405,0) + +"DATA",811.8,184,100,410,0) + +"DATA",811.8,184,100,411,0) + +"DATA",811.8,184,100,412,0) + +"DATA",811.8,184,100,413,0) +IMMUNIZATION +"DATA",811.8,184,100,414,0) +9999999.14 +"DATA",811.8,184,100,415,0) +RUBELLA +"DATA",811.8,184,100,416,0) +14 +"DATA",811.8,184,100,417,0) +3044597882 +"DATA",811.8,184,100,418,0) +NO +"DATA",811.8,184,100,419,0) + +"DATA",811.8,184,100,420,0) + +"DATA",811.8,184,100,424,0) + +"DATA",811.8,184,100,425,0) + +"DATA",811.8,184,100,426,0) + +"DATA",811.8,184,100,427,0) +IMMUNIZATION +"DATA",811.8,184,100,428,0) +9999999.14 +"DATA",811.8,184,100,429,0) +MEASLES +"DATA",811.8,184,100,430,0) +11 +"DATA",811.8,184,100,431,0) +2800376681 +"DATA",811.8,184,100,432,0) +NO +"DATA",811.8,184,100,433,0) + +"DATA",811.8,184,100,434,0) + +"DATA",811.8,184,100,438,0) + +"DATA",811.8,184,100,439,0) + +"DATA",811.8,184,100,440,0) + +"DATA",811.8,184,100,441,0) +IMMUNIZATION +"DATA",811.8,184,100,442,0) +9999999.14 +"DATA",811.8,184,100,443,0) +MUMPS +"DATA",811.8,184,100,444,0) +15 +"DATA",811.8,184,100,445,0) +1224561516 +"DATA",811.8,184,100,446,0) +NO +"DATA",811.8,184,100,447,0) + +"DATA",811.8,184,100,448,0) + +"DATA",811.8,184,100,453,0) + +"DATA",811.8,184,100,454,0) + +"DATA",811.8,184,100,455,0) + +"DATA",811.8,184,100,456,0) +IMMUNIZATION +"DATA",811.8,184,100,457,0) +9999999.14 +"DATA",811.8,184,100,458,0) +IPV1 +"DATA",811.8,184,100,459,0) +108 +"DATA",811.8,184,100,460,0) +4240221679 +"DATA",811.8,184,100,461,0) +NO +"DATA",811.8,184,100,462,0) + +"DATA",811.8,184,100,463,0) + +"DATA",811.8,184,100,468,0) + +"DATA",811.8,184,100,469,0) + +"DATA",811.8,184,100,470,0) + +"DATA",811.8,184,100,471,0) +IMMUNIZATION +"DATA",811.8,184,100,472,0) +9999999.14 +"DATA",811.8,184,100,473,0) +IPV2 +"DATA",811.8,184,100,474,0) +107 +"DATA",811.8,184,100,475,0) +3102925383 +"DATA",811.8,184,100,476,0) +NO +"DATA",811.8,184,100,477,0) + +"DATA",811.8,184,100,478,0) + +"DATA",811.8,184,100,483,0) + +"DATA",811.8,184,100,484,0) + +"DATA",811.8,184,100,485,0) + +"DATA",811.8,184,100,486,0) +IMMUNIZATION +"DATA",811.8,184,100,487,0) +9999999.14 +"DATA",811.8,184,100,488,0) +IPV3 +"DATA",811.8,184,100,489,0) +106 +"DATA",811.8,184,100,490,0) +840442592 +"DATA",811.8,184,100,491,0) +NO +"DATA",811.8,184,100,492,0) + +"DATA",811.8,184,100,493,0) + +"DATA",811.8,184,100,498,0) + +"DATA",811.8,184,100,499,0) + +"DATA",811.8,184,100,500,0) + +"DATA",811.8,184,100,501,0) +IMMUNIZATION +"DATA",811.8,184,100,502,0) +9999999.14 +"DATA",811.8,184,100,503,0) +IPV4 +"DATA",811.8,184,100,504,0) +105 +"DATA",811.8,184,100,505,0) +812543255 +"DATA",811.8,184,100,506,0) +NO +"DATA",811.8,184,100,507,0) + +"DATA",811.8,184,100,508,0) + +"DATA",811.8,184,100,513,0) + +"DATA",811.8,184,100,514,0) + +"DATA",811.8,184,100,515,0) + +"DATA",811.8,184,100,516,0) +IMMUNIZATION +"DATA",811.8,184,100,517,0) +9999999.14 +"DATA",811.8,184,100,518,0) +DTaP1 +"DATA",811.8,184,100,519,0) +103 +"DATA",811.8,184,100,520,0) +193659471 +"DATA",811.8,184,100,521,0) +NO +"DATA",811.8,184,100,522,0) + +"DATA",811.8,184,100,523,0) + +"DATA",811.8,184,100,528,0) + +"DATA",811.8,184,100,529,0) + +"DATA",811.8,184,100,530,0) + +"DATA",811.8,184,100,531,0) +IMMUNIZATION +"DATA",811.8,184,100,532,0) +9999999.14 +"DATA",811.8,184,100,533,0) +DTaP2 +"DATA",811.8,184,100,534,0) +102 +"DATA",811.8,184,100,535,0) +2844821668 +"DATA",811.8,184,100,536,0) +NO +"DATA",811.8,184,100,537,0) + +"DATA",811.8,184,100,538,0) + +"DATA",811.8,184,100,543,0) + +"DATA",811.8,184,100,544,0) + +"DATA",811.8,184,100,545,0) + +"DATA",811.8,184,100,546,0) +IMMUNIZATION +"DATA",811.8,184,100,547,0) +9999999.14 +"DATA",811.8,184,100,548,0) +DTaP3 +"DATA",811.8,184,100,549,0) +101 +"DATA",811.8,184,100,550,0) +3362131709 +"DATA",811.8,184,100,551,0) +NO +"DATA",811.8,184,100,552,0) + +"DATA",811.8,184,100,553,0) + +"DATA",811.8,184,100,558,0) + +"DATA",811.8,184,100,559,0) + +"DATA",811.8,184,100,560,0) + +"DATA",811.8,184,100,561,0) +IMMUNIZATION +"DATA",811.8,184,100,562,0) +9999999.14 +"DATA",811.8,184,100,563,0) +DTaP4 +"DATA",811.8,184,100,564,0) +100 +"DATA",811.8,184,100,565,0) +920034099 +"DATA",811.8,184,100,566,0) +NO +"DATA",811.8,184,100,567,0) + +"DATA",811.8,184,100,568,0) + +"DATA",811.8,184,100,573,0) + +"DATA",811.8,184,100,574,0) + +"DATA",811.8,184,100,575,0) + +"DATA",811.8,184,100,576,0) +IMMUNIZATION +"DATA",811.8,184,100,577,0) +9999999.14 +"DATA",811.8,184,100,578,0) +DTaP5 +"DATA",811.8,184,100,579,0) +99 +"DATA",811.8,184,100,580,0) +1461722474 +"DATA",811.8,184,100,581,0) +NO +"DATA",811.8,184,100,582,0) + +"DATA",811.8,184,100,583,0) + +"DATA",811.8,184,100,588,0) + +"DATA",811.8,184,100,589,0) + +"DATA",811.8,184,100,590,0) + +"DATA",811.8,184,100,591,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,184,100,592,0) +811.4 +"DATA",811.8,184,100,593,0) +VA-ALLERGY +"DATA",811.8,184,100,594,0) +33 +"DATA",811.8,184,100,595,0) +1409719351 +"DATA",811.8,184,100,596,0) +NO +"DATA",811.8,184,100,597,0) + +"DATA",811.8,184,100,598,0) + +"DATA",811.8,184,100,620,0) + +"DATA",811.8,184,100,621,0) + +"DATA",811.8,184,100,622,0) + +"DATA",811.8,184,100,625,0) + +"DATA",811.8,184,100,626,0) + +"DATA",811.8,184,100,627,0) + +"DATA",811.8,184,100,628,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,629,0) +811.2 +"DATA",811.8,184,100,630,0) +MU NQF0038 NUM8 HEP A DX INCL +"DATA",811.8,184,100,631,0) +117 +"DATA",811.8,184,100,632,0) +1376651763 +"DATA",811.8,184,100,633,0) +NO +"DATA",811.8,184,100,634,0) + +"DATA",811.8,184,100,635,0) + +"DATA",811.8,184,100,647,0) + +"DATA",811.8,184,100,648,0) + +"DATA",811.8,184,100,649,0) + +"DATA",811.8,184,100,653,0) + +"DATA",811.8,184,100,654,0) + +"DATA",811.8,184,100,655,0) + +"DATA",811.8,184,100,656,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,657,0) +811.2 +"DATA",811.8,184,100,658,0) +MU NQF0038 DENOM EM INC +"DATA",811.8,184,100,659,0) +84 +"DATA",811.8,184,100,660,0) +3780355051 +"DATA",811.8,184,100,661,0) +NO +"DATA",811.8,184,100,662,0) + +"DATA",811.8,184,100,663,0) + +"DATA",811.8,184,100,750,0) + +"DATA",811.8,184,100,751,0) + +"DATA",811.8,184,100,752,0) + +"DATA",811.8,184,100,778,0) + +"DATA",811.8,184,100,779,0) + +"DATA",811.8,184,100,780,0) + +"DATA",811.8,184,100,781,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,782,0) +811.2 +"DATA",811.8,184,100,783,0) +MU NQF0038 NUM DX ACTIVE +"DATA",811.8,184,100,784,0) +98 +"DATA",811.8,184,100,785,0) +139402715 +"DATA",811.8,184,100,786,0) +NO +"DATA",811.8,184,100,787,0) + +"DATA",811.8,184,100,788,0) + +"DATA",811.8,184,100,839,0) + +"DATA",811.8,184,100,840,0) + +"DATA",811.8,184,100,841,0) + +"DATA",811.8,184,100,856,0) + +"DATA",811.8,184,100,857,0) + +"DATA",811.8,184,100,858,0) + +"DATA",811.8,184,100,859,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,860,0) +811.2 +"DATA",811.8,184,100,861,0) +MU NQF0038 NUM INACTIVE DX +"DATA",811.8,184,100,862,0) +97 +"DATA",811.8,184,100,863,0) +4035522147 +"DATA",811.8,184,100,864,0) +NO +"DATA",811.8,184,100,865,0) + +"DATA",811.8,184,100,866,0) + +"DATA",811.8,184,100,886,0) + +"DATA",811.8,184,100,887,0) + +"DATA",811.8,184,100,888,0) + +"DATA",811.8,184,100,894,0) + +"DATA",811.8,184,100,895,0) + +"DATA",811.8,184,100,896,0) + +"DATA",811.8,184,100,897,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,898,0) +811.2 +"DATA",811.8,184,100,899,0) +MU NQF0038 DENOM EM +"DATA",811.8,184,100,900,0) +114 +"DATA",811.8,184,100,901,0) +3289594443 +"DATA",811.8,184,100,902,0) +NO +"DATA",811.8,184,100,903,0) + +"DATA",811.8,184,100,904,0) + +"DATA",811.8,184,100,991,0) + +"DATA",811.8,184,100,992,0) + +"DATA",811.8,184,100,993,0) + +"DATA",811.8,184,100,1019,0) + +"DATA",811.8,184,100,1020,0) + +"DATA",811.8,184,100,1021,0) + +"DATA",811.8,184,100,1022,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1023,0) +811.2 +"DATA",811.8,184,100,1024,0) +MU NQF0038 NUM6 VZV DX INCL +"DATA",811.8,184,100,1025,0) +115 +"DATA",811.8,184,100,1026,0) +3442348359 +"DATA",811.8,184,100,1027,0) +NO +"DATA",811.8,184,100,1028,0) + +"DATA",811.8,184,100,1029,0) + +"DATA",811.8,184,100,1045,0) + +"DATA",811.8,184,100,1046,0) + +"DATA",811.8,184,100,1047,0) + +"DATA",811.8,184,100,1052,0) + +"DATA",811.8,184,100,1053,0) + +"DATA",811.8,184,100,1054,0) + +"DATA",811.8,184,100,1055,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1056,0) +811.2 +"DATA",811.8,184,100,1057,0) +MU NQF0038 NUM5 HEP_B DX INCL +"DATA",811.8,184,100,1058,0) +116 +"DATA",811.8,184,100,1059,0) +2918325169 +"DATA",811.8,184,100,1060,0) +NO +"DATA",811.8,184,100,1061,0) + +"DATA",811.8,184,100,1062,0) + +"DATA",811.8,184,100,1076,0) + +"DATA",811.8,184,100,1077,0) + +"DATA",811.8,184,100,1078,0) + +"DATA",811.8,184,100,1083,0) + +"DATA",811.8,184,100,1084,0) + +"DATA",811.8,184,100,1085,0) + +"DATA",811.8,184,100,1086,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1087,0) +811.2 +"DATA",811.8,184,100,1088,0) +MU NQF0038 NUM3 RUBELLA DX EXCLU +"DATA",811.8,184,100,1089,0) +99 +"DATA",811.8,184,100,1090,0) +1905176477 +"DATA",811.8,184,100,1091,0) +NO +"DATA",811.8,184,100,1092,0) + +"DATA",811.8,184,100,1093,0) + +"DATA",811.8,184,100,1105,0) + +"DATA",811.8,184,100,1106,0) + +"DATA",811.8,184,100,1107,0) + +"DATA",811.8,184,100,1111,0) + +"DATA",811.8,184,100,1112,0) + +"DATA",811.8,184,100,1113,0) + +"DATA",811.8,184,100,1114,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1115,0) +811.2 +"DATA",811.8,184,100,1116,0) +MU NQF0038 NUM3 MEASLES DX EXCLU +"DATA",811.8,184,100,1117,0) +90 +"DATA",811.8,184,100,1118,0) +376855565 +"DATA",811.8,184,100,1119,0) +NO +"DATA",811.8,184,100,1120,0) + +"DATA",811.8,184,100,1121,0) + +"DATA",811.8,184,100,1133,0) + +"DATA",811.8,184,100,1134,0) + +"DATA",811.8,184,100,1135,0) + +"DATA",811.8,184,100,1139,0) + +"DATA",811.8,184,100,1140,0) + +"DATA",811.8,184,100,1141,0) + +"DATA",811.8,184,100,1142,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1143,0) +811.2 +"DATA",811.8,184,100,1144,0) +MU NQF0038 NUM3 MUMPS DX EXCLU +"DATA",811.8,184,100,1145,0) +96 +"DATA",811.8,184,100,1146,0) +2263019396 +"DATA",811.8,184,100,1147,0) +NO +"DATA",811.8,184,100,1148,0) + +"DATA",811.8,184,100,1149,0) + +"DATA",811.8,184,100,1161,0) + +"DATA",811.8,184,100,1162,0) + +"DATA",811.8,184,100,1163,0) + +"DATA",811.8,184,100,1167,0) + +"DATA",811.8,184,100,1168,0) + +"DATA",811.8,184,100,1169,0) + +"DATA",811.8,184,100,1170,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1171,0) +811.2 +"DATA",811.8,184,100,1172,0) +MU NQF0038 DTAP ICD EXCLU +"DATA",811.8,184,100,1173,0) +95 +"DATA",811.8,184,100,1174,0) +599321582 +"DATA",811.8,184,100,1175,0) +NO +"DATA",811.8,184,100,1176,0) + +"DATA",811.8,184,100,1177,0) + +"DATA",811.8,184,100,1186,0) + +"DATA",811.8,184,100,1187,0) + +"DATA",811.8,184,100,1188,0) + +"DATA",811.8,184,100,1192,0) + +"DATA",811.8,184,100,1193,0) + +"DATA",811.8,184,100,1194,0) + +"DATA",811.8,184,100,1195,0) +REMINDER TERM +"DATA",811.8,184,100,1196,0) +811.5 +"DATA",811.8,184,100,1197,0) +MU NQF0038 NUM8 ALLERGY EXCLU +"DATA",811.8,184,100,1198,0) +616 +"DATA",811.8,184,100,1199,0) +4252892369 +"DATA",811.8,184,100,1200,0) +NO +"DATA",811.8,184,100,1201,0) + +"DATA",811.8,184,100,1202,0) + +"DATA",811.8,184,100,1212,0) + +"DATA",811.8,184,100,1213,0) + +"DATA",811.8,184,100,1214,0) + +"DATA",811.8,184,100,1218,0) + +"DATA",811.8,184,100,1219,0) + +"DATA",811.8,184,100,1220,0) + +"DATA",811.8,184,100,1221,0) +REMINDER TERM +"DATA",811.8,184,100,1222,0) +811.5 +"DATA",811.8,184,100,1223,0) +MU NQF0038 NUM8 HEPA1 +"DATA",811.8,184,100,1224,0) +622 +"DATA",811.8,184,100,1225,0) +2422143598 +"DATA",811.8,184,100,1226,0) +NO +"DATA",811.8,184,100,1227,0) + +"DATA",811.8,184,100,1228,0) + +"DATA",811.8,184,100,1237,0) + +"DATA",811.8,184,100,1238,0) + +"DATA",811.8,184,100,1239,0) + +"DATA",811.8,184,100,1243,0) + +"DATA",811.8,184,100,1244,0) + +"DATA",811.8,184,100,1245,0) + +"DATA",811.8,184,100,1246,0) +REMINDER TERM +"DATA",811.8,184,100,1247,0) +811.5 +"DATA",811.8,184,100,1248,0) +MU NQF0038 NUM8 HEPA2 +"DATA",811.8,184,100,1249,0) +621 +"DATA",811.8,184,100,1250,0) +4077861352 +"DATA",811.8,184,100,1251,0) +NO +"DATA",811.8,184,100,1252,0) + +"DATA",811.8,184,100,1253,0) + +"DATA",811.8,184,100,1262,0) + +"DATA",811.8,184,100,1263,0) + +"DATA",811.8,184,100,1264,0) + +"DATA",811.8,184,100,1268,0) + +"DATA",811.8,184,100,1269,0) + +"DATA",811.8,184,100,1270,0) + +"DATA",811.8,184,100,1271,0) +REMINDER TERM +"DATA",811.8,184,100,1272,0) +811.5 +"DATA",811.8,184,100,1273,0) +MU NQF0038 NUM10 INFLUENZA VAC +"DATA",811.8,184,100,1274,0) +536 +"DATA",811.8,184,100,1275,0) +486825485 +"DATA",811.8,184,100,1276,0) +NO +"DATA",811.8,184,100,1277,0) + +"DATA",811.8,184,100,1278,0) + +"DATA",811.8,184,100,1287,0) + +"DATA",811.8,184,100,1288,0) + +"DATA",811.8,184,100,1289,0) + +"DATA",811.8,184,100,1293,0) + +"DATA",811.8,184,100,1294,0) + +"DATA",811.8,184,100,1295,0) + +"DATA",811.8,184,100,1296,0) +REMINDER TERM +"DATA",811.8,184,100,1297,0) +811.5 +"DATA",811.8,184,100,1298,0) +MU NQF0038 NUM10 FLU ALLERGY EXCLU +"DATA",811.8,184,100,1299,0) +526 +"DATA",811.8,184,100,1300,0) +1188108177 +"DATA",811.8,184,100,1301,0) +NO +"DATA",811.8,184,100,1302,0) + +"DATA",811.8,184,100,1303,0) + +"DATA",811.8,184,100,1313,0) + +"DATA",811.8,184,100,1314,0) + +"DATA",811.8,184,100,1315,0) + +"DATA",811.8,184,100,1319,0) + +"DATA",811.8,184,100,1320,0) + +"DATA",811.8,184,100,1321,0) + +"DATA",811.8,184,100,1322,0) +REMINDER TERM +"DATA",811.8,184,100,1323,0) +811.5 +"DATA",811.8,184,100,1324,0) +MU NQF0038 NUM9 ROTAVIRUS ALLERGY EXCLU +"DATA",811.8,184,100,1325,0) +558 +"DATA",811.8,184,100,1326,0) +3745551750 +"DATA",811.8,184,100,1327,0) +NO +"DATA",811.8,184,100,1328,0) + +"DATA",811.8,184,100,1329,0) + +"DATA",811.8,184,100,1339,0) + +"DATA",811.8,184,100,1340,0) + +"DATA",811.8,184,100,1341,0) + +"DATA",811.8,184,100,1345,0) + +"DATA",811.8,184,100,1346,0) + +"DATA",811.8,184,100,1347,0) + +"DATA",811.8,184,100,1348,0) +REMINDER TERM +"DATA",811.8,184,100,1349,0) +811.5 +"DATA",811.8,184,100,1350,0) +MU NQF0038 NUM9 RV1 +"DATA",811.8,184,100,1351,0) +576 +"DATA",811.8,184,100,1352,0) +337859396 +"DATA",811.8,184,100,1353,0) +NO +"DATA",811.8,184,100,1354,0) + +"DATA",811.8,184,100,1355,0) + +"DATA",811.8,184,100,1364,0) + +"DATA",811.8,184,100,1365,0) + +"DATA",811.8,184,100,1366,0) + +"DATA",811.8,184,100,1370,0) + +"DATA",811.8,184,100,1371,0) + +"DATA",811.8,184,100,1372,0) + +"DATA",811.8,184,100,1373,0) +REMINDER TERM +"DATA",811.8,184,100,1374,0) +811.5 +"DATA",811.8,184,100,1375,0) +MU NQF0038 NUM9 RV2 +"DATA",811.8,184,100,1376,0) +575 +"DATA",811.8,184,100,1377,0) +2254502425 +"DATA",811.8,184,100,1378,0) +NO +"DATA",811.8,184,100,1379,0) + +"DATA",811.8,184,100,1380,0) + +"DATA",811.8,184,100,1389,0) + +"DATA",811.8,184,100,1390,0) + +"DATA",811.8,184,100,1391,0) + +"DATA",811.8,184,100,1395,0) + +"DATA",811.8,184,100,1396,0) + +"DATA",811.8,184,100,1397,0) + +"DATA",811.8,184,100,1398,0) +REMINDER TERM +"DATA",811.8,184,100,1399,0) +811.5 +"DATA",811.8,184,100,1400,0) +MU NQF0038 NUM9 RV3 +"DATA",811.8,184,100,1401,0) +560 +"DATA",811.8,184,100,1402,0) +1097949421 +"DATA",811.8,184,100,1403,0) +NO +"DATA",811.8,184,100,1404,0) + +"DATA",811.8,184,100,1405,0) + +"DATA",811.8,184,100,1414,0) + +"DATA",811.8,184,100,1415,0) + +"DATA",811.8,184,100,1416,0) + +"DATA",811.8,184,100,1420,0) + +"DATA",811.8,184,100,1421,0) + +"DATA",811.8,184,100,1422,0) + +"DATA",811.8,184,100,1423,0) +REMINDER TERM +"DATA",811.8,184,100,1424,0) +811.5 +"DATA",811.8,184,100,1425,0) +MU NQF0038 NUM4 ALLERGY EXCLU +"DATA",811.8,184,100,1426,0) +607 +"DATA",811.8,184,100,1427,0) +3455581843 +"DATA",811.8,184,100,1428,0) +NO +"DATA",811.8,184,100,1429,0) + +"DATA",811.8,184,100,1430,0) + +"DATA",811.8,184,100,1440,0) + +"DATA",811.8,184,100,1441,0) + +"DATA",811.8,184,100,1442,0) + +"DATA",811.8,184,100,1446,0) + +"DATA",811.8,184,100,1447,0) + +"DATA",811.8,184,100,1448,0) + +"DATA",811.8,184,100,1449,0) +REMINDER TERM +"DATA",811.8,184,100,1450,0) +811.5 +"DATA",811.8,184,100,1451,0) +MU NQF0038 NUM4 HIB1 +"DATA",811.8,184,100,1452,0) +612 +"DATA",811.8,184,100,1453,0) +786166230 +"DATA",811.8,184,100,1454,0) +NO +"DATA",811.8,184,100,1455,0) + +"DATA",811.8,184,100,1456,0) + +"DATA",811.8,184,100,1467,0) + +"DATA",811.8,184,100,1468,0) + +"DATA",811.8,184,100,1469,0) + +"DATA",811.8,184,100,1474,0) + +"DATA",811.8,184,100,1475,0) + +"DATA",811.8,184,100,1476,0) + +"DATA",811.8,184,100,1477,0) +REMINDER TERM +"DATA",811.8,184,100,1478,0) +811.5 +"DATA",811.8,184,100,1479,0) +MU NQF0038 NUM4 HIB2 +"DATA",811.8,184,100,1480,0) +609 +"DATA",811.8,184,100,1481,0) +2360125814 +"DATA",811.8,184,100,1482,0) +NO +"DATA",811.8,184,100,1483,0) + +"DATA",811.8,184,100,1484,0) + +"DATA",811.8,184,100,1495,0) + +"DATA",811.8,184,100,1496,0) + +"DATA",811.8,184,100,1497,0) + +"DATA",811.8,184,100,1502,0) + +"DATA",811.8,184,100,1503,0) + +"DATA",811.8,184,100,1504,0) + +"DATA",811.8,184,100,1505,0) +REMINDER TERM +"DATA",811.8,184,100,1506,0) +811.5 +"DATA",811.8,184,100,1507,0) +MU NQF0038 NUM4 HIB3 +"DATA",811.8,184,100,1508,0) +608 +"DATA",811.8,184,100,1509,0) +3984482582 +"DATA",811.8,184,100,1510,0) +NO +"DATA",811.8,184,100,1511,0) + +"DATA",811.8,184,100,1512,0) + +"DATA",811.8,184,100,1523,0) + +"DATA",811.8,184,100,1524,0) + +"DATA",811.8,184,100,1525,0) + +"DATA",811.8,184,100,1530,0) + +"DATA",811.8,184,100,1531,0) + +"DATA",811.8,184,100,1532,0) + +"DATA",811.8,184,100,1533,0) +REMINDER TERM +"DATA",811.8,184,100,1534,0) +811.5 +"DATA",811.8,184,100,1535,0) +MU NQF0038 NUM7 ALLERGY EXCLU +"DATA",811.8,184,100,1536,0) +593 +"DATA",811.8,184,100,1537,0) +475713304 +"DATA",811.8,184,100,1538,0) +NO +"DATA",811.8,184,100,1539,0) + +"DATA",811.8,184,100,1540,0) + +"DATA",811.8,184,100,1550,0) + +"DATA",811.8,184,100,1551,0) + +"DATA",811.8,184,100,1552,0) + +"DATA",811.8,184,100,1556,0) + +"DATA",811.8,184,100,1557,0) + +"DATA",811.8,184,100,1558,0) + +"DATA",811.8,184,100,1559,0) +REMINDER TERM +"DATA",811.8,184,100,1560,0) +811.5 +"DATA",811.8,184,100,1561,0) +MU NQF0038 NUM7 PCV1 +"DATA",811.8,184,100,1562,0) +598 +"DATA",811.8,184,100,1563,0) +1315301079 +"DATA",811.8,184,100,1564,0) +NO +"DATA",811.8,184,100,1565,0) + +"DATA",811.8,184,100,1566,0) + +"DATA",811.8,184,100,1575,0) + +"DATA",811.8,184,100,1576,0) + +"DATA",811.8,184,100,1577,0) + +"DATA",811.8,184,100,1581,0) + +"DATA",811.8,184,100,1582,0) + +"DATA",811.8,184,100,1583,0) + +"DATA",811.8,184,100,1584,0) +REMINDER TERM +"DATA",811.8,184,100,1585,0) +811.5 +"DATA",811.8,184,100,1586,0) +MU NQF0038 NUM7 PCV2 +"DATA",811.8,184,100,1587,0) +597 +"DATA",811.8,184,100,1588,0) +3693498250 +"DATA",811.8,184,100,1589,0) +NO +"DATA",811.8,184,100,1590,0) + +"DATA",811.8,184,100,1591,0) + +"DATA",811.8,184,100,1600,0) + +"DATA",811.8,184,100,1601,0) + +"DATA",811.8,184,100,1602,0) + +"DATA",811.8,184,100,1606,0) + +"DATA",811.8,184,100,1607,0) + +"DATA",811.8,184,100,1608,0) + +"DATA",811.8,184,100,1609,0) +REMINDER TERM +"DATA",811.8,184,100,1610,0) +811.5 +"DATA",811.8,184,100,1611,0) +MU NQF0038 NUM7 PCV3 +"DATA",811.8,184,100,1612,0) +596 +"DATA",811.8,184,100,1613,0) +456643966 +"DATA",811.8,184,100,1614,0) +NO +"DATA",811.8,184,100,1615,0) + +"DATA",811.8,184,100,1616,0) + +"DATA",811.8,184,100,1625,0) + +"DATA",811.8,184,100,1626,0) + +"DATA",811.8,184,100,1627,0) + +"DATA",811.8,184,100,1631,0) + +"DATA",811.8,184,100,1632,0) + +"DATA",811.8,184,100,1633,0) + +"DATA",811.8,184,100,1634,0) +REMINDER TERM +"DATA",811.8,184,100,1635,0) +811.5 +"DATA",811.8,184,100,1636,0) +MU NQF0038 NUM7 PCV4 +"DATA",811.8,184,100,1637,0) +595 +"DATA",811.8,184,100,1638,0) +600841073 +"DATA",811.8,184,100,1639,0) +NO +"DATA",811.8,184,100,1640,0) + +"DATA",811.8,184,100,1641,0) + +"DATA",811.8,184,100,1650,0) + +"DATA",811.8,184,100,1651,0) + +"DATA",811.8,184,100,1652,0) + +"DATA",811.8,184,100,1656,0) + +"DATA",811.8,184,100,1657,0) + +"DATA",811.8,184,100,1658,0) + +"DATA",811.8,184,100,1659,0) +REMINDER TERM +"DATA",811.8,184,100,1660,0) +811.5 +"DATA",811.8,184,100,1661,0) +MU NQF0038 NUM7 PCV5 +"DATA",811.8,184,100,1662,0) +594 +"DATA",811.8,184,100,1663,0) +2216019985 +"DATA",811.8,184,100,1664,0) +NO +"DATA",811.8,184,100,1665,0) + +"DATA",811.8,184,100,1666,0) + +"DATA",811.8,184,100,1674,0) + +"DATA",811.8,184,100,1675,0) + +"DATA",811.8,184,100,1676,0) + +"DATA",811.8,184,100,1680,0) + +"DATA",811.8,184,100,1681,0) + +"DATA",811.8,184,100,1682,0) + +"DATA",811.8,184,100,1683,0) +REMINDER TERM +"DATA",811.8,184,100,1684,0) +811.5 +"DATA",811.8,184,100,1685,0) +MU NQF0038 NUM6 VZV ALLERGY EXCLU +"DATA",811.8,184,100,1686,0) +599 +"DATA",811.8,184,100,1687,0) +3660015488 +"DATA",811.8,184,100,1688,0) +NO +"DATA",811.8,184,100,1689,0) + +"DATA",811.8,184,100,1690,0) + +"DATA",811.8,184,100,1700,0) + +"DATA",811.8,184,100,1701,0) + +"DATA",811.8,184,100,1702,0) + +"DATA",811.8,184,100,1706,0) + +"DATA",811.8,184,100,1707,0) + +"DATA",811.8,184,100,1708,0) + +"DATA",811.8,184,100,1709,0) +REMINDER TERM +"DATA",811.8,184,100,1710,0) +811.5 +"DATA",811.8,184,100,1711,0) +MU NQF0038 NUM6 VZV1 +"DATA",811.8,184,100,1712,0) +601 +"DATA",811.8,184,100,1713,0) +1799658949 +"DATA",811.8,184,100,1714,0) +NO +"DATA",811.8,184,100,1715,0) + +"DATA",811.8,184,100,1716,0) + +"DATA",811.8,184,100,1725,0) + +"DATA",811.8,184,100,1726,0) + +"DATA",811.8,184,100,1727,0) + +"DATA",811.8,184,100,1731,0) + +"DATA",811.8,184,100,1732,0) + +"DATA",811.8,184,100,1733,0) + +"DATA",811.8,184,100,1734,0) +REMINDER TERM +"DATA",811.8,184,100,1735,0) +811.5 +"DATA",811.8,184,100,1736,0) +MU NQF0038 NUM6 VZV2 +"DATA",811.8,184,100,1737,0) +600 +"DATA",811.8,184,100,1738,0) +3411752915 +"DATA",811.8,184,100,1739,0) +NO +"DATA",811.8,184,100,1740,0) + +"DATA",811.8,184,100,1741,0) + +"DATA",811.8,184,100,1750,0) + +"DATA",811.8,184,100,1751,0) + +"DATA",811.8,184,100,1752,0) + +"DATA",811.8,184,100,1756,0) + +"DATA",811.8,184,100,1757,0) + +"DATA",811.8,184,100,1758,0) + +"DATA",811.8,184,100,1759,0) +REMINDER TERM +"DATA",811.8,184,100,1760,0) +811.5 +"DATA",811.8,184,100,1761,0) +MU NQF0038 NUM5 ALLERGY EXCLU +"DATA",811.8,184,100,1762,0) +602 +"DATA",811.8,184,100,1763,0) +6472850 +"DATA",811.8,184,100,1764,0) +NO +"DATA",811.8,184,100,1765,0) + +"DATA",811.8,184,100,1766,0) + +"DATA",811.8,184,100,1779,0) + +"DATA",811.8,184,100,1780,0) + +"DATA",811.8,184,100,1781,0) + +"DATA",811.8,184,100,1786,0) + +"DATA",811.8,184,100,1787,0) + +"DATA",811.8,184,100,1788,0) + +"DATA",811.8,184,100,1789,0) +REMINDER TERM +"DATA",811.8,184,100,1790,0) +811.5 +"DATA",811.8,184,100,1791,0) +MU NQF0038 NUM5 HEPB1 +"DATA",811.8,184,100,1792,0) +606 +"DATA",811.8,184,100,1793,0) +2493977937 +"DATA",811.8,184,100,1794,0) +NO +"DATA",811.8,184,100,1795,0) + +"DATA",811.8,184,100,1796,0) + +"DATA",811.8,184,100,1805,0) + +"DATA",811.8,184,100,1806,0) + +"DATA",811.8,184,100,1807,0) + +"DATA",811.8,184,100,1811,0) + +"DATA",811.8,184,100,1812,0) + +"DATA",811.8,184,100,1813,0) + +"DATA",811.8,184,100,1814,0) +REMINDER TERM +"DATA",811.8,184,100,1815,0) +811.5 +"DATA",811.8,184,100,1816,0) +MU NQF0038 NUM5 HEPB2 +"DATA",811.8,184,100,1817,0) +605 +"DATA",811.8,184,100,1818,0) +4212382407 +"DATA",811.8,184,100,1819,0) +NO +"DATA",811.8,184,100,1820,0) + +"DATA",811.8,184,100,1821,0) + +"DATA",811.8,184,100,1830,0) + +"DATA",811.8,184,100,1831,0) + +"DATA",811.8,184,100,1832,0) + +"DATA",811.8,184,100,1836,0) + +"DATA",811.8,184,100,1837,0) + +"DATA",811.8,184,100,1838,0) + +"DATA",811.8,184,100,1839,0) +REMINDER TERM +"DATA",811.8,184,100,1840,0) +811.5 +"DATA",811.8,184,100,1841,0) +MU NQF0038 NUM5 HEPB3 +"DATA",811.8,184,100,1842,0) +604 +"DATA",811.8,184,100,1843,0) +3732905909 +"DATA",811.8,184,100,1844,0) +NO +"DATA",811.8,184,100,1845,0) + +"DATA",811.8,184,100,1846,0) + +"DATA",811.8,184,100,1855,0) + +"DATA",811.8,184,100,1856,0) + +"DATA",811.8,184,100,1857,0) + +"DATA",811.8,184,100,1861,0) + +"DATA",811.8,184,100,1862,0) + +"DATA",811.8,184,100,1863,0) + +"DATA",811.8,184,100,1864,0) +REMINDER TERM +"DATA",811.8,184,100,1865,0) +811.5 +"DATA",811.8,184,100,1866,0) +MU NQF0038 NUM5 HEPB4 +"DATA",811.8,184,100,1867,0) +603 +"DATA",811.8,184,100,1868,0) +611993067 +"DATA",811.8,184,100,1869,0) +NO +"DATA",811.8,184,100,1870,0) + +"DATA",811.8,184,100,1871,0) + +"DATA",811.8,184,100,1880,0) + +"DATA",811.8,184,100,1881,0) + +"DATA",811.8,184,100,1882,0) + +"DATA",811.8,184,100,1886,0) + +"DATA",811.8,184,100,1887,0) + +"DATA",811.8,184,100,1888,0) + +"DATA",811.8,184,100,1889,0) +REMINDER TERM +"DATA",811.8,184,100,1890,0) +811.5 +"DATA",811.8,184,100,1891,0) +MU NQF0038 NUM3 MMR1 +"DATA",811.8,184,100,1892,0) +528 +"DATA",811.8,184,100,1893,0) +1415022567 +"DATA",811.8,184,100,1894,0) +NO +"DATA",811.8,184,100,1895,0) + +"DATA",811.8,184,100,1896,0) + +"DATA",811.8,184,100,1905,0) + +"DATA",811.8,184,100,1906,0) + +"DATA",811.8,184,100,1907,0) + +"DATA",811.8,184,100,1911,0) + +"DATA",811.8,184,100,1912,0) + +"DATA",811.8,184,100,1913,0) + +"DATA",811.8,184,100,1914,0) +REMINDER TERM +"DATA",811.8,184,100,1915,0) +811.5 +"DATA",811.8,184,100,1916,0) +MU NQF0038 NUM3 GENER MMR ALLERGY EXCLU +"DATA",811.8,184,100,1917,0) +529 +"DATA",811.8,184,100,1918,0) +3126808472 +"DATA",811.8,184,100,1919,0) +NO +"DATA",811.8,184,100,1920,0) + +"DATA",811.8,184,100,1921,0) + +"DATA",811.8,184,100,1931,0) + +"DATA",811.8,184,100,1932,0) + +"DATA",811.8,184,100,1933,0) + +"DATA",811.8,184,100,1937,0) + +"DATA",811.8,184,100,1938,0) + +"DATA",811.8,184,100,1939,0) + +"DATA",811.8,184,100,1940,0) +REMINDER TERM +"DATA",811.8,184,100,1941,0) +811.5 +"DATA",811.8,184,100,1942,0) +MU NQF0038 NUM3 RUBELLA VAC ALLERGY EXCLU +"DATA",811.8,184,100,1943,0) +530 +"DATA",811.8,184,100,1944,0) +1848074406 +"DATA",811.8,184,100,1945,0) +NO +"DATA",811.8,184,100,1946,0) + +"DATA",811.8,184,100,1947,0) + +"DATA",811.8,184,100,1957,0) + +"DATA",811.8,184,100,1958,0) + +"DATA",811.8,184,100,1959,0) + +"DATA",811.8,184,100,1963,0) + +"DATA",811.8,184,100,1964,0) + +"DATA",811.8,184,100,1965,0) + +"DATA",811.8,184,100,1966,0) +REMINDER TERM +"DATA",811.8,184,100,1967,0) +811.5 +"DATA",811.8,184,100,1968,0) +MU NQF0038 NUM3 MEASLES VAC ALLERGY EXCL +"DATA",811.8,184,100,1969,0) +514 +"DATA",811.8,184,100,1970,0) +4021095139 +"DATA",811.8,184,100,1971,0) +NO +"DATA",811.8,184,100,1972,0) + +"DATA",811.8,184,100,1973,0) + +"DATA",811.8,184,100,1983,0) + +"DATA",811.8,184,100,1984,0) + +"DATA",811.8,184,100,1985,0) + +"DATA",811.8,184,100,1989,0) + +"DATA",811.8,184,100,1990,0) + +"DATA",811.8,184,100,1991,0) + +"DATA",811.8,184,100,1992,0) +REMINDER TERM +"DATA",811.8,184,100,1993,0) +811.5 +"DATA",811.8,184,100,1994,0) +MU NQF0038 NUM3 MUMPS VAC ALLERGY EXCLU +"DATA",811.8,184,100,1995,0) +527 +"DATA",811.8,184,100,1996,0) +4170327595 +"DATA",811.8,184,100,1997,0) +NO +"DATA",811.8,184,100,1998,0) + +"DATA",811.8,184,100,1999,0) + +"DATA",811.8,184,100,2009,0) + +"DATA",811.8,184,100,2010,0) + +"DATA",811.8,184,100,2011,0) + +"DATA",811.8,184,100,2015,0) + +"DATA",811.8,184,100,2016,0) + +"DATA",811.8,184,100,2017,0) + +"DATA",811.8,184,100,2018,0) +REMINDER TERM +"DATA",811.8,184,100,2019,0) +811.5 +"DATA",811.8,184,100,2020,0) +MU NQF0038 NUM2 IPV1 +"DATA",811.8,184,100,2021,0) +534 +"DATA",811.8,184,100,2022,0) +938612804 +"DATA",811.8,184,100,2023,0) +NO +"DATA",811.8,184,100,2024,0) + +"DATA",811.8,184,100,2025,0) + +"DATA",811.8,184,100,2034,0) + +"DATA",811.8,184,100,2035,0) + +"DATA",811.8,184,100,2036,0) + +"DATA",811.8,184,100,2040,0) + +"DATA",811.8,184,100,2041,0) + +"DATA",811.8,184,100,2042,0) + +"DATA",811.8,184,100,2043,0) +REMINDER TERM +"DATA",811.8,184,100,2044,0) +811.5 +"DATA",811.8,184,100,2045,0) +MU NQF0038 NUM2 IPV2 +"DATA",811.8,184,100,2046,0) +533 +"DATA",811.8,184,100,2047,0) +2519463222 +"DATA",811.8,184,100,2048,0) +NO +"DATA",811.8,184,100,2049,0) + +"DATA",811.8,184,100,2050,0) + +"DATA",811.8,184,100,2059,0) + +"DATA",811.8,184,100,2060,0) + +"DATA",811.8,184,100,2061,0) + +"DATA",811.8,184,100,2065,0) + +"DATA",811.8,184,100,2066,0) + +"DATA",811.8,184,100,2067,0) + +"DATA",811.8,184,100,2068,0) +REMINDER TERM +"DATA",811.8,184,100,2069,0) +811.5 +"DATA",811.8,184,100,2070,0) +MU NQF0038 NUM2 IPV3 +"DATA",811.8,184,100,2071,0) +532 +"DATA",811.8,184,100,2072,0) +4137463320 +"DATA",811.8,184,100,2073,0) +NO +"DATA",811.8,184,100,2074,0) + +"DATA",811.8,184,100,2075,0) + +"DATA",811.8,184,100,2084,0) + +"DATA",811.8,184,100,2085,0) + +"DATA",811.8,184,100,2086,0) + +"DATA",811.8,184,100,2090,0) + +"DATA",811.8,184,100,2091,0) + +"DATA",811.8,184,100,2092,0) + +"DATA",811.8,184,100,2093,0) +REMINDER TERM +"DATA",811.8,184,100,2094,0) +811.5 +"DATA",811.8,184,100,2095,0) +MU NQF0038 NUM2 IPV4 +"DATA",811.8,184,100,2096,0) +531 +"DATA",811.8,184,100,2097,0) +250161555 +"DATA",811.8,184,100,2098,0) +NO +"DATA",811.8,184,100,2099,0) + +"DATA",811.8,184,100,2100,0) + +"DATA",811.8,184,100,2109,0) + +"DATA",811.8,184,100,2110,0) + +"DATA",811.8,184,100,2111,0) + +"DATA",811.8,184,100,2115,0) + +"DATA",811.8,184,100,2116,0) + +"DATA",811.8,184,100,2117,0) + +"DATA",811.8,184,100,2118,0) +REMINDER TERM +"DATA",811.8,184,100,2119,0) +811.5 +"DATA",811.8,184,100,2120,0) +MU NQF0038 NUM2 IPV ALLERGY INCLU +"DATA",811.8,184,100,2121,0) +535 +"DATA",811.8,184,100,2122,0) +2253244680 +"DATA",811.8,184,100,2123,0) +NO +"DATA",811.8,184,100,2124,0) + +"DATA",811.8,184,100,2125,0) + +"DATA",811.8,184,100,2144,0) + +"DATA",811.8,184,100,2145,0) + +"DATA",811.8,184,100,2146,0) + +"DATA",811.8,184,100,2153,0) + +"DATA",811.8,184,100,2154,0) + +"DATA",811.8,184,100,2155,0) + +"DATA",811.8,184,100,2156,0) +REMINDER TERM +"DATA",811.8,184,100,2157,0) +811.5 +"DATA",811.8,184,100,2158,0) +MU NQF0038 DTAP1 +"DATA",811.8,184,100,2159,0) +525 +"DATA",811.8,184,100,2160,0) +2298256423 +"DATA",811.8,184,100,2161,0) +NO +"DATA",811.8,184,100,2162,0) + +"DATA",811.8,184,100,2163,0) + +"DATA",811.8,184,100,2172,0) + +"DATA",811.8,184,100,2173,0) + +"DATA",811.8,184,100,2174,0) + +"DATA",811.8,184,100,2178,0) + +"DATA",811.8,184,100,2179,0) + +"DATA",811.8,184,100,2180,0) + +"DATA",811.8,184,100,2181,0) +REMINDER TERM +"DATA",811.8,184,100,2182,0) +811.5 +"DATA",811.8,184,100,2183,0) +MU NQF0038 DTAP2 +"DATA",811.8,184,100,2184,0) +524 +"DATA",811.8,184,100,2185,0) +3626688811 +"DATA",811.8,184,100,2186,0) +NO +"DATA",811.8,184,100,2187,0) + +"DATA",811.8,184,100,2188,0) + +"DATA",811.8,184,100,2197,0) + +"DATA",811.8,184,100,2198,0) + +"DATA",811.8,184,100,2199,0) + +"DATA",811.8,184,100,2203,0) + +"DATA",811.8,184,100,2204,0) + +"DATA",811.8,184,100,2205,0) + +"DATA",811.8,184,100,2206,0) +REMINDER TERM +"DATA",811.8,184,100,2207,0) +811.5 +"DATA",811.8,184,100,2208,0) +MU NQF0038 DTAP3 +"DATA",811.8,184,100,2209,0) +523 +"DATA",811.8,184,100,2210,0) +1589102608 +"DATA",811.8,184,100,2211,0) +NO +"DATA",811.8,184,100,2212,0) + +"DATA",811.8,184,100,2213,0) + +"DATA",811.8,184,100,2222,0) + +"DATA",811.8,184,100,2223,0) + +"DATA",811.8,184,100,2224,0) + +"DATA",811.8,184,100,2228,0) + +"DATA",811.8,184,100,2229,0) + +"DATA",811.8,184,100,2230,0) + +"DATA",811.8,184,100,2231,0) +REMINDER TERM +"DATA",811.8,184,100,2232,0) +811.5 +"DATA",811.8,184,100,2233,0) +MU NQF0038 DTAP4 +"DATA",811.8,184,100,2234,0) +521 +"DATA",811.8,184,100,2235,0) +2038831923 +"DATA",811.8,184,100,2236,0) +NO +"DATA",811.8,184,100,2237,0) + +"DATA",811.8,184,100,2238,0) + +"DATA",811.8,184,100,2247,0) + +"DATA",811.8,184,100,2248,0) + +"DATA",811.8,184,100,2249,0) + +"DATA",811.8,184,100,2253,0) + +"DATA",811.8,184,100,2254,0) + +"DATA",811.8,184,100,2255,0) + +"DATA",811.8,184,100,2256,0) +REMINDER TERM +"DATA",811.8,184,100,2257,0) +811.5 +"DATA",811.8,184,100,2258,0) +MU NQF0038 DTAP5 +"DATA",811.8,184,100,2259,0) +520 +"DATA",811.8,184,100,2260,0) +4279972360 +"DATA",811.8,184,100,2261,0) +NO +"DATA",811.8,184,100,2262,0) + +"DATA",811.8,184,100,2263,0) + +"DATA",811.8,184,100,2272,0) + +"DATA",811.8,184,100,2273,0) + +"DATA",811.8,184,100,2274,0) + +"DATA",811.8,184,100,2278,0) + +"DATA",811.8,184,100,2279,0) + +"DATA",811.8,184,100,2280,0) + +"DATA",811.8,184,100,2281,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2282,0) +811.9 +"DATA",811.8,184,100,2283,0) +MU NQF0038 NUM8 HEPA LIST +"DATA",811.8,184,100,2284,0) +176 +"DATA",811.8,184,100,2285,0) +3063815209 +"DATA",811.8,184,100,2286,0) +NO +"DATA",811.8,184,100,2287,0) + +"DATA",811.8,184,100,2288,0) + +"DATA",811.8,184,100,2330,0) + +"DATA",811.8,184,100,2331,0) + +"DATA",811.8,184,100,2332,0) + +"DATA",811.8,184,100,2340,0) + +"DATA",811.8,184,100,2341,0) + +"DATA",811.8,184,100,2342,0) + +"DATA",811.8,184,100,2343,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2344,0) +811.9 +"DATA",811.8,184,100,2345,0) +MU NQF0038 NUM10 INFLUENZA LIST +"DATA",811.8,184,100,2346,0) +157 +"DATA",811.8,184,100,2347,0) +2792524997 +"DATA",811.8,184,100,2348,0) +NO +"DATA",811.8,184,100,2349,0) + +"DATA",811.8,184,100,2350,0) +1 +"DATA",811.8,184,100,2389,0) +811.925;+163,+157,;10~FN(1)>1 +"DATA",811.8,184,100,2390,0) +811.925;+163,+157,;41~0 +"DATA",811.8,184,100,2391,0) +811.925;+163,+157,;42~0 +"DATA",811.8,184,100,2392,0) +811.925;+164,+157,;.01~3 +"DATA",811.8,184,100,2393,0) +811.925;+164,+157,;3~MAX_DATE(1)>(MIN_DATE(1)+180) +"DATA",811.8,184,100,2394,0) +811.925;+164,+157,;10~FN(1)>(FN(2)+180) +"DATA",811.8,184,100,2395,0) +811.925;+164,+157,;41~0 +"DATA",811.8,184,100,2396,0) +811.925;+164,+157,;42~0 +"DATA",811.8,184,100,2397,0) +811.9255;+165,+163,+157,;.01~1 +"DATA",811.8,184,100,2398,0) +811.9255;+165,+163,+157,;.02~COUNT +"DATA",811.8,184,100,2399,0) +811.9255;+166,+164,+157,;.01~1 +"DATA",811.8,184,100,2400,0) +811.9255;+166,+164,+157,;.02~MAX_DATE +"DATA",811.8,184,100,2401,0) +811.9255;+167,+164,+157,;.01~2 +"DATA",811.8,184,100,2402,0) +811.9255;+167,+164,+157,;.02~MIN_DATE +"DATA",811.8,184,100,2403,0) +811.9256;+168,+165,+163,+157,;.01~1 +"DATA",811.8,184,100,2404,0) +811.9256;+169,+166,+164,+157,;.01~1 +"DATA",811.8,184,100,2405,0) +811.9256;+170,+167,+164,+157,;.01~1 +"DATA",811.8,184,100,2406,0) +811.97;+171,+157,;.01~99Y +"DATA",811.8,184,100,2407,0) +811.97;+171,+157,;1~2 +"DATA",811.8,184,100,2408,0) +811.97;+171,+157,;2~2 +"DATA",811.8,184,100,2409,0) +811.97;+171,+157,;5~0 +"DATA",811.8,184,100,2410,0) +811.97;+171,+157,;6~0 +"DATA",811.8,184,100,2411,0) +]]> +"DATA",811.8,184,100,2412,0) + +"DATA",811.8,184,100,2413,0) + +"DATA",811.8,184,100,2414,0) + +"DATA",811.8,184,100,2430,0) + +"DATA",811.8,184,100,2431,0) + +"DATA",811.8,184,100,2432,0) + +"DATA",811.8,184,100,2433,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2434,0) +811.9 +"DATA",811.8,184,100,2435,0) +MU NQF0038 IMMUN DENOM PL +"DATA",811.8,184,100,2436,0) +143 +"DATA",811.8,184,100,2437,0) +1809123290 +"DATA",811.8,184,100,2438,0) +NO +"DATA",811.8,184,100,2439,0) + +"DATA",811.8,184,100,2440,0) + +"DATA",811.8,184,100,2476,0) + +"DATA",811.8,184,100,2477,0) + +"DATA",811.8,184,100,2478,0) + +"DATA",811.8,184,100,2483,0) + +"DATA",811.8,184,100,2484,0) + +"DATA",811.8,184,100,2485,0) + +"DATA",811.8,184,100,2486,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2487,0) +811.9 +"DATA",811.8,184,100,2488,0) +MU NQF0038 NUM9 RV LIST +"DATA",811.8,184,100,2489,0) +169 +"DATA",811.8,184,100,2490,0) +3170007919 +"DATA",811.8,184,100,2491,0) +NO +"DATA",811.8,184,100,2492,0) + +"DATA",811.8,184,100,2493,0) +41)!FI(3)) +"DATA",811.8,184,100,2534,0) +811.925;+175,+169,;10~((FN(1)>41)!FN(2)) +"DATA",811.8,184,100,2535,0) +811.925;+175,+169,;41~0 +"DATA",811.8,184,100,2536,0) +811.925;+175,+169,;42~0 +"DATA",811.8,184,100,2537,0) +811.9255;+176,+175,+169,;.01~1 +"DATA",811.8,184,100,2538,0) +811.9255;+176,+175,+169,;.02~DIFF_DATE +"DATA",811.8,184,100,2539,0) +811.9255;+177,+175,+169,;.01~2 +"DATA",811.8,184,100,2540,0) +811.9255;+177,+175,+169,;.02~FI +"DATA",811.8,184,100,2541,0) +811.9256;+178,+176,+175,+169,;.01~1 +"DATA",811.8,184,100,2542,0) +811.9256;+179,+177,+175,+169,;.01~3 +"DATA",811.8,184,100,2543,0) +811.9256;+180,+176,+175,+169,;.01~2 +"DATA",811.8,184,100,2544,0) +811.97;+181,+169,;.01~99Y +"DATA",811.8,184,100,2545,0) +811.97;+181,+169,;1~2 +"DATA",811.8,184,100,2546,0) +811.97;+181,+169,;2~2 +"DATA",811.8,184,100,2547,0) +811.97;+181,+169,;5~0 +"DATA",811.8,184,100,2548,0) +811.97;+181,+169,;6~0 +"DATA",811.8,184,100,2549,0) +]]> +"DATA",811.8,184,100,2550,0) + +"DATA",811.8,184,100,2551,0) + +"DATA",811.8,184,100,2552,0) + +"DATA",811.8,184,100,2566,0) + +"DATA",811.8,184,100,2567,0) + +"DATA",811.8,184,100,2568,0) + +"DATA",811.8,184,100,2569,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2570,0) +811.9 +"DATA",811.8,184,100,2571,0) +MU NQF0038 NUM4 HIB LIST +"DATA",811.8,184,100,2572,0) +173 +"DATA",811.8,184,100,2573,0) +3524423173 +"DATA",811.8,184,100,2574,0) +NO +"DATA",811.8,184,100,2575,0) + +"DATA",811.8,184,100,2576,0) +41)!FI(3)) +"DATA",811.8,184,100,2617,0) +811.925;+179,+173,;10~((FN(1)>41)!FN(2)) +"DATA",811.8,184,100,2618,0) +811.925;+179,+173,;41~0 +"DATA",811.8,184,100,2619,0) +811.925;+179,+173,;42~0 +"DATA",811.8,184,100,2620,0) +811.9255;+180,+179,+173,;.01~1 +"DATA",811.8,184,100,2621,0) +811.9255;+180,+179,+173,;.02~DIFF_DATE +"DATA",811.8,184,100,2622,0) +811.9255;+181,+179,+173,;.01~2 +"DATA",811.8,184,100,2623,0) +811.9255;+181,+179,+173,;.02~FI +"DATA",811.8,184,100,2624,0) +811.9256;+182,+180,+179,+173,;.01~1 +"DATA",811.8,184,100,2625,0) +811.9256;+183,+181,+179,+173,;.01~3 +"DATA",811.8,184,100,2626,0) +811.9256;+184,+180,+179,+173,;.01~2 +"DATA",811.8,184,100,2627,0) +811.97;+185,+173,;.01~99Y +"DATA",811.8,184,100,2628,0) +811.97;+185,+173,;1~2 +"DATA",811.8,184,100,2629,0) +811.97;+185,+173,;2~2 +"DATA",811.8,184,100,2630,0) +811.97;+185,+173,;5~0 +"DATA",811.8,184,100,2631,0) +811.97;+185,+173,;6~0 +"DATA",811.8,184,100,2632,0) +]]> +"DATA",811.8,184,100,2633,0) + +"DATA",811.8,184,100,2634,0) + +"DATA",811.8,184,100,2635,0) + +"DATA",811.8,184,100,2649,0) + +"DATA",811.8,184,100,2650,0) + +"DATA",811.8,184,100,2651,0) + +"DATA",811.8,184,100,2652,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2653,0) +811.9 +"DATA",811.8,184,100,2654,0) +MU NQF0038 NUM7 PCV LIST +"DATA",811.8,184,100,2655,0) +170 +"DATA",811.8,184,100,2656,0) +2897600612 +"DATA",811.8,184,100,2657,0) +NO +"DATA",811.8,184,100,2658,0) + +"DATA",811.8,184,100,2659,0) +41)&(DIFF_DATE(2,3)>41)&(DIFF_DATE(3,4)>41))!FI(5) +"DATA",811.8,184,100,2706,0) +811.925;+178,+170,;10~((FN(1)>41)&(FN(2)>41)&(FN(3)>41))!FN(4) +"DATA",811.8,184,100,2707,0) +811.925;+178,+170,;41~0 +"DATA",811.8,184,100,2708,0) +811.925;+178,+170,;42~0 +"DATA",811.8,184,100,2709,0) +811.9255;+179,+178,+170,;.01~1 +"DATA",811.8,184,100,2710,0) +811.9255;+179,+178,+170,;.02~DIFF_DATE +"DATA",811.8,184,100,2711,0) +811.9255;+180,+178,+170,;.01~2 +"DATA",811.8,184,100,2712,0) +811.9255;+180,+178,+170,;.02~DIFF_DATE +"DATA",811.8,184,100,2713,0) +811.9255;+181,+178,+170,;.01~3 +"DATA",811.8,184,100,2714,0) +811.9255;+181,+178,+170,;.02~DIFF_DATE +"DATA",811.8,184,100,2715,0) +811.9255;+182,+178,+170,;.01~4 +"DATA",811.8,184,100,2716,0) +811.9255;+182,+178,+170,;.02~FI +"DATA",811.8,184,100,2717,0) +811.9256;+183,+179,+178,+170,;.01~1 +"DATA",811.8,184,100,2718,0) +811.9256;+184,+180,+178,+170,;.01~2 +"DATA",811.8,184,100,2719,0) +811.9256;+185,+181,+178,+170,;.01~3 +"DATA",811.8,184,100,2720,0) +811.9256;+186,+182,+178,+170,;.01~5 +"DATA",811.8,184,100,2721,0) +811.9256;+187,+179,+178,+170,;.01~2 +"DATA",811.8,184,100,2722,0) +811.9256;+188,+180,+178,+170,;.01~3 +"DATA",811.8,184,100,2723,0) +811.9256;+189,+181,+178,+170,;.01~4 +"DATA",811.8,184,100,2724,0) +811.97;+190,+170,;.01~99Y +"DATA",811.8,184,100,2725,0) +811.97;+190,+170,;1~2 +"DATA",811.8,184,100,2726,0) +811.97;+190,+170,;2~2 +"DATA",811.8,184,100,2727,0) +811.97;+190,+170,;5~0 +"DATA",811.8,184,100,2728,0) +811.97;+190,+170,;6~0 +"DATA",811.8,184,100,2729,0) +]]> +"DATA",811.8,184,100,2730,0) + +"DATA",811.8,184,100,2731,0) + +"DATA",811.8,184,100,2732,0) + +"DATA",811.8,184,100,2754,0) + +"DATA",811.8,184,100,2755,0) + +"DATA",811.8,184,100,2756,0) + +"DATA",811.8,184,100,2757,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2758,0) +811.9 +"DATA",811.8,184,100,2759,0) +MU NQF0038 NUM6 VZV LIST +"DATA",811.8,184,100,2760,0) +171 +"DATA",811.8,184,100,2761,0) +654779585 +"DATA",811.8,184,100,2762,0) +NO +"DATA",811.8,184,100,2763,0) + +"DATA",811.8,184,100,2764,0) + +"DATA",811.8,184,100,2813,0) + +"DATA",811.8,184,100,2814,0) + +"DATA",811.8,184,100,2815,0) + +"DATA",811.8,184,100,2825,0) + +"DATA",811.8,184,100,2826,0) + +"DATA",811.8,184,100,2827,0) + +"DATA",811.8,184,100,2828,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2829,0) +811.9 +"DATA",811.8,184,100,2830,0) +MU NQF0038 NUM5 HEPB LIST +"DATA",811.8,184,100,2831,0) +172 +"DATA",811.8,184,100,2832,0) +1420025905 +"DATA",811.8,184,100,2833,0) +NO +"DATA",811.8,184,100,2834,0) + +"DATA",811.8,184,100,2835,0) +41)&(DIFF_DATE(2,3)>41))!FI(4) +"DATA",811.8,184,100,2884,0) +811.925;+180,+172,;10~((FN(1)>41)&(FN(2)>41))!FN(3) +"DATA",811.8,184,100,2885,0) +811.925;+180,+172,;41~0 +"DATA",811.8,184,100,2886,0) +811.925;+180,+172,;42~0 +"DATA",811.8,184,100,2887,0) +811.9255;+181,+180,+172,;.01~1 +"DATA",811.8,184,100,2888,0) +811.9255;+181,+180,+172,;.02~DIFF_DATE +"DATA",811.8,184,100,2889,0) +811.9255;+182,+180,+172,;.01~2 +"DATA",811.8,184,100,2890,0) +811.9255;+182,+180,+172,;.02~DIFF_DATE +"DATA",811.8,184,100,2891,0) +811.9255;+183,+180,+172,;.01~3 +"DATA",811.8,184,100,2892,0) +811.9255;+183,+180,+172,;.02~FI +"DATA",811.8,184,100,2893,0) +811.9256;+184,+181,+180,+172,;.01~1 +"DATA",811.8,184,100,2894,0) +811.9256;+185,+182,+180,+172,;.01~2 +"DATA",811.8,184,100,2895,0) +811.9256;+186,+183,+180,+172,;.01~4 +"DATA",811.8,184,100,2896,0) +811.9256;+187,+181,+180,+172,;.01~2 +"DATA",811.8,184,100,2897,0) +811.9256;+188,+182,+180,+172,;.01~3 +"DATA",811.8,184,100,2898,0) +811.97;+189,+172,;.01~99Y +"DATA",811.8,184,100,2899,0) +811.97;+189,+172,;1~2 +"DATA",811.8,184,100,2900,0) +811.97;+189,+172,;2~2 +"DATA",811.8,184,100,2901,0) +811.97;+189,+172,;5~0 +"DATA",811.8,184,100,2902,0) +811.97;+189,+172,;6~0 +"DATA",811.8,184,100,2903,0) +]]> +"DATA",811.8,184,100,2904,0) + +"DATA",811.8,184,100,2905,0) + +"DATA",811.8,184,100,2906,0) + +"DATA",811.8,184,100,2925,0) + +"DATA",811.8,184,100,2926,0) + +"DATA",811.8,184,100,2927,0) + +"DATA",811.8,184,100,2928,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2929,0) +811.9 +"DATA",811.8,184,100,2930,0) +MU NQF0038 NUM3-4 MMR OR EXCLUSIONS +"DATA",811.8,184,100,2931,0) +154 +"DATA",811.8,184,100,2932,0) +378304769 +"DATA",811.8,184,100,2933,0) +NO +"DATA",811.8,184,100,2934,0) + +"DATA",811.8,184,100,2935,0) + +"DATA",811.8,184,100,2977,0) + +"DATA",811.8,184,100,2978,0) + +"DATA",811.8,184,100,2979,0) + +"DATA",811.8,184,100,2987,0) + +"DATA",811.8,184,100,2988,0) + +"DATA",811.8,184,100,2989,0) + +"DATA",811.8,184,100,2990,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2991,0) +811.9 +"DATA",811.8,184,100,2992,0) +MU NQF0038 NUM3-3 RUBELLA +"DATA",811.8,184,100,2993,0) +155 +"DATA",811.8,184,100,2994,0) +2295076213 +"DATA",811.8,184,100,2995,0) +NO +"DATA",811.8,184,100,2996,0) + +"DATA",811.8,184,100,2997,0) +1 +"DATA",811.8,184,100,3032,0) +811.925;+160,+155,;10~FN(1)>1 +"DATA",811.8,184,100,3033,0) +811.925;+160,+155,;41~0 +"DATA",811.8,184,100,3034,0) +811.925;+160,+155,;42~0 +"DATA",811.8,184,100,3035,0) +811.9255;+161,+160,+155,;.01~1 +"DATA",811.8,184,100,3036,0) +811.9255;+161,+160,+155,;.02~COUNT +"DATA",811.8,184,100,3037,0) +811.9256;+162,+161,+160,+155,;.01~1 +"DATA",811.8,184,100,3038,0) +811.97;+163,+155,;.01~99Y +"DATA",811.8,184,100,3039,0) +811.97;+163,+155,;1~2 +"DATA",811.8,184,100,3040,0) +811.97;+163,+155,;2~2 +"DATA",811.8,184,100,3041,0) +811.97;+163,+155,;5~0 +"DATA",811.8,184,100,3042,0) +811.97;+163,+155,;6~0 +"DATA",811.8,184,100,3043,0) +]]> +"DATA",811.8,184,100,3044,0) + +"DATA",811.8,184,100,3045,0) + +"DATA",811.8,184,100,3046,0) + +"DATA",811.8,184,100,3056,0) + +"DATA",811.8,184,100,3057,0) + +"DATA",811.8,184,100,3058,0) + +"DATA",811.8,184,100,3059,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3060,0) +811.9 +"DATA",811.8,184,100,3061,0) +MU NQF0038 NUM3-2 MEASLES +"DATA",811.8,184,100,3062,0) +141 +"DATA",811.8,184,100,3063,0) +1881785811 +"DATA",811.8,184,100,3064,0) +NO +"DATA",811.8,184,100,3065,0) + +"DATA",811.8,184,100,3066,0) +1 +"DATA",811.8,184,100,3101,0) +811.925;+146,+141,;10~FN(1)>1 +"DATA",811.8,184,100,3102,0) +811.925;+146,+141,;41~0 +"DATA",811.8,184,100,3103,0) +811.925;+146,+141,;42~0 +"DATA",811.8,184,100,3104,0) +811.9255;+147,+146,+141,;.01~1 +"DATA",811.8,184,100,3105,0) +811.9255;+147,+146,+141,;.02~COUNT +"DATA",811.8,184,100,3106,0) +811.9256;+148,+147,+146,+141,;.01~1 +"DATA",811.8,184,100,3107,0) +811.97;+149,+141,;.01~99Y +"DATA",811.8,184,100,3108,0) +811.97;+149,+141,;1~2 +"DATA",811.8,184,100,3109,0) +811.97;+149,+141,;2~2 +"DATA",811.8,184,100,3110,0) +811.97;+149,+141,;5~0 +"DATA",811.8,184,100,3111,0) +811.97;+149,+141,;6~0 +"DATA",811.8,184,100,3112,0) +]]> +"DATA",811.8,184,100,3113,0) + +"DATA",811.8,184,100,3114,0) + +"DATA",811.8,184,100,3115,0) + +"DATA",811.8,184,100,3125,0) + +"DATA",811.8,184,100,3126,0) + +"DATA",811.8,184,100,3127,0) + +"DATA",811.8,184,100,3128,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3129,0) +811.9 +"DATA",811.8,184,100,3130,0) +MU NQF0038 NUM3-1 MUMPS +"DATA",811.8,184,100,3131,0) +149 +"DATA",811.8,184,100,3132,0) +407955614 +"DATA",811.8,184,100,3133,0) +NO +"DATA",811.8,184,100,3134,0) + +"DATA",811.8,184,100,3135,0) +1 +"DATA",811.8,184,100,3170,0) +811.925;+154,+149,;10~FN(1)>1 +"DATA",811.8,184,100,3171,0) +811.925;+154,+149,;41~0 +"DATA",811.8,184,100,3172,0) +811.925;+154,+149,;42~0 +"DATA",811.8,184,100,3173,0) +811.9255;+155,+154,+149,;.01~1 +"DATA",811.8,184,100,3174,0) +811.9255;+155,+154,+149,;.02~COUNT +"DATA",811.8,184,100,3175,0) +811.9256;+156,+155,+154,+149,;.01~1 +"DATA",811.8,184,100,3176,0) +811.97;+157,+149,;.01~99Y +"DATA",811.8,184,100,3177,0) +811.97;+157,+149,;1~2 +"DATA",811.8,184,100,3178,0) +811.97;+157,+149,;2~2 +"DATA",811.8,184,100,3179,0) +811.97;+157,+149,;5~0 +"DATA",811.8,184,100,3180,0) +811.97;+157,+149,;6~0 +"DATA",811.8,184,100,3181,0) +]]> +"DATA",811.8,184,100,3182,0) + +"DATA",811.8,184,100,3183,0) + +"DATA",811.8,184,100,3184,0) + +"DATA",811.8,184,100,3194,0) + +"DATA",811.8,184,100,3195,0) + +"DATA",811.8,184,100,3196,0) + +"DATA",811.8,184,100,3197,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3198,0) +811.9 +"DATA",811.8,184,100,3199,0) +MU NQF0038 NUM2 IPV LIST +"DATA",811.8,184,100,3200,0) +156 +"DATA",811.8,184,100,3201,0) +3647355999 +"DATA",811.8,184,100,3202,0) +NO +"DATA",811.8,184,100,3203,0) + +"DATA",811.8,184,100,3204,0) +41)&(DIFF_DATE(2,3)>41))!(FI(4)) +"DATA",811.8,184,100,3248,0) +811.925;+163,+156,;10~((FN(1)>41)&(FN(2)>41))!(FN(3)) +"DATA",811.8,184,100,3249,0) +811.925;+163,+156,;41~0 +"DATA",811.8,184,100,3250,0) +811.925;+163,+156,;42~0 +"DATA",811.8,184,100,3251,0) +811.9255;+164,+163,+156,;.01~1 +"DATA",811.8,184,100,3252,0) +811.9255;+164,+163,+156,;.02~DIFF_DATE +"DATA",811.8,184,100,3253,0) +811.9255;+165,+163,+156,;.01~2 +"DATA",811.8,184,100,3254,0) +811.9255;+165,+163,+156,;.02~DIFF_DATE +"DATA",811.8,184,100,3255,0) +811.9255;+166,+163,+156,;.01~3 +"DATA",811.8,184,100,3256,0) +811.9255;+166,+163,+156,;.02~FI +"DATA",811.8,184,100,3257,0) +811.9256;+167,+164,+163,+156,;.01~1 +"DATA",811.8,184,100,3258,0) +811.9256;+168,+165,+163,+156,;.01~2 +"DATA",811.8,184,100,3259,0) +811.9256;+169,+166,+163,+156,;.01~4 +"DATA",811.8,184,100,3260,0) +811.9256;+170,+164,+163,+156,;.01~2 +"DATA",811.8,184,100,3261,0) +811.9256;+171,+165,+163,+156,;.01~3 +"DATA",811.8,184,100,3262,0) +811.97;+172,+156,;.01~99Y +"DATA",811.8,184,100,3263,0) +811.97;+172,+156,;1~2 +"DATA",811.8,184,100,3264,0) +811.97;+172,+156,;2~2 +"DATA",811.8,184,100,3265,0) +811.97;+172,+156,;3~WP-start~1 +"DATA",811.8,184,100,3266,0) +PATIENT WAS 2 DURING EVALUATION PERIOD. +"DATA",811.8,184,100,3267,0) +811.97;+172,+156,;5~1 +"DATA",811.8,184,100,3268,0) +811.97;+172,+156,;6~0 +"DATA",811.8,184,100,3269,0) +]]> +"DATA",811.8,184,100,3270,0) + +"DATA",811.8,184,100,3271,0) + +"DATA",811.8,184,100,3272,0) + +"DATA",811.8,184,100,3290,0) + +"DATA",811.8,184,100,3291,0) + +"DATA",811.8,184,100,3292,0) + +"DATA",811.8,184,100,3293,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3294,0) +811.9 +"DATA",811.8,184,100,3295,0) +MU NQF0038 NUM1 LIST +"DATA",811.8,184,100,3296,0) +148 +"DATA",811.8,184,100,3297,0) +2285142910 +"DATA",811.8,184,100,3298,0) +NO +"DATA",811.8,184,100,3299,0) + +"DATA",811.8,184,100,3300,0) +41)&(DIFF_DATE(4,5)>41)&(DIFF_DATE(5,6)>41) +"DATA",811.8,184,100,3354,0) +811.925;+157,+148,;10~(FN(1)>41)&(FN(2)>41)&(FN(3)>41) +"DATA",811.8,184,100,3355,0) +811.925;+157,+148,;41~0 +"DATA",811.8,184,100,3356,0) +811.925;+157,+148,;42~0 +"DATA",811.8,184,100,3357,0) +811.925;+158,+148,;.01~2 +"DATA",811.8,184,100,3358,0) +811.925;+158,+148,;3~(PXRMDOB+20000)>MRD(6,7) +"DATA",811.8,184,100,3359,0) +811.925;+158,+148,;10~(PXRMDOB+20000)>FN(1) +"DATA",811.8,184,100,3360,0) +811.925;+158,+148,;41~0 +"DATA",811.8,184,100,3361,0) +811.925;+158,+148,;42~0 +"DATA",811.8,184,100,3362,0) +811.9255;+159,+157,+148,;.01~1 +"DATA",811.8,184,100,3363,0) +811.9255;+159,+157,+148,;.02~DIFF_DATE +"DATA",811.8,184,100,3364,0) +811.9255;+160,+158,+148,;.01~1 +"DATA",811.8,184,100,3365,0) +811.9255;+160,+158,+148,;.02~MRD +"DATA",811.8,184,100,3366,0) +811.9255;+161,+157,+148,;.01~2 +"DATA",811.8,184,100,3367,0) +811.9255;+161,+157,+148,;.02~DIFF_DATE +"DATA",811.8,184,100,3368,0) +811.9255;+162,+157,+148,;.01~3 +"DATA",811.8,184,100,3369,0) +811.9255;+162,+157,+148,;.02~DIFF_DATE +"DATA",811.8,184,100,3370,0) +811.9256;+163,+159,+157,+148,;.01~1 +"DATA",811.8,184,100,3371,0) +811.9256;+164,+160,+158,+148,;.01~6 +"DATA",811.8,184,100,3372,0) +811.9256;+165,+161,+157,+148,;.01~4 +"DATA",811.8,184,100,3373,0) +811.9256;+166,+162,+157,+148,;.01~5 +"DATA",811.8,184,100,3374,0) +811.9256;+167,+159,+157,+148,;.01~4 +"DATA",811.8,184,100,3375,0) +811.9256;+168,+160,+158,+148,;.01~7 +"DATA",811.8,184,100,3376,0) +811.9256;+169,+161,+157,+148,;.01~5 +"DATA",811.8,184,100,3377,0) +811.9256;+170,+162,+157,+148,;.01~6 +"DATA",811.8,184,100,3378,0) +811.97;+171,+148,;.01~99Y +"DATA",811.8,184,100,3379,0) +811.97;+171,+148,;1~2 +"DATA",811.8,184,100,3380,0) +811.97;+171,+148,;2~2 +"DATA",811.8,184,100,3381,0) +811.97;+171,+148,;5~0 +"DATA",811.8,184,100,3382,0) +811.97;+171,+148,;6~0 +"DATA",811.8,184,100,3383,0) +]]> +"DATA",811.8,184,100,3384,0) + +"DATA",811.8,184,100,3385,0) + +"DATA",811.8,184,100,3386,0) + +"DATA",811.8,184,100,3411,0) + +"DATA",811.8,184,100,3412,0) + +"DATA",811.8,184,100,3413,0) + +"DATA",811.8,184,100,3414,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3415,0) +810.4 +"DATA",811.8,184,100,3416,0) +MU NQF0038 NUM8 ALLERGY FR +"DATA",811.8,184,100,3417,0) +193 +"DATA",811.8,184,100,3418,0) +580312536 +"DATA",811.8,184,100,3419,0) +NO +"DATA",811.8,184,100,3420,0) + +"DATA",811.8,184,100,3421,0) + +"DATA",811.8,184,100,3432,0) + +"DATA",811.8,184,100,3433,0) + +"DATA",811.8,184,100,3434,0) + +"DATA",811.8,184,100,3437,0) + +"DATA",811.8,184,100,3438,0) + +"DATA",811.8,184,100,3439,0) + +"DATA",811.8,184,100,3440,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3441,0) +810.4 +"DATA",811.8,184,100,3442,0) +MU NQF0038 NUM8 RR +"DATA",811.8,184,100,3443,0) +194 +"DATA",811.8,184,100,3444,0) +271688782 +"DATA",811.8,184,100,3445,0) +NO +"DATA",811.8,184,100,3446,0) + +"DATA",811.8,184,100,3447,0) + +"DATA",811.8,184,100,3456,0) + +"DATA",811.8,184,100,3457,0) + +"DATA",811.8,184,100,3458,0) + +"DATA",811.8,184,100,3461,0) + +"DATA",811.8,184,100,3462,0) + +"DATA",811.8,184,100,3463,0) + +"DATA",811.8,184,100,3464,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3465,0) +810.4 +"DATA",811.8,184,100,3466,0) +MU NQF0038 NUM8 HEP A RS +"DATA",811.8,184,100,3467,0) +195 +"DATA",811.8,184,100,3468,0) +317566218 +"DATA",811.8,184,100,3469,0) +NO +"DATA",811.8,184,100,3470,0) + +"DATA",811.8,184,100,3471,0) + +"DATA",811.8,184,100,3485,0) + +"DATA",811.8,184,100,3486,0) + +"DATA",811.8,184,100,3487,0) + +"DATA",811.8,184,100,3492,0) + +"DATA",811.8,184,100,3493,0) + +"DATA",811.8,184,100,3494,0) + +"DATA",811.8,184,100,3495,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3496,0) +810.4 +"DATA",811.8,184,100,3497,0) +MU NQF0038 NUM10 FLU RR +"DATA",811.8,184,100,3498,0) +102 +"DATA",811.8,184,100,3499,0) +612564212 +"DATA",811.8,184,100,3500,0) +NO +"DATA",811.8,184,100,3501,0) + +"DATA",811.8,184,100,3502,0) + +"DATA",811.8,184,100,3511,0) + +"DATA",811.8,184,100,3512,0) + +"DATA",811.8,184,100,3513,0) + +"DATA",811.8,184,100,3516,0) + +"DATA",811.8,184,100,3517,0) + +"DATA",811.8,184,100,3518,0) + +"DATA",811.8,184,100,3519,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3520,0) +810.4 +"DATA",811.8,184,100,3521,0) +MU NQF0038 NUM10 FLU FR +"DATA",811.8,184,100,3522,0) +103 +"DATA",811.8,184,100,3523,0) +835561642 +"DATA",811.8,184,100,3524,0) +NO +"DATA",811.8,184,100,3525,0) + +"DATA",811.8,184,100,3526,0) + +"DATA",811.8,184,100,3535,0) + +"DATA",811.8,184,100,3536,0) + +"DATA",811.8,184,100,3537,0) + +"DATA",811.8,184,100,3540,0) + +"DATA",811.8,184,100,3541,0) + +"DATA",811.8,184,100,3542,0) + +"DATA",811.8,184,100,3543,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3544,0) +810.4 +"DATA",811.8,184,100,3545,0) +MU NQF0038 DENOM RR +"DATA",811.8,184,100,3546,0) +67 +"DATA",811.8,184,100,3547,0) +3322876793 +"DATA",811.8,184,100,3548,0) +NO +"DATA",811.8,184,100,3549,0) + +"DATA",811.8,184,100,3550,0) + +"DATA",811.8,184,100,3559,0) + +"DATA",811.8,184,100,3560,0) + +"DATA",811.8,184,100,3561,0) + +"DATA",811.8,184,100,3564,0) + +"DATA",811.8,184,100,3565,0) + +"DATA",811.8,184,100,3566,0) + +"DATA",811.8,184,100,3567,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3568,0) +810.4 +"DATA",811.8,184,100,3569,0) +MU NQF0038 NUM10 INFLUENZA RS +"DATA",811.8,184,100,3570,0) +104 +"DATA",811.8,184,100,3571,0) +894589208 +"DATA",811.8,184,100,3572,0) +NO +"DATA",811.8,184,100,3573,0) + +"DATA",811.8,184,100,3574,0) + +"DATA",811.8,184,100,3591,0) + +"DATA",811.8,184,100,3592,0) + +"DATA",811.8,184,100,3593,0) + +"DATA",811.8,184,100,3599,0) + +"DATA",811.8,184,100,3600,0) + +"DATA",811.8,184,100,3601,0) + +"DATA",811.8,184,100,3602,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3603,0) +810.4 +"DATA",811.8,184,100,3604,0) +MU NQF0038 NUM9 ALLERGY FR +"DATA",811.8,184,100,3605,0) +146 +"DATA",811.8,184,100,3606,0) +409462214 +"DATA",811.8,184,100,3607,0) +NO +"DATA",811.8,184,100,3608,0) + +"DATA",811.8,184,100,3609,0) + +"DATA",811.8,184,100,3620,0) + +"DATA",811.8,184,100,3621,0) + +"DATA",811.8,184,100,3622,0) + +"DATA",811.8,184,100,3625,0) + +"DATA",811.8,184,100,3626,0) + +"DATA",811.8,184,100,3627,0) + +"DATA",811.8,184,100,3628,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3629,0) +810.4 +"DATA",811.8,184,100,3630,0) +MU NQF0038 NUM9 RR +"DATA",811.8,184,100,3631,0) +147 +"DATA",811.8,184,100,3632,0) +1306992670 +"DATA",811.8,184,100,3633,0) +NO +"DATA",811.8,184,100,3634,0) + +"DATA",811.8,184,100,3635,0) + +"DATA",811.8,184,100,3644,0) + +"DATA",811.8,184,100,3645,0) + +"DATA",811.8,184,100,3646,0) + +"DATA",811.8,184,100,3649,0) + +"DATA",811.8,184,100,3650,0) + +"DATA",811.8,184,100,3651,0) + +"DATA",811.8,184,100,3652,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3653,0) +810.4 +"DATA",811.8,184,100,3654,0) +MU NQF0038 NUM9 RV RS +"DATA",811.8,184,100,3655,0) +148 +"DATA",811.8,184,100,3656,0) +659147702 +"DATA",811.8,184,100,3657,0) +NO +"DATA",811.8,184,100,3658,0) + +"DATA",811.8,184,100,3659,0) + +"DATA",811.8,184,100,3673,0) + +"DATA",811.8,184,100,3674,0) + +"DATA",811.8,184,100,3675,0) + +"DATA",811.8,184,100,3680,0) + +"DATA",811.8,184,100,3681,0) + +"DATA",811.8,184,100,3682,0) + +"DATA",811.8,184,100,3683,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3684,0) +810.4 +"DATA",811.8,184,100,3685,0) +MU NQF0038 NUM4 ALLERGY FR +"DATA",811.8,184,100,3686,0) +158 +"DATA",811.8,184,100,3687,0) +3164412154 +"DATA",811.8,184,100,3688,0) +NO +"DATA",811.8,184,100,3689,0) + +"DATA",811.8,184,100,3690,0) + +"DATA",811.8,184,100,3701,0) + +"DATA",811.8,184,100,3702,0) + +"DATA",811.8,184,100,3703,0) + +"DATA",811.8,184,100,3706,0) + +"DATA",811.8,184,100,3707,0) + +"DATA",811.8,184,100,3708,0) + +"DATA",811.8,184,100,3709,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3710,0) +810.4 +"DATA",811.8,184,100,3711,0) +MU NQF0038 NUM4 RR +"DATA",811.8,184,100,3712,0) +159 +"DATA",811.8,184,100,3713,0) +2270811009 +"DATA",811.8,184,100,3714,0) +NO +"DATA",811.8,184,100,3715,0) + +"DATA",811.8,184,100,3716,0) + +"DATA",811.8,184,100,3725,0) + +"DATA",811.8,184,100,3726,0) + +"DATA",811.8,184,100,3727,0) + +"DATA",811.8,184,100,3730,0) + +"DATA",811.8,184,100,3731,0) + +"DATA",811.8,184,100,3732,0) + +"DATA",811.8,184,100,3733,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3734,0) +810.4 +"DATA",811.8,184,100,3735,0) +MU NQF0038 NUM4 HIB RS +"DATA",811.8,184,100,3736,0) +160 +"DATA",811.8,184,100,3737,0) +82663200 +"DATA",811.8,184,100,3738,0) +NO +"DATA",811.8,184,100,3739,0) + +"DATA",811.8,184,100,3740,0) + +"DATA",811.8,184,100,3754,0) + +"DATA",811.8,184,100,3755,0) + +"DATA",811.8,184,100,3756,0) + +"DATA",811.8,184,100,3761,0) + +"DATA",811.8,184,100,3762,0) + +"DATA",811.8,184,100,3763,0) + +"DATA",811.8,184,100,3764,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3765,0) +810.4 +"DATA",811.8,184,100,3766,0) +MU NQF0038 NUM7 PCV PR +"DATA",811.8,184,100,3767,0) +189 +"DATA",811.8,184,100,3768,0) +211215395 +"DATA",811.8,184,100,3769,0) +NO +"DATA",811.8,184,100,3770,0) + +"DATA",811.8,184,100,3771,0) + +"DATA",811.8,184,100,3781,0) + +"DATA",811.8,184,100,3782,0) + +"DATA",811.8,184,100,3783,0) + +"DATA",811.8,184,100,3786,0) + +"DATA",811.8,184,100,3787,0) + +"DATA",811.8,184,100,3788,0) + +"DATA",811.8,184,100,3789,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3790,0) +810.4 +"DATA",811.8,184,100,3791,0) +MU NQF0038 NUM6 VZV PR +"DATA",811.8,184,100,3792,0) +188 +"DATA",811.8,184,100,3793,0) +3145953173 +"DATA",811.8,184,100,3794,0) +NO +"DATA",811.8,184,100,3795,0) + +"DATA",811.8,184,100,3796,0) + +"DATA",811.8,184,100,3806,0) + +"DATA",811.8,184,100,3807,0) + +"DATA",811.8,184,100,3808,0) + +"DATA",811.8,184,100,3811,0) + +"DATA",811.8,184,100,3812,0) + +"DATA",811.8,184,100,3813,0) + +"DATA",811.8,184,100,3814,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3815,0) +810.4 +"DATA",811.8,184,100,3816,0) +MU NQF0038 NUM5 HEP B PR +"DATA",811.8,184,100,3817,0) +187 +"DATA",811.8,184,100,3818,0) +3618141299 +"DATA",811.8,184,100,3819,0) +NO +"DATA",811.8,184,100,3820,0) + +"DATA",811.8,184,100,3821,0) + +"DATA",811.8,184,100,3831,0) + +"DATA",811.8,184,100,3832,0) + +"DATA",811.8,184,100,3833,0) + +"DATA",811.8,184,100,3836,0) + +"DATA",811.8,184,100,3837,0) + +"DATA",811.8,184,100,3838,0) + +"DATA",811.8,184,100,3839,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3840,0) +810.4 +"DATA",811.8,184,100,3841,0) +MU NQF0038 NUM3-ALL PR +"DATA",811.8,184,100,3842,0) +190 +"DATA",811.8,184,100,3843,0) +1579468922 +"DATA",811.8,184,100,3844,0) +NO +"DATA",811.8,184,100,3845,0) + +"DATA",811.8,184,100,3846,0) + +"DATA",811.8,184,100,3856,0) + +"DATA",811.8,184,100,3857,0) + +"DATA",811.8,184,100,3858,0) + +"DATA",811.8,184,100,3861,0) + +"DATA",811.8,184,100,3862,0) + +"DATA",811.8,184,100,3863,0) + +"DATA",811.8,184,100,3864,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3865,0) +810.4 +"DATA",811.8,184,100,3866,0) +MU NQF0038 NUM2 IPV PR +"DATA",811.8,184,100,3867,0) +181 +"DATA",811.8,184,100,3868,0) +655077998 +"DATA",811.8,184,100,3869,0) +NO +"DATA",811.8,184,100,3870,0) + +"DATA",811.8,184,100,3871,0) + +"DATA",811.8,184,100,3881,0) + +"DATA",811.8,184,100,3882,0) + +"DATA",811.8,184,100,3883,0) + +"DATA",811.8,184,100,3886,0) + +"DATA",811.8,184,100,3887,0) + +"DATA",811.8,184,100,3888,0) + +"DATA",811.8,184,100,3889,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3890,0) +810.4 +"DATA",811.8,184,100,3891,0) +MU NQF0038 NUM1 DPT PR +"DATA",811.8,184,100,3892,0) +180 +"DATA",811.8,184,100,3893,0) +396938512 +"DATA",811.8,184,100,3894,0) +NO +"DATA",811.8,184,100,3895,0) + +"DATA",811.8,184,100,3896,0) + +"DATA",811.8,184,100,3906,0) + +"DATA",811.8,184,100,3907,0) + +"DATA",811.8,184,100,3908,0) + +"DATA",811.8,184,100,3911,0) + +"DATA",811.8,184,100,3912,0) + +"DATA",811.8,184,100,3913,0) + +"DATA",811.8,184,100,3914,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3915,0) +810.4 +"DATA",811.8,184,100,3916,0) +MU NQF0038 NUM12 COMBO6 RS +"DATA",811.8,184,100,3917,0) +192 +"DATA",811.8,184,100,3918,0) +1140826219 +"DATA",811.8,184,100,3919,0) +NO +"DATA",811.8,184,100,3920,0) + +"DATA",811.8,184,100,3921,0) + +"DATA",811.8,184,100,3948,0) + +"DATA",811.8,184,100,3949,0) + +"DATA",811.8,184,100,3950,0) + +"DATA",811.8,184,100,3959,0) + +"DATA",811.8,184,100,3960,0) + +"DATA",811.8,184,100,3961,0) + +"DATA",811.8,184,100,3962,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3963,0) +810.4 +"DATA",811.8,184,100,3964,0) +MU NQF0038 NUM11 COMBO5 RS +"DATA",811.8,184,100,3965,0) +191 +"DATA",811.8,184,100,3966,0) +1341186925 +"DATA",811.8,184,100,3967,0) +NO +"DATA",811.8,184,100,3968,0) + +"DATA",811.8,184,100,3969,0) + +"DATA",811.8,184,100,3993,0) + +"DATA",811.8,184,100,3994,0) + +"DATA",811.8,184,100,3995,0) + +"DATA",811.8,184,100,4003,0) + +"DATA",811.8,184,100,4004,0) + +"DATA",811.8,184,100,4005,0) + +"DATA",811.8,184,100,4006,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4007,0) +810.4 +"DATA",811.8,184,100,4008,0) +MU NQF0038 NUM7 ALLERGY +"DATA",811.8,184,100,4009,0) +149 +"DATA",811.8,184,100,4010,0) +2117858157 +"DATA",811.8,184,100,4011,0) +NO +"DATA",811.8,184,100,4012,0) + +"DATA",811.8,184,100,4013,0) + +"DATA",811.8,184,100,4024,0) + +"DATA",811.8,184,100,4025,0) + +"DATA",811.8,184,100,4026,0) + +"DATA",811.8,184,100,4029,0) + +"DATA",811.8,184,100,4030,0) + +"DATA",811.8,184,100,4031,0) + +"DATA",811.8,184,100,4032,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4033,0) +810.4 +"DATA",811.8,184,100,4034,0) +MU NQF0038 NUM7 RR +"DATA",811.8,184,100,4035,0) +150 +"DATA",811.8,184,100,4036,0) +366296038 +"DATA",811.8,184,100,4037,0) +NO +"DATA",811.8,184,100,4038,0) + +"DATA",811.8,184,100,4039,0) + +"DATA",811.8,184,100,4048,0) + +"DATA",811.8,184,100,4049,0) + +"DATA",811.8,184,100,4050,0) + +"DATA",811.8,184,100,4053,0) + +"DATA",811.8,184,100,4054,0) + +"DATA",811.8,184,100,4055,0) + +"DATA",811.8,184,100,4056,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4057,0) +810.4 +"DATA",811.8,184,100,4058,0) +MU NQF0038 NUM7 PCV RS +"DATA",811.8,184,100,4059,0) +151 +"DATA",811.8,184,100,4060,0) +2960624820 +"DATA",811.8,184,100,4061,0) +NO +"DATA",811.8,184,100,4062,0) + +"DATA",811.8,184,100,4063,0) + +"DATA",811.8,184,100,4077,0) + +"DATA",811.8,184,100,4078,0) + +"DATA",811.8,184,100,4079,0) + +"DATA",811.8,184,100,4084,0) + +"DATA",811.8,184,100,4085,0) + +"DATA",811.8,184,100,4086,0) + +"DATA",811.8,184,100,4087,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4088,0) +810.4 +"DATA",811.8,184,100,4089,0) +MU NQF0038 NUM6 ALLERGY FR +"DATA",811.8,184,100,4090,0) +152 +"DATA",811.8,184,100,4091,0) +1364688189 +"DATA",811.8,184,100,4092,0) +NO +"DATA",811.8,184,100,4093,0) + +"DATA",811.8,184,100,4094,0) + +"DATA",811.8,184,100,4105,0) + +"DATA",811.8,184,100,4106,0) + +"DATA",811.8,184,100,4107,0) + +"DATA",811.8,184,100,4110,0) + +"DATA",811.8,184,100,4111,0) + +"DATA",811.8,184,100,4112,0) + +"DATA",811.8,184,100,4113,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4114,0) +810.4 +"DATA",811.8,184,100,4115,0) +MU NQF0038 NUM6 RR +"DATA",811.8,184,100,4116,0) +153 +"DATA",811.8,184,100,4117,0) +3455337133 +"DATA",811.8,184,100,4118,0) +NO +"DATA",811.8,184,100,4119,0) + +"DATA",811.8,184,100,4120,0) + +"DATA",811.8,184,100,4129,0) + +"DATA",811.8,184,100,4130,0) + +"DATA",811.8,184,100,4131,0) + +"DATA",811.8,184,100,4134,0) + +"DATA",811.8,184,100,4135,0) + +"DATA",811.8,184,100,4136,0) + +"DATA",811.8,184,100,4137,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4138,0) +810.4 +"DATA",811.8,184,100,4139,0) +MU NQF0038 NUM6 VZV RS +"DATA",811.8,184,100,4140,0) +154 +"DATA",811.8,184,100,4141,0) +2294361658 +"DATA",811.8,184,100,4142,0) +NO +"DATA",811.8,184,100,4143,0) + +"DATA",811.8,184,100,4144,0) + +"DATA",811.8,184,100,4158,0) + +"DATA",811.8,184,100,4159,0) + +"DATA",811.8,184,100,4160,0) + +"DATA",811.8,184,100,4165,0) + +"DATA",811.8,184,100,4166,0) + +"DATA",811.8,184,100,4167,0) + +"DATA",811.8,184,100,4168,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4169,0) +810.4 +"DATA",811.8,184,100,4170,0) +MU NQF0038 NUM5 ALLERGY FR +"DATA",811.8,184,100,4171,0) +155 +"DATA",811.8,184,100,4172,0) +3068229452 +"DATA",811.8,184,100,4173,0) +NO +"DATA",811.8,184,100,4174,0) + +"DATA",811.8,184,100,4175,0) + +"DATA",811.8,184,100,4186,0) + +"DATA",811.8,184,100,4187,0) + +"DATA",811.8,184,100,4188,0) + +"DATA",811.8,184,100,4191,0) + +"DATA",811.8,184,100,4192,0) + +"DATA",811.8,184,100,4193,0) + +"DATA",811.8,184,100,4194,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4195,0) +810.4 +"DATA",811.8,184,100,4196,0) +MU NQF0038 NUM5 RR +"DATA",811.8,184,100,4197,0) +156 +"DATA",811.8,184,100,4198,0) +3323803814 +"DATA",811.8,184,100,4199,0) +NO +"DATA",811.8,184,100,4200,0) + +"DATA",811.8,184,100,4201,0) + +"DATA",811.8,184,100,4210,0) + +"DATA",811.8,184,100,4211,0) + +"DATA",811.8,184,100,4212,0) + +"DATA",811.8,184,100,4215,0) + +"DATA",811.8,184,100,4216,0) + +"DATA",811.8,184,100,4217,0) + +"DATA",811.8,184,100,4218,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4219,0) +810.4 +"DATA",811.8,184,100,4220,0) +MU NQF0038 NUM5 RS +"DATA",811.8,184,100,4221,0) +157 +"DATA",811.8,184,100,4222,0) +3115899416 +"DATA",811.8,184,100,4223,0) +NO +"DATA",811.8,184,100,4224,0) + +"DATA",811.8,184,100,4225,0) + +"DATA",811.8,184,100,4239,0) + +"DATA",811.8,184,100,4240,0) + +"DATA",811.8,184,100,4241,0) + +"DATA",811.8,184,100,4246,0) + +"DATA",811.8,184,100,4247,0) + +"DATA",811.8,184,100,4248,0) + +"DATA",811.8,184,100,4249,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4250,0) +810.4 +"DATA",811.8,184,100,4251,0) +MU NQF0038 NUM3-4 PR +"DATA",811.8,184,100,4252,0) +185 +"DATA",811.8,184,100,4253,0) +1680199935 +"DATA",811.8,184,100,4254,0) +NO +"DATA",811.8,184,100,4255,0) + +"DATA",811.8,184,100,4256,0) + +"DATA",811.8,184,100,4266,0) + +"DATA",811.8,184,100,4267,0) + +"DATA",811.8,184,100,4268,0) + +"DATA",811.8,184,100,4271,0) + +"DATA",811.8,184,100,4272,0) + +"DATA",811.8,184,100,4273,0) + +"DATA",811.8,184,100,4274,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4275,0) +810.4 +"DATA",811.8,184,100,4276,0) +MU NQF0038 NUM3-3 PR +"DATA",811.8,184,100,4277,0) +184 +"DATA",811.8,184,100,4278,0) +2217373386 +"DATA",811.8,184,100,4279,0) +NO +"DATA",811.8,184,100,4280,0) + +"DATA",811.8,184,100,4281,0) + +"DATA",811.8,184,100,4291,0) + +"DATA",811.8,184,100,4292,0) + +"DATA",811.8,184,100,4293,0) + +"DATA",811.8,184,100,4296,0) + +"DATA",811.8,184,100,4297,0) + +"DATA",811.8,184,100,4298,0) + +"DATA",811.8,184,100,4299,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4300,0) +810.4 +"DATA",811.8,184,100,4301,0) +MU NQF0038 NUM3-2 PR +"DATA",811.8,184,100,4302,0) +183 +"DATA",811.8,184,100,4303,0) +2912733258 +"DATA",811.8,184,100,4304,0) +NO +"DATA",811.8,184,100,4305,0) + +"DATA",811.8,184,100,4306,0) + +"DATA",811.8,184,100,4316,0) + +"DATA",811.8,184,100,4317,0) + +"DATA",811.8,184,100,4318,0) + +"DATA",811.8,184,100,4321,0) + +"DATA",811.8,184,100,4322,0) + +"DATA",811.8,184,100,4323,0) + +"DATA",811.8,184,100,4324,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4325,0) +810.4 +"DATA",811.8,184,100,4326,0) +MU NQF0038 NUM3-1 PR +"DATA",811.8,184,100,4327,0) +182 +"DATA",811.8,184,100,4328,0) +3797202273 +"DATA",811.8,184,100,4329,0) +NO +"DATA",811.8,184,100,4330,0) + +"DATA",811.8,184,100,4331,0) + +"DATA",811.8,184,100,4341,0) + +"DATA",811.8,184,100,4342,0) + +"DATA",811.8,184,100,4343,0) + +"DATA",811.8,184,100,4346,0) + +"DATA",811.8,184,100,4347,0) + +"DATA",811.8,184,100,4348,0) + +"DATA",811.8,184,100,4349,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4350,0) +810.4 +"DATA",811.8,184,100,4351,0) +MU NQF0038 NUM3-ALL RS +"DATA",811.8,184,100,4352,0) +186 +"DATA",811.8,184,100,4353,0) +2008475235 +"DATA",811.8,184,100,4354,0) +NO +"DATA",811.8,184,100,4355,0) + +"DATA",811.8,184,100,4356,0) + +"DATA",811.8,184,100,4377,0) + +"DATA",811.8,184,100,4378,0) + +"DATA",811.8,184,100,4379,0) + +"DATA",811.8,184,100,4386,0) + +"DATA",811.8,184,100,4387,0) + +"DATA",811.8,184,100,4388,0) + +"DATA",811.8,184,100,4389,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4390,0) +810.4 +"DATA",811.8,184,100,4391,0) +MU NQF0038 NUM3-4 MMR AND EXCL RR +"DATA",811.8,184,100,4392,0) +88 +"DATA",811.8,184,100,4393,0) +1272599656 +"DATA",811.8,184,100,4394,0) +NO +"DATA",811.8,184,100,4395,0) + +"DATA",811.8,184,100,4396,0) + +"DATA",811.8,184,100,4405,0) + +"DATA",811.8,184,100,4406,0) + +"DATA",811.8,184,100,4407,0) + +"DATA",811.8,184,100,4410,0) + +"DATA",811.8,184,100,4411,0) + +"DATA",811.8,184,100,4412,0) + +"DATA",811.8,184,100,4413,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4414,0) +810.4 +"DATA",811.8,184,100,4415,0) +MU NQF0038 NUM3 MMR ALLERGY FR +"DATA",811.8,184,100,4416,0) +89 +"DATA",811.8,184,100,4417,0) +4236512237 +"DATA",811.8,184,100,4418,0) +NO +"DATA",811.8,184,100,4419,0) + +"DATA",811.8,184,100,4420,0) + +"DATA",811.8,184,100,4429,0) + +"DATA",811.8,184,100,4430,0) + +"DATA",811.8,184,100,4431,0) + +"DATA",811.8,184,100,4434,0) + +"DATA",811.8,184,100,4435,0) + +"DATA",811.8,184,100,4436,0) + +"DATA",811.8,184,100,4437,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4438,0) +810.4 +"DATA",811.8,184,100,4439,0) +MU NQF0038 NUM3-4 MMR AND EXCLU RS +"DATA",811.8,184,100,4440,0) +90 +"DATA",811.8,184,100,4441,0) +1961889816 +"DATA",811.8,184,100,4442,0) +NO +"DATA",811.8,184,100,4443,0) + +"DATA",811.8,184,100,4444,0) + +"DATA",811.8,184,100,4461,0) + +"DATA",811.8,184,100,4462,0) + +"DATA",811.8,184,100,4463,0) + +"DATA",811.8,184,100,4469,0) + +"DATA",811.8,184,100,4470,0) + +"DATA",811.8,184,100,4471,0) + +"DATA",811.8,184,100,4472,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4473,0) +810.4 +"DATA",811.8,184,100,4474,0) +MU NQF0038 NUM3-3 RUBELLA RR +"DATA",811.8,184,100,4475,0) +91 +"DATA",811.8,184,100,4476,0) +3263414274 +"DATA",811.8,184,100,4477,0) +NO +"DATA",811.8,184,100,4478,0) + +"DATA",811.8,184,100,4479,0) + +"DATA",811.8,184,100,4488,0) + +"DATA",811.8,184,100,4489,0) + +"DATA",811.8,184,100,4490,0) + +"DATA",811.8,184,100,4493,0) + +"DATA",811.8,184,100,4494,0) + +"DATA",811.8,184,100,4495,0) + +"DATA",811.8,184,100,4496,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4497,0) +810.4 +"DATA",811.8,184,100,4498,0) +MU NQF0038 RUBELLA ALERGY FR +"DATA",811.8,184,100,4499,0) +92 +"DATA",811.8,184,100,4500,0) +1563630356 +"DATA",811.8,184,100,4501,0) +NO +"DATA",811.8,184,100,4502,0) + +"DATA",811.8,184,100,4503,0) + +"DATA",811.8,184,100,4512,0) + +"DATA",811.8,184,100,4513,0) + +"DATA",811.8,184,100,4514,0) + +"DATA",811.8,184,100,4517,0) + +"DATA",811.8,184,100,4518,0) + +"DATA",811.8,184,100,4519,0) + +"DATA",811.8,184,100,4520,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4521,0) +810.4 +"DATA",811.8,184,100,4522,0) +MU NQF0038 NUM3-3 RUBELLA RS +"DATA",811.8,184,100,4523,0) +93 +"DATA",811.8,184,100,4524,0) +594563451 +"DATA",811.8,184,100,4525,0) +NO +"DATA",811.8,184,100,4526,0) + +"DATA",811.8,184,100,4527,0) + +"DATA",811.8,184,100,4544,0) + +"DATA",811.8,184,100,4545,0) + +"DATA",811.8,184,100,4546,0) + +"DATA",811.8,184,100,4552,0) + +"DATA",811.8,184,100,4553,0) + +"DATA",811.8,184,100,4554,0) + +"DATA",811.8,184,100,4555,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4556,0) +810.4 +"DATA",811.8,184,100,4557,0) +MU NQF0038 NUM3-2 MEASLES RR +"DATA",811.8,184,100,4558,0) +94 +"DATA",811.8,184,100,4559,0) +3998010317 +"DATA",811.8,184,100,4560,0) +NO +"DATA",811.8,184,100,4561,0) + +"DATA",811.8,184,100,4562,0) + +"DATA",811.8,184,100,4571,0) + +"DATA",811.8,184,100,4572,0) + +"DATA",811.8,184,100,4573,0) + +"DATA",811.8,184,100,4576,0) + +"DATA",811.8,184,100,4577,0) + +"DATA",811.8,184,100,4578,0) + +"DATA",811.8,184,100,4579,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4580,0) +810.4 +"DATA",811.8,184,100,4581,0) +MU NQF0038 NUM3 MEASLES ALLERGY FR +"DATA",811.8,184,100,4582,0) +66 +"DATA",811.8,184,100,4583,0) +3218860484 +"DATA",811.8,184,100,4584,0) +NO +"DATA",811.8,184,100,4585,0) + +"DATA",811.8,184,100,4586,0) + +"DATA",811.8,184,100,4595,0) + +"DATA",811.8,184,100,4596,0) + +"DATA",811.8,184,100,4597,0) + +"DATA",811.8,184,100,4600,0) + +"DATA",811.8,184,100,4601,0) + +"DATA",811.8,184,100,4602,0) + +"DATA",811.8,184,100,4603,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4604,0) +810.4 +"DATA",811.8,184,100,4605,0) +MU NQF0038 NUM3-2 MEASLES RS +"DATA",811.8,184,100,4606,0) +95 +"DATA",811.8,184,100,4607,0) +3638212138 +"DATA",811.8,184,100,4608,0) +NO +"DATA",811.8,184,100,4609,0) + +"DATA",811.8,184,100,4610,0) + +"DATA",811.8,184,100,4627,0) + +"DATA",811.8,184,100,4628,0) + +"DATA",811.8,184,100,4629,0) + +"DATA",811.8,184,100,4635,0) + +"DATA",811.8,184,100,4636,0) + +"DATA",811.8,184,100,4637,0) + +"DATA",811.8,184,100,4638,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4639,0) +810.4 +"DATA",811.8,184,100,4640,0) +MU NQF0038 NUM3-1 MUMPS RR +"DATA",811.8,184,100,4641,0) +96 +"DATA",811.8,184,100,4642,0) +3554346091 +"DATA",811.8,184,100,4643,0) +NO +"DATA",811.8,184,100,4644,0) + +"DATA",811.8,184,100,4645,0) + +"DATA",811.8,184,100,4654,0) + +"DATA",811.8,184,100,4655,0) + +"DATA",811.8,184,100,4656,0) + +"DATA",811.8,184,100,4659,0) + +"DATA",811.8,184,100,4660,0) + +"DATA",811.8,184,100,4661,0) + +"DATA",811.8,184,100,4662,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4663,0) +810.4 +"DATA",811.8,184,100,4664,0) +MU NQF0038 NUM3 MUMPS ALLERGY FR +"DATA",811.8,184,100,4665,0) +84 +"DATA",811.8,184,100,4666,0) +3166110152 +"DATA",811.8,184,100,4667,0) +NO +"DATA",811.8,184,100,4668,0) + +"DATA",811.8,184,100,4669,0) + +"DATA",811.8,184,100,4678,0) + +"DATA",811.8,184,100,4679,0) + +"DATA",811.8,184,100,4680,0) + +"DATA",811.8,184,100,4683,0) + +"DATA",811.8,184,100,4684,0) + +"DATA",811.8,184,100,4685,0) + +"DATA",811.8,184,100,4686,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4687,0) +810.4 +"DATA",811.8,184,100,4688,0) +MU NQF0038 NUM3-1 MUMPS RS +"DATA",811.8,184,100,4689,0) +97 +"DATA",811.8,184,100,4690,0) +2495675956 +"DATA",811.8,184,100,4691,0) +NO +"DATA",811.8,184,100,4692,0) + +"DATA",811.8,184,100,4693,0) + +"DATA",811.8,184,100,4710,0) + +"DATA",811.8,184,100,4711,0) + +"DATA",811.8,184,100,4712,0) + +"DATA",811.8,184,100,4718,0) + +"DATA",811.8,184,100,4719,0) + +"DATA",811.8,184,100,4720,0) + +"DATA",811.8,184,100,4721,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4722,0) +810.4 +"DATA",811.8,184,100,4723,0) +MU NQF0038 NUM2 1 RR +"DATA",811.8,184,100,4724,0) +98 +"DATA",811.8,184,100,4725,0) +1373361489 +"DATA",811.8,184,100,4726,0) +NO +"DATA",811.8,184,100,4727,0) + +"DATA",811.8,184,100,4728,0) + +"DATA",811.8,184,100,4737,0) + +"DATA",811.8,184,100,4738,0) + +"DATA",811.8,184,100,4739,0) + +"DATA",811.8,184,100,4742,0) + +"DATA",811.8,184,100,4743,0) + +"DATA",811.8,184,100,4744,0) + +"DATA",811.8,184,100,4745,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4746,0) +810.4 +"DATA",811.8,184,100,4747,0) +MU NQF0038 NUM2 ALLERGY FR +"DATA",811.8,184,100,4748,0) +99 +"DATA",811.8,184,100,4749,0) +2870067539 +"DATA",811.8,184,100,4750,0) +NO +"DATA",811.8,184,100,4751,0) + +"DATA",811.8,184,100,4752,0) + +"DATA",811.8,184,100,4761,0) + +"DATA",811.8,184,100,4762,0) + +"DATA",811.8,184,100,4763,0) + +"DATA",811.8,184,100,4766,0) + +"DATA",811.8,184,100,4767,0) + +"DATA",811.8,184,100,4768,0) + +"DATA",811.8,184,100,4769,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4770,0) +810.4 +"DATA",811.8,184,100,4771,0) +MU NQF0038 NUM2 IPV RS +"DATA",811.8,184,100,4772,0) +100 +"DATA",811.8,184,100,4773,0) +3471243906 +"DATA",811.8,184,100,4774,0) +NO +"DATA",811.8,184,100,4775,0) + +"DATA",811.8,184,100,4776,0) + +"DATA",811.8,184,100,4793,0) + +"DATA",811.8,184,100,4794,0) + +"DATA",811.8,184,100,4795,0) + +"DATA",811.8,184,100,4801,0) + +"DATA",811.8,184,100,4802,0) + +"DATA",811.8,184,100,4803,0) + +"DATA",811.8,184,100,4804,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4805,0) +810.4 +"DATA",811.8,184,100,4806,0) +MU NQF0038 NUM1 RR +"DATA",811.8,184,100,4807,0) +79 +"DATA",811.8,184,100,4808,0) +1728070001 +"DATA",811.8,184,100,4809,0) +NO +"DATA",811.8,184,100,4810,0) + +"DATA",811.8,184,100,4811,0) + +"DATA",811.8,184,100,4820,0) + +"DATA",811.8,184,100,4821,0) + +"DATA",811.8,184,100,4822,0) + +"DATA",811.8,184,100,4825,0) + +"DATA",811.8,184,100,4826,0) + +"DATA",811.8,184,100,4827,0) + +"DATA",811.8,184,100,4828,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4829,0) +810.4 +"DATA",811.8,184,100,4830,0) +MU NQF0038 NUM1 DPT ALLERGY FR +"DATA",811.8,184,100,4831,0) +80 +"DATA",811.8,184,100,4832,0) +705637361 +"DATA",811.8,184,100,4833,0) +NO +"DATA",811.8,184,100,4834,0) + +"DATA",811.8,184,100,4835,0) + +"DATA",811.8,184,100,4844,0) + +"DATA",811.8,184,100,4845,0) + +"DATA",811.8,184,100,4846,0) + +"DATA",811.8,184,100,4849,0) + +"DATA",811.8,184,100,4850,0) + +"DATA",811.8,184,100,4851,0) + +"DATA",811.8,184,100,4852,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4853,0) +810.4 +"DATA",811.8,184,100,4854,0) +MU NQF0038 NUM1 DPT RS +"DATA",811.8,184,100,4855,0) +81 +"DATA",811.8,184,100,4856,0) +2102262028 +"DATA",811.8,184,100,4857,0) +NO +"DATA",811.8,184,100,4858,0) + +"DATA",811.8,184,100,4859,0) + +"DATA",811.8,184,100,4876,0) + +"DATA",811.8,184,100,4877,0) + +"DATA",811.8,184,100,4878,0) + +"DATA",811.8,184,100,4884,0) + +"DATA",811.8,184,100,4885,0) + +"DATA",811.8,184,100,4886,0) + +"DATA",811.8,184,100,4887,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4888,0) +810.4 +"DATA",811.8,184,100,4889,0) +MU NQF0038 DENOM RS +"DATA",811.8,184,100,4890,0) +82 +"DATA",811.8,184,100,4891,0) +1609875410 +"DATA",811.8,184,100,4892,0) +NO +"DATA",811.8,184,100,4893,0) + +"DATA",811.8,184,100,4894,0) + +"DATA",811.8,184,100,4905,0) + +"DATA",811.8,184,100,4906,0) + +"DATA",811.8,184,100,4907,0) + +"DATA",811.8,184,100,4911,0) + +"DATA",811.8,184,100,4912,0) + +"DATA",811.8,184,100,4913,0) + +"DATA",811.8,184,100,4914,0) +REMINDER EXTRACT DEFINITION +"DATA",811.8,184,100,4915,0) +810.2 +"DATA",811.8,184,100,4916,0) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"DATA",811.8,184,100,4917,0) +11 +"DATA",811.8,184,100,4918,0) +3700429294 +"DATA",811.8,184,100,4919,0) +YES +"DATA",811.8,184,100,4920,0) + +"DATA",811.8,184,100,4921,0) + +"DATA",811.8,184,100,5018,0) + +"DATA",811.8,184,100,5019,0) + +"DATA",811.8,184,100,5020,0) + +"DATA",811.8,184,100,5040,0) + +"DATA",811.8,184,100,5041,0) + +"DATA",811.8,184,100,5042,0) + +"DATA",811.8,184,100,5043,0) +160 +"DATA",811.8,184,100,5044,0) + +"DATA",811.8,184,100,5045,0) +22 +"DATA",811.8,184,100,5046,0) +51 +"DATA",811.8,184,100,5047,0) +27 +"DATA",811.8,184,100,5048,0) + +"DATA",811.8,184,100,5049,0) + +"DATA",811.8,184,100,5050,0) +66 +"DATA",811.8,184,100,5051,0) +64 +"DATA",811.8,184,100,5052,0) +55 +"DATA",811.8,184,100,5053,0) + +"DATA",811.8,184,100,5054,0) + +"DATA",811.8,184,100,5055,0) +81 +"DATA",811.8,184,100,5056,0) +79 +"DATA",811.8,184,100,5057,0) +70 +"DATA",811.8,184,100,5058,0) + +"DATA",811.8,184,100,5059,0) + +"DATA",811.8,184,100,5060,0) +96 +"DATA",811.8,184,100,5061,0) +94 +"DATA",811.8,184,100,5062,0) +85 +"DATA",811.8,184,100,5063,0) + +"DATA",811.8,184,100,5064,0) + +"DATA",811.8,184,100,5065,0) +111 +"DATA",811.8,184,100,5066,0) +109 +"DATA",811.8,184,100,5067,0) +100 +"DATA",811.8,184,100,5068,0) + +"DATA",811.8,184,100,5069,0) + +"DATA",811.8,184,100,5070,0) +126 +"DATA",811.8,184,100,5071,0) +124 +"DATA",811.8,184,100,5072,0) +115 +"DATA",811.8,184,100,5073,0) + +"DATA",811.8,184,100,5074,0) + +"DATA",811.8,184,100,5075,0) +141 +"DATA",811.8,184,100,5076,0) +139 +"DATA",811.8,184,100,5077,0) +130 +"DATA",811.8,184,100,5078,0) + +"DATA",811.8,184,100,5079,0) + +"DATA",811.8,184,100,5080,0) +156 +"DATA",811.8,184,100,5081,0) +154 +"DATA",811.8,184,100,5082,0) +145 +"DATA",811.8,184,100,5083,0) + +"DATA",811.8,184,100,5084,0) + +"DATA",811.8,184,100,5085,0) +170 +"DATA",811.8,184,100,5086,0) +169 +"DATA",811.8,184,100,5087,0) +160 +"DATA",811.8,184,100,5088,0) + +"DATA",811.8,184,100,5089,0) + +"DATA",811.8,184,100,5090,0) +185 +"DATA",811.8,184,100,5091,0) +183 +"DATA",811.8,184,100,5092,0) +174 +"DATA",811.8,184,100,5093,0) + +"DATA",811.8,184,100,5094,0) + +"DATA",811.8,184,100,5095,0) +199 +"DATA",811.8,184,100,5096,0) +198 +"DATA",811.8,184,100,5097,0) +189 +"DATA",811.8,184,100,5098,0) + +"DATA",811.8,184,100,5099,0) + +"DATA",811.8,184,100,5100,0) +214 +"DATA",811.8,184,100,5101,0) +212 +"DATA",811.8,184,100,5102,0) +203 +"DATA",811.8,184,100,5103,0) + +"DATA",811.8,184,100,5104,0) + +"DATA",811.8,184,100,5105,0) +228 +"DATA",811.8,184,100,5106,0) +227 +"DATA",811.8,184,100,5107,0) +218 +"DATA",811.8,184,100,5108,0) + +"DATA",811.8,184,100,5109,0) + +"DATA",811.8,184,100,5110,0) +243 +"DATA",811.8,184,100,5111,0) +241 +"DATA",811.8,184,100,5112,0) +232 +"DATA",811.8,184,100,5113,0) + +"DATA",811.8,184,100,5114,0) + +"DATA",811.8,184,100,5115,0) +258 +"DATA",811.8,184,100,5116,0) +256 +"DATA",811.8,184,100,5117,0) +247 +"DATA",811.8,184,100,5118,0) + +"DATA",811.8,184,100,5119,0) + +"DATA",811.8,184,100,5120,0) +273 +"DATA",811.8,184,100,5121,0) +271 +"DATA",811.8,184,100,5122,0) +262 +"DATA",811.8,184,100,5123,0) + +"DATA",811.8,184,100,5124,0) + +"DATA",811.8,184,100,5125,0) +288 +"DATA",811.8,184,100,5126,0) +286 +"DATA",811.8,184,100,5127,0) +277 +"DATA",811.8,184,100,5128,0) + +"DATA",811.8,184,100,5129,0) + +"DATA",811.8,184,100,5130,0) +303 +"DATA",811.8,184,100,5131,0) +301 +"DATA",811.8,184,100,5132,0) +292 +"DATA",811.8,184,100,5133,0) + +"DATA",811.8,184,100,5134,0) + +"DATA",811.8,184,100,5135,0) +318 +"DATA",811.8,184,100,5136,0) +316 +"DATA",811.8,184,100,5137,0) +307 +"DATA",811.8,184,100,5138,0) + +"DATA",811.8,184,100,5139,0) + +"DATA",811.8,184,100,5140,0) +333 +"DATA",811.8,184,100,5141,0) +331 +"DATA",811.8,184,100,5142,0) +322 +"DATA",811.8,184,100,5143,0) + +"DATA",811.8,184,100,5144,0) + +"DATA",811.8,184,100,5145,0) +348 +"DATA",811.8,184,100,5146,0) +346 +"DATA",811.8,184,100,5147,0) +337 +"DATA",811.8,184,100,5148,0) + +"DATA",811.8,184,100,5149,0) + +"DATA",811.8,184,100,5150,0) +363 +"DATA",811.8,184,100,5151,0) +361 +"DATA",811.8,184,100,5152,0) +352 +"DATA",811.8,184,100,5153,0) + +"DATA",811.8,184,100,5154,0) + +"DATA",811.8,184,100,5155,0) +378 +"DATA",811.8,184,100,5156,0) +376 +"DATA",811.8,184,100,5157,0) +367 +"DATA",811.8,184,100,5158,0) + +"DATA",811.8,184,100,5159,0) + +"DATA",811.8,184,100,5160,0) +393 +"DATA",811.8,184,100,5161,0) +391 +"DATA",811.8,184,100,5162,0) +382 +"DATA",811.8,184,100,5163,0) + +"DATA",811.8,184,100,5164,0) + +"DATA",811.8,184,100,5165,0) +408 +"DATA",811.8,184,100,5166,0) +406 +"DATA",811.8,184,100,5167,0) +397 +"DATA",811.8,184,100,5168,0) + +"DATA",811.8,184,100,5169,0) + +"DATA",811.8,184,100,5170,0) +422 +"DATA",811.8,184,100,5171,0) +421 +"DATA",811.8,184,100,5172,0) +412 +"DATA",811.8,184,100,5173,0) + +"DATA",811.8,184,100,5174,0) + +"DATA",811.8,184,100,5175,0) +436 +"DATA",811.8,184,100,5176,0) +435 +"DATA",811.8,184,100,5177,0) +426 +"DATA",811.8,184,100,5178,0) + +"DATA",811.8,184,100,5179,0) + +"DATA",811.8,184,100,5180,0) +451 +"DATA",811.8,184,100,5181,0) +449 +"DATA",811.8,184,100,5182,0) +440 +"DATA",811.8,184,100,5183,0) + +"DATA",811.8,184,100,5184,0) + +"DATA",811.8,184,100,5185,0) +466 +"DATA",811.8,184,100,5186,0) +464 +"DATA",811.8,184,100,5187,0) +455 +"DATA",811.8,184,100,5188,0) + +"DATA",811.8,184,100,5189,0) + +"DATA",811.8,184,100,5190,0) +481 +"DATA",811.8,184,100,5191,0) +479 +"DATA",811.8,184,100,5192,0) +470 +"DATA",811.8,184,100,5193,0) + +"DATA",811.8,184,100,5194,0) + +"DATA",811.8,184,100,5195,0) +496 +"DATA",811.8,184,100,5196,0) +494 +"DATA",811.8,184,100,5197,0) +485 +"DATA",811.8,184,100,5198,0) + +"DATA",811.8,184,100,5199,0) + +"DATA",811.8,184,100,5200,0) +511 +"DATA",811.8,184,100,5201,0) +509 +"DATA",811.8,184,100,5202,0) +500 +"DATA",811.8,184,100,5203,0) + +"DATA",811.8,184,100,5204,0) + +"DATA",811.8,184,100,5205,0) +526 +"DATA",811.8,184,100,5206,0) +524 +"DATA",811.8,184,100,5207,0) +515 +"DATA",811.8,184,100,5208,0) + +"DATA",811.8,184,100,5209,0) + +"DATA",811.8,184,100,5210,0) +541 +"DATA",811.8,184,100,5211,0) +539 +"DATA",811.8,184,100,5212,0) +530 +"DATA",811.8,184,100,5213,0) + +"DATA",811.8,184,100,5214,0) + +"DATA",811.8,184,100,5215,0) +556 +"DATA",811.8,184,100,5216,0) +554 +"DATA",811.8,184,100,5217,0) +545 +"DATA",811.8,184,100,5218,0) + +"DATA",811.8,184,100,5219,0) + +"DATA",811.8,184,100,5220,0) +571 +"DATA",811.8,184,100,5221,0) +569 +"DATA",811.8,184,100,5222,0) +560 +"DATA",811.8,184,100,5223,0) + +"DATA",811.8,184,100,5224,0) + +"DATA",811.8,184,100,5225,0) +586 +"DATA",811.8,184,100,5226,0) +584 +"DATA",811.8,184,100,5227,0) +575 +"DATA",811.8,184,100,5228,0) + +"DATA",811.8,184,100,5229,0) + +"DATA",811.8,184,100,5230,0) +618 +"DATA",811.8,184,100,5231,0) +599 +"DATA",811.8,184,100,5232,0) +590 +"DATA",811.8,184,100,5233,0) +623 +"DATA",811.8,184,100,5234,0) +623 +"DATA",811.8,184,100,5235,0) + +"DATA",811.8,184,100,5236,0) + +"DATA",811.8,184,100,5237,0) +645 +"DATA",811.8,184,100,5238,0) +636 +"DATA",811.8,184,100,5239,0) +627 +"DATA",811.8,184,100,5240,0) +651 +"DATA",811.8,184,100,5241,0) +650 +"DATA",811.8,184,100,5242,0) + +"DATA",811.8,184,100,5243,0) + +"DATA",811.8,184,100,5244,0) +748 +"DATA",811.8,184,100,5245,0) +664 +"DATA",811.8,184,100,5246,0) +655 +"DATA",811.8,184,100,5247,0) +776 +"DATA",811.8,184,100,5248,0) +753 +"DATA",811.8,184,100,5249,0) + +"DATA",811.8,184,100,5250,0) + +"DATA",811.8,184,100,5251,0) +837 +"DATA",811.8,184,100,5252,0) +789 +"DATA",811.8,184,100,5253,0) +780 +"DATA",811.8,184,100,5254,0) +854 +"DATA",811.8,184,100,5255,0) +842 +"DATA",811.8,184,100,5256,0) + +"DATA",811.8,184,100,5257,0) + +"DATA",811.8,184,100,5258,0) +884 +"DATA",811.8,184,100,5259,0) +867 +"DATA",811.8,184,100,5260,0) +858 +"DATA",811.8,184,100,5261,0) +892 +"DATA",811.8,184,100,5262,0) +889 +"DATA",811.8,184,100,5263,0) + +"DATA",811.8,184,100,5264,0) + +"DATA",811.8,184,100,5265,0) +989 +"DATA",811.8,184,100,5266,0) +905 +"DATA",811.8,184,100,5267,0) +896 +"DATA",811.8,184,100,5268,0) +1017 +"DATA",811.8,184,100,5269,0) +994 +"DATA",811.8,184,100,5270,0) + +"DATA",811.8,184,100,5271,0) + +"DATA",811.8,184,100,5272,0) +1043 +"DATA",811.8,184,100,5273,0) +1030 +"DATA",811.8,184,100,5274,0) +1021 +"DATA",811.8,184,100,5275,0) +1050 +"DATA",811.8,184,100,5276,0) +1048 +"DATA",811.8,184,100,5277,0) + +"DATA",811.8,184,100,5278,0) + +"DATA",811.8,184,100,5279,0) +1074 +"DATA",811.8,184,100,5280,0) +1063 +"DATA",811.8,184,100,5281,0) +1054 +"DATA",811.8,184,100,5282,0) +1081 +"DATA",811.8,184,100,5283,0) +1079 +"DATA",811.8,184,100,5284,0) + +"DATA",811.8,184,100,5285,0) + +"DATA",811.8,184,100,5286,0) +1103 +"DATA",811.8,184,100,5287,0) +1094 +"DATA",811.8,184,100,5288,0) +1085 +"DATA",811.8,184,100,5289,0) +1109 +"DATA",811.8,184,100,5290,0) +1108 +"DATA",811.8,184,100,5291,0) + +"DATA",811.8,184,100,5292,0) + +"DATA",811.8,184,100,5293,0) +1131 +"DATA",811.8,184,100,5294,0) +1122 +"DATA",811.8,184,100,5295,0) +1113 +"DATA",811.8,184,100,5296,0) +1137 +"DATA",811.8,184,100,5297,0) +1136 +"DATA",811.8,184,100,5298,0) + +"DATA",811.8,184,100,5299,0) + +"DATA",811.8,184,100,5300,0) +1159 +"DATA",811.8,184,100,5301,0) +1150 +"DATA",811.8,184,100,5302,0) +1141 +"DATA",811.8,184,100,5303,0) +1165 +"DATA",811.8,184,100,5304,0) +1164 +"DATA",811.8,184,100,5305,0) + +"DATA",811.8,184,100,5306,0) + +"DATA",811.8,184,100,5307,0) +1184 +"DATA",811.8,184,100,5308,0) +1178 +"DATA",811.8,184,100,5309,0) +1169 +"DATA",811.8,184,100,5310,0) +1190 +"DATA",811.8,184,100,5311,0) +1189 +"DATA",811.8,184,100,5312,0) + +"DATA",811.8,184,100,5313,0) + +"DATA",811.8,184,100,5314,0) +1210 +"DATA",811.8,184,100,5315,0) +1203 +"DATA",811.8,184,100,5316,0) +1194 +"DATA",811.8,184,100,5317,0) +1216 +"DATA",811.8,184,100,5318,0) +1215 +"DATA",811.8,184,100,5319,0) + +"DATA",811.8,184,100,5320,0) + +"DATA",811.8,184,100,5321,0) +1235 +"DATA",811.8,184,100,5322,0) +1229 +"DATA",811.8,184,100,5323,0) +1220 +"DATA",811.8,184,100,5324,0) +1241 +"DATA",811.8,184,100,5325,0) +1240 +"DATA",811.8,184,100,5326,0) + +"DATA",811.8,184,100,5327,0) + +"DATA",811.8,184,100,5328,0) +1260 +"DATA",811.8,184,100,5329,0) +1254 +"DATA",811.8,184,100,5330,0) +1245 +"DATA",811.8,184,100,5331,0) +1266 +"DATA",811.8,184,100,5332,0) +1265 +"DATA",811.8,184,100,5333,0) + +"DATA",811.8,184,100,5334,0) + +"DATA",811.8,184,100,5335,0) +1285 +"DATA",811.8,184,100,5336,0) +1279 +"DATA",811.8,184,100,5337,0) +1270 +"DATA",811.8,184,100,5338,0) +1291 +"DATA",811.8,184,100,5339,0) +1290 +"DATA",811.8,184,100,5340,0) + +"DATA",811.8,184,100,5341,0) + +"DATA",811.8,184,100,5342,0) +1311 +"DATA",811.8,184,100,5343,0) +1304 +"DATA",811.8,184,100,5344,0) +1295 +"DATA",811.8,184,100,5345,0) +1317 +"DATA",811.8,184,100,5346,0) +1316 +"DATA",811.8,184,100,5347,0) + +"DATA",811.8,184,100,5348,0) + +"DATA",811.8,184,100,5349,0) +1337 +"DATA",811.8,184,100,5350,0) +1330 +"DATA",811.8,184,100,5351,0) +1321 +"DATA",811.8,184,100,5352,0) +1343 +"DATA",811.8,184,100,5353,0) +1342 +"DATA",811.8,184,100,5354,0) + +"DATA",811.8,184,100,5355,0) + +"DATA",811.8,184,100,5356,0) +1362 +"DATA",811.8,184,100,5357,0) +1356 +"DATA",811.8,184,100,5358,0) +1347 +"DATA",811.8,184,100,5359,0) +1368 +"DATA",811.8,184,100,5360,0) +1367 +"DATA",811.8,184,100,5361,0) + +"DATA",811.8,184,100,5362,0) + +"DATA",811.8,184,100,5363,0) +1387 +"DATA",811.8,184,100,5364,0) +1381 +"DATA",811.8,184,100,5365,0) +1372 +"DATA",811.8,184,100,5366,0) +1393 +"DATA",811.8,184,100,5367,0) +1392 +"DATA",811.8,184,100,5368,0) + +"DATA",811.8,184,100,5369,0) + +"DATA",811.8,184,100,5370,0) +1412 +"DATA",811.8,184,100,5371,0) +1406 +"DATA",811.8,184,100,5372,0) +1397 +"DATA",811.8,184,100,5373,0) +1418 +"DATA",811.8,184,100,5374,0) +1417 +"DATA",811.8,184,100,5375,0) + +"DATA",811.8,184,100,5376,0) + +"DATA",811.8,184,100,5377,0) +1438 +"DATA",811.8,184,100,5378,0) +1431 +"DATA",811.8,184,100,5379,0) +1422 +"DATA",811.8,184,100,5380,0) +1444 +"DATA",811.8,184,100,5381,0) +1443 +"DATA",811.8,184,100,5382,0) + +"DATA",811.8,184,100,5383,0) + +"DATA",811.8,184,100,5384,0) +1465 +"DATA",811.8,184,100,5385,0) +1457 +"DATA",811.8,184,100,5386,0) +1448 +"DATA",811.8,184,100,5387,0) +1472 +"DATA",811.8,184,100,5388,0) +1470 +"DATA",811.8,184,100,5389,0) + +"DATA",811.8,184,100,5390,0) + +"DATA",811.8,184,100,5391,0) +1493 +"DATA",811.8,184,100,5392,0) +1485 +"DATA",811.8,184,100,5393,0) +1476 +"DATA",811.8,184,100,5394,0) +1500 +"DATA",811.8,184,100,5395,0) +1498 +"DATA",811.8,184,100,5396,0) + +"DATA",811.8,184,100,5397,0) + +"DATA",811.8,184,100,5398,0) +1521 +"DATA",811.8,184,100,5399,0) +1513 +"DATA",811.8,184,100,5400,0) +1504 +"DATA",811.8,184,100,5401,0) +1528 +"DATA",811.8,184,100,5402,0) +1526 +"DATA",811.8,184,100,5403,0) + +"DATA",811.8,184,100,5404,0) + +"DATA",811.8,184,100,5405,0) +1548 +"DATA",811.8,184,100,5406,0) +1541 +"DATA",811.8,184,100,5407,0) +1532 +"DATA",811.8,184,100,5408,0) +1554 +"DATA",811.8,184,100,5409,0) +1553 +"DATA",811.8,184,100,5410,0) + +"DATA",811.8,184,100,5411,0) + +"DATA",811.8,184,100,5412,0) +1573 +"DATA",811.8,184,100,5413,0) +1567 +"DATA",811.8,184,100,5414,0) +1558 +"DATA",811.8,184,100,5415,0) +1579 +"DATA",811.8,184,100,5416,0) +1578 +"DATA",811.8,184,100,5417,0) + +"DATA",811.8,184,100,5418,0) + +"DATA",811.8,184,100,5419,0) +1598 +"DATA",811.8,184,100,5420,0) +1592 +"DATA",811.8,184,100,5421,0) +1583 +"DATA",811.8,184,100,5422,0) +1604 +"DATA",811.8,184,100,5423,0) +1603 +"DATA",811.8,184,100,5424,0) + +"DATA",811.8,184,100,5425,0) + +"DATA",811.8,184,100,5426,0) +1623 +"DATA",811.8,184,100,5427,0) +1617 +"DATA",811.8,184,100,5428,0) +1608 +"DATA",811.8,184,100,5429,0) +1629 +"DATA",811.8,184,100,5430,0) +1628 +"DATA",811.8,184,100,5431,0) + +"DATA",811.8,184,100,5432,0) + +"DATA",811.8,184,100,5433,0) +1648 +"DATA",811.8,184,100,5434,0) +1642 +"DATA",811.8,184,100,5435,0) +1633 +"DATA",811.8,184,100,5436,0) +1654 +"DATA",811.8,184,100,5437,0) +1653 +"DATA",811.8,184,100,5438,0) + +"DATA",811.8,184,100,5439,0) + +"DATA",811.8,184,100,5440,0) +1672 +"DATA",811.8,184,100,5441,0) +1667 +"DATA",811.8,184,100,5442,0) +1658 +"DATA",811.8,184,100,5443,0) +1678 +"DATA",811.8,184,100,5444,0) +1677 +"DATA",811.8,184,100,5445,0) + +"DATA",811.8,184,100,5446,0) + +"DATA",811.8,184,100,5447,0) +1698 +"DATA",811.8,184,100,5448,0) +1691 +"DATA",811.8,184,100,5449,0) +1682 +"DATA",811.8,184,100,5450,0) +1704 +"DATA",811.8,184,100,5451,0) +1703 +"DATA",811.8,184,100,5452,0) + +"DATA",811.8,184,100,5453,0) + +"DATA",811.8,184,100,5454,0) +1723 +"DATA",811.8,184,100,5455,0) +1717 +"DATA",811.8,184,100,5456,0) +1708 +"DATA",811.8,184,100,5457,0) +1729 +"DATA",811.8,184,100,5458,0) +1728 +"DATA",811.8,184,100,5459,0) + +"DATA",811.8,184,100,5460,0) + +"DATA",811.8,184,100,5461,0) +1748 +"DATA",811.8,184,100,5462,0) +1742 +"DATA",811.8,184,100,5463,0) +1733 +"DATA",811.8,184,100,5464,0) +1754 +"DATA",811.8,184,100,5465,0) +1753 +"DATA",811.8,184,100,5466,0) + +"DATA",811.8,184,100,5467,0) + +"DATA",811.8,184,100,5468,0) +1777 +"DATA",811.8,184,100,5469,0) +1767 +"DATA",811.8,184,100,5470,0) +1758 +"DATA",811.8,184,100,5471,0) +1784 +"DATA",811.8,184,100,5472,0) +1782 +"DATA",811.8,184,100,5473,0) + +"DATA",811.8,184,100,5474,0) + +"DATA",811.8,184,100,5475,0) +1803 +"DATA",811.8,184,100,5476,0) +1797 +"DATA",811.8,184,100,5477,0) +1788 +"DATA",811.8,184,100,5478,0) +1809 +"DATA",811.8,184,100,5479,0) +1808 +"DATA",811.8,184,100,5480,0) + +"DATA",811.8,184,100,5481,0) + +"DATA",811.8,184,100,5482,0) +1828 +"DATA",811.8,184,100,5483,0) +1822 +"DATA",811.8,184,100,5484,0) +1813 +"DATA",811.8,184,100,5485,0) +1834 +"DATA",811.8,184,100,5486,0) +1833 +"DATA",811.8,184,100,5487,0) + +"DATA",811.8,184,100,5488,0) + +"DATA",811.8,184,100,5489,0) +1853 +"DATA",811.8,184,100,5490,0) +1847 +"DATA",811.8,184,100,5491,0) +1838 +"DATA",811.8,184,100,5492,0) +1859 +"DATA",811.8,184,100,5493,0) +1858 +"DATA",811.8,184,100,5494,0) + +"DATA",811.8,184,100,5495,0) + +"DATA",811.8,184,100,5496,0) +1878 +"DATA",811.8,184,100,5497,0) +1872 +"DATA",811.8,184,100,5498,0) +1863 +"DATA",811.8,184,100,5499,0) +1884 +"DATA",811.8,184,100,5500,0) +1883 +"DATA",811.8,184,100,5501,0) + +"DATA",811.8,184,100,5502,0) + +"DATA",811.8,184,100,5503,0) +1903 +"DATA",811.8,184,100,5504,0) +1897 +"DATA",811.8,184,100,5505,0) +1888 +"DATA",811.8,184,100,5506,0) +1909 +"DATA",811.8,184,100,5507,0) +1908 +"DATA",811.8,184,100,5508,0) + +"DATA",811.8,184,100,5509,0) + +"DATA",811.8,184,100,5510,0) +1929 +"DATA",811.8,184,100,5511,0) +1922 +"DATA",811.8,184,100,5512,0) +1913 +"DATA",811.8,184,100,5513,0) +1935 +"DATA",811.8,184,100,5514,0) +1934 +"DATA",811.8,184,100,5515,0) + +"DATA",811.8,184,100,5516,0) + +"DATA",811.8,184,100,5517,0) +1955 +"DATA",811.8,184,100,5518,0) +1948 +"DATA",811.8,184,100,5519,0) +1939 +"DATA",811.8,184,100,5520,0) +1961 +"DATA",811.8,184,100,5521,0) +1960 +"DATA",811.8,184,100,5522,0) + +"DATA",811.8,184,100,5523,0) + +"DATA",811.8,184,100,5524,0) +1981 +"DATA",811.8,184,100,5525,0) +1974 +"DATA",811.8,184,100,5526,0) +1965 +"DATA",811.8,184,100,5527,0) +1987 +"DATA",811.8,184,100,5528,0) +1986 +"DATA",811.8,184,100,5529,0) + +"DATA",811.8,184,100,5530,0) + +"DATA",811.8,184,100,5531,0) +2007 +"DATA",811.8,184,100,5532,0) +2000 +"DATA",811.8,184,100,5533,0) +1991 +"DATA",811.8,184,100,5534,0) +2013 +"DATA",811.8,184,100,5535,0) +2012 +"DATA",811.8,184,100,5536,0) + +"DATA",811.8,184,100,5537,0) + +"DATA",811.8,184,100,5538,0) +2032 +"DATA",811.8,184,100,5539,0) +2026 +"DATA",811.8,184,100,5540,0) +2017 +"DATA",811.8,184,100,5541,0) +2038 +"DATA",811.8,184,100,5542,0) +2037 +"DATA",811.8,184,100,5543,0) + +"DATA",811.8,184,100,5544,0) + +"DATA",811.8,184,100,5545,0) +2057 +"DATA",811.8,184,100,5546,0) +2051 +"DATA",811.8,184,100,5547,0) +2042 +"DATA",811.8,184,100,5548,0) +2063 +"DATA",811.8,184,100,5549,0) +2062 +"DATA",811.8,184,100,5550,0) + +"DATA",811.8,184,100,5551,0) + +"DATA",811.8,184,100,5552,0) +2082 +"DATA",811.8,184,100,5553,0) +2076 +"DATA",811.8,184,100,5554,0) +2067 +"DATA",811.8,184,100,5555,0) +2088 +"DATA",811.8,184,100,5556,0) +2087 +"DATA",811.8,184,100,5557,0) + +"DATA",811.8,184,100,5558,0) + +"DATA",811.8,184,100,5559,0) +2107 +"DATA",811.8,184,100,5560,0) +2101 +"DATA",811.8,184,100,5561,0) +2092 +"DATA",811.8,184,100,5562,0) +2113 +"DATA",811.8,184,100,5563,0) +2112 +"DATA",811.8,184,100,5564,0) + +"DATA",811.8,184,100,5565,0) + +"DATA",811.8,184,100,5566,0) +2142 +"DATA",811.8,184,100,5567,0) +2126 +"DATA",811.8,184,100,5568,0) +2117 +"DATA",811.8,184,100,5569,0) +2151 +"DATA",811.8,184,100,5570,0) +2147 +"DATA",811.8,184,100,5571,0) + +"DATA",811.8,184,100,5572,0) + +"DATA",811.8,184,100,5573,0) +2170 +"DATA",811.8,184,100,5574,0) +2164 +"DATA",811.8,184,100,5575,0) +2155 +"DATA",811.8,184,100,5576,0) +2176 +"DATA",811.8,184,100,5577,0) +2175 +"DATA",811.8,184,100,5578,0) + +"DATA",811.8,184,100,5579,0) + +"DATA",811.8,184,100,5580,0) +2195 +"DATA",811.8,184,100,5581,0) +2189 +"DATA",811.8,184,100,5582,0) +2180 +"DATA",811.8,184,100,5583,0) +2201 +"DATA",811.8,184,100,5584,0) +2200 +"DATA",811.8,184,100,5585,0) + +"DATA",811.8,184,100,5586,0) + +"DATA",811.8,184,100,5587,0) +2220 +"DATA",811.8,184,100,5588,0) +2214 +"DATA",811.8,184,100,5589,0) +2205 +"DATA",811.8,184,100,5590,0) +2226 +"DATA",811.8,184,100,5591,0) +2225 +"DATA",811.8,184,100,5592,0) + +"DATA",811.8,184,100,5593,0) + +"DATA",811.8,184,100,5594,0) +2245 +"DATA",811.8,184,100,5595,0) +2239 +"DATA",811.8,184,100,5596,0) +2230 +"DATA",811.8,184,100,5597,0) +2251 +"DATA",811.8,184,100,5598,0) +2250 +"DATA",811.8,184,100,5599,0) + +"DATA",811.8,184,100,5600,0) + +"DATA",811.8,184,100,5601,0) +2270 +"DATA",811.8,184,100,5602,0) +2264 +"DATA",811.8,184,100,5603,0) +2255 +"DATA",811.8,184,100,5604,0) +2276 +"DATA",811.8,184,100,5605,0) +2275 +"DATA",811.8,184,100,5606,0) + +"DATA",811.8,184,100,5607,0) + +"DATA",811.8,184,100,5608,0) +2328 +"DATA",811.8,184,100,5609,0) +2289 +"DATA",811.8,184,100,5610,0) +2280 +"DATA",811.8,184,100,5611,0) +2338 +"DATA",811.8,184,100,5612,0) +2333 +"DATA",811.8,184,100,5613,0) + +"DATA",811.8,184,100,5614,0) + +"DATA",811.8,184,100,5615,0) +2410 +"DATA",811.8,184,100,5616,0) +2351 +"DATA",811.8,184,100,5617,0) +2342 +"DATA",811.8,184,100,5618,0) +2428 +"DATA",811.8,184,100,5619,0) +2415 +"DATA",811.8,184,100,5620,0) + +"DATA",811.8,184,100,5621,0) + +"DATA",811.8,184,100,5622,0) +2474 +"DATA",811.8,184,100,5623,0) +2441 +"DATA",811.8,184,100,5624,0) +2432 +"DATA",811.8,184,100,5625,0) +2481 +"DATA",811.8,184,100,5626,0) +2479 +"DATA",811.8,184,100,5627,0) + +"DATA",811.8,184,100,5628,0) + +"DATA",811.8,184,100,5629,0) +2548 +"DATA",811.8,184,100,5630,0) +2494 +"DATA",811.8,184,100,5631,0) +2485 +"DATA",811.8,184,100,5632,0) +2564 +"DATA",811.8,184,100,5633,0) +2553 +"DATA",811.8,184,100,5634,0) + +"DATA",811.8,184,100,5635,0) + +"DATA",811.8,184,100,5636,0) +2631 +"DATA",811.8,184,100,5637,0) +2577 +"DATA",811.8,184,100,5638,0) +2568 +"DATA",811.8,184,100,5639,0) +2647 +"DATA",811.8,184,100,5640,0) +2636 +"DATA",811.8,184,100,5641,0) + +"DATA",811.8,184,100,5642,0) + +"DATA",811.8,184,100,5643,0) +2728 +"DATA",811.8,184,100,5644,0) +2660 +"DATA",811.8,184,100,5645,0) +2651 +"DATA",811.8,184,100,5646,0) +2752 +"DATA",811.8,184,100,5647,0) +2733 +"DATA",811.8,184,100,5648,0) + +"DATA",811.8,184,100,5649,0) + +"DATA",811.8,184,100,5650,0) +2811 +"DATA",811.8,184,100,5651,0) +2765 +"DATA",811.8,184,100,5652,0) +2756 +"DATA",811.8,184,100,5653,0) +2823 +"DATA",811.8,184,100,5654,0) +2816 +"DATA",811.8,184,100,5655,0) + +"DATA",811.8,184,100,5656,0) + +"DATA",811.8,184,100,5657,0) +2902 +"DATA",811.8,184,100,5658,0) +2836 +"DATA",811.8,184,100,5659,0) +2827 +"DATA",811.8,184,100,5660,0) +2923 +"DATA",811.8,184,100,5661,0) +2907 +"DATA",811.8,184,100,5662,0) + +"DATA",811.8,184,100,5663,0) + +"DATA",811.8,184,100,5664,0) +2975 +"DATA",811.8,184,100,5665,0) +2936 +"DATA",811.8,184,100,5666,0) +2927 +"DATA",811.8,184,100,5667,0) +2985 +"DATA",811.8,184,100,5668,0) +2980 +"DATA",811.8,184,100,5669,0) + +"DATA",811.8,184,100,5670,0) + +"DATA",811.8,184,100,5671,0) +3042 +"DATA",811.8,184,100,5672,0) +2998 +"DATA",811.8,184,100,5673,0) +2989 +"DATA",811.8,184,100,5674,0) +3054 +"DATA",811.8,184,100,5675,0) +3047 +"DATA",811.8,184,100,5676,0) + +"DATA",811.8,184,100,5677,0) + +"DATA",811.8,184,100,5678,0) +3111 +"DATA",811.8,184,100,5679,0) +3067 +"DATA",811.8,184,100,5680,0) +3058 +"DATA",811.8,184,100,5681,0) +3123 +"DATA",811.8,184,100,5682,0) +3116 +"DATA",811.8,184,100,5683,0) + +"DATA",811.8,184,100,5684,0) + +"DATA",811.8,184,100,5685,0) +3180 +"DATA",811.8,184,100,5686,0) +3136 +"DATA",811.8,184,100,5687,0) +3127 +"DATA",811.8,184,100,5688,0) +3192 +"DATA",811.8,184,100,5689,0) +3185 +"DATA",811.8,184,100,5690,0) + +"DATA",811.8,184,100,5691,0) + +"DATA",811.8,184,100,5692,0) +3268 +"DATA",811.8,184,100,5693,0) +3205 +"DATA",811.8,184,100,5694,0) +3196 +"DATA",811.8,184,100,5695,0) +3288 +"DATA",811.8,184,100,5696,0) +3273 +"DATA",811.8,184,100,5697,0) + +"DATA",811.8,184,100,5698,0) + +"DATA",811.8,184,100,5699,0) +3382 +"DATA",811.8,184,100,5700,0) +3301 +"DATA",811.8,184,100,5701,0) +3292 +"DATA",811.8,184,100,5702,0) +3409 +"DATA",811.8,184,100,5703,0) +3387 +"DATA",811.8,184,100,5704,0) + +"DATA",811.8,184,100,5705,0) + +"DATA",811.8,184,100,5706,0) +3430 +"DATA",811.8,184,100,5707,0) +3422 +"DATA",811.8,184,100,5708,0) +3413 +"DATA",811.8,184,100,5709,0) +3435 +"DATA",811.8,184,100,5710,0) +3435 +"DATA",811.8,184,100,5711,0) + +"DATA",811.8,184,100,5712,0) + +"DATA",811.8,184,100,5713,0) +3454 +"DATA",811.8,184,100,5714,0) +3448 +"DATA",811.8,184,100,5715,0) +3439 +"DATA",811.8,184,100,5716,0) +3459 +"DATA",811.8,184,100,5717,0) +3459 +"DATA",811.8,184,100,5718,0) + +"DATA",811.8,184,100,5719,0) + +"DATA",811.8,184,100,5720,0) +3483 +"DATA",811.8,184,100,5721,0) +3472 +"DATA",811.8,184,100,5722,0) +3463 +"DATA",811.8,184,100,5723,0) +3490 +"DATA",811.8,184,100,5724,0) +3488 +"DATA",811.8,184,100,5725,0) + +"DATA",811.8,184,100,5726,0) + +"DATA",811.8,184,100,5727,0) +3509 +"DATA",811.8,184,100,5728,0) +3503 +"DATA",811.8,184,100,5729,0) +3494 +"DATA",811.8,184,100,5730,0) +3514 +"DATA",811.8,184,100,5731,0) +3514 +"DATA",811.8,184,100,5732,0) + +"DATA",811.8,184,100,5733,0) + +"DATA",811.8,184,100,5734,0) +3533 +"DATA",811.8,184,100,5735,0) +3527 +"DATA",811.8,184,100,5736,0) +3518 +"DATA",811.8,184,100,5737,0) +3538 +"DATA",811.8,184,100,5738,0) +3538 +"DATA",811.8,184,100,5739,0) + +"DATA",811.8,184,100,5740,0) + +"DATA",811.8,184,100,5741,0) +3557 +"DATA",811.8,184,100,5742,0) +3551 +"DATA",811.8,184,100,5743,0) +3542 +"DATA",811.8,184,100,5744,0) +3562 +"DATA",811.8,184,100,5745,0) +3562 +"DATA",811.8,184,100,5746,0) + +"DATA",811.8,184,100,5747,0) + +"DATA",811.8,184,100,5748,0) +3589 +"DATA",811.8,184,100,5749,0) +3575 +"DATA",811.8,184,100,5750,0) +3566 +"DATA",811.8,184,100,5751,0) +3597 +"DATA",811.8,184,100,5752,0) +3594 +"DATA",811.8,184,100,5753,0) + +"DATA",811.8,184,100,5754,0) + +"DATA",811.8,184,100,5755,0) +3618 +"DATA",811.8,184,100,5756,0) +3610 +"DATA",811.8,184,100,5757,0) +3601 +"DATA",811.8,184,100,5758,0) +3623 +"DATA",811.8,184,100,5759,0) +3623 +"DATA",811.8,184,100,5760,0) + +"DATA",811.8,184,100,5761,0) + +"DATA",811.8,184,100,5762,0) +3642 +"DATA",811.8,184,100,5763,0) +3636 +"DATA",811.8,184,100,5764,0) +3627 +"DATA",811.8,184,100,5765,0) +3647 +"DATA",811.8,184,100,5766,0) +3647 +"DATA",811.8,184,100,5767,0) + +"DATA",811.8,184,100,5768,0) + +"DATA",811.8,184,100,5769,0) +3671 +"DATA",811.8,184,100,5770,0) +3660 +"DATA",811.8,184,100,5771,0) +3651 +"DATA",811.8,184,100,5772,0) +3678 +"DATA",811.8,184,100,5773,0) +3676 +"DATA",811.8,184,100,5774,0) + +"DATA",811.8,184,100,5775,0) + +"DATA",811.8,184,100,5776,0) +3699 +"DATA",811.8,184,100,5777,0) +3691 +"DATA",811.8,184,100,5778,0) +3682 +"DATA",811.8,184,100,5779,0) +3704 +"DATA",811.8,184,100,5780,0) +3704 +"DATA",811.8,184,100,5781,0) + +"DATA",811.8,184,100,5782,0) + +"DATA",811.8,184,100,5783,0) +3723 +"DATA",811.8,184,100,5784,0) +3717 +"DATA",811.8,184,100,5785,0) +3708 +"DATA",811.8,184,100,5786,0) +3728 +"DATA",811.8,184,100,5787,0) +3728 +"DATA",811.8,184,100,5788,0) + +"DATA",811.8,184,100,5789,0) + +"DATA",811.8,184,100,5790,0) +3752 +"DATA",811.8,184,100,5791,0) +3741 +"DATA",811.8,184,100,5792,0) +3732 +"DATA",811.8,184,100,5793,0) +3759 +"DATA",811.8,184,100,5794,0) +3757 +"DATA",811.8,184,100,5795,0) + +"DATA",811.8,184,100,5796,0) + +"DATA",811.8,184,100,5797,0) +3779 +"DATA",811.8,184,100,5798,0) +3772 +"DATA",811.8,184,100,5799,0) +3763 +"DATA",811.8,184,100,5800,0) +3784 +"DATA",811.8,184,100,5801,0) +3784 +"DATA",811.8,184,100,5802,0) + +"DATA",811.8,184,100,5803,0) + +"DATA",811.8,184,100,5804,0) +3804 +"DATA",811.8,184,100,5805,0) +3797 +"DATA",811.8,184,100,5806,0) +3788 +"DATA",811.8,184,100,5807,0) +3809 +"DATA",811.8,184,100,5808,0) +3809 +"DATA",811.8,184,100,5809,0) + +"DATA",811.8,184,100,5810,0) + +"DATA",811.8,184,100,5811,0) +3829 +"DATA",811.8,184,100,5812,0) +3822 +"DATA",811.8,184,100,5813,0) +3813 +"DATA",811.8,184,100,5814,0) +3834 +"DATA",811.8,184,100,5815,0) +3834 +"DATA",811.8,184,100,5816,0) + +"DATA",811.8,184,100,5817,0) + +"DATA",811.8,184,100,5818,0) +3854 +"DATA",811.8,184,100,5819,0) +3847 +"DATA",811.8,184,100,5820,0) +3838 +"DATA",811.8,184,100,5821,0) +3859 +"DATA",811.8,184,100,5822,0) +3859 +"DATA",811.8,184,100,5823,0) + +"DATA",811.8,184,100,5824,0) + +"DATA",811.8,184,100,5825,0) +3879 +"DATA",811.8,184,100,5826,0) +3872 +"DATA",811.8,184,100,5827,0) +3863 +"DATA",811.8,184,100,5828,0) +3884 +"DATA",811.8,184,100,5829,0) +3884 +"DATA",811.8,184,100,5830,0) + +"DATA",811.8,184,100,5831,0) + +"DATA",811.8,184,100,5832,0) +3904 +"DATA",811.8,184,100,5833,0) +3897 +"DATA",811.8,184,100,5834,0) +3888 +"DATA",811.8,184,100,5835,0) +3909 +"DATA",811.8,184,100,5836,0) +3909 +"DATA",811.8,184,100,5837,0) + +"DATA",811.8,184,100,5838,0) + +"DATA",811.8,184,100,5839,0) +3946 +"DATA",811.8,184,100,5840,0) +3922 +"DATA",811.8,184,100,5841,0) +3913 +"DATA",811.8,184,100,5842,0) +3957 +"DATA",811.8,184,100,5843,0) +3951 +"DATA",811.8,184,100,5844,0) + +"DATA",811.8,184,100,5845,0) + +"DATA",811.8,184,100,5846,0) +3991 +"DATA",811.8,184,100,5847,0) +3970 +"DATA",811.8,184,100,5848,0) +3961 +"DATA",811.8,184,100,5849,0) +4001 +"DATA",811.8,184,100,5850,0) +3996 +"DATA",811.8,184,100,5851,0) + +"DATA",811.8,184,100,5852,0) + +"DATA",811.8,184,100,5853,0) +4022 +"DATA",811.8,184,100,5854,0) +4014 +"DATA",811.8,184,100,5855,0) +4005 +"DATA",811.8,184,100,5856,0) +4027 +"DATA",811.8,184,100,5857,0) +4027 +"DATA",811.8,184,100,5858,0) + +"DATA",811.8,184,100,5859,0) + +"DATA",811.8,184,100,5860,0) +4046 +"DATA",811.8,184,100,5861,0) +4040 +"DATA",811.8,184,100,5862,0) +4031 +"DATA",811.8,184,100,5863,0) +4051 +"DATA",811.8,184,100,5864,0) +4051 +"DATA",811.8,184,100,5865,0) + +"DATA",811.8,184,100,5866,0) + +"DATA",811.8,184,100,5867,0) +4075 +"DATA",811.8,184,100,5868,0) +4064 +"DATA",811.8,184,100,5869,0) +4055 +"DATA",811.8,184,100,5870,0) +4082 +"DATA",811.8,184,100,5871,0) +4080 +"DATA",811.8,184,100,5872,0) + +"DATA",811.8,184,100,5873,0) + +"DATA",811.8,184,100,5874,0) +4103 +"DATA",811.8,184,100,5875,0) +4095 +"DATA",811.8,184,100,5876,0) +4086 +"DATA",811.8,184,100,5877,0) +4108 +"DATA",811.8,184,100,5878,0) +4108 +"DATA",811.8,184,100,5879,0) + +"DATA",811.8,184,100,5880,0) + +"DATA",811.8,184,100,5881,0) +4127 +"DATA",811.8,184,100,5882,0) +4121 +"DATA",811.8,184,100,5883,0) +4112 +"DATA",811.8,184,100,5884,0) +4132 +"DATA",811.8,184,100,5885,0) +4132 +"DATA",811.8,184,100,5886,0) + +"DATA",811.8,184,100,5887,0) + +"DATA",811.8,184,100,5888,0) +4156 +"DATA",811.8,184,100,5889,0) +4145 +"DATA",811.8,184,100,5890,0) +4136 +"DATA",811.8,184,100,5891,0) +4163 +"DATA",811.8,184,100,5892,0) +4161 +"DATA",811.8,184,100,5893,0) + +"DATA",811.8,184,100,5894,0) + +"DATA",811.8,184,100,5895,0) +4184 +"DATA",811.8,184,100,5896,0) +4176 +"DATA",811.8,184,100,5897,0) +4167 +"DATA",811.8,184,100,5898,0) +4189 +"DATA",811.8,184,100,5899,0) +4189 +"DATA",811.8,184,100,5900,0) + +"DATA",811.8,184,100,5901,0) + +"DATA",811.8,184,100,5902,0) +4208 +"DATA",811.8,184,100,5903,0) +4202 +"DATA",811.8,184,100,5904,0) +4193 +"DATA",811.8,184,100,5905,0) +4213 +"DATA",811.8,184,100,5906,0) +4213 +"DATA",811.8,184,100,5907,0) + +"DATA",811.8,184,100,5908,0) + +"DATA",811.8,184,100,5909,0) +4237 +"DATA",811.8,184,100,5910,0) +4226 +"DATA",811.8,184,100,5911,0) +4217 +"DATA",811.8,184,100,5912,0) +4244 +"DATA",811.8,184,100,5913,0) +4242 +"DATA",811.8,184,100,5914,0) + +"DATA",811.8,184,100,5915,0) + +"DATA",811.8,184,100,5916,0) +4264 +"DATA",811.8,184,100,5917,0) +4257 +"DATA",811.8,184,100,5918,0) +4248 +"DATA",811.8,184,100,5919,0) +4269 +"DATA",811.8,184,100,5920,0) +4269 +"DATA",811.8,184,100,5921,0) + +"DATA",811.8,184,100,5922,0) + +"DATA",811.8,184,100,5923,0) +4289 +"DATA",811.8,184,100,5924,0) +4282 +"DATA",811.8,184,100,5925,0) +4273 +"DATA",811.8,184,100,5926,0) +4294 +"DATA",811.8,184,100,5927,0) +4294 +"DATA",811.8,184,100,5928,0) + +"DATA",811.8,184,100,5929,0) + +"DATA",811.8,184,100,5930,0) +4314 +"DATA",811.8,184,100,5931,0) +4307 +"DATA",811.8,184,100,5932,0) +4298 +"DATA",811.8,184,100,5933,0) +4319 +"DATA",811.8,184,100,5934,0) +4319 +"DATA",811.8,184,100,5935,0) + +"DATA",811.8,184,100,5936,0) + +"DATA",811.8,184,100,5937,0) +4339 +"DATA",811.8,184,100,5938,0) +4332 +"DATA",811.8,184,100,5939,0) +4323 +"DATA",811.8,184,100,5940,0) +4344 +"DATA",811.8,184,100,5941,0) +4344 +"DATA",811.8,184,100,5942,0) + +"DATA",811.8,184,100,5943,0) + +"DATA",811.8,184,100,5944,0) +4375 +"DATA",811.8,184,100,5945,0) +4357 +"DATA",811.8,184,100,5946,0) +4348 +"DATA",811.8,184,100,5947,0) +4384 +"DATA",811.8,184,100,5948,0) +4380 +"DATA",811.8,184,100,5949,0) + +"DATA",811.8,184,100,5950,0) + +"DATA",811.8,184,100,5951,0) +4403 +"DATA",811.8,184,100,5952,0) +4397 +"DATA",811.8,184,100,5953,0) +4388 +"DATA",811.8,184,100,5954,0) +4408 +"DATA",811.8,184,100,5955,0) +4408 +"DATA",811.8,184,100,5956,0) + +"DATA",811.8,184,100,5957,0) + +"DATA",811.8,184,100,5958,0) +4427 +"DATA",811.8,184,100,5959,0) +4421 +"DATA",811.8,184,100,5960,0) +4412 +"DATA",811.8,184,100,5961,0) +4432 +"DATA",811.8,184,100,5962,0) +4432 +"DATA",811.8,184,100,5963,0) + +"DATA",811.8,184,100,5964,0) + +"DATA",811.8,184,100,5965,0) +4459 +"DATA",811.8,184,100,5966,0) +4445 +"DATA",811.8,184,100,5967,0) +4436 +"DATA",811.8,184,100,5968,0) +4467 +"DATA",811.8,184,100,5969,0) +4464 +"DATA",811.8,184,100,5970,0) + +"DATA",811.8,184,100,5971,0) + +"DATA",811.8,184,100,5972,0) +4486 +"DATA",811.8,184,100,5973,0) +4480 +"DATA",811.8,184,100,5974,0) +4471 +"DATA",811.8,184,100,5975,0) +4491 +"DATA",811.8,184,100,5976,0) +4491 +"DATA",811.8,184,100,5977,0) + +"DATA",811.8,184,100,5978,0) + +"DATA",811.8,184,100,5979,0) +4510 +"DATA",811.8,184,100,5980,0) +4504 +"DATA",811.8,184,100,5981,0) +4495 +"DATA",811.8,184,100,5982,0) +4515 +"DATA",811.8,184,100,5983,0) +4515 +"DATA",811.8,184,100,5984,0) + +"DATA",811.8,184,100,5985,0) + +"DATA",811.8,184,100,5986,0) +4542 +"DATA",811.8,184,100,5987,0) +4528 +"DATA",811.8,184,100,5988,0) +4519 +"DATA",811.8,184,100,5989,0) +4550 +"DATA",811.8,184,100,5990,0) +4547 +"DATA",811.8,184,100,5991,0) + +"DATA",811.8,184,100,5992,0) + +"DATA",811.8,184,100,5993,0) +4569 +"DATA",811.8,184,100,5994,0) +4563 +"DATA",811.8,184,100,5995,0) +4554 +"DATA",811.8,184,100,5996,0) +4574 +"DATA",811.8,184,100,5997,0) +4574 +"DATA",811.8,184,100,5998,0) + +"DATA",811.8,184,100,5999,0) + +"DATA",811.8,184,100,6000,0) +4593 +"DATA",811.8,184,100,6001,0) +4587 +"DATA",811.8,184,100,6002,0) +4578 +"DATA",811.8,184,100,6003,0) +4598 +"DATA",811.8,184,100,6004,0) +4598 +"DATA",811.8,184,100,6005,0) + +"DATA",811.8,184,100,6006,0) + +"DATA",811.8,184,100,6007,0) +4625 +"DATA",811.8,184,100,6008,0) +4611 +"DATA",811.8,184,100,6009,0) +4602 +"DATA",811.8,184,100,6010,0) +4633 +"DATA",811.8,184,100,6011,0) +4630 +"DATA",811.8,184,100,6012,0) + +"DATA",811.8,184,100,6013,0) + +"DATA",811.8,184,100,6014,0) +4652 +"DATA",811.8,184,100,6015,0) +4646 +"DATA",811.8,184,100,6016,0) +4637 +"DATA",811.8,184,100,6017,0) +4657 +"DATA",811.8,184,100,6018,0) +4657 +"DATA",811.8,184,100,6019,0) + +"DATA",811.8,184,100,6020,0) + +"DATA",811.8,184,100,6021,0) +4676 +"DATA",811.8,184,100,6022,0) +4670 +"DATA",811.8,184,100,6023,0) +4661 +"DATA",811.8,184,100,6024,0) +4681 +"DATA",811.8,184,100,6025,0) +4681 +"DATA",811.8,184,100,6026,0) + +"DATA",811.8,184,100,6027,0) + +"DATA",811.8,184,100,6028,0) +4708 +"DATA",811.8,184,100,6029,0) +4694 +"DATA",811.8,184,100,6030,0) +4685 +"DATA",811.8,184,100,6031,0) +4716 +"DATA",811.8,184,100,6032,0) +4713 +"DATA",811.8,184,100,6033,0) + +"DATA",811.8,184,100,6034,0) + +"DATA",811.8,184,100,6035,0) +4735 +"DATA",811.8,184,100,6036,0) +4729 +"DATA",811.8,184,100,6037,0) +4720 +"DATA",811.8,184,100,6038,0) +4740 +"DATA",811.8,184,100,6039,0) +4740 +"DATA",811.8,184,100,6040,0) + +"DATA",811.8,184,100,6041,0) + +"DATA",811.8,184,100,6042,0) +4759 +"DATA",811.8,184,100,6043,0) +4753 +"DATA",811.8,184,100,6044,0) +4744 +"DATA",811.8,184,100,6045,0) +4764 +"DATA",811.8,184,100,6046,0) +4764 +"DATA",811.8,184,100,6047,0) + +"DATA",811.8,184,100,6048,0) + +"DATA",811.8,184,100,6049,0) +4791 +"DATA",811.8,184,100,6050,0) +4777 +"DATA",811.8,184,100,6051,0) +4768 +"DATA",811.8,184,100,6052,0) +4799 +"DATA",811.8,184,100,6053,0) +4796 +"DATA",811.8,184,100,6054,0) + +"DATA",811.8,184,100,6055,0) + +"DATA",811.8,184,100,6056,0) +4818 +"DATA",811.8,184,100,6057,0) +4812 +"DATA",811.8,184,100,6058,0) +4803 +"DATA",811.8,184,100,6059,0) +4823 +"DATA",811.8,184,100,6060,0) +4823 +"DATA",811.8,184,100,6061,0) + +"DATA",811.8,184,100,6062,0) + +"DATA",811.8,184,100,6063,0) +4842 +"DATA",811.8,184,100,6064,0) +4836 +"DATA",811.8,184,100,6065,0) +4827 +"DATA",811.8,184,100,6066,0) +4847 +"DATA",811.8,184,100,6067,0) +4847 +"DATA",811.8,184,100,6068,0) + +"DATA",811.8,184,100,6069,0) + +"DATA",811.8,184,100,6070,0) +4874 +"DATA",811.8,184,100,6071,0) +4860 +"DATA",811.8,184,100,6072,0) +4851 +"DATA",811.8,184,100,6073,0) +4882 +"DATA",811.8,184,100,6074,0) +4879 +"DATA",811.8,184,100,6075,0) + +"DATA",811.8,184,100,6076,0) + +"DATA",811.8,184,100,6077,0) +4903 +"DATA",811.8,184,100,6078,0) +4895 +"DATA",811.8,184,100,6079,0) +4886 +"DATA",811.8,184,100,6080,0) +4909 +"DATA",811.8,184,100,6081,0) +4908 +"DATA",811.8,184,100,6082,0) + +"DATA",811.8,184,100,6083,0) + +"DATA",811.8,184,100,6084,0) +5016 +"DATA",811.8,184,100,6085,0) +4922 +"DATA",811.8,184,100,6086,0) +4913 +"DATA",811.8,184,100,6087,0) +5038 +"DATA",811.8,184,100,6088,0) +5021 +"DATA",811.8,184,100,6089,0) + +"DATA",811.8,184,100,6090,0) + +"DATA",811.8,184,100,6091,0) + +"DATA",811.8,184,110,0) +^811.804^16^16 +"DATA",811.8,184,110,1,0) +Source: MANAGER,SYS at VOE OFFICE INSTITUTION OLD +"DATA",811.8,184,110,2,0) +Date Packed: 07/27/2012@17:48:33 +"DATA",811.8,184,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,184,110,4,0) + +"DATA",811.8,184,110,5,0) +Description: +"DATA",811.8,184,110,6,0) +This extract will encapsulate all the reminder rule sets and dependent +"DATA",811.8,184,110,7,0) +patient lists for Children's Immunizations counts for MU NQF0038. +"DATA",811.8,184,110,8,0) + +"DATA",811.8,184,110,9,0) +Keywords: +"DATA",811.8,184,110,10,0) +MU +"DATA",811.8,184,110,11,0) +NQF0038 +"DATA",811.8,184,110,12,0) +IMMUNIZATION +"DATA",811.8,184,110,13,0) +IMMUNIZATIONS +"DATA",811.8,184,110,14,0) +CHILDREN +"DATA",811.8,184,110,15,0) + +"DATA",811.8,184,110,16,0) +Components: +"DATA",811.8,184,119) +8 +"DATA",811.8,184,120,0) +^811.802A^160^160 +"DATA",811.8,184,120,1,0) +ROUTINE^0^1 +"DATA",811.8,184,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,184,120,1,1,1,0) +PXRMART^27^51^^^1^0 +"DATA",811.8,184,120,2,0) +IMMUNIZATION^9999999.14^36 +"DATA",811.8,184,120,2,1,0) +^811.8021A^36^36 +"DATA",811.8,184,120,2,1,1,0) +HEP A1 PEDS^64^66^^^1^0 +"DATA",811.8,184,120,2,1,2,0) +HEP A2 PEDS^79^81^^^1^0 +"DATA",811.8,184,120,2,1,3,0) +INFLUENZA^94^96^^^1^0 +"DATA",811.8,184,120,2,1,4,0) +RV 1 PEDS^109^111^^^1^0 +"DATA",811.8,184,120,2,1,5,0) +RV 2 PEDS^124^126^^^1^0 +"DATA",811.8,184,120,2,1,6,0) +RV 3 PEDS^139^141^^^1^0 +"DATA",811.8,184,120,2,1,7,0) +HiB1^154^156^^^1^0 +"DATA",811.8,184,120,2,1,8,0) +HIB PED 1^169^170^^^1^0 +"DATA",811.8,184,120,2,1,9,0) +HiB2^183^185^^^1^0 +"DATA",811.8,184,120,2,1,10,0) +HIB PED 2^198^199^^^1^0 +"DATA",811.8,184,120,2,1,11,0) +HiB3^212^214^^^1^0 +"DATA",811.8,184,120,2,1,12,0) +HIB PED 3^227^228^^^1^0 +"DATA",811.8,184,120,2,1,13,0) +PCV1 PEDS^241^243^^^1^0 +"DATA",811.8,184,120,2,1,14,0) +PCV2 PEDS^256^258^^^1^0 +"DATA",811.8,184,120,2,1,15,0) +PCV3 PEDS^271^273^^^1^0 +"DATA",811.8,184,120,2,1,16,0) +PCV4 PEDS^286^288^^^1^0 +"DATA",811.8,184,120,2,1,17,0) +PCV5 PEDS^301^303^^^1^0 +"DATA",811.8,184,120,2,1,18,0) +VZV1 INFANT^316^318^^^1^0 +"DATA",811.8,184,120,2,1,19,0) +VZV2 INFANT^331^333^^^1^0 +"DATA",811.8,184,120,2,1,20,0) +HEP B1 INFANT^346^348^^^1^0 +"DATA",811.8,184,120,2,1,21,0) +HEP B2 INFANT^361^363^^^1^0 +"DATA",811.8,184,120,2,1,22,0) +HEP B3 INFANT^376^378^^^1^0 +"DATA",811.8,184,120,2,1,23,0) +HEP B4 INFANT^391^393^^^1^0 +"DATA",811.8,184,120,2,1,24,0) +MMR1^406^408^^^1^0 +"DATA",811.8,184,120,2,1,25,0) +RUBELLA^421^422^^^1^0 +"DATA",811.8,184,120,2,1,26,0) +MEASLES^435^436^^^1^0 +"DATA",811.8,184,120,2,1,27,0) +MUMPS^449^451^^^1^0 +"DATA",811.8,184,120,2,1,28,0) +IPV1^464^466^^^1^0 +"DATA",811.8,184,120,2,1,29,0) +IPV2^479^481^^^1^0 +"DATA",811.8,184,120,2,1,30,0) +IPV3^494^496^^^1^0 +"DATA",811.8,184,120,2,1,31,0) +IPV4^509^511^^^1^0 +"DATA",811.8,184,120,2,1,32,0) +DTaP1^524^526^^^1^0 +"DATA",811.8,184,120,2,1,33,0) +DTaP2^539^541^^^1^0 +"DATA",811.8,184,120,2,1,34,0) +DTaP3^554^556^^^1^0 +"DATA",811.8,184,120,2,1,35,0) +DTaP4^569^571^^^1^0 +"DATA",811.8,184,120,2,1,36,0) +DTaP5^584^586^^^1^0 +"DATA",811.8,184,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^1 +"DATA",811.8,184,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,184,120,3,1,1,0) +VA-ALLERGY^599^618^623^623^1^0 +"DATA",811.8,184,120,4,0) +REMINDER TAXONOMY^811.2^11 +"DATA",811.8,184,120,4,1,0) +^811.8021A^11^11 +"DATA",811.8,184,120,4,1,1,0) +MU NQF0038 NUM8 HEP A DX INCL^636^645^650^651^1^0 +"DATA",811.8,184,120,4,1,2,0) +MU NQF0038 DENOM EM INC^664^748^753^776^1^0 +"DATA",811.8,184,120,4,1,3,0) +MU NQF0038 NUM DX ACTIVE^789^837^842^854^1^0 +"DATA",811.8,184,120,4,1,4,0) +MU NQF0038 NUM INACTIVE DX^867^884^889^892^1^0 +"DATA",811.8,184,120,4,1,5,0) +MU NQF0038 DENOM EM^905^989^994^1017^1^0 +"DATA",811.8,184,120,4,1,6,0) +MU NQF0038 NUM6 VZV DX INCL^1030^1043^1048^1050^1^0 +"DATA",811.8,184,120,4,1,7,0) +MU NQF0038 NUM5 HEP_B DX INCL^1063^1074^1079^1081^1^0 +"DATA",811.8,184,120,4,1,8,0) +MU NQF0038 NUM3 RUBELLA DX EXCLU^1094^1103^1108^1109^1^0 +"DATA",811.8,184,120,4,1,9,0) +MU NQF0038 NUM3 MEASLES DX EXCLU^1122^1131^1136^1137^1^0 +"DATA",811.8,184,120,4,1,10,0) +MU NQF0038 NUM3 MUMPS DX EXCLU^1150^1159^1164^1165^1^0 +"DATA",811.8,184,120,4,1,11,0) +MU NQF0038 DTAP ICD EXCLU^1178^1184^1189^1190^1^0 +"DATA",811.8,184,120,5,0) +REMINDER TERM^811.5^42 +"DATA",811.8,184,120,5,1,0) +^811.8021A^42^42 +"DATA",811.8,184,120,5,1,1,0) +MU NQF0038 NUM8 ALLERGY EXCLU ^1203^1210^1215^1216^1^0 +"DATA",811.8,184,120,5,1,2,0) +MU NQF0038 NUM8 HEPA1^1229^1235^1240^1241^1^0 +"DATA",811.8,184,120,5,1,3,0) +MU NQF0038 NUM8 HEPA2^1254^1260^1265^1266^1^0 +"DATA",811.8,184,120,5,1,4,0) +MU NQF0038 NUM10 INFLUENZA VAC^1279^1285^1290^1291^1^0 +"DATA",811.8,184,120,5,1,5,0) +MU NQF0038 NUM10 FLU ALLERGY EXCLU^1304^1311^1316^1317^1^0 +"DATA",811.8,184,120,5,1,6,0) +MU NQF0038 NUM9 ROTAVIRUS ALLERGY EXCLU^1330^1337^1342^1343^1^0 +"DATA",811.8,184,120,5,1,7,0) +MU NQF0038 NUM9 RV1^1356^1362^1367^1368^1^0 +"DATA",811.8,184,120,5,1,8,0) +MU NQF0038 NUM9 RV2^1381^1387^1392^1393^1^0 +"DATA",811.8,184,120,5,1,9,0) +MU NQF0038 NUM9 RV3^1406^1412^1417^1418^1^0 +"DATA",811.8,184,120,5,1,10,0) +MU NQF0038 NUM4 ALLERGY EXCLU^1431^1438^1443^1444^1^0 +"DATA",811.8,184,120,5,1,11,0) +MU NQF0038 NUM4 HIB1^1457^1465^1470^1472^1^0 +"DATA",811.8,184,120,5,1,12,0) +MU NQF0038 NUM4 HIB2^1485^1493^1498^1500^1^0 +"DATA",811.8,184,120,5,1,13,0) +MU NQF0038 NUM4 HIB3^1513^1521^1526^1528^1^0 +"DATA",811.8,184,120,5,1,14,0) +MU NQF0038 NUM7 ALLERGY EXCLU^1541^1548^1553^1554^1^0 +"DATA",811.8,184,120,5,1,15,0) +MU NQF0038 NUM7 PCV1^1567^1573^1578^1579^1^0 +"DATA",811.8,184,120,5,1,16,0) +MU NQF0038 NUM7 PCV2^1592^1598^1603^1604^1^0 +"DATA",811.8,184,120,5,1,17,0) +MU NQF0038 NUM7 PCV3^1617^1623^1628^1629^1^0 +"DATA",811.8,184,120,5,1,18,0) +MU NQF0038 NUM7 PCV4^1642^1648^1653^1654^1^0 +"DATA",811.8,184,120,5,1,19,0) +MU NQF0038 NUM7 PCV5^1667^1672^1677^1678^1^0 +"DATA",811.8,184,120,5,1,20,0) +MU NQF0038 NUM6 VZV ALLERGY EXCLU^1691^1698^1703^1704^1^0 +"DATA",811.8,184,120,5,1,21,0) +MU NQF0038 NUM6 VZV1^1717^1723^1728^1729^1^0 +"DATA",811.8,184,120,5,1,22,0) +MU NQF0038 NUM6 VZV2^1742^1748^1753^1754^1^0 +"DATA",811.8,184,120,5,1,23,0) +MU NQF0038 NUM5 ALLERGY EXCLU^1767^1777^1782^1784^1^0 +"DATA",811.8,184,120,5,1,24,0) +MU NQF0038 NUM5 HEPB1^1797^1803^1808^1809^1^0 +"DATA",811.8,184,120,5,1,25,0) +MU NQF0038 NUM5 HEPB2^1822^1828^1833^1834^1^0 +"DATA",811.8,184,120,5,1,26,0) +MU NQF0038 NUM5 HEPB3^1847^1853^1858^1859^1^0 +"DATA",811.8,184,120,5,1,27,0) +MU NQF0038 NUM5 HEPB4^1872^1878^1883^1884^1^0 +"DATA",811.8,184,120,5,1,28,0) +MU NQF0038 NUM3 MMR1^1897^1903^1908^1909^1^0 +"DATA",811.8,184,120,5,1,29,0) +MU NQF0038 NUM3 GENER MMR ALLERGY EXCLU^1922^1929^1934^1935^1^0 +"DATA",811.8,184,120,5,1,30,0) +MU NQF0038 NUM3 RUBELLA VAC ALLERGY EXCLU^1948^1955^1960^1961^1^0 +"DATA",811.8,184,120,5,1,31,0) +MU NQF0038 NUM3 MEASLES VAC ALLERGY EXCL^1974^1981^1986^1987^1^0 +"DATA",811.8,184,120,5,1,32,0) +MU NQF0038 NUM3 MUMPS VAC ALLERGY EXCLU^2000^2007^2012^2013^1^0 +"DATA",811.8,184,120,5,1,33,0) +MU NQF0038 NUM2 IPV1^2026^2032^2037^2038^1^0 +"DATA",811.8,184,120,5,1,34,0) +MU NQF0038 NUM2 IPV2^2051^2057^2062^2063^1^0 +"DATA",811.8,184,120,5,1,35,0) +MU NQF0038 NUM2 IPV3^2076^2082^2087^2088^1^0 +"DATA",811.8,184,120,5,1,36,0) +MU NQF0038 NUM2 IPV4^2101^2107^2112^2113^1^0 +"DATA",811.8,184,120,5,1,37,0) +MU NQF0038 NUM2 IPV ALLERGY INCLU^2126^2142^2147^2151^1^0 +"DATA",811.8,184,120,5,1,38,0) +MU NQF0038 DTAP1^2164^2170^2175^2176^1^0 +"DATA",811.8,184,120,5,1,39,0) +MU NQF0038 DTAP2^2189^2195^2200^2201^1^0 +"DATA",811.8,184,120,5,1,40,0) +MU NQF0038 DTAP3^2214^2220^2225^2226^1^0 +"DATA",811.8,184,120,5,1,41,0) +MU NQF0038 DTAP4^2239^2245^2250^2251^1^0 +"DATA",811.8,184,120,5,1,42,0) +MU NQF0038 DTAP5^2264^2270^2275^2276^1^0 +"DATA",811.8,184,120,6,0) +REMINDER DEFINITION^811.9^14 +"DATA",811.8,184,120,6,1,0) +^811.8021A^14^14 +"DATA",811.8,184,120,6,1,1,0) +MU NQF0038 NUM8 HEPA LIST^2289^2328^2333^2338^1^0 +"DATA",811.8,184,120,6,1,2,0) +MU NQF0038 NUM10 INFLUENZA LIST^2351^2410^2415^2428^1^0 +"DATA",811.8,184,120,6,1,3,0) +MU NQF0038 IMMUN DENOM PL^2441^2474^2479^2481^1^0 +"DATA",811.8,184,120,6,1,4,0) +MU NQF0038 NUM9 RV LIST^2494^2548^2553^2564^1^0 +"DATA",811.8,184,120,6,1,5,0) +MU NQF0038 NUM4 HIB LIST^2577^2631^2636^2647^1^0 +"DATA",811.8,184,120,6,1,6,0) +MU NQF0038 NUM7 PCV LIST^2660^2728^2733^2752^1^0 +"DATA",811.8,184,120,6,1,7,0) +MU NQF0038 NUM6 VZV LIST^2765^2811^2816^2823^1^0 +"DATA",811.8,184,120,6,1,8,0) +MU NQF0038 NUM5 HEPB LIST^2836^2902^2907^2923^1^0 +"DATA",811.8,184,120,6,1,9,0) +MU NQF0038 NUM3-4 MMR OR EXCLUSIONS^2936^2975^2980^2985^1^0 +"DATA",811.8,184,120,6,1,10,0) +MU NQF0038 NUM3-3 RUBELLA ^2998^3042^3047^3054^1^0 +"DATA",811.8,184,120,6,1,11,0) +MU NQF0038 NUM3-2 MEASLES ^3067^3111^3116^3123^1^0 +"DATA",811.8,184,120,6,1,12,0) +MU NQF0038 NUM3-1 MUMPS ^3136^3180^3185^3192^1^0 +"DATA",811.8,184,120,6,1,13,0) +MU NQF0038 NUM2 IPV LIST^3205^3268^3273^3288^1^0 +"DATA",811.8,184,120,6,1,14,0) +MU NQF0038 NUM1 LIST^3301^3382^3387^3409^1^0 +"DATA",811.8,184,120,7,0) +REMINDER LIST RULE^810.4^54 +"DATA",811.8,184,120,7,1,0) +^811.8021A^54^54 +"DATA",811.8,184,120,7,1,1,0) +MU NQF0038 NUM8 ALLERGY FR^3422^3430^3435^3435^1^0 +"DATA",811.8,184,120,7,1,2,0) +MU NQF0038 NUM8 RR^3448^3454^3459^3459^1^0 +"DATA",811.8,184,120,7,1,3,0) +MU NQF0038 NUM8 HEP A RS^3472^3483^3488^3490^1^0 +"DATA",811.8,184,120,7,1,4,0) +MU NQF0038 NUM10 FLU RR^3503^3509^3514^3514^1^0 +"DATA",811.8,184,120,7,1,5,0) +MU NQF0038 NUM10 FLU FR^3527^3533^3538^3538^1^0 +"DATA",811.8,184,120,7,1,6,0) +MU NQF0038 DENOM RR^3551^3557^3562^3562^1^0 +"DATA",811.8,184,120,7,1,7,0) +MU NQF0038 NUM10 INFLUENZA RS^3575^3589^3594^3597^1^0 +"DATA",811.8,184,120,7,1,8,0) +MU NQF0038 NUM9 ALLERGY FR^3610^3618^3623^3623^1^0 +"DATA",811.8,184,120,7,1,9,0) +MU NQF0038 NUM9 RR^3636^3642^3647^3647^1^0 +"DATA",811.8,184,120,7,1,10,0) +MU NQF0038 NUM9 RV RS^3660^3671^3676^3678^1^0 +"DATA",811.8,184,120,7,1,11,0) +MU NQF0038 NUM4 ALLERGY FR^3691^3699^3704^3704^1^0 +"DATA",811.8,184,120,7,1,12,0) +MU NQF0038 NUM4 RR^3717^3723^3728^3728^1^0 +"DATA",811.8,184,120,7,1,13,0) +MU NQF0038 NUM4 HIB RS^3741^3752^3757^3759^1^0 +"DATA",811.8,184,120,7,1,14,0) +MU NQF0038 NUM7 PCV PR^3772^3779^3784^3784^1^0 +"DATA",811.8,184,120,7,1,15,0) +MU NQF0038 NUM6 VZV PR^3797^3804^3809^3809^1^0 +"DATA",811.8,184,120,7,1,16,0) +MU NQF0038 NUM5 HEP B PR^3822^3829^3834^3834^1^0 +"DATA",811.8,184,120,7,1,17,0) +MU NQF0038 NUM3-ALL PR^3847^3854^3859^3859^1^0 +"DATA",811.8,184,120,7,1,18,0) +MU NQF0038 NUM2 IPV PR^3872^3879^3884^3884^1^0 +"DATA",811.8,184,120,7,1,19,0) +MU NQF0038 NUM1 DPT PR^3897^3904^3909^3909^1^0 +"DATA",811.8,184,120,7,1,20,0) +MU NQF0038 NUM12 COMBO6 RS^3922^3946^3951^3957^1^0 +"DATA",811.8,184,120,7,1,21,0) +MU NQF0038 NUM11 COMBO5 RS^3970^3991^3996^4001^1^0 +"DATA",811.8,184,120,7,1,22,0) +MU NQF0038 NUM7 ALLERGY^4014^4022^4027^4027^1^0 +"DATA",811.8,184,120,7,1,23,0) +MU NQF0038 NUM7 RR^4040^4046^4051^4051^1^0 +"DATA",811.8,184,120,7,1,24,0) +MU NQF0038 NUM7 PCV RS^4064^4075^4080^4082^1^0 +"DATA",811.8,184,120,7,1,25,0) +MU NQF0038 NUM6 ALLERGY FR^4095^4103^4108^4108^1^0 +"DATA",811.8,184,120,7,1,26,0) +MU NQF0038 NUM6 RR^4121^4127^4132^4132^1^0 +"DATA",811.8,184,120,7,1,27,0) +MU NQF0038 NUM6 VZV RS^4145^4156^4161^4163^1^0 +"DATA",811.8,184,120,7,1,28,0) +MU NQF0038 NUM5 ALLERGY FR^4176^4184^4189^4189^1^0 +"DATA",811.8,184,120,7,1,29,0) +MU NQF0038 NUM5 RR^4202^4208^4213^4213^1^0 +"DATA",811.8,184,120,7,1,30,0) +MU NQF0038 NUM5 RS^4226^4237^4242^4244^1^0 +"DATA",811.8,184,120,7,1,31,0) +MU NQF0038 NUM3-4 PR^4257^4264^4269^4269^1^0 +"DATA",811.8,184,120,7,1,32,0) +MU NQF0038 NUM3-3 PR^4282^4289^4294^4294^1^0 +"DATA",811.8,184,120,7,1,33,0) +MU NQF0038 NUM3-2 PR^4307^4314^4319^4319^1^0 +"DATA",811.8,184,120,7,1,34,0) +MU NQF0038 NUM3-1 PR^4332^4339^4344^4344^1^0 +"DATA",811.8,184,120,7,1,35,0) +MU NQF0038 NUM3-ALL RS^4357^4375^4380^4384^1^0 +"DATA",811.8,184,120,7,1,36,0) +MU NQF0038 NUM3-4 MMR AND EXCL RR^4397^4403^4408^4408^1^0 +"DATA",811.8,184,120,7,1,37,0) +MU NQF0038 NUM3 MMR ALLERGY FR^4421^4427^4432^4432^1^0 +"DATA",811.8,184,120,7,1,38,0) +MU NQF0038 NUM3-4 MMR AND EXCLU RS^4445^4459^4464^4467^1^0 +"DATA",811.8,184,120,7,1,39,0) +MU NQF0038 NUM3-3 RUBELLA RR^4480^4486^4491^4491^1^0 +"DATA",811.8,184,120,7,1,40,0) +MU NQF0038 RUBELLA ALERGY FR^4504^4510^4515^4515^1^0 +"DATA",811.8,184,120,7,1,41,0) +MU NQF0038 NUM3-3 RUBELLA RS^4528^4542^4547^4550^1^0 +"DATA",811.8,184,120,7,1,42,0) +MU NQF0038 NUM3-2 MEASLES RR^4563^4569^4574^4574^1^0 +"DATA",811.8,184,120,7,1,43,0) +MU NQF0038 NUM3 MEASLES ALLERGY FR^4587^4593^4598^4598^1^0 +"DATA",811.8,184,120,7,1,44,0) +MU NQF0038 NUM3-2 MEASLES RS^4611^4625^4630^4633^1^0 +"DATA",811.8,184,120,7,1,45,0) +MU NQF0038 NUM3-1 MUMPS RR^4646^4652^4657^4657^1^0 +"DATA",811.8,184,120,7,1,46,0) +MU NQF0038 NUM3 MUMPS ALLERGY FR^4670^4676^4681^4681^1^0 +"DATA",811.8,184,120,7,1,47,0) +MU NQF0038 NUM3-1 MUMPS RS^4694^4708^4713^4716^1^0 +"DATA",811.8,184,120,7,1,48,0) +MU NQF0038 NUM2 1 RR^4729^4735^4740^4740^1^0 +"DATA",811.8,184,120,7,1,49,0) +MU NQF0038 NUM2 ALLERGY FR^4753^4759^4764^4764^1^0 +"DATA",811.8,184,120,7,1,50,0) +MU NQF0038 NUM2 IPV RS^4777^4791^4796^4799^1^0 +"DATA",811.8,184,120,7,1,51,0) +MU NQF0038 NUM1 RR^4812^4818^4823^4823^1^0 +"DATA",811.8,184,120,7,1,52,0) +MU NQF0038 NUM1 DPT ALLERGY FR^4836^4842^4847^4847^1^0 +"DATA",811.8,184,120,7,1,53,0) +MU NQF0038 NUM1 DPT RS^4860^4874^4879^4882^1^0 +"DATA",811.8,184,120,7,1,54,0) +MU NQF0038 DENOM RS^4895^4903^4908^4909^1^0 +"DATA",811.8,184,120,8,0) +REMINDER EXTRACT DEFINITION^810.2^1 +"DATA",811.8,184,120,8,1,0) +^811.8021A^1^1 +"DATA",811.8,184,120,8,1,1,0) +MU NQF0038 CHILDREN'S IMMUNIZATIONS^4922^5016^5021^5038^1^1 +"DATA",811.8,184,130,0) +^811.803DA^1^1 +"DATA",811.8,184,130,1,0) +3120727.145459^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,184,130,1,1,0) +^811.8031A^160^160 +"DATA",811.8,184,130,1,1,1,0) +1^ROUTINE^PXRMART^S^ +"DATA",811.8,184,130,1,1,2,0) +2^IMMUNIZATION^HEP A1 PEDS^S^ +"DATA",811.8,184,130,1,1,3,0) +3^IMMUNIZATION^HEP A2 PEDS^S^ +"DATA",811.8,184,130,1,1,4,0) +4^IMMUNIZATION^INFLUENZA^S^ +"DATA",811.8,184,130,1,1,5,0) +5^IMMUNIZATION^RV 1 PEDS^S^ +"DATA",811.8,184,130,1,1,6,0) +6^IMMUNIZATION^RV 2 PEDS^S^ +"DATA",811.8,184,130,1,1,7,0) +7^IMMUNIZATION^RV 3 PEDS^S^ +"DATA",811.8,184,130,1,1,8,0) +8^IMMUNIZATION^HiB1^S^ +"DATA",811.8,184,130,1,1,9,0) +9^IMMUNIZATION^HIB PED 1^S^ +"DATA",811.8,184,130,1,1,10,0) +10^IMMUNIZATION^HiB2^S^ +"DATA",811.8,184,130,1,1,11,0) +11^IMMUNIZATION^HIB PED 2^S^ +"DATA",811.8,184,130,1,1,12,0) +12^IMMUNIZATION^HiB3^S^ +"DATA",811.8,184,130,1,1,13,0) +13^IMMUNIZATION^HIB PED 3^S^ +"DATA",811.8,184,130,1,1,14,0) +14^IMMUNIZATION^PCV1 PEDS^S^ +"DATA",811.8,184,130,1,1,15,0) +15^IMMUNIZATION^PCV2 PEDS^S^ +"DATA",811.8,184,130,1,1,16,0) +16^IMMUNIZATION^PCV3 PEDS^S^ +"DATA",811.8,184,130,1,1,17,0) +17^IMMUNIZATION^PCV4 PEDS^S^ +"DATA",811.8,184,130,1,1,18,0) +18^IMMUNIZATION^PCV5 PEDS^S^ +"DATA",811.8,184,130,1,1,19,0) +19^IMMUNIZATION^VZV1 INFANT^S^ +"DATA",811.8,184,130,1,1,20,0) +20^IMMUNIZATION^VZV2 INFANT^S^ +"DATA",811.8,184,130,1,1,21,0) +21^IMMUNIZATION^HEP B1 INFANT^S^ +"DATA",811.8,184,130,1,1,22,0) +22^IMMUNIZATION^HEP B2 INFANT^S^ +"DATA",811.8,184,130,1,1,23,0) +23^IMMUNIZATION^HEP B3 INFANT^S^ +"DATA",811.8,184,130,1,1,24,0) +24^IMMUNIZATION^HEP B4 INFANT^S^ +"DATA",811.8,184,130,1,1,25,0) +25^IMMUNIZATION^MMR1^S^ +"DATA",811.8,184,130,1,1,26,0) +26^IMMUNIZATION^RUBELLA^S^ +"DATA",811.8,184,130,1,1,27,0) +27^IMMUNIZATION^MEASLES^S^ +"DATA",811.8,184,130,1,1,28,0) +28^IMMUNIZATION^MUMPS^S^ +"DATA",811.8,184,130,1,1,29,0) +29^IMMUNIZATION^IPV1^S^ +"DATA",811.8,184,130,1,1,30,0) +30^IMMUNIZATION^IPV2^S^ +"DATA",811.8,184,130,1,1,31,0) +31^IMMUNIZATION^IPV3^S^ +"DATA",811.8,184,130,1,1,32,0) +32^IMMUNIZATION^IPV4^S^ +"DATA",811.8,184,130,1,1,33,0) +33^IMMUNIZATION^DTaP1^S^ +"DATA",811.8,184,130,1,1,34,0) +34^IMMUNIZATION^DTaP2^S^ +"DATA",811.8,184,130,1,1,35,0) +35^IMMUNIZATION^DTaP3^S^ +"DATA",811.8,184,130,1,1,36,0) +36^IMMUNIZATION^DTaP4^S^ +"DATA",811.8,184,130,1,1,37,0) +37^IMMUNIZATION^DTaP5^S^ +"DATA",811.8,184,130,1,1,38,0) +38^REMINDER COMPUTED FINDINGS^VA-ALLERGY^S^ +"DATA",811.8,184,130,1,1,39,0) +39^REMINDER TAXONOMY^MU NQF0038 NUM8 HEP A DX INCL^S^ +"DATA",811.8,184,130,1,1,40,0) +40^REMINDER TAXONOMY^MU NQF0038 DENOM EM INC^O^ +"DATA",811.8,184,130,1,1,41,0) +41^REMINDER TAXONOMY^MU NQF0038 NUM DX ACTIVE^S^ +"DATA",811.8,184,130,1,1,42,0) +42^REMINDER TAXONOMY^MU NQF0038 NUM INACTIVE DX^O^ +"DATA",811.8,184,130,1,1,43,0) +43^REMINDER TAXONOMY^MU NQF0038 DENOM EM^S^ +"DATA",811.8,184,130,1,1,44,0) +44^REMINDER TAXONOMY^MU NQF0038 NUM6 VZV DX INCL^S^ +"DATA",811.8,184,130,1,1,45,0) +45^REMINDER TAXONOMY^MU NQF0038 NUM5 HEP_B DX INCL^S^ +"DATA",811.8,184,130,1,1,46,0) +46^REMINDER TAXONOMY^MU NQF0038 NUM3 RUBELLA DX EXCLU^S^ +"DATA",811.8,184,130,1,1,47,0) +47^REMINDER TAXONOMY^MU NQF0038 NUM3 MEASLES DX EXCLU^S^ +"DATA",811.8,184,130,1,1,48,0) +48^REMINDER TAXONOMY^MU NQF0038 NUM3 MUMPS DX EXCLU^S^ +"DATA",811.8,184,130,1,1,49,0) +49^REMINDER TAXONOMY^MU NQF0038 DTAP ICD EXCLU^S^ +"DATA",811.8,184,130,1,1,50,0) +50^REMINDER TERM^MU NQF0038 NUM8 ALLERGY EXCLU ^S^ +"DATA",811.8,184,130,1,1,51,0) +51^REMINDER TERM^MU NQF0038 NUM8 HEPA1^S^ +"DATA",811.8,184,130,1,1,52,0) +52^REMINDER TERM^MU NQF0038 NUM8 HEPA2^S^ +"DATA",811.8,184,130,1,1,53,0) +53^REMINDER TERM^MU NQF0038 NUM10 INFLUENZA VAC^S^ +"DATA",811.8,184,130,1,1,54,0) +54^REMINDER TERM^MU NQF0038 NUM10 FLU ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,55,0) +55^REMINDER TERM^MU NQF0038 NUM9 ROTAVIRUS ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,56,0) +56^REMINDER TERM^MU NQF0038 NUM9 RV1^S^ +"DATA",811.8,184,130,1,1,57,0) +57^REMINDER TERM^MU NQF0038 NUM9 RV2^S^ +"DATA",811.8,184,130,1,1,58,0) +58^REMINDER TERM^MU NQF0038 NUM9 RV3^S^ +"DATA",811.8,184,130,1,1,59,0) +59^REMINDER TERM^MU NQF0038 NUM4 ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,60,0) +60^REMINDER TERM^MU NQF0038 NUM4 HIB1^S^ +"DATA",811.8,184,130,1,1,61,0) +61^REMINDER TERM^MU NQF0038 NUM4 HIB2^S^ +"DATA",811.8,184,130,1,1,62,0) +62^REMINDER TERM^MU NQF0038 NUM4 HIB3^S^ +"DATA",811.8,184,130,1,1,63,0) +63^REMINDER TERM^MU NQF0038 NUM7 ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,64,0) +64^REMINDER TERM^MU NQF0038 NUM7 PCV1^S^ +"DATA",811.8,184,130,1,1,65,0) +65^REMINDER TERM^MU NQF0038 NUM7 PCV2^S^ +"DATA",811.8,184,130,1,1,66,0) +66^REMINDER TERM^MU NQF0038 NUM7 PCV3^S^ +"DATA",811.8,184,130,1,1,67,0) +67^REMINDER TERM^MU NQF0038 NUM7 PCV4^S^ +"DATA",811.8,184,130,1,1,68,0) +68^REMINDER TERM^MU NQF0038 NUM7 PCV5^S^ +"DATA",811.8,184,130,1,1,69,0) +69^REMINDER TERM^MU NQF0038 NUM6 VZV ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,70,0) +70^REMINDER TERM^MU NQF0038 NUM6 VZV1^S^ +"DATA",811.8,184,130,1,1,71,0) +71^REMINDER TERM^MU NQF0038 NUM6 VZV2^S^ +"DATA",811.8,184,130,1,1,72,0) +72^REMINDER TERM^MU NQF0038 NUM5 ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,73,0) +73^REMINDER TERM^MU NQF0038 NUM5 HEPB1^S^ +"DATA",811.8,184,130,1,1,74,0) +74^REMINDER TERM^MU NQF0038 NUM5 HEPB2^S^ +"DATA",811.8,184,130,1,1,75,0) +75^REMINDER TERM^MU NQF0038 NUM5 HEPB3^S^ +"DATA",811.8,184,130,1,1,76,0) +76^REMINDER TERM^MU NQF0038 NUM5 HEPB4^S^ +"DATA",811.8,184,130,1,1,77,0) +77^REMINDER TERM^MU NQF0038 NUM3 MMR1^S^ +"DATA",811.8,184,130,1,1,78,0) +78^REMINDER TERM^MU NQF0038 NUM3 GENER MMR ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,79,0) +79^REMINDER TERM^MU NQF0038 NUM3 RUBELLA VAC ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,80,0) +80^REMINDER TERM^MU NQF0038 NUM3 MEASLES VAC ALLERGY EXCL^S^ +"DATA",811.8,184,130,1,1,81,0) +81^REMINDER TERM^MU NQF0038 NUM3 MUMPS VAC ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,82,0) +82^REMINDER TERM^MU NQF0038 NUM2 IPV1^S^ +"DATA",811.8,184,130,1,1,83,0) +83^REMINDER TERM^MU NQF0038 NUM2 IPV2^S^ +"DATA",811.8,184,130,1,1,84,0) +84^REMINDER TERM^MU NQF0038 NUM2 IPV3^S^ +"DATA",811.8,184,130,1,1,85,0) +85^REMINDER TERM^MU NQF0038 NUM2 IPV4^S^ +"DATA",811.8,184,130,1,1,86,0) +86^REMINDER TERM^MU NQF0038 NUM2 IPV ALLERGY INCLU^S^ +"DATA",811.8,184,130,1,1,87,0) +87^REMINDER TERM^MU NQF0038 DTAP1^S^ +"DATA",811.8,184,130,1,1,88,0) +88^REMINDER TERM^MU NQF0038 DTAP2^S^ +"DATA",811.8,184,130,1,1,89,0) +89^REMINDER TERM^MU NQF0038 DTAP3^S^ +"DATA",811.8,184,130,1,1,90,0) +90^REMINDER TERM^MU NQF0038 DTAP4^S^ +"DATA",811.8,184,130,1,1,91,0) +91^REMINDER TERM^MU NQF0038 DTAP5^S^ +"DATA",811.8,184,130,1,1,92,0) +92^REMINDER DEFINITION^MU NQF0038 NUM8 HEPA LIST^S^ +"DATA",811.8,184,130,1,1,93,0) +93^REMINDER DEFINITION^MU NQF0038 NUM10 INFLUENZA LIST^S^ +"DATA",811.8,184,130,1,1,94,0) +94^REMINDER DEFINITION^MU NQF0038 IMMUN DENOM PL^S^ +"DATA",811.8,184,130,1,1,95,0) +95^REMINDER DEFINITION^MU NQF0038 NUM9 RV LIST^S^ +"DATA",811.8,184,130,1,1,96,0) +96^REMINDER DEFINITION^MU NQF0038 NUM4 HIB LIST^S^ +"DATA",811.8,184,130,1,1,97,0) +97^REMINDER DEFINITION^MU NQF0038 NUM7 PCV LIST^S^ +"DATA",811.8,184,130,1,1,98,0) +98^REMINDER DEFINITION^MU NQF0038 NUM6 VZV LIST^S^ +"DATA",811.8,184,130,1,1,99,0) +99^REMINDER DEFINITION^MU NQF0038 NUM5 HEPB LIST^S^ +"DATA",811.8,184,130,1,1,100,0) +100^REMINDER DEFINITION^MU NQF0038 NUM3-4 MMR OR EXCLUSIONS^S^ +"DATA",811.8,184,130,1,1,101,0) +101^REMINDER DEFINITION^MU NQF0038 NUM3-3 RUBELLA ^S^ +"DATA",811.8,184,130,1,1,102,0) +102^REMINDER DEFINITION^MU NQF0038 NUM3-2 MEASLES ^S^ +"DATA",811.8,184,130,1,1,103,0) +103^REMINDER DEFINITION^MU NQF0038 NUM3-1 MUMPS ^S^ +"DATA",811.8,184,130,1,1,104,0) +104^REMINDER DEFINITION^MU NQF0038 NUM2 IPV LIST^S^ +"DATA",811.8,184,130,1,1,105,0) +105^REMINDER DEFINITION^MU NQF0038 NUM1 LIST^S^ +"DATA",811.8,184,130,1,1,106,0) +106^REMINDER LIST RULE^MU NQF0038 NUM8 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,107,0) +107^REMINDER LIST RULE^MU NQF0038 NUM8 RR^S^ +"DATA",811.8,184,130,1,1,108,0) +108^REMINDER LIST RULE^MU NQF0038 NUM8 HEP A RS^S^ +"DATA",811.8,184,130,1,1,109,0) +109^REMINDER LIST RULE^MU NQF0038 NUM10 FLU RR^S^ +"DATA",811.8,184,130,1,1,110,0) +110^REMINDER LIST RULE^MU NQF0038 NUM10 FLU FR^S^ +"DATA",811.8,184,130,1,1,111,0) +111^REMINDER LIST RULE^MU NQF0038 DENOM RR^S^ +"DATA",811.8,184,130,1,1,112,0) +112^REMINDER LIST RULE^MU NQF0038 NUM10 INFLUENZA RS^S^ +"DATA",811.8,184,130,1,1,113,0) +113^REMINDER LIST RULE^MU NQF0038 NUM9 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,114,0) +114^REMINDER LIST RULE^MU NQF0038 NUM9 RR^S^ +"DATA",811.8,184,130,1,1,115,0) +115^REMINDER LIST RULE^MU NQF0038 NUM9 RV RS^S^ +"DATA",811.8,184,130,1,1,116,0) +116^REMINDER LIST RULE^MU NQF0038 NUM4 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,117,0) +117^REMINDER LIST RULE^MU NQF0038 NUM4 RR^S^ +"DATA",811.8,184,130,1,1,118,0) +118^REMINDER LIST RULE^MU NQF0038 NUM4 HIB RS^S^ +"DATA",811.8,184,130,1,1,119,0) +119^REMINDER LIST RULE^MU NQF0038 NUM7 PCV PR^S^ +"DATA",811.8,184,130,1,1,120,0) +120^REMINDER LIST RULE^MU NQF0038 NUM6 VZV PR^S^ +"DATA",811.8,184,130,1,1,121,0) +121^REMINDER LIST RULE^MU NQF0038 NUM5 HEP B PR^S^ +"DATA",811.8,184,130,1,1,122,0) +122^REMINDER LIST RULE^MU NQF0038 NUM3-ALL PR^S^ +"DATA",811.8,184,130,1,1,123,0) +123^REMINDER LIST RULE^MU NQF0038 NUM2 IPV PR^S^ +"DATA",811.8,184,130,1,1,124,0) +124^REMINDER LIST RULE^MU NQF0038 NUM1 DPT PR^S^ +"DATA",811.8,184,130,1,1,125,0) +125^REMINDER LIST RULE^MU NQF0038 NUM12 COMBO6 RS^S^ +"DATA",811.8,184,130,1,1,126,0) +126^REMINDER LIST RULE^MU NQF0038 NUM11 COMBO5 RS^S^ +"DATA",811.8,184,130,1,1,127,0) +127^REMINDER LIST RULE^MU NQF0038 NUM7 ALLERGY^S^ +"DATA",811.8,184,130,1,1,128,0) +128^REMINDER LIST RULE^MU NQF0038 NUM7 RR^S^ +"DATA",811.8,184,130,1,1,129,0) +129^REMINDER LIST RULE^MU NQF0038 NUM7 PCV RS^S^ +"DATA",811.8,184,130,1,1,130,0) +130^REMINDER LIST RULE^MU NQF0038 NUM6 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,131,0) +131^REMINDER LIST RULE^MU NQF0038 NUM6 RR^S^ +"DATA",811.8,184,130,1,1,132,0) +132^REMINDER LIST RULE^MU NQF0038 NUM6 VZV RS^S^ +"DATA",811.8,184,130,1,1,133,0) +133^REMINDER LIST RULE^MU NQF0038 NUM5 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,134,0) +134^REMINDER LIST RULE^MU NQF0038 NUM5 RR^S^ +"DATA",811.8,184,130,1,1,135,0) +135^REMINDER LIST RULE^MU NQF0038 NUM5 RS^S^ +"DATA",811.8,184,130,1,1,136,0) +136^REMINDER LIST RULE^MU NQF0038 NUM3-4 PR^S^ +"DATA",811.8,184,130,1,1,137,0) +137^REMINDER LIST RULE^MU NQF0038 NUM3-3 PR^S^ +"DATA",811.8,184,130,1,1,138,0) +138^REMINDER LIST RULE^MU NQF0038 NUM3-2 PR^S^ +"DATA",811.8,184,130,1,1,139,0) +139^REMINDER LIST RULE^MU NQF0038 NUM3-1 PR^S^ +"DATA",811.8,184,130,1,1,140,0) +140^REMINDER LIST RULE^MU NQF0038 NUM3-ALL RS^S^ +"DATA",811.8,184,130,1,1,141,0) +141^REMINDER LIST RULE^MU NQF0038 NUM3-4 MMR AND EXCL RR^S^ +"DATA",811.8,184,130,1,1,142,0) +142^REMINDER LIST RULE^MU NQF0038 NUM3 MMR ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,143,0) +143^REMINDER LIST RULE^MU NQF0038 NUM3-4 MMR AND EXCLU RS^S^ +"DATA",811.8,184,130,1,1,144,0) +144^REMINDER LIST RULE^MU NQF0038 NUM3-3 RUBELLA RR^S^ +"DATA",811.8,184,130,1,1,145,0) +145^REMINDER LIST RULE^MU NQF0038 RUBELLA ALERGY FR^S^ +"DATA",811.8,184,130,1,1,146,0) +146^REMINDER LIST RULE^MU NQF0038 NUM3-3 RUBELLA RS^S^ +"DATA",811.8,184,130,1,1,147,0) +147^REMINDER LIST RULE^MU NQF0038 NUM3-2 MEASLES RR^S^ +"DATA",811.8,184,130,1,1,148,0) +148^REMINDER LIST RULE^MU NQF0038 NUM3 MEASLES ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,149,0) +149^REMINDER LIST RULE^MU NQF0038 NUM3-2 MEASLES RS^S^ +"DATA",811.8,184,130,1,1,150,0) +150^REMINDER LIST RULE^MU NQF0038 NUM3-1 MUMPS RR^S^ +"DATA",811.8,184,130,1,1,151,0) +151^REMINDER LIST RULE^MU NQF0038 NUM3 MUMPS ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,152,0) +152^REMINDER LIST RULE^MU NQF0038 NUM3-1 MUMPS RS^O^ +"DATA",811.8,184,130,1,1,153,0) +153^REMINDER LIST RULE^MU NQF0038 NUM2 1 RR^S^ +"DATA",811.8,184,130,1,1,154,0) +154^REMINDER LIST RULE^MU NQF0038 NUM2 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,155,0) +155^REMINDER LIST RULE^MU NQF0038 NUM2 IPV RS^S^ +"DATA",811.8,184,130,1,1,156,0) +156^REMINDER LIST RULE^MU NQF0038 NUM1 RR^S^ +"DATA",811.8,184,130,1,1,157,0) +157^REMINDER LIST RULE^MU NQF0038 NUM1 DPT ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,158,0) +158^REMINDER LIST RULE^MU NQF0038 NUM1 DPT RS^S^ +"DATA",811.8,184,130,1,1,159,0) +159^REMINDER LIST RULE^MU NQF0038 DENOM RS^S^ +"DATA",811.8,184,130,1,1,160,0) +160^REMINDER EXTRACT DEFINITION^MU NQF0038 CHILDREN'S IMMUNIZATIONS^O^ +"DATA",811.8,185,0) +MU NQF0024-ALL^MANAGER,SYSTEM at VOE OFFICE INSTITUTION OLD^3120731.174903 +"DATA",811.8,185,100,1,0) + +"DATA",811.8,185,100,2,0) + +"DATA",811.8,185,100,3,0) +2.0P17 +"DATA",811.8,185,100,4,0) +1294 +"DATA",811.8,185,100,5,0) + +"DATA",811.8,185,100,6,0) +MU NQF0024-ALL +"DATA",811.8,185,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,185,100,8,0) +VOE OFFICE INSTITUTION OLD +"DATA",811.8,185,100,9,0) +07/31/2012@17:49:03 +"DATA",811.8,185,100,10,0) + +"DATA",811.8,185,100,11,0) + +"DATA",811.8,185,100,21,0) + +"DATA",811.8,185,100,22,0) +BMI PERCENTILE +"DATA",811.8,185,100,23,0) + +"DATA",811.8,185,100,24,0) + +"DATA",811.8,185,100,25,0) +C0QRMBMI +"DATA",811.8,185,100,26,0) +2871931989 +"DATA",811.8,185,100,27,0) + +"DATA",811.8,185,100,28,0) + 18. +"DATA",811.8,185,100,45,0) + ; Call doesn't work for anybody above 18 yo. +"DATA",811.8,185,100,46,0) + I $T(BMIPCTL^TMGGRC1)']"" S NFOUND=0 QUIT +"DATA",811.8,185,100,47,0) + I PXRMAGE>18 S NFOUND=0 QUIT +"DATA",811.8,185,100,48,0) + ; +"DATA",811.8,185,100,49,0) + ; Get BMIs from Standard Reminders Call (added in Patch 12) +"DATA",811.8,185,100,50,0) + D BMI^PXRMBMI(DFN,NGET,BDT,EDT,.NFOUND,.TEST,.DATE,.DATA,.TEXT) ; BMI call +"DATA",811.8,185,100,51,0) + ; +"DATA",811.8,185,100,52,0) + ; Walk through BMI results +"DATA",811.8,185,100,53,0) + N IND ; Index +"DATA",811.8,185,100,54,0) + F IND=1:1:NFOUND D Q:'NFOUND ; If NFOUND is zero'ed, quit. +"DATA",811.8,185,100,55,0) + . ; +"DATA",811.8,185,100,56,0) + . ; S TEST(IND)=1,DATE(IND)=TDATE ; The same; won't set here. +"DATA",811.8,185,100,57,0) + . ; S TEXT(IND)="height measured "_$$EDATE^PXRMDATE(HDATE) ; the same +"DATA",811.8,185,100,58,0) + . N BMI S BMI=DATA(IND,"VALUE") ; Get BMI +"DATA",811.8,185,100,59,0) + . N PBMI ; BMI Percentile +"DATA",811.8,185,100,60,0) + . ; We use PXRMDATE API to grab the Reminders Date Due, not today's date. +"DATA",811.8,185,100,61,0) + . N AGE S AGE=$$FMDIFF^XLFDT($$NOW^PXRMDATE(),PXRMDOB,1)/365.24 ; Age in yrs +"DATA",811.8,185,100,62,0) + . ; +"DATA",811.8,185,100,63,0) + . ; If the ep exists, call it, otherwise, mark as not found. +"DATA",811.8,185,100,64,0) + . S PBMI=$$BMIPCTL^TMGGRC1(AGE,PXRMSEX,BMI,1) +"DATA",811.8,185,100,65,0) + . ; +"DATA",811.8,185,100,66,0) + . ; Also, if N/A (patient above 18 yo) - mark as not found. +"DATA",811.8,185,100,67,0) + . I PBMI["N/A" S NFOUND=0 QUIT ; Not available for anybody above 18 yo. +"DATA",811.8,185,100,68,0) + . ; +"DATA",811.8,185,100,69,0) + . ; We get a textish result (e.g. 78th percentile); convert to number +"DATA",811.8,185,100,70,0) + . S PBMI=+PBMI +"DATA",811.8,185,100,71,0) + . ; +"DATA",811.8,185,100,72,0) + . ; Set return values (NB: BMI subscript is still there) +"DATA",811.8,185,100,73,0) + . S (DATA(IND,"VALUE"),DATA(IND,"BMI%ILE"))=PBMI +"DATA",811.8,185,100,74,0) + QUIT +"DATA",811.8,185,100,75,0) + ; +"DATA",811.8,185,100,76,0) +TPBMI(DFN) ; Test PBMI; Pass DFN by Value; Private, for testing only +"DATA",811.8,185,100,77,0) + N NFOUND,TEST,DATE,DATA,TEXT +"DATA",811.8,185,100,78,0) + N PXRMSEX S PXRMSEX=$P(^DPT(DFN,0),U,2) +"DATA",811.8,185,100,79,0) + N PXRMDOB S PXRMDOB=$P(^DPT(DFN,0),U,3) +"DATA",811.8,185,100,80,0) + N PXRMAGE S PXRMAGE=$$GET1^DIQ(2,DFN,"AGE") +"DATA",811.8,185,100,81,0) + D PBMI^C0QRMBMI(DFN,99,3000000,$$DT^XLFDT(),.NFOUND,.TEST,.DATE,.DATA,.TEXT) +"DATA",811.8,185,100,82,0) + I 'NFOUND W "No results found! for DFN "_DFN,!! QUIT +"DATA",811.8,185,100,83,0) + ; +"DATA",811.8,185,100,84,0) + W "Patient: DFN: "_DFN_"; "_PXRMAGE_" yo; "_PXRMSEX,! +"DATA",811.8,185,100,85,0) + ; +"DATA",811.8,185,100,86,0) + N I F I=1:1:NFOUND D +"DATA",811.8,185,100,87,0) + . W "NFOUND: "_NFOUND,! +"DATA",811.8,185,100,88,0) + . W "TEST: "_TEST(I),! +"DATA",811.8,185,100,89,0) + . W "DATE: "_DATE(I),! +"DATA",811.8,185,100,90,0) + . W "TEXT: "_TEXT(I),! +"DATA",811.8,185,100,91,0) + . W "DATA VALUE: "_DATA(I,"VALUE"),! +"DATA",811.8,185,100,92,0) + . W "DATA BMI%ILE: "_DATA(I,"BMI%ILE"),! +"DATA",811.8,185,100,93,0) + . W "DATA BMI: "_DATA(I,"BMI"),! +"DATA",811.8,185,100,94,0) + . W ! +"DATA",811.8,185,100,95,0) + QUIT +"DATA",811.8,185,100,96,0) + ; +"DATA",811.8,185,100,97,0) + ; Private below as well. +"DATA",811.8,185,100,98,0) +TEST N DFN S DFN=0 F S DFN=$O(^DPT(DFN)) Q:'DFN D TPBMI(DFN) ; One liner test +"DATA",811.8,185,100,99,0) + QUIT +"DATA",811.8,185,100,100,0) +]]> +"DATA",811.8,185,100,101,0) + +"DATA",811.8,185,100,102,0) + +"DATA",811.8,185,100,103,0) + +"DATA",811.8,185,100,104,0) +PXRMPDEM +"DATA",811.8,185,100,105,0) +3829238928 +"DATA",811.8,185,100,106,0) + +"DATA",811.8,185,100,107,0) +0 S VALUE("DECEASED")=1,TEXT="Patient is deceased" +"DATA",811.8,185,100,119,0) + I '$D(PXRMPDEM) D +"DATA",811.8,185,100,120,0) + . N DOB,DOD +"DATA",811.8,185,100,121,0) + .;DBIA #10035 +"DATA",811.8,185,100,122,0) + . S DOB=$P(^DPT(DFN,0),U,3) +"DATA",811.8,185,100,123,0) + . S DOD=$P($G(^DPT(DFN,.35)),U,1) +"DATA",811.8,185,100,124,0) + . S VALUE=$$AGE^PXRMAGE(DOB,DOD,$$NOW^PXRMDATE) +"DATA",811.8,185,100,125,0) + . I +DOD=0 S VALUE("DECEASED")=0 Q +"DATA",811.8,185,100,126,0) + . I +DOD>0 S VALUE("DECEASED")=1,TEXT="Patient is deceased" +"DATA",811.8,185,100,127,0) + Q +"DATA",811.8,185,100,128,0) + ; +"DATA",811.8,185,100,129,0) + ;====================================================== +"DATA",811.8,185,100,130,0) +DFA(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;This computed finding +"DATA",811.8,185,100,131,0) + ;returns the date the patient turns a specified age. Based on +"DATA",811.8,185,100,132,0) + ;work by AJM: 9/16/08. +"DATA",811.8,185,100,133,0) + ;DBIA #10035 DATE OF BIRTH is a required field. +"DATA",811.8,185,100,134,0) + I TEST="" S NFOUND=0,DATE(1)=$$NOW^PXRMDATE,TEST(1)=0 Q +"DATA",811.8,185,100,135,0) + S TEST=$P(TEST,".",1) +"DATA",811.8,185,100,136,0) + N DOB,YOB +"DATA",811.8,185,100,137,0) + S NFOUND=1 +"DATA",811.8,185,100,138,0) + S DOB=$S($D(PXRMDOB):PXRMDOB,1:$P(^DPT(DFN,0),U,3)) +"DATA",811.8,185,100,139,0) + S YOB=$E(DOB,1,3) +"DATA",811.8,185,100,140,0) + S (DATE(1),VALUE(1,"VALUE"))=YOB+TEST_$E(DOB,4,7) +"DATA",811.8,185,100,141,0) + S TEST(1)=1 +"DATA",811.8,185,100,142,0) + S TEXT(1)="Patient "_$S(DATE(1)>$$NOW^PXRMDATE:"will be ",1:"was ")_+TEST_" years old on "_$$FMTE^XLFDT(DATE(1),"5Z") +"DATA",811.8,185,100,143,0) + Q +"DATA",811.8,185,100,144,0) + ; +"DATA",811.8,185,100,145,0) + ;====================================================== +"DATA",811.8,185,100,146,0) +DOB(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's +"DATA",811.8,185,100,147,0) + ;date of birth. +"DATA",811.8,185,100,148,0) + I $D(PXRMPDEM) S VALUE=PXRMPDEM("DOB") +"DATA",811.8,185,100,149,0) + ;DBIA #10035 DATE OF BIRTH is a required field. +"DATA",811.8,185,100,150,0) + I '$D(PXRMPDEM) S VALUE=$P(^DPT(DFN,0),U,3) +"DATA",811.8,185,100,151,0) + S TEST=$S(VALUE<$$NOW^PXRMDATE:1,1:0) +"DATA",811.8,185,100,152,0) + I TEST S DATE=VALUE,TEXT=$$EDATE^PXRMDATE(VALUE) +"DATA",811.8,185,100,153,0) + Q +"DATA",811.8,185,100,154,0) + ; +"DATA",811.8,185,100,155,0) + ;====================================================== +"DATA",811.8,185,100,156,0) +DOD(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's +"DATA",811.8,185,100,157,0) + ;date of death. +"DATA",811.8,185,100,158,0) + I $D(PXRMPDEM) S VALUE=+PXRMPDEM("DOD") +"DATA",811.8,185,100,159,0) + ;DBIA #10035 +"DATA",811.8,185,100,160,0) + I '$D(PXRMPDEM) S VALUE=+$P($G(^DPT(DFN,.35)),U,1) +"DATA",811.8,185,100,161,0) + S TEST=$S(VALUE=0:0,VALUE>$$NOW^PXRMDATE:0,1:1) +"DATA",811.8,185,100,162,0) + I TEST S DATE=VALUE,TEXT=$$EDATE^PXRMDATE(VALUE) +"DATA",811.8,185,100,163,0) + Q +"DATA",811.8,185,100,164,0) + ; +"DATA",811.8,185,100,165,0) + ;====================================================== +"DATA",811.8,185,100,166,0) +EMPLOYE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;This computed finding +"DATA",811.8,185,100,167,0) + ;will return true if the patient is an employee. +"DATA",811.8,185,100,168,0) + ;DBIA #10035, #10060 +"DATA",811.8,185,100,169,0) + N IEN,PAID,SSN +"DATA",811.8,185,100,170,0) + S NFOUND=1,DATE(1)=$$NOW^PXRMDATE,TEST(1)=0 +"DATA",811.8,185,100,171,0) + S SSN=$P($G(^DPT(DFN,0)),U,9) +"DATA",811.8,185,100,172,0) + I SSN="" Q +"DATA",811.8,185,100,173,0) + ;Use SSN to make the link. +"DATA",811.8,185,100,174,0) + S IEN=+$O(^VA(200,"SSN",SSN,"")) +"DATA",811.8,185,100,175,0) + I IEN=0 Q +"DATA",811.8,185,100,176,0) + S PAID=+$P($G(^VA(200,IEN,450)),U,1) +"DATA",811.8,185,100,177,0) + I PAID=0 Q +"DATA",811.8,185,100,178,0) + ;Check for a termination date. +"DATA",811.8,185,100,179,0) + I +$P(^VA(200,IEN,0),U,11)0,DDATE'EDT S NFOUND=NFOUND+1,DDATEL(DDATE,NFOUND)=^DGPT(IEN,0) +"DATA",811.8,185,100,211,0) + I NFOUND=0 Q +"DATA",811.8,185,100,212,0) + S SDIR=$S(NGET<0:1,1:-1) +"DATA",811.8,185,100,213,0) + S NGET=$S(NGET<0:-NGET,1:NGET) +"DATA",811.8,185,100,214,0) + S (DONE,NF)=0 +"DATA",811.8,185,100,215,0) + S DDATE="" +"DATA",811.8,185,100,216,0) + F IND=1:1:NFOUND Q:DONE D +"DATA",811.8,185,100,217,0) + . S DDATE=$O(DDATEL(DDATE),SDIR) +"DATA",811.8,185,100,218,0) + . I DDATE="" S DONE=1 Q +"DATA",811.8,185,100,219,0) + . S IEN=0 +"DATA",811.8,185,100,220,0) + . F S IEN=$O(DDATEL(DDATE,IEN)) Q:(IEN="")!(DONE) D +"DATA",811.8,185,100,221,0) + .. S FEEBASIS=$P(DDATEL(DDATE,IEN),U,4) +"DATA",811.8,185,100,222,0) + .. I FEEBASIS=1,'INFEE Q +"DATA",811.8,185,100,223,0) + ..;Type 1 is PTF, Type 2 is Census +"DATA",811.8,185,100,224,0) + .. S TYPE=$P(DDATEL(DDATE,IEN),U,11) +"DATA",811.8,185,100,225,0) + .. I TYPE=2,'INCEN Q +"DATA",811.8,185,100,226,0) + .. S NF=NF+1 +"DATA",811.8,185,100,227,0) + .. S TEST(NF)=1,(DATE(NF),VALUE(NF))=DDATE +"DATA",811.8,185,100,228,0) + .. I FEEBASIS=1 S TEXT(NF)="Fee basis" +"DATA",811.8,185,100,229,0) + .. I TYPE=2 S TEXT(NF)="Census" +"DATA",811.8,185,100,230,0) + .. I NF=NGET S DONE=1 +"DATA",811.8,185,100,231,0) + S NFOUND=NF +"DATA",811.8,185,100,232,0) + Q +"DATA",811.8,185,100,233,0) + ; +"DATA",811.8,185,100,234,0) + ;====================================================== +"DATA",811.8,185,100,235,0) +INP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding for +"DATA",811.8,185,100,236,0) + ;determining if a patient is an inpatient on the evaluation date. +"DATA",811.8,185,100,237,0) + N VAIN,VAINDT +"DATA",811.8,185,100,238,0) + S NFOUND=1 +"DATA",811.8,185,100,239,0) + S (DATE(1),VAINDT)=$$NOW^PXRMDATE +"DATA",811.8,185,100,240,0) + D INP^VADPT +"DATA",811.8,185,100,241,0) + I VAIN(1)="" S TEST(1)=0 D KVA^VADPT Q +"DATA",811.8,185,100,242,0) + S TEST(1)=1 +"DATA",811.8,185,100,243,0) + S VALUE(1,"PRIMARY PROVIDER")=$P(VAIN(2),U,2) +"DATA",811.8,185,100,244,0) + S VALUE(1,"TREATING SPECIALTY")=$P(VAIN(3),U,2) +"DATA",811.8,185,100,245,0) + S VALUE(1,"WARD LOCATION")=$P(VAIN(4),U,2) +"DATA",811.8,185,100,246,0) + S VALUE(1,"ADMISSION DATE/TIME")=$P(VAIN(7),U,1) +"DATA",811.8,185,100,247,0) + S VALUE(1,"ADMISSION TYPE")=$P(VAIN(8),U,2) +"DATA",811.8,185,100,248,0) + S VALUE(1,"ATTENDING PHYSICIAN")=$P(VAIN(11),U,2) +"DATA",811.8,185,100,249,0) + S TEXT(1)="Patient is an inpatient; admission date/time: "_$$FMTE^XLFDT(VALUE(1,"ADMISSION DATE/TIME"),"5Z") +"DATA",811.8,185,100,250,0) + D KVA^VADPT +"DATA",811.8,185,100,251,0) + Q +"DATA",811.8,185,100,252,0) + ; +"DATA",811.8,185,100,253,0) + ;====================================================== +"DATA",811.8,185,100,254,0) +NEWRACE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding +"DATA",811.8,185,100,255,0) + ;for returning a patient's multi-valued race. +"DATA",811.8,185,100,256,0) + N CNT,CNT1,IND,VADM +"DATA",811.8,185,100,257,0) + D DEM^VADPT +"DATA",811.8,185,100,258,0) + I $D(VADM(12))'=11 S NFOUND=0 D KVA^VADPT Q +"DATA",811.8,185,100,259,0) + S NGET=$S(NGET<0:-NGET,1:NGET) +"DATA",811.8,185,100,260,0) + S (CNT,CNT1)=0 +"DATA",811.8,185,100,261,0) + F S CNT=$O(VADM(12,CNT)) Q:(CNT="")!(CNT1=NGET) D +"DATA",811.8,185,100,262,0) + . S CNT1=CNT1+1,TEST(CNT1)=1,DATE(CNT1)=$$NOW^PXRMDATE +"DATA",811.8,185,100,263,0) + . S TEXT(CNT1)="",VALUE(CNT1,"VALUE")=$P($G(VADM(12,CNT)),U,2) +"DATA",811.8,185,100,264,0) + F CNT=1:1:CNT1 F IND=1:1:CNT1 S VALUE(CNT,"RACE",IND)=VALUE(IND,"VALUE") +"DATA",811.8,185,100,265,0) + S NFOUND=CNT1 +"DATA",811.8,185,100,266,0) + D KVA^VADPT +"DATA",811.8,185,100,267,0) + Q +"DATA",811.8,185,100,268,0) + ; +"DATA",811.8,185,100,269,0) + ;====================================================== +"DATA",811.8,185,100,270,0) +PATTYPE(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding to return the patient +"DATA",811.8,185,100,271,0) + ;type +"DATA",811.8,185,100,272,0) + N VAEL +"DATA",811.8,185,100,273,0) + S VALUE="" +"DATA",811.8,185,100,274,0) + S DATE=$$NOW^PXRMDATE +"DATA",811.8,185,100,275,0) + D ELIG^VADPT +"DATA",811.8,185,100,276,0) + S TEST=$S($G(VAEL(6))'="":1,1:0) +"DATA",811.8,185,100,277,0) + S VALUE=$P(VAEL(6),U,2) +"DATA",811.8,185,100,278,0) + D KVA^VADPT +"DATA",811.8,185,100,279,0) + Q +"DATA",811.8,185,100,280,0) + ;====================================================== +"DATA",811.8,185,100,281,0) +RACE(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for checking a patient's race. +"DATA",811.8,185,100,282,0) + N RACE +"DATA",811.8,185,100,283,0) + S DATE=$$NOW^PXRMDATE +"DATA",811.8,185,100,284,0) + ;DBIA #10035 +"DATA",811.8,185,100,285,0) + S RACE=$P($G(^DPT(DFN,0)),U,6) +"DATA",811.8,185,100,286,0) + I RACE="" S TEST=0,VALUE="" Q +"DATA",811.8,185,100,287,0) + Q +"DATA",811.8,185,100,288,0) + ; +"DATA",811.8,185,100,289,0) + ;====================================================== +"DATA",811.8,185,100,290,0) +SEX(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for returning a patient's +"DATA",811.8,185,100,291,0) + ;sex. +"DATA",811.8,185,100,292,0) + S DATE=$$NOW^PXRMDATE,TEST=1 +"DATA",811.8,185,100,293,0) + I $D(PXRMPDEM) S VALUE=PXRMPDEM("SEX") Q +"DATA",811.8,185,100,294,0) + ;DBIA #10035 SEX is a required field. +"DATA",811.8,185,100,295,0) + I '$D(PXRMPDEM) S VALUE=$P(^DPT(DFN,0),U,2) +"DATA",811.8,185,100,296,0) + Q +"DATA",811.8,185,100,297,0) + ; +"DATA",811.8,185,100,298,0) + ;====================================================== +"DATA",811.8,185,100,299,0) +WASINP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding for +"DATA",811.8,185,100,300,0) + ;determining if a patient was an inpatient in the period defined +"DATA",811.8,185,100,301,0) + ;by BDT and EDT. +"DATA",811.8,185,100,302,0) + ;Access to DGPM covered by DBIA #1378 +"DATA",811.8,185,100,303,0) + N ADATE,ADM,ADML,DDATE,IEN,INDT,FDATE,LOS,NOCC,SDIR,TEMP +"DATA",811.8,185,100,304,0) + S FDATE=$S(TEST="DISCH":"DISCH",1:"ADM") +"DATA",811.8,185,100,305,0) + S SDIR=$S(NGET<0:1,1:-1) +"DATA",811.8,185,100,306,0) + S NOCC=$S(NGET<0:-NGET,1:NGET) +"DATA",811.8,185,100,307,0) + S NFOUND=0 +"DATA",811.8,185,100,308,0) + ;Use the "ATID3" index to build a last of past admissions and +"DATA",811.8,185,100,309,0) + ;discharges. +"DATA",811.8,185,100,310,0) + S INDT="" +"DATA",811.8,185,100,311,0) + F S INDT=$O(^DGPM("ATID3",DFN,INDT)) Q:INDT="" D +"DATA",811.8,185,100,312,0) + . S IEN=$O(^DGPM("ATID3",DFN,INDT,"")) +"DATA",811.8,185,100,313,0) + . S TEMP=^DGPM(IEN,0) +"DATA",811.8,185,100,314,0) + . S DDATE=$P(TEMP,U,1) +"DATA",811.8,185,100,315,0) + . S ADM=$P(TEMP,U,14) +"DATA",811.8,185,100,316,0) + . S ADATE=$P(^DGPM(ADM,0),U,1) +"DATA",811.8,185,100,317,0) + . I $$OVERLAP^PXRMINDX(ADATE,DDATE,BDT,EDT)'="O" Q +"DATA",811.8,185,100,318,0) + . S ADML(ADATE)=DDATE +"DATA",811.8,185,100,319,0) + ;Check for the last admission and add it if it is not on the list. +"DATA",811.8,185,100,320,0) + S INDT=$O(^DGPM("ATID1",DFN,"")) +"DATA",811.8,185,100,321,0) + I INDT'="" D +"DATA",811.8,185,100,322,0) + . S IEN=$O(^DGPM("ATID1",DFN,INDT,"")) +"DATA",811.8,185,100,323,0) + . S TEMP=^DGPM(IEN,0) +"DATA",811.8,185,100,324,0) + . S ADATE=$P(TEMP,U,1) +"DATA",811.8,185,100,325,0) + . I $D(ADML(ADATE)) Q +"DATA",811.8,185,100,326,0) + . S IEN=$P(TEMP,U,17) +"DATA",811.8,185,100,327,0) + .;Since this is the last admission there may not be a discharge. +"DATA",811.8,185,100,328,0) + . S DDATE=$S(IEN="":$$NOW^PXRMDATE,1:$P(^DGPM(IEN,0),U,1)) +"DATA",811.8,185,100,329,0) + . I $$OVERLAP^PXRMINDX(ADATE,DDATE,BDT,EDT)="O" S ADML(ADATE)=DDATE +"DATA",811.8,185,100,330,0) + ;Sort the list. +"DATA",811.8,185,100,331,0) + S ADATE="" +"DATA",811.8,185,100,332,0) + F S ADATE=$O(ADML(ADATE),SDIR) Q:(NFOUND=NOCC)!(ADATE="") D +"DATA",811.8,185,100,333,0) + . S NFOUND=NFOUND+1 +"DATA",811.8,185,100,334,0) + . S TEST(NFOUND)=1 +"DATA",811.8,185,100,335,0) + . S DDATE=ADML(ADATE) +"DATA",811.8,185,100,336,0) + . I DDATE="" S DDATE=PXRMDATE +"DATA",811.8,185,100,337,0) + . S DATE(NFOUND)=$S(FDATE="DISCH":DDATE,1:ADATE) +"DATA",811.8,185,100,338,0) + . S LOS=$$FMDIFF^XLFDT(DDATE,ADATE) +"DATA",811.8,185,100,339,0) + . S TEMP="Inpatient from: "_$$FMTE^XLFDT(ADATE,"5Z")_" to " +"DATA",811.8,185,100,340,0) + . S TEMP=TEMP_$S(DDATE=PXRMDATE:"now",1:$$FMTE^XLFDT(DDATE,"5Z")) +"DATA",811.8,185,100,341,0) + . S TEMP=TEMP_"; Length of stay "_LOS_" days." +"DATA",811.8,185,100,342,0) + . S TEXT(NFOUND)=TEMP +"DATA",811.8,185,100,343,0) + . S VALUE(NFOUND,"ADMISSION DATE")=ADATE +"DATA",811.8,185,100,344,0) + . S VALUE(NFOUND,"DISCHARGE DATE")=DDATE +"DATA",811.8,185,100,345,0) + . S VALUE(NFOUND,"LENGTH OF STAY")=LOS +"DATA",811.8,185,100,346,0) + Q +"DATA",811.8,185,100,347,0) + ; +"DATA",811.8,185,100,348,0) +]]> +"DATA",811.8,185,100,349,0) + +"DATA",811.8,185,100,350,0) + +"DATA",811.8,185,100,351,0) + +"DATA",811.8,185,100,352,0) +GMRV VITAL TYPE +"DATA",811.8,185,100,353,0) +120.51 +"DATA",811.8,185,100,354,0) +WEIGHT +"DATA",811.8,185,100,355,0) +9 +"DATA",811.8,185,100,356,0) +3151076501 +"DATA",811.8,185,100,357,0) +NO +"DATA",811.8,185,100,358,0) + +"DATA",811.8,185,100,359,0) + +"DATA",811.8,185,100,362,0) + +"DATA",811.8,185,100,363,0) + +"DATA",811.8,185,100,364,0) + +"DATA",811.8,185,100,365,0) +GMRV VITAL TYPE +"DATA",811.8,185,100,366,0) +120.51 +"DATA",811.8,185,100,367,0) +HEIGHT +"DATA",811.8,185,100,368,0) +8 +"DATA",811.8,185,100,369,0) +1230056667 +"DATA",811.8,185,100,370,0) +NO +"DATA",811.8,185,100,371,0) + +"DATA",811.8,185,100,372,0) + +"DATA",811.8,185,100,375,0) + +"DATA",811.8,185,100,376,0) + +"DATA",811.8,185,100,377,0) + +"DATA",811.8,185,100,378,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,185,100,379,0) +811.4 +"DATA",811.8,185,100,380,0) +VW-BMI-PERCENTILE +"DATA",811.8,185,100,381,0) +99 +"DATA",811.8,185,100,382,0) +1440960318 +"DATA",811.8,185,100,383,0) +NO +"DATA",811.8,185,100,384,0) + +"DATA",811.8,185,100,385,0) +25"; +"DATA",811.8,185,100,402,0) + 3) This finding will be evaluated to true for patients with a BMI +"DATA",811.8,185,100,403,0) +percentile that is greater than 25. +"DATA",811.8,185,100,404,0) + +"DATA",811.8,185,100,405,0) +This is a multi-occurrence computed finding. +"DATA",811.8,185,100,406,0) +811.4;+99,;5~MULTIPLE +"DATA",811.8,185,100,407,0) +811.4;+99,;100~LOCAL +"DATA",811.8,185,100,408,0) +811.42;+100,+99,;.01~07/31/2012@17:49:43 +"DATA",811.8,185,100,409,0) +811.42;+100,+99,;2~WP-start~1 +"DATA",811.8,185,100,410,0) +Exchange Stub +"DATA",811.8,185,100,411,0) +]]> +"DATA",811.8,185,100,412,0) + +"DATA",811.8,185,100,413,0) + +"DATA",811.8,185,100,414,0) + +"DATA",811.8,185,100,417,0) + +"DATA",811.8,185,100,418,0) + +"DATA",811.8,185,100,419,0) + +"DATA",811.8,185,100,420,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,185,100,421,0) +811.4 +"DATA",811.8,185,100,422,0) +VA-AGE +"DATA",811.8,185,100,423,0) +24 +"DATA",811.8,185,100,424,0) +697429304 +"DATA",811.8,185,100,425,0) +NO +"DATA",811.8,185,100,426,0) + +"DATA",811.8,185,100,427,0) +50. +"DATA",811.8,185,100,436,0) + +"DATA",811.8,185,100,437,0) +If the patient is deceased the age will be their age on the date of +"DATA",811.8,185,100,438,0) +death and V("DECEASED")=1. +"DATA",811.8,185,100,439,0) +811.4;+24,;5~SINGLE +"DATA",811.8,185,100,440,0) +811.4;+24,;100~NATIONAL +"DATA",811.8,185,100,441,0) +811.42;+25,+24,;.01~07/31/2012@17:49:43 +"DATA",811.8,185,100,442,0) +811.42;+25,+24,;2~WP-start~1 +"DATA",811.8,185,100,443,0) +Exchange Stub +"DATA",811.8,185,100,444,0) +]]> +"DATA",811.8,185,100,445,0) + +"DATA",811.8,185,100,446,0) + +"DATA",811.8,185,100,447,0) + +"DATA",811.8,185,100,450,0) + +"DATA",811.8,185,100,451,0) + +"DATA",811.8,185,100,452,0) + +"DATA",811.8,185,100,453,0) +REMINDER TAXONOMY +"DATA",811.8,185,100,454,0) +811.2 +"DATA",811.8,185,100,455,0) +MU NQF0024 PHYSICAL +"DATA",811.8,185,100,456,0) +94 +"DATA",811.8,185,100,457,0) +3603119878 +"DATA",811.8,185,100,458,0) +NO +"DATA",811.8,185,100,459,0) + +"DATA",811.8,185,100,460,0) + +"DATA",811.8,185,100,472,0) + +"DATA",811.8,185,100,473,0) + +"DATA",811.8,185,100,474,0) + +"DATA",811.8,185,100,479,0) + +"DATA",811.8,185,100,480,0) + +"DATA",811.8,185,100,481,0) + +"DATA",811.8,185,100,482,0) +REMINDER TAXONOMY +"DATA",811.8,185,100,483,0) +811.2 +"DATA",811.8,185,100,484,0) +MU NQF0024 NUTRITION +"DATA",811.8,185,100,485,0) +93 +"DATA",811.8,185,100,486,0) +2397086677 +"DATA",811.8,185,100,487,0) +NO +"DATA",811.8,185,100,488,0) + +"DATA",811.8,185,100,489,0) + +"DATA",811.8,185,100,513,0) + +"DATA",811.8,185,100,514,0) + +"DATA",811.8,185,100,515,0) + +"DATA",811.8,185,100,524,0) + +"DATA",811.8,185,100,525,0) + +"DATA",811.8,185,100,526,0) + +"DATA",811.8,185,100,527,0) +REMINDER TAXONOMY +"DATA",811.8,185,100,528,0) +811.2 +"DATA",811.8,185,100,529,0) +MU NQF0024 BMI 2-17 ENC +"DATA",811.8,185,100,530,0) +92 +"DATA",811.8,185,100,531,0) +2269080646 +"DATA",811.8,185,100,532,0) +NO +"DATA",811.8,185,100,533,0) + +"DATA",811.8,185,100,534,0) + +"DATA",811.8,185,100,590,0) + +"DATA",811.8,185,100,591,0) + +"DATA",811.8,185,100,592,0) + +"DATA",811.8,185,100,608,0) + +"DATA",811.8,185,100,609,0) + +"DATA",811.8,185,100,610,0) + +"DATA",811.8,185,100,611,0) +REMINDER TERM +"DATA",811.8,185,100,612,0) +811.5 +"DATA",811.8,185,100,613,0) +MU NQF0024 BMI PERCENTILE +"DATA",811.8,185,100,614,0) +557 +"DATA",811.8,185,100,615,0) +3836857714 +"DATA",811.8,185,100,616,0) +NO +"DATA",811.8,185,100,617,0) + +"DATA",811.8,185,100,618,0) + +"DATA",811.8,185,100,626,0) + +"DATA",811.8,185,100,627,0) + +"DATA",811.8,185,100,628,0) + +"DATA",811.8,185,100,632,0) + +"DATA",811.8,185,100,633,0) + +"DATA",811.8,185,100,634,0) + +"DATA",811.8,185,100,635,0) +REMINDER TERM +"DATA",811.8,185,100,636,0) +811.5 +"DATA",811.8,185,100,637,0) +MU NQF0024 AGE 2-10Y CF +"DATA",811.8,185,100,638,0) +614 +"DATA",811.8,185,100,639,0) +3325321741 +"DATA",811.8,185,100,640,0) +NO +"DATA",811.8,185,100,641,0) + +"DATA",811.8,185,100,642,0) +1 +"DATA",811.8,185,100,647,0) +811.52;+615,+614,;22~I V>1 +"DATA",811.8,185,100,648,0) +811.52;+616,+614,;.01~CF.VA-AGE +"DATA",811.8,185,100,649,0) +811.52;+616,+614,;14~I V<11 +"DATA",811.8,185,100,650,0) +811.52;+616,+614,;22~I V<11 +"DATA",811.8,185,100,651,0) +811.53;+617,+614,;.01~07/31/2012@17:49:45 +"DATA",811.8,185,100,652,0) +811.53;+617,+614,;2~WP-start~1 +"DATA",811.8,185,100,653,0) +Exchange Stub +"DATA",811.8,185,100,654,0) +]]> +"DATA",811.8,185,100,655,0) + +"DATA",811.8,185,100,656,0) + +"DATA",811.8,185,100,657,0) + +"DATA",811.8,185,100,662,0) + +"DATA",811.8,185,100,663,0) + +"DATA",811.8,185,100,664,0) + +"DATA",811.8,185,100,665,0) +REMINDER TERM +"DATA",811.8,185,100,666,0) +811.5 +"DATA",811.8,185,100,667,0) +MU NQF0024 AGE 11-17 CF +"DATA",811.8,185,100,668,0) +615 +"DATA",811.8,185,100,669,0) +3216234137 +"DATA",811.8,185,100,670,0) +NO +"DATA",811.8,185,100,671,0) + +"DATA",811.8,185,100,672,0) +10 +"DATA",811.8,185,100,677,0) +811.52;+616,+615,;22~I V>10 +"DATA",811.8,185,100,678,0) +811.52;+617,+615,;.01~CF.VA-AGE +"DATA",811.8,185,100,679,0) +811.52;+617,+615,;14~I V<18 +"DATA",811.8,185,100,680,0) +811.52;+617,+615,;22~I V<18 +"DATA",811.8,185,100,681,0) +811.53;+618,+615,;.01~07/31/2012@17:49:45 +"DATA",811.8,185,100,682,0) +811.53;+618,+615,;2~WP-start~1 +"DATA",811.8,185,100,683,0) +Exchange Stub +"DATA",811.8,185,100,684,0) +]]> +"DATA",811.8,185,100,685,0) + +"DATA",811.8,185,100,686,0) + +"DATA",811.8,185,100,687,0) + +"DATA",811.8,185,100,692,0) + +"DATA",811.8,185,100,693,0) + +"DATA",811.8,185,100,694,0) + +"DATA",811.8,185,100,695,0) +REMINDER DEFINITION +"DATA",811.8,185,100,696,0) +811.9 +"DATA",811.8,185,100,697,0) +MU NQF0024 BMI 2-17 YRS NUMER LIST +"DATA",811.8,185,100,698,0) +147 +"DATA",811.8,185,100,699,0) +513139047 +"DATA",811.8,185,100,700,0) +NO +"DATA",811.8,185,100,701,0) + +"DATA",811.8,185,100,702,0) + +"DATA",811.8,185,100,775,0) + +"DATA",811.8,185,100,776,0) + +"DATA",811.8,185,100,777,0) + +"DATA",811.8,185,100,794,0) + +"DATA",811.8,185,100,795,0) + +"DATA",811.8,185,100,796,0) + +"DATA",811.8,185,100,797,0) +REMINDER DEFINITION +"DATA",811.8,185,100,798,0) +811.9 +"DATA",811.8,185,100,799,0) +MU NQF0024 DEM LIST +"DATA",811.8,185,100,800,0) +174 +"DATA",811.8,185,100,801,0) +2973718776 +"DATA",811.8,185,100,802,0) +NO +"DATA",811.8,185,100,803,0) + +"DATA",811.8,185,100,804,0) + +"DATA",811.8,185,100,835,0) + +"DATA",811.8,185,100,836,0) + +"DATA",811.8,185,100,837,0) + +"DATA",811.8,185,100,842,0) + +"DATA",811.8,185,100,843,0) + +"DATA",811.8,185,100,844,0) + +"DATA",811.8,185,100,845,0) +REMINDER DEFINITION +"DATA",811.8,185,100,846,0) +811.9 +"DATA",811.8,185,100,847,0) +MU NQF0024 BMI 2-10Y DENOM LIST +"DATA",811.8,185,100,848,0) +178 +"DATA",811.8,185,100,849,0) +1607351926 +"DATA",811.8,185,100,850,0) +NO +"DATA",811.8,185,100,851,0) + +"DATA",811.8,185,100,852,0) + +"DATA",811.8,185,100,883,0) + +"DATA",811.8,185,100,884,0) + +"DATA",811.8,185,100,885,0) + +"DATA",811.8,185,100,890,0) + +"DATA",811.8,185,100,891,0) + +"DATA",811.8,185,100,892,0) + +"DATA",811.8,185,100,893,0) +REMINDER DEFINITION +"DATA",811.8,185,100,894,0) +811.9 +"DATA",811.8,185,100,895,0) +MU NQF0024 BMI 11-17Y DENOM LIST +"DATA",811.8,185,100,896,0) +180 +"DATA",811.8,185,100,897,0) +3614933919 +"DATA",811.8,185,100,898,0) +NO +"DATA",811.8,185,100,899,0) + +"DATA",811.8,185,100,900,0) + +"DATA",811.8,185,100,931,0) + +"DATA",811.8,185,100,932,0) + +"DATA",811.8,185,100,933,0) + +"DATA",811.8,185,100,938,0) + +"DATA",811.8,185,100,939,0) + +"DATA",811.8,185,100,940,0) + +"DATA",811.8,185,100,941,0) +REMINDER LIST RULE +"DATA",811.8,185,100,942,0) +810.4 +"DATA",811.8,185,100,943,0) +MU NQF0024 BMI PERCENTILE FR +"DATA",811.8,185,100,944,0) +163 +"DATA",811.8,185,100,945,0) +2662505972 +"DATA",811.8,185,100,946,0) +NO +"DATA",811.8,185,100,947,0) + +"DATA",811.8,185,100,948,0) + +"DATA",811.8,185,100,957,0) + +"DATA",811.8,185,100,958,0) + +"DATA",811.8,185,100,959,0) + +"DATA",811.8,185,100,962,0) + +"DATA",811.8,185,100,963,0) + +"DATA",811.8,185,100,964,0) + +"DATA",811.8,185,100,965,0) +REMINDER LIST RULE +"DATA",811.8,185,100,966,0) +810.4 +"DATA",811.8,185,100,967,0) +MU NQF0024 AGE 2-10 YEARS FR +"DATA",811.8,185,100,968,0) +161 +"DATA",811.8,185,100,969,0) +935747946 +"DATA",811.8,185,100,970,0) +NO +"DATA",811.8,185,100,971,0) + +"DATA",811.8,185,100,972,0) + +"DATA",811.8,185,100,981,0) + +"DATA",811.8,185,100,982,0) + +"DATA",811.8,185,100,983,0) + +"DATA",811.8,185,100,986,0) + +"DATA",811.8,185,100,987,0) + +"DATA",811.8,185,100,988,0) + +"DATA",811.8,185,100,989,0) +REMINDER LIST RULE +"DATA",811.8,185,100,990,0) +810.4 +"DATA",811.8,185,100,991,0) +MU NQF0024 BMI 2-17 YR NUM RR +"DATA",811.8,185,100,992,0) +77 +"DATA",811.8,185,100,993,0) +3961334217 +"DATA",811.8,185,100,994,0) +NO +"DATA",811.8,185,100,995,0) + +"DATA",811.8,185,100,996,0) + +"DATA",811.8,185,100,1005,0) + +"DATA",811.8,185,100,1006,0) + +"DATA",811.8,185,100,1007,0) + +"DATA",811.8,185,100,1010,0) + +"DATA",811.8,185,100,1011,0) + +"DATA",811.8,185,100,1012,0) + +"DATA",811.8,185,100,1013,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1014,0) +810.4 +"DATA",811.8,185,100,1015,0) +MU NQF0024 BMI PERCENTILE 2-10Y RS +"DATA",811.8,185,100,1016,0) +164 +"DATA",811.8,185,100,1017,0) +3870950224 +"DATA",811.8,185,100,1018,0) +YES +"DATA",811.8,185,100,1019,0) + +"DATA",811.8,185,100,1020,0) + +"DATA",811.8,185,100,1037,0) + +"DATA",811.8,185,100,1038,0) + +"DATA",811.8,185,100,1039,0) + +"DATA",811.8,185,100,1045,0) + +"DATA",811.8,185,100,1046,0) + +"DATA",811.8,185,100,1047,0) + +"DATA",811.8,185,100,1048,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1049,0) +810.4 +"DATA",811.8,185,100,1050,0) +MU NQF0024 AGE 11-17 YRS FR +"DATA",811.8,185,100,1051,0) +162 +"DATA",811.8,185,100,1052,0) +1569720012 +"DATA",811.8,185,100,1053,0) +NO +"DATA",811.8,185,100,1054,0) + +"DATA",811.8,185,100,1055,0) + +"DATA",811.8,185,100,1064,0) + +"DATA",811.8,185,100,1065,0) + +"DATA",811.8,185,100,1066,0) + +"DATA",811.8,185,100,1069,0) + +"DATA",811.8,185,100,1070,0) + +"DATA",811.8,185,100,1071,0) + +"DATA",811.8,185,100,1072,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1073,0) +810.4 +"DATA",811.8,185,100,1074,0) +MU NQF0024 BMI PERCENTILE 11-17Y RS +"DATA",811.8,185,100,1075,0) +165 +"DATA",811.8,185,100,1076,0) +2293356593 +"DATA",811.8,185,100,1077,0) +YES +"DATA",811.8,185,100,1078,0) + +"DATA",811.8,185,100,1079,0) + +"DATA",811.8,185,100,1096,0) + +"DATA",811.8,185,100,1097,0) + +"DATA",811.8,185,100,1098,0) + +"DATA",811.8,185,100,1104,0) + +"DATA",811.8,185,100,1105,0) + +"DATA",811.8,185,100,1106,0) + +"DATA",811.8,185,100,1107,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1108,0) +810.4 +"DATA",811.8,185,100,1109,0) +MU NQF0024 BMI 2-17YRS RR +"DATA",811.8,185,100,1110,0) +75 +"DATA",811.8,185,100,1111,0) +735094804 +"DATA",811.8,185,100,1112,0) +NO +"DATA",811.8,185,100,1113,0) + +"DATA",811.8,185,100,1114,0) + +"DATA",811.8,185,100,1123,0) + +"DATA",811.8,185,100,1124,0) + +"DATA",811.8,185,100,1125,0) + +"DATA",811.8,185,100,1128,0) + +"DATA",811.8,185,100,1129,0) + +"DATA",811.8,185,100,1130,0) + +"DATA",811.8,185,100,1131,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1132,0) +810.4 +"DATA",811.8,185,100,1133,0) +MU NQF0024 BMI 2-17YRS DEM RS +"DATA",811.8,185,100,1134,0) +76 +"DATA",811.8,185,100,1135,0) +1395388539 +"DATA",811.8,185,100,1136,0) +YES +"DATA",811.8,185,100,1137,0) + +"DATA",811.8,185,100,1138,0) + +"DATA",811.8,185,100,1149,0) + +"DATA",811.8,185,100,1150,0) + +"DATA",811.8,185,100,1151,0) + +"DATA",811.8,185,100,1155,0) + +"DATA",811.8,185,100,1156,0) + +"DATA",811.8,185,100,1157,0) + +"DATA",811.8,185,100,1158,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1159,0) +810.4 +"DATA",811.8,185,100,1160,0) +MU NQF0024 BMI 2-17YR NUM RS +"DATA",811.8,185,100,1161,0) +78 +"DATA",811.8,185,100,1162,0) +463614337 +"DATA",811.8,185,100,1163,0) +YES +"DATA",811.8,185,100,1164,0) + +"DATA",811.8,185,100,1165,0) + +"DATA",811.8,185,100,1182,0) + +"DATA",811.8,185,100,1183,0) + +"DATA",811.8,185,100,1184,0) + +"DATA",811.8,185,100,1190,0) + +"DATA",811.8,185,100,1191,0) + +"DATA",811.8,185,100,1192,0) + +"DATA",811.8,185,100,1193,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1194,0) +810.4 +"DATA",811.8,185,100,1195,0) +MU NQF0024 BMI 2-10Y DENOM RR +"DATA",811.8,185,100,1196,0) +196 +"DATA",811.8,185,100,1197,0) +3130960392 +"DATA",811.8,185,100,1198,0) +NO +"DATA",811.8,185,100,1199,0) + +"DATA",811.8,185,100,1200,0) + +"DATA",811.8,185,100,1209,0) + +"DATA",811.8,185,100,1210,0) + +"DATA",811.8,185,100,1211,0) + +"DATA",811.8,185,100,1214,0) + +"DATA",811.8,185,100,1215,0) + +"DATA",811.8,185,100,1216,0) + +"DATA",811.8,185,100,1217,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1218,0) +810.4 +"DATA",811.8,185,100,1219,0) +MU NQF0024 BMI 2-10Y DENOM RS +"DATA",811.8,185,100,1220,0) +199 +"DATA",811.8,185,100,1221,0) +1432334213 +"DATA",811.8,185,100,1222,0) +YES +"DATA",811.8,185,100,1223,0) + +"DATA",811.8,185,100,1224,0) + +"DATA",811.8,185,100,1235,0) + +"DATA",811.8,185,100,1236,0) + +"DATA",811.8,185,100,1237,0) + +"DATA",811.8,185,100,1241,0) + +"DATA",811.8,185,100,1242,0) + +"DATA",811.8,185,100,1243,0) + +"DATA",811.8,185,100,1244,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1245,0) +810.4 +"DATA",811.8,185,100,1246,0) +MU NQF0024 11-17Y DENOM RR +"DATA",811.8,185,100,1247,0) +197 +"DATA",811.8,185,100,1248,0) +412521237 +"DATA",811.8,185,100,1249,0) +NO +"DATA",811.8,185,100,1250,0) + +"DATA",811.8,185,100,1251,0) + +"DATA",811.8,185,100,1260,0) + +"DATA",811.8,185,100,1261,0) + +"DATA",811.8,185,100,1262,0) + +"DATA",811.8,185,100,1265,0) + +"DATA",811.8,185,100,1266,0) + +"DATA",811.8,185,100,1267,0) + +"DATA",811.8,185,100,1268,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1269,0) +810.4 +"DATA",811.8,185,100,1270,0) +MU NQF0024 BMI 11-17Y DENOM RS +"DATA",811.8,185,100,1271,0) +198 +"DATA",811.8,185,100,1272,0) +2948743680 +"DATA",811.8,185,100,1273,0) +YES +"DATA",811.8,185,100,1274,0) + +"DATA",811.8,185,100,1275,0) + +"DATA",811.8,185,100,1286,0) + +"DATA",811.8,185,100,1287,0) + +"DATA",811.8,185,100,1288,0) + +"DATA",811.8,185,100,1292,0) + +"DATA",811.8,185,100,1293,0) + +"DATA",811.8,185,100,1294,0) + +"DATA",811.8,185,100,1295,0) +29 +"DATA",811.8,185,100,1296,0) + +"DATA",811.8,185,100,1297,0) +24 +"DATA",811.8,185,100,1298,0) +99 +"DATA",811.8,185,100,1299,0) +29 +"DATA",811.8,185,100,1300,0) + +"DATA",811.8,185,100,1301,0) + +"DATA",811.8,185,100,1302,0) +103 +"DATA",811.8,185,100,1303,0) +347 +"DATA",811.8,185,100,1304,0) +108 +"DATA",811.8,185,100,1305,0) + +"DATA",811.8,185,100,1306,0) + +"DATA",811.8,185,100,1307,0) +360 +"DATA",811.8,185,100,1308,0) +360 +"DATA",811.8,185,100,1309,0) +351 +"DATA",811.8,185,100,1310,0) + +"DATA",811.8,185,100,1311,0) + +"DATA",811.8,185,100,1312,0) +373 +"DATA",811.8,185,100,1313,0) +373 +"DATA",811.8,185,100,1314,0) +364 +"DATA",811.8,185,100,1315,0) + +"DATA",811.8,185,100,1316,0) + +"DATA",811.8,185,100,1317,0) +410 +"DATA",811.8,185,100,1318,0) +386 +"DATA",811.8,185,100,1319,0) +377 +"DATA",811.8,185,100,1320,0) +415 +"DATA",811.8,185,100,1321,0) +415 +"DATA",811.8,185,100,1322,0) + +"DATA",811.8,185,100,1323,0) + +"DATA",811.8,185,100,1324,0) +443 +"DATA",811.8,185,100,1325,0) +428 +"DATA",811.8,185,100,1326,0) +419 +"DATA",811.8,185,100,1327,0) +448 +"DATA",811.8,185,100,1328,0) +448 +"DATA",811.8,185,100,1329,0) + +"DATA",811.8,185,100,1330,0) + +"DATA",811.8,185,100,1331,0) +470 +"DATA",811.8,185,100,1332,0) +461 +"DATA",811.8,185,100,1333,0) +452 +"DATA",811.8,185,100,1334,0) +477 +"DATA",811.8,185,100,1335,0) +475 +"DATA",811.8,185,100,1336,0) + +"DATA",811.8,185,100,1337,0) + +"DATA",811.8,185,100,1338,0) +511 +"DATA",811.8,185,100,1339,0) +490 +"DATA",811.8,185,100,1340,0) +481 +"DATA",811.8,185,100,1341,0) +522 +"DATA",811.8,185,100,1342,0) +516 +"DATA",811.8,185,100,1343,0) + +"DATA",811.8,185,100,1344,0) + +"DATA",811.8,185,100,1345,0) +588 +"DATA",811.8,185,100,1346,0) +535 +"DATA",811.8,185,100,1347,0) +526 +"DATA",811.8,185,100,1348,0) +606 +"DATA",811.8,185,100,1349,0) +593 +"DATA",811.8,185,100,1350,0) + +"DATA",811.8,185,100,1351,0) + +"DATA",811.8,185,100,1352,0) +624 +"DATA",811.8,185,100,1353,0) +619 +"DATA",811.8,185,100,1354,0) +610 +"DATA",811.8,185,100,1355,0) +630 +"DATA",811.8,185,100,1356,0) +629 +"DATA",811.8,185,100,1357,0) + +"DATA",811.8,185,100,1358,0) + +"DATA",811.8,185,100,1359,0) +653 +"DATA",811.8,185,100,1360,0) +643 +"DATA",811.8,185,100,1361,0) +634 +"DATA",811.8,185,100,1362,0) +660 +"DATA",811.8,185,100,1363,0) +658 +"DATA",811.8,185,100,1364,0) + +"DATA",811.8,185,100,1365,0) + +"DATA",811.8,185,100,1366,0) +683 +"DATA",811.8,185,100,1367,0) +673 +"DATA",811.8,185,100,1368,0) +664 +"DATA",811.8,185,100,1369,0) +690 +"DATA",811.8,185,100,1370,0) +688 +"DATA",811.8,185,100,1371,0) + +"DATA",811.8,185,100,1372,0) + +"DATA",811.8,185,100,1373,0) +773 +"DATA",811.8,185,100,1374,0) +703 +"DATA",811.8,185,100,1375,0) +694 +"DATA",811.8,185,100,1376,0) +792 +"DATA",811.8,185,100,1377,0) +778 +"DATA",811.8,185,100,1378,0) + +"DATA",811.8,185,100,1379,0) + +"DATA",811.8,185,100,1380,0) +833 +"DATA",811.8,185,100,1381,0) +805 +"DATA",811.8,185,100,1382,0) +796 +"DATA",811.8,185,100,1383,0) +840 +"DATA",811.8,185,100,1384,0) +838 +"DATA",811.8,185,100,1385,0) + +"DATA",811.8,185,100,1386,0) + +"DATA",811.8,185,100,1387,0) +881 +"DATA",811.8,185,100,1388,0) +853 +"DATA",811.8,185,100,1389,0) +844 +"DATA",811.8,185,100,1390,0) +888 +"DATA",811.8,185,100,1391,0) +886 +"DATA",811.8,185,100,1392,0) + +"DATA",811.8,185,100,1393,0) + +"DATA",811.8,185,100,1394,0) +929 +"DATA",811.8,185,100,1395,0) +901 +"DATA",811.8,185,100,1396,0) +892 +"DATA",811.8,185,100,1397,0) +936 +"DATA",811.8,185,100,1398,0) +934 +"DATA",811.8,185,100,1399,0) + +"DATA",811.8,185,100,1400,0) + +"DATA",811.8,185,100,1401,0) +955 +"DATA",811.8,185,100,1402,0) +949 +"DATA",811.8,185,100,1403,0) +940 +"DATA",811.8,185,100,1404,0) +960 +"DATA",811.8,185,100,1405,0) +960 +"DATA",811.8,185,100,1406,0) + +"DATA",811.8,185,100,1407,0) + +"DATA",811.8,185,100,1408,0) +979 +"DATA",811.8,185,100,1409,0) +973 +"DATA",811.8,185,100,1410,0) +964 +"DATA",811.8,185,100,1411,0) +984 +"DATA",811.8,185,100,1412,0) +984 +"DATA",811.8,185,100,1413,0) + +"DATA",811.8,185,100,1414,0) + +"DATA",811.8,185,100,1415,0) +1003 +"DATA",811.8,185,100,1416,0) +997 +"DATA",811.8,185,100,1417,0) +988 +"DATA",811.8,185,100,1418,0) +1008 +"DATA",811.8,185,100,1419,0) +1008 +"DATA",811.8,185,100,1420,0) + +"DATA",811.8,185,100,1421,0) + +"DATA",811.8,185,100,1422,0) +1035 +"DATA",811.8,185,100,1423,0) +1021 +"DATA",811.8,185,100,1424,0) +1012 +"DATA",811.8,185,100,1425,0) +1043 +"DATA",811.8,185,100,1426,0) +1040 +"DATA",811.8,185,100,1427,0) + +"DATA",811.8,185,100,1428,0) + +"DATA",811.8,185,100,1429,0) +1062 +"DATA",811.8,185,100,1430,0) +1056 +"DATA",811.8,185,100,1431,0) +1047 +"DATA",811.8,185,100,1432,0) +1067 +"DATA",811.8,185,100,1433,0) +1067 +"DATA",811.8,185,100,1434,0) + +"DATA",811.8,185,100,1435,0) + +"DATA",811.8,185,100,1436,0) +1094 +"DATA",811.8,185,100,1437,0) +1080 +"DATA",811.8,185,100,1438,0) +1071 +"DATA",811.8,185,100,1439,0) +1102 +"DATA",811.8,185,100,1440,0) +1099 +"DATA",811.8,185,100,1441,0) + +"DATA",811.8,185,100,1442,0) + +"DATA",811.8,185,100,1443,0) +1121 +"DATA",811.8,185,100,1444,0) +1115 +"DATA",811.8,185,100,1445,0) +1106 +"DATA",811.8,185,100,1446,0) +1126 +"DATA",811.8,185,100,1447,0) +1126 +"DATA",811.8,185,100,1448,0) + +"DATA",811.8,185,100,1449,0) + +"DATA",811.8,185,100,1450,0) +1147 +"DATA",811.8,185,100,1451,0) +1139 +"DATA",811.8,185,100,1452,0) +1130 +"DATA",811.8,185,100,1453,0) +1153 +"DATA",811.8,185,100,1454,0) +1152 +"DATA",811.8,185,100,1455,0) + +"DATA",811.8,185,100,1456,0) + +"DATA",811.8,185,100,1457,0) +1180 +"DATA",811.8,185,100,1458,0) +1166 +"DATA",811.8,185,100,1459,0) +1157 +"DATA",811.8,185,100,1460,0) +1188 +"DATA",811.8,185,100,1461,0) +1185 +"DATA",811.8,185,100,1462,0) + +"DATA",811.8,185,100,1463,0) + +"DATA",811.8,185,100,1464,0) +1207 +"DATA",811.8,185,100,1465,0) +1201 +"DATA",811.8,185,100,1466,0) +1192 +"DATA",811.8,185,100,1467,0) +1212 +"DATA",811.8,185,100,1468,0) +1212 +"DATA",811.8,185,100,1469,0) + +"DATA",811.8,185,100,1470,0) + +"DATA",811.8,185,100,1471,0) +1233 +"DATA",811.8,185,100,1472,0) +1225 +"DATA",811.8,185,100,1473,0) +1216 +"DATA",811.8,185,100,1474,0) +1239 +"DATA",811.8,185,100,1475,0) +1238 +"DATA",811.8,185,100,1476,0) + +"DATA",811.8,185,100,1477,0) + +"DATA",811.8,185,100,1478,0) +1258 +"DATA",811.8,185,100,1479,0) +1252 +"DATA",811.8,185,100,1480,0) +1243 +"DATA",811.8,185,100,1481,0) +1263 +"DATA",811.8,185,100,1482,0) +1263 +"DATA",811.8,185,100,1483,0) + +"DATA",811.8,185,100,1484,0) + +"DATA",811.8,185,100,1485,0) +1284 +"DATA",811.8,185,100,1486,0) +1276 +"DATA",811.8,185,100,1487,0) +1267 +"DATA",811.8,185,100,1488,0) +1290 +"DATA",811.8,185,100,1489,0) +1289 +"DATA",811.8,185,100,1490,0) + +"DATA",811.8,185,100,1491,0) + +"DATA",811.8,185,100,1492,0) + +"DATA",811.8,185,110,0) +^811.804^18^18 +"DATA",811.8,185,110,1,0) +Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION OLD +"DATA",811.8,185,110,2,0) +Date Packed: 07/31/2012@17:49:03 +"DATA",811.8,185,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,185,110,4,0) + +"DATA",811.8,185,110,5,0) +Description: +"DATA",811.8,185,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,185,110,7,0) +REMINDER LIST RULE +"DATA",811.8,185,110,8,0) + MU NQF0024 BMI 2-17YRS DEM RS +"DATA",811.8,185,110,9,0) + MU NQF0024 BMI 2-17YR NUM RS +"DATA",811.8,185,110,10,0) + MU NQF0024 BMI PERCENTILE 2-10Y RS +"DATA",811.8,185,110,11,0) + MU NQF0024 BMI PERCENTILE 11-17Y RS +"DATA",811.8,185,110,12,0) + MU NQF0024 BMI 11-17Y DENOM RS +"DATA",811.8,185,110,13,0) + MU NQF0024 BMI 2-10Y DENOM RS +"DATA",811.8,185,110,14,0) + +"DATA",811.8,185,110,15,0) +Keywords: +"DATA",811.8,185,110,16,0) +BMI PERCENTILE +"DATA",811.8,185,110,17,0) + +"DATA",811.8,185,110,18,0) +Components: +"DATA",811.8,185,119) +7 +"DATA",811.8,185,120,0) +^811.802A^29^29 +"DATA",811.8,185,120,1,0) +ROUTINE^0^2 +"DATA",811.8,185,120,1,1,0) +^811.8021A^2^2 +"DATA",811.8,185,120,1,1,1,0) +C0QRMBMI^29^99^^^1^0 +"DATA",811.8,185,120,1,1,2,0) +PXRMPDEM^108^347^^^1^0 +"DATA",811.8,185,120,2,0) +GMRV VITAL TYPE^120.51^2 +"DATA",811.8,185,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,185,120,2,1,1,0) +WEIGHT^360^360^^^0^0 +"DATA",811.8,185,120,2,1,2,0) +HEIGHT^373^373^^^0^0 +"DATA",811.8,185,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,185,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,185,120,3,1,1,0) +VW-BMI-PERCENTILE^386^410^415^415^1^0 +"DATA",811.8,185,120,3,1,2,0) +VA-AGE^428^443^448^448^1^0 +"DATA",811.8,185,120,4,0) +REMINDER TAXONOMY^811.2^3 +"DATA",811.8,185,120,4,1,0) +^811.8021A^3^3 +"DATA",811.8,185,120,4,1,1,0) +MU NQF0024 PHYSICAL ^461^470^475^477^1^0 +"DATA",811.8,185,120,4,1,2,0) +MU NQF0024 NUTRITION ^490^511^516^522^1^0 +"DATA",811.8,185,120,4,1,3,0) +MU NQF0024 BMI 2-17 ENC^535^588^593^606^1^0 +"DATA",811.8,185,120,5,0) +REMINDER TERM^811.5^3 +"DATA",811.8,185,120,5,1,0) +^811.8021A^3^3 +"DATA",811.8,185,120,5,1,1,0) +MU NQF0024 BMI PERCENTILE^619^624^629^630^1^0 +"DATA",811.8,185,120,5,1,2,0) +MU NQF0024 AGE 2-10Y CF^643^653^658^660^1^0 +"DATA",811.8,185,120,5,1,3,0) +MU NQF0024 AGE 11-17 CF^673^683^688^690^1^0 +"DATA",811.8,185,120,6,0) +REMINDER DEFINITION^811.9^4 +"DATA",811.8,185,120,6,1,0) +^811.8021A^4^4 +"DATA",811.8,185,120,6,1,1,0) +MU NQF0024 BMI 2-17 YRS NUMER LIST^703^773^778^792^1^0 +"DATA",811.8,185,120,6,1,2,0) +MU NQF0024 DEM LIST ^805^833^838^840^1^0 +"DATA",811.8,185,120,6,1,3,0) +MU NQF0024 BMI 2-10Y DENOM LIST^853^881^886^888^1^0 +"DATA",811.8,185,120,6,1,4,0) +MU NQF0024 BMI 11-17Y DENOM LIST^901^929^934^936^1^0 +"DATA",811.8,185,120,7,0) +REMINDER LIST RULE^810.4^13 +"DATA",811.8,185,120,7,1,0) +^811.8021A^13^13 +"DATA",811.8,185,120,7,1,1,0) +MU NQF0024 BMI PERCENTILE FR^949^955^960^960^1^0 +"DATA",811.8,185,120,7,1,2,0) +MU NQF0024 AGE 2-10 YEARS FR^973^979^984^984^1^0 +"DATA",811.8,185,120,7,1,3,0) +MU NQF0024 BMI 2-17 YR NUM RR^997^1003^1008^1008^1^0 +"DATA",811.8,185,120,7,1,4,0) +MU NQF0024 BMI PERCENTILE 2-10Y RS^1021^1035^1040^1043^1^1 +"DATA",811.8,185,120,7,1,5,0) +MU NQF0024 AGE 11-17 YRS FR^1056^1062^1067^1067^1^0 +"DATA",811.8,185,120,7,1,6,0) +MU NQF0024 BMI PERCENTILE 11-17Y RS^1080^1094^1099^1102^1^1 +"DATA",811.8,185,120,7,1,7,0) +MU NQF0024 BMI 2-17YRS RR^1115^1121^1126^1126^1^0 +"DATA",811.8,185,120,7,1,8,0) +MU NQF0024 BMI 2-17YRS DEM RS^1139^1147^1152^1153^1^1 +"DATA",811.8,185,120,7,1,9,0) +MU NQF0024 BMI 2-17YR NUM RS^1166^1180^1185^1188^1^1 +"DATA",811.8,185,120,7,1,10,0) +MU NQF0024 BMI 2-10Y DENOM RR^1201^1207^1212^1212^1^0 +"DATA",811.8,185,120,7,1,11,0) +MU NQF0024 BMI 2-10Y DENOM RS^1225^1233^1238^1239^1^1 +"DATA",811.8,185,120,7,1,12,0) +MU NQF0024 11-17Y DENOM RR^1252^1258^1263^1263^1^0 +"DATA",811.8,185,120,7,1,13,0) +MU NQF0024 BMI 11-17Y DENOM RS^1276^1284^1289^1290^1^1 +"DATA",811.8,185,130,0) +^811.803DA^1^1 +"DATA",811.8,185,130,1,0) +3120803.093841^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,185,130,1,1,0) +^811.8031A^27^27 +"DATA",811.8,185,130,1,1,1,0) +1^ROUTINE^C0QRMBMI^S^ +"DATA",811.8,185,130,1,1,2,0) +2^ROUTINE^PXRMPDEM^S^ +"DATA",811.8,185,130,1,1,3,0) +3^REMINDER COMPUTED FINDINGS^VW-BMI-PERCENTILE^S^ +"DATA",811.8,185,130,1,1,4,0) +4^REMINDER COMPUTED FINDINGS^VA-AGE^S^ +"DATA",811.8,185,130,1,1,5,0) +5^REMINDER TAXONOMY^MU NQF0024 PHYSICAL ^S^ +"DATA",811.8,185,130,1,1,6,0) +6^REMINDER TAXONOMY^MU NQF0024 NUTRITION ^O^ +"DATA",811.8,185,130,1,1,7,0) +7^REMINDER TAXONOMY^MU NQF0024 BMI 2-17 ENC^O^ +"DATA",811.8,185,130,1,1,8,0) +8^REMINDER TERM^MU NQF0024 BMI PERCENTILE^I^ +"DATA",811.8,185,130,1,1,8,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,9,0) +9^REMINDER TERM^MU NQF0024 AGE 2-10Y CF^I^ +"DATA",811.8,185,130,1,1,9,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,10,0) +10^REMINDER TERM^MU NQF0024 AGE 11-17 CF^I^ +"DATA",811.8,185,130,1,1,10,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,11,0) +11^REMINDER DEFINITION^MU NQF0024 BMI 2-17 YRS NUMER LIST^O^ +"DATA",811.8,185,130,1,1,11,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,12,0) +12^REMINDER DEFINITION^MU NQF0024 DEM LIST ^I^ +"DATA",811.8,185,130,1,1,12,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,13,0) +13^REMINDER DEFINITION^MU NQF0024 BMI 2-10Y DENOM LIST^I^ +"DATA",811.8,185,130,1,1,13,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,14,0) +14^REMINDER DEFINITION^MU NQF0024 BMI 11-17Y DENOM LIST^I^ +"DATA",811.8,185,130,1,1,14,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,15,0) +15^REMINDER LIST RULE^MU NQF0024 BMI PERCENTILE FR^I^ +"DATA",811.8,185,130,1,1,16,0) +16^REMINDER LIST RULE^MU NQF0024 AGE 2-10 YEARS FR^I^ +"DATA",811.8,185,130,1,1,17,0) +17^REMINDER LIST RULE^MU NQF0024 BMI 2-17 YR NUM RR^S^ +"DATA",811.8,185,130,1,1,18,0) +18^REMINDER LIST RULE^MU NQF0024 BMI PERCENTILE 2-10Y RS^I^ +"DATA",811.8,185,130,1,1,19,0) +19^REMINDER LIST RULE^MU NQF0024 AGE 11-17 YRS FR^I^ +"DATA",811.8,185,130,1,1,20,0) +20^REMINDER LIST RULE^MU NQF0024 BMI PERCENTILE 11-17Y RS^I^ +"DATA",811.8,185,130,1,1,21,0) +21^REMINDER LIST RULE^MU NQF0024 BMI 2-17YRS RR^O^ +"DATA",811.8,185,130,1,1,22,0) +22^REMINDER LIST RULE^MU NQF0024 BMI 2-17YRS DEM RS^S^ +"DATA",811.8,185,130,1,1,23,0) +23^REMINDER LIST RULE^MU NQF0024 BMI 2-17YR NUM RS^O^ +"DATA",811.8,185,130,1,1,24,0) +24^REMINDER LIST RULE^MU NQF0024 BMI 2-10Y DENOM RR^I^ +"DATA",811.8,185,130,1,1,25,0) +25^REMINDER LIST RULE^MU NQF0024 BMI 2-10Y DENOM RS^I^ +"DATA",811.8,185,130,1,1,26,0) +26^REMINDER LIST RULE^MU NQF0024 11-17Y DENOM RR^I^ +"DATA",811.8,185,130,1,1,27,0) +27^REMINDER LIST RULE^MU NQF0024 BMI 11-17Y DENOM RS^I^ +"DATA",811.8,186,0) +MU CPRS HELP DIS^BOKHARI,SYED at VOE OFFICE INSTITUTION^3120801.183229 +"DATA",811.8,186,100,1,0) + +"DATA",811.8,186,100,2,0) + +"DATA",811.8,186,100,3,0) +2.0P17 +"DATA",811.8,186,100,4,0) +4101 +"DATA",811.8,186,100,5,0) + +"DATA",811.8,186,100,6,0) +MU CPRS HELP DIS +"DATA",811.8,186,100,7,0) +BOKHARI,SYED +"DATA",811.8,186,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,186,100,9,0) +08/01/2012@18:32:29 +"DATA",811.8,186,100,10,0) + +"DATA",811.8,186,100,11,0) + +"DATA",811.8,186,100,22,0) + +"DATA",811.8,186,100,23,0) + +"DATA",811.8,186,100,24,0) + +"DATA",811.8,186,100,25,0) +IMMUNIZATION +"DATA",811.8,186,100,26,0) +9999999.14 +"DATA",811.8,186,100,27,0) +FLU,3 YRS +"DATA",811.8,186,100,28,0) +52 +"DATA",811.8,186,100,29,0) +4239920913 +"DATA",811.8,186,100,30,0) +NO +"DATA",811.8,186,100,31,0) + +"DATA",811.8,186,100,32,0) + +"DATA",811.8,186,100,36,0) + +"DATA",811.8,186,100,37,0) + +"DATA",811.8,186,100,38,0) + +"DATA",811.8,186,100,39,0) +IMMUNIZATION +"DATA",811.8,186,100,40,0) +9999999.14 +"DATA",811.8,186,100,41,0) +INFLUENZA +"DATA",811.8,186,100,42,0) +12 +"DATA",811.8,186,100,43,0) +1066305499 +"DATA",811.8,186,100,44,0) +NO +"DATA",811.8,186,100,45,0) + +"DATA",811.8,186,100,46,0) + +"DATA",811.8,186,100,51,0) + +"DATA",811.8,186,100,52,0) + +"DATA",811.8,186,100,53,0) + +"DATA",811.8,186,100,54,0) +IMMUNIZATION +"DATA",811.8,186,100,55,0) +9999999.14 +"DATA",811.8,186,100,56,0) +RV 3 PEDS +"DATA",811.8,186,100,57,0) +126 +"DATA",811.8,186,100,58,0) +403157997 +"DATA",811.8,186,100,59,0) +NO +"DATA",811.8,186,100,60,0) + +"DATA",811.8,186,100,61,0) + +"DATA",811.8,186,100,66,0) + +"DATA",811.8,186,100,67,0) + +"DATA",811.8,186,100,68,0) + +"DATA",811.8,186,100,69,0) +IMMUNIZATION +"DATA",811.8,186,100,70,0) +9999999.14 +"DATA",811.8,186,100,71,0) +RV 2 PEDS +"DATA",811.8,186,100,72,0) +125 +"DATA",811.8,186,100,73,0) +1005051806 +"DATA",811.8,186,100,74,0) +NO +"DATA",811.8,186,100,75,0) + +"DATA",811.8,186,100,76,0) + +"DATA",811.8,186,100,81,0) + +"DATA",811.8,186,100,82,0) + +"DATA",811.8,186,100,83,0) + +"DATA",811.8,186,100,84,0) +IMMUNIZATION +"DATA",811.8,186,100,85,0) +9999999.14 +"DATA",811.8,186,100,86,0) +RV 1 PEDS +"DATA",811.8,186,100,87,0) +124 +"DATA",811.8,186,100,88,0) +1606904587 +"DATA",811.8,186,100,89,0) +NO +"DATA",811.8,186,100,90,0) + +"DATA",811.8,186,100,91,0) + +"DATA",811.8,186,100,96,0) + +"DATA",811.8,186,100,97,0) + +"DATA",811.8,186,100,98,0) + +"DATA",811.8,186,100,99,0) +IMMUNIZATION +"DATA",811.8,186,100,100,0) +9999999.14 +"DATA",811.8,186,100,101,0) +HEP A3 PEDS +"DATA",811.8,186,100,102,0) +106 +"DATA",811.8,186,100,103,0) +3664513394 +"DATA",811.8,186,100,104,0) +NO +"DATA",811.8,186,100,105,0) + +"DATA",811.8,186,100,106,0) + +"DATA",811.8,186,100,110,0) + +"DATA",811.8,186,100,111,0) + +"DATA",811.8,186,100,112,0) + +"DATA",811.8,186,100,113,0) +IMMUNIZATION +"DATA",811.8,186,100,114,0) +9999999.14 +"DATA",811.8,186,100,115,0) +HEP A2 PEDS +"DATA",811.8,186,100,116,0) +105 +"DATA",811.8,186,100,117,0) +4257862200 +"DATA",811.8,186,100,118,0) +NO +"DATA",811.8,186,100,119,0) + +"DATA",811.8,186,100,120,0) + +"DATA",811.8,186,100,125,0) + +"DATA",811.8,186,100,126,0) + +"DATA",811.8,186,100,127,0) + +"DATA",811.8,186,100,128,0) +IMMUNIZATION +"DATA",811.8,186,100,129,0) +9999999.14 +"DATA",811.8,186,100,130,0) +HEP A1 PEDS +"DATA",811.8,186,100,131,0) +104 +"DATA",811.8,186,100,132,0) +927519080 +"DATA",811.8,186,100,133,0) +NO +"DATA",811.8,186,100,134,0) + +"DATA",811.8,186,100,135,0) + +"DATA",811.8,186,100,140,0) + +"DATA",811.8,186,100,141,0) + +"DATA",811.8,186,100,142,0) + +"DATA",811.8,186,100,143,0) +IMMUNIZATION +"DATA",811.8,186,100,144,0) +9999999.14 +"DATA",811.8,186,100,145,0) +PCV5 PEDS +"DATA",811.8,186,100,146,0) +123 +"DATA",811.8,186,100,147,0) +2425044512 +"DATA",811.8,186,100,148,0) +NO +"DATA",811.8,186,100,149,0) + +"DATA",811.8,186,100,150,0) + +"DATA",811.8,186,100,155,0) + +"DATA",811.8,186,100,156,0) + +"DATA",811.8,186,100,157,0) + +"DATA",811.8,186,100,158,0) +IMMUNIZATION +"DATA",811.8,186,100,159,0) +9999999.14 +"DATA",811.8,186,100,160,0) +PCV4 PEDS +"DATA",811.8,186,100,161,0) +122 +"DATA",811.8,186,100,162,0) +1886037016 +"DATA",811.8,186,100,163,0) +NO +"DATA",811.8,186,100,164,0) + +"DATA",811.8,186,100,165,0) + +"DATA",811.8,186,100,170,0) + +"DATA",811.8,186,100,171,0) + +"DATA",811.8,186,100,172,0) + +"DATA",811.8,186,100,173,0) +IMMUNIZATION +"DATA",811.8,186,100,174,0) +9999999.14 +"DATA",811.8,186,100,175,0) +PCV3 PEDS +"DATA",811.8,186,100,176,0) +121 +"DATA",811.8,186,100,177,0) +3210569843 +"DATA",811.8,186,100,178,0) +NO +"DATA",811.8,186,100,179,0) + +"DATA",811.8,186,100,180,0) + +"DATA",811.8,186,100,185,0) + +"DATA",811.8,186,100,186,0) + +"DATA",811.8,186,100,187,0) + +"DATA",811.8,186,100,188,0) +IMMUNIZATION +"DATA",811.8,186,100,189,0) +9999999.14 +"DATA",811.8,186,100,190,0) +PCV2 PEDS +"DATA",811.8,186,100,191,0) +120 +"DATA",811.8,186,100,192,0) +1606218315 +"DATA",811.8,186,100,193,0) +NO +"DATA",811.8,186,100,194,0) + +"DATA",811.8,186,100,195,0) + +"DATA",811.8,186,100,200,0) + +"DATA",811.8,186,100,201,0) + +"DATA",811.8,186,100,202,0) + +"DATA",811.8,186,100,203,0) +IMMUNIZATION +"DATA",811.8,186,100,204,0) +9999999.14 +"DATA",811.8,186,100,205,0) +PCV1 PEDS +"DATA",811.8,186,100,206,0) +119 +"DATA",811.8,186,100,207,0) +2783926850 +"DATA",811.8,186,100,208,0) +NO +"DATA",811.8,186,100,209,0) + +"DATA",811.8,186,100,210,0) + +"DATA",811.8,186,100,215,0) + +"DATA",811.8,186,100,216,0) + +"DATA",811.8,186,100,217,0) + +"DATA",811.8,186,100,218,0) +IMMUNIZATION +"DATA",811.8,186,100,219,0) +9999999.14 +"DATA",811.8,186,100,220,0) +VZV1 INFANT +"DATA",811.8,186,100,221,0) +128 +"DATA",811.8,186,100,222,0) +3905126325 +"DATA",811.8,186,100,223,0) +NO +"DATA",811.8,186,100,224,0) + +"DATA",811.8,186,100,225,0) + +"DATA",811.8,186,100,230,0) + +"DATA",811.8,186,100,231,0) + +"DATA",811.8,186,100,232,0) + +"DATA",811.8,186,100,233,0) +IMMUNIZATION +"DATA",811.8,186,100,234,0) +9999999.14 +"DATA",811.8,186,100,235,0) +HEP B4 INFANT +"DATA",811.8,186,100,236,0) +110 +"DATA",811.8,186,100,237,0) +3261882689 +"DATA",811.8,186,100,238,0) +NO +"DATA",811.8,186,100,239,0) + +"DATA",811.8,186,100,240,0) + +"DATA",811.8,186,100,245,0) + +"DATA",811.8,186,100,246,0) + +"DATA",811.8,186,100,247,0) + +"DATA",811.8,186,100,248,0) +IMMUNIZATION +"DATA",811.8,186,100,249,0) +9999999.14 +"DATA",811.8,186,100,250,0) +HEP B3 INFANT +"DATA",811.8,186,100,251,0) +109 +"DATA",811.8,186,100,252,0) +832528276 +"DATA",811.8,186,100,253,0) +NO +"DATA",811.8,186,100,254,0) + +"DATA",811.8,186,100,255,0) + +"DATA",811.8,186,100,260,0) + +"DATA",811.8,186,100,261,0) + +"DATA",811.8,186,100,262,0) + +"DATA",811.8,186,100,263,0) +IMMUNIZATION +"DATA",811.8,186,100,264,0) +9999999.14 +"DATA",811.8,186,100,265,0) +HEP B2 INFANT +"DATA",811.8,186,100,266,0) +108 +"DATA",811.8,186,100,267,0) +3638835454 +"DATA",811.8,186,100,268,0) +NO +"DATA",811.8,186,100,269,0) + +"DATA",811.8,186,100,270,0) + +"DATA",811.8,186,100,275,0) + +"DATA",811.8,186,100,276,0) + +"DATA",811.8,186,100,277,0) + +"DATA",811.8,186,100,278,0) +IMMUNIZATION +"DATA",811.8,186,100,279,0) +9999999.14 +"DATA",811.8,186,100,280,0) +HEP B1 INFANT +"DATA",811.8,186,100,281,0) +107 +"DATA",811.8,186,100,282,0) +941135617 +"DATA",811.8,186,100,283,0) +NO +"DATA",811.8,186,100,284,0) + +"DATA",811.8,186,100,285,0) + +"DATA",811.8,186,100,290,0) + +"DATA",811.8,186,100,291,0) + +"DATA",811.8,186,100,292,0) + +"DATA",811.8,186,100,293,0) +IMMUNIZATION +"DATA",811.8,186,100,294,0) +9999999.14 +"DATA",811.8,186,100,295,0) +HIB PED 4 +"DATA",811.8,186,100,296,0) +78 +"DATA",811.8,186,100,297,0) +2718389710 +"DATA",811.8,186,100,298,0) +NO +"DATA",811.8,186,100,299,0) + +"DATA",811.8,186,100,300,0) + +"DATA",811.8,186,100,304,0) + +"DATA",811.8,186,100,305,0) + +"DATA",811.8,186,100,306,0) + +"DATA",811.8,186,100,307,0) +IMMUNIZATION +"DATA",811.8,186,100,308,0) +9999999.14 +"DATA",811.8,186,100,309,0) +HIB PED 3 +"DATA",811.8,186,100,310,0) +77 +"DATA",811.8,186,100,311,0) +3710347006 +"DATA",811.8,186,100,312,0) +NO +"DATA",811.8,186,100,313,0) + +"DATA",811.8,186,100,314,0) + +"DATA",811.8,186,100,318,0) + +"DATA",811.8,186,100,319,0) + +"DATA",811.8,186,100,320,0) + +"DATA",811.8,186,100,321,0) +IMMUNIZATION +"DATA",811.8,186,100,322,0) +9999999.14 +"DATA",811.8,186,100,323,0) +HIB PED 2 +"DATA",811.8,186,100,324,0) +76 +"DATA",811.8,186,100,325,0) +3477564718 +"DATA",811.8,186,100,326,0) +NO +"DATA",811.8,186,100,327,0) + +"DATA",811.8,186,100,328,0) + +"DATA",811.8,186,100,332,0) + +"DATA",811.8,186,100,333,0) + +"DATA",811.8,186,100,334,0) + +"DATA",811.8,186,100,335,0) +IMMUNIZATION +"DATA",811.8,186,100,336,0) +9999999.14 +"DATA",811.8,186,100,337,0) +HIB PED 1 +"DATA",811.8,186,100,338,0) +75 +"DATA",811.8,186,100,339,0) +4192694622 +"DATA",811.8,186,100,340,0) +NO +"DATA",811.8,186,100,341,0) + +"DATA",811.8,186,100,342,0) + +"DATA",811.8,186,100,346,0) + +"DATA",811.8,186,100,347,0) + +"DATA",811.8,186,100,348,0) + +"DATA",811.8,186,100,349,0) +IMMUNIZATION +"DATA",811.8,186,100,350,0) +9999999.14 +"DATA",811.8,186,100,351,0) +MEASLES,MUMPS,RUBELLA PED #2 +"DATA",811.8,186,100,352,0) +80 +"DATA",811.8,186,100,353,0) +3929455417 +"DATA",811.8,186,100,354,0) +NO +"DATA",811.8,186,100,355,0) + +"DATA",811.8,186,100,356,0) + +"DATA",811.8,186,100,360,0) + +"DATA",811.8,186,100,361,0) + +"DATA",811.8,186,100,362,0) + +"DATA",811.8,186,100,363,0) +IMMUNIZATION +"DATA",811.8,186,100,364,0) +9999999.14 +"DATA",811.8,186,100,365,0) +MEASLES,MUMPS,RUBELLA PED #1 +"DATA",811.8,186,100,366,0) +79 +"DATA",811.8,186,100,367,0) +1188191440 +"DATA",811.8,186,100,368,0) +NO +"DATA",811.8,186,100,369,0) + +"DATA",811.8,186,100,370,0) + +"DATA",811.8,186,100,374,0) + +"DATA",811.8,186,100,375,0) + +"DATA",811.8,186,100,376,0) + +"DATA",811.8,186,100,377,0) +IMMUNIZATION +"DATA",811.8,186,100,378,0) +9999999.14 +"DATA",811.8,186,100,379,0) +IPV1 +"DATA",811.8,186,100,380,0) +114 +"DATA",811.8,186,100,381,0) +4240221679 +"DATA",811.8,186,100,382,0) +NO +"DATA",811.8,186,100,383,0) + +"DATA",811.8,186,100,384,0) + +"DATA",811.8,186,100,389,0) + +"DATA",811.8,186,100,390,0) + +"DATA",811.8,186,100,391,0) + +"DATA",811.8,186,100,392,0) +IMMUNIZATION +"DATA",811.8,186,100,393,0) +9999999.14 +"DATA",811.8,186,100,394,0) +IPV4 +"DATA",811.8,186,100,395,0) +117 +"DATA",811.8,186,100,396,0) +812543255 +"DATA",811.8,186,100,397,0) +NO +"DATA",811.8,186,100,398,0) + +"DATA",811.8,186,100,399,0) + +"DATA",811.8,186,100,404,0) + +"DATA",811.8,186,100,405,0) + +"DATA",811.8,186,100,406,0) + +"DATA",811.8,186,100,407,0) +IMMUNIZATION +"DATA",811.8,186,100,408,0) +9999999.14 +"DATA",811.8,186,100,409,0) +IPV3 +"DATA",811.8,186,100,410,0) +116 +"DATA",811.8,186,100,411,0) +840442592 +"DATA",811.8,186,100,412,0) +NO +"DATA",811.8,186,100,413,0) + +"DATA",811.8,186,100,414,0) + +"DATA",811.8,186,100,419,0) + +"DATA",811.8,186,100,420,0) + +"DATA",811.8,186,100,421,0) + +"DATA",811.8,186,100,422,0) +IMMUNIZATION +"DATA",811.8,186,100,423,0) +9999999.14 +"DATA",811.8,186,100,424,0) +IPV2 +"DATA",811.8,186,100,425,0) +115 +"DATA",811.8,186,100,426,0) +3102925383 +"DATA",811.8,186,100,427,0) +NO +"DATA",811.8,186,100,428,0) + +"DATA",811.8,186,100,429,0) + +"DATA",811.8,186,100,434,0) + +"DATA",811.8,186,100,435,0) + +"DATA",811.8,186,100,436,0) + +"DATA",811.8,186,100,437,0) +IMMUNIZATION +"DATA",811.8,186,100,438,0) +9999999.14 +"DATA",811.8,186,100,439,0) +DTaP5 +"DATA",811.8,186,100,440,0) +103 +"DATA",811.8,186,100,441,0) +1461722474 +"DATA",811.8,186,100,442,0) +NO +"DATA",811.8,186,100,443,0) + +"DATA",811.8,186,100,444,0) + +"DATA",811.8,186,100,449,0) + +"DATA",811.8,186,100,450,0) + +"DATA",811.8,186,100,451,0) + +"DATA",811.8,186,100,452,0) +IMMUNIZATION +"DATA",811.8,186,100,453,0) +9999999.14 +"DATA",811.8,186,100,454,0) +DTaP4 +"DATA",811.8,186,100,455,0) +102 +"DATA",811.8,186,100,456,0) +920034099 +"DATA",811.8,186,100,457,0) +NO +"DATA",811.8,186,100,458,0) + +"DATA",811.8,186,100,459,0) + +"DATA",811.8,186,100,464,0) + +"DATA",811.8,186,100,465,0) + +"DATA",811.8,186,100,466,0) + +"DATA",811.8,186,100,467,0) +IMMUNIZATION +"DATA",811.8,186,100,468,0) +9999999.14 +"DATA",811.8,186,100,469,0) +DTaP3 +"DATA",811.8,186,100,470,0) +101 +"DATA",811.8,186,100,471,0) +3362131709 +"DATA",811.8,186,100,472,0) +NO +"DATA",811.8,186,100,473,0) + +"DATA",811.8,186,100,474,0) + +"DATA",811.8,186,100,479,0) + +"DATA",811.8,186,100,480,0) + +"DATA",811.8,186,100,481,0) + +"DATA",811.8,186,100,482,0) +IMMUNIZATION +"DATA",811.8,186,100,483,0) +9999999.14 +"DATA",811.8,186,100,484,0) +DTaP2 +"DATA",811.8,186,100,485,0) +100 +"DATA",811.8,186,100,486,0) +2844821668 +"DATA",811.8,186,100,487,0) +NO +"DATA",811.8,186,100,488,0) + +"DATA",811.8,186,100,489,0) + +"DATA",811.8,186,100,494,0) + +"DATA",811.8,186,100,495,0) + +"DATA",811.8,186,100,496,0) + +"DATA",811.8,186,100,497,0) +IMMUNIZATION +"DATA",811.8,186,100,498,0) +9999999.14 +"DATA",811.8,186,100,499,0) +DTaP1 +"DATA",811.8,186,100,500,0) +99 +"DATA",811.8,186,100,501,0) +193659471 +"DATA",811.8,186,100,502,0) +NO +"DATA",811.8,186,100,503,0) + +"DATA",811.8,186,100,504,0) + +"DATA",811.8,186,100,509,0) + +"DATA",811.8,186,100,510,0) + +"DATA",811.8,186,100,511,0) + +"DATA",811.8,186,100,512,0) +HEALTH FACTORS +"DATA",811.8,186,100,513,0) +9999999.64 +"DATA",811.8,186,100,514,0) +BMI MANAGEMENT OPTIONS +"DATA",811.8,186,100,515,0) +50212 +"DATA",811.8,186,100,516,0) +3865298610 +"DATA",811.8,186,100,517,0) +NO +"DATA",811.8,186,100,518,0) + +"DATA",811.8,186,100,519,0) + +"DATA",811.8,186,100,523,0) + +"DATA",811.8,186,100,524,0) + +"DATA",811.8,186,100,525,0) + +"DATA",811.8,186,100,526,0) +HEALTH FACTORS +"DATA",811.8,186,100,527,0) +9999999.64 +"DATA",811.8,186,100,528,0) +BMI DIETARY CONSULT DONE +"DATA",811.8,186,100,529,0) +50214 +"DATA",811.8,186,100,530,0) +2104698889 +"DATA",811.8,186,100,531,0) +NO +"DATA",811.8,186,100,532,0) + +"DATA",811.8,186,100,533,0) + +"DATA",811.8,186,100,539,0) + +"DATA",811.8,186,100,540,0) + +"DATA",811.8,186,100,541,0) + +"DATA",811.8,186,100,542,0) +HEALTH FACTORS +"DATA",811.8,186,100,543,0) +9999999.64 +"DATA",811.8,186,100,544,0) +BMI CARE GOAL DOCUMENTED +"DATA",811.8,186,100,545,0) +50213 +"DATA",811.8,186,100,546,0) +2777035191 +"DATA",811.8,186,100,547,0) +NO +"DATA",811.8,186,100,548,0) + +"DATA",811.8,186,100,549,0) + +"DATA",811.8,186,100,555,0) + +"DATA",811.8,186,100,556,0) + +"DATA",811.8,186,100,557,0) + +"DATA",811.8,186,100,558,0) +HEALTH FACTORS +"DATA",811.8,186,100,559,0) +9999999.64 +"DATA",811.8,186,100,560,0) +SNOMED CODES +"DATA",811.8,186,100,561,0) +500013 +"DATA",811.8,186,100,562,0) +3190378291 +"DATA",811.8,186,100,563,0) +NO +"DATA",811.8,186,100,564,0) + +"DATA",811.8,186,100,565,0) + +"DATA",811.8,186,100,569,0) + +"DATA",811.8,186,100,570,0) + +"DATA",811.8,186,100,571,0) + +"DATA",811.8,186,100,572,0) +HEALTH FACTORS +"DATA",811.8,186,100,573,0) +9999999.64 +"DATA",811.8,186,100,574,0) +395700008 +"DATA",811.8,186,100,575,0) +500247 +"DATA",811.8,186,100,576,0) +984823388 +"DATA",811.8,186,100,577,0) +NO +"DATA",811.8,186,100,578,0) + +"DATA",811.8,186,100,579,0) + +"DATA",811.8,186,100,586,0) + +"DATA",811.8,186,100,587,0) + +"DATA",811.8,186,100,588,0) + +"DATA",811.8,186,100,589,0) +HEALTH FACTORS +"DATA",811.8,186,100,590,0) +9999999.64 +"DATA",811.8,186,100,591,0) +384742004 +"DATA",811.8,186,100,592,0) +500246 +"DATA",811.8,186,100,593,0) +3679292001 +"DATA",811.8,186,100,594,0) +NO +"DATA",811.8,186,100,595,0) + +"DATA",811.8,186,100,596,0) + +"DATA",811.8,186,100,603,0) + +"DATA",811.8,186,100,604,0) + +"DATA",811.8,186,100,605,0) + +"DATA",811.8,186,100,606,0) +HEALTH FACTORS +"DATA",811.8,186,100,607,0) +9999999.64 +"DATA",811.8,186,100,608,0) +225323000 +"DATA",811.8,186,100,609,0) +500245 +"DATA",811.8,186,100,610,0) +1335550128 +"DATA",811.8,186,100,611,0) +NO +"DATA",811.8,186,100,612,0) + +"DATA",811.8,186,100,613,0) + +"DATA",811.8,186,100,620,0) + +"DATA",811.8,186,100,621,0) + +"DATA",811.8,186,100,622,0) + +"DATA",811.8,186,100,623,0) +HEALTH FACTORS +"DATA",811.8,186,100,624,0) +9999999.64 +"DATA",811.8,186,100,625,0) +SMOKING STATUS RECODE +"DATA",811.8,186,100,626,0) +500153 +"DATA",811.8,186,100,627,0) +662837912 +"DATA",811.8,186,100,628,0) +NO +"DATA",811.8,186,100,629,0) + +"DATA",811.8,186,100,630,0) + +"DATA",811.8,186,100,634,0) + +"DATA",811.8,186,100,635,0) + +"DATA",811.8,186,100,636,0) + +"DATA",811.8,186,100,637,0) +HEALTH FACTORS +"DATA",811.8,186,100,638,0) +9999999.64 +"DATA",811.8,186,100,639,0) +009 +"DATA",811.8,186,100,640,0) +500299 +"DATA",811.8,186,100,641,0) +4195987574 +"DATA",811.8,186,100,642,0) +NO +"DATA",811.8,186,100,643,0) + +"DATA",811.8,186,100,644,0) + +"DATA",811.8,186,100,650,0) + +"DATA",811.8,186,100,651,0) + +"DATA",811.8,186,100,652,0) + +"DATA",811.8,186,100,653,0) +HEALTH FACTORS +"DATA",811.8,186,100,654,0) +9999999.64 +"DATA",811.8,186,100,655,0) +MU SMOKING STATUS +"DATA",811.8,186,100,656,0) +500307 +"DATA",811.8,186,100,657,0) +3381942127 +"DATA",811.8,186,100,658,0) +NO +"DATA",811.8,186,100,659,0) + +"DATA",811.8,186,100,660,0) + +"DATA",811.8,186,100,664,0) + +"DATA",811.8,186,100,665,0) + +"DATA",811.8,186,100,666,0) + +"DATA",811.8,186,100,667,0) +HEALTH FACTORS +"DATA",811.8,186,100,668,0) +9999999.64 +"DATA",811.8,186,100,669,0) +STATUS-UNKNOWN IF EVER SMOKED (009) +"DATA",811.8,186,100,670,0) +50091 +"DATA",811.8,186,100,671,0) +2633446382 +"DATA",811.8,186,100,672,0) +NO +"DATA",811.8,186,100,673,0) + +"DATA",811.8,186,100,674,0) + +"DATA",811.8,186,100,681,0) + +"DATA",811.8,186,100,682,0) + +"DATA",811.8,186,100,683,0) + +"DATA",811.8,186,100,684,0) +HEALTH FACTORS +"DATA",811.8,186,100,685,0) +9999999.64 +"DATA",811.8,186,100,686,0) +005 +"DATA",811.8,186,100,687,0) +500298 +"DATA",811.8,186,100,688,0) +1605008258 +"DATA",811.8,186,100,689,0) +NO +"DATA",811.8,186,100,690,0) + +"DATA",811.8,186,100,691,0) + +"DATA",811.8,186,100,697,0) + +"DATA",811.8,186,100,698,0) + +"DATA",811.8,186,100,699,0) + +"DATA",811.8,186,100,700,0) +HEALTH FACTORS +"DATA",811.8,186,100,701,0) +9999999.64 +"DATA",811.8,186,100,702,0) +STATUS-SMOKER, CURRENT STATUS UNK (005) +"DATA",811.8,186,100,703,0) +50090 +"DATA",811.8,186,100,704,0) +2904943057 +"DATA",811.8,186,100,705,0) +NO +"DATA",811.8,186,100,706,0) + +"DATA",811.8,186,100,707,0) + +"DATA",811.8,186,100,714,0) + +"DATA",811.8,186,100,715,0) + +"DATA",811.8,186,100,716,0) + +"DATA",811.8,186,100,717,0) +HEALTH FACTORS +"DATA",811.8,186,100,718,0) +9999999.64 +"DATA",811.8,186,100,719,0) +004 +"DATA",811.8,186,100,720,0) +500297 +"DATA",811.8,186,100,721,0) +4053870614 +"DATA",811.8,186,100,722,0) +NO +"DATA",811.8,186,100,723,0) + +"DATA",811.8,186,100,724,0) + +"DATA",811.8,186,100,730,0) + +"DATA",811.8,186,100,731,0) + +"DATA",811.8,186,100,732,0) + +"DATA",811.8,186,100,733,0) +HEALTH FACTORS +"DATA",811.8,186,100,734,0) +9999999.64 +"DATA",811.8,186,100,735,0) +STATUS-NEVER SMOKER (004) +"DATA",811.8,186,100,736,0) +50089 +"DATA",811.8,186,100,737,0) +2368282304 +"DATA",811.8,186,100,738,0) +NO +"DATA",811.8,186,100,739,0) + +"DATA",811.8,186,100,740,0) + +"DATA",811.8,186,100,747,0) + +"DATA",811.8,186,100,748,0) + +"DATA",811.8,186,100,749,0) + +"DATA",811.8,186,100,750,0) +HEALTH FACTORS +"DATA",811.8,186,100,751,0) +9999999.64 +"DATA",811.8,186,100,752,0) +003 +"DATA",811.8,186,100,753,0) +500296 +"DATA",811.8,186,100,754,0) +225681016 +"DATA",811.8,186,100,755,0) +NO +"DATA",811.8,186,100,756,0) + +"DATA",811.8,186,100,757,0) + +"DATA",811.8,186,100,763,0) + +"DATA",811.8,186,100,764,0) + +"DATA",811.8,186,100,765,0) + +"DATA",811.8,186,100,766,0) +HEALTH FACTORS +"DATA",811.8,186,100,767,0) +9999999.64 +"DATA",811.8,186,100,768,0) +STATUS-FORMER SMOKER (003) +"DATA",811.8,186,100,769,0) +50088 +"DATA",811.8,186,100,770,0) +1868097210 +"DATA",811.8,186,100,771,0) +NO +"DATA",811.8,186,100,772,0) + +"DATA",811.8,186,100,773,0) + +"DATA",811.8,186,100,780,0) + +"DATA",811.8,186,100,781,0) + +"DATA",811.8,186,100,782,0) + +"DATA",811.8,186,100,783,0) +HEALTH FACTORS +"DATA",811.8,186,100,784,0) +9999999.64 +"DATA",811.8,186,100,785,0) +002 +"DATA",811.8,186,100,786,0) +500295 +"DATA",811.8,186,100,787,0) +2742603244 +"DATA",811.8,186,100,788,0) +NO +"DATA",811.8,186,100,789,0) + +"DATA",811.8,186,100,790,0) + +"DATA",811.8,186,100,796,0) + +"DATA",811.8,186,100,797,0) + +"DATA",811.8,186,100,798,0) + +"DATA",811.8,186,100,799,0) +HEALTH FACTORS +"DATA",811.8,186,100,800,0) +9999999.64 +"DATA",811.8,186,100,801,0) +STATUS-CURRENT SOME DAY SMOKER (002) +"DATA",811.8,186,100,802,0) +50087 +"DATA",811.8,186,100,803,0) +298124988 +"DATA",811.8,186,100,804,0) +NO +"DATA",811.8,186,100,805,0) + +"DATA",811.8,186,100,806,0) + +"DATA",811.8,186,100,813,0) + +"DATA",811.8,186,100,814,0) + +"DATA",811.8,186,100,815,0) + +"DATA",811.8,186,100,816,0) +HEALTH FACTORS +"DATA",811.8,186,100,817,0) +9999999.64 +"DATA",811.8,186,100,818,0) +001 +"DATA",811.8,186,100,819,0) +500226 +"DATA",811.8,186,100,820,0) +2316582673 +"DATA",811.8,186,100,821,0) +NO +"DATA",811.8,186,100,822,0) + +"DATA",811.8,186,100,823,0) + +"DATA",811.8,186,100,829,0) + +"DATA",811.8,186,100,830,0) + +"DATA",811.8,186,100,831,0) + +"DATA",811.8,186,100,832,0) +HEALTH FACTORS +"DATA",811.8,186,100,833,0) +9999999.64 +"DATA",811.8,186,100,834,0) +STATUS-CURRENT EVERY DAY SMOKER (001) +"DATA",811.8,186,100,835,0) +50086 +"DATA",811.8,186,100,836,0) +2167765730 +"DATA",811.8,186,100,837,0) +NO +"DATA",811.8,186,100,838,0) + +"DATA",811.8,186,100,839,0) + +"DATA",811.8,186,100,846,0) + +"DATA",811.8,186,100,847,0) + +"DATA",811.8,186,100,848,0) + +"DATA",811.8,186,100,849,0) +HEALTH FACTORS +"DATA",811.8,186,100,850,0) +9999999.64 +"DATA",811.8,186,100,851,0) +110483000 +"DATA",811.8,186,100,852,0) +500244 +"DATA",811.8,186,100,853,0) +1262444182 +"DATA",811.8,186,100,854,0) +NO +"DATA",811.8,186,100,855,0) + +"DATA",811.8,186,100,856,0) + +"DATA",811.8,186,100,863,0) + +"DATA",811.8,186,100,864,0) + +"DATA",811.8,186,100,865,0) + +"DATA",811.8,186,100,866,0) +HEALTH FACTORS +"DATA",811.8,186,100,867,0) +9999999.64 +"DATA",811.8,186,100,868,0) +228504007 +"DATA",811.8,186,100,869,0) +500241 +"DATA",811.8,186,100,870,0) +3382870893 +"DATA",811.8,186,100,871,0) +NO +"DATA",811.8,186,100,872,0) + +"DATA",811.8,186,100,873,0) + +"DATA",811.8,186,100,880,0) + +"DATA",811.8,186,100,881,0) + +"DATA",811.8,186,100,882,0) + +"DATA",811.8,186,100,883,0) +HEALTH FACTORS +"DATA",811.8,186,100,884,0) +9999999.64 +"DATA",811.8,186,100,885,0) +228491005 +"DATA",811.8,186,100,886,0) +500248 +"DATA",811.8,186,100,887,0) +1154489745 +"DATA",811.8,186,100,888,0) +NO +"DATA",811.8,186,100,889,0) + +"DATA",811.8,186,100,890,0) + +"DATA",811.8,186,100,897,0) + +"DATA",811.8,186,100,898,0) + +"DATA",811.8,186,100,899,0) + +"DATA",811.8,186,100,900,0) +HEALTH FACTORS +"DATA",811.8,186,100,901,0) +9999999.64 +"DATA",811.8,186,100,902,0) +TOBACCO +"DATA",811.8,186,100,903,0) +6 +"DATA",811.8,186,100,904,0) +115169586 +"DATA",811.8,186,100,905,0) +NO +"DATA",811.8,186,100,906,0) + +"DATA",811.8,186,100,907,0) + +"DATA",811.8,186,100,913,0) + +"DATA",811.8,186,100,914,0) + +"DATA",811.8,186,100,915,0) + +"DATA",811.8,186,100,916,0) +HEALTH FACTORS +"DATA",811.8,186,100,917,0) +9999999.64 +"DATA",811.8,186,100,918,0) +CURRENT NON-SMOKER +"DATA",811.8,186,100,919,0) +3 +"DATA",811.8,186,100,920,0) +3595588701 +"DATA",811.8,186,100,921,0) +NO +"DATA",811.8,186,100,922,0) + +"DATA",811.8,186,100,923,0) + +"DATA",811.8,186,100,930,0) + +"DATA",811.8,186,100,931,0) + +"DATA",811.8,186,100,932,0) + +"DATA",811.8,186,100,933,0) +HEALTH FACTORS +"DATA",811.8,186,100,934,0) +9999999.64 +"DATA",811.8,186,100,935,0) +105539002 +"DATA",811.8,186,100,936,0) +500249 +"DATA",811.8,186,100,937,0) +3625812579 +"DATA",811.8,186,100,938,0) +NO +"DATA",811.8,186,100,939,0) + +"DATA",811.8,186,100,940,0) + +"DATA",811.8,186,100,947,0) + +"DATA",811.8,186,100,948,0) + +"DATA",811.8,186,100,949,0) + +"DATA",811.8,186,100,950,0) +HEALTH FACTORS +"DATA",811.8,186,100,951,0) +9999999.64 +"DATA",811.8,186,100,952,0) +Current every day smoker (001) +"DATA",811.8,186,100,953,0) +500313 +"DATA",811.8,186,100,954,0) +1195086142 +"DATA",811.8,186,100,955,0) +NO +"DATA",811.8,186,100,956,0) + +"DATA",811.8,186,100,957,0) + +"DATA",811.8,186,100,963,0) + +"DATA",811.8,186,100,964,0) + +"DATA",811.8,186,100,965,0) + +"DATA",811.8,186,100,966,0) +HEALTH FACTORS +"DATA",811.8,186,100,967,0) +9999999.64 +"DATA",811.8,186,100,968,0) +Current some day smoker +"DATA",811.8,186,100,969,0) +500312 +"DATA",811.8,186,100,970,0) +1765150394 +"DATA",811.8,186,100,971,0) +NO +"DATA",811.8,186,100,972,0) + +"DATA",811.8,186,100,973,0) + +"DATA",811.8,186,100,979,0) + +"DATA",811.8,186,100,980,0) + +"DATA",811.8,186,100,981,0) + +"DATA",811.8,186,100,982,0) +HEALTH FACTORS +"DATA",811.8,186,100,983,0) +9999999.64 +"DATA",811.8,186,100,984,0) +Former Smoker +"DATA",811.8,186,100,985,0) +500311 +"DATA",811.8,186,100,986,0) +2507883144 +"DATA",811.8,186,100,987,0) +NO +"DATA",811.8,186,100,988,0) + +"DATA",811.8,186,100,989,0) + +"DATA",811.8,186,100,995,0) + +"DATA",811.8,186,100,996,0) + +"DATA",811.8,186,100,997,0) + +"DATA",811.8,186,100,998,0) +HEALTH FACTORS +"DATA",811.8,186,100,999,0) +9999999.64 +"DATA",811.8,186,100,1000,0) +Never Smoker +"DATA",811.8,186,100,1001,0) +500310 +"DATA",811.8,186,100,1002,0) +2529046008 +"DATA",811.8,186,100,1003,0) +NO +"DATA",811.8,186,100,1004,0) + +"DATA",811.8,186,100,1005,0) + +"DATA",811.8,186,100,1011,0) + +"DATA",811.8,186,100,1012,0) + +"DATA",811.8,186,100,1013,0) + +"DATA",811.8,186,100,1014,0) +HEALTH FACTORS +"DATA",811.8,186,100,1015,0) +9999999.64 +"DATA",811.8,186,100,1016,0) +Smoker, current status unknown +"DATA",811.8,186,100,1017,0) +500309 +"DATA",811.8,186,100,1018,0) +2731822686 +"DATA",811.8,186,100,1019,0) +NO +"DATA",811.8,186,100,1020,0) + +"DATA",811.8,186,100,1021,0) + +"DATA",811.8,186,100,1027,0) + +"DATA",811.8,186,100,1028,0) + +"DATA",811.8,186,100,1029,0) + +"DATA",811.8,186,100,1030,0) +HEALTH FACTORS +"DATA",811.8,186,100,1031,0) +9999999.64 +"DATA",811.8,186,100,1032,0) +Unknown if ever smoked +"DATA",811.8,186,100,1033,0) +500308 +"DATA",811.8,186,100,1034,0) +2755264911 +"DATA",811.8,186,100,1035,0) +NO +"DATA",811.8,186,100,1036,0) + +"DATA",811.8,186,100,1037,0) + +"DATA",811.8,186,100,1043,0) + +"DATA",811.8,186,100,1044,0) + +"DATA",811.8,186,100,1045,0) + +"DATA",811.8,186,100,1046,0) +REMINDER TERM +"DATA",811.8,186,100,1047,0) +811.5 +"DATA",811.8,186,100,1048,0) +MU SMOKING STATUS HF +"DATA",811.8,186,100,1049,0) +526 +"DATA",811.8,186,100,1050,0) +354231296 +"DATA",811.8,186,100,1051,0) +NO +"DATA",811.8,186,100,1052,0) + +"DATA",811.8,186,100,1053,0) + +"DATA",811.8,186,100,1072,0) + +"DATA",811.8,186,100,1073,0) + +"DATA",811.8,186,100,1074,0) + +"DATA",811.8,186,100,1083,0) + +"DATA",811.8,186,100,1084,0) + +"DATA",811.8,186,100,1085,0) + +"DATA",811.8,186,100,1086,0) +REMINDER DEFINITION +"DATA",811.8,186,100,1087,0) +811.9 +"DATA",811.8,186,100,1088,0) +MU SMOKING STATUS +"DATA",811.8,186,100,1089,0) +141 +"DATA",811.8,186,100,1090,0) +2908374960 +"DATA",811.8,186,100,1091,0) +YES +"DATA",811.8,186,100,1092,0) + +"DATA",811.8,186,100,1093,0) + +"DATA",811.8,186,100,1135,0) + +"DATA",811.8,186,100,1136,0) + +"DATA",811.8,186,100,1137,0) + +"DATA",811.8,186,100,1142,0) + +"DATA",811.8,186,100,1143,0) + +"DATA",811.8,186,100,1144,0) + +"DATA",811.8,186,100,1145,0) +REMINDER DIALOG +"DATA",811.8,186,100,1146,0) +801.41 +"DATA",811.8,186,100,1147,0) +PXRM COMMENT +"DATA",811.8,186,100,1148,0) +1 +"DATA",811.8,186,100,1149,0) +3865933290 +"DATA",811.8,186,100,1150,0) +NO +"DATA",811.8,186,100,1151,0) + +"DATA",811.8,186,100,1152,0) + +"DATA",811.8,186,100,1162,0) + +"DATA",811.8,186,100,1163,0) + +"DATA",811.8,186,100,1164,0) + +"DATA",811.8,186,100,1167,0) + +"DATA",811.8,186,100,1168,0) + +"DATA",811.8,186,100,1169,0) + +"DATA",811.8,186,100,1170,0) +REMINDER DIALOG +"DATA",811.8,186,100,1171,0) +801.41 +"DATA",811.8,186,100,1172,0) +MU NQF0421 BMI CONSULT EL +"DATA",811.8,186,100,1173,0) +1480 +"DATA",811.8,186,100,1174,0) +2005952129 +"DATA",811.8,186,100,1175,0) +NO +"DATA",811.8,186,100,1176,0) + +"DATA",811.8,186,100,1177,0) + +"DATA",811.8,186,100,1192,0) + +"DATA",811.8,186,100,1193,0) + +"DATA",811.8,186,100,1194,0) + +"DATA",811.8,186,100,1198,0) + +"DATA",811.8,186,100,1199,0) + +"DATA",811.8,186,100,1200,0) + +"DATA",811.8,186,100,1201,0) +REMINDER DIALOG +"DATA",811.8,186,100,1202,0) +801.41 +"DATA",811.8,186,100,1203,0) +MU NQF0421 BMI MANAGEMENT PLAN EL +"DATA",811.8,186,100,1204,0) +1479 +"DATA",811.8,186,100,1205,0) +577998201 +"DATA",811.8,186,100,1206,0) +NO +"DATA",811.8,186,100,1207,0) + +"DATA",811.8,186,100,1208,0) + +"DATA",811.8,186,100,1223,0) + +"DATA",811.8,186,100,1224,0) + +"DATA",811.8,186,100,1225,0) + +"DATA",811.8,186,100,1229,0) + +"DATA",811.8,186,100,1230,0) + +"DATA",811.8,186,100,1231,0) + +"DATA",811.8,186,100,1232,0) +REMINDER DIALOG +"DATA",811.8,186,100,1233,0) +801.41 +"DATA",811.8,186,100,1234,0) +MU NQF0421 BMI MANAGEMENT GP +"DATA",811.8,186,100,1235,0) +1484 +"DATA",811.8,186,100,1236,0) +1780881735 +"DATA",811.8,186,100,1237,0) +NO +"DATA",811.8,186,100,1238,0) + +"DATA",811.8,186,100,1239,0) + +"DATA",811.8,186,100,1259,0) + +"DATA",811.8,186,100,1260,0) + +"DATA",811.8,186,100,1261,0) + +"DATA",811.8,186,100,1266,0) + +"DATA",811.8,186,100,1267,0) + +"DATA",811.8,186,100,1268,0) + +"DATA",811.8,186,100,1269,0) +REMINDER DIALOG +"DATA",811.8,186,100,1270,0) +801.41 +"DATA",811.8,186,100,1271,0) +MU NQF0421 BMI DI +"DATA",811.8,186,100,1272,0) +1485 +"DATA",811.8,186,100,1273,0) +2424330335 +"DATA",811.8,186,100,1274,0) +YES +"DATA",811.8,186,100,1275,0) + +"DATA",811.8,186,100,1276,0) + +"DATA",811.8,186,100,1286,0) + +"DATA",811.8,186,100,1287,0) + +"DATA",811.8,186,100,1288,0) + +"DATA",811.8,186,100,1292,0) + +"DATA",811.8,186,100,1293,0) + +"DATA",811.8,186,100,1294,0) + +"DATA",811.8,186,100,1295,0) +REMINDER DIALOG +"DATA",811.8,186,100,1296,0) +801.41 +"DATA",811.8,186,100,1297,0) +PXRM OUTSIDE LOCATION +"DATA",811.8,186,100,1298,0) +41 +"DATA",811.8,186,100,1299,0) +3464040608 +"DATA",811.8,186,100,1300,0) +NO +"DATA",811.8,186,100,1301,0) + +"DATA",811.8,186,100,1302,0) + +"DATA",811.8,186,100,1312,0) + +"DATA",811.8,186,100,1313,0) + +"DATA",811.8,186,100,1314,0) + +"DATA",811.8,186,100,1317,0) + +"DATA",811.8,186,100,1318,0) + +"DATA",811.8,186,100,1319,0) + +"DATA",811.8,186,100,1320,0) +REMINDER DIALOG +"DATA",811.8,186,100,1321,0) +801.41 +"DATA",811.8,186,100,1322,0) +PXRM VISIT DATE +"DATA",811.8,186,100,1323,0) +40 +"DATA",811.8,186,100,1324,0) +4262247822 +"DATA",811.8,186,100,1325,0) +NO +"DATA",811.8,186,100,1326,0) + +"DATA",811.8,186,100,1327,0) + +"DATA",811.8,186,100,1337,0) + +"DATA",811.8,186,100,1338,0) + +"DATA",811.8,186,100,1339,0) + +"DATA",811.8,186,100,1342,0) + +"DATA",811.8,186,100,1343,0) + +"DATA",811.8,186,100,1344,0) + +"DATA",811.8,186,100,1345,0) +REMINDER DIALOG +"DATA",811.8,186,100,1346,0) +801.41 +"DATA",811.8,186,100,1347,0) +MU NQF0041 FLU HISTORICAL EL +"DATA",811.8,186,100,1348,0) +1450 +"DATA",811.8,186,100,1349,0) +2432108423 +"DATA",811.8,186,100,1350,0) +NO +"DATA",811.8,186,100,1351,0) + +"DATA",811.8,186,100,1352,0) + +"DATA",811.8,186,100,1368,0) + +"DATA",811.8,186,100,1369,0) + +"DATA",811.8,186,100,1370,0) + +"DATA",811.8,186,100,1375,0) + +"DATA",811.8,186,100,1376,0) + +"DATA",811.8,186,100,1377,0) + +"DATA",811.8,186,100,1378,0) +REMINDER DIALOG +"DATA",811.8,186,100,1379,0) +801.41 +"DATA",811.8,186,100,1380,0) +MU NQF0041 FLU VACCINE GP +"DATA",811.8,186,100,1381,0) +1451 +"DATA",811.8,186,100,1382,0) +962180506 +"DATA",811.8,186,100,1383,0) +NO +"DATA",811.8,186,100,1384,0) + +"DATA",811.8,186,100,1385,0) + +"DATA",811.8,186,100,1403,0) + +"DATA",811.8,186,100,1404,0) + +"DATA",811.8,186,100,1405,0) + +"DATA",811.8,186,100,1409,0) + +"DATA",811.8,186,100,1410,0) + +"DATA",811.8,186,100,1411,0) + +"DATA",811.8,186,100,1412,0) +REMINDER DIALOG +"DATA",811.8,186,100,1413,0) +801.41 +"DATA",811.8,186,100,1414,0) +MU NQF0041 INFLUENZA MANAGEMENT DI +"DATA",811.8,186,100,1415,0) +1452 +"DATA",811.8,186,100,1416,0) +1870663257 +"DATA",811.8,186,100,1417,0) +YES +"DATA",811.8,186,100,1418,0) + +"DATA",811.8,186,100,1419,0) + +"DATA",811.8,186,100,1429,0) + +"DATA",811.8,186,100,1430,0) + +"DATA",811.8,186,100,1431,0) + +"DATA",811.8,186,100,1435,0) + +"DATA",811.8,186,100,1436,0) + +"DATA",811.8,186,100,1437,0) + +"DATA",811.8,186,100,1438,0) +REMINDER DIALOG +"DATA",811.8,186,100,1439,0) +801.41 +"DATA",811.8,186,100,1440,0) +MU NQF0038 FLU2 EL +"DATA",811.8,186,100,1441,0) +1402 +"DATA",811.8,186,100,1442,0) +419511143 +"DATA",811.8,186,100,1443,0) +NO +"DATA",811.8,186,100,1444,0) + +"DATA",811.8,186,100,1445,0) + +"DATA",811.8,186,100,1461,0) + +"DATA",811.8,186,100,1462,0) + +"DATA",811.8,186,100,1463,0) + +"DATA",811.8,186,100,1468,0) + +"DATA",811.8,186,100,1469,0) + +"DATA",811.8,186,100,1470,0) + +"DATA",811.8,186,100,1471,0) +REMINDER DIALOG +"DATA",811.8,186,100,1472,0) +801.41 +"DATA",811.8,186,100,1473,0) +MU NQF0038 FLU1 EL +"DATA",811.8,186,100,1474,0) +1401 +"DATA",811.8,186,100,1475,0) +2550034907 +"DATA",811.8,186,100,1476,0) +NO +"DATA",811.8,186,100,1477,0) + +"DATA",811.8,186,100,1478,0) + +"DATA",811.8,186,100,1494,0) + +"DATA",811.8,186,100,1495,0) + +"DATA",811.8,186,100,1496,0) + +"DATA",811.8,186,100,1501,0) + +"DATA",811.8,186,100,1502,0) + +"DATA",811.8,186,100,1503,0) + +"DATA",811.8,186,100,1504,0) +REMINDER DIALOG +"DATA",811.8,186,100,1505,0) +801.41 +"DATA",811.8,186,100,1506,0) +MU NQF0038 FLU GP +"DATA",811.8,186,100,1507,0) +1411 +"DATA",811.8,186,100,1508,0) +166417031 +"DATA",811.8,186,100,1509,0) +NO +"DATA",811.8,186,100,1510,0) + +"DATA",811.8,186,100,1511,0) + +"DATA",811.8,186,100,1531,0) + +"DATA",811.8,186,100,1532,0) + +"DATA",811.8,186,100,1533,0) + +"DATA",811.8,186,100,1538,0) + +"DATA",811.8,186,100,1539,0) + +"DATA",811.8,186,100,1540,0) + +"DATA",811.8,186,100,1541,0) +REMINDER DIALOG +"DATA",811.8,186,100,1542,0) +801.41 +"DATA",811.8,186,100,1543,0) +MU NQF0038 RV3 EL +"DATA",811.8,186,100,1544,0) +1400 +"DATA",811.8,186,100,1545,0) +112343765 +"DATA",811.8,186,100,1546,0) +NO +"DATA",811.8,186,100,1547,0) + +"DATA",811.8,186,100,1548,0) + +"DATA",811.8,186,100,1564,0) + +"DATA",811.8,186,100,1565,0) + +"DATA",811.8,186,100,1566,0) + +"DATA",811.8,186,100,1571,0) + +"DATA",811.8,186,100,1572,0) + +"DATA",811.8,186,100,1573,0) + +"DATA",811.8,186,100,1574,0) +REMINDER DIALOG +"DATA",811.8,186,100,1575,0) +801.41 +"DATA",811.8,186,100,1576,0) +MU NQF0038 RV2 EL +"DATA",811.8,186,100,1577,0) +1399 +"DATA",811.8,186,100,1578,0) +415787886 +"DATA",811.8,186,100,1579,0) +NO +"DATA",811.8,186,100,1580,0) + +"DATA",811.8,186,100,1581,0) + +"DATA",811.8,186,100,1597,0) + +"DATA",811.8,186,100,1598,0) + +"DATA",811.8,186,100,1599,0) + +"DATA",811.8,186,100,1604,0) + +"DATA",811.8,186,100,1605,0) + +"DATA",811.8,186,100,1606,0) + +"DATA",811.8,186,100,1607,0) +REMINDER DIALOG +"DATA",811.8,186,100,1608,0) +801.41 +"DATA",811.8,186,100,1609,0) +MU NQF0038 RV1 EL +"DATA",811.8,186,100,1610,0) +1398 +"DATA",811.8,186,100,1611,0) +847130142 +"DATA",811.8,186,100,1612,0) +NO +"DATA",811.8,186,100,1613,0) + +"DATA",811.8,186,100,1614,0) + +"DATA",811.8,186,100,1630,0) + +"DATA",811.8,186,100,1631,0) + +"DATA",811.8,186,100,1632,0) + +"DATA",811.8,186,100,1637,0) + +"DATA",811.8,186,100,1638,0) + +"DATA",811.8,186,100,1639,0) + +"DATA",811.8,186,100,1640,0) +REMINDER DIALOG +"DATA",811.8,186,100,1641,0) +801.41 +"DATA",811.8,186,100,1642,0) +MU NQF0038 RV GP +"DATA",811.8,186,100,1643,0) +1410 +"DATA",811.8,186,100,1644,0) +2593768613 +"DATA",811.8,186,100,1645,0) +NO +"DATA",811.8,186,100,1646,0) + +"DATA",811.8,186,100,1647,0) + +"DATA",811.8,186,100,1669,0) + +"DATA",811.8,186,100,1670,0) + +"DATA",811.8,186,100,1671,0) + +"DATA",811.8,186,100,1677,0) + +"DATA",811.8,186,100,1678,0) + +"DATA",811.8,186,100,1679,0) + +"DATA",811.8,186,100,1680,0) +REMINDER DIALOG +"DATA",811.8,186,100,1681,0) +801.41 +"DATA",811.8,186,100,1682,0) +MU NQF0038 HEP A3 EL +"DATA",811.8,186,100,1683,0) +1397 +"DATA",811.8,186,100,1684,0) +661866771 +"DATA",811.8,186,100,1685,0) +NO +"DATA",811.8,186,100,1686,0) + +"DATA",811.8,186,100,1687,0) + +"DATA",811.8,186,100,1703,0) + +"DATA",811.8,186,100,1704,0) + +"DATA",811.8,186,100,1705,0) + +"DATA",811.8,186,100,1710,0) + +"DATA",811.8,186,100,1711,0) + +"DATA",811.8,186,100,1712,0) + +"DATA",811.8,186,100,1713,0) +REMINDER DIALOG +"DATA",811.8,186,100,1714,0) +801.41 +"DATA",811.8,186,100,1715,0) +MU NQF0038 HEP A2 EL +"DATA",811.8,186,100,1716,0) +1396 +"DATA",811.8,186,100,1717,0) +1182701722 +"DATA",811.8,186,100,1718,0) +NO +"DATA",811.8,186,100,1719,0) + +"DATA",811.8,186,100,1720,0) + +"DATA",811.8,186,100,1736,0) + +"DATA",811.8,186,100,1737,0) + +"DATA",811.8,186,100,1738,0) + +"DATA",811.8,186,100,1743,0) + +"DATA",811.8,186,100,1744,0) + +"DATA",811.8,186,100,1745,0) + +"DATA",811.8,186,100,1746,0) +REMINDER DIALOG +"DATA",811.8,186,100,1747,0) +801.41 +"DATA",811.8,186,100,1748,0) +MU NQF0038 HEP A1 EL +"DATA",811.8,186,100,1749,0) +1395 +"DATA",811.8,186,100,1750,0) +2455707917 +"DATA",811.8,186,100,1751,0) +NO +"DATA",811.8,186,100,1752,0) + +"DATA",811.8,186,100,1753,0) + +"DATA",811.8,186,100,1769,0) + +"DATA",811.8,186,100,1770,0) + +"DATA",811.8,186,100,1771,0) + +"DATA",811.8,186,100,1776,0) + +"DATA",811.8,186,100,1777,0) + +"DATA",811.8,186,100,1778,0) + +"DATA",811.8,186,100,1779,0) +REMINDER DIALOG +"DATA",811.8,186,100,1780,0) +801.41 +"DATA",811.8,186,100,1781,0) +MU NQF0038 HEP A GP +"DATA",811.8,186,100,1782,0) +1409 +"DATA",811.8,186,100,1783,0) +2279175535 +"DATA",811.8,186,100,1784,0) +NO +"DATA",811.8,186,100,1785,0) + +"DATA",811.8,186,100,1786,0) + +"DATA",811.8,186,100,1808,0) + +"DATA",811.8,186,100,1809,0) + +"DATA",811.8,186,100,1810,0) + +"DATA",811.8,186,100,1816,0) + +"DATA",811.8,186,100,1817,0) + +"DATA",811.8,186,100,1818,0) + +"DATA",811.8,186,100,1819,0) +REMINDER DIALOG +"DATA",811.8,186,100,1820,0) +801.41 +"DATA",811.8,186,100,1821,0) +MU NQF0038 PCV5 EL +"DATA",811.8,186,100,1822,0) +1394 +"DATA",811.8,186,100,1823,0) +3178056935 +"DATA",811.8,186,100,1824,0) +NO +"DATA",811.8,186,100,1825,0) + +"DATA",811.8,186,100,1826,0) + +"DATA",811.8,186,100,1842,0) + +"DATA",811.8,186,100,1843,0) + +"DATA",811.8,186,100,1844,0) + +"DATA",811.8,186,100,1849,0) + +"DATA",811.8,186,100,1850,0) + +"DATA",811.8,186,100,1851,0) + +"DATA",811.8,186,100,1852,0) +REMINDER DIALOG +"DATA",811.8,186,100,1853,0) +801.41 +"DATA",811.8,186,100,1854,0) +MU NQF0038 PCV4 EL +"DATA",811.8,186,100,1855,0) +1393 +"DATA",811.8,186,100,1856,0) +717062598 +"DATA",811.8,186,100,1857,0) +NO +"DATA",811.8,186,100,1858,0) + +"DATA",811.8,186,100,1859,0) + +"DATA",811.8,186,100,1875,0) + +"DATA",811.8,186,100,1876,0) + +"DATA",811.8,186,100,1877,0) + +"DATA",811.8,186,100,1882,0) + +"DATA",811.8,186,100,1883,0) + +"DATA",811.8,186,100,1884,0) + +"DATA",811.8,186,100,1885,0) +REMINDER DIALOG +"DATA",811.8,186,100,1886,0) +801.41 +"DATA",811.8,186,100,1887,0) +MU NQF0038 PCV3 EL +"DATA",811.8,186,100,1888,0) +1392 +"DATA",811.8,186,100,1889,0) +2070802083 +"DATA",811.8,186,100,1890,0) +NO +"DATA",811.8,186,100,1891,0) + +"DATA",811.8,186,100,1892,0) + +"DATA",811.8,186,100,1908,0) + +"DATA",811.8,186,100,1909,0) + +"DATA",811.8,186,100,1910,0) + +"DATA",811.8,186,100,1915,0) + +"DATA",811.8,186,100,1916,0) + +"DATA",811.8,186,100,1917,0) + +"DATA",811.8,186,100,1918,0) +REMINDER DIALOG +"DATA",811.8,186,100,1919,0) +801.41 +"DATA",811.8,186,100,1920,0) +MU NQF0038 PCV2 EL +"DATA",811.8,186,100,1921,0) +1391 +"DATA",811.8,186,100,1922,0) +3971818370 +"DATA",811.8,186,100,1923,0) +NO +"DATA",811.8,186,100,1924,0) + +"DATA",811.8,186,100,1925,0) + +"DATA",811.8,186,100,1941,0) + +"DATA",811.8,186,100,1942,0) + +"DATA",811.8,186,100,1943,0) + +"DATA",811.8,186,100,1948,0) + +"DATA",811.8,186,100,1949,0) + +"DATA",811.8,186,100,1950,0) + +"DATA",811.8,186,100,1951,0) +REMINDER DIALOG +"DATA",811.8,186,100,1952,0) +801.41 +"DATA",811.8,186,100,1953,0) +MU NQF0038 PCV1 EL +"DATA",811.8,186,100,1954,0) +1390 +"DATA",811.8,186,100,1955,0) +2411557536 +"DATA",811.8,186,100,1956,0) +NO +"DATA",811.8,186,100,1957,0) + +"DATA",811.8,186,100,1958,0) + +"DATA",811.8,186,100,1974,0) + +"DATA",811.8,186,100,1975,0) + +"DATA",811.8,186,100,1976,0) + +"DATA",811.8,186,100,1981,0) + +"DATA",811.8,186,100,1982,0) + +"DATA",811.8,186,100,1983,0) + +"DATA",811.8,186,100,1984,0) +REMINDER DIALOG +"DATA",811.8,186,100,1985,0) +801.41 +"DATA",811.8,186,100,1986,0) +MU NQF0038 PCV GP +"DATA",811.8,186,100,1987,0) +1408 +"DATA",811.8,186,100,1988,0) +3811209231 +"DATA",811.8,186,100,1989,0) +NO +"DATA",811.8,186,100,1990,0) + +"DATA",811.8,186,100,1991,0) + +"DATA",811.8,186,100,2017,0) + +"DATA",811.8,186,100,2018,0) + +"DATA",811.8,186,100,2019,0) + +"DATA",811.8,186,100,2027,0) + +"DATA",811.8,186,100,2028,0) + +"DATA",811.8,186,100,2029,0) + +"DATA",811.8,186,100,2030,0) +REMINDER DIALOG +"DATA",811.8,186,100,2031,0) +801.41 +"DATA",811.8,186,100,2032,0) +MU NQF0038 VZV1 EL +"DATA",811.8,186,100,2033,0) +1389 +"DATA",811.8,186,100,2034,0) +3911058109 +"DATA",811.8,186,100,2035,0) +NO +"DATA",811.8,186,100,2036,0) + +"DATA",811.8,186,100,2037,0) + +"DATA",811.8,186,100,2053,0) + +"DATA",811.8,186,100,2054,0) + +"DATA",811.8,186,100,2055,0) + +"DATA",811.8,186,100,2060,0) + +"DATA",811.8,186,100,2061,0) + +"DATA",811.8,186,100,2062,0) + +"DATA",811.8,186,100,2063,0) +REMINDER DIALOG +"DATA",811.8,186,100,2064,0) +801.41 +"DATA",811.8,186,100,2065,0) +MU NQF0038 VZV GP +"DATA",811.8,186,100,2066,0) +1407 +"DATA",811.8,186,100,2067,0) +2551547664 +"DATA",811.8,186,100,2068,0) +NO +"DATA",811.8,186,100,2069,0) + +"DATA",811.8,186,100,2070,0) + +"DATA",811.8,186,100,2088,0) + +"DATA",811.8,186,100,2089,0) + +"DATA",811.8,186,100,2090,0) + +"DATA",811.8,186,100,2094,0) + +"DATA",811.8,186,100,2095,0) + +"DATA",811.8,186,100,2096,0) + +"DATA",811.8,186,100,2097,0) +REMINDER DIALOG +"DATA",811.8,186,100,2098,0) +801.41 +"DATA",811.8,186,100,2099,0) +MU NQF0038 HEP B4 EL +"DATA",811.8,186,100,2100,0) +1388 +"DATA",811.8,186,100,2101,0) +3505875640 +"DATA",811.8,186,100,2102,0) +NO +"DATA",811.8,186,100,2103,0) + +"DATA",811.8,186,100,2104,0) + +"DATA",811.8,186,100,2120,0) + +"DATA",811.8,186,100,2121,0) + +"DATA",811.8,186,100,2122,0) + +"DATA",811.8,186,100,2127,0) + +"DATA",811.8,186,100,2128,0) + +"DATA",811.8,186,100,2129,0) + +"DATA",811.8,186,100,2130,0) +REMINDER DIALOG +"DATA",811.8,186,100,2131,0) +801.41 +"DATA",811.8,186,100,2132,0) +MU NQF0038 HEP B3 EL +"DATA",811.8,186,100,2133,0) +1385 +"DATA",811.8,186,100,2134,0) +2766062682 +"DATA",811.8,186,100,2135,0) +NO +"DATA",811.8,186,100,2136,0) + +"DATA",811.8,186,100,2137,0) + +"DATA",811.8,186,100,2153,0) + +"DATA",811.8,186,100,2154,0) + +"DATA",811.8,186,100,2155,0) + +"DATA",811.8,186,100,2160,0) + +"DATA",811.8,186,100,2161,0) + +"DATA",811.8,186,100,2162,0) + +"DATA",811.8,186,100,2163,0) +REMINDER DIALOG +"DATA",811.8,186,100,2164,0) +801.41 +"DATA",811.8,186,100,2165,0) +MU NQF0038 HEP B2 EL +"DATA",811.8,186,100,2166,0) +1384 +"DATA",811.8,186,100,2167,0) +3275876181 +"DATA",811.8,186,100,2168,0) +NO +"DATA",811.8,186,100,2169,0) + +"DATA",811.8,186,100,2170,0) + +"DATA",811.8,186,100,2186,0) + +"DATA",811.8,186,100,2187,0) + +"DATA",811.8,186,100,2188,0) + +"DATA",811.8,186,100,2193,0) + +"DATA",811.8,186,100,2194,0) + +"DATA",811.8,186,100,2195,0) + +"DATA",811.8,186,100,2196,0) +REMINDER DIALOG +"DATA",811.8,186,100,2197,0) +801.41 +"DATA",811.8,186,100,2198,0) +MU NQF0038 HEP B1 EL +"DATA",811.8,186,100,2199,0) +1383 +"DATA",811.8,186,100,2200,0) +1809875524 +"DATA",811.8,186,100,2201,0) +NO +"DATA",811.8,186,100,2202,0) + +"DATA",811.8,186,100,2203,0) + +"DATA",811.8,186,100,2219,0) + +"DATA",811.8,186,100,2220,0) + +"DATA",811.8,186,100,2221,0) + +"DATA",811.8,186,100,2226,0) + +"DATA",811.8,186,100,2227,0) + +"DATA",811.8,186,100,2228,0) + +"DATA",811.8,186,100,2229,0) +REMINDER DIALOG +"DATA",811.8,186,100,2230,0) +801.41 +"DATA",811.8,186,100,2231,0) +MU NQF0038 HEP B GP +"DATA",811.8,186,100,2232,0) +1406 +"DATA",811.8,186,100,2233,0) +3955023894 +"DATA",811.8,186,100,2234,0) +NO +"DATA",811.8,186,100,2235,0) + +"DATA",811.8,186,100,2236,0) + +"DATA",811.8,186,100,2260,0) + +"DATA",811.8,186,100,2261,0) + +"DATA",811.8,186,100,2262,0) + +"DATA",811.8,186,100,2269,0) + +"DATA",811.8,186,100,2270,0) + +"DATA",811.8,186,100,2271,0) + +"DATA",811.8,186,100,2272,0) +REMINDER DIALOG +"DATA",811.8,186,100,2273,0) +801.41 +"DATA",811.8,186,100,2274,0) +MU NQF0038 HIB4 EL +"DATA",811.8,186,100,2275,0) +1382 +"DATA",811.8,186,100,2276,0) +187967711 +"DATA",811.8,186,100,2277,0) +NO +"DATA",811.8,186,100,2278,0) + +"DATA",811.8,186,100,2279,0) + +"DATA",811.8,186,100,2295,0) + +"DATA",811.8,186,100,2296,0) + +"DATA",811.8,186,100,2297,0) + +"DATA",811.8,186,100,2302,0) + +"DATA",811.8,186,100,2303,0) + +"DATA",811.8,186,100,2304,0) + +"DATA",811.8,186,100,2305,0) +REMINDER DIALOG +"DATA",811.8,186,100,2306,0) +801.41 +"DATA",811.8,186,100,2307,0) +MU NQF0038 HIB3 EL +"DATA",811.8,186,100,2308,0) +1381 +"DATA",811.8,186,100,2309,0) +3423895982 +"DATA",811.8,186,100,2310,0) +NO +"DATA",811.8,186,100,2311,0) + +"DATA",811.8,186,100,2312,0) + +"DATA",811.8,186,100,2328,0) + +"DATA",811.8,186,100,2329,0) + +"DATA",811.8,186,100,2330,0) + +"DATA",811.8,186,100,2335,0) + +"DATA",811.8,186,100,2336,0) + +"DATA",811.8,186,100,2337,0) + +"DATA",811.8,186,100,2338,0) +REMINDER DIALOG +"DATA",811.8,186,100,2339,0) +801.41 +"DATA",811.8,186,100,2340,0) +MU NQF0038 HIB2 EL +"DATA",811.8,186,100,2341,0) +1380 +"DATA",811.8,186,100,2342,0) +3769619557 +"DATA",811.8,186,100,2343,0) +NO +"DATA",811.8,186,100,2344,0) + +"DATA",811.8,186,100,2345,0) + +"DATA",811.8,186,100,2361,0) + +"DATA",811.8,186,100,2362,0) + +"DATA",811.8,186,100,2363,0) + +"DATA",811.8,186,100,2368,0) + +"DATA",811.8,186,100,2369,0) + +"DATA",811.8,186,100,2370,0) + +"DATA",811.8,186,100,2371,0) +REMINDER DIALOG +"DATA",811.8,186,100,2372,0) +801.41 +"DATA",811.8,186,100,2373,0) +MU NQF0038 HIB1 EL +"DATA",811.8,186,100,2374,0) +1379 +"DATA",811.8,186,100,2375,0) +2506238520 +"DATA",811.8,186,100,2376,0) +NO +"DATA",811.8,186,100,2377,0) + +"DATA",811.8,186,100,2378,0) + +"DATA",811.8,186,100,2394,0) + +"DATA",811.8,186,100,2395,0) + +"DATA",811.8,186,100,2396,0) + +"DATA",811.8,186,100,2401,0) + +"DATA",811.8,186,100,2402,0) + +"DATA",811.8,186,100,2403,0) + +"DATA",811.8,186,100,2404,0) +REMINDER DIALOG +"DATA",811.8,186,100,2405,0) +801.41 +"DATA",811.8,186,100,2406,0) +MU NQF0038 HIB GP +"DATA",811.8,186,100,2407,0) +1405 +"DATA",811.8,186,100,2408,0) +2315251967 +"DATA",811.8,186,100,2409,0) +NO +"DATA",811.8,186,100,2410,0) + +"DATA",811.8,186,100,2411,0) + +"DATA",811.8,186,100,2435,0) + +"DATA",811.8,186,100,2436,0) + +"DATA",811.8,186,100,2437,0) + +"DATA",811.8,186,100,2444,0) + +"DATA",811.8,186,100,2445,0) + +"DATA",811.8,186,100,2446,0) + +"DATA",811.8,186,100,2447,0) +REMINDER DIALOG +"DATA",811.8,186,100,2448,0) +801.41 +"DATA",811.8,186,100,2449,0) +MU NQF0038 MMR2 EL +"DATA",811.8,186,100,2450,0) +1378 +"DATA",811.8,186,100,2451,0) +4086285654 +"DATA",811.8,186,100,2452,0) +NO +"DATA",811.8,186,100,2453,0) + +"DATA",811.8,186,100,2454,0) + +"DATA",811.8,186,100,2470,0) + +"DATA",811.8,186,100,2471,0) + +"DATA",811.8,186,100,2472,0) + +"DATA",811.8,186,100,2477,0) + +"DATA",811.8,186,100,2478,0) + +"DATA",811.8,186,100,2479,0) + +"DATA",811.8,186,100,2480,0) +REMINDER DIALOG +"DATA",811.8,186,100,2481,0) +801.41 +"DATA",811.8,186,100,2482,0) +MU NQF0038 MMR1 +"DATA",811.8,186,100,2483,0) +1377 +"DATA",811.8,186,100,2484,0) +313379732 +"DATA",811.8,186,100,2485,0) +NO +"DATA",811.8,186,100,2486,0) + +"DATA",811.8,186,100,2487,0) + +"DATA",811.8,186,100,2503,0) + +"DATA",811.8,186,100,2504,0) + +"DATA",811.8,186,100,2505,0) + +"DATA",811.8,186,100,2510,0) + +"DATA",811.8,186,100,2511,0) + +"DATA",811.8,186,100,2512,0) + +"DATA",811.8,186,100,2513,0) +REMINDER DIALOG +"DATA",811.8,186,100,2514,0) +801.41 +"DATA",811.8,186,100,2515,0) +MU NQF0038 MMR GP +"DATA",811.8,186,100,2516,0) +1404 +"DATA",811.8,186,100,2517,0) +1493135913 +"DATA",811.8,186,100,2518,0) +NO +"DATA",811.8,186,100,2519,0) + +"DATA",811.8,186,100,2520,0) + +"DATA",811.8,186,100,2540,0) + +"DATA",811.8,186,100,2541,0) + +"DATA",811.8,186,100,2542,0) + +"DATA",811.8,186,100,2547,0) + +"DATA",811.8,186,100,2548,0) + +"DATA",811.8,186,100,2549,0) + +"DATA",811.8,186,100,2550,0) +REMINDER DIALOG +"DATA",811.8,186,100,2551,0) +801.41 +"DATA",811.8,186,100,2552,0) +MU NQF0038 IVP1 EL +"DATA",811.8,186,100,2553,0) +1373 +"DATA",811.8,186,100,2554,0) +1672741597 +"DATA",811.8,186,100,2555,0) +NO +"DATA",811.8,186,100,2556,0) + +"DATA",811.8,186,100,2557,0) + +"DATA",811.8,186,100,2573,0) + +"DATA",811.8,186,100,2574,0) + +"DATA",811.8,186,100,2575,0) + +"DATA",811.8,186,100,2580,0) + +"DATA",811.8,186,100,2581,0) + +"DATA",811.8,186,100,2582,0) + +"DATA",811.8,186,100,2583,0) +REMINDER DIALOG +"DATA",811.8,186,100,2584,0) +801.41 +"DATA",811.8,186,100,2585,0) +MU NQF0038 IPV4 EL +"DATA",811.8,186,100,2586,0) +1376 +"DATA",811.8,186,100,2587,0) +3944118252 +"DATA",811.8,186,100,2588,0) +NO +"DATA",811.8,186,100,2589,0) + +"DATA",811.8,186,100,2590,0) + +"DATA",811.8,186,100,2606,0) + +"DATA",811.8,186,100,2607,0) + +"DATA",811.8,186,100,2608,0) + +"DATA",811.8,186,100,2613,0) + +"DATA",811.8,186,100,2614,0) + +"DATA",811.8,186,100,2615,0) + +"DATA",811.8,186,100,2616,0) +REMINDER DIALOG +"DATA",811.8,186,100,2617,0) +801.41 +"DATA",811.8,186,100,2618,0) +MU NQF0038 IPV3 EL +"DATA",811.8,186,100,2619,0) +1375 +"DATA",811.8,186,100,2620,0) +2705709091 +"DATA",811.8,186,100,2621,0) +NO +"DATA",811.8,186,100,2622,0) + +"DATA",811.8,186,100,2623,0) + +"DATA",811.8,186,100,2639,0) + +"DATA",811.8,186,100,2640,0) + +"DATA",811.8,186,100,2641,0) + +"DATA",811.8,186,100,2646,0) + +"DATA",811.8,186,100,2647,0) + +"DATA",811.8,186,100,2648,0) + +"DATA",811.8,186,100,2649,0) +REMINDER DIALOG +"DATA",811.8,186,100,2650,0) +801.41 +"DATA",811.8,186,100,2651,0) +MU NQF0038 IPV2 EL +"DATA",811.8,186,100,2652,0) +1374 +"DATA",811.8,186,100,2653,0) +3112406202 +"DATA",811.8,186,100,2654,0) +NO +"DATA",811.8,186,100,2655,0) + +"DATA",811.8,186,100,2656,0) + +"DATA",811.8,186,100,2672,0) + +"DATA",811.8,186,100,2673,0) + +"DATA",811.8,186,100,2674,0) + +"DATA",811.8,186,100,2679,0) + +"DATA",811.8,186,100,2680,0) + +"DATA",811.8,186,100,2681,0) + +"DATA",811.8,186,100,2682,0) +REMINDER DIALOG +"DATA",811.8,186,100,2683,0) +801.41 +"DATA",811.8,186,100,2684,0) +MU NQF0038 IPV GP +"DATA",811.8,186,100,2685,0) +1403 +"DATA",811.8,186,100,2686,0) +4213485728 +"DATA",811.8,186,100,2687,0) +NO +"DATA",811.8,186,100,2688,0) + +"DATA",811.8,186,100,2689,0) + +"DATA",811.8,186,100,2713,0) + +"DATA",811.8,186,100,2714,0) + +"DATA",811.8,186,100,2715,0) + +"DATA",811.8,186,100,2722,0) + +"DATA",811.8,186,100,2723,0) + +"DATA",811.8,186,100,2724,0) + +"DATA",811.8,186,100,2725,0) +REMINDER DIALOG +"DATA",811.8,186,100,2726,0) +801.41 +"DATA",811.8,186,100,2727,0) +MU NQF0038 DTAP5 EL +"DATA",811.8,186,100,2728,0) +1359 +"DATA",811.8,186,100,2729,0) +1724524081 +"DATA",811.8,186,100,2730,0) +NO +"DATA",811.8,186,100,2731,0) + +"DATA",811.8,186,100,2732,0) + +"DATA",811.8,186,100,2750,0) + +"DATA",811.8,186,100,2751,0) + +"DATA",811.8,186,100,2752,0) + +"DATA",811.8,186,100,2757,0) + +"DATA",811.8,186,100,2758,0) + +"DATA",811.8,186,100,2759,0) + +"DATA",811.8,186,100,2760,0) +REMINDER DIALOG +"DATA",811.8,186,100,2761,0) +801.41 +"DATA",811.8,186,100,2762,0) +MU NQF0038 DTAP4 EL +"DATA",811.8,186,100,2763,0) +1360 +"DATA",811.8,186,100,2764,0) +4030512640 +"DATA",811.8,186,100,2765,0) +NO +"DATA",811.8,186,100,2766,0) + +"DATA",811.8,186,100,2767,0) + +"DATA",811.8,186,100,2785,0) + +"DATA",811.8,186,100,2786,0) + +"DATA",811.8,186,100,2787,0) + +"DATA",811.8,186,100,2792,0) + +"DATA",811.8,186,100,2793,0) + +"DATA",811.8,186,100,2794,0) + +"DATA",811.8,186,100,2795,0) +REMINDER DIALOG +"DATA",811.8,186,100,2796,0) +801.41 +"DATA",811.8,186,100,2797,0) +MU NQF0038 DTAP3 EL +"DATA",811.8,186,100,2798,0) +1361 +"DATA",811.8,186,100,2799,0) +3822548426 +"DATA",811.8,186,100,2800,0) +NO +"DATA",811.8,186,100,2801,0) + +"DATA",811.8,186,100,2802,0) + +"DATA",811.8,186,100,2820,0) + +"DATA",811.8,186,100,2821,0) + +"DATA",811.8,186,100,2822,0) + +"DATA",811.8,186,100,2827,0) + +"DATA",811.8,186,100,2828,0) + +"DATA",811.8,186,100,2829,0) + +"DATA",811.8,186,100,2830,0) +REMINDER DIALOG +"DATA",811.8,186,100,2831,0) +801.41 +"DATA",811.8,186,100,2832,0) +MU NQF0038 DTAP2 EL +"DATA",811.8,186,100,2833,0) +1362 +"DATA",811.8,186,100,2834,0) +1479447632 +"DATA",811.8,186,100,2835,0) +NO +"DATA",811.8,186,100,2836,0) + +"DATA",811.8,186,100,2837,0) + +"DATA",811.8,186,100,2855,0) + +"DATA",811.8,186,100,2856,0) + +"DATA",811.8,186,100,2857,0) + +"DATA",811.8,186,100,2862,0) + +"DATA",811.8,186,100,2863,0) + +"DATA",811.8,186,100,2864,0) + +"DATA",811.8,186,100,2865,0) +REMINDER DIALOG +"DATA",811.8,186,100,2866,0) +801.41 +"DATA",811.8,186,100,2867,0) +MU NQF0038 DPT1 EL +"DATA",811.8,186,100,2868,0) +1363 +"DATA",811.8,186,100,2869,0) +2523543786 +"DATA",811.8,186,100,2870,0) +NO +"DATA",811.8,186,100,2871,0) + +"DATA",811.8,186,100,2872,0) + +"DATA",811.8,186,100,2890,0) + +"DATA",811.8,186,100,2891,0) + +"DATA",811.8,186,100,2892,0) + +"DATA",811.8,186,100,2897,0) + +"DATA",811.8,186,100,2898,0) + +"DATA",811.8,186,100,2899,0) + +"DATA",811.8,186,100,2900,0) +REMINDER DIALOG +"DATA",811.8,186,100,2901,0) +801.41 +"DATA",811.8,186,100,2902,0) +MU NQF0038 DTP MANAGE GP +"DATA",811.8,186,100,2903,0) +1365 +"DATA",811.8,186,100,2904,0) +4033267886 +"DATA",811.8,186,100,2905,0) +NO +"DATA",811.8,186,100,2906,0) + +"DATA",811.8,186,100,2907,0) + +"DATA",811.8,186,100,2933,0) + +"DATA",811.8,186,100,2934,0) + +"DATA",811.8,186,100,2935,0) + +"DATA",811.8,186,100,2943,0) + +"DATA",811.8,186,100,2944,0) + +"DATA",811.8,186,100,2945,0) + +"DATA",811.8,186,100,2946,0) +REMINDER DIALOG +"DATA",811.8,186,100,2947,0) +801.41 +"DATA",811.8,186,100,2948,0) +MU NQF0038 INFO EL +"DATA",811.8,186,100,2949,0) +1368 +"DATA",811.8,186,100,2950,0) +1740324661 +"DATA",811.8,186,100,2951,0) +NO +"DATA",811.8,186,100,2952,0) + +"DATA",811.8,186,100,2953,0) +41 DAYS APART THERE IS AN EXTRA DTaP DOSE (DTaP5) +"DATA",811.8,186,100,2973,0) +IN CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2974,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2975,0) +================================================ \\ +"DATA",811.8,186,100,2976,0) +IPV VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA IPV DOSE (IPV4) IN +"DATA",811.8,186,100,2977,0) +CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2978,0) +BAD VACCINE SPACING. \\ +"DATA",811.8,186,100,2979,0) +=============================================== \\ +"DATA",811.8,186,100,2980,0) +MMR REQUIRES ONLY ONE INJECTION UNLESS CONTRAINDATED. IF THE PATIENT IS +"DATA",811.8,186,100,2981,0) +ALLERGIC OR IMMUNE TO ONLY PART OF THE VACCINE (ei MEASLES), THEY SHOULD +"DATA",811.8,186,100,2982,0) +BE INNOCULATED WITH THE OTHER (ei RUBELLA, MUMPS) VACCINES +"DATA",811.8,186,100,2983,0) +=============================================== \\ +"DATA",811.8,186,100,2984,0) +HiB VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA HIB DOSE (HIB3) IN +"DATA",811.8,186,100,2985,0) +CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2986,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2987,0) +=============================================== \\ +"DATA",811.8,186,100,2988,0) +HEP B HAS AN EXTRA DOSE (HEP4) FOR BAD SPACING OR COMBINATION EFFECTS +"DATA",811.8,186,100,2989,0) +=============================================== \\ +"DATA",811.8,186,100,2990,0) +PCV VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA PCV DOSE (PCV5) IN +"DATA",811.8,186,100,2991,0) +CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2992,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2993,0) +=============================================== \\ +"DATA",811.8,186,100,2994,0) +ROTAVIRUS VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA RV DOSE (RV3) +"DATA",811.8,186,100,2995,0) +IN CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2996,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2997,0) +801.41;+1368,;100~LOCAL +"DATA",811.8,186,100,2998,0) +801.44;+1369,+1368,;.01~08/01/2012@18:33 +"DATA",811.8,186,100,2999,0) +801.44;+1369,+1368,;2~WP-start~1 +"DATA",811.8,186,100,3000,0) +Exchange Stub +"DATA",811.8,186,100,3001,0) +]]> +"DATA",811.8,186,100,3002,0) + +"DATA",811.8,186,100,3003,0) + +"DATA",811.8,186,100,3004,0) + +"DATA",811.8,186,100,3007,0) + +"DATA",811.8,186,100,3008,0) + +"DATA",811.8,186,100,3009,0) + +"DATA",811.8,186,100,3010,0) +REMINDER DIALOG +"DATA",811.8,186,100,3011,0) +801.41 +"DATA",811.8,186,100,3012,0) +MU NQF0038 INFANT IMMUNE MANAGEMENT BANNER GP +"DATA",811.8,186,100,3013,0) +1369 +"DATA",811.8,186,100,3014,0) +3721096797 +"DATA",811.8,186,100,3015,0) +NO +"DATA",811.8,186,100,3016,0) + +"DATA",811.8,186,100,3017,0) + +"DATA",811.8,186,100,3038,0) + +"DATA",811.8,186,100,3039,0) + +"DATA",811.8,186,100,3040,0) + +"DATA",811.8,186,100,3045,0) + +"DATA",811.8,186,100,3046,0) + +"DATA",811.8,186,100,3047,0) + +"DATA",811.8,186,100,3048,0) +REMINDER DIALOG +"DATA",811.8,186,100,3049,0) +801.41 +"DATA",811.8,186,100,3050,0) +MU NQF0038 IMMUNE MANAGEMENT DI +"DATA",811.8,186,100,3051,0) +1371 +"DATA",811.8,186,100,3052,0) +880130429 +"DATA",811.8,186,100,3053,0) +YES +"DATA",811.8,186,100,3054,0) + +"DATA",811.8,186,100,3055,0) + +"DATA",811.8,186,100,3083,0) + +"DATA",811.8,186,100,3084,0) + +"DATA",811.8,186,100,3085,0) + +"DATA",811.8,186,100,3098,0) + +"DATA",811.8,186,100,3099,0) + +"DATA",811.8,186,100,3100,0) + +"DATA",811.8,186,100,3101,0) +REMINDER DIALOG +"DATA",811.8,186,100,3102,0) +801.41 +"DATA",811.8,186,100,3103,0) +MU NQF0028AB TOBACCO REFERRAL EL +"DATA",811.8,186,100,3104,0) +1294 +"DATA",811.8,186,100,3105,0) +2972586896 +"DATA",811.8,186,100,3106,0) +NO +"DATA",811.8,186,100,3107,0) + +"DATA",811.8,186,100,3108,0) + +"DATA",811.8,186,100,3124,0) + +"DATA",811.8,186,100,3125,0) + +"DATA",811.8,186,100,3126,0) + +"DATA",811.8,186,100,3130,0) + +"DATA",811.8,186,100,3131,0) + +"DATA",811.8,186,100,3132,0) + +"DATA",811.8,186,100,3133,0) +REMINDER DIALOG +"DATA",811.8,186,100,3134,0) +801.41 +"DATA",811.8,186,100,3135,0) +MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL +"DATA",811.8,186,100,3136,0) +1295 +"DATA",811.8,186,100,3137,0) +2086453962 +"DATA",811.8,186,100,3138,0) +NO +"DATA",811.8,186,100,3139,0) + +"DATA",811.8,186,100,3140,0) + +"DATA",811.8,186,100,3156,0) + +"DATA",811.8,186,100,3157,0) + +"DATA",811.8,186,100,3158,0) + +"DATA",811.8,186,100,3162,0) + +"DATA",811.8,186,100,3163,0) + +"DATA",811.8,186,100,3164,0) + +"DATA",811.8,186,100,3165,0) +REMINDER DIALOG +"DATA",811.8,186,100,3166,0) +801.41 +"DATA",811.8,186,100,3167,0) +MU NQF0028AB TOBACCO COUNSELING TODAY EL +"DATA",811.8,186,100,3168,0) +1296 +"DATA",811.8,186,100,3169,0) +1962310122 +"DATA",811.8,186,100,3170,0) +NO +"DATA",811.8,186,100,3171,0) + +"DATA",811.8,186,100,3172,0) + +"DATA",811.8,186,100,3188,0) + +"DATA",811.8,186,100,3189,0) + +"DATA",811.8,186,100,3190,0) + +"DATA",811.8,186,100,3194,0) + +"DATA",811.8,186,100,3195,0) + +"DATA",811.8,186,100,3196,0) + +"DATA",811.8,186,100,3197,0) +REMINDER DIALOG +"DATA",811.8,186,100,3198,0) +801.41 +"DATA",811.8,186,100,3199,0) +MU NQF0028B TOBACCO INTERVENTION GP +"DATA",811.8,186,100,3200,0) +1297 +"DATA",811.8,186,100,3201,0) +2142037628 +"DATA",811.8,186,100,3202,0) +NO +"DATA",811.8,186,100,3203,0) + +"DATA",811.8,186,100,3204,0) + +"DATA",811.8,186,100,3227,0) + +"DATA",811.8,186,100,3228,0) + +"DATA",811.8,186,100,3229,0) + +"DATA",811.8,186,100,3235,0) + +"DATA",811.8,186,100,3236,0) + +"DATA",811.8,186,100,3237,0) + +"DATA",811.8,186,100,3238,0) +REMINDER DIALOG +"DATA",811.8,186,100,3239,0) +801.41 +"DATA",811.8,186,100,3240,0) +PXRM ADD TO PROBLEM LIST +"DATA",811.8,186,100,3241,0) +89 +"DATA",811.8,186,100,3242,0) +2348131077 +"DATA",811.8,186,100,3243,0) +NO +"DATA",811.8,186,100,3244,0) + +"DATA",811.8,186,100,3245,0) + +"DATA",811.8,186,100,3257,0) + +"DATA",811.8,186,100,3258,0) + +"DATA",811.8,186,100,3259,0) + +"DATA",811.8,186,100,3262,0) + +"DATA",811.8,186,100,3263,0) + +"DATA",811.8,186,100,3264,0) + +"DATA",811.8,186,100,3265,0) +REMINDER DIALOG +"DATA",811.8,186,100,3266,0) +801.41 +"DATA",811.8,186,100,3267,0) +MU NQF0028 TOBACCO USE-ADD DX EL +"DATA",811.8,186,100,3268,0) +1292 +"DATA",811.8,186,100,3269,0) +673823130 +"DATA",811.8,186,100,3270,0) +NO +"DATA",811.8,186,100,3271,0) + +"DATA",811.8,186,100,3272,0) + +"DATA",811.8,186,100,3287,0) + +"DATA",811.8,186,100,3288,0) + +"DATA",811.8,186,100,3289,0) + +"DATA",811.8,186,100,3293,0) + +"DATA",811.8,186,100,3294,0) + +"DATA",811.8,186,100,3295,0) + +"DATA",811.8,186,100,3296,0) +REMINDER DIALOG +"DATA",811.8,186,100,3297,0) +801.41 +"DATA",811.8,186,100,3298,0) +MU NQF0028 ADD TO PL GP +"DATA",811.8,186,100,3299,0) +1293 +"DATA",811.8,186,100,3300,0) +1803861366 +"DATA",811.8,186,100,3301,0) +NO +"DATA",811.8,186,100,3302,0) + +"DATA",811.8,186,100,3303,0) + +"DATA",811.8,186,100,3321,0) + +"DATA",811.8,186,100,3322,0) + +"DATA",811.8,186,100,3323,0) + +"DATA",811.8,186,100,3327,0) + +"DATA",811.8,186,100,3328,0) + +"DATA",811.8,186,100,3329,0) + +"DATA",811.8,186,100,3330,0) +REMINDER DIALOG +"DATA",811.8,186,100,3331,0) +801.41 +"DATA",811.8,186,100,3332,0) +MU SMOKING STATUS UNK IF EVER EL +"DATA",811.8,186,100,3333,0) +1248 +"DATA",811.8,186,100,3334,0) +3655330662 +"DATA",811.8,186,100,3335,0) +NO +"DATA",811.8,186,100,3336,0) + +"DATA",811.8,186,100,3337,0) + +"DATA",811.8,186,100,3353,0) + +"DATA",811.8,186,100,3354,0) + +"DATA",811.8,186,100,3355,0) + +"DATA",811.8,186,100,3360,0) + +"DATA",811.8,186,100,3361,0) + +"DATA",811.8,186,100,3362,0) + +"DATA",811.8,186,100,3363,0) +REMINDER DIALOG +"DATA",811.8,186,100,3364,0) +801.41 +"DATA",811.8,186,100,3365,0) +MU SMOKING STATUS SMOKER-UNK EL +"DATA",811.8,186,100,3366,0) +1249 +"DATA",811.8,186,100,3367,0) +1746827854 +"DATA",811.8,186,100,3368,0) +NO +"DATA",811.8,186,100,3369,0) + +"DATA",811.8,186,100,3370,0) + +"DATA",811.8,186,100,3386,0) + +"DATA",811.8,186,100,3387,0) + +"DATA",811.8,186,100,3388,0) + +"DATA",811.8,186,100,3393,0) + +"DATA",811.8,186,100,3394,0) + +"DATA",811.8,186,100,3395,0) + +"DATA",811.8,186,100,3396,0) +REMINDER DIALOG +"DATA",811.8,186,100,3397,0) +801.41 +"DATA",811.8,186,100,3398,0) +MU SMOKING STATUS NEVER SMOKER EL +"DATA",811.8,186,100,3399,0) +1250 +"DATA",811.8,186,100,3400,0) +4227552971 +"DATA",811.8,186,100,3401,0) +NO +"DATA",811.8,186,100,3402,0) + +"DATA",811.8,186,100,3403,0) + +"DATA",811.8,186,100,3416,0) + +"DATA",811.8,186,100,3417,0) + +"DATA",811.8,186,100,3418,0) + +"DATA",811.8,186,100,3422,0) + +"DATA",811.8,186,100,3423,0) + +"DATA",811.8,186,100,3424,0) + +"DATA",811.8,186,100,3425,0) +REMINDER DIALOG +"DATA",811.8,186,100,3426,0) +801.41 +"DATA",811.8,186,100,3427,0) +MU SMOKING STATUS FORMER SMOKER EL +"DATA",811.8,186,100,3428,0) +1251 +"DATA",811.8,186,100,3429,0) +483251297 +"DATA",811.8,186,100,3430,0) +NO +"DATA",811.8,186,100,3431,0) + +"DATA",811.8,186,100,3432,0) + +"DATA",811.8,186,100,3448,0) + +"DATA",811.8,186,100,3449,0) + +"DATA",811.8,186,100,3450,0) + +"DATA",811.8,186,100,3455,0) + +"DATA",811.8,186,100,3456,0) + +"DATA",811.8,186,100,3457,0) + +"DATA",811.8,186,100,3458,0) +REMINDER DIALOG +"DATA",811.8,186,100,3459,0) +801.41 +"DATA",811.8,186,100,3460,0) +MU SMOKING STATUS CURRENT SOME DAY EL +"DATA",811.8,186,100,3461,0) +1252 +"DATA",811.8,186,100,3462,0) +2448043799 +"DATA",811.8,186,100,3463,0) +NO +"DATA",811.8,186,100,3464,0) + +"DATA",811.8,186,100,3465,0) + +"DATA",811.8,186,100,3481,0) + +"DATA",811.8,186,100,3482,0) + +"DATA",811.8,186,100,3483,0) + +"DATA",811.8,186,100,3488,0) + +"DATA",811.8,186,100,3489,0) + +"DATA",811.8,186,100,3490,0) + +"DATA",811.8,186,100,3491,0) +REMINDER DIALOG +"DATA",811.8,186,100,3492,0) +801.41 +"DATA",811.8,186,100,3493,0) +MU SMOKING STATUS CURRENT EVERY DAY EL +"DATA",811.8,186,100,3494,0) +1253 +"DATA",811.8,186,100,3495,0) +3886444348 +"DATA",811.8,186,100,3496,0) +NO +"DATA",811.8,186,100,3497,0) + +"DATA",811.8,186,100,3498,0) + +"DATA",811.8,186,100,3514,0) + +"DATA",811.8,186,100,3515,0) + +"DATA",811.8,186,100,3516,0) + +"DATA",811.8,186,100,3521,0) + +"DATA",811.8,186,100,3522,0) + +"DATA",811.8,186,100,3523,0) + +"DATA",811.8,186,100,3524,0) +REMINDER DIALOG +"DATA",811.8,186,100,3525,0) +801.41 +"DATA",811.8,186,100,3526,0) +MU SMOKING STATUS GP +"DATA",811.8,186,100,3527,0) +1254 +"DATA",811.8,186,100,3528,0) +3350863446 +"DATA",811.8,186,100,3529,0) +NO +"DATA",811.8,186,100,3530,0) + +"DATA",811.8,186,100,3531,0) + +"DATA",811.8,186,100,3559,0) + +"DATA",811.8,186,100,3560,0) + +"DATA",811.8,186,100,3561,0) + +"DATA",811.8,186,100,3570,0) + +"DATA",811.8,186,100,3571,0) + +"DATA",811.8,186,100,3572,0) + +"DATA",811.8,186,100,3573,0) +REMINDER DIALOG +"DATA",811.8,186,100,3574,0) +801.41 +"DATA",811.8,186,100,3575,0) +MU NQF0028 SMOKING POS GP +"DATA",811.8,186,100,3576,0) +1340 +"DATA",811.8,186,100,3577,0) +4036941733 +"DATA",811.8,186,100,3578,0) +NO +"DATA",811.8,186,100,3579,0) + +"DATA",811.8,186,100,3580,0) + +"DATA",811.8,186,100,3599,0) + +"DATA",811.8,186,100,3600,0) + +"DATA",811.8,186,100,3601,0) + +"DATA",811.8,186,100,3605,0) + +"DATA",811.8,186,100,3606,0) + +"DATA",811.8,186,100,3607,0) + +"DATA",811.8,186,100,3608,0) +REMINDER DIALOG +"DATA",811.8,186,100,3609,0) +801.41 +"DATA",811.8,186,100,3610,0) +MU NQF0028AB SMOKELESS TOBACCO POS SCREEN EL +"DATA",811.8,186,100,3611,0) +1298 +"DATA",811.8,186,100,3612,0) +148133109 +"DATA",811.8,186,100,3613,0) +NO +"DATA",811.8,186,100,3614,0) + +"DATA",811.8,186,100,3615,0) + +"DATA",811.8,186,100,3631,0) + +"DATA",811.8,186,100,3632,0) + +"DATA",811.8,186,100,3633,0) + +"DATA",811.8,186,100,3637,0) + +"DATA",811.8,186,100,3638,0) + +"DATA",811.8,186,100,3639,0) + +"DATA",811.8,186,100,3640,0) +REMINDER DIALOG +"DATA",811.8,186,100,3641,0) +801.41 +"DATA",811.8,186,100,3642,0) +MU NQF0028A TOBACCO USER GP +"DATA",811.8,186,100,3643,0) +1306 +"DATA",811.8,186,100,3644,0) +1821592942 +"DATA",811.8,186,100,3645,0) +NO +"DATA",811.8,186,100,3646,0) + +"DATA",811.8,186,100,3647,0) + +"DATA",811.8,186,100,3668,0) + +"DATA",811.8,186,100,3669,0) + +"DATA",811.8,186,100,3670,0) + +"DATA",811.8,186,100,3675,0) + +"DATA",811.8,186,100,3676,0) + +"DATA",811.8,186,100,3677,0) + +"DATA",811.8,186,100,3678,0) +REMINDER DIALOG +"DATA",811.8,186,100,3679,0) +801.41 +"DATA",811.8,186,100,3680,0) +MU NQF0028AB SMOKELESS TOBACCO NEGATIVE EL +"DATA",811.8,186,100,3681,0) +1307 +"DATA",811.8,186,100,3682,0) +4160261923 +"DATA",811.8,186,100,3683,0) +NO +"DATA",811.8,186,100,3684,0) + +"DATA",811.8,186,100,3685,0) + +"DATA",811.8,186,100,3701,0) + +"DATA",811.8,186,100,3702,0) + +"DATA",811.8,186,100,3703,0) + +"DATA",811.8,186,100,3707,0) + +"DATA",811.8,186,100,3708,0) + +"DATA",811.8,186,100,3709,0) + +"DATA",811.8,186,100,3710,0) +REMINDER DIALOG +"DATA",811.8,186,100,3711,0) +801.41 +"DATA",811.8,186,100,3712,0) +MU NQF0028AB NONSMOKER SCREEN EL +"DATA",811.8,186,100,3713,0) +1308 +"DATA",811.8,186,100,3714,0) +1818635542 +"DATA",811.8,186,100,3715,0) +NO +"DATA",811.8,186,100,3716,0) + +"DATA",811.8,186,100,3717,0) + +"DATA",811.8,186,100,3734,0) + +"DATA",811.8,186,100,3735,0) + +"DATA",811.8,186,100,3736,0) + +"DATA",811.8,186,100,3741,0) + +"DATA",811.8,186,100,3742,0) + +"DATA",811.8,186,100,3743,0) + +"DATA",811.8,186,100,3744,0) +REMINDER DIALOG +"DATA",811.8,186,100,3745,0) +801.41 +"DATA",811.8,186,100,3746,0) +MU NQF0028A TOBACCO NONUSER GP +"DATA",811.8,186,100,3747,0) +1309 +"DATA",811.8,186,100,3748,0) +1974809965 +"DATA",811.8,186,100,3749,0) +NO +"DATA",811.8,186,100,3750,0) + +"DATA",811.8,186,100,3751,0) + +"DATA",811.8,186,100,3772,0) + +"DATA",811.8,186,100,3773,0) + +"DATA",811.8,186,100,3774,0) + +"DATA",811.8,186,100,3779,0) + +"DATA",811.8,186,100,3780,0) + +"DATA",811.8,186,100,3781,0) + +"DATA",811.8,186,100,3782,0) +REMINDER DIALOG +"DATA",811.8,186,100,3783,0) +801.41 +"DATA",811.8,186,100,3784,0) +MU NQF0028A MANAGMENT SCREEN GP +"DATA",811.8,186,100,3785,0) +1310 +"DATA",811.8,186,100,3786,0) +1156352851 +"DATA",811.8,186,100,3787,0) +NO +"DATA",811.8,186,100,3788,0) + +"DATA",811.8,186,100,3789,0) + +"DATA",811.8,186,100,3810,0) + +"DATA",811.8,186,100,3811,0) + +"DATA",811.8,186,100,3812,0) + +"DATA",811.8,186,100,3817,0) + +"DATA",811.8,186,100,3818,0) + +"DATA",811.8,186,100,3819,0) + +"DATA",811.8,186,100,3820,0) +REMINDER DIALOG +"DATA",811.8,186,100,3821,0) +801.41 +"DATA",811.8,186,100,3822,0) +PQRI M0028 INFO EL +"DATA",811.8,186,100,3823,0) +1311 +"DATA",811.8,186,100,3824,0) +3674516686 +"DATA",811.8,186,100,3825,0) +NO +"DATA",811.8,186,100,3826,0) + +"DATA",811.8,186,100,3827,0) + +"DATA",811.8,186,100,3841,0) + +"DATA",811.8,186,100,3842,0) + +"DATA",811.8,186,100,3843,0) + +"DATA",811.8,186,100,3846,0) + +"DATA",811.8,186,100,3847,0) + +"DATA",811.8,186,100,3848,0) + +"DATA",811.8,186,100,3849,0) +REMINDER DIALOG +"DATA",811.8,186,100,3850,0) +801.41 +"DATA",811.8,186,100,3851,0) +PQRI M0028 INFO GP +"DATA",811.8,186,100,3852,0) +1312 +"DATA",811.8,186,100,3853,0) +306819832 +"DATA",811.8,186,100,3854,0) +NO +"DATA",811.8,186,100,3855,0) + +"DATA",811.8,186,100,3856,0) + +"DATA",811.8,186,100,3875,0) + +"DATA",811.8,186,100,3876,0) + +"DATA",811.8,186,100,3877,0) + +"DATA",811.8,186,100,3881,0) + +"DATA",811.8,186,100,3882,0) + +"DATA",811.8,186,100,3883,0) + +"DATA",811.8,186,100,3884,0) +REMINDER DIALOG +"DATA",811.8,186,100,3885,0) +801.41 +"DATA",811.8,186,100,3886,0) +MU NQF0028AB MANAGEMENT DI +"DATA",811.8,186,100,3887,0) +1313 +"DATA",811.8,186,100,3888,0) +1024904544 +"DATA",811.8,186,100,3889,0) +YES +"DATA",811.8,186,100,3890,0) + +"DATA",811.8,186,100,3891,0) + +"DATA",811.8,186,100,3909,0) + +"DATA",811.8,186,100,3910,0) + +"DATA",811.8,186,100,3911,0) + +"DATA",811.8,186,100,3919,0) + +"DATA",811.8,186,100,3920,0) + +"DATA",811.8,186,100,3921,0) + +"DATA",811.8,186,100,3922,0) +REMINDER DIALOG +"DATA",811.8,186,100,3923,0) +801.41 +"DATA",811.8,186,100,3924,0) +MU SMOKING STATUS HISTORY EL +"DATA",811.8,186,100,3925,0) +1255 +"DATA",811.8,186,100,3926,0) +1271676757 +"DATA",811.8,186,100,3927,0) +NO +"DATA",811.8,186,100,3928,0) + +"DATA",811.8,186,100,3929,0) + +"DATA",811.8,186,100,3940,0) + +"DATA",811.8,186,100,3941,0) + +"DATA",811.8,186,100,3942,0) + +"DATA",811.8,186,100,3945,0) + +"DATA",811.8,186,100,3946,0) + +"DATA",811.8,186,100,3947,0) + +"DATA",811.8,186,100,3948,0) +REMINDER DIALOG +"DATA",811.8,186,100,3949,0) +801.41 +"DATA",811.8,186,100,3950,0) +MU SMOKING STATUS HX GP +"DATA",811.8,186,100,3951,0) +1256 +"DATA",811.8,186,100,3952,0) +4187372097 +"DATA",811.8,186,100,3953,0) +NO +"DATA",811.8,186,100,3954,0) + +"DATA",811.8,186,100,3955,0) + +"DATA",811.8,186,100,3971,0) + +"DATA",811.8,186,100,3972,0) + +"DATA",811.8,186,100,3973,0) + +"DATA",811.8,186,100,3977,0) + +"DATA",811.8,186,100,3978,0) + +"DATA",811.8,186,100,3979,0) + +"DATA",811.8,186,100,3980,0) +REMINDER DIALOG +"DATA",811.8,186,100,3981,0) +801.41 +"DATA",811.8,186,100,3982,0) +MU SMOKING STATUS DI +"DATA",811.8,186,100,3983,0) +1257 +"DATA",811.8,186,100,3984,0) +3221423773 +"DATA",811.8,186,100,3985,0) +YES +"DATA",811.8,186,100,3986,0) + +"DATA",811.8,186,100,3987,0) + +"DATA",811.8,186,100,4000,0) + +"DATA",811.8,186,100,4001,0) + +"DATA",811.8,186,100,4002,0) + +"DATA",811.8,186,100,4007,0) + +"DATA",811.8,186,100,4008,0) + +"DATA",811.8,186,100,4009,0) + +"DATA",811.8,186,100,4010,0) +HEALTH SUMMARY COMPONENT +"DATA",811.8,186,100,4011,0) +142.1 +"DATA",811.8,186,100,4012,0) +PCE HEALTH FACTORS SELECTED +"DATA",811.8,186,100,4013,0) +203 +"DATA",811.8,186,100,4014,0) +1531877056 +"DATA",811.8,186,100,4015,0) +NO +"DATA",811.8,186,100,4016,0) + +"DATA",811.8,186,100,4017,0) + +"DATA",811.8,186,100,4020,0) + +"DATA",811.8,186,100,4021,0) + +"DATA",811.8,186,100,4022,0) + +"DATA",811.8,186,100,4023,0) +HEALTH SUMMARY TYPE +"DATA",811.8,186,100,4024,0) +142 +"DATA",811.8,186,100,4025,0) +MU SMOKING STATUS HS +"DATA",811.8,186,100,4026,0) +91 +"DATA",811.8,186,100,4027,0) +3831292420 +"DATA",811.8,186,100,4028,0) +YES +"DATA",811.8,186,100,4029,0) + +"DATA",811.8,186,100,4030,0) + +"DATA",811.8,186,100,4044,0) + +"DATA",811.8,186,100,4045,0) + +"DATA",811.8,186,100,4046,0) + +"DATA",811.8,186,100,4051,0) + +"DATA",811.8,186,100,4052,0) + +"DATA",811.8,186,100,4053,0) + +"DATA",811.8,186,100,4054,0) +HEALTH SUMMARY OBJECTS +"DATA",811.8,186,100,4055,0) +142.5 +"DATA",811.8,186,100,4056,0) +MU SMOKING STATUS (TIU) +"DATA",811.8,186,100,4057,0) +500014 +"DATA",811.8,186,100,4058,0) +1121929719 +"DATA",811.8,186,100,4059,0) +YES +"DATA",811.8,186,100,4060,0) + +"DATA",811.8,186,100,4061,0) + +"DATA",811.8,186,100,4081,0) + +"DATA",811.8,186,100,4082,0) + +"DATA",811.8,186,100,4083,0) + +"DATA",811.8,186,100,4084,0) +TIU DOCUMENT DEFINITION +"DATA",811.8,186,100,4085,0) +8925.1 +"DATA",811.8,186,100,4086,0) +MU SMOKING STATUS +"DATA",811.8,186,100,4087,0) +16 +"DATA",811.8,186,100,4088,0) +2555097705 +"DATA",811.8,186,100,4089,0) +YES +"DATA",811.8,186,100,4090,0) + +"DATA",811.8,186,100,4091,0) + +"DATA",811.8,186,100,4099,0) + +"DATA",811.8,186,100,4100,0) + +"DATA",811.8,186,100,4101,0) + +"DATA",811.8,186,100,4102,0) +155 +"DATA",811.8,186,100,4103,0) + +"DATA",811.8,186,100,4104,0) +34 +"DATA",811.8,186,100,4105,0) +33 +"DATA",811.8,186,100,4106,0) +24 +"DATA",811.8,186,100,4107,0) + +"DATA",811.8,186,100,4108,0) + +"DATA",811.8,186,100,4109,0) +49 +"DATA",811.8,186,100,4110,0) +47 +"DATA",811.8,186,100,4111,0) +38 +"DATA",811.8,186,100,4112,0) + +"DATA",811.8,186,100,4113,0) + +"DATA",811.8,186,100,4114,0) +64 +"DATA",811.8,186,100,4115,0) +62 +"DATA",811.8,186,100,4116,0) +53 +"DATA",811.8,186,100,4117,0) + +"DATA",811.8,186,100,4118,0) + +"DATA",811.8,186,100,4119,0) +79 +"DATA",811.8,186,100,4120,0) +77 +"DATA",811.8,186,100,4121,0) +68 +"DATA",811.8,186,100,4122,0) + +"DATA",811.8,186,100,4123,0) + +"DATA",811.8,186,100,4124,0) +94 +"DATA",811.8,186,100,4125,0) +92 +"DATA",811.8,186,100,4126,0) +83 +"DATA",811.8,186,100,4127,0) + +"DATA",811.8,186,100,4128,0) + +"DATA",811.8,186,100,4129,0) +108 +"DATA",811.8,186,100,4130,0) +107 +"DATA",811.8,186,100,4131,0) +98 +"DATA",811.8,186,100,4132,0) + +"DATA",811.8,186,100,4133,0) + +"DATA",811.8,186,100,4134,0) +123 +"DATA",811.8,186,100,4135,0) +121 +"DATA",811.8,186,100,4136,0) +112 +"DATA",811.8,186,100,4137,0) + +"DATA",811.8,186,100,4138,0) + +"DATA",811.8,186,100,4139,0) +138 +"DATA",811.8,186,100,4140,0) +136 +"DATA",811.8,186,100,4141,0) +127 +"DATA",811.8,186,100,4142,0) + +"DATA",811.8,186,100,4143,0) + +"DATA",811.8,186,100,4144,0) +153 +"DATA",811.8,186,100,4145,0) +151 +"DATA",811.8,186,100,4146,0) +142 +"DATA",811.8,186,100,4147,0) + +"DATA",811.8,186,100,4148,0) + +"DATA",811.8,186,100,4149,0) +168 +"DATA",811.8,186,100,4150,0) +166 +"DATA",811.8,186,100,4151,0) +157 +"DATA",811.8,186,100,4152,0) + +"DATA",811.8,186,100,4153,0) + +"DATA",811.8,186,100,4154,0) +183 +"DATA",811.8,186,100,4155,0) +181 +"DATA",811.8,186,100,4156,0) +172 +"DATA",811.8,186,100,4157,0) + +"DATA",811.8,186,100,4158,0) + +"DATA",811.8,186,100,4159,0) +198 +"DATA",811.8,186,100,4160,0) +196 +"DATA",811.8,186,100,4161,0) +187 +"DATA",811.8,186,100,4162,0) + +"DATA",811.8,186,100,4163,0) + +"DATA",811.8,186,100,4164,0) +213 +"DATA",811.8,186,100,4165,0) +211 +"DATA",811.8,186,100,4166,0) +202 +"DATA",811.8,186,100,4167,0) + +"DATA",811.8,186,100,4168,0) + +"DATA",811.8,186,100,4169,0) +228 +"DATA",811.8,186,100,4170,0) +226 +"DATA",811.8,186,100,4171,0) +217 +"DATA",811.8,186,100,4172,0) + +"DATA",811.8,186,100,4173,0) + +"DATA",811.8,186,100,4174,0) +243 +"DATA",811.8,186,100,4175,0) +241 +"DATA",811.8,186,100,4176,0) +232 +"DATA",811.8,186,100,4177,0) + +"DATA",811.8,186,100,4178,0) + +"DATA",811.8,186,100,4179,0) +258 +"DATA",811.8,186,100,4180,0) +256 +"DATA",811.8,186,100,4181,0) +247 +"DATA",811.8,186,100,4182,0) + +"DATA",811.8,186,100,4183,0) + +"DATA",811.8,186,100,4184,0) +273 +"DATA",811.8,186,100,4185,0) +271 +"DATA",811.8,186,100,4186,0) +262 +"DATA",811.8,186,100,4187,0) + +"DATA",811.8,186,100,4188,0) + +"DATA",811.8,186,100,4189,0) +288 +"DATA",811.8,186,100,4190,0) +286 +"DATA",811.8,186,100,4191,0) +277 +"DATA",811.8,186,100,4192,0) + +"DATA",811.8,186,100,4193,0) + +"DATA",811.8,186,100,4194,0) +302 +"DATA",811.8,186,100,4195,0) +301 +"DATA",811.8,186,100,4196,0) +292 +"DATA",811.8,186,100,4197,0) + +"DATA",811.8,186,100,4198,0) + +"DATA",811.8,186,100,4199,0) +316 +"DATA",811.8,186,100,4200,0) +315 +"DATA",811.8,186,100,4201,0) +306 +"DATA",811.8,186,100,4202,0) + +"DATA",811.8,186,100,4203,0) + +"DATA",811.8,186,100,4204,0) +330 +"DATA",811.8,186,100,4205,0) +329 +"DATA",811.8,186,100,4206,0) +320 +"DATA",811.8,186,100,4207,0) + +"DATA",811.8,186,100,4208,0) + +"DATA",811.8,186,100,4209,0) +344 +"DATA",811.8,186,100,4210,0) +343 +"DATA",811.8,186,100,4211,0) +334 +"DATA",811.8,186,100,4212,0) + +"DATA",811.8,186,100,4213,0) + +"DATA",811.8,186,100,4214,0) +358 +"DATA",811.8,186,100,4215,0) +357 +"DATA",811.8,186,100,4216,0) +348 +"DATA",811.8,186,100,4217,0) + +"DATA",811.8,186,100,4218,0) + +"DATA",811.8,186,100,4219,0) +372 +"DATA",811.8,186,100,4220,0) +371 +"DATA",811.8,186,100,4221,0) +362 +"DATA",811.8,186,100,4222,0) + +"DATA",811.8,186,100,4223,0) + +"DATA",811.8,186,100,4224,0) +387 +"DATA",811.8,186,100,4225,0) +385 +"DATA",811.8,186,100,4226,0) +376 +"DATA",811.8,186,100,4227,0) + +"DATA",811.8,186,100,4228,0) + +"DATA",811.8,186,100,4229,0) +402 +"DATA",811.8,186,100,4230,0) +400 +"DATA",811.8,186,100,4231,0) +391 +"DATA",811.8,186,100,4232,0) + +"DATA",811.8,186,100,4233,0) + +"DATA",811.8,186,100,4234,0) +417 +"DATA",811.8,186,100,4235,0) +415 +"DATA",811.8,186,100,4236,0) +406 +"DATA",811.8,186,100,4237,0) + +"DATA",811.8,186,100,4238,0) + +"DATA",811.8,186,100,4239,0) +432 +"DATA",811.8,186,100,4240,0) +430 +"DATA",811.8,186,100,4241,0) +421 +"DATA",811.8,186,100,4242,0) + +"DATA",811.8,186,100,4243,0) + +"DATA",811.8,186,100,4244,0) +447 +"DATA",811.8,186,100,4245,0) +445 +"DATA",811.8,186,100,4246,0) +436 +"DATA",811.8,186,100,4247,0) + +"DATA",811.8,186,100,4248,0) + +"DATA",811.8,186,100,4249,0) +462 +"DATA",811.8,186,100,4250,0) +460 +"DATA",811.8,186,100,4251,0) +451 +"DATA",811.8,186,100,4252,0) + +"DATA",811.8,186,100,4253,0) + +"DATA",811.8,186,100,4254,0) +477 +"DATA",811.8,186,100,4255,0) +475 +"DATA",811.8,186,100,4256,0) +466 +"DATA",811.8,186,100,4257,0) + +"DATA",811.8,186,100,4258,0) + +"DATA",811.8,186,100,4259,0) +492 +"DATA",811.8,186,100,4260,0) +490 +"DATA",811.8,186,100,4261,0) +481 +"DATA",811.8,186,100,4262,0) + +"DATA",811.8,186,100,4263,0) + +"DATA",811.8,186,100,4264,0) +507 +"DATA",811.8,186,100,4265,0) +505 +"DATA",811.8,186,100,4266,0) +496 +"DATA",811.8,186,100,4267,0) + +"DATA",811.8,186,100,4268,0) + +"DATA",811.8,186,100,4269,0) +521 +"DATA",811.8,186,100,4270,0) +520 +"DATA",811.8,186,100,4271,0) +511 +"DATA",811.8,186,100,4272,0) + +"DATA",811.8,186,100,4273,0) + +"DATA",811.8,186,100,4274,0) +537 +"DATA",811.8,186,100,4275,0) +534 +"DATA",811.8,186,100,4276,0) +525 +"DATA",811.8,186,100,4277,0) + +"DATA",811.8,186,100,4278,0) + +"DATA",811.8,186,100,4279,0) +553 +"DATA",811.8,186,100,4280,0) +550 +"DATA",811.8,186,100,4281,0) +541 +"DATA",811.8,186,100,4282,0) + +"DATA",811.8,186,100,4283,0) + +"DATA",811.8,186,100,4284,0) +567 +"DATA",811.8,186,100,4285,0) +566 +"DATA",811.8,186,100,4286,0) +557 +"DATA",811.8,186,100,4287,0) + +"DATA",811.8,186,100,4288,0) + +"DATA",811.8,186,100,4289,0) +584 +"DATA",811.8,186,100,4290,0) +580 +"DATA",811.8,186,100,4291,0) +571 +"DATA",811.8,186,100,4292,0) + +"DATA",811.8,186,100,4293,0) + +"DATA",811.8,186,100,4294,0) +601 +"DATA",811.8,186,100,4295,0) +597 +"DATA",811.8,186,100,4296,0) +588 +"DATA",811.8,186,100,4297,0) + +"DATA",811.8,186,100,4298,0) + +"DATA",811.8,186,100,4299,0) +618 +"DATA",811.8,186,100,4300,0) +614 +"DATA",811.8,186,100,4301,0) +605 +"DATA",811.8,186,100,4302,0) + +"DATA",811.8,186,100,4303,0) + +"DATA",811.8,186,100,4304,0) +632 +"DATA",811.8,186,100,4305,0) +631 +"DATA",811.8,186,100,4306,0) +622 +"DATA",811.8,186,100,4307,0) + +"DATA",811.8,186,100,4308,0) + +"DATA",811.8,186,100,4309,0) +648 +"DATA",811.8,186,100,4310,0) +645 +"DATA",811.8,186,100,4311,0) +636 +"DATA",811.8,186,100,4312,0) + +"DATA",811.8,186,100,4313,0) + +"DATA",811.8,186,100,4314,0) +662 +"DATA",811.8,186,100,4315,0) +661 +"DATA",811.8,186,100,4316,0) +652 +"DATA",811.8,186,100,4317,0) + +"DATA",811.8,186,100,4318,0) + +"DATA",811.8,186,100,4319,0) +679 +"DATA",811.8,186,100,4320,0) +675 +"DATA",811.8,186,100,4321,0) +666 +"DATA",811.8,186,100,4322,0) + +"DATA",811.8,186,100,4323,0) + +"DATA",811.8,186,100,4324,0) +695 +"DATA",811.8,186,100,4325,0) +692 +"DATA",811.8,186,100,4326,0) +683 +"DATA",811.8,186,100,4327,0) + +"DATA",811.8,186,100,4328,0) + +"DATA",811.8,186,100,4329,0) +712 +"DATA",811.8,186,100,4330,0) +708 +"DATA",811.8,186,100,4331,0) +699 +"DATA",811.8,186,100,4332,0) + +"DATA",811.8,186,100,4333,0) + +"DATA",811.8,186,100,4334,0) +728 +"DATA",811.8,186,100,4335,0) +725 +"DATA",811.8,186,100,4336,0) +716 +"DATA",811.8,186,100,4337,0) + +"DATA",811.8,186,100,4338,0) + +"DATA",811.8,186,100,4339,0) +745 +"DATA",811.8,186,100,4340,0) +741 +"DATA",811.8,186,100,4341,0) +732 +"DATA",811.8,186,100,4342,0) + +"DATA",811.8,186,100,4343,0) + +"DATA",811.8,186,100,4344,0) +761 +"DATA",811.8,186,100,4345,0) +758 +"DATA",811.8,186,100,4346,0) +749 +"DATA",811.8,186,100,4347,0) + +"DATA",811.8,186,100,4348,0) + +"DATA",811.8,186,100,4349,0) +778 +"DATA",811.8,186,100,4350,0) +774 +"DATA",811.8,186,100,4351,0) +765 +"DATA",811.8,186,100,4352,0) + +"DATA",811.8,186,100,4353,0) + +"DATA",811.8,186,100,4354,0) +794 +"DATA",811.8,186,100,4355,0) +791 +"DATA",811.8,186,100,4356,0) +782 +"DATA",811.8,186,100,4357,0) + +"DATA",811.8,186,100,4358,0) + +"DATA",811.8,186,100,4359,0) +811 +"DATA",811.8,186,100,4360,0) +807 +"DATA",811.8,186,100,4361,0) +798 +"DATA",811.8,186,100,4362,0) + +"DATA",811.8,186,100,4363,0) + +"DATA",811.8,186,100,4364,0) +827 +"DATA",811.8,186,100,4365,0) +824 +"DATA",811.8,186,100,4366,0) +815 +"DATA",811.8,186,100,4367,0) + +"DATA",811.8,186,100,4368,0) + +"DATA",811.8,186,100,4369,0) +844 +"DATA",811.8,186,100,4370,0) +840 +"DATA",811.8,186,100,4371,0) +831 +"DATA",811.8,186,100,4372,0) + +"DATA",811.8,186,100,4373,0) + +"DATA",811.8,186,100,4374,0) +861 +"DATA",811.8,186,100,4375,0) +857 +"DATA",811.8,186,100,4376,0) +848 +"DATA",811.8,186,100,4377,0) + +"DATA",811.8,186,100,4378,0) + +"DATA",811.8,186,100,4379,0) +878 +"DATA",811.8,186,100,4380,0) +874 +"DATA",811.8,186,100,4381,0) +865 +"DATA",811.8,186,100,4382,0) + +"DATA",811.8,186,100,4383,0) + +"DATA",811.8,186,100,4384,0) +895 +"DATA",811.8,186,100,4385,0) +891 +"DATA",811.8,186,100,4386,0) +882 +"DATA",811.8,186,100,4387,0) + +"DATA",811.8,186,100,4388,0) + +"DATA",811.8,186,100,4389,0) +911 +"DATA",811.8,186,100,4390,0) +908 +"DATA",811.8,186,100,4391,0) +899 +"DATA",811.8,186,100,4392,0) + +"DATA",811.8,186,100,4393,0) + +"DATA",811.8,186,100,4394,0) +928 +"DATA",811.8,186,100,4395,0) +924 +"DATA",811.8,186,100,4396,0) +915 +"DATA",811.8,186,100,4397,0) + +"DATA",811.8,186,100,4398,0) + +"DATA",811.8,186,100,4399,0) +945 +"DATA",811.8,186,100,4400,0) +941 +"DATA",811.8,186,100,4401,0) +932 +"DATA",811.8,186,100,4402,0) + +"DATA",811.8,186,100,4403,0) + +"DATA",811.8,186,100,4404,0) +961 +"DATA",811.8,186,100,4405,0) +958 +"DATA",811.8,186,100,4406,0) +949 +"DATA",811.8,186,100,4407,0) + +"DATA",811.8,186,100,4408,0) + +"DATA",811.8,186,100,4409,0) +977 +"DATA",811.8,186,100,4410,0) +974 +"DATA",811.8,186,100,4411,0) +965 +"DATA",811.8,186,100,4412,0) + +"DATA",811.8,186,100,4413,0) + +"DATA",811.8,186,100,4414,0) +993 +"DATA",811.8,186,100,4415,0) +990 +"DATA",811.8,186,100,4416,0) +981 +"DATA",811.8,186,100,4417,0) + +"DATA",811.8,186,100,4418,0) + +"DATA",811.8,186,100,4419,0) +1009 +"DATA",811.8,186,100,4420,0) +1006 +"DATA",811.8,186,100,4421,0) +997 +"DATA",811.8,186,100,4422,0) + +"DATA",811.8,186,100,4423,0) + +"DATA",811.8,186,100,4424,0) +1025 +"DATA",811.8,186,100,4425,0) +1022 +"DATA",811.8,186,100,4426,0) +1013 +"DATA",811.8,186,100,4427,0) + +"DATA",811.8,186,100,4428,0) + +"DATA",811.8,186,100,4429,0) +1041 +"DATA",811.8,186,100,4430,0) +1038 +"DATA",811.8,186,100,4431,0) +1029 +"DATA",811.8,186,100,4432,0) + +"DATA",811.8,186,100,4433,0) + +"DATA",811.8,186,100,4434,0) +1070 +"DATA",811.8,186,100,4435,0) +1054 +"DATA",811.8,186,100,4436,0) +1045 +"DATA",811.8,186,100,4437,0) +1081 +"DATA",811.8,186,100,4438,0) +1075 +"DATA",811.8,186,100,4439,0) + +"DATA",811.8,186,100,4440,0) + +"DATA",811.8,186,100,4441,0) +1133 +"DATA",811.8,186,100,4442,0) +1094 +"DATA",811.8,186,100,4443,0) +1085 +"DATA",811.8,186,100,4444,0) +1140 +"DATA",811.8,186,100,4445,0) +1138 +"DATA",811.8,186,100,4446,0) + +"DATA",811.8,186,100,4447,0) + +"DATA",811.8,186,100,4448,0) +1160 +"DATA",811.8,186,100,4449,0) +1153 +"DATA",811.8,186,100,4450,0) +1144 +"DATA",811.8,186,100,4451,0) +1165 +"DATA",811.8,186,100,4452,0) +1165 +"DATA",811.8,186,100,4453,0) + +"DATA",811.8,186,100,4454,0) + +"DATA",811.8,186,100,4455,0) +1190 +"DATA",811.8,186,100,4456,0) +1178 +"DATA",811.8,186,100,4457,0) +1169 +"DATA",811.8,186,100,4458,0) +1196 +"DATA",811.8,186,100,4459,0) +1195 +"DATA",811.8,186,100,4460,0) + +"DATA",811.8,186,100,4461,0) + +"DATA",811.8,186,100,4462,0) +1221 +"DATA",811.8,186,100,4463,0) +1209 +"DATA",811.8,186,100,4464,0) +1200 +"DATA",811.8,186,100,4465,0) +1227 +"DATA",811.8,186,100,4466,0) +1226 +"DATA",811.8,186,100,4467,0) + +"DATA",811.8,186,100,4468,0) + +"DATA",811.8,186,100,4469,0) +1257 +"DATA",811.8,186,100,4470,0) +1240 +"DATA",811.8,186,100,4471,0) +1231 +"DATA",811.8,186,100,4472,0) +1264 +"DATA",811.8,186,100,4473,0) +1262 +"DATA",811.8,186,100,4474,0) + +"DATA",811.8,186,100,4475,0) + +"DATA",811.8,186,100,4476,0) +1284 +"DATA",811.8,186,100,4477,0) +1277 +"DATA",811.8,186,100,4478,0) +1268 +"DATA",811.8,186,100,4479,0) +1290 +"DATA",811.8,186,100,4480,0) +1289 +"DATA",811.8,186,100,4481,0) + +"DATA",811.8,186,100,4482,0) + +"DATA",811.8,186,100,4483,0) +1310 +"DATA",811.8,186,100,4484,0) +1303 +"DATA",811.8,186,100,4485,0) +1294 +"DATA",811.8,186,100,4486,0) +1315 +"DATA",811.8,186,100,4487,0) +1315 +"DATA",811.8,186,100,4488,0) + +"DATA",811.8,186,100,4489,0) + +"DATA",811.8,186,100,4490,0) +1335 +"DATA",811.8,186,100,4491,0) +1328 +"DATA",811.8,186,100,4492,0) +1319 +"DATA",811.8,186,100,4493,0) +1340 +"DATA",811.8,186,100,4494,0) +1340 +"DATA",811.8,186,100,4495,0) + +"DATA",811.8,186,100,4496,0) + +"DATA",811.8,186,100,4497,0) +1366 +"DATA",811.8,186,100,4498,0) +1353 +"DATA",811.8,186,100,4499,0) +1344 +"DATA",811.8,186,100,4500,0) +1373 +"DATA",811.8,186,100,4501,0) +1371 +"DATA",811.8,186,100,4502,0) + +"DATA",811.8,186,100,4503,0) + +"DATA",811.8,186,100,4504,0) +1401 +"DATA",811.8,186,100,4505,0) +1386 +"DATA",811.8,186,100,4506,0) +1377 +"DATA",811.8,186,100,4507,0) +1407 +"DATA",811.8,186,100,4508,0) +1406 +"DATA",811.8,186,100,4509,0) + +"DATA",811.8,186,100,4510,0) + +"DATA",811.8,186,100,4511,0) +1427 +"DATA",811.8,186,100,4512,0) +1420 +"DATA",811.8,186,100,4513,0) +1411 +"DATA",811.8,186,100,4514,0) +1433 +"DATA",811.8,186,100,4515,0) +1432 +"DATA",811.8,186,100,4516,0) + +"DATA",811.8,186,100,4517,0) + +"DATA",811.8,186,100,4518,0) +1459 +"DATA",811.8,186,100,4519,0) +1446 +"DATA",811.8,186,100,4520,0) +1437 +"DATA",811.8,186,100,4521,0) +1466 +"DATA",811.8,186,100,4522,0) +1464 +"DATA",811.8,186,100,4523,0) + +"DATA",811.8,186,100,4524,0) + +"DATA",811.8,186,100,4525,0) +1492 +"DATA",811.8,186,100,4526,0) +1479 +"DATA",811.8,186,100,4527,0) +1470 +"DATA",811.8,186,100,4528,0) +1499 +"DATA",811.8,186,100,4529,0) +1497 +"DATA",811.8,186,100,4530,0) + +"DATA",811.8,186,100,4531,0) + +"DATA",811.8,186,100,4532,0) +1529 +"DATA",811.8,186,100,4533,0) +1512 +"DATA",811.8,186,100,4534,0) +1503 +"DATA",811.8,186,100,4535,0) +1536 +"DATA",811.8,186,100,4536,0) +1534 +"DATA",811.8,186,100,4537,0) + +"DATA",811.8,186,100,4538,0) + +"DATA",811.8,186,100,4539,0) +1562 +"DATA",811.8,186,100,4540,0) +1549 +"DATA",811.8,186,100,4541,0) +1540 +"DATA",811.8,186,100,4542,0) +1569 +"DATA",811.8,186,100,4543,0) +1567 +"DATA",811.8,186,100,4544,0) + +"DATA",811.8,186,100,4545,0) + +"DATA",811.8,186,100,4546,0) +1595 +"DATA",811.8,186,100,4547,0) +1582 +"DATA",811.8,186,100,4548,0) +1573 +"DATA",811.8,186,100,4549,0) +1602 +"DATA",811.8,186,100,4550,0) +1600 +"DATA",811.8,186,100,4551,0) + +"DATA",811.8,186,100,4552,0) + +"DATA",811.8,186,100,4553,0) +1628 +"DATA",811.8,186,100,4554,0) +1615 +"DATA",811.8,186,100,4555,0) +1606 +"DATA",811.8,186,100,4556,0) +1635 +"DATA",811.8,186,100,4557,0) +1633 +"DATA",811.8,186,100,4558,0) + +"DATA",811.8,186,100,4559,0) + +"DATA",811.8,186,100,4560,0) +1667 +"DATA",811.8,186,100,4561,0) +1648 +"DATA",811.8,186,100,4562,0) +1639 +"DATA",811.8,186,100,4563,0) +1675 +"DATA",811.8,186,100,4564,0) +1672 +"DATA",811.8,186,100,4565,0) + +"DATA",811.8,186,100,4566,0) + +"DATA",811.8,186,100,4567,0) +1701 +"DATA",811.8,186,100,4568,0) +1688 +"DATA",811.8,186,100,4569,0) +1679 +"DATA",811.8,186,100,4570,0) +1708 +"DATA",811.8,186,100,4571,0) +1706 +"DATA",811.8,186,100,4572,0) + +"DATA",811.8,186,100,4573,0) + +"DATA",811.8,186,100,4574,0) +1734 +"DATA",811.8,186,100,4575,0) +1721 +"DATA",811.8,186,100,4576,0) +1712 +"DATA",811.8,186,100,4577,0) +1741 +"DATA",811.8,186,100,4578,0) +1739 +"DATA",811.8,186,100,4579,0) + +"DATA",811.8,186,100,4580,0) + +"DATA",811.8,186,100,4581,0) +1767 +"DATA",811.8,186,100,4582,0) +1754 +"DATA",811.8,186,100,4583,0) +1745 +"DATA",811.8,186,100,4584,0) +1774 +"DATA",811.8,186,100,4585,0) +1772 +"DATA",811.8,186,100,4586,0) + +"DATA",811.8,186,100,4587,0) + +"DATA",811.8,186,100,4588,0) +1806 +"DATA",811.8,186,100,4589,0) +1787 +"DATA",811.8,186,100,4590,0) +1778 +"DATA",811.8,186,100,4591,0) +1814 +"DATA",811.8,186,100,4592,0) +1811 +"DATA",811.8,186,100,4593,0) + +"DATA",811.8,186,100,4594,0) + +"DATA",811.8,186,100,4595,0) +1840 +"DATA",811.8,186,100,4596,0) +1827 +"DATA",811.8,186,100,4597,0) +1818 +"DATA",811.8,186,100,4598,0) +1847 +"DATA",811.8,186,100,4599,0) +1845 +"DATA",811.8,186,100,4600,0) + +"DATA",811.8,186,100,4601,0) + +"DATA",811.8,186,100,4602,0) +1873 +"DATA",811.8,186,100,4603,0) +1860 +"DATA",811.8,186,100,4604,0) +1851 +"DATA",811.8,186,100,4605,0) +1880 +"DATA",811.8,186,100,4606,0) +1878 +"DATA",811.8,186,100,4607,0) + +"DATA",811.8,186,100,4608,0) + +"DATA",811.8,186,100,4609,0) +1906 +"DATA",811.8,186,100,4610,0) +1893 +"DATA",811.8,186,100,4611,0) +1884 +"DATA",811.8,186,100,4612,0) +1913 +"DATA",811.8,186,100,4613,0) +1911 +"DATA",811.8,186,100,4614,0) + +"DATA",811.8,186,100,4615,0) + +"DATA",811.8,186,100,4616,0) +1939 +"DATA",811.8,186,100,4617,0) +1926 +"DATA",811.8,186,100,4618,0) +1917 +"DATA",811.8,186,100,4619,0) +1946 +"DATA",811.8,186,100,4620,0) +1944 +"DATA",811.8,186,100,4621,0) + +"DATA",811.8,186,100,4622,0) + +"DATA",811.8,186,100,4623,0) +1972 +"DATA",811.8,186,100,4624,0) +1959 +"DATA",811.8,186,100,4625,0) +1950 +"DATA",811.8,186,100,4626,0) +1979 +"DATA",811.8,186,100,4627,0) +1977 +"DATA",811.8,186,100,4628,0) + +"DATA",811.8,186,100,4629,0) + +"DATA",811.8,186,100,4630,0) +2015 +"DATA",811.8,186,100,4631,0) +1992 +"DATA",811.8,186,100,4632,0) +1983 +"DATA",811.8,186,100,4633,0) +2025 +"DATA",811.8,186,100,4634,0) +2020 +"DATA",811.8,186,100,4635,0) + +"DATA",811.8,186,100,4636,0) + +"DATA",811.8,186,100,4637,0) +2051 +"DATA",811.8,186,100,4638,0) +2038 +"DATA",811.8,186,100,4639,0) +2029 +"DATA",811.8,186,100,4640,0) +2058 +"DATA",811.8,186,100,4641,0) +2056 +"DATA",811.8,186,100,4642,0) + +"DATA",811.8,186,100,4643,0) + +"DATA",811.8,186,100,4644,0) +2086 +"DATA",811.8,186,100,4645,0) +2071 +"DATA",811.8,186,100,4646,0) +2062 +"DATA",811.8,186,100,4647,0) +2092 +"DATA",811.8,186,100,4648,0) +2091 +"DATA",811.8,186,100,4649,0) + +"DATA",811.8,186,100,4650,0) + +"DATA",811.8,186,100,4651,0) +2118 +"DATA",811.8,186,100,4652,0) +2105 +"DATA",811.8,186,100,4653,0) +2096 +"DATA",811.8,186,100,4654,0) +2125 +"DATA",811.8,186,100,4655,0) +2123 +"DATA",811.8,186,100,4656,0) + +"DATA",811.8,186,100,4657,0) + +"DATA",811.8,186,100,4658,0) +2151 +"DATA",811.8,186,100,4659,0) +2138 +"DATA",811.8,186,100,4660,0) +2129 +"DATA",811.8,186,100,4661,0) +2158 +"DATA",811.8,186,100,4662,0) +2156 +"DATA",811.8,186,100,4663,0) + +"DATA",811.8,186,100,4664,0) + +"DATA",811.8,186,100,4665,0) +2184 +"DATA",811.8,186,100,4666,0) +2171 +"DATA",811.8,186,100,4667,0) +2162 +"DATA",811.8,186,100,4668,0) +2191 +"DATA",811.8,186,100,4669,0) +2189 +"DATA",811.8,186,100,4670,0) + +"DATA",811.8,186,100,4671,0) + +"DATA",811.8,186,100,4672,0) +2217 +"DATA",811.8,186,100,4673,0) +2204 +"DATA",811.8,186,100,4674,0) +2195 +"DATA",811.8,186,100,4675,0) +2224 +"DATA",811.8,186,100,4676,0) +2222 +"DATA",811.8,186,100,4677,0) + +"DATA",811.8,186,100,4678,0) + +"DATA",811.8,186,100,4679,0) +2258 +"DATA",811.8,186,100,4680,0) +2237 +"DATA",811.8,186,100,4681,0) +2228 +"DATA",811.8,186,100,4682,0) +2267 +"DATA",811.8,186,100,4683,0) +2263 +"DATA",811.8,186,100,4684,0) + +"DATA",811.8,186,100,4685,0) + +"DATA",811.8,186,100,4686,0) +2293 +"DATA",811.8,186,100,4687,0) +2280 +"DATA",811.8,186,100,4688,0) +2271 +"DATA",811.8,186,100,4689,0) +2300 +"DATA",811.8,186,100,4690,0) +2298 +"DATA",811.8,186,100,4691,0) + +"DATA",811.8,186,100,4692,0) + +"DATA",811.8,186,100,4693,0) +2326 +"DATA",811.8,186,100,4694,0) +2313 +"DATA",811.8,186,100,4695,0) +2304 +"DATA",811.8,186,100,4696,0) +2333 +"DATA",811.8,186,100,4697,0) +2331 +"DATA",811.8,186,100,4698,0) + +"DATA",811.8,186,100,4699,0) + +"DATA",811.8,186,100,4700,0) +2359 +"DATA",811.8,186,100,4701,0) +2346 +"DATA",811.8,186,100,4702,0) +2337 +"DATA",811.8,186,100,4703,0) +2366 +"DATA",811.8,186,100,4704,0) +2364 +"DATA",811.8,186,100,4705,0) + +"DATA",811.8,186,100,4706,0) + +"DATA",811.8,186,100,4707,0) +2392 +"DATA",811.8,186,100,4708,0) +2379 +"DATA",811.8,186,100,4709,0) +2370 +"DATA",811.8,186,100,4710,0) +2399 +"DATA",811.8,186,100,4711,0) +2397 +"DATA",811.8,186,100,4712,0) + +"DATA",811.8,186,100,4713,0) + +"DATA",811.8,186,100,4714,0) +2433 +"DATA",811.8,186,100,4715,0) +2412 +"DATA",811.8,186,100,4716,0) +2403 +"DATA",811.8,186,100,4717,0) +2442 +"DATA",811.8,186,100,4718,0) +2438 +"DATA",811.8,186,100,4719,0) + +"DATA",811.8,186,100,4720,0) + +"DATA",811.8,186,100,4721,0) +2468 +"DATA",811.8,186,100,4722,0) +2455 +"DATA",811.8,186,100,4723,0) +2446 +"DATA",811.8,186,100,4724,0) +2475 +"DATA",811.8,186,100,4725,0) +2473 +"DATA",811.8,186,100,4726,0) + +"DATA",811.8,186,100,4727,0) + +"DATA",811.8,186,100,4728,0) +2501 +"DATA",811.8,186,100,4729,0) +2488 +"DATA",811.8,186,100,4730,0) +2479 +"DATA",811.8,186,100,4731,0) +2508 +"DATA",811.8,186,100,4732,0) +2506 +"DATA",811.8,186,100,4733,0) + +"DATA",811.8,186,100,4734,0) + +"DATA",811.8,186,100,4735,0) +2538 +"DATA",811.8,186,100,4736,0) +2521 +"DATA",811.8,186,100,4737,0) +2512 +"DATA",811.8,186,100,4738,0) +2545 +"DATA",811.8,186,100,4739,0) +2543 +"DATA",811.8,186,100,4740,0) + +"DATA",811.8,186,100,4741,0) + +"DATA",811.8,186,100,4742,0) +2571 +"DATA",811.8,186,100,4743,0) +2558 +"DATA",811.8,186,100,4744,0) +2549 +"DATA",811.8,186,100,4745,0) +2578 +"DATA",811.8,186,100,4746,0) +2576 +"DATA",811.8,186,100,4747,0) + +"DATA",811.8,186,100,4748,0) + +"DATA",811.8,186,100,4749,0) +2604 +"DATA",811.8,186,100,4750,0) +2591 +"DATA",811.8,186,100,4751,0) +2582 +"DATA",811.8,186,100,4752,0) +2611 +"DATA",811.8,186,100,4753,0) +2609 +"DATA",811.8,186,100,4754,0) + +"DATA",811.8,186,100,4755,0) + +"DATA",811.8,186,100,4756,0) +2637 +"DATA",811.8,186,100,4757,0) +2624 +"DATA",811.8,186,100,4758,0) +2615 +"DATA",811.8,186,100,4759,0) +2644 +"DATA",811.8,186,100,4760,0) +2642 +"DATA",811.8,186,100,4761,0) + +"DATA",811.8,186,100,4762,0) + +"DATA",811.8,186,100,4763,0) +2670 +"DATA",811.8,186,100,4764,0) +2657 +"DATA",811.8,186,100,4765,0) +2648 +"DATA",811.8,186,100,4766,0) +2677 +"DATA",811.8,186,100,4767,0) +2675 +"DATA",811.8,186,100,4768,0) + +"DATA",811.8,186,100,4769,0) + +"DATA",811.8,186,100,4770,0) +2711 +"DATA",811.8,186,100,4771,0) +2690 +"DATA",811.8,186,100,4772,0) +2681 +"DATA",811.8,186,100,4773,0) +2720 +"DATA",811.8,186,100,4774,0) +2716 +"DATA",811.8,186,100,4775,0) + +"DATA",811.8,186,100,4776,0) + +"DATA",811.8,186,100,4777,0) +2748 +"DATA",811.8,186,100,4778,0) +2733 +"DATA",811.8,186,100,4779,0) +2724 +"DATA",811.8,186,100,4780,0) +2755 +"DATA",811.8,186,100,4781,0) +2753 +"DATA",811.8,186,100,4782,0) + +"DATA",811.8,186,100,4783,0) + +"DATA",811.8,186,100,4784,0) +2783 +"DATA",811.8,186,100,4785,0) +2768 +"DATA",811.8,186,100,4786,0) +2759 +"DATA",811.8,186,100,4787,0) +2790 +"DATA",811.8,186,100,4788,0) +2788 +"DATA",811.8,186,100,4789,0) + +"DATA",811.8,186,100,4790,0) + +"DATA",811.8,186,100,4791,0) +2818 +"DATA",811.8,186,100,4792,0) +2803 +"DATA",811.8,186,100,4793,0) +2794 +"DATA",811.8,186,100,4794,0) +2825 +"DATA",811.8,186,100,4795,0) +2823 +"DATA",811.8,186,100,4796,0) + +"DATA",811.8,186,100,4797,0) + +"DATA",811.8,186,100,4798,0) +2853 +"DATA",811.8,186,100,4799,0) +2838 +"DATA",811.8,186,100,4800,0) +2829 +"DATA",811.8,186,100,4801,0) +2860 +"DATA",811.8,186,100,4802,0) +2858 +"DATA",811.8,186,100,4803,0) + +"DATA",811.8,186,100,4804,0) + +"DATA",811.8,186,100,4805,0) +2888 +"DATA",811.8,186,100,4806,0) +2873 +"DATA",811.8,186,100,4807,0) +2864 +"DATA",811.8,186,100,4808,0) +2895 +"DATA",811.8,186,100,4809,0) +2893 +"DATA",811.8,186,100,4810,0) + +"DATA",811.8,186,100,4811,0) + +"DATA",811.8,186,100,4812,0) +2931 +"DATA",811.8,186,100,4813,0) +2908 +"DATA",811.8,186,100,4814,0) +2899 +"DATA",811.8,186,100,4815,0) +2941 +"DATA",811.8,186,100,4816,0) +2936 +"DATA",811.8,186,100,4817,0) + +"DATA",811.8,186,100,4818,0) + +"DATA",811.8,186,100,4819,0) +3000 +"DATA",811.8,186,100,4820,0) +2954 +"DATA",811.8,186,100,4821,0) +2945 +"DATA",811.8,186,100,4822,0) +3005 +"DATA",811.8,186,100,4823,0) +3005 +"DATA",811.8,186,100,4824,0) + +"DATA",811.8,186,100,4825,0) + +"DATA",811.8,186,100,4826,0) +3036 +"DATA",811.8,186,100,4827,0) +3018 +"DATA",811.8,186,100,4828,0) +3009 +"DATA",811.8,186,100,4829,0) +3043 +"DATA",811.8,186,100,4830,0) +3041 +"DATA",811.8,186,100,4831,0) + +"DATA",811.8,186,100,4832,0) + +"DATA",811.8,186,100,4833,0) +3081 +"DATA",811.8,186,100,4834,0) +3056 +"DATA",811.8,186,100,4835,0) +3047 +"DATA",811.8,186,100,4836,0) +3096 +"DATA",811.8,186,100,4837,0) +3086 +"DATA",811.8,186,100,4838,0) + +"DATA",811.8,186,100,4839,0) + +"DATA",811.8,186,100,4840,0) +3122 +"DATA",811.8,186,100,4841,0) +3109 +"DATA",811.8,186,100,4842,0) +3100 +"DATA",811.8,186,100,4843,0) +3128 +"DATA",811.8,186,100,4844,0) +3127 +"DATA",811.8,186,100,4845,0) + +"DATA",811.8,186,100,4846,0) + +"DATA",811.8,186,100,4847,0) +3154 +"DATA",811.8,186,100,4848,0) +3141 +"DATA",811.8,186,100,4849,0) +3132 +"DATA",811.8,186,100,4850,0) +3160 +"DATA",811.8,186,100,4851,0) +3159 +"DATA",811.8,186,100,4852,0) + +"DATA",811.8,186,100,4853,0) + +"DATA",811.8,186,100,4854,0) +3186 +"DATA",811.8,186,100,4855,0) +3173 +"DATA",811.8,186,100,4856,0) +3164 +"DATA",811.8,186,100,4857,0) +3192 +"DATA",811.8,186,100,4858,0) +3191 +"DATA",811.8,186,100,4859,0) + +"DATA",811.8,186,100,4860,0) + +"DATA",811.8,186,100,4861,0) +3225 +"DATA",811.8,186,100,4862,0) +3205 +"DATA",811.8,186,100,4863,0) +3196 +"DATA",811.8,186,100,4864,0) +3233 +"DATA",811.8,186,100,4865,0) +3230 +"DATA",811.8,186,100,4866,0) + +"DATA",811.8,186,100,4867,0) + +"DATA",811.8,186,100,4868,0) +3255 +"DATA",811.8,186,100,4869,0) +3246 +"DATA",811.8,186,100,4870,0) +3237 +"DATA",811.8,186,100,4871,0) +3260 +"DATA",811.8,186,100,4872,0) +3260 +"DATA",811.8,186,100,4873,0) + +"DATA",811.8,186,100,4874,0) + +"DATA",811.8,186,100,4875,0) +3285 +"DATA",811.8,186,100,4876,0) +3273 +"DATA",811.8,186,100,4877,0) +3264 +"DATA",811.8,186,100,4878,0) +3291 +"DATA",811.8,186,100,4879,0) +3290 +"DATA",811.8,186,100,4880,0) + +"DATA",811.8,186,100,4881,0) + +"DATA",811.8,186,100,4882,0) +3319 +"DATA",811.8,186,100,4883,0) +3304 +"DATA",811.8,186,100,4884,0) +3295 +"DATA",811.8,186,100,4885,0) +3325 +"DATA",811.8,186,100,4886,0) +3324 +"DATA",811.8,186,100,4887,0) + +"DATA",811.8,186,100,4888,0) + +"DATA",811.8,186,100,4889,0) +3351 +"DATA",811.8,186,100,4890,0) +3338 +"DATA",811.8,186,100,4891,0) +3329 +"DATA",811.8,186,100,4892,0) +3358 +"DATA",811.8,186,100,4893,0) +3356 +"DATA",811.8,186,100,4894,0) + +"DATA",811.8,186,100,4895,0) + +"DATA",811.8,186,100,4896,0) +3384 +"DATA",811.8,186,100,4897,0) +3371 +"DATA",811.8,186,100,4898,0) +3362 +"DATA",811.8,186,100,4899,0) +3391 +"DATA",811.8,186,100,4900,0) +3389 +"DATA",811.8,186,100,4901,0) + +"DATA",811.8,186,100,4902,0) + +"DATA",811.8,186,100,4903,0) +3414 +"DATA",811.8,186,100,4904,0) +3404 +"DATA",811.8,186,100,4905,0) +3395 +"DATA",811.8,186,100,4906,0) +3420 +"DATA",811.8,186,100,4907,0) +3419 +"DATA",811.8,186,100,4908,0) + +"DATA",811.8,186,100,4909,0) + +"DATA",811.8,186,100,4910,0) +3446 +"DATA",811.8,186,100,4911,0) +3433 +"DATA",811.8,186,100,4912,0) +3424 +"DATA",811.8,186,100,4913,0) +3453 +"DATA",811.8,186,100,4914,0) +3451 +"DATA",811.8,186,100,4915,0) + +"DATA",811.8,186,100,4916,0) + +"DATA",811.8,186,100,4917,0) +3479 +"DATA",811.8,186,100,4918,0) +3466 +"DATA",811.8,186,100,4919,0) +3457 +"DATA",811.8,186,100,4920,0) +3486 +"DATA",811.8,186,100,4921,0) +3484 +"DATA",811.8,186,100,4922,0) + +"DATA",811.8,186,100,4923,0) + +"DATA",811.8,186,100,4924,0) +3512 +"DATA",811.8,186,100,4925,0) +3499 +"DATA",811.8,186,100,4926,0) +3490 +"DATA",811.8,186,100,4927,0) +3519 +"DATA",811.8,186,100,4928,0) +3517 +"DATA",811.8,186,100,4929,0) + +"DATA",811.8,186,100,4930,0) + +"DATA",811.8,186,100,4931,0) +3557 +"DATA",811.8,186,100,4932,0) +3532 +"DATA",811.8,186,100,4933,0) +3523 +"DATA",811.8,186,100,4934,0) +3568 +"DATA",811.8,186,100,4935,0) +3562 +"DATA",811.8,186,100,4936,0) + +"DATA",811.8,186,100,4937,0) + +"DATA",811.8,186,100,4938,0) +3597 +"DATA",811.8,186,100,4939,0) +3581 +"DATA",811.8,186,100,4940,0) +3572 +"DATA",811.8,186,100,4941,0) +3603 +"DATA",811.8,186,100,4942,0) +3602 +"DATA",811.8,186,100,4943,0) + +"DATA",811.8,186,100,4944,0) + +"DATA",811.8,186,100,4945,0) +3629 +"DATA",811.8,186,100,4946,0) +3616 +"DATA",811.8,186,100,4947,0) +3607 +"DATA",811.8,186,100,4948,0) +3635 +"DATA",811.8,186,100,4949,0) +3634 +"DATA",811.8,186,100,4950,0) + +"DATA",811.8,186,100,4951,0) + +"DATA",811.8,186,100,4952,0) +3666 +"DATA",811.8,186,100,4953,0) +3648 +"DATA",811.8,186,100,4954,0) +3639 +"DATA",811.8,186,100,4955,0) +3673 +"DATA",811.8,186,100,4956,0) +3671 +"DATA",811.8,186,100,4957,0) + +"DATA",811.8,186,100,4958,0) + +"DATA",811.8,186,100,4959,0) +3699 +"DATA",811.8,186,100,4960,0) +3686 +"DATA",811.8,186,100,4961,0) +3677 +"DATA",811.8,186,100,4962,0) +3705 +"DATA",811.8,186,100,4963,0) +3704 +"DATA",811.8,186,100,4964,0) + +"DATA",811.8,186,100,4965,0) + +"DATA",811.8,186,100,4966,0) +3732 +"DATA",811.8,186,100,4967,0) +3718 +"DATA",811.8,186,100,4968,0) +3709 +"DATA",811.8,186,100,4969,0) +3739 +"DATA",811.8,186,100,4970,0) +3737 +"DATA",811.8,186,100,4971,0) + +"DATA",811.8,186,100,4972,0) + +"DATA",811.8,186,100,4973,0) +3770 +"DATA",811.8,186,100,4974,0) +3752 +"DATA",811.8,186,100,4975,0) +3743 +"DATA",811.8,186,100,4976,0) +3777 +"DATA",811.8,186,100,4977,0) +3775 +"DATA",811.8,186,100,4978,0) + +"DATA",811.8,186,100,4979,0) + +"DATA",811.8,186,100,4980,0) +3808 +"DATA",811.8,186,100,4981,0) +3790 +"DATA",811.8,186,100,4982,0) +3781 +"DATA",811.8,186,100,4983,0) +3815 +"DATA",811.8,186,100,4984,0) +3813 +"DATA",811.8,186,100,4985,0) + +"DATA",811.8,186,100,4986,0) + +"DATA",811.8,186,100,4987,0) +3839 +"DATA",811.8,186,100,4988,0) +3828 +"DATA",811.8,186,100,4989,0) +3819 +"DATA",811.8,186,100,4990,0) +3844 +"DATA",811.8,186,100,4991,0) +3844 +"DATA",811.8,186,100,4992,0) + +"DATA",811.8,186,100,4993,0) + +"DATA",811.8,186,100,4994,0) +3873 +"DATA",811.8,186,100,4995,0) +3857 +"DATA",811.8,186,100,4996,0) +3848 +"DATA",811.8,186,100,4997,0) +3879 +"DATA",811.8,186,100,4998,0) +3878 +"DATA",811.8,186,100,4999,0) + +"DATA",811.8,186,100,5000,0) + +"DATA",811.8,186,100,5001,0) +3907 +"DATA",811.8,186,100,5002,0) +3892 +"DATA",811.8,186,100,5003,0) +3883 +"DATA",811.8,186,100,5004,0) +3917 +"DATA",811.8,186,100,5005,0) +3912 +"DATA",811.8,186,100,5006,0) + +"DATA",811.8,186,100,5007,0) + +"DATA",811.8,186,100,5008,0) +3938 +"DATA",811.8,186,100,5009,0) +3930 +"DATA",811.8,186,100,5010,0) +3921 +"DATA",811.8,186,100,5011,0) +3943 +"DATA",811.8,186,100,5012,0) +3943 +"DATA",811.8,186,100,5013,0) + +"DATA",811.8,186,100,5014,0) + +"DATA",811.8,186,100,5015,0) +3969 +"DATA",811.8,186,100,5016,0) +3956 +"DATA",811.8,186,100,5017,0) +3947 +"DATA",811.8,186,100,5018,0) +3975 +"DATA",811.8,186,100,5019,0) +3974 +"DATA",811.8,186,100,5020,0) + +"DATA",811.8,186,100,5021,0) + +"DATA",811.8,186,100,5022,0) +3998 +"DATA",811.8,186,100,5023,0) +3988 +"DATA",811.8,186,100,5024,0) +3979 +"DATA",811.8,186,100,5025,0) +4005 +"DATA",811.8,186,100,5026,0) +4003 +"DATA",811.8,186,100,5027,0) + +"DATA",811.8,186,100,5028,0) + +"DATA",811.8,186,100,5029,0) +4018 +"DATA",811.8,186,100,5030,0) +4018 +"DATA",811.8,186,100,5031,0) +4009 +"DATA",811.8,186,100,5032,0) + +"DATA",811.8,186,100,5033,0) + +"DATA",811.8,186,100,5034,0) +4042 +"DATA",811.8,186,100,5035,0) +4031 +"DATA",811.8,186,100,5036,0) +4022 +"DATA",811.8,186,100,5037,0) +4049 +"DATA",811.8,186,100,5038,0) +4047 +"DATA",811.8,186,100,5039,0) + +"DATA",811.8,186,100,5040,0) + +"DATA",811.8,186,100,5041,0) +4079 +"DATA",811.8,186,100,5042,0) +4062 +"DATA",811.8,186,100,5043,0) +4053 +"DATA",811.8,186,100,5044,0) + +"DATA",811.8,186,100,5045,0) + +"DATA",811.8,186,100,5046,0) +4097 +"DATA",811.8,186,100,5047,0) +4092 +"DATA",811.8,186,100,5048,0) +4083 +"DATA",811.8,186,100,5049,0) + +"DATA",811.8,186,100,5050,0) + +"DATA",811.8,186,100,5051,0) + +"DATA",811.8,186,110,0) +^811.804^18^18 +"DATA",811.8,186,110,1,0) +Source: BOKHARI,SYED at VOE OFFICE INSTITUTION +"DATA",811.8,186,110,2,0) +Date Packed: 08/01/2012@18:32:29 +"DATA",811.8,186,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,186,110,4,0) + +"DATA",811.8,186,110,5,0) +Description: +"DATA",811.8,186,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,186,110,7,0) +REMINDER DIALOG +"DATA",811.8,186,110,8,0) + MU NQF0028AB MANAGEMENT DI +"DATA",811.8,186,110,9,0) + MU NQF0038 IMMUNE MANAGEMENT DI +"DATA",811.8,186,110,10,0) + MU NQF0041 INFLUENZA MANAGEMENT DI +"DATA",811.8,186,110,11,0) + MU NQF0421 BMI DI +"DATA",811.8,186,110,12,0) + +"DATA",811.8,186,110,13,0) +REMINDER DEFINITION +"DATA",811.8,186,110,14,0) + MU SMOKING STATUS +"DATA",811.8,186,110,15,0) + +"DATA",811.8,186,110,16,0) +Keywords: +"DATA",811.8,186,110,17,0) + +"DATA",811.8,186,110,18,0) +Components: +"DATA",811.8,186,119) +9 +"DATA",811.8,186,120,0) +^811.802A^155^155 +"DATA",811.8,186,120,1,0) +IMMUNIZATION^9999999.14^33 +"DATA",811.8,186,120,1,1,0) +^811.8021A^33^33 +"DATA",811.8,186,120,1,1,1,0) +FLU,3 YRS^33^34^^^1^0 +"DATA",811.8,186,120,1,1,2,0) +INFLUENZA^47^49^^^1^0 +"DATA",811.8,186,120,1,1,3,0) +RV 3 PEDS^62^64^^^1^0 +"DATA",811.8,186,120,1,1,4,0) +RV 2 PEDS^77^79^^^1^0 +"DATA",811.8,186,120,1,1,5,0) +RV 1 PEDS^92^94^^^1^0 +"DATA",811.8,186,120,1,1,6,0) +HEP A3 PEDS^107^108^^^1^0 +"DATA",811.8,186,120,1,1,7,0) +HEP A2 PEDS^121^123^^^1^0 +"DATA",811.8,186,120,1,1,8,0) +HEP A1 PEDS^136^138^^^1^0 +"DATA",811.8,186,120,1,1,9,0) +PCV5 PEDS^151^153^^^1^0 +"DATA",811.8,186,120,1,1,10,0) +PCV4 PEDS^166^168^^^1^0 +"DATA",811.8,186,120,1,1,11,0) +PCV3 PEDS^181^183^^^1^0 +"DATA",811.8,186,120,1,1,12,0) +PCV2 PEDS^196^198^^^1^0 +"DATA",811.8,186,120,1,1,13,0) +PCV1 PEDS^211^213^^^1^0 +"DATA",811.8,186,120,1,1,14,0) +VZV1 INFANT^226^228^^^1^0 +"DATA",811.8,186,120,1,1,15,0) +HEP B4 INFANT^241^243^^^1^0 +"DATA",811.8,186,120,1,1,16,0) +HEP B3 INFANT^256^258^^^1^0 +"DATA",811.8,186,120,1,1,17,0) +HEP B2 INFANT^271^273^^^1^0 +"DATA",811.8,186,120,1,1,18,0) +HEP B1 INFANT^286^288^^^1^0 +"DATA",811.8,186,120,1,1,19,0) +HIB PED 4^301^302^^^1^0 +"DATA",811.8,186,120,1,1,20,0) +HIB PED 3^315^316^^^1^0 +"DATA",811.8,186,120,1,1,21,0) +HIB PED 2^329^330^^^1^0 +"DATA",811.8,186,120,1,1,22,0) +HIB PED 1^343^344^^^1^0 +"DATA",811.8,186,120,1,1,23,0) +MEASLES,MUMPS,RUBELLA PED #2^357^358^^^1^0 +"DATA",811.8,186,120,1,1,24,0) +MEASLES,MUMPS,RUBELLA PED #1^371^372^^^1^0 +"DATA",811.8,186,120,1,1,25,0) +IPV1^385^387^^^1^0 +"DATA",811.8,186,120,1,1,26,0) +IPV4^400^402^^^1^0 +"DATA",811.8,186,120,1,1,27,0) +IPV3^415^417^^^1^0 +"DATA",811.8,186,120,1,1,28,0) +IPV2^430^432^^^1^0 +"DATA",811.8,186,120,1,1,29,0) +DTaP5^445^447^^^1^0 +"DATA",811.8,186,120,1,1,30,0) +DTaP4^460^462^^^1^0 +"DATA",811.8,186,120,1,1,31,0) +DTaP3^475^477^^^1^0 +"DATA",811.8,186,120,1,1,32,0) +DTaP2^490^492^^^1^0 +"DATA",811.8,186,120,1,1,33,0) +DTaP1^505^507^^^1^0 +"DATA",811.8,186,120,2,0) +HEALTH FACTORS^9999999.64^33 +"DATA",811.8,186,120,2,1,0) +^811.8021A^33^33 +"DATA",811.8,186,120,2,1,1,0) +BMI MANAGEMENT OPTIONS^520^521^^^1^0 +"DATA",811.8,186,120,2,1,2,0) +BMI DIETARY CONSULT DONE^534^537^^^1^0 +"DATA",811.8,186,120,2,1,3,0) +BMI CARE GOAL DOCUMENTED^550^553^^^1^0 +"DATA",811.8,186,120,2,1,4,0) +SNOMED CODES^566^567^^^1^0 +"DATA",811.8,186,120,2,1,5,0) +395700008^580^584^^^1^0 +"DATA",811.8,186,120,2,1,6,0) +384742004^597^601^^^1^0 +"DATA",811.8,186,120,2,1,7,0) +225323000^614^618^^^1^0 +"DATA",811.8,186,120,2,1,8,0) +SMOKING STATUS RECODE^631^632^^^1^0 +"DATA",811.8,186,120,2,1,9,0) +009^645^648^^^1^0 +"DATA",811.8,186,120,2,1,10,0) +MU SMOKING STATUS^661^662^^^1^0 +"DATA",811.8,186,120,2,1,11,0) +STATUS-UNKNOWN IF EVER SMOKED (009)^675^679^^^1^0 +"DATA",811.8,186,120,2,1,12,0) +005^692^695^^^1^0 +"DATA",811.8,186,120,2,1,13,0) +STATUS-SMOKER, CURRENT STATUS UNK (005)^708^712^^^1^0 +"DATA",811.8,186,120,2,1,14,0) +004^725^728^^^1^0 +"DATA",811.8,186,120,2,1,15,0) +STATUS-NEVER SMOKER (004)^741^745^^^1^0 +"DATA",811.8,186,120,2,1,16,0) +003^758^761^^^1^0 +"DATA",811.8,186,120,2,1,17,0) +STATUS-FORMER SMOKER (003)^774^778^^^1^0 +"DATA",811.8,186,120,2,1,18,0) +002^791^794^^^1^0 +"DATA",811.8,186,120,2,1,19,0) +STATUS-CURRENT SOME DAY SMOKER (002)^807^811^^^1^0 +"DATA",811.8,186,120,2,1,20,0) +001^824^827^^^1^0 +"DATA",811.8,186,120,2,1,21,0) +STATUS-CURRENT EVERY DAY SMOKER (001)^840^844^^^1^0 +"DATA",811.8,186,120,2,1,22,0) +110483000^857^861^^^1^0 +"DATA",811.8,186,120,2,1,23,0) +228504007^874^878^^^1^0 +"DATA",811.8,186,120,2,1,24,0) +228491005^891^895^^^1^0 +"DATA",811.8,186,120,2,1,25,0) +TOBACCO^908^911^^^1^0 +"DATA",811.8,186,120,2,1,26,0) +CURRENT NON-SMOKER^924^928^^^1^0 +"DATA",811.8,186,120,2,1,27,0) +105539002^941^945^^^1^0 +"DATA",811.8,186,120,2,1,28,0) +Current every day smoker (001)^958^961^^^1^0 +"DATA",811.8,186,120,2,1,29,0) +Current some day smoker^974^977^^^1^0 +"DATA",811.8,186,120,2,1,30,0) +Former Smoker^990^993^^^1^0 +"DATA",811.8,186,120,2,1,31,0) +Never Smoker^1006^1009^^^1^0 +"DATA",811.8,186,120,2,1,32,0) +Smoker, current status unknown^1022^1025^^^1^0 +"DATA",811.8,186,120,2,1,33,0) +Unknown if ever smoked^1038^1041^^^1^0 +"DATA",811.8,186,120,3,0) +REMINDER TERM^811.5^1 +"DATA",811.8,186,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,3,1,1,0) +MU SMOKING STATUS HF^1054^1070^1075^1081^1^0 +"DATA",811.8,186,120,4,0) +REMINDER DEFINITION^811.9^1 +"DATA",811.8,186,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,4,1,1,0) +MU SMOKING STATUS^1094^1133^1138^1140^1^1 +"DATA",811.8,186,120,5,0) +REMINDER DIALOG^801.41^83 +"DATA",811.8,186,120,5,1,0) +^811.8021A^83^83 +"DATA",811.8,186,120,5,1,1,0) +PXRM COMMENT^1153^1160^1165^1165^1^0 +"DATA",811.8,186,120,5,1,2,0) +MU NQF0421 BMI CONSULT EL^1178^1190^1195^1196^1^0 +"DATA",811.8,186,120,5,1,3,0) +MU NQF0421 BMI MANAGEMENT PLAN EL^1209^1221^1226^1227^1^0 +"DATA",811.8,186,120,5,1,4,0) +MU NQF0421 BMI MANAGEMENT GP^1240^1257^1262^1264^1^0 +"DATA",811.8,186,120,5,1,5,0) +MU NQF0421 BMI DI^1277^1284^1289^1290^1^1 +"DATA",811.8,186,120,5,1,6,0) +PXRM OUTSIDE LOCATION^1303^1310^1315^1315^1^0 +"DATA",811.8,186,120,5,1,7,0) +PXRM VISIT DATE^1328^1335^1340^1340^1^0 +"DATA",811.8,186,120,5,1,8,0) +MU NQF0041 FLU HISTORICAL EL^1353^1366^1371^1373^1^0 +"DATA",811.8,186,120,5,1,9,0) +MU NQF0041 FLU VACCINE GP^1386^1401^1406^1407^1^0 +"DATA",811.8,186,120,5,1,10,0) +MU NQF0041 INFLUENZA MANAGEMENT DI^1420^1427^1432^1433^1^1 +"DATA",811.8,186,120,5,1,11,0) +MU NQF0038 FLU2 EL^1446^1459^1464^1466^1^0 +"DATA",811.8,186,120,5,1,12,0) +MU NQF0038 FLU1 EL^1479^1492^1497^1499^1^0 +"DATA",811.8,186,120,5,1,13,0) +MU NQF0038 FLU GP^1512^1529^1534^1536^1^0 +"DATA",811.8,186,120,5,1,14,0) +MU NQF0038 RV3 EL^1549^1562^1567^1569^1^0 +"DATA",811.8,186,120,5,1,15,0) +MU NQF0038 RV2 EL^1582^1595^1600^1602^1^0 +"DATA",811.8,186,120,5,1,16,0) +MU NQF0038 RV1 EL^1615^1628^1633^1635^1^0 +"DATA",811.8,186,120,5,1,17,0) +MU NQF0038 RV GP^1648^1667^1672^1675^1^0 +"DATA",811.8,186,120,5,1,18,0) +MU NQF0038 HEP A3 EL^1688^1701^1706^1708^1^0 +"DATA",811.8,186,120,5,1,19,0) +MU NQF0038 HEP A2 EL^1721^1734^1739^1741^1^0 +"DATA",811.8,186,120,5,1,20,0) +MU NQF0038 HEP A1 EL^1754^1767^1772^1774^1^0 +"DATA",811.8,186,120,5,1,21,0) +MU NQF0038 HEP A GP^1787^1806^1811^1814^1^0 +"DATA",811.8,186,120,5,1,22,0) +MU NQF0038 PCV5 EL^1827^1840^1845^1847^1^0 +"DATA",811.8,186,120,5,1,23,0) +MU NQF0038 PCV4 EL^1860^1873^1878^1880^1^0 +"DATA",811.8,186,120,5,1,24,0) +MU NQF0038 PCV3 EL^1893^1906^1911^1913^1^0 +"DATA",811.8,186,120,5,1,25,0) +MU NQF0038 PCV2 EL^1926^1939^1944^1946^1^0 +"DATA",811.8,186,120,5,1,26,0) +MU NQF0038 PCV1 EL^1959^1972^1977^1979^1^0 +"DATA",811.8,186,120,5,1,27,0) +MU NQF0038 PCV GP^1992^2015^2020^2025^1^0 +"DATA",811.8,186,120,5,1,28,0) +MU NQF0038 VZV1 EL^2038^2051^2056^2058^1^0 +"DATA",811.8,186,120,5,1,29,0) +MU NQF0038 VZV GP^2071^2086^2091^2092^1^0 +"DATA",811.8,186,120,5,1,30,0) +MU NQF0038 HEP B4 EL^2105^2118^2123^2125^1^0 +"DATA",811.8,186,120,5,1,31,0) +MU NQF0038 HEP B3 EL^2138^2151^2156^2158^1^0 +"DATA",811.8,186,120,5,1,32,0) +MU NQF0038 HEP B2 EL^2171^2184^2189^2191^1^0 +"DATA",811.8,186,120,5,1,33,0) +MU NQF0038 HEP B1 EL^2204^2217^2222^2224^1^0 +"DATA",811.8,186,120,5,1,34,0) +MU NQF0038 HEP B GP^2237^2258^2263^2267^1^0 +"DATA",811.8,186,120,5,1,35,0) +MU NQF0038 HIB4 EL^2280^2293^2298^2300^1^0 +"DATA",811.8,186,120,5,1,36,0) +MU NQF0038 HIB3 EL^2313^2326^2331^2333^1^0 +"DATA",811.8,186,120,5,1,37,0) +MU NQF0038 HIB2 EL^2346^2359^2364^2366^1^0 +"DATA",811.8,186,120,5,1,38,0) +MU NQF0038 HIB1 EL^2379^2392^2397^2399^1^0 +"DATA",811.8,186,120,5,1,39,0) +MU NQF0038 HIB GP^2412^2433^2438^2442^1^0 +"DATA",811.8,186,120,5,1,40,0) +MU NQF0038 MMR2 EL^2455^2468^2473^2475^1^0 +"DATA",811.8,186,120,5,1,41,0) +MU NQF0038 MMR1^2488^2501^2506^2508^1^0 +"DATA",811.8,186,120,5,1,42,0) +MU NQF0038 MMR GP^2521^2538^2543^2545^1^0 +"DATA",811.8,186,120,5,1,43,0) +MU NQF0038 IVP1 EL^2558^2571^2576^2578^1^0 +"DATA",811.8,186,120,5,1,44,0) +MU NQF0038 IPV4 EL^2591^2604^2609^2611^1^0 +"DATA",811.8,186,120,5,1,45,0) +MU NQF0038 IPV3 EL^2624^2637^2642^2644^1^0 +"DATA",811.8,186,120,5,1,46,0) +MU NQF0038 IPV2 EL^2657^2670^2675^2677^1^0 +"DATA",811.8,186,120,5,1,47,0) +MU NQF0038 IPV GP^2690^2711^2716^2720^1^0 +"DATA",811.8,186,120,5,1,48,0) +MU NQF0038 DTAP5 EL^2733^2748^2753^2755^1^0 +"DATA",811.8,186,120,5,1,49,0) +MU NQF0038 DTAP4 EL^2768^2783^2788^2790^1^0 +"DATA",811.8,186,120,5,1,50,0) +MU NQF0038 DTAP3 EL^2803^2818^2823^2825^1^0 +"DATA",811.8,186,120,5,1,51,0) +MU NQF0038 DTAP2 EL^2838^2853^2858^2860^1^0 +"DATA",811.8,186,120,5,1,52,0) +MU NQF0038 DPT1 EL^2873^2888^2893^2895^1^0 +"DATA",811.8,186,120,5,1,53,0) +MU NQF0038 DTP MANAGE GP^2908^2931^2936^2941^1^0 +"DATA",811.8,186,120,5,1,54,0) +MU NQF0038 INFO EL^2954^3000^3005^3005^1^0 +"DATA",811.8,186,120,5,1,55,0) +MU NQF0038 INFANT IMMUNE MANAGEMENT BANNER GP^3018^3036^3041^3043^1^0 +"DATA",811.8,186,120,5,1,56,0) +MU NQF0038 IMMUNE MANAGEMENT DI^3056^3081^3086^3096^1^1 +"DATA",811.8,186,120,5,1,57,0) +MU NQF0028AB TOBACCO REFERRAL EL^3109^3122^3127^3128^1^0 +"DATA",811.8,186,120,5,1,58,0) +MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL^3141^3154^3159^3160^1^0 +"DATA",811.8,186,120,5,1,59,0) +MU NQF0028AB TOBACCO COUNSELING TODAY EL^3173^3186^3191^3192^1^0 +"DATA",811.8,186,120,5,1,60,0) +MU NQF0028B TOBACCO INTERVENTION GP^3205^3225^3230^3233^1^0 +"DATA",811.8,186,120,5,1,61,0) +PXRM ADD TO PROBLEM LIST^3246^3255^3260^3260^1^0 +"DATA",811.8,186,120,5,1,62,0) +MU NQF0028 TOBACCO USE-ADD DX EL^3273^3285^3290^3291^1^0 +"DATA",811.8,186,120,5,1,63,0) +MU NQF0028 ADD TO PL GP^3304^3319^3324^3325^1^0 +"DATA",811.8,186,120,5,1,64,0) +MU SMOKING STATUS UNK IF EVER EL^3338^3351^3356^3358^1^0 +"DATA",811.8,186,120,5,1,65,0) +MU SMOKING STATUS SMOKER-UNK EL^3371^3384^3389^3391^1^0 +"DATA",811.8,186,120,5,1,66,0) +MU SMOKING STATUS NEVER SMOKER EL^3404^3414^3419^3420^1^0 +"DATA",811.8,186,120,5,1,67,0) +MU SMOKING STATUS FORMER SMOKER EL^3433^3446^3451^3453^1^0 +"DATA",811.8,186,120,5,1,68,0) +MU SMOKING STATUS CURRENT SOME DAY EL^3466^3479^3484^3486^1^0 +"DATA",811.8,186,120,5,1,69,0) +MU SMOKING STATUS CURRENT EVERY DAY EL^3499^3512^3517^3519^1^0 +"DATA",811.8,186,120,5,1,70,0) +MU SMOKING STATUS GP^3532^3557^3562^3568^1^0 +"DATA",811.8,186,120,5,1,71,0) +MU NQF0028 SMOKING POS GP^3581^3597^3602^3603^1^0 +"DATA",811.8,186,120,5,1,72,0) +MU NQF0028AB SMOKELESS TOBACCO POS SCREEN EL^3616^3629^3634^3635^1^0 +"DATA",811.8,186,120,5,1,73,0) +MU NQF0028A TOBACCO USER GP^3648^3666^3671^3673^1^0 +"DATA",811.8,186,120,5,1,74,0) +MU NQF0028AB SMOKELESS TOBACCO NEGATIVE EL^3686^3699^3704^3705^1^0 +"DATA",811.8,186,120,5,1,75,0) +MU NQF0028AB NONSMOKER SCREEN EL^3718^3732^3737^3739^1^0 +"DATA",811.8,186,120,5,1,76,0) +MU NQF0028A TOBACCO NONUSER GP^3752^3770^3775^3777^1^0 +"DATA",811.8,186,120,5,1,77,0) +MU NQF0028A MANAGMENT SCREEN GP^3790^3808^3813^3815^1^0 +"DATA",811.8,186,120,5,1,78,0) +PQRI M0028 INFO EL^3828^3839^3844^3844^1^0 +"DATA",811.8,186,120,5,1,79,0) +PQRI M0028 INFO GP^3857^3873^3878^3879^1^0 +"DATA",811.8,186,120,5,1,80,0) +MU NQF0028AB MANAGEMENT DI^3892^3907^3912^3917^1^1 +"DATA",811.8,186,120,5,1,81,0) +MU SMOKING STATUS HISTORY EL^3930^3938^3943^3943^1^0 +"DATA",811.8,186,120,5,1,82,0) +MU SMOKING STATUS HX GP^3956^3969^3974^3975^1^0 +"DATA",811.8,186,120,5,1,83,0) +MU SMOKING STATUS DI^3988^3998^4003^4005^1^1 +"DATA",811.8,186,120,6,0) +HEALTH SUMMARY COMPONENT^142.1^1 +"DATA",811.8,186,120,6,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,6,1,1,0) +PCE HEALTH FACTORS SELECTED^4018^4018^^^0^0 +"DATA",811.8,186,120,7,0) +HEALTH SUMMARY TYPE^142^1 +"DATA",811.8,186,120,7,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,7,1,1,0) +MU SMOKING STATUS HS^4031^4042^4047^4049^1^1 +"DATA",811.8,186,120,8,0) +HEALTH SUMMARY OBJECTS^142.5^1 +"DATA",811.8,186,120,8,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,8,1,1,0) +MU SMOKING STATUS (TIU)^4062^4079^^^1^1 +"DATA",811.8,186,120,9,0) +TIU DOCUMENT DEFINITION^8925.1^1 +"DATA",811.8,186,120,9,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,9,1,1,0) +MU SMOKING STATUS^4092^4097^^^1^1 +"DATA",811.8,186,130,0) +^811.803DA^2^2 +"DATA",811.8,186,130,1,0) +3120803.105544^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,186,130,1,1,0) +^811.8031A^71^71 +"DATA",811.8,186,130,1,1,1,0) +1^IMMUNIZATION^FLU,3 YRS^S^ +"DATA",811.8,186,130,1,1,2,0) +2^IMMUNIZATION^INFLUENZA^S^ +"DATA",811.8,186,130,1,1,3,0) +3^IMMUNIZATION^RV 3 PEDS^S^ +"DATA",811.8,186,130,1,1,4,0) +4^IMMUNIZATION^RV 2 PEDS^S^ +"DATA",811.8,186,130,1,1,5,0) +5^IMMUNIZATION^RV 1 PEDS^S^ +"DATA",811.8,186,130,1,1,6,0) +6^IMMUNIZATION^HEP A3 PEDS^S^ +"DATA",811.8,186,130,1,1,7,0) +7^IMMUNIZATION^HEP A2 PEDS^S^ +"DATA",811.8,186,130,1,1,8,0) +8^IMMUNIZATION^HEP A1 PEDS^S^ +"DATA",811.8,186,130,1,1,9,0) +9^IMMUNIZATION^PCV5 PEDS^S^ +"DATA",811.8,186,130,1,1,10,0) +10^IMMUNIZATION^PCV4 PEDS^S^ +"DATA",811.8,186,130,1,1,11,0) +11^IMMUNIZATION^PCV3 PEDS^S^ +"DATA",811.8,186,130,1,1,12,0) +12^IMMUNIZATION^PCV2 PEDS^S^ +"DATA",811.8,186,130,1,1,13,0) +13^IMMUNIZATION^PCV1 PEDS^S^ +"DATA",811.8,186,130,1,1,14,0) +14^IMMUNIZATION^VZV1 INFANT^S^ +"DATA",811.8,186,130,1,1,15,0) +15^IMMUNIZATION^HEP B4 INFANT^S^ +"DATA",811.8,186,130,1,1,16,0) +16^IMMUNIZATION^HEP B3 INFANT^S^ +"DATA",811.8,186,130,1,1,17,0) +17^IMMUNIZATION^HEP B2 INFANT^S^ +"DATA",811.8,186,130,1,1,18,0) +18^IMMUNIZATION^HEP B1 INFANT^S^ +"DATA",811.8,186,130,1,1,19,0) +19^IMMUNIZATION^HIB PED 4^S^ +"DATA",811.8,186,130,1,1,20,0) +20^IMMUNIZATION^HIB PED 3^S^ +"DATA",811.8,186,130,1,1,21,0) +21^IMMUNIZATION^HIB PED 2^S^ +"DATA",811.8,186,130,1,1,22,0) +22^IMMUNIZATION^HIB PED 1^S^ +"DATA",811.8,186,130,1,1,23,0) +23^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #2^S^ +"DATA",811.8,186,130,1,1,24,0) +24^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #1^S^ +"DATA",811.8,186,130,1,1,25,0) +25^IMMUNIZATION^IPV1^S^ +"DATA",811.8,186,130,1,1,26,0) +26^IMMUNIZATION^IPV4^S^ +"DATA",811.8,186,130,1,1,27,0) +27^IMMUNIZATION^IPV3^S^ +"DATA",811.8,186,130,1,1,28,0) +28^IMMUNIZATION^IPV2^S^ +"DATA",811.8,186,130,1,1,29,0) +29^IMMUNIZATION^DTaP5^S^ +"DATA",811.8,186,130,1,1,30,0) +30^IMMUNIZATION^DTaP4^S^ +"DATA",811.8,186,130,1,1,31,0) +31^IMMUNIZATION^DTaP3^S^ +"DATA",811.8,186,130,1,1,32,0) +32^IMMUNIZATION^DTaP2^S^ +"DATA",811.8,186,130,1,1,33,0) +33^IMMUNIZATION^DTaP1^S^ +"DATA",811.8,186,130,1,1,34,0) +34^HEALTH FACTORS^BMI MANAGEMENT OPTIONS^S^ +"DATA",811.8,186,130,1,1,35,0) +35^HEALTH FACTORS^BMI DIETARY CONSULT DONE^S^ +"DATA",811.8,186,130,1,1,36,0) +36^HEALTH FACTORS^BMI CARE GOAL DOCUMENTED^S^ +"DATA",811.8,186,130,1,1,37,0) +37^HEALTH FACTORS^SNOMED CODES^S^ +"DATA",811.8,186,130,1,1,38,0) +38^HEALTH FACTORS^395700008^S^ +"DATA",811.8,186,130,1,1,39,0) +39^HEALTH FACTORS^384742004^S^ +"DATA",811.8,186,130,1,1,40,0) +40^HEALTH FACTORS^225323000^S^ +"DATA",811.8,186,130,1,1,41,0) +41^HEALTH FACTORS^SMOKING STATUS RECODE^S^ +"DATA",811.8,186,130,1,1,42,0) +42^HEALTH FACTORS^009^S^ +"DATA",811.8,186,130,1,1,43,0) +43^HEALTH FACTORS^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,1,1,44,0) +44^HEALTH FACTORS^STATUS-UNKNOWN IF EVER SMOKED (009)^S^ +"DATA",811.8,186,130,1,1,45,0) +45^HEALTH FACTORS^005^S^ +"DATA",811.8,186,130,1,1,46,0) +46^HEALTH FACTORS^STATUS-SMOKER, CURRENT STATUS UNK (005)^S^ +"DATA",811.8,186,130,1,1,47,0) +47^HEALTH FACTORS^004^S^ +"DATA",811.8,186,130,1,1,48,0) +48^HEALTH FACTORS^STATUS-NEVER SMOKER (004)^S^ +"DATA",811.8,186,130,1,1,49,0) +49^HEALTH FACTORS^003^S^ +"DATA",811.8,186,130,1,1,50,0) +50^HEALTH FACTORS^STATUS-FORMER SMOKER (003)^S^ +"DATA",811.8,186,130,1,1,51,0) +51^HEALTH FACTORS^002^S^ +"DATA",811.8,186,130,1,1,52,0) +52^HEALTH FACTORS^STATUS-CURRENT SOME DAY SMOKER (002)^S^ +"DATA",811.8,186,130,1,1,53,0) +53^HEALTH FACTORS^001^S^ +"DATA",811.8,186,130,1,1,54,0) +54^HEALTH FACTORS^STATUS-CURRENT EVERY DAY SMOKER (001)^S^ +"DATA",811.8,186,130,1,1,55,0) +55^HEALTH FACTORS^110483000^S^ +"DATA",811.8,186,130,1,1,56,0) +56^HEALTH FACTORS^228504007^S^ +"DATA",811.8,186,130,1,1,57,0) +57^HEALTH FACTORS^228491005^S^ +"DATA",811.8,186,130,1,1,58,0) +58^HEALTH FACTORS^TOBACCO^S^ +"DATA",811.8,186,130,1,1,59,0) +59^HEALTH FACTORS^CURRENT NON-SMOKER^S^ +"DATA",811.8,186,130,1,1,60,0) +60^HEALTH FACTORS^105539002^S^ +"DATA",811.8,186,130,1,1,61,0) +61^HEALTH FACTORS^Current every day smoker (001)^S^ +"DATA",811.8,186,130,1,1,62,0) +62^HEALTH FACTORS^Current some day smoker^S^ +"DATA",811.8,186,130,1,1,63,0) +63^HEALTH FACTORS^Former Smoker^S^ +"DATA",811.8,186,130,1,1,64,0) +64^HEALTH FACTORS^Never Smoker^S^ +"DATA",811.8,186,130,1,1,65,0) +65^HEALTH FACTORS^Smoker, current status unknown^S^ +"DATA",811.8,186,130,1,1,66,0) +66^HEALTH FACTORS^Unknown if ever smoked^S^ +"DATA",811.8,186,130,1,1,67,0) +67^REMINDER TERM^MU SMOKING STATUS HF^S^ +"DATA",811.8,186,130,1,1,68,0) +68^REMINDER DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,1,1,69,0) +74^HEALTH SUMMARY TYPE^MU SMOKING STATUS HS^S^ +"DATA",811.8,186,130,1,1,70,0) +75^HEALTH SUMMARY OBJECTS^MU SMOKING STATUS (TIU)^O^ +"DATA",811.8,186,130,1,1,71,0) +76^TIU DOCUMENT DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,0) +3120803.1101^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,186,130,2,1,0) +^811.8031A^183^183 +"DATA",811.8,186,130,2,1,1,0) +1^IMMUNIZATION^FLU,3 YRS^S^ +"DATA",811.8,186,130,2,1,2,0) +2^IMMUNIZATION^INFLUENZA^S^ +"DATA",811.8,186,130,2,1,3,0) +3^IMMUNIZATION^RV 3 PEDS^S^ +"DATA",811.8,186,130,2,1,4,0) +4^IMMUNIZATION^RV 2 PEDS^S^ +"DATA",811.8,186,130,2,1,5,0) +5^IMMUNIZATION^RV 1 PEDS^S^ +"DATA",811.8,186,130,2,1,6,0) +6^IMMUNIZATION^HEP A3 PEDS^S^ +"DATA",811.8,186,130,2,1,7,0) +7^IMMUNIZATION^HEP A2 PEDS^S^ +"DATA",811.8,186,130,2,1,8,0) +8^IMMUNIZATION^HEP A1 PEDS^S^ +"DATA",811.8,186,130,2,1,9,0) +9^IMMUNIZATION^PCV5 PEDS^S^ +"DATA",811.8,186,130,2,1,10,0) +10^IMMUNIZATION^PCV4 PEDS^S^ +"DATA",811.8,186,130,2,1,11,0) +11^IMMUNIZATION^PCV3 PEDS^S^ +"DATA",811.8,186,130,2,1,12,0) +12^IMMUNIZATION^PCV2 PEDS^S^ +"DATA",811.8,186,130,2,1,13,0) +13^IMMUNIZATION^PCV1 PEDS^S^ +"DATA",811.8,186,130,2,1,14,0) +14^IMMUNIZATION^VZV1 INFANT^S^ +"DATA",811.8,186,130,2,1,15,0) +15^IMMUNIZATION^HEP B4 INFANT^S^ +"DATA",811.8,186,130,2,1,16,0) +16^IMMUNIZATION^HEP B3 INFANT^S^ +"DATA",811.8,186,130,2,1,17,0) +17^IMMUNIZATION^HEP B2 INFANT^S^ +"DATA",811.8,186,130,2,1,18,0) +18^IMMUNIZATION^HEP B1 INFANT^S^ +"DATA",811.8,186,130,2,1,19,0) +19^IMMUNIZATION^HIB PED 4^S^ +"DATA",811.8,186,130,2,1,20,0) +20^IMMUNIZATION^HIB PED 3^S^ +"DATA",811.8,186,130,2,1,21,0) +21^IMMUNIZATION^HIB PED 2^S^ +"DATA",811.8,186,130,2,1,22,0) +22^IMMUNIZATION^HIB PED 1^S^ +"DATA",811.8,186,130,2,1,23,0) +23^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #2^S^ +"DATA",811.8,186,130,2,1,24,0) +24^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #1^S^ +"DATA",811.8,186,130,2,1,25,0) +25^IMMUNIZATION^IPV1^S^ +"DATA",811.8,186,130,2,1,26,0) +26^IMMUNIZATION^IPV4^S^ +"DATA",811.8,186,130,2,1,27,0) +27^IMMUNIZATION^IPV3^S^ +"DATA",811.8,186,130,2,1,28,0) +28^IMMUNIZATION^IPV2^S^ +"DATA",811.8,186,130,2,1,29,0) +29^IMMUNIZATION^DTaP5^S^ +"DATA",811.8,186,130,2,1,30,0) +30^IMMUNIZATION^DTaP4^S^ +"DATA",811.8,186,130,2,1,31,0) +31^IMMUNIZATION^DTaP3^S^ +"DATA",811.8,186,130,2,1,32,0) +32^IMMUNIZATION^DTaP2^S^ +"DATA",811.8,186,130,2,1,33,0) +33^IMMUNIZATION^DTaP1^S^ +"DATA",811.8,186,130,2,1,34,0) +34^HEALTH FACTORS^BMI MANAGEMENT OPTIONS^S^ +"DATA",811.8,186,130,2,1,35,0) +35^HEALTH FACTORS^BMI DIETARY CONSULT DONE^S^ +"DATA",811.8,186,130,2,1,36,0) +36^HEALTH FACTORS^BMI CARE GOAL DOCUMENTED^S^ +"DATA",811.8,186,130,2,1,37,0) +37^HEALTH FACTORS^SNOMED CODES^S^ +"DATA",811.8,186,130,2,1,38,0) +38^HEALTH FACTORS^395700008^S^ +"DATA",811.8,186,130,2,1,39,0) +39^HEALTH FACTORS^384742004^S^ +"DATA",811.8,186,130,2,1,40,0) +40^HEALTH FACTORS^225323000^S^ +"DATA",811.8,186,130,2,1,41,0) +41^HEALTH FACTORS^SMOKING STATUS RECODE^S^ +"DATA",811.8,186,130,2,1,42,0) +42^HEALTH FACTORS^009^S^ +"DATA",811.8,186,130,2,1,43,0) +43^HEALTH FACTORS^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,1,44,0) +44^HEALTH FACTORS^STATUS-UNKNOWN IF EVER SMOKED (009)^S^ +"DATA",811.8,186,130,2,1,45,0) +45^HEALTH FACTORS^005^S^ +"DATA",811.8,186,130,2,1,46,0) +46^HEALTH FACTORS^STATUS-SMOKER, CURRENT STATUS UNK (005)^S^ +"DATA",811.8,186,130,2,1,47,0) +47^HEALTH FACTORS^004^S^ +"DATA",811.8,186,130,2,1,48,0) +48^HEALTH FACTORS^STATUS-NEVER SMOKER (004)^S^ +"DATA",811.8,186,130,2,1,49,0) +49^HEALTH FACTORS^003^S^ +"DATA",811.8,186,130,2,1,50,0) +50^HEALTH FACTORS^STATUS-FORMER SMOKER (003)^S^ +"DATA",811.8,186,130,2,1,51,0) +51^HEALTH FACTORS^002^S^ +"DATA",811.8,186,130,2,1,52,0) +52^HEALTH FACTORS^STATUS-CURRENT SOME DAY SMOKER (002)^S^ +"DATA",811.8,186,130,2,1,53,0) +53^HEALTH FACTORS^001^S^ +"DATA",811.8,186,130,2,1,54,0) +54^HEALTH FACTORS^STATUS-CURRENT EVERY DAY SMOKER (001)^S^ +"DATA",811.8,186,130,2,1,55,0) +55^HEALTH FACTORS^110483000^S^ +"DATA",811.8,186,130,2,1,56,0) +56^HEALTH FACTORS^228504007^S^ +"DATA",811.8,186,130,2,1,57,0) +57^HEALTH FACTORS^228491005^S^ +"DATA",811.8,186,130,2,1,58,0) +58^HEALTH FACTORS^TOBACCO^S^ +"DATA",811.8,186,130,2,1,59,0) +59^HEALTH FACTORS^CURRENT NON-SMOKER^S^ +"DATA",811.8,186,130,2,1,60,0) +60^HEALTH FACTORS^105539002^S^ +"DATA",811.8,186,130,2,1,61,0) +61^HEALTH FACTORS^Current every day smoker (001)^S^ +"DATA",811.8,186,130,2,1,62,0) +62^HEALTH FACTORS^Current some day smoker^S^ +"DATA",811.8,186,130,2,1,63,0) +63^HEALTH FACTORS^Former Smoker^S^ +"DATA",811.8,186,130,2,1,64,0) +64^HEALTH FACTORS^Never Smoker^S^ +"DATA",811.8,186,130,2,1,65,0) +65^HEALTH FACTORS^Smoker, current status unknown^S^ +"DATA",811.8,186,130,2,1,66,0) +66^HEALTH FACTORS^Unknown if ever smoked^S^ +"DATA",811.8,186,130,2,1,67,0) +67^REMINDER TERM^MU SMOKING STATUS HF^S^ +"DATA",811.8,186,130,2,1,68,0) +68^REMINDER DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,1,69,0) +74^HEALTH SUMMARY TYPE^MU SMOKING STATUS HS^S^ +"DATA",811.8,186,130,2,1,70,0) +75^HEALTH SUMMARY OBJECTS^MU SMOKING STATUS (TIU)^O^ +"DATA",811.8,186,130,2,1,71,0) +76^TIU DOCUMENT DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,1,72,0) +1^REMINDER DIALOG^MU NQF0028AB MANAGEMENT DI^O^ +"DATA",811.8,186,130,2,1,73,0) +2^REMINDER DIALOG^MU NQF0038 INFANT IMMUNE MANAGEMENT BANNER GP^S^ +"DATA",811.8,186,130,2,1,74,0) +3^REMINDER DIALOG^MU NQF0038 INFO EL^S^ +"DATA",811.8,186,130,2,1,75,0) +4^REMINDER DIALOG^MU NQF0028A MANAGMENT SCREEN GP^S^ +"DATA",811.8,186,130,2,1,76,0) +5^REMINDER DIALOG^MU NQF0028A TOBACCO NONUSER GP^S^ +"DATA",811.8,186,130,2,1,77,0) +6^REMINDER DIALOG^MU NQF0028AB NONSMOKER SCREEN EL^S^ +"DATA",811.8,186,130,2,1,78,0) +7^REMINDER DIALOG^MU SMOKING STATUS CURRENT SOME DAY EL^S^ +"DATA",811.8,186,130,2,1,79,0) +8^REMINDER DIALOG^MU NQF0028AB SMOKELESS TOBACCO NEGATIVE EL^S^ +"DATA",811.8,186,130,2,1,80,0) +9^REMINDER DIALOG^MU SMOKING STATUS FORMER SMOKER EL^S^ +"DATA",811.8,186,130,2,1,81,0) +10^REMINDER DIALOG^MU NQF0028A TOBACCO USER GP^O^ +"DATA",811.8,186,130,2,1,82,0) +11^REMINDER DIALOG^MU NQF0028 SMOKING POS GP^S^ +"DATA",811.8,186,130,2,1,83,0) +12^REMINDER DIALOG^MU SMOKING STATUS GP^S^ +"DATA",811.8,186,130,2,1,84,0) +13^REMINDER DIALOG^MU SMOKING STATUS CURRENT EVERY DAY EL^S^ +"DATA",811.8,186,130,2,1,85,0) +14^REMINDER DIALOG^MU NQF0038 DTAP4 EL^S^ +"DATA",811.8,186,130,2,1,86,0) +15^REMINDER DIALOG^MU SMOKING STATUS CURRENT SOME DAY EL^S^ +"DATA",811.8,186,130,2,1,87,0) +16^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,88,0) +17^REMINDER DIALOG^MU NQF0038 DTAP5 EL^S^ +"DATA",811.8,186,130,2,1,89,0) +18^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,90,0) +19^REMINDER DIALOG^MU SMOKING STATUS NEVER SMOKER EL^S^ +"DATA",811.8,186,130,2,1,91,0) +20^REMINDER DIALOG^MU NQF0038 IPV GP^S^ +"DATA",811.8,186,130,2,1,92,0) +21^REMINDER DIALOG^MU NQF0038 IVP1 EL^S^ +"DATA",811.8,186,130,2,1,93,0) +22^REMINDER DIALOG^MU SMOKING STATUS UNK IF EVER EL^S^ +"DATA",811.8,186,130,2,1,94,0) +23^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,95,0) +24^REMINDER DIALOG^MU NQF0028AB SMOKELESS TOBACCO POS SCREEN EL^S^ +"DATA",811.8,186,130,2,1,96,0) +25^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,97,0) +26^REMINDER DIALOG^MU NQF0028B TOBACCO INTERVENTION GP^S^ +"DATA",811.8,186,130,2,1,98,0) +27^REMINDER DIALOG^MU NQF0028AB TOBACCO COUNSELING TODAY EL^S^ +"DATA",811.8,186,130,2,1,99,0) +28^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,100,0) +29^REMINDER DIALOG^MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL^S^ +"DATA",811.8,186,130,2,1,101,0) +30^REMINDER DIALOG^MU NQF0038 IPV4 EL^S^ +"DATA",811.8,186,130,2,1,102,0) +31^REMINDER DIALOG^MU NQF0028AB TOBACCO REFERRAL EL^S^ +"DATA",811.8,186,130,2,1,103,0) +32^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,104,0) +33^REMINDER DIALOG^MU NQF0028 ADD TO PL GP^S^ +"DATA",811.8,186,130,2,1,105,0) +34^REMINDER DIALOG^MU NQF0028 TOBACCO USE-ADD DX EL^S^ +"DATA",811.8,186,130,2,1,106,0) +35^REMINDER DIALOG^PXRM ADD TO PROBLEM LIST^S^ +"DATA",811.8,186,130,2,1,107,0) +36^REMINDER DIALOG^MU NQF0028B TOBACCO INTERVENTION GP^S^ +"DATA",811.8,186,130,2,1,108,0) +37^REMINDER DIALOG^MU NQF0028AB TOBACCO COUNSELING TODAY EL^S^ +"DATA",811.8,186,130,2,1,109,0) +38^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,110,0) +39^REMINDER DIALOG^MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL^S^ +"DATA",811.8,186,130,2,1,111,0) +40^REMINDER DIALOG^MU NQF0038 HIB GP^S^ +"DATA",811.8,186,130,2,1,112,0) +41^REMINDER DIALOG^MU NQF0028AB TOBACCO REFERRAL EL^S^ +"DATA",811.8,186,130,2,1,113,0) +42^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,114,0) +43^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,115,0) +44^REMINDER DIALOG^MU NQF0038 HIB2 EL^S^ +"DATA",811.8,186,130,2,1,116,0) +45^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,117,0) +46^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,118,0) +47^REMINDER DIALOG^MU NQF0038 HIB3 EL^S^ +"DATA",811.8,186,130,2,1,119,0) +48^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,120,0) +49^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,121,0) +50^REMINDER DIALOG^MU NQF0038 HIB4 EL^S^ +"DATA",811.8,186,130,2,1,122,0) +51^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,123,0) +52^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,124,0) +53^REMINDER DIALOG^MU NQF0038 HEP B GP^S^ +"DATA",811.8,186,130,2,1,125,0) +54^REMINDER DIALOG^MU NQF0038 HEP B1 EL^S^ +"DATA",811.8,186,130,2,1,126,0) +55^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,127,0) +56^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,128,0) +57^REMINDER DIALOG^MU NQF0038 HEP B2 EL^S^ +"DATA",811.8,186,130,2,1,129,0) +58^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,130,0) +59^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,131,0) +60^REMINDER DIALOG^MU NQF0038 HEP B3 EL^S^ +"DATA",811.8,186,130,2,1,132,0) +61^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,133,0) +62^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,134,0) +63^REMINDER DIALOG^MU NQF0038 HEP B4 EL^S^ +"DATA",811.8,186,130,2,1,135,0) +64^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,136,0) +65^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,137,0) +66^REMINDER DIALOG^MU NQF0038 VZV GP^S^ +"DATA",811.8,186,130,2,1,138,0) +67^REMINDER DIALOG^MU NQF0038 VZV1 EL^S^ +"DATA",811.8,186,130,2,1,139,0) +68^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,140,0) +69^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,141,0) +70^REMINDER DIALOG^MU NQF0038 PCV GP^S^ +"DATA",811.8,186,130,2,1,142,0) +71^REMINDER DIALOG^MU NQF0038 PCV1 EL^S^ +"DATA",811.8,186,130,2,1,143,0) +72^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,144,0) +73^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,145,0) +74^REMINDER DIALOG^MU NQF0038 PCV2 EL^S^ +"DATA",811.8,186,130,2,1,146,0) +75^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,147,0) +76^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,148,0) +77^REMINDER DIALOG^MU NQF0038 PCV3 EL^S^ +"DATA",811.8,186,130,2,1,149,0) +78^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,150,0) +79^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,151,0) +80^REMINDER DIALOG^MU NQF0038 PCV4 EL^S^ +"DATA",811.8,186,130,2,1,152,0) +81^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,153,0) +82^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,154,0) +83^REMINDER DIALOG^MU NQF0038 PCV5 EL^S^ +"DATA",811.8,186,130,2,1,155,0) +84^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,156,0) +85^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,157,0) +86^REMINDER DIALOG^MU NQF0038 HEP A GP^S^ +"DATA",811.8,186,130,2,1,158,0) +87^REMINDER DIALOG^MU NQF0038 HEP A1 EL^S^ +"DATA",811.8,186,130,2,1,159,0) +88^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,160,0) +89^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,161,0) +90^REMINDER DIALOG^MU NQF0038 HEP A2 EL^S^ +"DATA",811.8,186,130,2,1,162,0) +91^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,163,0) +92^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,164,0) +93^REMINDER DIALOG^MU NQF0038 HEP A3 EL^S^ +"DATA",811.8,186,130,2,1,165,0) +94^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,166,0) +95^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,167,0) +96^REMINDER DIALOG^MU NQF0038 RV GP^S^ +"DATA",811.8,186,130,2,1,168,0) +97^REMINDER DIALOG^MU NQF0038 RV1 EL^S^ +"DATA",811.8,186,130,2,1,169,0) +98^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,170,0) +99^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,171,0) +100^REMINDER DIALOG^MU NQF0038 RV2 EL^S^ +"DATA",811.8,186,130,2,1,172,0) +101^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,173,0) +102^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,174,0) +103^REMINDER DIALOG^MU NQF0038 RV3 EL^S^ +"DATA",811.8,186,130,2,1,175,0) +104^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,176,0) +105^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,177,0) +106^REMINDER DIALOG^MU NQF0038 FLU GP^S^ +"DATA",811.8,186,130,2,1,178,0) +107^REMINDER DIALOG^MU NQF0038 FLU1 EL^S^ +"DATA",811.8,186,130,2,1,179,0) +108^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,180,0) +109^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,181,0) +110^REMINDER DIALOG^MU NQF0038 FLU2 EL^S^ +"DATA",811.8,186,130,2,1,182,0) +111^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,183,0) +112^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"FIA",811.8) +REMINDER EXCHANGE +"FIA",811.8,0) +^PXD(811.8, +"FIA",811.8,0,0) +811.8s +"FIA",811.8,0,1) +y^y^f^^n^^y^o^n +"FIA",811.8,0,10) + +"FIA",811.8,0,11) +I $$EXFINC^C0Q1P2(Y) +"FIA",811.8,0,"RLRO") + +"FIA",811.8,0,"VR") +1.0^C0Q +"FIA",811.8,811.8) +0 +"FIA",811.8,811.801) +0 +"FIA",811.8,811.802) +0 +"FIA",811.8,811.8021) +0 +"FIA",811.8,811.803) +0 +"FIA",811.8,811.8031) +0 +"FIA",811.8,811.80315) +0 +"FIA",811.8,811.804) +0 +"INI") +PRE^C0Q1P2 +"INIT") +POST^C0Q1P2 +"IX",811.8,811.8,"B",0) +811.8^B^Uniqueness Index for Key 'A' of File #811.8^R^^R^IR^I^811.8^^^^^LS +"IX",811.8,811.8,"B",1) +S ^PXD(811.8,"B",X(1),X(2),DA)="" +"IX",811.8,811.8,"B",2) +K ^PXD(811.8,"B",X(1),X(2),DA) +"IX",811.8,811.8,"B",2.5) +K ^PXD(811.8,"B") +"IX",811.8,811.8,"B",11.1,0) +^.114IA^2^2 +"IX",811.8,811.8,"B",11.1,1,0) +1^F^811.8^.01^^1 +"IX",811.8,811.8,"B",11.1,2,0) +2^F^811.8^.03^^2 +"IX",811.8,811.8,"D",0) +811.8^D^Cross-reference on date and time^R^^F^IR^I^811.8^^^^^LS +"IX",811.8,811.8,"D",1) +S ^PXD(811.8,"D",X,DA)="" +"IX",811.8,811.8,"D",2) +K ^PXD(811.8,"D",X,DA) +"IX",811.8,811.8,"D",2.5) +K ^PXD(811.8,"D") +"IX",811.8,811.8,"D",11.1,0) +^.114IA^1^1 +"IX",811.8,811.8,"D",11.1,1,0) +1^F^811.8^.03^^1^F +"IX",811.8,811.8,"D",11.1,1,3) + +"IX",811.8,811.803,"B",0) +811.803^B^New style B cross-reference^R^^F^IR^I^811.803^^^^^LS +"IX",811.8,811.803,"B",1) +S ^PXD(811.8,DA(1),130,"B",X,DA)="" +"IX",811.8,811.803,"B",2) +K ^PXD(811.8,DA(1),130,"B",X,DA) +"IX",811.8,811.803,"B",2.5) +K ^PXD(811.8,DA(1),130,"B") +"IX",811.8,811.803,"B",11.1,0) +^.114IA^1^1 +"IX",811.8,811.803,"B",11.1,1,0) +1^F^811.803^.01^^1^F +"KEY",811.8,811.8,"A",0) +811.8^A^P^845 +"KEY",811.8,811.8,"A",2,0) +^.312IA^2^2 +"KEY",811.8,811.8,"A",2,1,0) +.01^811.8^1 +"KEY",811.8,811.8,"A",2,2,0) +.03^811.8^2 +"KEYPTR",811.8,811.8,"A") +811.8^B +"MBREQ") +0 +"PKG",215,-1) +1^1 +"PKG",215,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",215,20,0) +^9.402P^^ +"PKG",215,22,0) +^9.49I^1^1 +"PKG",215,22,1,0) +1.0^3120731^3120802^8 +"PKG",215,22,1,"PAH",1,0) +2^3120803 +"PKG",215,22,1,"PAH",1,1,0) +^^307^307^3120803 +"PKG",215,22,1,"PAH",1,1,1,0) + Summary +"PKG",215,22,1,"PAH",1,1,2,0) + ======= +"PKG",215,22,1,"PAH",1,1,3,0) + This build contains the reminder rules and extracts for use with the +"PKG",215,22,1,"PAH",1,1,4,0) +Quality Measures package for reporting for Meaningful use Stage I. It +"PKG",215,22,1,"PAH",1,1,5,0) +also installs reminder dialogs for use in populating data for some of the +"PKG",215,22,1,"PAH",1,1,6,0) +Outpatient Measures. +"PKG",215,22,1,"PAH",1,1,7,0) + +"PKG",215,22,1,"PAH",1,1,8,0) + Source, Copyright, & Licensing: +"PKG",215,22,1,"PAH",1,1,9,0) + =============================== +"PKG",215,22,1,"PAH",1,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"PKG",215,22,1,"PAH",1,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"PKG",215,22,1,"PAH",1,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"PKG",215,22,1,"PAH",1,1,13,0) + Copyright WorldVistA 2012. +"PKG",215,22,1,"PAH",1,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"PKG",215,22,1,"PAH",1,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"PKG",215,22,1,"PAH",1,1,16,0) + Released through VISTA Forum. +"PKG",215,22,1,"PAH",1,1,17,0) + +"PKG",215,22,1,"PAH",1,1,18,0) + Functionality: +"PKG",215,22,1,"PAH",1,1,19,0) + ============== +"PKG",215,22,1,"PAH",1,1,20,0) + This patch installs the following reminder rules and selectively extracts +"PKG",215,22,1,"PAH",1,1,21,0) +for these Meaningful Use Stage I measure. +"PKG",215,22,1,"PAH",1,1,22,0) + +"PKG",215,22,1,"PAH",1,1,23,0) + NQF 0024-alt-core_wt-kids +"PKG",215,22,1,"PAH",1,1,24,0) + NQF 0013-core-HTN +"PKG",215,22,1,"PAH",1,1,25,0) + NQF 0028a-core-tobacco-access +"PKG",215,22,1,"PAH",1,1,26,0) + NQF 0028b-core-tobaocc-intervention +"PKG",215,22,1,"PAH",1,1,27,0) + NQF 0041-alt-core-flu +"PKG",215,22,1,"PAH",1,1,28,0) + NQF 0059-option1-DM-Hbalc +"PKG",215,22,1,"PAH",1,1,29,0) + NQF 0061-option3-DM-BP +"PKG",215,22,1,"PAH",1,1,30,0) + NQF 0064-option2-DM-LDL +"PKG",215,22,1,"PAH",1,1,31,0) + NQF 0495 (Education 1 for Inpatient) +"PKG",215,22,1,"PAH",1,1,32,0) + NQF 0497 (Education 2 for Inpatient) +"PKG",215,22,1,"PAH",1,1,33,0) + MU Inpatient Stroke Measures (contains labs) +"PKG",215,22,1,"PAH",1,1,34,0) + - NQF 0435 +"PKG",215,22,1,"PAH",1,1,35,0) + - NQF 0436 +"PKG",215,22,1,"PAH",1,1,36,0) + - NQF 0437 +"PKG",215,22,1,"PAH",1,1,37,0) + - NQF 0438 +"PKG",215,22,1,"PAH",1,1,38,0) + - NQF 0439 +"PKG",215,22,1,"PAH",1,1,39,0) + - NQF 0440 +"PKG",215,22,1,"PAH",1,1,40,0) + - NQF 0441 +"PKG",215,22,1,"PAH",1,1,41,0) + MU Inpatient Venous Thombotic Embolism Measures (contains labs) +"PKG",215,22,1,"PAH",1,1,42,0) + - NQF 0371 +"PKG",215,22,1,"PAH",1,1,43,0) + - NQF 0372 +"PKG",215,22,1,"PAH",1,1,44,0) + - NQF 0373 +"PKG",215,22,1,"PAH",1,1,45,0) + - NQF 0374 +"PKG",215,22,1,"PAH",1,1,46,0) + - NQF 0375 +"PKG",215,22,1,"PAH",1,1,47,0) + - NQF 0376 +"PKG",215,22,1,"PAH",1,1,48,0) + - NQF 0421-core-adult-weight (contains reminder extracts) +"PKG",215,22,1,"PAH",1,1,49,0) + - NQF 0038-alt-core-childImms (contains reminder extracts) +"PKG",215,22,1,"PAH",1,1,50,0) + +"PKG",215,22,1,"PAH",1,1,51,0) +In addition, the following CPRS dialogs are sent in this patch. +"PKG",215,22,1,"PAH",1,1,52,0) + - MU NQF0421 BMI DI +"PKG",215,22,1,"PAH",1,1,53,0) + - MU NQF0041 INFLUENZA MANAGEMENT DI +"PKG",215,22,1,"PAH",1,1,54,0) + - MU NQF0038 IMMUNE MANAGEMENT DI +"PKG",215,22,1,"PAH",1,1,55,0) + - MU NQF0028AB MANAGEMENT DI +"PKG",215,22,1,"PAH",1,1,56,0) + - MU SMOKING STATUS DI +"PKG",215,22,1,"PAH",1,1,57,0) + +"PKG",215,22,1,"PAH",1,1,58,0) +All of this is installed automatically, except if the labs transported in +"PKG",215,22,1,"PAH",1,1,59,0) +the dialog cannot be found, the installer will be prompted to rematch +"PKG",215,22,1,"PAH",1,1,60,0) +them. +"PKG",215,22,1,"PAH",1,1,61,0) + +"PKG",215,22,1,"PAH",1,1,62,0) + Package Elements: +"PKG",215,22,1,"PAH",1,1,63,0) + ================= +"PKG",215,22,1,"PAH",1,1,64,0) + This build transports and installs the following REMINDER EXCHANGE +"PKG",215,22,1,"PAH",1,1,65,0) +entries: +"PKG",215,22,1,"PAH",1,1,66,0) +MU NQF0013 HTN_MK 07/06/2011@15:08:53 +"PKG",215,22,1,"PAH",1,1,67,0) +MU NQF0024-ALL 07/31/2012@17:49:03 +"PKG",215,22,1,"PAH",1,1,68,0) +MU NQF0028 TOBACCO_MK 07/06/2011@15:14:49 +"PKG",215,22,1,"PAH",1,1,69,0) +MU NQF0028AB MANAGEMENT DI 06/08/2011@16:50:31 +"PKG",215,22,1,"PAH",1,1,70,0) +MU NQF0038 CHILD IMM SMH 07/27/2012@17:48:33 +"PKG",215,22,1,"PAH",1,1,71,0) +MU NQF0041 FLU_MK 07/06/2011@15:26:59 +"PKG",215,22,1,"PAH",1,1,72,0) +MU NQF0059_61_64_SMH 07/16/2012@10:46:17 +"PKG",215,22,1,"PAH",1,1,73,0) +MU NQF0421 ADULT BMI SMH 07/26/2012@11:00:17 +"PKG",215,22,1,"PAH",1,1,74,0) +MU STROKE 2.3.4.5.6.8.10 SMH 07/18/2012@10:33:53 +"PKG",215,22,1,"PAH",1,1,75,0) +MU NQF 0495 ED-1 07/17/2012@11:47:55 +"PKG",215,22,1,"PAH",1,1,76,0) +MU NQF 0497 ED-2 07/17/2012@11:50:23 +"PKG",215,22,1,"PAH",1,1,77,0) +MU VTE 1.2.3.4.5.6 SMH 07/20/2012@09:48:30 +"PKG",215,22,1,"PAH",1,1,78,0) +MU CPRS HELP DIS 08/01/2012@18:32:29 +"PKG",215,22,1,"PAH",1,1,79,0) + +"PKG",215,22,1,"PAH",1,1,80,0) + Routines: +"PKG",215,22,1,"PAH",1,1,81,0) + ========= +"PKG",215,22,1,"PAH",1,1,82,0) + C0Q1P2 (Transport and KIDS install routine) +"PKG",215,22,1,"PAH",1,1,83,0) + +"PKG",215,22,1,"PAH",1,1,84,0) + The second line of each of these routines now looks like: +"PKG",215,22,1,"PAH",1,1,85,0) + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 21 +"PKG",215,22,1,"PAH",1,1,86,0) + +"PKG",215,22,1,"PAH",1,1,87,0) + Documentation: +"PKG",215,22,1,"PAH",1,1,88,0) + +"PKG",215,22,1,"PAH",1,1,89,0) + +"PKG",215,22,1,"PAH",1,1,90,0) + Test Sites: +"PKG",215,22,1,"PAH",1,1,91,0) + =========== +"PKG",215,22,1,"PAH",1,1,92,0) + +"PKG",215,22,1,"PAH",1,1,93,0) + +"PKG",215,22,1,"PAH",1,1,94,0) + Compliance: +"PKG",215,22,1,"PAH",1,1,95,0) + =========== +"PKG",215,22,1,"PAH",1,1,96,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",215,22,1,"PAH",1,1,97,0) + Conventions (version 3 April 2007). +"PKG",215,22,1,"PAH",1,1,98,0) + +"PKG",215,22,1,"PAH",1,1,99,0) + Installation Instructions: +"PKG",215,22,1,"PAH",1,1,100,0) + ========================== +"PKG",215,22,1,"PAH",1,1,101,0) + Pre-installation: +"PKG",215,22,1,"PAH",1,1,102,0) + +"PKG",215,22,1,"PAH",1,1,103,0) + Prerequisite patches: +"PKG",215,22,1,"PAH",1,1,104,0) + - PXRM*2.0*12 (Download from VA FOIA Site; part of a Multibuild) +"PKG",215,22,1,"PAH",1,1,105,0) + - PXRM*2.0*17 (Download from VA FOIA Site; part of a Multibuild) +"PKG",215,22,1,"PAH",1,1,106,0) + - TMG*1.0*17 (Download from Trac Server: +"PKG",215,22,1,"PAH",1,1,107,0) + https://trac.opensourcevista.net/svn/PGC/tags/TMG-PGC/) +"PKG",215,22,1,"PAH",1,1,108,0) + +"PKG",215,22,1,"PAH",1,1,109,0) + For a successful installation, you need to be sure that the labs that +"PKG",215,22,1,"PAH",1,1,110,0) +the Inpatient Measures rely on exist. If not, the Lab ADPAC needs to +"PKG",215,22,1,"PAH",1,1,111,0) +create them. These labs are: +"PKG",215,22,1,"PAH",1,1,112,0) + - LDL CHOLESTEROL +"PKG",215,22,1,"PAH",1,1,113,0) + - PLT +"PKG",215,22,1,"PAH",1,1,114,0) + - INR +"PKG",215,22,1,"PAH",1,1,115,0) + +"PKG",215,22,1,"PAH",1,1,116,0) + If these don't exist by the same name as above, the installer will be +"PKG",215,22,1,"PAH",1,1,117,0) +asked to rematch them. +"PKG",215,22,1,"PAH",1,1,118,0) + +"PKG",215,22,1,"PAH",1,1,119,0) + Users can remain on the system while this patch is installed. +"PKG",215,22,1,"PAH",1,1,120,0) + +"PKG",215,22,1,"PAH",1,1,121,0) + Install Time - less than 5 minutes +"PKG",215,22,1,"PAH",1,1,122,0) + +"PKG",215,22,1,"PAH",1,1,123,0) + The Pre-installation routine PRE^C0Q1P2 will delete existing Reminder +"PKG",215,22,1,"PAH",1,1,124,0) +Exchange entries with the same name. +"PKG",215,22,1,"PAH",1,1,125,0) + +"PKG",215,22,1,"PAH",1,1,126,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",215,22,1,"PAH",1,1,127,0) + +"PKG",215,22,1,"PAH",1,1,128,0) + Choose the PackMan message containing this patch and invoke the +"PKG",215,22,1,"PAH",1,1,129,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"PKG",215,22,1,"PAH",1,1,130,0) + Use the Load a Distribution option in KIDS to load it from a +"PKG",215,22,1,"PAH",1,1,131,0) + host file. +"PKG",215,22,1,"PAH",1,1,132,0) + +"PKG",215,22,1,"PAH",1,1,133,0) + 2. START UP KIDS +"PKG",215,22,1,"PAH",1,1,134,0) + +"PKG",215,22,1,"PAH",1,1,135,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",215,22,1,"PAH",1,1,136,0) + [XPD MAIN]: +"PKG",215,22,1,"PAH",1,1,137,0) + +"PKG",215,22,1,"PAH",1,1,138,0) + Edits and Distribution ... +"PKG",215,22,1,"PAH",1,1,139,0) + Utilities ... +"PKG",215,22,1,"PAH",1,1,140,0) + Installation ... +"PKG",215,22,1,"PAH",1,1,141,0) + +"PKG",215,22,1,"PAH",1,1,142,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",215,22,1,"PAH",1,1,143,0) + --- +"PKG",215,22,1,"PAH",1,1,144,0) + Load a Distribution +"PKG",215,22,1,"PAH",1,1,145,0) + Print Transport Global +"PKG",215,22,1,"PAH",1,1,146,0) + Compare Transport Global to Current System +"PKG",215,22,1,"PAH",1,1,147,0) + Verify Checksums in Transport Global +"PKG",215,22,1,"PAH",1,1,148,0) + Install Package(s) +"PKG",215,22,1,"PAH",1,1,149,0) + Restart Install of Package(s) +"PKG",215,22,1,"PAH",1,1,150,0) + Unload a Distribution +"PKG",215,22,1,"PAH",1,1,151,0) + Backup a Transport Global +"PKG",215,22,1,"PAH",1,1,152,0) + +"PKG",215,22,1,"PAH",1,1,153,0) + Select Installation Option: +"PKG",215,22,1,"PAH",1,1,154,0) + +"PKG",215,22,1,"PAH",1,1,155,0) + 3. Select Installation Option: +"PKG",215,22,1,"PAH",1,1,156,0) + +"PKG",215,22,1,"PAH",1,1,157,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",215,22,1,"PAH",1,1,158,0) + NAME, enter C0Q*1.0*2): +"PKG",215,22,1,"PAH",1,1,159,0) + +"PKG",215,22,1,"PAH",1,1,160,0) + a. Backup a Transport Global - This option will create a backup +"PKG",215,22,1,"PAH",1,1,161,0) + message of any routines exported with this patch. It will not +"PKG",215,22,1,"PAH",1,1,162,0) + backup any other changes such as DD's or templates. +"PKG",215,22,1,"PAH",1,1,163,0) + b. Compare Transport Global to Current System - This option will +"PKG",215,22,1,"PAH",1,1,164,0) + allow you to view all changes that will be made when this patch +"PKG",215,22,1,"PAH",1,1,165,0) + is installed. It compares all components of this patch +"PKG",215,22,1,"PAH",1,1,166,0) + (routines, DD's, templates, etc.). +"PKG",215,22,1,"PAH",1,1,167,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",215,22,1,"PAH",1,1,168,0) + you to ensure the integrity of the routines that are in the +"PKG",215,22,1,"PAH",1,1,169,0) + transport global. +"PKG",215,22,1,"PAH",1,1,170,0) + +"PKG",215,22,1,"PAH",1,1,171,0) + 4. Select Installation Option: Install Package(s) +"PKG",215,22,1,"PAH",1,1,172,0) + +"PKG",215,22,1,"PAH",1,1,173,0) + **This is the step to start the installation of this KIDS patch: +"PKG",215,22,1,"PAH",1,1,174,0) + +"PKG",215,22,1,"PAH",1,1,175,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",215,22,1,"PAH",1,1,176,0) + and enter "C0Q*1.0*2" at the INSTALL NAME prompt. +"PKG",215,22,1,"PAH",1,1,177,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",215,22,1,"PAH",1,1,178,0) + Install? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,179,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",215,22,1,"PAH",1,1,180,0) + NO//' answer NO +"PKG",215,22,1,"PAH",1,1,181,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",215,22,1,"PAH",1,1,182,0) + and Protocols? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,183,0) + +"PKG",215,22,1,"PAH",1,1,184,0) + The Post-installation routine POST^C0Q1P2 will install the Reminder +"PKG",215,22,1,"PAH",1,1,185,0) +Exchange entries. +"PKG",215,22,1,"PAH",1,1,186,0) + +"PKG",215,22,1,"PAH",1,1,187,0) +Here is an example installation log. It includes lab replacements. +"PKG",215,22,1,"PAH",1,1,188,0) +Select INSTALL NAME: C0Q*1.0*2 Loaded from Distribution Loaded +"PKG",215,22,1,"PAH",1,1,189,0) +from D +"PKG",215,22,1,"PAH",1,1,190,0) +istribution 8/3/12@14:23:27 +"PKG",215,22,1,"PAH",1,1,191,0) + => SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"PKG",215,22,1,"PAH",1,1,192,0) + +"PKG",215,22,1,"PAH",1,1,193,0) +This Distribution was loaded on Aug 03, 2012@14:23:27 with header of +"PKG",215,22,1,"PAH",1,1,194,0) + SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"PKG",215,22,1,"PAH",1,1,195,0) + It consisted of the following Install(s): +"PKG",215,22,1,"PAH",1,1,196,0) + C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,197,0) + +"PKG",215,22,1,"PAH",1,1,198,0) + Checking C0Q*1.0*2 for overlap with VOE 1.0 . OK +"PKG",215,22,1,"PAH",1,1,199,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,200,0) + +"PKG",215,22,1,"PAH",1,1,201,0) + +"PKG",215,22,1,"PAH",1,1,202,0) + Checking C0Q*1.0*2 for overlap with VOE 1.1 . OK +"PKG",215,22,1,"PAH",1,1,203,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,204,0) + +"PKG",215,22,1,"PAH",1,1,205,0) + +"PKG",215,22,1,"PAH",1,1,206,0) + Checking C0Q*1.0*2 for overlap with NO HOME 1.0 . OK +"PKG",215,22,1,"PAH",1,1,207,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,208,0) + +"PKG",215,22,1,"PAH",1,1,209,0) +Checking Install for Package C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,210,0) + +"PKG",215,22,1,"PAH",1,1,211,0) +Install Questions for C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,212,0) + +"PKG",215,22,1,"PAH",1,1,213,0) +Incoming Files: +"PKG",215,22,1,"PAH",1,1,214,0) + +"PKG",215,22,1,"PAH",1,1,215,0) + +"PKG",215,22,1,"PAH",1,1,216,0) + 811.8 REMINDER EXCHANGE (including data) +"PKG",215,22,1,"PAH",1,1,217,0) +Note: You already have the 'REMINDER EXCHANGE' File. +"PKG",215,22,1,"PAH",1,1,218,0) +I will OVERWRITE your data with mine. +"PKG",215,22,1,"PAH",1,1,219,0) + +"PKG",215,22,1,"PAH",1,1,220,0) + +"PKG",215,22,1,"PAH",1,1,221,0) +Want KIDS to INHIBIT LOGONs during the install? NO// +"PKG",215,22,1,"PAH",1,1,222,0) +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// +"PKG",215,22,1,"PAH",1,1,223,0) + +"PKG",215,22,1,"PAH",1,1,224,0) +Enter the Device you want to print the Install messages. +"PKG",215,22,1,"PAH",1,1,225,0) +You can queue the install by enter a 'Q' at the device prompt. +"PKG",215,22,1,"PAH",1,1,226,0) +Enter a '^' to abort the install. +"PKG",215,22,1,"PAH",1,1,227,0) + +"PKG",215,22,1,"PAH",1,1,228,0) +DEVICE: HOME// PHOME HOME PRINTER +"PKG",215,22,1,"PAH",1,1,229,0) + +"PKG",215,22,1,"PAH",1,1,230,0) + +"PKG",215,22,1,"PAH",1,1,231,0) + Install Started for C0Q*1.0*2 : +"PKG",215,22,1,"PAH",1,1,232,0) + Aug 03, 2012@14:23:33 +"PKG",215,22,1,"PAH",1,1,233,0) + +"PKG",215,22,1,"PAH",1,1,234,0) +Build Distribution Date: Aug 03, 2012 +"PKG",215,22,1,"PAH",1,1,235,0) + +"PKG",215,22,1,"PAH",1,1,236,0) + Installing Routines:.. +"PKG",215,22,1,"PAH",1,1,237,0) + Aug 03, 2012@14:23:33 +"PKG",215,22,1,"PAH",1,1,238,0) + +"PKG",215,22,1,"PAH",1,1,239,0) + Running Pre-Install Routine: PRE^C0Q1P2. +"PKG",215,22,1,"PAH",1,1,240,0) + +"PKG",215,22,1,"PAH",1,1,241,0) + Installing Data Dictionaries: .. +"PKG",215,22,1,"PAH",1,1,242,0) + Aug 03, 2012@14:23:34 +"PKG",215,22,1,"PAH",1,1,243,0) + +"PKG",215,22,1,"PAH",1,1,244,0) + Installing Data: +"PKG",215,22,1,"PAH",1,1,245,0) + Aug 03, 2012@14:23:35 +"PKG",215,22,1,"PAH",1,1,246,0) + +"PKG",215,22,1,"PAH",1,1,247,0) + Running Post-Install Routine: POST^C0Q1P2. +"PKG",215,22,1,"PAH",1,1,248,0) + +"PKG",215,22,1,"PAH",1,1,249,0) +Installing reminder exchange entry MU NQF0024-ALL +"PKG",215,22,1,"PAH",1,1,250,0) + +"PKG",215,22,1,"PAH",1,1,251,0) +Installing reminder exchange entry MU NQF0013 HTN_MK +"PKG",215,22,1,"PAH",1,1,252,0) + +"PKG",215,22,1,"PAH",1,1,253,0) +Installing reminder exchange entry MU NQF0028 TOBACCO_MK +"PKG",215,22,1,"PAH",1,1,254,0) + +"PKG",215,22,1,"PAH",1,1,255,0) +Installing reminder exchange entry MU NQF0041 FLU_MK +"PKG",215,22,1,"PAH",1,1,256,0) + +"PKG",215,22,1,"PAH",1,1,257,0) +Installing reminder exchange entry MU NQF0059_61_64_SMH +"PKG",215,22,1,"PAH",1,1,258,0) + +"PKG",215,22,1,"PAH",1,1,259,0) +Installing reminder exchange entry MU NQF 0495 ED-1 +"PKG",215,22,1,"PAH",1,1,260,0) + +"PKG",215,22,1,"PAH",1,1,261,0) +Installing reminder exchange entry MU NQF 0497 ED-2 +"PKG",215,22,1,"PAH",1,1,262,0) + +"PKG",215,22,1,"PAH",1,1,263,0) +Installing reminder exchange entry MU STROKE 2.3.4.5.6.8.10 SMH +"PKG",215,22,1,"PAH",1,1,264,0) + +"PKG",215,22,1,"PAH",1,1,265,0) +Installing reminder exchange entry MU VTE 1.2.3.4.5.6 SMH +"PKG",215,22,1,"PAH",1,1,266,0) +Finding LT.INR does not exist, what do you want to do? +"PKG",215,22,1,"PAH",1,1,267,0) + +"PKG",215,22,1,"PAH",1,1,268,0) + Select one of the following: +"PKG",215,22,1,"PAH",1,1,269,0) + +"PKG",215,22,1,"PAH",1,1,270,0) + +"PKG",215,22,1,"PAH",1,1,271,0) + D Delete +"PKG",215,22,1,"PAH",1,1,272,0) + P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,273,0) + Q Quit the install +"PKG",215,22,1,"PAH",1,1,274,0) + +"PKG",215,22,1,"PAH",1,1,275,0) +Enter response: P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,276,0) +Select LABORATORY TEST NAME: SAM INR +"PKG",215,22,1,"PAH",1,1,277,0) +Finding LT.INR does not exist, what do you want to do? +"PKG",215,22,1,"PAH",1,1,278,0) + +"PKG",215,22,1,"PAH",1,1,279,0) + Select one of the following: +"PKG",215,22,1,"PAH",1,1,280,0) + +"PKG",215,22,1,"PAH",1,1,281,0) + +"PKG",215,22,1,"PAH",1,1,282,0) + D Delete +"PKG",215,22,1,"PAH",1,1,283,0) + P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,284,0) + Q Quit the install +"PKG",215,22,1,"PAH",1,1,285,0) + +"PKG",215,22,1,"PAH",1,1,286,0) +Enter response: P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,287,0) +Select LABORATORY TEST NAME: SAM INR +"PKG",215,22,1,"PAH",1,1,288,0) + +"PKG",215,22,1,"PAH",1,1,289,0) +Installing reminder exchange entry MU NQF0421 ADULT BMI SMH +"PKG",215,22,1,"PAH",1,1,290,0) + +"PKG",215,22,1,"PAH",1,1,291,0) +Installing reminder exchange entry MU NQF0038 CHILD IMM SMH +"PKG",215,22,1,"PAH",1,1,292,0) + +"PKG",215,22,1,"PAH",1,1,293,0) +Installing reminder exchange entry MU CPRS HELP DIS +"PKG",215,22,1,"PAH",1,1,294,0) + +"PKG",215,22,1,"PAH",1,1,295,0) + Updating Routine file...... +"PKG",215,22,1,"PAH",1,1,296,0) + +"PKG",215,22,1,"PAH",1,1,297,0) + Updating KIDS files....... +"PKG",215,22,1,"PAH",1,1,298,0) + +"PKG",215,22,1,"PAH",1,1,299,0) + C0Q*1.0*2 Installed. +"PKG",215,22,1,"PAH",1,1,300,0) + Aug 03, 2012@14:24:27 +"PKG",215,22,1,"PAH",1,1,301,0) + +"PKG",215,22,1,"PAH",1,1,302,0) + Not a VA primary domain +"PKG",215,22,1,"PAH",1,1,303,0) + +"PKG",215,22,1,"PAH",1,1,304,0) + NO Install Message sent +"PKG",215,22,1,"PAH",1,1,305,0) + +"PKG",215,22,1,"PAH",1,1,306,0) + After installation, make sure you install C0Q*1.0*3, which relies on +"PKG",215,22,1,"PAH",1,1,307,0) +this patch. +"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","C0Q1P2") +0^^B15060103 +"RTN","C0Q1P2",1,0) +C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 2 ; 8/3/12 11:13am +"RTN","C0Q1P2",2,0) + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 23 +"RTN","C0Q1P2",3,0) + ; Licensed under package license. See Documentation for license and +"RTN","C0Q1P2",4,0) + ; usage conditions. +"RTN","C0Q1P2",5,0) + ; +"RTN","C0Q1P2",6,0) + ; PEPs: PRE, POST +"RTN","C0Q1P2",7,0) + ; +"RTN","C0Q1P2",8,0) +PRE ; Unified Pre; PEP +"RTN","C0Q1P2",9,0) + D PREREM +"RTN","C0Q1P2",10,0) + QUIT +"RTN","C0Q1P2",11,0) +POST ; Unified Post; PEP +"RTN","C0Q1P2",12,0) + D POSTREM +"RTN","C0Q1P2",13,0) + QUIT +"RTN","C0Q1P2",14,0) + ; +"RTN","C0Q1P2",15,0) + ; Rest of entry points are private +"RTN","C0Q1P2",16,0) + ; +"RTN","C0Q1P2",17,0) + ; +"RTN","C0Q1P2",18,0) +ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install +"RTN","C0Q1P2",19,0) + ; +"RTN","C0Q1P2",20,0) + N LN S LN=1 +"RTN","C0Q1P2",21,0) + ; +"RTN","C0Q1P2",22,0) + ; NQF 0024-alt-core_wt-kids +"RTN","C0Q1P2",23,0) + S ARRAY(LN,1)="MU NQF0024-ALL" +"RTN","C0Q1P2",24,0) + I MODE S ARRAY(LN,2)="07/31/2012@17:49:03" +"RTN","C0Q1P2",25,0) + S LN=LN+1 +"RTN","C0Q1P2",26,0) + ; +"RTN","C0Q1P2",27,0) + ; NQF 0013-core-HTN +"RTN","C0Q1P2",28,0) + S ARRAY(LN,1)="MU NQF0013 HTN_MK" +"RTN","C0Q1P2",29,0) + I MODE S ARRAY(LN,2)="07/06/2011@15:08:53" +"RTN","C0Q1P2",30,0) + S LN=LN+1 +"RTN","C0Q1P2",31,0) + ; +"RTN","C0Q1P2",32,0) + ; NQF 0028a-core-tobacco-access +"RTN","C0Q1P2",33,0) + ; NQF 0028b-core-tobaocc-intervention +"RTN","C0Q1P2",34,0) + S ARRAY(LN,1)="MU NQF0028 TOBACCO_MK" +"RTN","C0Q1P2",35,0) + I MODE S ARRAY(LN,2)="07/06/2011@15:14:49" +"RTN","C0Q1P2",36,0) + S LN=LN+1 +"RTN","C0Q1P2",37,0) + ; +"RTN","C0Q1P2",38,0) + ; NQF 0041-alt-core-flu +"RTN","C0Q1P2",39,0) + S ARRAY(LN,1)="MU NQF0041 FLU_MK" +"RTN","C0Q1P2",40,0) + I MODE S ARRAY(LN,2)="07/06/2011@15:26:59" +"RTN","C0Q1P2",41,0) + S LN=LN+1 +"RTN","C0Q1P2",42,0) + ; +"RTN","C0Q1P2",43,0) + ; NQF 0059-option1-DM-Hbalc +"RTN","C0Q1P2",44,0) + ; NQF 0061-option3-DM-BP +"RTN","C0Q1P2",45,0) + ; NQF 0064-option2-DM-LDL +"RTN","C0Q1P2",46,0) + ; All are in One Reminder Exchange entry +"RTN","C0Q1P2",47,0) + S ARRAY(LN,1)="MU NQF0059_61_64_SMH" +"RTN","C0Q1P2",48,0) + I MODE S ARRAY(LN,2)="07/16/2012@10:46:17" +"RTN","C0Q1P2",49,0) + S LN=LN+1 +"RTN","C0Q1P2",50,0) + ; +"RTN","C0Q1P2",51,0) + ; Inpatient Education Reminders (popularly known as ED-1 and ED-2) +"RTN","C0Q1P2",52,0) + ; NQF 0495 +"RTN","C0Q1P2",53,0) + ; NQF 0497 +"RTN","C0Q1P2",54,0) + S ARRAY(LN,1)="MU NQF 0495 ED-1" +"RTN","C0Q1P2",55,0) + I MODE S ARRAY(LN,2)="07/17/2012@11:47:55" +"RTN","C0Q1P2",56,0) + S LN=LN+1 +"RTN","C0Q1P2",57,0) + S ARRAY(LN,1)="MU NQF 0497 ED-2" +"RTN","C0Q1P2",58,0) + I MODE S ARRAY(LN,2)="07/17/2012@11:50:23" +"RTN","C0Q1P2",59,0) + S LN=LN+1 +"RTN","C0Q1P2",60,0) + ; +"RTN","C0Q1P2",61,0) + ; MU Stroke Measures +"RTN","C0Q1P2",62,0) + ; NQF 0435 +"RTN","C0Q1P2",63,0) + ; NQF 0436 +"RTN","C0Q1P2",64,0) + ; NQF 0437 +"RTN","C0Q1P2",65,0) + ; NQF 0438 +"RTN","C0Q1P2",66,0) + ; NQF 0439 +"RTN","C0Q1P2",67,0) + ; NQF 0440 +"RTN","C0Q1P2",68,0) + ; NQF 0441 +"RTN","C0Q1P2",69,0) + ; NB: Contains two Labs! Must rematch if not on your system. +"RTN","C0Q1P2",70,0) + ; Installation will become talkative +"RTN","C0Q1P2",71,0) + S ARRAY(LN,1)="MU STROKE 2.3.4.5.6.8.10 SMH" +"RTN","C0Q1P2",72,0) + I MODE S ARRAY(LN,2)="07/18/2012@10:33:53" +"RTN","C0Q1P2",73,0) + S LN=LN+1 +"RTN","C0Q1P2",74,0) + ; +"RTN","C0Q1P2",75,0) + ; MU VTE Measures +"RTN","C0Q1P2",76,0) + ; NQF 0371 +"RTN","C0Q1P2",77,0) + ; NQF 0372 +"RTN","C0Q1P2",78,0) + ; NQF 0373 +"RTN","C0Q1P2",79,0) + ; NQF 0374 +"RTN","C0Q1P2",80,0) + ; NQF 0375 +"RTN","C0Q1P2",81,0) + ; NQF 0376 +"RTN","C0Q1P2",82,0) + ; NB: Contains several labs. Must rematch if not on your system. +"RTN","C0Q1P2",83,0) + ; Installation will become talkative +"RTN","C0Q1P2",84,0) + S ARRAY(LN,1)="MU VTE 1.2.3.4.5.6 SMH" +"RTN","C0Q1P2",85,0) + I MODE S ARRAY(LN,2)="07/20/2012@09:48:30" +"RTN","C0Q1P2",86,0) + S LN=LN+1 +"RTN","C0Q1P2",87,0) + ; +"RTN","C0Q1P2",88,0) + ; +"RTN","C0Q1P2",89,0) + ; NQF 0421-core-adult-weight +"RTN","C0Q1P2",90,0) + ; NB: B/c of the presence of patient lists, measures sent as part of +"RTN","C0Q1P2",91,0) + ; an extract. +"RTN","C0Q1P2",92,0) + S ARRAY(LN,1)="MU NQF0421 ADULT BMI SMH" +"RTN","C0Q1P2",93,0) + I MODE S ARRAY(LN,2)="07/26/2012@11:00:17" +"RTN","C0Q1P2",94,0) + S LN=LN+1 +"RTN","C0Q1P2",95,0) + ; +"RTN","C0Q1P2",96,0) + ; NQF 0038-alt-core-childImms +"RTN","C0Q1P2",97,0) + ; NB: Again because of Patient Lists, measures sent as part of an extract +"RTN","C0Q1P2",98,0) + S ARRAY(LN,1)="MU NQF0038 CHILD IMM SMH" +"RTN","C0Q1P2",99,0) + I MODE S ARRAY(LN,2)="07/27/2012@17:48:33" +"RTN","C0Q1P2",100,0) + S LN=LN+1 +"RTN","C0Q1P2",101,0) + ; +"RTN","C0Q1P2",102,0) + ; CPRS Management Dialogs for Outpatient Stuff +"RTN","C0Q1P2",103,0) + ; MU NQF0421 BMI DI +"RTN","C0Q1P2",104,0) + ; MU NQF0041 INFLUENZA MANAGEMENT DI +"RTN","C0Q1P2",105,0) + ; MU NQF0038 IMMUNE MANAGEMENT DI +"RTN","C0Q1P2",106,0) + ; MU NQF0028AB MANAGEMENT DI +"RTN","C0Q1P2",107,0) + ; MU SMOKING STATUS DI +"RTN","C0Q1P2",108,0) + S ARRAY(LN,1)="MU CPRS HELP DIS" +"RTN","C0Q1P2",109,0) + I MODE S ARRAY(LN,2)="08/01/2012@18:32:29" +"RTN","C0Q1P2",110,0) + S LN=LN+1 +"RTN","C0Q1P2",111,0) + ; +"RTN","C0Q1P2",112,0) + QUIT +"RTN","C0Q1P2",113,0) + ; +"RTN","C0Q1P2",114,0) + ; +"RTN","C0Q1P2",115,0) + ;=============================================================== +"RTN","C0Q1P2",116,0) +DELEI ;If the Exchange File entry already exists delete it. +"RTN","C0Q1P2",117,0) + N ARRAY,IC,IND,LIST,LUVALUE,NUM +"RTN","C0Q1P2",118,0) + D ARRAY(1,.ARRAY) +"RTN","C0Q1P2",119,0) + S IC=0 +"RTN","C0Q1P2",120,0) + F S IC=$O(ARRAY(IC)) Q:'IC D +"RTN","C0Q1P2",121,0) + .S LUVALUE(1)=ARRAY(IC,1) +"RTN","C0Q1P2",122,0) + .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST") +"RTN","C0Q1P2",123,0) + .I '$D(LIST) Q +"RTN","C0Q1P2",124,0) + .S NUM=$P(LIST("DILIST",0),U,1) +"RTN","C0Q1P2",125,0) + .I NUM'=0 D +"RTN","C0Q1P2",126,0) + ..F IND=1:1:NUM D +"RTN","C0Q1P2",127,0) + ... N DA,DIK +"RTN","C0Q1P2",128,0) + ... S DIK="^PXD(811.8," +"RTN","C0Q1P2",129,0) + ... S DA=LIST("DILIST",2,IND) +"RTN","C0Q1P2",130,0) + ... D ^DIK +"RTN","C0Q1P2",131,0) + Q +"RTN","C0Q1P2",132,0) + ; +"RTN","C0Q1P2",133,0) + ;=============================================================== +"RTN","C0Q1P2",134,0) +EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to +"RTN","C0Q1P2",135,0) + ;include in the build. This is used in the build to determine which +"RTN","C0Q1P2",136,0) + ;entries to include. +"RTN","C0Q1P2",137,0) + N ARRAY,FOUND,IEN,IC,LUVALUE +"RTN","C0Q1P2",138,0) + D ARRAY(1,.ARRAY) +"RTN","C0Q1P2",139,0) + S FOUND=0 +"RTN","C0Q1P2",140,0) + S IC=0 +"RTN","C0Q1P2",141,0) + F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D +"RTN","C0Q1P2",142,0) + . M LUVALUE=ARRAY(IC) +"RTN","C0Q1P2",143,0) + . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE) +"RTN","C0Q1P2",144,0) + . I IEN=Y S FOUND=1 Q +"RTN","C0Q1P2",145,0) + Q FOUND +"RTN","C0Q1P2",146,0) + ; +"RTN","C0Q1P2",147,0) +PREREM ; +"RTN","C0Q1P2",148,0) + D DELEI +"RTN","C0Q1P2",149,0) + Q +"RTN","C0Q1P2",150,0) +POSTREM ; +"RTN","C0Q1P2",151,0) + D SMEXINS +"RTN","C0Q1P2",152,0) + Q +"RTN","C0Q1P2",153,0) + ;=============================================================== +"RTN","C0Q1P2",154,0) +SMEXINS ;Silent mode install. +"RTN","C0Q1P2",155,0) + N ARRAY,IC,IEN,LUVALUE,PXRMINST +"RTN","C0Q1P2",156,0) + S PXRMINST=1 +"RTN","C0Q1P2",157,0) + D ARRAY(1,.ARRAY) +"RTN","C0Q1P2",158,0) + S IC=0 +"RTN","C0Q1P2",159,0) + F S IC=$O(ARRAY(IC)) Q:'IC D +"RTN","C0Q1P2",160,0) + .M LUVALUE=ARRAY(IC) +"RTN","C0Q1P2",161,0) + .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE) +"RTN","C0Q1P2",162,0) + .I IEN'=0 D +"RTN","C0Q1P2",163,0) + .. N TEXT +"RTN","C0Q1P2",164,0) + .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1) +"RTN","C0Q1P2",165,0) + .. E S TEXT="Installing reminder exchange entry "_LUVALUE(1) +"RTN","C0Q1P2",166,0) + .. D BMES^XPDUTL(TEXT) +"RTN","C0Q1P2",167,0) + .. D INSTALL^PXRMEXSI(IEN,"I",1) +"RTN","C0Q1P2",168,0) + Q +"RTN","C0Q1P2",169,0) + ; +"SEC","^DIC",811.8,811.8,0,"AUDIT") +@ +"SEC","^DIC",811.8,811.8,0,"DD") +@ +"SEC","^DIC",811.8,811.8,0,"DEL") +@ +"SEC","^DIC",811.8,811.8,0,"LAYGO") +@ +"SEC","^DIC",811.8,811.8,0,"RD") + +"SEC","^DIC",811.8,811.8,0,"WR") +@ +"VER") +8.0^22.0 +"^DD",811.8,811.8,0) +FIELD^^130^8 +"^DD",811.8,811.8,0,"DDA") +N +"^DD",811.8,811.8,0,"DT") +3080125 +"^DD",811.8,811.8,0,"NM","REMINDER EXCHANGE") + +"^DD",811.8,811.8,0,"SCR") +I 0>1 +"^DD",811.8,811.8,0,"VRPK") +PXRM +"^DD",811.8,811.8,.01,0) +NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X +"^DD",811.8,811.8,.01,.1) + +"^DD",811.8,811.8,.01,1,0) +^.1^^0 +"^DD",811.8,811.8,.01,3) +Do not edit this field. +"^DD",811.8,811.8,.01,21,0) +^.001^2^2^3050124^^^^ +"^DD",811.8,811.8,.01,21,1,0) +This is the name of the entry in the Exchange File. It will be the same +"^DD",811.8,811.8,.01,21,2,0) +as the name of the reminder definition that was packed. +"^DD",811.8,811.8,.01,"DT") +3010601 +"^DD",811.8,811.8,.02,0) +SOURCE^F^^0;2^K:$L(X)>64!($L(X)<3) X +"^DD",811.8,811.8,.02,3) +Do not edit this field. +"^DD",811.8,811.8,.02,21,0) +^.001^3^3^3070313^^^ +"^DD",811.8,811.8,.02,21,1,0) +This is the source of the packed reminder. It will contain the name of +"^DD",811.8,811.8,.02,21,2,0) +the person who packed it and their site. +"^DD",811.8,811.8,.02,21,3,0) + +"^DD",811.8,811.8,.02,"DT") +3000706 +"^DD",811.8,811.8,.03,0) +DATE PACKED^D^^0;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X +"^DD",811.8,811.8,.03,3) +Do not edit this field. +"^DD",811.8,811.8,.03,21,0) +^.001^3^3^3050124^^^ +"^DD",811.8,811.8,.03,21,1,0) +This is the date and time the reminder was originally packed. When a +"^DD",811.8,811.8,.03,21,2,0) +packed reminder is put into the Exchange File from a MailMan message or +"^DD",811.8,811.8,.03,21,3,0) +a host file, this will reflect the original packing date and time. +"^DD",811.8,811.8,.03,"DT") +3000712 +"^DD",811.8,811.8,100,0) +PACKED REMINDER^811.801A^^100;0 +"^DD",811.8,811.8,100,9) +@ +"^DD",811.8,811.8,100,21,0) +^.001^1^1^3050126^^^^ +"^DD",811.8,811.8,100,21,1,0) +This multiple stores the packed reminder definition in XML format. +"^DD",811.8,811.8,100,"DT") +3030312 +"^DD",811.8,811.8,110,0) +DESCRIPTION^811.804^^110;0 +"^DD",811.8,811.8,110,21,0) +^.001^4^4^3050124^^^^ +"^DD",811.8,811.8,110,21,1,0) +This contains formatted information about the Exchange File entry. It +"^DD",811.8,811.8,110,21,2,0) +includes source information, a brief description, and keywords. This +"^DD",811.8,811.8,110,21,3,0) +information will be displayed when an entry is selected for possible +"^DD",811.8,811.8,110,21,4,0) +installation. +"^DD",811.8,811.8,119,0) +NUMBER OF UNIQUE COMPONENTS^NJ6,0^^119;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X +"^DD",811.8,811.8,119,3) +Do not edit this field. +"^DD",811.8,811.8,119,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8,119,21,1,0) +This is the number of unique components in the packed reminder. +"^DD",811.8,811.8,119,"DT") +3030609 +"^DD",811.8,811.8,120,0) +COMPONENT LIST^811.802A^^120;0 +"^DD",811.8,811.8,120,21,0) +^.001^1^1^3080206^^^^ +"^DD",811.8,811.8,120,21,1,0) +This is a list of components that are included in the packed reminder. +"^DD",811.8,811.8,130,0) +INSTALLATION HISTORY^811.803DA^^130;0 +"^DD",811.8,811.8,130,21,0) +^.001^2^2^3070808^^^^ +"^DD",811.8,811.8,130,21,1,0) +This multiple is used to record a history of packed reminder +"^DD",811.8,811.8,130,21,2,0) +installations. +"^DD",811.8,811.801,0) +PACKED REMINDER SUB-FIELD^^.01^1 +"^DD",811.8,811.801,0,"DT") +3030609 +"^DD",811.8,811.801,0,"IX","B",811.801,.01) + +"^DD",811.8,811.801,0,"NM","PACKED REMINDER") + +"^DD",811.8,811.801,0,"UP") +811.8 +"^DD",811.8,811.801,.01,0) +XML DATA^WL^^0;1^Q +"^DD",811.8,811.801,.01,1,0) +^.1 +"^DD",811.8,811.801,.01,1,1,0) +811.801^B +"^DD",811.8,811.801,.01,1,1,1) +S ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.801,.01,1,1,2) +K ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA) +"^DD",811.8,811.801,.01,1,1,"DT") +3030415 +"^DD",811.8,811.801,.01,3) +Do not edit this field. +"^DD",811.8,811.801,.01,9) +@ +"^DD",811.8,811.801,.01,21,0) +^.001^1^1^3050126^^^^ +"^DD",811.8,811.801,.01,21,1,0) +This is a line of XML data. +"^DD",811.8,811.801,.01,"DT") +3030609 +"^DD",811.8,811.802,0) +COMPONENT LIST SUB-FIELD^^1^4 +"^DD",811.8,811.802,0,"DT") +3080125 +"^DD",811.8,811.802,0,"NM","COMPONENT LIST") + +"^DD",811.8,811.802,0,"UP") +811.8 +"^DD",811.8,811.802,.01,0) +COMPONENT^F^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.802,.01,1,0) +^.1^^0 +"^DD",811.8,811.802,.01,3) +Do not edit this field. +"^DD",811.8,811.802,.01,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.802,.01,21,1,0) +This is the name of the component; for example, ROUTINE or EDUCATION TOPIC. +"^DD",811.8,811.802,.01,"DT") +3050112 +"^DD",811.8,811.802,.02,0) +FILE NUMBER^NJ14,4X^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."5N.N) X +"^DD",811.8,811.802,.02,3) +Do not edit this field. +"^DD",811.8,811.802,.02,21,0) +^.001^2^2^3050126^^^^ +"^DD",811.8,811.802,.02,21,1,0) +This is the file number of the component. If the component is a routine, +"^DD",811.8,811.802,.02,21,2,0) +then the file number will be 0. +"^DD",811.8,811.802,.02,"DT") +3050111 +"^DD",811.8,811.802,.03,0) +NUMBER OF ITEMS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.802,.03,3) +Do not edit this field. +"^DD",811.8,811.802,.03,21,0) +^.001^4^4^3050124^^^ +"^DD",811.8,811.802,.03,21,1,0) +This is the number of this type of component that is included in the +"^DD",811.8,811.802,.03,21,2,0) +packed reminder. For example, if this particular component is Health +"^DD",811.8,811.802,.03,21,3,0) +Factors and there are three of them in the packed reminder, the NUMBER +"^DD",811.8,811.802,.03,21,4,0) +OF ITEMS would be 3. +"^DD",811.8,811.802,.03,"DT") +3001101 +"^DD",811.8,811.802,1,0) +ITEM LIST^811.8021A^^1;0 +"^DD",811.8,811.802,1,21,0) +^.001^3^3^3080206^^^^ +"^DD",811.8,811.802,1,21,1,0) +This is the list of items of the component type. For example, if the +"^DD",811.8,811.802,1,21,2,0) +component type is Health Factors and there are three of them, the three +"^DD",811.8,811.802,1,21,3,0) +entries are specified in this list. +"^DD",811.8,811.8021,0) +ITEM LIST SUB-FIELD^^4^7 +"^DD",811.8,811.8021,0,"DT") +3080125 +"^DD",811.8,811.8021,0,"NM","ITEM LIST") + +"^DD",811.8,811.8021,0,"UP") +811.802 +"^DD",811.8,811.8021,.01,0) +ITEM^F^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8021,.01,1,0) +^.1^^0 +"^DD",811.8,811.8021,.01,3) +Do not edit this field. +"^DD",811.8,811.8021,.01,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.8021,.01,21,1,0) +This is the name of the item. +"^DD",811.8,811.8021,.01,"DT") +3050112 +"^DD",811.8,811.8021,.02,0) +START LINE^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,.02,3) +Do not edit this field. +"^DD",811.8,811.8021,.02,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.8021,.02,21,1,0) +This is the line in node 100 where the data for this item starts. +"^DD",811.8,811.8021,.02,"DT") +3050124 +"^DD",811.8,811.8021,.03,0) +END LINE^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,.03,3) +Do not edit this field. +"^DD",811.8,811.8021,.03,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,.03,21,1,0) +This is the line in node 100 where the data for this item ends. +"^DD",811.8,811.8021,.03,"DT") +3050124 +"^DD",811.8,811.8021,1,0) +IEN ROOT START LINE^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,1,3) +Do not edit this field. +"^DD",811.8,811.8021,1,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,1,21,1,0) +This is the line in node 100 where the ien root for this item starts. +"^DD",811.8,811.8021,1,"DT") +3050124 +"^DD",811.8,811.8021,2,0) +IEN ROOT END LINE^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,2,3) +Do not edit this field. +"^DD",811.8,811.8021,2,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,2,21,1,0) +This is the line in node 100 where the ien root ends. +"^DD",811.8,811.8021,2,"DT") +3050124 +"^DD",811.8,811.8021,3,0) +OK TO INSTALL^S^0:NO;1:YES;^0;6^Q +"^DD",811.8,811.8021,3,21,0) +^^4^4^3080122^ +"^DD",811.8,811.8021,3,21,1,0) +If this field is YES then the item can be installed. The value for +"^DD",811.8,811.8021,3,21,2,0) +this field is determined when the list of components and items in +"^DD",811.8,811.8021,3,21,3,0) +the Exchange File is built. +"^DD",811.8,811.8021,3,21,4,0) + +"^DD",811.8,811.8021,3,"DT") +3080122 +"^DD",811.8,811.8021,4,0) +SELECTABLE^S^0:NO;1:YES;^0;7^Q +"^DD",811.8,811.8021,4,21,0) +^.001^6^6^3080206^^ +"^DD",811.8,811.8021,4,21,1,0) +If this field is marked YES then the item can be selected for +"^DD",811.8,811.8021,4,21,2,0) +installation. This will include all Clinical Reminder items selected +"^DD",811.8,811.8021,4,21,3,0) +for packing by the user, reminder dialogs that are linked to a reminder +"^DD",811.8,811.8021,4,21,4,0) +definition, and entries from files that are exchangeable. +"^DD",811.8,811.8021,4,21,5,0) + +"^DD",811.8,811.8021,4,21,6,0) + +"^DD",811.8,811.8021,4,"DT") +3080206 +"^DD",811.8,811.803,0) +INSTALLATION HISTORY SUB-FIELD^^2^4 +"^DD",811.8,811.803,0,"DT") +3070808 +"^DD",811.8,811.803,0,"NM","INSTALLATION HISTORY") + +"^DD",811.8,811.803,0,"UP") +811.8 +"^DD",811.8,811.803,.01,0) +INSTALLATION DATE AND TIME^D^^0;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X +"^DD",811.8,811.803,.01,1,0) +^.1^^0 +"^DD",811.8,811.803,.01,3) +Do not edit this field. +"^DD",811.8,811.803,.01,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.803,.01,21,1,0) +This is the date and time of the installation. +"^DD",811.8,811.803,.01,"DT") +3001121 +"^DD",811.8,811.803,.02,0) +INSTALLED BY^F^^0;2^K:$L(X)>45!($L(X)<1) X +"^DD",811.8,811.803,.02,3) +Do not edit this field. +"^DD",811.8,811.803,.02,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.803,.02,21,1,0) +This is the person who did the installation. +"^DD",811.8,811.803,.02,"DT") +3001116 +"^DD",811.8,811.803,1,0) +COMPONENT LIST^811.8031A^^1;0 +"^DD",811.8,811.803,1,21,0) +^.001^2^2^3050124^^^ +"^DD",811.8,811.803,1,21,1,0) +This multiple contains a list of the packed reminder components that +"^DD",811.8,811.803,1,21,2,0) +were selected as part of this installation. +"^DD",811.8,811.803,2,0) +INSTALLATION TYPE^F^^0;3^K:$L(X)>30!($L(X)<1) X +"^DD",811.8,811.803,2,3) +Answer must be 1-30 characters in length. +"^DD",811.8,811.803,2,21,0) +^.001^3^3^3070808^^ +"^DD",811.8,811.803,2,21,1,0) +This field is used to store the installation type. +"^DD",811.8,811.803,2,21,2,0) + +"^DD",811.8,811.803,2,21,3,0) + +"^DD",811.8,811.803,2,"DT") +3070808 +"^DD",811.8,811.8031,0) +COMPONENT LIST SUB-FIELD^^5^6 +"^DD",811.8,811.8031,0,"DT") +3010313 +"^DD",811.8,811.8031,0,"IX","B",811.8031,.01) + +"^DD",811.8,811.8031,0,"NM","COMPONENT LIST") + +"^DD",811.8,811.8031,0,"UP") +811.803 +"^DD",811.8,811.8031,.01,0) +INDEX^NJ6,0^^0;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X +"^DD",811.8,811.8031,.01,1,0) +^.1 +"^DD",811.8,811.8031,.01,1,1,0) +811.8031^B +"^DD",811.8,811.8031,.01,1,1,1) +S ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.8031,.01,1,1,2) +K ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA) +"^DD",811.8,811.8031,.01,3) +Do not edit this field. +"^DD",811.8,811.8031,.01,21,0) +^.001^2^2^3050124^^^ +"^DD",811.8,811.8031,.01,21,1,0) +This number corresponds to the item number in the List Manager display +"^DD",811.8,811.8031,.01,21,2,0) +of the components in the Exchange File entry. +"^DD",811.8,811.8031,.01,"DT") +3001115 +"^DD",811.8,811.8031,1,0) +COMPONENT^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,1,3) +Do not edit this field. +"^DD",811.8,811.8031,1,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,1,21,1,0) +This is the type of component, Education Topic, Health Factor, etc. +"^DD",811.8,811.8031,1,"DT") +3001115 +"^DD",811.8,811.8031,2,0) +ITEM^F^^0;3^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,2,3) +Do not edit this field. +"^DD",811.8,811.8031,2,21,0) +^.001^2^2^3050124^^ +"^DD",811.8,811.8031,2,21,1,0) +This is the name of the component. For example, if the component is +"^DD",811.8,811.8031,2,21,2,0) +a Health Factor then this is the name of the Health Factor. +"^DD",811.8,811.8031,2,"DT") +3001115 +"^DD",811.8,811.8031,3,0) +ACTION^F^^0;4^K:$L(X)>4!($L(X)<1) X +"^DD",811.8,811.8031,3,3) +Do not edit this field. +"^DD",811.8,811.8031,3,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,3,21,1,0) +This is the action that was taken with the item. +"^DD",811.8,811.8031,3,"DT") +3001115 +"^DD",811.8,811.8031,4,0) +NEWNAME^F^^0;5^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,4,3) +Do not edit this field. +"^DD",811.8,811.8031,4,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,4,21,1,0) +If the item was copied to a new name then the new name is stored here. +"^DD",811.8,811.8031,4,"DT") +3001115 +"^DD",811.8,811.8031,5,0) +ADDITIONAL DETAILS^811.80315A^^1;0 +"^DD",811.8,811.8031,5,21,0) +^.001^3^3^3050124^^^ +"^DD",811.8,811.8031,5,21,1,0) +This multiple is used to store additional details about the +"^DD",811.8,811.8031,5,21,2,0) +installation. As an example, if a finding in a reminder definition is +"^DD",811.8,811.8031,5,21,3,0) +replaced with another finding that information is stored here. +"^DD",811.8,811.80315,0) +ADDITIONAL DETAILS SUB-FIELD^^.01^1 +"^DD",811.8,811.80315,0,"DT") +3010313 +"^DD",811.8,811.80315,0,"IX","B",811.80315,.01) + +"^DD",811.8,811.80315,0,"NM","ADDITIONAL DETAILS") + +"^DD",811.8,811.80315,0,"UP") +811.8031 +"^DD",811.8,811.80315,.01,0) +ADDITIONAL DETAILS^F^^0;1^K:$L(X)>80!($L(X)<1) X +"^DD",811.8,811.80315,.01,1,0) +^.1 +"^DD",811.8,811.80315,.01,1,1,0) +811.80315^B +"^DD",811.8,811.80315,.01,1,1,1) +S ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.80315,.01,1,1,2) +K ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",811.8,811.80315,.01,3) +Do not edit this field. +"^DD",811.8,811.80315,.01,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.80315,.01,21,1,0) +This is a line of additional information. +"^DD",811.8,811.80315,.01,"DT") +3010313 +"^DD",811.8,811.804,0) +DESCRIPTION SUB-FIELD^^.01^1 +"^DD",811.8,811.804,0,"DT") +3001221 +"^DD",811.8,811.804,0,"NM","DESCRIPTION") + +"^DD",811.8,811.804,0,"UP") +811.8 +"^DD",811.8,811.804,.01,0) +DESCRIPTION^W^^0;1^Q +"^DD",811.8,811.804,.01,3) +Do not edit this field. +"^DD",811.8,811.804,.01,"DT") +3001221 +"^DIC",811.8,811.8,0) +REMINDER EXCHANGE^811.8 +"^DIC",811.8,811.8,0,"GL") +^PXD(811.8, +"^DIC",811.8,811.8,"%",0) +^1.005^^0 +"^DIC",811.8,811.8,"%D",0) +^1.001^3^3^3050126^^^^ +"^DIC",811.8,811.8,"%D",1,0) +The Reminder Exchange File is used to store packed reminder +"^DIC",811.8,811.8,"%D",2,0) +definitions. All the entries in this file are managed by the +"^DIC",811.8,811.8,"%D",3,0) +Reminder Exchange Utility and should never be edited by hand. +"^DIC",811.8,"B","REMINDER EXCHANGE",811.8) + +**END** +**END** diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-001_PAT-002.TXT b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-001_PAT-002.TXT new file mode 100644 index 0000000..a1ab9fa --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-001_PAT-002.TXT @@ -0,0 +1,336 @@ +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: + Summary + ======= + This build contains the reminder rules and extracts for use with the +Quality Measures package for reporting for Meaningful use Stage I. It +also installs reminder dialogs for use in populating data for some of the +Outpatient Measures. + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +patches 12 and 17. The build was produced in July 2012. + Copyright WorldVistA 2012. + Licensed under GPL version 2 or later. Find it here: +http://www.gnu.org/licenses/gpl-2.0.html + Released through VISTA Forum. + + Functionality: + ============== + This patch installs the following reminder rules and selectively extracts +for these Meaningful Use Stage I measure. + + NQF 0024-alt-core_wt-kids + NQF 0013-core-HTN + NQF 0028a-core-tobacco-access + NQF 0028b-core-tobaocc-intervention + NQF 0041-alt-core-flu + NQF 0059-option1-DM-Hbalc + NQF 0061-option3-DM-BP + NQF 0064-option2-DM-LDL + NQF 0495 (Education 1 for Inpatient) + NQF 0497 (Education 2 for Inpatient) + MU Inpatient Stroke Measures (contains labs) + - NQF 0435 + - NQF 0436 + - NQF 0437 + - NQF 0438 + - NQF 0439 + - NQF 0440 + - NQF 0441 + MU Inpatient Venous Thombotic Embolism Measures (contains labs) + - NQF 0371 + - NQF 0372 + - NQF 0373 + - NQF 0374 + - NQF 0375 + - NQF 0376 + - NQF 0421-core-adult-weight (contains reminder extracts) + - NQF 0038-alt-core-childImms (contains reminder extracts) + +In addition, the following CPRS dialogs are sent in this patch. + - MU NQF0421 BMI DI + - MU NQF0041 INFLUENZA MANAGEMENT DI + - MU NQF0038 IMMUNE MANAGEMENT DI + - MU NQF0028AB MANAGEMENT DI + - MU SMOKING STATUS DI + +All of this is installed automatically, except if the labs transported in +the dialog cannot be found, the installer will be prompted to rematch +them. + + Package Elements: + ================= + This build transports and installs the following REMINDER EXCHANGE +entries: +MU NQF0013 HTN_MK 07/06/2011@15:08:53 +MU NQF0024-ALL 07/31/2012@17:49:03 +MU NQF0028 TOBACCO_MK 07/06/2011@15:14:49 +MU NQF0028AB MANAGEMENT DI 06/08/2011@16:50:31 +MU NQF0038 CHILD IMM SMH 07/27/2012@17:48:33 +MU NQF0041 FLU_MK 07/06/2011@15:26:59 +MU NQF0059_61_64_SMH 07/16/2012@10:46:17 +MU NQF0421 ADULT BMI SMH 07/26/2012@11:00:17 +MU STROKE 2.3.4.5.6.8.10 SMH 07/18/2012@10:33:53 +MU NQF 0495 ED-1 07/17/2012@11:47:55 +MU NQF 0497 ED-2 07/17/2012@11:50:23 +MU VTE 1.2.3.4.5.6 SMH 07/20/2012@09:48:30 +MU CPRS HELP DIS 08/01/2012@18:32:29 + + Routines: + ========= + C0Q1P2 (Transport and KIDS install routine) + + The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 21 + + Documentation: + + + Test Sites: + =========== + + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007). + + Installation Instructions: + ========================== + Pre-installation: + + Prerequisite patches: + - PXRM*2.0*12 (Download from VA FOIA Site; part of a Multibuild) + - PXRM*2.0*17 (Download from VA FOIA Site; part of a Multibuild) + - TMG*1.0*17 (Download from Trac Server: + https://trac.opensourcevista.net/svn/PGC/tags/TMG-PGC/) + + For a successful installation, you need to be sure that the labs that +the Inpatient Measures rely on exist. If not, the Lab ADPAC needs to +create them. These labs are: + - LDL CHOLESTEROL + - PLT + - INR + + If these don't exist by the same name as above, the installer will be +asked to rematch them. + + Users can remain on the system while this patch is installed. + + Install Time - less than 5 minutes + + The Pre-installation routine PRE^C0Q1P2 will delete existing Reminder +Exchange entries with the same name. + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build, or + Use the Load a Distribution option in KIDS to load it from a + host file. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*2): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*2" at the INSTALL NAME prompt. + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + The Post-installation routine POST^C0Q1P2 will install the Reminder +Exchange entries. + +Here is an example installation log. It includes lab replacements. +Select INSTALL NAME: C0Q*1.0*2 Loaded from Distribution Loaded +from D +istribution 8/3/12@14:23:27 + => SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 + +This Distribution was loaded on Aug 03, 2012@14:23:27 with header of + SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 + It consisted of the following Install(s): + C0Q*1.0*2 + + Checking C0Q*1.0*2 for overlap with VOE 1.0 . OK + No overlap found + + + Checking C0Q*1.0*2 for overlap with VOE 1.1 . OK + No overlap found + + + Checking C0Q*1.0*2 for overlap with NO HOME 1.0 . OK + No overlap found + +Checking Install for Package C0Q*1.0*2 + +Install Questions for C0Q*1.0*2 + +Incoming Files: + + + 811.8 REMINDER EXCHANGE (including data) +Note: You already have the 'REMINDER EXCHANGE' File. +I will OVERWRITE your data with mine. + + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// PHOME HOME PRINTER + + + Install Started for C0Q*1.0*2 : + Aug 03, 2012@14:23:33 + +Build Distribution Date: Aug 03, 2012 + + Installing Routines:.. + Aug 03, 2012@14:23:33 + + Running Pre-Install Routine: PRE^C0Q1P2. + + Installing Data Dictionaries: .. + Aug 03, 2012@14:23:34 + + Installing Data: + Aug 03, 2012@14:23:35 + + Running Post-Install Routine: POST^C0Q1P2. + +Installing reminder exchange entry MU NQF0024-ALL + +Installing reminder exchange entry MU NQF0013 HTN_MK + +Installing reminder exchange entry MU NQF0028 TOBACCO_MK + +Installing reminder exchange entry MU NQF0041 FLU_MK + +Installing reminder exchange entry MU NQF0059_61_64_SMH + +Installing reminder exchange entry MU NQF 0495 ED-1 + +Installing reminder exchange entry MU NQF 0497 ED-2 + +Installing reminder exchange entry MU STROKE 2.3.4.5.6.8.10 SMH + +Installing reminder exchange entry MU VTE 1.2.3.4.5.6 SMH +Finding LT.INR does not exist, what do you want to do? + + Select one of the following: + + + D Delete + P Replace with an existing entry + Q Quit the install + +Enter response: P Replace with an existing entry +Select LABORATORY TEST NAME: SAM INR +Finding LT.INR does not exist, what do you want to do? + + Select one of the following: + + + D Delete + P Replace with an existing entry + Q Quit the install + +Enter response: P Replace with an existing entry +Select LABORATORY TEST NAME: SAM INR + +Installing reminder exchange entry MU NQF0421 ADULT BMI SMH + +Installing reminder exchange entry MU NQF0038 CHILD IMM SMH + +Installing reminder exchange entry MU CPRS HELP DIS + + Updating Routine file...... + + Updating KIDS files....... + + C0Q*1.0*2 Installed. + Aug 03, 2012@14:24:27 + + Not a VA primary domain + + NO Install Message sent + + After installation, make sure you install C0Q*1.0*3, which relies on +this patch. + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: PRE^C0Q1P2 DELETE PRE-INIT ROUTINE: No +POST-INIT ROUTINE: POST^C0Q1P2 DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +811.8 REMINDER EXCHANGE YES YES YES OVER NO NO + DATA SCREEN: I $$EXFINC^C0Q1P2(Y) + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: NO + Default INHIBIT LOGONs during the install: NO + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO + +REQUIRED BUILDS: ACTION: + PXRM*2.0*12 Don't install, leave global + PXRM*2.0*17 Don't install, leave global + TMG*1.0*17 Don't install, leave global + diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-002_PAT-003.KID b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-002_PAT-003.KID new file mode 100644 index 0000000..515141f --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-002_PAT-003.KID @@ -0,0 +1,3188 @@ +KIDS Distribution saved on Aug 06, 2012@11:32:48 +QUALITY MEASURES 1.0 PATCH 3 +**KIDS**:C0Q*1.0*3^ + +**INSTALL NAME** +C0Q*1.0*3 +"BLD",7936,0) +C0Q*1.0*3^QUALITY MEASURES^0^3120806^y +"BLD",7936,1,0) +^^155^155^3120803^ +"BLD",7936,1,1,0) + Summary +"BLD",7936,1,2,0) + ======= +"BLD",7936,1,3,0) + This build contains the Quality Measures file (#1130580001.101) fully +"BLD",7936,1,4,0) + populated with the Reminder Rule Sets and if applicable Reminder Extract +"BLD",7936,1,5,0) + definitions for use with the Quality Measures package for reporting for +"BLD",7936,1,6,0) + Meaningful use Stage I. +"BLD",7936,1,7,0) + +"BLD",7936,1,8,0) + Source, Copyright, & Licensing: +"BLD",7936,1,9,0) + =============================== +"BLD",7936,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"BLD",7936,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"BLD",7936,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"BLD",7936,1,13,0) + Copyright WorldVistA 2012. +"BLD",7936,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"BLD",7936,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"BLD",7936,1,16,0) + Released through VISTA Forum. +"BLD",7936,1,17,0) + +"BLD",7936,1,18,0) + Functionality: +"BLD",7936,1,19,0) + ============== +"BLD",7936,1,20,0) + This patch is a pure data patch. It only installs reference data in the +"BLD",7936,1,21,0) +C0Q QUALITY MEASURE file (#1130580001.101). It relies on Reminder Package +"BLD",7936,1,22,0) +data (specifically rule sets and extracts) sent in C0Q*1.0*2. +"BLD",7936,1,23,0) + +"BLD",7936,1,24,0) + Package Elements: +"BLD",7936,1,25,0) + ================= +"BLD",7936,1,26,0) + This build transports entries in the C0Q QUALITY MEASURE file. +"BLD",7936,1,27,0) + +"BLD",7936,1,28,0) + Routines: +"BLD",7936,1,29,0) + ========= +"BLD",7936,1,30,0) + +"BLD",7936,1,31,0) + +"BLD",7936,1,32,0) + Documentation: +"BLD",7936,1,33,0) + +"BLD",7936,1,34,0) + +"BLD",7936,1,35,0) + Test Sites: +"BLD",7936,1,36,0) + =========== +"BLD",7936,1,37,0) + +"BLD",7936,1,38,0) + +"BLD",7936,1,39,0) + Compliance: +"BLD",7936,1,40,0) + =========== +"BLD",7936,1,41,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7936,1,42,0) + Conventions (version 3 April 2007). +"BLD",7936,1,43,0) + +"BLD",7936,1,44,0) + Installation Instructions: +"BLD",7936,1,45,0) + ========================== +"BLD",7936,1,46,0) + Pre-installation: +"BLD",7936,1,47,0) + +"BLD",7936,1,48,0) + Prerequisite patches: (both found on the trac server here: +"BLD",7936,1,49,0) + https://trac.opensourcevista.net/svn/qrda/C0Q/trunk/kids/) +"BLD",7936,1,50,0) + C0Q*1.0*2 +"BLD",7936,1,51,0) + QUALITY MEASURES 1.0 +"BLD",7936,1,52,0) + +"BLD",7936,1,53,0) + Users can remain on the system while this patch is installed. +"BLD",7936,1,54,0) + +"BLD",7936,1,55,0) + Install Time - less than 1 minute. +"BLD",7936,1,56,0) + +"BLD",7936,1,57,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7936,1,58,0) + +"BLD",7936,1,59,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7936,1,60,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"BLD",7936,1,61,0) + Use the Load a Distribution option in KIDS to load it from a +"BLD",7936,1,62,0) + host file. +"BLD",7936,1,63,0) + +"BLD",7936,1,64,0) + 2. START UP KIDS +"BLD",7936,1,65,0) + +"BLD",7936,1,66,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7936,1,67,0) + [XPD MAIN]: +"BLD",7936,1,68,0) + +"BLD",7936,1,69,0) + Edits and Distribution ... +"BLD",7936,1,70,0) + Utilities ... +"BLD",7936,1,71,0) + Installation ... +"BLD",7936,1,72,0) + +"BLD",7936,1,73,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7936,1,74,0) + --- +"BLD",7936,1,75,0) + Load a Distribution +"BLD",7936,1,76,0) + Print Transport Global +"BLD",7936,1,77,0) + Compare Transport Global to Current System +"BLD",7936,1,78,0) + Verify Checksums in Transport Global +"BLD",7936,1,79,0) + Install Package(s) +"BLD",7936,1,80,0) + Restart Install of Package(s) +"BLD",7936,1,81,0) + Unload a Distribution +"BLD",7936,1,82,0) + Backup a Transport Global +"BLD",7936,1,83,0) + +"BLD",7936,1,84,0) + Select Installation Option: +"BLD",7936,1,85,0) + +"BLD",7936,1,86,0) + 3. Select Installation Option: +"BLD",7936,1,87,0) + +"BLD",7936,1,88,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7936,1,89,0) + NAME, enter C0Q*1.0*3): +"BLD",7936,1,90,0) + +"BLD",7936,1,91,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7936,1,92,0) + message of any routines exported with this patch. It will not +"BLD",7936,1,93,0) + backup any other changes such as DD's or templates. +"BLD",7936,1,94,0) + b. Compare Transport Global to Current System - This option will +"BLD",7936,1,95,0) + allow you to view all changes that will be made when this patch +"BLD",7936,1,96,0) + is installed. It compares all components of this patch +"BLD",7936,1,97,0) + (routines, DD's, templates, etc.). +"BLD",7936,1,98,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7936,1,99,0) + you to ensure the integrity of the routines that are in the +"BLD",7936,1,100,0) + transport global. +"BLD",7936,1,101,0) + +"BLD",7936,1,102,0) + 4. Select Installation Option: Install Package(s) +"BLD",7936,1,103,0) + +"BLD",7936,1,104,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7936,1,105,0) + +"BLD",7936,1,106,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7936,1,107,0) + and enter "C0Q*1.0*3" at the INSTALL NAME prompt. +"BLD",7936,1,108,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7936,1,109,0) + Install? NO//' answer NO +"BLD",7936,1,110,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7936,1,111,0) + NO//' answer NO +"BLD",7936,1,112,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7936,1,113,0) + and Protocols? NO//' answer NO +"BLD",7936,1,114,0) + +"BLD",7936,1,115,0) + +"BLD",7936,1,116,0) +Here is an example installation log. +"BLD",7936,1,117,0) +Select INSTALL NAME: C0Q*1.0*3 Loaded from Distribution Loaded +"BLD",7936,1,118,0) +from Di +"BLD",7936,1,119,0) +stribution 8/3/12@16:32:30 +"BLD",7936,1,120,0) + => SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"BLD",7936,1,121,0) + +"BLD",7936,1,122,0) +This Distribution was loaded on Aug 03, 2012@16:32:30 with header of +"BLD",7936,1,123,0) + SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"BLD",7936,1,124,0) + It consisted of the following Install(s): +"BLD",7936,1,125,0) + C0Q*1.0*3 +"BLD",7936,1,126,0) + +"BLD",7936,1,127,0) + Checking C0Q*1.0*3 for overlap with VOE 1.0 . OK +"BLD",7936,1,128,0) + No overlap found +"BLD",7936,1,129,0) +DEVICE: HOME// PHOME HOME PRINTER +"BLD",7936,1,130,0) + +"BLD",7936,1,131,0) + +"BLD",7936,1,132,0) + Install Started for C0Q*1.0*3 : +"BLD",7936,1,133,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,134,0) + +"BLD",7936,1,135,0) +Build Distribution Date: Aug 03, 2012 +"BLD",7936,1,136,0) + +"BLD",7936,1,137,0) + Installing Routines:. +"BLD",7936,1,138,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,139,0) + +"BLD",7936,1,140,0) + Installing Data Dictionaries: .. +"BLD",7936,1,141,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,142,0) + +"BLD",7936,1,143,0) + Installing Data: +"BLD",7936,1,144,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,145,0) + +"BLD",7936,1,146,0) + Updating Routine file..... +"BLD",7936,1,147,0) + +"BLD",7936,1,148,0) + Updating KIDS files....... +"BLD",7936,1,149,0) + +"BLD",7936,1,150,0) + C0Q*1.0*3 Installed. +"BLD",7936,1,151,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,152,0) + +"BLD",7936,1,153,0) + Not a VA primary domain +"BLD",7936,1,154,0) + +"BLD",7936,1,155,0) + NO Install Message sent +"BLD",7936,4,0) +^9.64PA^1130580001.101^1 +"BLD",7936,4,1130580001.101,0) +1130580001.101 +"BLD",7936,4,1130580001.101,222) +y^y^f^^y^^y^o^n +"BLD",7936,4,"B",1130580001.101,1130580001.101) + +"BLD",7936,6.3) +12 +"BLD",7936,"ABPKG") +n +"BLD",7936,"KRN",0) +^9.67PA^779.2^20 +"BLD",7936,"KRN",.4,0) +.4 +"BLD",7936,"KRN",.401,0) +.401 +"BLD",7936,"KRN",.402,0) +.402 +"BLD",7936,"KRN",.403,0) +.403 +"BLD",7936,"KRN",.5,0) +.5 +"BLD",7936,"KRN",.84,0) +.84 +"BLD",7936,"KRN",3.6,0) +3.6 +"BLD",7936,"KRN",3.8,0) +3.8 +"BLD",7936,"KRN",9.2,0) +9.2 +"BLD",7936,"KRN",9.8,0) +9.8 +"BLD",7936,"KRN",19,0) +19 +"BLD",7936,"KRN",19.1,0) +19.1 +"BLD",7936,"KRN",101,0) +101 +"BLD",7936,"KRN",409.61,0) +409.61 +"BLD",7936,"KRN",771,0) +771 +"BLD",7936,"KRN",779.2,0) +779.2 +"BLD",7936,"KRN",870,0) +870 +"BLD",7936,"KRN",8989.51,0) +8989.51 +"BLD",7936,"KRN",8989.52,0) +8989.52 +"BLD",7936,"KRN",8994,0) +8994 +"BLD",7936,"KRN","B",.4,.4) + +"BLD",7936,"KRN","B",.401,.401) + +"BLD",7936,"KRN","B",.402,.402) + +"BLD",7936,"KRN","B",.403,.403) + +"BLD",7936,"KRN","B",.5,.5) + +"BLD",7936,"KRN","B",.84,.84) + +"BLD",7936,"KRN","B",3.6,3.6) + +"BLD",7936,"KRN","B",3.8,3.8) + +"BLD",7936,"KRN","B",9.2,9.2) + +"BLD",7936,"KRN","B",9.8,9.8) + +"BLD",7936,"KRN","B",19,19) + +"BLD",7936,"KRN","B",19.1,19.1) + +"BLD",7936,"KRN","B",101,101) + +"BLD",7936,"KRN","B",409.61,409.61) + +"BLD",7936,"KRN","B",771,771) + +"BLD",7936,"KRN","B",779.2,779.2) + +"BLD",7936,"KRN","B",870,870) + +"BLD",7936,"KRN","B",8989.51,8989.51) + +"BLD",7936,"KRN","B",8989.52,8989.52) + +"BLD",7936,"KRN","B",8994,8994) + +"BLD",7936,"QUES",0) +^9.62^^ +"BLD",7936,"REQB",0) +^9.611^2^2 +"BLD",7936,"REQB",1,0) +C0Q*1.0*2^2 +"BLD",7936,"REQB",2,0) +QUALITY MEASURES 1.0^2 +"BLD",7936,"REQB","B","C0Q*1.0*2",1) + +"BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2) + +"DATA",1130580001.101,4,0) +PQRI MEASURE 124^^^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,6,0) +PQRI MEASURE 47^^^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) +PQRI MEASURE 48^^^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,12,0) +MU EP NQF 0043^^^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) +^1130580001.111^2^2^3120730^^ +"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,12,7) +NQF0043 +"DATA",1130580001.101,14,0) +PQRI MEASURE 39^^^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) +PQRI MEASURE 173^^^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,23,0) +MU HOS NQF 0495 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495^^^^^^88^165 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497^^^^^^90^168 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435^^^^^^114^115 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436^^^^^^116^117 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437^^^^^^119^118 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438^^^^^^120^121 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439^^^^^^122^123 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440^^^^^^124^125 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441^^^^^^126^127 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371^^^^^^69^67 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372^^^^^^128^71 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373^^^^^^129^144 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374^^^^^^145^146 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375^^^^^^147^156 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376^^^^^^158^162 +"DATA",1130580001.101,39,0) +MU EP NQF 0421^^^2.16.840.1.113883.3.249.11.54 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,4) +PQRI-128 +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421^^^^^^321^320^10 +"DATA",1130580001.101,40,0) +MU EP NQF 0013^^^2.16.840.1.113883.3.249.11.56 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,4) +PQRI-13 +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013^^^^^^142^167 +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^^^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,4) +PQRI-28 +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A^^^^^^157^160 +"DATA",1130580001.101,42,0) +MU EP NQF 0041^^^2.16.840.1.113883.3.249.11.7 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,4) +PQRI-110 +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041^^^^^^242^243 +"DATA",1130580001.101,43,0) +MU EP NQF 0024 +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (ALL) +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (ALL) +"DATA",1130580001.101,43,6,0) +^^6^6^3120803^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. This specific Quality Measure is for all the children. +"DATA",1130580001.101,43,7) +NQF0024 ALL^^^^^^151^149 +"DATA",1130580001.101,44,0) +MU EP NQF 0038^^^2.16.840.1.113883.3.249.11.60 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,4) +PQRI-38 +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038 +"DATA",1130580001.101,45,0) +MU EP NQF 0059^^^2.16.840.1.113883.3.249.11.2 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,4) +PQRI-1 +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059^^^^^^260^258 +"DATA",1130580001.101,46,0) +MU EP NQF 0064^^^2.16.840.1.113883.3.249.11.3 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,4) +PQRI-2 +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064^^^^^^248^258 +"DATA",1130580001.101,47,0) +MU EP NQF 0061^^^2.16.840.1.113883.3.249.11.4 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,4) +PQRI-3 +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061^^^^^^262^258 +"DATA",1130580001.101,48,0) +MU EP NQF 0081^^^2.16.840.1.113883.3.249.11.5 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,4) +PQRI-5 +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081 +"DATA",1130580001.101,49,0) +MU EP NQF 0070^^^2.16.840.1.113883.3.249.11.6 +"DATA",1130580001.101,49,1) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +"DATA",1130580001.101,49,4) +PQRI-7 +"DATA",1130580001.101,49,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,49,6,0) +^^3^3^3101013^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients aged 18 years and older with a diagnosis of +"DATA",1130580001.101,49,6,2,0) +coronary artery disease and a prior MI who where prescribed beta-blocker +"DATA",1130580001.101,49,6,3,0) +therapy +"DATA",1130580001.101,49,7) +NQF0070 +"DATA",1130580001.101,50,0) +MU EP NQF 0031^^^2.16.840.1.113883.3.249.11.9 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,4) +PQRI-112 +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031 +"DATA",1130580001.101,51,0) +MU EP NQF 0034^^^2.16.840.1.113883.3.249.11.10 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,4) +PQRI-113 +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034 +"DATA",1130580001.101,52,0) +MU EP NQF 0067 +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067 +"DATA",1130580001.101,53,0) +MU EP NQF 0083 +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083 +"DATA",1130580001.101,54,0) +MU EP NQF 0105 +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105 +"DATA",1130580001.101,55,0) +MU EP NQF 0086 +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086 +"DATA",1130580001.101,56,0) +MU EP NQF 0088 +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088 +"DATA",1130580001.101,57,0) +MU EP NQF 0089 +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089 +"DATA",1130580001.101,58,0) +MU EP NQF 0047 +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047 +"DATA",1130580001.101,59,0) +MU EP NQF 0001 +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001 +"DATA",1130580001.101,60,0) +MU EP NQF 0002 +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002 +"DATA",1130580001.101,61,0) +MU EP NQF 0385 +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385 +"DATA",1130580001.101,62,0) +MU EP NQF 0389 +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389 +"DATA",1130580001.101,63,0) +MU EP NQF 0027 +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027 +"DATA",1130580001.101,64,0) +MU EP NQF 0055 +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055 +"DATA",1130580001.101,65,0) +MU EP NQF 0062 +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062 +"DATA",1130580001.101,66,0) +MU EP NQF 0056 +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056 +"DATA",1130580001.101,67,0) +MU EP NQF 0074 +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074 +"DATA",1130580001.101,68,0) +MU EP NQF 0084 +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084 +"DATA",1130580001.101,69,0) +MU EP NQF 0073 +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073 +"DATA",1130580001.101,70,0) +MU EP NQF 0068 +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068 +"DATA",1130580001.101,71,0) +MU EP NQF 0004 +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004 +"DATA",1130580001.101,72,0) +MU EP NQF 0012 +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012 +"DATA",1130580001.101,73,0) +MU EP NQF 0014 +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014 +"DATA",1130580001.101,74,0) +MU EP NQF 0018 +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018 +"DATA",1130580001.101,75,0) +MU EP NQF 0032 +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032 +"DATA",1130580001.101,76,0) +MU EP NQF 0033 +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033 +"DATA",1130580001.101,77,0) +MU EP NQF 0036 +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036 +"DATA",1130580001.101,78,0) +MU EP NQF 0052 +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052 +"DATA",1130580001.101,79,0) +MU EP NQF 0075 +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075 +"DATA",1130580001.101,80,0) +MU EP NQF 0575 +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575 +"DATA",1130580001.101,81,0) +MU EP NQF 0028B +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B^^^^^^154^160 +"DATA",1130580001.101,82,0) +MU EP NQF 0024 2-10Y +"DATA",1130580001.101,82,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (2-10) +"DATA",1130580001.101,82,5) +Weight Assessment and Counseling for Children 2-10 Years Old +"DATA",1130580001.101,82,6,0) +^^6^6^3120803^ +"DATA",1130580001.101,82,6,1,0) +Percentage of patients 2-10 years of age +"DATA",1130580001.101,82,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,82,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,82,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,82,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,82,6,6,0) +year. Only for those 2-10 years of age. +"DATA",1130580001.101,82,7) +NQF0024 2-10Y^^^^^^334^338 +"DATA",1130580001.101,83,0) +MU EP NQF 0038 NUM1 DPT +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT^^^^^^329^192^11 +"DATA",1130580001.101,84,0) +MU EP NQF 0038 NUM2 IPV +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV^^^^^^224^192^11 +"DATA",1130580001.101,85,0) +MU EP NQF 0038 NUM3 MMR +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR^^^^^^183^192^11 +"DATA",1130580001.101,86,0) +MU EP NQF 0038 NUM4 HiB +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB^^^^^^189^192^11 +"DATA",1130580001.101,87,0) +MU EP NQF 0038 NUM5 HEP B +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B^^^^^^194^192^11 +"DATA",1130580001.101,88,0) +MU EP NQF 0038 NUM6 VZV +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV^^^^^^198^192^11 +"DATA",1130580001.101,89,0) +MU EP NQF 0038 NUM7 PCV +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV^^^^^^205^192^11 +"DATA",1130580001.101,90,0) +MU EP NQF 0038 NUM8 HEP A +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A^^^^^^208^192^11 +"DATA",1130580001.101,91,0) +MU EP NQF 0038 NUM9 RV +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9^^^^^^216^192^11 +"DATA",1130580001.101,92,0) +MU EP NQF 0038 NUM10 FLU +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10^^^^^^331^192^11 +"DATA",1130580001.101,93,0) +MU EP NQF 0038 NUM11 COMBO5 +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5^^^^^^228^192^11 +"DATA",1130580001.101,94,0) +MU EP NQF 0038 NUM12 COMBO6 +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6^^^^^^231^192^11 +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,104,0) +MU EP NQF 0024 11-17Y +"DATA",1130580001.101,104,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (11-17) +"DATA",1130580001.101,104,5) +Weight Assessment and Counseling for Children and Adolescents 11-17 years old +"DATA",1130580001.101,104,6,0) +^^6^6^3120803^ +"DATA",1130580001.101,104,6,1,0) +Percentage of patients 11-17 years of age +"DATA",1130580001.101,104,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,104,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,104,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,104,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,104,6,6,0) +year. Only for those 11-17 years old. +"DATA",1130580001.101,104,7) +NQF0024 11-17Y^^^^^^336^340 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^y^^y^o^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FRV1",1130580001.101,"104,7",7) +MU NQF0024 BMI PERCENTILE 11-17Y RS +"FRV1",1130580001.101,"104,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"104,7",8) +MU NQF0024 BMI 11-17Y DENOM RS +"FRV1",1130580001.101,"104,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"23,7",7) +MU ED-1 NUMER RS +"FRV1",1130580001.101,"23,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"23,7",8) +MU ED-1 DENOM RS +"FRV1",1130580001.101,"23,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",7) +MU ED-2 NUMER RS +"FRV1",1130580001.101,"24,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",8) +MU ED-2 DENOM RS +"FRV1",1130580001.101,"24,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",7) +MU STK-2 NUMER RS +"FRV1",1130580001.101,"25,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",8) +MU STK-2 DENOM RS +"FRV1",1130580001.101,"25,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",7) +MU STK-3 NUMER RS +"FRV1",1130580001.101,"26,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",8) +MU STK-3 DENOM RS +"FRV1",1130580001.101,"26,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",7) +MU STK-4 NUMER RS +"FRV1",1130580001.101,"27,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",8) +MU STK-4 DENOM RS +"FRV1",1130580001.101,"27,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",7) +MU STK-5 NUMER RS +"FRV1",1130580001.101,"28,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",8) +MU STK-5 DENOM RS +"FRV1",1130580001.101,"28,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",7) +MU STK-6 NUMER RS +"FRV1",1130580001.101,"29,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",8) +MU STK-6 DENOM RS +"FRV1",1130580001.101,"29,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",7) +MU STK-8 NUMER RS +"FRV1",1130580001.101,"30,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",8) +MU STK-8 DENOM RS +"FRV1",1130580001.101,"30,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",7) +MU STK-10 NUMER RS +"FRV1",1130580001.101,"31,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",8) +MU STK-10 DENOM RS +"FRV1",1130580001.101,"31,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",7) +MU VTE-1 NUMER RS +"FRV1",1130580001.101,"32,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",8) +MU VTE-1 DENOM RS +"FRV1",1130580001.101,"32,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",7) +MU VTE-2 NUMER RS +"FRV1",1130580001.101,"33,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",8) +MU VTE-2 DENOM RS +"FRV1",1130580001.101,"33,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",7) +MU VTE-3 NUMER RS +"FRV1",1130580001.101,"34,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",8) +MU VTE-3 DENOM RS +"FRV1",1130580001.101,"34,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",7) +MU VTE-4 NUMER RS +"FRV1",1130580001.101,"35,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",8) +MU VTE-4 DENOM RS +"FRV1",1130580001.101,"35,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",7) +MU VTE-5 NUMER RS +"FRV1",1130580001.101,"36,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",8) +MU VTE-5 DENOM RS +"FRV1",1130580001.101,"36,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",7) +MU VTE-6 NUMER RS +"FRV1",1130580001.101,"37,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",8) +MU VTE-6 DENOM RS +"FRV1",1130580001.101,"37,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"39,7",7) +MU NQF0421 BMI NUM ALL RS +"FRV1",1130580001.101,"39,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"39,7",8) +MU NQF0421 BMI DENOM ALL RS +"FRV1",1130580001.101,"39,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"39,7",9) +MU NQF0421 ADULT BMI +"FRV1",1130580001.101,"39,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"40,7",7) +MU NQF0013 HTN NUMER2 RS +"FRV1",1130580001.101,"40,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"40,7",8) +MU NQF0013 HTN DENOM2 RS +"FRV1",1130580001.101,"40,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"41,7",7) +MU NQF0028A TOBACCO SCREEN NUM RS +"FRV1",1130580001.101,"41,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"41,7",8) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1",1130580001.101,"41,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"42,7",7) +MU NQF0041 FLU RS +"FRV1",1130580001.101,"42,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"42,7",8) +MU NQF0041 FLU DENOM RS +"FRV1",1130580001.101,"42,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"43,7",7) +MU NQF0024 BMI 2-17YR NUM RS +"FRV1",1130580001.101,"43,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"43,7",8) +MU NQF0024 BMI 2-17YRS DEM RS +"FRV1",1130580001.101,"43,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"45,7",7) +MU NQF0059 HBA1C NUM RS +"FRV1",1130580001.101,"45,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"45,7",8) +MU NQF0059 DM DENOM-ALL RS +"FRV1",1130580001.101,"45,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"46,7",7) +MU NQF0064 NUM LDL RS +"FRV1",1130580001.101,"46,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"46,7",8) +MU NQF0059 DM DENOM-ALL RS +"FRV1",1130580001.101,"46,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"47,7",7) +MU NQF0061 NUM DM BP<140/90 RS +"FRV1",1130580001.101,"47,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"47,7",8) +MU NQF0059 DM DENOM-ALL RS +"FRV1",1130580001.101,"47,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"81,7",7) +MU NQF0028B TOBACCO INTERV NUM2 RS +"FRV1",1130580001.101,"81,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"81,7",8) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1",1130580001.101,"81,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"82,7",7) +MU NQF0024 BMI PERCENTILE 2-10Y RS +"FRV1",1130580001.101,"82,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"82,7",8) +MU NQF0024 BMI 2-10Y DENOM RS +"FRV1",1130580001.101,"82,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"83,7",7) +MU NQF0038 NUM1 DPT RS +"FRV1",1130580001.101,"83,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"83,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"83,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"83,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"83,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"84,7",7) +MU NQF0038 NUM2 IPV RS +"FRV1",1130580001.101,"84,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"84,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"84,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"84,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"84,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"85,7",7) +MU NQF0038 NUM3-ALL RS +"FRV1",1130580001.101,"85,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"85,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"85,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"85,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"85,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"86,7",7) +MU NQF0038 NUM4 HIB RS +"FRV1",1130580001.101,"86,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"86,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"86,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"86,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"86,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"87,7",7) +MU NQF0038 NUM5 RS +"FRV1",1130580001.101,"87,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"87,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"87,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"87,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"87,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"88,7",7) +MU NQF0038 NUM6 VZV RS +"FRV1",1130580001.101,"88,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"88,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"88,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"88,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"88,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"89,7",7) +MU NQF0038 NUM7 PCV RS +"FRV1",1130580001.101,"89,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"89,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"89,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"89,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"89,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"90,7",7) +MU NQF0038 NUM8 HEP A RS +"FRV1",1130580001.101,"90,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"90,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"90,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"90,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"90,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"91,7",7) +MU NQF0038 NUM9 RV RS +"FRV1",1130580001.101,"91,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"91,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"91,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"91,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"91,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"92,7",7) +MU NQF0038 NUM10 INFLUENZA RS +"FRV1",1130580001.101,"92,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"92,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"92,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"92,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"92,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"93,7",7) +MU NQF0038 NUM11 COMBO5 RS +"FRV1",1130580001.101,"93,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"93,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"93,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"93,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"93,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"94,7",7) +MU NQF0038 NUM12 COMBO6 RS +"FRV1",1130580001.101,"94,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"94,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"94,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"94,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"94,7",9,"F") +;PXRM(810.2, +"FRV1K",1130580001.101,"104,7",7) +B +"FRV1K",1130580001.101,"104,7",7,1) +MU NQF0024 BMI PERCENTILE 11-17Y RS +"FRV1K",1130580001.101,"104,7",8) +B +"FRV1K",1130580001.101,"104,7",8,1) +MU NQF0024 BMI 11-17Y DENOM RS +"FRV1K",1130580001.101,"23,7",7) +B +"FRV1K",1130580001.101,"23,7",7,1) +MU ED-1 NUMER RS +"FRV1K",1130580001.101,"23,7",8) +B +"FRV1K",1130580001.101,"23,7",8,1) +MU ED-1 DENOM RS +"FRV1K",1130580001.101,"24,7",7) +B +"FRV1K",1130580001.101,"24,7",7,1) +MU ED-2 NUMER RS +"FRV1K",1130580001.101,"24,7",8) +B +"FRV1K",1130580001.101,"24,7",8,1) +MU ED-2 DENOM RS +"FRV1K",1130580001.101,"25,7",7) +B +"FRV1K",1130580001.101,"25,7",7,1) +MU STK-2 NUMER RS +"FRV1K",1130580001.101,"25,7",8) +B +"FRV1K",1130580001.101,"25,7",8,1) +MU STK-2 DENOM RS +"FRV1K",1130580001.101,"26,7",7) +B +"FRV1K",1130580001.101,"26,7",7,1) +MU STK-3 NUMER RS +"FRV1K",1130580001.101,"26,7",8) +B +"FRV1K",1130580001.101,"26,7",8,1) +MU STK-3 DENOM RS +"FRV1K",1130580001.101,"27,7",7) +B +"FRV1K",1130580001.101,"27,7",7,1) +MU STK-4 NUMER RS +"FRV1K",1130580001.101,"27,7",8) +B +"FRV1K",1130580001.101,"27,7",8,1) +MU STK-4 DENOM RS +"FRV1K",1130580001.101,"28,7",7) +B +"FRV1K",1130580001.101,"28,7",7,1) +MU STK-5 NUMER RS +"FRV1K",1130580001.101,"28,7",8) +B +"FRV1K",1130580001.101,"28,7",8,1) +MU STK-5 DENOM RS +"FRV1K",1130580001.101,"29,7",7) +B +"FRV1K",1130580001.101,"29,7",7,1) +MU STK-6 NUMER RS +"FRV1K",1130580001.101,"29,7",8) +B +"FRV1K",1130580001.101,"29,7",8,1) +MU STK-6 DENOM RS +"FRV1K",1130580001.101,"30,7",7) +B +"FRV1K",1130580001.101,"30,7",7,1) +MU STK-8 NUMER RS +"FRV1K",1130580001.101,"30,7",8) +B +"FRV1K",1130580001.101,"30,7",8,1) +MU STK-8 DENOM RS +"FRV1K",1130580001.101,"31,7",7) +B +"FRV1K",1130580001.101,"31,7",7,1) +MU STK-10 NUMER RS +"FRV1K",1130580001.101,"31,7",8) +B +"FRV1K",1130580001.101,"31,7",8,1) +MU STK-10 DENOM RS +"FRV1K",1130580001.101,"32,7",7) +B +"FRV1K",1130580001.101,"32,7",7,1) +MU VTE-1 NUMER RS +"FRV1K",1130580001.101,"32,7",8) +B +"FRV1K",1130580001.101,"32,7",8,1) +MU VTE-1 DENOM RS +"FRV1K",1130580001.101,"33,7",7) +B +"FRV1K",1130580001.101,"33,7",7,1) +MU VTE-2 NUMER RS +"FRV1K",1130580001.101,"33,7",8) +B +"FRV1K",1130580001.101,"33,7",8,1) +MU VTE-2 DENOM RS +"FRV1K",1130580001.101,"34,7",7) +B +"FRV1K",1130580001.101,"34,7",7,1) +MU VTE-3 NUMER RS +"FRV1K",1130580001.101,"34,7",8) +B +"FRV1K",1130580001.101,"34,7",8,1) +MU VTE-3 DENOM RS +"FRV1K",1130580001.101,"35,7",7) +B +"FRV1K",1130580001.101,"35,7",7,1) +MU VTE-4 NUMER RS +"FRV1K",1130580001.101,"35,7",8) +B +"FRV1K",1130580001.101,"35,7",8,1) +MU VTE-4 DENOM RS +"FRV1K",1130580001.101,"36,7",7) +B +"FRV1K",1130580001.101,"36,7",7,1) +MU VTE-5 NUMER RS +"FRV1K",1130580001.101,"36,7",8) +B +"FRV1K",1130580001.101,"36,7",8,1) +MU VTE-5 DENOM RS +"FRV1K",1130580001.101,"37,7",7) +B +"FRV1K",1130580001.101,"37,7",7,1) +MU VTE-6 NUMER RS +"FRV1K",1130580001.101,"37,7",8) +B +"FRV1K",1130580001.101,"37,7",8,1) +MU VTE-6 DENOM RS +"FRV1K",1130580001.101,"39,7",7) +B +"FRV1K",1130580001.101,"39,7",7,1) +MU NQF0421 BMI NUM ALL RS +"FRV1K",1130580001.101,"39,7",8) +B +"FRV1K",1130580001.101,"39,7",8,1) +MU NQF0421 BMI DENOM ALL RS +"FRV1K",1130580001.101,"39,7",9) +B +"FRV1K",1130580001.101,"39,7",9,1) +MU NQF0421 ADULT BMI +"FRV1K",1130580001.101,"40,7",7) +B +"FRV1K",1130580001.101,"40,7",7,1) +MU NQF0013 HTN NUMER2 RS +"FRV1K",1130580001.101,"40,7",8) +B +"FRV1K",1130580001.101,"40,7",8,1) +MU NQF0013 HTN DENOM2 RS +"FRV1K",1130580001.101,"41,7",7) +B +"FRV1K",1130580001.101,"41,7",7,1) +MU NQF0028A TOBACCO SCREEN NUM RS +"FRV1K",1130580001.101,"41,7",8) +B +"FRV1K",1130580001.101,"41,7",8,1) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1K",1130580001.101,"42,7",7) +B +"FRV1K",1130580001.101,"42,7",7,1) +MU NQF0041 FLU RS +"FRV1K",1130580001.101,"42,7",8) +B +"FRV1K",1130580001.101,"42,7",8,1) +MU NQF0041 FLU DENOM RS +"FRV1K",1130580001.101,"43,7",7) +B +"FRV1K",1130580001.101,"43,7",7,1) +MU NQF0024 BMI 2-17YR NUM RS +"FRV1K",1130580001.101,"43,7",8) +B +"FRV1K",1130580001.101,"43,7",8,1) +MU NQF0024 BMI 2-17YRS DEM RS +"FRV1K",1130580001.101,"45,7",7) +B +"FRV1K",1130580001.101,"45,7",7,1) +MU NQF0059 HBA1C NUM RS +"FRV1K",1130580001.101,"45,7",8) +B +"FRV1K",1130580001.101,"45,7",8,1) +MU NQF0059 DM DENOM-ALL RS +"FRV1K",1130580001.101,"46,7",7) +B +"FRV1K",1130580001.101,"46,7",7,1) +MU NQF0064 NUM LDL RS +"FRV1K",1130580001.101,"46,7",8) +B +"FRV1K",1130580001.101,"46,7",8,1) +MU NQF0059 DM DENOM-ALL RS +"FRV1K",1130580001.101,"47,7",7) +B +"FRV1K",1130580001.101,"47,7",7,1) +MU NQF0061 NUM DM BP<140/90 RS +"FRV1K",1130580001.101,"47,7",8) +B +"FRV1K",1130580001.101,"47,7",8,1) +MU NQF0059 DM DENOM-ALL RS +"FRV1K",1130580001.101,"81,7",7) +B +"FRV1K",1130580001.101,"81,7",7,1) +MU NQF0028B TOBACCO INTERV NUM2 RS +"FRV1K",1130580001.101,"81,7",8) +B +"FRV1K",1130580001.101,"81,7",8,1) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1K",1130580001.101,"82,7",7) +B +"FRV1K",1130580001.101,"82,7",7,1) +MU NQF0024 BMI PERCENTILE 2-10Y RS +"FRV1K",1130580001.101,"82,7",8) +B +"FRV1K",1130580001.101,"82,7",8,1) +MU NQF0024 BMI 2-10Y DENOM RS +"FRV1K",1130580001.101,"83,7",7) +B +"FRV1K",1130580001.101,"83,7",7,1) +MU NQF0038 NUM1 DPT RS +"FRV1K",1130580001.101,"83,7",8) +B +"FRV1K",1130580001.101,"83,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"83,7",9) +B +"FRV1K",1130580001.101,"83,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"84,7",7) +B +"FRV1K",1130580001.101,"84,7",7,1) +MU NQF0038 NUM2 IPV RS +"FRV1K",1130580001.101,"84,7",8) +B +"FRV1K",1130580001.101,"84,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"84,7",9) +B +"FRV1K",1130580001.101,"84,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"85,7",7) +B +"FRV1K",1130580001.101,"85,7",7,1) +MU NQF0038 NUM3-ALL RS +"FRV1K",1130580001.101,"85,7",8) +B +"FRV1K",1130580001.101,"85,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"85,7",9) +B +"FRV1K",1130580001.101,"85,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"86,7",7) +B +"FRV1K",1130580001.101,"86,7",7,1) +MU NQF0038 NUM4 HIB RS +"FRV1K",1130580001.101,"86,7",8) +B +"FRV1K",1130580001.101,"86,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"86,7",9) +B +"FRV1K",1130580001.101,"86,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"87,7",7) +B +"FRV1K",1130580001.101,"87,7",7,1) +MU NQF0038 NUM5 RS +"FRV1K",1130580001.101,"87,7",8) +B +"FRV1K",1130580001.101,"87,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"87,7",9) +B +"FRV1K",1130580001.101,"87,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"88,7",7) +B +"FRV1K",1130580001.101,"88,7",7,1) +MU NQF0038 NUM6 VZV RS +"FRV1K",1130580001.101,"88,7",8) +B +"FRV1K",1130580001.101,"88,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"88,7",9) +B +"FRV1K",1130580001.101,"88,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"89,7",7) +B +"FRV1K",1130580001.101,"89,7",7,1) +MU NQF0038 NUM7 PCV RS +"FRV1K",1130580001.101,"89,7",8) +B +"FRV1K",1130580001.101,"89,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"89,7",9) +B +"FRV1K",1130580001.101,"89,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"90,7",7) +B +"FRV1K",1130580001.101,"90,7",7,1) +MU NQF0038 NUM8 HEP A RS +"FRV1K",1130580001.101,"90,7",8) +B +"FRV1K",1130580001.101,"90,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"90,7",9) +B +"FRV1K",1130580001.101,"90,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"91,7",7) +B +"FRV1K",1130580001.101,"91,7",7,1) +MU NQF0038 NUM9 RV RS +"FRV1K",1130580001.101,"91,7",8) +B +"FRV1K",1130580001.101,"91,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"91,7",9) +B +"FRV1K",1130580001.101,"91,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"92,7",7) +B +"FRV1K",1130580001.101,"92,7",7,1) +MU NQF0038 NUM10 INFLUENZA RS +"FRV1K",1130580001.101,"92,7",8) +B +"FRV1K",1130580001.101,"92,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"92,7",9) +B +"FRV1K",1130580001.101,"92,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"93,7",7) +B +"FRV1K",1130580001.101,"93,7",7,1) +MU NQF0038 NUM11 COMBO5 RS +"FRV1K",1130580001.101,"93,7",8) +B +"FRV1K",1130580001.101,"93,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"93,7",9) +B +"FRV1K",1130580001.101,"93,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"94,7",7) +B +"FRV1K",1130580001.101,"94,7",7,1) +MU NQF0038 NUM12 COMBO6 RS +"FRV1K",1130580001.101,"94,7",8) +B +"FRV1K",1130580001.101,"94,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"94,7",9) +B +"FRV1K",1130580001.101,"94,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^562 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"MBREQ") +0 +"PGL",1130580001.101,0,2,1) +NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q +"PGL",1130580001.101,0,3,2) +DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q +"PGL",1130580001.101,7,2,1.1) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"PGL",1130580001.101,7,3,2.1) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"PGL",1130580001.101,7,4,1.5) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"PGL",1130580001.101,7,5,1.51) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"PGL",1130580001.101,7,7,1.2) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,8,2.2) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,9,2.5) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"PKG",215,-1) +1^1 +"PKG",215,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",215,20,0) +^9.402P^^ +"PKG",215,22,0) +^9.49I^1^1 +"PKG",215,22,1,0) +1.0^3120731^3120806^8 +"PKG",215,22,1,"PAH",1,0) +3^3120806^8 +"PKG",215,22,1,"PAH",1,1,0) +^^155^155^3120806 +"PKG",215,22,1,"PAH",1,1,1,0) + Summary +"PKG",215,22,1,"PAH",1,1,2,0) + ======= +"PKG",215,22,1,"PAH",1,1,3,0) + This build contains the Quality Measures file (#1130580001.101) fully +"PKG",215,22,1,"PAH",1,1,4,0) + populated with the Reminder Rule Sets and if applicable Reminder Extract +"PKG",215,22,1,"PAH",1,1,5,0) + definitions for use with the Quality Measures package for reporting for +"PKG",215,22,1,"PAH",1,1,6,0) + Meaningful use Stage I. +"PKG",215,22,1,"PAH",1,1,7,0) + +"PKG",215,22,1,"PAH",1,1,8,0) + Source, Copyright, & Licensing: +"PKG",215,22,1,"PAH",1,1,9,0) + =============================== +"PKG",215,22,1,"PAH",1,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"PKG",215,22,1,"PAH",1,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"PKG",215,22,1,"PAH",1,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"PKG",215,22,1,"PAH",1,1,13,0) + Copyright WorldVistA 2012. +"PKG",215,22,1,"PAH",1,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"PKG",215,22,1,"PAH",1,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"PKG",215,22,1,"PAH",1,1,16,0) + Released through VISTA Forum. +"PKG",215,22,1,"PAH",1,1,17,0) + +"PKG",215,22,1,"PAH",1,1,18,0) + Functionality: +"PKG",215,22,1,"PAH",1,1,19,0) + ============== +"PKG",215,22,1,"PAH",1,1,20,0) + This patch is a pure data patch. It only installs reference data in the +"PKG",215,22,1,"PAH",1,1,21,0) +C0Q QUALITY MEASURE file (#1130580001.101). It relies on Reminder Package +"PKG",215,22,1,"PAH",1,1,22,0) +data (specifically rule sets and extracts) sent in C0Q*1.0*2. +"PKG",215,22,1,"PAH",1,1,23,0) + +"PKG",215,22,1,"PAH",1,1,24,0) + Package Elements: +"PKG",215,22,1,"PAH",1,1,25,0) + ================= +"PKG",215,22,1,"PAH",1,1,26,0) + This build transports entries in the C0Q QUALITY MEASURE file. +"PKG",215,22,1,"PAH",1,1,27,0) + +"PKG",215,22,1,"PAH",1,1,28,0) + Routines: +"PKG",215,22,1,"PAH",1,1,29,0) + ========= +"PKG",215,22,1,"PAH",1,1,30,0) + +"PKG",215,22,1,"PAH",1,1,31,0) + +"PKG",215,22,1,"PAH",1,1,32,0) + Documentation: +"PKG",215,22,1,"PAH",1,1,33,0) + +"PKG",215,22,1,"PAH",1,1,34,0) + +"PKG",215,22,1,"PAH",1,1,35,0) + Test Sites: +"PKG",215,22,1,"PAH",1,1,36,0) + =========== +"PKG",215,22,1,"PAH",1,1,37,0) + +"PKG",215,22,1,"PAH",1,1,38,0) + +"PKG",215,22,1,"PAH",1,1,39,0) + Compliance: +"PKG",215,22,1,"PAH",1,1,40,0) + =========== +"PKG",215,22,1,"PAH",1,1,41,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",215,22,1,"PAH",1,1,42,0) + Conventions (version 3 April 2007). +"PKG",215,22,1,"PAH",1,1,43,0) + +"PKG",215,22,1,"PAH",1,1,44,0) + Installation Instructions: +"PKG",215,22,1,"PAH",1,1,45,0) + ========================== +"PKG",215,22,1,"PAH",1,1,46,0) + Pre-installation: +"PKG",215,22,1,"PAH",1,1,47,0) + +"PKG",215,22,1,"PAH",1,1,48,0) + Prerequisite patches: (both found on the trac server here: +"PKG",215,22,1,"PAH",1,1,49,0) + https://trac.opensourcevista.net/svn/qrda/C0Q/trunk/kids/) +"PKG",215,22,1,"PAH",1,1,50,0) + C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,51,0) + QUALITY MEASURES 1.0 +"PKG",215,22,1,"PAH",1,1,52,0) + +"PKG",215,22,1,"PAH",1,1,53,0) + Users can remain on the system while this patch is installed. +"PKG",215,22,1,"PAH",1,1,54,0) + +"PKG",215,22,1,"PAH",1,1,55,0) + Install Time - less than 1 minute. +"PKG",215,22,1,"PAH",1,1,56,0) + +"PKG",215,22,1,"PAH",1,1,57,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",215,22,1,"PAH",1,1,58,0) + +"PKG",215,22,1,"PAH",1,1,59,0) + Choose the PackMan message containing this patch and invoke the +"PKG",215,22,1,"PAH",1,1,60,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"PKG",215,22,1,"PAH",1,1,61,0) + Use the Load a Distribution option in KIDS to load it from a +"PKG",215,22,1,"PAH",1,1,62,0) + host file. +"PKG",215,22,1,"PAH",1,1,63,0) + +"PKG",215,22,1,"PAH",1,1,64,0) + 2. START UP KIDS +"PKG",215,22,1,"PAH",1,1,65,0) + +"PKG",215,22,1,"PAH",1,1,66,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",215,22,1,"PAH",1,1,67,0) + [XPD MAIN]: +"PKG",215,22,1,"PAH",1,1,68,0) + +"PKG",215,22,1,"PAH",1,1,69,0) + Edits and Distribution ... +"PKG",215,22,1,"PAH",1,1,70,0) + Utilities ... +"PKG",215,22,1,"PAH",1,1,71,0) + Installation ... +"PKG",215,22,1,"PAH",1,1,72,0) + +"PKG",215,22,1,"PAH",1,1,73,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",215,22,1,"PAH",1,1,74,0) + --- +"PKG",215,22,1,"PAH",1,1,75,0) + Load a Distribution +"PKG",215,22,1,"PAH",1,1,76,0) + Print Transport Global +"PKG",215,22,1,"PAH",1,1,77,0) + Compare Transport Global to Current System +"PKG",215,22,1,"PAH",1,1,78,0) + Verify Checksums in Transport Global +"PKG",215,22,1,"PAH",1,1,79,0) + Install Package(s) +"PKG",215,22,1,"PAH",1,1,80,0) + Restart Install of Package(s) +"PKG",215,22,1,"PAH",1,1,81,0) + Unload a Distribution +"PKG",215,22,1,"PAH",1,1,82,0) + Backup a Transport Global +"PKG",215,22,1,"PAH",1,1,83,0) + +"PKG",215,22,1,"PAH",1,1,84,0) + Select Installation Option: +"PKG",215,22,1,"PAH",1,1,85,0) + +"PKG",215,22,1,"PAH",1,1,86,0) + 3. Select Installation Option: +"PKG",215,22,1,"PAH",1,1,87,0) + +"PKG",215,22,1,"PAH",1,1,88,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",215,22,1,"PAH",1,1,89,0) + NAME, enter C0Q*1.0*3): +"PKG",215,22,1,"PAH",1,1,90,0) + +"PKG",215,22,1,"PAH",1,1,91,0) + a. Backup a Transport Global - This option will create a backup +"PKG",215,22,1,"PAH",1,1,92,0) + message of any routines exported with this patch. It will not +"PKG",215,22,1,"PAH",1,1,93,0) + backup any other changes such as DD's or templates. +"PKG",215,22,1,"PAH",1,1,94,0) + b. Compare Transport Global to Current System - This option will +"PKG",215,22,1,"PAH",1,1,95,0) + allow you to view all changes that will be made when this patch +"PKG",215,22,1,"PAH",1,1,96,0) + is installed. It compares all components of this patch +"PKG",215,22,1,"PAH",1,1,97,0) + (routines, DD's, templates, etc.). +"PKG",215,22,1,"PAH",1,1,98,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",215,22,1,"PAH",1,1,99,0) + you to ensure the integrity of the routines that are in the +"PKG",215,22,1,"PAH",1,1,100,0) + transport global. +"PKG",215,22,1,"PAH",1,1,101,0) + +"PKG",215,22,1,"PAH",1,1,102,0) + 4. Select Installation Option: Install Package(s) +"PKG",215,22,1,"PAH",1,1,103,0) + +"PKG",215,22,1,"PAH",1,1,104,0) + **This is the step to start the installation of this KIDS patch: +"PKG",215,22,1,"PAH",1,1,105,0) + +"PKG",215,22,1,"PAH",1,1,106,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",215,22,1,"PAH",1,1,107,0) + and enter "C0Q*1.0*3" at the INSTALL NAME prompt. +"PKG",215,22,1,"PAH",1,1,108,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",215,22,1,"PAH",1,1,109,0) + Install? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,110,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",215,22,1,"PAH",1,1,111,0) + NO//' answer NO +"PKG",215,22,1,"PAH",1,1,112,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",215,22,1,"PAH",1,1,113,0) + and Protocols? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,114,0) + +"PKG",215,22,1,"PAH",1,1,115,0) + +"PKG",215,22,1,"PAH",1,1,116,0) +Here is an example installation log. +"PKG",215,22,1,"PAH",1,1,117,0) +Select INSTALL NAME: C0Q*1.0*3 Loaded from Distribution Loaded +"PKG",215,22,1,"PAH",1,1,118,0) +from Di +"PKG",215,22,1,"PAH",1,1,119,0) +stribution 8/3/12@16:32:30 +"PKG",215,22,1,"PAH",1,1,120,0) + => SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"PKG",215,22,1,"PAH",1,1,121,0) + +"PKG",215,22,1,"PAH",1,1,122,0) +This Distribution was loaded on Aug 03, 2012@16:32:30 with header of +"PKG",215,22,1,"PAH",1,1,123,0) + SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"PKG",215,22,1,"PAH",1,1,124,0) + It consisted of the following Install(s): +"PKG",215,22,1,"PAH",1,1,125,0) + C0Q*1.0*3 +"PKG",215,22,1,"PAH",1,1,126,0) + +"PKG",215,22,1,"PAH",1,1,127,0) + Checking C0Q*1.0*3 for overlap with VOE 1.0 . OK +"PKG",215,22,1,"PAH",1,1,128,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,129,0) +DEVICE: HOME// PHOME HOME PRINTER +"PKG",215,22,1,"PAH",1,1,130,0) + +"PKG",215,22,1,"PAH",1,1,131,0) + +"PKG",215,22,1,"PAH",1,1,132,0) + Install Started for C0Q*1.0*3 : +"PKG",215,22,1,"PAH",1,1,133,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,134,0) + +"PKG",215,22,1,"PAH",1,1,135,0) +Build Distribution Date: Aug 03, 2012 +"PKG",215,22,1,"PAH",1,1,136,0) + +"PKG",215,22,1,"PAH",1,1,137,0) + Installing Routines:. +"PKG",215,22,1,"PAH",1,1,138,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,139,0) + +"PKG",215,22,1,"PAH",1,1,140,0) + Installing Data Dictionaries: .. +"PKG",215,22,1,"PAH",1,1,141,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,142,0) + +"PKG",215,22,1,"PAH",1,1,143,0) + Installing Data: +"PKG",215,22,1,"PAH",1,1,144,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,145,0) + +"PKG",215,22,1,"PAH",1,1,146,0) + Updating Routine file..... +"PKG",215,22,1,"PAH",1,1,147,0) + +"PKG",215,22,1,"PAH",1,1,148,0) + Updating KIDS files....... +"PKG",215,22,1,"PAH",1,1,149,0) + +"PKG",215,22,1,"PAH",1,1,150,0) + C0Q*1.0*3 Installed. +"PKG",215,22,1,"PAH",1,1,151,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,152,0) + +"PKG",215,22,1,"PAH",1,1,153,0) + Not a VA primary domain +"PKG",215,22,1,"PAH",1,1,154,0) + +"PKG",215,22,1,"PAH",1,1,155,0) + NO Install Message sent +"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 +"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") +@ +"VER") +8.0^22.0 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^18 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +**END** +**END** diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-002_PAT-003.TXT b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-002_PAT-003.TXT new file mode 100644 index 0000000..379f9f8 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-002_PAT-003.TXT @@ -0,0 +1,201 @@ +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + + Summary + ======= + This build contains the Quality Measures file (#1130580001.101) fully + populated with the Reminder Rule Sets and if applicable Reminder Extract + definitions for use with the Quality Measures package for reporting for + Meaningful use Stage I. + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +patches 12 and 17. The build was produced in July 2012. + Copyright WorldVistA 2012. + Licensed under GPL version 2 or later. Find it here: +http://www.gnu.org/licenses/gpl-2.0.html + Released through VISTA Forum. + + Functionality: + ============== + This patch is a pure data patch. It only installs reference data in the C0Q + QUALITY MEASURE file (#1130580001.101). It relies on Reminder Package data + (specifically rule sets and extracts) sent in C0Q*1.0*2. + + Package Elements: + ================= + This build transports entries in the C0Q QUALITY MEASURE file. + + Routines: + ========= + + + Documentation: + + + Test Sites: + =========== + + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007). + + Installation Instructions: + ========================== + Pre-installation: + + Prerequisite patches: (both found on the trac server here: + https://trac.opensourcevista.net/svn/qrda/C0Q/trunk/kids/) + C0Q*1.0*2 + QUALITY MEASURES 1.0 + + Users can remain on the system while this patch is installed. + + Install Time - less than 1 minute. + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build, or + Use the Load a Distribution option in KIDS to load it from a + host file. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*3): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*3" at the INSTALL NAME prompt. + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + +Here is an example installation log. +Select INSTALL NAME: C0Q*1.0*3 Loaded from Distribution Loaded from Di +stribution 8/3/12@16:32:30 + => SDFGHJKL ;Created on Aug 03, 2012@16:31:28 + +This Distribution was loaded on Aug 03, 2012@16:32:30 with header of + SDFGHJKL ;Created on Aug 03, 2012@16:31:28 + It consisted of the following Install(s): + C0Q*1.0*3 + + Checking C0Q*1.0*3 for overlap with VOE 1.0 . OK + No overlap found + + + Checking C0Q*1.0*3 for overlap with VOE 1.1 . OK + No overlap found + + + Checking C0Q*1.0*3 for overlap with NO HOME 1.0 . OK + No overlap found + +Checking Install for Package C0Q*1.0*3 + +Install Questions for C0Q*1.0*3 + +Incoming Files: + + + 1130580001.101C0Q QUALITY MEASURE (including data) +Note: You already have the 'C0Q QUALITY MEASURE' File. +I will OVERWRITE your data with mine. + + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// PHOME HOME PRINTER + + + Install Started for C0Q*1.0*3 : + Aug 03, 2012@16:35:24 + +Build Distribution Date: Aug 03, 2012 + + Installing Routines:. + Aug 03, 2012@16:35:24 + + Installing Data Dictionaries: .. + Aug 03, 2012@16:35:24 + + Installing Data: + Aug 03, 2012@16:35:24 + + Updating Routine file..... + + Updating KIDS files....... + + C0Q*1.0*3 Installed. + Aug 03, 2012@16:35:24 + + Not a VA primary domain + + NO Install Message sent + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +PRE-TRANSPORT RTN: + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO + +REQUIRED BUILDS: ACTION: + C0Q*1.0*2 Don't install, leave global + QUALITY MEASURES 1.0 Don't install, leave global diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-003_PAT-004.KID b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-003_PAT-004.KID new file mode 100644 index 0000000..bed019e --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-003_PAT-004.KID @@ -0,0 +1,3180 @@ +KIDS Distribution saved on Aug 24, 2012@13:01:24 +INPATIENT CMS QRDA GENERATION SUPPORT +**KIDS**:C0Q*1.0*4^ + +**INSTALL NAME** +C0Q*1.0*4 +"BLD",7936,0) +C0Q*1.0*4^QUALITY MEASURES^0^3120824^y +"BLD",7936,1,0) +^^250^250^3120824^ +"BLD",7936,1,1,0) + Source, Copyright, & Licensing: +"BLD",7936,1,2,0) + =============================== +"BLD",7936,1,3,0) + This patch to WorldVistA 2.0 was produced in Dew Drop +"BLD",7936,1,4,0) + by George Lily on 24 August 2012 and released through VISTA Forum. +"BLD",7936,1,5,0) + +"BLD",7936,1,6,0) + (C) 2012 George Lilly +"BLD",7936,1,7,0) + Licensed under GPL 2. +"BLD",7936,1,8,0) + +"BLD",7936,1,9,0) + Functionality: +"BLD",7936,1,10,0) + ============== +"BLD",7936,1,11,0) + This patch adds the ability to generate modified CCRs +"BLD",7936,1,12,0) + containing a QUALITY measure section that looks like +"BLD",7936,1,13,0) + this: +"BLD",7936,1,14,0) + +"BLD",7936,1,15,0) + +"BLD",7936,1,16,0) + 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"BLD",7936,1,17,0) + +"BLD",7936,1,18,0) + 1.3.6.1.4.1.33895.1.2.16001.1.2.2 +"BLD",7936,1,19,0) + 1.3.6.1.4.1.33895.1.2.16002.1.2.2 +"BLD",7936,1,20,0) + 1.3.6.1.4.1.33895.1.2.16004.1.2.2 +"BLD",7936,1,21,0) + 1.3.6.1.4.1.33895.1.2.16008.1.2.2 +"BLD",7936,1,22,0) + +"BLD",7936,1,23,0) + +"BLD",7936,1,24,0) + +"BLD",7936,1,25,0) + +"BLD",7936,1,26,0) + This enables you to create a QRDA document in the C32 format to submit to CMS +"BLD",7936,1,27,0) + containing these measures. The C32 document will be generated by an XSLT +"BLD",7936,1,28,0) + transform from the CCR document. +"BLD",7936,1,29,0) + +"BLD",7936,1,30,0) + The driving force behind the creation of this patch, as well as the +"BLD",7936,1,31,0) + documentation of the actual QRDA documents to send to CMS can be found here: +"BLD",7936,1,32,0) + http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 +"BLD",7936,1,33,0) + +"BLD",7936,1,34,0) + Specifically, this sentence: +"BLD",7936,1,35,0) + "One part of meeting the requirements for Stage I Meaningful Use may include +"BLD",7936,1,36,0) + submitting Clinical Quality Measures (CQMs) electronically using the QRDA +"BLD",7936,1,37,0) + Category I file format." +"BLD",7936,1,38,0) + +"BLD",7936,1,39,0) + Package Elements: +"BLD",7936,1,40,0) + ================= +"BLD",7936,1,41,0) +PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 +"BLD",7936,1,42,0) +------------------------------------------------------------------------------- +"BLD",7936,1,43,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"BLD",7936,1,44,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"BLD",7936,1,45,0) + +"BLD",7936,1,46,0) +DESCRIPTION: +"BLD",7936,1,47,0) +QRDA Support. +"BLD",7936,1,48,0) + +"BLD",7936,1,49,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"BLD",7936,1,50,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"BLD",7936,1,51,0) +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +"BLD",7936,1,52,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P4 +"BLD",7936,1,53,0) + +"BLD",7936,1,54,0) + UP SEND DATA USER +"BLD",7936,1,55,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7936,1,56,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7936,1,57,0) +------------------------------------------------------------------------------- +"BLD",7936,1,58,0) + +"BLD",7936,1,59,0) +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO +"BLD",7936,1,60,0) + +"BLD",7936,1,61,0) +1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO +"BLD",7936,1,62,0) + +"BLD",7936,1,63,0) +1130580001.401C0Q PARAMETER YES YES NO NO +"BLD",7936,1,64,0) +Partial DD: subDD: 1130580001.401fld: 5.1 +"BLD",7936,1,65,0) + fld: 5.2 +"BLD",7936,1,66,0) + fld: 5.3 +"BLD",7936,1,67,0) + +"BLD",7936,1,68,0) +INPUT TEMPLATE: ACTION: +"BLD",7936,1,69,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE +"BLD",7936,1,70,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE +"BLD",7936,1,71,0) + +"BLD",7936,1,72,0) +ROUTINE: ACTION: +"BLD",7936,1,73,0) + C0QQRDA SEND TO SITE +"BLD",7936,1,74,0) + +"BLD",7936,1,75,0) +OPTION: ACTION: +"BLD",7936,1,76,0) + C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE +"BLD",7936,1,77,0) + C0Q QRDA MENU SEND TO SITE +"BLD",7936,1,78,0) + C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS +"BLD",7936,1,79,0) + +"BLD",7936,1,80,0) +INSTALL QUESTIONS: +"BLD",7936,1,81,0) + +"BLD",7936,1,82,0) + Default Rebuild Menu Trees Upon Completion of Install: YES +"BLD",7936,1,83,0) + Default INHIBIT LOGONs during the install: NO +"BLD",7936,1,84,0) + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO +"BLD",7936,1,85,0) + +"BLD",7936,1,86,0) +REQUIRED BUILDS: ACTION: +"BLD",7936,1,87,0) + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global +"BLD",7936,1,88,0) + QUALITY MEASURES 1.0 Don't install, leave global +"BLD",7936,1,89,0) + +"BLD",7936,1,90,0) + Summary of Changes to package: +"BLD",7936,1,91,0) + - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs +"BLD",7936,1,92,0) + for Inpatients, as follows: +"BLD",7936,1,93,0) + +"BLD",7936,1,94,0) +NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET +"BLD",7936,1,95,0) +---------------------------------------------------------------------------------- +"BLD",7936,1,96,0) + +"BLD",7936,1,97,0) +MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS +"BLD",7936,1,98,0) +MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS +"BLD",7936,1,99,0) + +"BLD",7936,1,100,0) +MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS +"BLD",7936,1,101,0) +MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS +"BLD",7936,1,102,0) +MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS +"BLD",7936,1,103,0) +MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS +"BLD",7936,1,104,0) +MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS +"BLD",7936,1,105,0) +MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS +"BLD",7936,1,106,0) +MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS +"BLD",7936,1,107,0) + +"BLD",7936,1,108,0) +MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS +"BLD",7936,1,109,0) +MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS +"BLD",7936,1,110,0) +MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS +"BLD",7936,1,111,0) +MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS +"BLD",7936,1,112,0) +MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS +"BLD",7936,1,113,0) +MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS +"BLD",7936,1,114,0) + +"BLD",7936,1,115,0) + - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET +"BLD",7936,1,116,0) + - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET +"BLD",7936,1,117,0) + - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: +"BLD",7936,1,118,0) +NAME: ED CMS REPORTING MEASURES +"BLD",7936,1,119,0) + QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 +"BLD",7936,1,120,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 +"BLD",7936,1,121,0) +MEASURE: MU HOS NQF 0495 +"BLD",7936,1,122,0) +MEASURE: MU HOS NQF 0497 +"BLD",7936,1,123,0) + MU YEAR KEY: MU12 +"BLD",7936,1,124,0) + +"BLD",7936,1,125,0) +NAME: STK CMS REPORTING MEASURES +"BLD",7936,1,126,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"BLD",7936,1,127,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"BLD",7936,1,128,0) +MEASURE: MU HOS NQF 0435 +"BLD",7936,1,129,0) +MEASURE: MU HOS NQF 0436 +"BLD",7936,1,130,0) +MEASURE: MU HOS NQF 0437 +"BLD",7936,1,131,0) +MEASURE: MU HOS NQF 0438 +"BLD",7936,1,132,0) +MEASURE: MU HOS NQF 0439 +"BLD",7936,1,133,0) +MEASURE: MU HOS NQF 0440 +"BLD",7936,1,134,0) +MEASURE: MU HOS NQF 0441 +"BLD",7936,1,135,0) + MU YEAR KEY: MU12 +"BLD",7936,1,136,0) + +"BLD",7936,1,137,0) +NAME: VTE CMS REPORTING MEASURES +"BLD",7936,1,138,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 +"BLD",7936,1,139,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"BLD",7936,1,140,0) +MEASURE: MU HOS NQF 0371 +"BLD",7936,1,141,0) +MEASURE: MU HOS NQF 0372 +"BLD",7936,1,142,0) +MEASURE: MU HOS NQF 0373 +"BLD",7936,1,143,0) +MEASURE: MU HOS NQF 0374 +"BLD",7936,1,144,0) +MEASURE: MU HOS NQF 0375 +"BLD",7936,1,145,0) +MEASURE: MU HOS NQF 0376 +"BLD",7936,1,146,0) + MU YEAR KEY: MU12 +"BLD",7936,1,147,0) + +"BLD",7936,1,148,0) + - Creation of supporting fields in the C0Q PARAMETER file to drive generation +"BLD",7936,1,149,0) + of the QRDA documents. +"BLD",7936,1,150,0) + - VTE CMS MEASUREMENT SET +"BLD",7936,1,151,0) + - STK CMS MEASUREMENT SET +"BLD",7936,1,152,0) + - ED CMS MEASUREMENT SET +"BLD",7936,1,153,0) + +"BLD",7936,1,154,0) + - Modification of existing input templates to support the new fields created. +"BLD",7936,1,155,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401 +"BLD",7936,1,156,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 +"BLD",7936,1,157,0) + +"BLD",7936,1,158,0) + - Routine C0QQRDA to drive the generation of the QRDA documents. +"BLD",7936,1,159,0) + +"BLD",7936,1,160,0) + - Menu option to call EN^C0QQRDA: +"BLD",7936,1,161,0) + -> C0Q QUALITY MEASUREMENT MENU +"BLD",7936,1,162,0) + Parent: C0Q QRDA MENU +"BLD",7936,1,163,0) + +"BLD",7936,1,164,0) + Routine Versioning: +"BLD",7936,1,165,0) + +"BLD",7936,1,166,0) + The second line of each of these routines now looks like: +"BLD",7936,1,167,0) + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 +"BLD",7936,1,168,0) + +"BLD",7936,1,169,0) + +"BLD",7936,1,170,0) + The following checksums can be checked with CHECK1^XTSUMBLD: +"BLD",7936,1,171,0) + +"BLD",7936,1,172,0) + Routine Before After Patch List +"BLD",7936,1,173,0) + ------- ----------- ------------ --------------------------------- +"BLD",7936,1,174,0) + C0QQRDA 89943644 **4** +"BLD",7936,1,175,0) + +"BLD",7936,1,176,0) + Documentation: +"BLD",7936,1,177,0) + ============== +"BLD",7936,1,178,0) + None at this moment. +"BLD",7936,1,179,0) + +"BLD",7936,1,180,0) + Test Sites: +"BLD",7936,1,181,0) + =========== +"BLD",7936,1,182,0) + None at this moment. +"BLD",7936,1,183,0) + +"BLD",7936,1,184,0) + Compliance: +"BLD",7936,1,185,0) + =========== +"BLD",7936,1,186,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7936,1,187,0) + Conventions (version 3 April 2007). +"BLD",7936,1,188,0) + +"BLD",7936,1,189,0) + Installation Instructions: +"BLD",7936,1,190,0) + ========================== +"BLD",7936,1,191,0) + Install Time - less than 1 minute +"BLD",7936,1,192,0) + +"BLD",7936,1,193,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7936,1,194,0) + +"BLD",7936,1,195,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7936,1,196,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"BLD",7936,1,197,0) + +"BLD",7936,1,198,0) + 2. START UP KIDS +"BLD",7936,1,199,0) + +"BLD",7936,1,200,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7936,1,201,0) + [XPD MAIN]: +"BLD",7936,1,202,0) + +"BLD",7936,1,203,0) + Edits and Distribution ... +"BLD",7936,1,204,0) + Utilities ... +"BLD",7936,1,205,0) + Installation ... +"BLD",7936,1,206,0) + +"BLD",7936,1,207,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7936,1,208,0) + --- +"BLD",7936,1,209,0) + Load a Distribution +"BLD",7936,1,210,0) + Print Transport Global +"BLD",7936,1,211,0) + Compare Transport Global to Current System +"BLD",7936,1,212,0) + Verify Checksums in Transport Global +"BLD",7936,1,213,0) + Install Package(s) +"BLD",7936,1,214,0) + Restart Install of Package(s) +"BLD",7936,1,215,0) + Unload a Distribution +"BLD",7936,1,216,0) + Backup a Transport Global +"BLD",7936,1,217,0) + +"BLD",7936,1,218,0) + Select Installation Option: +"BLD",7936,1,219,0) + +"BLD",7936,1,220,0) + 3. Select Installation Option: +"BLD",7936,1,221,0) + +"BLD",7936,1,222,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7936,1,223,0) + NAME, enter C0Q*1.0*4): +"BLD",7936,1,224,0) + +"BLD",7936,1,225,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7936,1,226,0) + message of any routines exported with this patch. It will not +"BLD",7936,1,227,0) + backup any other changes such as DD's or templates. +"BLD",7936,1,228,0) + b. Compare Transport Global to Current System - This option will +"BLD",7936,1,229,0) + allow you to view all changes that will be made when this patch +"BLD",7936,1,230,0) + is installed. It compares all components of this patch +"BLD",7936,1,231,0) + (routines, DD's, templates, etc.). +"BLD",7936,1,232,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7936,1,233,0) + you to ensure the integrity of the routines that are in the +"BLD",7936,1,234,0) + transport global. +"BLD",7936,1,235,0) + +"BLD",7936,1,236,0) + 4. Select Installation Option: Install Package(s) +"BLD",7936,1,237,0) + +"BLD",7936,1,238,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7936,1,239,0) + +"BLD",7936,1,240,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7936,1,241,0) + and enter "C0Q*1.0*4" at the INSTALL NAME prompt. +"BLD",7936,1,242,0) + b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' +"BLD",7936,1,243,0) + Answer YES. The file is just renamed, that's why KIDS asks you to +"BLD",7936,1,244,0) + overwrite it. +"BLD",7936,1,245,0) + c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7936,1,246,0) + Install? YES//' answer YES +"BLD",7936,1,247,0) + d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7936,1,248,0) + NO//' answer NO +"BLD",7936,1,249,0) + e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7936,1,250,0) + and Protocols? NO//' answer NO +"BLD",7936,4,0) +^9.64PA^1130580001.401^3 +"BLD",7936,4,1130580001.101,0) +1130580001.101 +"BLD",7936,4,1130580001.101,222) +y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n +"BLD",7936,4,1130580001.101,224) + +"BLD",7936,4,1130580001.201,0) +1130580001.201 +"BLD",7936,4,1130580001.201,222) +y^y^f^^y^C0Q 1P0*4 MS^y^o^n +"BLD",7936,4,1130580001.401,0) +1130580001.401 +"BLD",7936,4,1130580001.401,2,0) +^9.641^1130580001.401^1 +"BLD",7936,4,1130580001.401,2,1130580001.401,0) +C0Q PARAMETER (File-top level) +"BLD",7936,4,1130580001.401,2,1130580001.401,1,0) +^9.6411^5.3^3 +"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.1,0) +VTE CMS MEASUREMENT SET +"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.2,0) +STK CMS MEASUREMENT SET +"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.3,0) +ED CMS MEASUREMENT SET +"BLD",7936,4,1130580001.401,222) +y^y^p^^^^n^^n +"BLD",7936,4,1130580001.401,224) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.1) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.2) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.3) + +"BLD",7936,4,"B",1130580001.101,1130580001.101) + +"BLD",7936,4,"B",1130580001.201,1130580001.201) + +"BLD",7936,4,"B",1130580001.401,1130580001.401) + +"BLD",7936,6.3) +28 +"BLD",7936,"KRN",0) +^9.67PA^779.2^20 +"BLD",7936,"KRN",.4,0) +.4 +"BLD",7936,"KRN",.401,0) +.401 +"BLD",7936,"KRN",.402,0) +.402 +"BLD",7936,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7936,"KRN",.402,"NM",1,0) +C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7936,"KRN",.402,"NM",2,0) +C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0 +"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",1) + +"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",2) + +"BLD",7936,"KRN",.403,0) +.403 +"BLD",7936,"KRN",.5,0) +.5 +"BLD",7936,"KRN",.84,0) +.84 +"BLD",7936,"KRN",3.6,0) +3.6 +"BLD",7936,"KRN",3.8,0) +3.8 +"BLD",7936,"KRN",9.2,0) +9.2 +"BLD",7936,"KRN",9.8,0) +9.8 +"BLD",7936,"KRN",9.8,"NM",0) +^9.68A^1^1 +"BLD",7936,"KRN",9.8,"NM",1,0) +C0QQRDA^^0^B89943644 +"BLD",7936,"KRN",9.8,"NM","B","C0QQRDA",1) + +"BLD",7936,"KRN",19,0) +19 +"BLD",7936,"KRN",19,"NM",0) +^9.68A^3^3 +"BLD",7936,"KRN",19,"NM",1,0) +C0Q QRDA MENU^^0 +"BLD",7936,"KRN",19,"NM",2,0) +C0Q EXPORT INPATIENT QRDA CCRS^^0 +"BLD",7936,"KRN",19,"NM",3,0) +C0Q QUALITY MEASUREMENT MENU^^2 +"BLD",7936,"KRN",19,"NM","B","C0Q EXPORT INPATIENT QRDA CCRS",2) + +"BLD",7936,"KRN",19,"NM","B","C0Q QRDA MENU",1) + +"BLD",7936,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",3) + +"BLD",7936,"KRN",19.1,0) +19.1 +"BLD",7936,"KRN",101,0) +101 +"BLD",7936,"KRN",409.61,0) +409.61 +"BLD",7936,"KRN",771,0) +771 +"BLD",7936,"KRN",779.2,0) +779.2 +"BLD",7936,"KRN",870,0) +870 +"BLD",7936,"KRN",8989.51,0) +8989.51 +"BLD",7936,"KRN",8989.52,0) +8989.52 +"BLD",7936,"KRN",8994,0) +8994 +"BLD",7936,"KRN","B",.4,.4) + +"BLD",7936,"KRN","B",.401,.401) + +"BLD",7936,"KRN","B",.402,.402) + +"BLD",7936,"KRN","B",.403,.403) + +"BLD",7936,"KRN","B",.5,.5) + +"BLD",7936,"KRN","B",.84,.84) + +"BLD",7936,"KRN","B",3.6,3.6) + +"BLD",7936,"KRN","B",3.8,3.8) + +"BLD",7936,"KRN","B",9.2,9.2) + +"BLD",7936,"KRN","B",9.8,9.8) + +"BLD",7936,"KRN","B",19,19) + +"BLD",7936,"KRN","B",19.1,19.1) + +"BLD",7936,"KRN","B",101,101) + +"BLD",7936,"KRN","B",409.61,409.61) + +"BLD",7936,"KRN","B",771,771) + +"BLD",7936,"KRN","B",779.2,779.2) + +"BLD",7936,"KRN","B",870,870) + +"BLD",7936,"KRN","B",8989.51,8989.51) + +"BLD",7936,"KRN","B",8989.52,8989.52) + +"BLD",7936,"KRN","B",8994,8994) + +"BLD",7936,"PRET") +TRAN^C0Q1P4 +"BLD",7936,"QDEF") +^^^^NO^^^^YES^^NO +"BLD",7936,"QUES",0) +^9.62^^ +"BLD",7936,"REQB",0) +^9.611^2^2 +"BLD",7936,"REQB",1,0) +CCD/CCR GENERATION UTILITIES 1.2^2 +"BLD",7936,"REQB",2,0) +QUALITY MEASURES 1.0^2 +"BLD",7936,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1) + +"BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2) + +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^^^2.16.840.1.113883.3.249.11.14.2.1.2.2 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495^^^^^^88^165 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^^^2.16.840.1.113883.3.249.11.14.3.1.2.2 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497^^^^^^90^168 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^^^1.3.6.1.4.1.33895.1.2.16001.1.2.2 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435^^^^^^114^115 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^^^1.3.6.1.4.1.33895.1.2.16002.1.2.2 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436^^^^^^116^117 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^^^1.3.6.1.4.1.33895.1.2.16003.1.2.2 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437^^^^^^119^118 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^^^1.3.6.1.4.1.33895.1.2.16004.1.2.2 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438^^^^^^120^121 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^^^1.3.6.1.4.1.33895.1.2.16005.1.2.2 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439^^^^^^122^123 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^^^1.3.6.1.4.1.33895.1.2.16007.1.2.2 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440^^^^^^124^125 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^^^1.3.6.1.4.1.33895.1.2.16008.1.2.2 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441^^^^^^126^127 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^^^1.3.6.1.4.1.33895.1.2.15971.1.2.2 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371^^^^^^69^67 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^^^1.3.6.1.4.1.33895.1.2.15972.1.2.2 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372^^^^^^128^71 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^^^1.3.6.1.4.1.33895.1.2.15973.1.2.2 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373^^^^^^129^144 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^^^1.3.6.1.4.1.33895.1.2.15974.1.2.2 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374^^^^^^145^146 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^^^1.3.6.1.4.1.33895.1.2.15975.1.2.2 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375^^^^^^147^156 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^^^1.3.6.1.4.1.33895.1.2.15976.1.2.2 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376^^^^^^158^162 +"DATA",1130580001.201,10,0) +VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1 +"DATA",1130580001.201,10,4) +^^3120101^3121231 +"DATA",1130580001.201,10,5,0) +^1130580001.2011P^6^6 +"DATA",1130580001.201,10,5,1,0) +32 +"DATA",1130580001.201,10,5,2,0) +33 +"DATA",1130580001.201,10,5,3,0) +34 +"DATA",1130580001.201,10,5,4,0) +35 +"DATA",1130580001.201,10,5,5,0) +36 +"DATA",1130580001.201,10,5,6,0) +37 +"DATA",1130580001.201,10,6) +^ +"DATA",1130580001.201,10,7) +MU12 +"DATA",1130580001.201,11,0) +STK CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.31.1.2.1 +"DATA",1130580001.201,11,4) +^^3120101^3121231 +"DATA",1130580001.201,11,5,0) +^1130580001.2011P^7^7 +"DATA",1130580001.201,11,5,1,0) +25 +"DATA",1130580001.201,11,5,2,0) +26 +"DATA",1130580001.201,11,5,3,0) +27 +"DATA",1130580001.201,11,5,4,0) +28 +"DATA",1130580001.201,11,5,5,0) +29 +"DATA",1130580001.201,11,5,6,0) +30 +"DATA",1130580001.201,11,5,7,0) +31 +"DATA",1130580001.201,11,6) +^ +"DATA",1130580001.201,11,7) +MU12 +"DATA",1130580001.201,12,0) +ED CMS REPORTING MEASURES^2.16.840.1.113883.3.249.11.14.1.1.1 +"DATA",1130580001.201,12,4) +^^3120101^3121213 +"DATA",1130580001.201,12,5,0) +^1130580001.2011P^2^2 +"DATA",1130580001.201,12,5,1,0) +23 +"DATA",1130580001.201,12,5,2,0) +24 +"DATA",1130580001.201,12,6) +^ +"DATA",1130580001.201,12,7) +MU12 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") +^DIBT(920,1) +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FIA",1130580001.201) +C0Q MEASUREMENT SET +"FIA",1130580001.201,0) +^C0Q(201, +"FIA",1130580001.201,0,0) +1130580001.201 +"FIA",1130580001.201,0,1) +y^y^f^^y^C0Q 1P0*4 MS^y^o^n +"FIA",1130580001.201,0,10) + +"FIA",1130580001.201,0,11) + +"FIA",1130580001.201,0,"RLRO") +^DIBT(921,1) +"FIA",1130580001.201,0,"VR") +1.0^C0Q +"FIA",1130580001.201,1130580001.201) +0 +"FIA",1130580001.201,1130580001.2011) +0 +"FIA",1130580001.201,1130580001.20111) +0 +"FIA",1130580001.201,1130580001.20112) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^y^p^^^^n^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +1 +"FIA",1130580001.401,1130580001.401,5.1) + +"FIA",1130580001.401,1130580001.401,5.2) + +"FIA",1130580001.401,1130580001.401,5.3) + +"FRV1",1130580001.101,"23,7",7) +MU ED-1 NUMER RS +"FRV1",1130580001.101,"23,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"23,7",8) +MU ED-1 DENOM RS +"FRV1",1130580001.101,"23,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",7) +MU ED-2 NUMER RS +"FRV1",1130580001.101,"24,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",8) +MU ED-2 DENOM RS +"FRV1",1130580001.101,"24,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",7) +MU STK-2 NUMER RS +"FRV1",1130580001.101,"25,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",8) +MU STK-2 DENOM RS +"FRV1",1130580001.101,"25,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",7) +MU STK-3 NUMER RS +"FRV1",1130580001.101,"26,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",8) +MU STK-3 DENOM RS +"FRV1",1130580001.101,"26,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",7) +MU STK-4 NUMER RS +"FRV1",1130580001.101,"27,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",8) +MU STK-4 DENOM RS +"FRV1",1130580001.101,"27,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",7) +MU STK-5 NUMER RS +"FRV1",1130580001.101,"28,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",8) +MU STK-5 DENOM RS +"FRV1",1130580001.101,"28,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",7) +MU STK-6 NUMER RS +"FRV1",1130580001.101,"29,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",8) +MU STK-6 DENOM RS +"FRV1",1130580001.101,"29,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",7) +MU STK-8 NUMER RS +"FRV1",1130580001.101,"30,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",8) +MU STK-8 DENOM RS +"FRV1",1130580001.101,"30,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",7) +MU STK-10 NUMER RS +"FRV1",1130580001.101,"31,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",8) +MU STK-10 DENOM RS +"FRV1",1130580001.101,"31,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",7) +MU VTE-1 NUMER RS +"FRV1",1130580001.101,"32,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",8) +MU VTE-1 DENOM RS +"FRV1",1130580001.101,"32,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",7) +MU VTE-2 NUMER RS +"FRV1",1130580001.101,"33,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",8) +MU VTE-2 DENOM RS +"FRV1",1130580001.101,"33,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",7) +MU VTE-3 NUMER RS +"FRV1",1130580001.101,"34,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",8) +MU VTE-3 DENOM RS +"FRV1",1130580001.101,"34,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",7) +MU VTE-4 NUMER RS +"FRV1",1130580001.101,"35,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",8) +MU VTE-4 DENOM RS +"FRV1",1130580001.101,"35,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",7) +MU VTE-5 NUMER RS +"FRV1",1130580001.101,"36,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",8) +MU VTE-5 DENOM RS +"FRV1",1130580001.101,"36,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",7) +MU VTE-6 NUMER RS +"FRV1",1130580001.101,"37,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",8) +MU VTE-6 DENOM RS +"FRV1",1130580001.101,"37,7",8,"F") +;PXRM(810.4, +"FRV1K",1130580001.101,"23,7",7) +B +"FRV1K",1130580001.101,"23,7",7,1) +MU ED-1 NUMER RS +"FRV1K",1130580001.101,"23,7",8) +B +"FRV1K",1130580001.101,"23,7",8,1) +MU ED-1 DENOM RS +"FRV1K",1130580001.101,"24,7",7) +B +"FRV1K",1130580001.101,"24,7",7,1) +MU ED-2 NUMER RS +"FRV1K",1130580001.101,"24,7",8) +B +"FRV1K",1130580001.101,"24,7",8,1) +MU ED-2 DENOM RS +"FRV1K",1130580001.101,"25,7",7) +B +"FRV1K",1130580001.101,"25,7",7,1) +MU STK-2 NUMER RS +"FRV1K",1130580001.101,"25,7",8) +B +"FRV1K",1130580001.101,"25,7",8,1) +MU STK-2 DENOM RS +"FRV1K",1130580001.101,"26,7",7) +B +"FRV1K",1130580001.101,"26,7",7,1) +MU STK-3 NUMER RS +"FRV1K",1130580001.101,"26,7",8) +B +"FRV1K",1130580001.101,"26,7",8,1) +MU STK-3 DENOM RS +"FRV1K",1130580001.101,"27,7",7) +B +"FRV1K",1130580001.101,"27,7",7,1) +MU STK-4 NUMER RS +"FRV1K",1130580001.101,"27,7",8) +B +"FRV1K",1130580001.101,"27,7",8,1) +MU STK-4 DENOM RS +"FRV1K",1130580001.101,"28,7",7) +B +"FRV1K",1130580001.101,"28,7",7,1) +MU STK-5 NUMER RS +"FRV1K",1130580001.101,"28,7",8) +B +"FRV1K",1130580001.101,"28,7",8,1) +MU STK-5 DENOM RS +"FRV1K",1130580001.101,"29,7",7) +B +"FRV1K",1130580001.101,"29,7",7,1) +MU STK-6 NUMER RS +"FRV1K",1130580001.101,"29,7",8) +B +"FRV1K",1130580001.101,"29,7",8,1) +MU STK-6 DENOM RS +"FRV1K",1130580001.101,"30,7",7) +B +"FRV1K",1130580001.101,"30,7",7,1) +MU STK-8 NUMER RS +"FRV1K",1130580001.101,"30,7",8) +B +"FRV1K",1130580001.101,"30,7",8,1) +MU STK-8 DENOM RS +"FRV1K",1130580001.101,"31,7",7) +B +"FRV1K",1130580001.101,"31,7",7,1) +MU STK-10 NUMER RS +"FRV1K",1130580001.101,"31,7",8) +B +"FRV1K",1130580001.101,"31,7",8,1) +MU STK-10 DENOM RS +"FRV1K",1130580001.101,"32,7",7) +B +"FRV1K",1130580001.101,"32,7",7,1) +MU VTE-1 NUMER RS +"FRV1K",1130580001.101,"32,7",8) +B +"FRV1K",1130580001.101,"32,7",8,1) +MU VTE-1 DENOM RS +"FRV1K",1130580001.101,"33,7",7) +B +"FRV1K",1130580001.101,"33,7",7,1) +MU VTE-2 NUMER RS +"FRV1K",1130580001.101,"33,7",8) +B +"FRV1K",1130580001.101,"33,7",8,1) +MU VTE-2 DENOM RS +"FRV1K",1130580001.101,"34,7",7) +B +"FRV1K",1130580001.101,"34,7",7,1) +MU VTE-3 NUMER RS +"FRV1K",1130580001.101,"34,7",8) +B +"FRV1K",1130580001.101,"34,7",8,1) +MU VTE-3 DENOM RS +"FRV1K",1130580001.101,"35,7",7) +B +"FRV1K",1130580001.101,"35,7",7,1) +MU VTE-4 NUMER RS +"FRV1K",1130580001.101,"35,7",8) +B +"FRV1K",1130580001.101,"35,7",8,1) +MU VTE-4 DENOM RS +"FRV1K",1130580001.101,"36,7",7) +B +"FRV1K",1130580001.101,"36,7",7,1) +MU VTE-5 NUMER RS +"FRV1K",1130580001.101,"36,7",8) +B +"FRV1K",1130580001.101,"36,7",8,1) +MU VTE-5 DENOM RS +"FRV1K",1130580001.101,"37,7",7) +B +"FRV1K",1130580001.101,"37,7",7,1) +MU VTE-6 NUMER RS +"FRV1K",1130580001.101,"37,7",8) +B +"FRV1K",1130580001.101,"37,7",8,1) +MU VTE-6 DENOM RS +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"IX",1130580001.201,1130580001.201,"MU",0) +1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS +"IX",1130580001.201,1130580001.201,"MU",1) +S ^C0Q(201,"MU",$E(X,1,30),DA)="" +"IX",1130580001.201,1130580001.201,"MU",2) +K ^C0Q(201,"MU",$E(X,1,30),DA) +"IX",1130580001.201,1130580001.201,"MU",2.5) +K ^C0Q(201,"MU") +"IX",1130580001.201,1130580001.201,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.201,1130580001.201,"MU",11.1,1,0) +1^F^1130580001.201^.3^30^1^F +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^733 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",.402,1742,-1) +0^1 +"KRN",.402,1742,0) +C0Q EDIT INPATIENT PARMS^3120801.1733^@^1130580001.401^^@^3120802 +"KRN",.402,1742,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1742,"DR",1,1130580001.401) +.01;.02;.03;1;1.1;5.1;5.2;5.3;3; +"KRN",.402,1742,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1747,-1) +0^2 +"KRN",.402,1747,0) +C0Q EDIT MEASURE SET^3120801.0011^@^1130580001.201^^@^3120801 +"KRN",.402,1747,"DR",1,1130580001.201) +.01;.02;.03;.05;.3;.4;1; +"KRN",.402,1747,"DR",2,1130580001.2011) +.01;1.2;2.2; +"KRN",19,11027,-1) +2^3 +"KRN",19,11027,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^8^^^^^^^^y +"KRN",19,11027,10,0) +^19.01IP^20^20 +"KRN",19,11027,10,20,0) +11070 +"KRN",19,11027,10,20,"^") +C0Q QRDA MENU +"KRN",19,11027,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11070,-1) +0^1 +"KRN",19,11070,0) +C0Q QRDA MENU^QRDA MENU^^M^^^^^^^^QUALITY MEASURES^y +"KRN",19,11070,1,0) +^^1^1^3120801^ +"KRN",19,11070,1,1,0) +Contains QRDA generation releated menu options. +"KRN",19,11070,10,0) +^19.01IP^1^1 +"KRN",19,11070,10,1,0) +11071 +"KRN",19,11070,10,1,"^") +C0Q EXPORT INPATIENT QRDA CCRS +"KRN",19,11070,99) +62670,75392 +"KRN",19,11070,"U") +QRDA MENU +"KRN",19,11071,-1) +0^2 +"KRN",19,11071,0) +C0Q EXPORT INPATIENT QRDA CCRS^EXPORT INPATIENT QRDA MEASURES AS CCRS^^R^^^^^^^^QUALITY MEASURES^y +"KRN",19,11071,1,0) +^^2^2^3120801^ +"KRN",19,11071,1,1,0) +This option updates the CMS Inpatient Reporting measures and then creates +"KRN",19,11071,1,2,0) +a CCR for each patient in these measures' denominators. +"KRN",19,11071,25) +EN^C0QQRDA +"KRN",19,11071,"U") +EXPORT INPATIENT QRDA MEASURES +"MBREQ") +0 +"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 +"PGL",1130580001.101,0,2,1) +NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q +"PGL",1130580001.101,0,3,2) +DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q +"PGL",1130580001.101,7,2,1.1) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"PGL",1130580001.101,7,3,2.1) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"PGL",1130580001.101,7,4,1.5) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"PGL",1130580001.101,7,5,1.51) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"PGL",1130580001.101,7,7,1.2) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,8,2.2) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,9,2.5) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"PGL",1130580001.2011,4,3,1.2) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"PGL",1130580001.2011,4,4,2.2) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"PKG",212,-1) +1^1 +"PKG",212,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",212,20,0) +^9.402P^^ +"PKG",212,22,0) +^9.49I^1^1 +"PKG",212,22,1,0) +1.0^3120731 +"PKG",212,22,1,"PAH",1,0) +4^3120824 +"PKG",212,22,1,"PAH",1,1,0) +^^250^250^3120824 +"PKG",212,22,1,"PAH",1,1,1,0) + Source, Copyright, & Licensing: +"PKG",212,22,1,"PAH",1,1,2,0) + =============================== +"PKG",212,22,1,"PAH",1,1,3,0) + This patch to WorldVistA 2.0 was produced in Dew Drop +"PKG",212,22,1,"PAH",1,1,4,0) + by George Lily on 24 August 2012 and released through VISTA Forum. +"PKG",212,22,1,"PAH",1,1,5,0) + +"PKG",212,22,1,"PAH",1,1,6,0) + (C) 2012 George Lilly +"PKG",212,22,1,"PAH",1,1,7,0) + Licensed under GPL 2. +"PKG",212,22,1,"PAH",1,1,8,0) + +"PKG",212,22,1,"PAH",1,1,9,0) + Functionality: +"PKG",212,22,1,"PAH",1,1,10,0) + ============== +"PKG",212,22,1,"PAH",1,1,11,0) + This patch adds the ability to generate modified CCRs +"PKG",212,22,1,"PAH",1,1,12,0) + containing a QUALITY measure section that looks like +"PKG",212,22,1,"PAH",1,1,13,0) + this: +"PKG",212,22,1,"PAH",1,1,14,0) + +"PKG",212,22,1,"PAH",1,1,15,0) + +"PKG",212,22,1,"PAH",1,1,16,0) + 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"PKG",212,22,1,"PAH",1,1,17,0) + +"PKG",212,22,1,"PAH",1,1,18,0) + 1.3.6.1.4.1.33895.1.2.16001.1.2.2 +"PKG",212,22,1,"PAH",1,1,19,0) + 1.3.6.1.4.1.33895.1.2.16002.1.2.2 +"PKG",212,22,1,"PAH",1,1,20,0) + 1.3.6.1.4.1.33895.1.2.16004.1.2.2 +"PKG",212,22,1,"PAH",1,1,21,0) + 1.3.6.1.4.1.33895.1.2.16008.1.2.2 +"PKG",212,22,1,"PAH",1,1,22,0) + +"PKG",212,22,1,"PAH",1,1,23,0) + +"PKG",212,22,1,"PAH",1,1,24,0) + +"PKG",212,22,1,"PAH",1,1,25,0) + +"PKG",212,22,1,"PAH",1,1,26,0) + This enables you to create a QRDA document in the C32 format to submit to CMS +"PKG",212,22,1,"PAH",1,1,27,0) + containing these measures. The C32 document will be generated by an XSLT +"PKG",212,22,1,"PAH",1,1,28,0) + transform from the CCR document. +"PKG",212,22,1,"PAH",1,1,29,0) + +"PKG",212,22,1,"PAH",1,1,30,0) + The driving force behind the creation of this patch, as well as the +"PKG",212,22,1,"PAH",1,1,31,0) + documentation of the actual QRDA documents to send to CMS can be found here: +"PKG",212,22,1,"PAH",1,1,32,0) + http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 +"PKG",212,22,1,"PAH",1,1,33,0) + +"PKG",212,22,1,"PAH",1,1,34,0) + Specifically, this sentence: +"PKG",212,22,1,"PAH",1,1,35,0) + "One part of meeting the requirements for Stage I Meaningful Use may include +"PKG",212,22,1,"PAH",1,1,36,0) + submitting Clinical Quality Measures (CQMs) electronically using the QRDA +"PKG",212,22,1,"PAH",1,1,37,0) + Category I file format." +"PKG",212,22,1,"PAH",1,1,38,0) + +"PKG",212,22,1,"PAH",1,1,39,0) + Package Elements: +"PKG",212,22,1,"PAH",1,1,40,0) + ================= +"PKG",212,22,1,"PAH",1,1,41,0) +PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 +"PKG",212,22,1,"PAH",1,1,42,0) +------------------------------------------------------------------------------- +"PKG",212,22,1,"PAH",1,1,43,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"PKG",212,22,1,"PAH",1,1,44,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"PKG",212,22,1,"PAH",1,1,45,0) + +"PKG",212,22,1,"PAH",1,1,46,0) +DESCRIPTION: +"PKG",212,22,1,"PAH",1,1,47,0) +QRDA Support. +"PKG",212,22,1,"PAH",1,1,48,0) + +"PKG",212,22,1,"PAH",1,1,49,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"PKG",212,22,1,"PAH",1,1,50,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"PKG",212,22,1,"PAH",1,1,51,0) +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +"PKG",212,22,1,"PAH",1,1,52,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P4 +"PKG",212,22,1,"PAH",1,1,53,0) + +"PKG",212,22,1,"PAH",1,1,54,0) + UP SEND DATA USER +"PKG",212,22,1,"PAH",1,1,55,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",212,22,1,"PAH",1,1,56,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",212,22,1,"PAH",1,1,57,0) +------------------------------------------------------------------------------- +"PKG",212,22,1,"PAH",1,1,58,0) + +"PKG",212,22,1,"PAH",1,1,59,0) +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO +"PKG",212,22,1,"PAH",1,1,60,0) + +"PKG",212,22,1,"PAH",1,1,61,0) +1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO +"PKG",212,22,1,"PAH",1,1,62,0) + +"PKG",212,22,1,"PAH",1,1,63,0) +1130580001.401C0Q PARAMETER YES YES NO NO +"PKG",212,22,1,"PAH",1,1,64,0) +Partial DD: subDD: 1130580001.401fld: 5.1 +"PKG",212,22,1,"PAH",1,1,65,0) + fld: 5.2 +"PKG",212,22,1,"PAH",1,1,66,0) + fld: 5.3 +"PKG",212,22,1,"PAH",1,1,67,0) + +"PKG",212,22,1,"PAH",1,1,68,0) +INPUT TEMPLATE: ACTION: +"PKG",212,22,1,"PAH",1,1,69,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE +"PKG",212,22,1,"PAH",1,1,70,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE +"PKG",212,22,1,"PAH",1,1,71,0) + +"PKG",212,22,1,"PAH",1,1,72,0) +ROUTINE: ACTION: +"PKG",212,22,1,"PAH",1,1,73,0) + C0QQRDA SEND TO SITE +"PKG",212,22,1,"PAH",1,1,74,0) + +"PKG",212,22,1,"PAH",1,1,75,0) +OPTION: ACTION: +"PKG",212,22,1,"PAH",1,1,76,0) + C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE +"PKG",212,22,1,"PAH",1,1,77,0) + C0Q QRDA MENU SEND TO SITE +"PKG",212,22,1,"PAH",1,1,78,0) + C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS +"PKG",212,22,1,"PAH",1,1,79,0) + +"PKG",212,22,1,"PAH",1,1,80,0) +INSTALL QUESTIONS: +"PKG",212,22,1,"PAH",1,1,81,0) + +"PKG",212,22,1,"PAH",1,1,82,0) + Default Rebuild Menu Trees Upon Completion of Install: YES +"PKG",212,22,1,"PAH",1,1,83,0) + Default INHIBIT LOGONs during the install: NO +"PKG",212,22,1,"PAH",1,1,84,0) + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO +"PKG",212,22,1,"PAH",1,1,85,0) + +"PKG",212,22,1,"PAH",1,1,86,0) +REQUIRED BUILDS: ACTION: +"PKG",212,22,1,"PAH",1,1,87,0) + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global +"PKG",212,22,1,"PAH",1,1,88,0) + QUALITY MEASURES 1.0 Don't install, leave global +"PKG",212,22,1,"PAH",1,1,89,0) + +"PKG",212,22,1,"PAH",1,1,90,0) + Summary of Changes to package: +"PKG",212,22,1,"PAH",1,1,91,0) + - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs +"PKG",212,22,1,"PAH",1,1,92,0) + for Inpatients, as follows: +"PKG",212,22,1,"PAH",1,1,93,0) + +"PKG",212,22,1,"PAH",1,1,94,0) +NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET +"PKG",212,22,1,"PAH",1,1,95,0) +---------------------------------------------------------------------------------- +"PKG",212,22,1,"PAH",1,1,96,0) + +"PKG",212,22,1,"PAH",1,1,97,0) +MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS +"PKG",212,22,1,"PAH",1,1,98,0) +MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS +"PKG",212,22,1,"PAH",1,1,99,0) + +"PKG",212,22,1,"PAH",1,1,100,0) +MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS +"PKG",212,22,1,"PAH",1,1,101,0) +MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS +"PKG",212,22,1,"PAH",1,1,102,0) +MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS +"PKG",212,22,1,"PAH",1,1,103,0) +MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS +"PKG",212,22,1,"PAH",1,1,104,0) +MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS +"PKG",212,22,1,"PAH",1,1,105,0) +MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS +"PKG",212,22,1,"PAH",1,1,106,0) +MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS +"PKG",212,22,1,"PAH",1,1,107,0) + +"PKG",212,22,1,"PAH",1,1,108,0) +MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS +"PKG",212,22,1,"PAH",1,1,109,0) +MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS +"PKG",212,22,1,"PAH",1,1,110,0) +MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS +"PKG",212,22,1,"PAH",1,1,111,0) +MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS +"PKG",212,22,1,"PAH",1,1,112,0) +MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS +"PKG",212,22,1,"PAH",1,1,113,0) +MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS +"PKG",212,22,1,"PAH",1,1,114,0) + +"PKG",212,22,1,"PAH",1,1,115,0) + - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,116,0) + - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,117,0) + - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: +"PKG",212,22,1,"PAH",1,1,118,0) +NAME: ED CMS REPORTING MEASURES +"PKG",212,22,1,"PAH",1,1,119,0) + QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 +"PKG",212,22,1,"PAH",1,1,120,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 +"PKG",212,22,1,"PAH",1,1,121,0) +MEASURE: MU HOS NQF 0495 +"PKG",212,22,1,"PAH",1,1,122,0) +MEASURE: MU HOS NQF 0497 +"PKG",212,22,1,"PAH",1,1,123,0) + MU YEAR KEY: MU12 +"PKG",212,22,1,"PAH",1,1,124,0) + +"PKG",212,22,1,"PAH",1,1,125,0) +NAME: STK CMS REPORTING MEASURES +"PKG",212,22,1,"PAH",1,1,126,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"PKG",212,22,1,"PAH",1,1,127,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"PKG",212,22,1,"PAH",1,1,128,0) +MEASURE: MU HOS NQF 0435 +"PKG",212,22,1,"PAH",1,1,129,0) +MEASURE: MU HOS NQF 0436 +"PKG",212,22,1,"PAH",1,1,130,0) +MEASURE: MU HOS NQF 0437 +"PKG",212,22,1,"PAH",1,1,131,0) +MEASURE: MU HOS NQF 0438 +"PKG",212,22,1,"PAH",1,1,132,0) +MEASURE: MU HOS NQF 0439 +"PKG",212,22,1,"PAH",1,1,133,0) +MEASURE: MU HOS NQF 0440 +"PKG",212,22,1,"PAH",1,1,134,0) +MEASURE: MU HOS NQF 0441 +"PKG",212,22,1,"PAH",1,1,135,0) + MU YEAR KEY: MU12 +"PKG",212,22,1,"PAH",1,1,136,0) + +"PKG",212,22,1,"PAH",1,1,137,0) +NAME: VTE CMS REPORTING MEASURES +"PKG",212,22,1,"PAH",1,1,138,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 +"PKG",212,22,1,"PAH",1,1,139,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"PKG",212,22,1,"PAH",1,1,140,0) +MEASURE: MU HOS NQF 0371 +"PKG",212,22,1,"PAH",1,1,141,0) +MEASURE: MU HOS NQF 0372 +"PKG",212,22,1,"PAH",1,1,142,0) +MEASURE: MU HOS NQF 0373 +"PKG",212,22,1,"PAH",1,1,143,0) +MEASURE: MU HOS NQF 0374 +"PKG",212,22,1,"PAH",1,1,144,0) +MEASURE: MU HOS NQF 0375 +"PKG",212,22,1,"PAH",1,1,145,0) +MEASURE: MU HOS NQF 0376 +"PKG",212,22,1,"PAH",1,1,146,0) + MU YEAR KEY: MU12 +"PKG",212,22,1,"PAH",1,1,147,0) + +"PKG",212,22,1,"PAH",1,1,148,0) + - Creation of supporting fields in the C0Q PARAMETER file to drive generation +"PKG",212,22,1,"PAH",1,1,149,0) + of the QRDA documents. +"PKG",212,22,1,"PAH",1,1,150,0) + - VTE CMS MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,151,0) + - STK CMS MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,152,0) + - ED CMS MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,153,0) + +"PKG",212,22,1,"PAH",1,1,154,0) + - Modification of existing input templates to support the new fields created. +"PKG",212,22,1,"PAH",1,1,155,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401 +"PKG",212,22,1,"PAH",1,1,156,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 +"PKG",212,22,1,"PAH",1,1,157,0) + +"PKG",212,22,1,"PAH",1,1,158,0) + - Routine C0QQRDA to drive the generation of the QRDA documents. +"PKG",212,22,1,"PAH",1,1,159,0) + +"PKG",212,22,1,"PAH",1,1,160,0) + - Menu option to call EN^C0QQRDA: +"PKG",212,22,1,"PAH",1,1,161,0) + -> C0Q QUALITY MEASUREMENT MENU +"PKG",212,22,1,"PAH",1,1,162,0) + Parent: C0Q QRDA MENU +"PKG",212,22,1,"PAH",1,1,163,0) + +"PKG",212,22,1,"PAH",1,1,164,0) + Routine Versioning: +"PKG",212,22,1,"PAH",1,1,165,0) + +"PKG",212,22,1,"PAH",1,1,166,0) + The second line of each of these routines now looks like: +"PKG",212,22,1,"PAH",1,1,167,0) + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 +"PKG",212,22,1,"PAH",1,1,168,0) + +"PKG",212,22,1,"PAH",1,1,169,0) + +"PKG",212,22,1,"PAH",1,1,170,0) + The following checksums can be checked with CHECK1^XTSUMBLD: +"PKG",212,22,1,"PAH",1,1,171,0) + +"PKG",212,22,1,"PAH",1,1,172,0) + Routine Before After Patch List +"PKG",212,22,1,"PAH",1,1,173,0) + ------- ----------- ------------ --------------------------------- +"PKG",212,22,1,"PAH",1,1,174,0) + C0QQRDA 89943644 **4** +"PKG",212,22,1,"PAH",1,1,175,0) + +"PKG",212,22,1,"PAH",1,1,176,0) + Documentation: +"PKG",212,22,1,"PAH",1,1,177,0) + ============== +"PKG",212,22,1,"PAH",1,1,178,0) + None at this moment. +"PKG",212,22,1,"PAH",1,1,179,0) + +"PKG",212,22,1,"PAH",1,1,180,0) + Test Sites: +"PKG",212,22,1,"PAH",1,1,181,0) + =========== +"PKG",212,22,1,"PAH",1,1,182,0) + None at this moment. +"PKG",212,22,1,"PAH",1,1,183,0) + +"PKG",212,22,1,"PAH",1,1,184,0) + Compliance: +"PKG",212,22,1,"PAH",1,1,185,0) + =========== +"PKG",212,22,1,"PAH",1,1,186,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",212,22,1,"PAH",1,1,187,0) + Conventions (version 3 April 2007). +"PKG",212,22,1,"PAH",1,1,188,0) + +"PKG",212,22,1,"PAH",1,1,189,0) + Installation Instructions: +"PKG",212,22,1,"PAH",1,1,190,0) + ========================== +"PKG",212,22,1,"PAH",1,1,191,0) + Install Time - less than 1 minute +"PKG",212,22,1,"PAH",1,1,192,0) + +"PKG",212,22,1,"PAH",1,1,193,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",212,22,1,"PAH",1,1,194,0) + +"PKG",212,22,1,"PAH",1,1,195,0) + Choose the PackMan message containing this patch and invoke the +"PKG",212,22,1,"PAH",1,1,196,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"PKG",212,22,1,"PAH",1,1,197,0) + +"PKG",212,22,1,"PAH",1,1,198,0) + 2. START UP KIDS +"PKG",212,22,1,"PAH",1,1,199,0) + +"PKG",212,22,1,"PAH",1,1,200,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",212,22,1,"PAH",1,1,201,0) + [XPD MAIN]: +"PKG",212,22,1,"PAH",1,1,202,0) + +"PKG",212,22,1,"PAH",1,1,203,0) + Edits and Distribution ... +"PKG",212,22,1,"PAH",1,1,204,0) + Utilities ... +"PKG",212,22,1,"PAH",1,1,205,0) + Installation ... +"PKG",212,22,1,"PAH",1,1,206,0) + +"PKG",212,22,1,"PAH",1,1,207,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",212,22,1,"PAH",1,1,208,0) + --- +"PKG",212,22,1,"PAH",1,1,209,0) + Load a Distribution +"PKG",212,22,1,"PAH",1,1,210,0) + Print Transport Global +"PKG",212,22,1,"PAH",1,1,211,0) + Compare Transport Global to Current System +"PKG",212,22,1,"PAH",1,1,212,0) + Verify Checksums in Transport Global +"PKG",212,22,1,"PAH",1,1,213,0) + Install Package(s) +"PKG",212,22,1,"PAH",1,1,214,0) + Restart Install of Package(s) +"PKG",212,22,1,"PAH",1,1,215,0) + Unload a Distribution +"PKG",212,22,1,"PAH",1,1,216,0) + Backup a Transport Global +"PKG",212,22,1,"PAH",1,1,217,0) + +"PKG",212,22,1,"PAH",1,1,218,0) + Select Installation Option: +"PKG",212,22,1,"PAH",1,1,219,0) + +"PKG",212,22,1,"PAH",1,1,220,0) + 3. Select Installation Option: +"PKG",212,22,1,"PAH",1,1,221,0) + +"PKG",212,22,1,"PAH",1,1,222,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",212,22,1,"PAH",1,1,223,0) + NAME, enter C0Q*1.0*4): +"PKG",212,22,1,"PAH",1,1,224,0) + +"PKG",212,22,1,"PAH",1,1,225,0) + a. Backup a Transport Global - This option will create a backup +"PKG",212,22,1,"PAH",1,1,226,0) + message of any routines exported with this patch. It will not +"PKG",212,22,1,"PAH",1,1,227,0) + backup any other changes such as DD's or templates. +"PKG",212,22,1,"PAH",1,1,228,0) + b. Compare Transport Global to Current System - This option will +"PKG",212,22,1,"PAH",1,1,229,0) + allow you to view all changes that will be made when this patch +"PKG",212,22,1,"PAH",1,1,230,0) + is installed. It compares all components of this patch +"PKG",212,22,1,"PAH",1,1,231,0) + (routines, DD's, templates, etc.). +"PKG",212,22,1,"PAH",1,1,232,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",212,22,1,"PAH",1,1,233,0) + you to ensure the integrity of the routines that are in the +"PKG",212,22,1,"PAH",1,1,234,0) + transport global. +"PKG",212,22,1,"PAH",1,1,235,0) + +"PKG",212,22,1,"PAH",1,1,236,0) + 4. Select Installation Option: Install Package(s) +"PKG",212,22,1,"PAH",1,1,237,0) + +"PKG",212,22,1,"PAH",1,1,238,0) + **This is the step to start the installation of this KIDS patch: +"PKG",212,22,1,"PAH",1,1,239,0) + +"PKG",212,22,1,"PAH",1,1,240,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",212,22,1,"PAH",1,1,241,0) + and enter "C0Q*1.0*4" at the INSTALL NAME prompt. +"PKG",212,22,1,"PAH",1,1,242,0) + b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' +"PKG",212,22,1,"PAH",1,1,243,0) + Answer YES. The file is just renamed, that's why KIDS asks you to +"PKG",212,22,1,"PAH",1,1,244,0) + overwrite it. +"PKG",212,22,1,"PAH",1,1,245,0) + c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",212,22,1,"PAH",1,1,246,0) + Install? YES//' answer YES +"PKG",212,22,1,"PAH",1,1,247,0) + d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",212,22,1,"PAH",1,1,248,0) + NO//' answer NO +"PKG",212,22,1,"PAH",1,1,249,0) + e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",212,22,1,"PAH",1,1,250,0) + and Protocols? NO//' answer NO +"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") +YES +"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","C0QQRDA") +0^1^B89943644 +"RTN","C0QQRDA",1,0) +C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/24/12 12:41pm +"RTN","C0QQRDA",2,0) + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 +"RTN","C0QQRDA",3,0) + ;Copyright 2012 George Lilly. Licensed under the terms of the GNU +"RTN","C0QQRDA",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QQRDA",5,0) + ; +"RTN","C0QQRDA",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QQRDA",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QQRDA",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QQRDA",9,0) + ;(at your option) any later version. +"RTN","C0QQRDA",10,0) + ; +"RTN","C0QQRDA",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QQRDA",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QQRDA",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QQRDA",14,0) + ;GNU General Public License for more details. +"RTN","C0QQRDA",15,0) + ; +"RTN","C0QQRDA",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QQRDA",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QQRDA",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QQRDA",19,0) + ; +"RTN","C0QQRDA",20,0) +EN ; Private to this Package; Main Entry Point for this routine +"RTN","C0QQRDA",21,0) + ; This EP is interactive or silent depending on params +"RTN","C0QQRDA",22,0) + ; +"RTN","C0QQRDA",23,0) + ; Check for config errors first; try to set-up. +"RTN","C0QQRDA",24,0) + N % S %=$$CHECKPAR() +"RTN","C0QQRDA",25,0) + I +%=1 D EN^DDIOL($P(%,U,2)) QUIT ; No inpatient pars found... QUIT +"RTN","C0QQRDA",26,0) + ; +"RTN","C0QQRDA",27,0) + N C0QFAIL S C0QFAIL=0 +"RTN","C0QQRDA",28,0) + I +%=2 D ; No QRDA Measure Sets... try to set it up. +"RTN","C0QQRDA",29,0) + . D EN^DDIOL("Trying to automatically set-up measure sets in parameters") +"RTN","C0QQRDA",30,0) + . N % S %=$$SETUPPAR($$INPPARM()) +"RTN","C0QQRDA",31,0) + . I % D EN^DDIOL("Failed to set-up..."_$P(%,U,2)) S C0QFAIL=1 +"RTN","C0QQRDA",32,0) + . E D EN^DDIOL("...Set-up complete",""),EN^DDIOL("","","!!!") +"RTN","C0QQRDA",33,0) + ; +"RTN","C0QQRDA",34,0) + I C0QFAIL QUIT +"RTN","C0QQRDA",35,0) + ; +"RTN","C0QQRDA",36,0) + ; Print Intro +"RTN","C0QQRDA",37,0) + N % +"RTN","C0QQRDA",38,0) + S %(1)="This program collects patients from the denominators of the measures" +"RTN","C0QQRDA",39,0) + S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default" +"RTN","C0QQRDA",40,0) + S %(3)="directory (probably /tmp/)." +"RTN","C0QQRDA",41,0) + S %(4)="" +"RTN","C0QQRDA",42,0) + S %(5)="This will take some time to execute." +"RTN","C0QQRDA",43,0) + S %(6)="" +"RTN","C0QQRDA",44,0) + S %(6,"F")="!!!" +"RTN","C0QQRDA",45,0) + ; +"RTN","C0QQRDA",46,0) + D EN^DDIOL(.%) +"RTN","C0QQRDA",47,0) + ; +"RTN","C0QQRDA",48,0) + ; Ask user which measure set to run +"RTN","C0QQRDA",49,0) + N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables +"RTN","C0QQRDA",50,0) + S DIR(0)="SB^V:VTE;S:STK;E:ED;A:ALL" +"RTN","C0QQRDA",51,0) + S DIR("A")="Measure to calculate" +"RTN","C0QQRDA",52,0) + S DIR("A",1)="Which measure set would you like to produce QRDA documents for?" +"RTN","C0QQRDA",53,0) + S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or " +"RTN","C0QQRDA",54,0) + S DIR("A",3)="[E]D Measure Set. Or you can choose to run [A]ll of them." +"RTN","C0QQRDA",55,0) + D ^DIR +"RTN","C0QQRDA",56,0) + ; +"RTN","C0QQRDA",57,0) + I $G(DTOUT)!$G(DUOUT) QUIT ; Did user hit '^' or time out? +"RTN","C0QQRDA",58,0) + ; +"RTN","C0QQRDA",59,0) + ; Get the Measure Set IEN which the user has seleted. +"RTN","C0QQRDA",60,0) + ; NB: field names start with VTE, STK, or ED; so I can use the output +"RTN","C0QQRDA",61,0) + ; of DIR directly. +"RTN","C0QQRDA",62,0) + ; +"RTN","C0QQRDA",63,0) + N FLD S FLD=Y(0) ; Grab full text of user choice into var "FLD" for field. +"RTN","C0QQRDA",64,0) + N C0QMSIENS ; Measure set IENs (^ piece); (0) stores the identifier for file names +"RTN","C0QQRDA",65,0) + ;looks like this in the end +"RTN","C0QQRDA",66,0) + ; C0QMSIENS=1^3^5 +"RTN","C0QQRDA",67,0) + ; C0QMSIENS(0)="ED^VTE^STK" +"RTN","C0QQRDA",68,0) + ; +"RTN","C0QQRDA",69,0) + N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameter IEN in 401 +"RTN","C0QQRDA",70,0) + ; +"RTN","C0QQRDA",71,0) + ; If not all, grab the measure set; else, grab all of them in ^ pieces +"RTN","C0QQRDA",72,0) + I FLD'="ALL" D +"RTN","C0QQRDA",73,0) + . S C0QMSIENS=$$GET1^DIQ(1130580001.401,INPPARM,FLD,"I") +"RTN","C0QQRDA",74,0) + . S C0QMSIENS(0)=FLD +"RTN","C0QQRDA",75,0) + ; +"RTN","C0QQRDA",76,0) + E D +"RTN","C0QQRDA",77,0) + . N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") +"RTN","C0QQRDA",78,0) + . N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") +"RTN","C0QQRDA",79,0) + . N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") +"RTN","C0QQRDA",80,0) + . S C0QMSIENS=C0QED_U_C0QVTE_U_C0QSTK +"RTN","C0QQRDA",81,0) + . S C0QMSIENS(0)="ED"_U_"VTE"_U_"STK" +"RTN","C0QQRDA",82,0) + ; +"RTN","C0QQRDA",83,0) + ; +"RTN","C0QQRDA",84,0) + S:'C0QMSIENS $EC=",U1," ; Debug.Assert that MSIEN is numeric. +"RTN","C0QQRDA",85,0) + ; +"RTN","C0QQRDA",86,0) + ; +"RTN","C0QQRDA",87,0) + ; Do the work +"RTN","C0QQRDA",88,0) + N C0QI ; Counter through the measures +"RTN","C0QQRDA",89,0) + F C0QI=1:1:$L(C0QMSIENS,U) D +"RTN","C0QQRDA",90,0) + . N MSIEN S MSIEN=$P(C0QMSIENS,U,C0QI) ; Measure Set IEN +"RTN","C0QQRDA",91,0) + . N MSNAME S MSNAME=$P(C0QMSIENS(0),U,C0QI) ; Measure Set Name +"RTN","C0QQRDA",92,0) + . N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection +"RTN","C0QQRDA",93,0) + . K @REF ; Clear global +"RTN","C0QQRDA",94,0) + . D WORK(REF,MSIEN) ; Process Measure Set, collect data in global +"RTN","C0QQRDA",95,0) + . D PRINTXML(REF,MSNAME) ; Generate XML; output to File. +"RTN","C0QQRDA",96,0) + . K @REF ; Clear global +"RTN","C0QQRDA",97,0) + QUIT +"RTN","C0QQRDA",98,0) + ; +"RTN","C0QQRDA",99,0) + ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked. +"RTN","C0QQRDA",100,0) + ; N % S %=$$CHECKPAR() +"RTN","C0QQRDA",101,0) + ; I % S RETURN(0)=% Q +"RTN","C0QQRDA",102,0) + ; +"RTN","C0QQRDA",103,0) + ; N DIQUIET S DIQUIET=1 +"RTN","C0QQRDA",104,0) + ; D EN +"RTN","C0QQRDA",105,0) + ; S RETURN(0)=0 +"RTN","C0QQRDA",106,0) + ; QUIT +"RTN","C0QQRDA",107,0) + ; +"RTN","C0QQRDA",108,0) +CHECKPAR() ; Private Proc; Check if environment is okay. +"RTN","C0QQRDA",109,0) + ; Output: 0 or +ve^message for error +"RTN","C0QQRDA",110,0) + ; 1 -> No Inpatient Parameters found +"RTN","C0QQRDA",111,0) + ; 2 -> Measurement Set(s) not found. +"RTN","C0QQRDA",112,0) + ; +"RTN","C0QQRDA",113,0) + N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN +"RTN","C0QQRDA",114,0) + I 'INPPARM Q 1_U_"No Inpatient Parameters found" +"RTN","C0QQRDA",115,0) + ; +"RTN","C0QQRDA",116,0) + ; Pointer fields to Measurement Set file, we grab the IENs +"RTN","C0QQRDA",117,0) + N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") +"RTN","C0QQRDA",118,0) + N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") +"RTN","C0QQRDA",119,0) + N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") +"RTN","C0QQRDA",120,0) + ; +"RTN","C0QQRDA",121,0) + N TXT S TXT="" ; Error text +"RTN","C0QQRDA",122,0) + I 'C0QED S TXT=TXT_"ED," +"RTN","C0QQRDA",123,0) + I 'C0QSTK S TXT=TXT_"STK," +"RTN","C0QQRDA",124,0) + I 'C0QVTE S TXT=TXT_"VTE" +"RTN","C0QQRDA",125,0) + I $E(TXT,$L(TXT))="," S TXT=$E(TXT,1,$L(TXT)-1) ; remove trailing comma +"RTN","C0QQRDA",126,0) + I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT +"RTN","C0QQRDA",127,0) + ; +"RTN","C0QQRDA",128,0) + QUIT 0 ; All okay +"RTN","C0QQRDA",129,0) + ; +"RTN","C0QQRDA",130,0) +SETUPPAR(INPPARM) ; Private Proc; Set-up QRDA lists if Inpatient Param is found. +"RTN","C0QQRDA",131,0) + ; Input: Inpatient Parameter IEN in C0Q(401, -> C0Q Parameters +"RTN","C0QQRDA",132,0) + ; Output: 0 if okay or 1^error description +"RTN","C0QQRDA",133,0) + N C0QFDA +"RTN","C0QQRDA",134,0) + ; +"RTN","C0QQRDA",135,0) + N VTEIEN S VTEIEN=$O(^C0Q(201,"B","VTE CMS REPORTING MEASURES","")) +"RTN","C0QQRDA",136,0) + I 'VTEIEN QUIT 1_U_"VTE not found" +"RTN","C0QQRDA",137,0) + N STKIEN S STKIEN=$O(^C0Q(201,"B","STK CMS REPORTING MEASURES","")) +"RTN","C0QQRDA",138,0) + I 'STKIEN QUIT 1_U_"STK not found" +"RTN","C0QQRDA",139,0) + N EDIEN S EDIEN=$O(^C0Q(201,"B","ED CMS REPORTING MEASURES","")) +"RTN","C0QQRDA",140,0) + I 'EDIEN QUIT 1_U_"ED not found" +"RTN","C0QQRDA",141,0) + ; +"RTN","C0QQRDA",142,0) + S C0QFDA(1130580001.401,INPPARM_",",5.1)=VTEIEN +"RTN","C0QQRDA",143,0) + S C0QFDA(1130580001.401,INPPARM_",",5.2)=STKIEN +"RTN","C0QQRDA",144,0) + S C0QFDA(1130580001.401,INPPARM_",",5.3)=EDIEN +"RTN","C0QQRDA",145,0) + ; +"RTN","C0QQRDA",146,0) + N C0QERR +"RTN","C0QQRDA",147,0) + D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) +"RTN","C0QQRDA",148,0) + I $D(C0QERR) Q 2_U_C0QERR("DIERR",1,"TEXT",1) +"RTN","C0QQRDA",149,0) + Q 0 +"RTN","C0QQRDA",150,0) + ; +"RTN","C0QQRDA",151,0) +WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data. +"RTN","C0QQRDA",152,0) + ; Input/Output: C0QREF -> Global for Output passed by Name +"RTN","C0QQRDA",153,0) + ; C0QMSIEN -> (Input): Measurement Set IEN to calculate +"RTN","C0QQRDA",154,0) + ; +"RTN","C0QQRDA",155,0) + ; Print +"RTN","C0QQRDA",156,0) + D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0)) +"RTN","C0QQRDA",157,0) + D EN^DDIOL("") +"RTN","C0QQRDA",158,0) + ; +"RTN","C0QQRDA",159,0) + ; Calculate totals and move patients over from individual measures +"RTN","C0QQRDA",160,0) + N A +"RTN","C0QQRDA",161,0) + D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used. +"RTN","C0QQRDA",162,0) + ; +"RTN","C0QQRDA",163,0) + ; Get QRDA code for Measure Set. +"RTN","C0QQRDA",164,0) + N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT") +"RTN","C0QQRDA",165,0) + ; +"RTN","C0QQRDA",166,0) + N C0QI S C0QI=0 ; Fileman IEN looper +"RTN","C0QQRDA",167,0) + F S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI D ; For each measure in Measure Set +"RTN","C0QQRDA",168,0) + . ; +"RTN","C0QQRDA",169,0) + . ; Get QRDA code using relational jump +"RTN","C0QQRDA",170,0) + . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT") +"RTN","C0QQRDA",171,0) + . ; +"RTN","C0QQRDA",172,0) + . ; Then collect patients in the denominator, and store in output global +"RTN","C0QQRDA",173,0) + . N C0QP S C0QP=0 +"RTN","C0QQRDA",174,0) + . F S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP D ; For each patient in denominator +"RTN","C0QQRDA",175,0) + . . N C0QDFN S C0QDFN=+^(C0QP,0) +"RTN","C0QQRDA",176,0) + . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)="" +"RTN","C0QQRDA",177,0) + QUIT +"RTN","C0QQRDA",178,0) + ; +"RTN","C0QQRDA",179,0) +INPPARM() ; $$ Private; Get Inpatient Parameters IEN +"RTN","C0QQRDA",180,0) + ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file +"RTN","C0QQRDA",181,0) + ; +"RTN","C0QQRDA",182,0) + ; Browse this tree of xrefs to get the IEN of INP type (last line here). +"RTN","C0QQRDA",183,0) + ; ^C0Q(401,"B","INPATIENT",2)="" +"RTN","C0QQRDA",184,0) + ; ^C0Q(401,"B","OUTPATIENT",1)="" +"RTN","C0QQRDA",185,0) + ; ^C0Q(401,"MU","MU12",1)="" +"RTN","C0QQRDA",186,0) + ; ^C0Q(401,"MU","MU12",2)="" +"RTN","C0QQRDA",187,0) + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" +"RTN","C0QQRDA",188,0) + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" +"RTN","C0QQRDA",189,0) + ; +"RTN","C0QQRDA",190,0) + N MUID S MUID="" ; Looper for MU Year ID +"RTN","C0QQRDA",191,0) + N FOUND S FOUND=0 ; Found flag to get out of loop +"RTN","C0QQRDA",192,0) + N IEN ; Output variable +"RTN","C0QQRDA",193,0) + F S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID="" Q:FOUND D ; Loop backwards +"RTN","C0QQRDA",194,0) + . N TYP S TYP="" ; Type ("EP" or "INP") +"RTN","C0QQRDA",195,0) + . F S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP="" Q:FOUND D +"RTN","C0QQRDA",196,0) + . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q ; If found, get IEN, quit out of loops +"RTN","C0QQRDA",197,0) + QUIT +$G(IEN) +"RTN","C0QQRDA",198,0) + ; +"RTN","C0QQRDA",199,0) +PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc +"RTN","C0QQRDA",200,0) + ; Input: C0QREF -> Global By Name +"RTN","C0QQRDA",201,0) + ; C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames. +"RTN","C0QQRDA",202,0) + ; Output: modified CCRs are saved in /tmp/ +"RTN","C0QQRDA",203,0) + N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers +"RTN","C0QQRDA",204,0) + F S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN="" D ; For each patient +"RTN","C0QQRDA",205,0) + . ; +"RTN","C0QQRDA",206,0) + . N GREEN S GREEN=$C(27)_"[1;37;42m" +"RTN","C0QQRDA",207,0) + . N RESET S RESET=$C(27)_"[0m" +"RTN","C0QQRDA",208,0) + . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!") +"RTN","C0QQRDA",209,0) + . D EN^DDIOL("","","!") +"RTN","C0QQRDA",210,0) + . ; +"RTN","C0QQRDA",211,0) + . ; CCR Generatation is next; protected against crashes. +"RTN","C0QQRDA",212,0) + . ; ET set to new value then restored. +"RTN","C0QQRDA",213,0) + . N C0QCCRXML ; CCR XML +"RTN","C0QQRDA",214,0) + . N OLDTRAP S OLDTRAP=$ET +"RTN","C0QQRDA",215,0) + . ; ET: Rollback to this level, write the error in red , clear it, then quit +"RTN","C0QQRDA",216,0) + . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET +"RTN","C0QQRDA",217,0) + . N $ES,$ET +"RTN","C0QQRDA",218,0) + . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA" +"RTN","C0QQRDA",219,0) + . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC. +"RTN","C0QQRDA",220,0) + . S $ET=OLDTRAP +"RTN","C0QQRDA",221,0) + . ; +"RTN","C0QQRDA",222,0) + . ; +"RTN","C0QQRDA",223,0) + . ; Quality XML Section generated by hand next... +"RTN","C0QQRDA",224,0) + . N C0QXML ; Generated Quality XML +"RTN","C0QQRDA",225,0) + . D XMLSTORE(.C0QXML,$$OT("QUALITY")) ; Open Tag +"RTN","C0QQRDA",226,0) + . F S C0QMS=$O(@C0QREF@(C0QDFN,C0QMS)) Q:C0QMS="" D ; For each measure set +"RTN","C0QQRDA",227,0) + . . D XMLSTORE(.C0QXML,$$OT("MEASURE_SET")) ; Open tag +"RTN","C0QQRDA",228,0) + . . D XMLSTORE(.C0QXML,$$TAG("ID",C0QMS)) ; Write out set QRDA code +"RTN","C0QQRDA",229,0) + . . D XMLSTORE(.C0QXML,$$OT("MEASURES")) ; Open tag +"RTN","C0QQRDA",230,0) + . . F S C0QM=$O(@C0QREF@(C0QDFN,C0QMS,C0QM)) Q:C0QM="" D ; for each measure +"RTN","C0QQRDA",231,0) + . . . D XMLSTORE(.C0QXML,$$TAG("MEASURE",C0QM)) ; Write and qrda code +"RTN","C0QQRDA",232,0) + . . D XMLSTORE(.C0QXML,$$CT("MEASURES")) ; Close tag +"RTN","C0QQRDA",233,0) + . . D XMLSTORE(.C0QXML,$$CT("MEASURE_SET")) ; Close tag +"RTN","C0QQRDA",234,0) + . D XMLSTORE(.C0QXML,$$CT("QUALITY")) ; Close tag +"RTN","C0QQRDA",235,0) + . ; +"RTN","C0QQRDA",236,0) + . ; +"RTN","C0QQRDA",237,0) + . ; Insert Quality XML under the root of the CCR document +"RTN","C0QQRDA",238,0) + . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord") +"RTN","C0QQRDA",239,0) + . ; +"RTN","C0QQRDA",240,0) + . ; +"RTN","C0QQRDA",241,0) + . ; Get Kernel Default Directory +"RTN","C0QQRDA",242,0) + . N DEFDIR S DEFDIR=$$DEFDIR^%ZISH() +"RTN","C0QQRDA",243,0) + . ; +"RTN","C0QQRDA",244,0) + . ; +"RTN","C0QQRDA",245,0) + . ; Write out to a file. +"RTN","C0QQRDA",246,0) + . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name +"RTN","C0QQRDA",247,0) + . K C0QCCRXML(0) ; remove zero node; API doesn't support it. +"RTN","C0QQRDA",248,0) + . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR)) +"RTN","C0QQRDA",249,0) + QUIT +"RTN","C0QQRDA",250,0) + ; +"RTN","C0QQRDA",251,0) + ; Quick XML stuff ; All Private +"RTN","C0QQRDA",252,0) +OT(STR) Q "<"_STR_">" ; $$ Open Tag +"RTN","C0QQRDA",253,0) +CT(STR) Q "" ; $$ Close Tag +"RTN","C0QQRDA",254,0) +TAG(NM,CONTENT) Q "<"_NM_">"_CONTENT_"" ; $$ Whole tag +"RTN","C0QQRDA",255,0) + ; +"RTN","C0QQRDA",256,0) +XMLSTORE(REF,STR) ; Priv Proc - Store XML +"RTN","C0QQRDA",257,0) + ; REF -> Save Array. Pass by Reference. +"RTN","C0QQRDA",258,0) + ; STR -> What to store. Pass by Value. +"RTN","C0QQRDA",259,0) + ; Use like this: D XMLSTORE(.STORE,"") +"RTN","C0QQRDA",260,0) + ; Output: STORE(1)="" +"RTN","C0QQRDA",261,0) + N L ; Number Subscript to use +"RTN","C0QQRDA",262,0) + S L=$O(REF(" "),-1) S L=L+1 ; Get last number and increment +"RTN","C0QQRDA",263,0) + S REF(L)=STR,REF(0)=L ; Store string in numbered sub, store last number in 0 node (not used here) +"RTN","C0QQRDA",264,0) + QUIT +"RTN","C0QQRDA",265,0) + ; +"RTN","C0QQRDA",266,0) + ; Following is for formatting printed XML. L passed in Symbol Table and starts at 0. +"RTN","C0QQRDA",267,0) +L1 D WS S L=L+1 Q ; Write space and increment +"RTN","C0QQRDA",268,0) +L2 S L=L-1 D WS Q ; Decrement and Write space +"RTN","C0QQRDA",269,0) +WS X "F I=1:1:L W "" """ Q ; Write Space +"RTN","C0QQRDA",270,0) + ; This is for rolling down the stack to the $ES level +"RTN","C0QQRDA",271,0) +ROLLDOWN S $ET="Q:$ES S $EC=""""",$EC=",U99," QUIT +"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^^.3^18 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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) + +"^DD",1130580001.101,1130580001.101,3,3) +Answer must be 3-120 characters in length +"^DD",1130580001.101,1130580001.101,3,21,0) +^^2^2^3120731^^ +"^DD",1130580001.101,1130580001.101,3,21,1,0) +Measure template root for the QRDA Document. A series of . delimited +"^DD",1130580001.101,1130580001.101,3,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.101,1130580001.101,3,"DT") +3120731 +"^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^^.4^9 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3120801 +"^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 MEASUREMENT SET") + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3) + +"^DD",1130580001.201,1130580001.201,.01,0) +NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.201,1130580001.201,.01,.1) + +"^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) +Answer must be 3-30 characters in length. +"^DD",1130580001.201,1130580001.201,.01,21,0) +^^1^1^3120731^ +"^DD",1130580001.201,1130580001.201,.01,21,1,0) +Measurement Set Name. +"^DD",1130580001.201,1130580001.201,.01,"DT") +3120731 +"^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,.3,0) +MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.201,1130580001.201,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.201,1130580001.201,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.201,1130580001.201,.3,"DT") +3111129 +"^DD",1130580001.201,1130580001.201,.4,0) +QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X +"^DD",1130580001.201,1130580001.201,.4,3) +Answer must be 3-120 characters in length. +"^DD",1130580001.201,1130580001.201,.4,21,0) +^^6^6^3120731^ +"^DD",1130580001.201,1130580001.201,.4,21,1,0) +Measure template root for the Measurement Set. A series of . delimited +"^DD",1130580001.201,1130580001.201,.4,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.201,1130580001.201,.4,21,3,0) + +"^DD",1130580001.201,1130580001.201,.4,21,4,0) +Most measurement sets don't have that. Only measurement sets reporable as +"^DD",1130580001.201,1130580001.201,.4,21,5,0) +a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled +"^DD",1130580001.201,1130580001.201,.4,21,6,0) +out as it is reported in the QRDA document. +"^DD",1130580001.201,1130580001.201,.4,"DT") +3120731 +"^DD",1130580001.201,1130580001.201,1,0) +MEASURE^1130580001.2011P^^5;0 +"^DD",1130580001.201,1130580001.2011,0) +MEASURE SUB-FIELD^^2.2^8 +"^DD",1130580001.201,1130580001.2011,0,"DT") +3120801 +"^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) + +"^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") +3120801 +"^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,1.2,0) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"^DD",1130580001.201,1130580001.2011,1.2,.1) +FILTER LIST FOR NUMERATOR +"^DD",1130580001.201,1130580001.2011,1.2,"DT") +3111129 +"^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,2.2,0) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"^DD",1130580001.201,1130580001.2011,2.2,.1) +FILTER LIST FOR DENOMINATOR +"^DD",1130580001.201,1130580001.2011,2.2,"DT") +3111129 +"^DD",1130580001.201,1130580001.2011,3,0) +PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.401,1130580001.401,5.1,0) +VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q +"^DD",1130580001.401,1130580001.401,5.1,3) +Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.1,21,0) +^^3^3^3120801^^^ +"^DD",1130580001.401,1130580001.401,5.1,21,1,0) +This field holds the VTE measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.1,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.1,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.1,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.1,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.1,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.1,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.1,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.2,0) +STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q +"^DD",1130580001.401,1130580001.401,5.2,3) +Enter STK Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.2,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,21,1,0) +This field holds the STK measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.2,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.2,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.2,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.2,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.2,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.2,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.3,0) +ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q +"^DD",1130580001.401,1130580001.401,5.3,3) +Enter ED Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.3,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,21,1,0) +This field holds the ED measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.3,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.3,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.3,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.3,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.3,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.3,"DT") +3120801 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +"^DIC",1130580001.201,1130580001.201,0) +C0Q MEASUREMENT SET^1130580001.201 +"^DIC",1130580001.201,1130580001.201,0,"GL") +^C0Q(201, +"^DIC",1130580001.201,1130580001.201,"%",0) +^1.005^^ +"^DIC",1130580001.201,1130580001.201,"%D",0) +^^3^3^3120731^ +"^DIC",1130580001.201,1130580001.201,"%D",1,0) +This file contains the groupings of Measurements found in the Quality +"^DIC",1130580001.201,1130580001.201,"%D",2,0) +Measures file. It is tied to the parameters file as the set of +"^DIC",1130580001.201,1130580001.201,"%D",3,0) +measurements to report for a site. +"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201) + +**END** +**END** diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-003_PAT-004.TXT b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-003_PAT-004.TXT new file mode 100644 index 0000000..632e877 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-003_PAT-004.TXT @@ -0,0 +1,462 @@ + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced in Dew Drop + by George Lily on 24 August 2012 and released through VISTA Forum. + + (C) 2012 George Lilly + Licensed under GPL 2. + + Functionality: + ============== + This patch adds the ability to generate modified CCRs + containing a QUALITY measure section that looks like + this: + + + 1.3.6.1.4.1.33895.1.1.31.1.2.1 + + 1.3.6.1.4.1.33895.1.2.16001.1.2.2 + 1.3.6.1.4.1.33895.1.2.16002.1.2.2 + 1.3.6.1.4.1.33895.1.2.16004.1.2.2 + 1.3.6.1.4.1.33895.1.2.16008.1.2.2 + + + + + This enables you to create a QRDA document in the C32 format to submit to CMS + containing these measures. The C32 document will be generated by an XSLT + transform from the CCR document. + + The driving force behind the creation of this patch, as well as the + documentation of the actual QRDA documents to send to CMS can be found here: + http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 + + Specifically, this sentence: + "One part of meeting the requirements for Stage I Meaningful Use may include + submitting Clinical Quality Measures (CQMs) electronically using the QRDA + Category I file format." + + Package Elements: + ================= +PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 +------------------------------------------------------------------------------- +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: +QRDA Support. + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +PRE-TRANSPORT RTN: TRAN^C0Q1P4 + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO + +1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO + +1130580001.401C0Q PARAMETER YES YES NO NO +Partial DD: subDD: 1130580001.401fld: 5.1 + fld: 5.2 + fld: 5.3 + +INPUT TEMPLATE: ACTION: + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE + +ROUTINE: ACTION: + C0QQRDA SEND TO SITE + +OPTION: ACTION: + C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE + C0Q QRDA MENU SEND TO SITE + C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: YES + Default INHIBIT LOGONs during the install: NO + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO + +REQUIRED BUILDS: ACTION: + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global + QUALITY MEASURES 1.0 Don't install, leave global + + Summary of Changes to package: + - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs + for Inpatients, as follows: + +NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET +---------------------------------------------------------------------------------- + +MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS +MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS + +MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS +MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS +MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS +MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS +MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS +MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS +MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS + +MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS +MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS +MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS +MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS +MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS +MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS + + - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET + - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET + - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: +NAME: ED CMS REPORTING MEASURES + QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 + BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 +MEASURE: MU HOS NQF 0495 +MEASURE: MU HOS NQF 0497 + MU YEAR KEY: MU12 + +NAME: STK CMS REPORTING MEASURES + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +MEASURE: MU HOS NQF 0435 +MEASURE: MU HOS NQF 0436 +MEASURE: MU HOS NQF 0437 +MEASURE: MU HOS NQF 0438 +MEASURE: MU HOS NQF 0439 +MEASURE: MU HOS NQF 0440 +MEASURE: MU HOS NQF 0441 + MU YEAR KEY: MU12 + +NAME: VTE CMS REPORTING MEASURES + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +MEASURE: MU HOS NQF 0371 +MEASURE: MU HOS NQF 0372 +MEASURE: MU HOS NQF 0373 +MEASURE: MU HOS NQF 0374 +MEASURE: MU HOS NQF 0375 +MEASURE: MU HOS NQF 0376 + MU YEAR KEY: MU12 + + - Creation of supporting fields in the C0Q PARAMETER file to drive generation + of the QRDA documents. + - VTE CMS MEASUREMENT SET + - STK CMS MEASUREMENT SET + - ED CMS MEASUREMENT SET + + - Modification of existing input templates to support the new fields created. + C0Q EDIT INPATIENT PARMS FILE #1130580001.401 + C0Q EDIT MEASURE SET FILE #1130580001.201 + + - Routine C0QQRDA to drive the generation of the QRDA documents. + + - Menu option to call EN^C0QQRDA: + -> C0Q QUALITY MEASUREMENT MENU + Parent: C0Q QRDA MENU + + Routine Versioning: + + The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 + + + The following checksums can be checked with CHECK1^XTSUMBLD: + + Routine Before After Patch List + ------- ----------- ------------ --------------------------------- + C0QQRDA 89943644 **4** + + Documentation: + ============== + None at this moment. + + Test Sites: + =========== + None at this moment. + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007). + + Installation Instructions: + ========================== + Install Time - less than 1 minute + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*4): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*4" at the INSTALL NAME prompt. + b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' + Answer YES. The file is just renamed, that's why KIDS asks you to + overwrite it. + c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? YES//' answer YES + d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + Installation Example: +Select Installation Option: 6 Install Package(s) +Select INSTALL NAME: C0Q*1.0*4 Loaded from Distribution Loaded from D +istribution 8/24/12@10:05 + => INPATIENT CMS QRDA GENERATION SUPPORT ;Created on Aug 02, 2012@10:40: + +This Distribution was loaded on Aug 24, 2012@10:05 with header of + INPATIENT CMS QRDA GENERATION SUPPORT ;Created on Aug 02, 2012@10:40:23 + It consisted of the following Install(s): + C0Q*1.0*4 + + Checking C0Q*1.0*4 for overlap with VOE 1.0 .... OK + No overlap found + + Checking C0Q*1.0*4 for overlap with VOE 1.1 .... OK + No overlap found + + Checking C0Q*1.0*4 for overlap with NO HOME 1.0 .... OK + No overlap found + +Checking Install for Package C0Q*1.0*4 + +Install Questions for C0Q*1.0*4 + +Incoming Files: + + 1130580001.101C0Q QUALITY MEASURE (including data) +Note: You already have the 'C0Q QUALITY MEASURE' File. +I will OVERWRITE your data with mine. + + 1130580001.201C0Q MEASUREMENT SET (including data) +*BUT YOU ALREADY HAVE 'C0Q MEASUREMENTS' AS FILE #1130580001.201! +Shall I write over your C0Q MEASUREMENTS File? YES// +I will OVERWRITE your data with mine. + + 1130580001.401C0Q PARAMETER (Partial Definition) +Note: You already have the 'C0Q PARAMETER' File. + +Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES// + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// PHOME HOME PRINTER + + + Install Started for C0Q*1.0*4 : + Aug 24, 2012@10:08:54 + +Build Distribution Date: Aug 02, 2012 + + Installing Routines:.. + Aug 24, 2012@10:08:54 + + Installing Data Dictionaries: .... + Aug 24, 2012@10:08:55 + + Installing Data: + Aug 24, 2012@10:08:55 + + Installing PACKAGE COMPONENTS: + + Installing INPUT TEMPLATE... + + Installing OPTION.... + Aug 24, 2012@10:08:55 + + Updating Routine file...... + + Updating KIDS files....... + + C0Q*1.0*4 Installed. + Aug 24, 2012@10:08:55 + + Not a VA primary domain + + NO Install Message sent + + Call MENU rebuild + +Starting Menu Rebuild: Aug 24, 2012@10:08:57 + +Collecting primary menus in the New Person file... + + Primary menus found in the New Person file + ------------------------------------------ + +OPTION NAME MENU TEXT # OF LAST LAST + USERS USED BUILT + +EVE Systems Manager Menu 25 08/24/12 08/06/12 +XUCORE Core Applications 3 08/14/12 08/06/12 +XUSERTOOLS User's Toolbox 3 06/28/11 08/06/12 +XMUSER MailMan Menu 1 06/03/11 08/06/12 +DG REGISTRATION MENURegistration Menu 1 06/21/11 08/06/12 +DGZ REGISTRATION MENU + EHR Registration Menu 39 07/09/12 08/06/12 +XUZEVE STARTUP FUNCTIONS 1 11/16/05 08/06/12 + +Building secondary menu trees.... + +Merging.... done. + +Menu Rebuild Complete: Aug 24, 2012@10:09:01 + +Brief Usage Instructions: +==================================== +Before running the QRDA option, you need to set-up your inpatient parameters. +You need AT LEAST a Parameter Name, an MU Year, and a Parameter Type in order +for the software to pick up the parameter's presence. If you already have it +set-up, you don't need to perform this step. Please note that the software does +a reverse $Order through the MU years and will only pick the latest one. + +--- +Select SETUP QUALITY REPORTING Option: INP EDIT PARMS + +Select C0Q PARAMETER NAME: ? + to exit: + You may enter a new C0Q PARAMETER, if you wish + NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH + PUNCTUATION + +Select C0Q PARAMETER NAME: INPATIENT + Are you adding 'INPATIENT' as a new C0Q PARAMETER (the 1ST)? No// Y (Yes) +NAME: INPATIENT// +MEASUREMENT PERIOD KEY: MU12 +PARAMETER TYPE: INP INPATIENT +INP MU MEASUREMENT SET: +INP QUALITY MEASUREMENT SET: +VTE CMS MEASUREMENT SET: +STK CMS MEASUREMENT SET: +ED CMS MEASUREMENT SET: +Select SUBSCRIBER: +--- + +Next, the you can invoke the menu option as follows, but you may not get any +CCRs to generate. The option will run EN^C0QQRDA which will look up the +installed measure sets and try to set-up your parameters correctly. If you +re-named the installed measure sets, this step will fail and you will need to +populate them manually in the parameters. + +--- +Select QUALITY MEASUREMENT MENU Option: QRDA MENU + +Select QRDA MENU Option: EXPORT INPATIENT QRDA MEASURES AS CCRS +Trying to automatically set-up measure sets in parameters +...Set-up complete + +This program collects patients from the denominators of the measures +STK, VTE, and ED and outputs modified CCR files to the kernel default +directory (probably /tmp/). + +This will take some time to execute. + +Which measure set would you like to produce QRDA documents for? +Choose to Run [V]TE Measure Set, [S]TK Measure Set, or +[E]D Measure Set. Or you can choose to run [A]ll of them. +Measure to calculate: (V/S/E/A): VTE +10: VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1 +--- + +The patient list to generate the CCRs is ultimately taken from the Patient +Lists pointed to from the C0Q QUALITY MEASURE file for each of the measures +being processed in the VTE, ED, or STK Measure Set. At this point of package +development, you must run these measures manually in the reminders package and +then populate the Numerator Patient List field and the Denominator Patient List +field for each of these measures. The software per CMS regs picks up the +patients in the denominator once the measure set is processed. + +A successful execution looks like this: +--- +Select QRDA MENU Option: EXPORT INPATIENT QRDA MEASURES AS CCRS +This program collects patients from the denominators of the measures +STK, VTE, and ED and outputs modified CCR files to the kernel default +directory (probably /tmp/). + +This will take some time to execute. + +Which measure set would you like to produce QRDA documents for? +Choose to Run [V]TE Measure Set, [S]TK Measure Set, or +[E]D Measure Set. Or you can choose to run [A]ll of them. +Measure to calculate: (V/S/E/A): V +10: VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1C0QFDA(1130580001.2 +011,"6,10,",3)=33 + +Prosessing DFN 97 +RUNNING D EXTRACT^C0CPROBS(IXML,DFN,OXML) +NULL RESULT FROM LIST^ORQQPL3 +RUNNING D EXTRACT^C0CALERT(IXML,DFN,OXML) +RUNNING D EXTRACT^C0CMED(IXML,DFN,OXML) +RUNNING D MAP^C0CIMMU(IXML,DFN,OXML) +NULL RESULT FROM IMMUN^PXRHS03 +RUNNING D EXTRACT^C0CVITAL(IXML,DFN,OXML) +VITALS START: T LIMIT: T-360 +RUNNING D MAP^C0CLABS(IXML,DFN,OXML) +I MAPPED +VARS:^TMP("C0CCCR",9097,"RESULTS") +DFN:97 +LAB LOOKUP FAILED, NO SSN +RUNNING D EXTRACT^C0CPROC(IXML,DFN,OXML) +RUNNING D EXTRACT^C0CENC(IXML,DFN,OXML) +PROCESSING:PATIENT 97 +PROCESSING:PROVIDER 8 +PROCESSING:SYSTEM 1 + +1^WROTE FILE: VTE_QRDA_CCR_DFN0000000097.XML TO /tmp/ +--- diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-004_PAT-001.KID b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-004_PAT-001.KID new file mode 100644 index 0000000..333efb2 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-004_PAT-001.KID @@ -0,0 +1,4186 @@ +KIDS Distribution saved on Sep 17, 2012@16:13:14 +ERX MU MEASURE SUPPORT +**KIDS**:C0Q*1.0*1^ + +**INSTALL NAME** +C0Q*1.0*1 +"BLD",7937,0) +C0Q*1.0*1^QUALITY MEASURES^0^3120917^y +"BLD",7937,1,0) +^^291^291^3120917^ +"BLD",7937,1,1,0) +ePrescribing MU measure in this package. +"BLD",7937,1,2,0) + +"BLD",7937,1,3,0) +Dependencies: +"BLD",7937,1,4,0) +This build requires C0P*1*4 for the new WebService entry that gets MU +"BLD",7937,1,5,0) +data from New Crop. +"BLD",7937,1,6,0) +This build requires the base C0Q 1.0 to be installed. +"BLD",7937,1,7,0) + +"BLD",7937,1,8,0) +This build performs the following: +"BLD",7937,1,9,0) +Routines: +"BLD",7937,1,10,0) +1. Adds routine C0QMUERX for calculation of ePrescribing stats. +"BLD",7937,1,11,0) +2. Mods routine C0QMU12 to call C0QMUERX for the ERX measure for +"BLD",7937,1,12,0) +Outpatients. +"BLD",7937,1,13,0) +3. Mods routine C0QUPDT to handle the special case of ePrescribing stats. +"BLD",7937,1,14,0) +Also, some checks and quits so that we won't crash if no patient lists +"BLD",7937,1,15,0) +are associated with the measure. +"BLD",7937,1,16,0) + +"BLD",7937,1,17,0) +Data Dictionary: +"BLD",7937,1,18,0) +1. File C0Q PARAMETER has two new indexes: +"BLD",7937,1,19,0) + AMMS REGULAR +"BLD",7937,1,20,0) + Field: EP MU MEASUREMENT SET (1130580001.401,2) +"BLD",7937,1,21,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"BLD",7937,1,22,0) + walk back to a parameter when processing a specific IEN. +"BLD",7937,1,23,0) + +"BLD",7937,1,24,0) + You can get the IEN of the measurement set using +"BLD",7937,1,25,0) + $O(^C0Q(401,"AMMS",MSIEN,"")). +"BLD",7937,1,26,0) + 1)= S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"BLD",7937,1,27,0) + 2)= K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"BLD",7937,1,28,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"BLD",7937,1,29,0) + +"BLD",7937,1,30,0) + AQMS REGULAR +"BLD",7937,1,31,0) + Field: EP QUALITY MEASUREMENT SET (1130580001.401,2.1) +"BLD",7937,1,32,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"BLD",7937,1,33,0) + walk back to a parameter when processing a specific IEN. +"BLD",7937,1,34,0) + +"BLD",7937,1,35,0) + You can get the IEN of the measurement set using +"BLD",7937,1,36,0) + $O(^C0Q(401,"AQMS",MSIEN,"")). +"BLD",7937,1,37,0) + 1)= S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"BLD",7937,1,38,0) + 2)= K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"BLD",7937,1,39,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"BLD",7937,1,40,0) + +"BLD",7937,1,41,0) +2. File C0Q QUALITY MEASURE has a new field, MEASURE TYPE (#4): +"BLD",7937,1,42,0) + +"BLD",7937,1,43,0) +1130580001.101,4MEASURE TYPE 0;5 SET +"BLD",7937,1,44,0) + +"BLD",7937,1,45,0) + 'P' FOR Performance; +"BLD",7937,1,46,0) + 'Q' FOR Quality; +"BLD",7937,1,47,0) + 'E' FOR Electronic Prescribing Performance; +"BLD",7937,1,48,0) + LAST EDITED: MAY 30, 2012 +"BLD",7937,1,49,0) + HELP-PROMPT: Enter a code P, Q or E +"BLD",7937,1,50,0) + DESCRIPTION: This field designates the measure type. It can +"BLD",7937,1,51,0) + be P, Q or M. +"BLD",7937,1,52,0) + +"BLD",7937,1,53,0) + P is for Performance. Performance measures are +"BLD",7937,1,54,0) + MU measures to measure how meaningfully used an +"BLD",7937,1,55,0) + EMR is. An example of a performance measure is +"BLD",7937,1,56,0) + whether allergies are documented in the EMR. +"BLD",7937,1,57,0) + Performance measures reference a Patient List +"BLD",7937,1,58,0) + created by this package. +"BLD",7937,1,59,0) + +"BLD",7937,1,60,0) + Q is for Quality Measures. Quality measures are +"BLD",7937,1,61,0) + MU measures to assess how well the patients are +"BLD",7937,1,62,0) + cared for. An example of a quality measure is +"BLD",7937,1,63,0) + whether Hemoglobin A1c Poor Control. Quality +"BLD",7937,1,64,0) + measures reference Patient Lists in the +"BLD",7937,1,65,0) + Reminders package. +"BLD",7937,1,66,0) + +"BLD",7937,1,67,0) + E is for Electronic Prescribing. This is a +"BLD",7937,1,68,0) + Performance measure, except that it is handled +"BLD",7937,1,69,0) + differently than the rest. Instead of the +"BLD",7937,1,70,0) + numerators and denominators being lists of +"BLD",7937,1,71,0) + patients as with all the other measurements, +"BLD",7937,1,72,0) + they are a number of prescriptions. That's why +"BLD",7937,1,73,0) + we have a special flag for it. It references a +"BLD",7937,1,74,0) + Patient List created by this package. The +"BLD",7937,1,75,0) + numerator and denominators are stored in +"BLD",7937,1,76,0) + subfiles for each patient. +"BLD",7937,1,77,0) + +"BLD",7937,1,78,0) + TECHNICAL DESCR: As of version C0P*1.0*1, the software doesn't +"BLD",7937,1,79,0) + use this field except to check for an +"BLD",7937,1,80,0) + electronic prescribing type (code E). +"BLD",7937,1,81,0) + +"BLD",7937,1,82,0) + I anticipate using this field for other +"BLD",7937,1,83,0) + purposes in the future. +"BLD",7937,1,84,0) + +"BLD",7937,1,85,0) +INPUT TEMPLATE: +"BLD",7937,1,86,0) +C0Q EDIT MU MEASURE adds the new field MEASURE TYPE mentioned above. +"BLD",7937,1,87,0) + +"BLD",7937,1,88,0) +DATA: +"BLD",7937,1,89,0) +The entry MU EP ERX for processing ePrescribing stats in C0Q QUALITY +"BLD",7937,1,90,0) +MEASURE is sent to destination sites. +"BLD",7937,1,91,0) + +"BLD",7937,1,92,0) +Implementation Steps: +"BLD",7937,1,93,0) +1. If you don't have New Crop eRx installed, there won't be any effects. +"BLD",7937,1,94,0) +The C0Q code will behave like before. +"BLD",7937,1,95,0) +2. If you don't have C0P*1.0*4 installed, again, the C0Q code will behave +"BLD",7937,1,96,0) +as before the patch. +"BLD",7937,1,97,0) +3. Once you install C0P*1.0*4 with this patch (C0Q*1.0*1), the code will +"BLD",7937,1,98,0) +loop through all Outpatients who have an ERx. The actual patients are +"BLD",7937,1,99,0) +determined via your outpatient parameters. If your parameters reference a +"BLD",7937,1,100,0) +clinic location that already has patients with ERxs, you don't need to do +"BLD",7937,1,101,0) +anything to make the code run. It will run automatically; and it's time +"BLD",7937,1,102,0) +consuming; before you run it though, make sure to do #4. +"BLD",7937,1,103,0) +4. In order for you to see a print out of the eRx measures, you +"BLD",7937,1,104,0) +need to add the Measure MU EP ERX to the Measure Set used in the EP MU +"BLD",7937,1,105,0) +MEASUREMENT SET field in your Outpatient Parameters. You must do this +"BLD",7937,1,106,0) +before you run this for the first time. +"BLD",7937,1,107,0) + +"BLD",7937,1,108,0) +Example of Set-up: +"BLD",7937,1,109,0) + +"BLD",7937,1,110,0) +Select QUALITY MEASUREMENT MENU Option: ? +"BLD",7937,1,111,0) + +"BLD",7937,1,112,0) + COPY OVER PATIENT LISTS +"BLD",7937,1,113,0) + ED-1 COMPUTATION +"BLD",7937,1,114,0) + ED-2 COMPUTATION +"BLD",7937,1,115,0) + EP UPDATE MU MEASURES +"BLD",7937,1,116,0) + INP UPDATE MU MEASURES +"BLD",7937,1,117,0) + PQRI MENU ... +"BLD",7937,1,118,0) + PQRI PRINT XML +"BLD",7937,1,119,0) + PRINT C0Q MEASURES +"BLD",7937,1,120,0) + QRDA MENU ... +"BLD",7937,1,121,0) + SETUP QUALITY REPORTING ... +"BLD",7937,1,122,0) + +"BLD",7937,1,123,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"BLD",7937,1,124,0) +text. +"BLD",7937,1,125,0) + +"BLD",7937,1,126,0) +Select QUALITY MEASUREMENT MENU Option: setUP QUALITY REPORTING +"BLD",7937,1,127,0) + +"BLD",7937,1,128,0) +Select SETUP QUALITY REPORTING Option: ? +"BLD",7937,1,129,0) + +"BLD",7937,1,130,0) + DISPLAY QUALITY MEASURES +"BLD",7937,1,131,0) + EDIT SUPERUSERS +"BLD",7937,1,132,0) + EP EDIT PARMS +"BLD",7937,1,133,0) + INP EDIT PARMS +"BLD",7937,1,134,0) + MEASURE SET EDIT +"BLD",7937,1,135,0) + MU MEASURE EDIT +"BLD",7937,1,136,0) + QUALITY MEASURE EDIT +"BLD",7937,1,137,0) + +"BLD",7937,1,138,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"BLD",7937,1,139,0) +text. +"BLD",7937,1,140,0) + +"BLD",7937,1,141,0) +Select SETUP QUALITY REPORTING Option: ep edit PARMS +"BLD",7937,1,142,0) + +"BLD",7937,1,143,0) +Select C0Q PARAMETER NAME: OUTPATIENT +"BLD",7937,1,144,0) +NAME: OUTPATIENT// +"BLD",7937,1,145,0) +MEASUREMENT PERIOD KEY: MU12// +"BLD",7937,1,146,0) +PARAMETER TYPE: OUTPATIENT// +"BLD",7937,1,147,0) +EP MU MEASUREMENT SET: OUTPATIENT MEASURE SET// +"BLD",7937,1,148,0) +EP QUALITY MEASUREMENT SET: +"BLD",7937,1,149,0) +Select CLINIC: DR OFFICE// +"BLD",7937,1,150,0) +PATIENT LIST LABEL: +"BLD",7937,1,151,0) +Select SUBSCRIBER: +"BLD",7937,1,152,0) + +"BLD",7937,1,153,0) +Select C0Q PARAMETER NAME: +"BLD",7937,1,154,0) + +"BLD",7937,1,155,0) +Select SETUP QUALITY REPORTING Option: measure set EDIT +"BLD",7937,1,156,0) + +"BLD",7937,1,157,0) +Select C0Q MEASUREMENT SET NAME: outpaTIENT MEASURE SET +"BLD",7937,1,158,0) +NAME: OUTPATIENT MEASURE SET Replace +"BLD",7937,1,159,0) +BEGIN DATE: JUN 12,2001// +"BLD",7937,1,160,0) +END DATE: MAY 25,2012// +"BLD",7937,1,161,0) +LOCKED: +"BLD",7937,1,162,0) +MU YEAR KEY: MU12// +"BLD",7937,1,163,0) +QRDA TEMPLATE ROOT: +"BLD",7937,1,164,0) +Select MEASURE: MU EP ERX// +"BLD",7937,1,165,0) + MEASURE: MU EP ERX// +"BLD",7937,1,166,0) + NUMERATOR FILTER LIST: +"BLD",7937,1,167,0) + DENOMINATOR FILTER LIST: +"BLD",7937,1,168,0) +Select MEASURE: +"BLD",7937,1,169,0) + +"BLD",7937,1,170,0) +Select C0Q MEASUREMENT SET NAME: +"BLD",7937,1,171,0) + +"BLD",7937,1,172,0) +Select SETUP QUALITY REPORTING Option: +"BLD",7937,1,173,0) + +"BLD",7937,1,174,0) +Select QUALITY MEASUREMENT MENU Option: ? +"BLD",7937,1,175,0) + +"BLD",7937,1,176,0) + COPY OVER PATIENT LISTS +"BLD",7937,1,177,0) + ED-1 COMPUTATION +"BLD",7937,1,178,0) + ED-2 COMPUTATION +"BLD",7937,1,179,0) + EP UPDATE MU MEASURES +"BLD",7937,1,180,0) + INP UPDATE MU MEASURES +"BLD",7937,1,181,0) + PQRI MENU ... +"BLD",7937,1,182,0) + PQRI PRINT XML +"BLD",7937,1,183,0) + PRINT C0Q MEASURES +"BLD",7937,1,184,0) + QRDA MENU ... +"BLD",7937,1,185,0) + SETUP QUALITY REPORTING ... +"BLD",7937,1,186,0) + +"BLD",7937,1,187,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"BLD",7937,1,188,0) +text. +"BLD",7937,1,189,0) + +"BLD",7937,1,190,0) +Select QUALITY MEASUREMENT MENU Option: ep updATE MU MEASURES +"BLD",7937,1,191,0) +Sep 16, 2012@86:54:61 +"BLD",7937,1,192,0) +Jan 03, 2008@80:85:41 +"BLD",7937,1,193,0) +Jan 01, 2008@81:59:42 +"BLD",7937,1,194,0) +Nov 25, 2005@86:89:76 +"BLD",7937,1,195,0) +Nov 25, 2005@85:87:58 +"BLD",7937,1,196,0) +Nov 24, 2005@79:68:87 +"BLD",7937,1,197,0) +Aug 01, 2005@91:59:64 +"BLD",7937,1,198,0) +Aug 2005@84:91:51 +"BLD",7937,1,199,0) +Aug 2005@84:78:82 +"BLD",7937,1,200,0) +Jul 28, 2005@88:55:64 +"BLD",7937,1,201,0) +Jul 28, 2005@88:46:85 +"BLD",7937,1,202,0) +Jul 28, 2005@87:95:55 +"BLD",7937,1,203,0) +Jul 27, 2005@87:79:80 +"BLD",7937,1,204,0) +Jul 27, 2005@83:83:97 +"BLD",7937,1,205,0) +Jul 26, 2005@88:78:96 +"BLD",7937,1,206,0) +Jul 26, 2005@88:75:45 +"BLD",7937,1,207,0) +Jul 26, 2005@88:58:60 +"BLD",7937,1,208,0) +Jul 26, 2005@88:52:62 +"BLD",7937,1,209,0) +Jul 26, 2005@88:50:59 +"BLD",7937,1,210,0) +Jul 26, 2005@88:49:74 +"BLD",7937,1,211,0) +Jul 26, 2005@84:54:55 +"BLD",7937,1,212,0) +Jul 24, 2005@91:62:76 +"BLD",7937,1,213,0) +Jul 23, 2005@88:98:45 +"BLD",7937,1,214,0) +Jul 23, 2005@85:77:89 +"BLD",7937,1,215,0) +Jul 23, 2005@83:77:71 +"BLD",7937,1,216,0) +Jul 23, 2005@82:82:99 +"BLD",7937,1,217,0) +Jul 23, 2005@82:66:61 +"BLD",7937,1,218,0) +Jul 22, 2005@83:85:46 +"BLD",7937,1,219,0) +Jul 22, 2005@82:82:92 +"BLD",7937,1,220,0) +Jul 22, 2005@82:75:99 +"BLD",7937,1,221,0) +Jul 21, 2005@89:50:71 +"BLD",7937,1,222,0) +Jul 21, 2005@83:53:48 +"BLD",7937,1,223,0) +Jul 20, 2005@91:43:44 +"BLD",7937,1,224,0) +Jul 20, 2005@87:89:46 +"BLD",7937,1,225,0) +Jul 20, 2005@84:60:78 +"BLD",7937,1,226,0) +Jul 20, 2005@84:60:71 +"BLD",7937,1,227,0) +Jul 19, 2005@89:92:54 +"BLD",7937,1,228,0) +Jul 19, 2005@89:55:97 +"BLD",7937,1,229,0) +Jul 18, 2005@92:58:51 +"BLD",7937,1,230,0) +Jul 18, 2005@91:47:87 +"BLD",7937,1,231,0) +Jul 18, 2005@88:67:86 +"BLD",7937,1,232,0) +Jul 18, 2005@88:63:92 +"BLD",7937,1,233,0) +Jul 18, 2005@86:64:88 +"BLD",7937,1,234,0) +Jul 18, 2005@84:56:82 +"BLD",7937,1,235,0) +Jul 18, 2005@84:45:52 +"BLD",7937,1,236,0) +Jul 17, 2005@82:42:51 +"BLD",7937,1,237,0) +Jul 14, 2005@84:00 +"BLD",7937,1,238,0) +Jul 07, 2005@86:97 +"BLD",7937,1,239,0) +Jul 2005@85:62:77B index passed +"BLD",7937,1,240,0) +4 +"BLD",7937,1,241,0) +Calling GETMEDS6 SOAP Web Service Call for 4 +"BLD",7937,1,242,0) +Patient 4 Rx 1 +"BLD",7937,1,243,0) +DeaClassCode: 0 +"BLD",7937,1,244,0) +PharmacyType: 1 +"BLD",7937,1,245,0) +PharmacyDetailType: 1 +"BLD",7937,1,246,0) +FinalDestinationType: 2 +"BLD",7937,1,247,0) +FinalStatusType: 2 +"BLD",7937,1,248,0) +Patient 4 Rx 2 +"BLD",7937,1,249,0) +DeaClassCode: 0 +"BLD",7937,1,250,0) +PharmacyType: 0 +"BLD",7937,1,251,0) +Patient 4 Rx 3 +"BLD",7937,1,252,0) +DeaClassCode: 0 +"BLD",7937,1,253,0) +PharmacyType: 1 +"BLD",7937,1,254,0) +PharmacyDetailType: 1 +"BLD",7937,1,255,0) +FinalDestinationType: 2 +"BLD",7937,1,256,0) +FinalStatusType: 2 +"BLD",7937,1,257,0) +Patient 4 Rx 4 +"BLD",7937,1,258,0) +DeaClassCode: 0 +"BLD",7937,1,259,0) +PharmacyType: 0 +"BLD",7937,1,260,0) +IENs ?+14,1,17, ready to file +"BLD",7937,1,261,0) +Saving ERXDEN of 0 for Patient MOUSE,MICKEY (4) +"BLD",7937,1,262,0) +Fileman Data Array +"BLD",7937,1,263,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXDEN +"BLD",7937,1,264,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"BLD",7937,1,265,0) +Patient 4 Rx 1 +"BLD",7937,1,266,0) +DeaClassCode: 0 +"BLD",7937,1,267,0) +PharmacyType: 1 +"BLD",7937,1,268,0) +PharmacyDetailType: 1 +"BLD",7937,1,269,0) +FinalDestinationType: 2 +"BLD",7937,1,270,0) +Patient 4 Rx 2 +"BLD",7937,1,271,0) +DeaClassCode: 0 +"BLD",7937,1,272,0) +PharmacyType: 0 +"BLD",7937,1,273,0) +Patient 4 Rx 3 +"BLD",7937,1,274,0) +DeaClassCode: 0 +"BLD",7937,1,275,0) +PharmacyType: 1 +"BLD",7937,1,276,0) +PharmacyDetailType: 1 +"BLD",7937,1,277,0) +FinalDestinationType: 2 +"BLD",7937,1,278,0) +Patient 4 Rx 4 +"BLD",7937,1,279,0) +DeaClassCode: 0 +"BLD",7937,1,280,0) +PharmacyType: 0 +"BLD",7937,1,281,0) +IENs ?+14,1,17, ready to file +"BLD",7937,1,282,0) +Saving ERXNUM of 0 for Patient MOUSE,MICKEY (4) +"BLD",7937,1,283,0) +Fileman Data Array +"BLD",7937,1,284,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXNUM +"BLD",7937,1,285,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"BLD",7937,1,286,0) +C0QFDA(1130580001.2011,"1,7,",3)=100 +"BLD",7937,1,287,0) +Processing E-Prescribing Counts +"BLD",7937,1,288,0) +DFN Denominator Numerator +"BLD",7937,1,289,0) +4 0 0 +"BLD",7937,1,290,0) + === === +"BLD",7937,1,291,0) + 0 0 +"BLD",7937,4,0) +^9.64PA^1130580001.101^2 +"BLD",7937,4,1130580001.101,0) +1130580001.101 +"BLD",7937,4,1130580001.101,222) +y^y^f^^n^^y^o^n +"BLD",7937,4,1130580001.101,224) +I $P(^(0),U)="MU EP ERX" +"BLD",7937,4,1130580001.401,0) +1130580001.401 +"BLD",7937,4,1130580001.401,2,0) +^9.641^1130580001.401^1 +"BLD",7937,4,1130580001.401,2,1130580001.401,0) +C0Q PARAMETER (File-top level) +"BLD",7937,4,1130580001.401,2,1130580001.401,1,0) +^9.6411^2.1^2 +"BLD",7937,4,1130580001.401,2,1130580001.401,1,2,0) +EP MU MEASUREMENT SET +"BLD",7937,4,1130580001.401,2,1130580001.401,1,2.1,0) +EP QUALITY MEASUREMENT SET +"BLD",7937,4,1130580001.401,222) +y^n^p^^^^n^^n +"BLD",7937,4,1130580001.401,224) + +"BLD",7937,4,"APDD",1130580001.401,1130580001.401) + +"BLD",7937,4,"APDD",1130580001.401,1130580001.401,2) + +"BLD",7937,4,"APDD",1130580001.401,1130580001.401,2.1) + +"BLD",7937,4,"B",1130580001.101,1130580001.101) + +"BLD",7937,4,"B",1130580001.401,1130580001.401) + +"BLD",7937,6.3) +32 +"BLD",7937,"ABPKG") +n +"BLD",7937,"INIT") +POST^C0Q1P1 +"BLD",7937,"KRN",0) +^9.67PA^779.2^20 +"BLD",7937,"KRN",.4,0) +.4 +"BLD",7937,"KRN",.4,"NM",0) +^9.68A^^0 +"BLD",7937,"KRN",.401,0) +.401 +"BLD",7937,"KRN",.401,"NM",0) +^9.68A^^ +"BLD",7937,"KRN",.402,0) +.402 +"BLD",7937,"KRN",.402,"NM",0) +^9.68A^1^1 +"BLD",7937,"KRN",.402,"NM",1,0) +C0Q EDIT MU MEASURE FILE #1130580001.101^1130580001.101^0 +"BLD",7937,"KRN",.402,"NM","B","C0Q EDIT MU MEASURE FILE #1130580001.101",1) + +"BLD",7937,"KRN",.403,0) +.403 +"BLD",7937,"KRN",.5,0) +.5 +"BLD",7937,"KRN",.84,0) +.84 +"BLD",7937,"KRN",3.6,0) +3.6 +"BLD",7937,"KRN",3.8,0) +3.8 +"BLD",7937,"KRN",9.2,0) +9.2 +"BLD",7937,"KRN",9.8,0) +9.8 +"BLD",7937,"KRN",9.8,"NM",0) +^9.68A^3^3 +"BLD",7937,"KRN",9.8,"NM",1,0) +C0QMUERX^^0^B83723794 +"BLD",7937,"KRN",9.8,"NM",2,0) +C0QUPDT^^0^B78393601 +"BLD",7937,"KRN",9.8,"NM",3,0) +C0QMU12^^0^B266254568 +"BLD",7937,"KRN",9.8,"NM","B","C0QMU12",3) + +"BLD",7937,"KRN",9.8,"NM","B","C0QMUERX",1) + +"BLD",7937,"KRN",9.8,"NM","B","C0QUPDT",2) + +"BLD",7937,"KRN",19,0) +19 +"BLD",7937,"KRN",19,"NM",0) +^9.68A^^0 +"BLD",7937,"KRN",19.1,0) +19.1 +"BLD",7937,"KRN",101,0) +101 +"BLD",7937,"KRN",409.61,0) +409.61 +"BLD",7937,"KRN",771,0) +771 +"BLD",7937,"KRN",779.2,0) +779.2 +"BLD",7937,"KRN",870,0) +870 +"BLD",7937,"KRN",8989.51,0) +8989.51 +"BLD",7937,"KRN",8989.52,0) +8989.52 +"BLD",7937,"KRN",8994,0) +8994 +"BLD",7937,"KRN","B",.4,.4) + +"BLD",7937,"KRN","B",.401,.401) + +"BLD",7937,"KRN","B",.402,.402) + +"BLD",7937,"KRN","B",.403,.403) + +"BLD",7937,"KRN","B",.5,.5) + +"BLD",7937,"KRN","B",.84,.84) + +"BLD",7937,"KRN","B",3.6,3.6) + +"BLD",7937,"KRN","B",3.8,3.8) + +"BLD",7937,"KRN","B",9.2,9.2) + +"BLD",7937,"KRN","B",9.8,9.8) + +"BLD",7937,"KRN","B",19,19) + +"BLD",7937,"KRN","B",19.1,19.1) + +"BLD",7937,"KRN","B",101,101) + +"BLD",7937,"KRN","B",409.61,409.61) + +"BLD",7937,"KRN","B",771,771) + +"BLD",7937,"KRN","B",779.2,779.2) + +"BLD",7937,"KRN","B",870,870) + +"BLD",7937,"KRN","B",8989.51,8989.51) + +"BLD",7937,"KRN","B",8989.52,8989.52) + +"BLD",7937,"KRN","B",8994,8994) + +"BLD",7937,"QDEF") +^^^^NO^^^^NO^^NO +"BLD",7937,"QUES",0) +^9.62^^ +"BLD",7937,"REQB",0) +^9.611^1^1 +"BLD",7937,"REQB",1,0) +QUALITY MEASURES 1.0^2 +"BLD",7937,"REQB","B","QUALITY MEASURES 1.0",1) + +"DATA",1130580001.101,104,0) +MU EP ERX^^^^E +"DATA",1130580001.101,104,1) +More than 40% of all permissible prescriptions written by the EP are transmitted electronically using certified EHR technology. +"DATA",1130580001.101,104,5) +Eligibile Prescriptions transmitted electronically +"DATA",1130580001.101,104,6,0) +^1130580001.111^6^6^3120614^^^ +"DATA",1130580001.101,104,6,1,0) +Final Rule Text: § 170.304(b). +"DATA",1130580001.101,104,6,2,0) +Electronic prescribing. Enable a user to electronically generate +"DATA",1130580001.101,104,6,3,0) +and transmit prescriptions and prescription-related information +"DATA",1130580001.101,104,6,4,0) +in accordance with: +"DATA",1130580001.101,104,6,5,0) +(1) The standard specified in § 170.205(b)(1) or § 170.205(b)(2); and +"DATA",1130580001.101,104,6,6,0) +(2) The standard specified in 170.207(d). +"DATA",1130580001.101,104,7) +^^^^^MU12 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^n^^y^o^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) +I $P(^(0),U)="MU EP ERX" +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^n^p^^^^n^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +1 +"FIA",1130580001.401,1130580001.401,2) + +"FIA",1130580001.401,1130580001.401,2.1) + +"INIT") +POST^C0Q1P1 +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^739 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",.402,1746,-1) +0^1 +"KRN",.402,1746,0) +C0Q EDIT MU MEASURE^3120917.1335^@^1130580001.101^^@^3120614 +"KRN",.402,1746,"DR",1,1130580001.101) +.01;4;.3;.5;.61;.7;.8;1.1;2.1; +"MBREQ") +0 +"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 +"PKG",213,-1) +1^1 +"PKG",213,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",213,20,0) +^9.402P^^ +"PKG",213,22,0) +^9.49I^1^1 +"PKG",213,22,1,0) +1.0^3120731^3120614^8 +"PKG",213,22,1,"PAH",1,0) +1^3120917 +"PKG",213,22,1,"PAH",1,1,0) +^^291^291^3120917 +"PKG",213,22,1,"PAH",1,1,1,0) +ePrescribing MU measure in this package. +"PKG",213,22,1,"PAH",1,1,2,0) + +"PKG",213,22,1,"PAH",1,1,3,0) +Dependencies: +"PKG",213,22,1,"PAH",1,1,4,0) +This build requires C0P*1*4 for the new WebService entry that gets MU +"PKG",213,22,1,"PAH",1,1,5,0) +data from New Crop. +"PKG",213,22,1,"PAH",1,1,6,0) +This build requires the base C0Q 1.0 to be installed. +"PKG",213,22,1,"PAH",1,1,7,0) + +"PKG",213,22,1,"PAH",1,1,8,0) +This build performs the following: +"PKG",213,22,1,"PAH",1,1,9,0) +Routines: +"PKG",213,22,1,"PAH",1,1,10,0) +1. Adds routine C0QMUERX for calculation of ePrescribing stats. +"PKG",213,22,1,"PAH",1,1,11,0) +2. Mods routine C0QMU12 to call C0QMUERX for the ERX measure for +"PKG",213,22,1,"PAH",1,1,12,0) +Outpatients. +"PKG",213,22,1,"PAH",1,1,13,0) +3. Mods routine C0QUPDT to handle the special case of ePrescribing stats. +"PKG",213,22,1,"PAH",1,1,14,0) +Also, some checks and quits so that we won't crash if no patient lists +"PKG",213,22,1,"PAH",1,1,15,0) +are associated with the measure. +"PKG",213,22,1,"PAH",1,1,16,0) + +"PKG",213,22,1,"PAH",1,1,17,0) +Data Dictionary: +"PKG",213,22,1,"PAH",1,1,18,0) +1. File C0Q PARAMETER has two new indexes: +"PKG",213,22,1,"PAH",1,1,19,0) + AMMS REGULAR +"PKG",213,22,1,"PAH",1,1,20,0) + Field: EP MU MEASUREMENT SET (1130580001.401,2) +"PKG",213,22,1,"PAH",1,1,21,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"PKG",213,22,1,"PAH",1,1,22,0) + walk back to a parameter when processing a specific IEN. +"PKG",213,22,1,"PAH",1,1,23,0) + +"PKG",213,22,1,"PAH",1,1,24,0) + You can get the IEN of the measurement set using +"PKG",213,22,1,"PAH",1,1,25,0) + $O(^C0Q(401,"AMMS",MSIEN,"")). +"PKG",213,22,1,"PAH",1,1,26,0) + 1)= S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"PKG",213,22,1,"PAH",1,1,27,0) + 2)= K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"PKG",213,22,1,"PAH",1,1,28,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"PKG",213,22,1,"PAH",1,1,29,0) + +"PKG",213,22,1,"PAH",1,1,30,0) + AQMS REGULAR +"PKG",213,22,1,"PAH",1,1,31,0) + Field: EP QUALITY MEASUREMENT SET (1130580001.401,2.1) +"PKG",213,22,1,"PAH",1,1,32,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"PKG",213,22,1,"PAH",1,1,33,0) + walk back to a parameter when processing a specific IEN. +"PKG",213,22,1,"PAH",1,1,34,0) + +"PKG",213,22,1,"PAH",1,1,35,0) + You can get the IEN of the measurement set using +"PKG",213,22,1,"PAH",1,1,36,0) + $O(^C0Q(401,"AQMS",MSIEN,"")). +"PKG",213,22,1,"PAH",1,1,37,0) + 1)= S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"PKG",213,22,1,"PAH",1,1,38,0) + 2)= K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"PKG",213,22,1,"PAH",1,1,39,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"PKG",213,22,1,"PAH",1,1,40,0) + +"PKG",213,22,1,"PAH",1,1,41,0) +2. File C0Q QUALITY MEASURE has a new field, MEASURE TYPE (#4): +"PKG",213,22,1,"PAH",1,1,42,0) + +"PKG",213,22,1,"PAH",1,1,43,0) +1130580001.101,4MEASURE TYPE 0;5 SET +"PKG",213,22,1,"PAH",1,1,44,0) + +"PKG",213,22,1,"PAH",1,1,45,0) + 'P' FOR Performance; +"PKG",213,22,1,"PAH",1,1,46,0) + 'Q' FOR Quality; +"PKG",213,22,1,"PAH",1,1,47,0) + 'E' FOR Electronic Prescribing Performance; +"PKG",213,22,1,"PAH",1,1,48,0) + LAST EDITED: MAY 30, 2012 +"PKG",213,22,1,"PAH",1,1,49,0) + HELP-PROMPT: Enter a code P, Q or E +"PKG",213,22,1,"PAH",1,1,50,0) + DESCRIPTION: This field designates the measure type. It can +"PKG",213,22,1,"PAH",1,1,51,0) + be P, Q or M. +"PKG",213,22,1,"PAH",1,1,52,0) + +"PKG",213,22,1,"PAH",1,1,53,0) + P is for Performance. Performance measures are +"PKG",213,22,1,"PAH",1,1,54,0) + MU measures to measure how meaningfully used an +"PKG",213,22,1,"PAH",1,1,55,0) + EMR is. An example of a performance measure is +"PKG",213,22,1,"PAH",1,1,56,0) + whether allergies are documented in the EMR. +"PKG",213,22,1,"PAH",1,1,57,0) + Performance measures reference a Patient List +"PKG",213,22,1,"PAH",1,1,58,0) + created by this package. +"PKG",213,22,1,"PAH",1,1,59,0) + +"PKG",213,22,1,"PAH",1,1,60,0) + Q is for Quality Measures. Quality measures are +"PKG",213,22,1,"PAH",1,1,61,0) + MU measures to assess how well the patients are +"PKG",213,22,1,"PAH",1,1,62,0) + cared for. An example of a quality measure is +"PKG",213,22,1,"PAH",1,1,63,0) + whether Hemoglobin A1c Poor Control. Quality +"PKG",213,22,1,"PAH",1,1,64,0) + measures reference Patient Lists in the +"PKG",213,22,1,"PAH",1,1,65,0) + Reminders package. +"PKG",213,22,1,"PAH",1,1,66,0) + +"PKG",213,22,1,"PAH",1,1,67,0) + E is for Electronic Prescribing. This is a +"PKG",213,22,1,"PAH",1,1,68,0) + Performance measure, except that it is handled +"PKG",213,22,1,"PAH",1,1,69,0) + differently than the rest. Instead of the +"PKG",213,22,1,"PAH",1,1,70,0) + numerators and denominators being lists of +"PKG",213,22,1,"PAH",1,1,71,0) + patients as with all the other measurements, +"PKG",213,22,1,"PAH",1,1,72,0) + they are a number of prescriptions. That's why +"PKG",213,22,1,"PAH",1,1,73,0) + we have a special flag for it. It references a +"PKG",213,22,1,"PAH",1,1,74,0) + Patient List created by this package. The +"PKG",213,22,1,"PAH",1,1,75,0) + numerator and denominators are stored in +"PKG",213,22,1,"PAH",1,1,76,0) + subfiles for each patient. +"PKG",213,22,1,"PAH",1,1,77,0) + +"PKG",213,22,1,"PAH",1,1,78,0) + TECHNICAL DESCR: As of version C0P*1.0*1, the software doesn't +"PKG",213,22,1,"PAH",1,1,79,0) + use this field except to check for an +"PKG",213,22,1,"PAH",1,1,80,0) + electronic prescribing type (code E). +"PKG",213,22,1,"PAH",1,1,81,0) + +"PKG",213,22,1,"PAH",1,1,82,0) + I anticipate using this field for other +"PKG",213,22,1,"PAH",1,1,83,0) + purposes in the future. +"PKG",213,22,1,"PAH",1,1,84,0) + +"PKG",213,22,1,"PAH",1,1,85,0) +INPUT TEMPLATE: +"PKG",213,22,1,"PAH",1,1,86,0) +C0Q EDIT MU MEASURE adds the new field MEASURE TYPE mentioned above. +"PKG",213,22,1,"PAH",1,1,87,0) + +"PKG",213,22,1,"PAH",1,1,88,0) +DATA: +"PKG",213,22,1,"PAH",1,1,89,0) +The entry MU EP ERX for processing ePrescribing stats in C0Q QUALITY +"PKG",213,22,1,"PAH",1,1,90,0) +MEASURE is sent to destination sites. +"PKG",213,22,1,"PAH",1,1,91,0) + +"PKG",213,22,1,"PAH",1,1,92,0) +Implementation Steps: +"PKG",213,22,1,"PAH",1,1,93,0) +1. If you don't have New Crop eRx installed, there won't be any effects. +"PKG",213,22,1,"PAH",1,1,94,0) +The C0Q code will behave like before. +"PKG",213,22,1,"PAH",1,1,95,0) +2. If you don't have C0P*1.0*4 installed, again, the C0Q code will behave +"PKG",213,22,1,"PAH",1,1,96,0) +as before the patch. +"PKG",213,22,1,"PAH",1,1,97,0) +3. Once you install C0P*1.0*4 with this patch (C0Q*1.0*1), the code will +"PKG",213,22,1,"PAH",1,1,98,0) +loop through all Outpatients who have an ERx. The actual patients are +"PKG",213,22,1,"PAH",1,1,99,0) +determined via your outpatient parameters. If your parameters reference a +"PKG",213,22,1,"PAH",1,1,100,0) +clinic location that already has patients with ERxs, you don't need to do +"PKG",213,22,1,"PAH",1,1,101,0) +anything to make the code run. It will run automatically; and it's time +"PKG",213,22,1,"PAH",1,1,102,0) +consuming; before you run it though, make sure to do #4. +"PKG",213,22,1,"PAH",1,1,103,0) +4. In order for you to see a print out of the eRx measures, you +"PKG",213,22,1,"PAH",1,1,104,0) +need to add the Measure MU EP ERX to the Measure Set used in the EP MU +"PKG",213,22,1,"PAH",1,1,105,0) +MEASUREMENT SET field in your Outpatient Parameters. You must do this +"PKG",213,22,1,"PAH",1,1,106,0) +before you run this for the first time. +"PKG",213,22,1,"PAH",1,1,107,0) + +"PKG",213,22,1,"PAH",1,1,108,0) +Example of Set-up: +"PKG",213,22,1,"PAH",1,1,109,0) + +"PKG",213,22,1,"PAH",1,1,110,0) +Select QUALITY MEASUREMENT MENU Option: ? +"PKG",213,22,1,"PAH",1,1,111,0) + +"PKG",213,22,1,"PAH",1,1,112,0) + COPY OVER PATIENT LISTS +"PKG",213,22,1,"PAH",1,1,113,0) + ED-1 COMPUTATION +"PKG",213,22,1,"PAH",1,1,114,0) + ED-2 COMPUTATION +"PKG",213,22,1,"PAH",1,1,115,0) + EP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,116,0) + INP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,117,0) + PQRI MENU ... +"PKG",213,22,1,"PAH",1,1,118,0) + PQRI PRINT XML +"PKG",213,22,1,"PAH",1,1,119,0) + PRINT C0Q MEASURES +"PKG",213,22,1,"PAH",1,1,120,0) + QRDA MENU ... +"PKG",213,22,1,"PAH",1,1,121,0) + SETUP QUALITY REPORTING ... +"PKG",213,22,1,"PAH",1,1,122,0) + +"PKG",213,22,1,"PAH",1,1,123,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"PKG",213,22,1,"PAH",1,1,124,0) +text. +"PKG",213,22,1,"PAH",1,1,125,0) + +"PKG",213,22,1,"PAH",1,1,126,0) +Select QUALITY MEASUREMENT MENU Option: setUP QUALITY REPORTING +"PKG",213,22,1,"PAH",1,1,127,0) + +"PKG",213,22,1,"PAH",1,1,128,0) +Select SETUP QUALITY REPORTING Option: ? +"PKG",213,22,1,"PAH",1,1,129,0) + +"PKG",213,22,1,"PAH",1,1,130,0) + DISPLAY QUALITY MEASURES +"PKG",213,22,1,"PAH",1,1,131,0) + EDIT SUPERUSERS +"PKG",213,22,1,"PAH",1,1,132,0) + EP EDIT PARMS +"PKG",213,22,1,"PAH",1,1,133,0) + INP EDIT PARMS +"PKG",213,22,1,"PAH",1,1,134,0) + MEASURE SET EDIT +"PKG",213,22,1,"PAH",1,1,135,0) + MU MEASURE EDIT +"PKG",213,22,1,"PAH",1,1,136,0) + QUALITY MEASURE EDIT +"PKG",213,22,1,"PAH",1,1,137,0) + +"PKG",213,22,1,"PAH",1,1,138,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"PKG",213,22,1,"PAH",1,1,139,0) +text. +"PKG",213,22,1,"PAH",1,1,140,0) + +"PKG",213,22,1,"PAH",1,1,141,0) +Select SETUP QUALITY REPORTING Option: ep edit PARMS +"PKG",213,22,1,"PAH",1,1,142,0) + +"PKG",213,22,1,"PAH",1,1,143,0) +Select C0Q PARAMETER NAME: OUTPATIENT +"PKG",213,22,1,"PAH",1,1,144,0) +NAME: OUTPATIENT// +"PKG",213,22,1,"PAH",1,1,145,0) +MEASUREMENT PERIOD KEY: MU12// +"PKG",213,22,1,"PAH",1,1,146,0) +PARAMETER TYPE: OUTPATIENT// +"PKG",213,22,1,"PAH",1,1,147,0) +EP MU MEASUREMENT SET: OUTPATIENT MEASURE SET// +"PKG",213,22,1,"PAH",1,1,148,0) +EP QUALITY MEASUREMENT SET: +"PKG",213,22,1,"PAH",1,1,149,0) +Select CLINIC: DR OFFICE// +"PKG",213,22,1,"PAH",1,1,150,0) +PATIENT LIST LABEL: +"PKG",213,22,1,"PAH",1,1,151,0) +Select SUBSCRIBER: +"PKG",213,22,1,"PAH",1,1,152,0) + +"PKG",213,22,1,"PAH",1,1,153,0) +Select C0Q PARAMETER NAME: +"PKG",213,22,1,"PAH",1,1,154,0) + +"PKG",213,22,1,"PAH",1,1,155,0) +Select SETUP QUALITY REPORTING Option: measure set EDIT +"PKG",213,22,1,"PAH",1,1,156,0) + +"PKG",213,22,1,"PAH",1,1,157,0) +Select C0Q MEASUREMENT SET NAME: outpaTIENT MEASURE SET +"PKG",213,22,1,"PAH",1,1,158,0) +NAME: OUTPATIENT MEASURE SET Replace +"PKG",213,22,1,"PAH",1,1,159,0) +BEGIN DATE: JUN 12,2001// +"PKG",213,22,1,"PAH",1,1,160,0) +END DATE: MAY 25,2012// +"PKG",213,22,1,"PAH",1,1,161,0) +LOCKED: +"PKG",213,22,1,"PAH",1,1,162,0) +MU YEAR KEY: MU12// +"PKG",213,22,1,"PAH",1,1,163,0) +QRDA TEMPLATE ROOT: +"PKG",213,22,1,"PAH",1,1,164,0) +Select MEASURE: MU EP ERX// +"PKG",213,22,1,"PAH",1,1,165,0) + MEASURE: MU EP ERX// +"PKG",213,22,1,"PAH",1,1,166,0) + NUMERATOR FILTER LIST: +"PKG",213,22,1,"PAH",1,1,167,0) + DENOMINATOR FILTER LIST: +"PKG",213,22,1,"PAH",1,1,168,0) +Select MEASURE: +"PKG",213,22,1,"PAH",1,1,169,0) + +"PKG",213,22,1,"PAH",1,1,170,0) +Select C0Q MEASUREMENT SET NAME: +"PKG",213,22,1,"PAH",1,1,171,0) + +"PKG",213,22,1,"PAH",1,1,172,0) +Select SETUP QUALITY REPORTING Option: +"PKG",213,22,1,"PAH",1,1,173,0) + +"PKG",213,22,1,"PAH",1,1,174,0) +Select QUALITY MEASUREMENT MENU Option: ? +"PKG",213,22,1,"PAH",1,1,175,0) + +"PKG",213,22,1,"PAH",1,1,176,0) + COPY OVER PATIENT LISTS +"PKG",213,22,1,"PAH",1,1,177,0) + ED-1 COMPUTATION +"PKG",213,22,1,"PAH",1,1,178,0) + ED-2 COMPUTATION +"PKG",213,22,1,"PAH",1,1,179,0) + EP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,180,0) + INP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,181,0) + PQRI MENU ... +"PKG",213,22,1,"PAH",1,1,182,0) + PQRI PRINT XML +"PKG",213,22,1,"PAH",1,1,183,0) + PRINT C0Q MEASURES +"PKG",213,22,1,"PAH",1,1,184,0) + QRDA MENU ... +"PKG",213,22,1,"PAH",1,1,185,0) + SETUP QUALITY REPORTING ... +"PKG",213,22,1,"PAH",1,1,186,0) + +"PKG",213,22,1,"PAH",1,1,187,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"PKG",213,22,1,"PAH",1,1,188,0) +text. +"PKG",213,22,1,"PAH",1,1,189,0) + +"PKG",213,22,1,"PAH",1,1,190,0) +Select QUALITY MEASUREMENT MENU Option: ep updATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,191,0) +Sep 16, 2012@86:54:61 +"PKG",213,22,1,"PAH",1,1,192,0) +Jan 03, 2008@80:85:41 +"PKG",213,22,1,"PAH",1,1,193,0) +Jan 01, 2008@81:59:42 +"PKG",213,22,1,"PAH",1,1,194,0) +Nov 25, 2005@86:89:76 +"PKG",213,22,1,"PAH",1,1,195,0) +Nov 25, 2005@85:87:58 +"PKG",213,22,1,"PAH",1,1,196,0) +Nov 24, 2005@79:68:87 +"PKG",213,22,1,"PAH",1,1,197,0) +Aug 01, 2005@91:59:64 +"PKG",213,22,1,"PAH",1,1,198,0) +Aug 2005@84:91:51 +"PKG",213,22,1,"PAH",1,1,199,0) +Aug 2005@84:78:82 +"PKG",213,22,1,"PAH",1,1,200,0) +Jul 28, 2005@88:55:64 +"PKG",213,22,1,"PAH",1,1,201,0) +Jul 28, 2005@88:46:85 +"PKG",213,22,1,"PAH",1,1,202,0) +Jul 28, 2005@87:95:55 +"PKG",213,22,1,"PAH",1,1,203,0) +Jul 27, 2005@87:79:80 +"PKG",213,22,1,"PAH",1,1,204,0) +Jul 27, 2005@83:83:97 +"PKG",213,22,1,"PAH",1,1,205,0) +Jul 26, 2005@88:78:96 +"PKG",213,22,1,"PAH",1,1,206,0) +Jul 26, 2005@88:75:45 +"PKG",213,22,1,"PAH",1,1,207,0) +Jul 26, 2005@88:58:60 +"PKG",213,22,1,"PAH",1,1,208,0) +Jul 26, 2005@88:52:62 +"PKG",213,22,1,"PAH",1,1,209,0) +Jul 26, 2005@88:50:59 +"PKG",213,22,1,"PAH",1,1,210,0) +Jul 26, 2005@88:49:74 +"PKG",213,22,1,"PAH",1,1,211,0) +Jul 26, 2005@84:54:55 +"PKG",213,22,1,"PAH",1,1,212,0) +Jul 24, 2005@91:62:76 +"PKG",213,22,1,"PAH",1,1,213,0) +Jul 23, 2005@88:98:45 +"PKG",213,22,1,"PAH",1,1,214,0) +Jul 23, 2005@85:77:89 +"PKG",213,22,1,"PAH",1,1,215,0) +Jul 23, 2005@83:77:71 +"PKG",213,22,1,"PAH",1,1,216,0) +Jul 23, 2005@82:82:99 +"PKG",213,22,1,"PAH",1,1,217,0) +Jul 23, 2005@82:66:61 +"PKG",213,22,1,"PAH",1,1,218,0) +Jul 22, 2005@83:85:46 +"PKG",213,22,1,"PAH",1,1,219,0) +Jul 22, 2005@82:82:92 +"PKG",213,22,1,"PAH",1,1,220,0) +Jul 22, 2005@82:75:99 +"PKG",213,22,1,"PAH",1,1,221,0) +Jul 21, 2005@89:50:71 +"PKG",213,22,1,"PAH",1,1,222,0) +Jul 21, 2005@83:53:48 +"PKG",213,22,1,"PAH",1,1,223,0) +Jul 20, 2005@91:43:44 +"PKG",213,22,1,"PAH",1,1,224,0) +Jul 20, 2005@87:89:46 +"PKG",213,22,1,"PAH",1,1,225,0) +Jul 20, 2005@84:60:78 +"PKG",213,22,1,"PAH",1,1,226,0) +Jul 20, 2005@84:60:71 +"PKG",213,22,1,"PAH",1,1,227,0) +Jul 19, 2005@89:92:54 +"PKG",213,22,1,"PAH",1,1,228,0) +Jul 19, 2005@89:55:97 +"PKG",213,22,1,"PAH",1,1,229,0) +Jul 18, 2005@92:58:51 +"PKG",213,22,1,"PAH",1,1,230,0) +Jul 18, 2005@91:47:87 +"PKG",213,22,1,"PAH",1,1,231,0) +Jul 18, 2005@88:67:86 +"PKG",213,22,1,"PAH",1,1,232,0) +Jul 18, 2005@88:63:92 +"PKG",213,22,1,"PAH",1,1,233,0) +Jul 18, 2005@86:64:88 +"PKG",213,22,1,"PAH",1,1,234,0) +Jul 18, 2005@84:56:82 +"PKG",213,22,1,"PAH",1,1,235,0) +Jul 18, 2005@84:45:52 +"PKG",213,22,1,"PAH",1,1,236,0) +Jul 17, 2005@82:42:51 +"PKG",213,22,1,"PAH",1,1,237,0) +Jul 14, 2005@84:00 +"PKG",213,22,1,"PAH",1,1,238,0) +Jul 07, 2005@86:97 +"PKG",213,22,1,"PAH",1,1,239,0) +Jul 2005@85:62:77B index passed +"PKG",213,22,1,"PAH",1,1,240,0) +4 +"PKG",213,22,1,"PAH",1,1,241,0) +Calling GETMEDS6 SOAP Web Service Call for 4 +"PKG",213,22,1,"PAH",1,1,242,0) +Patient 4 Rx 1 +"PKG",213,22,1,"PAH",1,1,243,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,244,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,245,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,246,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,247,0) +FinalStatusType: 2 +"PKG",213,22,1,"PAH",1,1,248,0) +Patient 4 Rx 2 +"PKG",213,22,1,"PAH",1,1,249,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,250,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,251,0) +Patient 4 Rx 3 +"PKG",213,22,1,"PAH",1,1,252,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,253,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,254,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,255,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,256,0) +FinalStatusType: 2 +"PKG",213,22,1,"PAH",1,1,257,0) +Patient 4 Rx 4 +"PKG",213,22,1,"PAH",1,1,258,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,259,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,260,0) +IENs ?+14,1,17, ready to file +"PKG",213,22,1,"PAH",1,1,261,0) +Saving ERXDEN of 0 for Patient MOUSE,MICKEY (4) +"PKG",213,22,1,"PAH",1,1,262,0) +Fileman Data Array +"PKG",213,22,1,"PAH",1,1,263,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXDEN +"PKG",213,22,1,"PAH",1,1,264,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"PKG",213,22,1,"PAH",1,1,265,0) +Patient 4 Rx 1 +"PKG",213,22,1,"PAH",1,1,266,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,267,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,268,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,269,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,270,0) +Patient 4 Rx 2 +"PKG",213,22,1,"PAH",1,1,271,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,272,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,273,0) +Patient 4 Rx 3 +"PKG",213,22,1,"PAH",1,1,274,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,275,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,276,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,277,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,278,0) +Patient 4 Rx 4 +"PKG",213,22,1,"PAH",1,1,279,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,280,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,281,0) +IENs ?+14,1,17, ready to file +"PKG",213,22,1,"PAH",1,1,282,0) +Saving ERXNUM of 0 for Patient MOUSE,MICKEY (4) +"PKG",213,22,1,"PAH",1,1,283,0) +Fileman Data Array +"PKG",213,22,1,"PAH",1,1,284,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXNUM +"PKG",213,22,1,"PAH",1,1,285,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"PKG",213,22,1,"PAH",1,1,286,0) +C0QFDA(1130580001.2011,"1,7,",3)=100 +"PKG",213,22,1,"PAH",1,1,287,0) +Processing E-Prescribing Counts +"PKG",213,22,1,"PAH",1,1,288,0) +DFN Denominator Numerator +"PKG",213,22,1,"PAH",1,1,289,0) +4 0 0 +"PKG",213,22,1,"PAH",1,1,290,0) + === === +"PKG",213,22,1,"PAH",1,1,291,0) + 0 0 +"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") +4 +"RTN","C0Q1P1") +0^^B541473 +"RTN","C0Q1P1",1,0) +C0Q1P1 ; VEN/SMH - Inits for Patch 1 ; 9/17/12 1:15pm +"RTN","C0Q1P1",2,0) + ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32 +"RTN","C0Q1P1",3,0) + ; +"RTN","C0Q1P1",4,0) +POST ; Post-Install hook for Patch 1; PEP +"RTN","C0Q1P1",5,0) + ; Fire off the new x-refs for entries in the parameter file +"RTN","C0Q1P1",6,0) + N C0QI S C0QI=0 ; Walk through starting with number 1 +"RTN","C0Q1P1",7,0) + F S C0QI=$O(^C0Q(401,C0QI)) Q:'C0QI D +"RTN","C0Q1P1",8,0) + . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2^AMMS",DA=C0QI D EN^DIK +"RTN","C0Q1P1",9,0) + . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2.1^AQMS",DA=C0QI D EN^DIK +"RTN","C0Q1P1",10,0) + QUIT +"RTN","C0QMU12") +0^3^B266254568 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 9/17/12 1:19pm +"RTN","C0QMU12",2,0) + ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",29,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",30,0) + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX +"RTN","C0QMU12",31,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",32,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",34,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX +"RTN","C0QMU12",36,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",37,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",38,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",40,0) + . D CLEAN^DILF +"RTN","C0QMU12",41,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",42,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",43,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",44,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",45,0) + ; +"RTN","C0QMU12",46,0) + Q +"RTN","C0QMU12",47,0) + ; +"RTN","C0QMU12",48,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",49,0) + ; patient lists +"RTN","C0QMU12",50,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",51,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",52,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",53,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",54,0) + S ZYR="MU12-" +"RTN","C0QMU12",55,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",56,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",57,0) + N C0QPARM +"RTN","C0QMU12",58,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",59,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",60,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",61,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",62,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",63,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",64,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",65,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",66,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",67,0) + . I C0QPL D ; +"RTN","C0QMU12",68,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",69,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",70,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",71,0) + . K C0QLIST +"RTN","C0QMU12",72,0) + Q +"RTN","C0QMU12",73,0) + ; +"RTN","C0QMU12",74,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",75,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",76,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",77,0) + ; will be zeroed out +"RTN","C0QMU12",78,0) + K C0QLIST +"RTN","C0QMU12",79,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",80,0) + S C0QLIST(ZYR_"Patient")="" +"RTN","C0QMU12",81,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",82,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",83,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",87,0) + Q +"RTN","C0QMU12",88,0) + ; +"RTN","C0QMU12",89,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",90,0) + N WARD S WARD="" +"RTN","C0QMU12",91,0) + F D Q:WARD="" +"RTN","C0QMU12",92,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",93,0) + . Q:WARD="" +"RTN","C0QMU12",94,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",95,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",96,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",97,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",98,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",99,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",100,0) + . . . D PROBLEM +"RTN","C0QMU12",101,0) + . . . D ALLERGY +"RTN","C0QMU12",102,0) + . . . D MEDS4 +"RTN","C0QMU12",103,0) + . . . D RECON2 +"RTN","C0QMU12",104,0) + . . . D ADVDIR +"RTN","C0QMU12",105,0) + . . . D SMOKING +"RTN","C0QMU12",106,0) + . . . D VITALS +"RTN","C0QMU12",107,0) + . . . D VTE1 +"RTN","C0QMU12",108,0) + . . . D COD +"RTN","C0QMU12",109,0) + . . . D EDTIME +"RTN","C0QMU12",110,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",111,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",112,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",113,0) + Q +"RTN","C0QMU12",114,0) + ; +"RTN","C0QMU12",115,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",116,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",117,0) + S PBCNT="" +"RTN","C0QMU12",118,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",119,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",120,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",121,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",122,0) + K PROBL +"RTN","C0QMU12",123,0) + Q +"RTN","C0QMU12",124,0) + ; +"RTN","C0QMU12",125,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",126,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",127,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",128,0) + S ALCNT="" +"RTN","C0QMU12",129,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",130,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",131,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",132,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",133,0) + K ALRGYL +"RTN","C0QMU12",134,0) + Q +"RTN","C0QMU12",135,0) + ; +"RTN","C0QMU12",136,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",137,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",138,0) + N BEG,END +"RTN","C0QMU12",139,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",140,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",141,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",142,0) + N C0QMEDS +"RTN","C0QMU12",143,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",144,0) + N FOUND +"RTN","C0QMU12",145,0) + N ZI +"RTN","C0QMU12",146,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",147,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",148,0) + E D ; HAS MEDS +"RTN","C0QMU12",149,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",150,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",151,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",152,0) + . N ZM +"RTN","C0QMU12",153,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",154,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",155,0) + . . S FOUND=1 +"RTN","C0QMU12",156,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",157,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",158,0) + Q +"RTN","C0QMU12",159,0) + ; +"RTN","C0QMU12",160,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",161,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",162,0) + ; +"RTN","C0QMU12",163,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",164,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",165,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",166,0) + N GT,G +"RTN","C0QMU12",167,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",168,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",169,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",170,0) + . S HASRECON=1 +"RTN","C0QMU12",171,0) + ;N ZT +"RTN","C0QMU12",172,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",173,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",174,0) + ;. S HASRECON=1 +"RTN","C0QMU12",175,0) + ;E D ; +"RTN","C0QMU12",176,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",177,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",178,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",179,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",180,0) + I HASRECON D ; +"RTN","C0QMU12",181,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",182,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",183,0) + Q +"RTN","C0QMU12",184,0) + ; +"RTN","C0QMU12",185,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",186,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",187,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",188,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",189,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",190,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",191,0) + Q +"RTN","C0QMU12",192,0) + ; +"RTN","C0QMU12",193,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",194,0) + N ZI S ZI="" +"RTN","C0QMU12",195,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",196,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",197,0) + . ;B +"RTN","C0QMU12",198,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",199,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",200,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",201,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",202,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",203,0) + . E D ; +"RTN","C0QMU12",204,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",205,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",206,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",208,0) + Q +"RTN","C0QMU12",209,0) + ; +"RTN","C0QMU12",210,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",211,0) + ; +"RTN","C0QMU12",212,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",213,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",214,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",215,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",216,0) + . E D ; +"RTN","C0QMU12",217,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",218,0) + Q +"RTN","C0QMU12",219,0) + ; +"RTN","C0QMU12",220,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",221,0) +VITALS ; +"RTN","C0QMU12",222,0) + ; +"RTN","C0QMU12",223,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",224,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",225,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",226,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",227,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",228,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",229,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",230,0) + Q +"RTN","C0QMU12",231,0) + ; +"RTN","C0QMU12",232,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",233,0) + ; +"RTN","C0QMU12",234,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",235,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",236,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",237,0) + Q +"RTN","C0QMU12",238,0) + ; +"RTN","C0QMU12",239,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",240,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",241,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",242,0) + Q +"RTN","C0QMU12",243,0) + ; +"RTN","C0QMU12",244,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",245,0) + N FOUND +"RTN","C0QMU12",246,0) + S FOUND=0 +"RTN","C0QMU12",247,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",248,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",249,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",250,0) + I FOUND D ; +"RTN","C0QMU12",251,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",252,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",253,0) + Q +"RTN","C0QMU12",254,0) + ; +"RTN","C0QMU12",255,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",256,0) + N ZICU +"RTN","C0QMU12",257,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",258,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",259,0) + S ZI="" +"RTN","C0QMU12",260,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",261,0) + . S ZJ="" +"RTN","C0QMU12",262,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",263,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",264,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",265,0) + Q +"RTN","C0QMU12",266,0) + ; +"RTN","C0QMU12",267,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",268,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",269,0) + K C0QLIST +"RTN","C0QMU12",270,0) + N ZPAT +"RTN","C0QMU12",271,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",272,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",273,0) + ; +"RTN","C0QMU12",274,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",275,0) + N GN,GO,GF +"RTN","C0QMU12",276,0) + S GN=ZPAT +"RTN","C0QMU12",277,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",278,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",279,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",280,0) + ; +"RTN","C0QMU12",281,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",282,0) + ; +"RTN","C0QMU12",283,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",284,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",285,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",286,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",287,0) + ; +"RTN","C0QMU12",288,0) + S GN=ZPAT +"RTN","C0QMU12",289,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",290,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",291,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",292,0) + ; +"RTN","C0QMU12",293,0) + S GN=ZPAT +"RTN","C0QMU12",294,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",295,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",296,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",297,0) + ; +"RTN","C0QMU12",298,0) + S GN=ZPAT +"RTN","C0QMU12",299,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",300,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",301,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",302,0) + ; +"RTN","C0QMU12",303,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",304,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",305,0) + Q +"RTN","C0QMU12",306,0) + ; +"RTN","C0QMU12",307,0) +ED1 ; +"RTN","C0QMU12",308,0) + S ZYR="MU12-" +"RTN","C0QMU12",309,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",310,0) + Q +"RTN","C0QMU12",311,0) + ; +"RTN","C0QMU12",312,0) +ED2 ; +"RTN","C0QMU12",313,0) + S ZYR="MU12-" +"RTN","C0QMU12",314,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",315,0) + Q +"RTN","C0QMU12",316,0) + ; +"RTN","C0QMU12",317,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",318,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",319,0) + N ZIEN,ZN +"RTN","C0QMU12",320,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",321,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",322,0) + Q ZN +"RTN","C0QMU12",323,0) + ; +"RTN","C0QMU12",324,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",325,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",326,0) + N ZIEN,ZN +"RTN","C0QMU12",327,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",328,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",329,0) + Q ZN +"RTN","C0QMU12",330,0) + ; +"RTN","C0QMU12",331,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",332,0) + N ZL,ZR +"RTN","C0QMU12",333,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",334,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",335,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",336,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",337,0) + Q ZR +"RTN","C0QMU12",338,0) + ; +"RTN","C0QMU12",339,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",340,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",341,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",342,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",343,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",344,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",345,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",346,0) + N ZI +"RTN","C0QMU12",347,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",348,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",349,0) + . W !,$$FMTE^XLFDT(9999999-ZI) ;B ; +"RTN","C0QMU12",350,0) + . I ZI="" Q ; +"RTN","C0QMU12",351,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",352,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",353,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",354,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",355,0) + Q +"RTN","C0QMU12",356,0) + ; +"RTN","C0QMU12",357,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",358,0) + ; +"RTN","C0QMU12",359,0) + S DTE=3111000 +"RTN","C0QMU12",360,0) + S MUYR=ZYR +"RTN","C0QMU12",361,0) + N ZC,ZN +"RTN","C0QMU12",362,0) + S ZN=0 +"RTN","C0QMU12",363,0) + N ZI S ZI=0 +"RTN","C0QMU12",364,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",365,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",366,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",367,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",368,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",369,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",370,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",371,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",372,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",373,0) + Q +"RTN","C0QMU12",374,0) + ; +"RTN","C0QMU12",375,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",376,0) + S ZYR="MU12-" +"RTN","C0QMU12",377,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",378,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",379,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",380,0) + N ZI S ZI="" +"RTN","C0QMU12",381,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",382,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",383,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",384,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",385,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",386,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",387,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",388,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",389,0) + S DFN="" +"RTN","C0QMU12",390,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",391,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",392,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",393,0) + . D PROBLEM +"RTN","C0QMU12",394,0) + . D ALLERGY +"RTN","C0QMU12",395,0) + . ;D MEDS +"RTN","C0QMU12",396,0) + . D ERX +"RTN","C0QMU12",397,0) + . D SMOKING +"RTN","C0QMU12",398,0) + . D VITALS +"RTN","C0QMU12",399,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",400,0) + ; +"RTN","C0QMU12",401,0) + ; Now process eRx MU measures for these patients +"RTN","C0QMU12",402,0) + ; Check for eRx template and code first; if they exist, run the code +"RTN","C0QMU12",403,0) + I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO +"RTN","C0QMU12",404,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",405,0) + . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list +"RTN","C0QMU12",406,0) + ; +"RTN","C0QMU12",407,0) + N C0QCIEN +"RTN","C0QMU12",408,0) + S ZI="" +"RTN","C0QMU12",409,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",410,0) + . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set +"RTN","C0QMU12",411,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",412,0) + . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",413,0) + Q +"RTN","C0QMU12",414,0) + ; +"RTN","C0QMU12",415,0) +DIS ; +"RTN","C0QMU12",416,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",417,0) + F D Q:DTE="" +"RTN","C0QMU12",418,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",419,0) + . Q:'DTE +"RTN","C0QMU12",420,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",421,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",422,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",423,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",424,0) + . D +"RTN","C0QMU12",425,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",426,0) + . . Q:'PTFM +"RTN","C0QMU12",427,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",428,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",429,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",430,0) + . . D PROBLEM +"RTN","C0QMU12",431,0) + . . D ALLERGY +"RTN","C0QMU12",432,0) + . . D MEDS4 +"RTN","C0QMU12",433,0) + . . D RECON2 +"RTN","C0QMU12",434,0) + . . D ADVDIR +"RTN","C0QMU12",435,0) + . . D SMOKING +"RTN","C0QMU12",436,0) + . . D VITALS +"RTN","C0QMU12",437,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",438,0) + . . D VTE1 +"RTN","C0QMU12",439,0) + . . D COD +"RTN","C0QMU12",440,0) + . . D EDTIME +"RTN","C0QMU12",441,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",442,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",443,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",444,0) + Q +"RTN","C0QMU12",445,0) + ; +"RTN","C0QMU12",446,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",447,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",448,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",449,0) + ; +"RTN","C0QMU12",450,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",451,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",452,0) + N ZI,ZN +"RTN","C0QMU12",453,0) + S ZI="" +"RTN","C0QMU12",454,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",455,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",456,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",457,0) + . . K C0QFDA +"RTN","C0QMU12",458,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",459,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",460,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",461,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",462,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",463,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",464,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",465,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",466,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",467,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",468,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",469,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",470,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",471,0) + . N ZJ,ZK +"RTN","C0QMU12",472,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",473,0) + . K C0QFDA +"RTN","C0QMU12",474,0) + . S ZJ="" +"RTN","C0QMU12",475,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",476,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",477,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",478,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",479,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",480,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",481,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",482,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",483,0) + . K C0QFDA +"RTN","C0QMU12",484,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",485,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",486,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",487,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",488,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",489,0) + ;. Q +"RTN","C0QMU12",490,0) + ;. K C0QFDA +"RTN","C0QMU12",491,0) + ;. N ZJ,ZC +"RTN","C0QMU12",492,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",493,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",494,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",495,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",496,0) + ;. D UPDIE +"RTN","C0QMU12",497,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",498,0) + Q +"RTN","C0QMU12",499,0) + ; +"RTN","C0QMU12",500,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",501,0) + ; +"RTN","C0QMU12",502,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",503,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",504,0) + D CLEAN^DILF +"RTN","C0QMU12",505,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",506,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",507,0) + D CLEAN^DILF +"RTN","C0QMU12",508,0) + K ZERR +"RTN","C0QMU12",509,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",510,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",511,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",512,0) + ;. W "ERROR",! +"RTN","C0QMU12",513,0) + ;. ZWR ZERR +"RTN","C0QMU12",514,0) + ;. B +"RTN","C0QMU12",515,0) + K C0QFDA +"RTN","C0QMU12",516,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",517,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",518,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",519,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",520,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",521,0) + ; +"RTN","C0QMU12",522,0) + Q ZR +"RTN","C0QMU12",523,0) + ; +"RTN","C0QMU12",524,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",525,0) + K ZERR +"RTN","C0QMU12",526,0) + D CLEAN^DILF +"RTN","C0QMU12",527,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",528,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",529,0) + K C0QFDA +"RTN","C0QMU12",530,0) + Q +"RTN","C0QMU12",531,0) + ; +"RTN","C0QMU12",532,0) +END ;end of C0QPRML; +"RTN","C0QMUERX") +0^1^B83723794 +"RTN","C0QMUERX",1,0) +C0QMUERX ; VEN - Analyze ERx Data for Patients ; 9/17/12 1:16pm +"RTN","C0QMUERX",2,0) + ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32 +"RTN","C0QMUERX",3,0) + QUIT ; No Entry from the top +"RTN","C0QMUERX",4,0) + ; +"RTN","C0QMUERX",5,0) +UT ; Unit Tests +"RTN","C0QMUERX",6,0) + N C0QDEBUG S C0QDEBUG=1 +"RTN","C0QMUERX",7,0) + W "Testing ^DPT B Index",! +"RTN","C0QMUERX",8,0) + D EN("^DPT(""B"")") +"RTN","C0QMUERX",9,0) + W !,"Testing B Index on a C0Q Patient List",! +"RTN","C0QMUERX",10,0) + D EN("^C0Q(301,4,1,""B"")") +"RTN","C0QMUERX",11,0) + W !,"Testing ^AUPNPAT B Index",! +"RTN","C0QMUERX",12,0) + D EN("^AUPNPAT(""B"")") +"RTN","C0QMUERX",13,0) + W !,"Testing Reminder Patient List B Index",! +"RTN","C0QMUERX",14,0) + D EN("^PXRMXP(810.5,80,30,""B"")") +"RTN","C0QMUERX",15,0) + W !,"Testing upright file ^DPT",! +"RTN","C0QMUERX",16,0) + D EN("^DPT") +"RTN","C0QMUERX",17,0) + W !,"Testing a file with no data",! +"RTN","C0QMUERX",18,0) + D EN("^ALKJSDF") +"RTN","C0QMUERX",19,0) + W !,"Testing a no valid parameters",! +"RTN","C0QMUERX",20,0) + D EN("") +"RTN","C0QMUERX",21,0) +UT2 ; Units Tests 2 +"RTN","C0QMUERX",22,0) + N C0QDEBUG S C0QDEBUG=1 +"RTN","C0QMUERX",23,0) + D EN("^C0Q(301,4,1,""B"")") +"RTN","C0QMUERX",24,0) + QUIT +"RTN","C0QMUERX",25,0) +UT3 ; More Unit Tests +"RTN","C0QMUERX",26,0) + N C0QDEBUG S C0QDEBUG=1 +"RTN","C0QMUERX",27,0) + D EN($$PATLN^C0QMU12("MU12-EP-HasERX")) +"RTN","C0QMUERX",28,0) + W $$COUNT($$PATLN^C0QMU12("MU12-EP-HasERX")) +"RTN","C0QMUERX",29,0) + QUIT +"RTN","C0QMUERX",30,0) +EN(C0QLIST) ; PEP - Analyze ERx Data and store +"RTN","C0QMUERX",31,0) + ; Parameters: +"RTN","C0QMUERX",32,0) + ; C0QLIST - Pass by Name. Global or Local Reference. +"RTN","C0QMUERX",33,0) + ; Can be: ^DPT("B") for all patients or ^C0Q(301,2,1,"B") for a specific patient list +"RTN","C0QMUERX",34,0) + ; Future: Can be a search template on file 2 or 9000001 +"RTN","C0QMUERX",35,0) + ; +"RTN","C0QMUERX",36,0) + ; Check if XML Soap Message is installed +"RTN","C0QMUERX",37,0) + I '$D(^C0PX("B","GETMEDS6")) WRITE "GETMEDS6 Soap Message not installed",! QUIT +"RTN","C0QMUERX",38,0) + ; +"RTN","C0QMUERX",39,0) + ; Check if SOAP^C0PWS2 exists +"RTN","C0QMUERX",40,0) + I '$L($T(SOAP^C0PWS2)) WRITE "C0PWS2 Doesn't exist",! QUIT +"RTN","C0QMUERX",41,0) + ; +"RTN","C0QMUERX",42,0) + ; Check C0QLIST for sanity. Must be a single node. +"RTN","C0QMUERX",43,0) + IF '($DATA(C0QLIST)#2)!(C0QLIST="") WRITE "You didn't pass the list",! QUIT +"RTN","C0QMUERX",44,0) + ; +"RTN","C0QMUERX",45,0) + ; Contents must be a Reference with Data +"RTN","C0QMUERX",46,0) + IF '$DATA(@C0QLIST) WRITE "Destination doesn't contain any data",! QUIT +"RTN","C0QMUERX",47,0) + ; +"RTN","C0QMUERX",48,0) + ; Is this a B index? +"RTN","C0QMUERX",49,0) + NEW C0QB +"RTN","C0QMUERX",50,0) + IF $QSUBSCRIPT(C0QLIST,$QLENGTH(C0QLIST))="B" DO +"RTN","C0QMUERX",51,0) + . SET C0QB=1 +"RTN","C0QMUERX",52,0) + . ; DEBUG +"RTN","C0QMUERX",53,0) + . W:$G(C0QDEBUG) "B index passed",! +"RTN","C0QMUERX",54,0) + . ; DEBUG +"RTN","C0QMUERX",55,0) + ELSE SET C0QB=0 +"RTN","C0QMUERX",56,0) + ; +"RTN","C0QMUERX",57,0) + ; Make sure our TMP is empty +"RTN","C0QMUERX",58,0) + K ^TMP($J) +"RTN","C0QMUERX",59,0) + ; +"RTN","C0QMUERX",60,0) + ; Walk the global +"RTN","C0QMUERX",61,0) + N C0QWALK S C0QWALK=$SELECT(C0QB:"",'C0QB:0) ; Walker, start of $ORDER? +"RTN","C0QMUERX",62,0) + N C0QDONE S C0QDONE=0 ; Finish Flag +"RTN","C0QMUERX",63,0) + FOR SET C0QWALK=$O(@C0QLIST@(C0QWALK)) QUIT:C0QDONE DO +"RTN","C0QMUERX",64,0) + . ; Are we done? +"RTN","C0QMUERX",65,0) + . I C0QB,C0QWALK="" S C0QDONE=1 QUIT ; If in index and we are out, done +"RTN","C0QMUERX",66,0) + . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT ; If not in index and we are not numeric, done +"RTN","C0QMUERX",67,0) + . ; +"RTN","C0QMUERX",68,0) + . N C0QDFN ; DFN of Patient +"RTN","C0QMUERX",69,0) + . ; If Walking B Index and Index not numeric, grab DFN (assuming ^DPT or ^AUPNPAT) +"RTN","C0QMUERX",70,0) + . ; TODO: Should I check that the global is ^DPT or ^AUPNPAT? +"RTN","C0QMUERX",71,0) + . I C0QB,'+C0QWALK S C0QDFN=$O(@C0QLIST@(C0QWALK,"")) +"RTN","C0QMUERX",72,0) + . ; Otherwise, we will assume the contents of the index are the DFNs +"RTN","C0QMUERX",73,0) + . E S C0QDFN=C0QWALK +"RTN","C0QMUERX",74,0) + . I $G(C0QDEBUG) W C0QDFN," " +"RTN","C0QMUERX",75,0) + . ; +"RTN","C0QMUERX",76,0) + . ; Now, check to see if the patient has e-Rx's +"RTN","C0QMUERX",77,0) + . I $$HASERX(C0QDFN) S ^TMP($J,C0QDFN)="" +"RTN","C0QMUERX",78,0) + ; +"RTN","C0QMUERX",79,0) + W:$G(C0QDEBUG) ! ; +"RTN","C0QMUERX",80,0) + ; +"RTN","C0QMUERX",81,0) + ; Loop through collected DFNs, send to WS, and get data back, store in ^TMP($J,DFN) +"RTN","C0QMUERX",82,0) + N C0QDFN S C0QDFN=0 +"RTN","C0QMUERX",83,0) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",84,0) + . N C0POUT +"RTN","C0QMUERX",85,0) + . W:$G(C0QDEBUG) "Calling GETMEDS6 SOAP Web Service Call for "_C0QDFN,! +"RTN","C0QMUERX",86,0) + . D SOAP^C0PWS2("C0POUT","GETMEDS6",DUZ,C0QDFN) +"RTN","C0QMUERX",87,0) + . Q:$G(C0POUT(1,"RowCount"))=0 ; WS says no data +"RTN","C0QMUERX",88,0) + . M ^TMP($J,C0QDFN)=C0POUT +"RTN","C0QMUERX",89,0) + ; +"RTN","C0QMUERX",90,0) + ; From the New Crop Meaningful Use documentation: +"RTN","C0QMUERX",91,0) + ; Appendix G: Meaningful Use Certification FAQ Question 10 +"RTN","C0QMUERX",92,0) + ; +"RTN","C0QMUERX",93,0) + ; DENOMINATOR NUMERATOR +"RTN","C0QMUERX",94,0) + ; DeaClassCode = 0, 9 DeaClassCode = 0, 9 +"RTN","C0QMUERX",95,0) + ; PharmacyType = 1 PharmacyType = 1 +"RTN","C0QMUERX",96,0) + ; PharmacyDetailType = 1, 2 PharmacyDetailType = 1, 2 +"RTN","C0QMUERX",97,0) + ; FinalDestinationType = 1, 2, 3, 4 FinalDestinationType = 3, 4 +"RTN","C0QMUERX",98,0) + ; FinalStatusType = 1, 4, 5 FinalStatusType = 1, 5 +"RTN","C0QMUERX",99,0) + ; +"RTN","C0QMUERX",100,0) + ; DeMorgan's Law +"RTN","C0QMUERX",101,0) + ; NOT(A or B) = NOT(A) and NOT(B) +"RTN","C0QMUERX",102,0) + ; So to collect prescriptions for which DeaClassCode is 0 or 9 +"RTN","C0QMUERX",103,0) + ; We exclude all those who are not 0 AND not 9. +"RTN","C0QMUERX",104,0) + ; See: http://en.wikipedia.org/wiki/De_Morgan%27s_laws#Negation_of_a_disjunction +"RTN","C0QMUERX",105,0) + ; +"RTN","C0QMUERX",106,0) + ; The algorithms below use an Onion Peeling method. Any prescription which +"RTN","C0QMUERX",107,0) + ; fails makes you jump to the next prescription. +"RTN","C0QMUERX",108,0) + ; The "Onion levels" are: +"RTN","C0QMUERX",109,0) + ; DeaClassCode, PharamcyType, PharmacyDetailType, FinalDestinationType, FinalStatusType +"RTN","C0QMUERX",110,0) + ; +"RTN","C0QMUERX",111,0) + ; Now walk through collected DFNs and accumulate MU stats +"RTN","C0QMUERX",112,0) + ; +"RTN","C0QMUERX",113,0) + ; WARNING: Naked References below +"RTN","C0QMUERX",114,0) + ; +"RTN","C0QMUERX",115,0) + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 +"RTN","C0QMUERX",116,0) + N C0QD S C0QD=0 ; Denominator - Overall (cf C0QDP below) +"RTN","C0QMUERX",117,0) + ; +"RTN","C0QMUERX",118,0) + ; Calculate Denominator below +"RTN","C0QMUERX",119,0) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",120,0) + . N C0QDP S C0QDP=0 ; Denominator - Patient Specific +"RTN","C0QMUERX",121,0) + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO +"RTN","C0QMUERX",122,0) + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! +"RTN","C0QMUERX",123,0) + .. ; +"RTN","C0QMUERX",124,0) + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE +"RTN","C0QMUERX",125,0) + .. ; +"RTN","C0QMUERX",126,0) + .. N DEA S DEA=^("DeaClassCode") +"RTN","C0QMUERX",127,0) + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! +"RTN","C0QMUERX",128,0) + .. Q:((DEA'=0)&(DEA'=9)) +"RTN","C0QMUERX",129,0) + .. ; +"RTN","C0QMUERX",130,0) + .. N PT S PT=^("PharmacyType") +"RTN","C0QMUERX",131,0) + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! +"RTN","C0QMUERX",132,0) + .. Q:(PT'=1) +"RTN","C0QMUERX",133,0) + .. ; +"RTN","C0QMUERX",134,0) + .. N PDT S PDT=^("PharmacyDetailType") +"RTN","C0QMUERX",135,0) + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! +"RTN","C0QMUERX",136,0) + .. Q:((PDT'=1)&(PDT'=2)) +"RTN","C0QMUERX",137,0) + .. ; +"RTN","C0QMUERX",138,0) + .. N FDT S FDT=^("FinalDestinationType") +"RTN","C0QMUERX",139,0) + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! +"RTN","C0QMUERX",140,0) + .. Q:((FDT'=1)&(FDT'=2)&(FDT'=3)&(FDT'=4)) +"RTN","C0QMUERX",141,0) + .. ; +"RTN","C0QMUERX",142,0) + .. N FST S FST=^("FinalStatusType") +"RTN","C0QMUERX",143,0) + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! +"RTN","C0QMUERX",144,0) + .. Q:((FST'=1)&(FST'=4)&(FST'=5)) +"RTN","C0QMUERX",145,0) + .. ; +"RTN","C0QMUERX",146,0) + .. W:$G(C0QDEBUG) "Adding to Denominator",! +"RTN","C0QMUERX",147,0) + .. S C0QDP=C0QDP+1 +"RTN","C0QMUERX",148,0) + .. S C0QD=C0QD+1 +"RTN","C0QMUERX",149,0) + . ; +"RTN","C0QMUERX",150,0) + . ; SAVE C0QDP - while it lasts! +"RTN","C0QMUERX",151,0) + . D SAVE(C0QLIST,C0QDFN,"ERXDEN",C0QDP) +"RTN","C0QMUERX",152,0) + ; +"RTN","C0QMUERX",153,0) + ; Calculate Numerator below +"RTN","C0QMUERX",154,0) + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 +"RTN","C0QMUERX",155,0) + N C0QN S C0QN=0 ; Numerator - Overall (cf C0QNP below) +"RTN","C0QMUERX",156,0) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",157,0) + . N C0QNP S C0QNP=0 ; Numerator - Patient Specific +"RTN","C0QMUERX",158,0) + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO +"RTN","C0QMUERX",159,0) + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! +"RTN","C0QMUERX",160,0) + .. ; +"RTN","C0QMUERX",161,0) + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE +"RTN","C0QMUERX",162,0) + .. ; +"RTN","C0QMUERX",163,0) + .. N DEA S DEA=^("DeaClassCode") +"RTN","C0QMUERX",164,0) + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! +"RTN","C0QMUERX",165,0) + .. Q:((DEA'=0)&(DEA'=9)) +"RTN","C0QMUERX",166,0) + .. ; +"RTN","C0QMUERX",167,0) + .. N PT S PT=^("PharmacyType") +"RTN","C0QMUERX",168,0) + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! +"RTN","C0QMUERX",169,0) + .. Q:(PT'=1) +"RTN","C0QMUERX",170,0) + .. ; +"RTN","C0QMUERX",171,0) + .. N PDT S PDT=^("PharmacyDetailType") +"RTN","C0QMUERX",172,0) + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! +"RTN","C0QMUERX",173,0) + .. Q:((PDT'=1)&(PDT'=2)) +"RTN","C0QMUERX",174,0) + .. ; +"RTN","C0QMUERX",175,0) + .. N FDT S FDT=^("FinalDestinationType") +"RTN","C0QMUERX",176,0) + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! +"RTN","C0QMUERX",177,0) + .. Q:((FDT'=3)&(FDT'=4)) +"RTN","C0QMUERX",178,0) + .. ; +"RTN","C0QMUERX",179,0) + .. N FST S FST=^("FinalStatusType") +"RTN","C0QMUERX",180,0) + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! +"RTN","C0QMUERX",181,0) + .. Q:((FST'=1)&(FST'=5)) +"RTN","C0QMUERX",182,0) + .. ; +"RTN","C0QMUERX",183,0) + .. W:$G(C0QDEBUG) "Adding to Numerator",! +"RTN","C0QMUERX",184,0) + .. S C0QNP=C0QNP+1 +"RTN","C0QMUERX",185,0) + .. S C0QN=C0QN+1 +"RTN","C0QMUERX",186,0) + . ; +"RTN","C0QMUERX",187,0) + . ; Save C0QNP while it lasts +"RTN","C0QMUERX",188,0) + . D SAVE(C0QLIST,C0QDFN,"ERXNUM",C0QNP) +"RTN","C0QMUERX",189,0) + ; +"RTN","C0QMUERX",190,0) + S ^TMP($J)=C0QN_U_C0QD +"RTN","C0QMUERX",191,0) + ; +"RTN","C0QMUERX",192,0) + ; TODO: Over here, do something with the numerator and denominator.. +"RTN","C0QMUERX",193,0) + ; Probably store them somewhere. +"RTN","C0QMUERX",194,0) + ; +"RTN","C0QMUERX",195,0) + I '$G(C0QDEBUG) K ^TMP($J) ; Empty out in production not testing +"RTN","C0QMUERX",196,0) + QUIT +"RTN","C0QMUERX",197,0) + ; +"RTN","C0QMUERX",198,0) +HASERX(DFN) ; $$ - Private; Has E-Prescriptions? +"RTN","C0QMUERX",199,0) + ; Parameters +"RTN","C0QMUERX",200,0) + ; - DFN by Value +"RTN","C0QMUERX",201,0) + ; Output +"RTN","C0QMUERX",202,0) + ; 0 or 1 (false or true) +"RTN","C0QMUERX",203,0) + N ZI S ZI="" +"RTN","C0QMUERX",204,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMUERX",205,0) + N DONE,HASERX +"RTN","C0QMUERX",206,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" Q:$G(DONE) D +"RTN","C0QMUERX",207,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" S (DONE,HASERX)=1 +"RTN","C0QMUERX",208,0) + Q +$G(HASERX) +"RTN","C0QMUERX",209,0) + ; +"RTN","C0QMUERX",210,0) +SAVE(C0QLIST,C0QDFN,TYPE,COUNT) ; Proc - Private; Save Count in C0Q(301, file +"RTN","C0QMUERX",211,0) + ; Layman's Explanation: Save the denominator or numerator for ePrescribing for +"RTN","C0QMUERX",212,0) + ; each of the patients in the Subfile for that patient in ^C0Q(301, +"RTN","C0QMUERX",213,0) + ; Still hard to understand though! Here's a demo: +"RTN","C0QMUERX",214,0) + ; ^C0Q(301,IEN has a subfile under node 1 which stores the patients. E.g. +"RTN","C0QMUERX",215,0) + ; ^C0Q(301,48,1,15,0)=91$ +"RTN","C0QMUERX",216,0) + ; ^C0Q(301,48,1,16,0)=93$ +"RTN","C0QMUERX",217,0) + ; ^C0Q(301,48,1,17,0)=173$ +"RTN","C0QMUERX",218,0) + ; +"RTN","C0QMUERX",219,0) + ; I store the numerator and denominator under each of the patients. The numerator +"RTN","C0QMUERX",220,0) + ; stands for the number of prescriptions that were electronically transmitted; +"RTN","C0QMUERX",221,0) + ; the denominator stands for the numbers of prescriptions that COULD HAVE BEEN +"RTN","C0QMUERX",222,0) + ; electronically transmitted. End result for Patient 173 is as follows: +"RTN","C0QMUERX",223,0) + ; ^C0Q(301,48,1,17,0)=173 +"RTN","C0QMUERX",224,0) + ; ^C0Q(301,48,1,17,1,0)="^1130580001.3111^2^2" +"RTN","C0QMUERX",225,0) + ; ^C0Q(301,48,1,17,1,1,0)="ERXDEN^0" +"RTN","C0QMUERX",226,0) + ; ^C0Q(301,48,1,17,1,2,0)="ERXNUM^0" +"RTN","C0QMUERX",227,0) + ; ^C0Q(301,48,1,17,1,"B","ERXDEN",1)="" +"RTN","C0QMUERX",228,0) + ; ^C0Q(301,48,1,17,1,"B","ERXNUM",2)="" +"RTN","C0QMUERX",229,0) + ; +"RTN","C0QMUERX",230,0) + ; Subroutine COUNT (below) goes and counts the data +"RTN","C0QMUERX",231,0) + ; +"RTN","C0QMUERX",232,0) + ; Params: +"RTN","C0QMUERX",233,0) + ; C0QLIST (by val): "B" x-ref where patients are located. Only supports ^C0Q(301, file. +"RTN","C0QMUERX",234,0) + ; C0QDFN (by val): Patient DFN for whom to file data. +"RTN","C0QMUERX",235,0) + ; TYPE (by val): Either ERXDEN or ERXNUM for eRx Denominator or eRx Numerator +"RTN","C0QMUERX",236,0) + ; COUNT (by val): The number to save +"RTN","C0QMUERX",237,0) + ; +"RTN","C0QMUERX",238,0) + ; First, QUIT if this isn't a Quality Measures List? +"RTN","C0QMUERX",239,0) + ; $QS(x,0) gets you the global name +"RTN","C0QMUERX",240,0) + ; +"RTN","C0QMUERX",241,0) + ; This should give you an idea of what I am dealing with! +"RTN","C0QMUERX",242,0) + ; +"RTN","C0QMUERX",243,0) + ; ^C0Q(301,48,1,15,0)=91 +"RTN","C0QMUERX",244,0) + ; ^C0Q(301,48,1,16,0)=93 +"RTN","C0QMUERX",245,0) + ; ^C0Q(301,48,1,17,0)=173 +"RTN","C0QMUERX",246,0) + ; ^C0Q(301,48,1,18,0)=174 +"RTN","C0QMUERX",247,0) + ; ^C0Q(301,48,1,"B",5,1)="" +"RTN","C0QMUERX",248,0) + ; ^C0Q(301,48,1,"B",10,2)="" +"RTN","C0QMUERX",249,0) + ; ^C0Q(301,48,1,"B",11,3)="" +"RTN","C0QMUERX",250,0) + ; ^C0Q(301,48,1,"B",14,4)="" +"RTN","C0QMUERX",251,0) + ; +"RTN","C0QMUERX",252,0) + I $QS(C0QLIST,0)'="^C0Q" W:$G(C0QDEBUG) "Not Saving Patient "_C0QDFN,! QUIT +"RTN","C0QMUERX",253,0) + ; +"RTN","C0QMUERX",254,0) + ; Otherwise, prepare to save +"RTN","C0QMUERX",255,0) + N C0QFDA ; Fileman Data Array +"RTN","C0QMUERX",256,0) + N C0QIENS ; IENS +"RTN","C0QMUERX",257,0) + N L1,L2 ; Top Level, Level 2 +"RTN","C0QMUERX",258,0) + S L1=$QS(C0QLIST,2) ; Top Level IEN +"RTN","C0QMUERX",259,0) + S L2=$O(^C0Q(301,L1,1,"B",C0QDFN,"")) ; Patient IEN +"RTN","C0QMUERX",260,0) + S C0QIENS="?+1"_C0QDFN_","_L2_","_L1_"," ; TODO: Here C0QDFN is a dummy for uniqueness in FDA, not meaningful! - DO BETTER! +"RTN","C0QMUERX",261,0) + W:$G(C0QDEBUG) "IENs "_C0QIENS_" ready to file",! +"RTN","C0QMUERX",262,0) + W:$G(C0QDEBUG) "Saving "_TYPE_" of "_COUNT_" for Patient "_$P(^DPT(C0QDFN,0),U)_" ("_C0QDFN_")",! +"RTN","C0QMUERX",263,0) + S C0QFDA(1130580001.3111,C0QIENS,.01)=TYPE +"RTN","C0QMUERX",264,0) + S C0QFDA(1130580001.3111,C0QIENS,.02)=COUNT +"RTN","C0QMUERX",265,0) + ; +"RTN","C0QMUERX",266,0) + W:$G(C0QDEBUG) "Fileman Data Array",! +"RTN","C0QMUERX",267,0) + I $G(C0QDEBUG) N % S %=$NA(C0QFDA) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QMUERX",268,0) + ; +"RTN","C0QMUERX",269,0) + N C0QERR ; Errors +"RTN","C0QMUERX",270,0) + D UPDATE^DIE("","C0QFDA","","C0QERR") +"RTN","C0QMUERX",271,0) + ; +"RTN","C0QMUERX",272,0) + I $D(C0QERR) DO +"RTN","C0QMUERX",273,0) + . W "Error in filing data",! +"RTN","C0QMUERX",274,0) + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QMUERX",275,0) + ; +"RTN","C0QMUERX",276,0) + QUIT +"RTN","C0QMUERX",277,0) + ; +"RTN","C0QMUERX",278,0) +COUNT(C0QLIST) ; $$ - Private; Count Numerator and Denominator for a Patient List +"RTN","C0QMUERX",279,0) + ; Input: C0QLIST - Pass by Value - Patient Listing B index (only C0Q(301,IEN,1,"B", listing is supported) +"RTN","C0QMUERX",280,0) + ; Output: (as string) NUMERATOR/DENOMINATOR +"RTN","C0QMUERX",281,0) + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. +"RTN","C0QMUERX",282,0) + ; +"RTN","C0QMUERX",283,0) + I $QS(C0QLIST,0)'="^C0Q" W:$G(C0QDEBUG) "Counting for files other than C0Q(301, not supported ",! QUIT "0/0" +"RTN","C0QMUERX",284,0) + ; MEASURE ----------- +"RTN","C0QMUERX",285,0) + ; IEN ----------- | +"RTN","C0QMUERX",286,0) + ; L1 ------| | | +"RTN","C0QMUERX",287,0) + ; V V V +"RTN","C0QMUERX",288,0) + ; ^C0Q(301,48,1,2,1,1,0)="ERXDEN^0" +"RTN","C0QMUERX",289,0) + ; ^C0Q(301,48,1,2,1,2,0)="ERXNUM^0" +"RTN","C0QMUERX",290,0) + ; ^C0Q(301,48,1,2,1,"B","ERXDEN",1)="" +"RTN","C0QMUERX",291,0) + ; ^C0Q(301,48,1,2,1,"B","ERXNUM",2)="" +"RTN","C0QMUERX",292,0) + ; ^C0Q(301,48,1,2,1,"B" +"RTN","C0QMUERX",293,0) + W:$G(C0QDEBUG) "DFN",?20,"Denominator",?40,"Numerator",! +"RTN","C0QMUERX",294,0) + ; +"RTN","C0QMUERX",295,0) + N L1 S L1=$QS(C0QLIST,2) ; Top Level IEN +"RTN","C0QMUERX",296,0) + ; +"RTN","C0QMUERX",297,0) + N DENTOT,NUMTOT S (DENTOT,NUMTOT)=0 ; Denominator Total, Numerator Total +"RTN","C0QMUERX",298,0) + ; +"RTN","C0QMUERX",299,0) + N C0QDFN S C0QDFN=0 ; Walker through B index +"RTN","C0QMUERX",300,0) + F S C0QDFN=$O(^C0Q(301,L1,1,"B",C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",301,0) + . N IEN S IEN=$O(^(C0QDFN,"")) ; naked naked - get IEN from B index +"RTN","C0QMUERX",302,0) + . W:$G(C0QDEBUG) C0QDFN +"RTN","C0QMUERX",303,0) + . ; +"RTN","C0QMUERX",304,0) + . ; Denom Processing +"RTN","C0QMUERX",305,0) + . N DENIEN S DENIEN=$O(^C0Q(301,L1,1,IEN,1,"B","ERXDEN","")) ; Denom IEN +"RTN","C0QMUERX",306,0) + . N DEN S DEN=$S(DENIEN:$P(^C0Q(301,L1,1,IEN,1,DENIEN,0),U,2),1:"N/A") ; Denominator +"RTN","C0QMUERX",307,0) + . W:$G(C0QDEBUG) ?20,DEN +"RTN","C0QMUERX",308,0) + . S DENTOT=DENTOT+DEN ; Total it up (N/A becomes zero) +"RTN","C0QMUERX",309,0) + . ; +"RTN","C0QMUERX",310,0) + . N NUMIEN S NUMIEN=$O(^C0Q(301,L1,1,IEN,1,"B","ERXNUM","")) ; Numerator IEN +"RTN","C0QMUERX",311,0) + . N NUM S NUM=$S(NUMIEN:$P(^C0Q(301,L1,1,IEN,1,NUMIEN,0),U,2),1:"N/A") ; Numerator +"RTN","C0QMUERX",312,0) + . W:$G(C0QDEBUG) ?40,NUM +"RTN","C0QMUERX",313,0) + . S NUMTOT=NUMTOT+NUM ; Total it up (N/A becomes zero) +"RTN","C0QMUERX",314,0) + . ; +"RTN","C0QMUERX",315,0) + . w:$G(C0QDEBUG) ! +"RTN","C0QMUERX",316,0) + ; +"RTN","C0QMUERX",317,0) + ; Write the totals +"RTN","C0QMUERX",318,0) + D:$G(C0QDEBUG) +"RTN","C0QMUERX",319,0) + . W ?20,"===" +"RTN","C0QMUERX",320,0) + . W ?40,"===" +"RTN","C0QMUERX",321,0) + . W ! +"RTN","C0QMUERX",322,0) + . ; +"RTN","C0QMUERX",323,0) + . W ?20,DENTOT +"RTN","C0QMUERX",324,0) + . W ?40,NUMTOT +"RTN","C0QMUERX",325,0) + . W ! +"RTN","C0QMUERX",326,0) + ; +"RTN","C0QMUERX",327,0) + ; Quit with Numeartor/Denominator +"RTN","C0QMUERX",328,0) + QUIT NUMTOT_"/"_DENTOT +"RTN","C0QUPDT") +0^2^B78393601 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 9/17/12 1:12pm +"RTN","C0QUPDT",2,0) + ;;1.0;C0Q;**1**;May 21, 2012;Build 32 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +"RTN","C0QUPDT",30,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",31,0) + ; +"RTN","C0QUPDT",32,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",33,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",34,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",35,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",36,0) + ; +"RTN","C0QUPDT",37,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",38,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",39,0) + ; +"RTN","C0QUPDT",40,0) + N ZI S ZI="" +"RTN","C0QUPDT",41,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",42,0) + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? +"RTN","C0QUPDT",43,0) + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" +"RTN","C0QUPDT",44,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",45,0) + D DELIST("C0QM") +"RTN","C0QUPDT",46,0) + N ZII S ZII="" +"RTN","C0QUPDT",47,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",48,0) + . ; +"RTN","C0QUPDT",49,0) + . ; Special processing for eRx measure. +"RTN","C0QUPDT",50,0) + . I $$GET1^DIQ(1130580001.101,+C0QM(ZII)_",",4,"I")="E" D ERXCOUNT(MSET,ZII) Q +"RTN","C0QUPDT",51,0) + . ; +"RTN","C0QUPDT",52,0) + . ; Otherwise, we go on +"RTN","C0QUPDT",53,0) + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD +"RTN","C0QUPDT",54,0) + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST +"RTN","C0QUPDT",55,0) + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST +"RTN","C0QUPDT",56,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",57,0) + . ; +"RTN","C0QUPDT",58,0) + . ; Numerator +"RTN","C0QUPDT",59,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",60,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",61,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",62,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",63,0) + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh +"RTN","C0QUPDT",64,0) + . ; +"RTN","C0QUPDT",65,0) + . ; Denominator +"RTN","C0QUPDT",66,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",67,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",68,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",69,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",70,0) + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh +"RTN","C0QUPDT",71,0) + . ; +"RTN","C0QUPDT",72,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",73,0) + . ; +"RTN","C0QUPDT",74,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",75,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",76,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",77,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",78,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",79,0) + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST +"RTN","C0QUPDT",80,0) + . . N ZNEW +"RTN","C0QUPDT",81,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",82,0) + . . K C0QFLTRD +"RTN","C0QUPDT",83,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",84,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",85,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",86,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",87,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",88,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",89,0) + . N C0QCNT +"RTN","C0QUPDT",90,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",91,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",92,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",93,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",94,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",95,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",96,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",97,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",98,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",99,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",100,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",101,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",102,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",103,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",104,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",105,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",106,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",107,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",108,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",109,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",110,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",111,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",112,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",113,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",114,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",115,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",116,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",117,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",118,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",119,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",120,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",121,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",122,0) + . ; +"RTN","C0QUPDT",123,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",124,0) + . ; +"RTN","C0QUPDT",125,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",126,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",127,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",128,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",129,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",130,0) + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST +"RTN","C0QUPDT",131,0) + . . N ZNEW +"RTN","C0QUPDT",132,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",133,0) + . . K C0QFLTRD +"RTN","C0QUPDT",134,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",135,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",136,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",137,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",138,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",139,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",140,0) + . N C0QDCNT +"RTN","C0QUPDT",141,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",142,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",143,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",144,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",145,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",146,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",147,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",148,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",149,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",150,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",151,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",152,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",153,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",154,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",155,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",156,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",157,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",158,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",159,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",160,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",161,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",162,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",163,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",164,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",165,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",166,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",167,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",168,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",169,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",170,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",171,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",172,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",173,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",174,0) + . ; +"RTN","C0QUPDT",175,0) + . ; File Percentage +"RTN","C0QUPDT",176,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",177,0) + . D ; +"RTN","C0QUPDT",178,0) + . . I C0QDCNT>0 D ; +"RTN","C0QUPDT",179,0) + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",180,0) + . . E S C0QPCT=0 +"RTN","C0QUPDT",181,0) + . . K C0QFDA +"RTN","C0QUPDT",182,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",183,0) + . . D UPDIE +"RTN","C0QUPDT",184,0) + Q +"RTN","C0QUPDT",185,0) + ; +"RTN","C0QUPDT",186,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",187,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",188,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",189,0) + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD +"RTN","C0QUPDT",190,0) + S ZI="" +"RTN","C0QUPDT",191,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",192,0) + K @RTN +"RTN","C0QUPDT",193,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",194,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",195,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",196,0) + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST +"RTN","C0QUPDT",197,0) + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST +"RTN","C0QUPDT",198,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",199,0) + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD +"RTN","C0QUPDT",200,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",201,0) + Q +"RTN","C0QUPDT",202,0) + ; +"RTN","C0QUPDT",203,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",204,0) + K ZERR +"RTN","C0QUPDT",205,0) + D CLEAN^DILF +"RTN","C0QUPDT",206,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QUPDT",207,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",208,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",209,0) + ;. W "ERROR",! +"RTN","C0QUPDT",210,0) + ;. ZWR ZERR +"RTN","C0QUPDT",211,0) + ;. B +"RTN","C0QUPDT",212,0) + K C0QFDA +"RTN","C0QUPDT",213,0) + Q +"RTN","C0QUPDT",214,0) + ; +"RTN","C0QUPDT",215,0) +ERXCOUNT(MSETIEN,MIEN) ; Private Proc; Get eRx and file as Numerator, Denominator, and % +"RTN","C0QUPDT",216,0) + ; Inputs: +"RTN","C0QUPDT",217,0) + ; MSETIEN - Measurement Set IEN - By Value +"RTN","C0QUPDT",218,0) + ; MIEN - Measurement IEN inside the Measurement Set - By Value +"RTN","C0QUPDT",219,0) + ; +"RTN","C0QUPDT",220,0) + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. +"RTN","C0QUPDT",221,0) + ; +"RTN","C0QUPDT",222,0) + ; No check is done to see if the caller is sending bad data. Measurement must be +"RTN","C0QUPDT",223,0) + ; in a subfile under Measurement Set. +"RTN","C0QUPDT",224,0) + ; +"RTN","C0QUPDT",225,0) + W:$G(C0QDEBUG) "Processing E-Prescribing Counts",! +"RTN","C0QUPDT",226,0) + ; Example of Data we go through in the C0Q Parameter File, so the code below +"RTN","C0QUPDT",227,0) + ; will make sense. +"RTN","C0QUPDT",228,0) + ; ^C0Q(401,"AMMS",2,1)="" +"RTN","C0QUPDT",229,0) + ; ^C0Q(401,"AMMS",2,2)="" +"RTN","C0QUPDT",230,0) + ; ^C0Q(401,"AQMS",6,2)="" +"RTN","C0QUPDT",231,0) + ; ^C0Q(401,"B","INPATIENT",2)="" +"RTN","C0QUPDT",232,0) + ; ^C0Q(401,"B","OUTPATIENT",1)="" +"RTN","C0QUPDT",233,0) + ; ^C0Q(401,"MU","MU12",1)="" +"RTN","C0QUPDT",234,0) + ; ^C0Q(401,"MU","MU12",2)="" +"RTN","C0QUPDT",235,0) + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" +"RTN","C0QUPDT",236,0) + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" +"RTN","C0QUPDT",237,0) + ; +"RTN","C0QUPDT",238,0) + ; Get Parameter year from the Parameters file. +"RTN","C0QUPDT",239,0) + ; 1. Get parameter associated with this measurement set from AMMS x-ref (new in C0Q*1*1). +"RTN","C0QUPDT",240,0) + N C0QPARAM +"RTN","C0QUPDT",241,0) + N % S %="" F S %=$O(^C0Q(401,"AMMS",MSETIEN,%)) Q:%="" S C0QPARAM(%)="" +"RTN","C0QUPDT",242,0) + ; +"RTN","C0QUPDT",243,0) + ; 2. Find the year for each of those--store as value of node; IEN still subscript. +"RTN","C0QUPDT",244,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" S C0QPARAM(%)=$$GET1^DIQ(1130580001.401,%_",",.02) +"RTN","C0QUPDT",245,0) + ; +"RTN","C0QUPDT",246,0) + ; 3. Now make sure that this parameter that point to an Outpatient Parameters +"RTN","C0QUPDT",247,0) + ; WARNING: CONFUSING CODE WRITTEN BY ME AHEAD +"RTN","C0QUPDT",248,0) + ; The % loop will stop with a valid value if found; % is used in the lines immediately below +"RTN","C0QUPDT",249,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" Q:$D(^C0Q(401,"MUTYP",C0QPARAM(%),"EP",%)) +"RTN","C0QUPDT",250,0) + ; +"RTN","C0QUPDT",251,0) + ; 4. If % has a valid IEN (there can be multiple, we take the first), then off we go. +"RTN","C0QUPDT",252,0) + ; Otherwise, if it is back to "", we quit. +"RTN","C0QUPDT",253,0) + N MUYEAR +"RTN","C0QUPDT",254,0) + IF '% W "No suitable parameter found. Cannot determine Measurement Year.",! QUIT +"RTN","C0QUPDT",255,0) + ELSE S MUYEAR=C0QPARAM(%) +"RTN","C0QUPDT",256,0) + ; +"RTN","C0QUPDT",257,0) + ; Now, based on the MU year, construct the patient list name that has the eRx data. +"RTN","C0QUPDT",258,0) + N LISTNAME S LISTNAME=MUYEAR_"-"_"EP"_"-"_"HasERX" +"RTN","C0QUPDT",259,0) + ; +"RTN","C0QUPDT",260,0) + ; Call the API in C0QMUERX to get the counts already calculated +"RTN","C0QUPDT",261,0) + ; Data is returned NUM/DEN +"RTN","C0QUPDT",262,0) + N COUNTS S COUNTS=$$COUNT^C0QMUERX($$PATLN^C0QMU12(LISTNAME)) +"RTN","C0QUPDT",263,0) + ; +"RTN","C0QUPDT",264,0) + ; File the count +"RTN","C0QUPDT",265,0) + N NUM S NUM=$P(COUNTS,"/") ; Numerator +"RTN","C0QUPDT",266,0) + N DEN S DEN=$P(COUNTS,"/",2) ; Denominator +"RTN","C0QUPDT",267,0) + ; +"RTN","C0QUPDT",268,0) + ; Prepare FDA +"RTN","C0QUPDT",269,0) + N C0QFDA,C0QERR +"RTN","C0QUPDT",270,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",1.1)=NUM ; Numerator +"RTN","C0QUPDT",271,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",2.1)=DEN ; Denominator +"RTN","C0QUPDT",272,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",3)=$S(DEN=0:0,1:$J(100*NUM/DEN,0,0)) ; Percentage; avoid dividing by zero! +"RTN","C0QUPDT",273,0) + ; +"RTN","C0QUPDT",274,0) + ; File FDA using Filer not updater (editing existing entry only) +"RTN","C0QUPDT",275,0) + D FILE^DIE("ET",$NAME(C0QFDA),$NAME(C0QERR)) ; Flags: External, Transaction +"RTN","C0QUPDT",276,0) + ; +"RTN","C0QUPDT",277,0) + ; If error, print it out +"RTN","C0QUPDT",278,0) + I $D(C0QERR) DO +"RTN","C0QUPDT",279,0) + . W "Error filing data",! +"RTN","C0QUPDT",280,0) + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QUPDT",281,0) + ; +"RTN","C0QUPDT",282,0) + QUIT +"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") +@ +"VER") +8.0^22.0 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^19 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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) + +"^DD",1130580001.101,1130580001.101,3,3) +Answer must be 3-120 characters in length +"^DD",1130580001.101,1130580001.101,3,21,0) +^^2^2^3120731^^ +"^DD",1130580001.101,1130580001.101,3,21,1,0) +Measure template root for the QRDA Document. A series of . delimited +"^DD",1130580001.101,1130580001.101,3,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.101,1130580001.101,3,"DT") +3120731 +"^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.101,4,0) +MEASURE TYPE^S^P:Performance;Q:Quality;E:Electronic Prescribing Performance;^0;5^Q +"^DD",1130580001.101,1130580001.101,4,3) +Enter a code P, Q or E +"^DD",1130580001.101,1130580001.101,4,21,0) +^^19^19^3120530^ +"^DD",1130580001.101,1130580001.101,4,21,1,0) +This field designates the measure type. It can be P, Q or M. +"^DD",1130580001.101,1130580001.101,4,21,2,0) + +"^DD",1130580001.101,1130580001.101,4,21,3,0) +P is for Performance. Performance measures are MU measures to measure +"^DD",1130580001.101,1130580001.101,4,21,4,0) +how meaningfully used an EMR is. An example of a performance measure +"^DD",1130580001.101,1130580001.101,4,21,5,0) +is whether allergies are documented in the EMR. Performance measures +"^DD",1130580001.101,1130580001.101,4,21,6,0) +reference a Patient List created by this package. +"^DD",1130580001.101,1130580001.101,4,21,7,0) + +"^DD",1130580001.101,1130580001.101,4,21,8,0) +Q is for Quality Measures. Quality measures are MU measures to assess how +"^DD",1130580001.101,1130580001.101,4,21,9,0) +well the patients are cared for. An example of a quality measure is +"^DD",1130580001.101,1130580001.101,4,21,10,0) +whether Hemoglobin A1c Poor Control. Quality measures reference Patient +"^DD",1130580001.101,1130580001.101,4,21,11,0) +Lists in the Reminders package. +"^DD",1130580001.101,1130580001.101,4,21,12,0) + +"^DD",1130580001.101,1130580001.101,4,21,13,0) +E is for Electronic Prescribing. This is a Performance measure, except +"^DD",1130580001.101,1130580001.101,4,21,14,0) +that it is handled differently than the rest. Instead of the numerators +"^DD",1130580001.101,1130580001.101,4,21,15,0) +and denominators being lists of patients as with all the other +"^DD",1130580001.101,1130580001.101,4,21,16,0) +measurements, they are a number of prescriptions. That's why we have a +"^DD",1130580001.101,1130580001.101,4,21,17,0) +special flag for it. It references a Patient List created by this +"^DD",1130580001.101,1130580001.101,4,21,18,0) +package. The numerator and denominators are stored in subfiles for each +"^DD",1130580001.101,1130580001.101,4,21,19,0) +patient. +"^DD",1130580001.101,1130580001.101,4,23,0) +^^4^4^3120530^ +"^DD",1130580001.101,1130580001.101,4,23,1,0) +As of version C0P*1.0*1, the software doesn't use this field except to +"^DD",1130580001.101,1130580001.101,4,23,2,0) +check for an electronic prescribing type (code E). +"^DD",1130580001.101,1130580001.101,4,23,3,0) + +"^DD",1130580001.101,1130580001.101,4,23,4,0) +I anticipate using this field for other purposes in the future. +"^DD",1130580001.101,1130580001.101,4,"DT") +3120530 +"^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.401,1130580001.401,2,0) +EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q +"^DD",1130580001.401,1130580001.401,2,.1) +OUTPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2,1,1,0) +1130580001.401^AMMS +"^DD",1130580001.401,1130580001.401,2,1,1,1) +S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2,1,1,2) +K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",0) +^.101^5^5^3120530^^^ +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",5,0) +$O(^C0Q(401,"AMMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.1,0) +EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q +"^DD",1130580001.401,1130580001.401,2.1,.1) +OUTPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2.1,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2.1,1,1,0) +1130580001.401^AQMS +"^DD",1130580001.401,1130580001.401,2.1,1,1,1) +S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2.1,1,1,2) +K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2.1,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",0) +^^5^5^3120530^ +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",5,0) +$O(^C0Q(401,"AQMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2.1,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2.1,"DT") +3120103 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +**END** +**END** diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-004_PAT-001.TXT b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-004_PAT-001.TXT new file mode 100644 index 0000000..c683ef1 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-004_PAT-001.TXT @@ -0,0 +1,472 @@ +DHCP Patch Display Page: 1 +============================================================================= +Run Date: SEP 17, 2012 Designation: C0Q*1*1 TEST v +Package : QUALITY MEASURES Priority : MANDATORY +Version : 1 Status : UNDER DEVELOPMENT +============================================================================= + +Subject: E-Rx MU Measures + +Category: ROUTINE + ENHANCEMENT + +Description: +=========== + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced by George Lilly on 14 June 2012 +and released through VISTA Forum. + + Copyright: Build documentation and C0QMUERX routine (c) George Lilly +2012. + + License: Package C0Q has license of GPL 2.0. + + Functionality: + ============== +DESCRIPTION: +Addition of ePrescribing MU measure and code to support it. + +Dependencies: +This build needs C0P*1*4 for the new WebService entry that gets MU +data from New Crop. It's not a technical dependency; the code will +function without it, but it won't perform ERx calculations. +This build requires the base C0Q 1.0 to be installed. + +This build performs the following: +Routines: +1. Adds routine C0QMUERX for calculation of ePrescribing stats. +2. Mods routine C0QMU12 to call C0QMUERX for the ERX measure for +Outpatients. +3. Mods routine C0QUPDT to handle the special case of ePrescribing stats. +Also, some checks and quits so that we won't crash if no patient lists +are associated with a measure (general bug fix). + + Support Tickets: + + + Package Elements: + ================= +Data Dictionary: +1. File C0Q PARAMETER has two new indexes (used by ERXCOUNT^C0QUPDT) + AMMS REGULAR + Field: EP MU MEASUREMENT SET (1130580001.401,2) + Description: Indexes the IEN of the Measurement Set. Used so that we can + walk back to a parameter when processing a specific IEN. + + You can get the IEN of the measurement set using + $O(^C0Q(401,"AMMS",MSIEN,"")). + 1)= S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" + 2)= K ^C0Q(401,"AMMS",$E(X,1,30),DA) + 3)= USED BY THE CODE. SEE DESCRIPTION. + + AQMS REGULAR + Field: EP QUALITY MEASUREMENT SET (1130580001.401,2.1) + Description: Indexes the IEN of the Measurement Set. Used so that we can + walk back to a parameter when processing a specific IEN. + + You can get the IEN of the measurement set using + $O(^C0Q(401,"AQMS",MSIEN,"")). + 1)= S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" + 2)= K ^C0Q(401,"AQMS",$E(X,1,30),DA) + 3)= USED BY THE CODE. SEE DESCRIPTION. + +2. File C0Q QUALITY MEASURE has a new field, MEASURE TYPE (#4) used by +UPDATE^C0QUPDT + +1130580001.101,4MEASURE TYPE 0;5 SET + + 'P' FOR Performance; + 'Q' FOR Quality; + 'E' FOR Electronic Prescribing Performance; + LAST EDITED: MAY 30, 2012 + HELP-PROMPT: Enter a code P, Q or E + DESCRIPTION: This field designates the measure type. It can + be P, Q or M. + + P is for Performance. Performance measures are + MU measures to measure how meaningfully used an + EMR is. An example of a performance measure is + whether allergies are documented in the EMR. + Performance measures reference a Patient List + created by this package. + + Q is for Quality Measures. Quality measures are + MU measures to assess how well the patients are + cared for. An example of a quality measure is + whether Hemoglobin A1c Poor Control. Quality + measures reference Patient Lists in the + Reminders package. + + E is for Electronic Prescribing. This is a + Performance measure, except that it is handled + differently than the rest. Instead of the + numerators and denominators being lists of + patients as with all the other measurements, + they are a number of prescriptions. That's why + we have a special flag for it. It references a + Patient List created by this package. The + numerator and denominators are stored in + subfiles for each patient. + + TECHNICAL DESCR: As of version C0P*1.0*1, the software doesn't + use this field except to check for an + electronic prescribing type (code E). + + I anticipate using this field for other + purposes in the future. + +DATA: +The entry MU EP ERX for processing ePrescribing stats in C0Q QUALITY +MEASURE is sent to destination sites. This entry has MEASURE TYPE set to +E so that it is processed by the routine UPDATE^C0QUPDT. + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER NO NO + DATA SCREEN: I $P(^(0),U)="MU EP ERX" + +1130580001.401C0Q PARAMETER YES NO NO NO +Partial DD: subDD: 1130580001.401fld: 2 + fld: 2.1 + +INPUT TEMPLATE: +C0Q EDIT MU MEASURE adds the new field MEASURE TYPE mentioned above to +allow editing of measures + +INPUT TEMPLATE: ACTION: + C0Q EDIT MU MEASURE FILE #1130580001.101 SEND TO SITE + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: POST^C0Q1P1 DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: + + +ROUTINE: ACTION: + C0QMU12 SEND TO SITE + C0QMUERX SEND TO SITE + C0QUPDT SEND TO SITE + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: NO + Default INHIBIT LOGONs during the install: NO + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO + +REQUIRED BUILDS: ACTION: + QUALITY MEASURES 1.0 Don't install, leave global + + Documentation: + ============== + + + Test Sites: + =========== + + Tested by George Lilly on smart2 (dEWDrop) environment + + Compliance: + =========== + Complies with the SACC. One routine has a code size or 15076, +and fails the code size check. + + Installation Instructions: + ========================== + Install Time - less than 1 minute + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*1): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*1" at the INSTALL NAME prompt. + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + The post installation routine POST^C0Q1P1 will perform the following +tasks: +1. Re-index C0P PARAMETERS file fields EP MU MEASUREMENT SET +(1130580001.401,2) and EP QUALITY MEASUREMENT SET (1130580001.401,2.1) +to make the AMMS and AQMS indeces respectively. + + Post-installation instructions + ============================== +1. If you don't have New Crop eRx installed, there won't be any effects. +The C0Q code will behave like before. +2. If you don't have C0P*1.0*4 installed, again, the C0Q code will behave +as before the patch. +3. Once you install C0P*1.0*4 with this patch (C0Q*1.0*1), the code will +loop through all Outpatients who have an ERx. The actual patients are +determined via your outpatient parameters. If your parameters reference a +clinic location that already has patients with ERxs, you don't need to do +anything to make the code run. It will run automatically; and it's time +consuming; before you run it though, make sure to do #4. +4. In order for you to see a print out of the eRx measures, you +need to add the Measure MU EP ERX to the Measure Set used in the EP MU +MEASUREMENT SET field in your Outpatient Parameters. You must do this +before you run this for the first time. + +Example of Set-up: + +Select QUALITY MEASUREMENT MENU Option: ? + + COPY OVER PATIENT LISTS + ED-1 COMPUTATION + ED-2 COMPUTATION + EP UPDATE MU MEASURES + INP UPDATE MU MEASURES + PQRI MENU ... + PQRI PRINT XML + PRINT C0Q MEASURES + QRDA MENU ... + SETUP QUALITY REPORTING ... + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +text. + +Select QUALITY MEASUREMENT MENU Option: setUP QUALITY REPORTING + +Select SETUP QUALITY REPORTING Option: ? + + DISPLAY QUALITY MEASURES + EDIT SUPERUSERS + EP EDIT PARMS + INP EDIT PARMS + MEASURE SET EDIT + MU MEASURE EDIT + QUALITY MEASURE EDIT + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +text. + +Select SETUP QUALITY REPORTING Option: ep edit PARMS + +Select C0Q PARAMETER NAME: OUTPATIENT +NAME: OUTPATIENT// +MEASUREMENT PERIOD KEY: MU12// +PARAMETER TYPE: OUTPATIENT// +EP MU MEASUREMENT SET: OUTPATIENT MEASURE SET// +EP QUALITY MEASUREMENT SET: +Select CLINIC: DR OFFICE// +PATIENT LIST LABEL: +Select SUBSCRIBER: + +Select C0Q PARAMETER NAME: + +Select SETUP QUALITY REPORTING Option: measure set EDIT + +Select C0Q MEASUREMENT SET NAME: outpaTIENT MEASURE SET +NAME: OUTPATIENT MEASURE SET Replace +BEGIN DATE: JUN 12,2001// +END DATE: MAY 25,2012// +LOCKED: +MU YEAR KEY: MU12// +QRDA TEMPLATE ROOT: +Select MEASURE: MU EP ERX// + MEASURE: MU EP ERX// + NUMERATOR FILTER LIST: + DENOMINATOR FILTER LIST: +Select MEASURE: + +Select C0Q MEASUREMENT SET NAME: + +Select SETUP QUALITY REPORTING Option: + +Select QUALITY MEASUREMENT MENU Option: ? + + COPY OVER PATIENT LISTS + ED-1 COMPUTATION + ED-2 COMPUTATION + EP UPDATE MU MEASURES + INP UPDATE MU MEASURES + PQRI MENU ... + PQRI PRINT XML + PRINT C0Q MEASURES + QRDA MENU ... + SETUP QUALITY REPORTING ... + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +text. + +Select QUALITY MEASUREMENT MENU Option: ep updATE MU MEASURES +Sep 16, 2012@86:54:61 +Jan 03, 2008@80:85:41 +Jan 01, 2008@81:59:42 +Nov 25, 2005@86:89:76 +Nov 25, 2005@85:87:58 +Nov 24, 2005@79:68:87 +Aug 01, 2005@91:59:64 +Aug 2005@84:91:51 +Aug 2005@84:78:82 +Jul 28, 2005@88:55:64 +Jul 28, 2005@88:46:85 +Jul 28, 2005@87:95:55 +Jul 27, 2005@87:79:80 +Jul 27, 2005@83:83:97 +Jul 26, 2005@88:78:96 +Jul 26, 2005@88:75:45 +Jul 26, 2005@88:58:60 +Jul 26, 2005@88:52:62 +Jul 26, 2005@88:50:59 +Jul 26, 2005@88:49:74 +Jul 26, 2005@84:54:55 +Jul 24, 2005@91:62:76 +Jul 23, 2005@88:98:45 +Jul 23, 2005@85:77:89 +Jul 23, 2005@83:77:71 +Jul 23, 2005@82:82:99 +Jul 23, 2005@82:66:61 +Jul 22, 2005@83:85:46 +Jul 22, 2005@82:82:92 +Jul 22, 2005@82:75:99 +Jul 21, 2005@89:50:71 +Jul 21, 2005@83:53:48 +Jul 20, 2005@91:43:44 +Jul 20, 2005@87:89:46 +Jul 20, 2005@84:60:78 +Jul 20, 2005@84:60:71 +Jul 19, 2005@89:92:54 +Jul 19, 2005@89:55:97 +Jul 18, 2005@92:58:51 +Jul 18, 2005@91:47:87 +Jul 18, 2005@88:67:86 +Jul 18, 2005@88:63:92 +Jul 18, 2005@86:64:88 +Jul 18, 2005@84:56:82 +Jul 18, 2005@84:45:52 +Jul 17, 2005@82:42:51 +Jul 14, 2005@84:00 +Jul 07, 2005@86:97 +Jul 2005@85:62:77B index passed +4 +Calling GETMEDS6 SOAP Web Service Call for 4 +Patient 4 Rx 1 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +FinalStatusType: 2 +Patient 4 Rx 2 +DeaClassCode: 0 +PharmacyType: 0 +Patient 4 Rx 3 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +FinalStatusType: 2 +Patient 4 Rx 4 +DeaClassCode: 0 +PharmacyType: 0 +IENs ?+14,1,17, ready to file +Saving ERXDEN of 0 for Patient MOUSE,MICKEY (4) +Fileman Data Array +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXDEN +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +Patient 4 Rx 1 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +Patient 4 Rx 2 +DeaClassCode: 0 +PharmacyType: 0 +Patient 4 Rx 3 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +Patient 4 Rx 4 +DeaClassCode: 0 +PharmacyType: 0 +IENs ?+14,1,17, ready to file +Saving ERXNUM of 0 for Patient MOUSE,MICKEY (4) +Fileman Data Array +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXNUM +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +C0QFDA(1130580001.2011,"1,7,",3)=100 +Processing E-Prescribing Counts +DFN Denominator Numerator +4 0 0 + === === + 0 0 + + +Routine Information: +==================== + + +The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**[Patch List]**;May 21, 2012;Build 33 + +The checksums below are new checksums, and + can be checked with CHECK1^XTSUMBLD. + +Routine Name: C0Q1P1 + Before: n/a After: B541473 **1** +Routine Name: C0QMU12 + Before: n/a After:B266254568 **1** +Routine Name: C0QMUERX + Before: n/a After: B83723794 **1** +Routine Name: C0QUPDT + Before: n/a After: B78393601 **1** + + +============================================================================= +User Information: + Entered By : HABIEL,SAM Date Entered : JUN 11,2012 + Completed By: LILLY,GEORGE Date Completed: JUN 14,2012 + Released By : Date Released : +============================================================================= diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-005_PAT-005.KID b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-005_PAT-005.KID new file mode 100644 index 0000000..28c6c4c --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-005_PAT-005.KID @@ -0,0 +1,3840 @@ +KIDS Distribution saved on Oct 18, 2012@11:20:27 +Bug Fixes for QM package +**KIDS**:C0Q*1.0*5^ + +**INSTALL NAME** +C0Q*1.0*5 +"BLD",7919,0) +C0Q*1.0*5^QUALITY MEASURES^0^3121018^y +"BLD",7919,1,0) +^^171^171^3121018^ +"BLD",7919,1,1,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"BLD",7919,1,2,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"BLD",7919,1,3,0) + +"BLD",7919,1,4,0) +DESCRIPTION: +"BLD",7919,1,5,0) +============ +"BLD",7919,1,6,0) +Written by Sam Habiel on 17 October 2012 and released through VISTA Forum. +"BLD",7919,1,7,0) + +"BLD",7919,1,8,0) +Licensed under package license (currently GPL 2.0) +"BLD",7919,1,9,0) + +"BLD",7919,1,10,0) +FUNCTIONALITY: +"BLD",7919,1,11,0) +============== +"BLD",7919,1,12,0) +This build fixes various bugs in the Quality Measurements package +"BLD",7919,1,13,0) +discovered during testing. +"BLD",7919,1,14,0) + +"BLD",7919,1,15,0) + 1. Empty lists are created in advance for Outpatients. Previously, they +"BLD",7919,1,16,0) +were not created, even though an entry point existed (INITCLST). +"BLD",7919,1,17,0) + +"BLD",7919,1,18,0) + 2. The Vitals lookup code that calls CPRS code didn't include today. +"BLD",7919,1,19,0) +This was fixed by adding .999999 to today's date. +"BLD",7919,1,20,0) + +"BLD",7919,1,21,0) + 3. File security (@ sign everywhere) didn't permit normal users to edit +"BLD",7919,1,22,0) +the file. Previous, I defeated the @ sign protection by setting DLAYGO. +"BLD",7919,1,23,0) +However, DLAYGO got killed by Fileman after each edit, which meant that +"BLD",7919,1,24,0) +you can only edit one entry at a time before heading back out and back in +"BLD",7919,1,25,0) +to edit another entry. After discussion with Fileman developers, the +"BLD",7919,1,26,0) +proper way to do this was to not to use DLAYGO but rather remove the @ +"BLD",7919,1,27,0) +signs for Read, Write, and Laygo in the Files Definitions. +"BLD",7919,1,28,0) + +"BLD",7919,1,29,0) + - File list where protections were changed. +"BLD",7919,1,30,0) + --> C0Q MEASUREMENT SET (1130580001.201) +"BLD",7919,1,31,0) + --> C0Q QUALITY MEASURE (1130580001.101) +"BLD",7919,1,32,0) + --> C0Q PARAMETER (1130580001.401) +"BLD",7919,1,33,0) + +"BLD",7919,1,34,0) + - Options which don't use DLAYGO anymore. +"BLD",7919,1,35,0) + --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS] +"BLD",7919,1,36,0) + --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS] +"BLD",7919,1,37,0) + --> INP EDIT PARMS [C0Q EDIT INP PARMS] +"BLD",7919,1,38,0) + --> MEASURE SET EDIT [C0Q EDIT MEASURE SET] +"BLD",7919,1,39,0) + --> MU MEASURE EDIT [C0Q EDIT MU MEASURE] +"BLD",7919,1,40,0) + --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE] +"BLD",7919,1,41,0) + +"BLD",7919,1,42,0) +4. The Outpatient Quality Measurement Set which is specified in the +"BLD",7919,1,43,0) +Parameters was being completely ignored. This is fixed. +"BLD",7919,1,44,0) + +"BLD",7919,1,45,0) +5. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag +"BLD",7919,1,46,0) +indicating the type of measure (Performance vs Quality Measure). Since it +"BLD",7919,1,47,0) +was left lying around, a Quality Measure was mistakenly interpreted as a +"BLD",7919,1,48,0) +performance measure, giving you a result of zero, since there is no +"BLD",7919,1,49,0) +data for this Quality Measure. +"BLD",7919,1,50,0) + +"BLD",7919,1,51,0) +6. The option that executes the logic for Outpatients C0Q EP UPDATE MU +"BLD",7919,1,52,0) +MEASURES didn't display the time on the dates of the Visits being +"BLD",7919,1,53,0) +processed correctly. This patch fixes this. +"BLD",7919,1,54,0) + +"BLD",7919,1,55,0) +SUPPORT TICKETS: +"BLD",7919,1,56,0) +================ +"BLD",7919,1,57,0) +None +"BLD",7919,1,58,0) + +"BLD",7919,1,59,0) +PACKAGE ELEMENTS: +"BLD",7919,1,60,0) +================= +"BLD",7919,1,61,0) + +"BLD",7919,1,62,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"BLD",7919,1,63,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"BLD",7919,1,64,0) +POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No +"BLD",7919,1,65,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P5 +"BLD",7919,1,66,0) + +"BLD",7919,1,67,0) + UP SEND DATA USER +"BLD",7919,1,68,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7919,1,69,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7919,1,70,0) +------------------------------------------------------------------------------- +"BLD",7919,1,71,0) + +"BLD",7919,1,72,0) +1130580001.101C0Q QUALITY MEASURE YES YES NO +"BLD",7919,1,73,0) + +"BLD",7919,1,74,0) +1130580001.201C0Q MEASUREMENT SET YES YES NO +"BLD",7919,1,75,0) + +"BLD",7919,1,76,0) + UP SEND DATA USER +"BLD",7919,1,77,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7919,1,78,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7919,1,79,0) +------------------------------------------------------------------------------- +"BLD",7919,1,80,0) + +"BLD",7919,1,81,0) +1130580001.401C0Q PARAMETER YES YES NO +"BLD",7919,1,82,0) + +"BLD",7919,1,83,0) +ROUTINE: ACTION: +"BLD",7919,1,84,0) + C0Q1P5 SEND TO SITE +"BLD",7919,1,85,0) + C0QMU12 SEND TO SITE +"BLD",7919,1,86,0) + C0QUPDT SEND TO SITE +"BLD",7919,1,87,0) + +"BLD",7919,1,88,0) +OPTION: ACTION: +"BLD",7919,1,89,0) + C0Q EDIT INP PARMS SEND TO SITE +"BLD",7919,1,90,0) + C0Q EDIT MEASURE SET SEND TO SITE +"BLD",7919,1,91,0) + C0Q EDIT MU MEASURE SEND TO SITE +"BLD",7919,1,92,0) + C0Q EDIT OUTPATIENT PARMS SEND TO SITE +"BLD",7919,1,93,0) + C0Q EDIT QUALITY MEASURE SEND TO SITE +"BLD",7919,1,94,0) + C0Q EDIT SUPERUSERS SEND TO SITE +"BLD",7919,1,95,0) + +"BLD",7919,1,96,0) +DOCUMENTATION: +"BLD",7919,1,97,0) +============== +"BLD",7919,1,98,0) +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 +"BLD",7919,1,99,0) + +"BLD",7919,1,100,0) +COMPLIANCE: +"BLD",7919,1,101,0) +=========== +"BLD",7919,1,102,0) +This software complies with the VA MUMPS Programming Standards and +"BLD",7919,1,103,0) + Conventions (version 3 April 2007), except for the following: +"BLD",7919,1,104,0) + +"BLD",7919,1,105,0) + C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584 +"BLD",7919,1,106,0) + S - Routine code exceeds SACC maximum size of 15000 (15513). +"BLD",7919,1,107,0) + +"BLD",7919,1,108,0) +Blood Bank Clearance: This software doesn't interact with the Blood Bank module. +"BLD",7919,1,109,0) + +"BLD",7919,1,110,0) +Installation Instructions: +"BLD",7919,1,111,0) +========================== +"BLD",7919,1,112,0) +Install Time - less than 1 minute. +"BLD",7919,1,113,0) + +"BLD",7919,1,114,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7919,1,115,0) + +"BLD",7919,1,116,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7919,1,117,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"BLD",7919,1,118,0) + +"BLD",7919,1,119,0) + 2. START UP KIDS +"BLD",7919,1,120,0) + +"BLD",7919,1,121,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7919,1,122,0) + [XPD MAIN]: +"BLD",7919,1,123,0) + +"BLD",7919,1,124,0) + Edits and Distribution ... +"BLD",7919,1,125,0) + Utilities ... +"BLD",7919,1,126,0) + Installation ... +"BLD",7919,1,127,0) + +"BLD",7919,1,128,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7919,1,129,0) + --- +"BLD",7919,1,130,0) + Load a Distribution +"BLD",7919,1,131,0) + Print Transport Global +"BLD",7919,1,132,0) + Compare Transport Global to Current System +"BLD",7919,1,133,0) + Verify Checksums in Transport Global +"BLD",7919,1,134,0) + Install Package(s) +"BLD",7919,1,135,0) + Restart Install of Package(s) +"BLD",7919,1,136,0) + Unload a Distribution +"BLD",7919,1,137,0) + Backup a Transport Global +"BLD",7919,1,138,0) + +"BLD",7919,1,139,0) + Select Installation Option: +"BLD",7919,1,140,0) + +"BLD",7919,1,141,0) + 3. Select Installation Option: +"BLD",7919,1,142,0) + +"BLD",7919,1,143,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7919,1,144,0) + NAME, enter C0Q*1.0*5): +"BLD",7919,1,145,0) + +"BLD",7919,1,146,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7919,1,147,0) + message of any routines exported with this patch. It will not +"BLD",7919,1,148,0) + backup any other changes such as DD's or templates. +"BLD",7919,1,149,0) + b. Compare Transport Global to Current System - This option will +"BLD",7919,1,150,0) + allow you to view all changes that will be made when this patch +"BLD",7919,1,151,0) + is installed. It compares all components of this patch +"BLD",7919,1,152,0) + (routines, DD's, templates, etc.). +"BLD",7919,1,153,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7919,1,154,0) + you to ensure the integrity of the routines that are in the +"BLD",7919,1,155,0) + transport global. +"BLD",7919,1,156,0) + +"BLD",7919,1,157,0) + 4. Select Installation Option: Install Package(s) +"BLD",7919,1,158,0) + +"BLD",7919,1,159,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7919,1,160,0) + +"BLD",7919,1,161,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7919,1,162,0) + and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the +"BLD",7919,1,163,0) + Environment Check routine, the message below will display +"BLD",7919,1,164,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7919,1,165,0) + Install? NO//' answer NO +"BLD",7919,1,166,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7919,1,167,0) + NO//' answer NO +"BLD",7919,1,168,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7919,1,169,0) + and Protocols? NO//' answer NO +"BLD",7919,1,170,0) + +"BLD",7919,1,171,0) + 5. Post installation: No post installation tasks are necessary. +"BLD",7919,4,0) +^9.64PA^1130580001.401^3 +"BLD",7919,4,1130580001.101,0) +1130580001.101 +"BLD",7919,4,1130580001.101,222) +y^y^f^^^^n +"BLD",7919,4,1130580001.201,0) +1130580001.201 +"BLD",7919,4,1130580001.201,222) +y^y^f^^^^n +"BLD",7919,4,1130580001.401,0) +1130580001.401 +"BLD",7919,4,1130580001.401,222) +y^y^f^^^^n +"BLD",7919,4,"B",1130580001.101,1130580001.101) + +"BLD",7919,4,"B",1130580001.201,1130580001.201) + +"BLD",7919,4,"B",1130580001.401,1130580001.401) + +"BLD",7919,6.3) +10 +"BLD",7919,"INI") + +"BLD",7919,"INIT") +POST^C0Q1P5 +"BLD",7919,"KRN",0) +^9.67PA^779.2^20 +"BLD",7919,"KRN",.4,0) +.4 +"BLD",7919,"KRN",.401,0) +.401 +"BLD",7919,"KRN",.402,0) +.402 +"BLD",7919,"KRN",.403,0) +.403 +"BLD",7919,"KRN",.5,0) +.5 +"BLD",7919,"KRN",.84,0) +.84 +"BLD",7919,"KRN",3.6,0) +3.6 +"BLD",7919,"KRN",3.8,0) +3.8 +"BLD",7919,"KRN",9.2,0) +9.2 +"BLD",7919,"KRN",9.8,0) +9.8 +"BLD",7919,"KRN",9.8,"NM",0) +^9.68A^3^3 +"BLD",7919,"KRN",9.8,"NM",1,0) +C0QMU12^^0^B280797584 +"BLD",7919,"KRN",9.8,"NM",2,0) +C0QUPDT^^0^B78768309 +"BLD",7919,"KRN",9.8,"NM",3,0) +C0Q1P5^^0^B619258 +"BLD",7919,"KRN",9.8,"NM","B","C0Q1P5",3) + +"BLD",7919,"KRN",9.8,"NM","B","C0QMU12",1) + +"BLD",7919,"KRN",9.8,"NM","B","C0QUPDT",2) + +"BLD",7919,"KRN",19,0) +19 +"BLD",7919,"KRN",19,"NM",0) +^9.68A^6^6 +"BLD",7919,"KRN",19,"NM",1,0) +C0Q EDIT SUPERUSERS^^0 +"BLD",7919,"KRN",19,"NM",2,0) +C0Q EDIT OUTPATIENT PARMS^^0 +"BLD",7919,"KRN",19,"NM",3,0) +C0Q EDIT INP PARMS^^0 +"BLD",7919,"KRN",19,"NM",4,0) +C0Q EDIT MEASURE SET^^0 +"BLD",7919,"KRN",19,"NM",5,0) +C0Q EDIT MU MEASURE^^0 +"BLD",7919,"KRN",19,"NM",6,0) +C0Q EDIT QUALITY MEASURE^^0 +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT INP PARMS",3) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT MEASURE SET",4) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT MU MEASURE",5) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT OUTPATIENT PARMS",2) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT QUALITY MEASURE",6) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT SUPERUSERS",1) + +"BLD",7919,"KRN",19.1,0) +19.1 +"BLD",7919,"KRN",101,0) +101 +"BLD",7919,"KRN",409.61,0) +409.61 +"BLD",7919,"KRN",771,0) +771 +"BLD",7919,"KRN",779.2,0) +779.2 +"BLD",7919,"KRN",870,0) +870 +"BLD",7919,"KRN",8989.51,0) +8989.51 +"BLD",7919,"KRN",8989.52,0) +8989.52 +"BLD",7919,"KRN",8994,0) +8994 +"BLD",7919,"KRN","B",.4,.4) + +"BLD",7919,"KRN","B",.401,.401) + +"BLD",7919,"KRN","B",.402,.402) + +"BLD",7919,"KRN","B",.403,.403) + +"BLD",7919,"KRN","B",.5,.5) + +"BLD",7919,"KRN","B",.84,.84) + +"BLD",7919,"KRN","B",3.6,3.6) + +"BLD",7919,"KRN","B",3.8,3.8) + +"BLD",7919,"KRN","B",9.2,9.2) + +"BLD",7919,"KRN","B",9.8,9.8) + +"BLD",7919,"KRN","B",19,19) + +"BLD",7919,"KRN","B",19.1,19.1) + +"BLD",7919,"KRN","B",101,101) + +"BLD",7919,"KRN","B",409.61,409.61) + +"BLD",7919,"KRN","B",771,771) + +"BLD",7919,"KRN","B",779.2,779.2) + +"BLD",7919,"KRN","B",870,870) + +"BLD",7919,"KRN","B",8989.51,8989.51) + +"BLD",7919,"KRN","B",8989.52,8989.52) + +"BLD",7919,"KRN","B",8994,8994) + +"BLD",7919,"PRET") +TRAN^C0Q1P5 +"BLD",7919,"QUES",0) +^9.62^^ +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^^^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FIA",1130580001.201) +C0Q MEASUREMENT SET +"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,0,"VR") +1.0^C0Q +"FIA",1130580001.201,1130580001.201) +0 +"FIA",1130580001.201,1130580001.2011) +0 +"FIA",1130580001.201,1130580001.20111) +0 +"FIA",1130580001.201,1130580001.20112) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^y^f^^^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +0 +"FIA",1130580001.401,1130580001.4013) +0 +"FIA",1130580001.401,1130580001.411) +0 +"INIT") +POST^C0Q1P5 +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"IX",1130580001.201,1130580001.201,"MU",0) +1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS +"IX",1130580001.201,1130580001.201,"MU",1) +S ^C0Q(201,"MU",$E(X,1,30),DA)="" +"IX",1130580001.201,1130580001.201,"MU",2) +K ^C0Q(201,"MU",$E(X,1,30),DA) +"IX",1130580001.201,1130580001.201,"MU",2.5) +K ^C0Q(201,"MU") +"IX",1130580001.201,1130580001.201,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.201,1130580001.201,"MU",11.1,1,0) +1^F^1130580001.201^.3^30^1^F +"IX",1130580001.401,1130580001.401,"MU",0) +1130580001.401^MU^REGULAR INDEX ON THE REPORTING PERIOD FIELD^R^^F^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MU",1) +S ^C0Q(401,"MU",$E(X,1,30),DA)="" +"IX",1130580001.401,1130580001.401,"MU",2) +K ^C0Q(401,"MU",$E(X,1,30),DA) +"IX",1130580001.401,1130580001.401,"MU",2.5) +K ^C0Q(401,"MU") +"IX",1130580001.401,1130580001.401,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.401,1130580001.401,"MU",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",0) +1130580001.401^MUTYP^INDEX ON PARAMETER TYPE BY REPORTING PERIOD^R^^R^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MUTYP",1) +S ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA)="" +"IX",1130580001.401,1130580001.401,"MUTYP",2) +K ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA) +"IX",1130580001.401,1130580001.401,"MUTYP",2.5) +K ^C0Q(401,"MUTYP") +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,0) +^.114IA^2^2 +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,3) + +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,0) +2^F^1130580001.401^.03^^2^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,3) + +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^784 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",19,11027,-1) +0^3 +"KRN",19,11027,0) +C0Q EDIT INP PARMS^INP EDIT PARMS^^E^^^^^^^^^y^^ +"KRN",19,11027,15) + +"KRN",19,11027,20) + +"KRN",19,11027,30) +C0Q(401, +"KRN",19,11027,31) +AEMQL +"KRN",19,11027,50) +C0Q(401, +"KRN",19,11027,51) +[C0Q EDIT INPATIENT PARMS] +"KRN",19,11027,"U") +INP EDIT PARMS +"KRN",19,11028,-1) +0^2 +"KRN",19,11028,0) +C0Q EDIT OUTPATIENT PARMS^EP EDIT PARMS^^E^^^^^^^^QUALITY MEASURES^y^^ +"KRN",19,11028,15) + +"KRN",19,11028,20) + +"KRN",19,11028,30) +C0Q(401, +"KRN",19,11028,31) +AEMQL +"KRN",19,11028,50) +C0Q(401, +"KRN",19,11028,51) +[C0Q EDIT OUPATIENT PARMS] +"KRN",19,11028,"U") +EP EDIT PARMS +"KRN",19,11029,-1) +0^1 +"KRN",19,11029,0) +C0Q EDIT SUPERUSERS^EDIT SUPERUSERS^^E^^^^^^^^^y +"KRN",19,11029,30) +C0Q(401, +"KRN",19,11029,31) +AEMQ +"KRN",19,11029,50) +C0Q(401, +"KRN",19,11029,51) +[C0Q EDIT SUPERUSERS] +"KRN",19,11029,"U") +EDIT SUPERUSERS +"KRN",19,11030,-1) +0^4 +"KRN",19,11030,0) +C0Q EDIT MEASURE SET^MEASURE SET EDIT^^E^^^^^^^^QUALITY MEASURES^y^^ +"KRN",19,11030,15) + +"KRN",19,11030,20) + +"KRN",19,11030,30) +C0Q(201, +"KRN",19,11030,31) +AEMQL +"KRN",19,11030,50) +C0Q(201, +"KRN",19,11030,51) +[C0Q EDIT MEASURE SET] +"KRN",19,11030,"U") +MEASURE SET EDIT +"KRN",19,11031,-1) +0^6 +"KRN",19,11031,0) +C0Q EDIT QUALITY MEASURE^QUALITY MEASURE EDIT^^E^^^^^^^^^y^^ +"KRN",19,11031,15) + +"KRN",19,11031,20) + +"KRN",19,11031,30) +C0Q(101, +"KRN",19,11031,31) +AEMQL +"KRN",19,11031,50) +C0Q(101, +"KRN",19,11031,51) +[C0Q EDIT QUALITY MEASURE] +"KRN",19,11031,"U") +QUALITY MEASURE EDIT +"KRN",19,11032,-1) +0^5 +"KRN",19,11032,0) +C0Q EDIT MU MEASURE^MU MEASURE EDIT^^E^^^^^^^^QUALITY MEASURES^y^^ +"KRN",19,11032,15) + +"KRN",19,11032,20) + +"KRN",19,11032,30) +C0Q(101, +"KRN",19,11032,31) +AEMQL +"KRN",19,11032,50) +C0Q(101, +"KRN",19,11032,51) +[C0Q EDIT MU MEASURE] +"KRN",19,11032,"U") +MU MEASURE EDIT +"MBREQ") +0 +"ORD",18,19) +19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA +"ORD",18,19,0) +OPTION +"PKG",214,-1) +1^1 +"PKG",214,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",214,20,0) +^9.402P^^ +"PKG",214,22,0) +^9.49I^1^1 +"PKG",214,22,1,0) +1.0^3120731^3121002^8 +"PKG",214,22,1,"PAH",1,0) +5^3121018 +"PKG",214,22,1,"PAH",1,1,0) +^^171^171^3121018 +"PKG",214,22,1,"PAH",1,1,1,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"PKG",214,22,1,"PAH",1,1,2,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"PKG",214,22,1,"PAH",1,1,3,0) + +"PKG",214,22,1,"PAH",1,1,4,0) +DESCRIPTION: +"PKG",214,22,1,"PAH",1,1,5,0) +============ +"PKG",214,22,1,"PAH",1,1,6,0) +Written by Sam Habiel on 17 October 2012 and released through VISTA Forum. +"PKG",214,22,1,"PAH",1,1,7,0) + +"PKG",214,22,1,"PAH",1,1,8,0) +Licensed under package license (currently GPL 2.0) +"PKG",214,22,1,"PAH",1,1,9,0) + +"PKG",214,22,1,"PAH",1,1,10,0) +FUNCTIONALITY: +"PKG",214,22,1,"PAH",1,1,11,0) +============== +"PKG",214,22,1,"PAH",1,1,12,0) +This build fixes various bugs in the Quality Measurements package +"PKG",214,22,1,"PAH",1,1,13,0) +discovered during testing. +"PKG",214,22,1,"PAH",1,1,14,0) + +"PKG",214,22,1,"PAH",1,1,15,0) + 1. Empty lists are created in advance for Outpatients. Previously, they +"PKG",214,22,1,"PAH",1,1,16,0) +were not created, even though an entry point existed (INITCLST). +"PKG",214,22,1,"PAH",1,1,17,0) + +"PKG",214,22,1,"PAH",1,1,18,0) + 2. The Vitals lookup code that calls CPRS code didn't include today. +"PKG",214,22,1,"PAH",1,1,19,0) +This was fixed by adding .999999 to today's date. +"PKG",214,22,1,"PAH",1,1,20,0) + +"PKG",214,22,1,"PAH",1,1,21,0) + 3. File security (@ sign everywhere) didn't permit normal users to edit +"PKG",214,22,1,"PAH",1,1,22,0) +the file. Previous, I defeated the @ sign protection by setting DLAYGO. +"PKG",214,22,1,"PAH",1,1,23,0) +However, DLAYGO got killed by Fileman after each edit, which meant that +"PKG",214,22,1,"PAH",1,1,24,0) +you can only edit one entry at a time before heading back out and back in +"PKG",214,22,1,"PAH",1,1,25,0) +to edit another entry. After discussion with Fileman developers, the +"PKG",214,22,1,"PAH",1,1,26,0) +proper way to do this was to not to use DLAYGO but rather remove the @ +"PKG",214,22,1,"PAH",1,1,27,0) +signs for Read, Write, and Laygo in the Files Definitions. +"PKG",214,22,1,"PAH",1,1,28,0) + +"PKG",214,22,1,"PAH",1,1,29,0) + - File list where protections were changed. +"PKG",214,22,1,"PAH",1,1,30,0) + --> C0Q MEASUREMENT SET (1130580001.201) +"PKG",214,22,1,"PAH",1,1,31,0) + --> C0Q QUALITY MEASURE (1130580001.101) +"PKG",214,22,1,"PAH",1,1,32,0) + --> C0Q PARAMETER (1130580001.401) +"PKG",214,22,1,"PAH",1,1,33,0) + +"PKG",214,22,1,"PAH",1,1,34,0) + - Options which don't use DLAYGO anymore. +"PKG",214,22,1,"PAH",1,1,35,0) + --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS] +"PKG",214,22,1,"PAH",1,1,36,0) + --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS] +"PKG",214,22,1,"PAH",1,1,37,0) + --> INP EDIT PARMS [C0Q EDIT INP PARMS] +"PKG",214,22,1,"PAH",1,1,38,0) + --> MEASURE SET EDIT [C0Q EDIT MEASURE SET] +"PKG",214,22,1,"PAH",1,1,39,0) + --> MU MEASURE EDIT [C0Q EDIT MU MEASURE] +"PKG",214,22,1,"PAH",1,1,40,0) + --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE] +"PKG",214,22,1,"PAH",1,1,41,0) + +"PKG",214,22,1,"PAH",1,1,42,0) +4. The Outpatient Quality Measurement Set which is specified in the +"PKG",214,22,1,"PAH",1,1,43,0) +Parameters was being completely ignored. This is fixed. +"PKG",214,22,1,"PAH",1,1,44,0) + +"PKG",214,22,1,"PAH",1,1,45,0) +5. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag +"PKG",214,22,1,"PAH",1,1,46,0) +indicating the type of measure (Performance vs Quality Measure). Since it +"PKG",214,22,1,"PAH",1,1,47,0) +was left lying around, a Quality Measure was mistakenly interpreted as a +"PKG",214,22,1,"PAH",1,1,48,0) +performance measure, giving you a result of zero, since there is no +"PKG",214,22,1,"PAH",1,1,49,0) +data for this Quality Measure. +"PKG",214,22,1,"PAH",1,1,50,0) + +"PKG",214,22,1,"PAH",1,1,51,0) +6. The option that executes the logic for Outpatients C0Q EP UPDATE MU +"PKG",214,22,1,"PAH",1,1,52,0) +MEASURES didn't display the time on the dates of the Visits being +"PKG",214,22,1,"PAH",1,1,53,0) +processed correctly. This patch fixes this. +"PKG",214,22,1,"PAH",1,1,54,0) + +"PKG",214,22,1,"PAH",1,1,55,0) +SUPPORT TICKETS: +"PKG",214,22,1,"PAH",1,1,56,0) +================ +"PKG",214,22,1,"PAH",1,1,57,0) +None +"PKG",214,22,1,"PAH",1,1,58,0) + +"PKG",214,22,1,"PAH",1,1,59,0) +PACKAGE ELEMENTS: +"PKG",214,22,1,"PAH",1,1,60,0) +================= +"PKG",214,22,1,"PAH",1,1,61,0) + +"PKG",214,22,1,"PAH",1,1,62,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"PKG",214,22,1,"PAH",1,1,63,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"PKG",214,22,1,"PAH",1,1,64,0) +POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No +"PKG",214,22,1,"PAH",1,1,65,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P5 +"PKG",214,22,1,"PAH",1,1,66,0) + +"PKG",214,22,1,"PAH",1,1,67,0) + UP SEND DATA USER +"PKG",214,22,1,"PAH",1,1,68,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",214,22,1,"PAH",1,1,69,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",214,22,1,"PAH",1,1,70,0) +------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,71,0) + +"PKG",214,22,1,"PAH",1,1,72,0) +1130580001.101C0Q QUALITY MEASURE YES YES NO +"PKG",214,22,1,"PAH",1,1,73,0) + +"PKG",214,22,1,"PAH",1,1,74,0) +1130580001.201C0Q MEASUREMENT SET YES YES NO +"PKG",214,22,1,"PAH",1,1,75,0) + +"PKG",214,22,1,"PAH",1,1,76,0) + UP SEND DATA USER +"PKG",214,22,1,"PAH",1,1,77,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",214,22,1,"PAH",1,1,78,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",214,22,1,"PAH",1,1,79,0) +------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,80,0) + +"PKG",214,22,1,"PAH",1,1,81,0) +1130580001.401C0Q PARAMETER YES YES NO +"PKG",214,22,1,"PAH",1,1,82,0) + +"PKG",214,22,1,"PAH",1,1,83,0) +ROUTINE: ACTION: +"PKG",214,22,1,"PAH",1,1,84,0) + C0Q1P5 SEND TO SITE +"PKG",214,22,1,"PAH",1,1,85,0) + C0QMU12 SEND TO SITE +"PKG",214,22,1,"PAH",1,1,86,0) + C0QUPDT SEND TO SITE +"PKG",214,22,1,"PAH",1,1,87,0) + +"PKG",214,22,1,"PAH",1,1,88,0) +OPTION: ACTION: +"PKG",214,22,1,"PAH",1,1,89,0) + C0Q EDIT INP PARMS SEND TO SITE +"PKG",214,22,1,"PAH",1,1,90,0) + C0Q EDIT MEASURE SET SEND TO SITE +"PKG",214,22,1,"PAH",1,1,91,0) + C0Q EDIT MU MEASURE SEND TO SITE +"PKG",214,22,1,"PAH",1,1,92,0) + C0Q EDIT OUTPATIENT PARMS SEND TO SITE +"PKG",214,22,1,"PAH",1,1,93,0) + C0Q EDIT QUALITY MEASURE SEND TO SITE +"PKG",214,22,1,"PAH",1,1,94,0) + C0Q EDIT SUPERUSERS SEND TO SITE +"PKG",214,22,1,"PAH",1,1,95,0) + +"PKG",214,22,1,"PAH",1,1,96,0) +DOCUMENTATION: +"PKG",214,22,1,"PAH",1,1,97,0) +============== +"PKG",214,22,1,"PAH",1,1,98,0) +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 +"PKG",214,22,1,"PAH",1,1,99,0) + +"PKG",214,22,1,"PAH",1,1,100,0) +COMPLIANCE: +"PKG",214,22,1,"PAH",1,1,101,0) +=========== +"PKG",214,22,1,"PAH",1,1,102,0) +This software complies with the VA MUMPS Programming Standards and +"PKG",214,22,1,"PAH",1,1,103,0) + Conventions (version 3 April 2007), except for the following: +"PKG",214,22,1,"PAH",1,1,104,0) + +"PKG",214,22,1,"PAH",1,1,105,0) + C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584 +"PKG",214,22,1,"PAH",1,1,106,0) + S - Routine code exceeds SACC maximum size of 15000 (15513). +"PKG",214,22,1,"PAH",1,1,107,0) + +"PKG",214,22,1,"PAH",1,1,108,0) +Blood Bank Clearance: This software doesn't interact with the Blood Bank module. +"PKG",214,22,1,"PAH",1,1,109,0) + +"PKG",214,22,1,"PAH",1,1,110,0) +Installation Instructions: +"PKG",214,22,1,"PAH",1,1,111,0) +========================== +"PKG",214,22,1,"PAH",1,1,112,0) +Install Time - less than 1 minute. +"PKG",214,22,1,"PAH",1,1,113,0) + +"PKG",214,22,1,"PAH",1,1,114,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",214,22,1,"PAH",1,1,115,0) + +"PKG",214,22,1,"PAH",1,1,116,0) + Choose the PackMan message containing this patch and invoke the +"PKG",214,22,1,"PAH",1,1,117,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"PKG",214,22,1,"PAH",1,1,118,0) + +"PKG",214,22,1,"PAH",1,1,119,0) + 2. START UP KIDS +"PKG",214,22,1,"PAH",1,1,120,0) + +"PKG",214,22,1,"PAH",1,1,121,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",214,22,1,"PAH",1,1,122,0) + [XPD MAIN]: +"PKG",214,22,1,"PAH",1,1,123,0) + +"PKG",214,22,1,"PAH",1,1,124,0) + Edits and Distribution ... +"PKG",214,22,1,"PAH",1,1,125,0) + Utilities ... +"PKG",214,22,1,"PAH",1,1,126,0) + Installation ... +"PKG",214,22,1,"PAH",1,1,127,0) + +"PKG",214,22,1,"PAH",1,1,128,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",214,22,1,"PAH",1,1,129,0) + --- +"PKG",214,22,1,"PAH",1,1,130,0) + Load a Distribution +"PKG",214,22,1,"PAH",1,1,131,0) + Print Transport Global +"PKG",214,22,1,"PAH",1,1,132,0) + Compare Transport Global to Current System +"PKG",214,22,1,"PAH",1,1,133,0) + Verify Checksums in Transport Global +"PKG",214,22,1,"PAH",1,1,134,0) + Install Package(s) +"PKG",214,22,1,"PAH",1,1,135,0) + Restart Install of Package(s) +"PKG",214,22,1,"PAH",1,1,136,0) + Unload a Distribution +"PKG",214,22,1,"PAH",1,1,137,0) + Backup a Transport Global +"PKG",214,22,1,"PAH",1,1,138,0) + +"PKG",214,22,1,"PAH",1,1,139,0) + Select Installation Option: +"PKG",214,22,1,"PAH",1,1,140,0) + +"PKG",214,22,1,"PAH",1,1,141,0) + 3. Select Installation Option: +"PKG",214,22,1,"PAH",1,1,142,0) + +"PKG",214,22,1,"PAH",1,1,143,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",214,22,1,"PAH",1,1,144,0) + NAME, enter C0Q*1.0*5): +"PKG",214,22,1,"PAH",1,1,145,0) + +"PKG",214,22,1,"PAH",1,1,146,0) + a. Backup a Transport Global - This option will create a backup +"PKG",214,22,1,"PAH",1,1,147,0) + message of any routines exported with this patch. It will not +"PKG",214,22,1,"PAH",1,1,148,0) + backup any other changes such as DD's or templates. +"PKG",214,22,1,"PAH",1,1,149,0) + b. Compare Transport Global to Current System - This option will +"PKG",214,22,1,"PAH",1,1,150,0) + allow you to view all changes that will be made when this patch +"PKG",214,22,1,"PAH",1,1,151,0) + is installed. It compares all components of this patch +"PKG",214,22,1,"PAH",1,1,152,0) + (routines, DD's, templates, etc.). +"PKG",214,22,1,"PAH",1,1,153,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",214,22,1,"PAH",1,1,154,0) + you to ensure the integrity of the routines that are in the +"PKG",214,22,1,"PAH",1,1,155,0) + transport global. +"PKG",214,22,1,"PAH",1,1,156,0) + +"PKG",214,22,1,"PAH",1,1,157,0) + 4. Select Installation Option: Install Package(s) +"PKG",214,22,1,"PAH",1,1,158,0) + +"PKG",214,22,1,"PAH",1,1,159,0) + **This is the step to start the installation of this KIDS patch: +"PKG",214,22,1,"PAH",1,1,160,0) + +"PKG",214,22,1,"PAH",1,1,161,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",214,22,1,"PAH",1,1,162,0) + and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the +"PKG",214,22,1,"PAH",1,1,163,0) + Environment Check routine, the message below will display +"PKG",214,22,1,"PAH",1,1,164,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",214,22,1,"PAH",1,1,165,0) + Install? NO//' answer NO +"PKG",214,22,1,"PAH",1,1,166,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",214,22,1,"PAH",1,1,167,0) + NO//' answer NO +"PKG",214,22,1,"PAH",1,1,168,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",214,22,1,"PAH",1,1,169,0) + and Protocols? NO//' answer NO +"PKG",214,22,1,"PAH",1,1,170,0) + +"PKG",214,22,1,"PAH",1,1,171,0) + 5. Post installation: No post installation tasks are necessary. +"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") +3 +"RTN","C0Q1P5") +0^3^B619258 +"RTN","C0Q1P5",1,0) +C0Q1P5 ; VEN/SMH - KIDS not transporting Security Codes; workaround. ; 10/17/12 12:12pm +"RTN","C0Q1P5",2,0) + ;;1.0;QUALITY MEASURES;**5**;Oct 17, 2012;Build 10 +"RTN","C0Q1P5",3,0) + ;; +"RTN","C0Q1P5",4,0) + ; PEPs: TRAN, POST +"RTN","C0Q1P5",5,0) + ; +"RTN","C0Q1P5",6,0) + ; ZEXCEPT: XPDGREF +"RTN","C0Q1P5",7,0) +TRAN ; Pre-transport hook +"RTN","C0Q1P5",8,0) + M @XPDGREF@(1130580001.101)=^DIC(1130580001.101) +"RTN","C0Q1P5",9,0) + M @XPDGREF@(1130580001.201)=^DIC(1130580001.201) +"RTN","C0Q1P5",10,0) + M @XPDGREF@(1130580001.401)=^DIC(1130580001.401) +"RTN","C0Q1P5",11,0) + QUIT +"RTN","C0Q1P5",12,0) + ; +"RTN","C0Q1P5",13,0) + ; ZEXCEPT: XPDGREF +"RTN","C0Q1P5",14,0) +POST ; Post-install hook +"RTN","C0Q1P5",15,0) + M ^DIC(1130580001.101)=@XPDGREF@(1130580001.101) +"RTN","C0Q1P5",16,0) + M ^DIC(1130580001.201)=@XPDGREF@(1130580001.201) +"RTN","C0Q1P5",17,0) + M ^DIC(1130580001.401)=@XPDGREF@(1130580001.401) +"RTN","C0Q1P5",18,0) + QUIT +"RTN","C0QMU12") +0^1^B280797584 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm +"RTN","C0QMU12",2,0) + ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 10 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",29,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",30,0) + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX +"RTN","C0QMU12",31,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",32,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",34,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX +"RTN","C0QMU12",36,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",37,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",38,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",40,0) + . D CLEAN^DILF +"RTN","C0QMU12",41,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",42,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",43,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",44,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",45,0) + ; +"RTN","C0QMU12",46,0) + Q +"RTN","C0QMU12",47,0) + ; +"RTN","C0QMU12",48,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",49,0) + ; patient lists +"RTN","C0QMU12",50,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",51,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",52,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",53,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",54,0) + S ZYR="MU12-" +"RTN","C0QMU12",55,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",56,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",57,0) + N C0QPARM +"RTN","C0QMU12",58,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",59,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",60,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",61,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",62,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",63,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",64,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",65,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",66,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",67,0) + . I C0QPL D ; +"RTN","C0QMU12",68,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",69,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",70,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",71,0) + . K C0QLIST +"RTN","C0QMU12",72,0) + Q +"RTN","C0QMU12",73,0) + ; +"RTN","C0QMU12",74,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",75,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",76,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",77,0) + ; will be zeroed out +"RTN","C0QMU12",78,0) + ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!! +"RTN","C0QMU12",79,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",80,0) + S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP. +"RTN","C0QMU12",81,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",82,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",83,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",87,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",88,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",89,0) + S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",90,0) + Q +"RTN","C0QMU12",91,0) + ; +"RTN","C0QMU12",92,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",93,0) + N WARD S WARD="" +"RTN","C0QMU12",94,0) + F D Q:WARD="" +"RTN","C0QMU12",95,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",96,0) + . Q:WARD="" +"RTN","C0QMU12",97,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",98,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",99,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",100,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",101,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",102,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",103,0) + . . . D PROBLEM +"RTN","C0QMU12",104,0) + . . . D ALLERGY +"RTN","C0QMU12",105,0) + . . . D MEDS4 +"RTN","C0QMU12",106,0) + . . . D RECON2 +"RTN","C0QMU12",107,0) + . . . D ADVDIR +"RTN","C0QMU12",108,0) + . . . D SMOKING +"RTN","C0QMU12",109,0) + . . . D VITALS +"RTN","C0QMU12",110,0) + . . . D VTE1 +"RTN","C0QMU12",111,0) + . . . D COD +"RTN","C0QMU12",112,0) + . . . D EDTIME +"RTN","C0QMU12",113,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",114,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",115,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",116,0) + Q +"RTN","C0QMU12",117,0) + ; +"RTN","C0QMU12",118,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",119,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",120,0) + S PBCNT="" +"RTN","C0QMU12",121,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",122,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",123,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",124,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",125,0) + K PROBL +"RTN","C0QMU12",126,0) + Q +"RTN","C0QMU12",127,0) + ; +"RTN","C0QMU12",128,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",129,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",130,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",131,0) + S ALCNT="" +"RTN","C0QMU12",132,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",133,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",134,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",135,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",136,0) + K ALRGYL +"RTN","C0QMU12",137,0) + Q +"RTN","C0QMU12",138,0) + ; +"RTN","C0QMU12",139,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",140,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",141,0) + N BEG,END +"RTN","C0QMU12",142,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",143,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",144,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",145,0) + N C0QMEDS +"RTN","C0QMU12",146,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",147,0) + N FOUND +"RTN","C0QMU12",148,0) + N ZI +"RTN","C0QMU12",149,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",150,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",151,0) + E D ; HAS MEDS +"RTN","C0QMU12",152,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",153,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",154,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",155,0) + . N ZM +"RTN","C0QMU12",156,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",157,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",158,0) + . . S FOUND=1 +"RTN","C0QMU12",159,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",160,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",161,0) + Q +"RTN","C0QMU12",162,0) + ; +"RTN","C0QMU12",163,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",164,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",165,0) + ; +"RTN","C0QMU12",166,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",167,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",168,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",169,0) + N GT,G +"RTN","C0QMU12",170,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",171,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",172,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",173,0) + . S HASRECON=1 +"RTN","C0QMU12",174,0) + ;N ZT +"RTN","C0QMU12",175,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",176,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",177,0) + ;. S HASRECON=1 +"RTN","C0QMU12",178,0) + ;E D ; +"RTN","C0QMU12",179,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",180,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",181,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",182,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",183,0) + I HASRECON D ; +"RTN","C0QMU12",184,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",185,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",186,0) + Q +"RTN","C0QMU12",187,0) + ; +"RTN","C0QMU12",188,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",189,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",190,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",191,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",192,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",193,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",194,0) + Q +"RTN","C0QMU12",195,0) + ; +"RTN","C0QMU12",196,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",197,0) + N ZI S ZI="" +"RTN","C0QMU12",198,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",199,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",200,0) + . ;B +"RTN","C0QMU12",201,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",202,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",203,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",204,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",205,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",206,0) + . E D ; +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",208,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",209,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",210,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",211,0) + Q +"RTN","C0QMU12",212,0) + ; +"RTN","C0QMU12",213,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",214,0) + ; +"RTN","C0QMU12",215,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",216,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",217,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",218,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",219,0) + . E D ; +"RTN","C0QMU12",220,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",221,0) + Q +"RTN","C0QMU12",222,0) + ; +"RTN","C0QMU12",223,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",224,0) +VITALS ; +"RTN","C0QMU12",225,0) + ; +"RTN","C0QMU12",226,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",227,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",228,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",229,0) + S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5 +"RTN","C0QMU12",230,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",231,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",232,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",233,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",234,0) + Q +"RTN","C0QMU12",235,0) + ; +"RTN","C0QMU12",236,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",237,0) + ; +"RTN","C0QMU12",238,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",239,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",240,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",241,0) + Q +"RTN","C0QMU12",242,0) + ; +"RTN","C0QMU12",243,0) + ; +"RTN","C0QMU12",244,0) + ; +"RTN","C0QMU12",245,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",246,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",247,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",248,0) + Q +"RTN","C0QMU12",249,0) + ; +"RTN","C0QMU12",250,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",251,0) + N FOUND +"RTN","C0QMU12",252,0) + S FOUND=0 +"RTN","C0QMU12",253,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",254,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",255,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",256,0) + I FOUND D ; +"RTN","C0QMU12",257,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",258,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",259,0) + Q +"RTN","C0QMU12",260,0) + ; +"RTN","C0QMU12",261,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",262,0) + N ZICU +"RTN","C0QMU12",263,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",264,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",265,0) + S ZI="" +"RTN","C0QMU12",266,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",267,0) + . S ZJ="" +"RTN","C0QMU12",268,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",269,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",270,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",271,0) + Q +"RTN","C0QMU12",272,0) + ; +"RTN","C0QMU12",273,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",274,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",275,0) + K C0QLIST +"RTN","C0QMU12",276,0) + N ZPAT +"RTN","C0QMU12",277,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",278,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",279,0) + ; +"RTN","C0QMU12",280,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",281,0) + N GN,GO,GF +"RTN","C0QMU12",282,0) + S GN=ZPAT +"RTN","C0QMU12",283,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",284,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",285,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",286,0) + ; +"RTN","C0QMU12",287,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",288,0) + ; +"RTN","C0QMU12",289,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",290,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",291,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",292,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",293,0) + ; +"RTN","C0QMU12",294,0) + S GN=ZPAT +"RTN","C0QMU12",295,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",296,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",297,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",298,0) + ; +"RTN","C0QMU12",299,0) + S GN=ZPAT +"RTN","C0QMU12",300,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",301,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",302,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",303,0) + ; +"RTN","C0QMU12",304,0) + S GN=ZPAT +"RTN","C0QMU12",305,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",306,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",307,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",308,0) + ; +"RTN","C0QMU12",309,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",310,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",311,0) + Q +"RTN","C0QMU12",312,0) + ; +"RTN","C0QMU12",313,0) +ED1 ; +"RTN","C0QMU12",314,0) + S ZYR="MU12-" +"RTN","C0QMU12",315,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",316,0) + Q +"RTN","C0QMU12",317,0) + ; +"RTN","C0QMU12",318,0) +ED2 ; +"RTN","C0QMU12",319,0) + S ZYR="MU12-" +"RTN","C0QMU12",320,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",321,0) + Q +"RTN","C0QMU12",322,0) + ; +"RTN","C0QMU12",323,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",324,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",325,0) + N ZIEN,ZN +"RTN","C0QMU12",326,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",327,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",328,0) + Q ZN +"RTN","C0QMU12",329,0) + ; +"RTN","C0QMU12",330,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",331,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",332,0) + N ZIEN,ZN +"RTN","C0QMU12",333,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",334,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",335,0) + Q ZN +"RTN","C0QMU12",336,0) + ; +"RTN","C0QMU12",337,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",338,0) + N ZL,ZR +"RTN","C0QMU12",339,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",340,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",341,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",342,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",343,0) + Q ZR +"RTN","C0QMU12",344,0) + ; +"RTN","C0QMU12",345,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",346,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",347,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",348,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",349,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",350,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",351,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",352,0) + N ZI +"RTN","C0QMU12",353,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",354,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",355,0) + . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5 +"RTN","C0QMU12",356,0) + . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5 +"RTN","C0QMU12",357,0) + . I ZI="" Q ; +"RTN","C0QMU12",358,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",359,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",360,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",361,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",362,0) + Q +"RTN","C0QMU12",363,0) + ; +"RTN","C0QMU12",364,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",365,0) + ; +"RTN","C0QMU12",366,0) + S DTE=3111000 +"RTN","C0QMU12",367,0) + S MUYR=ZYR +"RTN","C0QMU12",368,0) + N ZC,ZN +"RTN","C0QMU12",369,0) + S ZN=0 +"RTN","C0QMU12",370,0) + N ZI S ZI=0 +"RTN","C0QMU12",371,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",372,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",373,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",374,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",375,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",376,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",377,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",378,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",379,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",380,0) + Q +"RTN","C0QMU12",381,0) + ; +"RTN","C0QMU12",382,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",383,0) + S ZYR="MU12-" +"RTN","C0QMU12",384,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",385,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",386,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",387,0) + N ZI S ZI="" +"RTN","C0QMU12",388,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",389,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",390,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",391,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",392,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",393,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",394,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",395,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",396,0) + S DFN="" +"RTN","C0QMU12",397,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",398,0) + D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have +"RTN","C0QMU12",399,0) + ; any. C0Q*1*5 +"RTN","C0QMU12",400,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",401,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",402,0) + . D PROBLEM +"RTN","C0QMU12",403,0) + . D ALLERGY +"RTN","C0QMU12",404,0) + . ;D MEDS +"RTN","C0QMU12",405,0) + . D ERX +"RTN","C0QMU12",406,0) + . D SMOKING +"RTN","C0QMU12",407,0) + . D VITALS +"RTN","C0QMU12",408,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",409,0) + ; +"RTN","C0QMU12",410,0) + ; Now process eRx MU measures for these patients +"RTN","C0QMU12",411,0) + ; Check for eRx template and code first; if they exist, run the code +"RTN","C0QMU12",412,0) + I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO +"RTN","C0QMU12",413,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",414,0) + . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list +"RTN","C0QMU12",415,0) + ; +"RTN","C0QMU12",416,0) + N ZI S ZI="" +"RTN","C0QMU12",417,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",418,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",419,0) + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",420,0) + . ; VEN/SMH -- Quality Set missing for Outpatient -- adding +"RTN","C0QMU12",421,0) + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5 +"RTN","C0QMU12",422,0) + Q +"RTN","C0QMU12",423,0) + ; +"RTN","C0QMU12",424,0) +DIS ; +"RTN","C0QMU12",425,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",426,0) + F D Q:DTE="" +"RTN","C0QMU12",427,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",428,0) + . Q:'DTE +"RTN","C0QMU12",429,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",430,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",431,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",432,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",433,0) + . D +"RTN","C0QMU12",434,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",435,0) + . . Q:'PTFM +"RTN","C0QMU12",436,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",437,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",438,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",439,0) + . . D PROBLEM +"RTN","C0QMU12",440,0) + . . D ALLERGY +"RTN","C0QMU12",441,0) + . . D MEDS4 +"RTN","C0QMU12",442,0) + . . D RECON2 +"RTN","C0QMU12",443,0) + . . D ADVDIR +"RTN","C0QMU12",444,0) + . . D SMOKING +"RTN","C0QMU12",445,0) + . . D VITALS +"RTN","C0QMU12",446,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",447,0) + . . D VTE1 +"RTN","C0QMU12",448,0) + . . D COD +"RTN","C0QMU12",449,0) + . . D EDTIME +"RTN","C0QMU12",450,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",451,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",452,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",453,0) + Q +"RTN","C0QMU12",454,0) + ; +"RTN","C0QMU12",455,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",456,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",457,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",458,0) + ; +"RTN","C0QMU12",459,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",460,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",461,0) + N ZI,ZN +"RTN","C0QMU12",462,0) + S ZI="" +"RTN","C0QMU12",463,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",464,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",465,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",466,0) + . . K C0QFDA +"RTN","C0QMU12",467,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",468,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",469,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",470,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",471,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",472,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",473,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",474,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",475,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",476,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",477,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",478,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",479,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",480,0) + . N ZJ,ZK +"RTN","C0QMU12",481,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",482,0) + . K C0QFDA +"RTN","C0QMU12",483,0) + . S ZJ="" +"RTN","C0QMU12",484,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",485,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",486,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",487,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",488,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",489,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",490,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",491,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",492,0) + . K C0QFDA +"RTN","C0QMU12",493,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",494,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",495,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",496,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",497,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",498,0) + ;. Q +"RTN","C0QMU12",499,0) + ;. K C0QFDA +"RTN","C0QMU12",500,0) + ;. N ZJ,ZC +"RTN","C0QMU12",501,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",502,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",503,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",504,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",505,0) + ;. D UPDIE +"RTN","C0QMU12",506,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",507,0) + Q +"RTN","C0QMU12",508,0) + ; +"RTN","C0QMU12",509,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",510,0) + ; +"RTN","C0QMU12",511,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",512,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",513,0) + D CLEAN^DILF +"RTN","C0QMU12",514,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",515,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",516,0) + D CLEAN^DILF +"RTN","C0QMU12",517,0) + K ZERR +"RTN","C0QMU12",518,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",519,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",520,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",521,0) + ;. W "ERROR",! +"RTN","C0QMU12",522,0) + ;. ZWR ZERR +"RTN","C0QMU12",523,0) + ;. B +"RTN","C0QMU12",524,0) + K C0QFDA +"RTN","C0QMU12",525,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",526,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",527,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",528,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",529,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",530,0) + ; +"RTN","C0QMU12",531,0) + Q ZR +"RTN","C0QMU12",532,0) + ; +"RTN","C0QMU12",533,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",534,0) + K ZERR +"RTN","C0QMU12",535,0) + D CLEAN^DILF +"RTN","C0QMU12",536,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",537,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",538,0) + K C0QFDA +"RTN","C0QMU12",539,0) + Q +"RTN","C0QMU12",540,0) + ; +"RTN","C0QMU12",541,0) +END ;end of C0QPRML; +"RTN","C0QUPDT") +0^2^B78768309 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 10/17/12 12:09pm +"RTN","C0QUPDT",2,0) + ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 10 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +"RTN","C0QUPDT",30,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",31,0) + ; +"RTN","C0QUPDT",32,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",33,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",34,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",35,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",36,0) + ; +"RTN","C0QUPDT",37,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",38,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",39,0) + ; +"RTN","C0QUPDT",40,0) + N ZI S ZI="" +"RTN","C0QUPDT",41,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",42,0) + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? +"RTN","C0QUPDT",43,0) + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" +"RTN","C0QUPDT",44,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",45,0) + D DELIST("C0QM") +"RTN","C0QUPDT",46,0) + N ZII S ZII="" +"RTN","C0QUPDT",47,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",48,0) + . ; +"RTN","C0QUPDT",49,0) + . ; Special processing for eRx measure. +"RTN","C0QUPDT",50,0) + . I $$GET1^DIQ(1130580001.101,+C0QM(ZII)_",",4,"I")="E" D ERXCOUNT(MSET,ZII) Q +"RTN","C0QUPDT",51,0) + . ; +"RTN","C0QUPDT",52,0) + . ; Otherwise, we go on +"RTN","C0QUPDT",53,0) + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD,C0QNALT ; VEN/SMH - line changed in *5 +"RTN","C0QUPDT",54,0) + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST +"RTN","C0QUPDT",55,0) + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST +"RTN","C0QUPDT",56,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",57,0) + . ; +"RTN","C0QUPDT",58,0) + . ; Numerator +"RTN","C0QUPDT",59,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",60,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",61,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",62,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",63,0) + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh +"RTN","C0QUPDT",64,0) + . ; +"RTN","C0QUPDT",65,0) + . ; Denominator +"RTN","C0QUPDT",66,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",67,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",68,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",69,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",70,0) + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh +"RTN","C0QUPDT",71,0) + . ; +"RTN","C0QUPDT",72,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",73,0) + . ; +"RTN","C0QUPDT",74,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",75,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",76,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",77,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",78,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",79,0) + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST +"RTN","C0QUPDT",80,0) + . . N ZNEW +"RTN","C0QUPDT",81,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",82,0) + . . K C0QFLTRD +"RTN","C0QUPDT",83,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",84,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",85,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",86,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",87,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",88,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",89,0) + . N C0QCNT +"RTN","C0QUPDT",90,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",91,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",92,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",93,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",94,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",95,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",96,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",97,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",98,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",99,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",100,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",101,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",102,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",103,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",104,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",105,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",106,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",107,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",108,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",109,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",110,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",111,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",112,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",113,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",114,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",115,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",116,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",117,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",118,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",119,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",120,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",121,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",122,0) + . ; +"RTN","C0QUPDT",123,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",124,0) + . ; +"RTN","C0QUPDT",125,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",126,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",127,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",128,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",129,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",130,0) + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST +"RTN","C0QUPDT",131,0) + . . N ZNEW +"RTN","C0QUPDT",132,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",133,0) + . . K C0QFLTRD +"RTN","C0QUPDT",134,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",135,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",136,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",137,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",138,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",139,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",140,0) + . N C0QDCNT +"RTN","C0QUPDT",141,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",142,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",143,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",144,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",145,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",146,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",147,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",148,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",149,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",150,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",151,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",152,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",153,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",154,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",155,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",156,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",157,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",158,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",159,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",160,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",161,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",162,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",163,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",164,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",165,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",166,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",167,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",168,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",169,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",170,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",171,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",172,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",173,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",174,0) + . ; +"RTN","C0QUPDT",175,0) + . ; File Percentage +"RTN","C0QUPDT",176,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",177,0) + . D ; +"RTN","C0QUPDT",178,0) + . . I C0QDCNT>0 D ; +"RTN","C0QUPDT",179,0) + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",180,0) + . . E S C0QPCT=0 +"RTN","C0QUPDT",181,0) + . . K C0QFDA +"RTN","C0QUPDT",182,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",183,0) + . . D UPDIE +"RTN","C0QUPDT",184,0) + Q +"RTN","C0QUPDT",185,0) + ; +"RTN","C0QUPDT",186,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",187,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",188,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",189,0) + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD +"RTN","C0QUPDT",190,0) + S ZI="" +"RTN","C0QUPDT",191,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",192,0) + K @RTN +"RTN","C0QUPDT",193,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",194,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",195,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",196,0) + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST +"RTN","C0QUPDT",197,0) + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST +"RTN","C0QUPDT",198,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",199,0) + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD +"RTN","C0QUPDT",200,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",201,0) + Q +"RTN","C0QUPDT",202,0) + ; +"RTN","C0QUPDT",203,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",204,0) + K ZERR +"RTN","C0QUPDT",205,0) + D CLEAN^DILF +"RTN","C0QUPDT",206,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QUPDT",207,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",208,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",209,0) + ;. W "ERROR",! +"RTN","C0QUPDT",210,0) + ;. ZWR ZERR +"RTN","C0QUPDT",211,0) + ;. B +"RTN","C0QUPDT",212,0) + K C0QFDA +"RTN","C0QUPDT",213,0) + Q +"RTN","C0QUPDT",214,0) + ; +"RTN","C0QUPDT",215,0) +ERXCOUNT(MSETIEN,MIEN) ; Private Proc; Get eRx and file as Numerator, Denominator, and % +"RTN","C0QUPDT",216,0) + ; Inputs: +"RTN","C0QUPDT",217,0) + ; MSETIEN - Measurement Set IEN - By Value +"RTN","C0QUPDT",218,0) + ; MIEN - Measurement IEN inside the Measurement Set - By Value +"RTN","C0QUPDT",219,0) + ; +"RTN","C0QUPDT",220,0) + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. +"RTN","C0QUPDT",221,0) + ; ZEXCEPT: C0QDEBUG ; For Dr. Ivey's parser. +"RTN","C0QUPDT",222,0) + ; +"RTN","C0QUPDT",223,0) + ; No check is done to see if the caller is sending bad data. Measurement must be +"RTN","C0QUPDT",224,0) + ; in a subfile under Measurement Set. +"RTN","C0QUPDT",225,0) + ; +"RTN","C0QUPDT",226,0) + W:$G(C0QDEBUG) "Processing E-Prescribing Counts",! +"RTN","C0QUPDT",227,0) + ; Example of Data we go through in the C0Q Parameter File, so the code below +"RTN","C0QUPDT",228,0) + ; will make sense. +"RTN","C0QUPDT",229,0) + ; ^C0Q(401,"AMMS",2,1)="" +"RTN","C0QUPDT",230,0) + ; ^C0Q(401,"AMMS",2,2)="" +"RTN","C0QUPDT",231,0) + ; ^C0Q(401,"AQMS",6,2)="" +"RTN","C0QUPDT",232,0) + ; ^C0Q(401,"B","INPATIENT",2)="" +"RTN","C0QUPDT",233,0) + ; ^C0Q(401,"B","OUTPATIENT",1)="" +"RTN","C0QUPDT",234,0) + ; ^C0Q(401,"MU","MU12",1)="" +"RTN","C0QUPDT",235,0) + ; ^C0Q(401,"MU","MU12",2)="" +"RTN","C0QUPDT",236,0) + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" +"RTN","C0QUPDT",237,0) + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" +"RTN","C0QUPDT",238,0) + ; +"RTN","C0QUPDT",239,0) + ; Get Parameter year from the Parameters file. +"RTN","C0QUPDT",240,0) + ; 1. Get parameter associated with this measurement set from AMMS x-ref (new in C0Q*1*1). +"RTN","C0QUPDT",241,0) + N C0QPARAM +"RTN","C0QUPDT",242,0) + N % S %="" F S %=$O(^C0Q(401,"AMMS",MSETIEN,%)) Q:%="" S C0QPARAM(%)="" +"RTN","C0QUPDT",243,0) + ; +"RTN","C0QUPDT",244,0) + ; 2. Find the year for each of those--store as value of node; IEN still subscript. +"RTN","C0QUPDT",245,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" S C0QPARAM(%)=$$GET1^DIQ(1130580001.401,%_",",.02) +"RTN","C0QUPDT",246,0) + ; +"RTN","C0QUPDT",247,0) + ; 3. Now make sure that this parameter that point to an Outpatient Parameters +"RTN","C0QUPDT",248,0) + ; WARNING: CONFUSING CODE WRITTEN BY ME AHEAD +"RTN","C0QUPDT",249,0) + ; The % loop will stop with a valid value if found; % is used in the lines immediately below +"RTN","C0QUPDT",250,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" Q:$D(^C0Q(401,"MUTYP",C0QPARAM(%),"EP",%)) +"RTN","C0QUPDT",251,0) + ; +"RTN","C0QUPDT",252,0) + ; 4. If % has a valid IEN (there can be multiple, we take the first), then off we go. +"RTN","C0QUPDT",253,0) + ; Otherwise, if it is back to "", we quit. +"RTN","C0QUPDT",254,0) + N MUYEAR +"RTN","C0QUPDT",255,0) + IF '% W "No suitable parameter found. Cannot determine Measurement Year.",! QUIT +"RTN","C0QUPDT",256,0) + ELSE S MUYEAR=C0QPARAM(%) +"RTN","C0QUPDT",257,0) + ; +"RTN","C0QUPDT",258,0) + ; Now, based on the MU year, construct the patient list name that has the eRx data. +"RTN","C0QUPDT",259,0) + N LISTNAME S LISTNAME=MUYEAR_"-"_"EP"_"-"_"HasERX" +"RTN","C0QUPDT",260,0) + ; +"RTN","C0QUPDT",261,0) + ; Call the API in C0QMUERX to get the counts already calculated +"RTN","C0QUPDT",262,0) + ; Data is returned NUM/DEN +"RTN","C0QUPDT",263,0) + N COUNTS S COUNTS=$$COUNT^C0QMUERX($$PATLN^C0QMU12(LISTNAME)) +"RTN","C0QUPDT",264,0) + ; +"RTN","C0QUPDT",265,0) + ; File the count +"RTN","C0QUPDT",266,0) + N NUM S NUM=$P(COUNTS,"/") ; Numerator +"RTN","C0QUPDT",267,0) + N DEN S DEN=$P(COUNTS,"/",2) ; Denominator +"RTN","C0QUPDT",268,0) + ; +"RTN","C0QUPDT",269,0) + ; Prepare FDA +"RTN","C0QUPDT",270,0) + N C0QFDA,C0QERR +"RTN","C0QUPDT",271,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",1.1)=NUM ; Numerator +"RTN","C0QUPDT",272,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",2.1)=DEN ; Denominator +"RTN","C0QUPDT",273,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",3)=$S(DEN=0:0,1:$J(100*NUM/DEN,0,0)) ; Percentage; avoid dividing by zero! +"RTN","C0QUPDT",274,0) + ; +"RTN","C0QUPDT",275,0) + ; File FDA using Filer not updater (editing existing entry only) +"RTN","C0QUPDT",276,0) + D FILE^DIE("ET",$NAME(C0QFDA),$NAME(C0QERR)) ; Flags: External, Transaction +"RTN","C0QUPDT",277,0) + ; +"RTN","C0QUPDT",278,0) + ; If error, print it out +"RTN","C0QUPDT",279,0) + I $D(C0QERR) DO +"RTN","C0QUPDT",280,0) + . W "Error filing data",! +"RTN","C0QUPDT",281,0) + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QUPDT",282,0) + ; +"RTN","C0QUPDT",283,0) + QUIT +"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") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"AUDIT") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DD") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DEL") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"LAYGO") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"RD") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"WR") + +"TEMP",1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"TEMP",1130580001.101,0,"AUDIT") +@ +"TEMP",1130580001.101,0,"DD") +@ +"TEMP",1130580001.101,0,"DEL") +@ +"TEMP",1130580001.101,0,"GL") +^C0Q(101, +"TEMP",1130580001.101,0,"LAYGO") + +"TEMP",1130580001.101,0,"RD") + +"TEMP",1130580001.101,0,"WR") + +"TEMP",1130580001.101,"%",0) +^1.005^^ +"TEMP",1130580001.201,0) +C0Q MEASUREMENT SET^1130580001.201 +"TEMP",1130580001.201,0,"AUDIT") +@ +"TEMP",1130580001.201,0,"DD") +@ +"TEMP",1130580001.201,0,"DEL") + +"TEMP",1130580001.201,0,"GL") +^C0Q(201, +"TEMP",1130580001.201,0,"LAYGO") + +"TEMP",1130580001.201,0,"RD") + +"TEMP",1130580001.201,0,"WR") + +"TEMP",1130580001.201,"%",0) +^1.005^^0 +"TEMP",1130580001.201,"%D",0) +^^3^3^3120731^ +"TEMP",1130580001.201,"%D",1,0) +This file contains the groupings of Measurements found in the Quality +"TEMP",1130580001.201,"%D",2,0) +Measures file. It is tied to the parameters file as the set of +"TEMP",1130580001.201,"%D",3,0) +measurements to report for a site. +"TEMP",1130580001.401,0) +C0Q PARAMETER^1130580001.401 +"TEMP",1130580001.401,0,"AUDIT") +@ +"TEMP",1130580001.401,0,"DD") +@ +"TEMP",1130580001.401,0,"DEL") + +"TEMP",1130580001.401,0,"GL") +^C0Q(401, +"TEMP",1130580001.401,0,"LAYGO") + +"TEMP",1130580001.401,0,"RD") + +"TEMP",1130580001.401,0,"WR") + +"TEMP",1130580001.401,"%",0) +^1.005^^0 +"TEMP",1130580001.401,"%D",0) +^^7^7^3120103^ +"TEMP",1130580001.401,"%D",1,0) +This parameter file was created by George Lilly 12/2011 for the C0Q +"TEMP",1130580001.401,"%D",2,0) +Meaningful Use and Quality Measurement Project funded in part by Oroville +"TEMP",1130580001.401,"%D",3,0) +Hospital. It controls the updating of Meaningful Use patient lists and +"TEMP",1130580001.401,"%D",4,0) +C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this +"TEMP",1130580001.401,"%D",5,0) +file should be updated using the C0Q SETUP options because the +"TEMP",1130580001.401,"%D",6,0) +combiniation of fields in each record varies depending on the updating +"TEMP",1130580001.401,"%D",7,0) +behavior that is desired. +"VER") +8.0^22.0 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^19 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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) + +"^DD",1130580001.101,1130580001.101,3,3) +Answer must be 3-120 characters in length +"^DD",1130580001.101,1130580001.101,3,21,0) +^^2^2^3120731^^ +"^DD",1130580001.101,1130580001.101,3,21,1,0) +Measure template root for the QRDA Document. A series of . delimited +"^DD",1130580001.101,1130580001.101,3,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.101,1130580001.101,3,"DT") +3120731 +"^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.101,4,0) +MEASURE TYPE^S^P:Performance;Q:Quality;E:Electronic Prescribing Performance;^0;5^Q +"^DD",1130580001.101,1130580001.101,4,3) +Enter a code P, Q or E +"^DD",1130580001.101,1130580001.101,4,21,0) +^^19^19^3120530^ +"^DD",1130580001.101,1130580001.101,4,21,1,0) +This field designates the measure type. It can be P, Q or M. +"^DD",1130580001.101,1130580001.101,4,21,2,0) + +"^DD",1130580001.101,1130580001.101,4,21,3,0) +P is for Performance. Performance measures are MU measures to measure +"^DD",1130580001.101,1130580001.101,4,21,4,0) +how meaningfully used an EMR is. An example of a performance measure +"^DD",1130580001.101,1130580001.101,4,21,5,0) +is whether allergies are documented in the EMR. Performance measures +"^DD",1130580001.101,1130580001.101,4,21,6,0) +reference a Patient List created by this package. +"^DD",1130580001.101,1130580001.101,4,21,7,0) + +"^DD",1130580001.101,1130580001.101,4,21,8,0) +Q is for Quality Measures. Quality measures are MU measures to assess how +"^DD",1130580001.101,1130580001.101,4,21,9,0) +well the patients are cared for. An example of a quality measure is +"^DD",1130580001.101,1130580001.101,4,21,10,0) +whether Hemoglobin A1c Poor Control. Quality measures reference Patient +"^DD",1130580001.101,1130580001.101,4,21,11,0) +Lists in the Reminders package. +"^DD",1130580001.101,1130580001.101,4,21,12,0) + +"^DD",1130580001.101,1130580001.101,4,21,13,0) +E is for Electronic Prescribing. This is a Performance measure, except +"^DD",1130580001.101,1130580001.101,4,21,14,0) +that it is handled differently than the rest. Instead of the numerators +"^DD",1130580001.101,1130580001.101,4,21,15,0) +and denominators being lists of patients as with all the other +"^DD",1130580001.101,1130580001.101,4,21,16,0) +measurements, they are a number of prescriptions. That's why we have a +"^DD",1130580001.101,1130580001.101,4,21,17,0) +special flag for it. It references a Patient List created by this +"^DD",1130580001.101,1130580001.101,4,21,18,0) +package. The numerator and denominators are stored in subfiles for each +"^DD",1130580001.101,1130580001.101,4,21,19,0) +patient. +"^DD",1130580001.101,1130580001.101,4,23,0) +^^4^4^3120530^ +"^DD",1130580001.101,1130580001.101,4,23,1,0) +As of version C0P*1.0*1, the software doesn't use this field except to +"^DD",1130580001.101,1130580001.101,4,23,2,0) +check for an electronic prescribing type (code E). +"^DD",1130580001.101,1130580001.101,4,23,3,0) + +"^DD",1130580001.101,1130580001.101,4,23,4,0) +I anticipate using this field for other purposes in the future. +"^DD",1130580001.101,1130580001.101,4,"DT") +3120530 +"^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^^.4^9 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3120801 +"^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 MEASUREMENT SET") + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3) + +"^DD",1130580001.201,1130580001.201,0,"VRPK") +C0Q +"^DD",1130580001.201,1130580001.201,.01,0) +NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.201,1130580001.201,.01,.1) + +"^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) +Answer must be 3-30 characters in length. +"^DD",1130580001.201,1130580001.201,.01,21,0) +^^1^1^3120731^ +"^DD",1130580001.201,1130580001.201,.01,21,1,0) +Measurement Set Name. +"^DD",1130580001.201,1130580001.201,.01,"DT") +3120731 +"^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,.3,0) +MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.201,1130580001.201,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.201,1130580001.201,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.201,1130580001.201,.3,"DT") +3111129 +"^DD",1130580001.201,1130580001.201,.4,0) +QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X +"^DD",1130580001.201,1130580001.201,.4,3) +Answer must be 3-120 characters in length. +"^DD",1130580001.201,1130580001.201,.4,21,0) +^^6^6^3120731^ +"^DD",1130580001.201,1130580001.201,.4,21,1,0) +Measure template root for the Measurement Set. A series of . delimited +"^DD",1130580001.201,1130580001.201,.4,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.201,1130580001.201,.4,21,3,0) + +"^DD",1130580001.201,1130580001.201,.4,21,4,0) +Most measurement sets don't have that. Only measurement sets reporable as +"^DD",1130580001.201,1130580001.201,.4,21,5,0) +a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled +"^DD",1130580001.201,1130580001.201,.4,21,6,0) +out as it is reported in the QRDA document. +"^DD",1130580001.201,1130580001.201,.4,"DT") +3120731 +"^DD",1130580001.201,1130580001.201,1,0) +MEASURE^1130580001.2011P^^5;0 +"^DD",1130580001.201,1130580001.2011,0) +MEASURE SUB-FIELD^^2.2^8 +"^DD",1130580001.201,1130580001.2011,0,"DT") +3120801 +"^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) + +"^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") +3120801 +"^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,1.2,0) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"^DD",1130580001.201,1130580001.2011,1.2,.1) +FILTER LIST FOR NUMERATOR +"^DD",1130580001.201,1130580001.2011,1.2,"DT") +3111129 +"^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,2.2,0) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"^DD",1130580001.201,1130580001.2011,2.2,.1) +FILTER LIST FOR DENOMINATOR +"^DD",1130580001.201,1130580001.2011,2.2,"DT") +3111129 +"^DD",1130580001.201,1130580001.2011,3,0) +PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.401,1130580001.401,0) +FIELD^^1.015^14 +"^DD",1130580001.401,1130580001.401,0,"DDA") +N +"^DD",1130580001.401,1130580001.401,0,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,0,"IX","AMMS",1130580001.401,2) + +"^DD",1130580001.401,1130580001.401,0,"IX","AQMS",1130580001.401,2.1) + +"^DD",1130580001.401,1130580001.401,0,"IX","B",1130580001.401,.01) + +"^DD",1130580001.401,1130580001.401,0,"NM","C0Q PARAMETER") + +"^DD",1130580001.401,1130580001.401,0,"VRPK") +QUALITY MEASURES +"^DD",1130580001.401,1130580001.401,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.401,1130580001.401,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,.01,1,1,0) +1130580001.401^B +"^DD",1130580001.401,1130580001.401,.01,1,1,1) +S ^C0Q(401,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,.01,1,1,2) +K ^C0Q(401,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.401,1130580001.401,.02,0) +MEASUREMENT PERIOD KEY^F^^0;2^K:$L(X)>60!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,.02,.1) +YEAR KEY FOR MEASUREMENT PERIOD IE MU12 +"^DD",1130580001.401,1130580001.401,.02,3) +Answer must be 1-60 characters in length. +"^DD",1130580001.401,1130580001.401,.02,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,.02,21,1,0) +Meaningful Use and Quality Measures are generally computed for a +"^DD",1130580001.401,1130580001.401,.02,21,2,0) +particular fiscal year. The Measurement Period Key changes every year +"^DD",1130580001.401,1130580001.401,.02,21,3,0) +when new parameters are set up to govern the computations for that year. +"^DD",1130580001.401,1130580001.401,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,.03,0) +PARAMETER TYPE^S^INP:INPATIENT;EP:OUTPATIENT;ALL:SUPERUSERS;^0;3^Q +"^DD",1130580001.401,1130580001.401,.03,.1) +C0Q PARAMETER TYPE +"^DD",1130580001.401,1130580001.401,.03,21,0) +^^6^6^3120103^ +"^DD",1130580001.401,1130580001.401,.03,21,1,0) +If the current parameter record is type INP it will define the processing +"^DD",1130580001.401,1130580001.401,.03,21,2,0) +for inpatient patients. Type EP defines the processing for one group of +"^DD",1130580001.401,1130580001.401,.03,21,3,0) +oupatient patients where a group is the patients with a visit at one or +"^DD",1130580001.401,1130580001.401,.03,21,4,0) +more clinics specified in the CLINIC multiple. Type ALL is used to +"^DD",1130580001.401,1130580001.401,.03,21,5,0) +specify a set of subscribers who have access to all Measurement Sets in +"^DD",1130580001.401,1130580001.401,.03,21,6,0) +the specifies Measurement Period. +"^DD",1130580001.401,1130580001.401,.03,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1,0) +INP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;4^Q +"^DD",1130580001.401,1130580001.401,1,.1) +INPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1.015,0) +DIVISION REPORTING^P40.8'^DG(40.8,^4;1^Q +"^DD",1130580001.401,1130580001.401,1.015,.1) +MEDICAL CENTER DIVISION FOR THIS PARAMETER +"^DD",1130580001.401,1130580001.401,1.015,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,1.1,0) +INP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;5^Q +"^DD",1130580001.401,1130580001.401,1.1,.1) +INPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2,0) +EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q +"^DD",1130580001.401,1130580001.401,2,.1) +OUTPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2,1,1,0) +1130580001.401^AMMS +"^DD",1130580001.401,1130580001.401,2,1,1,1) +S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2,1,1,2) +K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",0) +^.101^5^5^3120530^^^ +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",5,0) +$O(^C0Q(401,"AMMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.1,0) +EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q +"^DD",1130580001.401,1130580001.401,2.1,.1) +OUTPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2.1,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2.1,1,1,0) +1130580001.401^AQMS +"^DD",1130580001.401,1130580001.401,2.1,1,1,1) +S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2.1,1,1,2) +K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2.1,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",0) +^^5^5^3120530^ +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",5,0) +$O(^C0Q(401,"AQMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2.1,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.2,0) +CLINIC^1130580001.411P^^1;0 +"^DD",1130580001.401,1130580001.401,2.3,0) +PATIENT LIST LABEL^F^^2;1^K:$L(X)>20!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,2.3,.1) +MU PATIENT LIST LABEL +"^DD",1130580001.401,1130580001.401,2.3,3) +Answer must be 1-20 characters in length. +"^DD",1130580001.401,1130580001.401,2.3,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,2.3,21,1,0) +When there is more than one clinic in this reporting group, this field is +"^DD",1130580001.401,1130580001.401,2.3,21,2,0) +used to contain a label for the patient lists. If it is not defined, the +"^DD",1130580001.401,1130580001.401,2.3,21,3,0) +name of the first clinic defined is used as the label. +"^DD",1130580001.401,1130580001.401,2.3,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,3,0) +SUBSCRIBER^1130580001.4013P^^3;0 +"^DD",1130580001.401,1130580001.401,5.1,0) +VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q +"^DD",1130580001.401,1130580001.401,5.1,3) +Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.1,21,0) +^^3^3^3120801^^^ +"^DD",1130580001.401,1130580001.401,5.1,21,1,0) +This field holds the VTE measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.1,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.1,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.1,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.1,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.1,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.1,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.1,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.2,0) +STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q +"^DD",1130580001.401,1130580001.401,5.2,3) +Enter STK Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.2,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,21,1,0) +This field holds the STK measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.2,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.2,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.2,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.2,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.2,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.2,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.3,0) +ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q +"^DD",1130580001.401,1130580001.401,5.3,3) +Enter ED Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.3,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,21,1,0) +This field holds the ED measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.3,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.3,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.3,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.3,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.3,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.3,"DT") +3120801 +"^DD",1130580001.401,1130580001.4013,0) +SUBSCRIBER SUB-FIELD^^.02^2 +"^DD",1130580001.401,1130580001.4013,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,0,"IX","B",1130580001.4013,.01) + +"^DD",1130580001.401,1130580001.4013,0,"NM","SUBSCRIBER") + +"^DD",1130580001.401,1130580001.4013,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.4013,.01,0) +SUBSCRIBER^MP200'^VA(200,^0;1^Q +"^DD",1130580001.401,1130580001.4013,.01,.1) +SUBSCRIBERS TO THIS MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.4013,.01,1,1,0) +1130580001.4013^B +"^DD",1130580001.401,1130580001.4013,.01,1,1,1) +S ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.4013,.01,1,1,2) +K ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.4013,.01,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,.02,0) +DEFAULT^S^1:YES;0:NO;^0;2^Q +"^DD",1130580001.401,1130580001.4013,.02,.1) +DISPLAY AS SUBSCRIBER DEFAULT MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0) +CLINIC SUB-FIELD^^.01^1 +"^DD",1130580001.401,1130580001.411,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0,"IX","B",1130580001.411,.01) + +"^DD",1130580001.401,1130580001.411,0,"NM","CLINIC") + +"^DD",1130580001.401,1130580001.411,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.411,.01,0) +CLINIC^MP44'^SC(^0;1^Q +"^DD",1130580001.401,1130580001.411,.01,.1) +OUTPATIENT CLINIC +"^DD",1130580001.401,1130580001.411,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.411,.01,1,1,0) +1130580001.411^B +"^DD",1130580001.401,1130580001.411,.01,1,1,1) +S ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.411,.01,1,1,2) +K ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.411,.01,"DT") +3120103 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,1130580001.101,"%",0) +^1.005^^ +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +"^DIC",1130580001.201,1130580001.201,0) +C0Q MEASUREMENT SET^1130580001.201 +"^DIC",1130580001.201,1130580001.201,0,"GL") +^C0Q(201, +"^DIC",1130580001.201,1130580001.201,"%",0) +^1.005^^0 +"^DIC",1130580001.201,1130580001.201,"%D",0) +^^3^3^3120731^ +"^DIC",1130580001.201,1130580001.201,"%D",1,0) +This file contains the groupings of Measurements found in the Quality +"^DIC",1130580001.201,1130580001.201,"%D",2,0) +Measures file. It is tied to the parameters file as the set of +"^DIC",1130580001.201,1130580001.201,"%D",3,0) +measurements to report for a site. +"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201) + +"^DIC",1130580001.401,1130580001.401,0) +C0Q PARAMETER^1130580001.401 +"^DIC",1130580001.401,1130580001.401,0,"GL") +^C0Q(401, +"^DIC",1130580001.401,1130580001.401,"%",0) +^1.005^^0 +"^DIC",1130580001.401,1130580001.401,"%D",0) +^^7^7^3120103^ +"^DIC",1130580001.401,1130580001.401,"%D",1,0) +This parameter file was created by George Lilly 12/2011 for the C0Q +"^DIC",1130580001.401,1130580001.401,"%D",2,0) +Meaningful Use and Quality Measurement Project funded in part by Oroville +"^DIC",1130580001.401,1130580001.401,"%D",3,0) +Hospital. It controls the updating of Meaningful Use patient lists and +"^DIC",1130580001.401,1130580001.401,"%D",4,0) +C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this +"^DIC",1130580001.401,1130580001.401,"%D",5,0) +file should be updated using the C0Q SETUP options because the +"^DIC",1130580001.401,1130580001.401,"%D",6,0) +combiniation of fields in each record varies depending on the updating +"^DIC",1130580001.401,1130580001.401,"%D",7,0) +behavior that is desired. +"^DIC",1130580001.401,"B","C0Q PARAMETER",1130580001.401) + +**END** +**END** diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-005_PAT-005.TXT b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-005_PAT-005.TXT new file mode 100644 index 0000000..ec90055 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/C0Q-1_SEQ-005_PAT-005.TXT @@ -0,0 +1,216 @@ +DHCP Patch Display Page: 1 +============================================================================= +Run Date: OCT 18, 2012 Designation: C0Q*1*5 TEST v +Package : QUALITY MEASURES Priority : MANDATORY +Version : 1 Status : UNDER DEVELOPMENT +============================================================================= + +Subject: Miscellaneous and necessary bug fixes + +Category: ROUTINE + OTHER + +Description: +=========== + +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: +============ +Written by Sam Habiel on 17 October 2012 and released through VISTA Forum. + +Licensed under package license (currently GPL 2.0) + +FUNCTIONALITY: +============== +This build fixes various bugs in the Quality Measurements package +discovered during testing. + + 1. Empty lists are created in advance for Outpatients. Previously, they +were not created, even though an entry point existed (INITCLST). + + 2. The Vitals lookup code that calls CPRS code didn't include today. +This was fixed by adding .999999 to today's date. + + 3. File security (@ sign everywhere) didn't permit normal users to edit +the file. Previous, I defeated the @ sign protection by setting DLAYGO. +However, DLAYGO got killed by Fileman after each edit, which meant that +you can only edit one entry at a time before heading back out and back in +to edit another entry. After discussion with Fileman developers, the +proper way to do this was to not to use DLAYGO but rather remove the @ +signs for Read, Write, and Laygo in the Files Definitions. + + - File list where protections were changed. + --> C0Q MEASUREMENT SET (1130580001.201) + --> C0Q QUALITY MEASURE (1130580001.101) + --> C0Q PARAMETER (1130580001.401) + + - Options which don't use DLAYGO anymore. + --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS] + --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS] + --> INP EDIT PARMS [C0Q EDIT INP PARMS] + --> MEASURE SET EDIT [C0Q EDIT MEASURE SET] + --> MU MEASURE EDIT [C0Q EDIT MU MEASURE] + --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE] + +4. The Outpatient Quality Measurement Set which is specified in the +Parameters was being completely ignored. This is fixed. + +5. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag +indicating the type of measure (Performance vs Quality Measure). Since it +was left lying around, a Quality Measure was mistakenly interpreted as a +performance measure, giving you a result of zero, since there is no +data for this Quality Measure. + +6. The option that executes the logic for Outpatients C0Q EP UPDATE MU +MEASURES didn't display the time on the dates of the Visits being +processed correctly. This patch fixes this. + +SUPPORT TICKETS: +================ +None + +PACKAGE ELEMENTS: +================= + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: TRAN^C0Q1P5 + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES NO + +1130580001.201C0Q MEASUREMENT SET YES YES NO + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.401C0Q PARAMETER YES YES NO + +ROUTINE: ACTION: + C0Q1P5 SEND TO SITE + C0QMU12 SEND TO SITE + C0QUPDT SEND TO SITE + +OPTION: ACTION: + C0Q EDIT INP PARMS SEND TO SITE + C0Q EDIT MEASURE SET SEND TO SITE + C0Q EDIT MU MEASURE SEND TO SITE + C0Q EDIT OUTPATIENT PARMS SEND TO SITE + C0Q EDIT QUALITY MEASURE SEND TO SITE + C0Q EDIT SUPERUSERS SEND TO SITE + +DOCUMENTATION: +============== +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 + +COMPLIANCE: +=========== +This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007), except for the following: + + C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584 + S - Routine code exceeds SACC maximum size of 15000 (15513). + +Blood Bank Clearance: This software doesn't interact with the Blood Bank module. + +Installation Instructions: +========================== +Install Time - less than 1 minute. + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*5): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the + Environment Check routine, the message below will display + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + 5. Post installation: No post installation tasks are necessary. + + + +Routine Information: +==================== + + +The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**[Patch List]**;Oct 17, 2012;Build 9 + +The checksums below are new checksums, and + can be checked with CHECK1^XTSUMBLD. + +Routine Name: C0Q1P5 + Before: n/a After: B619258 **5** +Routine Name: C0QMU12 + Before: n/a After:B280797584 **1,5** +Routine Name: C0QUPDT + Before: n/a After: B78768309 **1,5** + +Routine list of preceding patches: 1 + + +============================================================================= +User Information: + Entered By : HABIEL,SAM Date Entered : OCT 18,2012 + Completed By: Date Completed: + Released By : Date Released : +============================================================================= + diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/QUALITY_MEASURES_1P0.KID b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/QUALITY_MEASURES_1P0.KID new file mode 100644 index 0000000..ff88cc9 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/QUALITY_MEASURES_1P0.KID @@ -0,0 +1,9926 @@ +KIDS Distribution saved on Jul 31, 2012@17:18:02 +QUALITY MEASURES 1.0 T12 +**KIDS**:QUALITY MEASURES 1.0^ + +**INSTALL NAME** +QUALITY MEASURES 1.0 +"BLD",7929,0) +QUALITY MEASURES 1.0^QUALITY MEASURES^0^3120731^n +"BLD",7929,1,0) +^^9^9^3120731^^^^ +"BLD",7929,1,1,0) +The C0Q Quality Reporting Package is a mumps-based addition to VistA for +"BLD",7929,1,2,0) +reporting Meaningful Use and Quality Measurements. The package supports +"BLD",7929,1,3,0) +both inpatient and outpatient reporting, and computes the Meaningful Use +"BLD",7929,1,4,0) +measures from patient records. For Quality Measurements, the reporting +"BLD",7929,1,5,0) +package relies on the VistA Reminders Patient Lists as the source for its +"BLD",7929,1,6,0) +reporting. +"BLD",7929,1,7,0) + +"BLD",7929,1,8,0) +Installation and Use instructions can be found here: +"BLD",7929,1,9,0) +http://vistapedia.net/index.php?title=C0Q_Quality_Reporting_1.0 +"BLD",7929,4,0) +^9.64PA^1130580001.401^5 +"BLD",7929,4,178.301,0) +178.301 +"BLD",7929,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7929,4,1130580001.101,0) +1130580001.101 +"BLD",7929,4,1130580001.101,222) +y^y^f^^n^^y^r^n +"BLD",7929,4,1130580001.101,224) + +"BLD",7929,4,1130580001.201,0) +1130580001.201 +"BLD",7929,4,1130580001.201,222) +y^y^f^^^^n^^ +"BLD",7929,4,1130580001.201,224) + +"BLD",7929,4,1130580001.301,0) +1130580001.301 +"BLD",7929,4,1130580001.301,222) +y^y^f^^^^n^^ +"BLD",7929,4,1130580001.301,224) + +"BLD",7929,4,1130580001.401,0) +1130580001.401 +"BLD",7929,4,1130580001.401,222) +y^y^f^^^^n +"BLD",7929,4,"B",178.301,178.301) + +"BLD",7929,4,"B",1130580001.101,1130580001.101) + +"BLD",7929,4,"B",1130580001.201,1130580001.201) + +"BLD",7929,4,"B",1130580001.301,1130580001.301) + +"BLD",7929,4,"B",1130580001.401,1130580001.401) + +"BLD",7929,6.3) +68 +"BLD",7929,"ABPKG") +n +"BLD",7929,"INI") +PRE^C0QKIDS +"BLD",7929,"INIT") +POST^C0QKIDS +"BLD",7929,"KRN",0) +^9.67PA^779.2^20 +"BLD",7929,"KRN",.4,0) +.4 +"BLD",7929,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7929,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7929,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7929,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7929,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7929,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7929,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7929,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7929,"KRN",.401,0) +.401 +"BLD",7929,"KRN",.402,0) +.402 +"BLD",7929,"KRN",.402,"NM",0) +^9.68A^8^7 +"BLD",7929,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.402,"NM",3,0) +C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7929,"KRN",.402,"NM",4,0) +C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.402,"NM",5,0) +C0Q EDIT MU MEASURE FILE #1130580001.101^1130580001.101^0 +"BLD",7929,"KRN",.402,"NM",6,0) +C0Q EDIT OUPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7929,"KRN",.402,"NM",7,0) +C0Q EDIT QUALITY MEASURE FILE #1130580001.101^1130580001.101^0 +"BLD",7929,"KRN",.402,"NM",8,0) +C0Q EDIT SUPERUSERS FILE #1130580001.401^1130580001.401^0 +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",3) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",4) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT MU MEASURE FILE #1130580001.101",5) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT OUPATIENT PARMS FILE #1130580001.401",6) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT QUALITY MEASURE FILE #1130580001.101",7) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT SUPERUSERS FILE #1130580001.401",8) + +"BLD",7929,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7929,"KRN",.403,0) +.403 +"BLD",7929,"KRN",.5,0) +.5 +"BLD",7929,"KRN",.84,0) +.84 +"BLD",7929,"KRN",3.6,0) +3.6 +"BLD",7929,"KRN",3.8,0) +3.8 +"BLD",7929,"KRN",9.2,0) +9.2 +"BLD",7929,"KRN",9.8,0) +9.8 +"BLD",7929,"KRN",9.8,"NM",0) +^9.68A^20^16 +"BLD",7929,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B116855264 +"BLD",7929,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7929,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7929,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7929,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7594438 +"BLD",7929,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41586325 +"BLD",7929,"KRN",9.8,"NM",9,0) +C0QSET^^0^B8764820 +"BLD",7929,"KRN",9.8,"NM",10,0) +C0QUPDT^^0^B52683124 +"BLD",7929,"KRN",9.8,"NM",11,0) +C0QHF^^0^B4977233 +"BLD",7929,"KRN",9.8,"NM",13,0) +C0QUTIL^^0^B21495692 +"BLD",7929,"KRN",9.8,"NM",14,0) +C0QINIT^^0^B5217090 +"BLD",7929,"KRN",9.8,"NM",15,0) +C0QNOTES^^0^B16985475 +"BLD",7929,"KRN",9.8,"NM",17,0) +C0QMU12^^0^B256149135 +"BLD",7929,"KRN",9.8,"NM",18,0) +C0QIMMUN^^0^B7512677 +"BLD",7929,"KRN",9.8,"NM",19,0) +C0QMU121^^0^B184663073 +"BLD",7929,"KRN",9.8,"NM",20,0) +C0QMU122^^0^B3365532 +"BLD",7929,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7929,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7929,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7929,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7929,"KRN",9.8,"NM","B","C0QHF",11) + +"BLD",7929,"KRN",9.8,"NM","B","C0QIMMUN",18) + +"BLD",7929,"KRN",9.8,"NM","B","C0QINIT",14) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMU12",17) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMU121",19) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMU122",20) + +"BLD",7929,"KRN",9.8,"NM","B","C0QNOTES",15) + +"BLD",7929,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7929,"KRN",9.8,"NM","B","C0QSET",9) + +"BLD",7929,"KRN",9.8,"NM","B","C0QUPDT",10) + +"BLD",7929,"KRN",9.8,"NM","B","C0QUTIL",13) + +"BLD",7929,"KRN",19,0) +19 +"BLD",7929,"KRN",19,"NM",0) +^9.68A^29^23 +"BLD",7929,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7929,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7929,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7929,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7929,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7929,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7929,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7929,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7929,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7929,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7929,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7929,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7929,"KRN",19,"NM",19,0) +C0Q ED1 COMPUTATION^^0 +"BLD",7929,"KRN",19,"NM",20,0) +C0Q ED2 COMPUTATION^^0 +"BLD",7929,"KRN",19,"NM",21,0) +C0Q EP UPDATE MU MEASURES^^0 +"BLD",7929,"KRN",19,"NM",22,0) +C0Q INP UPDATE MU MEASURES^^0 +"BLD",7929,"KRN",19,"NM",23,0) +C0Q SETUP QUALITY REPORTING^^0 +"BLD",7929,"KRN",19,"NM",24,0) +C0Q EDIT INP PARMS^^0 +"BLD",7929,"KRN",19,"NM",25,0) +C0Q EDIT MEASURE SET^^0 +"BLD",7929,"KRN",19,"NM",26,0) +C0Q EDIT MU MEASURE^^0 +"BLD",7929,"KRN",19,"NM",27,0) +C0Q EDIT OUTPATIENT PARMS^^0 +"BLD",7929,"KRN",19,"NM",28,0) +C0Q EDIT QUALITY MEASURE^^0 +"BLD",7929,"KRN",19,"NM",29,0) +C0Q EDIT SUPERUSERS^^0 +"BLD",7929,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7929,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7929,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7929,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7929,"KRN",19,"NM","B","C0Q ED1 COMPUTATION",19) + +"BLD",7929,"KRN",19,"NM","B","C0Q ED2 COMPUTATION",20) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT INP PARMS",24) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT MEASURE SET",25) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT MU MEASURE",26) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT OUTPATIENT PARMS",27) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT QUALITY MEASURE",28) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT SUPERUSERS",29) + +"BLD",7929,"KRN",19,"NM","B","C0Q EP UPDATE MU MEASURES",21) + +"BLD",7929,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7929,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7929,"KRN",19,"NM","B","C0Q INP UPDATE MU MEASURES",22) + +"BLD",7929,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7929,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7929,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7929,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7929,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7929,"KRN",19,"NM","B","C0Q SETUP QUALITY REPORTING",23) + +"BLD",7929,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7929,"KRN",19.1,0) +19.1 +"BLD",7929,"KRN",101,0) +101 +"BLD",7929,"KRN",409.61,0) +409.61 +"BLD",7929,"KRN",771,0) +771 +"BLD",7929,"KRN",779.2,0) +779.2 +"BLD",7929,"KRN",870,0) +870 +"BLD",7929,"KRN",8989.51,0) +8989.51 +"BLD",7929,"KRN",8989.52,0) +8989.52 +"BLD",7929,"KRN",8994,0) +8994 +"BLD",7929,"KRN","B",.4,.4) + +"BLD",7929,"KRN","B",.401,.401) + +"BLD",7929,"KRN","B",.402,.402) + +"BLD",7929,"KRN","B",.403,.403) + +"BLD",7929,"KRN","B",.5,.5) + +"BLD",7929,"KRN","B",.84,.84) + +"BLD",7929,"KRN","B",3.6,3.6) + +"BLD",7929,"KRN","B",3.8,3.8) + +"BLD",7929,"KRN","B",9.2,9.2) + +"BLD",7929,"KRN","B",9.8,9.8) + +"BLD",7929,"KRN","B",19,19) + +"BLD",7929,"KRN","B",19.1,19.1) + +"BLD",7929,"KRN","B",101,101) + +"BLD",7929,"KRN","B",409.61,409.61) + +"BLD",7929,"KRN","B",771,771) + +"BLD",7929,"KRN","B",779.2,779.2) + +"BLD",7929,"KRN","B",870,870) + +"BLD",7929,"KRN","B",8989.51,8989.51) + +"BLD",7929,"KRN","B",8989.52,8989.52) + +"BLD",7929,"KRN","B",8994,8994) + +"BLD",7929,"PRET") +TRAN^C0QKIDS +"BLD",7929,"QDEF") +^^^^^^^^YES +"BLD",7929,"QUES",0) +^9.62^^ +"BLD",7929,"REQB",0) +^9.611^1^1 +"BLD",7929,"REQB",1,0) +CCD/CCR GENERATION UTILITIES 1.2^2 +"BLD",7929,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1) + +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"DATA",1130580001.101,4,0) +PQRI MEASURE 124^^^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,4,7) +^^^^ +"DATA",1130580001.101,6,0) +PQRI MEASURE 47^^^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,6,7) +^^^^ +"DATA",1130580001.101,7,0) +PQRI MEASURE 48^^^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,7,7) +^^^^ +"DATA",1130580001.101,12,0) +MU EP NQF 0043^^^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) +^1130580001.111^2^2^3120730^^ +"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,12,7) +^^^^ +"DATA",1130580001.101,14,0) +PQRI MEASURE 39^^^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,14,7) +^^^^ +"DATA",1130580001.101,16,0) +PQRI MEASURE 173^^^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,16,7) +^^^^ +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^^ +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495^^^^ +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^^ +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497^^^^ +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^^ +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435^^^^ +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^^ +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436^^^^ +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^^ +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437^^^^ +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^^ +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438^^^^ +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^^ +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439^^^^ +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^^ +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440^^^^ +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^^ +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441^^^^ +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^^ +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371^^^^ +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^^ +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372^^^^ +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^^ +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373^^^^ +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^^ +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374^^^^ +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^^ +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375^^^^ +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^^ +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376^^^^ +"DATA",1130580001.101,39,0) +MU EP NQF 0421^^^2.16.840.1.113883.3.249.11.54 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,4) +PQRI-128 +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421^^^^ +"DATA",1130580001.101,40,0) +MU EP NQF 0013^^^2.16.840.1.113883.3.249.11.56 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,4) +PQRI-13 +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013^^^^ +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^^^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,4) +PQRI-28 +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A^^^^ +"DATA",1130580001.101,42,0) +MU EP NQF 0041^^^2.16.840.1.113883.3.249.11.7 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,4) +PQRI-110 +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041^^^^ +"DATA",1130580001.101,43,0) +MU EP NQF 0024^^ +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. +"DATA",1130580001.101,43,7) +NQF0024^^^^ +"DATA",1130580001.101,44,0) +MU EP NQF 0038^^^2.16.840.1.113883.3.249.11.60 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,4) +PQRI-38 +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038^^^^ +"DATA",1130580001.101,45,0) +MU EP NQF 0059^^^2.16.840.1.113883.3.249.11.2 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,4) +PQRI-1 +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059^^^^ +"DATA",1130580001.101,46,0) +MU EP NQF 0064^^^2.16.840.1.113883.3.249.11.3 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,4) +PQRI-2 +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064^^^^ +"DATA",1130580001.101,47,0) +MU EP NQF 0061^^^2.16.840.1.113883.3.249.11.4 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,4) +PQRI-3 +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061^^^^ +"DATA",1130580001.101,48,0) +MU EP NQF 0081^^^2.16.840.1.113883.3.249.11.5 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,4) +PQRI-5 +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081^^^^ +"DATA",1130580001.101,49,0) +MU EP NQF 0070^^^2.16.840.1.113883.3.249.11.6 +"DATA",1130580001.101,49,1) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +"DATA",1130580001.101,49,4) +PQRI-7 +"DATA",1130580001.101,49,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,49,6,0) +^^3^3^3101013^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients aged 18 years and older with a diagnosis of +"DATA",1130580001.101,49,6,2,0) +coronary artery disease and a prior MI who where prescribed beta-blocker +"DATA",1130580001.101,49,6,3,0) +therapy +"DATA",1130580001.101,49,7) +NQF0070^^^^ +"DATA",1130580001.101,50,0) +MU EP NQF 0031^^^2.16.840.1.113883.3.249.11.9 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,4) +PQRI-112 +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031^^^^ +"DATA",1130580001.101,51,0) +MU EP NQF 0034^^^2.16.840.1.113883.3.249.11.10 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,4) +PQRI-113 +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034^^^^ +"DATA",1130580001.101,52,0) +MU EP NQF 0067^^ +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067^^^^ +"DATA",1130580001.101,53,0) +MU EP NQF 0083^^ +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083^^^^ +"DATA",1130580001.101,54,0) +MU EP NQF 0105^^ +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105^^^^ +"DATA",1130580001.101,55,0) +MU EP NQF 0086^^ +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086^^^^ +"DATA",1130580001.101,56,0) +MU EP NQF 0088^^ +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088^^^^ +"DATA",1130580001.101,57,0) +MU EP NQF 0089^^ +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089^^^^ +"DATA",1130580001.101,58,0) +MU EP NQF 0047^^ +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047^^^^ +"DATA",1130580001.101,59,0) +MU EP NQF 0001^^ +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001^^^^ +"DATA",1130580001.101,60,0) +MU EP NQF 0002^^ +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002^^^^ +"DATA",1130580001.101,61,0) +MU EP NQF 0385^^ +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385^^^^ +"DATA",1130580001.101,62,0) +MU EP NQF 0389^^ +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389^^^^ +"DATA",1130580001.101,63,0) +MU EP NQF 0027^^ +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027^^^^ +"DATA",1130580001.101,64,0) +MU EP NQF 0055^^ +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055^^^^ +"DATA",1130580001.101,65,0) +MU EP NQF 0062^^ +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062^^^^ +"DATA",1130580001.101,66,0) +MU EP NQF 0056^^ +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056^^^^ +"DATA",1130580001.101,67,0) +MU EP NQF 0074^^ +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074^^^^ +"DATA",1130580001.101,68,0) +MU EP NQF 0084^^ +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084^^^^ +"DATA",1130580001.101,69,0) +MU EP NQF 0073^^ +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073^^^^ +"DATA",1130580001.101,70,0) +MU EP NQF 0068^^ +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068^^^^ +"DATA",1130580001.101,71,0) +MU EP NQF 0004^^ +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004^^^^ +"DATA",1130580001.101,72,0) +MU EP NQF 0012^^ +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012^^^^ +"DATA",1130580001.101,73,0) +MU EP NQF 0014^^ +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014^^^^ +"DATA",1130580001.101,74,0) +MU EP NQF 0018^^ +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018^^^^ +"DATA",1130580001.101,75,0) +MU EP NQF 0032^^ +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032^^^^ +"DATA",1130580001.101,76,0) +MU EP NQF 0033^^ +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033^^^^ +"DATA",1130580001.101,77,0) +MU EP NQF 0036^^ +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036^^^^ +"DATA",1130580001.101,78,0) +MU EP NQF 0052^^ +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052^^^^ +"DATA",1130580001.101,79,0) +MU EP NQF 0075^^ +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075^^^^ +"DATA",1130580001.101,80,0) +MU EP NQF 0575^^ +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575^^^^ +"DATA",1130580001.101,81,0) +MU EP NQF 0028B^^ +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B^^^^ +"DATA",1130580001.101,83,0) +MU EP NQF 0038 NUM1 DPT^^ +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT^^^^ +"DATA",1130580001.101,84,0) +MU EP NQF 0038 NUM2 IPV^^ +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV^^^^ +"DATA",1130580001.101,85,0) +MU EP NQF 0038 NUM3 MMR^^ +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR^^^^ +"DATA",1130580001.101,86,0) +MU EP NQF 0038 NUM4 HiB^^ +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB^^^^ +"DATA",1130580001.101,87,0) +MU EP NQF 0038 NUM5 HEP B^^ +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B^^^^ +"DATA",1130580001.101,88,0) +MU EP NQF 0038 NUM6 VZV^^ +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV^^^^ +"DATA",1130580001.101,89,0) +MU EP NQF 0038 NUM7 PCV^^ +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV^^^^ +"DATA",1130580001.101,90,0) +MU EP NQF 0038 NUM8 HEP A^^ +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A^^^^ +"DATA",1130580001.101,91,0) +MU EP NQF 0038 NUM9 RV^^ +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9^^^^ +"DATA",1130580001.101,92,0) +MU EP NQF 0038 NUM10 FLU^^ +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10^^^^ +"DATA",1130580001.101,93,0) +MU EP NQF 0038 NUM11 COMBO5^^ +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5^^^^ +"DATA",1130580001.101,94,0) +MU EP NQF 0038 NUM12 COMBO6^^ +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6^^^^ +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES^^ +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,95,7) +^^^^ +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE^^ +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,96,7) +^^^^ +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON^^ +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,97,7) +^^^^ +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST^^ +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,98,7) +^^^^ +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS^^ +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,99,7) +^^^^ +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS^^ +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,100,7) +^^^^ +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST^^ +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,101,7) +^^^^ +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST^^ +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,102,7) +^^^^ +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS^^ +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,103,7) +^^^^ +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,0,"VR") +1.0^QUALITY MEASURES +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^n^^y^r^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^QUALITY MEASURES +"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,0,"VR") +1.0^QUALITY MEASURES +"FIA",1130580001.201,1130580001.201) +0 +"FIA",1130580001.201,1130580001.2011) +0 +"FIA",1130580001.201,1130580001.20111) +0 +"FIA",1130580001.201,1130580001.20112) +0 +"FIA",1130580001.301) +C0Q PATIENT LIST +"FIA",1130580001.301,0) +^C0Q(301, +"FIA",1130580001.301,0,0) +1130580001.301I +"FIA",1130580001.301,0,1) +y^y^f^^^^n^^ +"FIA",1130580001.301,0,10) + +"FIA",1130580001.301,0,11) + +"FIA",1130580001.301,0,"RLRO") + +"FIA",1130580001.301,0,"VR") +1.0^QUALITY MEASURES +"FIA",1130580001.301,1130580001.301) +0 +"FIA",1130580001.301,1130580001.311) +0 +"FIA",1130580001.301,1130580001.3111) +0 +"FIA",1130580001.301,1130580001.321) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^y^f^^^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^QUALITY MEASURES +"FIA",1130580001.401,1130580001.401) +0 +"FIA",1130580001.401,1130580001.4013) +0 +"FIA",1130580001.401,1130580001.411) +0 +"INI") +PRE^C0QKIDS +"INIT") +POST^C0QKIDS +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"IX",1130580001.201,1130580001.201,"MU",0) +1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS +"IX",1130580001.201,1130580001.201,"MU",1) +S ^C0Q(201,"MU",$E(X,1,30),DA)="" +"IX",1130580001.201,1130580001.201,"MU",2) +K ^C0Q(201,"MU",$E(X,1,30),DA) +"IX",1130580001.201,1130580001.201,"MU",2.5) +K ^C0Q(201,"MU") +"IX",1130580001.201,1130580001.201,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.201,1130580001.201,"MU",11.1,1,0) +1^F^1130580001.201^.3^30^1^F +"IX",1130580001.301,1130580001.301,"CATTR",0) +1130580001.301^CATTR^ATTRIBUTE TO TIE PATIENT LIST RECORD TO INTERNAL ARRAYS^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"CATTR",1) +S ^C0Q(301,"CATTR",$E(X,1,64),DA)="" +"IX",1130580001.301,1130580001.301,"CATTR",2) +K ^C0Q(301,"CATTR",$E(X,1,64),DA) +"IX",1130580001.301,1130580001.301,"CATTR",2.5) +K ^C0Q(301,"CATTR") +"IX",1130580001.301,1130580001.301,"CATTR",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"CATTR",11.1,1,0) +1^F^1130580001.301^999^64^1^F +"IX",1130580001.301,1130580001.301,"MU",0) +1130580001.301^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"MU",1) +S ^C0Q(301,"MU",$E(X,1,30),DA)="" +"IX",1130580001.301,1130580001.301,"MU",2) +K ^C0Q(301,"MU",$E(X,1,30),DA) +"IX",1130580001.301,1130580001.301,"MU",2.5) +K ^C0Q(301,"MU") +"IX",1130580001.301,1130580001.301,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"MU",11.1,1,0) +1^F^1130580001.301^.3^30^1^F +"IX",1130580001.401,1130580001.401,"MU",0) +1130580001.401^MU^REGULAR INDEX ON THE REPORTING PERIOD FIELD^R^^F^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MU",1) +S ^C0Q(401,"MU",$E(X,1,30),DA)="" +"IX",1130580001.401,1130580001.401,"MU",2) +K ^C0Q(401,"MU",$E(X,1,30),DA) +"IX",1130580001.401,1130580001.401,"MU",2.5) +K ^C0Q(401,"MU") +"IX",1130580001.401,1130580001.401,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.401,1130580001.401,"MU",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",0) +1130580001.401^MUTYP^INDEX ON PARAMETER TYPE BY REPORTING PERIOD^R^^R^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MUTYP",1) +S ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA)="" +"IX",1130580001.401,1130580001.401,"MUTYP",2) +K ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA) +"IX",1130580001.401,1130580001.401,"MUTYP",2.5) +K ^C0Q(401,"MUTYP") +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,0) +^.114IA^2^2 +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,3) + +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,0) +2^F^1130580001.401^.03^^2^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,3) + +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^733 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",.4,1495,-1) +0^3 +"KRN",.4,1495,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3120105 +"KRN",.4,1495,"F",2) +.01~.5~1~2~ +"KRN",.4,1495,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1496,-1) +0^2 +"KRN",.4,1496,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1496,"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,1496,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1497,-1) +0^1 +"KRN",.4,1497,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1497,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1497,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1498,-1) +0^5 +"KRN",.4,1498,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1498,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1498,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1498,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1498,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1498,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1498,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1498,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1499,-1) +0^4 +"KRN",.4,1499,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1499,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1499,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1499,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1499,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1499,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1499,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1499,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1500,-1) +0^6 +"KRN",.4,1500,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3120523 +"KRN",.4,1500,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1500,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1500,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1736,-1) +0^1 +"KRN",.402,1736,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1736,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1736,"DR",2,1130580001.2011) +.01; +"KRN",.402,1742,-1) +0^3 +"KRN",.402,1742,0) +C0Q EDIT INPATIENT PARMS^3120105.1456^@^1130580001.401^^@^3120124 +"KRN",.402,1742,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1742,"DR",1,1130580001.401) +.01;.02;.03;1;1.1;3; +"KRN",.402,1742,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1743,-1) +0^6 +"KRN",.402,1743,0) +C0Q EDIT OUPATIENT PARMS^3120105.1458^@^1130580001.401^^@^3120731 +"KRN",.402,1743,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1743,"DIAB",1,1,1130580001.411,0) +ALL +"KRN",.402,1743,"DR",1,1130580001.401) +.01;.02;.03;2;2.1;2.2;2.3;3; +"KRN",.402,1743,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1743,"DR",2,1130580001.411) +.01 +"KRN",.402,1744,-1) +0^8 +"KRN",.402,1744,0) +C0Q EDIT SUPERUSERS^3120105.1459^@^1130580001.401^^@^3120124 +"KRN",.402,1744,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1744,"DR",1,1130580001.401) +.01;.02;.03;3; +"KRN",.402,1744,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1745,-1) +0^7 +"KRN",.402,1745,0) +C0Q EDIT QUALITY MEASURE^3120105.1536^@^1130580001.101^^@^3120117 +"KRN",.402,1745,"DR",1,1130580001.101) +.01;.3;.5;.61;.7;.8;1;2;3;3.2; +"KRN",.402,1746,-1) +0^5 +"KRN",.402,1746,0) +C0Q EDIT MU MEASURE^3120105.1537^@^1130580001.101^^@^3120219 +"KRN",.402,1746,"DR",1,1130580001.101) +.01;.3;.5;.61;.7;.8;1.1;2.1; +"KRN",.402,1747,-1) +0^4 +"KRN",.402,1747,0) +C0Q EDIT MEASURE SET^3120105.1539^@^1130580001.201^^@^3120730 +"KRN",.402,1747,"DR",1,1130580001.201) +.01;.02;.03;.05;.3;1; +"KRN",.402,1747,"DR",2,1130580001.2011) +.01;1.2;2.2; +"KRN",19,11027,-1) +0^10 +"KRN",19,11027,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11027,10,0) +^19.01IP^19^19 +"KRN",19,11027,10,9,0) +11034 +"KRN",19,11027,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11027,10,12,0) +11037 +"KRN",19,11027,10,12,"^") +C0Q PQRI MENU +"KRN",19,11027,10,13,0) +11038 +"KRN",19,11027,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11027,10,14,0) +11044 +"KRN",19,11027,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11027,10,15,0) +11058 +"KRN",19,11027,10,15,"^") +C0Q INP UPDATE MU MEASURES +"KRN",19,11027,10,16,0) +11059 +"KRN",19,11027,10,16,"^") +C0Q ED1 COMPUTATION +"KRN",19,11027,10,17,0) +11060 +"KRN",19,11027,10,17,"^") +C0Q ED2 COMPUTATION +"KRN",19,11027,10,18,0) +11061 +"KRN",19,11027,10,18,"^") +C0Q SETUP QUALITY REPORTING +"KRN",19,11027,10,19,0) +11062 +"KRN",19,11027,10,19,"^") +C0Q EP UPDATE MU MEASURES +"KRN",19,11027,99) +62598,59399 +"KRN",19,11027,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11028,-1) +0^4 +"KRN",19,11028,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^QUALITY MEASURES +"KRN",19,11028,60) +C0Q(101, +"KRN",19,11028,62) +0 +"KRN",19,11028,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11028,64) + +"KRN",19,11028,65) + +"KRN",19,11028,66) + +"KRN",19,11028,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11030,-1) +0^7 +"KRN",19,11030,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11030,25) +EN^C0QMAIN +"KRN",19,11030,"U") +LIST MEASURE SET +"KRN",19,11031,-1) +0^1 +"KRN",19,11031,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11031,25) +NBYP^C0QMAIN +"KRN",19,11031,"U") +BY PATIENT NUMERATOR +"KRN",19,11032,-1) +0^2 +"KRN",19,11032,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11032,25) +DBYP^C0QMAIN +"KRN",19,11032,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11033,-1) +0^5 +"KRN",19,11033,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11033,25) +EXPORT^C0QMAIN +"KRN",19,11033,"U") +EXPORT CCR BY MEASURE +"KRN",19,11034,-1) +0^12 +"KRN",19,11034,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11034,25) +EN2^C0QMAIN +"KRN",19,11034,"U") +COPY OVER PATIENT LISTS +"KRN",19,11035,-1) +0^6 +"KRN",19,11035,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11035,25) +ENEXP^C0QMAIN +"KRN",19,11035,"U") +ALL MEASURES EXPORT +"KRN",19,11036,-1) +0^15 +"KRN",19,11036,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11036,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11036,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11036,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11036,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11036,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11036,25) +QUE^C0QMAIN +"KRN",19,11036,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11037,-1) +0^13 +"KRN",19,11037,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11037,10,0) +^19.01IP^6^6 +"KRN",19,11037,10,1,0) +11035 +"KRN",19,11037,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11037,10,2,0) +11033 +"KRN",19,11037,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11037,10,3,0) +11030 +"KRN",19,11037,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11037,10,4,0) +11031 +"KRN",19,11037,10,4,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11037,10,5,0) +11032 +"KRN",19,11037,10,5,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11037,10,6,0) +11036 +"KRN",19,11037,10,6,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11037,99) +62598,59399 +"KRN",19,11037,"U") +PQRI MENU +"KRN",19,11038,-1) +0^14 +"KRN",19,11038,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11038,30) +C0Q(201, +"KRN",19,11038,31) +AEMQ +"KRN",19,11038,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11038,80) +C0Q(201, +"KRN",19,11038,"U") +PRINT C0Q MEASURES +"KRN",19,11044,-1) +0^16 +"KRN",19,11044,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11044,25) +EN^C0QPQRI +"KRN",19,11044,"U") +PQRI PRINT XML +"KRN",19,11058,-1) +0^22 +"KRN",19,11058,0) +C0Q INP UPDATE MU MEASURES^INP UPDATE MU MEASURES^^R^^^^^^^^ +"KRN",19,11058,25) +BUILD^C0QMU12 +"KRN",19,11058,"U") +INP UPDATE MU MEASURES +"KRN",19,11059,-1) +0^19 +"KRN",19,11059,0) +C0Q ED1 COMPUTATION^ED-1 COMPUTATION^^R^^^^^^^^ +"KRN",19,11059,25) +ED1^C0QMU12 +"KRN",19,11059,"U") +ED-1 COMPUTATION +"KRN",19,11060,-1) +0^20 +"KRN",19,11060,0) +C0Q ED2 COMPUTATION^ED-2 COMPUTATION^^R^^^^^^^^QUALITY MEASURES +"KRN",19,11060,25) +ED2^C0QMU12 +"KRN",19,11060,"U") +ED-2 COMPUTATION +"KRN",19,11061,-1) +0^23 +"KRN",19,11061,0) +C0Q SETUP QUALITY REPORTING^SETUP QUALITY REPORTING^^M^^^^^^^^ +"KRN",19,11061,10,0) +^19.01IP^9^9 +"KRN",19,11061,10,1,0) +11028 +"KRN",19,11061,10,1,"^") +C0Q DISPLAY QUALITY MEASURES +"KRN",19,11061,10,4,0) +11063 +"KRN",19,11061,10,4,"^") +C0Q EDIT INP PARMS +"KRN",19,11061,10,5,0) +11064 +"KRN",19,11061,10,5,"^") +C0Q EDIT OUTPATIENT PARMS +"KRN",19,11061,10,6,0) +11065 +"KRN",19,11061,10,6,"^") +C0Q EDIT SUPERUSERS +"KRN",19,11061,10,7,0) +11067 +"KRN",19,11061,10,7,"^") +C0Q EDIT QUALITY MEASURE +"KRN",19,11061,10,8,0) +11068 +"KRN",19,11061,10,8,"^") +C0Q EDIT MU MEASURE +"KRN",19,11061,10,9,0) +11066 +"KRN",19,11061,10,9,"^") +C0Q EDIT MEASURE SET +"KRN",19,11061,99) +62602,60669 +"KRN",19,11061,"U") +SETUP QUALITY REPORTING +"KRN",19,11062,-1) +0^21 +"KRN",19,11062,0) +C0Q EP UPDATE MU MEASURES^EP UPDATE MU MEASURES^^R^^^^^^^^ +"KRN",19,11062,25) +DOEP^C0QMU12 +"KRN",19,11062,"U") +EP UPDATE MU MEASURES +"KRN",19,11063,-1) +0^24 +"KRN",19,11063,0) +C0Q EDIT INP PARMS^INP EDIT PARMS^^E^^^^^^^^^^1^1 +"KRN",19,11063,15) +K DLAYGO +"KRN",19,11063,20) +S DLAYGO=1130580001.401 +"KRN",19,11063,30) +C0Q(401, +"KRN",19,11063,31) +AEMQL +"KRN",19,11063,50) +C0Q(401, +"KRN",19,11063,51) +[C0Q EDIT INPATIENT PARMS] +"KRN",19,11063,"U") +INP EDIT PARMS +"KRN",19,11064,-1) +0^27 +"KRN",19,11064,0) +C0Q EDIT OUTPATIENT PARMS^EP EDIT PARMS^^E^^^^^^^^QUALITY MEASURES^^1^1 +"KRN",19,11064,15) +K DLAYGO +"KRN",19,11064,20) +S DLAYGO=1130580001.401 +"KRN",19,11064,30) +C0Q(401, +"KRN",19,11064,31) +AEMQL +"KRN",19,11064,50) +C0Q(401, +"KRN",19,11064,51) +[C0Q EDIT OUPATIENT PARMS] +"KRN",19,11064,"U") +EP EDIT PARMS +"KRN",19,11065,-1) +0^29 +"KRN",19,11065,0) +C0Q EDIT SUPERUSERS^EDIT SUPERUSERS^^E^^^^^^^^ +"KRN",19,11065,30) +C0Q(401, +"KRN",19,11065,31) +AEMQ +"KRN",19,11065,50) +C0Q(401, +"KRN",19,11065,51) +[C0Q EDIT SUPERUSERS] +"KRN",19,11065,"U") +EDIT SUPERUSERS +"KRN",19,11066,-1) +0^25 +"KRN",19,11066,0) +C0Q EDIT MEASURE SET^MEASURE SET EDIT^^E^^^^^^^^QUALITY MEASURES^^1^1 +"KRN",19,11066,15) +K DLAYGO +"KRN",19,11066,20) +S DLAYGO=1130580001.201 +"KRN",19,11066,30) +C0Q(201, +"KRN",19,11066,31) +AEMQL +"KRN",19,11066,50) +C0Q(201, +"KRN",19,11066,51) +[C0Q EDIT MEASURE SET] +"KRN",19,11066,"U") +MEASURE SET EDIT +"KRN",19,11067,-1) +0^28 +"KRN",19,11067,0) +C0Q EDIT QUALITY MEASURE^QUALITY MEASURE EDIT^^E^^^^^^^^^^1^1 +"KRN",19,11067,15) +K DLAYGO +"KRN",19,11067,20) +S DLAYGO=1130580001.101 +"KRN",19,11067,30) +C0Q(101, +"KRN",19,11067,31) +AEMQL +"KRN",19,11067,50) +C0Q(101, +"KRN",19,11067,51) +[C0Q EDIT QUALITY MEASURE] +"KRN",19,11067,"U") +QUALITY MEASURE EDIT +"KRN",19,11068,-1) +0^26 +"KRN",19,11068,0) +C0Q EDIT MU MEASURE^MU MEASURE EDIT^^E^^^^^^^^QUALITY MEASURES^^1^1 +"KRN",19,11068,15) +K DLAYGO +"KRN",19,11068,20) +S DLAYGO=1130580001.101 +"KRN",19,11068,30) +C0Q(101, +"KRN",19,11068,31) +AEMQL +"KRN",19,11068,50) +C0Q(101, +"KRN",19,11068,51) +[C0Q EDIT MU MEASURE] +"KRN",19,11068,"U") +MU MEASURE EDIT +"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 +"PKG",212,-1) +1^1 +"PKG",212,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",212,1,0) +^9.41A^3^3^3120521^^^ +"PKG",212,1,1,0) +Tracks and Prints quality measures for several reporting programs: +"PKG",212,1,2,0) +- Meaningful Use +"PKG",212,1,3,0) +- PQRI +"PKG",212,20,0) +^9.402P^^ +"PKG",212,22,0) +^9.49I^1^1 +"PKG",212,22,1,0) +1.0^3120731 +"PKG",212,22,1,1,0) +^^9^9^3120731 +"PKG",212,22,1,1,1,0) +The C0Q Quality Reporting Package is a mumps-based addition to VistA for +"PKG",212,22,1,1,2,0) +reporting Meaningful Use and Quality Measurements. The package supports +"PKG",212,22,1,1,3,0) +both inpatient and outpatient reporting, and computes the Meaningful Use +"PKG",212,22,1,1,4,0) +measures from patient records. For Quality Measurements, the reporting +"PKG",212,22,1,1,5,0) +package relies on the VistA Reminders Patient Lists as the source for its +"PKG",212,22,1,1,6,0) +reporting. +"PKG",212,22,1,1,7,0) + +"PKG",212,22,1,1,8,0) +Installation and Use instructions can be found here: +"PKG",212,22,1,1,9,0) +http://vistapedia.net/index.php?title=C0Q_Quality_Reporting_1.0 +"PKG",212,"VERSION") +1.0 +"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") +YES +"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") +17 +"RTN","C0QERTIM") +0^5^B7594438 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; 5/23/12 2:26pm +"RTN","C0QERTIM",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QHF") +0^11^B4977233 +"RTN","C0QHF",1,0) +C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 +"RTN","C0QHF",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QHF",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QHF",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QHF",5,0) + ; +"RTN","C0QHF",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QHF",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QHF",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QHF",9,0) + ;(at your option) any later version. +"RTN","C0QHF",10,0) + ; +"RTN","C0QHF",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QHF",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QHF",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QHF",14,0) + ;GNU General Public License for more details. +"RTN","C0QHF",15,0) + ; +"RTN","C0QHF",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QHF",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QHF",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QHF",19,0) + ; +"RTN","C0QHF",20,0) + Q +"RTN","C0QHF",21,0) + ; +"RTN","C0QHF",22,0) + ; these routines are for quick lookups on HEALTH FACTOR and V HEALTH FACTOR +"RTN","C0QHF",23,0) + ; files... +"RTN","C0QHF",24,0) + ; +"RTN","C0QHF",25,0) + ; from the DD: +"RTN","C0QHF",26,0) + ;STANDARD DATA DICTIONARY #9000010.23 -- V HEALTH FACTORS FILE +"RTN","C0QHF",27,0) + ;STORED IN ^AUPNVHF( (6744 ENTRIES) +"RTN","C0QHF",28,0) + ;CROSS REFERENCED BY: PATIENT NAME(AATOO), HEALTH FACTOR(AATOO1), VISIT(AD), +"RTN","C0QHF",29,0) + ; VISIT(AV10), HEALTH FACTOR(B), PATIENT NAME(C) +"RTN","C0QHF",30,0) + ; +"RTN","C0QHF",31,0) + ;STANDARD DATA DICTIONARY #9999999.64 -- HEALTH FACTORS FILE +"RTN","C0QHF",32,0) + ;STORED IN ^AUTTHF( (8656 ENTRIES) +"RTN","C0QHF",33,0) + ;CROSS REFERENCED BY: CATEGORY(AC), ENTRY TYPE(AD), FACTOR(B), SYNONYM(D) +"RTN","C0QHF",34,0) + ; +"RTN","C0QHF",35,0) +HFYN(DFN,C0QHF) ; EXTRINSIC RETURNS 1 (YES) OR 0 (NO) IF A PATIENT +"RTN","C0QHF",36,0) + ; HAS A HEALTH FACTOR +"RTN","C0QHF",37,0) + N ZI,ZJ,ZR +"RTN","C0QHF",38,0) + S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN +"RTN","C0QHF",39,0) + I ZI="" D Q 0 ; +"RTN","C0QHF",40,0) + . W !,"BAD HEALTH FACTOR: ",C0QHF +"RTN","C0QHF",41,0) + I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1 +"RTN","C0QHF",42,0) + E S ZR=0 +"RTN","C0QHF",43,0) + Q ZR +"RTN","C0QHF",44,0) + ; +"RTN","C0QHF",45,0) +HFIEN(ZHF) ; EXTRINSIC RETURNS THE IEN OF THE HEALTHFACTOR +"RTN","C0QHF",46,0) + N ZI +"RTN","C0QHF",47,0) + S ZI=$O(^AUTTHF("B",ZHF,"")) ; HEALTH FACTOR IEN +"RTN","C0QHF",48,0) + Q ZI +"RTN","C0QHF",49,0) + ; +"RTN","C0QHF",50,0) +VHFIEN(DFN,ZHF) ; EXTRINSIC RETURNS THE LAST IEN OF THIS HEALTH FACTOR +"RTN","C0QHF",51,0) + ; FOR THE PATIENT +"RTN","C0QHF",52,0) + N ZG,ZJ,ZK +"RTN","C0QHF",53,0) + S ZG=$$HFIEN(ZHF) +"RTN","C0QHF",54,0) + I ZG="" Q ; OPPS HEALTH FACTOR NOT FOUND +"RTN","C0QHF",55,0) + S ZJ=$O(^AUPNVHF("AA",DFN,ZG,""),-1) ;DATE +"RTN","C0QHF",56,0) + S ZK=$O(^AUPNVHF("AA",DFN,ZG,ZJ,"")) ;IEN +"RTN","C0QHF",57,0) + Q ZK +"RTN","C0QHF",58,0) + ; +"RTN","C0QHF",59,0) +HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY +"RTN","C0QHF",60,0) + ; RTN IS PASSED BY REFERENCE AND RETURNS AN ARRAY OF HEALTH FACTORS +"RTN","C0QHF",61,0) + ; THAT THE PATIENT HAS IN THE CATEGORY. RETURNS NULL IF NONE +"RTN","C0QHF",62,0) + ; FORMAT RNT(HEALTH FACTOR IEN,HEALTH FACTOR NAME)="" +"RTN","C0QHF",63,0) + N ZI +"RTN","C0QHF",64,0) + S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN +"RTN","C0QHF",65,0) + N C0QN,C0QO,C0QR +"RTN","C0QHF",66,0) + S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS +"RTN","C0QHF",67,0) + S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY +"RTN","C0QHF",68,0) + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; THE DIFFERENCE +"RTN","C0QHF",69,0) + K RTN ; CLEAR THE RETURN ARRAY +"RTN","C0QHF",70,0) + N ZJ S ZJ="" +"RTN","C0QHF",71,0) + F S ZJ=$O(C0QR(1,ZJ)) Q:ZJ="" D ; FOR ALL HEALTH FACTOR MATCHES +"RTN","C0QHF",72,0) + . S RTN(ZJ,$P(^AUTTHF(ZJ,0),"^",1))="" +"RTN","C0QHF",73,0) + Q +"RTN","C0QHF",74,0) + ; +"RTN","C0QHF",75,0) +HFLCAT(RTN,C0QHFCAT) ; RETURNS A LIST OF PATIENTS WHO HAVE A HEALTH FACTOR +"RTN","C0QHF",76,0) + ; IN THE C0QHFCAT CATEGORY. RTN IS PASSED BY REFERENCE +"RTN","C0QHF",77,0) + ; THIS WILL BE HARD TO DO WITHOUT SOME NEW INDEXES +"RTN","C0QHF",78,0) + Q +"RTN","C0QHF",79,0) + ; +"RTN","C0QHF",80,0) +HFLPAT(RTN,C0QHF) ; RETURNS A LIST OF PATIENTS WHO HAVE A SPECIFIC HEALTH +"RTN","C0QHF",81,0) + ; FACTOR. RTN IS PASSED BY REFERENCE +"RTN","C0QHF",82,0) + ; THIS ONE ALSO WILL BE HARD TO DO QUICKLY WITHOUT A NEW INDEX +"RTN","C0QHF",83,0) + Q +"RTN","C0QHF",84,0) + ; +"RTN","C0QHF",85,0) +INDEXES(DDREF) ;PRINT THE INDEXES ACTUALLY ON FILE DDREF +"RTN","C0QHF",86,0) + ; IE D INDEXES($NA(^DD)) +"RTN","C0QHF",87,0) + N ZI +"RTN","C0QHF",88,0) + S ZI="A" +"RTN","C0QHF",89,0) + F S ZI=$O(@DDREF@(ZI)) Q:ZI="" W !,ZI +"RTN","C0QHF",90,0) + Q +"RTN","C0QHF",91,0) + ; +"RTN","C0QIMMUN") +0^18^B7512677 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; 5/23/12 5:40pm +"RTN","C0QIMMUN",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) + ; Changed by VEN/SMH to add timeout to the locks on May 23 2012 +"RTN","C0QIMMUN",7,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",8,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",9,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",10,0) + N C0QFAIL S C0QFAIL=0 ; Lock fail flag +"RTN","C0QIMMUN",11,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",12,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",13,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",14,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",15,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",16,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",17,0) + . D:Y>0 +"RTN","C0QIMMUN",18,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",19,0) + . . L +^XTMP("C0QIMMUN"):0 +"RTN","C0QIMMUN",20,0) + . . E S C0QFAIL=1 QUIT +"RTN","C0QIMMUN",21,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",22,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",23,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",24,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",25,0) + . . Q +"RTN","C0QIMMUN",26,0) + . Q +"RTN","C0QIMMUN",27,0) + I C0QFAIL W !,"Failed to acquire lock, exiting..." QUIT +"RTN","C0QIMMUN",28,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",29,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",30,0) + L +^XTMP("C0QIMMUN"):0 +"RTN","C0QIMMUN",31,0) + E W !,"Failed to acquire lock; exiting..." QUIT +"RTN","C0QIMMUN",32,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",33,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",34,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",35,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",36,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",37,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",38,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",39,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",40,0) + . Q +"RTN","C0QIMMUN",41,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",42,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",43,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",44,0) + Q +"RTN","C0QIMMUN",45,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",46,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",47,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",48,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",49,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",50,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",51,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",52,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",53,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",54,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",55,0) + . Q +"RTN","C0QIMMUN",56,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",57,0) + Q +"RTN","C0QINIT") +0^14^B5217090 +"RTN","C0QINIT",1,0) +C0QINIT ; GPL - Quality Reporting Initialization Routines ; 7/31/12 8:16am +"RTN","C0QINIT",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QINIT",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QINIT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QINIT",5,0) + ; +"RTN","C0QINIT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QINIT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QINIT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QINIT",9,0) + ;(at your option) any later version. +"RTN","C0QINIT",10,0) + ; +"RTN","C0QINIT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QINIT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QINIT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QINIT",14,0) + ;GNU General Public License for more details. +"RTN","C0QINIT",15,0) + ; +"RTN","C0QINIT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QINIT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QINIT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QINIT",19,0) + ; +"RTN","C0QINIT",20,0) + Q +"RTN","C0QINIT",21,0) + ; +"RTN","C0QINIT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QINIT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QINIT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QINIT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QINIT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QINIT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QINIT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QINIT",29,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QINIT",30,0) + ; +"RTN","C0QINIT",31,0) +COPYQ ; INTERACTIVE COPY OF A QUALITY MEASURE +"RTN","C0QINIT",32,0) + N FN +"RTN","C0QINIT",33,0) + S FN=$$C0QQFN +"RTN","C0QINIT",34,0) + S DIC=FN,DIC(0)="AEMQ" D ^DIC +"RTN","C0QINIT",35,0) + I Y<1 Q ; EXIT +"RTN","C0QINIT",36,0) + S C0QIEN=$P(Y,U) +"RTN","C0QINIT",37,0) + ;N G,ZWP +"RTN","C0QINIT",38,0) + D GETS^DIQ(FN,C0QIEN,"**","EI","G") +"RTN","C0QINIT",39,0) + M ZWP=G(FN,C0QIEN_",",.61) +"RTN","C0QINIT",40,0) + ; GET READY TO CREATE THE NEW COPY +"RTN","C0QINIT",41,0) + ; FIRST FIND OUT THE NEW NAME +"RTN","C0QINIT",42,0) + N QNAME +"RTN","C0QINIT",43,0) + S QNAME=G(FN,C0QIEN_",",.01,"E") +"RTN","C0QINIT",44,0) + S DIR(0)="F^3:240" +"RTN","C0QINIT",45,0) + S DIR("A")="New Measure Name" +"RTN","C0QINIT",46,0) + S DIR("B")=QNAME +"RTN","C0QINIT",47,0) + D ^DIR +"RTN","C0QINIT",48,0) + I Y="^" Q ; +"RTN","C0QINIT",49,0) + N QNEW +"RTN","C0QINIT",50,0) + S QNEW=Y +"RTN","C0QINIT",51,0) + K C0QFDA +"RTN","C0QINIT",52,0) + N ZI S ZI="" +"RTN","C0QINIT",53,0) + F S ZI=$O(G(FN,C0QIEN_",",ZI)) Q:ZI="" D ; FOR EACH FIELD +"RTN","C0QINIT",54,0) + . I ZI=.01 D Q ; THE NEW NAME +"RTN","C0QINIT",55,0) + . . S C0QFDA(FN,"+1,",.01)=QNEW ; NEW MEASURE NAME +"RTN","C0QINIT",56,0) + . I ZI=3.1 Q ; SKIP THE COMPUTED FIELD +"RTN","C0QINIT",57,0) + . S C0QFDA(FN,"+1,",ZI)=G(FN,C0QIEN_",",ZI,"I") +"RTN","C0QINIT",58,0) + D UPDIE ; CREATE THE NEW RECORD +"RTN","C0QINIT",59,0) + S DIE=$$C0QQFN ; GET READY TO EDIT IT +"RTN","C0QINIT",60,0) + D EN^DIB ; EDIT THE NEW RECORD +"RTN","C0QINIT",61,0) + Q +"RTN","C0QINIT",62,0) + ; +"RTN","C0QINIT",63,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QINIT",64,0) + K ZERR +"RTN","C0QINIT",65,0) + D CLEAN^DILF +"RTN","C0QINIT",66,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QINIT",67,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QINIT",68,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, +"RTN","C0QINIT",69,0) + ; INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QINIT",70,0) + K C0QFDA +"RTN","C0QINIT",71,0) + Q +"RTN","C0QINIT",72,0) + ; +"RTN","C0QKIDS") +0^^B70390912 +"RTN","C0QKIDS",1,0) +C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/31/12 3:36pm +"RTN","C0QKIDS",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QKIDS",3,0) + ; Licensed under package license. See Documentation. +"RTN","C0QKIDS",4,0) + ; +"RTN","C0QKIDS",5,0) + ; PEPs: TRAN, POST, PRE +"RTN","C0QKIDS",6,0) + ; +"RTN","C0QKIDS",7,0) +TRAN ; Unified Transport; PEP +"RTN","C0QKIDS",8,0) + ; D TRAN301 ; looks like I won't send that file over +"RTN","C0QKIDS",9,0) + D TRAN201 ; C0Q MEASUREMENT +"RTN","C0QKIDS",10,0) + D TRAN101 ; C0Q QUALITY MEASURE +"RTN","C0QKIDS",11,0) + QUIT +"RTN","C0QKIDS",12,0) +POST ; Unified Post; PEP +"RTN","C0QKIDS",13,0) + ; D POST301 ; looks like I won't send that file over +"RTN","C0QKIDS",14,0) + ; D POST101 ; C0Q QUALITY MEASURE ; As of T11, I won't do that anymore. --> +"RTN","C0QKIDS",15,0) + ; I discovered that it will do it on destination systems that are set-up. +"RTN","C0QKIDS",16,0) + ; So bad bad bad idea for me to do it in a post-init. +"RTN","C0QKIDS",17,0) + ; ... I wrote TRAN101 to do the function of POST101. +"RTN","C0QKIDS",18,0) + D POST201 ; C0Q MEASUREMENT +"RTN","C0QKIDS",19,0) + QUIT +"RTN","C0QKIDS",20,0) + ; +"RTN","C0QKIDS",21,0) +PRE ; Unified Pre; PEP +"RTN","C0QKIDS",22,0) + D PRE101 +"RTN","C0QKIDS",23,0) + QUIT +"RTN","C0QKIDS",24,0) + ; +"RTN","C0QKIDS",25,0) + ; << >> +"RTN","C0QKIDS",26,0) + ; +"RTN","C0QKIDS",27,0) +TRAN101 ; Remove Untransportable pointers in C0Q QUALITY MEASURE; Private EP +"RTN","C0QKIDS",28,0) + ; NB: I am reaching into KIDS's data here. This may not work for future versions +"RTN","C0QKIDS",29,0) + ; of KIDS. However, I am exporting this only; once exported, it should work in +"RTN","C0QKIDS",30,0) + ; any version of KIDS. +"RTN","C0QKIDS",31,0) + N XPDIEN S XPDIEN=$QS(XPDGREF,2) ; Get IEN of KIDS Transport Global +"RTN","C0QKIDS",32,0) + N X S X=$NA(^XTMP("XPDT",XPDIEN,"DATA",1130580001.101)) ; KIDS transports our data here +"RTN","C0QKIDS",33,0) + N IEN S IEN=0 ; Looper +"RTN","C0QKIDS",34,0) + F S IEN=$O(@X@(IEN)) Q:'IEN D ; For each IEN, remove the following: +"RTN","C0QKIDS",35,0) + . S $P(@X@(IEN,0),U,2)="" ; Numerator Patient List +"RTN","C0QKIDS",36,0) + . S $P(@X@(IEN,0),U,3)="" ; Denominator Patient List +"RTN","C0QKIDS",37,0) + . S $P(@X@(IEN,7),U,4)="" ; Negative Numerator List +"RTN","C0QKIDS",38,0) + . S $P(@X@(IEN,7),U,2)="" ; Alternate Numerator List +"RTN","C0QKIDS",39,0) + . S $P(@X@(IEN,7),U,3)="" ; Alternate Denominator List +"RTN","C0QKIDS",40,0) + . S $P(@X@(IEN,7),U,5)="" ; Alternate Negative Numerator List +"RTN","C0QKIDS",41,0) + QUIT +"RTN","C0QKIDS",42,0) + ; +"RTN","C0QKIDS",43,0) +TRAN301 ; Grab FDA for entire file C0Q PATIENT LIST and store in Transport Global; Private EP +"RTN","C0QKIDS",44,0) + ; Not used. Dead code. +"RTN","C0QKIDS",45,0) + N C0QIEN S C0QIEN=0 ; IEN walker +"RTN","C0QKIDS",46,0) + N C0QREF1 S C0QREF1=$NAME(^TMP("C0QOLD",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",47,0) + N C0QREF2 S C0QREF2=$NAME(^TMP("C0QNEW",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",48,0) + K @C0QREF1,@C0QREF2 ; Kill that +"RTN","C0QKIDS",49,0) + F S C0QIEN=$O(^C0Q(301,C0QIEN)) Q:'+C0QIEN D +"RTN","C0QKIDS",50,0) + . D GETS^DIQ(1130580001.301,C0QIEN_",","*","",C0QREF1) ; Load FDA's in there +"RTN","C0QKIDS",51,0) + . M @C0QREF2@(1130580001.301,"?+"_C0QIEN_",")=@C0QREF1@(1130580001.301,C0QIEN_",") ; Change IENs to ?+ IENs +"RTN","C0QKIDS",52,0) + M @XPDGREF@("C0Q","1130580001.301")=@C0QREF2 ; Put in Transport Global +"RTN","C0QKIDS",53,0) + K @C0QREF1,@C0QREF2 ; Remove +"RTN","C0QKIDS",54,0) + QUIT +"RTN","C0QKIDS",55,0) + ; +"RTN","C0QKIDS",56,0) +TRAN201 ; Grab FDA for 201 C0Q MEASUREMENTS selected fields; Private EP +"RTN","C0QKIDS",57,0) + N C0QIEN S C0QIEN=0 ; IEN walker +"RTN","C0QKIDS",58,0) + N C0QREF1 S C0QREF1=$NAME(^TMP("C0QOLD",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",59,0) + N C0QREF2 S C0QREF2=$NAME(^TMP("C0QNEW",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",60,0) + K @C0QREF1,@C0QREF2 ; Kill that +"RTN","C0QKIDS",61,0) + ; +"RTN","C0QKIDS",62,0) + ; We need C0QCOUNT so that it wouldn't reuse the numbers, b/c updater wants numbers for every different item +"RTN","C0QKIDS",63,0) + N C0QCOUNT S C0QCOUNT=$O(^C0Q(201," "),-1) ; Counter for SubIENs for destination array; init at highest IEN to prevent dups +"RTN","C0QKIDS",64,0) + F S C0QIEN=$O(^C0Q(201,C0QIEN)) Q:'+C0QIEN D ; Walk IENs +"RTN","C0QKIDS",65,0) + . W "Exporting "_C0QIEN,! +"RTN","C0QKIDS",66,0) + . ; Fields SET NAME, BEGIN DATE, END DATE, LOCKED, USE ALL MEASURES, MU YEAR KEY +"RTN","C0QKIDS",67,0) + . D GETS^DIQ(1130580001.201,C0QIEN_",",".01;.02;.03;.05;.2;.3","",C0QREF1) +"RTN","C0QKIDS",68,0) + . M @C0QREF2@(1130580001.201,"?+"_C0QIEN_",")=@C0QREF1@(1130580001.201,C0QIEN_",") ; Change IENs to ?+ IENs +"RTN","C0QKIDS",69,0) + . N C0QIEN2 S C0QIEN2=0 ; Subfile walker +"RTN","C0QKIDS",70,0) + . F S C0QIEN2=$O(^C0Q(201,C0QIEN,5,C0QIEN2)) Q:'+C0QIEN2 D ; MEASURE subfile +"RTN","C0QKIDS",71,0) + . . W "Exporting IENS "_C0QIEN2_","_C0QIEN_",",! +"RTN","C0QKIDS",72,0) + . . D GETS^DIQ(1130580001.2011,C0QIEN2_","_C0QIEN_",",".01","",C0QREF1) ; MEASURE (#.01) +"RTN","C0QKIDS",73,0) + . . S C0QCOUNT=C0QCOUNT+1 ; Increment the counter for SubIEN (can't reuse) +"RTN","C0QKIDS",74,0) + . . M @C0QREF2@(1130580001.2011,"?+"_C0QCOUNT_","_"?+"_C0QIEN_",")=@C0QREF1@(1130580001.2011,C0QIEN2_","_C0QIEN_",") ; as above +"RTN","C0QKIDS",75,0) + ; +"RTN","C0QKIDS",76,0) + M @XPDGREF@("C0Q","1130580001.201")=@C0QREF2 ; Put in transport global +"RTN","C0QKIDS",77,0) + K @C0QREF1,@C0QREF2 ; Remove temp +"RTN","C0QKIDS",78,0) + QUIT +"RTN","C0QKIDS",79,0) + ; +"RTN","C0QKIDS",80,0) +POST201 ; File FDA for 201; Private EP +"RTN","C0QKIDS",81,0) + ; +"RTN","C0QKIDS",82,0) + ; Clean-up data if it already exists! +"RTN","C0QKIDS",83,0) + ; ZWRITE ^C0Q(201,:,5,:,0) +"RTN","C0QKIDS",84,0) + ; ^C0Q(201,1,5,599,0)=50 +"RTN","C0QKIDS",85,0) + ; ^C0Q(201,1,5,600,0)=4 +"RTN","C0QKIDS",86,0) + ; ^C0Q(201,1,5,601,0)=39 +"RTN","C0QKIDS",87,0) + ; ^C0Q(201,1,5,602,0)=6 +"RTN","C0QKIDS",88,0) + ; ^C0Q(201,1,5,603,0)=7 +"RTN","C0QKIDS",89,0) + ; ^C0Q(201,1,5,604,0)=48 +"RTN","C0QKIDS",90,0) + ; ^C0Q(201,1,5,605,0)=46 +"RTN","C0QKIDS",91,0) + ; +"RTN","C0QKIDS",92,0) + IF $O(^C0Q(201,0)) DO QUIT ; Quit if data is already there. +"RTN","C0QKIDS",93,0) + . D MES^XPDUTL("Data exists in file C0Q MEASUREMENTS... Not adding new data") +"RTN","C0QKIDS",94,0) + . D MES^XPDUTL("Cleaning up broken pointers in C0Q MEASUREMENTS from deleted data in C0Q QUALITY MEASURE") +"RTN","C0QKIDS",95,0) + . ; This is very hairy code. Run through the 5 multiple in C0Q MEASUREMENT +"RTN","C0QKIDS",96,0) + . ; Grab the IEN in the .01, check if it exists; if not, kill. +"RTN","C0QKIDS",97,0) + . N DA,DIK ; DIK Variables; as well as our looper variables +"RTN","C0QKIDS",98,0) + . S (DA,DA(1))=0 ; Initial looper values +"RTN","C0QKIDS",99,0) + . F S DA(1)=$O(^C0Q(201,DA(1))) Q:'DA(1) D ; Loop through entries +"RTN","C0QKIDS",100,0) + . . D MES^XPDUTL("...Processing entry "_$P(^C0Q(201,DA(1),0),U)) ; msg +"RTN","C0QKIDS",101,0) + . . S DIK="^C0Q(201,"_DA(1)_",5," ; deletion root for the next loop +"RTN","C0QKIDS",102,0) + . . F S DA=$O(^C0Q(201,DA(1),5,DA)) Q:'DA D ; For each Measure +"RTN","C0QKIDS",103,0) + . . . N IEN S IEN=+^C0Q(201,DA(1),5,DA,0) ; Get IEN +"RTN","C0QKIDS",104,0) + . . . I IEN,'$D(^C0Q(101,IEN)) D ; If IEN is numeric, IEN exists in dest file +"RTN","C0QKIDS",105,0) + . . . . D MES^XPDUTL("......Deleting broken pointer "_IEN) ; msg +"RTN","C0QKIDS",106,0) + . . . . D ^DIK ; delete +"RTN","C0QKIDS",107,0) + ; +"RTN","C0QKIDS",108,0) + ; If new install, add data +"RTN","C0QKIDS",109,0) + ; +"RTN","C0QKIDS",110,0) + D MES^XPDUTL("Adding data to C0Q MEASUREMENTS") +"RTN","C0QKIDS",111,0) + N C0QFDA S C0QFDA=$NAME(@XPDGREF@("C0Q","1130580001.201")) ; Grab FDA from Transport Global +"RTN","C0QKIDS",112,0) + N C0QERR ; Error array for filer +"RTN","C0QKIDS",113,0) + D UPDATE^DIE("E",C0QFDA,"","C0QERR") ; File all +"RTN","C0QKIDS",114,0) + I $D(C0QERR) D ; if there's an error, print it out +"RTN","C0QKIDS",115,0) + . D MES^XPDUTL("Couldn't add data into C0Q MEASUREMENTS") +"RTN","C0QKIDS",116,0) + . S C0QERR=$Q(C0QERR) +"RTN","C0QKIDS",117,0) + . F S C0QERR=$Q(@C0QERR) Q:C0QERR="" D MES^XPDUTL(C0QERR_": "_@C0QERR) +"RTN","C0QKIDS",118,0) + QUIT +"RTN","C0QKIDS",119,0) + ; +"RTN","C0QKIDS",120,0) +POST301 ; Get FDA from Transport Global and install in destination system for C0Q PATIENT LIST; Private EP +"RTN","C0QKIDS",121,0) + ; Not used. Dead code. +"RTN","C0QKIDS",122,0) + N C0QFDA S C0QFDA=$NAME(@XPDGREF@("C0Q","1130580001.301")) ; FDA array name is the global reference +"RTN","C0QKIDS",123,0) + N C0QERR ; Error +"RTN","C0QKIDS",124,0) + D UPDATE^DIE("E",C0QFDA,"","C0QERR") ; File all +"RTN","C0QKIDS",125,0) + I $D(C0QERR) D ; if there's an error, print it out +"RTN","C0QKIDS",126,0) + . D MES^XPDUTL("Couldn't add data into C0Q PATIENT LIST file") +"RTN","C0QKIDS",127,0) + . S C0QERR=$Q(C0QERR) +"RTN","C0QKIDS",128,0) + . F S C0QERR=$Q(@C0QERR) Q:C0QERR="" D MES^XPDUTL(C0QERR_": "_@C0QERR) +"RTN","C0QKIDS",129,0) + QUIT +"RTN","C0QKIDS",130,0) + ; +"RTN","C0QKIDS",131,0) +PRE101 ; Clean existing data (from an earlier installation) from measures that are now merged to other measures +"RTN","C0QKIDS",132,0) + ; in C0Q QUALITY MEASURE in destination systems; Private EP +"RTN","C0QKIDS",133,0) + ; +"RTN","C0QKIDS",134,0) + ; Quit if C0Q Quality Measures isn't on the system. +"RTN","C0QKIDS",135,0) + Q:'$D(^C0Q(101)) +"RTN","C0QKIDS",136,0) + ; +"RTN","C0QKIDS",137,0) + D MES^XPDUTL("Removing subsumed entries in C0Q QUALITY MEASURE") +"RTN","C0QKIDS",138,0) + ; +"RTN","C0QKIDS",139,0) + ; .01 field values to for records to remove +"RTN","C0QKIDS",140,0) + N C0QLIST +"RTN","C0QKIDS",141,0) + S C0QLIST("TEST M0028A")="" +"RTN","C0QKIDS",142,0) + S C0QLIST("MU EP 0028B")="" +"RTN","C0QKIDS",143,0) + S C0QLIST("M0013")="" +"RTN","C0QKIDS",144,0) + S C0QLIST("M0024")="" +"RTN","C0QKIDS",145,0) + S C0QLIST("M1")="" +"RTN","C0QKIDS",146,0) + S C0QLIST("M3")="" +"RTN","C0QKIDS",147,0) + S C0QLIST("M2")="" +"RTN","C0QKIDS",148,0) + S C0QLIST("M0028")="" +"RTN","C0QKIDS",149,0) + S C0QLIST("M111")="" +"RTN","C0QKIDS",150,0) + S C0QLIST("M112")="" +"RTN","C0QKIDS",151,0) + S C0QLIST("M113")="" +"RTN","C0QKIDS",152,0) + S C0QLIST("M128")="" +"RTN","C0QKIDS",153,0) + S C0QLIST("M5")="" +"RTN","C0QKIDS",154,0) + S C0QLIST("M7")="" +"RTN","C0QKIDS",155,0) + S C0QLIST("M0022")="" +"RTN","C0QKIDS",156,0) + S C0QLIST("12")="" +"RTN","C0QKIDS",157,0) + S C0QLIST("M0038")="" +"RTN","C0QKIDS",158,0) + S C0QLIST("M110")="" +"RTN","C0QKIDS",159,0) + ; +"RTN","C0QKIDS",160,0) + ; Root for ^DIK +"RTN","C0QKIDS",161,0) + N DIK S DIK="^C0Q(101," +"RTN","C0QKIDS",162,0) + ; +"RTN","C0QKIDS",163,0) + ; Loop through list, find IEN for each one, kill off +"RTN","C0QKIDS",164,0) + N C0QITEM S C0QITEM="" ; Item +"RTN","C0QKIDS",165,0) + F S C0QITEM=$O(C0QLIST(C0QITEM)) Q:C0QITEM="" D ; Loop +"RTN","C0QKIDS",166,0) + . Q:'$DATA(^C0Q(101,"B",C0QITEM)) ; Quit if not present. +"RTN","C0QKIDS",167,0) + . N DA S DA=$O(^C0Q(101,"B",C0QITEM,"")) ; IEN +"RTN","C0QKIDS",168,0) + . D MES^XPDUTL("...Removing "_C0QITEM) ; Message to user +"RTN","C0QKIDS",169,0) + . D ^DIK ; Delete +"RTN","C0QKIDS",170,0) + ; +"RTN","C0QKIDS",171,0) +REN ; Rename a bunch of entries +"RTN","C0QKIDS",172,0) + ; ("OLD NAME")="NEW NAME" +"RTN","C0QKIDS",173,0) + D MES^XPDUTL("Renaming Old entries in C0Q QUALITY MEASURE") +"RTN","C0QKIDS",174,0) + ; +"RTN","C0QKIDS",175,0) + N C0QLIST +"RTN","C0QKIDS",176,0) + S C0QLIST("NQF0038 NUM1 DPT")="MU EP NQF 0038 NUM1 DPT" +"RTN","C0QKIDS",177,0) + S C0QLIST("NQF0038 NUM10")="MU EP NQF 0038 NUM10 FLU" +"RTN","C0QKIDS",178,0) + S C0QLIST("NQF0038 NUM11 COMBO5")="MU EP NQF 0038 NUM11 COMBO5" +"RTN","C0QKIDS",179,0) + S C0QLIST("NQF0038 NUM12 COMBO6")="MU EP NQF 0038 NUM12 COMBO6" +"RTN","C0QKIDS",180,0) + S C0QLIST("NQF0038 NUM2 IPV")="MU EP NQF 0038 NUM2 IPV" +"RTN","C0QKIDS",181,0) + S C0QLIST("NQF0038 NUM3 MMR")="MU EP NQF 0038 NUM3 MMR" +"RTN","C0QKIDS",182,0) + S C0QLIST("NQF0038 NUM4 HiB")="MU EP NQF 0038 NUM4 HiB" +"RTN","C0QKIDS",183,0) + S C0QLIST("NQF0038 NUM5 HEP B")="MU EP NQF 0038 NUM5 HEP B" +"RTN","C0QKIDS",184,0) + S C0QLIST("NQF0038 NUM6 VZV")="MU EP NQF 0038 NUM6 VZV" +"RTN","C0QKIDS",185,0) + S C0QLIST("NQF0038 NUM7 PCV")="MU EP NQF 0038 NUM7 PCV" +"RTN","C0QKIDS",186,0) + S C0QLIST("NQF0038 NUM8 HEP A")="MU EP NQF 0038 NUM8 HEP A" +"RTN","C0QKIDS",187,0) + S C0QLIST("NQF0038 NUM9")="MU EP NQF 0038 NUM9 RV" +"RTN","C0QKIDS",188,0) + S C0QLIST("M124")="PQRI MEASURE 124" +"RTN","C0QKIDS",189,0) + S C0QLIST("M173")="PQRI MEASURE 173" +"RTN","C0QKIDS",190,0) + S C0QLIST("M39")="PQRI MEASURE 39" +"RTN","C0QKIDS",191,0) + S C0QLIST("M47")="PQRI MEASURE 47" +"RTN","C0QKIDS",192,0) + S C0QLIST("M48")="PQRI MEASURE 48" +"RTN","C0QKIDS",193,0) + ; +"RTN","C0QKIDS",194,0) + N C0QITEM S C0QITEM="" ; Item +"RTN","C0QKIDS",195,0) + N C0QFDA ; FDA +"RTN","C0QKIDS",196,0) + F S C0QITEM=$O(C0QLIST(C0QITEM)) Q:C0QITEM="" D ; Loop through +"RTN","C0QKIDS",197,0) + . N IEN S IEN=$O(^C0Q(101,"B",C0QITEM,"")) ; Get IEN from File using old name +"RTN","C0QKIDS",198,0) + . I IEN S C0QFDA(1130580001.101,IEN_",",.01)=C0QLIST(C0QITEM) ; If found, put new name in FDA for this IEN +"RTN","C0QKIDS",199,0) + . I IEN D MES^XPDUTL("...Renaming "_C0QITEM_" to "_C0QLIST(C0QITEM)) ; Print message to user +"RTN","C0QKIDS",200,0) + ; +"RTN","C0QKIDS",201,0) + N C0QERR ; Error for FILE^DIE +"RTN","C0QKIDS",202,0) + I $D(C0QFDA) D FILE^DIE("E",$NA(C0QFDA),$NA(C0QERR)) ; File if FDA has contents +"RTN","C0QKIDS",203,0) + E D MES^XPDUTL("No entries to rename") ; If nothing, tell user so +"RTN","C0QKIDS",204,0) + ; +"RTN","C0QKIDS",205,0) + D:$D(C0QERR) ; If Error, print it +"RTN","C0QKIDS",206,0) + . D MES^XPDUTL("Error Filing Data. FILE^DIE reported:") +"RTN","C0QKIDS",207,0) + . N REF S REF=$NA(C0QERR) ; $Q Reference +"RTN","C0QKIDS",208,0) + . F S REF=$Q(@REF) Q:REF="" D MES^XPDUTL(REF_"="_@REF) ; Loop and Print +"RTN","C0QKIDS",209,0) + ; +"RTN","C0QKIDS",210,0) + QUIT +"RTN","C0QMAIN") +0^1^B116855264 +"RTN","C0QMAIN",1,0) +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 +"RTN","C0QMAIN",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"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) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"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) + D UPDATE^C0QUPDT(.G,MSIEN) +"RTN","C0QMAIN",142,0) + Q +"RTN","C0QMAIN",143,0) + ; +"RTN","C0QMAIN",144,0) +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC +"RTN","C0QMAIN",145,0) + ; +"RTN","C0QMAIN",146,0) + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC +"RTN","C0QMAIN",147,0) + I Y<1 Q ; EXIT +"RTN","C0QMAIN",148,0) + N MSIEN S MSIEN=+Y +"RTN","C0QMAIN",149,0) + ; changed by gpl to call the new UPDATE^C0QUPDT routine instead +"RTN","C0QMAIN",150,0) + D UPDATE^C0QUPDT(.G,MSIEN) +"RTN","C0QMAIN",151,0) + Q +"RTN","C0QMAIN",152,0) + ; end gpl change +"RTN","C0QMAIN",153,0) + S C0QSUM=1 +"RTN","C0QMAIN",154,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",155,0) + ; iterate over the measures +"RTN","C0QMAIN",156,0) + S MEASURE=0 +"RTN","C0QMAIN",157,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",158,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",159,0) + . ; now count the numerator patients +"RTN","C0QMAIN",160,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",161,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",162,0) + . ; and count the denominator patients +"RTN","C0QMAIN",163,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",164,0) + . Q:DENOM=0 +"RTN","C0QMAIN",165,0) + . ; and stuff the values +"RTN","C0QMAIN",166,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",167,0) + . Q +"RTN","C0QMAIN",168,0) + Q +"RTN","C0QMAIN",169,0) + ; +"RTN","C0QMAIN",170,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",171,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",172,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",173,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",174,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",175,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",176,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",177,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",178,0) + N ZI S ZI="" +"RTN","C0QMAIN",179,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",180,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",181,0) + D DELIST("C0QM") +"RTN","C0QMAIN",182,0) + N ZII S ZII=0 +"RTN","C0QMAIN",183,0) + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE +"RTN","C0QMAIN",184,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",185,0) + K C0QM +"RTN","C0QMAIN",186,0) + D CLEAN^DILF +"RTN","C0QMAIN",187,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",188,0) + D DELIST("C0QM") +"RTN","C0QMAIN",189,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",190,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",191,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",192,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",193,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",194,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",195,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",196,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",197,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",198,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QMAIN",199,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",200,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",201,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",202,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QMAIN",203,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",204,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",205,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",206,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",207,0) + . N C0QUFN ; FILE NUMBER TO USE +"RTN","C0QMAIN",208,0) + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",209,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",210,0) + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",211,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",212,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",213,0) + . K C0QNUMP +"RTN","C0QMAIN",214,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",215,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",216,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",217,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",218,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",219,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",220,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",221,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",222,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",223,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",224,0) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",225,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",226,0) + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",227,0) + . ;D DELIST("G") +"RTN","C0QMAIN",228,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",229,0) + . ;S ZJ="" +"RTN","C0QMAIN",230,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",231,0) + . K C0QDEMP +"RTN","C0QMAIN",232,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",233,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",234,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",235,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",236,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",237,0) + . ;E D ; +"RTN","C0QMAIN",238,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",239,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",240,0) + Q +"RTN","C0QMAIN",241,0) + ; +"RTN","C0QMAIN",242,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",243,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",244,0) + ; +"RTN","C0QMAIN",245,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",246,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",247,0) + D CLEAN^DILF +"RTN","C0QMAIN",248,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",249,0) + D CLEAN^DILF +"RTN","C0QMAIN",250,0) + K ZERR +"RTN","C0QMAIN",251,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",252,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",253,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",254,0) + ;. W "ERROR",! +"RTN","C0QMAIN",255,0) + ;. ZWR ZERR +"RTN","C0QMAIN",256,0) + ;. B +"RTN","C0QMAIN",257,0) + K C0QFDA +"RTN","C0QMAIN",258,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",259,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",260,0) + Q +"RTN","C0QMAIN",261,0) + ; +"RTN","C0QMAIN",262,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",263,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",264,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",265,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",266,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",267,0) + N C0QI,C0QJ +"RTN","C0QMAIN",268,0) + N C0QFDA +"RTN","C0QMAIN",269,0) + S C0QI="" +"RTN","C0QMAIN",270,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",271,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",272,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",273,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",274,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",275,0) + K C0QFDA +"RTN","C0QMAIN",276,0) + S C0QI="" +"RTN","C0QMAIN",277,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",278,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",279,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",280,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",281,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",282,0) + Q +"RTN","C0QMAIN",283,0) + ; +"RTN","C0QMAIN",284,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",285,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",286,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",287,0) + S ZI="" +"RTN","C0QMAIN",288,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",289,0) + K @RTN +"RTN","C0QMAIN",290,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",291,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",292,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",293,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",294,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",295,0) + Q +"RTN","C0QMAIN",296,0) + ; +"RTN","C0QMAIN",297,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",298,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",299,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",300,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",301,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",302,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",303,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",304,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",305,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",306,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",307,0) + N C0QI,C0QJ +"RTN","C0QMAIN",308,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",309,0) + K C0QFDA +"RTN","C0QMAIN",310,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",311,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",312,0) + ;D +"RTN","C0QMAIN",313,0) + Q +"RTN","C0QMAIN",314,0) + ; +"RTN","C0QMAIN",315,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",316,0) + K ZERR +"RTN","C0QMAIN",317,0) + D CLEAN^DILF +"RTN","C0QMAIN",318,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",319,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",320,0) + ;. W "ERROR",! +"RTN","C0QMAIN",321,0) + ;. ZWR ZERR +"RTN","C0QMAIN",322,0) + ;. B +"RTN","C0QMAIN",323,0) + K C0QFDA +"RTN","C0QMAIN",324,0) + Q +"RTN","C0QMAIN",325,0) + ; +"RTN","C0QMAIN",326,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",327,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",328,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",329,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",330,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",331,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",332,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",333,0) + S ZTIO="" +"RTN","C0QMAIN",334,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",335,0) + D ^%ZTLOAD +"RTN","C0QMAIN",336,0) + Q +"RTN","C0QMAIN",337,0) + ; +"RTN","C0QMAIN",338,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",339,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",340,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",341,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",342,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",343,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",344,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",345,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",346,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",347,0) + N ZI S ZI="" +"RTN","C0QMAIN",348,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",349,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",350,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",351,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",352,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",353,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",354,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",355,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",356,0) + Q +"RTN","C0QMU12") +0^17^B256149135 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 7/31/12 12:34pm +"RTN","C0QMU12",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",29,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",30,0) + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX +"RTN","C0QMU12",31,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",32,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",34,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX +"RTN","C0QMU12",36,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",37,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",38,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",40,0) + . D CLEAN^DILF +"RTN","C0QMU12",41,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",42,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",43,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",44,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",45,0) + ; +"RTN","C0QMU12",46,0) + Q +"RTN","C0QMU12",47,0) + ; +"RTN","C0QMU12",48,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",49,0) + ; patient lists +"RTN","C0QMU12",50,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",51,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",52,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",53,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",54,0) + S ZYR="MU12-" +"RTN","C0QMU12",55,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",56,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",57,0) + N C0QPARM +"RTN","C0QMU12",58,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",59,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",60,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",61,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",62,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",63,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",64,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",65,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",66,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",67,0) + . I C0QPL D ; +"RTN","C0QMU12",68,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",69,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",70,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",71,0) + . K C0QLIST +"RTN","C0QMU12",72,0) + Q +"RTN","C0QMU12",73,0) + ; +"RTN","C0QMU12",74,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",75,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",76,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",77,0) + ; will be zeroed out +"RTN","C0QMU12",78,0) + K C0QLIST +"RTN","C0QMU12",79,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",80,0) + S C0QLIST(ZYR_"Patient")="" +"RTN","C0QMU12",81,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",82,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",83,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",87,0) + Q +"RTN","C0QMU12",88,0) + ; +"RTN","C0QMU12",89,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",90,0) + N WARD S WARD="" +"RTN","C0QMU12",91,0) + F D Q:WARD="" +"RTN","C0QMU12",92,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",93,0) + . Q:WARD="" +"RTN","C0QMU12",94,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",95,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",96,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",97,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",98,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",99,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",100,0) + . . . D PROBLEM +"RTN","C0QMU12",101,0) + . . . D ALLERGY +"RTN","C0QMU12",102,0) + . . . D MEDS4 +"RTN","C0QMU12",103,0) + . . . D RECON2 +"RTN","C0QMU12",104,0) + . . . D ADVDIR +"RTN","C0QMU12",105,0) + . . . D SMOKING +"RTN","C0QMU12",106,0) + . . . D VITALS +"RTN","C0QMU12",107,0) + . . . D VTE1 +"RTN","C0QMU12",108,0) + . . . D COD +"RTN","C0QMU12",109,0) + . . . D EDTIME +"RTN","C0QMU12",110,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",111,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",112,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",113,0) + Q +"RTN","C0QMU12",114,0) + ; +"RTN","C0QMU12",115,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",116,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",117,0) + S PBCNT="" +"RTN","C0QMU12",118,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",119,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",120,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",121,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",122,0) + K PROBL +"RTN","C0QMU12",123,0) + Q +"RTN","C0QMU12",124,0) + ; +"RTN","C0QMU12",125,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",126,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",127,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",128,0) + S ALCNT="" +"RTN","C0QMU12",129,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",130,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",131,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",132,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",133,0) + K ALRGYL +"RTN","C0QMU12",134,0) + Q +"RTN","C0QMU12",135,0) + ; +"RTN","C0QMU12",136,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",137,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",138,0) + N BEG,END +"RTN","C0QMU12",139,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",140,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",141,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",142,0) + N C0QMEDS +"RTN","C0QMU12",143,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",144,0) + N FOUND +"RTN","C0QMU12",145,0) + N ZI +"RTN","C0QMU12",146,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",147,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",148,0) + E D ; HAS MEDS +"RTN","C0QMU12",149,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",150,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",151,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",152,0) + . N ZM +"RTN","C0QMU12",153,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",154,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",155,0) + . . S FOUND=1 +"RTN","C0QMU12",156,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",157,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",158,0) + Q +"RTN","C0QMU12",159,0) + ; +"RTN","C0QMU12",160,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",161,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",162,0) + ; +"RTN","C0QMU12",163,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",164,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",165,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",166,0) + N GT,G +"RTN","C0QMU12",167,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",168,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",169,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",170,0) + . S HASRECON=1 +"RTN","C0QMU12",171,0) + ;N ZT +"RTN","C0QMU12",172,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",173,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",174,0) + ;. S HASRECON=1 +"RTN","C0QMU12",175,0) + ;E D ; +"RTN","C0QMU12",176,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",177,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",178,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",179,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",180,0) + I HASRECON D ; +"RTN","C0QMU12",181,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",182,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",183,0) + Q +"RTN","C0QMU12",184,0) + ; +"RTN","C0QMU12",185,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",186,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",187,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",188,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",189,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",190,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",191,0) + Q +"RTN","C0QMU12",192,0) + ; +"RTN","C0QMU12",193,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",194,0) + N ZI S ZI="" +"RTN","C0QMU12",195,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",196,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",197,0) + . ;B +"RTN","C0QMU12",198,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",199,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",200,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",201,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",202,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",203,0) + . E D ; +"RTN","C0QMU12",204,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",205,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",206,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",208,0) + Q +"RTN","C0QMU12",209,0) + ; +"RTN","C0QMU12",210,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",211,0) + ; +"RTN","C0QMU12",212,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",213,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",214,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",215,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",216,0) + . E D ; +"RTN","C0QMU12",217,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",218,0) + Q +"RTN","C0QMU12",219,0) + ; +"RTN","C0QMU12",220,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",221,0) +VITALS ; +"RTN","C0QMU12",222,0) + ; +"RTN","C0QMU12",223,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",224,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",225,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",226,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",227,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",228,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",229,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",230,0) + Q +"RTN","C0QMU12",231,0) + ; +"RTN","C0QMU12",232,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",233,0) + ; +"RTN","C0QMU12",234,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",235,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",236,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",237,0) + Q +"RTN","C0QMU12",238,0) + ; +"RTN","C0QMU12",239,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",240,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",241,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",242,0) + Q +"RTN","C0QMU12",243,0) + ; +"RTN","C0QMU12",244,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",245,0) + N FOUND +"RTN","C0QMU12",246,0) + S FOUND=0 +"RTN","C0QMU12",247,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",248,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",249,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",250,0) + I FOUND D ; +"RTN","C0QMU12",251,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",252,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",253,0) + Q +"RTN","C0QMU12",254,0) + ; +"RTN","C0QMU12",255,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",256,0) + N ZICU +"RTN","C0QMU12",257,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",258,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",259,0) + S ZI="" +"RTN","C0QMU12",260,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",261,0) + . S ZJ="" +"RTN","C0QMU12",262,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",263,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",264,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",265,0) + Q +"RTN","C0QMU12",266,0) + ; +"RTN","C0QMU12",267,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",268,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",269,0) + K C0QLIST +"RTN","C0QMU12",270,0) + N ZPAT +"RTN","C0QMU12",271,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",272,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",273,0) + ; +"RTN","C0QMU12",274,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",275,0) + N GN,GO,GF +"RTN","C0QMU12",276,0) + S GN=ZPAT +"RTN","C0QMU12",277,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",278,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",279,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",280,0) + ; +"RTN","C0QMU12",281,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",282,0) + ; +"RTN","C0QMU12",283,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",284,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",285,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",286,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",287,0) + ; +"RTN","C0QMU12",288,0) + S GN=ZPAT +"RTN","C0QMU12",289,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",290,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",291,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",292,0) + ; +"RTN","C0QMU12",293,0) + S GN=ZPAT +"RTN","C0QMU12",294,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",295,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",296,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",297,0) + ; +"RTN","C0QMU12",298,0) + S GN=ZPAT +"RTN","C0QMU12",299,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",300,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",301,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",302,0) + ; +"RTN","C0QMU12",303,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",304,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",305,0) + Q +"RTN","C0QMU12",306,0) + ; +"RTN","C0QMU12",307,0) +ED1 ; +"RTN","C0QMU12",308,0) + S ZYR="MU12-" +"RTN","C0QMU12",309,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",310,0) + Q +"RTN","C0QMU12",311,0) + ; +"RTN","C0QMU12",312,0) +ED2 ; +"RTN","C0QMU12",313,0) + S ZYR="MU12-" +"RTN","C0QMU12",314,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",315,0) + Q +"RTN","C0QMU12",316,0) + ; +"RTN","C0QMU12",317,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",318,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",319,0) + N ZIEN,ZN +"RTN","C0QMU12",320,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",321,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",322,0) + Q ZN +"RTN","C0QMU12",323,0) + ; +"RTN","C0QMU12",324,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",325,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",326,0) + N ZIEN,ZN +"RTN","C0QMU12",327,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",328,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",329,0) + Q ZN +"RTN","C0QMU12",330,0) + ; +"RTN","C0QMU12",331,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",332,0) + N ZL,ZR +"RTN","C0QMU12",333,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",334,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",335,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",336,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",337,0) + Q ZR +"RTN","C0QMU12",338,0) + ; +"RTN","C0QMU12",339,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",340,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",341,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",342,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",343,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",344,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",345,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",346,0) + N ZI +"RTN","C0QMU12",347,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",348,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",349,0) + . W !,$$FMTE^XLFDT(9999999-ZI) ;B ; +"RTN","C0QMU12",350,0) + . I ZI="" Q ; +"RTN","C0QMU12",351,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",352,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",353,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",354,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",355,0) + Q +"RTN","C0QMU12",356,0) + ; +"RTN","C0QMU12",357,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",358,0) + ; +"RTN","C0QMU12",359,0) + S DTE=3111000 +"RTN","C0QMU12",360,0) + S MUYR=ZYR +"RTN","C0QMU12",361,0) + N ZC,ZN +"RTN","C0QMU12",362,0) + S ZN=0 +"RTN","C0QMU12",363,0) + N ZI S ZI=0 +"RTN","C0QMU12",364,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",365,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",366,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",367,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",368,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",369,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",370,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",371,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",372,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",373,0) + Q +"RTN","C0QMU12",374,0) + ; +"RTN","C0QMU12",375,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",376,0) + S ZYR="MU12-" +"RTN","C0QMU12",377,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",378,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",379,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",380,0) + N ZI S ZI="" +"RTN","C0QMU12",381,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",382,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",383,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",384,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",385,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",386,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",387,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",388,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",389,0) + S DFN="" +"RTN","C0QMU12",390,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",391,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",392,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",393,0) + . D PROBLEM +"RTN","C0QMU12",394,0) + . D ALLERGY +"RTN","C0QMU12",395,0) + . ;D MEDS +"RTN","C0QMU12",396,0) + . D ERX +"RTN","C0QMU12",397,0) + . D SMOKING +"RTN","C0QMU12",398,0) + . D VITALS +"RTN","C0QMU12",399,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",400,0) + N C0QCIEN +"RTN","C0QMU12",401,0) + S ZI="" +"RTN","C0QMU12",402,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",403,0) + . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set +"RTN","C0QMU12",404,0) + . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",405,0) + Q +"RTN","C0QMU12",406,0) + ; +"RTN","C0QMU12",407,0) +DIS ; +"RTN","C0QMU12",408,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",409,0) + F D Q:DTE="" +"RTN","C0QMU12",410,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",411,0) + . Q:'DTE +"RTN","C0QMU12",412,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",413,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",414,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",415,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",416,0) + . D +"RTN","C0QMU12",417,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",418,0) + . . Q:'PTFM +"RTN","C0QMU12",419,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",420,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",421,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",422,0) + . . D PROBLEM +"RTN","C0QMU12",423,0) + . . D ALLERGY +"RTN","C0QMU12",424,0) + . . D MEDS4 +"RTN","C0QMU12",425,0) + . . D RECON2 +"RTN","C0QMU12",426,0) + . . D ADVDIR +"RTN","C0QMU12",427,0) + . . D SMOKING +"RTN","C0QMU12",428,0) + . . D VITALS +"RTN","C0QMU12",429,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",430,0) + . . D VTE1 +"RTN","C0QMU12",431,0) + . . D COD +"RTN","C0QMU12",432,0) + . . D EDTIME +"RTN","C0QMU12",433,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",434,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",435,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",436,0) + Q +"RTN","C0QMU12",437,0) + ; +"RTN","C0QMU12",438,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",439,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",440,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",441,0) + ; +"RTN","C0QMU12",442,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",443,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",444,0) + N ZI,ZN +"RTN","C0QMU12",445,0) + S ZI="" +"RTN","C0QMU12",446,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",447,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",448,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",449,0) + . . K C0QFDA +"RTN","C0QMU12",450,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",451,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",452,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",453,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",454,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",455,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",456,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",457,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",458,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",459,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",460,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",461,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",462,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",463,0) + . N ZJ,ZK +"RTN","C0QMU12",464,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",465,0) + . K C0QFDA +"RTN","C0QMU12",466,0) + . S ZJ="" +"RTN","C0QMU12",467,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",468,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",469,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",470,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",471,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",472,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",473,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",474,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",475,0) + . K C0QFDA +"RTN","C0QMU12",476,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",477,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",478,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",479,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",480,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",481,0) + ;. Q +"RTN","C0QMU12",482,0) + ;. K C0QFDA +"RTN","C0QMU12",483,0) + ;. N ZJ,ZC +"RTN","C0QMU12",484,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",485,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",486,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",487,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",488,0) + ;. D UPDIE +"RTN","C0QMU12",489,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",490,0) + Q +"RTN","C0QMU12",491,0) + ; +"RTN","C0QMU12",492,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",493,0) + ; +"RTN","C0QMU12",494,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",495,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",496,0) + D CLEAN^DILF +"RTN","C0QMU12",497,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",498,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",499,0) + D CLEAN^DILF +"RTN","C0QMU12",500,0) + K ZERR +"RTN","C0QMU12",501,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",502,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",503,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",504,0) + ;. W "ERROR",! +"RTN","C0QMU12",505,0) + ;. ZWR ZERR +"RTN","C0QMU12",506,0) + ;. B +"RTN","C0QMU12",507,0) + K C0QFDA +"RTN","C0QMU12",508,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",509,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",510,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",511,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",512,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",513,0) + ; +"RTN","C0QMU12",514,0) + Q ZR +"RTN","C0QMU12",515,0) + ; +"RTN","C0QMU12",516,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",517,0) + K ZERR +"RTN","C0QMU12",518,0) + D CLEAN^DILF +"RTN","C0QMU12",519,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",520,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",521,0) + K C0QFDA +"RTN","C0QMU12",522,0) + Q +"RTN","C0QMU12",523,0) + ; +"RTN","C0QMU12",524,0) +END ;end of C0QPRML; +"RTN","C0QMU121") +0^19^B184663073 +"RTN","C0QMU121",1,0) +C0QMU121 ;VEN/SMH - Patient Reminder List, cont. ; 7/31/12 12:33pm +"RTN","C0QMU121",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QMU121",3,0) + ; +"RTN","C0QMU121",4,0) + ; Licensed under package license. +"RTN","C0QMU121",5,0) + ; +"RTN","C0QMU121",6,0) +SMOKING ; Smoking data collection +"RTN","C0QMU121",7,0) + ; WANT TO CHANGE SMOKING STATUS CHECKING FOR 2012 TO A SIMPLE SET OF +"RTN","C0QMU121",8,0) + ; HEALTH FACTORS. GPL +"RTN","C0QMU121",9,0) + I $$INLIST^C0QMU12(ZYR_"HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STAT CHECK +"RTN","C0QMU121",10,0) + . S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" +"RTN","C0QMU121",11,0) + . S C0QLIST(ZYR_"Over12",DFN)="" +"RTN","C0QMU121",12,0) + I $$INLIST^C0QMU12(ZYR_"NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK +"RTN","C0QMU121",13,0) + . S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" +"RTN","C0QMU121",14,0) + . S C0QLIST(ZYR_"Over12",DFN)="" +"RTN","C0QMU121",15,0) + N C0QSMOKE,C0QSYN +"RTN","C0QMU121",16,0) + S C0QSYN=0 +"RTN","C0QMU121",17,0) + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 +"RTN","C0QMU121",18,0) + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE +"RTN","C0QMU121",19,0) + ; PATIENT IN THE CATEGORY OF TOBACCO +"RTN","C0QMU121",20,0) + I $D(C0QSMOKE) S C0QSYN=1 +"RTN","C0QMU121",21,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") +"RTN","C0QMU121",22,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") +"RTN","C0QMU121",23,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") +"RTN","C0QMU121",24,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") +"RTN","C0QMU121",25,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") +"RTN","C0QMU121",26,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") +"RTN","C0QMU121",27,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") +"RTN","C0QMU121",28,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") +"RTN","C0QMU121",29,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") +"RTN","C0QMU121",30,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") +"RTN","C0QMU121",31,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") +"RTN","C0QMU121",32,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") +"RTN","C0QMU121",33,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") +"RTN","C0QMU121",34,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") +"RTN","C0QMU121",35,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") +"RTN","C0QMU121",36,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") +"RTN","C0QMU121",37,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") +"RTN","C0QMU121",38,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") +"RTN","C0QMU121",39,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") +"RTN","C0QMU121",40,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") +"RTN","C0QMU121",41,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") +"RTN","C0QMU121",42,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") +"RTN","C0QMU121",43,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") +"RTN","C0QMU121",44,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") +"RTN","C0QMU121",45,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") +"RTN","C0QMU121",46,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") +"RTN","C0QMU121",47,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") +"RTN","C0QMU121",48,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") +"RTN","C0QMU121",49,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") +"RTN","C0QMU121",50,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",51,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",52,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",53,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",54,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",55,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",56,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",57,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",58,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",59,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",60,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",61,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",62,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",63,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",64,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",65,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",66,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",67,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",68,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",69,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") +"RTN","C0QMU121",70,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",71,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",72,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",73,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",74,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",75,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",76,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",77,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",78,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",79,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",80,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",81,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",82,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",83,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",84,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",85,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",86,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",87,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",88,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",89,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") +"RTN","C0QMU121",90,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",91,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",92,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",93,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",94,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",95,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",96,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",97,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",98,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",99,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",100,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",101,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",102,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",103,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",104,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",105,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",106,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",107,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",108,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",109,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",110,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",111,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",112,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",113,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",114,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",115,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",116,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",117,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",118,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",119,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",120,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",121,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",122,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",123,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",124,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",125,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",126,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",127,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",128,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") +"RTN","C0QMU121",129,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",130,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",131,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",132,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",133,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",134,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",135,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",136,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",137,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",138,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",139,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",140,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",141,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",142,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",143,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",144,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",145,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",146,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",147,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",148,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") +"RTN","C0QMU121",149,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") +"RTN","C0QMU121",150,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") +"RTN","C0QMU121",151,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - No") +"RTN","C0QMU121",152,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - Yes") +"RTN","C0QMU121",153,0) + S C0QLIST(ZYR_"Over12",DFN)="" +"RTN","C0QMU121",154,0) + ;N GT +"RTN","C0QMU121",155,0) + ;S GT(1,"HasSmokingStatus","SMOK")="" +"RTN","C0QMU121",156,0) + ;S GT(2,"HasSmokingStatus","Smok")="" +"RTN","C0QMU121",157,0) + ;S GT(3,"HasSmokingStatus","smok")="" +"RTN","C0QMU121",158,0) + ;I 'C0QSYN D ; +"RTN","C0QMU121",159,0) + ;. N G +"RTN","C0QMU121",160,0) + ;. S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) +"RTN","C0QMU121",161,0) + ;. I $D(G) S C0QSYN=1 +"RTN","C0QMU121",162,0) + I C0QSYN S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" +"RTN","C0QMU121",163,0) + E S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" +"RTN","C0QMU121",164,0) + Q +"RTN","C0QMU121",165,0) + ; +"RTN","C0QMU121",166,0) +DOTIME(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE +"RTN","C0QMU121",167,0) + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE +"RTN","C0QMU121",168,0) + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED +"RTN","C0QMU121",169,0) + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME +"RTN","C0QMU121",170,0) + N ZP +"RTN","C0QMU121",171,0) + S ZP=$$PATLN^C0QMU12(ZYR_"HasEDtime") ; patient list name for patients to process +"RTN","C0QMU121",172,0) + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS +"RTN","C0QMU121",173,0) + S ZVFN=9000010 ; VISIT FILE NUMBER +"RTN","C0QMU121",174,0) + K ZARY1,ZARY2 +"RTN","C0QMU121",175,0) + N ZI S ZI="" +"RTN","C0QMU121",176,0) + S COUNT=0 +"RTN","C0QMU121",177,0) + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT +"RTN","C0QMU121",178,0) + . S COUNT=COUNT+1 +"RTN","C0QMU121",179,0) + . N ZA,ZD +"RTN","C0QMU121",180,0) + . S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR +"RTN","C0QMU121",181,0) + . S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR +"RTN","C0QMU121",182,0) + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE +"RTN","C0QMU121",183,0) + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT +"RTN","C0QMU121",184,0) + . ; THE COMMENT IS THE TIME XXYY +"RTN","C0QMU121",185,0) + . N OK,TMP +"RTN","C0QMU121",186,0) + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",187,0) + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",188,0) + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",189,0) + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",190,0) + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",191,0) + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD +"RTN","C0QMU121",192,0) + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",193,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME +"RTN","C0QMU121",194,0) + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME +"RTN","C0QMU121",195,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME +"RTN","C0QMU121",196,0) + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME +"RTN","C0QMU121",197,0) + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES +"RTN","C0QMU121",198,0) + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) +"RTN","C0QMU121",199,0) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) +"RTN","C0QMU121",200,0) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) +"RTN","C0QMU121",201,0) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) +"RTN","C0QMU121",202,0) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) +"RTN","C0QMU121",203,0) + . S GTOT=G1-G2 +"RTN","C0QMU121",204,0) + . W !,"TIME: ",GTOT," ESTIMATED" +"RTN","C0QMU121",205,0) + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES +"RTN","C0QMU121",206,0) + . W !,"COMPUTED MINUTES: ",ZT +"RTN","C0QMU121",207,0) + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG +"RTN","C0QMU121",208,0) + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES +"RTN","C0QMU121",209,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",210,0) + . I ZT>400000 D Q ; THESE ARE ERRORS +"RTN","C0QMU121",211,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",212,0) + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS +"RTN","C0QMU121",213,0) + N ZY,ZZ S ZY="" S ZZ="" +"RTN","C0QMU121",214,0) + N ZCOUNT S ZCOUNT=0 +"RTN","C0QMU121",215,0) + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME +"RTN","C0QMU121",216,0) + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME +"RTN","C0QMU121",217,0) + . . S ZCOUNT=ZCOUNT+1 +"RTN","C0QMU121",218,0) + . . S ZARY2(ZCOUNT,ZY,ZZ)="" +"RTN","C0QMU121",219,0) + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY +"RTN","C0QMU121",220,0) + N ZMID +"RTN","C0QMU121",221,0) + S ZMID=$P(ZCOUNT/2,".") +"RTN","C0QMU121",222,0) + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT +"RTN","C0QMU121",223,0) + W !,"ED ARRIVAL TIME UNTIL ",ZHF +"RTN","C0QMU121",224,0) + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) +"RTN","C0QMU121",225,0) + Q +"RTN","C0QMU121",226,0) + ; +"RTN","C0QMU121",227,0) +DOTIME2(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE +"RTN","C0QMU121",228,0) + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE +"RTN","C0QMU121",229,0) + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED +"RTN","C0QMU121",230,0) + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME +"RTN","C0QMU121",231,0) + N ZP +"RTN","C0QMU121",232,0) + S ZP=$$PATLN^C0QMU12(ZYR_"HasEDtime") ; patient list name for patients to process +"RTN","C0QMU121",233,0) + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS +"RTN","C0QMU121",234,0) + S ZVFN=9000010 ; VISIT FILE NUMBER +"RTN","C0QMU121",235,0) + K ZARY1,ZARY2 +"RTN","C0QMU121",236,0) + N ZI S ZI="" +"RTN","C0QMU121",237,0) + S COUNT=0 +"RTN","C0QMU121",238,0) + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT +"RTN","C0QMU121",239,0) + . S COUNT=COUNT+1 +"RTN","C0QMU121",240,0) + . N ZA,ZD +"RTN","C0QMU121",241,0) + . ;S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR +"RTN","C0QMU121",242,0) + . ;S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR +"RTN","C0QMU121",243,0) + . S ZA=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR +"RTN","C0QMU121",244,0) + . S ZD=$$VHFIEN^C0QHF(ZI,"ED DEPARTURE TIME") ; IEN OF ARRIVAL HEALTH FACTOR +"RTN","C0QMU121",245,0) + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE +"RTN","C0QMU121",246,0) + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT +"RTN","C0QMU121",247,0) + . ; THE COMMENT IS THE TIME XXYY +"RTN","C0QMU121",248,0) + . N OK,TMP +"RTN","C0QMU121",249,0) + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",250,0) + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",251,0) + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",252,0) + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",253,0) + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",254,0) + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD +"RTN","C0QMU121",255,0) + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",256,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME +"RTN","C0QMU121",257,0) + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME +"RTN","C0QMU121",258,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME +"RTN","C0QMU121",259,0) + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME +"RTN","C0QMU121",260,0) + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES +"RTN","C0QMU121",261,0) + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) +"RTN","C0QMU121",262,0) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) +"RTN","C0QMU121",263,0) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) +"RTN","C0QMU121",264,0) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) +"RTN","C0QMU121",265,0) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) +"RTN","C0QMU121",266,0) + . S GTOT=G1-G2 +"RTN","C0QMU121",267,0) + . W !,"TIME: ",GTOT," ESTIMATED" +"RTN","C0QMU121",268,0) + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES +"RTN","C0QMU121",269,0) + . W !,"COMPUTED MINUTES: ",ZT +"RTN","C0QMU121",270,0) + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG +"RTN","C0QMU121",271,0) + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES +"RTN","C0QMU121",272,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",273,0) + . I ZT>400000 D Q ; THESE ARE ERRORS +"RTN","C0QMU121",274,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",275,0) + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS +"RTN","C0QMU121",276,0) + N ZY,ZZ S ZY="" S ZZ="" +"RTN","C0QMU121",277,0) + N ZCOUNT S ZCOUNT=0 +"RTN","C0QMU121",278,0) + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME +"RTN","C0QMU121",279,0) + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME +"RTN","C0QMU121",280,0) + . . S ZCOUNT=ZCOUNT+1 +"RTN","C0QMU121",281,0) + . . S ZARY2(ZCOUNT,ZY,ZZ)="" +"RTN","C0QMU121",282,0) + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY +"RTN","C0QMU121",283,0) + N ZMID +"RTN","C0QMU121",284,0) + S ZMID=$P(ZCOUNT/2,".") +"RTN","C0QMU121",285,0) + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT +"RTN","C0QMU121",286,0) + W !,"ED ARRIVAL TIME UNTIL ",ZHF +"RTN","C0QMU121",287,0) + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) +"RTN","C0QMU121",288,0) + Q +"RTN","C0QMU121",289,0) + ; +"RTN","C0QMU121",290,0) + ; LOOK AT GETTING RID OF PRINT AND SS AS THEY ARE NOT BEING USED. GPL +"RTN","C0QMU121",291,0) + ; VEN/SMH - Call is used in C0QMU12, perhaps not called. +"RTN","C0QMU121",292,0) + ; +"RTN","C0QMU121",293,0) +PRINT ; PRINT TO SCREEN +"RTN","C0QMU121",294,0) + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " +"RTN","C0QMU121",295,0) + I $D(EXDTE) D ; +"RTN","C0QMU121",296,0) + . W !,"Discharge Date: ",EXDTE +"RTN","C0QMU121",297,0) + . W !,DFN," ",PTNAME +"RTN","C0QMU121",298,0) + W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QMU121",299,0) + W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QMU121",300,0) + W !,"Race: ",RACEDSC +"RTN","C0QMU121",301,0) + W !,"Ethnicity: ",$G(ETHNDSC) +"RTN","C0QMU121",302,0) + W !,"Problems: " +"RTN","C0QMU121",303,0) + W !,PBDESC +"RTN","C0QMU121",304,0) + W !,"Allergies: " +"RTN","C0QMU121",305,0) + W !,ALDESC +"RTN","C0QMU121",306,0) + W !,"Medications: " +"RTN","C0QMU121",307,0) + W ! +"RTN","C0QMU121",308,0) + Q +"RTN","C0QMU121",309,0) + ; +"RTN","C0QMU121",310,0) +SS ; CREATE SPREADSHEET ARRAY +"RTN","C0QMU121",311,0) + S G1("Patient")=DFN +"RTN","C0QMU121",312,0) + I $D(WARD) D ; +"RTN","C0QMU121",313,0) + . S G1("WardName")=WARDNAME +"RTN","C0QMU121",314,0) + . S G1("RoomAndBed")=RB +"RTN","C0QMU121",315,0) + I $D(EXDTE) D ; +"RTN","C0QMU121",316,0) + . S G1("DischargeDate")=EXDTE +"RTN","C0QMU121",317,0) + S G1("PatientName")=PTNAME +"RTN","C0QMU121",318,0) + S G1("Gender")=PTSEX +"RTN","C0QMU121",319,0) + S G1("DateOfBirth")=PTDOB +"RTN","C0QMU121",320,0) + S G1("HealthRecordNumber")=PTHRN +"RTN","C0QMU121",321,0) + S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QMU121",322,0) + S G1("Race")=RACEDSC +"RTN","C0QMU121",323,0) + S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QMU121",324,0) + S G1("Problem")=PBDESC +"RTN","C0QMU121",325,0) + I PBDESC["No problems found" S G1("HasProblem")=0 +"RTN","C0QMU121",326,0) + E S G1("HasProblem")=1 +"RTN","C0QMU121",327,0) + S G1("Allergies")=ALDESC +"RTN","C0QMU121",328,0) + I ALDESC["No Allergy" S G1("HasAllergy")=0 +"RTN","C0QMU121",329,0) + E S G1("HasAllergy")=1 +"RTN","C0QMU121",330,0) + I $D(MDITEM) D ; +"RTN","C0QMU121",331,0) + . S G1("HasMed")=1 +"RTN","C0QMU121",332,0) + E S G1("HasMed")=0 +"RTN","C0QMU121",333,0) + S G1("MedDescription")=$G(MDDESC) +"RTN","C0QMU121",334,0) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC +"RTN","C0QMU121",335,0) + D RNF1TO2B^C0CRNF("GRSLT","G1") +"RTN","C0QMU121",336,0) + K G1 +"RTN","C0QMU121",337,0) + Q ; DON'T WANT TO DO THE NHIN STUFF NOW +"RTN","C0QMU121",338,0) + ; +"RTN","C0QMU121",339,0) +PATLIST ; CREATE PATIENT LISTS +"RTN","C0QMU121",340,0) + ; WANT TO GET RID OF PATLIST AND MOVE FUNCTION TO OTHER ROUTINES. GPL +"RTN","C0QMU121",341,0) + ; VEN/SMH - Call is moved here. Seems to be used in C0QMU12. +"RTN","C0QMU121",342,0) + ; Think about removing at another time. +"RTN","C0QMU121",343,0) + S C0QLIST(ZYR_"Patient",DFN)="" ; THE PATIENT LIST +"RTN","C0QMU121",344,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QMU121",345,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QMU121",346,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QMU121",347,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QMU121",348,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QMU121",349,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QMU121",350,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QMU121",351,0) + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" +"RTN","C0QMU121",352,0) + ;E S C0QLIST("FailedDemographics",DFN)="" +"RTN","C0QMU121",353,0) + ;S G1("Gender")=PTSEX +"RTN","C0QMU121",354,0) + ;S G1("DateOfBirth")=PTDOB +"RTN","C0QMU121",355,0) + ;S G1("HealthRecordNumber")=PTHRN +"RTN","C0QMU121",356,0) + ;S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QMU121",357,0) + ;S G1("Race")=RACEDSC +"RTN","C0QMU121",358,0) + ;S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QMU121",359,0) + S G1("Problem")=PBDESC +"RTN","C0QMU121",360,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU121",361,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU121",362,0) + ;S G1("Allergies")=ALDESC +"RTN","C0QMU121",363,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU121",364,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU121",365,0) + ;I $D(MDITEM) D ; +"RTN","C0QMU121",366,0) + ;. S C0QLIST("HasMed",DFN)="" +"RTN","C0QMU121",367,0) + ;E S G1("NoMed",DFN)="" +"RTN","C0QMU121",368,0) + ;S G1("MedDescription")=$G(MDDESC) +"RTN","C0QMU121",369,0) + Q +"RTN","C0QMU121",370,0) + ; +"RTN","C0QMU121",371,0) +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT +"RTN","C0QMU121",372,0) + Q:DFN=137!(DFN=14) +"RTN","C0QMU121",373,0) + D EN^C0CNHIN(.G,DFN,"") +"RTN","C0QMU121",374,0) + D ZWRITE^C0QUTIL("G") +"RTN","C0QMU121",375,0) + K G +"RTN","C0QMU121",376,0) + ; +"RTN","C0QMU121",377,0) + QUIT ;end of WARD +"RTN","C0QMU121",378,0) + ; +"RTN","C0QMU122") +0^20^B3365532 +"RTN","C0QMU122",1,0) +C0QMU122 ;VEN/SMH - Patient Reminder List, cont. again ; 7/31/12 12:33pm +"RTN","C0QMU122",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QMU122",3,0) + ; +"RTN","C0QMU122",4,0) + ; Licensed under package license. +"RTN","C0QMU122",5,0) + ; +"RTN","C0QMU122",6,0) +DEMO ; patient demographics +"RTN","C0QMU122",7,0) + K PTDOB +"RTN","C0QMU122",8,0) + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB +"RTN","C0QMU122",9,0) + S PTNAME=$P(^DPT(DFN,0),U) ;patient name +"RTN","C0QMU122",10,0) + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QMU122",11,0) + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QMU122",12,0) + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QMU122",13,0) + S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QMU122",14,0) + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QMU122",15,0) + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QMU122",16,0) + S RACE="" +"RTN","C0QMU122",17,0) + F D Q:RACE="" +"RTN","C0QMU122",18,0) + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN +"RTN","C0QMU122",19,0) + . Q:'RACE +"RTN","C0QMU122",20,0) + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description +"RTN","C0QMU122",21,0) + S ETHN="" +"RTN","C0QMU122",22,0) + F D Q:ETHN="" +"RTN","C0QMU122",23,0) + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN +"RTN","C0QMU122",24,0) + . Q:'ETHN +"RTN","C0QMU122",25,0) + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description +"RTN","C0QMU122",26,0) + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed +"RTN","C0QMU122",27,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QMU122",28,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QMU122",29,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QMU122",30,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QMU122",31,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QMU122",32,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QMU122",33,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QMU122",34,0) + I DEMOYN S C0QLIST(ZYR_"HasDemographics",DFN)="" +"RTN","C0QMU122",35,0) + E S C0QLIST(ZYR_"FailedDemographics",DFN)="" +"RTN","C0QMU122",36,0) + Q +"RTN","C0QMU122",37,0) + ; +"RTN","C0QNOTES") +0^15^B16985475 +"RTN","C0QNOTES",1,0) +C0QNOTES ;GPL - Utility to look up patient notes ; 7/31/12 8:17am +"RTN","C0QNOTES",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QNOTES",3,0) + ; +"RTN","C0QNOTES",4,0) + ;2011 George Lilly - Licensed under the terms of the GNU +"RTN","C0QNOTES",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QNOTES",6,0) + ; +"RTN","C0QNOTES",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QNOTES",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QNOTES",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QNOTES",10,0) + ;(at your option) any later version. +"RTN","C0QNOTES",11,0) + ; +"RTN","C0QNOTES",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QNOTES",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QNOTES",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QNOTES",15,0) + ;GNU General Public License for more details. +"RTN","C0QNOTES",16,0) + ; +"RTN","C0QNOTES",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QNOTES",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QNOTES",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QNOTES",20,0) + ; +"RTN","C0QNOTES",21,0) + Q +"RTN","C0QNOTES",22,0) +HASNTYN(ZNTYP,DFN) ; EXTRINSIC 1 YES 0 NO DOES THE PATIENT DFN HAVE +"RTN","C0QNOTES",23,0) + ; NOTE TYPE ZNTYP +"RTN","C0QNOTES",24,0) + N C0QN,C0QO +"RTN","C0QNOTES",25,0) + S C0QO=$NA(^TIU(8925.1,"B",ZNTYP)) ; ALL DOCUMENT DEFS FOR THIS NAME +"RTN","C0QNOTES",26,0) + S C0QN=$NA(^TIU(8925,"AA",DFN)) ; NOTES THE PATIENT HAS +"RTN","C0QNOTES",27,0) + N C0QR +"RTN","C0QNOTES",28,0) + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; DOES PATIENT HAVE THE NOTE? +"RTN","C0QNOTES",29,0) + N ZR +"RTN","C0QNOTES",30,0) + I $D(C0QR(1)) S ZR=1 +"RTN","C0QNOTES",31,0) + E S ZR=0 +"RTN","C0QNOTES",32,0) + Q ZR +"RTN","C0QNOTES",33,0) + ; +"RTN","C0QNOTES",34,0) +TESTNT(DFN) ; TEST THE NTTXT ROUTINE +"RTN","C0QNOTES",35,0) + W !,"MEDICATION RECON IN ER NURSE NOTE" +"RTN","C0QNOTES",36,0) + I $$NTTXT("ER NURSE NOTE","MEDICATION RECONCILIATION COMPLET",DFN) W " FOUND" +"RTN","C0QNOTES",37,0) + E W " NOT FOUND" +"RTN","C0QNOTES",38,0) + W !,"Medication Recon in MED/SURG NURSING ADMISSION ASSESSMENT" +"RTN","C0QNOTES",39,0) + I $$NTTXT("MED/SURG NURSING ADMISSION ASSESSMENT","Medication Reconcilation complete",DFN) W "FOUND" +"RTN","C0QNOTES",40,0) + E W " NOT FOUND" +"RTN","C0QNOTES",41,0) + Q +"RTN","C0QNOTES",42,0) + ; +"RTN","C0QNOTES",43,0) +NTTXT(NTTITLE,NTTXT,DFN) ; EXTRINSIC 1 YES 0 NO DOES PATIENT HAVE +"RTN","C0QNOTES",44,0) + ; TEXT NTTXT IN NOTE TITLE NTTITLE +"RTN","C0QNOTES",45,0) + N C0QNTA,C0QTYP +"RTN","C0QNOTES",46,0) + S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN +"RTN","C0QNOTES",47,0) + S C0QNTA=$NA(^TIU(8925,"AA",DFN,C0QDFMT)) ; ARRAY OF NOTES OF THIS TYPE FOR +"RTN","C0QNOTES",48,0) + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" +"RTN","C0QNOTES",49,0) + N ZI,ZN,ZD,ZL +"RTN","C0QNOTES",50,0) + S ZD="" ; DATE OF THE THE NOTE +"RTN","C0QNOTES",51,0) + N FOUND S FOUND=0 +"RTN","C0QNOTES",52,0) + F S ZD=$O(@C0QNTA@(ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE +"RTN","C0QNOTES",53,0) + . S ZN="" +"RTN","C0QNOTES",54,0) + . F S ZN=$O(@C0QNTA@(ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE +"RTN","C0QNOTES",55,0) + . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) +"RTN","C0QNOTES",56,0) + . . S ZI=0 ; WANT TO STAR ON LINE 1 +"RTN","C0QNOTES",57,0) + . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) +"RTN","C0QNOTES",58,0) + . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; +"RTN","C0QNOTES",59,0) + . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; +"RTN","C0QNOTES",60,0) + . . . . W "**********",$G(@ZL@(ZI,0)),! +"RTN","C0QNOTES",61,0) + Q FOUND ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT +"RTN","C0QNOTES",62,0) + ; YOU SEARCH FOR...gpl ... for example is this is the note title: +"RTN","C0QNOTES",63,0) + ; MED/SURG NURSING ADMISSION ASSESSMENT +"RTN","C0QNOTES",64,0) + ;and this is the text you want: Medication Reconcilation completed. +"RTN","C0QNOTES",65,0) + ; search for: Medication Reconcilation complete +"RTN","C0QNOTES",66,0) + ; that will leave the "d." in piece two of the line +"RTN","C0QNOTES",67,0) + ; +"RTN","C0QNOTES",68,0) + ; or for this note: +"RTN","C0QNOTES",69,0) + ;ER NURSE NOTE +"RTN","C0QNOTES",70,0) + ; and this text: +"RTN","C0QNOTES",71,0) + ;MEDICATION RECONCILIATION COMPLETED +"RTN","C0QNOTES",72,0) + ; search for MEDICATION RECONCILIATION COMPLET +"RTN","C0QNOTES",73,0) + ; which will leave the "ED" in piece 2 +"RTN","C0QNOTES",74,0) +TXTALL(ZRTN,ZTARY,DFN) ; EXTRINSIC WHICH SEARCHES ALL OF A PATIENT'S NOTES +"RTN","C0QNOTES",75,0) + ; FOR AN ARRAY OF TEXT MATCHES. ZRTN IS PASSED BY REFERENCE AND IS LIKE +"RTN","C0QNOTES",76,0) + ; AN RPC RETURN. ZTARY IS PASSED BY REFERENCE AND HAS THE FORMAT +"RTN","C0QNOTES",77,0) + ; ZTARY(1,"TEXT1")="" ZTARY(2,"TEXT2")="" ETC +"RTN","C0QNOTES",78,0) + N C0QTYP,C0QDFMT +"RTN","C0QNOTES",79,0) + ;S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN +"RTN","C0QNOTES",80,0) + S C0QNTA=$NA(^TIU(8925,"AA",DFN)) ; ARRAY OF NOTES FOR +"RTN","C0QNOTES",81,0) + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" +"RTN","C0QNOTES",82,0) + N ZI,ZJ,ZN,ZD,ZL,ZT,NTTXT,ZC,ZTYP +"RTN","C0QNOTES",83,0) + S ZT="" +"RTN","C0QNOTES",84,0) + F S ZT=$O(@C0QNTA@(ZT)) Q:ZT="" D ; +"RTN","C0QNOTES",85,0) + . S ZTYP=$$GET1^DIQ(8925.1,ZT_",",.01) ; NAME OF NOTE TITLE +"RTN","C0QNOTES",86,0) + . S ZD="" ; DATE OF THE THE NOTE +"RTN","C0QNOTES",87,0) + . N FOUND S FOUND=0 +"RTN","C0QNOTES",88,0) + . F S ZD=$O(@C0QNTA@(ZT,ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE +"RTN","C0QNOTES",89,0) + . . S ZN="" +"RTN","C0QNOTES",90,0) + . . F S ZN=$O(@C0QNTA@(ZT,ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE +"RTN","C0QNOTES",91,0) + . . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) +"RTN","C0QNOTES",92,0) + . . . S ZI=0 ; WANT TO STAR ON LINE 1 +"RTN","C0QNOTES",93,0) + . . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) +"RTN","C0QNOTES",94,0) + . . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; +"RTN","C0QNOTES",95,0) + . . . . S ZJ="" ; INDEX FOR SEARCH TERMS +"RTN","C0QNOTES",96,0) + . . . . F S ZJ=$O(ZTARY(ZJ)) Q:ZJ="" D ; FOR EACH SEARCH TERM +"RTN","C0QNOTES",97,0) + . . . . . S ATTR=$O(ZTARY(ZJ,"")) +"RTN","C0QNOTES",98,0) + . . . . . S NTTXT=$O(ZTARY(ZJ,ATTR,"")) +"RTN","C0QNOTES",99,0) + . . . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; +"RTN","C0QNOTES",100,0) + . . . . . . W "**********",$G(@ZL@(ZI,0)),! +"RTN","C0QNOTES",101,0) + . . . . . . S ZC=$O(ZRTN(""),-1) ; NEXT COUNT +"RTN","C0QNOTES",102,0) + . . . . . . I ZC="" S ZC=1 +"RTN","C0QNOTES",103,0) + . . . . . . E S ZC=ZC+1 +"RTN","C0QNOTES",104,0) + . . . . . . S ZRTN(ZC,ATTR,ZTYP,ZN,NTTXT)=$G(@ZL@(ZI,0)) +"RTN","C0QNOTES",105,0) + Q $G(FOUND) ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT +"RTN","C0QNOTES",106,0) + ; +"RTN","C0QNOTES",107,0) +TESTALL ; +"RTN","C0QNOTES",108,0) + S GT(1,"HasSmokingStatus","SMOK")="" +"RTN","C0QNOTES",109,0) + S GT(2,"HasSmokingStatus","Smok")="" +"RTN","C0QNOTES",110,0) + S GT(3,"HasSmokingStatus","smok")="" +"RTN","C0QNOTES",111,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QNOTES",112,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QNOTES",113,0) + W $$TXTALL(.G,.GT,2) ; CHECK ALL PATIENT 2'S NOTEST FOR SMOKING +"RTN","C0QNOTES",114,0) + D ZWRITE^C0QUTIL("G") +"RTN","C0QNOTES",115,0) + Q +"RTN","C0QNOTES",116,0) + ; +"RTN","C0QPQRI") +0^7^B41586325 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ; 5/23/12 2:42pm +"RTN","C0QPQRI",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^C0CXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"RTN","C0QSET") +0^9^B8764820 +"RTN","C0QSET",1,0) +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm ; 7/31/12 8:19am +"RTN","C0QSET",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QSET",3,0) + ; +"RTN","C0QSET",4,0) + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU +"RTN","C0QSET",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QSET",6,0) + ; +"RTN","C0QSET",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QSET",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QSET",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QSET",10,0) + ;(at your option) any later version. +"RTN","C0QSET",11,0) + ; +"RTN","C0QSET",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QSET",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QSET",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QSET",15,0) + ;GNU General Public License for more details. +"RTN","C0QSET",16,0) + ; +"RTN","C0QSET",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QSET",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QSET",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QSET",20,0) + ; +"RTN","C0QSET",21,0) + Q +"RTN","C0QSET",22,0) + ; +"RTN","C0QSET",23,0) +TEST ; TEST OF UNITY ROUTINE +"RTN","C0QSET",24,0) + ; +"RTN","C0QSET",25,0) + S A(1)="" +"RTN","C0QSET",26,0) + S A(2)="" +"RTN","C0QSET",27,0) + S A(3)="" +"RTN","C0QSET",28,0) + S B(3)="" +"RTN","C0QSET",29,0) + S B(4)="" +"RTN","C0QSET",30,0) + D UNITY("C","A","B") +"RTN","C0QSET",31,0) + D ZWRITE^C0QUTIL("C") +"RTN","C0QSET",32,0) + Q +"RTN","C0QSET",33,0) + ; +"RTN","C0QSET",34,0) +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? +"RTN","C0QSET",35,0) + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? +"RTN","C0QSET",36,0) + S PATS=$NA(^DPT) +"RTN","C0QSET",37,0) + S MEDS=$NA(^PS(55)) +"RTN","C0QSET",38,0) + D UNITY("DELTA",PATS,MEDS) +"RTN","C0QSET",39,0) + W !,"PATIENTS WITH NO MEDS",! +"RTN","C0QSET",40,0) + D ZWRITE^C0QUTIL("DELTA(0,*)") +"RTN","C0QSET",41,0) + W !,"BAD POINTERS IN THE MEDS FILE",! +"RTN","C0QSET",42,0) + D ZWRITE^C0QUTIL("DELTA(2,*)") +"RTN","C0QSET",43,0) + Q +"RTN","C0QSET",44,0) + ; +"RTN","C0QSET",45,0) +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",46,0) + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS +"RTN","C0QSET",47,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",48,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",49,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",50,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",51,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",52,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",53,0) + N ZN S ZN=0 ; COUNT +"RTN","C0QSET",54,0) + N ZI S ZI=0 +"RTN","C0QSET",55,0) + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",56,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",57,0) + . S ZN=ZN+1 +"RTN","C0QSET",58,0) + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT +"RTN","C0QSET",59,0) + S ZI=0 +"RTN","C0QSET",60,0) + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",61,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",62,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",63,0) + S ZI=0 +"RTN","C0QSET",64,0) + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM +"RTN","C0QSET",65,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",66,0) + Q +"RTN","C0QSET",67,0) + ; +"RTN","C0QSET",68,0) +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",69,0) + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST +"RTN","C0QSET",70,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",71,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",72,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",73,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",74,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",75,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",76,0) + N ZI S ZI="" +"RTN","C0QSET",77,0) + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",78,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",79,0) + S ZI="" +"RTN","C0QSET",80,0) + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",81,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",82,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",83,0) + S ZI="" +"RTN","C0QSET",84,0) + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM +"RTN","C0QSET",85,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",86,0) + Q +"RTN","C0QSET",87,0) + ; +"RTN","C0QSET",88,0) +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD +"RTN","C0QSET",89,0) + N ZD +"RTN","C0QSET",90,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",91,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",92,0) + Q +"RTN","C0QSET",93,0) + ; +"RTN","C0QSET",94,0) +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH +"RTN","C0QSET",95,0) + N ZD +"RTN","C0QSET",96,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",97,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",98,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",99,0) + Q +"RTN","C0QSET",100,0) + ; +"RTN","C0QSET",101,0) +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT +"RTN","C0QSET",102,0) + N ZD +"RTN","C0QSET",103,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",104,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",105,0) + Q +"RTN","C0QSET",106,0) + ; +"RTN","C0QSET",107,0) +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH +"RTN","C0QSET",108,0) + N ZD +"RTN","C0QSET",109,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",110,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",111,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",112,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",113,0) + Q +"RTN","C0QSET",114,0) + ; +"RTN","C0QSET",115,0) +END ;end of C0QSET; +"RTN","C0QUPDT") +0^10^B52683124 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 7/31/12 8:15am +"RTN","C0QUPDT",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +"RTN","C0QUPDT",30,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",31,0) + ; +"RTN","C0QUPDT",32,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",33,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",34,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",35,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",36,0) + ; +"RTN","C0QUPDT",37,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",38,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",39,0) + ; +"RTN","C0QUPDT",40,0) + N ZI S ZI="" +"RTN","C0QUPDT",41,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",42,0) + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? +"RTN","C0QUPDT",43,0) + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" +"RTN","C0QUPDT",44,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",45,0) + D DELIST("C0QM") +"RTN","C0QUPDT",46,0) + N ZII S ZII="" +"RTN","C0QUPDT",47,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",48,0) + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD +"RTN","C0QUPDT",49,0) + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST +"RTN","C0QUPDT",50,0) + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST +"RTN","C0QUPDT",51,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",52,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",53,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",54,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",55,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",56,0) + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh +"RTN","C0QUPDT",57,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",58,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",59,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",60,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",61,0) + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh +"RTN","C0QUPDT",62,0) + . ; +"RTN","C0QUPDT",63,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",64,0) + . ; +"RTN","C0QUPDT",65,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",66,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",67,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",68,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",69,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",70,0) + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST +"RTN","C0QUPDT",71,0) + . . N ZNEW +"RTN","C0QUPDT",72,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",73,0) + . . K C0QFLTRD +"RTN","C0QUPDT",74,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",75,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",76,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",77,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",78,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",79,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",80,0) + . N C0QCNT +"RTN","C0QUPDT",81,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",82,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",83,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",84,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",85,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",86,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",87,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",88,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",89,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",90,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",91,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",92,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",93,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",94,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",95,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",96,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",97,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",98,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",99,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",100,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",101,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",102,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",103,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",104,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",105,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",106,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",107,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",108,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",109,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",110,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",111,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",112,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",113,0) + . ; +"RTN","C0QUPDT",114,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",115,0) + . ; +"RTN","C0QUPDT",116,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",117,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",118,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",119,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",120,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",121,0) + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST +"RTN","C0QUPDT",122,0) + . . N ZNEW +"RTN","C0QUPDT",123,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",124,0) + . . K C0QFLTRD +"RTN","C0QUPDT",125,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",126,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",127,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",128,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",129,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",130,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",131,0) + . N C0QDCNT +"RTN","C0QUPDT",132,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",133,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",134,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",135,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",136,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",137,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",138,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",139,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",140,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",141,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",142,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",143,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",144,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",145,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",146,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",147,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",148,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",149,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",150,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",151,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",152,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",153,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",154,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",155,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",156,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",157,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",158,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",159,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",160,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",161,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",162,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",163,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",164,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",165,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",166,0) + . D ; +"RTN","C0QUPDT",167,0) + . . I C0QDCNT>0 D ; +"RTN","C0QUPDT",168,0) + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",169,0) + . . E S C0QPCT=0 +"RTN","C0QUPDT",170,0) + . . K C0QFDA +"RTN","C0QUPDT",171,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",172,0) + . . D UPDIE +"RTN","C0QUPDT",173,0) + Q +"RTN","C0QUPDT",174,0) + ; +"RTN","C0QUPDT",175,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",176,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",177,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",178,0) + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD +"RTN","C0QUPDT",179,0) + S ZI="" +"RTN","C0QUPDT",180,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",181,0) + K @RTN +"RTN","C0QUPDT",182,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",183,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",184,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",185,0) + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST +"RTN","C0QUPDT",186,0) + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST +"RTN","C0QUPDT",187,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",188,0) + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD +"RTN","C0QUPDT",189,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",190,0) + Q +"RTN","C0QUPDT",191,0) + ; +"RTN","C0QUPDT",192,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",193,0) + K ZERR +"RTN","C0QUPDT",194,0) + D CLEAN^DILF +"RTN","C0QUPDT",195,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QUPDT",196,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",197,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",198,0) + ;. W "ERROR",! +"RTN","C0QUPDT",199,0) + ;. ZWR ZERR +"RTN","C0QUPDT",200,0) + ;. B +"RTN","C0QUPDT",201,0) + K C0QFDA +"RTN","C0QUPDT",202,0) + Q +"RTN","C0QUPDT",203,0) + ; +"RTN","C0QUTIL") +0^13^B21495692 +"RTN","C0QUTIL",1,0) +C0QUTIL ;JJOH/ZAG/GPL - Utilities for C0Q Package ; 7/31/12 7:42am +"RTN","C0QUTIL",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QUTIL",3,0) + ; +"RTN","C0QUTIL",4,0) + ;2011 Licensed under the terms of the GNU General Public License +"RTN","C0QUTIL",5,0) + ;See attached copy of the License. +"RTN","C0QUTIL",6,0) + ; +"RTN","C0QUTIL",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUTIL",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUTIL",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUTIL",10,0) + ;(at your option) any later version. +"RTN","C0QUTIL",11,0) + ; +"RTN","C0QUTIL",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUTIL",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUTIL",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUTIL",15,0) + ;GNU General Public License for more details. +"RTN","C0QUTIL",16,0) + ; +"RTN","C0QUTIL",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUTIL",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUTIL",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUTIL",20,0) + ; +"RTN","C0QUTIL",21,0) +AGE(DFN) ; return current age in years and months +"RTN","C0QUTIL",22,0) + ; +"RTN","C0QUTIL",23,0) + Q:'$G(DFN) ;quit if no there is no patient +"RTN","C0QUTIL",24,0) + N DOB S DOB=$P(^DPT(+DFN,0),U,3) ;date of birth +"RTN","C0QUTIL",25,0) + N YRS +"RTN","C0QUTIL",26,0) + N DOD S DOD=+$G(^DPT(9,.35)) ;check for date of death +"RTN","C0QUTIL",27,0) + I 'DOD D +"RTN","C0QUTIL",28,0) + . N CDTE S CDTE=DT ;current date +"RTN","C0QUTIL",29,0) + . S YRS=$E(CDTE,1,3)-$E(DOB,1,3)-($E(CDTE,4,7)<$E(DOB,4,7)) +"RTN","C0QUTIL",30,0) + E D +"RTN","C0QUTIL",31,0) + . S YRS=$E(DOD,1,3)-$E(DOB,1,3)-($E(DOD,4,7)<$E(DOB,4,7)) +"RTN","C0QUTIL",32,0) + ; +"RTN","C0QUTIL",33,0) + ;Come back here and fix MONTHS and DAYS +"RTN","C0QUTIL",34,0) + ;N CM S CM=+$E(DT,4,5) ;current month +"RTN","C0QUTIL",35,0) + ;N CD S CD=+$E(DT,6,7) ;current day +"RTN","C0QUTIL",36,0) + ;N BM S BM=+$E(DOB,4,5) ;birth month +"RTN","C0QUTIL",37,0) + ;N BD S BD=+$E(DOB,6,7) ;birth day +"RTN","C0QUTIL",38,0) + ; +"RTN","C0QUTIL",39,0) + ;N DAYS S DAYS="" +"RTN","C0QUTIL",40,0) + ; +"RTN","C0QUTIL",41,0) + Q YRS ;_"y" gpl ..just want the number +"RTN","C0QUTIL",42,0) + ; +"RTN","C0QUTIL",43,0) + ; +"RTN","C0QUTIL",44,0) +DTDIFF(ZD1,ZT1,ZD2,ZT2,SHOW) ; extrinsic which returns the number of minutes +"RTN","C0QUTIL",45,0) + ; between 2 dates. ZD1 and ZD2 are fileman dates +"RTN","C0QUTIL",46,0) + ; ZT1 AND ZT2 are valid times (military time) ie 20:10 +"RTN","C0QUTIL",47,0) + ; IF SHOW=1 DEBUGGING INTERMEDIATE VALUES WILL BE DISPLAYED +"RTN","C0QUTIL",48,0) + I '$D(SHOW) S SHOW=0 +"RTN","C0QUTIL",49,0) + N GT1,GT2,GDT1,GDT2 +"RTN","C0QUTIL",50,0) + I ZT1[":" D ; +"RTN","C0QUTIL",51,0) + . S GT1=($P(ZT1,":",1)*3600)+($P(ZT1,":",2)*60) ; SECONDS +"RTN","C0QUTIL",52,0) + . S GT2=($P(ZT2,":",1)*3600)+($P(ZT2,":",2)*60) ; SECONDS +"RTN","C0QUTIL",53,0) + E D ; +"RTN","C0QUTIL",54,0) + . S GT1=($E(ZT1,1,2)*3600)+($E(ZT1,3,4)*60) +"RTN","C0QUTIL",55,0) + . S GT2=($E(ZT2,1,2)*3600)+($E(ZT2,3,4)*60) +"RTN","C0QUTIL",56,0) + ;W:SHOW !,"SECONDS: ",GT1," ",GT2 +"RTN","C0QUTIL",57,0) + ;S %=GT1 D S^%DTC ; FILEMAN TIME +"RTN","C0QUTIL",58,0) + ;S GDT1=ZD1_% ; FILEMAN DATE AND TIME +"RTN","C0QUTIL",59,0) + ;S %=GT2 D S^%DTC ; FILEMAN TIME +"RTN","C0QUTIL",60,0) + ;S GDT2=ZD2_% ; FILEMAN DATE AND TIME +"RTN","C0QUTIL",61,0) + S GDT1=ZD1_"."_ZT1 +"RTN","C0QUTIL",62,0) + S GDT2=ZD2_"."_ZT2 +"RTN","C0QUTIL",63,0) + W:SHOW !,"FILEMAN: ",GDT1," ",GDT2 +"RTN","C0QUTIL",64,0) + N ZH1,ZH2 +"RTN","C0QUTIL",65,0) + S ZH1=$$FMTH^XLFDT(GDT1) ; $H FORMAT +"RTN","C0QUTIL",66,0) + S ZH2=$$FMTH^XLFDT(GDT2) ; $H FORMAT +"RTN","C0QUTIL",67,0) + W:SHOW !,"$H: ",ZH1," ",ZH2 +"RTN","C0QUTIL",68,0) + N ZSECS,ZMIN +"RTN","C0QUTIL",69,0) + S ZSECS=$$HDIFF^XLFDT(ZH1,ZH2,2) ; DIFFERENCE IN $H +"RTN","C0QUTIL",70,0) + W:SHOW !,"DIFF: ",ZSECS +"RTN","C0QUTIL",71,0) + S ZMIN=ZSECS/60 ; DIFFERENCE IN MINUTES +"RTN","C0QUTIL",72,0) + W:SHOW !,"MIN: ",ZMIN +"RTN","C0QUTIL",73,0) + Q ZMIN +"RTN","C0QUTIL",74,0) + ; +"RTN","C0QUTIL",75,0) +DT(X) ; -- Returns FM date for X +"RTN","C0QUTIL",76,0) + N Y,%DT S %DT="T",Y="" D:X'="" ^%DT +"RTN","C0QUTIL",77,0) + Q Y +"RTN","C0QUTIL",78,0) + ; +"RTN","C0QUTIL",79,0) +ZWRITE(NAME) ; Replacement for ZWRITE ; Public Proc +"RTN","C0QUTIL",80,0) + ; Pass NAME by name as a closed reference. lvn and gvn are both supported. +"RTN","C0QUTIL",81,0) + ; : syntax is not supported (yet) +"RTN","C0QUTIL",82,0) + N L S L=$L(NAME) ; Name length +"RTN","C0QUTIL",83,0) + I $E(NAME,L-2,L)=",*)" S NAME=$E(NAME,1,L-3)_")" ; If last sub is *, remove it and close the ref +"RTN","C0QUTIL",84,0) + N ORIGLAST S ORIGLAST=$QS(NAME,$QL(NAME)) ; Get last subscript upon which we can't loop further +"RTN","C0QUTIL",85,0) + N ORIGQL S ORIGQL=$QL(NAME) ; Number of subscripts in the original name +"RTN","C0QUTIL",86,0) + I $D(@NAME)#2 W NAME,"=",$$FORMAT(@NAME),! ; Write base if it exists +"RTN","C0QUTIL",87,0) + ; $QUERY through the name. +"RTN","C0QUTIL",88,0) + ; Stop when we are out. +"RTN","C0QUTIL",89,0) + ; Stop when the last subscript of the original name isn't the same as +"RTN","C0QUTIL",90,0) + ; the last subscript of the Name. +"RTN","C0QUTIL",91,0) + F S NAME=$Q(@NAME) Q:NAME="" Q:$QS(NAME,ORIGQL)'=ORIGLAST W NAME,"=",$$FORMAT(@NAME),! +"RTN","C0QUTIL",92,0) + QUIT +"RTN","C0QUTIL",93,0) +FORMAT(V) ; Add quotes, replace control characters if necessary; Public $$ +"RTN","C0QUTIL",94,0) + ;If numeric, nothing to do. +"RTN","C0QUTIL",95,0) + ;If no encoding required, then return as quoted string. +"RTN","C0QUTIL",96,0) + ;Otherwise, return as an expression with $C()'s and strings. +"RTN","C0QUTIL",97,0) + I +V=V Q V ; If numeric, just return the value. +"RTN","C0QUTIL",98,0) + N QT S QT="""" ; Quote +"RTN","C0QUTIL",99,0) + I $F(V,QT) D ;chk if V contains any Quotes +"RTN","C0QUTIL",100,0) + . S P=0 ;position pointer into V +"RTN","C0QUTIL",101,0) + . F S P=$F(V,QT,P) Q:'P D ;find next " +"RTN","C0QUTIL",102,0) + . . S $E(V,P-1)=QT_QT ;double each " +"RTN","C0QUTIL",103,0) + . . S P=P+1 ;skip over new " +"RTN","C0QUTIL",104,0) + I $$CCC(V) D Q V ; If control character is present do this and quit +"RTN","C0QUTIL",105,0) + . S V=$$RCC(QT_V_QT) ; Replace control characters in "V" +"RTN","C0QUTIL",106,0) + . S:$E(V,1,3)="""""_" $E(V,1,3)="" ; Replace doubled up quotes at start +"RTN","C0QUTIL",107,0) + . S L=$L(V) S:$E(V,L-2,L)="_""""" $E(V,L-2,L)="" ; Replace doubled up quotes at end +"RTN","C0QUTIL",108,0) + Q QT_V_QT ; If no control charactrrs, quit with "V" +"RTN","C0QUTIL",109,0) + ; +"RTN","C0QUTIL",110,0) +CCC(S) ;test if S Contains a Control Character or $C(255); Public $$ +"RTN","C0QUTIL",111,0) + Q:S?.E1C.E 1 +"RTN","C0QUTIL",112,0) + Q:$F(S,$C(255)) 1 +"RTN","C0QUTIL",113,0) + Q 0 +"RTN","C0QUTIL",114,0) +RCC(NA) ;Replace control chars in NA with $C( ). Returns encoded string; Public $$ +"RTN","C0QUTIL",115,0) + Q:'$$CCC(NA) NA ;No embedded ctrl chars +"RTN","C0QUTIL",116,0) + N OUT S OUT="" ;holds output name +"RTN","C0QUTIL",117,0) + N CC S CC=0 ;count ctrl chars in $C( +"RTN","C0QUTIL",118,0) + N C ;temp hold each char +"RTN","C0QUTIL",119,0) + F I=1:1:$L(NA) S C=$E(NA,I) D ;for each char C in NA +"RTN","C0QUTIL",120,0) + . I C'?1C,C'=C255 D S OUT=OUT_C Q ;not a ctrl char +"RTN","C0QUTIL",121,0) + . . I CC S OUT=OUT_")_""",CC=0 ;close up $C(... if one is open +"RTN","C0QUTIL",122,0) + . I CC D +"RTN","C0QUTIL",123,0) + . . I CC=256 S OUT=OUT_")_$C("_$A(C),CC=0 ;max args in one $C( +"RTN","C0QUTIL",124,0) + . . E S OUT=OUT_","_$A(C) ;add next ctrl char to $C( +"RTN","C0QUTIL",125,0) + . E S OUT=OUT_"""_$C("_$A(C) +"RTN","C0QUTIL",126,0) + . S CC=CC+1 +"RTN","C0QUTIL",127,0) + . Q +"RTN","C0QUTIL",128,0) + Q OUT +"RTN","C0QUTIL",129,0) +END ;end of C0QUTIL +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"AUDIT") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DEL") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"LAYGO") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"RD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"WR") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"AUDIT") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DD") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DEL") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"LAYGO") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"RD") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"WR") +@ +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.01) +SAMPLE MEASURE SET +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.02) +JAN 1,2010 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.03) +DEC 31,2010 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.05) +NO +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.2) +YES +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.01) +HOS 2011 MEANINGFUL USE +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.01) +EP 2011 MEANINGFUL USE +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.01) +MU EP 2011 CERTIFICATION +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.01) +MU 2011 HOS CERTIFICATION +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.01) +MU 2011 INP ATTESTATION +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.02) +JUL 3,2011 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.03) +SEP 30,2011 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+10,?+1,",.01) +MU EP NQF 0031 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+100,?+7,",.01) +MU EP NQF 0038 NUM7 PCV +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+101,?+7,",.01) +MU EP NQF 0038 NUM8 HEP A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+102,?+7,",.01) +MU EP NQF 0038 NUM9 RV +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+103,?+7,",.01) +MU EP NQF 0038 NUM10 FLU +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+104,?+7,",.01) +MU EP NQF 0038 NUM11 COMBO5 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+105,?+7,",.01) +MU EP NQF 0038 NUM12 COMBO6 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+106,?+7,",.01) +MU EP NQF 0013 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+107,?+7,",.01) +MU EP NQF 0024 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+108,?+8,",.01) +MU 2011 INP ADV DIRECTIVES +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+109,?+8,",.01) +MU 2011 INP ALLERGY LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+11,?+1,",.01) +PQRI MEASURE 124 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+110,?+8,",.01) +MU 2011 INP CPOE +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+111,?+8,",.01) +MU 2011 INP DEMOGRAPHICS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+112,?+8,",.01) +MU 2011 INP MED LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+113,?+8,",.01) +MU 2011 INP MED RECON +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+114,?+8,",.01) +MU 2011 INP PROBLEM LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+115,?+8,",.01) +MU 2011 INP SMOKING STATUS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+116,?+8,",.01) +MU 2011 INP VITAL SIGNS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+117,?+9,",.01) +MU 2011 INP ADV DIRECTIVES +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+118,?+9,",.01) +MU 2011 INP ALLERGY LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+119,?+9,",.01) +MU 2011 INP CPOE +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+12,?+1,",.01) +MU EP NQF 0421 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+120,?+9,",.01) +MU 2011 INP DEMOGRAPHICS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+121,?+9,",.01) +MU 2011 INP MED LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+122,?+9,",.01) +MU 2011 INP MED RECON +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+123,?+9,",.01) +MU 2011 INP PROBLEM LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+124,?+9,",.01) +MU 2011 INP SMOKING STATUS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+125,?+9,",.01) +MU 2011 INP VITAL SIGNS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+13,?+1,",.01) +PQRI MEASURE 47 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+14,?+1,",.01) +PQRI MEASURE 48 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+15,?+1,",.01) +MU EP NQF 0081 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+16,?+1,",.01) +MU EP NQF 0064 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+17,?+1,",.01) +MU EP NQF 0061 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+18,?+1,",.01) +MU EP NQF 0070 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+19,?+1,",.01) +PQRI MEASURE 173 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+20,?+1,",.01) +PQRI MEASURE 39 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+21,?+1,",.01) +MU EP NQF 0059 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+22,?+1,",.01) +MU EP NQF 0013 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+23,?+1,",.01) +MU EP NQF 0028A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+24,?+1,",.01) +MU EP NQF 0034 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+25,?+1,",.01) +MU EP NQF 0041 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+26,?+1,",.01) +MU EP NQF 0043 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+27,?+1,",.01) +MU EP NQF 0024 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+28,?+1,",.01) +MU EP NQF 0038 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+29,?+5,",.01) +MU HOS NQF 0495 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+30,?+5,",.01) +MU HOS NQF 0497 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+31,?+5,",.01) +MU HOS NQF 0371 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+32,?+5,",.01) +MU HOS NQF 0372 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+33,?+5,",.01) +MU HOS NQF 0373 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+34,?+5,",.01) +MU HOS NQF 0374 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+35,?+5,",.01) +MU HOS NQF 0375 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+36,?+5,",.01) +MU HOS NQF 0376 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+37,?+5,",.01) +MU HOS NQF 0435 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+38,?+5,",.01) +MU HOS NQF 0436 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+39,?+5,",.01) +MU HOS NQF 0437 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+40,?+5,",.01) +MU HOS NQF 0438 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+41,?+5,",.01) +MU HOS NQF 0441 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+42,?+5,",.01) +MU HOS NQF 0439 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+43,?+5,",.01) +MU HOS NQF 0440 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+44,?+6,",.01) +MU EP NQF 0001 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+45,?+6,",.01) +MU EP NQF 0002 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+46,?+6,",.01) +MU EP NQF 0004 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+47,?+6,",.01) +MU EP NQF 0012 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+48,?+6,",.01) +MU EP NQF 0013 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+49,?+6,",.01) +MU EP NQF 0014 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+50,?+6,",.01) +MU EP NQF 0018 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+51,?+6,",.01) +MU EP NQF 0024 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+52,?+6,",.01) +MU EP NQF 0027 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+53,?+6,",.01) +MU EP NQF 0028A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+54,?+6,",.01) +MU EP NQF 0031 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+55,?+6,",.01) +MU EP NQF 0032 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+56,?+6,",.01) +MU EP NQF 0033 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+57,?+6,",.01) +MU EP NQF 0034 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+58,?+6,",.01) +MU EP NQF 0036 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+59,?+6,",.01) +MU EP NQF 0038 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+60,?+6,",.01) +MU EP NQF 0041 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+61,?+6,",.01) +MU EP NQF 0047 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+62,?+6,",.01) +MU EP NQF 0052 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+63,?+6,",.01) +MU EP NQF 0055 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+64,?+6,",.01) +MU EP NQF 0056 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+65,?+6,",.01) +MU EP NQF 0059 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+66,?+6,",.01) +MU EP NQF 0061 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+67,?+6,",.01) +MU EP NQF 0062 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+68,?+6,",.01) +MU EP NQF 0064 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+69,?+6,",.01) +MU EP NQF 0067 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+70,?+6,",.01) +MU EP NQF 0068 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+71,?+6,",.01) +MU EP NQF 0070 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+72,?+6,",.01) +MU EP NQF 0073 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+73,?+6,",.01) +MU EP NQF 0074 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+74,?+6,",.01) +MU EP NQF 0075 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+75,?+6,",.01) +MU EP NQF 0081 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+76,?+6,",.01) +MU EP NQF 0083 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+77,?+6,",.01) +MU EP NQF 0084 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+78,?+6,",.01) +MU EP NQF 0086 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+79,?+6,",.01) +MU EP NQF 0088 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+80,?+6,",.01) +MU EP NQF 0089 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+81,?+6,",.01) +MU EP NQF 0105 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+82,?+6,",.01) +MU EP NQF 0385 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+83,?+6,",.01) +MU EP NQF 0421 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+84,?+6,",.01) +MU EP NQF 0575 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+85,?+6,",.01) +MU EP NQF 0389 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+86,?+6,",.01) +MU EP NQF 0028B +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+87,?+7,",.01) +MU EP NQF 0028A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+88,?+7,",.01) +MU EP NQF 0038 NUM1 DPT +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+89,?+7,",.01) +MU EP NQF 0041 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+90,?+7,",.01) +MU EP NQF 0059 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+91,?+7,",.01) +MU EP NQF 0061 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+92,?+7,",.01) +MU EP NQF 0064 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+93,?+7,",.01) +MU EP NQF 0421 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+94,?+7,",.01) +MU EP NQF 0028B +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+95,?+7,",.01) +MU EP NQF 0038 NUM2 IPV +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+96,?+7,",.01) +MU EP NQF 0038 NUM3 MMR +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+97,?+7,",.01) +MU EP NQF 0038 NUM4 HiB +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+98,?+7,",.01) +MU EP NQF 0038 NUM5 HEP B +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+99,?+7,",.01) +MU EP NQF 0038 NUM6 VZV +"VER") +8.0^22.0 +"^DD",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,0,"VRPK") +C0C +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^15 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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^^0 +"^DD",1130580001.101,1130580001.101,.01,3) +Answer must be 1-30 characters in length +"^DD",1130580001.101,1130580001.101,.01,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^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^^.3^8 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3111129 +"^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,0,"PT",1130580001.401,1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) + +"^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,.3,0) +MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.201,1130580001.201,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.201,1130580001.201,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.201,1130580001.201,.3,"DT") +3111129 +"^DD",1130580001.201,1130580001.201,1,0) +MEASURE^1130580001.2011P^^5;0 +"^DD",1130580001.201,1130580001.2011,0) +MEASURE SUB-FIELD^^2.2^8 +"^DD",1130580001.201,1130580001.2011,0,"DT") +3111129 +"^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,1.2,0) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"^DD",1130580001.201,1130580001.2011,1.2,.1) +FILTER LIST FOR NUMERATOR +"^DD",1130580001.201,1130580001.2011,1.2,"DT") +3111129 +"^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,2.2,0) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"^DD",1130580001.201,1130580001.2011,2.2,.1) +FILTER LIST FOR DENOMINATOR +"^DD",1130580001.201,1130580001.2011,2.2,"DT") +3111129 +"^DD",1130580001.201,1130580001.2011,3,0) +PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.301,1130580001.301,0) +FIELD^^.3^9 +"^DD",1130580001.301,1130580001.301,0,"DDA") +N +"^DD",1130580001.301,1130580001.301,0,"DT") +3111201 +"^DD",1130580001.301,1130580001.301,0,"ID",999) +W:$D(^(3)) " ",$P(^(3),U,1) +"^DD",1130580001.301,1130580001.301,0,"IX","B",1130580001.301,.01) + +"^DD",1130580001.301,1130580001.301,0,"NM","C0Q PATIENT LIST") + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.51) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,2.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.2011,1.2) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.2011,2.2) + +"^DD",1130580001.301,1130580001.301,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.301,1130580001.301,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.301,.01,1,1,0) +1130580001.301^B +"^DD",1130580001.301,1130580001.301,.01,1,1,1) +S ^C0Q(301,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.301,.01,1,1,2) +K ^C0Q(301,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.301,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.301,1130580001.301,.02,0) +REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2011)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.02,3) +Type a number between 2011 and 2050, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.03,0) +REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.03,3) +Type a number between 1 and 12, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.03,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.04,0) +ORIGINAL DATE CREATED^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X +"^DD",1130580001.301,1130580001.301,.04,3) +(No range limit on date) +"^DD",1130580001.301,1130580001.301,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.07,0) +CREATOR^P200'^VA(200,^0;5^Q +"^DD",1130580001.301,1130580001.301,.07,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.3,0) +MU YEAR KEY^F^^4;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.301,1130580001.301,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.301,1130580001.301,.3,"DT") +3111201 +"^DD",1130580001.301,1130580001.301,30,0) +PATIENTS^1130580001.311P^^1;0 +"^DD",1130580001.301,1130580001.301,200,0) +CREATION DOCUMENTATION^1130580001.321^^2;0 +"^DD",1130580001.301,1130580001.301,999,0) +ATTRIBUTE^F^^3;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,999,3) +PATIENT LIST ATTRIBUTE +"^DD",1130580001.301,1130580001.301,999,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0) +PATIENTS SUB-FIELD^^.05^4 +"^DD",1130580001.301,1130580001.311,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0,"IX","B",1130580001.311,.01) + +"^DD",1130580001.301,1130580001.311,0,"NM","PATIENTS") + +"^DD",1130580001.301,1130580001.311,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.311,.01,0) +PATIENTS^MP2'^DPT(^0;1^Q +"^DD",1130580001.301,1130580001.311,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.311,.01,1,1,0) +1130580001.311^B +"^DD",1130580001.301,1130580001.311,.01,1,1,1) +S ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.311,.01,1,1,2) +K ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.311,.01,3) +PATIENTS IN THE LIST +"^DD",1130580001.301,1130580001.311,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.04,0) +DESEASED^S^0:NO;1:YES;^2;1^Q +"^DD",1130580001.301,1130580001.311,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.05,0) +TEST PATIENT^S^0:NO;1:YES;^2;2^Q +"^DD",1130580001.301,1130580001.311,.05,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,1,0) +DATA^1130580001.3111^^1;0 +"^DD",1130580001.301,1130580001.3111,0) +DATA SUB-FIELD^^.02^2 +"^DD",1130580001.301,1130580001.3111,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,0,"IX","B",1130580001.3111,.01) + +"^DD",1130580001.301,1130580001.3111,0,"NM","DATA") + +"^DD",1130580001.301,1130580001.3111,0,"UP") +1130580001.311 +"^DD",1130580001.301,1130580001.3111,.01,0) +DATA TYPE^MF^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.3111,.01,1,1,0) +1130580001.3111^B +"^DD",1130580001.301,1130580001.3111,.01,1,1,1) +S ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.3111,.01,1,1,2) +K ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.3111,.01,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,.02,0) +VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.02,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0) +CREATION DOCUMENTATION SUB-FIELD^^.01^1 +"^DD",1130580001.301,1130580001.321,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0,"NM","CREATION DOCUMENTATION") + +"^DD",1130580001.301,1130580001.321,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.321,.01,0) +CREATION DOCUMENTATION^W^^0;1 +"^DD",1130580001.301,1130580001.321,.01,3) +DOCUMENTATION +"^DD",1130580001.301,1130580001.321,.01,"DT") +3110805 +"^DD",1130580001.401,1130580001.401,0) +FIELD^^1.015^11 +"^DD",1130580001.401,1130580001.401,0,"DDA") +N +"^DD",1130580001.401,1130580001.401,0,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,0,"IX","B",1130580001.401,.01) + +"^DD",1130580001.401,1130580001.401,0,"NM","C0Q PARAMETER") + +"^DD",1130580001.401,1130580001.401,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.401,1130580001.401,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,.01,1,1,0) +1130580001.401^B +"^DD",1130580001.401,1130580001.401,.01,1,1,1) +S ^C0Q(401,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,.01,1,1,2) +K ^C0Q(401,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.401,1130580001.401,.02,0) +MEASUREMENT PERIOD KEY^F^^0;2^K:$L(X)>60!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,.02,.1) +YEAR KEY FOR MEASUREMENT PERIOD IE MU12 +"^DD",1130580001.401,1130580001.401,.02,3) +Answer must be 1-60 characters in length. +"^DD",1130580001.401,1130580001.401,.02,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,.02,21,1,0) +Meaningful Use and Quality Measures are generally computed for a +"^DD",1130580001.401,1130580001.401,.02,21,2,0) +particular fiscal year. The Measurement Period Key changes every year +"^DD",1130580001.401,1130580001.401,.02,21,3,0) +when new parameters are set up to govern the computations for that year. +"^DD",1130580001.401,1130580001.401,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,.03,0) +PARAMETER TYPE^S^INP:INPATIENT;EP:OUTPATIENT;ALL:SUPERUSERS;^0;3^Q +"^DD",1130580001.401,1130580001.401,.03,.1) +C0Q PARAMETER TYPE +"^DD",1130580001.401,1130580001.401,.03,21,0) +^^6^6^3120103^ +"^DD",1130580001.401,1130580001.401,.03,21,1,0) +If the current parameter record is type INP it will define the processing +"^DD",1130580001.401,1130580001.401,.03,21,2,0) +for inpatient patients. Type EP defines the processing for one group of +"^DD",1130580001.401,1130580001.401,.03,21,3,0) +oupatient patients where a group is the patients with a visit at one or +"^DD",1130580001.401,1130580001.401,.03,21,4,0) +more clinics specified in the CLINIC multiple. Type ALL is used to +"^DD",1130580001.401,1130580001.401,.03,21,5,0) +specify a set of subscribers who have access to all Measurement Sets in +"^DD",1130580001.401,1130580001.401,.03,21,6,0) +the specifies Measurement Period. +"^DD",1130580001.401,1130580001.401,.03,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1,0) +INP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;4^Q +"^DD",1130580001.401,1130580001.401,1,.1) +INPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1.015,0) +DIVISION REPORTING^P40.8'^DG(40.8,^4;1^Q +"^DD",1130580001.401,1130580001.401,1.015,.1) +MEDICAL CENTER DIVISION FOR THIS PARAMETER +"^DD",1130580001.401,1130580001.401,1.015,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,1.1,0) +INP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;5^Q +"^DD",1130580001.401,1130580001.401,1.1,.1) +INPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2,0) +EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q +"^DD",1130580001.401,1130580001.401,2,.1) +OUTPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.1,0) +EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q +"^DD",1130580001.401,1130580001.401,2.1,.1) +OUTPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.2,0) +CLINIC^1130580001.411P^^1;0 +"^DD",1130580001.401,1130580001.401,2.3,0) +PATIENT LIST LABEL^F^^2;1^K:$L(X)>20!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,2.3,.1) +MU PATIENT LIST LABEL +"^DD",1130580001.401,1130580001.401,2.3,3) +Answer must be 1-20 characters in length. +"^DD",1130580001.401,1130580001.401,2.3,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,2.3,21,1,0) +When there is more than one clinic in this reporting group, this field is +"^DD",1130580001.401,1130580001.401,2.3,21,2,0) +used to contain a label for the patient lists. If it is not defined, the +"^DD",1130580001.401,1130580001.401,2.3,21,3,0) +name of the first clinic defined is used as the label. +"^DD",1130580001.401,1130580001.401,2.3,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,3,0) +SUBSCRIBER^1130580001.4013P^^3;0 +"^DD",1130580001.401,1130580001.4013,0) +SUBSCRIBER SUB-FIELD^^.02^2 +"^DD",1130580001.401,1130580001.4013,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,0,"IX","B",1130580001.4013,.01) + +"^DD",1130580001.401,1130580001.4013,0,"NM","SUBSCRIBER") + +"^DD",1130580001.401,1130580001.4013,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.4013,.01,0) +SUBSCRIBER^MP200'^VA(200,^0;1^Q +"^DD",1130580001.401,1130580001.4013,.01,.1) +SUBSCRIBERS TO THIS MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.4013,.01,1,1,0) +1130580001.4013^B +"^DD",1130580001.401,1130580001.4013,.01,1,1,1) +S ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.4013,.01,1,1,2) +K ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.4013,.01,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,.02,0) +DEFAULT^S^1:YES;0:NO;^0;2^Q +"^DD",1130580001.401,1130580001.4013,.02,.1) +DISPLAY AS SUBSCRIBER DEFAULT MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0) +CLINIC SUB-FIELD^^.01^1 +"^DD",1130580001.401,1130580001.411,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0,"IX","B",1130580001.411,.01) + +"^DD",1130580001.401,1130580001.411,0,"NM","CLINIC") + +"^DD",1130580001.401,1130580001.411,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.411,.01,0) +CLINIC^MP44'^SC(^0;1^Q +"^DD",1130580001.401,1130580001.411,.01,.1) +OUTPATIENT CLINIC +"^DD",1130580001.401,1130580001.411,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.411,.01,1,1,0) +1130580001.411^B +"^DD",1130580001.401,1130580001.411,.01,1,1,1) +S ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.411,.01,1,1,2) +K ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.411,.01,"DT") +3120103 +"^DIC",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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) + +"^DIC",1130580001.301,1130580001.301,0) +C0Q PATIENT LIST^1130580001.301 +"^DIC",1130580001.301,1130580001.301,0,"GL") +^C0Q(301, +"^DIC",1130580001.301,1130580001.301,"%",0) +^1.005^^0 +"^DIC",1130580001.301,"B","C0Q PATIENT LIST",1130580001.301) + +"^DIC",1130580001.401,1130580001.401,0) +C0Q PARAMETER^1130580001.401 +"^DIC",1130580001.401,1130580001.401,0,"GL") +^C0Q(401, +"^DIC",1130580001.401,1130580001.401,"%",0) +^1.005^^0 +"^DIC",1130580001.401,1130580001.401,"%D",0) +^^7^7^3120103^ +"^DIC",1130580001.401,1130580001.401,"%D",1,0) +This parameter file was created by George Lilly 12/2011 for the C0Q +"^DIC",1130580001.401,1130580001.401,"%D",2,0) +Meaningful Use and Quality Measurement Project funded in part by Oroville +"^DIC",1130580001.401,1130580001.401,"%D",3,0) +Hospital. It controls the updating of Meaningful Use patient lists and +"^DIC",1130580001.401,1130580001.401,"%D",4,0) +C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this +"^DIC",1130580001.401,1130580001.401,"%D",5,0) +file should be updated using the C0Q SETUP options because the +"^DIC",1130580001.401,1130580001.401,"%D",6,0) +combiniation of fields in each record varies depending on the updating +"^DIC",1130580001.401,1130580001.401,"%D",7,0) +behavior that is desired. +"^DIC",1130580001.401,"B","C0Q PARAMETER",1130580001.401) + +**END** +**END** diff --git a/qrda/C0Q/tags/QUALITY_MEASURES_1.0/QUALITY_MEASURES_1P0.TXT b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/QUALITY_MEASURES_1P0.TXT new file mode 100644 index 0000000..c0aad76 --- /dev/null +++ b/qrda/C0Q/tags/QUALITY_MEASURES_1.0/QUALITY_MEASURES_1P0.TXT @@ -0,0 +1,244 @@ +Build Manifest + +TYPE: SINGLE PACKAGE TRACK NATIONALLY: NO +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: +The C0Q Quality Reporting Package is a mumps-based addition to VistA for +reporting Meaningful Use and Quality Measurements. The package supports +both inpatient and outpatient reporting, and computes the Meaningful Use +measures from patient records. For Quality Measurements, the reporting +package relies on the VistA Reminders Patient Lists as the source for its +reporting. + +Installation and Use instructions can be found here: +http://vistapedia.net/index.php?title=C0Q_Quality_Reporting_1.0 + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: PRE^C0QKIDS DELETE PRE-INIT ROUTINE: No +POST-INIT ROUTINE: POST^C0QKIDS DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: TRAN^C0QKIDS + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +178.301 C0C XML MISC YES YES YES OVER NO NO + +1130580001.101C0Q QUALITY MEASURE YES YES YES REPL NO NO + +1130580001.201C0Q MEASUREMENTS YES YES NO + +1130580001.301C0Q PATIENT LIST YES YES NO + +1130580001.401C0Q PARAMETER YES YES NO + +PRINT TEMPLATE: ACTION: + C0Q EP SETUP FILE #1130580001.201 SEND TO SITE + C0Q HOS MEASURES FILE #1130580001.201 SEND TO SITE + C0Q MEASUREMENT REPORT FILE #1130580001.201 SEND TO SITE + C0Q PRINT BY PATIENT FILE #1130580001.201 SEND TO SITE + C0Q PRINT MEASUREMENT SET FILE #1130580001.201SEND TO SITE + C0Q PRINT QUALITY MEASURES FILE #1130580001.101SEND TO SITE + +INPUT TEMPLATE: ACTION: + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE + C0Q EDIT MU MEASURE FILE #1130580001.101 SEND TO SITE + C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE + C0Q EDIT QUALITY MEASURE FILE #1130580001.101SEND TO SITE + C0Q EDIT SUPERUSERS FILE #1130580001.401 SEND TO SITE + C0Q MEASUREMENT SET DEFINE FILE #1130580001.201SEND TO SITE + +ROUTINE: ACTION: + C0QERTIM SEND TO SITE + C0QGMRAD SEND TO SITE + C0QGMTSA SEND TO SITE + C0QGMTSG SEND TO SITE + C0QHF SEND TO SITE + C0QIMMUN SEND TO SITE + C0QINIT SEND TO SITE + C0QMAIN SEND TO SITE + C0QMU12 SEND TO SITE + C0QMU121 SEND TO SITE + C0QMU122 SEND TO SITE + C0QNOTES SEND TO SITE + C0QPQRI SEND TO SITE + C0QSET SEND TO SITE + C0QUPDT SEND TO SITE + C0QUTIL SEND TO SITE + +OPTION: ACTION: + C0Q BY PATIENT NUMERATOR SEND TO SITE + C0Q COPY PATIENT LISTS SEND TO SITE + C0Q DENOMINATOR PATIENT LIST SEND TO SITE + C0Q DISPLAY QUALITY MEASURES SEND TO SITE + C0Q ED1 COMPUTATION SEND TO SITE + C0Q ED2 COMPUTATION SEND TO SITE + C0Q EDIT INP PARMS SEND TO SITE + C0Q EDIT MEASURE SET SEND TO SITE + C0Q EDIT MU MEASURE SEND TO SITE + C0Q EDIT OUTPATIENT PARMS SEND TO SITE + C0Q EDIT QUALITY MEASURE SEND TO SITE + C0Q EDIT SUPERUSERS SEND TO SITE + C0Q EP UPDATE MU MEASURES SEND TO SITE + C0Q EXPORT CCR BY MEASURE SEND TO SITE + C0Q EXPORT MEASURE SET SEND TO SITE + C0Q INP UPDATE MU MEASURES SEND TO SITE + C0Q LIST MEASURE SET SEND TO SITE + C0Q PQRI MENU SEND TO SITE + C0Q PRINT MEASURES SEND TO SITE + C0Q PRINT PQRI XML SEND TO SITE + C0Q QUALITY MEASUREMENT MENU SEND TO SITE + C0Q SETUP QUALITY REPORTING SEND TO SITE + C0Q UPDATE QUALITY MEASUREMENT SEND TO SITE + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: YES + +REQUIRED BUILDS: ACTION: + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global + + +Install transcript: + +Select Installation Option: 1 Load a Distribution +Enter a Host File: QUALITY_MEASURES_1P0.KID + +KIDS Distribution saved on Jul 31, 2012@17:18:02 +Comment: QUALITY MEASURES 1.0 T12 + +This Distribution contains Transport Globals for the following Package(s): + QUALITY MEASURES 1.0 +Distribution OK! + +Want to Continue with Load? YES// +Loading Distribution... + + QUALITY MEASURES 1.0 +Use INSTALL NAME: QUALITY MEASURES 1.0 to install this Distribution. + + +Select Installation Option: 6 Install Package(s) +Select INSTALL NAME: qui ?? + +Select INSTALL NAME: quaLITY MEASURES 1.0 Loaded from Distribution Loa +ded from Distribution 10/2/12@15:44:27 + => QUALITY MEASURES 1.0 T12 ;Created on Jul 31, 2012@17:18:02 + +This Distribution was loaded on Oct 02, 2012@15:44:27 with header of + QUALITY MEASURES 1.0 T12 ;Created on Jul 31, 2012@17:18:02 + It consisted of the following Install(s): +QUALITY MEASURES 1.0 + + Checking QUALITY MEASURES 1.0 for overlap with VOE 1.0 ..... OK + No overlap found + + + Checking QUALITY MEASURES 1.0 for overlap with VOE 1.1 ..... OK + No overlap found + + + Checking QUALITY MEASURES 1.0 for overlap with NO HOME 1.0 ..... OK + No overlap found + +Checking Install for Package QUALITY MEASURES 1.0 + +Install Questions for QUALITY MEASURES 1.0 + +Incoming Files: + + + 178.301 C0C XML MISC (including data) +Note: You already have the 'C0C XML MISC' File. +I will OVERWRITE your data with mine. + + + 1130580001.101C0Q QUALITY MEASURE (including data) + + + 1130580001.201C0Q MEASUREMENTS + + + 1130580001.301C0Q PATIENT LIST + + + 1130580001.401C0Q PARAMETER + +Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES// + + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// phome HOME PRINTER + + + Install Started for QUALITY MEASURES 1.0 : + Oct 02, 2012@15:44:40 + +Build Distribution Date: Jul 31, 2012 + + Installing Routines:.................. + Oct 02, 2012@15:44:41 + + Running Pre-Install Routine: PRE^C0QKIDS. + + Installing Data Dictionaries: ...... + Oct 02, 2012@15:44:41 + + Installing Data: + Oct 02, 2012@15:44:41 + + Installing PACKAGE COMPONENTS: + + Installing PRINT TEMPLATE....... + + Installing INPUT TEMPLATE........ + + Installing OPTION........................ + Oct 02, 2012@15:44:42 + + Running Post-Install Routine: POST^C0QKIDS. +Adding data to C0Q MEASUREMENTS + + Updating Routine file...... + + Updating KIDS files....... + + QUALITY MEASURES 1.0 Installed. + Oct 02, 2012@15:44:42 + + NO Install Message sent + + Call MENU rebuild + +Starting Menu Rebuild: Oct 02, 2012@15:44:44 + +Collecting primary menus in the New Person file... + + Primary menus found in the New Person file + ------------------------------------------ + +OPTION NAME MENU TEXT # OF LAST LAST + USERS USED BUILT + +EVE Systems Manager Menu 14 10/02/12 08/31/11 +XUCORE Core Applications 2 09/02/05 08/31/11 +XMUSER MailMan Menu 1 12/19/05 08/31/11 +DGZ REGISTRATION MENU + EHR Registration Menu 40 04/09/12 08/31/11 +XUZEVE STARTUP FUNCTIONS 1 11/16/05 08/31/11 + +Building secondary menu trees.... + +Merging.... done. + +Menu Rebuild Complete: Oct 02, 2012@15:44:46 + diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-001_PAT-002.KID b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-001_PAT-002.KID new file mode 100644 index 0000000..a8ad2aa --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-001_PAT-002.KID @@ -0,0 +1,75488 @@ +KIDS Distribution saved on Aug 03, 2012@15:53:39 +QUALITY MEASURES 1.0 PATCH 2 +**KIDS**:C0Q*1.0*2^ + +**INSTALL NAME** +C0Q*1.0*2 +"BLD",7935,0) +C0Q*1.0*2^QUALITY MEASURES^0^3120803^y +"BLD",7935,1,0) +^^307^307^3120803^ +"BLD",7935,1,1,0) + Summary +"BLD",7935,1,2,0) + ======= +"BLD",7935,1,3,0) + This build contains the reminder rules and extracts for use with the +"BLD",7935,1,4,0) +Quality Measures package for reporting for Meaningful use Stage I. It +"BLD",7935,1,5,0) +also installs reminder dialogs for use in populating data for some of the +"BLD",7935,1,6,0) +Outpatient Measures. +"BLD",7935,1,7,0) + +"BLD",7935,1,8,0) + Source, Copyright, & Licensing: +"BLD",7935,1,9,0) + =============================== +"BLD",7935,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"BLD",7935,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"BLD",7935,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"BLD",7935,1,13,0) + Copyright WorldVistA 2012. +"BLD",7935,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"BLD",7935,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"BLD",7935,1,16,0) + Released through VISTA Forum. +"BLD",7935,1,17,0) + +"BLD",7935,1,18,0) + Functionality: +"BLD",7935,1,19,0) + ============== +"BLD",7935,1,20,0) + This patch installs the following reminder rules and selectively extracts +"BLD",7935,1,21,0) +for these Meaningful Use Stage I measure. +"BLD",7935,1,22,0) + +"BLD",7935,1,23,0) + NQF 0024-alt-core_wt-kids +"BLD",7935,1,24,0) + NQF 0013-core-HTN +"BLD",7935,1,25,0) + NQF 0028a-core-tobacco-access +"BLD",7935,1,26,0) + NQF 0028b-core-tobaocc-intervention +"BLD",7935,1,27,0) + NQF 0041-alt-core-flu +"BLD",7935,1,28,0) + NQF 0059-option1-DM-Hbalc +"BLD",7935,1,29,0) + NQF 0061-option3-DM-BP +"BLD",7935,1,30,0) + NQF 0064-option2-DM-LDL +"BLD",7935,1,31,0) + NQF 0495 (Education 1 for Inpatient) +"BLD",7935,1,32,0) + NQF 0497 (Education 2 for Inpatient) +"BLD",7935,1,33,0) + MU Inpatient Stroke Measures (contains labs) +"BLD",7935,1,34,0) + - NQF 0435 +"BLD",7935,1,35,0) + - NQF 0436 +"BLD",7935,1,36,0) + - NQF 0437 +"BLD",7935,1,37,0) + - NQF 0438 +"BLD",7935,1,38,0) + - NQF 0439 +"BLD",7935,1,39,0) + - NQF 0440 +"BLD",7935,1,40,0) + - NQF 0441 +"BLD",7935,1,41,0) + MU Inpatient Venous Thombotic Embolism Measures (contains labs) +"BLD",7935,1,42,0) + - NQF 0371 +"BLD",7935,1,43,0) + - NQF 0372 +"BLD",7935,1,44,0) + - NQF 0373 +"BLD",7935,1,45,0) + - NQF 0374 +"BLD",7935,1,46,0) + - NQF 0375 +"BLD",7935,1,47,0) + - NQF 0376 +"BLD",7935,1,48,0) + - NQF 0421-core-adult-weight (contains reminder extracts) +"BLD",7935,1,49,0) + - NQF 0038-alt-core-childImms (contains reminder extracts) +"BLD",7935,1,50,0) + +"BLD",7935,1,51,0) +In addition, the following CPRS dialogs are sent in this patch. +"BLD",7935,1,52,0) + - MU NQF0421 BMI DI +"BLD",7935,1,53,0) + - MU NQF0041 INFLUENZA MANAGEMENT DI +"BLD",7935,1,54,0) + - MU NQF0038 IMMUNE MANAGEMENT DI +"BLD",7935,1,55,0) + - MU NQF0028AB MANAGEMENT DI +"BLD",7935,1,56,0) + - MU SMOKING STATUS DI +"BLD",7935,1,57,0) + +"BLD",7935,1,58,0) +All of this is installed automatically, except if the labs transported in +"BLD",7935,1,59,0) +the dialog cannot be found, the installer will be prompted to rematch +"BLD",7935,1,60,0) +them. +"BLD",7935,1,61,0) + +"BLD",7935,1,62,0) + Package Elements: +"BLD",7935,1,63,0) + ================= +"BLD",7935,1,64,0) + This build transports and installs the following REMINDER EXCHANGE +"BLD",7935,1,65,0) +entries: +"BLD",7935,1,66,0) +MU NQF0013 HTN_MK 07/06/2011@15:08:53 +"BLD",7935,1,67,0) +MU NQF0024-ALL 07/31/2012@17:49:03 +"BLD",7935,1,68,0) +MU NQF0028 TOBACCO_MK 07/06/2011@15:14:49 +"BLD",7935,1,69,0) +MU NQF0028AB MANAGEMENT DI 06/08/2011@16:50:31 +"BLD",7935,1,70,0) +MU NQF0038 CHILD IMM SMH 07/27/2012@17:48:33 +"BLD",7935,1,71,0) +MU NQF0041 FLU_MK 07/06/2011@15:26:59 +"BLD",7935,1,72,0) +MU NQF0059_61_64_SMH 07/16/2012@10:46:17 +"BLD",7935,1,73,0) +MU NQF0421 ADULT BMI SMH 07/26/2012@11:00:17 +"BLD",7935,1,74,0) +MU STROKE 2.3.4.5.6.8.10 SMH 07/18/2012@10:33:53 +"BLD",7935,1,75,0) +MU NQF 0495 ED-1 07/17/2012@11:47:55 +"BLD",7935,1,76,0) +MU NQF 0497 ED-2 07/17/2012@11:50:23 +"BLD",7935,1,77,0) +MU VTE 1.2.3.4.5.6 SMH 07/20/2012@09:48:30 +"BLD",7935,1,78,0) +MU CPRS HELP DIS 08/01/2012@18:32:29 +"BLD",7935,1,79,0) + +"BLD",7935,1,80,0) + Routines: +"BLD",7935,1,81,0) + ========= +"BLD",7935,1,82,0) + C0Q1P2 (Transport and KIDS install routine) +"BLD",7935,1,83,0) + +"BLD",7935,1,84,0) + The second line of each of these routines now looks like: +"BLD",7935,1,85,0) + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 21 +"BLD",7935,1,86,0) + +"BLD",7935,1,87,0) + Documentation: +"BLD",7935,1,88,0) + +"BLD",7935,1,89,0) + +"BLD",7935,1,90,0) + Test Sites: +"BLD",7935,1,91,0) + =========== +"BLD",7935,1,92,0) + +"BLD",7935,1,93,0) + +"BLD",7935,1,94,0) + Compliance: +"BLD",7935,1,95,0) + =========== +"BLD",7935,1,96,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7935,1,97,0) + Conventions (version 3 April 2007). +"BLD",7935,1,98,0) + +"BLD",7935,1,99,0) + Installation Instructions: +"BLD",7935,1,100,0) + ========================== +"BLD",7935,1,101,0) + Pre-installation: +"BLD",7935,1,102,0) + +"BLD",7935,1,103,0) + Prerequisite patches: +"BLD",7935,1,104,0) + - PXRM*2.0*12 (Download from VA FOIA Site; part of a Multibuild) +"BLD",7935,1,105,0) + - PXRM*2.0*17 (Download from VA FOIA Site; part of a Multibuild) +"BLD",7935,1,106,0) + - TMG*1.0*17 (Download from Trac Server: +"BLD",7935,1,107,0) + https://trac.opensourcevista.net/svn/PGC/tags/TMG-PGC/) +"BLD",7935,1,108,0) + +"BLD",7935,1,109,0) + For a successful installation, you need to be sure that the labs that +"BLD",7935,1,110,0) +the Inpatient Measures rely on exist. If not, the Lab ADPAC needs to +"BLD",7935,1,111,0) +create them. These labs are: +"BLD",7935,1,112,0) + - LDL CHOLESTEROL +"BLD",7935,1,113,0) + - PLT +"BLD",7935,1,114,0) + - INR +"BLD",7935,1,115,0) + +"BLD",7935,1,116,0) + If these don't exist by the same name as above, the installer will be +"BLD",7935,1,117,0) +asked to rematch them. +"BLD",7935,1,118,0) + +"BLD",7935,1,119,0) + Users can remain on the system while this patch is installed. +"BLD",7935,1,120,0) + +"BLD",7935,1,121,0) + Install Time - less than 5 minutes +"BLD",7935,1,122,0) + +"BLD",7935,1,123,0) + The Pre-installation routine PRE^C0Q1P2 will delete existing Reminder +"BLD",7935,1,124,0) +Exchange entries with the same name. +"BLD",7935,1,125,0) + +"BLD",7935,1,126,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7935,1,127,0) + +"BLD",7935,1,128,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7935,1,129,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"BLD",7935,1,130,0) + Use the Load a Distribution option in KIDS to load it from a +"BLD",7935,1,131,0) + host file. +"BLD",7935,1,132,0) + +"BLD",7935,1,133,0) + 2. START UP KIDS +"BLD",7935,1,134,0) + +"BLD",7935,1,135,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7935,1,136,0) + [XPD MAIN]: +"BLD",7935,1,137,0) + +"BLD",7935,1,138,0) + Edits and Distribution ... +"BLD",7935,1,139,0) + Utilities ... +"BLD",7935,1,140,0) + Installation ... +"BLD",7935,1,141,0) + +"BLD",7935,1,142,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7935,1,143,0) + --- +"BLD",7935,1,144,0) + Load a Distribution +"BLD",7935,1,145,0) + Print Transport Global +"BLD",7935,1,146,0) + Compare Transport Global to Current System +"BLD",7935,1,147,0) + Verify Checksums in Transport Global +"BLD",7935,1,148,0) + Install Package(s) +"BLD",7935,1,149,0) + Restart Install of Package(s) +"BLD",7935,1,150,0) + Unload a Distribution +"BLD",7935,1,151,0) + Backup a Transport Global +"BLD",7935,1,152,0) + +"BLD",7935,1,153,0) + Select Installation Option: +"BLD",7935,1,154,0) + +"BLD",7935,1,155,0) + 3. Select Installation Option: +"BLD",7935,1,156,0) + +"BLD",7935,1,157,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7935,1,158,0) + NAME, enter C0Q*1.0*2): +"BLD",7935,1,159,0) + +"BLD",7935,1,160,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7935,1,161,0) + message of any routines exported with this patch. It will not +"BLD",7935,1,162,0) + backup any other changes such as DD's or templates. +"BLD",7935,1,163,0) + b. Compare Transport Global to Current System - This option will +"BLD",7935,1,164,0) + allow you to view all changes that will be made when this patch +"BLD",7935,1,165,0) + is installed. It compares all components of this patch +"BLD",7935,1,166,0) + (routines, DD's, templates, etc.). +"BLD",7935,1,167,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7935,1,168,0) + you to ensure the integrity of the routines that are in the +"BLD",7935,1,169,0) + transport global. +"BLD",7935,1,170,0) + +"BLD",7935,1,171,0) + 4. Select Installation Option: Install Package(s) +"BLD",7935,1,172,0) + +"BLD",7935,1,173,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7935,1,174,0) + +"BLD",7935,1,175,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7935,1,176,0) + and enter "C0Q*1.0*2" at the INSTALL NAME prompt. +"BLD",7935,1,177,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7935,1,178,0) + Install? NO//' answer NO +"BLD",7935,1,179,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7935,1,180,0) + NO//' answer NO +"BLD",7935,1,181,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7935,1,182,0) + and Protocols? NO//' answer NO +"BLD",7935,1,183,0) + +"BLD",7935,1,184,0) + The Post-installation routine POST^C0Q1P2 will install the Reminder +"BLD",7935,1,185,0) +Exchange entries. +"BLD",7935,1,186,0) + +"BLD",7935,1,187,0) +Here is an example installation log. It includes lab replacements. +"BLD",7935,1,188,0) +Select INSTALL NAME: C0Q*1.0*2 Loaded from Distribution Loaded +"BLD",7935,1,189,0) +from D +"BLD",7935,1,190,0) +istribution 8/3/12@14:23:27 +"BLD",7935,1,191,0) + => SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"BLD",7935,1,192,0) + +"BLD",7935,1,193,0) +This Distribution was loaded on Aug 03, 2012@14:23:27 with header of +"BLD",7935,1,194,0) + SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"BLD",7935,1,195,0) + It consisted of the following Install(s): +"BLD",7935,1,196,0) + C0Q*1.0*2 +"BLD",7935,1,197,0) + +"BLD",7935,1,198,0) + Checking C0Q*1.0*2 for overlap with VOE 1.0 . OK +"BLD",7935,1,199,0) + No overlap found +"BLD",7935,1,200,0) + +"BLD",7935,1,201,0) + +"BLD",7935,1,202,0) + Checking C0Q*1.0*2 for overlap with VOE 1.1 . OK +"BLD",7935,1,203,0) + No overlap found +"BLD",7935,1,204,0) + +"BLD",7935,1,205,0) + +"BLD",7935,1,206,0) + Checking C0Q*1.0*2 for overlap with NO HOME 1.0 . OK +"BLD",7935,1,207,0) + No overlap found +"BLD",7935,1,208,0) + +"BLD",7935,1,209,0) +Checking Install for Package C0Q*1.0*2 +"BLD",7935,1,210,0) + +"BLD",7935,1,211,0) +Install Questions for C0Q*1.0*2 +"BLD",7935,1,212,0) + +"BLD",7935,1,213,0) +Incoming Files: +"BLD",7935,1,214,0) + +"BLD",7935,1,215,0) + +"BLD",7935,1,216,0) + 811.8 REMINDER EXCHANGE (including data) +"BLD",7935,1,217,0) +Note: You already have the 'REMINDER EXCHANGE' File. +"BLD",7935,1,218,0) +I will OVERWRITE your data with mine. +"BLD",7935,1,219,0) + +"BLD",7935,1,220,0) + +"BLD",7935,1,221,0) +Want KIDS to INHIBIT LOGONs during the install? NO// +"BLD",7935,1,222,0) +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// +"BLD",7935,1,223,0) + +"BLD",7935,1,224,0) +Enter the Device you want to print the Install messages. +"BLD",7935,1,225,0) +You can queue the install by enter a 'Q' at the device prompt. +"BLD",7935,1,226,0) +Enter a '^' to abort the install. +"BLD",7935,1,227,0) + +"BLD",7935,1,228,0) +DEVICE: HOME// PHOME HOME PRINTER +"BLD",7935,1,229,0) + +"BLD",7935,1,230,0) + +"BLD",7935,1,231,0) + Install Started for C0Q*1.0*2 : +"BLD",7935,1,232,0) + Aug 03, 2012@14:23:33 +"BLD",7935,1,233,0) + +"BLD",7935,1,234,0) +Build Distribution Date: Aug 03, 2012 +"BLD",7935,1,235,0) + +"BLD",7935,1,236,0) + Installing Routines:.. +"BLD",7935,1,237,0) + Aug 03, 2012@14:23:33 +"BLD",7935,1,238,0) + +"BLD",7935,1,239,0) + Running Pre-Install Routine: PRE^C0Q1P2. +"BLD",7935,1,240,0) + +"BLD",7935,1,241,0) + Installing Data Dictionaries: .. +"BLD",7935,1,242,0) + Aug 03, 2012@14:23:34 +"BLD",7935,1,243,0) + +"BLD",7935,1,244,0) + Installing Data: +"BLD",7935,1,245,0) + Aug 03, 2012@14:23:35 +"BLD",7935,1,246,0) + +"BLD",7935,1,247,0) + Running Post-Install Routine: POST^C0Q1P2. +"BLD",7935,1,248,0) + +"BLD",7935,1,249,0) +Installing reminder exchange entry MU NQF0024-ALL +"BLD",7935,1,250,0) + +"BLD",7935,1,251,0) +Installing reminder exchange entry MU NQF0013 HTN_MK +"BLD",7935,1,252,0) + +"BLD",7935,1,253,0) +Installing reminder exchange entry MU NQF0028 TOBACCO_MK +"BLD",7935,1,254,0) + +"BLD",7935,1,255,0) +Installing reminder exchange entry MU NQF0041 FLU_MK +"BLD",7935,1,256,0) + +"BLD",7935,1,257,0) +Installing reminder exchange entry MU NQF0059_61_64_SMH +"BLD",7935,1,258,0) + +"BLD",7935,1,259,0) +Installing reminder exchange entry MU NQF 0495 ED-1 +"BLD",7935,1,260,0) + +"BLD",7935,1,261,0) +Installing reminder exchange entry MU NQF 0497 ED-2 +"BLD",7935,1,262,0) + +"BLD",7935,1,263,0) +Installing reminder exchange entry MU STROKE 2.3.4.5.6.8.10 SMH +"BLD",7935,1,264,0) + +"BLD",7935,1,265,0) +Installing reminder exchange entry MU VTE 1.2.3.4.5.6 SMH +"BLD",7935,1,266,0) +Finding LT.INR does not exist, what do you want to do? +"BLD",7935,1,267,0) + +"BLD",7935,1,268,0) + Select one of the following: +"BLD",7935,1,269,0) + +"BLD",7935,1,270,0) + +"BLD",7935,1,271,0) + D Delete +"BLD",7935,1,272,0) + P Replace with an existing entry +"BLD",7935,1,273,0) + Q Quit the install +"BLD",7935,1,274,0) + +"BLD",7935,1,275,0) +Enter response: P Replace with an existing entry +"BLD",7935,1,276,0) +Select LABORATORY TEST NAME: SAM INR +"BLD",7935,1,277,0) +Finding LT.INR does not exist, what do you want to do? +"BLD",7935,1,278,0) + +"BLD",7935,1,279,0) + Select one of the following: +"BLD",7935,1,280,0) + +"BLD",7935,1,281,0) + +"BLD",7935,1,282,0) + D Delete +"BLD",7935,1,283,0) + P Replace with an existing entry +"BLD",7935,1,284,0) + Q Quit the install +"BLD",7935,1,285,0) + +"BLD",7935,1,286,0) +Enter response: P Replace with an existing entry +"BLD",7935,1,287,0) +Select LABORATORY TEST NAME: SAM INR +"BLD",7935,1,288,0) + +"BLD",7935,1,289,0) +Installing reminder exchange entry MU NQF0421 ADULT BMI SMH +"BLD",7935,1,290,0) + +"BLD",7935,1,291,0) +Installing reminder exchange entry MU NQF0038 CHILD IMM SMH +"BLD",7935,1,292,0) + +"BLD",7935,1,293,0) +Installing reminder exchange entry MU CPRS HELP DIS +"BLD",7935,1,294,0) + +"BLD",7935,1,295,0) + Updating Routine file...... +"BLD",7935,1,296,0) + +"BLD",7935,1,297,0) + Updating KIDS files....... +"BLD",7935,1,298,0) + +"BLD",7935,1,299,0) + C0Q*1.0*2 Installed. +"BLD",7935,1,300,0) + Aug 03, 2012@14:24:27 +"BLD",7935,1,301,0) + +"BLD",7935,1,302,0) + Not a VA primary domain +"BLD",7935,1,303,0) + +"BLD",7935,1,304,0) + NO Install Message sent +"BLD",7935,1,305,0) + +"BLD",7935,1,306,0) + After installation, make sure you install C0Q*1.0*3, which relies on +"BLD",7935,1,307,0) +this patch. +"BLD",7935,4,0) +^9.64PA^811.8^1 +"BLD",7935,4,811.8,0) +811.8 +"BLD",7935,4,811.8,222) +y^y^f^^n^^y^o^n +"BLD",7935,4,811.8,224) +I $$EXFINC^C0Q1P2(Y) +"BLD",7935,4,"B",811.8,811.8) + +"BLD",7935,6.3) +23 +"BLD",7935,"ABPKG") +n +"BLD",7935,"INI") +PRE^C0Q1P2 +"BLD",7935,"INIT") +POST^C0Q1P2 +"BLD",7935,"KRN",0) +^9.67PA^779.2^20 +"BLD",7935,"KRN",.4,0) +.4 +"BLD",7935,"KRN",.401,0) +.401 +"BLD",7935,"KRN",.402,0) +.402 +"BLD",7935,"KRN",.403,0) +.403 +"BLD",7935,"KRN",.5,0) +.5 +"BLD",7935,"KRN",.84,0) +.84 +"BLD",7935,"KRN",3.6,0) +3.6 +"BLD",7935,"KRN",3.8,0) +3.8 +"BLD",7935,"KRN",9.2,0) +9.2 +"BLD",7935,"KRN",9.8,0) +9.8 +"BLD",7935,"KRN",19,0) +19 +"BLD",7935,"KRN",19.1,0) +19.1 +"BLD",7935,"KRN",101,0) +101 +"BLD",7935,"KRN",409.61,0) +409.61 +"BLD",7935,"KRN",771,0) +771 +"BLD",7935,"KRN",779.2,0) +779.2 +"BLD",7935,"KRN",870,0) +870 +"BLD",7935,"KRN",8989.51,0) +8989.51 +"BLD",7935,"KRN",8989.52,0) +8989.52 +"BLD",7935,"KRN",8994,0) +8994 +"BLD",7935,"KRN","B",.4,.4) + +"BLD",7935,"KRN","B",.401,.401) + +"BLD",7935,"KRN","B",.402,.402) + +"BLD",7935,"KRN","B",.403,.403) + +"BLD",7935,"KRN","B",.5,.5) + +"BLD",7935,"KRN","B",.84,.84) + +"BLD",7935,"KRN","B",3.6,3.6) + +"BLD",7935,"KRN","B",3.8,3.8) + +"BLD",7935,"KRN","B",9.2,9.2) + +"BLD",7935,"KRN","B",9.8,9.8) + +"BLD",7935,"KRN","B",19,19) + +"BLD",7935,"KRN","B",19.1,19.1) + +"BLD",7935,"KRN","B",101,101) + +"BLD",7935,"KRN","B",409.61,409.61) + +"BLD",7935,"KRN","B",771,771) + +"BLD",7935,"KRN","B",779.2,779.2) + +"BLD",7935,"KRN","B",870,870) + +"BLD",7935,"KRN","B",8989.51,8989.51) + +"BLD",7935,"KRN","B",8989.52,8989.52) + +"BLD",7935,"KRN","B",8994,8994) + +"BLD",7935,"PRET") + +"BLD",7935,"QDEF") +^^^^NO^^^^NO^^NO +"BLD",7935,"QUES",0) +^9.62^^ +"BLD",7935,"REQB",0) +^9.611^3^3 +"BLD",7935,"REQB",1,0) +PXRM*2.0*12^2 +"BLD",7935,"REQB",2,0) +PXRM*2.0*17^2 +"BLD",7935,"REQB",3,0) +TMG*1.0*17^2 +"BLD",7935,"REQB","B","PXRM*2.0*12",1) + +"BLD",7935,"REQB","B","PXRM*2.0*17",2) + +"BLD",7935,"REQB","B","TMG*1.0*17",3) + +"DATA",811.8,127,0) +MU NQF0013 HTN_MK^KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION^3110706.150853 +"DATA",811.8,127,100,0) +^811.801^387^387 +"DATA",811.8,127,100,1,0) + +"DATA",811.8,127,100,2,0) + +"DATA",811.8,127,100,3,0) +2.0P17 +"DATA",811.8,127,100,4,0) +323 +"DATA",811.8,127,100,5,0) + +"DATA",811.8,127,100,6,0) +MU NQF0013 HTN_MK +"DATA",811.8,127,100,7,0) +KING,MATTHEW MICHAEL +"DATA",811.8,127,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,127,100,9,0) +07/06/2011@15:08:53 +"DATA",811.8,127,100,10,0) + +"DATA",811.8,127,100,11,0) + +"DATA",811.8,127,100,17,0) + +"DATA",811.8,127,100,18,0) +MU NQF0013 HTN +"DATA",811.8,127,100,19,0) + +"DATA",811.8,127,100,20,0) + +"DATA",811.8,127,100,21,0) +GMRV VITAL TYPE +"DATA",811.8,127,100,22,0) +120.51 +"DATA",811.8,127,100,23,0) +BLOOD PRESSURE +"DATA",811.8,127,100,24,0) +1 +"DATA",811.8,127,100,25,0) +4024959586 +"DATA",811.8,127,100,26,0) +NO +"DATA",811.8,127,100,27,0) + +"DATA",811.8,127,100,28,0) + +"DATA",811.8,127,100,31,0) + +"DATA",811.8,127,100,32,0) + +"DATA",811.8,127,100,33,0) + +"DATA",811.8,127,100,34,0) +REMINDER TAXONOMY +"DATA",811.8,127,100,35,0) +811.2 +"DATA",811.8,127,100,36,0) +MU NQF0013 ENC-INCLUSIONS ALL +"DATA",811.8,127,100,37,0) +140 +"DATA",811.8,127,100,38,0) +1860899415 +"DATA",811.8,127,100,39,0) +NO +"DATA",811.8,127,100,40,0) + +"DATA",811.8,127,100,41,0) + +"DATA",811.8,127,100,80,0) + +"DATA",811.8,127,100,81,0) + +"DATA",811.8,127,100,82,0) + +"DATA",811.8,127,100,93,0) + +"DATA",811.8,127,100,94,0) + +"DATA",811.8,127,100,95,0) + +"DATA",811.8,127,100,96,0) +REMINDER TAXONOMY +"DATA",811.8,127,100,97,0) +811.2 +"DATA",811.8,127,100,98,0) +MU NQF0013 HTN CODES +"DATA",811.8,127,100,99,0) +131 +"DATA",811.8,127,100,100,0) +1754662415 +"DATA",811.8,127,100,101,0) +NO +"DATA",811.8,127,100,102,0) + +"DATA",811.8,127,100,103,0) + +"DATA",811.8,127,100,115,0) + +"DATA",811.8,127,100,116,0) + +"DATA",811.8,127,100,117,0) + +"DATA",811.8,127,100,121,0) + +"DATA",811.8,127,100,122,0) + +"DATA",811.8,127,100,123,0) + +"DATA",811.8,127,100,124,0) +REMINDER TERM +"DATA",811.8,127,100,125,0) +811.5 +"DATA",811.8,127,100,126,0) +MU NQF0013 BP ANY +"DATA",811.8,127,100,127,0) +535 +"DATA",811.8,127,100,128,0) +2282931117 +"DATA",811.8,127,100,129,0) +NO +"DATA",811.8,127,100,130,0) + +"DATA",811.8,127,100,131,0) + +"DATA",811.8,127,100,142,0) + +"DATA",811.8,127,100,143,0) + +"DATA",811.8,127,100,144,0) + +"DATA",811.8,127,100,148,0) + +"DATA",811.8,127,100,149,0) + +"DATA",811.8,127,100,150,0) + +"DATA",811.8,127,100,151,0) +REMINDER DEFINITION +"DATA",811.8,127,100,152,0) +811.9 +"DATA",811.8,127,100,153,0) +MU NQF0013 HTM DEM LIST2 +"DATA",811.8,127,100,154,0) +148 +"DATA",811.8,127,100,155,0) +2179470209 +"DATA",811.8,127,100,156,0) +NO +"DATA",811.8,127,100,157,0) + +"DATA",811.8,127,100,158,0) +1 +"DATA",811.8,127,100,192,0) +811.925;+152,+148,;10~FN(1)>1 +"DATA",811.8,127,100,193,0) +811.925;+152,+148,;12~AND +"DATA",811.8,127,100,194,0) +811.925;+152,+148,;41~0 +"DATA",811.8,127,100,195,0) +811.925;+152,+148,;42~0 +"DATA",811.8,127,100,196,0) +811.9255;+153,+152,+148,;.01~1 +"DATA",811.8,127,100,197,0) +811.9255;+153,+152,+148,;.02~COUNT +"DATA",811.8,127,100,198,0) +811.9256;+154,+153,+152,+148,;.01~1 +"DATA",811.8,127,100,199,0) +811.97;+155,+148,;.01~99Y +"DATA",811.8,127,100,200,0) +811.97;+155,+148,;1~18 +"DATA",811.8,127,100,201,0) +811.97;+155,+148,;5~0 +"DATA",811.8,127,100,202,0) +811.97;+155,+148,;6~0 +"DATA",811.8,127,100,203,0) +]]> +"DATA",811.8,127,100,204,0) + +"DATA",811.8,127,100,205,0) + +"DATA",811.8,127,100,206,0) + +"DATA",811.8,127,100,215,0) + +"DATA",811.8,127,100,216,0) + +"DATA",811.8,127,100,217,0) + +"DATA",811.8,127,100,218,0) +REMINDER LIST RULE +"DATA",811.8,127,100,219,0) +810.4 +"DATA",811.8,127,100,220,0) +MU NQF0013 HTN NUM FR +"DATA",811.8,127,100,221,0) +143 +"DATA",811.8,127,100,222,0) +3246118128 +"DATA",811.8,127,100,223,0) +NO +"DATA",811.8,127,100,224,0) + +"DATA",811.8,127,100,225,0) + +"DATA",811.8,127,100,234,0) + +"DATA",811.8,127,100,235,0) + +"DATA",811.8,127,100,236,0) + +"DATA",811.8,127,100,239,0) + +"DATA",811.8,127,100,240,0) + +"DATA",811.8,127,100,241,0) + +"DATA",811.8,127,100,242,0) +REMINDER LIST RULE +"DATA",811.8,127,100,243,0) +810.4 +"DATA",811.8,127,100,244,0) +MU NFQ0013 HTN DENOM2 RR +"DATA",811.8,127,100,245,0) +166 +"DATA",811.8,127,100,246,0) +2432739085 +"DATA",811.8,127,100,247,0) +NO +"DATA",811.8,127,100,248,0) + +"DATA",811.8,127,100,249,0) + +"DATA",811.8,127,100,258,0) + +"DATA",811.8,127,100,259,0) + +"DATA",811.8,127,100,260,0) + +"DATA",811.8,127,100,263,0) + +"DATA",811.8,127,100,264,0) + +"DATA",811.8,127,100,265,0) + +"DATA",811.8,127,100,266,0) +REMINDER LIST RULE +"DATA",811.8,127,100,267,0) +810.4 +"DATA",811.8,127,100,268,0) +MU NQF0013 HTN NUMER2 RS +"DATA",811.8,127,100,269,0) +142 +"DATA",811.8,127,100,270,0) +2055164988 +"DATA",811.8,127,100,271,0) +YES +"DATA",811.8,127,100,272,0) + +"DATA",811.8,127,100,273,0) + +"DATA",811.8,127,100,287,0) + +"DATA",811.8,127,100,288,0) + +"DATA",811.8,127,100,289,0) + +"DATA",811.8,127,100,294,0) + +"DATA",811.8,127,100,295,0) + +"DATA",811.8,127,100,296,0) + +"DATA",811.8,127,100,297,0) +REMINDER LIST RULE +"DATA",811.8,127,100,298,0) +810.4 +"DATA",811.8,127,100,299,0) +MU NQF0013 HTN DENOM2 RS +"DATA",811.8,127,100,300,0) +167 +"DATA",811.8,127,100,301,0) +3891878762 +"DATA",811.8,127,100,302,0) +YES +"DATA",811.8,127,100,303,0) + +"DATA",811.8,127,100,304,0) + +"DATA",811.8,127,100,315,0) + +"DATA",811.8,127,100,316,0) + +"DATA",811.8,127,100,317,0) + +"DATA",811.8,127,100,321,0) + +"DATA",811.8,127,100,322,0) + +"DATA",811.8,127,100,323,0) + +"DATA",811.8,127,100,324,0) +9 +"DATA",811.8,127,100,325,0) + +"DATA",811.8,127,100,326,0) +29 +"DATA",811.8,127,100,327,0) +29 +"DATA",811.8,127,100,328,0) +20 +"DATA",811.8,127,100,329,0) + +"DATA",811.8,127,100,330,0) + +"DATA",811.8,127,100,331,0) +78 +"DATA",811.8,127,100,332,0) +42 +"DATA",811.8,127,100,333,0) +33 +"DATA",811.8,127,100,334,0) +91 +"DATA",811.8,127,100,335,0) +83 +"DATA",811.8,127,100,336,0) + +"DATA",811.8,127,100,337,0) + +"DATA",811.8,127,100,338,0) +113 +"DATA",811.8,127,100,339,0) +104 +"DATA",811.8,127,100,340,0) +95 +"DATA",811.8,127,100,341,0) +119 +"DATA",811.8,127,100,342,0) +118 +"DATA",811.8,127,100,343,0) + +"DATA",811.8,127,100,344,0) + +"DATA",811.8,127,100,345,0) +140 +"DATA",811.8,127,100,346,0) +132 +"DATA",811.8,127,100,347,0) +123 +"DATA",811.8,127,100,348,0) +146 +"DATA",811.8,127,100,349,0) +145 +"DATA",811.8,127,100,350,0) + +"DATA",811.8,127,100,351,0) + +"DATA",811.8,127,100,352,0) +202 +"DATA",811.8,127,100,353,0) +159 +"DATA",811.8,127,100,354,0) +150 +"DATA",811.8,127,100,355,0) +213 +"DATA",811.8,127,100,356,0) +207 +"DATA",811.8,127,100,357,0) + +"DATA",811.8,127,100,358,0) + +"DATA",811.8,127,100,359,0) +232 +"DATA",811.8,127,100,360,0) +226 +"DATA",811.8,127,100,361,0) +217 +"DATA",811.8,127,100,362,0) +237 +"DATA",811.8,127,100,363,0) +237 +"DATA",811.8,127,100,364,0) + +"DATA",811.8,127,100,365,0) + +"DATA",811.8,127,100,366,0) +256 +"DATA",811.8,127,100,367,0) +250 +"DATA",811.8,127,100,368,0) +241 +"DATA",811.8,127,100,369,0) +261 +"DATA",811.8,127,100,370,0) +261 +"DATA",811.8,127,100,371,0) + +"DATA",811.8,127,100,372,0) + +"DATA",811.8,127,100,373,0) +285 +"DATA",811.8,127,100,374,0) +274 +"DATA",811.8,127,100,375,0) +265 +"DATA",811.8,127,100,376,0) +292 +"DATA",811.8,127,100,377,0) +290 +"DATA",811.8,127,100,378,0) + +"DATA",811.8,127,100,379,0) + +"DATA",811.8,127,100,380,0) +313 +"DATA",811.8,127,100,381,0) +305 +"DATA",811.8,127,100,382,0) +296 +"DATA",811.8,127,100,383,0) +319 +"DATA",811.8,127,100,384,0) +318 +"DATA",811.8,127,100,385,0) + +"DATA",811.8,127,100,386,0) + +"DATA",811.8,127,100,387,0) + +"DATA",811.8,127,110,0) +^811.804^14^14 +"DATA",811.8,127,110,1,0) +Source: KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION +"DATA",811.8,127,110,2,0) +Date Packed: 07/06/2011@15:08:53 +"DATA",811.8,127,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,127,110,4,0) + +"DATA",811.8,127,110,5,0) +Description: +"DATA",811.8,127,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,127,110,7,0) +REMINDER LIST RULE +"DATA",811.8,127,110,8,0) + MU NQF0013 HTN NUMER2 RS +"DATA",811.8,127,110,9,0) + MU NQF0013 HTN DENOM2 RS +"DATA",811.8,127,110,10,0) + +"DATA",811.8,127,110,11,0) +Keywords: +"DATA",811.8,127,110,12,0) +MU NQF0013 HTN +"DATA",811.8,127,110,13,0) + +"DATA",811.8,127,110,14,0) +Components: +"DATA",811.8,127,119) +5 +"DATA",811.8,127,120,0) +^811.802A^9^9 +"DATA",811.8,127,120,1,0) +GMRV VITAL TYPE^120.51^1 +"DATA",811.8,127,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,127,120,1,1,1,0) +BLOOD PRESSURE^29^29^^^0^0 +"DATA",811.8,127,120,2,0) +REMINDER TAXONOMY^811.2^2 +"DATA",811.8,127,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,127,120,2,1,1,0) +MU NQF0013 ENC-INCLUSIONS ALL^42^78^83^91^1^0 +"DATA",811.8,127,120,2,1,2,0) +MU NQF0013 HTN CODES^104^113^118^119^1^0 +"DATA",811.8,127,120,3,0) +REMINDER TERM^811.5^1 +"DATA",811.8,127,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,127,120,3,1,1,0) +MU NQF0013 BP ANY^132^140^145^146^1^0 +"DATA",811.8,127,120,4,0) +REMINDER DEFINITION^811.9^1 +"DATA",811.8,127,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,127,120,4,1,1,0) +MU NQF0013 HTM DEM LIST2^159^202^207^213^1^0 +"DATA",811.8,127,120,5,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,127,120,5,1,0) +^811.8021A^4^4 +"DATA",811.8,127,120,5,1,1,0) +MU NQF0013 HTN NUM FR^226^232^237^237^1^0 +"DATA",811.8,127,120,5,1,2,0) +MU NFQ0013 HTN DENOM2 RR^250^256^261^261^1^0 +"DATA",811.8,127,120,5,1,3,0) +MU NQF0013 HTN NUMER2 RS^274^285^290^292^1^1 +"DATA",811.8,127,120,5,1,4,0) +MU NQF0013 HTN DENOM2 RS^305^313^318^319^1^1 +"DATA",811.8,127,130,0) +^811.803DA^1^1 +"DATA",811.8,127,130,1,0) +3120713.132307^MANAGER,SYSTEM^SILENT +"DATA",811.8,127,130,1,1,0) +^811.8031A^8^8 +"DATA",811.8,127,130,1,1,1,0) +1^REMINDER TAXONOMY^MU NQF0013 ENC-INCLUSIONS ALL^S^ +"DATA",811.8,127,130,1,1,2,0) +2^REMINDER TAXONOMY^MU NQF0013 HTN CODES^S^ +"DATA",811.8,127,130,1,1,3,0) +3^REMINDER TERM^MU NQF0013 BP ANY^S^ +"DATA",811.8,127,130,1,1,4,0) +4^REMINDER DEFINITION^MU NQF0013 HTM DEM LIST2^S^ +"DATA",811.8,127,130,1,1,5,0) +5^REMINDER LIST RULE^MU NQF0013 HTN NUM FR^S^ +"DATA",811.8,127,130,1,1,6,0) +6^REMINDER LIST RULE^MU NFQ0013 HTN DENOM2 RR^S^ +"DATA",811.8,127,130,1,1,7,0) +7^REMINDER LIST RULE^MU NQF0013 HTN NUMER2 RS^S^ +"DATA",811.8,127,130,1,1,8,0) +8^REMINDER LIST RULE^MU NQF0013 HTN DENOM2 RS^S^ +"DATA",811.8,132,0) +MU NQF0028 TOBACCO_MK^KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION^3110706.151449 +"DATA",811.8,132,100,0) +^811.801^836^836 +"DATA",811.8,132,100,1,0) + +"DATA",811.8,132,100,2,0) + +"DATA",811.8,132,100,3,0) +2.0P17 +"DATA",811.8,132,100,4,0) +689 +"DATA",811.8,132,100,5,0) + +"DATA",811.8,132,100,6,0) +MU NQF0028 TOBACCO_MK +"DATA",811.8,132,100,7,0) +KING,MATTHEW MICHAEL +"DATA",811.8,132,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,132,100,9,0) +07/06/2011@15:14:49 +"DATA",811.8,132,100,10,0) + +"DATA",811.8,132,100,11,0) + +"DATA",811.8,132,100,18,0) + +"DATA",811.8,132,100,19,0) +MU NQF0028 TOBACCO +"DATA",811.8,132,100,20,0) + +"DATA",811.8,132,100,21,0) + +"DATA",811.8,132,100,22,0) +HEALTH FACTORS +"DATA",811.8,132,100,23,0) +9999999.64 +"DATA",811.8,132,100,24,0) +SNOMED CODES +"DATA",811.8,132,100,25,0) +500013 +"DATA",811.8,132,100,26,0) +3190378291 +"DATA",811.8,132,100,27,0) +NO +"DATA",811.8,132,100,28,0) + +"DATA",811.8,132,100,29,0) + +"DATA",811.8,132,100,33,0) + +"DATA",811.8,132,100,34,0) + +"DATA",811.8,132,100,35,0) + +"DATA",811.8,132,100,36,0) +HEALTH FACTORS +"DATA",811.8,132,100,37,0) +9999999.64 +"DATA",811.8,132,100,38,0) +395700008 +"DATA",811.8,132,100,39,0) +500247 +"DATA",811.8,132,100,40,0) +984823388 +"DATA",811.8,132,100,41,0) +NO +"DATA",811.8,132,100,42,0) + +"DATA",811.8,132,100,43,0) + +"DATA",811.8,132,100,50,0) + +"DATA",811.8,132,100,51,0) + +"DATA",811.8,132,100,52,0) + +"DATA",811.8,132,100,53,0) +HEALTH FACTORS +"DATA",811.8,132,100,54,0) +9999999.64 +"DATA",811.8,132,100,55,0) +384742004 +"DATA",811.8,132,100,56,0) +500246 +"DATA",811.8,132,100,57,0) +3679292001 +"DATA",811.8,132,100,58,0) +NO +"DATA",811.8,132,100,59,0) + +"DATA",811.8,132,100,60,0) + +"DATA",811.8,132,100,67,0) + +"DATA",811.8,132,100,68,0) + +"DATA",811.8,132,100,69,0) + +"DATA",811.8,132,100,70,0) +HEALTH FACTORS +"DATA",811.8,132,100,71,0) +9999999.64 +"DATA",811.8,132,100,72,0) +225323000 +"DATA",811.8,132,100,73,0) +500245 +"DATA",811.8,132,100,74,0) +1335550128 +"DATA",811.8,132,100,75,0) +NO +"DATA",811.8,132,100,76,0) + +"DATA",811.8,132,100,77,0) + +"DATA",811.8,132,100,84,0) + +"DATA",811.8,132,100,85,0) + +"DATA",811.8,132,100,86,0) + +"DATA",811.8,132,100,87,0) +HEALTH FACTORS +"DATA",811.8,132,100,88,0) +9999999.64 +"DATA",811.8,132,100,89,0) +401068004 +"DATA",811.8,132,100,90,0) +500224 +"DATA",811.8,132,100,91,0) +1922052298 +"DATA",811.8,132,100,92,0) +NO +"DATA",811.8,132,100,93,0) + +"DATA",811.8,132,100,94,0) + +"DATA",811.8,132,100,100,0) + +"DATA",811.8,132,100,101,0) + +"DATA",811.8,132,100,102,0) + +"DATA",811.8,132,100,103,0) +HEALTH FACTORS +"DATA",811.8,132,100,104,0) +9999999.64 +"DATA",811.8,132,100,105,0) +110483000 +"DATA",811.8,132,100,106,0) +500244 +"DATA",811.8,132,100,107,0) +1262444182 +"DATA",811.8,132,100,108,0) +NO +"DATA",811.8,132,100,109,0) + +"DATA",811.8,132,100,110,0) + +"DATA",811.8,132,100,117,0) + +"DATA",811.8,132,100,118,0) + +"DATA",811.8,132,100,119,0) + +"DATA",811.8,132,100,120,0) +HEALTH FACTORS +"DATA",811.8,132,100,121,0) +9999999.64 +"DATA",811.8,132,100,122,0) +89765005 +"DATA",811.8,132,100,123,0) +500243 +"DATA",811.8,132,100,124,0) +4124297208 +"DATA",811.8,132,100,125,0) +NO +"DATA",811.8,132,100,126,0) + +"DATA",811.8,132,100,127,0) + +"DATA",811.8,132,100,134,0) + +"DATA",811.8,132,100,135,0) + +"DATA",811.8,132,100,136,0) + +"DATA",811.8,132,100,137,0) +HEALTH FACTORS +"DATA",811.8,132,100,138,0) +9999999.64 +"DATA",811.8,132,100,139,0) +81703003 +"DATA",811.8,132,100,140,0) +500242 +"DATA",811.8,132,100,141,0) +3655332569 +"DATA",811.8,132,100,142,0) +NO +"DATA",811.8,132,100,143,0) + +"DATA",811.8,132,100,144,0) + +"DATA",811.8,132,100,151,0) + +"DATA",811.8,132,100,152,0) + +"DATA",811.8,132,100,153,0) + +"DATA",811.8,132,100,154,0) +HEALTH FACTORS +"DATA",811.8,132,100,155,0) +9999999.64 +"DATA",811.8,132,100,156,0) +228504007 +"DATA",811.8,132,100,157,0) +500241 +"DATA",811.8,132,100,158,0) +3382870893 +"DATA",811.8,132,100,159,0) +NO +"DATA",811.8,132,100,160,0) + +"DATA",811.8,132,100,161,0) + +"DATA",811.8,132,100,168,0) + +"DATA",811.8,132,100,169,0) + +"DATA",811.8,132,100,170,0) + +"DATA",811.8,132,100,171,0) +HEALTH FACTORS +"DATA",811.8,132,100,172,0) +9999999.64 +"DATA",811.8,132,100,173,0) +266919005 +"DATA",811.8,132,100,174,0) +500250 +"DATA",811.8,132,100,175,0) +103305487 +"DATA",811.8,132,100,176,0) +NO +"DATA",811.8,132,100,177,0) + +"DATA",811.8,132,100,178,0) + +"DATA",811.8,132,100,185,0) + +"DATA",811.8,132,100,186,0) + +"DATA",811.8,132,100,187,0) + +"DATA",811.8,132,100,188,0) +HEALTH FACTORS +"DATA",811.8,132,100,189,0) +9999999.64 +"DATA",811.8,132,100,190,0) +105539002 +"DATA",811.8,132,100,191,0) +500249 +"DATA",811.8,132,100,192,0) +3625812579 +"DATA",811.8,132,100,193,0) +NO +"DATA",811.8,132,100,194,0) + +"DATA",811.8,132,100,195,0) + +"DATA",811.8,132,100,202,0) + +"DATA",811.8,132,100,203,0) + +"DATA",811.8,132,100,204,0) + +"DATA",811.8,132,100,205,0) +HEALTH FACTORS +"DATA",811.8,132,100,206,0) +9999999.64 +"DATA",811.8,132,100,207,0) +228491005 +"DATA",811.8,132,100,208,0) +500248 +"DATA",811.8,132,100,209,0) +1154489745 +"DATA",811.8,132,100,210,0) +NO +"DATA",811.8,132,100,211,0) + +"DATA",811.8,132,100,212,0) + +"DATA",811.8,132,100,219,0) + +"DATA",811.8,132,100,220,0) + +"DATA",811.8,132,100,221,0) + +"DATA",811.8,132,100,222,0) +REMINDER TAXONOMY +"DATA",811.8,132,100,223,0) +811.2 +"DATA",811.8,132,100,224,0) +MU NQF0028AB DENOM ENC INCLUSIONS +"DATA",811.8,132,100,225,0) +136 +"DATA",811.8,132,100,226,0) +1029997974 +"DATA",811.8,132,100,227,0) +NO +"DATA",811.8,132,100,228,0) + +"DATA",811.8,132,100,229,0) + +"DATA",811.8,132,100,284,0) + +"DATA",811.8,132,100,285,0) + +"DATA",811.8,132,100,286,0) + +"DATA",811.8,132,100,303,0) + +"DATA",811.8,132,100,304,0) + +"DATA",811.8,132,100,305,0) + +"DATA",811.8,132,100,306,0) +REMINDER TERM +"DATA",811.8,132,100,307,0) +811.5 +"DATA",811.8,132,100,308,0) +PQRI M0028 INTERVENTION INCU +"DATA",811.8,132,100,309,0) +520 +"DATA",811.8,132,100,310,0) +1204822678 +"DATA",811.8,132,100,311,0) +NO +"DATA",811.8,132,100,312,0) + +"DATA",811.8,132,100,313,0) + +"DATA",811.8,132,100,324,0) + +"DATA",811.8,132,100,325,0) + +"DATA",811.8,132,100,326,0) + +"DATA",811.8,132,100,333,0) + +"DATA",811.8,132,100,334,0) + +"DATA",811.8,132,100,335,0) + +"DATA",811.8,132,100,336,0) +REMINDER TERM +"DATA",811.8,132,100,337,0) +811.5 +"DATA",811.8,132,100,338,0) +PQRI M0028 TOBACCO USER SNO INC +"DATA",811.8,132,100,339,0) +489 +"DATA",811.8,132,100,340,0) +2036227251 +"DATA",811.8,132,100,341,0) +NO +"DATA",811.8,132,100,342,0) + +"DATA",811.8,132,100,343,0) + +"DATA",811.8,132,100,354,0) + +"DATA",811.8,132,100,355,0) + +"DATA",811.8,132,100,356,0) + +"DATA",811.8,132,100,363,0) + +"DATA",811.8,132,100,364,0) + +"DATA",811.8,132,100,365,0) + +"DATA",811.8,132,100,366,0) +REMINDER TERM +"DATA",811.8,132,100,367,0) +811.5 +"DATA",811.8,132,100,368,0) +PQRI M0028 NON USERS INCL +"DATA",811.8,132,100,369,0) +521 +"DATA",811.8,132,100,370,0) +1027961898 +"DATA",811.8,132,100,371,0) +NO +"DATA",811.8,132,100,372,0) + +"DATA",811.8,132,100,373,0) + +"DATA",811.8,132,100,383,0) + +"DATA",811.8,132,100,384,0) + +"DATA",811.8,132,100,385,0) + +"DATA",811.8,132,100,391,0) + +"DATA",811.8,132,100,392,0) + +"DATA",811.8,132,100,393,0) + +"DATA",811.8,132,100,394,0) +REMINDER DEFINITION +"DATA",811.8,132,100,395,0) +811.9 +"DATA",811.8,132,100,396,0) +MU NQF0028B SMOKING DENOM LIST +"DATA",811.8,132,100,397,0) +173 +"DATA",811.8,132,100,398,0) +3779101274 +"DATA",811.8,132,100,399,0) +NO +"DATA",811.8,132,100,400,0) + +"DATA",811.8,132,100,401,0) +1 +"DATA",811.8,132,100,445,0) +811.925;+177,+173,;10~FN(1)>1 +"DATA",811.8,132,100,446,0) +811.925;+177,+173,;12~AND +"DATA",811.8,132,100,447,0) +811.925;+177,+173,;41~0 +"DATA",811.8,132,100,448,0) +811.925;+177,+173,;42~0 +"DATA",811.8,132,100,449,0) +811.9255;+178,+177,+173,;.01~1 +"DATA",811.8,132,100,450,0) +811.9255;+178,+177,+173,;.02~COUNT +"DATA",811.8,132,100,451,0) +811.9256;+179,+178,+177,+173,;.01~1 +"DATA",811.8,132,100,452,0) +811.97;+180,+173,;.01~99Y +"DATA",811.8,132,100,453,0) +811.97;+180,+173,;1~18 +"DATA",811.8,132,100,454,0) +811.97;+180,+173,;5~0 +"DATA",811.8,132,100,455,0) +811.97;+180,+173,;6~0 +"DATA",811.8,132,100,456,0) +]]> +"DATA",811.8,132,100,457,0) + +"DATA",811.8,132,100,458,0) + +"DATA",811.8,132,100,459,0) + +"DATA",811.8,132,100,468,0) + +"DATA",811.8,132,100,469,0) + +"DATA",811.8,132,100,470,0) + +"DATA",811.8,132,100,471,0) +REMINDER DEFINITION +"DATA",811.8,132,100,472,0) +811.9 +"DATA",811.8,132,100,473,0) +MU NQF0028A SMOKING SCREEN NUM PL +"DATA",811.8,132,100,474,0) +180 +"DATA",811.8,132,100,475,0) +2766998037 +"DATA",811.8,132,100,476,0) +NO +"DATA",811.8,132,100,477,0) + +"DATA",811.8,132,100,478,0) + +"DATA",811.8,132,100,522,0) + +"DATA",811.8,132,100,523,0) + +"DATA",811.8,132,100,524,0) + +"DATA",811.8,132,100,530,0) + +"DATA",811.8,132,100,531,0) + +"DATA",811.8,132,100,532,0) + +"DATA",811.8,132,100,533,0) +REMINDER LIST RULE +"DATA",811.8,132,100,534,0) +810.4 +"DATA",811.8,132,100,535,0) +MU NQF0028B TOBACCO INTERV NUM FR +"DATA",811.8,132,100,536,0) +161 +"DATA",811.8,132,100,537,0) +1238266823 +"DATA",811.8,132,100,538,0) +NO +"DATA",811.8,132,100,539,0) + +"DATA",811.8,132,100,540,0) + +"DATA",811.8,132,100,549,0) + +"DATA",811.8,132,100,550,0) + +"DATA",811.8,132,100,551,0) + +"DATA",811.8,132,100,554,0) + +"DATA",811.8,132,100,555,0) + +"DATA",811.8,132,100,556,0) + +"DATA",811.8,132,100,557,0) +REMINDER LIST RULE +"DATA",811.8,132,100,558,0) +810.4 +"DATA",811.8,132,100,559,0) +MU NQF0028B TOBACCO INTERV DENOM RR +"DATA",811.8,132,100,560,0) +159 +"DATA",811.8,132,100,561,0) +498527628 +"DATA",811.8,132,100,562,0) +NO +"DATA",811.8,132,100,563,0) + +"DATA",811.8,132,100,564,0) + +"DATA",811.8,132,100,573,0) + +"DATA",811.8,132,100,574,0) + +"DATA",811.8,132,100,575,0) + +"DATA",811.8,132,100,578,0) + +"DATA",811.8,132,100,579,0) + +"DATA",811.8,132,100,580,0) + +"DATA",811.8,132,100,581,0) +REMINDER LIST RULE +"DATA",811.8,132,100,582,0) +810.4 +"DATA",811.8,132,100,583,0) +MU NQF0028B TOBACCO INTERV NUM2 RS +"DATA",811.8,132,100,584,0) +154 +"DATA",811.8,132,100,585,0) +3698796309 +"DATA",811.8,132,100,586,0) +YES +"DATA",811.8,132,100,587,0) + +"DATA",811.8,132,100,588,0) + +"DATA",811.8,132,100,602,0) + +"DATA",811.8,132,100,603,0) + +"DATA",811.8,132,100,604,0) + +"DATA",811.8,132,100,609,0) + +"DATA",811.8,132,100,610,0) + +"DATA",811.8,132,100,611,0) + +"DATA",811.8,132,100,612,0) +REMINDER LIST RULE +"DATA",811.8,132,100,613,0) +810.4 +"DATA",811.8,132,100,614,0) +MU NQF0028B TOBACCO INTERV DENOM RS +"DATA",811.8,132,100,615,0) +160 +"DATA",811.8,132,100,616,0) +953544858 +"DATA",811.8,132,100,617,0) +YES +"DATA",811.8,132,100,618,0) + +"DATA",811.8,132,100,619,0) + +"DATA",811.8,132,100,630,0) + +"DATA",811.8,132,100,631,0) + +"DATA",811.8,132,100,632,0) + +"DATA",811.8,132,100,636,0) + +"DATA",811.8,132,100,637,0) + +"DATA",811.8,132,100,638,0) + +"DATA",811.8,132,100,639,0) +REMINDER LIST RULE +"DATA",811.8,132,100,640,0) +810.4 +"DATA",811.8,132,100,641,0) +MU NQF0028A TOBACCO SCREEN NUM RR +"DATA",811.8,132,100,642,0) +155 +"DATA",811.8,132,100,643,0) +2786717001 +"DATA",811.8,132,100,644,0) +NO +"DATA",811.8,132,100,645,0) + +"DATA",811.8,132,100,646,0) + +"DATA",811.8,132,100,655,0) + +"DATA",811.8,132,100,656,0) + +"DATA",811.8,132,100,657,0) + +"DATA",811.8,132,100,660,0) + +"DATA",811.8,132,100,661,0) + +"DATA",811.8,132,100,662,0) + +"DATA",811.8,132,100,663,0) +REMINDER LIST RULE +"DATA",811.8,132,100,664,0) +810.4 +"DATA",811.8,132,100,665,0) +MU NQF0028A TOBACCO SCREEN NUM RS +"DATA",811.8,132,100,666,0) +157 +"DATA",811.8,132,100,667,0) +3071628214 +"DATA",811.8,132,100,668,0) +YES +"DATA",811.8,132,100,669,0) + +"DATA",811.8,132,100,670,0) + +"DATA",811.8,132,100,681,0) + +"DATA",811.8,132,100,682,0) + +"DATA",811.8,132,100,683,0) + +"DATA",811.8,132,100,687,0) + +"DATA",811.8,132,100,688,0) + +"DATA",811.8,132,100,689,0) + +"DATA",811.8,132,100,690,0) +24 +"DATA",811.8,132,100,691,0) + +"DATA",811.8,132,100,692,0) +31 +"DATA",811.8,132,100,693,0) +30 +"DATA",811.8,132,100,694,0) +21 +"DATA",811.8,132,100,695,0) + +"DATA",811.8,132,100,696,0) + +"DATA",811.8,132,100,697,0) +48 +"DATA",811.8,132,100,698,0) +44 +"DATA",811.8,132,100,699,0) +35 +"DATA",811.8,132,100,700,0) + +"DATA",811.8,132,100,701,0) + +"DATA",811.8,132,100,702,0) +65 +"DATA",811.8,132,100,703,0) +61 +"DATA",811.8,132,100,704,0) +52 +"DATA",811.8,132,100,705,0) + +"DATA",811.8,132,100,706,0) + +"DATA",811.8,132,100,707,0) +82 +"DATA",811.8,132,100,708,0) +78 +"DATA",811.8,132,100,709,0) +69 +"DATA",811.8,132,100,710,0) + +"DATA",811.8,132,100,711,0) + +"DATA",811.8,132,100,712,0) +98 +"DATA",811.8,132,100,713,0) +95 +"DATA",811.8,132,100,714,0) +86 +"DATA",811.8,132,100,715,0) + +"DATA",811.8,132,100,716,0) + +"DATA",811.8,132,100,717,0) +115 +"DATA",811.8,132,100,718,0) +111 +"DATA",811.8,132,100,719,0) +102 +"DATA",811.8,132,100,720,0) + +"DATA",811.8,132,100,721,0) + +"DATA",811.8,132,100,722,0) +132 +"DATA",811.8,132,100,723,0) +128 +"DATA",811.8,132,100,724,0) +119 +"DATA",811.8,132,100,725,0) + +"DATA",811.8,132,100,726,0) + +"DATA",811.8,132,100,727,0) +149 +"DATA",811.8,132,100,728,0) +145 +"DATA",811.8,132,100,729,0) +136 +"DATA",811.8,132,100,730,0) + +"DATA",811.8,132,100,731,0) + +"DATA",811.8,132,100,732,0) +166 +"DATA",811.8,132,100,733,0) +162 +"DATA",811.8,132,100,734,0) +153 +"DATA",811.8,132,100,735,0) + +"DATA",811.8,132,100,736,0) + +"DATA",811.8,132,100,737,0) +183 +"DATA",811.8,132,100,738,0) +179 +"DATA",811.8,132,100,739,0) +170 +"DATA",811.8,132,100,740,0) + +"DATA",811.8,132,100,741,0) + +"DATA",811.8,132,100,742,0) +200 +"DATA",811.8,132,100,743,0) +196 +"DATA",811.8,132,100,744,0) +187 +"DATA",811.8,132,100,745,0) + +"DATA",811.8,132,100,746,0) + +"DATA",811.8,132,100,747,0) +217 +"DATA",811.8,132,100,748,0) +213 +"DATA",811.8,132,100,749,0) +204 +"DATA",811.8,132,100,750,0) + +"DATA",811.8,132,100,751,0) + +"DATA",811.8,132,100,752,0) +282 +"DATA",811.8,132,100,753,0) +230 +"DATA",811.8,132,100,754,0) +221 +"DATA",811.8,132,100,755,0) +301 +"DATA",811.8,132,100,756,0) +287 +"DATA",811.8,132,100,757,0) + +"DATA",811.8,132,100,758,0) + +"DATA",811.8,132,100,759,0) +322 +"DATA",811.8,132,100,760,0) +314 +"DATA",811.8,132,100,761,0) +305 +"DATA",811.8,132,100,762,0) +331 +"DATA",811.8,132,100,763,0) +327 +"DATA",811.8,132,100,764,0) + +"DATA",811.8,132,100,765,0) + +"DATA",811.8,132,100,766,0) +352 +"DATA",811.8,132,100,767,0) +344 +"DATA",811.8,132,100,768,0) +335 +"DATA",811.8,132,100,769,0) +361 +"DATA",811.8,132,100,770,0) +357 +"DATA",811.8,132,100,771,0) + +"DATA",811.8,132,100,772,0) + +"DATA",811.8,132,100,773,0) +381 +"DATA",811.8,132,100,774,0) +374 +"DATA",811.8,132,100,775,0) +365 +"DATA",811.8,132,100,776,0) +389 +"DATA",811.8,132,100,777,0) +386 +"DATA",811.8,132,100,778,0) + +"DATA",811.8,132,100,779,0) + +"DATA",811.8,132,100,780,0) +455 +"DATA",811.8,132,100,781,0) +402 +"DATA",811.8,132,100,782,0) +393 +"DATA",811.8,132,100,783,0) +466 +"DATA",811.8,132,100,784,0) +460 +"DATA",811.8,132,100,785,0) + +"DATA",811.8,132,100,786,0) + +"DATA",811.8,132,100,787,0) +520 +"DATA",811.8,132,100,788,0) +479 +"DATA",811.8,132,100,789,0) +470 +"DATA",811.8,132,100,790,0) +528 +"DATA",811.8,132,100,791,0) +525 +"DATA",811.8,132,100,792,0) + +"DATA",811.8,132,100,793,0) + +"DATA",811.8,132,100,794,0) +547 +"DATA",811.8,132,100,795,0) +541 +"DATA",811.8,132,100,796,0) +532 +"DATA",811.8,132,100,797,0) +552 +"DATA",811.8,132,100,798,0) +552 +"DATA",811.8,132,100,799,0) + +"DATA",811.8,132,100,800,0) + +"DATA",811.8,132,100,801,0) +571 +"DATA",811.8,132,100,802,0) +565 +"DATA",811.8,132,100,803,0) +556 +"DATA",811.8,132,100,804,0) +576 +"DATA",811.8,132,100,805,0) +576 +"DATA",811.8,132,100,806,0) + +"DATA",811.8,132,100,807,0) + +"DATA",811.8,132,100,808,0) +600 +"DATA",811.8,132,100,809,0) +589 +"DATA",811.8,132,100,810,0) +580 +"DATA",811.8,132,100,811,0) +607 +"DATA",811.8,132,100,812,0) +605 +"DATA",811.8,132,100,813,0) + +"DATA",811.8,132,100,814,0) + +"DATA",811.8,132,100,815,0) +628 +"DATA",811.8,132,100,816,0) +620 +"DATA",811.8,132,100,817,0) +611 +"DATA",811.8,132,100,818,0) +634 +"DATA",811.8,132,100,819,0) +633 +"DATA",811.8,132,100,820,0) + +"DATA",811.8,132,100,821,0) + +"DATA",811.8,132,100,822,0) +653 +"DATA",811.8,132,100,823,0) +647 +"DATA",811.8,132,100,824,0) +638 +"DATA",811.8,132,100,825,0) +658 +"DATA",811.8,132,100,826,0) +658 +"DATA",811.8,132,100,827,0) + +"DATA",811.8,132,100,828,0) + +"DATA",811.8,132,100,829,0) +679 +"DATA",811.8,132,100,830,0) +671 +"DATA",811.8,132,100,831,0) +662 +"DATA",811.8,132,100,832,0) +685 +"DATA",811.8,132,100,833,0) +684 +"DATA",811.8,132,100,834,0) + +"DATA",811.8,132,100,835,0) + +"DATA",811.8,132,100,836,0) + +"DATA",811.8,132,110,0) +^811.804^15^15 +"DATA",811.8,132,110,1,0) +Source: KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION +"DATA",811.8,132,110,2,0) +Date Packed: 07/06/2011@15:14:49 +"DATA",811.8,132,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,132,110,4,0) + +"DATA",811.8,132,110,5,0) +Description: +"DATA",811.8,132,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,132,110,7,0) +REMINDER LIST RULE +"DATA",811.8,132,110,8,0) + MU NQF0028B TOBACCO INTERV NUM2 RS +"DATA",811.8,132,110,9,0) + MU NQF0028A TOBACCO SCREEN NUM RS +"DATA",811.8,132,110,10,0) + MU NQF0028B TOBACCO INTERV DENOM RS +"DATA",811.8,132,110,11,0) + +"DATA",811.8,132,110,12,0) +Keywords: +"DATA",811.8,132,110,13,0) +MU NQF0028 TOBACCO +"DATA",811.8,132,110,14,0) + +"DATA",811.8,132,110,15,0) +Components: +"DATA",811.8,132,119) +5 +"DATA",811.8,132,120,0) +^811.802A^24^24 +"DATA",811.8,132,120,1,0) +HEALTH FACTORS^9999999.64^12 +"DATA",811.8,132,120,1,1,0) +^811.8021A^12^12 +"DATA",811.8,132,120,1,1,1,0) +SNOMED CODES^30^31^^^1^0 +"DATA",811.8,132,120,1,1,2,0) +395700008^44^48^^^1^0 +"DATA",811.8,132,120,1,1,3,0) +384742004^61^65^^^1^0 +"DATA",811.8,132,120,1,1,4,0) +225323000^78^82^^^1^0 +"DATA",811.8,132,120,1,1,5,0) +401068004^95^98^^^1^0 +"DATA",811.8,132,120,1,1,6,0) +110483000^111^115^^^1^0 +"DATA",811.8,132,120,1,1,7,0) +89765005^128^132^^^1^0 +"DATA",811.8,132,120,1,1,8,0) +81703003^145^149^^^1^0 +"DATA",811.8,132,120,1,1,9,0) +228504007^162^166^^^1^0 +"DATA",811.8,132,120,1,1,10,0) +266919005^179^183^^^1^0 +"DATA",811.8,132,120,1,1,11,0) +105539002^196^200^^^1^0 +"DATA",811.8,132,120,1,1,12,0) +228491005^213^217^^^1^0 +"DATA",811.8,132,120,2,0) +REMINDER TAXONOMY^811.2^1 +"DATA",811.8,132,120,2,1,0) +^811.8021A^1^1 +"DATA",811.8,132,120,2,1,1,0) +MU NQF0028AB DENOM ENC INCLUSIONS^230^282^287^301^1^0 +"DATA",811.8,132,120,3,0) +REMINDER TERM^811.5^3 +"DATA",811.8,132,120,3,1,0) +^811.8021A^3^3 +"DATA",811.8,132,120,3,1,1,0) +PQRI M0028 INTERVENTION INCU^314^322^327^331^1^0 +"DATA",811.8,132,120,3,1,2,0) +PQRI M0028 TOBACCO USER SNO INC^344^352^357^361^1^0 +"DATA",811.8,132,120,3,1,3,0) +PQRI M0028 NON USERS INCL^374^381^386^389^1^0 +"DATA",811.8,132,120,4,0) +REMINDER DEFINITION^811.9^2 +"DATA",811.8,132,120,4,1,0) +^811.8021A^2^2 +"DATA",811.8,132,120,4,1,1,0) +MU NQF0028B SMOKING DENOM LIST^402^455^460^466^1^0 +"DATA",811.8,132,120,4,1,2,0) +MU NQF0028A SMOKING SCREEN NUM PL^479^520^525^528^1^0 +"DATA",811.8,132,120,5,0) +REMINDER LIST RULE^810.4^6 +"DATA",811.8,132,120,5,1,0) +^811.8021A^6^6 +"DATA",811.8,132,120,5,1,1,0) +MU NQF0028B TOBACCO INTERV NUM FR^541^547^552^552^1^0 +"DATA",811.8,132,120,5,1,2,0) +MU NQF0028B TOBACCO INTERV DENOM RR^565^571^576^576^1^0 +"DATA",811.8,132,120,5,1,3,0) +MU NQF0028B TOBACCO INTERV NUM2 RS^589^600^605^607^1^1 +"DATA",811.8,132,120,5,1,4,0) +MU NQF0028B TOBACCO INTERV DENOM RS^620^628^633^634^1^1 +"DATA",811.8,132,120,5,1,5,0) +MU NQF0028A TOBACCO SCREEN NUM RR^647^653^658^658^1^0 +"DATA",811.8,132,120,5,1,6,0) +MU NQF0028A TOBACCO SCREEN NUM RS^671^679^684^685^1^1 +"DATA",811.8,133,0) +MU NQF0041 FLU_MK^KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION^3110706.152659 +"DATA",811.8,133,100,0) +^811.801^473^473 +"DATA",811.8,133,100,1,0) + +"DATA",811.8,133,100,2,0) + +"DATA",811.8,133,100,3,0) +2.0P17 +"DATA",811.8,133,100,4,0) +402 +"DATA",811.8,133,100,5,0) + +"DATA",811.8,133,100,6,0) +MU NQF0041 FLU_MK +"DATA",811.8,133,100,7,0) +KING,MATTHEW MICHAEL +"DATA",811.8,133,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,133,100,9,0) +07/06/2011@15:26:59 +"DATA",811.8,133,100,10,0) + +"DATA",811.8,133,100,11,0) + +"DATA",811.8,133,100,17,0) + +"DATA",811.8,133,100,18,0) +MU NQF0041 +"DATA",811.8,133,100,19,0) + +"DATA",811.8,133,100,20,0) + +"DATA",811.8,133,100,21,0) +IMMUNIZATION +"DATA",811.8,133,100,22,0) +9999999.14 +"DATA",811.8,133,100,23,0) +FLU,3 YRS +"DATA",811.8,133,100,24,0) +52 +"DATA",811.8,133,100,25,0) +4239920913 +"DATA",811.8,133,100,26,0) +NO +"DATA",811.8,133,100,27,0) + +"DATA",811.8,133,100,28,0) + +"DATA",811.8,133,100,32,0) + +"DATA",811.8,133,100,33,0) + +"DATA",811.8,133,100,34,0) + +"DATA",811.8,133,100,35,0) +REMINDER TAXONOMY +"DATA",811.8,133,100,36,0) +811.2 +"DATA",811.8,133,100,37,0) +MU NQF0041 FLU CODES NUM INCLUSIONS +"DATA",811.8,133,100,38,0) +138 +"DATA",811.8,133,100,39,0) +1660514885 +"DATA",811.8,133,100,40,0) +NO +"DATA",811.8,133,100,41,0) + +"DATA",811.8,133,100,42,0) + +"DATA",811.8,133,100,63,0) + +"DATA",811.8,133,100,64,0) + +"DATA",811.8,133,100,65,0) + +"DATA",811.8,133,100,74,0) + +"DATA",811.8,133,100,75,0) + +"DATA",811.8,133,100,76,0) + +"DATA",811.8,133,100,77,0) +REMINDER TAXONOMY +"DATA",811.8,133,100,78,0) +811.2 +"DATA",811.8,133,100,79,0) +MU NQF0041 DEM EXCLUSIONS +"DATA",811.8,133,100,80,0) +139 +"DATA",811.8,133,100,81,0) +3694115559 +"DATA",811.8,133,100,82,0) +NO +"DATA",811.8,133,100,83,0) + +"DATA",811.8,133,100,84,0) + +"DATA",811.8,133,100,99,0) + +"DATA",811.8,133,100,100,0) + +"DATA",811.8,133,100,101,0) + +"DATA",811.8,133,100,108,0) + +"DATA",811.8,133,100,109,0) + +"DATA",811.8,133,100,110,0) + +"DATA",811.8,133,100,111,0) +REMINDER TAXONOMY +"DATA",811.8,133,100,112,0) +811.2 +"DATA",811.8,133,100,113,0) +MU NQF0041 ENC INCLUSIONS +"DATA",811.8,133,100,114,0) +137 +"DATA",811.8,133,100,115,0) +512743364 +"DATA",811.8,133,100,116,0) +NO +"DATA",811.8,133,100,117,0) + +"DATA",811.8,133,100,118,0) + +"DATA",811.8,133,100,177,0) + +"DATA",811.8,133,100,178,0) + +"DATA",811.8,133,100,179,0) + +"DATA",811.8,133,100,196,0) + +"DATA",811.8,133,100,197,0) + +"DATA",811.8,133,100,198,0) + +"DATA",811.8,133,100,199,0) +REMINDER TERM +"DATA",811.8,133,100,200,0) +811.5 +"DATA",811.8,133,100,201,0) +MU NQF0041 NUMERATOR INCLUSIONS +"DATA",811.8,133,100,202,0) +539 +"DATA",811.8,133,100,203,0) +137926524 +"DATA",811.8,133,100,204,0) +NO +"DATA",811.8,133,100,205,0) + +"DATA",811.8,133,100,206,0) + +"DATA",811.8,133,100,221,0) + +"DATA",811.8,133,100,222,0) + +"DATA",811.8,133,100,223,0) + +"DATA",811.8,133,100,228,0) + +"DATA",811.8,133,100,229,0) + +"DATA",811.8,133,100,230,0) + +"DATA",811.8,133,100,231,0) +REMINDER DEFINITION +"DATA",811.8,133,100,232,0) +811.9 +"DATA",811.8,133,100,233,0) +MU NQF0041 FLU DENOM LIST +"DATA",811.8,133,100,234,0) +146 +"DATA",811.8,133,100,235,0) +1326227489 +"DATA",811.8,133,100,236,0) +NO +"DATA",811.8,133,100,237,0) + +"DATA",811.8,133,100,238,0) +1 +"DATA",811.8,133,100,271,0) +811.925;+150,+146,;10~FN(1)>1 +"DATA",811.8,133,100,272,0) +811.925;+150,+146,;12~AND +"DATA",811.8,133,100,273,0) +811.925;+150,+146,;41~0 +"DATA",811.8,133,100,274,0) +811.925;+150,+146,;42~0 +"DATA",811.8,133,100,275,0) +811.9255;+151,+150,+146,;.01~1 +"DATA",811.8,133,100,276,0) +811.9255;+151,+150,+146,;.02~COUNT +"DATA",811.8,133,100,277,0) +811.9256;+152,+151,+150,+146,;.01~1 +"DATA",811.8,133,100,278,0) +811.97;+153,+146,;.01~99Y +"DATA",811.8,133,100,279,0) +811.97;+153,+146,;1~50 +"DATA",811.8,133,100,280,0) +811.97;+153,+146,;5~0 +"DATA",811.8,133,100,281,0) +811.97;+153,+146,;6~0 +"DATA",811.8,133,100,282,0) +]]> +"DATA",811.8,133,100,283,0) + +"DATA",811.8,133,100,284,0) + +"DATA",811.8,133,100,285,0) + +"DATA",811.8,133,100,294,0) + +"DATA",811.8,133,100,295,0) + +"DATA",811.8,133,100,296,0) + +"DATA",811.8,133,100,297,0) +REMINDER LIST RULE +"DATA",811.8,133,100,298,0) +810.4 +"DATA",811.8,133,100,299,0) +MU NQF0041 FLU INCLUSIONS +"DATA",811.8,133,100,300,0) +241 +"DATA",811.8,133,100,301,0) +2845674447 +"DATA",811.8,133,100,302,0) +NO +"DATA",811.8,133,100,303,0) + +"DATA",811.8,133,100,304,0) + +"DATA",811.8,133,100,313,0) + +"DATA",811.8,133,100,314,0) + +"DATA",811.8,133,100,315,0) + +"DATA",811.8,133,100,318,0) + +"DATA",811.8,133,100,319,0) + +"DATA",811.8,133,100,320,0) + +"DATA",811.8,133,100,321,0) +REMINDER LIST RULE +"DATA",811.8,133,100,322,0) +810.4 +"DATA",811.8,133,100,323,0) +MU NQF0041 FLU DENOM RR +"DATA",811.8,133,100,324,0) +240 +"DATA",811.8,133,100,325,0) +4115290732 +"DATA",811.8,133,100,326,0) +NO +"DATA",811.8,133,100,327,0) + +"DATA",811.8,133,100,328,0) + +"DATA",811.8,133,100,337,0) + +"DATA",811.8,133,100,338,0) + +"DATA",811.8,133,100,339,0) + +"DATA",811.8,133,100,342,0) + +"DATA",811.8,133,100,343,0) + +"DATA",811.8,133,100,344,0) + +"DATA",811.8,133,100,345,0) +REMINDER LIST RULE +"DATA",811.8,133,100,346,0) +810.4 +"DATA",811.8,133,100,347,0) +MU NQF0041 FLU RS +"DATA",811.8,133,100,348,0) +242 +"DATA",811.8,133,100,349,0) +2533080092 +"DATA",811.8,133,100,350,0) +YES +"DATA",811.8,133,100,351,0) + +"DATA",811.8,133,100,352,0) + +"DATA",811.8,133,100,366,0) + +"DATA",811.8,133,100,367,0) + +"DATA",811.8,133,100,368,0) + +"DATA",811.8,133,100,373,0) + +"DATA",811.8,133,100,374,0) + +"DATA",811.8,133,100,375,0) + +"DATA",811.8,133,100,376,0) +REMINDER LIST RULE +"DATA",811.8,133,100,377,0) +810.4 +"DATA",811.8,133,100,378,0) +MU NQF0041 FLU DENOM RS +"DATA",811.8,133,100,379,0) +243 +"DATA",811.8,133,100,380,0) +3853333550 +"DATA",811.8,133,100,381,0) +YES +"DATA",811.8,133,100,382,0) + +"DATA",811.8,133,100,383,0) + +"DATA",811.8,133,100,394,0) + +"DATA",811.8,133,100,395,0) + +"DATA",811.8,133,100,396,0) + +"DATA",811.8,133,100,400,0) + +"DATA",811.8,133,100,401,0) + +"DATA",811.8,133,100,402,0) + +"DATA",811.8,133,100,403,0) +10 +"DATA",811.8,133,100,404,0) + +"DATA",811.8,133,100,405,0) +30 +"DATA",811.8,133,100,406,0) +29 +"DATA",811.8,133,100,407,0) +20 +"DATA",811.8,133,100,408,0) + +"DATA",811.8,133,100,409,0) + +"DATA",811.8,133,100,410,0) +61 +"DATA",811.8,133,100,411,0) +43 +"DATA",811.8,133,100,412,0) +34 +"DATA",811.8,133,100,413,0) +72 +"DATA",811.8,133,100,414,0) +66 +"DATA",811.8,133,100,415,0) + +"DATA",811.8,133,100,416,0) + +"DATA",811.8,133,100,417,0) +97 +"DATA",811.8,133,100,418,0) +85 +"DATA",811.8,133,100,419,0) +76 +"DATA",811.8,133,100,420,0) +106 +"DATA",811.8,133,100,421,0) +102 +"DATA",811.8,133,100,422,0) + +"DATA",811.8,133,100,423,0) + +"DATA",811.8,133,100,424,0) +175 +"DATA",811.8,133,100,425,0) +119 +"DATA",811.8,133,100,426,0) +110 +"DATA",811.8,133,100,427,0) +194 +"DATA",811.8,133,100,428,0) +180 +"DATA",811.8,133,100,429,0) + +"DATA",811.8,133,100,430,0) + +"DATA",811.8,133,100,431,0) +219 +"DATA",811.8,133,100,432,0) +207 +"DATA",811.8,133,100,433,0) +198 +"DATA",811.8,133,100,434,0) +226 +"DATA",811.8,133,100,435,0) +224 +"DATA",811.8,133,100,436,0) + +"DATA",811.8,133,100,437,0) + +"DATA",811.8,133,100,438,0) +281 +"DATA",811.8,133,100,439,0) +239 +"DATA",811.8,133,100,440,0) +230 +"DATA",811.8,133,100,441,0) +292 +"DATA",811.8,133,100,442,0) +286 +"DATA",811.8,133,100,443,0) + +"DATA",811.8,133,100,444,0) + +"DATA",811.8,133,100,445,0) +311 +"DATA",811.8,133,100,446,0) +305 +"DATA",811.8,133,100,447,0) +296 +"DATA",811.8,133,100,448,0) +316 +"DATA",811.8,133,100,449,0) +316 +"DATA",811.8,133,100,450,0) + +"DATA",811.8,133,100,451,0) + +"DATA",811.8,133,100,452,0) +335 +"DATA",811.8,133,100,453,0) +329 +"DATA",811.8,133,100,454,0) +320 +"DATA",811.8,133,100,455,0) +340 +"DATA",811.8,133,100,456,0) +340 +"DATA",811.8,133,100,457,0) + +"DATA",811.8,133,100,458,0) + +"DATA",811.8,133,100,459,0) +364 +"DATA",811.8,133,100,460,0) +353 +"DATA",811.8,133,100,461,0) +344 +"DATA",811.8,133,100,462,0) +371 +"DATA",811.8,133,100,463,0) +369 +"DATA",811.8,133,100,464,0) + +"DATA",811.8,133,100,465,0) + +"DATA",811.8,133,100,466,0) +392 +"DATA",811.8,133,100,467,0) +384 +"DATA",811.8,133,100,468,0) +375 +"DATA",811.8,133,100,469,0) +398 +"DATA",811.8,133,100,470,0) +397 +"DATA",811.8,133,100,471,0) + +"DATA",811.8,133,100,472,0) + +"DATA",811.8,133,100,473,0) + +"DATA",811.8,133,110,0) +^811.804^14^14 +"DATA",811.8,133,110,1,0) +Source: KING,MATTHEW MICHAEL at VOE OFFICE INSTITUTION +"DATA",811.8,133,110,2,0) +Date Packed: 07/06/2011@15:26:59 +"DATA",811.8,133,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,133,110,4,0) + +"DATA",811.8,133,110,5,0) +Description: +"DATA",811.8,133,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,133,110,7,0) +REMINDER LIST RULE +"DATA",811.8,133,110,8,0) + MU NQF0041 FLU RS +"DATA",811.8,133,110,9,0) + MU NQF0041 FLU DENOM RS +"DATA",811.8,133,110,10,0) + +"DATA",811.8,133,110,11,0) +Keywords: +"DATA",811.8,133,110,12,0) +MU NQF0041 +"DATA",811.8,133,110,13,0) + +"DATA",811.8,133,110,14,0) +Components: +"DATA",811.8,133,119) +5 +"DATA",811.8,133,120,0) +^811.802A^10^10 +"DATA",811.8,133,120,1,0) +IMMUNIZATION^9999999.14^1 +"DATA",811.8,133,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,133,120,1,1,1,0) +FLU,3 YRS^29^30^^^1^0 +"DATA",811.8,133,120,2,0) +REMINDER TAXONOMY^811.2^3 +"DATA",811.8,133,120,2,1,0) +^811.8021A^3^3 +"DATA",811.8,133,120,2,1,1,0) +MU NQF0041 FLU CODES NUM INCLUSIONS^43^61^66^72^1^0 +"DATA",811.8,133,120,2,1,2,0) +MU NQF0041 DEM EXCLUSIONS^85^97^102^106^1^0 +"DATA",811.8,133,120,2,1,3,0) +MU NQF0041 ENC INCLUSIONS^119^175^180^194^1^0 +"DATA",811.8,133,120,3,0) +REMINDER TERM^811.5^1 +"DATA",811.8,133,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,133,120,3,1,1,0) +MU NQF0041 NUMERATOR INCLUSIONS^207^219^224^226^1^0 +"DATA",811.8,133,120,4,0) +REMINDER DEFINITION^811.9^1 +"DATA",811.8,133,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,133,120,4,1,1,0) +MU NQF0041 FLU DENOM LIST^239^281^286^292^1^0 +"DATA",811.8,133,120,5,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,133,120,5,1,0) +^811.8021A^4^4 +"DATA",811.8,133,120,5,1,1,0) +MU NQF0041 FLU INCLUSIONS^305^311^316^316^1^0 +"DATA",811.8,133,120,5,1,2,0) +MU NQF0041 FLU DENOM RR^329^335^340^340^1^0 +"DATA",811.8,133,120,5,1,3,0) +MU NQF0041 FLU RS^353^364^369^371^1^1 +"DATA",811.8,133,120,5,1,4,0) +MU NQF0041 FLU DENOM RS^384^392^397^398^1^1 +"DATA",811.8,173,0) +MU NQF0059_61_64_SMH^MANAGER,SYSTEM at VOE OFFICE INSTITUTION^3120716.104617 +"DATA",811.8,173,100,0) +^811.801^1510^1510 +"DATA",811.8,173,100,1,0) + +"DATA",811.8,173,100,2,0) + +"DATA",811.8,173,100,3,0) +2.0P17 +"DATA",811.8,173,100,4,0) +1289 +"DATA",811.8,173,100,5,0) + +"DATA",811.8,173,100,6,0) +MU NQF0059_61_64_SMH +"DATA",811.8,173,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,173,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,173,100,9,0) +07/16/2012@10:46:17 +"DATA",811.8,173,100,10,0) + +"DATA",811.8,173,100,11,0) + +"DATA",811.8,173,100,20,0) + +"DATA",811.8,173,100,21,0) +MU NQF0059 +"DATA",811.8,173,100,22,0) +MU NQF0061 +"DATA",811.8,173,100,23,0) +MU NQF0064 +"DATA",811.8,173,100,24,0) + +"DATA",811.8,173,100,25,0) + +"DATA",811.8,173,100,26,0) +VA DRUG CLASS +"DATA",811.8,173,100,27,0) +50.605 +"DATA",811.8,173,100,28,0) +HS509 +"DATA",811.8,173,100,29,0) +637 +"DATA",811.8,173,100,30,0) +264195558 +"DATA",811.8,173,100,31,0) +NO +"DATA",811.8,173,100,32,0) + +"DATA",811.8,173,100,33,0) + +"DATA",811.8,173,100,36,0) + +"DATA",811.8,173,100,37,0) + +"DATA",811.8,173,100,38,0) + +"DATA",811.8,173,100,39,0) +VA DRUG CLASS +"DATA",811.8,173,100,40,0) +50.605 +"DATA",811.8,173,100,41,0) +HS502 +"DATA",811.8,173,100,42,0) +130 +"DATA",811.8,173,100,43,0) +2557318254 +"DATA",811.8,173,100,44,0) +NO +"DATA",811.8,173,100,45,0) + +"DATA",811.8,173,100,46,0) + +"DATA",811.8,173,100,49,0) + +"DATA",811.8,173,100,50,0) + +"DATA",811.8,173,100,51,0) + +"DATA",811.8,173,100,52,0) +VA DRUG CLASS +"DATA",811.8,173,100,53,0) +50.605 +"DATA",811.8,173,100,54,0) +HS501 +"DATA",811.8,173,100,55,0) +129 +"DATA",811.8,173,100,56,0) +23381460 +"DATA",811.8,173,100,57,0) +NO +"DATA",811.8,173,100,58,0) + +"DATA",811.8,173,100,59,0) + +"DATA",811.8,173,100,62,0) + +"DATA",811.8,173,100,63,0) + +"DATA",811.8,173,100,64,0) + +"DATA",811.8,173,100,65,0) +LABORATORY TEST +"DATA",811.8,173,100,66,0) +60 +"DATA",811.8,173,100,67,0) +HEMOGLOBIN A1C +"DATA",811.8,173,100,68,0) +97 +"DATA",811.8,173,100,69,0) +2958680123 +"DATA",811.8,173,100,70,0) +NO +"DATA",811.8,173,100,71,0) + +"DATA",811.8,173,100,72,0) + +"DATA",811.8,173,100,75,0) + +"DATA",811.8,173,100,76,0) + +"DATA",811.8,173,100,77,0) + +"DATA",811.8,173,100,78,0) +LABORATORY TEST +"DATA",811.8,173,100,79,0) +60 +"DATA",811.8,173,100,80,0) +LDL CHOLESTEROL +"DATA",811.8,173,100,81,0) +901 +"DATA",811.8,173,100,82,0) +1035251149 +"DATA",811.8,173,100,83,0) +NO +"DATA",811.8,173,100,84,0) + +"DATA",811.8,173,100,85,0) + +"DATA",811.8,173,100,88,0) + +"DATA",811.8,173,100,89,0) + +"DATA",811.8,173,100,90,0) + +"DATA",811.8,173,100,91,0) +GMRV VITAL TYPE +"DATA",811.8,173,100,92,0) +120.51 +"DATA",811.8,173,100,93,0) +BLOOD PRESSURE +"DATA",811.8,173,100,94,0) +1 +"DATA",811.8,173,100,95,0) +4024959586 +"DATA",811.8,173,100,96,0) +NO +"DATA",811.8,173,100,97,0) + +"DATA",811.8,173,100,98,0) + +"DATA",811.8,173,100,101,0) + +"DATA",811.8,173,100,102,0) + +"DATA",811.8,173,100,103,0) + +"DATA",811.8,173,100,104,0) +HEALTH FACTORS +"DATA",811.8,173,100,105,0) +9999999.64 +"DATA",811.8,173,100,106,0) +PQRI HBA1C RESULT +"DATA",811.8,173,100,107,0) +500052 +"DATA",811.8,173,100,108,0) +1062400184 +"DATA",811.8,173,100,109,0) +NO +"DATA",811.8,173,100,110,0) + +"DATA",811.8,173,100,111,0) + +"DATA",811.8,173,100,115,0) + +"DATA",811.8,173,100,116,0) + +"DATA",811.8,173,100,117,0) + +"DATA",811.8,173,100,118,0) +HEALTH FACTORS +"DATA",811.8,173,100,119,0) +9999999.64 +"DATA",811.8,173,100,120,0) +HBA1C >9 +"DATA",811.8,173,100,121,0) +500053 +"DATA",811.8,173,100,122,0) +2910847938 +"DATA",811.8,173,100,123,0) +NO +"DATA",811.8,173,100,124,0) + +"DATA",811.8,173,100,125,0) +9 +"DATA",811.8,173,100,127,0) +9999999.64;+500053,;.03~PQRI HBA1C RESULT +"DATA",811.8,173,100,128,0) +9999999.64;+500053,;.04~HBA1C BAD +"DATA",811.8,173,100,129,0) +9999999.64;+500053,;.08~YES +"DATA",811.8,173,100,130,0) +9999999.64;+500053,;.1~FACTOR +"DATA",811.8,173,100,131,0) +]]> +"DATA",811.8,173,100,132,0) + +"DATA",811.8,173,100,133,0) + +"DATA",811.8,173,100,134,0) + +"DATA",811.8,173,100,135,0) +HEALTH FACTORS +"DATA",811.8,173,100,136,0) +9999999.64 +"DATA",811.8,173,100,137,0) +PQRI LDL CAT +"DATA",811.8,173,100,138,0) +500057 +"DATA",811.8,173,100,139,0) +686758236 +"DATA",811.8,173,100,140,0) +NO +"DATA",811.8,173,100,141,0) + +"DATA",811.8,173,100,142,0) + +"DATA",811.8,173,100,146,0) + +"DATA",811.8,173,100,147,0) + +"DATA",811.8,173,100,148,0) + +"DATA",811.8,173,100,149,0) +HEALTH FACTORS +"DATA",811.8,173,100,150,0) +9999999.64 +"DATA",811.8,173,100,151,0) +PQRI LDL < 100 +"DATA",811.8,173,100,152,0) +500079 +"DATA",811.8,173,100,153,0) +2793963508 +"DATA",811.8,173,100,154,0) +NO +"DATA",811.8,173,100,155,0) + +"DATA",811.8,173,100,156,0) + +"DATA",811.8,173,100,162,0) + +"DATA",811.8,173,100,163,0) + +"DATA",811.8,173,100,164,0) + +"DATA",811.8,173,100,165,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,166,0) +811.2 +"DATA",811.8,173,100,167,0) +MU NQF0059 DM DX ICD9 INCLUSIONS +"DATA",811.8,173,100,168,0) +143 +"DATA",811.8,173,100,169,0) +3992231752 +"DATA",811.8,173,100,170,0) +NO +"DATA",811.8,173,100,171,0) + +"DATA",811.8,173,100,172,0) + +"DATA",811.8,173,100,231,0) + +"DATA",811.8,173,100,232,0) + +"DATA",811.8,173,100,233,0) + +"DATA",811.8,173,100,250,0) + +"DATA",811.8,173,100,251,0) + +"DATA",811.8,173,100,252,0) + +"DATA",811.8,173,100,253,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,254,0) +811.2 +"DATA",811.8,173,100,255,0) +MU NQF0059 DM ENC1 INCLUSIONS +"DATA",811.8,173,100,256,0) +142 +"DATA",811.8,173,100,257,0) +3849860511 +"DATA",811.8,173,100,258,0) +NO +"DATA",811.8,173,100,259,0) + +"DATA",811.8,173,100,260,0) + +"DATA",811.8,173,100,289,0) + +"DATA",811.8,173,100,290,0) + +"DATA",811.8,173,100,291,0) + +"DATA",811.8,173,100,300,0) + +"DATA",811.8,173,100,301,0) + +"DATA",811.8,173,100,302,0) + +"DATA",811.8,173,100,303,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,304,0) +811.2 +"DATA",811.8,173,100,305,0) +MU NQF0059 DM 2 ENC INCLUSIONS +"DATA",811.8,173,100,306,0) +141 +"DATA",811.8,173,100,307,0) +3278900051 +"DATA",811.8,173,100,308,0) +NO +"DATA",811.8,173,100,309,0) + +"DATA",811.8,173,100,310,0) + +"DATA",811.8,173,100,395,0) + +"DATA",811.8,173,100,396,0) + +"DATA",811.8,173,100,397,0) + +"DATA",811.8,173,100,422,0) + +"DATA",811.8,173,100,423,0) + +"DATA",811.8,173,100,424,0) + +"DATA",811.8,173,100,425,0) +REMINDER TAXONOMY +"DATA",811.8,173,100,426,0) +811.2 +"DATA",811.8,173,100,427,0) +MU NQF0068 DM +"DATA",811.8,173,100,428,0) +214 +"DATA",811.8,173,100,429,0) +2028393631 +"DATA",811.8,173,100,430,0) +NO +"DATA",811.8,173,100,431,0) + +"DATA",811.8,173,100,432,0) + +"DATA",811.8,173,100,443,0) + +"DATA",811.8,173,100,444,0) + +"DATA",811.8,173,100,445,0) + +"DATA",811.8,173,100,449,0) + +"DATA",811.8,173,100,450,0) + +"DATA",811.8,173,100,451,0) + +"DATA",811.8,173,100,452,0) +REMINDER TERM +"DATA",811.8,173,100,453,0) +811.5 +"DATA",811.8,173,100,454,0) +MU NQF0061 DM HTN<140/90 +"DATA",811.8,173,100,455,0) +548 +"DATA",811.8,173,100,456,0) +566342049 +"DATA",811.8,173,100,457,0) +NO +"DATA",811.8,173,100,458,0) + +"DATA",811.8,173,100,459,0) + +"DATA",811.8,173,100,473,0) + +"DATA",811.8,173,100,474,0) + +"DATA",811.8,173,100,475,0) + +"DATA",811.8,173,100,479,0) + +"DATA",811.8,173,100,480,0) + +"DATA",811.8,173,100,481,0) + +"DATA",811.8,173,100,482,0) +REMINDER TERM +"DATA",811.8,173,100,483,0) +811.5 +"DATA",811.8,173,100,484,0) +MU NQF0059 DM MEDS_ACTIVE +"DATA",811.8,173,100,485,0) +545 +"DATA",811.8,173,100,486,0) +2030299270 +"DATA",811.8,173,100,487,0) +NO +"DATA",811.8,173,100,488,0) + +"DATA",811.8,173,100,489,0) + +"DATA",811.8,173,100,517,0) + +"DATA",811.8,173,100,518,0) + +"DATA",811.8,173,100,519,0) + +"DATA",811.8,173,100,528,0) + +"DATA",811.8,173,100,529,0) + +"DATA",811.8,173,100,530,0) + +"DATA",811.8,173,100,531,0) +REMINDER TERM +"DATA",811.8,173,100,532,0) +811.5 +"DATA",811.8,173,100,533,0) +PQRI HBA1C>9 MK +"DATA",811.8,173,100,534,0) +605 +"DATA",811.8,173,100,535,0) +1033370734 +"DATA",811.8,173,100,536,0) +NO +"DATA",811.8,173,100,537,0) + +"DATA",811.8,173,100,538,0) +9 MK +"DATA",811.8,173,100,540,0) +811.5;+605,;100~LOCAL +"DATA",811.8,173,100,541,0) +811.52;+606,+605,;.01~HF.HBA1C >9 +"DATA",811.8,173,100,542,0) +811.52;+606,+605,;17~1 +"DATA",811.8,173,100,543,0) +811.53;+607,+605,;.01~07/16/2012@10:46:54 +"DATA",811.8,173,100,544,0) +811.53;+607,+605,;2~WP-start~1 +"DATA",811.8,173,100,545,0) +Exchange Stub +"DATA",811.8,173,100,546,0) +]]> +"DATA",811.8,173,100,547,0) + +"DATA",811.8,173,100,548,0) + +"DATA",811.8,173,100,549,0) + +"DATA",811.8,173,100,553,0) + +"DATA",811.8,173,100,554,0) + +"DATA",811.8,173,100,555,0) + +"DATA",811.8,173,100,556,0) +REMINDER TERM +"DATA",811.8,173,100,557,0) +811.5 +"DATA",811.8,173,100,558,0) +HBA1C LAB >9 +"DATA",811.8,173,100,559,0) +604 +"DATA",811.8,173,100,560,0) +3946832908 +"DATA",811.8,173,100,561,0) +NO +"DATA",811.8,173,100,562,0) + +"DATA",811.8,173,100,563,0) +9 +"DATA",811.8,173,100,565,0) +811.5;+604,;1~WP-start~1 +"DATA",811.8,173,100,566,0) +FINDINGS HERE ARE LABS NOT HF. +"DATA",811.8,173,100,567,0) +811.5;+604,;100~LOCAL +"DATA",811.8,173,100,568,0) +811.52;+605,+604,;.01~LT.HEMOGLOBIN A1C +"DATA",811.8,173,100,569,0) +811.52;+605,+604,;14~I V>9 +"DATA",811.8,173,100,570,0) +811.52;+605,+604,;17~1 +"DATA",811.8,173,100,571,0) +811.52;+605,+604,;18~YES +"DATA",811.8,173,100,572,0) +811.52;+605,+604,;22~I V>9 +"DATA",811.8,173,100,573,0) +811.53;+606,+604,;.01~07/16/2012@10:46:54 +"DATA",811.8,173,100,574,0) +811.53;+606,+604,;2~WP-start~1 +"DATA",811.8,173,100,575,0) +Exchange Stub +"DATA",811.8,173,100,576,0) +]]> +"DATA",811.8,173,100,577,0) + +"DATA",811.8,173,100,578,0) + +"DATA",811.8,173,100,579,0) + +"DATA",811.8,173,100,583,0) + +"DATA",811.8,173,100,584,0) + +"DATA",811.8,173,100,585,0) + +"DATA",811.8,173,100,586,0) +REMINDER TERM +"DATA",811.8,173,100,587,0) +811.5 +"DATA",811.8,173,100,588,0) +MU NQF0064 DN LDL<100 HF +"DATA",811.8,173,100,589,0) +550 +"DATA",811.8,173,100,590,0) +1606040963 +"DATA",811.8,173,100,591,0) +NO +"DATA",811.8,173,100,592,0) + +"DATA",811.8,173,100,593,0) + +"DATA",811.8,173,100,602,0) + +"DATA",811.8,173,100,603,0) + +"DATA",811.8,173,100,604,0) + +"DATA",811.8,173,100,608,0) + +"DATA",811.8,173,100,609,0) + +"DATA",811.8,173,100,610,0) + +"DATA",811.8,173,100,611,0) +REMINDER TERM +"DATA",811.8,173,100,612,0) +811.5 +"DATA",811.8,173,100,613,0) +MU NQF0064 DM LDL<100 LAB +"DATA",811.8,173,100,614,0) +549 +"DATA",811.8,173,100,615,0) +4099758307 +"DATA",811.8,173,100,616,0) +NO +"DATA",811.8,173,100,617,0) + +"DATA",811.8,173,100,618,0) + +"DATA",811.8,173,100,630,0) + +"DATA",811.8,173,100,631,0) + +"DATA",811.8,173,100,632,0) + +"DATA",811.8,173,100,636,0) + +"DATA",811.8,173,100,637,0) + +"DATA",811.8,173,100,638,0) + +"DATA",811.8,173,100,639,0) +REMINDER DEFINITION +"DATA",811.8,173,100,640,0) +811.9 +"DATA",811.8,173,100,641,0) +MU NQF0059 DM DENOMINATOR LIST-ALL +"DATA",811.8,173,100,642,0) +154 +"DATA",811.8,173,100,643,0) +3275631521 +"DATA",811.8,173,100,644,0) +NO +"DATA",811.8,173,100,645,0) + +"DATA",811.8,173,100,646,0) + +"DATA",811.8,173,100,693,0) + +"DATA",811.8,173,100,694,0) + +"DATA",811.8,173,100,695,0) + +"DATA",811.8,173,100,704,0) + +"DATA",811.8,173,100,705,0) + +"DATA",811.8,173,100,706,0) + +"DATA",811.8,173,100,707,0) +REMINDER DEFINITION +"DATA",811.8,173,100,708,0) +811.9 +"DATA",811.8,173,100,709,0) +MU NQF0059 DM NUMER LIST +"DATA",811.8,173,100,710,0) +156 +"DATA",811.8,173,100,711,0) +1553329245 +"DATA",811.8,173,100,712,0) +NO +"DATA",811.8,173,100,713,0) + +"DATA",811.8,173,100,714,0) +9 MK +"DATA",811.8,173,100,755,0) +811.902;+162,+156,;17~1 +"DATA",811.8,173,100,756,0) +811.902;+162,+156,;24~0 +"DATA",811.8,173,100,757,0) +811.902;+162,+156,;25~0 +"DATA",811.8,173,100,758,0) +811.902;+163,+156,;.01~RT.HBA1C LAB >9 +"DATA",811.8,173,100,759,0) +811.902;+163,+156,;14~I V>9 +"DATA",811.8,173,100,760,0) +811.902;+163,+156,;17~1 +"DATA",811.8,173,100,761,0) +811.902;+163,+156,;18~YES +"DATA",811.8,173,100,762,0) +811.902;+163,+156,;22~I V>9 +"DATA",811.8,173,100,763,0) +811.902;+163,+156,;24~0 +"DATA",811.8,173,100,764,0) +811.902;+163,+156,;25~0 +"DATA",811.8,173,100,765,0) +811.90221;+164,+161,+156,;.01~ACTIVE +"DATA",811.8,173,100,766,0) +811.925;+165,+156,;.01~1 +"DATA",811.8,173,100,767,0) +811.925;+165,+156,;3~COUNT(1)>1 +"DATA",811.8,173,100,768,0) +811.925;+165,+156,;10~FN(1)>1 +"DATA",811.8,173,100,769,0) +811.925;+165,+156,;41~0 +"DATA",811.8,173,100,770,0) +811.925;+165,+156,;42~0 +"DATA",811.8,173,100,771,0) +811.925;+166,+156,;.01~2 +"DATA",811.8,173,100,772,0) +811.925;+166,+156,;3~MAX_DATE(6,7)>MAX_DATE(7)&MAX_DATE(6)>0 +"DATA",811.8,173,100,773,0) +811.925;+166,+156,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,774,0) +811.925;+166,+156,;41~0 +"DATA",811.8,173,100,775,0) +811.925;+166,+156,;42~0 +"DATA",811.8,173,100,776,0) +811.925;+167,+156,;.01~3 +"DATA",811.8,173,100,777,0) +811.925;+167,+156,;3~MAX_DATE(6,7)>MAX_DATE(6)&MAX_DATE(7)>0 +"DATA",811.8,173,100,778,0) +811.925;+167,+156,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,779,0) +811.925;+167,+156,;41~0 +"DATA",811.8,173,100,780,0) +811.925;+167,+156,;42~0 +"DATA",811.8,173,100,781,0) +811.9255;+168,+165,+156,;.01~1 +"DATA",811.8,173,100,782,0) +811.9255;+168,+165,+156,;.02~COUNT +"DATA",811.8,173,100,783,0) +811.9255;+169,+166,+156,;.01~1 +"DATA",811.8,173,100,784,0) +811.9255;+169,+166,+156,;.02~MAX_DATE +"DATA",811.8,173,100,785,0) +811.9255;+170,+167,+156,;.01~1 +"DATA",811.8,173,100,786,0) +811.9255;+170,+167,+156,;.02~MAX_DATE +"DATA",811.8,173,100,787,0) +811.9255;+171,+166,+156,;.01~2 +"DATA",811.8,173,100,788,0) +811.9255;+171,+166,+156,;.02~MAX_DATE +"DATA",811.8,173,100,789,0) +811.9255;+172,+167,+156,;.01~2 +"DATA",811.8,173,100,790,0) +811.9255;+172,+167,+156,;.02~MAX_DATE +"DATA",811.8,173,100,791,0) +811.9255;+173,+166,+156,;.01~3 +"DATA",811.8,173,100,792,0) +811.9255;+173,+166,+156,;.02~MAX_DATE +"DATA",811.8,173,100,793,0) +811.9255;+174,+167,+156,;.01~3 +"DATA",811.8,173,100,794,0) +811.9255;+174,+167,+156,;.02~MAX_DATE +"DATA",811.8,173,100,795,0) +811.9256;+175,+168,+165,+156,;.01~1 +"DATA",811.8,173,100,796,0) +811.9256;+176,+169,+166,+156,;.01~6 +"DATA",811.8,173,100,797,0) +811.9256;+177,+170,+167,+156,;.01~6 +"DATA",811.8,173,100,798,0) +811.9256;+178,+171,+166,+156,;.01~7 +"DATA",811.8,173,100,799,0) +811.9256;+179,+172,+167,+156,;.01~6 +"DATA",811.8,173,100,800,0) +811.9256;+180,+173,+166,+156,;.01~6 +"DATA",811.8,173,100,801,0) +811.9256;+181,+174,+167,+156,;.01~7 +"DATA",811.8,173,100,802,0) +811.9256;+182,+169,+166,+156,;.01~7 +"DATA",811.8,173,100,803,0) +811.9256;+183,+170,+167,+156,;.01~7 +"DATA",811.8,173,100,804,0) +811.97;+184,+156,;.01~99Y +"DATA",811.8,173,100,805,0) +811.97;+184,+156,;1~18 +"DATA",811.8,173,100,806,0) +811.97;+184,+156,;2~75 +"DATA",811.8,173,100,807,0) +811.97;+184,+156,;5~0 +"DATA",811.8,173,100,808,0) +811.97;+184,+156,;6~0 +"DATA",811.8,173,100,809,0) +]]> +"DATA",811.8,173,100,810,0) + +"DATA",811.8,173,100,811,0) + +"DATA",811.8,173,100,812,0) + +"DATA",811.8,173,100,842,0) + +"DATA",811.8,173,100,843,0) + +"DATA",811.8,173,100,844,0) + +"DATA",811.8,173,100,845,0) +REMINDER DEFINITION +"DATA",811.8,173,100,846,0) +811.9 +"DATA",811.8,173,100,847,0) +MU NQF0064 DM DENOM LIST +"DATA",811.8,173,100,848,0) +248 +"DATA",811.8,173,100,849,0) +3524211489 +"DATA",811.8,173,100,850,0) +NO +"DATA",811.8,173,100,851,0) + +"DATA",811.8,173,100,852,0) + +"DATA",811.8,173,100,883,0) + +"DATA",811.8,173,100,884,0) + +"DATA",811.8,173,100,885,0) + +"DATA",811.8,173,100,890,0) + +"DATA",811.8,173,100,891,0) + +"DATA",811.8,173,100,892,0) + +"DATA",811.8,173,100,893,0) +REMINDER DEFINITION +"DATA",811.8,173,100,894,0) +811.9 +"DATA",811.8,173,100,895,0) +MU NQF0064 DM LDL<100 +"DATA",811.8,173,100,896,0) +157 +"DATA",811.8,173,100,897,0) +1527574796 +"DATA",811.8,173,100,898,0) +NO +"DATA",811.8,173,100,899,0) + +"DATA",811.8,173,100,900,0) +1 +"DATA",811.8,173,100,954,0) +811.925;+166,+157,;10~FN(1)>1 +"DATA",811.8,173,100,955,0) +811.925;+166,+157,;41~0 +"DATA",811.8,173,100,956,0) +811.925;+166,+157,;42~0 +"DATA",811.8,173,100,957,0) +811.925;+167,+157,;.01~2 +"DATA",811.8,173,100,958,0) +811.925;+167,+157,;3~MAX_DATE(6,7)>MAX_DATE(7)&MAX_DATE(6)>0 +"DATA",811.8,173,100,959,0) +811.925;+167,+157,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,960,0) +811.925;+167,+157,;41~0 +"DATA",811.8,173,100,961,0) +811.925;+167,+157,;42~0 +"DATA",811.8,173,100,962,0) +811.925;+168,+157,;.01~3 +"DATA",811.8,173,100,963,0) +811.925;+168,+157,;3~MAX_DATE(6,7)>MAX_DATE(6)&MAX_DATE(7)>0 +"DATA",811.8,173,100,964,0) +811.925;+168,+157,;10~FN(1)>FN(2)&FN(3)>0 +"DATA",811.8,173,100,965,0) +811.925;+168,+157,;41~0 +"DATA",811.8,173,100,966,0) +811.925;+168,+157,;42~0 +"DATA",811.8,173,100,967,0) +811.9255;+169,+166,+157,;.01~1 +"DATA",811.8,173,100,968,0) +811.9255;+169,+166,+157,;.02~COUNT +"DATA",811.8,173,100,969,0) +811.9255;+170,+167,+157,;.01~1 +"DATA",811.8,173,100,970,0) +811.9255;+170,+167,+157,;.02~MAX_DATE +"DATA",811.8,173,100,971,0) +811.9255;+171,+168,+157,;.01~1 +"DATA",811.8,173,100,972,0) +811.9255;+171,+168,+157,;.02~MAX_DATE +"DATA",811.8,173,100,973,0) +811.9255;+172,+167,+157,;.01~2 +"DATA",811.8,173,100,974,0) +811.9255;+172,+167,+157,;.02~MAX_DATE +"DATA",811.8,173,100,975,0) +811.9255;+173,+168,+157,;.01~2 +"DATA",811.8,173,100,976,0) +811.9255;+173,+168,+157,;.02~MAX_DATE +"DATA",811.8,173,100,977,0) +811.9255;+174,+167,+157,;.01~3 +"DATA",811.8,173,100,978,0) +811.9255;+174,+167,+157,;.02~MAX_DATE +"DATA",811.8,173,100,979,0) +811.9255;+175,+168,+157,;.01~3 +"DATA",811.8,173,100,980,0) +811.9255;+175,+168,+157,;.02~MAX_DATE +"DATA",811.8,173,100,981,0) +811.9256;+176,+169,+166,+157,;.01~1 +"DATA",811.8,173,100,982,0) +811.9256;+177,+170,+167,+157,;.01~6 +"DATA",811.8,173,100,983,0) +811.9256;+178,+171,+168,+157,;.01~6 +"DATA",811.8,173,100,984,0) +811.9256;+179,+172,+167,+157,;.01~7 +"DATA",811.8,173,100,985,0) +811.9256;+180,+173,+168,+157,;.01~6 +"DATA",811.8,173,100,986,0) +811.9256;+181,+174,+167,+157,;.01~6 +"DATA",811.8,173,100,987,0) +811.9256;+182,+175,+168,+157,;.01~7 +"DATA",811.8,173,100,988,0) +811.9256;+183,+170,+167,+157,;.01~7 +"DATA",811.8,173,100,989,0) +811.9256;+184,+171,+168,+157,;.01~7 +"DATA",811.8,173,100,990,0) +811.97;+185,+157,;.01~99Y +"DATA",811.8,173,100,991,0) +811.97;+185,+157,;1~18 +"DATA",811.8,173,100,992,0) +811.97;+185,+157,;2~75 +"DATA",811.8,173,100,993,0) +811.97;+185,+157,;5~0 +"DATA",811.8,173,100,994,0) +811.97;+185,+157,;6~0 +"DATA",811.8,173,100,995,0) +]]> +"DATA",811.8,173,100,996,0) + +"DATA",811.8,173,100,997,0) + +"DATA",811.8,173,100,998,0) + +"DATA",811.8,173,100,1028,0) + +"DATA",811.8,173,100,1029,0) + +"DATA",811.8,173,100,1030,0) + +"DATA",811.8,173,100,1031,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1032,0) +810.4 +"DATA",811.8,173,100,1033,0) +MU NQF0061 BP<140/90 +"DATA",811.8,173,100,1034,0) +261 +"DATA",811.8,173,100,1035,0) +518981220 +"DATA",811.8,173,100,1036,0) +NO +"DATA",811.8,173,100,1037,0) + +"DATA",811.8,173,100,1038,0) + +"DATA",811.8,173,100,1047,0) + +"DATA",811.8,173,100,1048,0) + +"DATA",811.8,173,100,1049,0) + +"DATA",811.8,173,100,1052,0) + +"DATA",811.8,173,100,1053,0) + +"DATA",811.8,173,100,1054,0) + +"DATA",811.8,173,100,1055,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1056,0) +810.4 +"DATA",811.8,173,100,1057,0) +MU NQF0059 DM DENOM RR +"DATA",811.8,173,100,1058,0) +257 +"DATA",811.8,173,100,1059,0) +2446968057 +"DATA",811.8,173,100,1060,0) +NO +"DATA",811.8,173,100,1061,0) + +"DATA",811.8,173,100,1062,0) + +"DATA",811.8,173,100,1071,0) + +"DATA",811.8,173,100,1072,0) + +"DATA",811.8,173,100,1073,0) + +"DATA",811.8,173,100,1076,0) + +"DATA",811.8,173,100,1077,0) + +"DATA",811.8,173,100,1078,0) + +"DATA",811.8,173,100,1079,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1080,0) +810.4 +"DATA",811.8,173,100,1081,0) +MU NQF0061 NUM DM BP<140/90 RS +"DATA",811.8,173,100,1082,0) +262 +"DATA",811.8,173,100,1083,0) +2580697611 +"DATA",811.8,173,100,1084,0) +YES +"DATA",811.8,173,100,1085,0) + +"DATA",811.8,173,100,1086,0) + +"DATA",811.8,173,100,1100,0) + +"DATA",811.8,173,100,1101,0) + +"DATA",811.8,173,100,1102,0) + +"DATA",811.8,173,100,1107,0) + +"DATA",811.8,173,100,1108,0) + +"DATA",811.8,173,100,1109,0) + +"DATA",811.8,173,100,1110,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1111,0) +810.4 +"DATA",811.8,173,100,1112,0) +MU NQF0059 HBA1C NUM RR +"DATA",811.8,173,100,1113,0) +259 +"DATA",811.8,173,100,1114,0) +1255396299 +"DATA",811.8,173,100,1115,0) +NO +"DATA",811.8,173,100,1116,0) + +"DATA",811.8,173,100,1117,0) + +"DATA",811.8,173,100,1126,0) + +"DATA",811.8,173,100,1127,0) + +"DATA",811.8,173,100,1128,0) + +"DATA",811.8,173,100,1131,0) + +"DATA",811.8,173,100,1132,0) + +"DATA",811.8,173,100,1133,0) + +"DATA",811.8,173,100,1134,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1135,0) +810.4 +"DATA",811.8,173,100,1136,0) +MU NQF0059 HBA1C NUM RS +"DATA",811.8,173,100,1137,0) +260 +"DATA",811.8,173,100,1138,0) +242611370 +"DATA",811.8,173,100,1139,0) +YES +"DATA",811.8,173,100,1140,0) + +"DATA",811.8,173,100,1141,0) + +"DATA",811.8,173,100,1152,0) + +"DATA",811.8,173,100,1153,0) + +"DATA",811.8,173,100,1154,0) + +"DATA",811.8,173,100,1158,0) + +"DATA",811.8,173,100,1159,0) + +"DATA",811.8,173,100,1160,0) + +"DATA",811.8,173,100,1161,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1162,0) +810.4 +"DATA",811.8,173,100,1163,0) +MU NQF0059 DM DENOM-ALL RS +"DATA",811.8,173,100,1164,0) +258 +"DATA",811.8,173,100,1165,0) +2579369947 +"DATA",811.8,173,100,1166,0) +YES +"DATA",811.8,173,100,1167,0) + +"DATA",811.8,173,100,1168,0) + +"DATA",811.8,173,100,1179,0) + +"DATA",811.8,173,100,1180,0) + +"DATA",811.8,173,100,1181,0) + +"DATA",811.8,173,100,1185,0) + +"DATA",811.8,173,100,1186,0) + +"DATA",811.8,173,100,1187,0) + +"DATA",811.8,173,100,1188,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1189,0) +810.4 +"DATA",811.8,173,100,1190,0) +MU NQF0064 DM DENOM RR +"DATA",811.8,173,100,1191,0) +249 +"DATA",811.8,173,100,1192,0) +4043562952 +"DATA",811.8,173,100,1193,0) +NO +"DATA",811.8,173,100,1194,0) + +"DATA",811.8,173,100,1195,0) + +"DATA",811.8,173,100,1204,0) + +"DATA",811.8,173,100,1205,0) + +"DATA",811.8,173,100,1206,0) + +"DATA",811.8,173,100,1209,0) + +"DATA",811.8,173,100,1210,0) + +"DATA",811.8,173,100,1211,0) + +"DATA",811.8,173,100,1212,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1213,0) +810.4 +"DATA",811.8,173,100,1214,0) +MU NQF0064 DM DENOM RS +"DATA",811.8,173,100,1215,0) +250 +"DATA",811.8,173,100,1216,0) +1236316883 +"DATA",811.8,173,100,1217,0) +YES +"DATA",811.8,173,100,1218,0) + +"DATA",811.8,173,100,1219,0) + +"DATA",811.8,173,100,1230,0) + +"DATA",811.8,173,100,1231,0) + +"DATA",811.8,173,100,1232,0) + +"DATA",811.8,173,100,1236,0) + +"DATA",811.8,173,100,1237,0) + +"DATA",811.8,173,100,1238,0) + +"DATA",811.8,173,100,1239,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1240,0) +810.4 +"DATA",811.8,173,100,1241,0) +MU NQF0064 NUM LDL RR +"DATA",811.8,173,100,1242,0) +247 +"DATA",811.8,173,100,1243,0) +3311292798 +"DATA",811.8,173,100,1244,0) +NO +"DATA",811.8,173,100,1245,0) + +"DATA",811.8,173,100,1246,0) + +"DATA",811.8,173,100,1255,0) + +"DATA",811.8,173,100,1256,0) + +"DATA",811.8,173,100,1257,0) + +"DATA",811.8,173,100,1260,0) + +"DATA",811.8,173,100,1261,0) + +"DATA",811.8,173,100,1262,0) + +"DATA",811.8,173,100,1263,0) +REMINDER LIST RULE +"DATA",811.8,173,100,1264,0) +810.4 +"DATA",811.8,173,100,1265,0) +MU NQF0064 NUM LDL RS +"DATA",811.8,173,100,1266,0) +248 +"DATA",811.8,173,100,1267,0) +3711066382 +"DATA",811.8,173,100,1268,0) +YES +"DATA",811.8,173,100,1269,0) + +"DATA",811.8,173,100,1270,0) + +"DATA",811.8,173,100,1281,0) + +"DATA",811.8,173,100,1282,0) + +"DATA",811.8,173,100,1283,0) + +"DATA",811.8,173,100,1287,0) + +"DATA",811.8,173,100,1288,0) + +"DATA",811.8,173,100,1289,0) + +"DATA",811.8,173,100,1290,0) +34 +"DATA",811.8,173,100,1291,0) + +"DATA",811.8,173,100,1292,0) +34 +"DATA",811.8,173,100,1293,0) +34 +"DATA",811.8,173,100,1294,0) +25 +"DATA",811.8,173,100,1295,0) + +"DATA",811.8,173,100,1296,0) + +"DATA",811.8,173,100,1297,0) +47 +"DATA",811.8,173,100,1298,0) +47 +"DATA",811.8,173,100,1299,0) +38 +"DATA",811.8,173,100,1300,0) + +"DATA",811.8,173,100,1301,0) + +"DATA",811.8,173,100,1302,0) +60 +"DATA",811.8,173,100,1303,0) +60 +"DATA",811.8,173,100,1304,0) +51 +"DATA",811.8,173,100,1305,0) + +"DATA",811.8,173,100,1306,0) + +"DATA",811.8,173,100,1307,0) +73 +"DATA",811.8,173,100,1308,0) +73 +"DATA",811.8,173,100,1309,0) +64 +"DATA",811.8,173,100,1310,0) + +"DATA",811.8,173,100,1311,0) + +"DATA",811.8,173,100,1312,0) +86 +"DATA",811.8,173,100,1313,0) +86 +"DATA",811.8,173,100,1314,0) +77 +"DATA",811.8,173,100,1315,0) + +"DATA",811.8,173,100,1316,0) + +"DATA",811.8,173,100,1317,0) +99 +"DATA",811.8,173,100,1318,0) +99 +"DATA",811.8,173,100,1319,0) +90 +"DATA",811.8,173,100,1320,0) + +"DATA",811.8,173,100,1321,0) + +"DATA",811.8,173,100,1322,0) +113 +"DATA",811.8,173,100,1323,0) +112 +"DATA",811.8,173,100,1324,0) +103 +"DATA",811.8,173,100,1325,0) + +"DATA",811.8,173,100,1326,0) + +"DATA",811.8,173,100,1327,0) +130 +"DATA",811.8,173,100,1328,0) +126 +"DATA",811.8,173,100,1329,0) +117 +"DATA",811.8,173,100,1330,0) + +"DATA",811.8,173,100,1331,0) + +"DATA",811.8,173,100,1332,0) +144 +"DATA",811.8,173,100,1333,0) +143 +"DATA",811.8,173,100,1334,0) +134 +"DATA",811.8,173,100,1335,0) + +"DATA",811.8,173,100,1336,0) + +"DATA",811.8,173,100,1337,0) +160 +"DATA",811.8,173,100,1338,0) +157 +"DATA",811.8,173,100,1339,0) +148 +"DATA",811.8,173,100,1340,0) + +"DATA",811.8,173,100,1341,0) + +"DATA",811.8,173,100,1342,0) +229 +"DATA",811.8,173,100,1343,0) +173 +"DATA",811.8,173,100,1344,0) +164 +"DATA",811.8,173,100,1345,0) +248 +"DATA",811.8,173,100,1346,0) +234 +"DATA",811.8,173,100,1347,0) + +"DATA",811.8,173,100,1348,0) + +"DATA",811.8,173,100,1349,0) +287 +"DATA",811.8,173,100,1350,0) +261 +"DATA",811.8,173,100,1351,0) +252 +"DATA",811.8,173,100,1352,0) +298 +"DATA",811.8,173,100,1353,0) +292 +"DATA",811.8,173,100,1354,0) + +"DATA",811.8,173,100,1355,0) + +"DATA",811.8,173,100,1356,0) +393 +"DATA",811.8,173,100,1357,0) +311 +"DATA",811.8,173,100,1358,0) +302 +"DATA",811.8,173,100,1359,0) +420 +"DATA",811.8,173,100,1360,0) +398 +"DATA",811.8,173,100,1361,0) + +"DATA",811.8,173,100,1362,0) + +"DATA",811.8,173,100,1363,0) +441 +"DATA",811.8,173,100,1364,0) +433 +"DATA",811.8,173,100,1365,0) +424 +"DATA",811.8,173,100,1366,0) +447 +"DATA",811.8,173,100,1367,0) +446 +"DATA",811.8,173,100,1368,0) + +"DATA",811.8,173,100,1369,0) + +"DATA",811.8,173,100,1370,0) +471 +"DATA",811.8,173,100,1371,0) +460 +"DATA",811.8,173,100,1372,0) +451 +"DATA",811.8,173,100,1373,0) +477 +"DATA",811.8,173,100,1374,0) +476 +"DATA",811.8,173,100,1375,0) + +"DATA",811.8,173,100,1376,0) + +"DATA",811.8,173,100,1377,0) +515 +"DATA",811.8,173,100,1378,0) +490 +"DATA",811.8,173,100,1379,0) +481 +"DATA",811.8,173,100,1380,0) +526 +"DATA",811.8,173,100,1381,0) +520 +"DATA",811.8,173,100,1382,0) + +"DATA",811.8,173,100,1383,0) + +"DATA",811.8,173,100,1384,0) +545 +"DATA",811.8,173,100,1385,0) +539 +"DATA",811.8,173,100,1386,0) +530 +"DATA",811.8,173,100,1387,0) +551 +"DATA",811.8,173,100,1388,0) +550 +"DATA",811.8,173,100,1389,0) + +"DATA",811.8,173,100,1390,0) + +"DATA",811.8,173,100,1391,0) +575 +"DATA",811.8,173,100,1392,0) +564 +"DATA",811.8,173,100,1393,0) +555 +"DATA",811.8,173,100,1394,0) +581 +"DATA",811.8,173,100,1395,0) +580 +"DATA",811.8,173,100,1396,0) + +"DATA",811.8,173,100,1397,0) + +"DATA",811.8,173,100,1398,0) +600 +"DATA",811.8,173,100,1399,0) +594 +"DATA",811.8,173,100,1400,0) +585 +"DATA",811.8,173,100,1401,0) +606 +"DATA",811.8,173,100,1402,0) +605 +"DATA",811.8,173,100,1403,0) + +"DATA",811.8,173,100,1404,0) + +"DATA",811.8,173,100,1405,0) +628 +"DATA",811.8,173,100,1406,0) +619 +"DATA",811.8,173,100,1407,0) +610 +"DATA",811.8,173,100,1408,0) +634 +"DATA",811.8,173,100,1409,0) +633 +"DATA",811.8,173,100,1410,0) + +"DATA",811.8,173,100,1411,0) + +"DATA",811.8,173,100,1412,0) +691 +"DATA",811.8,173,100,1413,0) +647 +"DATA",811.8,173,100,1414,0) +638 +"DATA",811.8,173,100,1415,0) +702 +"DATA",811.8,173,100,1416,0) +696 +"DATA",811.8,173,100,1417,0) + +"DATA",811.8,173,100,1418,0) + +"DATA",811.8,173,100,1419,0) +808 +"DATA",811.8,173,100,1420,0) +715 +"DATA",811.8,173,100,1421,0) +706 +"DATA",811.8,173,100,1422,0) +840 +"DATA",811.8,173,100,1423,0) +813 +"DATA",811.8,173,100,1424,0) + +"DATA",811.8,173,100,1425,0) + +"DATA",811.8,173,100,1426,0) +881 +"DATA",811.8,173,100,1427,0) +853 +"DATA",811.8,173,100,1428,0) +844 +"DATA",811.8,173,100,1429,0) +888 +"DATA",811.8,173,100,1430,0) +886 +"DATA",811.8,173,100,1431,0) + +"DATA",811.8,173,100,1432,0) + +"DATA",811.8,173,100,1433,0) +994 +"DATA",811.8,173,100,1434,0) +901 +"DATA",811.8,173,100,1435,0) +892 +"DATA",811.8,173,100,1436,0) +1026 +"DATA",811.8,173,100,1437,0) +999 +"DATA",811.8,173,100,1438,0) + +"DATA",811.8,173,100,1439,0) + +"DATA",811.8,173,100,1440,0) +1045 +"DATA",811.8,173,100,1441,0) +1039 +"DATA",811.8,173,100,1442,0) +1030 +"DATA",811.8,173,100,1443,0) +1050 +"DATA",811.8,173,100,1444,0) +1050 +"DATA",811.8,173,100,1445,0) + +"DATA",811.8,173,100,1446,0) + +"DATA",811.8,173,100,1447,0) +1069 +"DATA",811.8,173,100,1448,0) +1063 +"DATA",811.8,173,100,1449,0) +1054 +"DATA",811.8,173,100,1450,0) +1074 +"DATA",811.8,173,100,1451,0) +1074 +"DATA",811.8,173,100,1452,0) + +"DATA",811.8,173,100,1453,0) + +"DATA",811.8,173,100,1454,0) +1098 +"DATA",811.8,173,100,1455,0) +1087 +"DATA",811.8,173,100,1456,0) +1078 +"DATA",811.8,173,100,1457,0) +1105 +"DATA",811.8,173,100,1458,0) +1103 +"DATA",811.8,173,100,1459,0) + +"DATA",811.8,173,100,1460,0) + +"DATA",811.8,173,100,1461,0) +1124 +"DATA",811.8,173,100,1462,0) +1118 +"DATA",811.8,173,100,1463,0) +1109 +"DATA",811.8,173,100,1464,0) +1129 +"DATA",811.8,173,100,1465,0) +1129 +"DATA",811.8,173,100,1466,0) + +"DATA",811.8,173,100,1467,0) + +"DATA",811.8,173,100,1468,0) +1150 +"DATA",811.8,173,100,1469,0) +1142 +"DATA",811.8,173,100,1470,0) +1133 +"DATA",811.8,173,100,1471,0) +1156 +"DATA",811.8,173,100,1472,0) +1155 +"DATA",811.8,173,100,1473,0) + +"DATA",811.8,173,100,1474,0) + +"DATA",811.8,173,100,1475,0) +1177 +"DATA",811.8,173,100,1476,0) +1169 +"DATA",811.8,173,100,1477,0) +1160 +"DATA",811.8,173,100,1478,0) +1183 +"DATA",811.8,173,100,1479,0) +1182 +"DATA",811.8,173,100,1480,0) + +"DATA",811.8,173,100,1481,0) + +"DATA",811.8,173,100,1482,0) +1202 +"DATA",811.8,173,100,1483,0) +1196 +"DATA",811.8,173,100,1484,0) +1187 +"DATA",811.8,173,100,1485,0) +1207 +"DATA",811.8,173,100,1486,0) +1207 +"DATA",811.8,173,100,1487,0) + +"DATA",811.8,173,100,1488,0) + +"DATA",811.8,173,100,1489,0) +1228 +"DATA",811.8,173,100,1490,0) +1220 +"DATA",811.8,173,100,1491,0) +1211 +"DATA",811.8,173,100,1492,0) +1234 +"DATA",811.8,173,100,1493,0) +1233 +"DATA",811.8,173,100,1494,0) + +"DATA",811.8,173,100,1495,0) + +"DATA",811.8,173,100,1496,0) +1253 +"DATA",811.8,173,100,1497,0) +1247 +"DATA",811.8,173,100,1498,0) +1238 +"DATA",811.8,173,100,1499,0) +1258 +"DATA",811.8,173,100,1500,0) +1258 +"DATA",811.8,173,100,1501,0) + +"DATA",811.8,173,100,1502,0) + +"DATA",811.8,173,100,1503,0) +1279 +"DATA",811.8,173,100,1504,0) +1271 +"DATA",811.8,173,100,1505,0) +1262 +"DATA",811.8,173,100,1506,0) +1285 +"DATA",811.8,173,100,1507,0) +1284 +"DATA",811.8,173,100,1508,0) + +"DATA",811.8,173,100,1509,0) + +"DATA",811.8,173,100,1510,0) + +"DATA",811.8,173,110,0) +^811.804^19^19 +"DATA",811.8,173,110,1,0) +Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION +"DATA",811.8,173,110,2,0) +Date Packed: 07/16/2012@10:46:17 +"DATA",811.8,173,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,173,110,4,0) + +"DATA",811.8,173,110,5,0) +Description: +"DATA",811.8,173,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,173,110,7,0) +REMINDER LIST RULE +"DATA",811.8,173,110,8,0) + MU NQF0064 NUM LDL RS +"DATA",811.8,173,110,9,0) + MU NQF0064 DM DENOM RS +"DATA",811.8,173,110,10,0) + MU NQF0059 DM DENOM-ALL RS +"DATA",811.8,173,110,11,0) + MU NQF0059 HBA1C NUM RS +"DATA",811.8,173,110,12,0) + MU NQF0061 NUM DM BP<140/90 RS +"DATA",811.8,173,110,13,0) + +"DATA",811.8,173,110,14,0) +Keywords: +"DATA",811.8,173,110,15,0) +MU NQF0059 +"DATA",811.8,173,110,16,0) +MU NQF0061 +"DATA",811.8,173,110,17,0) +MU NQF0064 +"DATA",811.8,173,110,18,0) + +"DATA",811.8,173,110,19,0) +Components: +"DATA",811.8,173,119) +8 +"DATA",811.8,173,120,0) +^811.802A^34^34 +"DATA",811.8,173,120,1,0) +VA DRUG CLASS^50.605^3 +"DATA",811.8,173,120,1,1,0) +^811.8021A^3^3 +"DATA",811.8,173,120,1,1,1,0) +HS509^34^34^^^0^0 +"DATA",811.8,173,120,1,1,2,0) +HS502^47^47^^^0^0 +"DATA",811.8,173,120,1,1,3,0) +HS501^60^60^^^0^0 +"DATA",811.8,173,120,2,0) +LABORATORY TEST^60^2 +"DATA",811.8,173,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,173,120,2,1,1,0) +HEMOGLOBIN A1C^73^73^^^0^0 +"DATA",811.8,173,120,2,1,2,0) +LDL CHOLESTEROL^86^86^^^0^0 +"DATA",811.8,173,120,3,0) +GMRV VITAL TYPE^120.51^1 +"DATA",811.8,173,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,173,120,3,1,1,0) +BLOOD PRESSURE^99^99^^^0^0 +"DATA",811.8,173,120,4,0) +HEALTH FACTORS^9999999.64^4 +"DATA",811.8,173,120,4,1,0) +^811.8021A^4^4 +"DATA",811.8,173,120,4,1,1,0) +PQRI HBA1C RESULT^112^113^^^1^0 +"DATA",811.8,173,120,4,1,2,0) +HBA1C >9^126^130^^^1^0 +"DATA",811.8,173,120,4,1,3,0) +PQRI LDL CAT^143^144^^^1^0 +"DATA",811.8,173,120,4,1,4,0) +PQRI LDL < 100^157^160^^^1^0 +"DATA",811.8,173,120,5,0) +REMINDER TAXONOMY^811.2^4 +"DATA",811.8,173,120,5,1,0) +^811.8021A^4^4 +"DATA",811.8,173,120,5,1,1,0) +MU NQF0059 DM DX ICD9 INCLUSIONS^173^229^234^248^1^0 +"DATA",811.8,173,120,5,1,2,0) +MU NQF0059 DM ENC1 INCLUSIONS^261^287^292^298^1^0 +"DATA",811.8,173,120,5,1,3,0) +MU NQF0059 DM 2 ENC INCLUSIONS^311^393^398^420^1^0 +"DATA",811.8,173,120,5,1,4,0) +MU NQF0068 DM^433^441^446^447^1^0 +"DATA",811.8,173,120,6,0) +REMINDER TERM^811.5^6 +"DATA",811.8,173,120,6,1,0) +^811.8021A^6^6 +"DATA",811.8,173,120,6,1,1,0) +MU NQF0061 DM HTN<140/90^460^471^476^477^1^0 +"DATA",811.8,173,120,6,1,2,0) +MU NQF0059 DM MEDS_ACTIVE^490^515^520^526^1^0 +"DATA",811.8,173,120,6,1,3,0) +PQRI HBA1C>9 MK^539^545^550^551^1^0 +"DATA",811.8,173,120,6,1,4,0) +HBA1C LAB >9^564^575^580^581^1^0 +"DATA",811.8,173,120,6,1,5,0) +MU NQF0064 DN LDL<100 HF^594^600^605^606^1^0 +"DATA",811.8,173,120,6,1,6,0) +MU NQF0064 DM LDL<100 LAB^619^628^633^634^1^0 +"DATA",811.8,173,120,7,0) +REMINDER DEFINITION^811.9^4 +"DATA",811.8,173,120,7,1,0) +^811.8021A^4^4 +"DATA",811.8,173,120,7,1,1,0) +MU NQF0059 DM DENOMINATOR LIST-ALL^647^691^696^702^1^0 +"DATA",811.8,173,120,7,1,2,0) +MU NQF0059 DM NUMER LIST^715^808^813^840^1^0 +"DATA",811.8,173,120,7,1,3,0) +MU NQF0064 DM DENOM LIST^853^881^886^888^1^0 +"DATA",811.8,173,120,7,1,4,0) +MU NQF0064 DM LDL<100^901^994^999^1026^1^0 +"DATA",811.8,173,120,8,0) +REMINDER LIST RULE^810.4^10 +"DATA",811.8,173,120,8,1,0) +^811.8021A^10^10 +"DATA",811.8,173,120,8,1,1,0) +MU NQF0061 BP<140/90^1039^1045^1050^1050^1^0 +"DATA",811.8,173,120,8,1,2,0) +MU NQF0059 DM DENOM RR^1063^1069^1074^1074^1^0 +"DATA",811.8,173,120,8,1,3,0) +MU NQF0061 NUM DM BP<140/90 RS^1087^1098^1103^1105^1^1 +"DATA",811.8,173,120,8,1,4,0) +MU NQF0059 HBA1C NUM RR^1118^1124^1129^1129^1^0 +"DATA",811.8,173,120,8,1,5,0) +MU NQF0059 HBA1C NUM RS^1142^1150^1155^1156^1^1 +"DATA",811.8,173,120,8,1,6,0) +MU NQF0059 DM DENOM-ALL RS^1169^1177^1182^1183^1^1 +"DATA",811.8,173,120,8,1,7,0) +MU NQF0064 DM DENOM RR^1196^1202^1207^1207^1^0 +"DATA",811.8,173,120,8,1,8,0) +MU NQF0064 DM DENOM RS^1220^1228^1233^1234^1^1 +"DATA",811.8,173,120,8,1,9,0) +MU NQF0064 NUM LDL RR^1247^1253^1258^1258^1^0 +"DATA",811.8,173,120,8,1,10,0) +MU NQF0064 NUM LDL RS^1271^1279^1284^1285^1^1 +"DATA",811.8,175,0) +MU NQF0421 ADULT BMI SMH^HABIEL,SAM at VOE OFFICE INSTITUTION^3120726.110017 +"DATA",811.8,175,100,0) +^811.801^2339^2339 +"DATA",811.8,175,100,1,0) + +"DATA",811.8,175,100,2,0) + +"DATA",811.8,175,100,3,0) +2.0P17 +"DATA",811.8,175,100,4,0) +1936 +"DATA",811.8,175,100,5,0) + +"DATA",811.8,175,100,6,0) +MU NQF0421 ADULT BMI SMH +"DATA",811.8,175,100,7,0) +HABIEL,SAM +"DATA",811.8,175,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,175,100,9,0) +07/26/2012@11:00:17 +"DATA",811.8,175,100,10,0) + +"DATA",811.8,175,100,11,0) + +"DATA",811.8,175,100,15,0) + +"DATA",811.8,175,100,16,0) +MU +"DATA",811.8,175,100,17,0) +NQF0421 +"DATA",811.8,175,100,18,0) +0421 +"DATA",811.8,175,100,19,0) +NQF +"DATA",811.8,175,100,20,0) +ADULT +"DATA",811.8,175,100,21,0) +BMI +"DATA",811.8,175,100,22,0) + +"DATA",811.8,175,100,23,0) + +"DATA",811.8,175,100,24,0) +PXRMBMI +"DATA",811.8,175,100,25,0) +3245654505 +"DATA",811.8,175,100,26,0) + +"DATA",811.8,175,100,27,0) +0:-1,1:1) +"DATA",811.8,175,100,110,0) + S NOCC=$S(NGET>0:NGET,1:-NGET) +"DATA",811.8,175,100,111,0) + ;Get a list of weight measurements in the date range. +"DATA",811.8,175,100,112,0) + S TDATE=BDT-.000001 +"DATA",811.8,175,100,113,0) + F S TDATE=+$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE)) Q:(TDATE=0)!(TDATE>EDT) D +"DATA",811.8,175,100,114,0) + . S DAS=$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE,"")) +"DATA",811.8,175,100,115,0) + . S WLIST(TDATE)=DAS +"DATA",811.8,175,100,116,0) + ;Get up to NOCC BMI values. +"DATA",811.8,175,100,117,0) + S TDATE="",(DONE,NFOUND)=0 +"DATA",811.8,175,100,118,0) + F S TDATE=$O(WLIST(TDATE),SDIR) Q:(DONE)!(TDATE="") D +"DATA",811.8,175,100,119,0) + . S DAS=WLIST(TDATE) +"DATA",811.8,175,100,120,0) + . K TEMP +"DATA",811.8,175,100,121,0) + . D GETDATA^PXRMVITL(DAS,.TEMP) +"DATA",811.8,175,100,122,0) + . I TEMP("RATE")'=+TEMP("RATE") Q +"DATA",811.8,175,100,123,0) + . S WT=+TEMP("RATE")*0.4535924 +"DATA",811.8,175,100,124,0) + .;Find the closest height measurement. +"DATA",811.8,175,100,125,0) + . D GHEIGHT(DFN,TDATE,.HT,.HDATE) +"DATA",811.8,175,100,126,0) + . I HT=-1 Q +"DATA",811.8,175,100,127,0) + . S NFOUND=NFOUND+1 +"DATA",811.8,175,100,128,0) + . S WHL(NFOUND)=TDATE_U_WT_U_HT_U_HDATE +"DATA",811.8,175,100,129,0) + . I NFOUND=NOCC S DONE=1 +"DATA",811.8,175,100,130,0) + Q +"DATA",811.8,175,100,131,0) + ; +"DATA",811.8,175,100,132,0) +]]> +"DATA",811.8,175,100,133,0) + +"DATA",811.8,175,100,134,0) + +"DATA",811.8,175,100,135,0) + +"DATA",811.8,175,100,136,0) +GMRV VITAL TYPE +"DATA",811.8,175,100,137,0) +120.51 +"DATA",811.8,175,100,138,0) +WEIGHT +"DATA",811.8,175,100,139,0) +9 +"DATA",811.8,175,100,140,0) +3151076501 +"DATA",811.8,175,100,141,0) +NO +"DATA",811.8,175,100,142,0) + +"DATA",811.8,175,100,143,0) + +"DATA",811.8,175,100,146,0) + +"DATA",811.8,175,100,147,0) + +"DATA",811.8,175,100,148,0) + +"DATA",811.8,175,100,149,0) +HEALTH FACTORS +"DATA",811.8,175,100,150,0) +9999999.64 +"DATA",811.8,175,100,151,0) +SNOMED CODES +"DATA",811.8,175,100,152,0) +500013 +"DATA",811.8,175,100,153,0) +3190378291 +"DATA",811.8,175,100,154,0) +NO +"DATA",811.8,175,100,155,0) + +"DATA",811.8,175,100,156,0) + +"DATA",811.8,175,100,160,0) + +"DATA",811.8,175,100,161,0) + +"DATA",811.8,175,100,162,0) + +"DATA",811.8,175,100,163,0) +HEALTH FACTORS +"DATA",811.8,175,100,164,0) +9999999.64 +"DATA",811.8,175,100,165,0) +289908002 +"DATA",811.8,175,100,166,0) +644 +"DATA",811.8,175,100,167,0) +788821390 +"DATA",811.8,175,100,168,0) +NO +"DATA",811.8,175,100,169,0) + +"DATA",811.8,175,100,170,0) + +"DATA",811.8,175,100,178,0) + +"DATA",811.8,175,100,179,0) + +"DATA",811.8,175,100,180,0) + +"DATA",811.8,175,100,181,0) +HEALTH FACTORS +"DATA",811.8,175,100,182,0) +9999999.64 +"DATA",811.8,175,100,183,0) +300936002 +"DATA",811.8,175,100,184,0) +643 +"DATA",811.8,175,100,185,0) +397166804 +"DATA",811.8,175,100,186,0) +NO +"DATA",811.8,175,100,187,0) + +"DATA",811.8,175,100,188,0) + +"DATA",811.8,175,100,195,0) + +"DATA",811.8,175,100,196,0) + +"DATA",811.8,175,100,197,0) + +"DATA",811.8,175,100,198,0) +HEALTH FACTORS +"DATA",811.8,175,100,199,0) +9999999.64 +"DATA",811.8,175,100,200,0) +CPT-4 CODES +"DATA",811.8,175,100,201,0) +641 +"DATA",811.8,175,100,202,0) +124440117 +"DATA",811.8,175,100,203,0) +NO +"DATA",811.8,175,100,204,0) + +"DATA",811.8,175,100,205,0) + +"DATA",811.8,175,100,209,0) + +"DATA",811.8,175,100,210,0) + +"DATA",811.8,175,100,211,0) + +"DATA",811.8,175,100,212,0) +HEALTH FACTORS +"DATA",811.8,175,100,213,0) +9999999.64 +"DATA",811.8,175,100,214,0) +3008F-1P +"DATA",811.8,175,100,215,0) +642 +"DATA",811.8,175,100,216,0) +1352173547 +"DATA",811.8,175,100,217,0) +NO +"DATA",811.8,175,100,218,0) + +"DATA",811.8,175,100,219,0) + +"DATA",811.8,175,100,226,0) + +"DATA",811.8,175,100,227,0) + +"DATA",811.8,175,100,228,0) + +"DATA",811.8,175,100,229,0) +HEALTH FACTORS +"DATA",811.8,175,100,230,0) +9999999.64 +"DATA",811.8,175,100,231,0) +BMI MANAGEMENT OPTIONS +"DATA",811.8,175,100,232,0) +50212 +"DATA",811.8,175,100,233,0) +3865298610 +"DATA",811.8,175,100,234,0) +NO +"DATA",811.8,175,100,235,0) + +"DATA",811.8,175,100,236,0) + +"DATA",811.8,175,100,240,0) + +"DATA",811.8,175,100,241,0) + +"DATA",811.8,175,100,242,0) + +"DATA",811.8,175,100,243,0) +HEALTH FACTORS +"DATA",811.8,175,100,244,0) +9999999.64 +"DATA",811.8,175,100,245,0) +BMI DIETARY CONSULT DONE +"DATA",811.8,175,100,246,0) +50214 +"DATA",811.8,175,100,247,0) +2104698889 +"DATA",811.8,175,100,248,0) +NO +"DATA",811.8,175,100,249,0) + +"DATA",811.8,175,100,250,0) + +"DATA",811.8,175,100,256,0) + +"DATA",811.8,175,100,257,0) + +"DATA",811.8,175,100,258,0) + +"DATA",811.8,175,100,259,0) +HEALTH FACTORS +"DATA",811.8,175,100,260,0) +9999999.64 +"DATA",811.8,175,100,261,0) +BMI CARE GOAL DOCUMENTED +"DATA",811.8,175,100,262,0) +50213 +"DATA",811.8,175,100,263,0) +2777035191 +"DATA",811.8,175,100,264,0) +NO +"DATA",811.8,175,100,265,0) + +"DATA",811.8,175,100,266,0) + +"DATA",811.8,175,100,272,0) + +"DATA",811.8,175,100,273,0) + +"DATA",811.8,175,100,274,0) + +"DATA",811.8,175,100,275,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,175,100,276,0) +811.4 +"DATA",811.8,175,100,277,0) +VA-BMI +"DATA",811.8,175,100,278,0) +1 +"DATA",811.8,175,100,279,0) +3808685416 +"DATA",811.8,175,100,280,0) +NO +"DATA",811.8,175,100,281,0) + +"DATA",811.8,175,100,282,0) +25"; +"DATA",811.8,175,100,296,0) +3) This finding will be evaluated to true for patients with a BMI that is +"DATA",811.8,175,100,297,0) +greater than 25. +"DATA",811.8,175,100,298,0) + +"DATA",811.8,175,100,299,0) +This is a multi-occurrence computed finding. +"DATA",811.8,175,100,300,0) + +"DATA",811.8,175,100,301,0) + +"DATA",811.8,175,100,302,0) + +"DATA",811.8,175,100,303,0) + +"DATA",811.8,175,100,304,0) +811.4;+1,;5~MULTIPLE +"DATA",811.8,175,100,305,0) +811.4;+1,;100~NATIONAL +"DATA",811.8,175,100,306,0) +811.42;+2,+1,;.01~07/26/2012@11:01:04 +"DATA",811.8,175,100,307,0) +811.42;+2,+1,;2~WP-start~1 +"DATA",811.8,175,100,308,0) +Exchange Stub +"DATA",811.8,175,100,309,0) +]]> +"DATA",811.8,175,100,310,0) + +"DATA",811.8,175,100,311,0) + +"DATA",811.8,175,100,312,0) + +"DATA",811.8,175,100,315,0) + +"DATA",811.8,175,100,316,0) + +"DATA",811.8,175,100,317,0) + +"DATA",811.8,175,100,318,0) +REMINDER TAXONOMY +"DATA",811.8,175,100,319,0) +811.2 +"DATA",811.8,175,100,320,0) +PQRI PREGNANCY I9 CODES +"DATA",811.8,175,100,321,0) +216 +"DATA",811.8,175,100,322,0) +334965997 +"DATA",811.8,175,100,323,0) +NO +"DATA",811.8,175,100,324,0) + +"DATA",811.8,175,100,325,0) + +"DATA",811.8,175,100,345,0) + +"DATA",811.8,175,100,346,0) + +"DATA",811.8,175,100,347,0) + +"DATA",811.8,175,100,353,0) + +"DATA",811.8,175,100,354,0) + +"DATA",811.8,175,100,355,0) + +"DATA",811.8,175,100,356,0) +REMINDER TAXONOMY +"DATA",811.8,175,100,357,0) +811.2 +"DATA",811.8,175,100,358,0) +PQRI M128 DEM C4 EXCLUSION +"DATA",811.8,175,100,359,0) +215 +"DATA",811.8,175,100,360,0) +3384846975 +"DATA",811.8,175,100,361,0) +NO +"DATA",811.8,175,100,362,0) + +"DATA",811.8,175,100,363,0) + +"DATA",811.8,175,100,375,0) + +"DATA",811.8,175,100,376,0) + +"DATA",811.8,175,100,377,0) + +"DATA",811.8,175,100,381,0) + +"DATA",811.8,175,100,382,0) + +"DATA",811.8,175,100,383,0) + +"DATA",811.8,175,100,384,0) +REMINDER TAXONOMY +"DATA",811.8,175,100,385,0) +811.2 +"DATA",811.8,175,100,386,0) +MU_E+M_CODES +"DATA",811.8,175,100,387,0) +217 +"DATA",811.8,175,100,388,0) +4265471670 +"DATA",811.8,175,100,389,0) +NO +"DATA",811.8,175,100,390,0) + +"DATA",811.8,175,100,391,0) + +"DATA",811.8,175,100,403,0) + +"DATA",811.8,175,100,404,0) + +"DATA",811.8,175,100,405,0) + +"DATA",811.8,175,100,409,0) + +"DATA",811.8,175,100,410,0) + +"DATA",811.8,175,100,411,0) + +"DATA",811.8,175,100,412,0) +REMINDER TERM +"DATA",811.8,175,100,413,0) +811.5 +"DATA",811.8,175,100,414,0) +PQRI M128 DENOMINATOR EXCLUSIONS +"DATA",811.8,175,100,415,0) +751 +"DATA",811.8,175,100,416,0) +3903178578 +"DATA",811.8,175,100,417,0) +NO +"DATA",811.8,175,100,418,0) + +"DATA",811.8,175,100,419,0) + +"DATA",811.8,175,100,442,0) + +"DATA",811.8,175,100,443,0) + +"DATA",811.8,175,100,444,0) + +"DATA",811.8,175,100,452,0) + +"DATA",811.8,175,100,453,0) + +"DATA",811.8,175,100,454,0) + +"DATA",811.8,175,100,455,0) +REMINDER TERM +"DATA",811.8,175,100,456,0) +811.5 +"DATA",811.8,175,100,457,0) +MU NQF0421 <65Y BMI LOW +"DATA",811.8,175,100,458,0) +757 +"DATA",811.8,175,100,459,0) +2873114190 +"DATA",811.8,175,100,460,0) +NO +"DATA",811.8,175,100,461,0) + +"DATA",811.8,175,100,462,0) + +"DATA",811.8,175,100,473,0) + +"DATA",811.8,175,100,474,0) + +"DATA",811.8,175,100,475,0) + +"DATA",811.8,175,100,479,0) + +"DATA",811.8,175,100,480,0) + +"DATA",811.8,175,100,481,0) + +"DATA",811.8,175,100,482,0) +REMINDER TERM +"DATA",811.8,175,100,483,0) +811.5 +"DATA",811.8,175,100,484,0) +MU NQF0421 <65Y BMI HIGH +"DATA",811.8,175,100,485,0) +758 +"DATA",811.8,175,100,486,0) +759192226 +"DATA",811.8,175,100,487,0) +NO +"DATA",811.8,175,100,488,0) + +"DATA",811.8,175,100,489,0) +24.9 +"DATA",811.8,175,100,494,0) +811.52;+759,+758,;18~YES +"DATA",811.8,175,100,495,0) +811.52;+759,+758,;22~I V>24.9 +"DATA",811.8,175,100,496,0) +811.53;+760,+758,;.01~07/26/2012@11:01:04 +"DATA",811.8,175,100,497,0) +811.53;+760,+758,;2~WP-start~1 +"DATA",811.8,175,100,498,0) +Exchange Stub +"DATA",811.8,175,100,499,0) +]]> +"DATA",811.8,175,100,500,0) + +"DATA",811.8,175,100,501,0) + +"DATA",811.8,175,100,502,0) + +"DATA",811.8,175,100,506,0) + +"DATA",811.8,175,100,507,0) + +"DATA",811.8,175,100,508,0) + +"DATA",811.8,175,100,509,0) +REMINDER TERM +"DATA",811.8,175,100,510,0) +811.5 +"DATA",811.8,175,100,511,0) +MU NQF0421 BMI FINDING +"DATA",811.8,175,100,512,0) +755 +"DATA",811.8,175,100,513,0) +29796399 +"DATA",811.8,175,100,514,0) +NO +"DATA",811.8,175,100,515,0) + +"DATA",811.8,175,100,516,0) + +"DATA",811.8,175,100,525,0) + +"DATA",811.8,175,100,526,0) + +"DATA",811.8,175,100,527,0) + +"DATA",811.8,175,100,531,0) + +"DATA",811.8,175,100,532,0) + +"DATA",811.8,175,100,533,0) + +"DATA",811.8,175,100,534,0) +REMINDER TERM +"DATA",811.8,175,100,535,0) +811.5 +"DATA",811.8,175,100,536,0) +MU NQF0421 WEIGHT +"DATA",811.8,175,100,537,0) +759 +"DATA",811.8,175,100,538,0) +1560996267 +"DATA",811.8,175,100,539,0) +NO +"DATA",811.8,175,100,540,0) + +"DATA",811.8,175,100,541,0) + +"DATA",811.8,175,100,550,0) + +"DATA",811.8,175,100,551,0) + +"DATA",811.8,175,100,552,0) + +"DATA",811.8,175,100,556,0) + +"DATA",811.8,175,100,557,0) + +"DATA",811.8,175,100,558,0) + +"DATA",811.8,175,100,559,0) +REMINDER TERM +"DATA",811.8,175,100,560,0) +811.5 +"DATA",811.8,175,100,561,0) +MU NQF0421 BMI MANAGEMENT OPTIONS +"DATA",811.8,175,100,562,0) +754 +"DATA",811.8,175,100,563,0) +3410741318 +"DATA",811.8,175,100,564,0) +NO +"DATA",811.8,175,100,565,0) + +"DATA",811.8,175,100,566,0) + +"DATA",811.8,175,100,577,0) + +"DATA",811.8,175,100,578,0) + +"DATA",811.8,175,100,579,0) + +"DATA",811.8,175,100,584,0) + +"DATA",811.8,175,100,585,0) + +"DATA",811.8,175,100,586,0) + +"DATA",811.8,175,100,587,0) +REMINDER TERM +"DATA",811.8,175,100,588,0) +811.5 +"DATA",811.8,175,100,589,0) +MU NQF0421 65Y BMI LOW +"DATA",811.8,175,100,590,0) +760 +"DATA",811.8,175,100,591,0) +4200126736 +"DATA",811.8,175,100,592,0) +NO +"DATA",811.8,175,100,593,0) + +"DATA",811.8,175,100,594,0) + +"DATA",811.8,175,100,605,0) + +"DATA",811.8,175,100,606,0) + +"DATA",811.8,175,100,607,0) + +"DATA",811.8,175,100,611,0) + +"DATA",811.8,175,100,612,0) + +"DATA",811.8,175,100,613,0) + +"DATA",811.8,175,100,614,0) +REMINDER TERM +"DATA",811.8,175,100,615,0) +811.5 +"DATA",811.8,175,100,616,0) +MU NQF0421 65Y BMI HIGH +"DATA",811.8,175,100,617,0) +761 +"DATA",811.8,175,100,618,0) +777281056 +"DATA",811.8,175,100,619,0) +NO +"DATA",811.8,175,100,620,0) + +"DATA",811.8,175,100,621,0) +29.9 +"DATA",811.8,175,100,626,0) +811.52;+762,+761,;18~YES +"DATA",811.8,175,100,627,0) +811.52;+762,+761,;22~I V>29.9 +"DATA",811.8,175,100,628,0) +811.53;+763,+761,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,629,0) +811.53;+763,+761,;2~WP-start~1 +"DATA",811.8,175,100,630,0) +Exchange Stub +"DATA",811.8,175,100,631,0) +]]> +"DATA",811.8,175,100,632,0) + +"DATA",811.8,175,100,633,0) + +"DATA",811.8,175,100,634,0) + +"DATA",811.8,175,100,638,0) + +"DATA",811.8,175,100,639,0) + +"DATA",811.8,175,100,640,0) + +"DATA",811.8,175,100,641,0) +REMINDER DEFINITION +"DATA",811.8,175,100,642,0) +811.9 +"DATA",811.8,175,100,643,0) +MU NQF0421 BMU DENOM2 LIST +"DATA",811.8,175,100,644,0) +257 +"DATA",811.8,175,100,645,0) +1282884968 +"DATA",811.8,175,100,646,0) +NO +"DATA",811.8,175,100,647,0) + +"DATA",811.8,175,100,648,0) +1 +"DATA",811.8,175,100,676,0) +811.925;+260,+257,;10~FN(1)>1 +"DATA",811.8,175,100,677,0) +811.925;+260,+257,;12~AND +"DATA",811.8,175,100,678,0) +811.925;+260,+257,;41~0 +"DATA",811.8,175,100,679,0) +811.925;+260,+257,;42~0 +"DATA",811.8,175,100,680,0) +811.9255;+261,+260,+257,;.01~1 +"DATA",811.8,175,100,681,0) +811.9255;+261,+260,+257,;.02~COUNT +"DATA",811.8,175,100,682,0) +811.9256;+262,+261,+260,+257,;.01~1 +"DATA",811.8,175,100,683,0) +811.97;+263,+257,;.01~99Y +"DATA",811.8,175,100,684,0) +811.97;+263,+257,;1~18 +"DATA",811.8,175,100,685,0) +811.97;+263,+257,;2~64 +"DATA",811.8,175,100,686,0) +811.97;+263,+257,;5~0 +"DATA",811.8,175,100,687,0) +811.97;+263,+257,;6~0 +"DATA",811.8,175,100,688,0) +]]> +"DATA",811.8,175,100,689,0) + +"DATA",811.8,175,100,690,0) + +"DATA",811.8,175,100,691,0) + +"DATA",811.8,175,100,699,0) + +"DATA",811.8,175,100,700,0) + +"DATA",811.8,175,100,701,0) + +"DATA",811.8,175,100,702,0) +REMINDER DEFINITION +"DATA",811.8,175,100,703,0) +811.9 +"DATA",811.8,175,100,704,0) +MU NQF0421 BMI DENOM 1 LIST +"DATA",811.8,175,100,705,0) +255 +"DATA",811.8,175,100,706,0) +2014610145 +"DATA",811.8,175,100,707,0) +NO +"DATA",811.8,175,100,708,0) + +"DATA",811.8,175,100,709,0) +1 +"DATA",811.8,175,100,739,0) +811.925;+258,+255,;10~FN(1)>1 +"DATA",811.8,175,100,740,0) +811.925;+258,+255,;12~AND +"DATA",811.8,175,100,741,0) +811.925;+258,+255,;41~0 +"DATA",811.8,175,100,742,0) +811.925;+258,+255,;42~0 +"DATA",811.8,175,100,743,0) +811.9255;+259,+258,+255,;.01~1 +"DATA",811.8,175,100,744,0) +811.9255;+259,+258,+255,;.02~COUNT +"DATA",811.8,175,100,745,0) +811.9256;+260,+259,+258,+255,;.01~1 +"DATA",811.8,175,100,746,0) +811.97;+261,+255,;.01~99Y +"DATA",811.8,175,100,747,0) +811.97;+261,+255,;1~65 +"DATA",811.8,175,100,748,0) +811.97;+261,+255,;5~0 +"DATA",811.8,175,100,749,0) +811.97;+261,+255,;6~0 +"DATA",811.8,175,100,750,0) +]]> +"DATA",811.8,175,100,751,0) + +"DATA",811.8,175,100,752,0) + +"DATA",811.8,175,100,753,0) + +"DATA",811.8,175,100,761,0) + +"DATA",811.8,175,100,762,0) + +"DATA",811.8,175,100,763,0) + +"DATA",811.8,175,100,764,0) +REMINDER DEFINITION +"DATA",811.8,175,100,765,0) +811.9 +"DATA",811.8,175,100,766,0) +MU NQF0421 BMI NUM2 LIST +"DATA",811.8,175,100,767,0) +258 +"DATA",811.8,175,100,768,0) +107614712 +"DATA",811.8,175,100,769,0) +NO +"DATA",811.8,175,100,770,0) + +"DATA",811.8,175,100,771,0) + +"DATA",811.8,175,100,817,0) + +"DATA",811.8,175,100,818,0) + +"DATA",811.8,175,100,819,0) + +"DATA",811.8,175,100,829,0) + +"DATA",811.8,175,100,830,0) + +"DATA",811.8,175,100,831,0) + +"DATA",811.8,175,100,832,0) +REMINDER DEFINITION +"DATA",811.8,175,100,833,0) +811.9 +"DATA",811.8,175,100,834,0) +MU NQF0421 BMI NUM1 LIST +"DATA",811.8,175,100,835,0) +256 +"DATA",811.8,175,100,836,0) +4013036031 +"DATA",811.8,175,100,837,0) +NO +"DATA",811.8,175,100,838,0) + +"DATA",811.8,175,100,839,0) + +"DATA",811.8,175,100,884,0) + +"DATA",811.8,175,100,885,0) + +"DATA",811.8,175,100,886,0) + +"DATA",811.8,175,100,896,0) + +"DATA",811.8,175,100,897,0) + +"DATA",811.8,175,100,898,0) + +"DATA",811.8,175,100,899,0) +REMINDER LIST RULE +"DATA",811.8,175,100,900,0) +810.4 +"DATA",811.8,175,100,901,0) +MU NQF0421 <65Y BMI NUM2-ALL PLL +"DATA",811.8,175,100,902,0) +319 +"DATA",811.8,175,100,903,0) +3393778207 +"DATA",811.8,175,100,904,0) +NO +"DATA",811.8,175,100,905,0) + +"DATA",811.8,175,100,906,0) + +"DATA",811.8,175,100,916,0) + +"DATA",811.8,175,100,917,0) + +"DATA",811.8,175,100,918,0) + +"DATA",811.8,175,100,921,0) + +"DATA",811.8,175,100,922,0) + +"DATA",811.8,175,100,923,0) + +"DATA",811.8,175,100,924,0) +REMINDER LIST RULE +"DATA",811.8,175,100,925,0) +810.4 +"DATA",811.8,175,100,926,0) +MU NQF0421 65Y BMI NUM1-ALL PLL +"DATA",811.8,175,100,927,0) +317 +"DATA",811.8,175,100,928,0) +3244572912 +"DATA",811.8,175,100,929,0) +NO +"DATA",811.8,175,100,930,0) + +"DATA",811.8,175,100,931,0) +=65Y Numerator1 Patient List Rule +"DATA",811.8,175,100,934,0) +810.4;+317,;.03~PATIENT LIST +"DATA",811.8,175,100,935,0) +810.4;+317,;7~MU NQF0421 65Y BMI NUM1-ALL PL Mnn/yyyy +"DATA",811.8,175,100,936,0) +810.4;+317,;100~LOCAL +"DATA",811.8,175,100,937,0) +810.42;+318,+317,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,938,0) +810.42;+318,+317,;2~WP-start~1 +"DATA",811.8,175,100,939,0) +Exchange Stub +"DATA",811.8,175,100,940,0) +]]> +"DATA",811.8,175,100,941,0) + +"DATA",811.8,175,100,942,0) + +"DATA",811.8,175,100,943,0) + +"DATA",811.8,175,100,946,0) + +"DATA",811.8,175,100,947,0) + +"DATA",811.8,175,100,948,0) + +"DATA",811.8,175,100,949,0) +REMINDER LIST RULE +"DATA",811.8,175,100,950,0) +810.4 +"DATA",811.8,175,100,951,0) +MU NQF0421 BMI NUM ALL RS +"DATA",811.8,175,100,952,0) +321 +"DATA",811.8,175,100,953,0) +1990984385 +"DATA",811.8,175,100,954,0) +NO +"DATA",811.8,175,100,955,0) + +"DATA",811.8,175,100,956,0) +=65 yo) +"DATA",811.8,175,100,959,0) +810.4;+321,;.03~RULE SET +"DATA",811.8,175,100,960,0) +810.4;+321,;100~LOCAL +"DATA",811.8,175,100,961,0) +810.41;+322,+321,;.01~10 +"DATA",811.8,175,100,962,0) +810.41;+322,+321,;.02~MU NQF0421 65Y BMI NUM1-ALL PLL +"DATA",811.8,175,100,963,0) +810.41;+322,+321,;.03~ADD PATIENT +"DATA",811.8,175,100,964,0) +810.41;+323,+321,;.01~20 +"DATA",811.8,175,100,965,0) +810.41;+323,+321,;.02~MU NQF0421 <65Y BMI NUM2-ALL PLL +"DATA",811.8,175,100,966,0) +810.41;+323,+321,;.03~ADD PATIENT +"DATA",811.8,175,100,967,0) +810.42;+324,+321,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,968,0) +810.42;+324,+321,;2~WP-start~1 +"DATA",811.8,175,100,969,0) +Exchange Stub +"DATA",811.8,175,100,970,0) +]]> +"DATA",811.8,175,100,971,0) + +"DATA",811.8,175,100,972,0) + +"DATA",811.8,175,100,973,0) + +"DATA",811.8,175,100,978,0) + +"DATA",811.8,175,100,979,0) + +"DATA",811.8,175,100,980,0) + +"DATA",811.8,175,100,981,0) +REMINDER LIST RULE +"DATA",811.8,175,100,982,0) +810.4 +"DATA",811.8,175,100,983,0) +MU NQF0421 BMI DENOM2 PLL +"DATA",811.8,175,100,984,0) +318 +"DATA",811.8,175,100,985,0) +830474672 +"DATA",811.8,175,100,986,0) +NO +"DATA",811.8,175,100,987,0) + +"DATA",811.8,175,100,988,0) + +"DATA",811.8,175,100,998,0) + +"DATA",811.8,175,100,999,0) + +"DATA",811.8,175,100,1000,0) + +"DATA",811.8,175,100,1003,0) + +"DATA",811.8,175,100,1004,0) + +"DATA",811.8,175,100,1005,0) + +"DATA",811.8,175,100,1006,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1007,0) +810.4 +"DATA",811.8,175,100,1008,0) +MU NQF0421 BMI DENOM1 PLL +"DATA",811.8,175,100,1009,0) +316 +"DATA",811.8,175,100,1010,0) +455613172 +"DATA",811.8,175,100,1011,0) +NO +"DATA",811.8,175,100,1012,0) + +"DATA",811.8,175,100,1013,0) + +"DATA",811.8,175,100,1023,0) + +"DATA",811.8,175,100,1024,0) + +"DATA",811.8,175,100,1025,0) + +"DATA",811.8,175,100,1028,0) + +"DATA",811.8,175,100,1029,0) + +"DATA",811.8,175,100,1030,0) + +"DATA",811.8,175,100,1031,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1032,0) +810.4 +"DATA",811.8,175,100,1033,0) +MU NQF0421 BMI DENOM ALL RS +"DATA",811.8,175,100,1034,0) +320 +"DATA",811.8,175,100,1035,0) +2099774664 +"DATA",811.8,175,100,1036,0) +NO +"DATA",811.8,175,100,1037,0) + +"DATA",811.8,175,100,1038,0) +=65) +"DATA",811.8,175,100,1041,0) +810.4;+320,;.03~RULE SET +"DATA",811.8,175,100,1042,0) +810.4;+320,;100~LOCAL +"DATA",811.8,175,100,1043,0) +810.41;+321,+320,;.01~10 +"DATA",811.8,175,100,1044,0) +810.41;+321,+320,;.02~MU NQF0421 BMI DENOM1 PLL +"DATA",811.8,175,100,1045,0) +810.41;+321,+320,;.03~ADD PATIENT +"DATA",811.8,175,100,1046,0) +810.41;+322,+320,;.01~20 +"DATA",811.8,175,100,1047,0) +810.41;+322,+320,;.02~MU NQF0421 BMI DENOM2 PLL +"DATA",811.8,175,100,1048,0) +810.41;+322,+320,;.03~ADD PATIENT +"DATA",811.8,175,100,1049,0) +810.42;+323,+320,;.01~07/26/2012@11:01:05 +"DATA",811.8,175,100,1050,0) +810.42;+323,+320,;2~WP-start~1 +"DATA",811.8,175,100,1051,0) +Exchange Stub +"DATA",811.8,175,100,1052,0) +]]> +"DATA",811.8,175,100,1053,0) + +"DATA",811.8,175,100,1054,0) + +"DATA",811.8,175,100,1055,0) + +"DATA",811.8,175,100,1060,0) + +"DATA",811.8,175,100,1061,0) + +"DATA",811.8,175,100,1062,0) + +"DATA",811.8,175,100,1063,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1064,0) +810.4 +"DATA",811.8,175,100,1065,0) +MU NQF0421 BMI DENOM EXCL FR +"DATA",811.8,175,100,1066,0) +271 +"DATA",811.8,175,100,1067,0) +4011544089 +"DATA",811.8,175,100,1068,0) +NO +"DATA",811.8,175,100,1069,0) + +"DATA",811.8,175,100,1070,0) + +"DATA",811.8,175,100,1079,0) + +"DATA",811.8,175,100,1080,0) + +"DATA",811.8,175,100,1081,0) + +"DATA",811.8,175,100,1084,0) + +"DATA",811.8,175,100,1085,0) + +"DATA",811.8,175,100,1086,0) + +"DATA",811.8,175,100,1087,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1088,0) +810.4 +"DATA",811.8,175,100,1089,0) +MU NQF0421 BMI DENOM2 RR +"DATA",811.8,175,100,1090,0) +277 +"DATA",811.8,175,100,1091,0) +1425638256 +"DATA",811.8,175,100,1092,0) +NO +"DATA",811.8,175,100,1093,0) + +"DATA",811.8,175,100,1094,0) + +"DATA",811.8,175,100,1103,0) + +"DATA",811.8,175,100,1104,0) + +"DATA",811.8,175,100,1105,0) + +"DATA",811.8,175,100,1108,0) + +"DATA",811.8,175,100,1109,0) + +"DATA",811.8,175,100,1110,0) + +"DATA",811.8,175,100,1111,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1112,0) +810.4 +"DATA",811.8,175,100,1113,0) +MU NQF0421 BMI DENOM2 RS +"DATA",811.8,175,100,1114,0) +278 +"DATA",811.8,175,100,1115,0) +107790628 +"DATA",811.8,175,100,1116,0) +NO +"DATA",811.8,175,100,1117,0) + +"DATA",811.8,175,100,1118,0) + +"DATA",811.8,175,100,1132,0) + +"DATA",811.8,175,100,1133,0) + +"DATA",811.8,175,100,1134,0) + +"DATA",811.8,175,100,1139,0) + +"DATA",811.8,175,100,1140,0) + +"DATA",811.8,175,100,1141,0) + +"DATA",811.8,175,100,1142,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1143,0) +810.4 +"DATA",811.8,175,100,1144,0) +MU NQF0421 BMI DENOM1 RR +"DATA",811.8,175,100,1145,0) +272 +"DATA",811.8,175,100,1146,0) +1627116276 +"DATA",811.8,175,100,1147,0) +NO +"DATA",811.8,175,100,1148,0) + +"DATA",811.8,175,100,1149,0) + +"DATA",811.8,175,100,1158,0) + +"DATA",811.8,175,100,1159,0) + +"DATA",811.8,175,100,1160,0) + +"DATA",811.8,175,100,1163,0) + +"DATA",811.8,175,100,1164,0) + +"DATA",811.8,175,100,1165,0) + +"DATA",811.8,175,100,1166,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1167,0) +810.4 +"DATA",811.8,175,100,1168,0) +MU NQF0421 BMI DENOM1 RS +"DATA",811.8,175,100,1169,0) +273 +"DATA",811.8,175,100,1170,0) +2308321999 +"DATA",811.8,175,100,1171,0) +NO +"DATA",811.8,175,100,1172,0) + +"DATA",811.8,175,100,1173,0) + +"DATA",811.8,175,100,1187,0) + +"DATA",811.8,175,100,1188,0) + +"DATA",811.8,175,100,1189,0) + +"DATA",811.8,175,100,1194,0) + +"DATA",811.8,175,100,1195,0) + +"DATA",811.8,175,100,1196,0) + +"DATA",811.8,175,100,1197,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1198,0) +810.4 +"DATA",811.8,175,100,1199,0) +MU NQF0421 <65Y BMI NL NUM2 PLL +"DATA",811.8,175,100,1200,0) +308 +"DATA",811.8,175,100,1201,0) +2514936764 +"DATA",811.8,175,100,1202,0) +NO +"DATA",811.8,175,100,1203,0) + +"DATA",811.8,175,100,1204,0) + +"DATA",811.8,175,100,1214,0) + +"DATA",811.8,175,100,1215,0) + +"DATA",811.8,175,100,1216,0) + +"DATA",811.8,175,100,1219,0) + +"DATA",811.8,175,100,1220,0) + +"DATA",811.8,175,100,1221,0) + +"DATA",811.8,175,100,1222,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1223,0) +810.4 +"DATA",811.8,175,100,1224,0) +MU NQF0421 <65Y BMI LOW NUM2 PLL +"DATA",811.8,175,100,1225,0) +309 +"DATA",811.8,175,100,1226,0) +267573585 +"DATA",811.8,175,100,1227,0) +NO +"DATA",811.8,175,100,1228,0) + +"DATA",811.8,175,100,1229,0) + +"DATA",811.8,175,100,1239,0) + +"DATA",811.8,175,100,1240,0) + +"DATA",811.8,175,100,1241,0) + +"DATA",811.8,175,100,1244,0) + +"DATA",811.8,175,100,1245,0) + +"DATA",811.8,175,100,1246,0) + +"DATA",811.8,175,100,1247,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1248,0) +810.4 +"DATA",811.8,175,100,1249,0) +MU NQF0421 <65Y BMI HIGH NUM2 PLL +"DATA",811.8,175,100,1250,0) +310 +"DATA",811.8,175,100,1251,0) +2015317458 +"DATA",811.8,175,100,1252,0) +NO +"DATA",811.8,175,100,1253,0) + +"DATA",811.8,175,100,1254,0) + +"DATA",811.8,175,100,1264,0) + +"DATA",811.8,175,100,1265,0) + +"DATA",811.8,175,100,1266,0) + +"DATA",811.8,175,100,1269,0) + +"DATA",811.8,175,100,1270,0) + +"DATA",811.8,175,100,1271,0) + +"DATA",811.8,175,100,1272,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1273,0) +810.4 +"DATA",811.8,175,100,1274,0) +MU NQF0421 <65Y BMI NUM2-ALL RS +"DATA",811.8,175,100,1275,0) +311 +"DATA",811.8,175,100,1276,0) +3851364976 +"DATA",811.8,175,100,1277,0) +NO +"DATA",811.8,175,100,1278,0) + +"DATA",811.8,175,100,1279,0) + +"DATA",811.8,175,100,1297,0) + +"DATA",811.8,175,100,1298,0) + +"DATA",811.8,175,100,1299,0) + +"DATA",811.8,175,100,1305,0) + +"DATA",811.8,175,100,1306,0) + +"DATA",811.8,175,100,1307,0) + +"DATA",811.8,175,100,1308,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1309,0) +810.4 +"DATA",811.8,175,100,1310,0) +MU NQF0421 <65Y BMI LOW FR +"DATA",811.8,175,100,1311,0) +287 +"DATA",811.8,175,100,1312,0) +1048434153 +"DATA",811.8,175,100,1313,0) +NO +"DATA",811.8,175,100,1314,0) + +"DATA",811.8,175,100,1315,0) + +"DATA",811.8,175,100,1324,0) + +"DATA",811.8,175,100,1325,0) + +"DATA",811.8,175,100,1326,0) + +"DATA",811.8,175,100,1329,0) + +"DATA",811.8,175,100,1330,0) + +"DATA",811.8,175,100,1331,0) + +"DATA",811.8,175,100,1332,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1333,0) +810.4 +"DATA",811.8,175,100,1334,0) +MU NQF0421 <65Y BMI HIGH FR +"DATA",811.8,175,100,1335,0) +288 +"DATA",811.8,175,100,1336,0) +2281079770 +"DATA",811.8,175,100,1337,0) +NO +"DATA",811.8,175,100,1338,0) + +"DATA",811.8,175,100,1339,0) + +"DATA",811.8,175,100,1348,0) + +"DATA",811.8,175,100,1349,0) + +"DATA",811.8,175,100,1350,0) + +"DATA",811.8,175,100,1353,0) + +"DATA",811.8,175,100,1354,0) + +"DATA",811.8,175,100,1355,0) + +"DATA",811.8,175,100,1356,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1357,0) +810.4 +"DATA",811.8,175,100,1358,0) +MU NQF0421 BMI FINDING FR +"DATA",811.8,175,100,1359,0) +274 +"DATA",811.8,175,100,1360,0) +1536451744 +"DATA",811.8,175,100,1361,0) +NO +"DATA",811.8,175,100,1362,0) + +"DATA",811.8,175,100,1363,0) + +"DATA",811.8,175,100,1372,0) + +"DATA",811.8,175,100,1373,0) + +"DATA",811.8,175,100,1374,0) + +"DATA",811.8,175,100,1377,0) + +"DATA",811.8,175,100,1378,0) + +"DATA",811.8,175,100,1379,0) + +"DATA",811.8,175,100,1380,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1381,0) +810.4 +"DATA",811.8,175,100,1382,0) +MU NQF0421 BMI NUM2 RR +"DATA",811.8,175,100,1383,0) +279 +"DATA",811.8,175,100,1384,0) +790324432 +"DATA",811.8,175,100,1385,0) +NO +"DATA",811.8,175,100,1386,0) + +"DATA",811.8,175,100,1387,0) + +"DATA",811.8,175,100,1396,0) + +"DATA",811.8,175,100,1397,0) + +"DATA",811.8,175,100,1398,0) + +"DATA",811.8,175,100,1401,0) + +"DATA",811.8,175,100,1402,0) + +"DATA",811.8,175,100,1403,0) + +"DATA",811.8,175,100,1404,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1405,0) +810.4 +"DATA",811.8,175,100,1406,0) +MU NQF0421 <65Y BMI NL NUM2 RS +"DATA",811.8,175,100,1407,0) +289 +"DATA",811.8,175,100,1408,0) +3144089747 +"DATA",811.8,175,100,1409,0) +NO +"DATA",811.8,175,100,1410,0) + +"DATA",811.8,175,100,1411,0) + +"DATA",811.8,175,100,1434,0) + +"DATA",811.8,175,100,1435,0) + +"DATA",811.8,175,100,1436,0) + +"DATA",811.8,175,100,1444,0) + +"DATA",811.8,175,100,1445,0) + +"DATA",811.8,175,100,1446,0) + +"DATA",811.8,175,100,1447,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1448,0) +810.4 +"DATA",811.8,175,100,1449,0) +MU NQF0421 MANAGEMENT FR +"DATA",811.8,175,100,1450,0) +290 +"DATA",811.8,175,100,1451,0) +3768218604 +"DATA",811.8,175,100,1452,0) +NO +"DATA",811.8,175,100,1453,0) + +"DATA",811.8,175,100,1454,0) + +"DATA",811.8,175,100,1463,0) + +"DATA",811.8,175,100,1464,0) + +"DATA",811.8,175,100,1465,0) + +"DATA",811.8,175,100,1468,0) + +"DATA",811.8,175,100,1469,0) + +"DATA",811.8,175,100,1470,0) + +"DATA",811.8,175,100,1471,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1472,0) +810.4 +"DATA",811.8,175,100,1473,0) +MU NQF0421 <65Y BMI LOW NUM2 RS +"DATA",811.8,175,100,1474,0) +291 +"DATA",811.8,175,100,1475,0) +2406261177 +"DATA",811.8,175,100,1476,0) +NO +"DATA",811.8,175,100,1477,0) + +"DATA",811.8,175,100,1478,0) + +"DATA",811.8,175,100,1495,0) + +"DATA",811.8,175,100,1496,0) + +"DATA",811.8,175,100,1497,0) + +"DATA",811.8,175,100,1503,0) + +"DATA",811.8,175,100,1504,0) + +"DATA",811.8,175,100,1505,0) + +"DATA",811.8,175,100,1506,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1507,0) +810.4 +"DATA",811.8,175,100,1508,0) +MU NQF0421 <65Y BMI HIGH NUM2 RS +"DATA",811.8,175,100,1509,0) +292 +"DATA",811.8,175,100,1510,0) +785920733 +"DATA",811.8,175,100,1511,0) +NO +"DATA",811.8,175,100,1512,0) + +"DATA",811.8,175,100,1513,0) + +"DATA",811.8,175,100,1530,0) + +"DATA",811.8,175,100,1531,0) + +"DATA",811.8,175,100,1532,0) + +"DATA",811.8,175,100,1538,0) + +"DATA",811.8,175,100,1539,0) + +"DATA",811.8,175,100,1540,0) + +"DATA",811.8,175,100,1541,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1542,0) +810.4 +"DATA",811.8,175,100,1543,0) +MU NQF0421 65Y BMI NL NUM1 PLL +"DATA",811.8,175,100,1544,0) +312 +"DATA",811.8,175,100,1545,0) +1133969827 +"DATA",811.8,175,100,1546,0) +NO +"DATA",811.8,175,100,1547,0) + +"DATA",811.8,175,100,1548,0) +=65Y BMI Normal Patient List Rule using Extract Patient List +"DATA",811.8,175,100,1551,0) +810.4;+312,;.03~PATIENT LIST +"DATA",811.8,175,100,1552,0) +810.4;+312,;7~MU NQF0421 65Y BMI NL NUM1 PL Mnn/yyyy +"DATA",811.8,175,100,1553,0) +810.4;+312,;100~LOCAL +"DATA",811.8,175,100,1554,0) +810.42;+313,+312,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1555,0) +810.42;+313,+312,;2~WP-start~1 +"DATA",811.8,175,100,1556,0) +Exchange Stub +"DATA",811.8,175,100,1557,0) +]]> +"DATA",811.8,175,100,1558,0) + +"DATA",811.8,175,100,1559,0) + +"DATA",811.8,175,100,1560,0) + +"DATA",811.8,175,100,1563,0) + +"DATA",811.8,175,100,1564,0) + +"DATA",811.8,175,100,1565,0) + +"DATA",811.8,175,100,1566,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1567,0) +810.4 +"DATA",811.8,175,100,1568,0) +MU NQF0421 65Y BMI LOW NUM1 PLL +"DATA",811.8,175,100,1569,0) +313 +"DATA",811.8,175,100,1570,0) +13337916 +"DATA",811.8,175,100,1571,0) +NO +"DATA",811.8,175,100,1572,0) + +"DATA",811.8,175,100,1573,0) +=65Y BMI Low Patient List Rule using Extract Patient List +"DATA",811.8,175,100,1576,0) +810.4;+313,;.03~PATIENT LIST +"DATA",811.8,175,100,1577,0) +810.4;+313,;7~MU NQF0421 65Y BMI LOW NUM1 PL Mnn/yyyy +"DATA",811.8,175,100,1578,0) +810.4;+313,;100~LOCAL +"DATA",811.8,175,100,1579,0) +810.42;+314,+313,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1580,0) +810.42;+314,+313,;2~WP-start~1 +"DATA",811.8,175,100,1581,0) +Exchange Stub +"DATA",811.8,175,100,1582,0) +]]> +"DATA",811.8,175,100,1583,0) + +"DATA",811.8,175,100,1584,0) + +"DATA",811.8,175,100,1585,0) + +"DATA",811.8,175,100,1588,0) + +"DATA",811.8,175,100,1589,0) + +"DATA",811.8,175,100,1590,0) + +"DATA",811.8,175,100,1591,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1592,0) +810.4 +"DATA",811.8,175,100,1593,0) +MU NQF0421 65Y BMI HIGH NUM1 PLL +"DATA",811.8,175,100,1594,0) +314 +"DATA",811.8,175,100,1595,0) +3287530148 +"DATA",811.8,175,100,1596,0) +NO +"DATA",811.8,175,100,1597,0) + +"DATA",811.8,175,100,1598,0) +=65Y BMI High Patient List Rule using Extract Patient List +"DATA",811.8,175,100,1601,0) +810.4;+314,;.03~PATIENT LIST +"DATA",811.8,175,100,1602,0) +810.4;+314,;7~MU NQF0421 65Y BMI HIGH NUM1 PL Mnn/yyyy +"DATA",811.8,175,100,1603,0) +810.4;+314,;100~LOCAL +"DATA",811.8,175,100,1604,0) +810.42;+315,+314,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1605,0) +810.42;+315,+314,;2~WP-start~1 +"DATA",811.8,175,100,1606,0) +Exchange Stub +"DATA",811.8,175,100,1607,0) +]]> +"DATA",811.8,175,100,1608,0) + +"DATA",811.8,175,100,1609,0) + +"DATA",811.8,175,100,1610,0) + +"DATA",811.8,175,100,1613,0) + +"DATA",811.8,175,100,1614,0) + +"DATA",811.8,175,100,1615,0) + +"DATA",811.8,175,100,1616,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1617,0) +810.4 +"DATA",811.8,175,100,1618,0) +MU NQF0421 65Y BMI NUM1-ALL RS +"DATA",811.8,175,100,1619,0) +315 +"DATA",811.8,175,100,1620,0) +3561795460 +"DATA",811.8,175,100,1621,0) +NO +"DATA",811.8,175,100,1622,0) + +"DATA",811.8,175,100,1623,0) + +"DATA",811.8,175,100,1641,0) + +"DATA",811.8,175,100,1642,0) + +"DATA",811.8,175,100,1643,0) + +"DATA",811.8,175,100,1649,0) + +"DATA",811.8,175,100,1650,0) + +"DATA",811.8,175,100,1651,0) + +"DATA",811.8,175,100,1652,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1653,0) +810.4 +"DATA",811.8,175,100,1654,0) +MU NQF0421 65Y BMI LOW FR +"DATA",811.8,175,100,1655,0) +293 +"DATA",811.8,175,100,1656,0) +3932500980 +"DATA",811.8,175,100,1657,0) +NO +"DATA",811.8,175,100,1658,0) + +"DATA",811.8,175,100,1659,0) + +"DATA",811.8,175,100,1668,0) + +"DATA",811.8,175,100,1669,0) + +"DATA",811.8,175,100,1670,0) + +"DATA",811.8,175,100,1673,0) + +"DATA",811.8,175,100,1674,0) + +"DATA",811.8,175,100,1675,0) + +"DATA",811.8,175,100,1676,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1677,0) +810.4 +"DATA",811.8,175,100,1678,0) +MU NQF0421 65Y BMI HIGH FR +"DATA",811.8,175,100,1679,0) +294 +"DATA",811.8,175,100,1680,0) +4259001419 +"DATA",811.8,175,100,1681,0) +NO +"DATA",811.8,175,100,1682,0) + +"DATA",811.8,175,100,1683,0) + +"DATA",811.8,175,100,1692,0) + +"DATA",811.8,175,100,1693,0) + +"DATA",811.8,175,100,1694,0) + +"DATA",811.8,175,100,1697,0) + +"DATA",811.8,175,100,1698,0) + +"DATA",811.8,175,100,1699,0) + +"DATA",811.8,175,100,1700,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1701,0) +810.4 +"DATA",811.8,175,100,1702,0) +MU NQF0421 BMI NUM1 RR +"DATA",811.8,175,100,1703,0) +275 +"DATA",811.8,175,100,1704,0) +898190435 +"DATA",811.8,175,100,1705,0) +NO +"DATA",811.8,175,100,1706,0) + +"DATA",811.8,175,100,1707,0) + +"DATA",811.8,175,100,1716,0) + +"DATA",811.8,175,100,1717,0) + +"DATA",811.8,175,100,1718,0) + +"DATA",811.8,175,100,1721,0) + +"DATA",811.8,175,100,1722,0) + +"DATA",811.8,175,100,1723,0) + +"DATA",811.8,175,100,1724,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1725,0) +810.4 +"DATA",811.8,175,100,1726,0) +MU NQF0421 65Y BMI NL NUM1 RS +"DATA",811.8,175,100,1727,0) +295 +"DATA",811.8,175,100,1728,0) +2476411300 +"DATA",811.8,175,100,1729,0) +NO +"DATA",811.8,175,100,1730,0) + +"DATA",811.8,175,100,1731,0) +65Y AND NL BMI +"DATA",811.8,175,100,1734,0) +810.4;+295,;.03~RULE SET +"DATA",811.8,175,100,1735,0) +810.4;+295,;100~LOCAL +"DATA",811.8,175,100,1736,0) +810.41;+296,+295,;.01~1 +"DATA",811.8,175,100,1737,0) +810.41;+296,+295,;.02~MU NQF0421 BMI NUM1 RR +"DATA",811.8,175,100,1738,0) +810.41;+296,+295,;.03~ADD PATIENT +"DATA",811.8,175,100,1739,0) +810.41;+297,+295,;.01~2 +"DATA",811.8,175,100,1740,0) +810.41;+297,+295,;.02~MU NQF0421 BMI FINDING FR +"DATA",811.8,175,100,1741,0) +810.41;+297,+295,;.03~SELECT +"DATA",811.8,175,100,1742,0) +810.41;+298,+295,;.01~3 +"DATA",811.8,175,100,1743,0) +810.41;+298,+295,;.02~MU NQF0421 BMI DENOM EXCL FR +"DATA",811.8,175,100,1744,0) +810.41;+298,+295,;.03~REMOVE +"DATA",811.8,175,100,1745,0) +810.41;+299,+295,;.01~4 +"DATA",811.8,175,100,1746,0) +810.41;+299,+295,;.02~MU NQF0421 65Y BMI HIGH FR +"DATA",811.8,175,100,1747,0) +810.41;+299,+295,;.03~REMOVE +"DATA",811.8,175,100,1748,0) +810.41;+300,+295,;.01~5 +"DATA",811.8,175,100,1749,0) +810.41;+300,+295,;.02~MU NQF0421 65Y BMI LOW FR +"DATA",811.8,175,100,1750,0) +810.41;+300,+295,;.03~REMOVE +"DATA",811.8,175,100,1751,0) +810.42;+301,+295,;.01~07/26/2012@11:01:06 +"DATA",811.8,175,100,1752,0) +810.42;+301,+295,;2~WP-start~1 +"DATA",811.8,175,100,1753,0) +Exchange Stub +"DATA",811.8,175,100,1754,0) +]]> +"DATA",811.8,175,100,1755,0) + +"DATA",811.8,175,100,1756,0) + +"DATA",811.8,175,100,1757,0) + +"DATA",811.8,175,100,1765,0) + +"DATA",811.8,175,100,1766,0) + +"DATA",811.8,175,100,1767,0) + +"DATA",811.8,175,100,1768,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1769,0) +810.4 +"DATA",811.8,175,100,1770,0) +MU NQF0421 65Y BMI LOW NUM1 RS +"DATA",811.8,175,100,1771,0) +296 +"DATA",811.8,175,100,1772,0) +1376197315 +"DATA",811.8,175,100,1773,0) +NO +"DATA",811.8,175,100,1774,0) + +"DATA",811.8,175,100,1775,0) + +"DATA",811.8,175,100,1792,0) + +"DATA",811.8,175,100,1793,0) + +"DATA",811.8,175,100,1794,0) + +"DATA",811.8,175,100,1800,0) + +"DATA",811.8,175,100,1801,0) + +"DATA",811.8,175,100,1802,0) + +"DATA",811.8,175,100,1803,0) +REMINDER LIST RULE +"DATA",811.8,175,100,1804,0) +810.4 +"DATA",811.8,175,100,1805,0) +MU NQF0421 65Y BMI HIGH NUM1 RS +"DATA",811.8,175,100,1806,0) +298 +"DATA",811.8,175,100,1807,0) +3941807583 +"DATA",811.8,175,100,1808,0) +NO +"DATA",811.8,175,100,1809,0) + +"DATA",811.8,175,100,1810,0) + +"DATA",811.8,175,100,1827,0) + +"DATA",811.8,175,100,1828,0) + +"DATA",811.8,175,100,1829,0) + +"DATA",811.8,175,100,1835,0) + +"DATA",811.8,175,100,1836,0) + +"DATA",811.8,175,100,1837,0) + +"DATA",811.8,175,100,1838,0) +REMINDER EXTRACT DEFINITION +"DATA",811.8,175,100,1839,0) +810.2 +"DATA",811.8,175,100,1840,0) +MU NQF0421 ADULT BMI +"DATA",811.8,175,100,1841,0) +10 +"DATA",811.8,175,100,1842,0) +2621697332 +"DATA",811.8,175,100,1843,0) +YES +"DATA",811.8,175,100,1844,0) + +"DATA",811.8,175,100,1845,0) + +"DATA",811.8,175,100,1917,0) + +"DATA",811.8,175,100,1918,0) + +"DATA",811.8,175,100,1919,0) + +"DATA",811.8,175,100,1934,0) + +"DATA",811.8,175,100,1935,0) + +"DATA",811.8,175,100,1936,0) + +"DATA",811.8,175,100,1937,0) +60 +"DATA",811.8,175,100,1938,0) + +"DATA",811.8,175,100,1939,0) +23 +"DATA",811.8,175,100,1940,0) +131 +"DATA",811.8,175,100,1941,0) +28 +"DATA",811.8,175,100,1942,0) + +"DATA",811.8,175,100,1943,0) + +"DATA",811.8,175,100,1944,0) +144 +"DATA",811.8,175,100,1945,0) +144 +"DATA",811.8,175,100,1946,0) +135 +"DATA",811.8,175,100,1947,0) + +"DATA",811.8,175,100,1948,0) + +"DATA",811.8,175,100,1949,0) +158 +"DATA",811.8,175,100,1950,0) +157 +"DATA",811.8,175,100,1951,0) +148 +"DATA",811.8,175,100,1952,0) + +"DATA",811.8,175,100,1953,0) + +"DATA",811.8,175,100,1954,0) +176 +"DATA",811.8,175,100,1955,0) +171 +"DATA",811.8,175,100,1956,0) +162 +"DATA",811.8,175,100,1957,0) + +"DATA",811.8,175,100,1958,0) + +"DATA",811.8,175,100,1959,0) +193 +"DATA",811.8,175,100,1960,0) +189 +"DATA",811.8,175,100,1961,0) +180 +"DATA",811.8,175,100,1962,0) + +"DATA",811.8,175,100,1963,0) + +"DATA",811.8,175,100,1964,0) +207 +"DATA",811.8,175,100,1965,0) +206 +"DATA",811.8,175,100,1966,0) +197 +"DATA",811.8,175,100,1967,0) + +"DATA",811.8,175,100,1968,0) + +"DATA",811.8,175,100,1969,0) +224 +"DATA",811.8,175,100,1970,0) +220 +"DATA",811.8,175,100,1971,0) +211 +"DATA",811.8,175,100,1972,0) + +"DATA",811.8,175,100,1973,0) + +"DATA",811.8,175,100,1974,0) +238 +"DATA",811.8,175,100,1975,0) +237 +"DATA",811.8,175,100,1976,0) +228 +"DATA",811.8,175,100,1977,0) + +"DATA",811.8,175,100,1978,0) + +"DATA",811.8,175,100,1979,0) +254 +"DATA",811.8,175,100,1980,0) +251 +"DATA",811.8,175,100,1981,0) +242 +"DATA",811.8,175,100,1982,0) + +"DATA",811.8,175,100,1983,0) + +"DATA",811.8,175,100,1984,0) +270 +"DATA",811.8,175,100,1985,0) +267 +"DATA",811.8,175,100,1986,0) +258 +"DATA",811.8,175,100,1987,0) + +"DATA",811.8,175,100,1988,0) + +"DATA",811.8,175,100,1989,0) +308 +"DATA",811.8,175,100,1990,0) +283 +"DATA",811.8,175,100,1991,0) +274 +"DATA",811.8,175,100,1992,0) +313 +"DATA",811.8,175,100,1993,0) +313 +"DATA",811.8,175,100,1994,0) + +"DATA",811.8,175,100,1995,0) + +"DATA",811.8,175,100,1996,0) +343 +"DATA",811.8,175,100,1997,0) +326 +"DATA",811.8,175,100,1998,0) +317 +"DATA",811.8,175,100,1999,0) +351 +"DATA",811.8,175,100,2000,0) +348 +"DATA",811.8,175,100,2001,0) + +"DATA",811.8,175,100,2002,0) + +"DATA",811.8,175,100,2003,0) +373 +"DATA",811.8,175,100,2004,0) +364 +"DATA",811.8,175,100,2005,0) +355 +"DATA",811.8,175,100,2006,0) +379 +"DATA",811.8,175,100,2007,0) +378 +"DATA",811.8,175,100,2008,0) + +"DATA",811.8,175,100,2009,0) + +"DATA",811.8,175,100,2010,0) +401 +"DATA",811.8,175,100,2011,0) +392 +"DATA",811.8,175,100,2012,0) +383 +"DATA",811.8,175,100,2013,0) +407 +"DATA",811.8,175,100,2014,0) +406 +"DATA",811.8,175,100,2015,0) + +"DATA",811.8,175,100,2016,0) + +"DATA",811.8,175,100,2017,0) +440 +"DATA",811.8,175,100,2018,0) +420 +"DATA",811.8,175,100,2019,0) +411 +"DATA",811.8,175,100,2020,0) +450 +"DATA",811.8,175,100,2021,0) +445 +"DATA",811.8,175,100,2022,0) + +"DATA",811.8,175,100,2023,0) + +"DATA",811.8,175,100,2024,0) +471 +"DATA",811.8,175,100,2025,0) +463 +"DATA",811.8,175,100,2026,0) +454 +"DATA",811.8,175,100,2027,0) +477 +"DATA",811.8,175,100,2028,0) +476 +"DATA",811.8,175,100,2029,0) + +"DATA",811.8,175,100,2030,0) + +"DATA",811.8,175,100,2031,0) +498 +"DATA",811.8,175,100,2032,0) +490 +"DATA",811.8,175,100,2033,0) +481 +"DATA",811.8,175,100,2034,0) +504 +"DATA",811.8,175,100,2035,0) +503 +"DATA",811.8,175,100,2036,0) + +"DATA",811.8,175,100,2037,0) + +"DATA",811.8,175,100,2038,0) +523 +"DATA",811.8,175,100,2039,0) +517 +"DATA",811.8,175,100,2040,0) +508 +"DATA",811.8,175,100,2041,0) +529 +"DATA",811.8,175,100,2042,0) +528 +"DATA",811.8,175,100,2043,0) + +"DATA",811.8,175,100,2044,0) + +"DATA",811.8,175,100,2045,0) +548 +"DATA",811.8,175,100,2046,0) +542 +"DATA",811.8,175,100,2047,0) +533 +"DATA",811.8,175,100,2048,0) +554 +"DATA",811.8,175,100,2049,0) +553 +"DATA",811.8,175,100,2050,0) + +"DATA",811.8,175,100,2051,0) + +"DATA",811.8,175,100,2052,0) +575 +"DATA",811.8,175,100,2053,0) +567 +"DATA",811.8,175,100,2054,0) +558 +"DATA",811.8,175,100,2055,0) +582 +"DATA",811.8,175,100,2056,0) +580 +"DATA",811.8,175,100,2057,0) + +"DATA",811.8,175,100,2058,0) + +"DATA",811.8,175,100,2059,0) +603 +"DATA",811.8,175,100,2060,0) +595 +"DATA",811.8,175,100,2061,0) +586 +"DATA",811.8,175,100,2062,0) +609 +"DATA",811.8,175,100,2063,0) +608 +"DATA",811.8,175,100,2064,0) + +"DATA",811.8,175,100,2065,0) + +"DATA",811.8,175,100,2066,0) +630 +"DATA",811.8,175,100,2067,0) +622 +"DATA",811.8,175,100,2068,0) +613 +"DATA",811.8,175,100,2069,0) +636 +"DATA",811.8,175,100,2070,0) +635 +"DATA",811.8,175,100,2071,0) + +"DATA",811.8,175,100,2072,0) + +"DATA",811.8,175,100,2073,0) +687 +"DATA",811.8,175,100,2074,0) +649 +"DATA",811.8,175,100,2075,0) +640 +"DATA",811.8,175,100,2076,0) +697 +"DATA",811.8,175,100,2077,0) +692 +"DATA",811.8,175,100,2078,0) + +"DATA",811.8,175,100,2079,0) + +"DATA",811.8,175,100,2080,0) +749 +"DATA",811.8,175,100,2081,0) +710 +"DATA",811.8,175,100,2082,0) +701 +"DATA",811.8,175,100,2083,0) +759 +"DATA",811.8,175,100,2084,0) +754 +"DATA",811.8,175,100,2085,0) + +"DATA",811.8,175,100,2086,0) + +"DATA",811.8,175,100,2087,0) +815 +"DATA",811.8,175,100,2088,0) +772 +"DATA",811.8,175,100,2089,0) +763 +"DATA",811.8,175,100,2090,0) +827 +"DATA",811.8,175,100,2091,0) +820 +"DATA",811.8,175,100,2092,0) + +"DATA",811.8,175,100,2093,0) + +"DATA",811.8,175,100,2094,0) +882 +"DATA",811.8,175,100,2095,0) +840 +"DATA",811.8,175,100,2096,0) +831 +"DATA",811.8,175,100,2097,0) +894 +"DATA",811.8,175,100,2098,0) +887 +"DATA",811.8,175,100,2099,0) + +"DATA",811.8,175,100,2100,0) + +"DATA",811.8,175,100,2101,0) +914 +"DATA",811.8,175,100,2102,0) +907 +"DATA",811.8,175,100,2103,0) +898 +"DATA",811.8,175,100,2104,0) +919 +"DATA",811.8,175,100,2105,0) +919 +"DATA",811.8,175,100,2106,0) + +"DATA",811.8,175,100,2107,0) + +"DATA",811.8,175,100,2108,0) +939 +"DATA",811.8,175,100,2109,0) +932 +"DATA",811.8,175,100,2110,0) +923 +"DATA",811.8,175,100,2111,0) +944 +"DATA",811.8,175,100,2112,0) +944 +"DATA",811.8,175,100,2113,0) + +"DATA",811.8,175,100,2114,0) + +"DATA",811.8,175,100,2115,0) +969 +"DATA",811.8,175,100,2116,0) +957 +"DATA",811.8,175,100,2117,0) +948 +"DATA",811.8,175,100,2118,0) +976 +"DATA",811.8,175,100,2119,0) +974 +"DATA",811.8,175,100,2120,0) + +"DATA",811.8,175,100,2121,0) + +"DATA",811.8,175,100,2122,0) +996 +"DATA",811.8,175,100,2123,0) +989 +"DATA",811.8,175,100,2124,0) +980 +"DATA",811.8,175,100,2125,0) +1001 +"DATA",811.8,175,100,2126,0) +1001 +"DATA",811.8,175,100,2127,0) + +"DATA",811.8,175,100,2128,0) + +"DATA",811.8,175,100,2129,0) +1021 +"DATA",811.8,175,100,2130,0) +1014 +"DATA",811.8,175,100,2131,0) +1005 +"DATA",811.8,175,100,2132,0) +1026 +"DATA",811.8,175,100,2133,0) +1026 +"DATA",811.8,175,100,2134,0) + +"DATA",811.8,175,100,2135,0) + +"DATA",811.8,175,100,2136,0) +1051 +"DATA",811.8,175,100,2137,0) +1039 +"DATA",811.8,175,100,2138,0) +1030 +"DATA",811.8,175,100,2139,0) +1058 +"DATA",811.8,175,100,2140,0) +1056 +"DATA",811.8,175,100,2141,0) + +"DATA",811.8,175,100,2142,0) + +"DATA",811.8,175,100,2143,0) +1077 +"DATA",811.8,175,100,2144,0) +1071 +"DATA",811.8,175,100,2145,0) +1062 +"DATA",811.8,175,100,2146,0) +1082 +"DATA",811.8,175,100,2147,0) +1082 +"DATA",811.8,175,100,2148,0) + +"DATA",811.8,175,100,2149,0) + +"DATA",811.8,175,100,2150,0) +1101 +"DATA",811.8,175,100,2151,0) +1095 +"DATA",811.8,175,100,2152,0) +1086 +"DATA",811.8,175,100,2153,0) +1106 +"DATA",811.8,175,100,2154,0) +1106 +"DATA",811.8,175,100,2155,0) + +"DATA",811.8,175,100,2156,0) + +"DATA",811.8,175,100,2157,0) +1130 +"DATA",811.8,175,100,2158,0) +1119 +"DATA",811.8,175,100,2159,0) +1110 +"DATA",811.8,175,100,2160,0) +1137 +"DATA",811.8,175,100,2161,0) +1135 +"DATA",811.8,175,100,2162,0) + +"DATA",811.8,175,100,2163,0) + +"DATA",811.8,175,100,2164,0) +1156 +"DATA",811.8,175,100,2165,0) +1150 +"DATA",811.8,175,100,2166,0) +1141 +"DATA",811.8,175,100,2167,0) +1161 +"DATA",811.8,175,100,2168,0) +1161 +"DATA",811.8,175,100,2169,0) + +"DATA",811.8,175,100,2170,0) + +"DATA",811.8,175,100,2171,0) +1185 +"DATA",811.8,175,100,2172,0) +1174 +"DATA",811.8,175,100,2173,0) +1165 +"DATA",811.8,175,100,2174,0) +1192 +"DATA",811.8,175,100,2175,0) +1190 +"DATA",811.8,175,100,2176,0) + +"DATA",811.8,175,100,2177,0) + +"DATA",811.8,175,100,2178,0) +1212 +"DATA",811.8,175,100,2179,0) +1205 +"DATA",811.8,175,100,2180,0) +1196 +"DATA",811.8,175,100,2181,0) +1217 +"DATA",811.8,175,100,2182,0) +1217 +"DATA",811.8,175,100,2183,0) + +"DATA",811.8,175,100,2184,0) + +"DATA",811.8,175,100,2185,0) +1237 +"DATA",811.8,175,100,2186,0) +1230 +"DATA",811.8,175,100,2187,0) +1221 +"DATA",811.8,175,100,2188,0) +1242 +"DATA",811.8,175,100,2189,0) +1242 +"DATA",811.8,175,100,2190,0) + +"DATA",811.8,175,100,2191,0) + +"DATA",811.8,175,100,2192,0) +1262 +"DATA",811.8,175,100,2193,0) +1255 +"DATA",811.8,175,100,2194,0) +1246 +"DATA",811.8,175,100,2195,0) +1267 +"DATA",811.8,175,100,2196,0) +1267 +"DATA",811.8,175,100,2197,0) + +"DATA",811.8,175,100,2198,0) + +"DATA",811.8,175,100,2199,0) +1295 +"DATA",811.8,175,100,2200,0) +1280 +"DATA",811.8,175,100,2201,0) +1271 +"DATA",811.8,175,100,2202,0) +1303 +"DATA",811.8,175,100,2203,0) +1300 +"DATA",811.8,175,100,2204,0) + +"DATA",811.8,175,100,2205,0) + +"DATA",811.8,175,100,2206,0) +1322 +"DATA",811.8,175,100,2207,0) +1316 +"DATA",811.8,175,100,2208,0) +1307 +"DATA",811.8,175,100,2209,0) +1327 +"DATA",811.8,175,100,2210,0) +1327 +"DATA",811.8,175,100,2211,0) + +"DATA",811.8,175,100,2212,0) + +"DATA",811.8,175,100,2213,0) +1346 +"DATA",811.8,175,100,2214,0) +1340 +"DATA",811.8,175,100,2215,0) +1331 +"DATA",811.8,175,100,2216,0) +1351 +"DATA",811.8,175,100,2217,0) +1351 +"DATA",811.8,175,100,2218,0) + +"DATA",811.8,175,100,2219,0) + +"DATA",811.8,175,100,2220,0) +1370 +"DATA",811.8,175,100,2221,0) +1364 +"DATA",811.8,175,100,2222,0) +1355 +"DATA",811.8,175,100,2223,0) +1375 +"DATA",811.8,175,100,2224,0) +1375 +"DATA",811.8,175,100,2225,0) + +"DATA",811.8,175,100,2226,0) + +"DATA",811.8,175,100,2227,0) +1394 +"DATA",811.8,175,100,2228,0) +1388 +"DATA",811.8,175,100,2229,0) +1379 +"DATA",811.8,175,100,2230,0) +1399 +"DATA",811.8,175,100,2231,0) +1399 +"DATA",811.8,175,100,2232,0) + +"DATA",811.8,175,100,2233,0) + +"DATA",811.8,175,100,2234,0) +1432 +"DATA",811.8,175,100,2235,0) +1412 +"DATA",811.8,175,100,2236,0) +1403 +"DATA",811.8,175,100,2237,0) +1442 +"DATA",811.8,175,100,2238,0) +1437 +"DATA",811.8,175,100,2239,0) + +"DATA",811.8,175,100,2240,0) + +"DATA",811.8,175,100,2241,0) +1461 +"DATA",811.8,175,100,2242,0) +1455 +"DATA",811.8,175,100,2243,0) +1446 +"DATA",811.8,175,100,2244,0) +1466 +"DATA",811.8,175,100,2245,0) +1466 +"DATA",811.8,175,100,2246,0) + +"DATA",811.8,175,100,2247,0) + +"DATA",811.8,175,100,2248,0) +1493 +"DATA",811.8,175,100,2249,0) +1479 +"DATA",811.8,175,100,2250,0) +1470 +"DATA",811.8,175,100,2251,0) +1501 +"DATA",811.8,175,100,2252,0) +1498 +"DATA",811.8,175,100,2253,0) + +"DATA",811.8,175,100,2254,0) + +"DATA",811.8,175,100,2255,0) +1528 +"DATA",811.8,175,100,2256,0) +1514 +"DATA",811.8,175,100,2257,0) +1505 +"DATA",811.8,175,100,2258,0) +1536 +"DATA",811.8,175,100,2259,0) +1533 +"DATA",811.8,175,100,2260,0) + +"DATA",811.8,175,100,2261,0) + +"DATA",811.8,175,100,2262,0) +1556 +"DATA",811.8,175,100,2263,0) +1549 +"DATA",811.8,175,100,2264,0) +1540 +"DATA",811.8,175,100,2265,0) +1561 +"DATA",811.8,175,100,2266,0) +1561 +"DATA",811.8,175,100,2267,0) + +"DATA",811.8,175,100,2268,0) + +"DATA",811.8,175,100,2269,0) +1581 +"DATA",811.8,175,100,2270,0) +1574 +"DATA",811.8,175,100,2271,0) +1565 +"DATA",811.8,175,100,2272,0) +1586 +"DATA",811.8,175,100,2273,0) +1586 +"DATA",811.8,175,100,2274,0) + +"DATA",811.8,175,100,2275,0) + +"DATA",811.8,175,100,2276,0) +1606 +"DATA",811.8,175,100,2277,0) +1599 +"DATA",811.8,175,100,2278,0) +1590 +"DATA",811.8,175,100,2279,0) +1611 +"DATA",811.8,175,100,2280,0) +1611 +"DATA",811.8,175,100,2281,0) + +"DATA",811.8,175,100,2282,0) + +"DATA",811.8,175,100,2283,0) +1639 +"DATA",811.8,175,100,2284,0) +1624 +"DATA",811.8,175,100,2285,0) +1615 +"DATA",811.8,175,100,2286,0) +1647 +"DATA",811.8,175,100,2287,0) +1644 +"DATA",811.8,175,100,2288,0) + +"DATA",811.8,175,100,2289,0) + +"DATA",811.8,175,100,2290,0) +1666 +"DATA",811.8,175,100,2291,0) +1660 +"DATA",811.8,175,100,2292,0) +1651 +"DATA",811.8,175,100,2293,0) +1671 +"DATA",811.8,175,100,2294,0) +1671 +"DATA",811.8,175,100,2295,0) + +"DATA",811.8,175,100,2296,0) + +"DATA",811.8,175,100,2297,0) +1690 +"DATA",811.8,175,100,2298,0) +1684 +"DATA",811.8,175,100,2299,0) +1675 +"DATA",811.8,175,100,2300,0) +1695 +"DATA",811.8,175,100,2301,0) +1695 +"DATA",811.8,175,100,2302,0) + +"DATA",811.8,175,100,2303,0) + +"DATA",811.8,175,100,2304,0) +1714 +"DATA",811.8,175,100,2305,0) +1708 +"DATA",811.8,175,100,2306,0) +1699 +"DATA",811.8,175,100,2307,0) +1719 +"DATA",811.8,175,100,2308,0) +1719 +"DATA",811.8,175,100,2309,0) + +"DATA",811.8,175,100,2310,0) + +"DATA",811.8,175,100,2311,0) +1753 +"DATA",811.8,175,100,2312,0) +1732 +"DATA",811.8,175,100,2313,0) +1723 +"DATA",811.8,175,100,2314,0) +1763 +"DATA",811.8,175,100,2315,0) +1758 +"DATA",811.8,175,100,2316,0) + +"DATA",811.8,175,100,2317,0) + +"DATA",811.8,175,100,2318,0) +1790 +"DATA",811.8,175,100,2319,0) +1776 +"DATA",811.8,175,100,2320,0) +1767 +"DATA",811.8,175,100,2321,0) +1798 +"DATA",811.8,175,100,2322,0) +1795 +"DATA",811.8,175,100,2323,0) + +"DATA",811.8,175,100,2324,0) + +"DATA",811.8,175,100,2325,0) +1825 +"DATA",811.8,175,100,2326,0) +1811 +"DATA",811.8,175,100,2327,0) +1802 +"DATA",811.8,175,100,2328,0) +1833 +"DATA",811.8,175,100,2329,0) +1830 +"DATA",811.8,175,100,2330,0) + +"DATA",811.8,175,100,2331,0) + +"DATA",811.8,175,100,2332,0) +1915 +"DATA",811.8,175,100,2333,0) +1846 +"DATA",811.8,175,100,2334,0) +1837 +"DATA",811.8,175,100,2335,0) +1932 +"DATA",811.8,175,100,2336,0) +1920 +"DATA",811.8,175,100,2337,0) + +"DATA",811.8,175,100,2338,0) + +"DATA",811.8,175,100,2339,0) + +"DATA",811.8,175,110,0) +^811.804^17^17 +"DATA",811.8,175,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,175,110,2,0) +Date Packed: 07/26/2012@11:00:17 +"DATA",811.8,175,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,175,110,4,0) + +"DATA",811.8,175,110,5,0) +Description: +"DATA",811.8,175,110,6,0) +This extract creates all the patient lists for the Adult BMI Measure NQF +"DATA",811.8,175,110,7,0) +0421. The package includes all rule sets as well. +"DATA",811.8,175,110,8,0) + +"DATA",811.8,175,110,9,0) +Keywords: +"DATA",811.8,175,110,10,0) +MU +"DATA",811.8,175,110,11,0) +NQF0421 +"DATA",811.8,175,110,12,0) +0421 +"DATA",811.8,175,110,13,0) +NQF +"DATA",811.8,175,110,14,0) +ADULT +"DATA",811.8,175,110,15,0) +BMI +"DATA",811.8,175,110,16,0) + +"DATA",811.8,175,110,17,0) +Components: +"DATA",811.8,176,0) +MU NQF 0497 ED-2^HABIEL,SAM at VOE OFFICE INSTITUTION^3120717.115023 +"DATA",811.8,176,100,0) +^811.801^1419^1419 +"DATA",811.8,176,100,1,0) + +"DATA",811.8,176,100,2,0) + +"DATA",811.8,176,100,3,0) +2.0P17 +"DATA",811.8,176,100,4,0) +1326 +"DATA",811.8,176,100,5,0) + +"DATA",811.8,176,100,6,0) +MU NQF 0497 ED-2 +"DATA",811.8,176,100,7,0) +HABIEL,SAM +"DATA",811.8,176,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,176,100,9,0) +07/17/2012@11:50:23 +"DATA",811.8,176,100,10,0) + +"DATA",811.8,176,100,11,0) + +"DATA",811.8,176,100,19,0) + +"DATA",811.8,176,100,20,0) +MU +"DATA",811.8,176,100,21,0) +NQF +"DATA",811.8,176,100,22,0) +0497 +"DATA",811.8,176,100,23,0) +ED-2 +"DATA",811.8,176,100,24,0) + +"DATA",811.8,176,100,25,0) + +"DATA",811.8,176,100,26,0) +PXRMINPL +"DATA",811.8,176,100,27,0) +2982435994 +"DATA",811.8,176,100,28,0) + +"DATA",811.8,176,100,29,0) +EDT)!(DATE="") D +"DATA",811.8,176,100,48,0) + . S IEN="" +"DATA",811.8,176,100,49,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,176,100,50,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,176,100,51,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,176,100,52,0) + .. I SUB="ATT1" D +"DATA",811.8,176,100,53,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,176,100,54,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,176,100,55,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,176,100,56,0) + .. I SUB="ATT3" D +"DATA",811.8,176,100,57,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,176,100,58,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,176,100,59,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,176,100,60,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,176,100,61,0) + ..;location for the ward is on the list. +"DATA",811.8,176,100,62,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,176,100,63,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,176,100,64,0) + .. I 'OK Q +"DATA",811.8,176,100,65,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,176,100,66,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,176,100,67,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,176,100,68,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,176,100,69,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,176,100,70,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,176,100,71,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,176,100,72,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,176,100,73,0) + K ^TMP($J,"CNT") +"DATA",811.8,176,100,74,0) + Q +"DATA",811.8,176,100,75,0) + ; +"DATA",811.8,176,100,76,0) + ;===================================== +"DATA",811.8,176,100,77,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,176,100,78,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,176,100,79,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,176,100,80,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,176,100,81,0) + S OK=1 +"DATA",811.8,176,100,82,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,176,100,83,0) + S WARD="" +"DATA",811.8,176,100,84,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,176,100,85,0) + . S DFN=0 +"DATA",811.8,176,100,86,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,176,100,87,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,176,100,88,0) + ..;location for the ward is on the list. +"DATA",811.8,176,100,89,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,176,100,90,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,176,100,91,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,176,100,92,0) + .. I 'OK Q +"DATA",811.8,176,100,93,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,176,100,94,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,176,100,95,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,176,100,96,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,176,100,97,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,176,100,98,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,176,100,99,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,176,100,100,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,176,100,101,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,176,100,102,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,176,100,103,0) + K ^TMP($J,"CNT") +"DATA",811.8,176,100,104,0) + Q +"DATA",811.8,176,100,105,0) + ; +"DATA",811.8,176,100,106,0) + ;===================================== +"DATA",811.8,176,100,107,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,176,100,108,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,176,100,109,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,176,100,110,0) + Q +"DATA",811.8,176,100,111,0) + ; +"DATA",811.8,176,100,112,0) +]]> +"DATA",811.8,176,100,113,0) + +"DATA",811.8,176,100,114,0) + +"DATA",811.8,176,100,115,0) + +"DATA",811.8,176,100,116,0) +HEALTH FACTORS +"DATA",811.8,176,100,117,0) +9999999.64 +"DATA",811.8,176,100,118,0) +MU STK +"DATA",811.8,176,100,119,0) +50049 +"DATA",811.8,176,100,120,0) +1292931282 +"DATA",811.8,176,100,121,0) +NO +"DATA",811.8,176,100,122,0) + +"DATA",811.8,176,100,123,0) + +"DATA",811.8,176,100,127,0) + +"DATA",811.8,176,100,128,0) + +"DATA",811.8,176,100,129,0) + +"DATA",811.8,176,100,130,0) +HEALTH FACTORS +"DATA",811.8,176,100,131,0) +9999999.64 +"DATA",811.8,176,100,132,0) +ADMIT DECISION +"DATA",811.8,176,100,133,0) +50092 +"DATA",811.8,176,100,134,0) +3538184457 +"DATA",811.8,176,100,135,0) +NO +"DATA",811.8,176,100,136,0) + +"DATA",811.8,176,100,137,0) + +"DATA",811.8,176,100,144,0) + +"DATA",811.8,176,100,145,0) + +"DATA",811.8,176,100,146,0) + +"DATA",811.8,176,100,147,0) +HEALTH FACTORS +"DATA",811.8,176,100,148,0) +9999999.64 +"DATA",811.8,176,100,149,0) +ARRIVAL +"DATA",811.8,176,100,150,0) +50063 +"DATA",811.8,176,100,151,0) +3668375555 +"DATA",811.8,176,100,152,0) +NO +"DATA",811.8,176,100,153,0) + +"DATA",811.8,176,100,154,0) + +"DATA",811.8,176,100,161,0) + +"DATA",811.8,176,100,162,0) + +"DATA",811.8,176,100,163,0) + +"DATA",811.8,176,100,164,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,176,100,165,0) +811.4 +"DATA",811.8,176,100,166,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,176,100,167,0) +90 +"DATA",811.8,176,100,168,0) +1960922291 +"DATA",811.8,176,100,169,0) +NO +"DATA",811.8,176,100,170,0) + +"DATA",811.8,176,100,171,0) + +"DATA",811.8,176,100,212,0) + +"DATA",811.8,176,100,213,0) + +"DATA",811.8,176,100,214,0) + +"DATA",811.8,176,100,217,0) + +"DATA",811.8,176,100,218,0) + +"DATA",811.8,176,100,219,0) + +"DATA",811.8,176,100,220,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,176,100,221,0) +811.4 +"DATA",811.8,176,100,222,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,176,100,223,0) +94 +"DATA",811.8,176,100,224,0) +1608937132 +"DATA",811.8,176,100,225,0) +NO +"DATA",811.8,176,100,226,0) + +"DATA",811.8,176,100,227,0) + +"DATA",811.8,176,100,265,0) + +"DATA",811.8,176,100,266,0) + +"DATA",811.8,176,100,267,0) + +"DATA",811.8,176,100,270,0) + +"DATA",811.8,176,100,271,0) + +"DATA",811.8,176,100,272,0) + +"DATA",811.8,176,100,273,0) +REMINDER TAXONOMY +"DATA",811.8,176,100,274,0) +811.2 +"DATA",811.8,176,100,275,0) +MU TABLE 7P01 TX +"DATA",811.8,176,100,276,0) +187 +"DATA",811.8,176,100,277,0) +1550059983 +"DATA",811.8,176,100,278,0) +NO +"DATA",811.8,176,100,279,0) + +"DATA",811.8,176,100,280,0) + +"DATA",811.8,176,100,876,0) + +"DATA",811.8,176,100,877,0) + +"DATA",811.8,176,100,878,0) + +"DATA",811.8,176,100,1028,0) + +"DATA",811.8,176,100,1029,0) + +"DATA",811.8,176,100,1030,0) + +"DATA",811.8,176,100,1031,0) +REMINDER TERM +"DATA",811.8,176,100,1032,0) +811.5 +"DATA",811.8,176,100,1033,0) +MU ADMISSION ICU OBSERVATION TRM +"DATA",811.8,176,100,1034,0) +668 +"DATA",811.8,176,100,1035,0) +1406123770 +"DATA",811.8,176,100,1036,0) +NO +"DATA",811.8,176,100,1037,0) + +"DATA",811.8,176,100,1038,0) + +"DATA",811.8,176,100,1048,0) + +"DATA",811.8,176,100,1049,0) + +"DATA",811.8,176,100,1050,0) + +"DATA",811.8,176,100,1054,0) + +"DATA",811.8,176,100,1055,0) + +"DATA",811.8,176,100,1056,0) + +"DATA",811.8,176,100,1057,0) +REMINDER DEFINITION +"DATA",811.8,176,100,1058,0) +811.9 +"DATA",811.8,176,100,1059,0) +MU ED2 CR +"DATA",811.8,176,100,1060,0) +219 +"DATA",811.8,176,100,1061,0) +534524201 +"DATA",811.8,176,100,1062,0) +NO +"DATA",811.8,176,100,1063,0) + +"DATA",811.8,176,100,1064,0) + +"DATA",811.8,176,100,1122,0) + +"DATA",811.8,176,100,1123,0) + +"DATA",811.8,176,100,1124,0) + +"DATA",811.8,176,100,1138,0) + +"DATA",811.8,176,100,1139,0) + +"DATA",811.8,176,100,1140,0) + +"DATA",811.8,176,100,1141,0) +REMINDER DEFINITION +"DATA",811.8,176,100,1142,0) +811.9 +"DATA",811.8,176,100,1143,0) +MU ED 1&2 DENOM +"DATA",811.8,176,100,1144,0) +247 +"DATA",811.8,176,100,1145,0) +543950955 +"DATA",811.8,176,100,1146,0) +NO +"DATA",811.8,176,100,1147,0) + +"DATA",811.8,176,100,1148,0) + +"DATA",811.8,176,100,1207,0) + +"DATA",811.8,176,100,1208,0) + +"DATA",811.8,176,100,1209,0) + +"DATA",811.8,176,100,1222,0) + +"DATA",811.8,176,100,1223,0) + +"DATA",811.8,176,100,1224,0) + +"DATA",811.8,176,100,1225,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1226,0) +810.4 +"DATA",811.8,176,100,1227,0) +MU ED-2 NUMER RR +"DATA",811.8,176,100,1228,0) +89 +"DATA",811.8,176,100,1229,0) +739660164 +"DATA",811.8,176,100,1230,0) +NO +"DATA",811.8,176,100,1231,0) + +"DATA",811.8,176,100,1232,0) + +"DATA",811.8,176,100,1241,0) + +"DATA",811.8,176,100,1242,0) + +"DATA",811.8,176,100,1243,0) + +"DATA",811.8,176,100,1246,0) + +"DATA",811.8,176,100,1247,0) + +"DATA",811.8,176,100,1248,0) + +"DATA",811.8,176,100,1249,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1250,0) +810.4 +"DATA",811.8,176,100,1251,0) +MU ED-2 NUMER RS +"DATA",811.8,176,100,1252,0) +90 +"DATA",811.8,176,100,1253,0) +34079790 +"DATA",811.8,176,100,1254,0) +YES +"DATA",811.8,176,100,1255,0) + +"DATA",811.8,176,100,1256,0) + +"DATA",811.8,176,100,1267,0) + +"DATA",811.8,176,100,1268,0) + +"DATA",811.8,176,100,1269,0) + +"DATA",811.8,176,100,1273,0) + +"DATA",811.8,176,100,1274,0) + +"DATA",811.8,176,100,1275,0) + +"DATA",811.8,176,100,1276,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1277,0) +810.4 +"DATA",811.8,176,100,1278,0) +MU ED-2 DENOM RR +"DATA",811.8,176,100,1279,0) +164 +"DATA",811.8,176,100,1280,0) +1426345292 +"DATA",811.8,176,100,1281,0) +NO +"DATA",811.8,176,100,1282,0) + +"DATA",811.8,176,100,1283,0) + +"DATA",811.8,176,100,1292,0) + +"DATA",811.8,176,100,1293,0) + +"DATA",811.8,176,100,1294,0) + +"DATA",811.8,176,100,1297,0) + +"DATA",811.8,176,100,1298,0) + +"DATA",811.8,176,100,1299,0) + +"DATA",811.8,176,100,1300,0) +REMINDER LIST RULE +"DATA",811.8,176,100,1301,0) +810.4 +"DATA",811.8,176,100,1302,0) +MU ED-2 DENOM RS +"DATA",811.8,176,100,1303,0) +168 +"DATA",811.8,176,100,1304,0) +833941687 +"DATA",811.8,176,100,1305,0) +YES +"DATA",811.8,176,100,1306,0) + +"DATA",811.8,176,100,1307,0) + +"DATA",811.8,176,100,1318,0) + +"DATA",811.8,176,100,1319,0) + +"DATA",811.8,176,100,1320,0) + +"DATA",811.8,176,100,1324,0) + +"DATA",811.8,176,100,1325,0) + +"DATA",811.8,176,100,1326,0) + +"DATA",811.8,176,100,1327,0) +14 +"DATA",811.8,176,100,1328,0) + +"DATA",811.8,176,100,1329,0) +25 +"DATA",811.8,176,100,1330,0) +111 +"DATA",811.8,176,100,1331,0) +30 +"DATA",811.8,176,100,1332,0) + +"DATA",811.8,176,100,1333,0) + +"DATA",811.8,176,100,1334,0) +125 +"DATA",811.8,176,100,1335,0) +124 +"DATA",811.8,176,100,1336,0) +115 +"DATA",811.8,176,100,1337,0) + +"DATA",811.8,176,100,1338,0) + +"DATA",811.8,176,100,1339,0) +142 +"DATA",811.8,176,100,1340,0) +138 +"DATA",811.8,176,100,1341,0) +129 +"DATA",811.8,176,100,1342,0) + +"DATA",811.8,176,100,1343,0) + +"DATA",811.8,176,100,1344,0) +159 +"DATA",811.8,176,100,1345,0) +155 +"DATA",811.8,176,100,1346,0) +146 +"DATA",811.8,176,100,1347,0) + +"DATA",811.8,176,100,1348,0) + +"DATA",811.8,176,100,1349,0) +210 +"DATA",811.8,176,100,1350,0) +172 +"DATA",811.8,176,100,1351,0) +163 +"DATA",811.8,176,100,1352,0) +215 +"DATA",811.8,176,100,1353,0) +215 +"DATA",811.8,176,100,1354,0) + +"DATA",811.8,176,100,1355,0) + +"DATA",811.8,176,100,1356,0) +263 +"DATA",811.8,176,100,1357,0) +228 +"DATA",811.8,176,100,1358,0) +219 +"DATA",811.8,176,100,1359,0) +268 +"DATA",811.8,176,100,1360,0) +268 +"DATA",811.8,176,100,1361,0) + +"DATA",811.8,176,100,1362,0) + +"DATA",811.8,176,100,1363,0) +874 +"DATA",811.8,176,100,1364,0) +281 +"DATA",811.8,176,100,1365,0) +272 +"DATA",811.8,176,100,1366,0) +1026 +"DATA",811.8,176,100,1367,0) +879 +"DATA",811.8,176,100,1368,0) + +"DATA",811.8,176,100,1369,0) + +"DATA",811.8,176,100,1370,0) +1046 +"DATA",811.8,176,100,1371,0) +1039 +"DATA",811.8,176,100,1372,0) +1030 +"DATA",811.8,176,100,1373,0) +1052 +"DATA",811.8,176,100,1374,0) +1051 +"DATA",811.8,176,100,1375,0) + +"DATA",811.8,176,100,1376,0) + +"DATA",811.8,176,100,1377,0) +1120 +"DATA",811.8,176,100,1378,0) +1065 +"DATA",811.8,176,100,1379,0) +1056 +"DATA",811.8,176,100,1380,0) +1136 +"DATA",811.8,176,100,1381,0) +1125 +"DATA",811.8,176,100,1382,0) + +"DATA",811.8,176,100,1383,0) + +"DATA",811.8,176,100,1384,0) +1205 +"DATA",811.8,176,100,1385,0) +1149 +"DATA",811.8,176,100,1386,0) +1140 +"DATA",811.8,176,100,1387,0) +1220 +"DATA",811.8,176,100,1388,0) +1210 +"DATA",811.8,176,100,1389,0) + +"DATA",811.8,176,100,1390,0) + +"DATA",811.8,176,100,1391,0) +1239 +"DATA",811.8,176,100,1392,0) +1233 +"DATA",811.8,176,100,1393,0) +1224 +"DATA",811.8,176,100,1394,0) +1244 +"DATA",811.8,176,100,1395,0) +1244 +"DATA",811.8,176,100,1396,0) + +"DATA",811.8,176,100,1397,0) + +"DATA",811.8,176,100,1398,0) +1265 +"DATA",811.8,176,100,1399,0) +1257 +"DATA",811.8,176,100,1400,0) +1248 +"DATA",811.8,176,100,1401,0) +1271 +"DATA",811.8,176,100,1402,0) +1270 +"DATA",811.8,176,100,1403,0) + +"DATA",811.8,176,100,1404,0) + +"DATA",811.8,176,100,1405,0) +1290 +"DATA",811.8,176,100,1406,0) +1284 +"DATA",811.8,176,100,1407,0) +1275 +"DATA",811.8,176,100,1408,0) +1295 +"DATA",811.8,176,100,1409,0) +1295 +"DATA",811.8,176,100,1410,0) + +"DATA",811.8,176,100,1411,0) + +"DATA",811.8,176,100,1412,0) +1316 +"DATA",811.8,176,100,1413,0) +1308 +"DATA",811.8,176,100,1414,0) +1299 +"DATA",811.8,176,100,1415,0) +1322 +"DATA",811.8,176,100,1416,0) +1321 +"DATA",811.8,176,100,1417,0) + +"DATA",811.8,176,100,1418,0) + +"DATA",811.8,176,100,1419,0) + +"DATA",811.8,176,110,0) +^811.804^19^19 +"DATA",811.8,176,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,176,110,2,0) +Date Packed: 07/17/2012@11:50:23 +"DATA",811.8,176,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,176,110,4,0) + +"DATA",811.8,176,110,5,0) +Description: +"DATA",811.8,176,110,6,0) +Package for Inpatient Measure MU HOS NQF 0497 +"DATA",811.8,176,110,7,0) + +"DATA",811.8,176,110,8,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,176,110,9,0) +REMINDER LIST RULE +"DATA",811.8,176,110,10,0) + MU ED-2 NUMER RS +"DATA",811.8,176,110,11,0) + MU ED-2 DENOM RS +"DATA",811.8,176,110,12,0) + +"DATA",811.8,176,110,13,0) +Keywords: +"DATA",811.8,176,110,14,0) +MU +"DATA",811.8,176,110,15,0) +NQF +"DATA",811.8,176,110,16,0) +0497 +"DATA",811.8,176,110,17,0) +ED-2 +"DATA",811.8,176,110,18,0) + +"DATA",811.8,176,110,19,0) +Components: +"DATA",811.8,176,119) +7 +"DATA",811.8,176,120,0) +^811.802A^14^14 +"DATA",811.8,176,120,1,0) +ROUTINE^0^1 +"DATA",811.8,176,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,176,120,1,1,1,0) +PXRMINPL^30^111^^^1^0 +"DATA",811.8,176,120,2,0) +HEALTH FACTORS^9999999.64^3 +"DATA",811.8,176,120,2,1,0) +^811.8021A^3^3 +"DATA",811.8,176,120,2,1,1,0) +MU STK^124^125^^^1^0 +"DATA",811.8,176,120,2,1,2,0) +ADMIT DECISION^138^142^^^1^0 +"DATA",811.8,176,120,2,1,3,0) +ARRIVAL^155^159^^^1^0 +"DATA",811.8,176,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,176,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,176,120,3,1,1,0) +VA-ADMISSIONS FOR A DATE RANGE^172^210^215^215^1^0 +"DATA",811.8,176,120,3,1,2,0) +VA-DISCHARGES FOR A DATE RANGE^228^263^268^268^1^0 +"DATA",811.8,176,120,4,0) +REMINDER TAXONOMY^811.2^1 +"DATA",811.8,176,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,176,120,4,1,1,0) +MU TABLE 7P01 TX^281^874^879^1026^1^0 +"DATA",811.8,176,120,5,0) +REMINDER TERM^811.5^1 +"DATA",811.8,176,120,5,1,0) +^811.8021A^1^1 +"DATA",811.8,176,120,5,1,1,0) +MU ADMISSION ICU OBSERVATION TRM^1039^1046^1051^1052^1^0 +"DATA",811.8,176,120,6,0) +REMINDER DEFINITION^811.9^2 +"DATA",811.8,176,120,6,1,0) +^811.8021A^2^2 +"DATA",811.8,176,120,6,1,1,0) +MU ED2 CR^1065^1120^1125^1136^1^0 +"DATA",811.8,176,120,6,1,2,0) +MU ED 1&2 DENOM^1149^1205^1210^1220^1^0 +"DATA",811.8,176,120,7,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,176,120,7,1,0) +^811.8021A^4^4 +"DATA",811.8,176,120,7,1,1,0) +MU ED-2 NUMER RR^1233^1239^1244^1244^1^0 +"DATA",811.8,176,120,7,1,2,0) +MU ED-2 NUMER RS^1257^1265^1270^1271^1^1 +"DATA",811.8,176,120,7,1,3,0) +MU ED-2 DENOM RR^1284^1290^1295^1295^1^0 +"DATA",811.8,176,120,7,1,4,0) +MU ED-2 DENOM RS^1308^1316^1321^1322^1^1 +"DATA",811.8,177,0) +MU STROKE 2.3.4.5.6.8.10 SMH^HABIEL,SAM at VOE OFFICE INSTITUTION^3120718.103353 +"DATA",811.8,177,100,0) +^811.801^6136^6136 +"DATA",811.8,177,100,1,0) + +"DATA",811.8,177,100,2,0) + +"DATA",811.8,177,100,3,0) +2.0P17 +"DATA",811.8,177,100,4,0) +5336 +"DATA",811.8,177,100,5,0) + +"DATA",811.8,177,100,6,0) +MU STROKE 2.3.4.5.6.8.10 SMH +"DATA",811.8,177,100,7,0) +HABIEL,SAM +"DATA",811.8,177,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,177,100,9,0) +07/18/2012@10:33:53 +"DATA",811.8,177,100,10,0) + +"DATA",811.8,177,100,11,0) + +"DATA",811.8,177,100,38,0) + +"DATA",811.8,177,100,39,0) +NQF 0435 +"DATA",811.8,177,100,40,0) +NQF 0436 +"DATA",811.8,177,100,41,0) +NQF 0437 +"DATA",811.8,177,100,42,0) +NQF 0438 +"DATA",811.8,177,100,43,0) +NQF 0439 +"DATA",811.8,177,100,44,0) +NQF 0440 +"DATA",811.8,177,100,45,0) +NQF 0441 +"DATA",811.8,177,100,46,0) +MU +"DATA",811.8,177,100,47,0) +STROKE +"DATA",811.8,177,100,48,0) + +"DATA",811.8,177,100,49,0) + +"DATA",811.8,177,100,50,0) +PXRMINPL +"DATA",811.8,177,100,51,0) +2982435994 +"DATA",811.8,177,100,52,0) + +"DATA",811.8,177,100,53,0) +EDT)!(DATE="") D +"DATA",811.8,177,100,72,0) + . S IEN="" +"DATA",811.8,177,100,73,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,177,100,74,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,177,100,75,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,177,100,76,0) + .. I SUB="ATT1" D +"DATA",811.8,177,100,77,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,177,100,78,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,177,100,79,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,177,100,80,0) + .. I SUB="ATT3" D +"DATA",811.8,177,100,81,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,177,100,82,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,177,100,83,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,177,100,84,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,177,100,85,0) + ..;location for the ward is on the list. +"DATA",811.8,177,100,86,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,177,100,87,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,177,100,88,0) + .. I 'OK Q +"DATA",811.8,177,100,89,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,177,100,90,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,177,100,91,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,177,100,92,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,177,100,93,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,177,100,94,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,177,100,95,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,177,100,96,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,177,100,97,0) + K ^TMP($J,"CNT") +"DATA",811.8,177,100,98,0) + Q +"DATA",811.8,177,100,99,0) + ; +"DATA",811.8,177,100,100,0) + ;===================================== +"DATA",811.8,177,100,101,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,177,100,102,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,177,100,103,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,177,100,104,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,177,100,105,0) + S OK=1 +"DATA",811.8,177,100,106,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,177,100,107,0) + S WARD="" +"DATA",811.8,177,100,108,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,177,100,109,0) + . S DFN=0 +"DATA",811.8,177,100,110,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,177,100,111,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,177,100,112,0) + ..;location for the ward is on the list. +"DATA",811.8,177,100,113,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,177,100,114,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,177,100,115,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,177,100,116,0) + .. I 'OK Q +"DATA",811.8,177,100,117,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,177,100,118,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,177,100,119,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,177,100,120,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,177,100,121,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,177,100,122,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,177,100,123,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,177,100,124,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,177,100,125,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,177,100,126,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,177,100,127,0) + K ^TMP($J,"CNT") +"DATA",811.8,177,100,128,0) + Q +"DATA",811.8,177,100,129,0) + ; +"DATA",811.8,177,100,130,0) + ;===================================== +"DATA",811.8,177,100,131,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,177,100,132,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,177,100,133,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,177,100,134,0) + Q +"DATA",811.8,177,100,135,0) + ; +"DATA",811.8,177,100,136,0) +]]> +"DATA",811.8,177,100,137,0) + +"DATA",811.8,177,100,138,0) + +"DATA",811.8,177,100,139,0) + +"DATA",811.8,177,100,140,0) +VA DRUG CLASS +"DATA",811.8,177,100,141,0) +50.605 +"DATA",811.8,177,100,142,0) +VT103 +"DATA",811.8,177,100,143,0) +421 +"DATA",811.8,177,100,144,0) +2858687870 +"DATA",811.8,177,100,145,0) +NO +"DATA",811.8,177,100,146,0) + +"DATA",811.8,177,100,147,0) + +"DATA",811.8,177,100,150,0) + +"DATA",811.8,177,100,151,0) + +"DATA",811.8,177,100,152,0) + +"DATA",811.8,177,100,153,0) +VA DRUG CLASS +"DATA",811.8,177,100,154,0) +50.605 +"DATA",811.8,177,100,155,0) +CV350 +"DATA",811.8,177,100,156,0) +58 +"DATA",811.8,177,100,157,0) +1335344278 +"DATA",811.8,177,100,158,0) +NO +"DATA",811.8,177,100,159,0) + +"DATA",811.8,177,100,160,0) + +"DATA",811.8,177,100,163,0) + +"DATA",811.8,177,100,164,0) + +"DATA",811.8,177,100,165,0) + +"DATA",811.8,177,100,166,0) +VA DRUG CLASS +"DATA",811.8,177,100,167,0) +50.605 +"DATA",811.8,177,100,168,0) +BL115 +"DATA",811.8,177,100,169,0) +254 +"DATA",811.8,177,100,170,0) +1523697464 +"DATA",811.8,177,100,171,0) +NO +"DATA",811.8,177,100,172,0) + +"DATA",811.8,177,100,173,0) + +"DATA",811.8,177,100,176,0) + +"DATA",811.8,177,100,177,0) + +"DATA",811.8,177,100,178,0) + +"DATA",811.8,177,100,179,0) +VA DRUG CLASS +"DATA",811.8,177,100,180,0) +50.605 +"DATA",811.8,177,100,181,0) +BL110 +"DATA",811.8,177,100,182,0) +46 +"DATA",811.8,177,100,183,0) +716911543 +"DATA",811.8,177,100,184,0) +NO +"DATA",811.8,177,100,185,0) + +"DATA",811.8,177,100,186,0) + +"DATA",811.8,177,100,189,0) + +"DATA",811.8,177,100,190,0) + +"DATA",811.8,177,100,191,0) + +"DATA",811.8,177,100,192,0) +VA DRUG CLASS +"DATA",811.8,177,100,193,0) +50.605 +"DATA",811.8,177,100,194,0) +BL117 +"DATA",811.8,177,100,195,0) +255 +"DATA",811.8,177,100,196,0) +3034555924 +"DATA",811.8,177,100,197,0) +NO +"DATA",811.8,177,100,198,0) + +"DATA",811.8,177,100,199,0) + +"DATA",811.8,177,100,202,0) + +"DATA",811.8,177,100,203,0) + +"DATA",811.8,177,100,204,0) + +"DATA",811.8,177,100,205,0) +LABORATORY TEST +"DATA",811.8,177,100,206,0) +60 +"DATA",811.8,177,100,207,0) +LDL CHOLESTEROL +"DATA",811.8,177,100,208,0) +901 +"DATA",811.8,177,100,209,0) +1035251149 +"DATA",811.8,177,100,210,0) +NO +"DATA",811.8,177,100,211,0) + +"DATA",811.8,177,100,212,0) + +"DATA",811.8,177,100,215,0) + +"DATA",811.8,177,100,216,0) + +"DATA",811.8,177,100,217,0) + +"DATA",811.8,177,100,218,0) +HEALTH FACTORS +"DATA",811.8,177,100,219,0) +9999999.64 +"DATA",811.8,177,100,220,0) +MU STK +"DATA",811.8,177,100,221,0) +50049 +"DATA",811.8,177,100,222,0) +1292931282 +"DATA",811.8,177,100,223,0) +NO +"DATA",811.8,177,100,224,0) + +"DATA",811.8,177,100,225,0) + +"DATA",811.8,177,100,229,0) + +"DATA",811.8,177,100,230,0) + +"DATA",811.8,177,100,231,0) + +"DATA",811.8,177,100,232,0) +HEALTH FACTORS +"DATA",811.8,177,100,233,0) +9999999.64 +"DATA",811.8,177,100,234,0) +ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,235,0) +500306 +"DATA",811.8,177,100,236,0) +2385829161 +"DATA",811.8,177,100,237,0) +NO +"DATA",811.8,177,100,238,0) + +"DATA",811.8,177,100,239,0) + +"DATA",811.8,177,100,246,0) + +"DATA",811.8,177,100,247,0) + +"DATA",811.8,177,100,248,0) + +"DATA",811.8,177,100,249,0) +HEALTH FACTORS +"DATA",811.8,177,100,250,0) +9999999.64 +"DATA",811.8,177,100,251,0) +COMFORT MEASURES PROTOCOL FOLLOWED +"DATA",811.8,177,100,252,0) +500305 +"DATA",811.8,177,100,253,0) +779307093 +"DATA",811.8,177,100,254,0) +NO +"DATA",811.8,177,100,255,0) + +"DATA",811.8,177,100,256,0) + +"DATA",811.8,177,100,263,0) + +"DATA",811.8,177,100,264,0) + +"DATA",811.8,177,100,265,0) + +"DATA",811.8,177,100,266,0) +HEALTH FACTORS +"DATA",811.8,177,100,267,0) +9999999.64 +"DATA",811.8,177,100,268,0) +ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,269,0) +50071 +"DATA",811.8,177,100,270,0) +4182986683 +"DATA",811.8,177,100,271,0) +NO +"DATA",811.8,177,100,272,0) + +"DATA",811.8,177,100,273,0) + +"DATA",811.8,177,100,280,0) + +"DATA",811.8,177,100,281,0) + +"DATA",811.8,177,100,282,0) + +"DATA",811.8,177,100,283,0) +HEALTH FACTORS +"DATA",811.8,177,100,284,0) +9999999.64 +"DATA",811.8,177,100,285,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL +"DATA",811.8,177,100,286,0) +50064 +"DATA",811.8,177,100,287,0) +1895354898 +"DATA",811.8,177,100,288,0) +NO +"DATA",811.8,177,100,289,0) + +"DATA",811.8,177,100,290,0) + +"DATA",811.8,177,100,297,0) + +"DATA",811.8,177,100,298,0) + +"DATA",811.8,177,100,299,0) + +"DATA",811.8,177,100,300,0) +HEALTH FACTORS +"DATA",811.8,177,100,301,0) +9999999.64 +"DATA",811.8,177,100,302,0) +REHABILITATION SERVICES RECEIVED +"DATA",811.8,177,100,303,0) +50208 +"DATA",811.8,177,100,304,0) +1652347862 +"DATA",811.8,177,100,305,0) +NO +"DATA",811.8,177,100,306,0) + +"DATA",811.8,177,100,307,0) + +"DATA",811.8,177,100,314,0) + +"DATA",811.8,177,100,315,0) + +"DATA",811.8,177,100,316,0) + +"DATA",811.8,177,100,317,0) +HEALTH FACTORS +"DATA",811.8,177,100,318,0) +9999999.64 +"DATA",811.8,177,100,319,0) +ADDRESSED:ACTIVATION OF EMERG MED SYS +"DATA",811.8,177,100,320,0) +50050 +"DATA",811.8,177,100,321,0) +464735467 +"DATA",811.8,177,100,322,0) +NO +"DATA",811.8,177,100,323,0) + +"DATA",811.8,177,100,324,0) + +"DATA",811.8,177,100,331,0) + +"DATA",811.8,177,100,332,0) + +"DATA",811.8,177,100,333,0) + +"DATA",811.8,177,100,334,0) +HEALTH FACTORS +"DATA",811.8,177,100,335,0) +9999999.64 +"DATA",811.8,177,100,336,0) +ADDRESSED:FOLLOW-UP +"DATA",811.8,177,100,337,0) +50051 +"DATA",811.8,177,100,338,0) +1748576748 +"DATA",811.8,177,100,339,0) +NO +"DATA",811.8,177,100,340,0) + +"DATA",811.8,177,100,341,0) + +"DATA",811.8,177,100,348,0) + +"DATA",811.8,177,100,349,0) + +"DATA",811.8,177,100,350,0) + +"DATA",811.8,177,100,351,0) +HEALTH FACTORS +"DATA",811.8,177,100,352,0) +9999999.64 +"DATA",811.8,177,100,353,0) +ADDRESSED:MEDICATION AT DISCHARGE +"DATA",811.8,177,100,354,0) +50052 +"DATA",811.8,177,100,355,0) +4044354407 +"DATA",811.8,177,100,356,0) +NO +"DATA",811.8,177,100,357,0) + +"DATA",811.8,177,100,358,0) + +"DATA",811.8,177,100,365,0) + +"DATA",811.8,177,100,366,0) + +"DATA",811.8,177,100,367,0) + +"DATA",811.8,177,100,368,0) +HEALTH FACTORS +"DATA",811.8,177,100,369,0) +9999999.64 +"DATA",811.8,177,100,370,0) +ADDRESSED:STROKE RISK FACTORS +"DATA",811.8,177,100,371,0) +50053 +"DATA",811.8,177,100,372,0) +3060682712 +"DATA",811.8,177,100,373,0) +NO +"DATA",811.8,177,100,374,0) + +"DATA",811.8,177,100,375,0) + +"DATA",811.8,177,100,382,0) + +"DATA",811.8,177,100,383,0) + +"DATA",811.8,177,100,384,0) + +"DATA",811.8,177,100,385,0) +HEALTH FACTORS +"DATA",811.8,177,100,386,0) +9999999.64 +"DATA",811.8,177,100,387,0) +ADDRESSED:STROKE WARNING SIGNS/SYMPTOMS +"DATA",811.8,177,100,388,0) +50054 +"DATA",811.8,177,100,389,0) +3238240041 +"DATA",811.8,177,100,390,0) +NO +"DATA",811.8,177,100,391,0) + +"DATA",811.8,177,100,392,0) + +"DATA",811.8,177,100,399,0) + +"DATA",811.8,177,100,400,0) + +"DATA",811.8,177,100,401,0) + +"DATA",811.8,177,100,402,0) +HEALTH FACTORS +"DATA",811.8,177,100,403,0) +9999999.64 +"DATA",811.8,177,100,404,0) +LABORATORY +"DATA",811.8,177,100,405,0) +628 +"DATA",811.8,177,100,406,0) +3529089054 +"DATA",811.8,177,100,407,0) +NO +"DATA",811.8,177,100,408,0) + +"DATA",811.8,177,100,409,0) + +"DATA",811.8,177,100,413,0) + +"DATA",811.8,177,100,414,0) + +"DATA",811.8,177,100,415,0) + +"DATA",811.8,177,100,416,0) +HEALTH FACTORS +"DATA",811.8,177,100,417,0) +9999999.64 +"DATA",811.8,177,100,418,0) +LDL 100 OR ABOVE +"DATA",811.8,177,100,419,0) +630 +"DATA",811.8,177,100,420,0) +778274999 +"DATA",811.8,177,100,421,0) +NO +"DATA",811.8,177,100,422,0) + +"DATA",811.8,177,100,423,0) + +"DATA",811.8,177,100,430,0) + +"DATA",811.8,177,100,431,0) + +"DATA",811.8,177,100,432,0) + +"DATA",811.8,177,100,433,0) +HEALTH FACTORS +"DATA",811.8,177,100,434,0) +9999999.64 +"DATA",811.8,177,100,435,0) +LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,436,0) +629 +"DATA",811.8,177,100,437,0) +1019186990 +"DATA",811.8,177,100,438,0) +NO +"DATA",811.8,177,100,439,0) + +"DATA",811.8,177,100,440,0) + +"DATA",811.8,177,100,447,0) + +"DATA",811.8,177,100,448,0) + +"DATA",811.8,177,100,449,0) + +"DATA",811.8,177,100,450,0) +HEALTH FACTORS +"DATA",811.8,177,100,451,0) +9999999.64 +"DATA",811.8,177,100,452,0) +LIPID MED INTERVENTIONS +"DATA",811.8,177,100,453,0) +660077 +"DATA",811.8,177,100,454,0) +249707256 +"DATA",811.8,177,100,455,0) +NO +"DATA",811.8,177,100,456,0) + +"DATA",811.8,177,100,457,0) + +"DATA",811.8,177,100,462,0) + +"DATA",811.8,177,100,463,0) + +"DATA",811.8,177,100,464,0) + +"DATA",811.8,177,100,465,0) +HEALTH FACTORS +"DATA",811.8,177,100,466,0) +9999999.64 +"DATA",811.8,177,100,467,0) +LIPID LOWERING MED PRIOR TO HOSP ARRIVAL +"DATA",811.8,177,100,468,0) +627 +"DATA",811.8,177,100,469,0) +4037945624 +"DATA",811.8,177,100,470,0) +NO +"DATA",811.8,177,100,471,0) + +"DATA",811.8,177,100,472,0) + +"DATA",811.8,177,100,479,0) + +"DATA",811.8,177,100,480,0) + +"DATA",811.8,177,100,481,0) + +"DATA",811.8,177,100,482,0) +HEALTH FACTORS +"DATA",811.8,177,100,483,0) +9999999.64 +"DATA",811.8,177,100,484,0) +STATIN NOT PRESCRIBED AT DISCHARGE +"DATA",811.8,177,100,485,0) +50076 +"DATA",811.8,177,100,486,0) +2709566975 +"DATA",811.8,177,100,487,0) +NO +"DATA",811.8,177,100,488,0) + +"DATA",811.8,177,100,489,0) + +"DATA",811.8,177,100,496,0) + +"DATA",811.8,177,100,497,0) + +"DATA",811.8,177,100,498,0) + +"DATA",811.8,177,100,499,0) +HEALTH FACTORS +"DATA",811.8,177,100,500,0) +9999999.64 +"DATA",811.8,177,100,501,0) +STATIN MEDS GIVEN AT DISCHARGE +"DATA",811.8,177,100,502,0) +50207 +"DATA",811.8,177,100,503,0) +1904696844 +"DATA",811.8,177,100,504,0) +NO +"DATA",811.8,177,100,505,0) + +"DATA",811.8,177,100,506,0) + +"DATA",811.8,177,100,513,0) + +"DATA",811.8,177,100,514,0) + +"DATA",811.8,177,100,515,0) + +"DATA",811.8,177,100,516,0) +HEALTH FACTORS +"DATA",811.8,177,100,517,0) +9999999.64 +"DATA",811.8,177,100,518,0) +t-PA STARTED AT THIS FACILITY +"DATA",811.8,177,100,519,0) +50080 +"DATA",811.8,177,100,520,0) +1836103415 +"DATA",811.8,177,100,521,0) +NO +"DATA",811.8,177,100,522,0) + +"DATA",811.8,177,100,523,0) + +"DATA",811.8,177,100,530,0) + +"DATA",811.8,177,100,531,0) + +"DATA",811.8,177,100,532,0) + +"DATA",811.8,177,100,533,0) +HEALTH FACTORS +"DATA",811.8,177,100,534,0) +9999999.64 +"DATA",811.8,177,100,535,0) +t-PA STARTED 24H BEFORE ARRIVAL +"DATA",811.8,177,100,536,0) +50079 +"DATA",811.8,177,100,537,0) +3959174881 +"DATA",811.8,177,100,538,0) +NO +"DATA",811.8,177,100,539,0) + +"DATA",811.8,177,100,540,0) + +"DATA",811.8,177,100,547,0) + +"DATA",811.8,177,100,548,0) + +"DATA",811.8,177,100,549,0) + +"DATA",811.8,177,100,550,0) +HEALTH FACTORS +"DATA",811.8,177,100,551,0) +9999999.64 +"DATA",811.8,177,100,552,0) +DISCHARGED PRIOR TO END OF HOSP DAY2 +"DATA",811.8,177,100,553,0) +50065 +"DATA",811.8,177,100,554,0) +3513051705 +"DATA",811.8,177,100,555,0) +NO +"DATA",811.8,177,100,556,0) + +"DATA",811.8,177,100,557,0) + +"DATA",811.8,177,100,564,0) + +"DATA",811.8,177,100,565,0) + +"DATA",811.8,177,100,566,0) + +"DATA",811.8,177,100,567,0) +HEALTH FACTORS +"DATA",811.8,177,100,568,0) +9999999.64 +"DATA",811.8,177,100,569,0) +ANTITHROMBOTIC NOT GIVEN(HOSP DAY2 END) +"DATA",811.8,177,100,570,0) +50061 +"DATA",811.8,177,100,571,0) +258736928 +"DATA",811.8,177,100,572,0) +NO +"DATA",811.8,177,100,573,0) + +"DATA",811.8,177,100,574,0) + +"DATA",811.8,177,100,581,0) + +"DATA",811.8,177,100,582,0) + +"DATA",811.8,177,100,583,0) + +"DATA",811.8,177,100,584,0) +HEALTH FACTORS +"DATA",811.8,177,100,585,0) +9999999.64 +"DATA",811.8,177,100,586,0) +ANTITHROMBOTIC GIVEN BY HOSP DAY2 END +"DATA",811.8,177,100,587,0) +50206 +"DATA",811.8,177,100,588,0) +3251081900 +"DATA",811.8,177,100,589,0) +NO +"DATA",811.8,177,100,590,0) + +"DATA",811.8,177,100,591,0) + +"DATA",811.8,177,100,598,0) + +"DATA",811.8,177,100,599,0) + +"DATA",811.8,177,100,600,0) + +"DATA",811.8,177,100,601,0) +HEALTH FACTORS +"DATA",811.8,177,100,602,0) +9999999.64 +"DATA",811.8,177,100,603,0) +ARRIVAL +"DATA",811.8,177,100,604,0) +50063 +"DATA",811.8,177,100,605,0) +3668375555 +"DATA",811.8,177,100,606,0) +NO +"DATA",811.8,177,100,607,0) + +"DATA",811.8,177,100,608,0) + +"DATA",811.8,177,100,615,0) + +"DATA",811.8,177,100,616,0) + +"DATA",811.8,177,100,617,0) + +"DATA",811.8,177,100,618,0) +HEALTH FACTORS +"DATA",811.8,177,100,619,0) +9999999.64 +"DATA",811.8,177,100,620,0) +LAST KNOWN WELL > 2H +"DATA",811.8,177,100,621,0) +50073 +"DATA",811.8,177,100,622,0) +2352775339 +"DATA",811.8,177,100,623,0) +NO +"DATA",811.8,177,100,624,0) + +"DATA",811.8,177,100,625,0) + 2H +"DATA",811.8,177,100,627,0) +9999999.64;+50073,;.03~MU STK +"DATA",811.8,177,100,628,0) +9999999.64;+50073,;.04~LKW>2H +"DATA",811.8,177,100,629,0) +9999999.64;+50073,;.08~YES +"DATA",811.8,177,100,630,0) +9999999.64;+50073,;.1~FACTOR +"DATA",811.8,177,100,631,0) +]]> +"DATA",811.8,177,100,632,0) + +"DATA",811.8,177,100,633,0) + +"DATA",811.8,177,100,634,0) + +"DATA",811.8,177,100,635,0) +HEALTH FACTORS +"DATA",811.8,177,100,636,0) +9999999.64 +"DATA",811.8,177,100,637,0) +THROMBOLYTIC IV THERAPY INITIATED <3H +"DATA",811.8,177,100,638,0) +50078 +"DATA",811.8,177,100,639,0) +96605916 +"DATA",811.8,177,100,640,0) +NO +"DATA",811.8,177,100,641,0) + +"DATA",811.8,177,100,642,0) + +"DATA",811.8,177,100,649,0) + +"DATA",811.8,177,100,650,0) + +"DATA",811.8,177,100,651,0) + +"DATA",811.8,177,100,652,0) +HEALTH FACTORS +"DATA",811.8,177,100,653,0) +9999999.64 +"DATA",811.8,177,100,654,0) +THROMBOLYTIC IV NOT INITIATED. REASON +"DATA",811.8,177,100,655,0) +50077 +"DATA",811.8,177,100,656,0) +4215951146 +"DATA",811.8,177,100,657,0) +NO +"DATA",811.8,177,100,658,0) + +"DATA",811.8,177,100,659,0) + +"DATA",811.8,177,100,666,0) + +"DATA",811.8,177,100,667,0) + +"DATA",811.8,177,100,668,0) + +"DATA",811.8,177,100,669,0) +HEALTH FACTORS +"DATA",811.8,177,100,670,0) +9999999.64 +"DATA",811.8,177,100,671,0) +LAST KNOWN WELL < 2H +"DATA",811.8,177,100,672,0) +50072 +"DATA",811.8,177,100,673,0) +2235324988 +"DATA",811.8,177,100,674,0) +NO +"DATA",811.8,177,100,675,0) + +"DATA",811.8,177,100,676,0) + +"DATA",811.8,177,100,683,0) + +"DATA",811.8,177,100,684,0) + +"DATA",811.8,177,100,685,0) + +"DATA",811.8,177,100,686,0) +HEALTH FACTORS +"DATA",811.8,177,100,687,0) +9999999.64 +"DATA",811.8,177,100,688,0) +ANTICOAGULATION THERAPY CAN'T BE GIVEN +"DATA",811.8,177,100,689,0) +50056 +"DATA",811.8,177,100,690,0) +2672973820 +"DATA",811.8,177,100,691,0) +NO +"DATA",811.8,177,100,692,0) + +"DATA",811.8,177,100,693,0) + +"DATA",811.8,177,100,700,0) + +"DATA",811.8,177,100,701,0) + +"DATA",811.8,177,100,702,0) + +"DATA",811.8,177,100,703,0) +HEALTH FACTORS +"DATA",811.8,177,100,704,0) +9999999.64 +"DATA",811.8,177,100,705,0) +ANTICOAGULATION THERAPY PRESCRIBED +"DATA",811.8,177,100,706,0) +50058 +"DATA",811.8,177,100,707,0) +4157731543 +"DATA",811.8,177,100,708,0) +NO +"DATA",811.8,177,100,709,0) + +"DATA",811.8,177,100,710,0) + +"DATA",811.8,177,100,717,0) + +"DATA",811.8,177,100,718,0) + +"DATA",811.8,177,100,719,0) + +"DATA",811.8,177,100,720,0) +HEALTH FACTORS +"DATA",811.8,177,100,721,0) +9999999.64 +"DATA",811.8,177,100,722,0) +ANTITHROMBOTIC NOT GIVEN AT DISCHARGE +"DATA",811.8,177,100,723,0) +50060 +"DATA",811.8,177,100,724,0) +1494926459 +"DATA",811.8,177,100,725,0) +NO +"DATA",811.8,177,100,726,0) + +"DATA",811.8,177,100,727,0) + +"DATA",811.8,177,100,734,0) + +"DATA",811.8,177,100,735,0) + +"DATA",811.8,177,100,736,0) + +"DATA",811.8,177,100,737,0) +HEALTH FACTORS +"DATA",811.8,177,100,738,0) +9999999.64 +"DATA",811.8,177,100,739,0) +ANTITHROMBOTIC THERAPY GIVEN AT DISCH +"DATA",811.8,177,100,740,0) +50062 +"DATA",811.8,177,100,741,0) +2153255037 +"DATA",811.8,177,100,742,0) +NO +"DATA",811.8,177,100,743,0) + +"DATA",811.8,177,100,744,0) + +"DATA",811.8,177,100,751,0) + +"DATA",811.8,177,100,752,0) + +"DATA",811.8,177,100,753,0) + +"DATA",811.8,177,100,754,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,177,100,755,0) +811.4 +"DATA",811.8,177,100,756,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,757,0) +94 +"DATA",811.8,177,100,758,0) +1608937132 +"DATA",811.8,177,100,759,0) +NO +"DATA",811.8,177,100,760,0) + +"DATA",811.8,177,100,761,0) + +"DATA",811.8,177,100,799,0) + +"DATA",811.8,177,100,800,0) + +"DATA",811.8,177,100,801,0) + +"DATA",811.8,177,100,804,0) + +"DATA",811.8,177,100,805,0) + +"DATA",811.8,177,100,806,0) + +"DATA",811.8,177,100,807,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,177,100,808,0) +811.4 +"DATA",811.8,177,100,809,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,810,0) +90 +"DATA",811.8,177,100,811,0) +1960922291 +"DATA",811.8,177,100,812,0) +NO +"DATA",811.8,177,100,813,0) + +"DATA",811.8,177,100,814,0) + +"DATA",811.8,177,100,855,0) + +"DATA",811.8,177,100,856,0) + +"DATA",811.8,177,100,857,0) + +"DATA",811.8,177,100,860,0) + +"DATA",811.8,177,100,861,0) + +"DATA",811.8,177,100,862,0) + +"DATA",811.8,177,100,863,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,864,0) +811.2 +"DATA",811.8,177,100,865,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,866,0) +122 +"DATA",811.8,177,100,867,0) +3882324901 +"DATA",811.8,177,100,868,0) +NO +"DATA",811.8,177,100,869,0) + +"DATA",811.8,177,100,870,0) + +"DATA",811.8,177,100,890,0) + +"DATA",811.8,177,100,891,0) + +"DATA",811.8,177,100,892,0) + +"DATA",811.8,177,100,898,0) + +"DATA",811.8,177,100,899,0) + +"DATA",811.8,177,100,900,0) + +"DATA",811.8,177,100,901,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,902,0) +811.2 +"DATA",811.8,177,100,903,0) +MU STK-8 DENOM INCLU TX +"DATA",811.8,177,100,904,0) +120 +"DATA",811.8,177,100,905,0) +3610401467 +"DATA",811.8,177,100,906,0) +NO +"DATA",811.8,177,100,907,0) + +"DATA",811.8,177,100,908,0) + +"DATA",811.8,177,100,969,0) + +"DATA",811.8,177,100,970,0) + +"DATA",811.8,177,100,971,0) + +"DATA",811.8,177,100,987,0) + +"DATA",811.8,177,100,988,0) + +"DATA",811.8,177,100,989,0) + +"DATA",811.8,177,100,990,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,991,0) +811.2 +"DATA",811.8,177,100,992,0) +MU STK-6 DENOM INCLU TX +"DATA",811.8,177,100,993,0) +121 +"DATA",811.8,177,100,994,0) +336592338 +"DATA",811.8,177,100,995,0) +NO +"DATA",811.8,177,100,996,0) + +"DATA",811.8,177,100,997,0) + +"DATA",811.8,177,100,1054,0) + +"DATA",811.8,177,100,1055,0) + +"DATA",811.8,177,100,1056,0) + +"DATA",811.8,177,100,1071,0) + +"DATA",811.8,177,100,1072,0) + +"DATA",811.8,177,100,1073,0) + +"DATA",811.8,177,100,1074,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1075,0) +811.2 +"DATA",811.8,177,100,1076,0) +MU STK-5 DENOM INCLU TX +"DATA",811.8,177,100,1077,0) +123 +"DATA",811.8,177,100,1078,0) +1314163667 +"DATA",811.8,177,100,1079,0) +NO +"DATA",811.8,177,100,1080,0) + +"DATA",811.8,177,100,1081,0) + +"DATA",811.8,177,100,1137,0) + +"DATA",811.8,177,100,1138,0) + +"DATA",811.8,177,100,1139,0) + +"DATA",811.8,177,100,1154,0) + +"DATA",811.8,177,100,1155,0) + +"DATA",811.8,177,100,1156,0) + +"DATA",811.8,177,100,1157,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1158,0) +811.2 +"DATA",811.8,177,100,1159,0) +MU STK-4 DENOM INCLU TX +"DATA",811.8,177,100,1160,0) +124 +"DATA",811.8,177,100,1161,0) +2004493598 +"DATA",811.8,177,100,1162,0) +NO +"DATA",811.8,177,100,1163,0) + +"DATA",811.8,177,100,1164,0) + +"DATA",811.8,177,100,1221,0) + +"DATA",811.8,177,100,1222,0) + +"DATA",811.8,177,100,1223,0) + +"DATA",811.8,177,100,1238,0) + +"DATA",811.8,177,100,1239,0) + +"DATA",811.8,177,100,1240,0) + +"DATA",811.8,177,100,1241,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1242,0) +811.2 +"DATA",811.8,177,100,1243,0) +MU STK-3 DENOM INCLU AT FIB/FL TX +"DATA",811.8,177,100,1244,0) +213 +"DATA",811.8,177,100,1245,0) +21988516 +"DATA",811.8,177,100,1246,0) +NO +"DATA",811.8,177,100,1247,0) + +"DATA",811.8,177,100,1248,0) + +"DATA",811.8,177,100,1260,0) + +"DATA",811.8,177,100,1261,0) + +"DATA",811.8,177,100,1262,0) + +"DATA",811.8,177,100,1266,0) + +"DATA",811.8,177,100,1267,0) + +"DATA",811.8,177,100,1268,0) + +"DATA",811.8,177,100,1269,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1270,0) +811.2 +"DATA",811.8,177,100,1271,0) +MU STK-3 DENOM INCLU TX +"DATA",811.8,177,100,1272,0) +144 +"DATA",811.8,177,100,1273,0) +2852347166 +"DATA",811.8,177,100,1274,0) +NO +"DATA",811.8,177,100,1275,0) + +"DATA",811.8,177,100,1276,0) + +"DATA",811.8,177,100,1353,0) + +"DATA",811.8,177,100,1354,0) + +"DATA",811.8,177,100,1355,0) + +"DATA",811.8,177,100,1384,0) + +"DATA",811.8,177,100,1385,0) + +"DATA",811.8,177,100,1386,0) + +"DATA",811.8,177,100,1387,0) +REMINDER TAXONOMY +"DATA",811.8,177,100,1388,0) +811.2 +"DATA",811.8,177,100,1389,0) +MU STK-2 DENOM INCLU TX +"DATA",811.8,177,100,1390,0) +146 +"DATA",811.8,177,100,1391,0) +3538177098 +"DATA",811.8,177,100,1392,0) +NO +"DATA",811.8,177,100,1393,0) + +"DATA",811.8,177,100,1394,0) + +"DATA",811.8,177,100,1451,0) + +"DATA",811.8,177,100,1452,0) + +"DATA",811.8,177,100,1453,0) + +"DATA",811.8,177,100,1468,0) + +"DATA",811.8,177,100,1469,0) + +"DATA",811.8,177,100,1470,0) + +"DATA",811.8,177,100,1471,0) +REMINDER TERM +"DATA",811.8,177,100,1472,0) +811.5 +"DATA",811.8,177,100,1473,0) +MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,1474,0) +729 +"DATA",811.8,177,100,1475,0) +3422916630 +"DATA",811.8,177,100,1476,0) +NO +"DATA",811.8,177,100,1477,0) + +"DATA",811.8,177,100,1478,0) + +"DATA",811.8,177,100,1489,0) + +"DATA",811.8,177,100,1490,0) + +"DATA",811.8,177,100,1491,0) + +"DATA",811.8,177,100,1495,0) + +"DATA",811.8,177,100,1496,0) + +"DATA",811.8,177,100,1497,0) + +"DATA",811.8,177,100,1498,0) +REMINDER TERM +"DATA",811.8,177,100,1499,0) +811.5 +"DATA",811.8,177,100,1500,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,1501,0) +688 +"DATA",811.8,177,100,1502,0) +1255054350 +"DATA",811.8,177,100,1503,0) +NO +"DATA",811.8,177,100,1504,0) + +"DATA",811.8,177,100,1505,0) + +"DATA",811.8,177,100,1516,0) + +"DATA",811.8,177,100,1517,0) + +"DATA",811.8,177,100,1518,0) + +"DATA",811.8,177,100,1522,0) + +"DATA",811.8,177,100,1523,0) + +"DATA",811.8,177,100,1524,0) + +"DATA",811.8,177,100,1525,0) +REMINDER TERM +"DATA",811.8,177,100,1526,0) +811.5 +"DATA",811.8,177,100,1527,0) +MU DISCHARGE DEATH +"DATA",811.8,177,100,1528,0) +685 +"DATA",811.8,177,100,1529,0) +536067863 +"DATA",811.8,177,100,1530,0) +NO +"DATA",811.8,177,100,1531,0) + +"DATA",811.8,177,100,1532,0) + +"DATA",811.8,177,100,1543,0) + +"DATA",811.8,177,100,1544,0) + +"DATA",811.8,177,100,1545,0) + +"DATA",811.8,177,100,1549,0) + +"DATA",811.8,177,100,1550,0) + +"DATA",811.8,177,100,1551,0) + +"DATA",811.8,177,100,1552,0) +REMINDER TERM +"DATA",811.8,177,100,1553,0) +811.5 +"DATA",811.8,177,100,1554,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,1555,0) +684 +"DATA",811.8,177,100,1556,0) +1819822144 +"DATA",811.8,177,100,1557,0) +NO +"DATA",811.8,177,100,1558,0) + +"DATA",811.8,177,100,1559,0) + +"DATA",811.8,177,100,1570,0) + +"DATA",811.8,177,100,1571,0) + +"DATA",811.8,177,100,1572,0) + +"DATA",811.8,177,100,1576,0) + +"DATA",811.8,177,100,1577,0) + +"DATA",811.8,177,100,1578,0) + +"DATA",811.8,177,100,1579,0) +REMINDER TERM +"DATA",811.8,177,100,1580,0) +811.5 +"DATA",811.8,177,100,1581,0) +MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,1582,0) +675 +"DATA",811.8,177,100,1583,0) +1839453929 +"DATA",811.8,177,100,1584,0) +NO +"DATA",811.8,177,100,1585,0) + +"DATA",811.8,177,100,1586,0) + +"DATA",811.8,177,100,1597,0) + +"DATA",811.8,177,100,1598,0) + +"DATA",811.8,177,100,1599,0) + +"DATA",811.8,177,100,1603,0) + +"DATA",811.8,177,100,1604,0) + +"DATA",811.8,177,100,1605,0) + +"DATA",811.8,177,100,1606,0) +REMINDER TERM +"DATA",811.8,177,100,1607,0) +811.5 +"DATA",811.8,177,100,1608,0) +MU STK-8 DENOM EXCLU TRM +"DATA",811.8,177,100,1609,0) +543 +"DATA",811.8,177,100,1610,0) +1459727918 +"DATA",811.8,177,100,1611,0) +NO +"DATA",811.8,177,100,1612,0) + +"DATA",811.8,177,100,1613,0) + +"DATA",811.8,177,100,1626,0) + +"DATA",811.8,177,100,1627,0) + +"DATA",811.8,177,100,1628,0) + +"DATA",811.8,177,100,1635,0) + +"DATA",811.8,177,100,1636,0) + +"DATA",811.8,177,100,1637,0) + +"DATA",811.8,177,100,1638,0) +REMINDER TERM +"DATA",811.8,177,100,1639,0) +811.5 +"DATA",811.8,177,100,1640,0) +MU STK-10 NUMER INCLU TRM +"DATA",811.8,177,100,1641,0) +736 +"DATA",811.8,177,100,1642,0) +3597923117 +"DATA",811.8,177,100,1643,0) +NO +"DATA",811.8,177,100,1644,0) + +"DATA",811.8,177,100,1645,0) + +"DATA",811.8,177,100,1653,0) + +"DATA",811.8,177,100,1654,0) + +"DATA",811.8,177,100,1655,0) + +"DATA",811.8,177,100,1659,0) + +"DATA",811.8,177,100,1660,0) + +"DATA",811.8,177,100,1661,0) + +"DATA",811.8,177,100,1662,0) +REMINDER TERM +"DATA",811.8,177,100,1663,0) +811.5 +"DATA",811.8,177,100,1664,0) +MU DISCHARGED COURT/LAW +"DATA",811.8,177,100,1665,0) +674 +"DATA",811.8,177,100,1666,0) +1301941291 +"DATA",811.8,177,100,1667,0) +NO +"DATA",811.8,177,100,1668,0) + +"DATA",811.8,177,100,1669,0) + +"DATA",811.8,177,100,1680,0) + +"DATA",811.8,177,100,1681,0) + +"DATA",811.8,177,100,1682,0) + +"DATA",811.8,177,100,1686,0) + +"DATA",811.8,177,100,1687,0) + +"DATA",811.8,177,100,1688,0) + +"DATA",811.8,177,100,1689,0) +REMINDER TERM +"DATA",811.8,177,100,1690,0) +811.5 +"DATA",811.8,177,100,1691,0) +MU DISCHARGED HOME +"DATA",811.8,177,100,1692,0) +673 +"DATA",811.8,177,100,1693,0) +2743717861 +"DATA",811.8,177,100,1694,0) +NO +"DATA",811.8,177,100,1695,0) + +"DATA",811.8,177,100,1696,0) + +"DATA",811.8,177,100,1707,0) + +"DATA",811.8,177,100,1708,0) + +"DATA",811.8,177,100,1709,0) + +"DATA",811.8,177,100,1713,0) + +"DATA",811.8,177,100,1714,0) + +"DATA",811.8,177,100,1715,0) + +"DATA",811.8,177,100,1716,0) +REMINDER TERM +"DATA",811.8,177,100,1717,0) +811.5 +"DATA",811.8,177,100,1718,0) +MU STK-8 NUMER INCLU EMS TRM +"DATA",811.8,177,100,1719,0) +540 +"DATA",811.8,177,100,1720,0) +2550873597 +"DATA",811.8,177,100,1721,0) +NO +"DATA",811.8,177,100,1722,0) + +"DATA",811.8,177,100,1723,0) + +"DATA",811.8,177,100,1731,0) + +"DATA",811.8,177,100,1732,0) + +"DATA",811.8,177,100,1733,0) + +"DATA",811.8,177,100,1737,0) + +"DATA",811.8,177,100,1738,0) + +"DATA",811.8,177,100,1739,0) + +"DATA",811.8,177,100,1740,0) +REMINDER TERM +"DATA",811.8,177,100,1741,0) +811.5 +"DATA",811.8,177,100,1742,0) +MU STK-8 NUMER INCLU FOLLOW-UP TRM +"DATA",811.8,177,100,1743,0) +538 +"DATA",811.8,177,100,1744,0) +3614554001 +"DATA",811.8,177,100,1745,0) +NO +"DATA",811.8,177,100,1746,0) + +"DATA",811.8,177,100,1747,0) + +"DATA",811.8,177,100,1755,0) + +"DATA",811.8,177,100,1756,0) + +"DATA",811.8,177,100,1757,0) + +"DATA",811.8,177,100,1761,0) + +"DATA",811.8,177,100,1762,0) + +"DATA",811.8,177,100,1763,0) + +"DATA",811.8,177,100,1764,0) +REMINDER TERM +"DATA",811.8,177,100,1765,0) +811.5 +"DATA",811.8,177,100,1766,0) +MU STK-8 NUMER INCLU MED TRM +"DATA",811.8,177,100,1767,0) +537 +"DATA",811.8,177,100,1768,0) +3120744118 +"DATA",811.8,177,100,1769,0) +NO +"DATA",811.8,177,100,1770,0) + +"DATA",811.8,177,100,1771,0) + +"DATA",811.8,177,100,1779,0) + +"DATA",811.8,177,100,1780,0) + +"DATA",811.8,177,100,1781,0) + +"DATA",811.8,177,100,1785,0) + +"DATA",811.8,177,100,1786,0) + +"DATA",811.8,177,100,1787,0) + +"DATA",811.8,177,100,1788,0) +REMINDER TERM +"DATA",811.8,177,100,1789,0) +811.5 +"DATA",811.8,177,100,1790,0) +MU STK-8 NUMER INCLU RISK TRM +"DATA",811.8,177,100,1791,0) +536 +"DATA",811.8,177,100,1792,0) +3486940289 +"DATA",811.8,177,100,1793,0) +NO +"DATA",811.8,177,100,1794,0) + +"DATA",811.8,177,100,1795,0) + +"DATA",811.8,177,100,1803,0) + +"DATA",811.8,177,100,1804,0) + +"DATA",811.8,177,100,1805,0) + +"DATA",811.8,177,100,1809,0) + +"DATA",811.8,177,100,1810,0) + +"DATA",811.8,177,100,1811,0) + +"DATA",811.8,177,100,1812,0) +REMINDER TERM +"DATA",811.8,177,100,1813,0) +811.5 +"DATA",811.8,177,100,1814,0) +MU STK-8 NUMER INCLU WARNING SIGN/SY TRM +"DATA",811.8,177,100,1815,0) +533 +"DATA",811.8,177,100,1816,0) +3232873249 +"DATA",811.8,177,100,1817,0) +NO +"DATA",811.8,177,100,1818,0) + +"DATA",811.8,177,100,1819,0) + +"DATA",811.8,177,100,1827,0) + +"DATA",811.8,177,100,1828,0) + +"DATA",811.8,177,100,1829,0) + +"DATA",811.8,177,100,1833,0) + +"DATA",811.8,177,100,1834,0) + +"DATA",811.8,177,100,1835,0) + +"DATA",811.8,177,100,1836,0) +REMINDER TERM +"DATA",811.8,177,100,1837,0) +811.5 +"DATA",811.8,177,100,1838,0) +MU STK-6 DENOM INCLU LAB>=100 +"DATA",811.8,177,100,1839,0) +557 +"DATA",811.8,177,100,1840,0) +3302260757 +"DATA",811.8,177,100,1841,0) +NO +"DATA",811.8,177,100,1842,0) + +"DATA",811.8,177,100,1843,0) +=100 +"DATA",811.8,177,100,1845,0) +811.5;+557,;100~LOCAL +"DATA",811.8,177,100,1846,0) +811.52;+558,+557,;.01~LT.LDL CHOLESTEROL +"DATA",811.8,177,100,1847,0) +811.52;+558,+557,;14~I V>99 +"DATA",811.8,177,100,1848,0) +811.52;+558,+557,;17~1 +"DATA",811.8,177,100,1849,0) +811.52;+558,+557,;22~I V>99 +"DATA",811.8,177,100,1850,0) +811.52;+559,+557,;.01~HF.LDL 100 OR ABOVE +"DATA",811.8,177,100,1851,0) +811.52;+560,+557,;.01~HF.LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,1852,0) +811.53;+561,+557,;.01~07/18/2012@10:34:37 +"DATA",811.8,177,100,1853,0) +811.53;+561,+557,;2~WP-start~1 +"DATA",811.8,177,100,1854,0) +Exchange Stub +"DATA",811.8,177,100,1855,0) +]]> +"DATA",811.8,177,100,1856,0) + +"DATA",811.8,177,100,1857,0) + +"DATA",811.8,177,100,1858,0) + +"DATA",811.8,177,100,1864,0) + +"DATA",811.8,177,100,1865,0) + +"DATA",811.8,177,100,1866,0) + +"DATA",811.8,177,100,1867,0) +REMINDER TERM +"DATA",811.8,177,100,1868,0) +811.5 +"DATA",811.8,177,100,1869,0) +MU STK-6 DENOM INCLU DRUG TRM +"DATA",811.8,177,100,1870,0) +556 +"DATA",811.8,177,100,1871,0) +2232999810 +"DATA",811.8,177,100,1872,0) +NO +"DATA",811.8,177,100,1873,0) + +"DATA",811.8,177,100,1874,0) + +"DATA",811.8,177,100,1884,0) + +"DATA",811.8,177,100,1885,0) + +"DATA",811.8,177,100,1886,0) + +"DATA",811.8,177,100,1892,0) + +"DATA",811.8,177,100,1893,0) + +"DATA",811.8,177,100,1894,0) + +"DATA",811.8,177,100,1895,0) +REMINDER TERM +"DATA",811.8,177,100,1896,0) +811.5 +"DATA",811.8,177,100,1897,0) +MU STK-6 DENOM INCLU LAB TRM +"DATA",811.8,177,100,1898,0) +554 +"DATA",811.8,177,100,1899,0) +2815214583 +"DATA",811.8,177,100,1900,0) +NO +"DATA",811.8,177,100,1901,0) + +"DATA",811.8,177,100,1902,0) + +"DATA",811.8,177,100,1910,0) + +"DATA",811.8,177,100,1911,0) + +"DATA",811.8,177,100,1912,0) + +"DATA",811.8,177,100,1916,0) + +"DATA",811.8,177,100,1917,0) + +"DATA",811.8,177,100,1918,0) + +"DATA",811.8,177,100,1919,0) +REMINDER TERM +"DATA",811.8,177,100,1920,0) +811.5 +"DATA",811.8,177,100,1921,0) +MU STK-6 DENOM INCLU LAB<100 TRM +"DATA",811.8,177,100,1922,0) +553 +"DATA",811.8,177,100,1923,0) +3862626982 +"DATA",811.8,177,100,1924,0) +NO +"DATA",811.8,177,100,1925,0) + +"DATA",811.8,177,100,1926,0) + +"DATA",811.8,177,100,1936,0) + +"DATA",811.8,177,100,1937,0) + +"DATA",811.8,177,100,1938,0) + +"DATA",811.8,177,100,1942,0) + +"DATA",811.8,177,100,1943,0) + +"DATA",811.8,177,100,1944,0) + +"DATA",811.8,177,100,1945,0) +REMINDER TERM +"DATA",811.8,177,100,1946,0) +811.5 +"DATA",811.8,177,100,1947,0) +MU STK-6 DENOM EXCLU TRM +"DATA",811.8,177,100,1948,0) +544 +"DATA",811.8,177,100,1949,0) +1237097076 +"DATA",811.8,177,100,1950,0) +NO +"DATA",811.8,177,100,1951,0) + +"DATA",811.8,177,100,1952,0) + +"DATA",811.8,177,100,1966,0) + +"DATA",811.8,177,100,1967,0) + +"DATA",811.8,177,100,1968,0) + +"DATA",811.8,177,100,1976,0) + +"DATA",811.8,177,100,1977,0) + +"DATA",811.8,177,100,1978,0) + +"DATA",811.8,177,100,1979,0) +REMINDER TERM +"DATA",811.8,177,100,1980,0) +811.5 +"DATA",811.8,177,100,1981,0) +MU STK-6 NUMER INCLU DRUG +"DATA",811.8,177,100,1982,0) +735 +"DATA",811.8,177,100,1983,0) +2841598559 +"DATA",811.8,177,100,1984,0) +NO +"DATA",811.8,177,100,1985,0) + +"DATA",811.8,177,100,1986,0) + +"DATA",811.8,177,100,1994,0) + +"DATA",811.8,177,100,1995,0) + +"DATA",811.8,177,100,1996,0) + +"DATA",811.8,177,100,2000,0) + +"DATA",811.8,177,100,2001,0) + +"DATA",811.8,177,100,2002,0) + +"DATA",811.8,177,100,2003,0) +REMINDER TERM +"DATA",811.8,177,100,2004,0) +811.5 +"DATA",811.8,177,100,2005,0) +MU STK-5 DENOM EXCLU T-PA TRM +"DATA",811.8,177,100,2006,0) +575 +"DATA",811.8,177,100,2007,0) +1911213661 +"DATA",811.8,177,100,2008,0) +NO +"DATA",811.8,177,100,2009,0) + +"DATA",811.8,177,100,2010,0) + +"DATA",811.8,177,100,2019,0) + +"DATA",811.8,177,100,2020,0) + +"DATA",811.8,177,100,2021,0) + +"DATA",811.8,177,100,2026,0) + +"DATA",811.8,177,100,2027,0) + +"DATA",811.8,177,100,2028,0) + +"DATA",811.8,177,100,2029,0) +REMINDER TERM +"DATA",811.8,177,100,2030,0) +811.5 +"DATA",811.8,177,100,2031,0) +MU STK-5 DENOM EXCLU TRM +"DATA",811.8,177,100,2032,0) +560 +"DATA",811.8,177,100,2033,0) +4115852591 +"DATA",811.8,177,100,2034,0) +NO +"DATA",811.8,177,100,2035,0) + +"DATA",811.8,177,100,2036,0) + +"DATA",811.8,177,100,2055,0) + +"DATA",811.8,177,100,2056,0) + +"DATA",811.8,177,100,2057,0) + +"DATA",811.8,177,100,2070,0) + +"DATA",811.8,177,100,2071,0) + +"DATA",811.8,177,100,2072,0) + +"DATA",811.8,177,100,2073,0) +REMINDER TERM +"DATA",811.8,177,100,2074,0) +811.5 +"DATA",811.8,177,100,2075,0) +MU STK-5 NUMER INCLU TRM +"DATA",811.8,177,100,2076,0) +558 +"DATA",811.8,177,100,2077,0) +1988107668 +"DATA",811.8,177,100,2078,0) +NO +"DATA",811.8,177,100,2079,0) + +"DATA",811.8,177,100,2080,0) + +"DATA",811.8,177,100,2089,0) + +"DATA",811.8,177,100,2090,0) + +"DATA",811.8,177,100,2091,0) + +"DATA",811.8,177,100,2096,0) + +"DATA",811.8,177,100,2097,0) + +"DATA",811.8,177,100,2098,0) + +"DATA",811.8,177,100,2099,0) +REMINDER TERM +"DATA",811.8,177,100,2100,0) +811.5 +"DATA",811.8,177,100,2101,0) +MU STK-4 DENOM ARRIVAL HF +"DATA",811.8,177,100,2102,0) +733 +"DATA",811.8,177,100,2103,0) +1730002429 +"DATA",811.8,177,100,2104,0) +NO +"DATA",811.8,177,100,2105,0) + +"DATA",811.8,177,100,2106,0) + +"DATA",811.8,177,100,2114,0) + +"DATA",811.8,177,100,2115,0) + +"DATA",811.8,177,100,2116,0) + +"DATA",811.8,177,100,2120,0) + +"DATA",811.8,177,100,2121,0) + +"DATA",811.8,177,100,2122,0) + +"DATA",811.8,177,100,2123,0) +REMINDER TERM +"DATA",811.8,177,100,2124,0) +811.5 +"DATA",811.8,177,100,2125,0) +MU STK-4 DENOM EXCLU HF>2H +"DATA",811.8,177,100,2126,0) +732 +"DATA",811.8,177,100,2127,0) +3727629332 +"DATA",811.8,177,100,2128,0) +NO +"DATA",811.8,177,100,2129,0) + +"DATA",811.8,177,100,2130,0) +2H +"DATA",811.8,177,100,2132,0) +811.5;+732,;100~LOCAL +"DATA",811.8,177,100,2133,0) +811.52;+733,+732,;.01~HF.LAST KNOWN WELL > 2H +"DATA",811.8,177,100,2134,0) +811.53;+734,+732,;.01~07/18/2012@10:34:38 +"DATA",811.8,177,100,2135,0) +811.53;+734,+732,;2~WP-start~1 +"DATA",811.8,177,100,2136,0) +Exchange Stub +"DATA",811.8,177,100,2137,0) +]]> +"DATA",811.8,177,100,2138,0) + +"DATA",811.8,177,100,2139,0) + +"DATA",811.8,177,100,2140,0) + +"DATA",811.8,177,100,2144,0) + +"DATA",811.8,177,100,2145,0) + +"DATA",811.8,177,100,2146,0) + +"DATA",811.8,177,100,2147,0) +REMINDER TERM +"DATA",811.8,177,100,2148,0) +811.5 +"DATA",811.8,177,100,2149,0) +MU ADMISSION EMERGENCY RT +"DATA",811.8,177,100,2150,0) +731 +"DATA",811.8,177,100,2151,0) +1925315236 +"DATA",811.8,177,100,2152,0) +NO +"DATA",811.8,177,100,2153,0) + +"DATA",811.8,177,100,2154,0) + +"DATA",811.8,177,100,2164,0) + +"DATA",811.8,177,100,2165,0) + +"DATA",811.8,177,100,2166,0) + +"DATA",811.8,177,100,2170,0) + +"DATA",811.8,177,100,2171,0) + +"DATA",811.8,177,100,2172,0) + +"DATA",811.8,177,100,2173,0) +REMINDER TERM +"DATA",811.8,177,100,2174,0) +811.5 +"DATA",811.8,177,100,2175,0) +MU STK-4 NUMER INCLU TRM +"DATA",811.8,177,100,2176,0) +616 +"DATA",811.8,177,100,2177,0) +2614590554 +"DATA",811.8,177,100,2178,0) +NO +"DATA",811.8,177,100,2179,0) + +"DATA",811.8,177,100,2180,0) + +"DATA",811.8,177,100,2189,0) + +"DATA",811.8,177,100,2190,0) + +"DATA",811.8,177,100,2191,0) + +"DATA",811.8,177,100,2196,0) + +"DATA",811.8,177,100,2197,0) + +"DATA",811.8,177,100,2198,0) + +"DATA",811.8,177,100,2199,0) +REMINDER TERM +"DATA",811.8,177,100,2200,0) +811.5 +"DATA",811.8,177,100,2201,0) +MU STK-4 DENOM EXCLU TRM +"DATA",811.8,177,100,2202,0) +615 +"DATA",811.8,177,100,2203,0) +3119065295 +"DATA",811.8,177,100,2204,0) +NO +"DATA",811.8,177,100,2205,0) + +"DATA",811.8,177,100,2206,0) + 2H +"DATA",811.8,177,100,2213,0) +811.52;+618,+615,;.01~HF.ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,2214,0) +811.52;+619,+615,;.01~HF.ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,2215,0) +811.53;+620,+615,;.01~07/18/2012@10:34:38 +"DATA",811.8,177,100,2216,0) +811.53;+620,+615,;2~WP-start~1 +"DATA",811.8,177,100,2217,0) +Exchange Stub +"DATA",811.8,177,100,2218,0) +]]> +"DATA",811.8,177,100,2219,0) + +"DATA",811.8,177,100,2220,0) + +"DATA",811.8,177,100,2221,0) + +"DATA",811.8,177,100,2228,0) + +"DATA",811.8,177,100,2229,0) + +"DATA",811.8,177,100,2230,0) + +"DATA",811.8,177,100,2231,0) +REMINDER TERM +"DATA",811.8,177,100,2232,0) +811.5 +"DATA",811.8,177,100,2233,0) +MU STK-4 DENOM INC HF<2H +"DATA",811.8,177,100,2234,0) +576 +"DATA",811.8,177,100,2235,0) +3508683479 +"DATA",811.8,177,100,2236,0) +NO +"DATA",811.8,177,100,2237,0) + +"DATA",811.8,177,100,2238,0) + +"DATA",811.8,177,100,2248,0) + +"DATA",811.8,177,100,2249,0) + +"DATA",811.8,177,100,2250,0) + +"DATA",811.8,177,100,2254,0) + +"DATA",811.8,177,100,2255,0) + +"DATA",811.8,177,100,2256,0) + +"DATA",811.8,177,100,2257,0) +REMINDER TERM +"DATA",811.8,177,100,2258,0) +811.5 +"DATA",811.8,177,100,2259,0) +MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,177,100,2260,0) +660 +"DATA",811.8,177,100,2261,0) +1258096799 +"DATA",811.8,177,100,2262,0) +NO +"DATA",811.8,177,100,2263,0) + +"DATA",811.8,177,100,2264,0) + +"DATA",811.8,177,100,2275,0) + +"DATA",811.8,177,100,2276,0) + +"DATA",811.8,177,100,2277,0) + +"DATA",811.8,177,100,2281,0) + +"DATA",811.8,177,100,2282,0) + +"DATA",811.8,177,100,2283,0) + +"DATA",811.8,177,100,2284,0) +REMINDER TERM +"DATA",811.8,177,100,2285,0) +811.5 +"DATA",811.8,177,100,2286,0) +MU STK-3 DENOM EXCLU TRM +"DATA",811.8,177,100,2287,0) +621 +"DATA",811.8,177,100,2288,0) +4208060120 +"DATA",811.8,177,100,2289,0) +NO +"DATA",811.8,177,100,2290,0) + +"DATA",811.8,177,100,2291,0) + +"DATA",811.8,177,100,2304,0) + +"DATA",811.8,177,100,2305,0) + +"DATA",811.8,177,100,2306,0) + +"DATA",811.8,177,100,2313,0) + +"DATA",811.8,177,100,2314,0) + +"DATA",811.8,177,100,2315,0) + +"DATA",811.8,177,100,2316,0) +REMINDER TERM +"DATA",811.8,177,100,2317,0) +811.5 +"DATA",811.8,177,100,2318,0) +MU STK-3 NUMER INCLU TRM +"DATA",811.8,177,100,2319,0) +622 +"DATA",811.8,177,100,2320,0) +1707257158 +"DATA",811.8,177,100,2321,0) +NO +"DATA",811.8,177,100,2322,0) + +"DATA",811.8,177,100,2323,0) + +"DATA",811.8,177,100,2334,0) + +"DATA",811.8,177,100,2335,0) + +"DATA",811.8,177,100,2336,0) + +"DATA",811.8,177,100,2343,0) + +"DATA",811.8,177,100,2344,0) + +"DATA",811.8,177,100,2345,0) + +"DATA",811.8,177,100,2346,0) +REMINDER TERM +"DATA",811.8,177,100,2347,0) +811.5 +"DATA",811.8,177,100,2348,0) +MU STK-2 DENOM EXCLU TRM +"DATA",811.8,177,100,2349,0) +652 +"DATA",811.8,177,100,2350,0) +706072082 +"DATA",811.8,177,100,2351,0) +NO +"DATA",811.8,177,100,2352,0) + +"DATA",811.8,177,100,2353,0) + +"DATA",811.8,177,100,2366,0) + +"DATA",811.8,177,100,2367,0) + +"DATA",811.8,177,100,2368,0) + +"DATA",811.8,177,100,2375,0) + +"DATA",811.8,177,100,2376,0) + +"DATA",811.8,177,100,2377,0) + +"DATA",811.8,177,100,2378,0) +REMINDER TERM +"DATA",811.8,177,100,2379,0) +811.5 +"DATA",811.8,177,100,2380,0) +MU STK-2 NUMER INCLU TRM +"DATA",811.8,177,100,2381,0) +734 +"DATA",811.8,177,100,2382,0) +1179920368 +"DATA",811.8,177,100,2383,0) +NO +"DATA",811.8,177,100,2384,0) + +"DATA",811.8,177,100,2385,0) + +"DATA",811.8,177,100,2399,0) + +"DATA",811.8,177,100,2400,0) + +"DATA",811.8,177,100,2401,0) + +"DATA",811.8,177,100,2409,0) + +"DATA",811.8,177,100,2410,0) + +"DATA",811.8,177,100,2411,0) + +"DATA",811.8,177,100,2412,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2413,0) +811.9 +"DATA",811.8,177,100,2414,0) +MU STK-10 DENOM CR +"DATA",811.8,177,100,2415,0) +241 +"DATA",811.8,177,100,2416,0) +1212364542 +"DATA",811.8,177,100,2417,0) +NO +"DATA",811.8,177,100,2418,0) + +"DATA",811.8,177,100,2419,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,2557,0) + +"DATA",811.8,177,100,2558,0) + +"DATA",811.8,177,100,2559,0) + +"DATA",811.8,177,100,2604,0) + +"DATA",811.8,177,100,2605,0) + +"DATA",811.8,177,100,2606,0) + +"DATA",811.8,177,100,2607,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2608,0) +811.9 +"DATA",811.8,177,100,2609,0) +MU STK-10 NUMER CR +"DATA",811.8,177,100,2610,0) +242 +"DATA",811.8,177,100,2611,0) +1119886564 +"DATA",811.8,177,100,2612,0) +NO +"DATA",811.8,177,100,2613,0) + +"DATA",811.8,177,100,2614,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,2755,0) + +"DATA",811.8,177,100,2756,0) + +"DATA",811.8,177,100,2757,0) + +"DATA",811.8,177,100,2803,0) + +"DATA",811.8,177,100,2804,0) + +"DATA",811.8,177,100,2805,0) + +"DATA",811.8,177,100,2806,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2807,0) +811.9 +"DATA",811.8,177,100,2808,0) +MU STK-8 DENOM CR +"DATA",811.8,177,100,2809,0) +193 +"DATA",811.8,177,100,2810,0) +3528780773 +"DATA",811.8,177,100,2811,0) +NO +"DATA",811.8,177,100,2812,0) + +"DATA",811.8,177,100,2813,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,2942,0) + +"DATA",811.8,177,100,2943,0) + +"DATA",811.8,177,100,2944,0) + +"DATA",811.8,177,100,2986,0) + +"DATA",811.8,177,100,2987,0) + +"DATA",811.8,177,100,2988,0) + +"DATA",811.8,177,100,2989,0) +REMINDER DEFINITION +"DATA",811.8,177,100,2990,0) +811.9 +"DATA",811.8,177,100,2991,0) +MU STK-8 NUMER CR +"DATA",811.8,177,100,2992,0) +240 +"DATA",811.8,177,100,2993,0) +1879819296 +"DATA",811.8,177,100,2994,0) +NO +"DATA",811.8,177,100,2995,0) + +"DATA",811.8,177,100,2996,0) +MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1) +"DATA",811.8,177,100,3140,0) + +"DATA",811.8,177,100,3141,0) + +"DATA",811.8,177,100,3142,0) + +"DATA",811.8,177,100,3189,0) + +"DATA",811.8,177,100,3190,0) + +"DATA",811.8,177,100,3191,0) + +"DATA",811.8,177,100,3192,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3193,0) +811.9 +"DATA",811.8,177,100,3194,0) +MU STK-6 DENOM CR +"DATA",811.8,177,100,3195,0) +195 +"DATA",811.8,177,100,3196,0) +1268617803 +"DATA",811.8,177,100,3197,0) +NO +"DATA",811.8,177,100,3198,0) + +"DATA",811.8,177,100,3199,0) + 18y +"DATA",811.8,177,100,3204,0) +LOS <=120 DAYS +"DATA",811.8,177,100,3205,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,3206,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,3207,0) +EX PT ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3208,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,3209,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,3210,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,3211,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,3212,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3213,0) +EX PT WITH A REASON FOR NOT PRESCRIBING STATIN MEDICATION AT DISCHARGE +"DATA",811.8,177,100,3214,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,3215,0) +Patients who were on a lipid lowering medication prior to hospital arrival +"DATA",811.8,177,100,3216,0) +Patients with LDL-c not measured +"DATA",811.8,177,100,3217,0) +Patients with LDL-c Greater than or equal to 100mg/dl +"DATA",811.8,177,100,3218,0) +811.9;+195,;30~(AGE)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3219,0) +811.9;+195,;31~(AGE)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3220,0) +811.9;+195,;32~11 +"DATA",811.8,177,100,3221,0) +811.9;+195,;33~AGE;1;7;6;13;14;15;16;17;3;2 +"DATA",811.8,177,100,3222,0) +811.9;+195,;36~0 +"DATA",811.8,177,100,3223,0) +811.9;+195,;40~0 +"DATA",811.8,177,100,3224,0) +811.9;+195,;42~8 +"DATA",811.8,177,100,3225,0) +811.9;+195,;43~4;5;8;9;11;FF1;FF2;FF3 +"DATA",811.8,177,100,3226,0) +811.9;+195,;60~WP-start~1 +"DATA",811.8,177,100,3227,0) + ^ +"DATA",811.8,177,100,3228,0) +811.9;+195,;62~1 +"DATA",811.8,177,100,3229,0) +811.9;+195,;63~0 +"DATA",811.8,177,100,3230,0) +811.9;+195,;67~0 +"DATA",811.8,177,100,3231,0) +811.9;+195,;68~0 +"DATA",811.8,177,100,3232,0) +811.9;+195,;71~WP-start~1 +"DATA",811.8,177,100,3233,0) + +"DATA",811.8,177,100,3234,0) +811.9;+195,;72~0 +"DATA",811.8,177,100,3235,0) +811.9;+195,;73~1 +"DATA",811.8,177,100,3236,0) +811.9;+195,;77~0 +"DATA",811.8,177,100,3237,0) +811.9;+195,;78~0 +"DATA",811.8,177,100,3238,0) +811.9;+195,;100~LOCAL +"DATA",811.8,177,100,3239,0) +811.9;+195,;103~L +"DATA",811.8,177,100,3240,0) +811.9001;+196,+195,;.01~07/18/2012@10:34:41 +"DATA",811.8,177,100,3241,0) +811.9001;+196,+195,;2~WP-start~1 +"DATA",811.8,177,100,3242,0) +Exchange Stub +"DATA",811.8,177,100,3243,0) +811.902;+197,+195,;.01~TX.MU STK-6 DENOM INCLU TX +"DATA",811.8,177,100,3244,0) +811.902;+197,+195,;24~0 +"DATA",811.8,177,100,3245,0) +811.902;+197,+195,;25~0 +"DATA",811.8,177,100,3246,0) +811.902;+198,+195,;.01~HF.LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,3247,0) +811.902;+198,+195,;11~0 +"DATA",811.8,177,100,3248,0) +811.902;+198,+195,;24~0 +"DATA",811.8,177,100,3249,0) +811.902;+198,+195,;25~0 +"DATA",811.8,177,100,3250,0) +811.902;+199,+195,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,3251,0) +811.902;+199,+195,;24~0 +"DATA",811.8,177,100,3252,0) +811.902;+199,+195,;25~0 +"DATA",811.8,177,100,3253,0) +811.902;+200,+195,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,3254,0) +811.902;+200,+195,;24~0 +"DATA",811.8,177,100,3255,0) +811.902;+200,+195,;25~0 +"DATA",811.8,177,100,3256,0) +811.902;+201,+195,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,3257,0) +811.902;+201,+195,;24~0 +"DATA",811.8,177,100,3258,0) +811.902;+201,+195,;25~0 +"DATA",811.8,177,100,3259,0) +811.902;+202,+195,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,3260,0) +811.902;+202,+195,;24~0 +"DATA",811.8,177,100,3261,0) +811.902;+202,+195,;25~0 +"DATA",811.8,177,100,3262,0) +811.902;+203,+195,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3263,0) +811.902;+203,+195,;24~0 +"DATA",811.8,177,100,3264,0) +811.902;+203,+195,;25~0 +"DATA",811.8,177,100,3265,0) +811.902;+204,+195,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,3266,0) +811.902;+204,+195,;24~0 +"DATA",811.8,177,100,3267,0) +811.902;+204,+195,;25~0 +"DATA",811.8,177,100,3268,0) +811.902;+205,+195,;.01~RT.MU STK-6 DENOM EXCLU TRM +"DATA",811.8,177,100,3269,0) +811.902;+205,+195,;24~0 +"DATA",811.8,177,100,3270,0) +811.902;+205,+195,;25~0 +"DATA",811.8,177,100,3271,0) +811.902;+206,+195,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3272,0) +811.902;+206,+195,;24~0 +"DATA",811.8,177,100,3273,0) +811.902;+206,+195,;25~0 +"DATA",811.8,177,100,3274,0) +811.902;+207,+195,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3275,0) +811.902;+207,+195,;24~0 +"DATA",811.8,177,100,3276,0) +811.902;+207,+195,;25~0 +"DATA",811.8,177,100,3277,0) +811.902;+208,+195,;.01~RT.MU STK-6 DENOM INCLU LAB>=100 +"DATA",811.8,177,100,3278,0) +811.902;+208,+195,;24~0 +"DATA",811.8,177,100,3279,0) +811.902;+208,+195,;25~0 +"DATA",811.8,177,100,3280,0) +811.902;+209,+195,;.01~RT.MU STK-6 DENOM INCLU DRUG TRM +"DATA",811.8,177,100,3281,0) +811.902;+209,+195,;24~0 +"DATA",811.8,177,100,3282,0) +811.902;+209,+195,;25~0 +"DATA",811.8,177,100,3283,0) +811.902;+210,+195,;.01~RT.MU STK-6 DENOM INCLU LAB<100 TRM +"DATA",811.8,177,100,3284,0) +811.902;+210,+195,;24~0 +"DATA",811.8,177,100,3285,0) +811.902;+210,+195,;25~0 +"DATA",811.8,177,100,3286,0) +811.902;+211,+195,;.01~RT.MU STK-6 DENOM INCLU LAB TRM +"DATA",811.8,177,100,3287,0) +811.902;+211,+195,;24~0 +"DATA",811.8,177,100,3288,0) +811.902;+211,+195,;25~0 +"DATA",811.8,177,100,3289,0) +811.90221;+212,+209,+195,;.01~ACTIVE +"DATA",811.8,177,100,3290,0) +811.90221;+213,+209,+195,;.01~DISCONTINUED +"DATA",811.8,177,100,3291,0) +811.90221;+214,+209,+195,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3292,0) +811.90221;+215,+209,+195,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3293,0) +811.90221;+216,+209,+195,;.01~EXPIRED +"DATA",811.8,177,100,3294,0) +811.90221;+217,+209,+195,;.01~SUSPENDED +"DATA",811.8,177,100,3295,0) +811.925;+218,+195,;.01~1 +"DATA",811.8,177,100,3296,0) +811.925;+218,+195,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,3297,0) +811.925;+218,+195,;10~FN(1)<121 +"DATA",811.8,177,100,3298,0) +811.925;+218,+195,;41~0 +"DATA",811.8,177,100,3299,0) +811.925;+218,+195,;42~0 +"DATA",811.8,177,100,3300,0) +811.925;+219,+195,;.01~2 +"DATA",811.8,177,100,3301,0) +811.925;+219,+195,;3~(MAX_DATE(1)MAX_DATE(4))!(MAX_DATE(1)=MAX_DATE(4)))&((MAX_DATE(1)>MAX_DATE(12))!(MAX_DATE(1)=MAX_DATE(12)))) +"DATA",811.8,177,100,3307,0) +811.925;+220,+195,;10~(FN(1)FN(6))!(FN(1)=FN(6)))&((FN(1)>FN(10))!(FN(1)=FN(10)))) +"DATA",811.8,177,100,3308,0) +811.925;+220,+195,;41~0 +"DATA",811.8,177,100,3309,0) +811.925;+220,+195,;42~0 +"DATA",811.8,177,100,3310,0) +811.9255;+221,+218,+195,;.01~1 +"DATA",811.8,177,100,3311,0) +811.9255;+221,+218,+195,;.02~DIFF_DATE +"DATA",811.8,177,100,3312,0) +811.9255;+222,+219,+195,;.01~1 +"DATA",811.8,177,100,3313,0) +811.9255;+222,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3314,0) +811.9255;+223,+220,+195,;.01~1 +"DATA",811.8,177,100,3315,0) +811.9255;+223,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3316,0) +811.9255;+224,+220,+195,;.01~10 +"DATA",811.8,177,100,3317,0) +811.9255;+224,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3318,0) +811.9255;+225,+220,+195,;.01~11 +"DATA",811.8,177,100,3319,0) +811.9255;+225,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3320,0) +811.9255;+226,+220,+195,;.01~12 +"DATA",811.8,177,100,3321,0) +811.9255;+226,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3322,0) +811.9255;+227,+219,+195,;.01~2 +"DATA",811.8,177,100,3323,0) +811.9255;+227,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3324,0) +811.9255;+228,+220,+195,;.01~2 +"DATA",811.8,177,100,3325,0) +811.9255;+228,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3326,0) +811.9255;+229,+219,+195,;.01~3 +"DATA",811.8,177,100,3327,0) +811.9255;+229,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3328,0) +811.9255;+230,+220,+195,;.01~3 +"DATA",811.8,177,100,3329,0) +811.9255;+230,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3330,0) +811.9255;+231,+219,+195,;.01~4 +"DATA",811.8,177,100,3331,0) +811.9255;+231,+219,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3332,0) +811.9255;+232,+220,+195,;.01~4 +"DATA",811.8,177,100,3333,0) +811.9255;+232,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3334,0) +811.9255;+233,+220,+195,;.01~5 +"DATA",811.8,177,100,3335,0) +811.9255;+233,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3336,0) +811.9255;+234,+220,+195,;.01~6 +"DATA",811.8,177,100,3337,0) +811.9255;+234,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3338,0) +811.9255;+235,+220,+195,;.01~7 +"DATA",811.8,177,100,3339,0) +811.9255;+235,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3340,0) +811.9255;+236,+220,+195,;.01~8 +"DATA",811.8,177,100,3341,0) +811.9255;+236,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3342,0) +811.9255;+237,+220,+195,;.01~9 +"DATA",811.8,177,100,3343,0) +811.9255;+237,+220,+195,;.02~MAX_DATE +"DATA",811.8,177,100,3344,0) +811.9256;+238,+221,+218,+195,;.01~5 +"DATA",811.8,177,100,3345,0) +811.9256;+239,+222,+219,+195,;.01~1 +"DATA",811.8,177,100,3346,0) +811.9256;+240,+223,+220,+195,;.01~1 +"DATA",811.8,177,100,3347,0) +811.9256;+241,+224,+220,+195,;.01~12 +"DATA",811.8,177,100,3348,0) +811.9256;+242,+225,+220,+195,;.01~1 +"DATA",811.8,177,100,3349,0) +811.9256;+243,+226,+220,+195,;.01~12 +"DATA",811.8,177,100,3350,0) +811.9256;+244,+227,+219,+195,;.01~5 +"DATA",811.8,177,100,3351,0) +811.9256;+245,+228,+220,+195,;.01~5 +"DATA",811.8,177,100,3352,0) +811.9256;+246,+229,+219,+195,;.01~1 +"DATA",811.8,177,100,3353,0) +811.9256;+247,+230,+220,+195,;.01~1 +"DATA",811.8,177,100,3354,0) +811.9256;+248,+231,+219,+195,;.01~5 +"DATA",811.8,177,100,3355,0) +811.9256;+249,+232,+220,+195,;.01~5 +"DATA",811.8,177,100,3356,0) +811.9256;+250,+233,+220,+195,;.01~1 +"DATA",811.8,177,100,3357,0) +811.9256;+251,+234,+220,+195,;.01~4 +"DATA",811.8,177,100,3358,0) +811.9256;+252,+235,+220,+195,;.01~1 +"DATA",811.8,177,100,3359,0) +811.9256;+253,+236,+220,+195,;.01~4 +"DATA",811.8,177,100,3360,0) +811.9256;+254,+237,+220,+195,;.01~1 +"DATA",811.8,177,100,3361,0) +811.9256;+255,+221,+218,+195,;.01~4 +"DATA",811.8,177,100,3362,0) +811.97;+256,+195,;.01~99Y +"DATA",811.8,177,100,3363,0) +811.97;+256,+195,;1~18 +"DATA",811.8,177,100,3364,0) +811.97;+256,+195,;2~99 +"DATA",811.8,177,100,3365,0) +811.97;+256,+195,;5~0 +"DATA",811.8,177,100,3366,0) +811.97;+256,+195,;6~0 +"DATA",811.8,177,100,3367,0) +]]> +"DATA",811.8,177,100,3368,0) + +"DATA",811.8,177,100,3369,0) + +"DATA",811.8,177,100,3370,0) + +"DATA",811.8,177,100,3433,0) + +"DATA",811.8,177,100,3434,0) + +"DATA",811.8,177,100,3435,0) + +"DATA",811.8,177,100,3436,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3437,0) +811.9 +"DATA",811.8,177,100,3438,0) +MU STK-6 NUMER CR +"DATA",811.8,177,100,3439,0) +239 +"DATA",811.8,177,100,3440,0) +3624100900 +"DATA",811.8,177,100,3441,0) +NO +"DATA",811.8,177,100,3442,0) + +"DATA",811.8,177,100,3443,0) + 18y +"DATA",811.8,177,100,3448,0) +LOS <=120 DAYS +"DATA",811.8,177,100,3449,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,3450,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,3451,0) +EX PT ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3452,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,3453,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,3454,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,3455,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,3456,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3457,0) +EX PT WITH A REASON FOR NOT PRESCRIBING STATIN MEDICATION AT DISCHARGE +"DATA",811.8,177,100,3458,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,3459,0) +Patients who were on a lipid lowering medication prior to hospital arrival +"DATA",811.8,177,100,3460,0) +Patients with LDL-c not measured +"DATA",811.8,177,100,3461,0) +Patients with LDL-c Greater than or equal to 100mg/dl +"DATA",811.8,177,100,3462,0) +811.9;+239,;30~(AGE)&FI(10)&FI(12)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3463,0) +811.9;+239,;31~(AGE)&FI(10)&FI(12)&(FI(1)&FFI(1))&FI(7)&FI(6)&'FI(13)&'FI(14)&'FI(15)&'FI(16)&'FI(17)&'FI(3)&'FI(2) +"DATA",811.8,177,100,3464,0) +811.9;+239,;32~13 +"DATA",811.8,177,100,3465,0) +811.9;+239,;33~AGE;10;12;1;7;6;13;14;15;16;17;3;2 +"DATA",811.8,177,100,3466,0) +811.9;+239,;36~0 +"DATA",811.8,177,100,3467,0) +811.9;+239,;40~0 +"DATA",811.8,177,100,3468,0) +811.9;+239,;42~8 +"DATA",811.8,177,100,3469,0) +811.9;+239,;43~4;5;8;9;11;FF1;FF2;FF3 +"DATA",811.8,177,100,3470,0) +811.9;+239,;60~WP-start~1 +"DATA",811.8,177,100,3471,0) + ^ +"DATA",811.8,177,100,3472,0) +811.9;+239,;62~1 +"DATA",811.8,177,100,3473,0) +811.9;+239,;63~0 +"DATA",811.8,177,100,3474,0) +811.9;+239,;67~0 +"DATA",811.8,177,100,3475,0) +811.9;+239,;68~0 +"DATA",811.8,177,100,3476,0) +811.9;+239,;71~WP-start~1 +"DATA",811.8,177,100,3477,0) + +"DATA",811.8,177,100,3478,0) +811.9;+239,;72~0 +"DATA",811.8,177,100,3479,0) +811.9;+239,;73~1 +"DATA",811.8,177,100,3480,0) +811.9;+239,;77~0 +"DATA",811.8,177,100,3481,0) +811.9;+239,;78~0 +"DATA",811.8,177,100,3482,0) +811.9;+239,;100~LOCAL +"DATA",811.8,177,100,3483,0) +811.9;+239,;103~L +"DATA",811.8,177,100,3484,0) +811.9001;+240,+239,;.01~07/18/2012@10:34:41 +"DATA",811.8,177,100,3485,0) +811.9001;+240,+239,;2~WP-start~1 +"DATA",811.8,177,100,3486,0) +Exchange Stub +"DATA",811.8,177,100,3487,0) +811.902;+241,+239,;.01~TX.MU STK-6 DENOM INCLU TX +"DATA",811.8,177,100,3488,0) +811.902;+241,+239,;24~0 +"DATA",811.8,177,100,3489,0) +811.902;+241,+239,;25~0 +"DATA",811.8,177,100,3490,0) +811.902;+242,+239,;.01~RT.MU STK-6 NUMER INCLU DRUG +"DATA",811.8,177,100,3491,0) +811.902;+242,+239,;24~0 +"DATA",811.8,177,100,3492,0) +811.902;+242,+239,;25~0 +"DATA",811.8,177,100,3493,0) +811.902;+243,+239,;.01~HF.LDL NOT DONE PRIOR TO HOSP ADMISSION +"DATA",811.8,177,100,3494,0) +811.902;+243,+239,;11~0 +"DATA",811.8,177,100,3495,0) +811.902;+243,+239,;24~0 +"DATA",811.8,177,100,3496,0) +811.902;+243,+239,;25~0 +"DATA",811.8,177,100,3497,0) +811.902;+244,+239,;.01~DC.CV350 +"DATA",811.8,177,100,3498,0) +811.902;+244,+239,;24~0 +"DATA",811.8,177,100,3499,0) +811.902;+244,+239,;25~0 +"DATA",811.8,177,100,3500,0) +811.902;+245,+239,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,3501,0) +811.902;+245,+239,;24~0 +"DATA",811.8,177,100,3502,0) +811.902;+245,+239,;25~0 +"DATA",811.8,177,100,3503,0) +811.902;+246,+239,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,3504,0) +811.902;+246,+239,;24~0 +"DATA",811.8,177,100,3505,0) +811.902;+246,+239,;25~0 +"DATA",811.8,177,100,3506,0) +811.902;+247,+239,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,3507,0) +811.902;+247,+239,;24~0 +"DATA",811.8,177,100,3508,0) +811.902;+247,+239,;25~0 +"DATA",811.8,177,100,3509,0) +811.902;+248,+239,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,3510,0) +811.902;+248,+239,;24~0 +"DATA",811.8,177,100,3511,0) +811.902;+248,+239,;25~0 +"DATA",811.8,177,100,3512,0) +811.902;+249,+239,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,3513,0) +811.902;+249,+239,;24~0 +"DATA",811.8,177,100,3514,0) +811.902;+249,+239,;25~0 +"DATA",811.8,177,100,3515,0) +811.902;+250,+239,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,3516,0) +811.902;+250,+239,;24~0 +"DATA",811.8,177,100,3517,0) +811.902;+250,+239,;25~0 +"DATA",811.8,177,100,3518,0) +811.902;+251,+239,;.01~RT.MU STK-6 DENOM EXCLU TRM +"DATA",811.8,177,100,3519,0) +811.902;+251,+239,;24~0 +"DATA",811.8,177,100,3520,0) +811.902;+251,+239,;25~0 +"DATA",811.8,177,100,3521,0) +811.902;+252,+239,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3522,0) +811.902;+252,+239,;24~0 +"DATA",811.8,177,100,3523,0) +811.902;+252,+239,;25~0 +"DATA",811.8,177,100,3524,0) +811.902;+253,+239,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3525,0) +811.902;+253,+239,;24~0 +"DATA",811.8,177,100,3526,0) +811.902;+253,+239,;25~0 +"DATA",811.8,177,100,3527,0) +811.902;+254,+239,;.01~RT.MU STK-6 DENOM INCLU LAB>=100 +"DATA",811.8,177,100,3528,0) +811.902;+254,+239,;24~0 +"DATA",811.8,177,100,3529,0) +811.902;+254,+239,;25~0 +"DATA",811.8,177,100,3530,0) +811.902;+255,+239,;.01~RT.MU STK-6 DENOM INCLU DRUG TRM +"DATA",811.8,177,100,3531,0) +811.902;+255,+239,;24~0 +"DATA",811.8,177,100,3532,0) +811.902;+255,+239,;25~0 +"DATA",811.8,177,100,3533,0) +811.902;+256,+239,;.01~RT.MU STK-6 DENOM INCLU LAB<100 TRM +"DATA",811.8,177,100,3534,0) +811.902;+256,+239,;24~0 +"DATA",811.8,177,100,3535,0) +811.902;+256,+239,;25~0 +"DATA",811.8,177,100,3536,0) +811.902;+257,+239,;.01~RT.MU STK-6 DENOM INCLU LAB TRM +"DATA",811.8,177,100,3537,0) +811.902;+257,+239,;24~0 +"DATA",811.8,177,100,3538,0) +811.902;+257,+239,;25~0 +"DATA",811.8,177,100,3539,0) +811.90221;+258,+244,+239,;.01~ACTIVE +"DATA",811.8,177,100,3540,0) +811.90221;+259,+255,+239,;.01~ACTIVE +"DATA",811.8,177,100,3541,0) +811.90221;+260,+244,+239,;.01~DISCONTINUED +"DATA",811.8,177,100,3542,0) +811.90221;+261,+255,+239,;.01~DISCONTINUED +"DATA",811.8,177,100,3543,0) +811.90221;+262,+244,+239,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3544,0) +811.90221;+263,+255,+239,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3545,0) +811.90221;+264,+244,+239,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3546,0) +811.90221;+265,+255,+239,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3547,0) +811.90221;+266,+244,+239,;.01~EXPIRED +"DATA",811.8,177,100,3548,0) +811.90221;+267,+255,+239,;.01~EXPIRED +"DATA",811.8,177,100,3549,0) +811.90221;+268,+244,+239,;.01~SUSPENDED +"DATA",811.8,177,100,3550,0) +811.90221;+269,+255,+239,;.01~SUSPENDED +"DATA",811.8,177,100,3551,0) +811.925;+270,+239,;.01~1 +"DATA",811.8,177,100,3552,0) +811.925;+270,+239,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,3553,0) +811.925;+270,+239,;10~FN(1)<121 +"DATA",811.8,177,100,3554,0) +811.925;+270,+239,;41~0 +"DATA",811.8,177,100,3555,0) +811.925;+270,+239,;42~0 +"DATA",811.8,177,100,3556,0) +811.925;+271,+239,;.01~2 +"DATA",811.8,177,100,3557,0) +811.925;+271,+239,;3~(MAX_DATE(1)MAX_DATE(4))!(MAX_DATE(1)=MAX_DATE(4)))&((MAX_DATE(1)>MAX_DATE(12))!(MAX_DATE(1)=MAX_DATE(12)))) +"DATA",811.8,177,100,3563,0) +811.925;+272,+239,;10~(FN(1)FN(6))!(FN(1)=FN(6)))&((FN(1)>FN(10))!(FN(1)=FN(10)))) +"DATA",811.8,177,100,3564,0) +811.925;+272,+239,;41~0 +"DATA",811.8,177,100,3565,0) +811.925;+272,+239,;42~0 +"DATA",811.8,177,100,3566,0) +811.9255;+273,+270,+239,;.01~1 +"DATA",811.8,177,100,3567,0) +811.9255;+273,+270,+239,;.02~DIFF_DATE +"DATA",811.8,177,100,3568,0) +811.9255;+274,+271,+239,;.01~1 +"DATA",811.8,177,100,3569,0) +811.9255;+274,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3570,0) +811.9255;+275,+272,+239,;.01~1 +"DATA",811.8,177,100,3571,0) +811.9255;+275,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3572,0) +811.9255;+276,+272,+239,;.01~10 +"DATA",811.8,177,100,3573,0) +811.9255;+276,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3574,0) +811.9255;+277,+272,+239,;.01~11 +"DATA",811.8,177,100,3575,0) +811.9255;+277,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3576,0) +811.9255;+278,+272,+239,;.01~12 +"DATA",811.8,177,100,3577,0) +811.9255;+278,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3578,0) +811.9255;+279,+271,+239,;.01~2 +"DATA",811.8,177,100,3579,0) +811.9255;+279,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3580,0) +811.9255;+280,+272,+239,;.01~2 +"DATA",811.8,177,100,3581,0) +811.9255;+280,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3582,0) +811.9255;+281,+271,+239,;.01~3 +"DATA",811.8,177,100,3583,0) +811.9255;+281,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3584,0) +811.9255;+282,+272,+239,;.01~3 +"DATA",811.8,177,100,3585,0) +811.9255;+282,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3586,0) +811.9255;+283,+271,+239,;.01~4 +"DATA",811.8,177,100,3587,0) +811.9255;+283,+271,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3588,0) +811.9255;+284,+272,+239,;.01~4 +"DATA",811.8,177,100,3589,0) +811.9255;+284,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3590,0) +811.9255;+285,+272,+239,;.01~5 +"DATA",811.8,177,100,3591,0) +811.9255;+285,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3592,0) +811.9255;+286,+272,+239,;.01~6 +"DATA",811.8,177,100,3593,0) +811.9255;+286,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3594,0) +811.9255;+287,+272,+239,;.01~7 +"DATA",811.8,177,100,3595,0) +811.9255;+287,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3596,0) +811.9255;+288,+272,+239,;.01~8 +"DATA",811.8,177,100,3597,0) +811.9255;+288,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3598,0) +811.9255;+289,+272,+239,;.01~9 +"DATA",811.8,177,100,3599,0) +811.9255;+289,+272,+239,;.02~MAX_DATE +"DATA",811.8,177,100,3600,0) +811.9256;+290,+273,+270,+239,;.01~5 +"DATA",811.8,177,100,3601,0) +811.9256;+291,+274,+271,+239,;.01~1 +"DATA",811.8,177,100,3602,0) +811.9256;+292,+275,+272,+239,;.01~1 +"DATA",811.8,177,100,3603,0) +811.9256;+293,+276,+272,+239,;.01~12 +"DATA",811.8,177,100,3604,0) +811.9256;+294,+277,+272,+239,;.01~1 +"DATA",811.8,177,100,3605,0) +811.9256;+295,+278,+272,+239,;.01~12 +"DATA",811.8,177,100,3606,0) +811.9256;+296,+279,+271,+239,;.01~5 +"DATA",811.8,177,100,3607,0) +811.9256;+297,+280,+272,+239,;.01~5 +"DATA",811.8,177,100,3608,0) +811.9256;+298,+281,+271,+239,;.01~1 +"DATA",811.8,177,100,3609,0) +811.9256;+299,+282,+272,+239,;.01~1 +"DATA",811.8,177,100,3610,0) +811.9256;+300,+283,+271,+239,;.01~5 +"DATA",811.8,177,100,3611,0) +811.9256;+301,+284,+272,+239,;.01~5 +"DATA",811.8,177,100,3612,0) +811.9256;+302,+285,+272,+239,;.01~1 +"DATA",811.8,177,100,3613,0) +811.9256;+303,+286,+272,+239,;.01~4 +"DATA",811.8,177,100,3614,0) +811.9256;+304,+287,+272,+239,;.01~1 +"DATA",811.8,177,100,3615,0) +811.9256;+305,+288,+272,+239,;.01~4 +"DATA",811.8,177,100,3616,0) +811.9256;+306,+289,+272,+239,;.01~1 +"DATA",811.8,177,100,3617,0) +811.9256;+307,+273,+270,+239,;.01~4 +"DATA",811.8,177,100,3618,0) +811.97;+308,+239,;.01~99Y +"DATA",811.8,177,100,3619,0) +811.97;+308,+239,;1~18 +"DATA",811.8,177,100,3620,0) +811.97;+308,+239,;2~99 +"DATA",811.8,177,100,3621,0) +811.97;+308,+239,;5~0 +"DATA",811.8,177,100,3622,0) +811.97;+308,+239,;6~0 +"DATA",811.8,177,100,3623,0) +]]> +"DATA",811.8,177,100,3624,0) + +"DATA",811.8,177,100,3625,0) + +"DATA",811.8,177,100,3626,0) + +"DATA",811.8,177,100,3697,0) + +"DATA",811.8,177,100,3698,0) + +"DATA",811.8,177,100,3699,0) + +"DATA",811.8,177,100,3700,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3701,0) +811.9 +"DATA",811.8,177,100,3702,0) +MU STK-5 DENOM CR +"DATA",811.8,177,100,3703,0) +197 +"DATA",811.8,177,100,3704,0) +1286769028 +"DATA",811.8,177,100,3705,0) +NO +"DATA",811.8,177,100,3706,0) + +"DATA",811.8,177,100,3707,0) +120D AND <2D +"DATA",811.8,177,100,3714,0) +EX PTS ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,3715,0) +EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3716,0) +EX PATIENTS WITH COMFORT MEASURES DOCUMENTED ON DAY OF OR DAY AFTER ARRIVAL +"DATA",811.8,177,100,3717,0) +EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC +"DATA",811.8,177,100,3718,0) +EX PATIENTS WITH IV OR IA THROMBOLYTIC (t-PA) THERAPY ADMINSITERED AT THIS HOSPITAL OR WITHIN 24 H PRIOR TO ARRIVAL +"DATA",811.8,177,100,3719,0) +EX PATIENTS WITH A DOCUMENTED REASON FOR NOT ADMINISTERING ANTITHROMBOTIC THERPAY BY END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3720,0) +EX PATIENTS DISCHARGED PRIOR TO THE END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3721,0) +811.9;+197,;30~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&'FI(5) +"DATA",811.8,177,100,3722,0) +811.9;+197,;31~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&'FI(5) +"DATA",811.8,177,100,3723,0) +811.9;+197,;32~8 +"DATA",811.8,177,100,3724,0) +811.9;+197,;33~AGE;1;FF1;FF2;2;FF1;FF2;5 +"DATA",811.8,177,100,3725,0) +811.9;+197,;36~0 +"DATA",811.8,177,100,3726,0) +811.9;+197,;40~0 +"DATA",811.8,177,100,3727,0) +811.9;+197,;42~2 +"DATA",811.8,177,100,3728,0) +811.9;+197,;43~3;4 +"DATA",811.8,177,100,3729,0) +811.9;+197,;62~0 +"DATA",811.8,177,100,3730,0) +811.9;+197,;63~0 +"DATA",811.8,177,100,3731,0) +811.9;+197,;67~0 +"DATA",811.8,177,100,3732,0) +811.9;+197,;68~0 +"DATA",811.8,177,100,3733,0) +811.9;+197,;72~0 +"DATA",811.8,177,100,3734,0) +811.9;+197,;73~0 +"DATA",811.8,177,100,3735,0) +811.9;+197,;77~0 +"DATA",811.8,177,100,3736,0) +811.9;+197,;78~0 +"DATA",811.8,177,100,3737,0) +811.9;+197,;100~LOCAL +"DATA",811.8,177,100,3738,0) +811.9;+197,;103~L +"DATA",811.8,177,100,3739,0) +811.9001;+198,+197,;.01~07/18/2012@10:34:42 +"DATA",811.8,177,100,3740,0) +811.9001;+198,+197,;2~WP-start~1 +"DATA",811.8,177,100,3741,0) +Exchange Stub +"DATA",811.8,177,100,3742,0) +811.902;+199,+197,;.01~TX.MU STK-5 DENOM INCLU TX +"DATA",811.8,177,100,3743,0) +811.902;+199,+197,;24~0 +"DATA",811.8,177,100,3744,0) +811.902;+199,+197,;25~0 +"DATA",811.8,177,100,3745,0) +811.902;+200,+197,;.01~RT.MU STK-5 DENOM EXCLU TRM +"DATA",811.8,177,100,3746,0) +811.902;+200,+197,;24~0 +"DATA",811.8,177,100,3747,0) +811.902;+200,+197,;25~0 +"DATA",811.8,177,100,3748,0) +811.902;+201,+197,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3749,0) +811.902;+201,+197,;24~0 +"DATA",811.8,177,100,3750,0) +811.902;+201,+197,;25~0 +"DATA",811.8,177,100,3751,0) +811.902;+202,+197,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3752,0) +811.902;+202,+197,;24~0 +"DATA",811.8,177,100,3753,0) +811.902;+202,+197,;25~0 +"DATA",811.8,177,100,3754,0) +811.902;+203,+197,;.01~RT.MU STK-5 DENOM EXCLU T-PA TRM +"DATA",811.8,177,100,3755,0) +811.902;+203,+197,;24~0 +"DATA",811.8,177,100,3756,0) +811.902;+203,+197,;25~0 +"DATA",811.8,177,100,3757,0) +811.925;+204,+197,;.01~1 +"DATA",811.8,177,100,3758,0) +811.925;+204,+197,;3~DIFF_DATE(3,4)<121 +"DATA",811.8,177,100,3759,0) +811.925;+204,+197,;10~FN(1)<121 +"DATA",811.8,177,100,3760,0) +811.925;+204,+197,;41~0 +"DATA",811.8,177,100,3761,0) +811.925;+204,+197,;42~0 +"DATA",811.8,177,100,3762,0) +811.925;+205,+197,;.01~2 +"DATA",811.8,177,100,3763,0) +811.925;+205,+197,;3~DIFF_DATE(3,4)>1 +"DATA",811.8,177,100,3764,0) +811.925;+205,+197,;10~FN(1)>1 +"DATA",811.8,177,100,3765,0) +811.925;+205,+197,;41~0 +"DATA",811.8,177,100,3766,0) +811.925;+205,+197,;42~0 +"DATA",811.8,177,100,3767,0) +811.9255;+206,+204,+197,;.01~1 +"DATA",811.8,177,100,3768,0) +811.9255;+206,+204,+197,;.02~DIFF_DATE +"DATA",811.8,177,100,3769,0) +811.9255;+207,+205,+197,;.01~1 +"DATA",811.8,177,100,3770,0) +811.9255;+207,+205,+197,;.02~DIFF_DATE +"DATA",811.8,177,100,3771,0) +811.9256;+208,+206,+204,+197,;.01~3 +"DATA",811.8,177,100,3772,0) +811.9256;+209,+207,+205,+197,;.01~3 +"DATA",811.8,177,100,3773,0) +811.9256;+210,+206,+204,+197,;.01~4 +"DATA",811.8,177,100,3774,0) +811.9256;+211,+207,+205,+197,;.01~4 +"DATA",811.8,177,100,3775,0) +811.97;+212,+197,;.01~99Y +"DATA",811.8,177,100,3776,0) +811.97;+212,+197,;1~18 +"DATA",811.8,177,100,3777,0) +811.97;+212,+197,;2~99 +"DATA",811.8,177,100,3778,0) +811.97;+212,+197,;5~0 +"DATA",811.8,177,100,3779,0) +811.97;+212,+197,;6~0 +"DATA",811.8,177,100,3780,0) +]]> +"DATA",811.8,177,100,3781,0) + +"DATA",811.8,177,100,3782,0) + +"DATA",811.8,177,100,3783,0) + +"DATA",811.8,177,100,3800,0) + +"DATA",811.8,177,100,3801,0) + +"DATA",811.8,177,100,3802,0) + +"DATA",811.8,177,100,3803,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3804,0) +811.9 +"DATA",811.8,177,100,3805,0) +MU STK-5 NUMER CR +"DATA",811.8,177,100,3806,0) +196 +"DATA",811.8,177,100,3807,0) +2769487849 +"DATA",811.8,177,100,3808,0) +NO +"DATA",811.8,177,100,3809,0) + +"DATA",811.8,177,100,3810,0) +120D AND <2D +"DATA",811.8,177,100,3817,0) +EX PTS ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,3818,0) +EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,3819,0) +EX PATIENTS WITH COMFORT MEASURES DOCUMENTED ON DAY OF OR DAY AFTER ARRIVAL +"DATA",811.8,177,100,3820,0) +EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC +"DATA",811.8,177,100,3821,0) +EX PATIENTS WITH IV OR IA THROMBOLYTIC (t-PA) THERAPY ADMINSITERED AT THIS HOSPITAL OR WITHIN 24 H PRIOR TO ARRIVAL +"DATA",811.8,177,100,3822,0) +EX PATIENTS WITH A DOCUMENTED REASON FOR NOT ADMINISTERING ANTITHROMBOTIC THERPAY BY END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3823,0) +EX PATIENTS DISCHARGED PRIOR TO THE END OF HOSPITAL DAY 2 +"DATA",811.8,177,100,3824,0) +Ischemic stroke patients who had antithrombotic therapy administered by end of hospital day 2 +"DATA",811.8,177,100,3825,0) +811.9;+196,;30~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&(FI(5)&FF(3)) +"DATA",811.8,177,100,3826,0) +811.9;+196,;31~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&(FI(5)&FF(3)) +"DATA",811.8,177,100,3827,0) +811.9;+196,;32~9 +"DATA",811.8,177,100,3828,0) +811.9;+196,;33~AGE;1;FF1;FF2;2;FF1;FF2;5;FF3 +"DATA",811.8,177,100,3829,0) +811.9;+196,;36~0 +"DATA",811.8,177,100,3830,0) +811.9;+196,;40~0 +"DATA",811.8,177,100,3831,0) +811.9;+196,;42~2 +"DATA",811.8,177,100,3832,0) +811.9;+196,;43~3;4 +"DATA",811.8,177,100,3833,0) +811.9;+196,;62~0 +"DATA",811.8,177,100,3834,0) +811.9;+196,;63~0 +"DATA",811.8,177,100,3835,0) +811.9;+196,;67~0 +"DATA",811.8,177,100,3836,0) +811.9;+196,;68~0 +"DATA",811.8,177,100,3837,0) +811.9;+196,;72~0 +"DATA",811.8,177,100,3838,0) +811.9;+196,;73~0 +"DATA",811.8,177,100,3839,0) +811.9;+196,;77~0 +"DATA",811.8,177,100,3840,0) +811.9;+196,;78~0 +"DATA",811.8,177,100,3841,0) +811.9;+196,;100~LOCAL +"DATA",811.8,177,100,3842,0) +811.9;+196,;103~L +"DATA",811.8,177,100,3843,0) +811.9001;+197,+196,;.01~07/18/2012@10:34:43 +"DATA",811.8,177,100,3844,0) +811.9001;+197,+196,;2~WP-start~1 +"DATA",811.8,177,100,3845,0) +Exchange Stub +"DATA",811.8,177,100,3846,0) +811.902;+198,+196,;.01~TX.MU STK-5 DENOM INCLU TX +"DATA",811.8,177,100,3847,0) +811.902;+198,+196,;24~0 +"DATA",811.8,177,100,3848,0) +811.902;+198,+196,;25~0 +"DATA",811.8,177,100,3849,0) +811.902;+199,+196,;.01~RT.MU STK-5 DENOM EXCLU TRM +"DATA",811.8,177,100,3850,0) +811.902;+199,+196,;24~0 +"DATA",811.8,177,100,3851,0) +811.902;+199,+196,;25~0 +"DATA",811.8,177,100,3852,0) +811.902;+200,+196,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,3853,0) +811.902;+200,+196,;24~0 +"DATA",811.8,177,100,3854,0) +811.902;+200,+196,;25~0 +"DATA",811.8,177,100,3855,0) +811.902;+201,+196,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,3856,0) +811.902;+201,+196,;24~0 +"DATA",811.8,177,100,3857,0) +811.902;+201,+196,;25~0 +"DATA",811.8,177,100,3858,0) +811.902;+202,+196,;.01~RT.MU STK-5 NUMER INCLU TRM +"DATA",811.8,177,100,3859,0) +811.902;+202,+196,;24~0 +"DATA",811.8,177,100,3860,0) +811.902;+202,+196,;25~0 +"DATA",811.8,177,100,3861,0) +811.90221;+203,+202,+196,;.01~ACTIVE +"DATA",811.8,177,100,3862,0) +811.90221;+204,+202,+196,;.01~DISCONTINUED +"DATA",811.8,177,100,3863,0) +811.90221;+205,+202,+196,;.01~DISCONTINUED (EDIT) +"DATA",811.8,177,100,3864,0) +811.90221;+206,+202,+196,;.01~DISCONTINUED (RENEWAL) +"DATA",811.8,177,100,3865,0) +811.90221;+207,+202,+196,;.01~EXPIRED +"DATA",811.8,177,100,3866,0) +811.90221;+208,+202,+196,;.01~SUSPENDED +"DATA",811.8,177,100,3867,0) +811.925;+209,+196,;.01~1 +"DATA",811.8,177,100,3868,0) +811.925;+209,+196,;3~DIFF_DATE(3,4)<121 +"DATA",811.8,177,100,3869,0) +811.925;+209,+196,;10~FN(1)<121 +"DATA",811.8,177,100,3870,0) +811.925;+209,+196,;41~0 +"DATA",811.8,177,100,3871,0) +811.925;+209,+196,;42~0 +"DATA",811.8,177,100,3872,0) +811.925;+210,+196,;.01~2 +"DATA",811.8,177,100,3873,0) +811.925;+210,+196,;3~DIFF_DATE(3,4)>1 +"DATA",811.8,177,100,3874,0) +811.925;+210,+196,;10~FN(1)>1 +"DATA",811.8,177,100,3875,0) +811.925;+210,+196,;41~0 +"DATA",811.8,177,100,3876,0) +811.925;+210,+196,;42~0 +"DATA",811.8,177,100,3877,0) +811.925;+211,+196,;.01~3 +"DATA",811.8,177,100,3878,0) +811.925;+211,+196,;3~DIFF_DATE(3,5)<2 +"DATA",811.8,177,100,3879,0) +811.925;+211,+196,;10~FN(1)<2 +"DATA",811.8,177,100,3880,0) +811.925;+211,+196,;41~0 +"DATA",811.8,177,100,3881,0) +811.925;+211,+196,;42~0 +"DATA",811.8,177,100,3882,0) +811.9255;+212,+209,+196,;.01~1 +"DATA",811.8,177,100,3883,0) +811.9255;+212,+209,+196,;.02~DIFF_DATE +"DATA",811.8,177,100,3884,0) +811.9255;+213,+210,+196,;.01~1 +"DATA",811.8,177,100,3885,0) +811.9255;+213,+210,+196,;.02~DIFF_DATE +"DATA",811.8,177,100,3886,0) +811.9255;+214,+211,+196,;.01~1 +"DATA",811.8,177,100,3887,0) +811.9255;+214,+211,+196,;.02~DIFF_DATE +"DATA",811.8,177,100,3888,0) +811.9256;+215,+212,+209,+196,;.01~3 +"DATA",811.8,177,100,3889,0) +811.9256;+216,+213,+210,+196,;.01~3 +"DATA",811.8,177,100,3890,0) +811.9256;+217,+214,+211,+196,;.01~3 +"DATA",811.8,177,100,3891,0) +811.9256;+218,+212,+209,+196,;.01~4 +"DATA",811.8,177,100,3892,0) +811.9256;+219,+213,+210,+196,;.01~4 +"DATA",811.8,177,100,3893,0) +811.9256;+220,+214,+211,+196,;.01~5 +"DATA",811.8,177,100,3894,0) +811.97;+221,+196,;.01~99Y +"DATA",811.8,177,100,3895,0) +811.97;+221,+196,;1~18 +"DATA",811.8,177,100,3896,0) +811.97;+221,+196,;2~99 +"DATA",811.8,177,100,3897,0) +811.97;+221,+196,;5~0 +"DATA",811.8,177,100,3898,0) +811.97;+221,+196,;6~0 +"DATA",811.8,177,100,3899,0) +]]> +"DATA",811.8,177,100,3900,0) + +"DATA",811.8,177,100,3901,0) + +"DATA",811.8,177,100,3902,0) + +"DATA",811.8,177,100,3929,0) + +"DATA",811.8,177,100,3930,0) + +"DATA",811.8,177,100,3931,0) + +"DATA",811.8,177,100,3932,0) +REMINDER DEFINITION +"DATA",811.8,177,100,3933,0) +811.9 +"DATA",811.8,177,100,3934,0) +MU STK-4 NUMER CR +"DATA",811.8,177,100,3935,0) +198 +"DATA",811.8,177,100,3936,0) +2503807966 +"DATA",811.8,177,100,3937,0) +NO +"DATA",811.8,177,100,3938,0) + +"DATA",811.8,177,100,3939,0) +2H +"DATA",811.8,177,100,3987,0) +811.902;+207,+198,;24~0 +"DATA",811.8,177,100,3988,0) +811.902;+207,+198,;25~0 +"DATA",811.8,177,100,3989,0) +811.902;+208,+198,;.01~TX.MU STK-4 DENOM INCLU TX +"DATA",811.8,177,100,3990,0) +811.902;+208,+198,;24~0 +"DATA",811.8,177,100,3991,0) +811.902;+208,+198,;25~0 +"DATA",811.8,177,100,3992,0) +811.925;+209,+198,;.01~1 +"DATA",811.8,177,100,3993,0) +811.925;+209,+198,;3~DIFF_DATE(4,3)<121 +"DATA",811.8,177,100,3994,0) +811.925;+209,+198,;10~FN(1)<121 +"DATA",811.8,177,100,3995,0) +811.925;+209,+198,;41~0 +"DATA",811.8,177,100,3996,0) +811.925;+209,+198,;42~0 +"DATA",811.8,177,100,3997,0) +811.9255;+210,+209,+198,;.01~1 +"DATA",811.8,177,100,3998,0) +811.9255;+210,+209,+198,;.02~DIFF_DATE +"DATA",811.8,177,100,3999,0) +811.9256;+211,+210,+209,+198,;.01~4 +"DATA",811.8,177,100,4000,0) +811.9256;+212,+210,+209,+198,;.01~3 +"DATA",811.8,177,100,4001,0) +811.97;+213,+198,;.01~99Y +"DATA",811.8,177,100,4002,0) +811.97;+213,+198,;1~18 +"DATA",811.8,177,100,4003,0) +811.97;+213,+198,;2~99 +"DATA",811.8,177,100,4004,0) +811.97;+213,+198,;5~0 +"DATA",811.8,177,100,4005,0) +811.97;+213,+198,;6~0 +"DATA",811.8,177,100,4006,0) +]]> +"DATA",811.8,177,100,4007,0) + +"DATA",811.8,177,100,4008,0) + +"DATA",811.8,177,100,4009,0) + +"DATA",811.8,177,100,4026,0) + +"DATA",811.8,177,100,4027,0) + +"DATA",811.8,177,100,4028,0) + +"DATA",811.8,177,100,4029,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4030,0) +811.9 +"DATA",811.8,177,100,4031,0) +MU STK-4 DENOM CR +"DATA",811.8,177,100,4032,0) +199 +"DATA",811.8,177,100,4033,0) +3156679946 +"DATA",811.8,177,100,4034,0) +NO +"DATA",811.8,177,100,4035,0) + +"DATA",811.8,177,100,4036,0) +18Y +"DATA",811.8,177,100,4042,0) +EX LOS > 120D +"DATA",811.8,177,100,4043,0) +EX PTS ENROLLED IN CLINICAL TRIALS +"DATA",811.8,177,100,4044,0) +EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION +"DATA",811.8,177,100,4045,0) +EX TIME LAST KNOWN WELL TO ARRIVAL IN EMERGENCY DEPT > 2 H +"DATA",811.8,177,100,4046,0) +EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC +"DATA",811.8,177,100,4047,0) +811.9;+199,;30~(AGE)&(FI(6)&FF(1))&'FI(8)&'FI(2)&'FI(5)&FI(1) +"DATA",811.8,177,100,4048,0) +811.9;+199,;31~(AGE)&(FI(6)&FF(1))&'FI(8)&'FI(2)&'FI(5)&FI(1) +"DATA",811.8,177,100,4049,0) +811.9;+199,;32~7 +"DATA",811.8,177,100,4050,0) +811.9;+199,;33~AGE;6;FF1;8;2;5;1 +"DATA",811.8,177,100,4051,0) +811.9;+199,;36~0 +"DATA",811.8,177,100,4052,0) +811.9;+199,;40~0 +"DATA",811.8,177,100,4053,0) +811.9;+199,;42~3 +"DATA",811.8,177,100,4054,0) +811.9;+199,;43~3;4;7 +"DATA",811.8,177,100,4055,0) +811.9;+199,;62~0 +"DATA",811.8,177,100,4056,0) +811.9;+199,;63~0 +"DATA",811.8,177,100,4057,0) +811.9;+199,;67~0 +"DATA",811.8,177,100,4058,0) +811.9;+199,;68~0 +"DATA",811.8,177,100,4059,0) +811.9;+199,;72~0 +"DATA",811.8,177,100,4060,0) +811.9;+199,;73~0 +"DATA",811.8,177,100,4061,0) +811.9;+199,;77~0 +"DATA",811.8,177,100,4062,0) +811.9;+199,;78~0 +"DATA",811.8,177,100,4063,0) +811.9;+199,;100~LOCAL +"DATA",811.8,177,100,4064,0) +811.9;+199,;103~L +"DATA",811.8,177,100,4065,0) +811.9001;+200,+199,;.01~07/18/2012@10:34:43 +"DATA",811.8,177,100,4066,0) +811.9001;+200,+199,;2~WP-start~1 +"DATA",811.8,177,100,4067,0) +Exchange Stub +"DATA",811.8,177,100,4068,0) +811.902;+201,+199,;.01~RT.MU STK-4 DENOM INC HF<2H +"DATA",811.8,177,100,4069,0) +811.902;+201,+199,;24~0 +"DATA",811.8,177,100,4070,0) +811.902;+201,+199,;25~0 +"DATA",811.8,177,100,4071,0) +811.902;+202,+199,;.01~RT.MU STK-4 DENOM EXCLU TRM +"DATA",811.8,177,100,4072,0) +811.902;+202,+199,;24~0 +"DATA",811.8,177,100,4073,0) +811.902;+202,+199,;25~0 +"DATA",811.8,177,100,4074,0) +811.902;+203,+199,;.01~RT.MU ADMISSION EMERGENCY RT +"DATA",811.8,177,100,4075,0) +811.902;+203,+199,;24~0 +"DATA",811.8,177,100,4076,0) +811.902;+203,+199,;25~0 +"DATA",811.8,177,100,4077,0) +811.902;+204,+199,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,4078,0) +811.902;+204,+199,;24~0 +"DATA",811.8,177,100,4079,0) +811.902;+204,+199,;25~0 +"DATA",811.8,177,100,4080,0) +811.902;+205,+199,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,4081,0) +811.902;+205,+199,;24~0 +"DATA",811.8,177,100,4082,0) +811.902;+205,+199,;25~0 +"DATA",811.8,177,100,4083,0) +811.902;+206,+199,;.01~TX.MU STK-4 DENOM INCLU TX +"DATA",811.8,177,100,4084,0) +811.902;+206,+199,;24~0 +"DATA",811.8,177,100,4085,0) +811.902;+206,+199,;25~0 +"DATA",811.8,177,100,4086,0) +811.902;+207,+199,;.01~RT.MU STK-4 DENOM ARRIVAL HF +"DATA",811.8,177,100,4087,0) +811.902;+207,+199,;24~0 +"DATA",811.8,177,100,4088,0) +811.902;+207,+199,;25~0 +"DATA",811.8,177,100,4089,0) +811.902;+208,+199,;.01~RT.MU STK-4 DENOM EXCLU HF>2H +"DATA",811.8,177,100,4090,0) +811.902;+208,+199,;24~0 +"DATA",811.8,177,100,4091,0) +811.902;+208,+199,;25~0 +"DATA",811.8,177,100,4092,0) +811.925;+209,+199,;.01~1 +"DATA",811.8,177,100,4093,0) +811.925;+209,+199,;3~DIFF_DATE(3,4)<121 +"DATA",811.8,177,100,4094,0) +811.925;+209,+199,;10~FN(1)<121 +"DATA",811.8,177,100,4095,0) +811.925;+209,+199,;41~0 +"DATA",811.8,177,100,4096,0) +811.925;+209,+199,;42~0 +"DATA",811.8,177,100,4097,0) +811.9255;+210,+209,+199,;.01~1 +"DATA",811.8,177,100,4098,0) +811.9255;+210,+209,+199,;.02~DIFF_DATE +"DATA",811.8,177,100,4099,0) +811.9256;+211,+210,+209,+199,;.01~3 +"DATA",811.8,177,100,4100,0) +811.9256;+212,+210,+209,+199,;.01~4 +"DATA",811.8,177,100,4101,0) +811.97;+213,+199,;.01~99Y +"DATA",811.8,177,100,4102,0) +811.97;+213,+199,;1~18 +"DATA",811.8,177,100,4103,0) +811.97;+213,+199,;2~99 +"DATA",811.8,177,100,4104,0) +811.97;+213,+199,;5~0 +"DATA",811.8,177,100,4105,0) +811.97;+213,+199,;6~0 +"DATA",811.8,177,100,4106,0) +]]> +"DATA",811.8,177,100,4107,0) + +"DATA",811.8,177,100,4108,0) + +"DATA",811.8,177,100,4109,0) + +"DATA",811.8,177,100,4125,0) + +"DATA",811.8,177,100,4126,0) + +"DATA",811.8,177,100,4127,0) + +"DATA",811.8,177,100,4128,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4129,0) +811.9 +"DATA",811.8,177,100,4130,0) +MU STK-3 DENOM CR +"DATA",811.8,177,100,4131,0) +201 +"DATA",811.8,177,100,4132,0) +1512051686 +"DATA",811.8,177,100,4133,0) +NO +"DATA",811.8,177,100,4134,0) + +"DATA",811.8,177,100,4135,0) + 18y +"DATA",811.8,177,100,4140,0) +LOS <=120 DAYS +"DATA",811.8,177,100,4141,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,4142,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,4143,0) +EX PT ADMITTED FO RELECTIVE CAROTID INTERENTION +"DATA",811.8,177,100,4144,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,4145,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,4146,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,4147,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,4148,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4149,0) +EX PT WITH A DOCUMENTED REASON FOR NOT PRESCRIBING ANITCIAGULATION THERAPY +"DATA",811.8,177,100,4150,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,4151,0) +PTS WITH DOCUMENTED ATRIAL FIBRILLATION/FLUTTER +"DATA",811.8,177,100,4152,0) +811.9;+201,;30~(AGE)&(FI(1)&FF(1))&'FI(6)&'FI(7)&'FI(10)&'FI(8)&'FI(9)&'FI(11)&'FI(3)&'FI(2)&(FI(12)&FF(1)) +"DATA",811.8,177,100,4153,0) +811.9;+201,;31~(AGE)&(FI(1)&FF(1))&'FI(6)&'FI(7)&'FI(10)&'FI(8)&'FI(9)&'FI(11)&'FI(3)&'FI(2)&(FI(12)&FF(1)) +"DATA",811.8,177,100,4154,0) +811.9;+201,;32~13 +"DATA",811.8,177,100,4155,0) +811.9;+201,;33~AGE;1;FF1;6;7;10;8;9;11;3;2;12;FF1 +"DATA",811.8,177,100,4156,0) +811.9;+201,;36~0 +"DATA",811.8,177,100,4157,0) +811.9;+201,;40~0 +"DATA",811.8,177,100,4158,0) +811.9;+201,;42~2 +"DATA",811.8,177,100,4159,0) +811.9;+201,;43~4;5 +"DATA",811.8,177,100,4160,0) +811.9;+201,;62~0 +"DATA",811.8,177,100,4161,0) +811.9;+201,;63~0 +"DATA",811.8,177,100,4162,0) +811.9;+201,;67~0 +"DATA",811.8,177,100,4163,0) +811.9;+201,;68~0 +"DATA",811.8,177,100,4164,0) +811.9;+201,;71~WP-start~1 +"DATA",811.8,177,100,4165,0) + +"DATA",811.8,177,100,4166,0) +811.9;+201,;72~0 +"DATA",811.8,177,100,4167,0) +811.9;+201,;73~1 +"DATA",811.8,177,100,4168,0) +811.9;+201,;77~0 +"DATA",811.8,177,100,4169,0) +811.9;+201,;78~0 +"DATA",811.8,177,100,4170,0) +811.9;+201,;100~LOCAL +"DATA",811.8,177,100,4171,0) +811.9;+201,;103~L +"DATA",811.8,177,100,4172,0) +811.9001;+202,+201,;.01~07/18/2012@10:34:44 +"DATA",811.8,177,100,4173,0) +811.9001;+202,+201,;2~WP-start~1 +"DATA",811.8,177,100,4174,0) +Exchange Stub +"DATA",811.8,177,100,4175,0) +811.902;+203,+201,;.01~TX.MU STK-3 DENOM INCLU TX +"DATA",811.8,177,100,4176,0) +811.902;+203,+201,;24~0 +"DATA",811.8,177,100,4177,0) +811.902;+203,+201,;25~0 +"DATA",811.8,177,100,4178,0) +811.902;+204,+201,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,4179,0) +811.902;+204,+201,;24~0 +"DATA",811.8,177,100,4180,0) +811.902;+204,+201,;25~0 +"DATA",811.8,177,100,4181,0) +811.902;+205,+201,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4182,0) +811.902;+205,+201,;24~0 +"DATA",811.8,177,100,4183,0) +811.902;+205,+201,;25~0 +"DATA",811.8,177,100,4184,0) +811.902;+206,+201,;.01~TX.MU STK-3 DENOM INCLU AT FIB/FL TX +"DATA",811.8,177,100,4185,0) +811.902;+206,+201,;24~0 +"DATA",811.8,177,100,4186,0) +811.902;+206,+201,;25~0 +"DATA",811.8,177,100,4187,0) +811.902;+207,+201,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,4188,0) +811.902;+207,+201,;24~0 +"DATA",811.8,177,100,4189,0) +811.902;+207,+201,;25~0 +"DATA",811.8,177,100,4190,0) +811.902;+208,+201,;.01~RT.MU STK-3 DENOM EXCLU TRM +"DATA",811.8,177,100,4191,0) +811.902;+208,+201,;24~0 +"DATA",811.8,177,100,4192,0) +811.902;+208,+201,;25~0 +"DATA",811.8,177,100,4193,0) +811.902;+209,+201,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,4194,0) +811.902;+209,+201,;24~0 +"DATA",811.8,177,100,4195,0) +811.902;+209,+201,;25~0 +"DATA",811.8,177,100,4196,0) +811.902;+210,+201,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,4197,0) +811.902;+210,+201,;24~0 +"DATA",811.8,177,100,4198,0) +811.902;+210,+201,;25~0 +"DATA",811.8,177,100,4199,0) +811.902;+211,+201,;.01~RT.MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,177,100,4200,0) +811.902;+211,+201,;24~0 +"DATA",811.8,177,100,4201,0) +811.902;+211,+201,;25~0 +"DATA",811.8,177,100,4202,0) +811.902;+212,+201,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,4203,0) +811.902;+212,+201,;24~0 +"DATA",811.8,177,100,4204,0) +811.902;+212,+201,;25~0 +"DATA",811.8,177,100,4205,0) +811.902;+213,+201,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,4206,0) +811.902;+213,+201,;24~0 +"DATA",811.8,177,100,4207,0) +811.902;+213,+201,;25~0 +"DATA",811.8,177,100,4208,0) +811.902;+214,+201,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,4209,0) +811.902;+214,+201,;24~0 +"DATA",811.8,177,100,4210,0) +811.902;+214,+201,;25~0 +"DATA",811.8,177,100,4211,0) +811.925;+215,+201,;.01~1 +"DATA",811.8,177,100,4212,0) +811.925;+215,+201,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,4213,0) +811.925;+215,+201,;10~FN(1)<121 +"DATA",811.8,177,100,4214,0) +811.925;+215,+201,;41~0 +"DATA",811.8,177,100,4215,0) +811.925;+215,+201,;42~0 +"DATA",811.8,177,100,4216,0) +811.9255;+216,+215,+201,;.01~1 +"DATA",811.8,177,100,4217,0) +811.9255;+216,+215,+201,;.02~DIFF_DATE +"DATA",811.8,177,100,4218,0) +811.9256;+217,+216,+215,+201,;.01~5 +"DATA",811.8,177,100,4219,0) +811.9256;+218,+216,+215,+201,;.01~4 +"DATA",811.8,177,100,4220,0) +811.97;+219,+201,;.01~99Y +"DATA",811.8,177,100,4221,0) +811.97;+219,+201,;1~18 +"DATA",811.8,177,100,4222,0) +811.97;+219,+201,;2~99 +"DATA",811.8,177,100,4223,0) +811.97;+219,+201,;5~0 +"DATA",811.8,177,100,4224,0) +811.97;+219,+201,;6~0 +"DATA",811.8,177,100,4225,0) +]]> +"DATA",811.8,177,100,4226,0) + +"DATA",811.8,177,100,4227,0) + +"DATA",811.8,177,100,4228,0) + +"DATA",811.8,177,100,4248,0) + +"DATA",811.8,177,100,4249,0) + +"DATA",811.8,177,100,4250,0) + +"DATA",811.8,177,100,4251,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4252,0) +811.9 +"DATA",811.8,177,100,4253,0) +MU STK-3 NUMER CR +"DATA",811.8,177,100,4254,0) +200 +"DATA",811.8,177,100,4255,0) +3951192449 +"DATA",811.8,177,100,4256,0) +NO +"DATA",811.8,177,100,4257,0) + +"DATA",811.8,177,100,4258,0) + 18y +"DATA",811.8,177,100,4263,0) +LOS <=120 DAYS +"DATA",811.8,177,100,4264,0) +NO COMFORT MEASURES DOCUMENTD +"DATA",811.8,177,100,4265,0) +PT NOT ON CLNICAL TRIALS +"DATA",811.8,177,100,4266,0) +EX PT ADMITTED FO RELECTIVE CAROTID INTERENTION +"DATA",811.8,177,100,4267,0) +EX PT DISCHARGED TO ANOTHER HOSP +"DATA",811.8,177,100,4268,0) +EX PT WHO LEFT AGAINST MEDICAL ADVICE +"DATA",811.8,177,100,4269,0) +EX PT WHO EXPIRED +"DATA",811.8,177,100,4270,0) +EX PT DISCHAGED TO HOME FO RHOSPICE CARE +"DATA",811.8,177,100,4271,0) +EX PT DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4272,0) +EX PT WITH A DOCUMENTED REASON FOR NOT PRESCRIBING ANITCIAGULATION THERAPY +"DATA",811.8,177,100,4273,0) +Discharges with an ICD-9-CM Principal Diagnosis Code for ischemic stroke +"DATA",811.8,177,100,4274,0) +PTS WITH DOCUMENTED ATRIAL FIBRILLATION/FLUTTER +"DATA",811.8,177,100,4275,0) +811.9;+200,;30~(AGE)&(FI(1)&FF(1))&'FI(8)&'FI(9)&'FI(10)&'FI(11)&'FI(12)&'FI(13)&'FI(3)&'FI(2)&(FI(6)&FF(2))&(FI(7)&FF(1))&(FI(1)&FI(7)) +"DATA",811.8,177,100,4276,0) +811.9;+200,;31~(AGE)&(FI(1)&FF(1))&'FI(8)&'FI(9)&'FI(10)&'FI(11)&'FI(12)&'FI(13)&'FI(3)&'FI(2)&(FI(6)&FF(2))&(FI(7)&FF(1))&(FI(1)&FI(7)) +"DATA",811.8,177,100,4277,0) +811.9;+200,;32~17 +"DATA",811.8,177,100,4278,0) +811.9;+200,;33~AGE;1;FF1;8;9;10;11;12;13;3;2;6;FF2;7;FF1;1;7 +"DATA",811.8,177,100,4279,0) +811.9;+200,;36~0 +"DATA",811.8,177,100,4280,0) +811.9;+200,;40~0 +"DATA",811.8,177,100,4281,0) +811.9;+200,;42~2 +"DATA",811.8,177,100,4282,0) +811.9;+200,;43~4;5 +"DATA",811.8,177,100,4283,0) +811.9;+200,;62~0 +"DATA",811.8,177,100,4284,0) +811.9;+200,;63~0 +"DATA",811.8,177,100,4285,0) +811.9;+200,;67~0 +"DATA",811.8,177,100,4286,0) +811.9;+200,;68~0 +"DATA",811.8,177,100,4287,0) +811.9;+200,;71~WP-start~1 +"DATA",811.8,177,100,4288,0) + +"DATA",811.8,177,100,4289,0) +811.9;+200,;72~0 +"DATA",811.8,177,100,4290,0) +811.9;+200,;73~1 +"DATA",811.8,177,100,4291,0) +811.9;+200,;77~0 +"DATA",811.8,177,100,4292,0) +811.9;+200,;78~0 +"DATA",811.8,177,100,4293,0) +811.9;+200,;100~LOCAL +"DATA",811.8,177,100,4294,0) +811.9;+200,;103~L +"DATA",811.8,177,100,4295,0) +811.9001;+201,+200,;.01~07/18/2012@10:34:44 +"DATA",811.8,177,100,4296,0) +811.9001;+201,+200,;2~WP-start~1 +"DATA",811.8,177,100,4297,0) +Exchange Stub +"DATA",811.8,177,100,4298,0) +811.902;+202,+200,;.01~TX.MU STK-3 DENOM INCLU TX +"DATA",811.8,177,100,4299,0) +811.902;+202,+200,;24~0 +"DATA",811.8,177,100,4300,0) +811.902;+202,+200,;25~0 +"DATA",811.8,177,100,4301,0) +811.902;+203,+200,;.01~RT.MU DISCHARGE TO ANOTHER HOSP +"DATA",811.8,177,100,4302,0) +811.902;+203,+200,;24~0 +"DATA",811.8,177,100,4303,0) +811.902;+203,+200,;25~0 +"DATA",811.8,177,100,4304,0) +811.902;+204,+200,;.01~RT.MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,177,100,4305,0) +811.902;+204,+200,;24~0 +"DATA",811.8,177,100,4306,0) +811.902;+204,+200,;25~0 +"DATA",811.8,177,100,4307,0) +811.902;+205,+200,;.01~RT.MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,177,100,4308,0) +811.902;+205,+200,;24~0 +"DATA",811.8,177,100,4309,0) +811.902;+205,+200,;25~0 +"DATA",811.8,177,100,4310,0) +811.902;+206,+200,;.01~RT.MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,177,100,4311,0) +811.902;+206,+200,;24~0 +"DATA",811.8,177,100,4312,0) +811.902;+206,+200,;25~0 +"DATA",811.8,177,100,4313,0) +811.902;+207,+200,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,177,100,4314,0) +811.902;+207,+200,;24~0 +"DATA",811.8,177,100,4315,0) +811.902;+207,+200,;25~0 +"DATA",811.8,177,100,4316,0) +811.902;+208,+200,;.01~RT.MU STK-3 DENOM EXCLU TRM +"DATA",811.8,177,100,4317,0) +811.902;+208,+200,;24~0 +"DATA",811.8,177,100,4318,0) +811.902;+208,+200,;25~0 +"DATA",811.8,177,100,4319,0) +811.902;+209,+200,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,177,100,4320,0) +811.902;+209,+200,;24~0 +"DATA",811.8,177,100,4321,0) +811.902;+209,+200,;25~0 +"DATA",811.8,177,100,4322,0) +811.902;+210,+200,;.01~CF.VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,177,100,4323,0) +811.902;+210,+200,;24~0 +"DATA",811.8,177,100,4324,0) +811.902;+210,+200,;25~0 +"DATA",811.8,177,100,4325,0) +811.902;+211,+200,;.01~RT.MU STK-3 NUMER INCLU TRM +"DATA",811.8,177,100,4326,0) +811.902;+211,+200,;24~0 +"DATA",811.8,177,100,4327,0) +811.902;+211,+200,;25~0 +"DATA",811.8,177,100,4328,0) +811.902;+212,+200,;.01~TX.MU STK-3 DENOM INCLU AT FIB/FL TX +"DATA",811.8,177,100,4329,0) +811.902;+212,+200,;24~0 +"DATA",811.8,177,100,4330,0) +811.902;+212,+200,;25~0 +"DATA",811.8,177,100,4331,0) +811.902;+213,+200,;.01~RT.MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,177,100,4332,0) +811.902;+213,+200,;24~0 +"DATA",811.8,177,100,4333,0) +811.902;+213,+200,;25~0 +"DATA",811.8,177,100,4334,0) +811.902;+214,+200,;.01~RT.MU DISCHARGE DEATH +"DATA",811.8,177,100,4335,0) +811.902;+214,+200,;24~0 +"DATA",811.8,177,100,4336,0) +811.902;+214,+200,;25~0 +"DATA",811.8,177,100,4337,0) +811.925;+215,+200,;.01~1 +"DATA",811.8,177,100,4338,0) +811.925;+215,+200,;3~DIFF_DATE(5,4)<121 +"DATA",811.8,177,100,4339,0) +811.925;+215,+200,;10~FN(1)<121 +"DATA",811.8,177,100,4340,0) +811.925;+215,+200,;41~0 +"DATA",811.8,177,100,4341,0) +811.925;+215,+200,;42~0 +"DATA",811.8,177,100,4342,0) +811.925;+216,+200,;.01~2 +"DATA",811.8,177,100,4343,0) +811.925;+216,+200,;3~DIFF_DATE(6,5)=0 +"DATA",811.8,177,100,4344,0) +811.925;+216,+200,;10~FN(1)=0 +"DATA",811.8,177,100,4345,0) +811.925;+216,+200,;41~0 +"DATA",811.8,177,100,4346,0) +811.925;+216,+200,;42~0 +"DATA",811.8,177,100,4347,0) +811.9255;+217,+215,+200,;.01~1 +"DATA",811.8,177,100,4348,0) +811.9255;+217,+215,+200,;.02~DIFF_DATE +"DATA",811.8,177,100,4349,0) +811.9255;+218,+216,+200,;.01~1 +"DATA",811.8,177,100,4350,0) +811.9255;+218,+216,+200,;.02~DIFF_DATE +"DATA",811.8,177,100,4351,0) +811.9256;+219,+217,+215,+200,;.01~5 +"DATA",811.8,177,100,4352,0) +811.9256;+220,+218,+216,+200,;.01~6 +"DATA",811.8,177,100,4353,0) +811.9256;+221,+217,+215,+200,;.01~4 +"DATA",811.8,177,100,4354,0) +811.9256;+222,+218,+216,+200,;.01~5 +"DATA",811.8,177,100,4355,0) +811.97;+223,+200,;.01~99Y +"DATA",811.8,177,100,4356,0) +811.97;+223,+200,;1~18 +"DATA",811.8,177,100,4357,0) +811.97;+223,+200,;2~99 +"DATA",811.8,177,100,4358,0) +811.97;+223,+200,;5~0 +"DATA",811.8,177,100,4359,0) +811.97;+223,+200,;6~0 +"DATA",811.8,177,100,4360,0) +]]> +"DATA",811.8,177,100,4361,0) + +"DATA",811.8,177,100,4362,0) + +"DATA",811.8,177,100,4363,0) + +"DATA",811.8,177,100,4388,0) + +"DATA",811.8,177,100,4389,0) + +"DATA",811.8,177,100,4390,0) + +"DATA",811.8,177,100,4391,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4392,0) +811.9 +"DATA",811.8,177,100,4393,0) +MU STK-2 DENOM CR +"DATA",811.8,177,100,4394,0) +203 +"DATA",811.8,177,100,4395,0) +28017522 +"DATA",811.8,177,100,4396,0) +NO +"DATA",811.8,177,100,4397,0) + +"DATA",811.8,177,100,4398,0) + 18 Years of age +"DATA",811.8,177,100,4404,0) +LOS +"DATA",811.8,177,100,4477,0) + +"DATA",811.8,177,100,4478,0) + +"DATA",811.8,177,100,4479,0) + +"DATA",811.8,177,100,4498,0) + +"DATA",811.8,177,100,4499,0) + +"DATA",811.8,177,100,4500,0) + +"DATA",811.8,177,100,4501,0) +REMINDER DEFINITION +"DATA",811.8,177,100,4502,0) +811.9 +"DATA",811.8,177,100,4503,0) +MU STK-2 NUMER CR +"DATA",811.8,177,100,4504,0) +202 +"DATA",811.8,177,100,4505,0) +3007164804 +"DATA",811.8,177,100,4506,0) +NO +"DATA",811.8,177,100,4507,0) + +"DATA",811.8,177,100,4508,0) + +"DATA",811.8,177,100,4594,0) + +"DATA",811.8,177,100,4595,0) + +"DATA",811.8,177,100,4596,0) + +"DATA",811.8,177,100,4620,0) + +"DATA",811.8,177,100,4621,0) + +"DATA",811.8,177,100,4622,0) + +"DATA",811.8,177,100,4623,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4624,0) +810.4 +"DATA",811.8,177,100,4625,0) +MU STK-10 DENOM RR +"DATA",811.8,177,100,4626,0) +104 +"DATA",811.8,177,100,4627,0) +3794494103 +"DATA",811.8,177,100,4628,0) +NO +"DATA",811.8,177,100,4629,0) + +"DATA",811.8,177,100,4630,0) + +"DATA",811.8,177,100,4639,0) + +"DATA",811.8,177,100,4640,0) + +"DATA",811.8,177,100,4641,0) + +"DATA",811.8,177,100,4644,0) + +"DATA",811.8,177,100,4645,0) + +"DATA",811.8,177,100,4646,0) + +"DATA",811.8,177,100,4647,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4648,0) +810.4 +"DATA",811.8,177,100,4649,0) +MU STK-10 DENOM RS +"DATA",811.8,177,100,4650,0) +127 +"DATA",811.8,177,100,4651,0) +3393720656 +"DATA",811.8,177,100,4652,0) +YES +"DATA",811.8,177,100,4653,0) + +"DATA",811.8,177,100,4654,0) + +"DATA",811.8,177,100,4665,0) + +"DATA",811.8,177,100,4666,0) + +"DATA",811.8,177,100,4667,0) + +"DATA",811.8,177,100,4671,0) + +"DATA",811.8,177,100,4672,0) + +"DATA",811.8,177,100,4673,0) + +"DATA",811.8,177,100,4674,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4675,0) +810.4 +"DATA",811.8,177,100,4676,0) +MU STK-10 NUMER RR +"DATA",811.8,177,100,4677,0) +103 +"DATA",811.8,177,100,4678,0) +3356659019 +"DATA",811.8,177,100,4679,0) +NO +"DATA",811.8,177,100,4680,0) + +"DATA",811.8,177,100,4681,0) + +"DATA",811.8,177,100,4690,0) + +"DATA",811.8,177,100,4691,0) + +"DATA",811.8,177,100,4692,0) + +"DATA",811.8,177,100,4695,0) + +"DATA",811.8,177,100,4696,0) + +"DATA",811.8,177,100,4697,0) + +"DATA",811.8,177,100,4698,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4699,0) +810.4 +"DATA",811.8,177,100,4700,0) +MU STK-10 NUMER RS +"DATA",811.8,177,100,4701,0) +126 +"DATA",811.8,177,100,4702,0) +366962990 +"DATA",811.8,177,100,4703,0) +YES +"DATA",811.8,177,100,4704,0) + +"DATA",811.8,177,100,4705,0) + +"DATA",811.8,177,100,4716,0) + +"DATA",811.8,177,100,4717,0) + +"DATA",811.8,177,100,4718,0) + +"DATA",811.8,177,100,4722,0) + +"DATA",811.8,177,100,4723,0) + +"DATA",811.8,177,100,4724,0) + +"DATA",811.8,177,100,4725,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4726,0) +810.4 +"DATA",811.8,177,100,4727,0) +MU STK-8 DENOM RR +"DATA",811.8,177,100,4728,0) +102 +"DATA",811.8,177,100,4729,0) +2074637946 +"DATA",811.8,177,100,4730,0) +NO +"DATA",811.8,177,100,4731,0) + +"DATA",811.8,177,100,4732,0) + +"DATA",811.8,177,100,4741,0) + +"DATA",811.8,177,100,4742,0) + +"DATA",811.8,177,100,4743,0) + +"DATA",811.8,177,100,4746,0) + +"DATA",811.8,177,100,4747,0) + +"DATA",811.8,177,100,4748,0) + +"DATA",811.8,177,100,4749,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4750,0) +810.4 +"DATA",811.8,177,100,4751,0) +MU STK-8 DENOM RS +"DATA",811.8,177,100,4752,0) +125 +"DATA",811.8,177,100,4753,0) +749620612 +"DATA",811.8,177,100,4754,0) +YES +"DATA",811.8,177,100,4755,0) + +"DATA",811.8,177,100,4756,0) + +"DATA",811.8,177,100,4767,0) + +"DATA",811.8,177,100,4768,0) + +"DATA",811.8,177,100,4769,0) + +"DATA",811.8,177,100,4773,0) + +"DATA",811.8,177,100,4774,0) + +"DATA",811.8,177,100,4775,0) + +"DATA",811.8,177,100,4776,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4777,0) +810.4 +"DATA",811.8,177,100,4778,0) +MU STK-8 NUMER RR +"DATA",811.8,177,100,4779,0) +101 +"DATA",811.8,177,100,4780,0) +3121293187 +"DATA",811.8,177,100,4781,0) +NO +"DATA",811.8,177,100,4782,0) + +"DATA",811.8,177,100,4783,0) + +"DATA",811.8,177,100,4792,0) + +"DATA",811.8,177,100,4793,0) + +"DATA",811.8,177,100,4794,0) + +"DATA",811.8,177,100,4797,0) + +"DATA",811.8,177,100,4798,0) + +"DATA",811.8,177,100,4799,0) + +"DATA",811.8,177,100,4800,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4801,0) +810.4 +"DATA",811.8,177,100,4802,0) +MU STK-8 NUMER RS +"DATA",811.8,177,100,4803,0) +124 +"DATA",811.8,177,100,4804,0) +1677377554 +"DATA",811.8,177,100,4805,0) +YES +"DATA",811.8,177,100,4806,0) + +"DATA",811.8,177,100,4807,0) + +"DATA",811.8,177,100,4818,0) + +"DATA",811.8,177,100,4819,0) + +"DATA",811.8,177,100,4820,0) + +"DATA",811.8,177,100,4824,0) + +"DATA",811.8,177,100,4825,0) + +"DATA",811.8,177,100,4826,0) + +"DATA",811.8,177,100,4827,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4828,0) +810.4 +"DATA",811.8,177,100,4829,0) +MU STK-6 DENOM RR +"DATA",811.8,177,100,4830,0) +99 +"DATA",811.8,177,100,4831,0) +3005171252 +"DATA",811.8,177,100,4832,0) +NO +"DATA",811.8,177,100,4833,0) + +"DATA",811.8,177,100,4834,0) + +"DATA",811.8,177,100,4843,0) + +"DATA",811.8,177,100,4844,0) + +"DATA",811.8,177,100,4845,0) + +"DATA",811.8,177,100,4848,0) + +"DATA",811.8,177,100,4849,0) + +"DATA",811.8,177,100,4850,0) + +"DATA",811.8,177,100,4851,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4852,0) +810.4 +"DATA",811.8,177,100,4853,0) +MU STK-6 DENOM RS +"DATA",811.8,177,100,4854,0) +123 +"DATA",811.8,177,100,4855,0) +2179780751 +"DATA",811.8,177,100,4856,0) +YES +"DATA",811.8,177,100,4857,0) + +"DATA",811.8,177,100,4858,0) + +"DATA",811.8,177,100,4869,0) + +"DATA",811.8,177,100,4870,0) + +"DATA",811.8,177,100,4871,0) + +"DATA",811.8,177,100,4875,0) + +"DATA",811.8,177,100,4876,0) + +"DATA",811.8,177,100,4877,0) + +"DATA",811.8,177,100,4878,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4879,0) +810.4 +"DATA",811.8,177,100,4880,0) +MU STK-6 NUMER RR +"DATA",811.8,177,100,4881,0) +100 +"DATA",811.8,177,100,4882,0) +1924929485 +"DATA",811.8,177,100,4883,0) +NO +"DATA",811.8,177,100,4884,0) + +"DATA",811.8,177,100,4885,0) + +"DATA",811.8,177,100,4894,0) + +"DATA",811.8,177,100,4895,0) + +"DATA",811.8,177,100,4896,0) + +"DATA",811.8,177,100,4899,0) + +"DATA",811.8,177,100,4900,0) + +"DATA",811.8,177,100,4901,0) + +"DATA",811.8,177,100,4902,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4903,0) +810.4 +"DATA",811.8,177,100,4904,0) +MU STK-6 NUMER RS +"DATA",811.8,177,100,4905,0) +122 +"DATA",811.8,177,100,4906,0) +3468188953 +"DATA",811.8,177,100,4907,0) +YES +"DATA",811.8,177,100,4908,0) + +"DATA",811.8,177,100,4909,0) + +"DATA",811.8,177,100,4920,0) + +"DATA",811.8,177,100,4921,0) + +"DATA",811.8,177,100,4922,0) + +"DATA",811.8,177,100,4926,0) + +"DATA",811.8,177,100,4927,0) + +"DATA",811.8,177,100,4928,0) + +"DATA",811.8,177,100,4929,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4930,0) +810.4 +"DATA",811.8,177,100,4931,0) +MU STK-5 DENOM RR +"DATA",811.8,177,100,4932,0) +98 +"DATA",811.8,177,100,4933,0) +11249569 +"DATA",811.8,177,100,4934,0) +NO +"DATA",811.8,177,100,4935,0) + +"DATA",811.8,177,100,4936,0) + +"DATA",811.8,177,100,4945,0) + +"DATA",811.8,177,100,4946,0) + +"DATA",811.8,177,100,4947,0) + +"DATA",811.8,177,100,4950,0) + +"DATA",811.8,177,100,4951,0) + +"DATA",811.8,177,100,4952,0) + +"DATA",811.8,177,100,4953,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4954,0) +810.4 +"DATA",811.8,177,100,4955,0) +MU STK-5 DENOM RS +"DATA",811.8,177,100,4956,0) +121 +"DATA",811.8,177,100,4957,0) +207921755 +"DATA",811.8,177,100,4958,0) +YES +"DATA",811.8,177,100,4959,0) + +"DATA",811.8,177,100,4960,0) + +"DATA",811.8,177,100,4971,0) + +"DATA",811.8,177,100,4972,0) + +"DATA",811.8,177,100,4973,0) + +"DATA",811.8,177,100,4977,0) + +"DATA",811.8,177,100,4978,0) + +"DATA",811.8,177,100,4979,0) + +"DATA",811.8,177,100,4980,0) +REMINDER LIST RULE +"DATA",811.8,177,100,4981,0) +810.4 +"DATA",811.8,177,100,4982,0) +MU STK-5 NUMER RR +"DATA",811.8,177,100,4983,0) +97 +"DATA",811.8,177,100,4984,0) +3238590040 +"DATA",811.8,177,100,4985,0) +NO +"DATA",811.8,177,100,4986,0) + +"DATA",811.8,177,100,4987,0) + +"DATA",811.8,177,100,4996,0) + +"DATA",811.8,177,100,4997,0) + +"DATA",811.8,177,100,4998,0) + +"DATA",811.8,177,100,5001,0) + +"DATA",811.8,177,100,5002,0) + +"DATA",811.8,177,100,5003,0) + +"DATA",811.8,177,100,5004,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5005,0) +810.4 +"DATA",811.8,177,100,5006,0) +MU STK-5 NUMER RS +"DATA",811.8,177,100,5007,0) +120 +"DATA",811.8,177,100,5008,0) +1127231437 +"DATA",811.8,177,100,5009,0) +YES +"DATA",811.8,177,100,5010,0) + +"DATA",811.8,177,100,5011,0) + +"DATA",811.8,177,100,5022,0) + +"DATA",811.8,177,100,5023,0) + +"DATA",811.8,177,100,5024,0) + +"DATA",811.8,177,100,5028,0) + +"DATA",811.8,177,100,5029,0) + +"DATA",811.8,177,100,5030,0) + +"DATA",811.8,177,100,5031,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5032,0) +810.4 +"DATA",811.8,177,100,5033,0) +MU STK-4 NUMER RR +"DATA",811.8,177,100,5034,0) +95 +"DATA",811.8,177,100,5035,0) +424389396 +"DATA",811.8,177,100,5036,0) +NO +"DATA",811.8,177,100,5037,0) + +"DATA",811.8,177,100,5038,0) + +"DATA",811.8,177,100,5047,0) + +"DATA",811.8,177,100,5048,0) + +"DATA",811.8,177,100,5049,0) + +"DATA",811.8,177,100,5052,0) + +"DATA",811.8,177,100,5053,0) + +"DATA",811.8,177,100,5054,0) + +"DATA",811.8,177,100,5055,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5056,0) +810.4 +"DATA",811.8,177,100,5057,0) +MU STK-4 NUMER RS +"DATA",811.8,177,100,5058,0) +119 +"DATA",811.8,177,100,5059,0) +944243073 +"DATA",811.8,177,100,5060,0) +YES +"DATA",811.8,177,100,5061,0) + +"DATA",811.8,177,100,5062,0) + +"DATA",811.8,177,100,5073,0) + +"DATA",811.8,177,100,5074,0) + +"DATA",811.8,177,100,5075,0) + +"DATA",811.8,177,100,5079,0) + +"DATA",811.8,177,100,5080,0) + +"DATA",811.8,177,100,5081,0) + +"DATA",811.8,177,100,5082,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5083,0) +810.4 +"DATA",811.8,177,100,5084,0) +MU STK-4 DENOM RR +"DATA",811.8,177,100,5085,0) +96 +"DATA",811.8,177,100,5086,0) +3639147245 +"DATA",811.8,177,100,5087,0) +NO +"DATA",811.8,177,100,5088,0) + +"DATA",811.8,177,100,5089,0) + +"DATA",811.8,177,100,5098,0) + +"DATA",811.8,177,100,5099,0) + +"DATA",811.8,177,100,5100,0) + +"DATA",811.8,177,100,5103,0) + +"DATA",811.8,177,100,5104,0) + +"DATA",811.8,177,100,5105,0) + +"DATA",811.8,177,100,5106,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5107,0) +810.4 +"DATA",811.8,177,100,5108,0) +MU STK-4 DENOM RS +"DATA",811.8,177,100,5109,0) +118 +"DATA",811.8,177,100,5110,0) +1998359575 +"DATA",811.8,177,100,5111,0) +YES +"DATA",811.8,177,100,5112,0) + +"DATA",811.8,177,100,5113,0) + +"DATA",811.8,177,100,5124,0) + +"DATA",811.8,177,100,5125,0) + +"DATA",811.8,177,100,5126,0) + +"DATA",811.8,177,100,5130,0) + +"DATA",811.8,177,100,5131,0) + +"DATA",811.8,177,100,5132,0) + +"DATA",811.8,177,100,5133,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5134,0) +810.4 +"DATA",811.8,177,100,5135,0) +MU STK-3 DENOM RR +"DATA",811.8,177,100,5136,0) +94 +"DATA",811.8,177,100,5137,0) +3165872842 +"DATA",811.8,177,100,5138,0) +NO +"DATA",811.8,177,100,5139,0) + +"DATA",811.8,177,100,5140,0) + +"DATA",811.8,177,100,5149,0) + +"DATA",811.8,177,100,5150,0) + +"DATA",811.8,177,100,5151,0) + +"DATA",811.8,177,100,5154,0) + +"DATA",811.8,177,100,5155,0) + +"DATA",811.8,177,100,5156,0) + +"DATA",811.8,177,100,5157,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5158,0) +810.4 +"DATA",811.8,177,100,5159,0) +MU STK-3 DENOM RS +"DATA",811.8,177,100,5160,0) +117 +"DATA",811.8,177,100,5161,0) +3422896562 +"DATA",811.8,177,100,5162,0) +YES +"DATA",811.8,177,100,5163,0) + +"DATA",811.8,177,100,5164,0) + +"DATA",811.8,177,100,5175,0) + +"DATA",811.8,177,100,5176,0) + +"DATA",811.8,177,100,5177,0) + +"DATA",811.8,177,100,5181,0) + +"DATA",811.8,177,100,5182,0) + +"DATA",811.8,177,100,5183,0) + +"DATA",811.8,177,100,5184,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5185,0) +810.4 +"DATA",811.8,177,100,5186,0) +MU STK-3 NUMER RR +"DATA",811.8,177,100,5187,0) +93 +"DATA",811.8,177,100,5188,0) +2098213683 +"DATA",811.8,177,100,5189,0) +NO +"DATA",811.8,177,100,5190,0) + +"DATA",811.8,177,100,5191,0) + +"DATA",811.8,177,100,5200,0) + +"DATA",811.8,177,100,5201,0) + +"DATA",811.8,177,100,5202,0) + +"DATA",811.8,177,100,5205,0) + +"DATA",811.8,177,100,5206,0) + +"DATA",811.8,177,100,5207,0) + +"DATA",811.8,177,100,5208,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5209,0) +810.4 +"DATA",811.8,177,100,5210,0) +MU STK-3 NUMER RS +"DATA",811.8,177,100,5211,0) +116 +"DATA",811.8,177,100,5212,0) +2203175972 +"DATA",811.8,177,100,5213,0) +YES +"DATA",811.8,177,100,5214,0) + +"DATA",811.8,177,100,5215,0) + +"DATA",811.8,177,100,5226,0) + +"DATA",811.8,177,100,5227,0) + +"DATA",811.8,177,100,5228,0) + +"DATA",811.8,177,100,5232,0) + +"DATA",811.8,177,100,5233,0) + +"DATA",811.8,177,100,5234,0) + +"DATA",811.8,177,100,5235,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5236,0) +810.4 +"DATA",811.8,177,100,5237,0) +MU STK-2 DENOM RR +"DATA",811.8,177,100,5238,0) +92 +"DATA",811.8,177,100,5239,0) +1693466502 +"DATA",811.8,177,100,5240,0) +NO +"DATA",811.8,177,100,5241,0) + +"DATA",811.8,177,100,5242,0) + +"DATA",811.8,177,100,5251,0) + +"DATA",811.8,177,100,5252,0) + +"DATA",811.8,177,100,5253,0) + +"DATA",811.8,177,100,5256,0) + +"DATA",811.8,177,100,5257,0) + +"DATA",811.8,177,100,5258,0) + +"DATA",811.8,177,100,5259,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5260,0) +810.4 +"DATA",811.8,177,100,5261,0) +MU STK-2 DENOM RS +"DATA",811.8,177,100,5262,0) +115 +"DATA",811.8,177,100,5263,0) +3078451198 +"DATA",811.8,177,100,5264,0) +YES +"DATA",811.8,177,100,5265,0) + +"DATA",811.8,177,100,5266,0) + +"DATA",811.8,177,100,5277,0) + +"DATA",811.8,177,100,5278,0) + +"DATA",811.8,177,100,5279,0) + +"DATA",811.8,177,100,5283,0) + +"DATA",811.8,177,100,5284,0) + +"DATA",811.8,177,100,5285,0) + +"DATA",811.8,177,100,5286,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5287,0) +810.4 +"DATA",811.8,177,100,5288,0) +MU STK-2 NUMER RR +"DATA",811.8,177,100,5289,0) +91 +"DATA",811.8,177,100,5290,0) +2773708415 +"DATA",811.8,177,100,5291,0) +NO +"DATA",811.8,177,100,5292,0) + +"DATA",811.8,177,100,5293,0) + +"DATA",811.8,177,100,5302,0) + +"DATA",811.8,177,100,5303,0) + +"DATA",811.8,177,100,5304,0) + +"DATA",811.8,177,100,5307,0) + +"DATA",811.8,177,100,5308,0) + +"DATA",811.8,177,100,5309,0) + +"DATA",811.8,177,100,5310,0) +REMINDER LIST RULE +"DATA",811.8,177,100,5311,0) +810.4 +"DATA",811.8,177,100,5312,0) +MU STK-2 NUMER RS +"DATA",811.8,177,100,5313,0) +114 +"DATA",811.8,177,100,5314,0) +4163494504 +"DATA",811.8,177,100,5315,0) +YES +"DATA",811.8,177,100,5316,0) + +"DATA",811.8,177,100,5317,0) + +"DATA",811.8,177,100,5328,0) + +"DATA",811.8,177,100,5329,0) + +"DATA",811.8,177,100,5330,0) + +"DATA",811.8,177,100,5334,0) + +"DATA",811.8,177,100,5335,0) + +"DATA",811.8,177,100,5336,0) + +"DATA",811.8,177,100,5337,0) +125 +"DATA",811.8,177,100,5338,0) + +"DATA",811.8,177,100,5339,0) +49 +"DATA",811.8,177,100,5340,0) +135 +"DATA",811.8,177,100,5341,0) +54 +"DATA",811.8,177,100,5342,0) + +"DATA",811.8,177,100,5343,0) + +"DATA",811.8,177,100,5344,0) +148 +"DATA",811.8,177,100,5345,0) +148 +"DATA",811.8,177,100,5346,0) +139 +"DATA",811.8,177,100,5347,0) + +"DATA",811.8,177,100,5348,0) + +"DATA",811.8,177,100,5349,0) +161 +"DATA",811.8,177,100,5350,0) +161 +"DATA",811.8,177,100,5351,0) +152 +"DATA",811.8,177,100,5352,0) + +"DATA",811.8,177,100,5353,0) + +"DATA",811.8,177,100,5354,0) +174 +"DATA",811.8,177,100,5355,0) +174 +"DATA",811.8,177,100,5356,0) +165 +"DATA",811.8,177,100,5357,0) + +"DATA",811.8,177,100,5358,0) + +"DATA",811.8,177,100,5359,0) +187 +"DATA",811.8,177,100,5360,0) +187 +"DATA",811.8,177,100,5361,0) +178 +"DATA",811.8,177,100,5362,0) + +"DATA",811.8,177,100,5363,0) + +"DATA",811.8,177,100,5364,0) +200 +"DATA",811.8,177,100,5365,0) +200 +"DATA",811.8,177,100,5366,0) +191 +"DATA",811.8,177,100,5367,0) + +"DATA",811.8,177,100,5368,0) + +"DATA",811.8,177,100,5369,0) +213 +"DATA",811.8,177,100,5370,0) +213 +"DATA",811.8,177,100,5371,0) +204 +"DATA",811.8,177,100,5372,0) + +"DATA",811.8,177,100,5373,0) + +"DATA",811.8,177,100,5374,0) +227 +"DATA",811.8,177,100,5375,0) +226 +"DATA",811.8,177,100,5376,0) +217 +"DATA",811.8,177,100,5377,0) + +"DATA",811.8,177,100,5378,0) + +"DATA",811.8,177,100,5379,0) +244 +"DATA",811.8,177,100,5380,0) +240 +"DATA",811.8,177,100,5381,0) +231 +"DATA",811.8,177,100,5382,0) + +"DATA",811.8,177,100,5383,0) + +"DATA",811.8,177,100,5384,0) +261 +"DATA",811.8,177,100,5385,0) +257 +"DATA",811.8,177,100,5386,0) +248 +"DATA",811.8,177,100,5387,0) + +"DATA",811.8,177,100,5388,0) + +"DATA",811.8,177,100,5389,0) +278 +"DATA",811.8,177,100,5390,0) +274 +"DATA",811.8,177,100,5391,0) +265 +"DATA",811.8,177,100,5392,0) + +"DATA",811.8,177,100,5393,0) + +"DATA",811.8,177,100,5394,0) +295 +"DATA",811.8,177,100,5395,0) +291 +"DATA",811.8,177,100,5396,0) +282 +"DATA",811.8,177,100,5397,0) + +"DATA",811.8,177,100,5398,0) + +"DATA",811.8,177,100,5399,0) +312 +"DATA",811.8,177,100,5400,0) +308 +"DATA",811.8,177,100,5401,0) +299 +"DATA",811.8,177,100,5402,0) + +"DATA",811.8,177,100,5403,0) + +"DATA",811.8,177,100,5404,0) +329 +"DATA",811.8,177,100,5405,0) +325 +"DATA",811.8,177,100,5406,0) +316 +"DATA",811.8,177,100,5407,0) + +"DATA",811.8,177,100,5408,0) + +"DATA",811.8,177,100,5409,0) +346 +"DATA",811.8,177,100,5410,0) +342 +"DATA",811.8,177,100,5411,0) +333 +"DATA",811.8,177,100,5412,0) + +"DATA",811.8,177,100,5413,0) + +"DATA",811.8,177,100,5414,0) +363 +"DATA",811.8,177,100,5415,0) +359 +"DATA",811.8,177,100,5416,0) +350 +"DATA",811.8,177,100,5417,0) + +"DATA",811.8,177,100,5418,0) + +"DATA",811.8,177,100,5419,0) +380 +"DATA",811.8,177,100,5420,0) +376 +"DATA",811.8,177,100,5421,0) +367 +"DATA",811.8,177,100,5422,0) + +"DATA",811.8,177,100,5423,0) + +"DATA",811.8,177,100,5424,0) +397 +"DATA",811.8,177,100,5425,0) +393 +"DATA",811.8,177,100,5426,0) +384 +"DATA",811.8,177,100,5427,0) + +"DATA",811.8,177,100,5428,0) + +"DATA",811.8,177,100,5429,0) +411 +"DATA",811.8,177,100,5430,0) +410 +"DATA",811.8,177,100,5431,0) +401 +"DATA",811.8,177,100,5432,0) + +"DATA",811.8,177,100,5433,0) + +"DATA",811.8,177,100,5434,0) +428 +"DATA",811.8,177,100,5435,0) +424 +"DATA",811.8,177,100,5436,0) +415 +"DATA",811.8,177,100,5437,0) + +"DATA",811.8,177,100,5438,0) + +"DATA",811.8,177,100,5439,0) +445 +"DATA",811.8,177,100,5440,0) +441 +"DATA",811.8,177,100,5441,0) +432 +"DATA",811.8,177,100,5442,0) + +"DATA",811.8,177,100,5443,0) + +"DATA",811.8,177,100,5444,0) +460 +"DATA",811.8,177,100,5445,0) +458 +"DATA",811.8,177,100,5446,0) +449 +"DATA",811.8,177,100,5447,0) + +"DATA",811.8,177,100,5448,0) + +"DATA",811.8,177,100,5449,0) +477 +"DATA",811.8,177,100,5450,0) +473 +"DATA",811.8,177,100,5451,0) +464 +"DATA",811.8,177,100,5452,0) + +"DATA",811.8,177,100,5453,0) + +"DATA",811.8,177,100,5454,0) +494 +"DATA",811.8,177,100,5455,0) +490 +"DATA",811.8,177,100,5456,0) +481 +"DATA",811.8,177,100,5457,0) + +"DATA",811.8,177,100,5458,0) + +"DATA",811.8,177,100,5459,0) +511 +"DATA",811.8,177,100,5460,0) +507 +"DATA",811.8,177,100,5461,0) +498 +"DATA",811.8,177,100,5462,0) + +"DATA",811.8,177,100,5463,0) + +"DATA",811.8,177,100,5464,0) +528 +"DATA",811.8,177,100,5465,0) +524 +"DATA",811.8,177,100,5466,0) +515 +"DATA",811.8,177,100,5467,0) + +"DATA",811.8,177,100,5468,0) + +"DATA",811.8,177,100,5469,0) +545 +"DATA",811.8,177,100,5470,0) +541 +"DATA",811.8,177,100,5471,0) +532 +"DATA",811.8,177,100,5472,0) + +"DATA",811.8,177,100,5473,0) + +"DATA",811.8,177,100,5474,0) +562 +"DATA",811.8,177,100,5475,0) +558 +"DATA",811.8,177,100,5476,0) +549 +"DATA",811.8,177,100,5477,0) + +"DATA",811.8,177,100,5478,0) + +"DATA",811.8,177,100,5479,0) +579 +"DATA",811.8,177,100,5480,0) +575 +"DATA",811.8,177,100,5481,0) +566 +"DATA",811.8,177,100,5482,0) + +"DATA",811.8,177,100,5483,0) + +"DATA",811.8,177,100,5484,0) +596 +"DATA",811.8,177,100,5485,0) +592 +"DATA",811.8,177,100,5486,0) +583 +"DATA",811.8,177,100,5487,0) + +"DATA",811.8,177,100,5488,0) + +"DATA",811.8,177,100,5489,0) +613 +"DATA",811.8,177,100,5490,0) +609 +"DATA",811.8,177,100,5491,0) +600 +"DATA",811.8,177,100,5492,0) + +"DATA",811.8,177,100,5493,0) + +"DATA",811.8,177,100,5494,0) +630 +"DATA",811.8,177,100,5495,0) +626 +"DATA",811.8,177,100,5496,0) +617 +"DATA",811.8,177,100,5497,0) + +"DATA",811.8,177,100,5498,0) + +"DATA",811.8,177,100,5499,0) +647 +"DATA",811.8,177,100,5500,0) +643 +"DATA",811.8,177,100,5501,0) +634 +"DATA",811.8,177,100,5502,0) + +"DATA",811.8,177,100,5503,0) + +"DATA",811.8,177,100,5504,0) +664 +"DATA",811.8,177,100,5505,0) +660 +"DATA",811.8,177,100,5506,0) +651 +"DATA",811.8,177,100,5507,0) + +"DATA",811.8,177,100,5508,0) + +"DATA",811.8,177,100,5509,0) +681 +"DATA",811.8,177,100,5510,0) +677 +"DATA",811.8,177,100,5511,0) +668 +"DATA",811.8,177,100,5512,0) + +"DATA",811.8,177,100,5513,0) + +"DATA",811.8,177,100,5514,0) +698 +"DATA",811.8,177,100,5515,0) +694 +"DATA",811.8,177,100,5516,0) +685 +"DATA",811.8,177,100,5517,0) + +"DATA",811.8,177,100,5518,0) + +"DATA",811.8,177,100,5519,0) +715 +"DATA",811.8,177,100,5520,0) +711 +"DATA",811.8,177,100,5521,0) +702 +"DATA",811.8,177,100,5522,0) + +"DATA",811.8,177,100,5523,0) + +"DATA",811.8,177,100,5524,0) +732 +"DATA",811.8,177,100,5525,0) +728 +"DATA",811.8,177,100,5526,0) +719 +"DATA",811.8,177,100,5527,0) + +"DATA",811.8,177,100,5528,0) + +"DATA",811.8,177,100,5529,0) +749 +"DATA",811.8,177,100,5530,0) +745 +"DATA",811.8,177,100,5531,0) +736 +"DATA",811.8,177,100,5532,0) + +"DATA",811.8,177,100,5533,0) + +"DATA",811.8,177,100,5534,0) +797 +"DATA",811.8,177,100,5535,0) +762 +"DATA",811.8,177,100,5536,0) +753 +"DATA",811.8,177,100,5537,0) +802 +"DATA",811.8,177,100,5538,0) +802 +"DATA",811.8,177,100,5539,0) + +"DATA",811.8,177,100,5540,0) + +"DATA",811.8,177,100,5541,0) +853 +"DATA",811.8,177,100,5542,0) +815 +"DATA",811.8,177,100,5543,0) +806 +"DATA",811.8,177,100,5544,0) +858 +"DATA",811.8,177,100,5545,0) +858 +"DATA",811.8,177,100,5546,0) + +"DATA",811.8,177,100,5547,0) + +"DATA",811.8,177,100,5548,0) +888 +"DATA",811.8,177,100,5549,0) +871 +"DATA",811.8,177,100,5550,0) +862 +"DATA",811.8,177,100,5551,0) +896 +"DATA",811.8,177,100,5552,0) +893 +"DATA",811.8,177,100,5553,0) + +"DATA",811.8,177,100,5554,0) + +"DATA",811.8,177,100,5555,0) +967 +"DATA",811.8,177,100,5556,0) +909 +"DATA",811.8,177,100,5557,0) +900 +"DATA",811.8,177,100,5558,0) +985 +"DATA",811.8,177,100,5559,0) +972 +"DATA",811.8,177,100,5560,0) + +"DATA",811.8,177,100,5561,0) + +"DATA",811.8,177,100,5562,0) +1052 +"DATA",811.8,177,100,5563,0) +998 +"DATA",811.8,177,100,5564,0) +989 +"DATA",811.8,177,100,5565,0) +1069 +"DATA",811.8,177,100,5566,0) +1057 +"DATA",811.8,177,100,5567,0) + +"DATA",811.8,177,100,5568,0) + +"DATA",811.8,177,100,5569,0) +1135 +"DATA",811.8,177,100,5570,0) +1082 +"DATA",811.8,177,100,5571,0) +1073 +"DATA",811.8,177,100,5572,0) +1152 +"DATA",811.8,177,100,5573,0) +1140 +"DATA",811.8,177,100,5574,0) + +"DATA",811.8,177,100,5575,0) + +"DATA",811.8,177,100,5576,0) +1219 +"DATA",811.8,177,100,5577,0) +1165 +"DATA",811.8,177,100,5578,0) +1156 +"DATA",811.8,177,100,5579,0) +1236 +"DATA",811.8,177,100,5580,0) +1224 +"DATA",811.8,177,100,5581,0) + +"DATA",811.8,177,100,5582,0) + +"DATA",811.8,177,100,5583,0) +1258 +"DATA",811.8,177,100,5584,0) +1249 +"DATA",811.8,177,100,5585,0) +1240 +"DATA",811.8,177,100,5586,0) +1264 +"DATA",811.8,177,100,5587,0) +1263 +"DATA",811.8,177,100,5588,0) + +"DATA",811.8,177,100,5589,0) + +"DATA",811.8,177,100,5590,0) +1351 +"DATA",811.8,177,100,5591,0) +1277 +"DATA",811.8,177,100,5592,0) +1268 +"DATA",811.8,177,100,5593,0) +1382 +"DATA",811.8,177,100,5594,0) +1356 +"DATA",811.8,177,100,5595,0) + +"DATA",811.8,177,100,5596,0) + +"DATA",811.8,177,100,5597,0) +1449 +"DATA",811.8,177,100,5598,0) +1395 +"DATA",811.8,177,100,5599,0) +1386 +"DATA",811.8,177,100,5600,0) +1466 +"DATA",811.8,177,100,5601,0) +1454 +"DATA",811.8,177,100,5602,0) + +"DATA",811.8,177,100,5603,0) + +"DATA",811.8,177,100,5604,0) +1487 +"DATA",811.8,177,100,5605,0) +1479 +"DATA",811.8,177,100,5606,0) +1470 +"DATA",811.8,177,100,5607,0) +1493 +"DATA",811.8,177,100,5608,0) +1492 +"DATA",811.8,177,100,5609,0) + +"DATA",811.8,177,100,5610,0) + +"DATA",811.8,177,100,5611,0) +1514 +"DATA",811.8,177,100,5612,0) +1506 +"DATA",811.8,177,100,5613,0) +1497 +"DATA",811.8,177,100,5614,0) +1520 +"DATA",811.8,177,100,5615,0) +1519 +"DATA",811.8,177,100,5616,0) + +"DATA",811.8,177,100,5617,0) + +"DATA",811.8,177,100,5618,0) +1541 +"DATA",811.8,177,100,5619,0) +1533 +"DATA",811.8,177,100,5620,0) +1524 +"DATA",811.8,177,100,5621,0) +1547 +"DATA",811.8,177,100,5622,0) +1546 +"DATA",811.8,177,100,5623,0) + +"DATA",811.8,177,100,5624,0) + +"DATA",811.8,177,100,5625,0) +1568 +"DATA",811.8,177,100,5626,0) +1560 +"DATA",811.8,177,100,5627,0) +1551 +"DATA",811.8,177,100,5628,0) +1574 +"DATA",811.8,177,100,5629,0) +1573 +"DATA",811.8,177,100,5630,0) + +"DATA",811.8,177,100,5631,0) + +"DATA",811.8,177,100,5632,0) +1595 +"DATA",811.8,177,100,5633,0) +1587 +"DATA",811.8,177,100,5634,0) +1578 +"DATA",811.8,177,100,5635,0) +1601 +"DATA",811.8,177,100,5636,0) +1600 +"DATA",811.8,177,100,5637,0) + +"DATA",811.8,177,100,5638,0) + +"DATA",811.8,177,100,5639,0) +1624 +"DATA",811.8,177,100,5640,0) +1614 +"DATA",811.8,177,100,5641,0) +1605 +"DATA",811.8,177,100,5642,0) +1633 +"DATA",811.8,177,100,5643,0) +1629 +"DATA",811.8,177,100,5644,0) + +"DATA",811.8,177,100,5645,0) + +"DATA",811.8,177,100,5646,0) +1651 +"DATA",811.8,177,100,5647,0) +1646 +"DATA",811.8,177,100,5648,0) +1637 +"DATA",811.8,177,100,5649,0) +1657 +"DATA",811.8,177,100,5650,0) +1656 +"DATA",811.8,177,100,5651,0) + +"DATA",811.8,177,100,5652,0) + +"DATA",811.8,177,100,5653,0) +1678 +"DATA",811.8,177,100,5654,0) +1670 +"DATA",811.8,177,100,5655,0) +1661 +"DATA",811.8,177,100,5656,0) +1684 +"DATA",811.8,177,100,5657,0) +1683 +"DATA",811.8,177,100,5658,0) + +"DATA",811.8,177,100,5659,0) + +"DATA",811.8,177,100,5660,0) +1705 +"DATA",811.8,177,100,5661,0) +1697 +"DATA",811.8,177,100,5662,0) +1688 +"DATA",811.8,177,100,5663,0) +1711 +"DATA",811.8,177,100,5664,0) +1710 +"DATA",811.8,177,100,5665,0) + +"DATA",811.8,177,100,5666,0) + +"DATA",811.8,177,100,5667,0) +1729 +"DATA",811.8,177,100,5668,0) +1724 +"DATA",811.8,177,100,5669,0) +1715 +"DATA",811.8,177,100,5670,0) +1735 +"DATA",811.8,177,100,5671,0) +1734 +"DATA",811.8,177,100,5672,0) + +"DATA",811.8,177,100,5673,0) + +"DATA",811.8,177,100,5674,0) +1753 +"DATA",811.8,177,100,5675,0) +1748 +"DATA",811.8,177,100,5676,0) +1739 +"DATA",811.8,177,100,5677,0) +1759 +"DATA",811.8,177,100,5678,0) +1758 +"DATA",811.8,177,100,5679,0) + +"DATA",811.8,177,100,5680,0) + +"DATA",811.8,177,100,5681,0) +1777 +"DATA",811.8,177,100,5682,0) +1772 +"DATA",811.8,177,100,5683,0) +1763 +"DATA",811.8,177,100,5684,0) +1783 +"DATA",811.8,177,100,5685,0) +1782 +"DATA",811.8,177,100,5686,0) + +"DATA",811.8,177,100,5687,0) + +"DATA",811.8,177,100,5688,0) +1801 +"DATA",811.8,177,100,5689,0) +1796 +"DATA",811.8,177,100,5690,0) +1787 +"DATA",811.8,177,100,5691,0) +1807 +"DATA",811.8,177,100,5692,0) +1806 +"DATA",811.8,177,100,5693,0) + +"DATA",811.8,177,100,5694,0) + +"DATA",811.8,177,100,5695,0) +1825 +"DATA",811.8,177,100,5696,0) +1820 +"DATA",811.8,177,100,5697,0) +1811 +"DATA",811.8,177,100,5698,0) +1831 +"DATA",811.8,177,100,5699,0) +1830 +"DATA",811.8,177,100,5700,0) + +"DATA",811.8,177,100,5701,0) + +"DATA",811.8,177,100,5702,0) +1854 +"DATA",811.8,177,100,5703,0) +1844 +"DATA",811.8,177,100,5704,0) +1835 +"DATA",811.8,177,100,5705,0) +1862 +"DATA",811.8,177,100,5706,0) +1859 +"DATA",811.8,177,100,5707,0) + +"DATA",811.8,177,100,5708,0) + +"DATA",811.8,177,100,5709,0) +1882 +"DATA",811.8,177,100,5710,0) +1875 +"DATA",811.8,177,100,5711,0) +1866 +"DATA",811.8,177,100,5712,0) +1890 +"DATA",811.8,177,100,5713,0) +1887 +"DATA",811.8,177,100,5714,0) + +"DATA",811.8,177,100,5715,0) + +"DATA",811.8,177,100,5716,0) +1908 +"DATA",811.8,177,100,5717,0) +1903 +"DATA",811.8,177,100,5718,0) +1894 +"DATA",811.8,177,100,5719,0) +1914 +"DATA",811.8,177,100,5720,0) +1913 +"DATA",811.8,177,100,5721,0) + +"DATA",811.8,177,100,5722,0) + +"DATA",811.8,177,100,5723,0) +1934 +"DATA",811.8,177,100,5724,0) +1927 +"DATA",811.8,177,100,5725,0) +1918 +"DATA",811.8,177,100,5726,0) +1940 +"DATA",811.8,177,100,5727,0) +1939 +"DATA",811.8,177,100,5728,0) + +"DATA",811.8,177,100,5729,0) + +"DATA",811.8,177,100,5730,0) +1964 +"DATA",811.8,177,100,5731,0) +1953 +"DATA",811.8,177,100,5732,0) +1944 +"DATA",811.8,177,100,5733,0) +1974 +"DATA",811.8,177,100,5734,0) +1969 +"DATA",811.8,177,100,5735,0) + +"DATA",811.8,177,100,5736,0) + +"DATA",811.8,177,100,5737,0) +1992 +"DATA",811.8,177,100,5738,0) +1987 +"DATA",811.8,177,100,5739,0) +1978 +"DATA",811.8,177,100,5740,0) +1998 +"DATA",811.8,177,100,5741,0) +1997 +"DATA",811.8,177,100,5742,0) + +"DATA",811.8,177,100,5743,0) + +"DATA",811.8,177,100,5744,0) +2017 +"DATA",811.8,177,100,5745,0) +2011 +"DATA",811.8,177,100,5746,0) +2002 +"DATA",811.8,177,100,5747,0) +2024 +"DATA",811.8,177,100,5748,0) +2022 +"DATA",811.8,177,100,5749,0) + +"DATA",811.8,177,100,5750,0) + +"DATA",811.8,177,100,5751,0) +2053 +"DATA",811.8,177,100,5752,0) +2037 +"DATA",811.8,177,100,5753,0) +2028 +"DATA",811.8,177,100,5754,0) +2068 +"DATA",811.8,177,100,5755,0) +2058 +"DATA",811.8,177,100,5756,0) + +"DATA",811.8,177,100,5757,0) + +"DATA",811.8,177,100,5758,0) +2087 +"DATA",811.8,177,100,5759,0) +2081 +"DATA",811.8,177,100,5760,0) +2072 +"DATA",811.8,177,100,5761,0) +2094 +"DATA",811.8,177,100,5762,0) +2092 +"DATA",811.8,177,100,5763,0) + +"DATA",811.8,177,100,5764,0) + +"DATA",811.8,177,100,5765,0) +2112 +"DATA",811.8,177,100,5766,0) +2107 +"DATA",811.8,177,100,5767,0) +2098 +"DATA",811.8,177,100,5768,0) +2118 +"DATA",811.8,177,100,5769,0) +2117 +"DATA",811.8,177,100,5770,0) + +"DATA",811.8,177,100,5771,0) + +"DATA",811.8,177,100,5772,0) +2136 +"DATA",811.8,177,100,5773,0) +2131 +"DATA",811.8,177,100,5774,0) +2122 +"DATA",811.8,177,100,5775,0) +2142 +"DATA",811.8,177,100,5776,0) +2141 +"DATA",811.8,177,100,5777,0) + +"DATA",811.8,177,100,5778,0) + +"DATA",811.8,177,100,5779,0) +2162 +"DATA",811.8,177,100,5780,0) +2155 +"DATA",811.8,177,100,5781,0) +2146 +"DATA",811.8,177,100,5782,0) +2168 +"DATA",811.8,177,100,5783,0) +2167 +"DATA",811.8,177,100,5784,0) + +"DATA",811.8,177,100,5785,0) + +"DATA",811.8,177,100,5786,0) +2187 +"DATA",811.8,177,100,5787,0) +2181 +"DATA",811.8,177,100,5788,0) +2172 +"DATA",811.8,177,100,5789,0) +2194 +"DATA",811.8,177,100,5790,0) +2192 +"DATA",811.8,177,100,5791,0) + +"DATA",811.8,177,100,5792,0) + +"DATA",811.8,177,100,5793,0) +2217 +"DATA",811.8,177,100,5794,0) +2207 +"DATA",811.8,177,100,5795,0) +2198 +"DATA",811.8,177,100,5796,0) +2226 +"DATA",811.8,177,100,5797,0) +2222 +"DATA",811.8,177,100,5798,0) + +"DATA",811.8,177,100,5799,0) + +"DATA",811.8,177,100,5800,0) +2246 +"DATA",811.8,177,100,5801,0) +2239 +"DATA",811.8,177,100,5802,0) +2230 +"DATA",811.8,177,100,5803,0) +2252 +"DATA",811.8,177,100,5804,0) +2251 +"DATA",811.8,177,100,5805,0) + +"DATA",811.8,177,100,5806,0) + +"DATA",811.8,177,100,5807,0) +2273 +"DATA",811.8,177,100,5808,0) +2265 +"DATA",811.8,177,100,5809,0) +2256 +"DATA",811.8,177,100,5810,0) +2279 +"DATA",811.8,177,100,5811,0) +2278 +"DATA",811.8,177,100,5812,0) + +"DATA",811.8,177,100,5813,0) + +"DATA",811.8,177,100,5814,0) +2302 +"DATA",811.8,177,100,5815,0) +2292 +"DATA",811.8,177,100,5816,0) +2283 +"DATA",811.8,177,100,5817,0) +2311 +"DATA",811.8,177,100,5818,0) +2307 +"DATA",811.8,177,100,5819,0) + +"DATA",811.8,177,100,5820,0) + +"DATA",811.8,177,100,5821,0) +2332 +"DATA",811.8,177,100,5822,0) +2324 +"DATA",811.8,177,100,5823,0) +2315 +"DATA",811.8,177,100,5824,0) +2341 +"DATA",811.8,177,100,5825,0) +2337 +"DATA",811.8,177,100,5826,0) + +"DATA",811.8,177,100,5827,0) + +"DATA",811.8,177,100,5828,0) +2364 +"DATA",811.8,177,100,5829,0) +2354 +"DATA",811.8,177,100,5830,0) +2345 +"DATA",811.8,177,100,5831,0) +2373 +"DATA",811.8,177,100,5832,0) +2369 +"DATA",811.8,177,100,5833,0) + +"DATA",811.8,177,100,5834,0) + +"DATA",811.8,177,100,5835,0) +2397 +"DATA",811.8,177,100,5836,0) +2386 +"DATA",811.8,177,100,5837,0) +2377 +"DATA",811.8,177,100,5838,0) +2407 +"DATA",811.8,177,100,5839,0) +2402 +"DATA",811.8,177,100,5840,0) + +"DATA",811.8,177,100,5841,0) + +"DATA",811.8,177,100,5842,0) +2555 +"DATA",811.8,177,100,5843,0) +2420 +"DATA",811.8,177,100,5844,0) +2411 +"DATA",811.8,177,100,5845,0) +2602 +"DATA",811.8,177,100,5846,0) +2560 +"DATA",811.8,177,100,5847,0) + +"DATA",811.8,177,100,5848,0) + +"DATA",811.8,177,100,5849,0) +2753 +"DATA",811.8,177,100,5850,0) +2615 +"DATA",811.8,177,100,5851,0) +2606 +"DATA",811.8,177,100,5852,0) +2801 +"DATA",811.8,177,100,5853,0) +2758 +"DATA",811.8,177,100,5854,0) + +"DATA",811.8,177,100,5855,0) + +"DATA",811.8,177,100,5856,0) +2940 +"DATA",811.8,177,100,5857,0) +2814 +"DATA",811.8,177,100,5858,0) +2805 +"DATA",811.8,177,100,5859,0) +2984 +"DATA",811.8,177,100,5860,0) +2945 +"DATA",811.8,177,100,5861,0) + +"DATA",811.8,177,100,5862,0) + +"DATA",811.8,177,100,5863,0) +3138 +"DATA",811.8,177,100,5864,0) +2997 +"DATA",811.8,177,100,5865,0) +2988 +"DATA",811.8,177,100,5866,0) +3187 +"DATA",811.8,177,100,5867,0) +3143 +"DATA",811.8,177,100,5868,0) + +"DATA",811.8,177,100,5869,0) + +"DATA",811.8,177,100,5870,0) +3366 +"DATA",811.8,177,100,5871,0) +3200 +"DATA",811.8,177,100,5872,0) +3191 +"DATA",811.8,177,100,5873,0) +3431 +"DATA",811.8,177,100,5874,0) +3371 +"DATA",811.8,177,100,5875,0) + +"DATA",811.8,177,100,5876,0) + +"DATA",811.8,177,100,5877,0) +3622 +"DATA",811.8,177,100,5878,0) +3444 +"DATA",811.8,177,100,5879,0) +3435 +"DATA",811.8,177,100,5880,0) +3695 +"DATA",811.8,177,100,5881,0) +3627 +"DATA",811.8,177,100,5882,0) + +"DATA",811.8,177,100,5883,0) + +"DATA",811.8,177,100,5884,0) +3779 +"DATA",811.8,177,100,5885,0) +3708 +"DATA",811.8,177,100,5886,0) +3699 +"DATA",811.8,177,100,5887,0) +3798 +"DATA",811.8,177,100,5888,0) +3784 +"DATA",811.8,177,100,5889,0) + +"DATA",811.8,177,100,5890,0) + +"DATA",811.8,177,100,5891,0) +3898 +"DATA",811.8,177,100,5892,0) +3811 +"DATA",811.8,177,100,5893,0) +3802 +"DATA",811.8,177,100,5894,0) +3927 +"DATA",811.8,177,100,5895,0) +3903 +"DATA",811.8,177,100,5896,0) + +"DATA",811.8,177,100,5897,0) + +"DATA",811.8,177,100,5898,0) +4005 +"DATA",811.8,177,100,5899,0) +3940 +"DATA",811.8,177,100,5900,0) +3931 +"DATA",811.8,177,100,5901,0) +4024 +"DATA",811.8,177,100,5902,0) +4010 +"DATA",811.8,177,100,5903,0) + +"DATA",811.8,177,100,5904,0) + +"DATA",811.8,177,100,5905,0) +4105 +"DATA",811.8,177,100,5906,0) +4037 +"DATA",811.8,177,100,5907,0) +4028 +"DATA",811.8,177,100,5908,0) +4123 +"DATA",811.8,177,100,5909,0) +4110 +"DATA",811.8,177,100,5910,0) + +"DATA",811.8,177,100,5911,0) + +"DATA",811.8,177,100,5912,0) +4224 +"DATA",811.8,177,100,5913,0) +4136 +"DATA",811.8,177,100,5914,0) +4127 +"DATA",811.8,177,100,5915,0) +4246 +"DATA",811.8,177,100,5916,0) +4229 +"DATA",811.8,177,100,5917,0) + +"DATA",811.8,177,100,5918,0) + +"DATA",811.8,177,100,5919,0) +4359 +"DATA",811.8,177,100,5920,0) +4259 +"DATA",811.8,177,100,5921,0) +4250 +"DATA",811.8,177,100,5922,0) +4386 +"DATA",811.8,177,100,5923,0) +4364 +"DATA",811.8,177,100,5924,0) + +"DATA",811.8,177,100,5925,0) + +"DATA",811.8,177,100,5926,0) +4475 +"DATA",811.8,177,100,5927,0) +4399 +"DATA",811.8,177,100,5928,0) +4390 +"DATA",811.8,177,100,5929,0) +4496 +"DATA",811.8,177,100,5930,0) +4480 +"DATA",811.8,177,100,5931,0) + +"DATA",811.8,177,100,5932,0) + +"DATA",811.8,177,100,5933,0) +4592 +"DATA",811.8,177,100,5934,0) +4509 +"DATA",811.8,177,100,5935,0) +4500 +"DATA",811.8,177,100,5936,0) +4618 +"DATA",811.8,177,100,5937,0) +4597 +"DATA",811.8,177,100,5938,0) + +"DATA",811.8,177,100,5939,0) + +"DATA",811.8,177,100,5940,0) +4637 +"DATA",811.8,177,100,5941,0) +4631 +"DATA",811.8,177,100,5942,0) +4622 +"DATA",811.8,177,100,5943,0) +4642 +"DATA",811.8,177,100,5944,0) +4642 +"DATA",811.8,177,100,5945,0) + +"DATA",811.8,177,100,5946,0) + +"DATA",811.8,177,100,5947,0) +4663 +"DATA",811.8,177,100,5948,0) +4655 +"DATA",811.8,177,100,5949,0) +4646 +"DATA",811.8,177,100,5950,0) +4669 +"DATA",811.8,177,100,5951,0) +4668 +"DATA",811.8,177,100,5952,0) + +"DATA",811.8,177,100,5953,0) + +"DATA",811.8,177,100,5954,0) +4688 +"DATA",811.8,177,100,5955,0) +4682 +"DATA",811.8,177,100,5956,0) +4673 +"DATA",811.8,177,100,5957,0) +4693 +"DATA",811.8,177,100,5958,0) +4693 +"DATA",811.8,177,100,5959,0) + +"DATA",811.8,177,100,5960,0) + +"DATA",811.8,177,100,5961,0) +4714 +"DATA",811.8,177,100,5962,0) +4706 +"DATA",811.8,177,100,5963,0) +4697 +"DATA",811.8,177,100,5964,0) +4720 +"DATA",811.8,177,100,5965,0) +4719 +"DATA",811.8,177,100,5966,0) + +"DATA",811.8,177,100,5967,0) + +"DATA",811.8,177,100,5968,0) +4739 +"DATA",811.8,177,100,5969,0) +4733 +"DATA",811.8,177,100,5970,0) +4724 +"DATA",811.8,177,100,5971,0) +4744 +"DATA",811.8,177,100,5972,0) +4744 +"DATA",811.8,177,100,5973,0) + +"DATA",811.8,177,100,5974,0) + +"DATA",811.8,177,100,5975,0) +4765 +"DATA",811.8,177,100,5976,0) +4757 +"DATA",811.8,177,100,5977,0) +4748 +"DATA",811.8,177,100,5978,0) +4771 +"DATA",811.8,177,100,5979,0) +4770 +"DATA",811.8,177,100,5980,0) + +"DATA",811.8,177,100,5981,0) + +"DATA",811.8,177,100,5982,0) +4790 +"DATA",811.8,177,100,5983,0) +4784 +"DATA",811.8,177,100,5984,0) +4775 +"DATA",811.8,177,100,5985,0) +4795 +"DATA",811.8,177,100,5986,0) +4795 +"DATA",811.8,177,100,5987,0) + +"DATA",811.8,177,100,5988,0) + +"DATA",811.8,177,100,5989,0) +4816 +"DATA",811.8,177,100,5990,0) +4808 +"DATA",811.8,177,100,5991,0) +4799 +"DATA",811.8,177,100,5992,0) +4822 +"DATA",811.8,177,100,5993,0) +4821 +"DATA",811.8,177,100,5994,0) + +"DATA",811.8,177,100,5995,0) + +"DATA",811.8,177,100,5996,0) +4841 +"DATA",811.8,177,100,5997,0) +4835 +"DATA",811.8,177,100,5998,0) +4826 +"DATA",811.8,177,100,5999,0) +4846 +"DATA",811.8,177,100,6000,0) +4846 +"DATA",811.8,177,100,6001,0) + +"DATA",811.8,177,100,6002,0) + +"DATA",811.8,177,100,6003,0) +4867 +"DATA",811.8,177,100,6004,0) +4859 +"DATA",811.8,177,100,6005,0) +4850 +"DATA",811.8,177,100,6006,0) +4873 +"DATA",811.8,177,100,6007,0) +4872 +"DATA",811.8,177,100,6008,0) + +"DATA",811.8,177,100,6009,0) + +"DATA",811.8,177,100,6010,0) +4892 +"DATA",811.8,177,100,6011,0) +4886 +"DATA",811.8,177,100,6012,0) +4877 +"DATA",811.8,177,100,6013,0) +4897 +"DATA",811.8,177,100,6014,0) +4897 +"DATA",811.8,177,100,6015,0) + +"DATA",811.8,177,100,6016,0) + +"DATA",811.8,177,100,6017,0) +4918 +"DATA",811.8,177,100,6018,0) +4910 +"DATA",811.8,177,100,6019,0) +4901 +"DATA",811.8,177,100,6020,0) +4924 +"DATA",811.8,177,100,6021,0) +4923 +"DATA",811.8,177,100,6022,0) + +"DATA",811.8,177,100,6023,0) + +"DATA",811.8,177,100,6024,0) +4943 +"DATA",811.8,177,100,6025,0) +4937 +"DATA",811.8,177,100,6026,0) +4928 +"DATA",811.8,177,100,6027,0) +4948 +"DATA",811.8,177,100,6028,0) +4948 +"DATA",811.8,177,100,6029,0) + +"DATA",811.8,177,100,6030,0) + +"DATA",811.8,177,100,6031,0) +4969 +"DATA",811.8,177,100,6032,0) +4961 +"DATA",811.8,177,100,6033,0) +4952 +"DATA",811.8,177,100,6034,0) +4975 +"DATA",811.8,177,100,6035,0) +4974 +"DATA",811.8,177,100,6036,0) + +"DATA",811.8,177,100,6037,0) + +"DATA",811.8,177,100,6038,0) +4994 +"DATA",811.8,177,100,6039,0) +4988 +"DATA",811.8,177,100,6040,0) +4979 +"DATA",811.8,177,100,6041,0) +4999 +"DATA",811.8,177,100,6042,0) +4999 +"DATA",811.8,177,100,6043,0) + +"DATA",811.8,177,100,6044,0) + +"DATA",811.8,177,100,6045,0) +5020 +"DATA",811.8,177,100,6046,0) +5012 +"DATA",811.8,177,100,6047,0) +5003 +"DATA",811.8,177,100,6048,0) +5026 +"DATA",811.8,177,100,6049,0) +5025 +"DATA",811.8,177,100,6050,0) + +"DATA",811.8,177,100,6051,0) + +"DATA",811.8,177,100,6052,0) +5045 +"DATA",811.8,177,100,6053,0) +5039 +"DATA",811.8,177,100,6054,0) +5030 +"DATA",811.8,177,100,6055,0) +5050 +"DATA",811.8,177,100,6056,0) +5050 +"DATA",811.8,177,100,6057,0) + +"DATA",811.8,177,100,6058,0) + +"DATA",811.8,177,100,6059,0) +5071 +"DATA",811.8,177,100,6060,0) +5063 +"DATA",811.8,177,100,6061,0) +5054 +"DATA",811.8,177,100,6062,0) +5077 +"DATA",811.8,177,100,6063,0) +5076 +"DATA",811.8,177,100,6064,0) + +"DATA",811.8,177,100,6065,0) + +"DATA",811.8,177,100,6066,0) +5096 +"DATA",811.8,177,100,6067,0) +5090 +"DATA",811.8,177,100,6068,0) +5081 +"DATA",811.8,177,100,6069,0) +5101 +"DATA",811.8,177,100,6070,0) +5101 +"DATA",811.8,177,100,6071,0) + +"DATA",811.8,177,100,6072,0) + +"DATA",811.8,177,100,6073,0) +5122 +"DATA",811.8,177,100,6074,0) +5114 +"DATA",811.8,177,100,6075,0) +5105 +"DATA",811.8,177,100,6076,0) +5128 +"DATA",811.8,177,100,6077,0) +5127 +"DATA",811.8,177,100,6078,0) + +"DATA",811.8,177,100,6079,0) + +"DATA",811.8,177,100,6080,0) +5147 +"DATA",811.8,177,100,6081,0) +5141 +"DATA",811.8,177,100,6082,0) +5132 +"DATA",811.8,177,100,6083,0) +5152 +"DATA",811.8,177,100,6084,0) +5152 +"DATA",811.8,177,100,6085,0) + +"DATA",811.8,177,100,6086,0) + +"DATA",811.8,177,100,6087,0) +5173 +"DATA",811.8,177,100,6088,0) +5165 +"DATA",811.8,177,100,6089,0) +5156 +"DATA",811.8,177,100,6090,0) +5179 +"DATA",811.8,177,100,6091,0) +5178 +"DATA",811.8,177,100,6092,0) + +"DATA",811.8,177,100,6093,0) + +"DATA",811.8,177,100,6094,0) +5198 +"DATA",811.8,177,100,6095,0) +5192 +"DATA",811.8,177,100,6096,0) +5183 +"DATA",811.8,177,100,6097,0) +5203 +"DATA",811.8,177,100,6098,0) +5203 +"DATA",811.8,177,100,6099,0) + +"DATA",811.8,177,100,6100,0) + +"DATA",811.8,177,100,6101,0) +5224 +"DATA",811.8,177,100,6102,0) +5216 +"DATA",811.8,177,100,6103,0) +5207 +"DATA",811.8,177,100,6104,0) +5230 +"DATA",811.8,177,100,6105,0) +5229 +"DATA",811.8,177,100,6106,0) + +"DATA",811.8,177,100,6107,0) + +"DATA",811.8,177,100,6108,0) +5249 +"DATA",811.8,177,100,6109,0) +5243 +"DATA",811.8,177,100,6110,0) +5234 +"DATA",811.8,177,100,6111,0) +5254 +"DATA",811.8,177,100,6112,0) +5254 +"DATA",811.8,177,100,6113,0) + +"DATA",811.8,177,100,6114,0) + +"DATA",811.8,177,100,6115,0) +5275 +"DATA",811.8,177,100,6116,0) +5267 +"DATA",811.8,177,100,6117,0) +5258 +"DATA",811.8,177,100,6118,0) +5281 +"DATA",811.8,177,100,6119,0) +5280 +"DATA",811.8,177,100,6120,0) + +"DATA",811.8,177,100,6121,0) + +"DATA",811.8,177,100,6122,0) +5300 +"DATA",811.8,177,100,6123,0) +5294 +"DATA",811.8,177,100,6124,0) +5285 +"DATA",811.8,177,100,6125,0) +5305 +"DATA",811.8,177,100,6126,0) +5305 +"DATA",811.8,177,100,6127,0) + +"DATA",811.8,177,100,6128,0) + +"DATA",811.8,177,100,6129,0) +5326 +"DATA",811.8,177,100,6130,0) +5318 +"DATA",811.8,177,100,6131,0) +5309 +"DATA",811.8,177,100,6132,0) +5332 +"DATA",811.8,177,100,6133,0) +5331 +"DATA",811.8,177,100,6134,0) + +"DATA",811.8,177,100,6135,0) + +"DATA",811.8,177,100,6136,0) + +"DATA",811.8,177,110,0) +^811.804^43^43 +"DATA",811.8,177,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,177,110,2,0) +Date Packed: 07/18/2012@10:33:53 +"DATA",811.8,177,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,177,110,4,0) + +"DATA",811.8,177,110,5,0) +Description: +"DATA",811.8,177,110,6,0) +Meaningful Use Inpatient Stroke Measures. +"DATA",811.8,177,110,7,0) +NQF 0435 +"DATA",811.8,177,110,8,0) +NQF 0436 +"DATA",811.8,177,110,9,0) +NQF 0437 +"DATA",811.8,177,110,10,0) +NQF 0438 +"DATA",811.8,177,110,11,0) +NQF 0439 +"DATA",811.8,177,110,12,0) +NQF 0440 +"DATA",811.8,177,110,13,0) +NQF 0441 +"DATA",811.8,177,110,14,0) + +"DATA",811.8,177,110,15,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,177,110,16,0) +REMINDER LIST RULE +"DATA",811.8,177,110,17,0) + MU STK-2 NUMER RS +"DATA",811.8,177,110,18,0) + MU STK-2 DENOM RS +"DATA",811.8,177,110,19,0) + MU STK-3 NUMER RS +"DATA",811.8,177,110,20,0) + MU STK-3 DENOM RS +"DATA",811.8,177,110,21,0) + MU STK-4 DENOM RS +"DATA",811.8,177,110,22,0) + MU STK-4 NUMER RS +"DATA",811.8,177,110,23,0) + MU STK-5 NUMER RS +"DATA",811.8,177,110,24,0) + MU STK-5 DENOM RS +"DATA",811.8,177,110,25,0) + MU STK-6 NUMER RS +"DATA",811.8,177,110,26,0) + MU STK-6 DENOM RS +"DATA",811.8,177,110,27,0) + MU STK-8 NUMER RS +"DATA",811.8,177,110,28,0) + MU STK-8 DENOM RS +"DATA",811.8,177,110,29,0) + MU STK-10 NUMER RS +"DATA",811.8,177,110,30,0) + MU STK-10 DENOM RS +"DATA",811.8,177,110,31,0) + +"DATA",811.8,177,110,32,0) +Keywords: +"DATA",811.8,177,110,33,0) +NQF 0435 +"DATA",811.8,177,110,34,0) +NQF 0436 +"DATA",811.8,177,110,35,0) +NQF 0437 +"DATA",811.8,177,110,36,0) +NQF 0438 +"DATA",811.8,177,110,37,0) +NQF 0439 +"DATA",811.8,177,110,38,0) +NQF 0440 +"DATA",811.8,177,110,39,0) +NQF 0441 +"DATA",811.8,177,110,40,0) +MU +"DATA",811.8,177,110,41,0) +STROKE +"DATA",811.8,177,110,42,0) + +"DATA",811.8,177,110,43,0) +Components: +"DATA",811.8,177,119) +9 +"DATA",811.8,177,120,0) +^811.802A^125^125 +"DATA",811.8,177,120,1,0) +ROUTINE^0^1 +"DATA",811.8,177,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,177,120,1,1,1,0) +PXRMINPL^54^135^^^1^0 +"DATA",811.8,177,120,2,0) +VA DRUG CLASS^50.605^5 +"DATA",811.8,177,120,2,1,0) +^811.8021A^5^5 +"DATA",811.8,177,120,2,1,1,0) +VT103^148^148^^^0^0 +"DATA",811.8,177,120,2,1,2,0) +CV350^161^161^^^0^0 +"DATA",811.8,177,120,2,1,3,0) +BL115^174^174^^^0^0 +"DATA",811.8,177,120,2,1,4,0) +BL110^187^187^^^0^0 +"DATA",811.8,177,120,2,1,5,0) +BL117^200^200^^^0^0 +"DATA",811.8,177,120,3,0) +LABORATORY TEST^60^1 +"DATA",811.8,177,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,177,120,3,1,1,0) +LDL CHOLESTEROL^213^213^^^0^0 +"DATA",811.8,177,120,4,0) +HEALTH FACTORS^9999999.64^32 +"DATA",811.8,177,120,4,1,0) +^811.8021A^32^32 +"DATA",811.8,177,120,4,1,1,0) +MU STK^226^227^^^1^0 +"DATA",811.8,177,120,4,1,2,0) +ELECTIVE CAROTID INTERVENTION^240^244^^^1^0 +"DATA",811.8,177,120,4,1,3,0) +COMFORT MEASURES PROTOCOL FOLLOWED^257^261^^^1^0 +"DATA",811.8,177,120,4,1,4,0) +ENROLLED IN CLINICAL TRIALS^274^278^^^1^0 +"DATA",811.8,177,120,4,1,5,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL^291^295^^^1^0 +"DATA",811.8,177,120,4,1,6,0) +REHABILITATION SERVICES RECEIVED^308^312^^^1^0 +"DATA",811.8,177,120,4,1,7,0) +ADDRESSED:ACTIVATION OF EMERG MED SYS^325^329^^^1^0 +"DATA",811.8,177,120,4,1,8,0) +ADDRESSED:FOLLOW-UP^342^346^^^1^0 +"DATA",811.8,177,120,4,1,9,0) +ADDRESSED:MEDICATION AT DISCHARGE^359^363^^^1^0 +"DATA",811.8,177,120,4,1,10,0) +ADDRESSED:STROKE RISK FACTORS^376^380^^^1^0 +"DATA",811.8,177,120,4,1,11,0) +ADDRESSED:STROKE WARNING SIGNS/SYMPTOMS^393^397^^^1^0 +"DATA",811.8,177,120,4,1,12,0) +LABORATORY^410^411^^^1^0 +"DATA",811.8,177,120,4,1,13,0) +LDL 100 OR ABOVE^424^428^^^1^0 +"DATA",811.8,177,120,4,1,14,0) +LDL NOT DONE PRIOR TO HOSP ADMISSION^441^445^^^1^0 +"DATA",811.8,177,120,4,1,15,0) +LIPID MED INTERVENTIONS^458^460^^^1^0 +"DATA",811.8,177,120,4,1,16,0) +LIPID LOWERING MED PRIOR TO HOSP ARRIVAL^473^477^^^1^0 +"DATA",811.8,177,120,4,1,17,0) +STATIN NOT PRESCRIBED AT DISCHARGE^490^494^^^1^0 +"DATA",811.8,177,120,4,1,18,0) +STATIN MEDS GIVEN AT DISCHARGE^507^511^^^1^0 +"DATA",811.8,177,120,4,1,19,0) +t-PA STARTED AT THIS FACILITY^524^528^^^1^0 +"DATA",811.8,177,120,4,1,20,0) +t-PA STARTED 24H BEFORE ARRIVAL^541^545^^^1^0 +"DATA",811.8,177,120,4,1,21,0) +DISCHARGED PRIOR TO END OF HOSP DAY2^558^562^^^1^0 +"DATA",811.8,177,120,4,1,22,0) +ANTITHROMBOTIC NOT GIVEN(HOSP DAY2 END)^575^579^^^1^0 +"DATA",811.8,177,120,4,1,23,0) +ANTITHROMBOTIC GIVEN BY HOSP DAY2 END^592^596^^^1^0 +"DATA",811.8,177,120,4,1,24,0) +ARRIVAL^609^613^^^1^0 +"DATA",811.8,177,120,4,1,25,0) +LAST KNOWN WELL > 2H^626^630^^^1^0 +"DATA",811.8,177,120,4,1,26,0) +THROMBOLYTIC IV THERAPY INITIATED <3H^643^647^^^1^0 +"DATA",811.8,177,120,4,1,27,0) +THROMBOLYTIC IV NOT INITIATED. REASON^660^664^^^1^0 +"DATA",811.8,177,120,4,1,28,0) +LAST KNOWN WELL < 2H^677^681^^^1^0 +"DATA",811.8,177,120,4,1,29,0) +ANTICOAGULATION THERAPY CAN'T BE GIVEN^694^698^^^1^0 +"DATA",811.8,177,120,4,1,30,0) +ANTICOAGULATION THERAPY PRESCRIBED^711^715^^^1^0 +"DATA",811.8,177,120,4,1,31,0) +ANTITHROMBOTIC NOT GIVEN AT DISCHARGE^728^732^^^1^0 +"DATA",811.8,177,120,4,1,32,0) +ANTITHROMBOTIC THERAPY GIVEN AT DISCH^745^749^^^1^0 +"DATA",811.8,177,120,5,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,177,120,5,1,0) +^811.8021A^2^2 +"DATA",811.8,177,120,5,1,1,0) +VA-DISCHARGES FOR A DATE RANGE^762^797^802^802^1^0 +"DATA",811.8,177,120,5,1,2,0) +VA-ADMISSIONS FOR A DATE RANGE^815^853^858^858^1^0 +"DATA",811.8,177,120,6,0) +REMINDER TAXONOMY^811.2^8 +"DATA",811.8,177,120,6,1,0) +^811.8021A^8^8 +"DATA",811.8,177,120,6,1,1,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX^871^888^893^896^1^0 +"DATA",811.8,177,120,6,1,2,0) +MU STK-8 DENOM INCLU TX^909^967^972^985^1^0 +"DATA",811.8,177,120,6,1,3,0) +MU STK-6 DENOM INCLU TX^998^1052^1057^1069^1^0 +"DATA",811.8,177,120,6,1,4,0) +MU STK-5 DENOM INCLU TX^1082^1135^1140^1152^1^0 +"DATA",811.8,177,120,6,1,5,0) +MU STK-4 DENOM INCLU TX^1165^1219^1224^1236^1^0 +"DATA",811.8,177,120,6,1,6,0) +MU STK-3 DENOM INCLU AT FIB/FL TX^1249^1258^1263^1264^1^0 +"DATA",811.8,177,120,6,1,7,0) +MU STK-3 DENOM INCLU TX^1277^1351^1356^1382^1^0 +"DATA",811.8,177,120,6,1,8,0) +MU STK-2 DENOM INCLU TX^1395^1449^1454^1466^1^0 +"DATA",811.8,177,120,7,0) +REMINDER TERM^811.5^34 +"DATA",811.8,177,120,7,1,0) +^811.8021A^34^34 +"DATA",811.8,177,120,7,1,1,0) +MU DISCHARGE TO ANOTHER HOSP^1479^1487^1492^1493^1^0 +"DATA",811.8,177,120,7,1,2,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE^1506^1514^1519^1520^1^0 +"DATA",811.8,177,120,7,1,3,0) +MU DISCHARGE DEATH^1533^1541^1546^1547^1^0 +"DATA",811.8,177,120,7,1,4,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE^1560^1568^1573^1574^1^0 +"DATA",811.8,177,120,7,1,5,0) +MU DISCHARGED HOME-HOSPIC CARE^1587^1595^1600^1601^1^0 +"DATA",811.8,177,120,7,1,6,0) +MU STK-8 DENOM EXCLU TRM^1614^1624^1629^1633^1^0 +"DATA",811.8,177,120,7,1,7,0) +MU STK-10 NUMER INCLU TRM^1646^1651^1656^1657^1^0 +"DATA",811.8,177,120,7,1,8,0) +MU DISCHARGED COURT/LAW ^1670^1678^1683^1684^1^0 +"DATA",811.8,177,120,7,1,9,0) +MU DISCHARGED HOME^1697^1705^1710^1711^1^0 +"DATA",811.8,177,120,7,1,10,0) +MU STK-8 NUMER INCLU EMS TRM^1724^1729^1734^1735^1^0 +"DATA",811.8,177,120,7,1,11,0) +MU STK-8 NUMER INCLU FOLLOW-UP TRM^1748^1753^1758^1759^1^0 +"DATA",811.8,177,120,7,1,12,0) +MU STK-8 NUMER INCLU MED TRM^1772^1777^1782^1783^1^0 +"DATA",811.8,177,120,7,1,13,0) +MU STK-8 NUMER INCLU RISK TRM^1796^1801^1806^1807^1^0 +"DATA",811.8,177,120,7,1,14,0) +MU STK-8 NUMER INCLU WARNING SIGN/SY TRM^1820^1825^1830^1831^1^0 +"DATA",811.8,177,120,7,1,15,0) +MU STK-6 DENOM INCLU LAB>=100^1844^1854^1859^1862^1^0 +"DATA",811.8,177,120,7,1,16,0) +MU STK-6 DENOM INCLU DRUG TRM^1875^1882^1887^1890^1^0 +"DATA",811.8,177,120,7,1,17,0) +MU STK-6 DENOM INCLU LAB TRM^1903^1908^1913^1914^1^0 +"DATA",811.8,177,120,7,1,18,0) +MU STK-6 DENOM INCLU LAB<100 TRM^1927^1934^1939^1940^1^0 +"DATA",811.8,177,120,7,1,19,0) +MU STK-6 DENOM EXCLU TRM^1953^1964^1969^1974^1^0 +"DATA",811.8,177,120,7,1,20,0) +MU STK-6 NUMER INCLU DRUG^1987^1992^1997^1998^1^0 +"DATA",811.8,177,120,7,1,21,0) +MU STK-5 DENOM EXCLU T-PA TRM^2011^2017^2022^2024^1^0 +"DATA",811.8,177,120,7,1,22,0) +MU STK-5 DENOM EXCLU TRM^2037^2053^2058^2068^1^0 +"DATA",811.8,177,120,7,1,23,0) +MU STK-5 NUMER INCLU TRM^2081^2087^2092^2094^1^0 +"DATA",811.8,177,120,7,1,24,0) +MU STK-4 DENOM ARRIVAL HF^2107^2112^2117^2118^1^0 +"DATA",811.8,177,120,7,1,25,0) +MU STK-4 DENOM EXCLU HF>2H^2131^2136^2141^2142^1^0 +"DATA",811.8,177,120,7,1,26,0) +MU ADMISSION EMERGENCY RT^2155^2162^2167^2168^1^0 +"DATA",811.8,177,120,7,1,27,0) +MU STK-4 NUMER INCLU TRM^2181^2187^2192^2194^1^0 +"DATA",811.8,177,120,7,1,28,0) +MU STK-4 DENOM EXCLU TRM^2207^2217^2222^2226^1^0 +"DATA",811.8,177,120,7,1,29,0) +MU STK-4 DENOM INC HF<2H^2239^2246^2251^2252^1^0 +"DATA",811.8,177,120,7,1,30,0) +MU ADMISSION MVMT TRIAL TRM^2265^2273^2278^2279^1^0 +"DATA",811.8,177,120,7,1,31,0) +MU STK-3 DENOM EXCLU TRM^2292^2302^2307^2311^1^0 +"DATA",811.8,177,120,7,1,32,0) +MU STK-3 NUMER INCLU TRM^2324^2332^2337^2341^1^0 +"DATA",811.8,177,120,7,1,33,0) +MU STK-2 DENOM EXCLU TRM^2354^2364^2369^2373^1^0 +"DATA",811.8,177,120,7,1,34,0) +MU STK-2 NUMER INCLU TRM^2386^2397^2402^2407^1^0 +"DATA",811.8,177,120,8,0) +REMINDER DEFINITION^811.9^14 +"DATA",811.8,177,120,8,1,0) +^811.8021A^14^14 +"DATA",811.8,177,120,8,1,1,0) +MU STK-10 DENOM CR^2420^2555^2560^2602^1^0 +"DATA",811.8,177,120,8,1,2,0) +MU STK-10 NUMER CR^2615^2753^2758^2801^1^0 +"DATA",811.8,177,120,8,1,3,0) +MU STK-8 DENOM CR^2814^2940^2945^2984^1^0 +"DATA",811.8,177,120,8,1,4,0) +MU STK-8 NUMER CR^2997^3138^3143^3187^1^0 +"DATA",811.8,177,120,8,1,5,0) +MU STK-6 DENOM CR^3200^3366^3371^3431^1^0 +"DATA",811.8,177,120,8,1,6,0) +MU STK-6 NUMER CR^3444^3622^3627^3695^1^0 +"DATA",811.8,177,120,8,1,7,0) +MU STK-5 DENOM CR^3708^3779^3784^3798^1^0 +"DATA",811.8,177,120,8,1,8,0) +MU STK-5 NUMER CR^3811^3898^3903^3927^1^0 +"DATA",811.8,177,120,8,1,9,0) +MU STK-4 NUMER CR^3940^4005^4010^4024^1^0 +"DATA",811.8,177,120,8,1,10,0) +MU STK-4 DENOM CR^4037^4105^4110^4123^1^0 +"DATA",811.8,177,120,8,1,11,0) +MU STK-3 DENOM CR^4136^4224^4229^4246^1^0 +"DATA",811.8,177,120,8,1,12,0) +MU STK-3 NUMER CR^4259^4359^4364^4386^1^0 +"DATA",811.8,177,120,8,1,13,0) +MU STK-2 DENOM CR^4399^4475^4480^4496^1^0 +"DATA",811.8,177,120,8,1,14,0) +MU STK-2 NUMER CR^4509^4592^4597^4618^1^0 +"DATA",811.8,177,120,9,0) +REMINDER LIST RULE^810.4^28 +"DATA",811.8,177,120,9,1,0) +^811.8021A^28^28 +"DATA",811.8,177,120,9,1,1,0) +MU STK-10 DENOM RR^4631^4637^4642^4642^1^0 +"DATA",811.8,177,120,9,1,2,0) +MU STK-10 DENOM RS^4655^4663^4668^4669^1^1 +"DATA",811.8,177,120,9,1,3,0) +MU STK-10 NUMER RR^4682^4688^4693^4693^1^0 +"DATA",811.8,177,120,9,1,4,0) +MU STK-10 NUMER RS^4706^4714^4719^4720^1^1 +"DATA",811.8,177,120,9,1,5,0) +MU STK-8 DENOM RR^4733^4739^4744^4744^1^0 +"DATA",811.8,177,120,9,1,6,0) +MU STK-8 DENOM RS^4757^4765^4770^4771^1^1 +"DATA",811.8,177,120,9,1,7,0) +MU STK-8 NUMER RR^4784^4790^4795^4795^1^0 +"DATA",811.8,177,120,9,1,8,0) +MU STK-8 NUMER RS^4808^4816^4821^4822^1^1 +"DATA",811.8,177,120,9,1,9,0) +MU STK-6 DENOM RR^4835^4841^4846^4846^1^0 +"DATA",811.8,177,120,9,1,10,0) +MU STK-6 DENOM RS^4859^4867^4872^4873^1^1 +"DATA",811.8,177,120,9,1,11,0) +MU STK-6 NUMER RR^4886^4892^4897^4897^1^0 +"DATA",811.8,177,120,9,1,12,0) +MU STK-6 NUMER RS^4910^4918^4923^4924^1^1 +"DATA",811.8,177,120,9,1,13,0) +MU STK-5 DENOM RR^4937^4943^4948^4948^1^0 +"DATA",811.8,177,120,9,1,14,0) +MU STK-5 DENOM RS^4961^4969^4974^4975^1^1 +"DATA",811.8,177,120,9,1,15,0) +MU STK-5 NUMER RR^4988^4994^4999^4999^1^0 +"DATA",811.8,177,120,9,1,16,0) +MU STK-5 NUMER RS^5012^5020^5025^5026^1^1 +"DATA",811.8,177,120,9,1,17,0) +MU STK-4 NUMER RR^5039^5045^5050^5050^1^0 +"DATA",811.8,177,120,9,1,18,0) +MU STK-4 NUMER RS^5063^5071^5076^5077^1^1 +"DATA",811.8,177,120,9,1,19,0) +MU STK-4 DENOM RR^5090^5096^5101^5101^1^0 +"DATA",811.8,177,120,9,1,20,0) +MU STK-4 DENOM RS^5114^5122^5127^5128^1^1 +"DATA",811.8,177,120,9,1,21,0) +MU STK-3 DENOM RR^5141^5147^5152^5152^1^0 +"DATA",811.8,177,120,9,1,22,0) +MU STK-3 DENOM RS^5165^5173^5178^5179^1^1 +"DATA",811.8,177,120,9,1,23,0) +MU STK-3 NUMER RR^5192^5198^5203^5203^1^0 +"DATA",811.8,177,120,9,1,24,0) +MU STK-3 NUMER RS^5216^5224^5229^5230^1^1 +"DATA",811.8,177,120,9,1,25,0) +MU STK-2 DENOM RR^5243^5249^5254^5254^1^0 +"DATA",811.8,177,120,9,1,26,0) +MU STK-2 DENOM RS^5267^5275^5280^5281^1^1 +"DATA",811.8,177,120,9,1,27,0) +MU STK-2 NUMER RR^5294^5300^5305^5305^1^0 +"DATA",811.8,177,120,9,1,28,0) +MU STK-2 NUMER RS^5318^5326^5331^5332^1^1 +"DATA",811.8,178,0) +MU NQF 0495 ED-1^HABIEL,SAM at VOE OFFICE INSTITUTION^3120717.114755 +"DATA",811.8,178,100,0) +^811.801^1363^1363 +"DATA",811.8,178,100,1,0) + +"DATA",811.8,178,100,2,0) + +"DATA",811.8,178,100,3,0) +2.0P17 +"DATA",811.8,178,100,4,0) +1282 +"DATA",811.8,178,100,5,0) + +"DATA",811.8,178,100,6,0) +MU NQF 0495 ED-1 +"DATA",811.8,178,100,7,0) +HABIEL,SAM +"DATA",811.8,178,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,178,100,9,0) +07/17/2012@11:47:55 +"DATA",811.8,178,100,10,0) + +"DATA",811.8,178,100,11,0) + +"DATA",811.8,178,100,19,0) + +"DATA",811.8,178,100,20,0) +MU +"DATA",811.8,178,100,21,0) +NQF +"DATA",811.8,178,100,22,0) +0495 +"DATA",811.8,178,100,23,0) +ED-1 +"DATA",811.8,178,100,24,0) + +"DATA",811.8,178,100,25,0) + +"DATA",811.8,178,100,26,0) +PXRMINPL +"DATA",811.8,178,100,27,0) +2982435994 +"DATA",811.8,178,100,28,0) + +"DATA",811.8,178,100,29,0) +EDT)!(DATE="") D +"DATA",811.8,178,100,48,0) + . S IEN="" +"DATA",811.8,178,100,49,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,178,100,50,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,178,100,51,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,178,100,52,0) + .. I SUB="ATT1" D +"DATA",811.8,178,100,53,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,178,100,54,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,178,100,55,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,178,100,56,0) + .. I SUB="ATT3" D +"DATA",811.8,178,100,57,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,178,100,58,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,178,100,59,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,178,100,60,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,178,100,61,0) + ..;location for the ward is on the list. +"DATA",811.8,178,100,62,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,178,100,63,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,178,100,64,0) + .. I 'OK Q +"DATA",811.8,178,100,65,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,178,100,66,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,178,100,67,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,178,100,68,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,178,100,69,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,178,100,70,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,178,100,71,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,178,100,72,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,178,100,73,0) + K ^TMP($J,"CNT") +"DATA",811.8,178,100,74,0) + Q +"DATA",811.8,178,100,75,0) + ; +"DATA",811.8,178,100,76,0) + ;===================================== +"DATA",811.8,178,100,77,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,178,100,78,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,178,100,79,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,178,100,80,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,178,100,81,0) + S OK=1 +"DATA",811.8,178,100,82,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,178,100,83,0) + S WARD="" +"DATA",811.8,178,100,84,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,178,100,85,0) + . S DFN=0 +"DATA",811.8,178,100,86,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,178,100,87,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,178,100,88,0) + ..;location for the ward is on the list. +"DATA",811.8,178,100,89,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,178,100,90,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,178,100,91,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,178,100,92,0) + .. I 'OK Q +"DATA",811.8,178,100,93,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,178,100,94,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,178,100,95,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,178,100,96,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,178,100,97,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,178,100,98,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,178,100,99,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,178,100,100,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,178,100,101,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,178,100,102,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,178,100,103,0) + K ^TMP($J,"CNT") +"DATA",811.8,178,100,104,0) + Q +"DATA",811.8,178,100,105,0) + ; +"DATA",811.8,178,100,106,0) + ;===================================== +"DATA",811.8,178,100,107,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,178,100,108,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,178,100,109,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,178,100,110,0) + Q +"DATA",811.8,178,100,111,0) + ; +"DATA",811.8,178,100,112,0) +]]> +"DATA",811.8,178,100,113,0) + +"DATA",811.8,178,100,114,0) + +"DATA",811.8,178,100,115,0) + +"DATA",811.8,178,100,116,0) +HEALTH FACTORS +"DATA",811.8,178,100,117,0) +9999999.64 +"DATA",811.8,178,100,118,0) +MU STK +"DATA",811.8,178,100,119,0) +50049 +"DATA",811.8,178,100,120,0) +1292931282 +"DATA",811.8,178,100,121,0) +NO +"DATA",811.8,178,100,122,0) + +"DATA",811.8,178,100,123,0) + +"DATA",811.8,178,100,127,0) + +"DATA",811.8,178,100,128,0) + +"DATA",811.8,178,100,129,0) + +"DATA",811.8,178,100,130,0) +HEALTH FACTORS +"DATA",811.8,178,100,131,0) +9999999.64 +"DATA",811.8,178,100,132,0) +ARRIVAL +"DATA",811.8,178,100,133,0) +50063 +"DATA",811.8,178,100,134,0) +3668375555 +"DATA",811.8,178,100,135,0) +NO +"DATA",811.8,178,100,136,0) + +"DATA",811.8,178,100,137,0) + +"DATA",811.8,178,100,144,0) + +"DATA",811.8,178,100,145,0) + +"DATA",811.8,178,100,146,0) + +"DATA",811.8,178,100,147,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,178,100,148,0) +811.4 +"DATA",811.8,178,100,149,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,178,100,150,0) +94 +"DATA",811.8,178,100,151,0) +1608937132 +"DATA",811.8,178,100,152,0) +NO +"DATA",811.8,178,100,153,0) + +"DATA",811.8,178,100,154,0) + +"DATA",811.8,178,100,192,0) + +"DATA",811.8,178,100,193,0) + +"DATA",811.8,178,100,194,0) + +"DATA",811.8,178,100,197,0) + +"DATA",811.8,178,100,198,0) + +"DATA",811.8,178,100,199,0) + +"DATA",811.8,178,100,200,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,178,100,201,0) +811.4 +"DATA",811.8,178,100,202,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,178,100,203,0) +90 +"DATA",811.8,178,100,204,0) +1960922291 +"DATA",811.8,178,100,205,0) +NO +"DATA",811.8,178,100,206,0) + +"DATA",811.8,178,100,207,0) + +"DATA",811.8,178,100,248,0) + +"DATA",811.8,178,100,249,0) + +"DATA",811.8,178,100,250,0) + +"DATA",811.8,178,100,253,0) + +"DATA",811.8,178,100,254,0) + +"DATA",811.8,178,100,255,0) + +"DATA",811.8,178,100,256,0) +REMINDER TAXONOMY +"DATA",811.8,178,100,257,0) +811.2 +"DATA",811.8,178,100,258,0) +MU TABLE 7P01 TX +"DATA",811.8,178,100,259,0) +187 +"DATA",811.8,178,100,260,0) +1550059983 +"DATA",811.8,178,100,261,0) +NO +"DATA",811.8,178,100,262,0) + +"DATA",811.8,178,100,263,0) + +"DATA",811.8,178,100,859,0) + +"DATA",811.8,178,100,860,0) + +"DATA",811.8,178,100,861,0) + +"DATA",811.8,178,100,1011,0) + +"DATA",811.8,178,100,1012,0) + +"DATA",811.8,178,100,1013,0) + +"DATA",811.8,178,100,1014,0) +REMINDER DEFINITION +"DATA",811.8,178,100,1015,0) +811.9 +"DATA",811.8,178,100,1016,0) +MU ED1 CR +"DATA",811.8,178,100,1017,0) +215 +"DATA",811.8,178,100,1018,0) +2525598549 +"DATA",811.8,178,100,1019,0) +NO +"DATA",811.8,178,100,1020,0) + +"DATA",811.8,178,100,1021,0) + +"DATA",811.8,178,100,1079,0) + +"DATA",811.8,178,100,1080,0) + +"DATA",811.8,178,100,1081,0) + +"DATA",811.8,178,100,1094,0) + +"DATA",811.8,178,100,1095,0) + +"DATA",811.8,178,100,1096,0) + +"DATA",811.8,178,100,1097,0) +REMINDER DEFINITION +"DATA",811.8,178,100,1098,0) +811.9 +"DATA",811.8,178,100,1099,0) +MU ED 1&2 DENOM +"DATA",811.8,178,100,1100,0) +247 +"DATA",811.8,178,100,1101,0) +543950955 +"DATA",811.8,178,100,1102,0) +NO +"DATA",811.8,178,100,1103,0) + +"DATA",811.8,178,100,1104,0) + +"DATA",811.8,178,100,1163,0) + +"DATA",811.8,178,100,1164,0) + +"DATA",811.8,178,100,1165,0) + +"DATA",811.8,178,100,1178,0) + +"DATA",811.8,178,100,1179,0) + +"DATA",811.8,178,100,1180,0) + +"DATA",811.8,178,100,1181,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1182,0) +810.4 +"DATA",811.8,178,100,1183,0) +MU ED-1 NUMER RR +"DATA",811.8,178,100,1184,0) +87 +"DATA",811.8,178,100,1185,0) +3352144439 +"DATA",811.8,178,100,1186,0) +NO +"DATA",811.8,178,100,1187,0) + +"DATA",811.8,178,100,1188,0) + +"DATA",811.8,178,100,1197,0) + +"DATA",811.8,178,100,1198,0) + +"DATA",811.8,178,100,1199,0) + +"DATA",811.8,178,100,1202,0) + +"DATA",811.8,178,100,1203,0) + +"DATA",811.8,178,100,1204,0) + +"DATA",811.8,178,100,1205,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1206,0) +810.4 +"DATA",811.8,178,100,1207,0) +MU ED-1 NUMER RS +"DATA",811.8,178,100,1208,0) +88 +"DATA",811.8,178,100,1209,0) +3590207834 +"DATA",811.8,178,100,1210,0) +YES +"DATA",811.8,178,100,1211,0) + +"DATA",811.8,178,100,1212,0) + +"DATA",811.8,178,100,1223,0) + +"DATA",811.8,178,100,1224,0) + +"DATA",811.8,178,100,1225,0) + +"DATA",811.8,178,100,1229,0) + +"DATA",811.8,178,100,1230,0) + +"DATA",811.8,178,100,1231,0) + +"DATA",811.8,178,100,1232,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1233,0) +810.4 +"DATA",811.8,178,100,1234,0) +MU ED-1 DENOM RR +"DATA",811.8,178,100,1235,0) +163 +"DATA",811.8,178,100,1236,0) +4198688042 +"DATA",811.8,178,100,1237,0) +NO +"DATA",811.8,178,100,1238,0) + +"DATA",811.8,178,100,1239,0) + +"DATA",811.8,178,100,1248,0) + +"DATA",811.8,178,100,1249,0) + +"DATA",811.8,178,100,1250,0) + +"DATA",811.8,178,100,1253,0) + +"DATA",811.8,178,100,1254,0) + +"DATA",811.8,178,100,1255,0) + +"DATA",811.8,178,100,1256,0) +REMINDER LIST RULE +"DATA",811.8,178,100,1257,0) +810.4 +"DATA",811.8,178,100,1258,0) +MU ED-1 DENOM RS +"DATA",811.8,178,100,1259,0) +165 +"DATA",811.8,178,100,1260,0) +3863137731 +"DATA",811.8,178,100,1261,0) +YES +"DATA",811.8,178,100,1262,0) + +"DATA",811.8,178,100,1263,0) + +"DATA",811.8,178,100,1274,0) + +"DATA",811.8,178,100,1275,0) + +"DATA",811.8,178,100,1276,0) + +"DATA",811.8,178,100,1280,0) + +"DATA",811.8,178,100,1281,0) + +"DATA",811.8,178,100,1282,0) + +"DATA",811.8,178,100,1283,0) +12 +"DATA",811.8,178,100,1284,0) + +"DATA",811.8,178,100,1285,0) +25 +"DATA",811.8,178,100,1286,0) +111 +"DATA",811.8,178,100,1287,0) +30 +"DATA",811.8,178,100,1288,0) + +"DATA",811.8,178,100,1289,0) + +"DATA",811.8,178,100,1290,0) +125 +"DATA",811.8,178,100,1291,0) +124 +"DATA",811.8,178,100,1292,0) +115 +"DATA",811.8,178,100,1293,0) + +"DATA",811.8,178,100,1294,0) + +"DATA",811.8,178,100,1295,0) +142 +"DATA",811.8,178,100,1296,0) +138 +"DATA",811.8,178,100,1297,0) +129 +"DATA",811.8,178,100,1298,0) + +"DATA",811.8,178,100,1299,0) + +"DATA",811.8,178,100,1300,0) +190 +"DATA",811.8,178,100,1301,0) +155 +"DATA",811.8,178,100,1302,0) +146 +"DATA",811.8,178,100,1303,0) +195 +"DATA",811.8,178,100,1304,0) +195 +"DATA",811.8,178,100,1305,0) + +"DATA",811.8,178,100,1306,0) + +"DATA",811.8,178,100,1307,0) +246 +"DATA",811.8,178,100,1308,0) +208 +"DATA",811.8,178,100,1309,0) +199 +"DATA",811.8,178,100,1310,0) +251 +"DATA",811.8,178,100,1311,0) +251 +"DATA",811.8,178,100,1312,0) + +"DATA",811.8,178,100,1313,0) + +"DATA",811.8,178,100,1314,0) +857 +"DATA",811.8,178,100,1315,0) +264 +"DATA",811.8,178,100,1316,0) +255 +"DATA",811.8,178,100,1317,0) +1009 +"DATA",811.8,178,100,1318,0) +862 +"DATA",811.8,178,100,1319,0) + +"DATA",811.8,178,100,1320,0) + +"DATA",811.8,178,100,1321,0) +1077 +"DATA",811.8,178,100,1322,0) +1022 +"DATA",811.8,178,100,1323,0) +1013 +"DATA",811.8,178,100,1324,0) +1092 +"DATA",811.8,178,100,1325,0) +1082 +"DATA",811.8,178,100,1326,0) + +"DATA",811.8,178,100,1327,0) + +"DATA",811.8,178,100,1328,0) +1161 +"DATA",811.8,178,100,1329,0) +1105 +"DATA",811.8,178,100,1330,0) +1096 +"DATA",811.8,178,100,1331,0) +1176 +"DATA",811.8,178,100,1332,0) +1166 +"DATA",811.8,178,100,1333,0) + +"DATA",811.8,178,100,1334,0) + +"DATA",811.8,178,100,1335,0) +1195 +"DATA",811.8,178,100,1336,0) +1189 +"DATA",811.8,178,100,1337,0) +1180 +"DATA",811.8,178,100,1338,0) +1200 +"DATA",811.8,178,100,1339,0) +1200 +"DATA",811.8,178,100,1340,0) + +"DATA",811.8,178,100,1341,0) + +"DATA",811.8,178,100,1342,0) +1221 +"DATA",811.8,178,100,1343,0) +1213 +"DATA",811.8,178,100,1344,0) +1204 +"DATA",811.8,178,100,1345,0) +1227 +"DATA",811.8,178,100,1346,0) +1226 +"DATA",811.8,178,100,1347,0) + +"DATA",811.8,178,100,1348,0) + +"DATA",811.8,178,100,1349,0) +1246 +"DATA",811.8,178,100,1350,0) +1240 +"DATA",811.8,178,100,1351,0) +1231 +"DATA",811.8,178,100,1352,0) +1251 +"DATA",811.8,178,100,1353,0) +1251 +"DATA",811.8,178,100,1354,0) + +"DATA",811.8,178,100,1355,0) + +"DATA",811.8,178,100,1356,0) +1272 +"DATA",811.8,178,100,1357,0) +1264 +"DATA",811.8,178,100,1358,0) +1255 +"DATA",811.8,178,100,1359,0) +1278 +"DATA",811.8,178,100,1360,0) +1277 +"DATA",811.8,178,100,1361,0) + +"DATA",811.8,178,100,1362,0) + +"DATA",811.8,178,100,1363,0) + +"DATA",811.8,178,110,0) +^811.804^19^19 +"DATA",811.8,178,110,1,0) +Source: HABIEL,SAM at VOE OFFICE INSTITUTION +"DATA",811.8,178,110,2,0) +Date Packed: 07/17/2012@11:47:55 +"DATA",811.8,178,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,178,110,4,0) + +"DATA",811.8,178,110,5,0) +Description: +"DATA",811.8,178,110,6,0) +For Inpatient Education measure MU HOS NQF 0495 +"DATA",811.8,178,110,7,0) + +"DATA",811.8,178,110,8,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,178,110,9,0) +REMINDER LIST RULE +"DATA",811.8,178,110,10,0) + MU ED-1 NUMER RS +"DATA",811.8,178,110,11,0) + MU ED-1 DENOM RS +"DATA",811.8,178,110,12,0) + +"DATA",811.8,178,110,13,0) +Keywords: +"DATA",811.8,178,110,14,0) +MU +"DATA",811.8,178,110,15,0) +NQF +"DATA",811.8,178,110,16,0) +0495 +"DATA",811.8,178,110,17,0) +ED-1 +"DATA",811.8,178,110,18,0) + +"DATA",811.8,178,110,19,0) +Components: +"DATA",811.8,178,119) +6 +"DATA",811.8,178,120,0) +^811.802A^12^12 +"DATA",811.8,178,120,1,0) +ROUTINE^0^1 +"DATA",811.8,178,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,178,120,1,1,1,0) +PXRMINPL^30^111^^^1^0 +"DATA",811.8,178,120,2,0) +HEALTH FACTORS^9999999.64^2 +"DATA",811.8,178,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,178,120,2,1,1,0) +MU STK^124^125^^^1^0 +"DATA",811.8,178,120,2,1,2,0) +ARRIVAL^138^142^^^1^0 +"DATA",811.8,178,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,178,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,178,120,3,1,1,0) +VA-DISCHARGES FOR A DATE RANGE^155^190^195^195^1^0 +"DATA",811.8,178,120,3,1,2,0) +VA-ADMISSIONS FOR A DATE RANGE^208^246^251^251^1^0 +"DATA",811.8,178,120,4,0) +REMINDER TAXONOMY^811.2^1 +"DATA",811.8,178,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,178,120,4,1,1,0) +MU TABLE 7P01 TX^264^857^862^1009^1^0 +"DATA",811.8,178,120,5,0) +REMINDER DEFINITION^811.9^2 +"DATA",811.8,178,120,5,1,0) +^811.8021A^2^2 +"DATA",811.8,178,120,5,1,1,0) +MU ED1 CR^1022^1077^1082^1092^1^0 +"DATA",811.8,178,120,5,1,2,0) +MU ED 1&2 DENOM^1105^1161^1166^1176^1^0 +"DATA",811.8,178,120,6,0) +REMINDER LIST RULE^810.4^4 +"DATA",811.8,178,120,6,1,0) +^811.8021A^4^4 +"DATA",811.8,178,120,6,1,1,0) +MU ED-1 NUMER RR^1189^1195^1200^1200^1^0 +"DATA",811.8,178,120,6,1,2,0) +MU ED-1 NUMER RS^1213^1221^1226^1227^1^1 +"DATA",811.8,178,120,6,1,3,0) +MU ED-1 DENOM RR^1240^1246^1251^1251^1^0 +"DATA",811.8,178,120,6,1,4,0) +MU ED-1 DENOM RS^1264^1272^1277^1278^1^1 +"DATA",811.8,180,0) +MU VTE 1.2.3.4.5.6 SMH^MANAGER,SYSTEM at VOE OFFICE INSTITUTION^3120720.09483 +"DATA",811.8,180,100,0) +^811.801^7838^7838 +"DATA",811.8,180,100,1,0) + +"DATA",811.8,180,100,2,0) + +"DATA",811.8,180,100,3,0) +2.0P17 +"DATA",811.8,180,100,4,0) +7060 +"DATA",811.8,180,100,5,0) + +"DATA",811.8,180,100,6,0) +MU VTE 1.2.3.4.5.6 SMH +"DATA",811.8,180,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,180,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,180,100,9,0) +07/20/2012@09:48:30 +"DATA",811.8,180,100,10,0) + +"DATA",811.8,180,100,11,0) + +"DATA",811.8,180,100,36,0) + +"DATA",811.8,180,100,37,0) +NQF 0371 +"DATA",811.8,180,100,38,0) +NQF 0372 +"DATA",811.8,180,100,39,0) +NQF 0373 +"DATA",811.8,180,100,40,0) +NQF 0374 +"DATA",811.8,180,100,41,0) +NQF 0375 +"DATA",811.8,180,100,42,0) +NQF 0376 +"DATA",811.8,180,100,43,0) +MU +"DATA",811.8,180,100,44,0) +VTE +"DATA",811.8,180,100,45,0) +VENOUS THROMBOEMBOLISM +"DATA",811.8,180,100,46,0) + +"DATA",811.8,180,100,47,0) + +"DATA",811.8,180,100,48,0) +PXRMINPL +"DATA",811.8,180,100,49,0) +2982435994 +"DATA",811.8,180,100,50,0) + +"DATA",811.8,180,100,51,0) +EDT)!(DATE="") D +"DATA",811.8,180,100,70,0) + . S IEN="" +"DATA",811.8,180,100,71,0) + . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D +"DATA",811.8,180,100,72,0) + .. S DATA=^DGPM(IEN,0) +"DATA",811.8,180,100,73,0) + .. S DFN=$P(DATA,U,3) +"DATA",811.8,180,100,74,0) + .. I SUB="ATT1" D +"DATA",811.8,180,100,75,0) + ...;WARD is a required field but it may not exist for older entries. +"DATA",811.8,180,100,76,0) + ... S WARDP=+$P(DATA,U,6) +"DATA",811.8,180,100,77,0) + ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0) +"DATA",811.8,180,100,78,0) + .. I SUB="ATT3" D +"DATA",811.8,180,100,79,0) + ... S WARD=$$GET1^DIQ(405,IEN,200) +"DATA",811.8,180,100,80,0) + ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0) +"DATA",811.8,180,100,81,0) + ... S WARD=WARDP_";"_WARD +"DATA",811.8,180,100,82,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,180,100,83,0) + ..;location for the ward is on the list. +"DATA",811.8,180,100,84,0) + .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0) +"DATA",811.8,180,100,85,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,180,100,86,0) + .. I 'OK Q +"DATA",811.8,180,100,87,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,180,100,88,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD +"DATA",811.8,180,100,89,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,180,100,90,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,180,100,91,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,180,100,92,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD +"DATA",811.8,180,100,93,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,180,100,94,0) + .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01) +"DATA",811.8,180,100,95,0) + K ^TMP($J,"CNT") +"DATA",811.8,180,100,96,0) + Q +"DATA",811.8,180,100,97,0) + ; +"DATA",811.8,180,100,98,0) + ;===================================== +"DATA",811.8,180,100,99,0) +CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients. +"DATA",811.8,180,100,100,0) + ; DBIAs #10035, #10039, #10040, #10061, #10090 +"DATA",811.8,180,100,101,0) + N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR +"DATA",811.8,180,100,102,0) + K ^TMP($J,PLIST),^TMP($J,"CNT") +"DATA",811.8,180,100,103,0) + S OK=1 +"DATA",811.8,180,100,104,0) + S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0) +"DATA",811.8,180,100,105,0) + S WARD="" +"DATA",811.8,180,100,106,0) + F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D +"DATA",811.8,180,100,107,0) + . S DFN=0 +"DATA",811.8,180,100,108,0) + . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D +"DATA",811.8,180,100,109,0) + ..;If a location list has been passed in make sure the hospital +"DATA",811.8,180,100,110,0) + ..;location for the ward is on the list. +"DATA",811.8,180,100,111,0) + .. S WARDP=+$O(^DIC(42,"B",WARD,"")) +"DATA",811.8,180,100,112,0) + .. S HLOC=+$G(^DIC(42,WARDP,44)) +"DATA",811.8,180,100,113,0) + .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0) +"DATA",811.8,180,100,114,0) + .. I 'OK Q +"DATA",811.8,180,100,115,0) + .. K VAIN,VAERR D INP^VADPT +"DATA",811.8,180,100,116,0) + .. S WARDSUB=+VAIN(4)_";"_WARD +"DATA",811.8,180,100,117,0) + .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1 +"DATA",811.8,180,100,118,0) + .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB +"DATA",811.8,180,100,119,0) + .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0) +"DATA",811.8,180,100,120,0) + .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0) +"DATA",811.8,180,100,121,0) + .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0) +"DATA",811.8,180,100,122,0) + .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB +"DATA",811.8,180,100,123,0) + .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM +"DATA",811.8,180,100,124,0) + .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7) +"DATA",811.8,180,100,125,0) + K ^TMP($J,"CNT") +"DATA",811.8,180,100,126,0) + Q +"DATA",811.8,180,100,127,0) + ; +"DATA",811.8,180,100,128,0) + ;===================================== +"DATA",811.8,180,100,129,0) +DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range. +"DATA",811.8,180,100,130,0) + ;NOTE: ASIH is not accounted for in this version. +"DATA",811.8,180,100,131,0) + D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3") +"DATA",811.8,180,100,132,0) + Q +"DATA",811.8,180,100,133,0) + ; +"DATA",811.8,180,100,134,0) +]]> +"DATA",811.8,180,100,135,0) + +"DATA",811.8,180,100,136,0) + +"DATA",811.8,180,100,137,0) + +"DATA",811.8,180,100,138,0) +VA GENERIC +"DATA",811.8,180,100,139,0) +50.6 +"DATA",811.8,180,100,140,0) +WARFARIN +"DATA",811.8,180,100,141,0) +865 +"DATA",811.8,180,100,142,0) +2690312802 +"DATA",811.8,180,100,143,0) +NO +"DATA",811.8,180,100,144,0) + +"DATA",811.8,180,100,145,0) + +"DATA",811.8,180,100,148,0) + +"DATA",811.8,180,100,149,0) + +"DATA",811.8,180,100,150,0) + +"DATA",811.8,180,100,151,0) +VA GENERIC +"DATA",811.8,180,100,152,0) +50.6 +"DATA",811.8,180,100,153,0) +HEPARIN/SODIUM CHLORIDE +"DATA",811.8,180,100,154,0) +374 +"DATA",811.8,180,100,155,0) +387006986 +"DATA",811.8,180,100,156,0) +NO +"DATA",811.8,180,100,157,0) + +"DATA",811.8,180,100,158,0) + +"DATA",811.8,180,100,161,0) + +"DATA",811.8,180,100,162,0) + +"DATA",811.8,180,100,163,0) + +"DATA",811.8,180,100,164,0) +VA GENERIC +"DATA",811.8,180,100,165,0) +50.6 +"DATA",811.8,180,100,166,0) +HEPARIN +"DATA",811.8,180,100,167,0) +80 +"DATA",811.8,180,100,168,0) +2604723312 +"DATA",811.8,180,100,169,0) +NO +"DATA",811.8,180,100,170,0) + +"DATA",811.8,180,100,171,0) + +"DATA",811.8,180,100,174,0) + +"DATA",811.8,180,100,175,0) + +"DATA",811.8,180,100,176,0) + +"DATA",811.8,180,100,177,0) +VA DRUG CLASS +"DATA",811.8,180,100,178,0) +50.605 +"DATA",811.8,180,100,179,0) +BL110 +"DATA",811.8,180,100,180,0) +46 +"DATA",811.8,180,100,181,0) +716911543 +"DATA",811.8,180,100,182,0) +NO +"DATA",811.8,180,100,183,0) + +"DATA",811.8,180,100,184,0) + +"DATA",811.8,180,100,187,0) + +"DATA",811.8,180,100,188,0) + +"DATA",811.8,180,100,189,0) + +"DATA",811.8,180,100,190,0) +VA DRUG CLASS +"DATA",811.8,180,100,191,0) +50.605 +"DATA",811.8,180,100,192,0) +BL115 +"DATA",811.8,180,100,193,0) +254 +"DATA",811.8,180,100,194,0) +1523697464 +"DATA",811.8,180,100,195,0) +NO +"DATA",811.8,180,100,196,0) + +"DATA",811.8,180,100,197,0) + +"DATA",811.8,180,100,200,0) + +"DATA",811.8,180,100,201,0) + +"DATA",811.8,180,100,202,0) + +"DATA",811.8,180,100,203,0) +LABORATORY TEST +"DATA",811.8,180,100,204,0) +60 +"DATA",811.8,180,100,205,0) +PLT +"DATA",811.8,180,100,206,0) +9 +"DATA",811.8,180,100,207,0) +1060313375 +"DATA",811.8,180,100,208,0) +NO +"DATA",811.8,180,100,209,0) + +"DATA",811.8,180,100,210,0) + +"DATA",811.8,180,100,213,0) + +"DATA",811.8,180,100,214,0) + +"DATA",811.8,180,100,215,0) + +"DATA",811.8,180,100,216,0) +LABORATORY TEST +"DATA",811.8,180,100,217,0) +60 +"DATA",811.8,180,100,218,0) +INR +"DATA",811.8,180,100,219,0) +5075 +"DATA",811.8,180,100,220,0) +1104670184 +"DATA",811.8,180,100,221,0) +NO +"DATA",811.8,180,100,222,0) + +"DATA",811.8,180,100,223,0) + +"DATA",811.8,180,100,226,0) + +"DATA",811.8,180,100,227,0) + +"DATA",811.8,180,100,228,0) + +"DATA",811.8,180,100,229,0) +HEALTH FACTORS +"DATA",811.8,180,100,230,0) +9999999.64 +"DATA",811.8,180,100,231,0) +MU STK +"DATA",811.8,180,100,232,0) +50049 +"DATA",811.8,180,100,233,0) +1292931282 +"DATA",811.8,180,100,234,0) +NO +"DATA",811.8,180,100,235,0) + +"DATA",811.8,180,100,236,0) + +"DATA",811.8,180,100,240,0) + +"DATA",811.8,180,100,241,0) + +"DATA",811.8,180,100,242,0) + +"DATA",811.8,180,100,243,0) +HEALTH FACTORS +"DATA",811.8,180,100,244,0) +9999999.64 +"DATA",811.8,180,100,245,0) +VTE TEST ORDER +"DATA",811.8,180,100,246,0) +50195 +"DATA",811.8,180,100,247,0) +808123084 +"DATA",811.8,180,100,248,0) +NO +"DATA",811.8,180,100,249,0) + +"DATA",811.8,180,100,250,0) + +"DATA",811.8,180,100,257,0) + +"DATA",811.8,180,100,258,0) + +"DATA",811.8,180,100,259,0) + +"DATA",811.8,180,100,260,0) +HEALTH FACTORS +"DATA",811.8,180,100,261,0) +9999999.64 +"DATA",811.8,180,100,262,0) +VTE PRESENT AT ADMISSION +"DATA",811.8,180,100,263,0) +50194 +"DATA",811.8,180,100,264,0) +3373262956 +"DATA",811.8,180,100,265,0) +NO +"DATA",811.8,180,100,266,0) + +"DATA",811.8,180,100,267,0) + +"DATA",811.8,180,100,274,0) + +"DATA",811.8,180,100,275,0) + +"DATA",811.8,180,100,276,0) + +"DATA",811.8,180,100,277,0) +HEALTH FACTORS +"DATA",811.8,180,100,278,0) +9999999.64 +"DATA",811.8,180,100,279,0) +VTE DX CONFIRMED DURING HOSPTIALIZATION +"DATA",811.8,180,100,280,0) +50193 +"DATA",811.8,180,100,281,0) +1875261175 +"DATA",811.8,180,100,282,0) +NO +"DATA",811.8,180,100,283,0) + +"DATA",811.8,180,100,284,0) + +"DATA",811.8,180,100,291,0) + +"DATA",811.8,180,100,292,0) + +"DATA",811.8,180,100,293,0) + +"DATA",811.8,180,100,294,0) +HEALTH FACTORS +"DATA",811.8,180,100,295,0) +9999999.64 +"DATA",811.8,180,100,296,0) +VTE NOT GIVEN-HOSPITAL ADMISSION +"DATA",811.8,180,100,297,0) +500304 +"DATA",811.8,180,100,298,0) +886939234 +"DATA",811.8,180,100,299,0) +NO +"DATA",811.8,180,100,300,0) + +"DATA",811.8,180,100,301,0) + +"DATA",811.8,180,100,308,0) + +"DATA",811.8,180,100,309,0) + +"DATA",811.8,180,100,310,0) + +"DATA",811.8,180,100,311,0) +HEALTH FACTORS +"DATA",811.8,180,100,312,0) +9999999.64 +"DATA",811.8,180,100,313,0) +VTE PROPHYLAXIS DECLINED +"DATA",811.8,180,100,314,0) +500303 +"DATA",811.8,180,100,315,0) +3681543442 +"DATA",811.8,180,100,316,0) +NO +"DATA",811.8,180,100,317,0) + +"DATA",811.8,180,100,318,0) + +"DATA",811.8,180,100,325,0) + +"DATA",811.8,180,100,326,0) + +"DATA",811.8,180,100,327,0) + +"DATA",811.8,180,100,328,0) +HEALTH FACTORS +"DATA",811.8,180,100,329,0) +9999999.64 +"DATA",811.8,180,100,330,0) +VTE PROHYLAXIS NOT RECEIVED +"DATA",811.8,180,100,331,0) +500302 +"DATA",811.8,180,100,332,0) +1720149288 +"DATA",811.8,180,100,333,0) +NO +"DATA",811.8,180,100,334,0) + +"DATA",811.8,180,100,335,0) + +"DATA",811.8,180,100,342,0) + +"DATA",811.8,180,100,343,0) + +"DATA",811.8,180,100,344,0) + +"DATA",811.8,180,100,345,0) +HEALTH FACTORS +"DATA",811.8,180,100,346,0) +9999999.64 +"DATA",811.8,180,100,347,0) +VTE NO MECHANICAL PROPHYLAXIS: REASON +"DATA",811.8,180,100,348,0) +50192 +"DATA",811.8,180,100,349,0) +3263321586 +"DATA",811.8,180,100,350,0) +NO +"DATA",811.8,180,100,351,0) + +"DATA",811.8,180,100,352,0) + +"DATA",811.8,180,100,359,0) + +"DATA",811.8,180,100,360,0) + +"DATA",811.8,180,100,361,0) + +"DATA",811.8,180,100,362,0) +HEALTH FACTORS +"DATA",811.8,180,100,363,0) +9999999.64 +"DATA",811.8,180,100,364,0) +ENROLLED IN CLINICAL TRIALS +"DATA",811.8,180,100,365,0) +50071 +"DATA",811.8,180,100,366,0) +4182986683 +"DATA",811.8,180,100,367,0) +NO +"DATA",811.8,180,100,368,0) + +"DATA",811.8,180,100,369,0) + +"DATA",811.8,180,100,376,0) + +"DATA",811.8,180,100,377,0) + +"DATA",811.8,180,100,378,0) + +"DATA",811.8,180,100,379,0) +HEALTH FACTORS +"DATA",811.8,180,100,380,0) +9999999.64 +"DATA",811.8,180,100,381,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL +"DATA",811.8,180,100,382,0) +50064 +"DATA",811.8,180,100,383,0) +1895354898 +"DATA",811.8,180,100,384,0) +NO +"DATA",811.8,180,100,385,0) + +"DATA",811.8,180,100,386,0) + +"DATA",811.8,180,100,393,0) + +"DATA",811.8,180,100,394,0) + +"DATA",811.8,180,100,395,0) + +"DATA",811.8,180,100,396,0) +HEALTH FACTORS +"DATA",811.8,180,100,397,0) +9999999.64 +"DATA",811.8,180,100,398,0) +VTE PROPHYLAXIS RECEIVED +"DATA",811.8,180,100,399,0) +500301 +"DATA",811.8,180,100,400,0) +1598536246 +"DATA",811.8,180,100,401,0) +NO +"DATA",811.8,180,100,402,0) + +"DATA",811.8,180,100,403,0) + +"DATA",811.8,180,100,410,0) + +"DATA",811.8,180,100,411,0) + +"DATA",811.8,180,100,412,0) + +"DATA",811.8,180,100,413,0) +HEALTH FACTORS +"DATA",811.8,180,100,414,0) +9999999.64 +"DATA",811.8,180,100,415,0) +WARFARIN PRESCRIBED AT DISCHARGE +"DATA",811.8,180,100,416,0) +50196 +"DATA",811.8,180,100,417,0) +3674032829 +"DATA",811.8,180,100,418,0) +NO +"DATA",811.8,180,100,419,0) + +"DATA",811.8,180,100,420,0) + +"DATA",811.8,180,100,427,0) + +"DATA",811.8,180,100,428,0) + +"DATA",811.8,180,100,429,0) + +"DATA",811.8,180,100,430,0) +HEALTH FACTORS +"DATA",811.8,180,100,431,0) +9999999.64 +"DATA",811.8,180,100,432,0) +WARFARIN FOLLOW-UP MONITORING ADDRESSED +"DATA",811.8,180,100,433,0) +50201 +"DATA",811.8,180,100,434,0) +644373442 +"DATA",811.8,180,100,435,0) +NO +"DATA",811.8,180,100,436,0) + +"DATA",811.8,180,100,437,0) + +"DATA",811.8,180,100,444,0) + +"DATA",811.8,180,100,445,0) + +"DATA",811.8,180,100,446,0) + +"DATA",811.8,180,100,447,0) +HEALTH FACTORS +"DATA",811.8,180,100,448,0) +9999999.64 +"DATA",811.8,180,100,449,0) +WARFARIN ADVERSE REACTIONS ADDRESSED +"DATA",811.8,180,100,450,0) +50200 +"DATA",811.8,180,100,451,0) +3691692119 +"DATA",811.8,180,100,452,0) +NO +"DATA",811.8,180,100,453,0) + +"DATA",811.8,180,100,454,0) + +"DATA",811.8,180,100,461,0) + +"DATA",811.8,180,100,462,0) + +"DATA",811.8,180,100,463,0) + +"DATA",811.8,180,100,464,0) +HEALTH FACTORS +"DATA",811.8,180,100,465,0) +9999999.64 +"DATA",811.8,180,100,466,0) +WARFARIN DIETARY ADVICE GIVEN +"DATA",811.8,180,100,467,0) +50199 +"DATA",811.8,180,100,468,0) +2792967222 +"DATA",811.8,180,100,469,0) +NO +"DATA",811.8,180,100,470,0) + +"DATA",811.8,180,100,471,0) + +"DATA",811.8,180,100,478,0) + +"DATA",811.8,180,100,479,0) + +"DATA",811.8,180,100,480,0) + +"DATA",811.8,180,100,481,0) +HEALTH FACTORS +"DATA",811.8,180,100,482,0) +9999999.64 +"DATA",811.8,180,100,483,0) +WARFARIN COMPLIANCE ADDRESSED +"DATA",811.8,180,100,484,0) +50198 +"DATA",811.8,180,100,485,0) +2192273470 +"DATA",811.8,180,100,486,0) +NO +"DATA",811.8,180,100,487,0) + +"DATA",811.8,180,100,488,0) + +"DATA",811.8,180,100,495,0) + +"DATA",811.8,180,100,496,0) + +"DATA",811.8,180,100,497,0) + +"DATA",811.8,180,100,498,0) +HEALTH FACTORS +"DATA",811.8,180,100,499,0) +9999999.64 +"DATA",811.8,180,100,500,0) +WARFARIN EDU MATERIAL GIVEN AT DISCH +"DATA",811.8,180,100,501,0) +50197 +"DATA",811.8,180,100,502,0) +184824224 +"DATA",811.8,180,100,503,0) +NO +"DATA",811.8,180,100,504,0) + +"DATA",811.8,180,100,505,0) + +"DATA",811.8,180,100,512,0) + +"DATA",811.8,180,100,513,0) + +"DATA",811.8,180,100,514,0) + +"DATA",811.8,180,100,515,0) +HEALTH FACTORS +"DATA",811.8,180,100,516,0) +9999999.64 +"DATA",811.8,180,100,517,0) +SURGICAL CARE IMPROVEMENT PROJECT (SCIP) +"DATA",811.8,180,100,518,0) +50034 +"DATA",811.8,180,100,519,0) +3503105561 +"DATA",811.8,180,100,520,0) +NO +"DATA",811.8,180,100,521,0) + +"DATA",811.8,180,100,522,0) + +"DATA",811.8,180,100,529,0) + +"DATA",811.8,180,100,530,0) + +"DATA",811.8,180,100,531,0) + +"DATA",811.8,180,100,532,0) +HEALTH FACTORS +"DATA",811.8,180,100,533,0) +9999999.64 +"DATA",811.8,180,100,534,0) +VTE PROPHYLAXIS DOCUMENTED +"DATA",811.8,180,100,535,0) +50209 +"DATA",811.8,180,100,536,0) +4064470376 +"DATA",811.8,180,100,537,0) +NO +"DATA",811.8,180,100,538,0) + +"DATA",811.8,180,100,539,0) + +"DATA",811.8,180,100,546,0) + +"DATA",811.8,180,100,547,0) + +"DATA",811.8,180,100,548,0) + +"DATA",811.8,180,100,549,0) +HEALTH FACTORS +"DATA",811.8,180,100,550,0) +9999999.64 +"DATA",811.8,180,100,551,0) +ELECTIVE CAROTID INTERVENTION +"DATA",811.8,180,100,552,0) +500306 +"DATA",811.8,180,100,553,0) +2385829161 +"DATA",811.8,180,100,554,0) +NO +"DATA",811.8,180,100,555,0) + +"DATA",811.8,180,100,556,0) + +"DATA",811.8,180,100,563,0) + +"DATA",811.8,180,100,564,0) + +"DATA",811.8,180,100,565,0) + +"DATA",811.8,180,100,566,0) +HEALTH FACTORS +"DATA",811.8,180,100,567,0) +9999999.64 +"DATA",811.8,180,100,568,0) +COMFORT MEASURES PROTOCOL FOLLOWED +"DATA",811.8,180,100,569,0) +500305 +"DATA",811.8,180,100,570,0) +779307093 +"DATA",811.8,180,100,571,0) +NO +"DATA",811.8,180,100,572,0) + +"DATA",811.8,180,100,573,0) + +"DATA",811.8,180,100,580,0) + +"DATA",811.8,180,100,581,0) + +"DATA",811.8,180,100,582,0) + +"DATA",811.8,180,100,583,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,180,100,584,0) +811.4 +"DATA",811.8,180,100,585,0) +VA-ADMISSIONS FOR A DATE RANGE +"DATA",811.8,180,100,586,0) +90 +"DATA",811.8,180,100,587,0) +1960922291 +"DATA",811.8,180,100,588,0) +NO +"DATA",811.8,180,100,589,0) + +"DATA",811.8,180,100,590,0) + +"DATA",811.8,180,100,631,0) + +"DATA",811.8,180,100,632,0) + +"DATA",811.8,180,100,633,0) + +"DATA",811.8,180,100,636,0) + +"DATA",811.8,180,100,637,0) + +"DATA",811.8,180,100,638,0) + +"DATA",811.8,180,100,639,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,180,100,640,0) +811.4 +"DATA",811.8,180,100,641,0) +VA-DISCHARGES FOR A DATE RANGE +"DATA",811.8,180,100,642,0) +94 +"DATA",811.8,180,100,643,0) +1608937132 +"DATA",811.8,180,100,644,0) +NO +"DATA",811.8,180,100,645,0) + +"DATA",811.8,180,100,646,0) + +"DATA",811.8,180,100,684,0) + +"DATA",811.8,180,100,685,0) + +"DATA",811.8,180,100,686,0) + +"DATA",811.8,180,100,689,0) + +"DATA",811.8,180,100,690,0) + +"DATA",811.8,180,100,691,0) + +"DATA",811.8,180,100,692,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,693,0) +811.2 +"DATA",811.8,180,100,694,0) +MU VTE-6 TABLE 7.04 DISCH DX TX +"DATA",811.8,180,100,695,0) +209 +"DATA",811.8,180,100,696,0) +1488823505 +"DATA",811.8,180,100,697,0) +NO +"DATA",811.8,180,100,698,0) + +"DATA",811.8,180,100,699,0) + +"DATA",811.8,180,100,768,0) + +"DATA",811.8,180,100,769,0) + +"DATA",811.8,180,100,770,0) + +"DATA",811.8,180,100,788,0) + +"DATA",811.8,180,100,789,0) + +"DATA",811.8,180,100,790,0) + +"DATA",811.8,180,100,791,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,792,0) +811.2 +"DATA",811.8,180,100,793,0) +MU VTE-6 TABLE 7.03 DISCH DX TX +"DATA",811.8,180,100,794,0) +208 +"DATA",811.8,180,100,795,0) +3284149279 +"DATA",811.8,180,100,796,0) +NO +"DATA",811.8,180,100,797,0) + +"DATA",811.8,180,100,798,0) + +"DATA",811.8,180,100,847,0) + +"DATA",811.8,180,100,848,0) + +"DATA",811.8,180,100,849,0) + +"DATA",811.8,180,100,862,0) + +"DATA",811.8,180,100,863,0) + +"DATA",811.8,180,100,864,0) + +"DATA",811.8,180,100,865,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,866,0) +811.2 +"DATA",811.8,180,100,867,0) +MU TABLE 7.04 TX +"DATA",811.8,180,100,868,0) +190 +"DATA",811.8,180,100,869,0) +3678313254 +"DATA",811.8,180,100,870,0) +NO +"DATA",811.8,180,100,871,0) + +"DATA",811.8,180,100,872,0) + +"DATA",811.8,180,100,940,0) + +"DATA",811.8,180,100,941,0) + +"DATA",811.8,180,100,942,0) + +"DATA",811.8,180,100,960,0) + +"DATA",811.8,180,100,961,0) + +"DATA",811.8,180,100,962,0) + +"DATA",811.8,180,100,963,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,964,0) +811.2 +"DATA",811.8,180,100,965,0) +MU TABLE 7.03 TX +"DATA",811.8,180,100,966,0) +189 +"DATA",811.8,180,100,967,0) +2377246465 +"DATA",811.8,180,100,968,0) +NO +"DATA",811.8,180,100,969,0) + +"DATA",811.8,180,100,970,0) + +"DATA",811.8,180,100,1018,0) + +"DATA",811.8,180,100,1019,0) + +"DATA",811.8,180,100,1020,0) + +"DATA",811.8,180,100,1033,0) + +"DATA",811.8,180,100,1034,0) + +"DATA",811.8,180,100,1035,0) + +"DATA",811.8,180,100,1036,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1037,0) +811.2 +"DATA",811.8,180,100,1038,0) +MU INTRACRAN NEURO SURG 5.17 +"DATA",811.8,180,100,1039,0) +118 +"DATA",811.8,180,100,1040,0) +2255516464 +"DATA",811.8,180,100,1041,0) +NO +"DATA",811.8,180,100,1042,0) + +"DATA",811.8,180,100,1043,0) + +"DATA",811.8,180,100,1079,0) + +"DATA",811.8,180,100,1080,0) + +"DATA",811.8,180,100,1081,0) + +"DATA",811.8,180,100,1091,0) + +"DATA",811.8,180,100,1092,0) + +"DATA",811.8,180,100,1093,0) + +"DATA",811.8,180,100,1094,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1095,0) +811.2 +"DATA",811.8,180,100,1096,0) +MU GENERAL SURGERY 5.19 +"DATA",811.8,180,100,1097,0) +117 +"DATA",811.8,180,100,1098,0) +3458058209 +"DATA",811.8,180,100,1099,0) +NO +"DATA",811.8,180,100,1100,0) + +"DATA",811.8,180,100,1101,0) + +"DATA",811.8,180,100,1521,0) + +"DATA",811.8,180,100,1522,0) + +"DATA",811.8,180,100,1523,0) + +"DATA",811.8,180,100,1629,0) + +"DATA",811.8,180,100,1630,0) + +"DATA",811.8,180,100,1631,0) + +"DATA",811.8,180,100,1632,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1633,0) +811.2 +"DATA",811.8,180,100,1634,0) +MU GYNERCOLOGICAL SURG 5.20 +"DATA",811.8,180,100,1635,0) +116 +"DATA",811.8,180,100,1636,0) +3597002898 +"DATA",811.8,180,100,1637,0) +NO +"DATA",811.8,180,100,1638,0) + +"DATA",811.8,180,100,1639,0) + +"DATA",811.8,180,100,1711,0) + +"DATA",811.8,180,100,1712,0) + +"DATA",811.8,180,100,1713,0) + +"DATA",811.8,180,100,1732,0) + +"DATA",811.8,180,100,1733,0) + +"DATA",811.8,180,100,1734,0) + +"DATA",811.8,180,100,1735,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1736,0) +811.2 +"DATA",811.8,180,100,1737,0) +MU UROLOGICAL SURGERY 5.21 +"DATA",811.8,180,100,1738,0) +115 +"DATA",811.8,180,100,1739,0) +340959905 +"DATA",811.8,180,100,1740,0) +NO +"DATA",811.8,180,100,1741,0) + +"DATA",811.8,180,100,1742,0) + +"DATA",811.8,180,100,1802,0) + +"DATA",811.8,180,100,1803,0) + +"DATA",811.8,180,100,1804,0) + +"DATA",811.8,180,100,1820,0) + +"DATA",811.8,180,100,1821,0) + +"DATA",811.8,180,100,1822,0) + +"DATA",811.8,180,100,1823,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1824,0) +811.2 +"DATA",811.8,180,100,1825,0) +MU ELECTIVE HIP REPL 5.22 +"DATA",811.8,180,100,1826,0) +114 +"DATA",811.8,180,100,1827,0) +1201679318 +"DATA",811.8,180,100,1828,0) +NO +"DATA",811.8,180,100,1829,0) + +"DATA",811.8,180,100,1830,0) + +"DATA",811.8,180,100,1854,0) + +"DATA",811.8,180,100,1855,0) + +"DATA",811.8,180,100,1856,0) + +"DATA",811.8,180,100,1863,0) + +"DATA",811.8,180,100,1864,0) + +"DATA",811.8,180,100,1865,0) + +"DATA",811.8,180,100,1866,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1867,0) +811.2 +"DATA",811.8,180,100,1868,0) +MU ELECTIVE TOTAL KNEE REPL 5.23 +"DATA",811.8,180,100,1869,0) +113 +"DATA",811.8,180,100,1870,0) +3327003657 +"DATA",811.8,180,100,1871,0) +NO +"DATA",811.8,180,100,1872,0) + +"DATA",811.8,180,100,1873,0) + +"DATA",811.8,180,100,1889,0) + +"DATA",811.8,180,100,1890,0) + +"DATA",811.8,180,100,1891,0) + +"DATA",811.8,180,100,1896,0) + +"DATA",811.8,180,100,1897,0) + +"DATA",811.8,180,100,1898,0) + +"DATA",811.8,180,100,1899,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1900,0) +811.2 +"DATA",811.8,180,100,1901,0) +MU HIP FRAC 5.24 +"DATA",811.8,180,100,1902,0) +112 +"DATA",811.8,180,100,1903,0) +2413513853 +"DATA",811.8,180,100,1904,0) +NO +"DATA",811.8,180,100,1905,0) + +"DATA",811.8,180,100,1906,0) + +"DATA",811.8,180,100,1918,0) + +"DATA",811.8,180,100,1919,0) + +"DATA",811.8,180,100,1920,0) + +"DATA",811.8,180,100,1924,0) + +"DATA",811.8,180,100,1925,0) + +"DATA",811.8,180,100,1926,0) + +"DATA",811.8,180,100,1927,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,1928,0) +811.2 +"DATA",811.8,180,100,1929,0) +MU OBSTETRICS 7.02 +"DATA",811.8,180,100,1930,0) +111 +"DATA",811.8,180,100,1931,0) +4046671681 +"DATA",811.8,180,100,1932,0) +NO +"DATA",811.8,180,100,1933,0) + +"DATA",811.8,180,100,1934,0) + +"DATA",811.8,180,100,2674,0) + +"DATA",811.8,180,100,2675,0) + +"DATA",811.8,180,100,2676,0) + +"DATA",811.8,180,100,2862,0) + +"DATA",811.8,180,100,2863,0) + +"DATA",811.8,180,100,2864,0) + +"DATA",811.8,180,100,2865,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,2866,0) +811.2 +"DATA",811.8,180,100,2867,0) +MU STK-1 DENOM INCLU TX +"DATA",811.8,180,100,2868,0) +147 +"DATA",811.8,180,100,2869,0) +929230959 +"DATA",811.8,180,100,2870,0) +NO +"DATA",811.8,180,100,2871,0) + +"DATA",811.8,180,100,2872,0) + +"DATA",811.8,180,100,2933,0) + +"DATA",811.8,180,100,2934,0) + +"DATA",811.8,180,100,2935,0) + +"DATA",811.8,180,100,2951,0) + +"DATA",811.8,180,100,2952,0) + +"DATA",811.8,180,100,2953,0) + +"DATA",811.8,180,100,2954,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,2955,0) +811.2 +"DATA",811.8,180,100,2956,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX +"DATA",811.8,180,100,2957,0) +122 +"DATA",811.8,180,100,2958,0) +3882324901 +"DATA",811.8,180,100,2959,0) +NO +"DATA",811.8,180,100,2960,0) + +"DATA",811.8,180,100,2961,0) + +"DATA",811.8,180,100,2981,0) + +"DATA",811.8,180,100,2982,0) + +"DATA",811.8,180,100,2983,0) + +"DATA",811.8,180,100,2989,0) + +"DATA",811.8,180,100,2990,0) + +"DATA",811.8,180,100,2991,0) + +"DATA",811.8,180,100,2992,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,2993,0) +811.2 +"DATA",811.8,180,100,2994,0) +MU TABLE 7.01 TX +"DATA",811.8,180,100,2995,0) +219 +"DATA",811.8,180,100,2996,0) +2517265193 +"DATA",811.8,180,100,2997,0) +NO +"DATA",811.8,180,100,2998,0) + +"DATA",811.8,180,100,2999,0) + +"DATA",811.8,180,100,3595,0) + +"DATA",811.8,180,100,3596,0) + +"DATA",811.8,180,100,3597,0) + +"DATA",811.8,180,100,3747,0) + +"DATA",811.8,180,100,3748,0) + +"DATA",811.8,180,100,3749,0) + +"DATA",811.8,180,100,3750,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,3751,0) +811.2 +"DATA",811.8,180,100,3752,0) +MU TABLE 8.2 TX +"DATA",811.8,180,100,3753,0) +194 +"DATA",811.8,180,100,3754,0) +2381427883 +"DATA",811.8,180,100,3755,0) +NO +"DATA",811.8,180,100,3756,0) + +"DATA",811.8,180,100,3757,0) + +"DATA",811.8,180,100,3773,0) + +"DATA",811.8,180,100,3774,0) + +"DATA",811.8,180,100,3775,0) + +"DATA",811.8,180,100,3780,0) + +"DATA",811.8,180,100,3781,0) + +"DATA",811.8,180,100,3782,0) + +"DATA",811.8,180,100,3783,0) +REMINDER TAXONOMY +"DATA",811.8,180,100,3784,0) +811.2 +"DATA",811.8,180,100,3785,0) +MU STROKE 8.1 TX +"DATA",811.8,180,100,3786,0) +119 +"DATA",811.8,180,100,3787,0) +368190634 +"DATA",811.8,180,100,3788,0) +NO +"DATA",811.8,180,100,3789,0) + +"DATA",811.8,180,100,3790,0) + +"DATA",811.8,180,100,3846,0) + +"DATA",811.8,180,100,3847,0) + +"DATA",811.8,180,100,3848,0) + +"DATA",811.8,180,100,3863,0) + +"DATA",811.8,180,100,3864,0) + +"DATA",811.8,180,100,3865,0) + +"DATA",811.8,180,100,3866,0) +REMINDER TERM +"DATA",811.8,180,100,3867,0) +811.5 +"DATA",811.8,180,100,3868,0) +MU VTE-6 DENOM TEST ORDERED TRM +"DATA",811.8,180,100,3869,0) +682 +"DATA",811.8,180,100,3870,0) +557709074 +"DATA",811.8,180,100,3871,0) +NO +"DATA",811.8,180,100,3872,0) + +"DATA",811.8,180,100,3873,0) + +"DATA",811.8,180,100,3881,0) + +"DATA",811.8,180,100,3882,0) + +"DATA",811.8,180,100,3883,0) + +"DATA",811.8,180,100,3887,0) + +"DATA",811.8,180,100,3888,0) + +"DATA",811.8,180,100,3889,0) + +"DATA",811.8,180,100,3890,0) +REMINDER TERM +"DATA",811.8,180,100,3891,0) +811.5 +"DATA",811.8,180,100,3892,0) +MU VTE-6 DENOM VTE PRESENT AT ADMISSION TRM +"DATA",811.8,180,100,3893,0) +681 +"DATA",811.8,180,100,3894,0) +2646552455 +"DATA",811.8,180,100,3895,0) +NO +"DATA",811.8,180,100,3896,0) + +"DATA",811.8,180,100,3897,0) + +"DATA",811.8,180,100,3905,0) + +"DATA",811.8,180,100,3906,0) + +"DATA",811.8,180,100,3907,0) + +"DATA",811.8,180,100,3911,0) + +"DATA",811.8,180,100,3912,0) + +"DATA",811.8,180,100,3913,0) + +"DATA",811.8,180,100,3914,0) +REMINDER TERM +"DATA",811.8,180,100,3915,0) +811.5 +"DATA",811.8,180,100,3916,0) +MU VTE-6 DENOM CONFIRMED DX TRM +"DATA",811.8,180,100,3917,0) +680 +"DATA",811.8,180,100,3918,0) +3454806409 +"DATA",811.8,180,100,3919,0) +NO +"DATA",811.8,180,100,3920,0) + +"DATA",811.8,180,100,3921,0) + +"DATA",811.8,180,100,3929,0) + +"DATA",811.8,180,100,3930,0) + +"DATA",811.8,180,100,3931,0) + +"DATA",811.8,180,100,3935,0) + +"DATA",811.8,180,100,3936,0) + +"DATA",811.8,180,100,3937,0) + +"DATA",811.8,180,100,3938,0) +REMINDER TERM +"DATA",811.8,180,100,3939,0) +811.5 +"DATA",811.8,180,100,3940,0) +MU VTE-6 NO PROPHYLAXIS EXCLU DENOM TRM +"DATA",811.8,180,100,3941,0) +670 +"DATA",811.8,180,100,3942,0) +1309039022 +"DATA",811.8,180,100,3943,0) +NO +"DATA",811.8,180,100,3944,0) + +"DATA",811.8,180,100,3945,0) + +"DATA",811.8,180,100,3956,0) + +"DATA",811.8,180,100,3957,0) + +"DATA",811.8,180,100,3958,0) + +"DATA",811.8,180,100,3965,0) + +"DATA",811.8,180,100,3966,0) + +"DATA",811.8,180,100,3967,0) + +"DATA",811.8,180,100,3968,0) +REMINDER TERM +"DATA",811.8,180,100,3969,0) +811.5 +"DATA",811.8,180,100,3970,0) +MU VTE-6 EXCLU DENOM TRM +"DATA",811.8,180,100,3971,0) +669 +"DATA",811.8,180,100,3972,0) +616584539 +"DATA",811.8,180,100,3973,0) +NO +"DATA",811.8,180,100,3974,0) + +"DATA",811.8,180,100,3975,0) + +"DATA",811.8,180,100,3984,0) + +"DATA",811.8,180,100,3985,0) + +"DATA",811.8,180,100,3986,0) + +"DATA",811.8,180,100,3991,0) + +"DATA",811.8,180,100,3992,0) + +"DATA",811.8,180,100,3993,0) + +"DATA",811.8,180,100,3994,0) +REMINDER TERM +"DATA",811.8,180,100,3995,0) +811.5 +"DATA",811.8,180,100,3996,0) +MU ADMISSION MVMT TRIAL TRM +"DATA",811.8,180,100,3997,0) +660 +"DATA",811.8,180,100,3998,0) +1258096799 +"DATA",811.8,180,100,3999,0) +NO +"DATA",811.8,180,100,4000,0) + +"DATA",811.8,180,100,4001,0) + +"DATA",811.8,180,100,4012,0) + +"DATA",811.8,180,100,4013,0) + +"DATA",811.8,180,100,4014,0) + +"DATA",811.8,180,100,4018,0) + +"DATA",811.8,180,100,4019,0) + +"DATA",811.8,180,100,4020,0) + +"DATA",811.8,180,100,4021,0) +REMINDER TERM +"DATA",811.8,180,100,4022,0) +811.5 +"DATA",811.8,180,100,4023,0) +MU VTE-6 PROPHYLAXIS GIVEN TRM +"DATA",811.8,180,100,4024,0) +672 +"DATA",811.8,180,100,4025,0) +719937458 +"DATA",811.8,180,100,4026,0) +NO +"DATA",811.8,180,100,4027,0) + +"DATA",811.8,180,100,4028,0) + +"DATA",811.8,180,100,4041,0) + +"DATA",811.8,180,100,4042,0) + +"DATA",811.8,180,100,4043,0) + +"DATA",811.8,180,100,4052,0) + +"DATA",811.8,180,100,4053,0) + +"DATA",811.8,180,100,4054,0) + +"DATA",811.8,180,100,4055,0) +REMINDER TERM +"DATA",811.8,180,100,4056,0) +811.5 +"DATA",811.8,180,100,4057,0) +MU VTE-5 WARFARIN TRM +"DATA",811.8,180,100,4058,0) +683 +"DATA",811.8,180,100,4059,0) +2360865138 +"DATA",811.8,180,100,4060,0) +NO +"DATA",811.8,180,100,4061,0) + +"DATA",811.8,180,100,4062,0) + +"DATA",811.8,180,100,4072,0) + +"DATA",811.8,180,100,4073,0) + +"DATA",811.8,180,100,4074,0) + +"DATA",811.8,180,100,4080,0) + +"DATA",811.8,180,100,4081,0) + +"DATA",811.8,180,100,4082,0) + +"DATA",811.8,180,100,4083,0) +REMINDER TERM +"DATA",811.8,180,100,4084,0) +811.5 +"DATA",811.8,180,100,4085,0) +MU VTE-5 WARFARIN INSTRUCTION TRM +"DATA",811.8,180,100,4086,0) +679 +"DATA",811.8,180,100,4087,0) +3294970800 +"DATA",811.8,180,100,4088,0) +NO +"DATA",811.8,180,100,4089,0) + +"DATA",811.8,180,100,4090,0) + +"DATA",811.8,180,100,4102,0) + +"DATA",811.8,180,100,4103,0) + +"DATA",811.8,180,100,4104,0) + +"DATA",811.8,180,100,4112,0) + +"DATA",811.8,180,100,4113,0) + +"DATA",811.8,180,100,4114,0) + +"DATA",811.8,180,100,4115,0) +REMINDER TERM +"DATA",811.8,180,100,4116,0) +811.5 +"DATA",811.8,180,100,4117,0) +MU VTE-5 DENOM TEST ORDER TRM +"DATA",811.8,180,100,4118,0) +678 +"DATA",811.8,180,100,4119,0) +3278676975 +"DATA",811.8,180,100,4120,0) +NO +"DATA",811.8,180,100,4121,0) + +"DATA",811.8,180,100,4122,0) + +"DATA",811.8,180,100,4130,0) + +"DATA",811.8,180,100,4131,0) + +"DATA",811.8,180,100,4132,0) + +"DATA",811.8,180,100,4136,0) + +"DATA",811.8,180,100,4137,0) + +"DATA",811.8,180,100,4138,0) + +"DATA",811.8,180,100,4139,0) +REMINDER TERM +"DATA",811.8,180,100,4140,0) +811.5 +"DATA",811.8,180,100,4141,0) +MU VTE-5 DENOM CONFIRMED DX TRM +"DATA",811.8,180,100,4142,0) +677 +"DATA",811.8,180,100,4143,0) +865367625 +"DATA",811.8,180,100,4144,0) +NO +"DATA",811.8,180,100,4145,0) + +"DATA",811.8,180,100,4146,0) + +"DATA",811.8,180,100,4154,0) + +"DATA",811.8,180,100,4155,0) + +"DATA",811.8,180,100,4156,0) + +"DATA",811.8,180,100,4160,0) + +"DATA",811.8,180,100,4161,0) + +"DATA",811.8,180,100,4162,0) + +"DATA",811.8,180,100,4163,0) +REMINDER TERM +"DATA",811.8,180,100,4164,0) +811.5 +"DATA",811.8,180,100,4165,0) +MU VTE-5 DENOM INCL 7.03 OR 7.04 TX TRM +"DATA",811.8,180,100,4166,0) +676 +"DATA",811.8,180,100,4167,0) +2774899428 +"DATA",811.8,180,100,4168,0) +NO +"DATA",811.8,180,100,4169,0) + +"DATA",811.8,180,100,4170,0) + +"DATA",811.8,180,100,4179,0) + +"DATA",811.8,180,100,4180,0) + +"DATA",811.8,180,100,4181,0) + +"DATA",811.8,180,100,4186,0) + +"DATA",811.8,180,100,4187,0) + +"DATA",811.8,180,100,4188,0) + +"DATA",811.8,180,100,4189,0) +REMINDER TERM +"DATA",811.8,180,100,4190,0) +811.5 +"DATA",811.8,180,100,4191,0) +MU DISCHARGED HOME-HOSPIC CARE +"DATA",811.8,180,100,4192,0) +675 +"DATA",811.8,180,100,4193,0) +1839453929 +"DATA",811.8,180,100,4194,0) +NO +"DATA",811.8,180,100,4195,0) + +"DATA",811.8,180,100,4196,0) + +"DATA",811.8,180,100,4207,0) + +"DATA",811.8,180,100,4208,0) + +"DATA",811.8,180,100,4209,0) + +"DATA",811.8,180,100,4213,0) + +"DATA",811.8,180,100,4214,0) + +"DATA",811.8,180,100,4215,0) + +"DATA",811.8,180,100,4216,0) +REMINDER TERM +"DATA",811.8,180,100,4217,0) +811.5 +"DATA",811.8,180,100,4218,0) +MU DISCHARGED COURT/LAW +"DATA",811.8,180,100,4219,0) +674 +"DATA",811.8,180,100,4220,0) +1301941291 +"DATA",811.8,180,100,4221,0) +NO +"DATA",811.8,180,100,4222,0) + +"DATA",811.8,180,100,4223,0) + +"DATA",811.8,180,100,4234,0) + +"DATA",811.8,180,100,4235,0) + +"DATA",811.8,180,100,4236,0) + +"DATA",811.8,180,100,4240,0) + +"DATA",811.8,180,100,4241,0) + +"DATA",811.8,180,100,4242,0) + +"DATA",811.8,180,100,4243,0) +REMINDER TERM +"DATA",811.8,180,100,4244,0) +811.5 +"DATA",811.8,180,100,4245,0) +MU DISCHARGED HOME +"DATA",811.8,180,100,4246,0) +673 +"DATA",811.8,180,100,4247,0) +2743717861 +"DATA",811.8,180,100,4248,0) +NO +"DATA",811.8,180,100,4249,0) + +"DATA",811.8,180,100,4250,0) + +"DATA",811.8,180,100,4261,0) + +"DATA",811.8,180,100,4262,0) + +"DATA",811.8,180,100,4263,0) + +"DATA",811.8,180,100,4267,0) + +"DATA",811.8,180,100,4268,0) + +"DATA",811.8,180,100,4269,0) + +"DATA",811.8,180,100,4270,0) +REMINDER TERM +"DATA",811.8,180,100,4271,0) +811.5 +"DATA",811.8,180,100,4272,0) +MU VTE-5 DENOM EXCLU TRM +"DATA",811.8,180,100,4273,0) +671 +"DATA",811.8,180,100,4274,0) +1175648455 +"DATA",811.8,180,100,4275,0) +NO +"DATA",811.8,180,100,4276,0) + +"DATA",811.8,180,100,4277,0) + +"DATA",811.8,180,100,4285,0) + +"DATA",811.8,180,100,4286,0) + +"DATA",811.8,180,100,4287,0) + +"DATA",811.8,180,100,4291,0) + +"DATA",811.8,180,100,4292,0) + +"DATA",811.8,180,100,4293,0) + +"DATA",811.8,180,100,4294,0) +REMINDER TERM +"DATA",811.8,180,100,4295,0) +811.5 +"DATA",811.8,180,100,4296,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE +"DATA",811.8,180,100,4297,0) +688 +"DATA",811.8,180,100,4298,0) +1255054350 +"DATA",811.8,180,100,4299,0) +NO +"DATA",811.8,180,100,4300,0) + +"DATA",811.8,180,100,4301,0) + +"DATA",811.8,180,100,4312,0) + +"DATA",811.8,180,100,4313,0) + +"DATA",811.8,180,100,4314,0) + +"DATA",811.8,180,100,4318,0) + +"DATA",811.8,180,100,4319,0) + +"DATA",811.8,180,100,4320,0) + +"DATA",811.8,180,100,4321,0) +REMINDER TERM +"DATA",811.8,180,100,4322,0) +811.5 +"DATA",811.8,180,100,4323,0) +MU DISCHARGED TRANSFER OUT +"DATA",811.8,180,100,4324,0) +687 +"DATA",811.8,180,100,4325,0) +1371446481 +"DATA",811.8,180,100,4326,0) +NO +"DATA",811.8,180,100,4327,0) + +"DATA",811.8,180,100,4328,0) + +"DATA",811.8,180,100,4339,0) + +"DATA",811.8,180,100,4340,0) + +"DATA",811.8,180,100,4341,0) + +"DATA",811.8,180,100,4345,0) + +"DATA",811.8,180,100,4346,0) + +"DATA",811.8,180,100,4347,0) + +"DATA",811.8,180,100,4348,0) +REMINDER TERM +"DATA",811.8,180,100,4349,0) +811.5 +"DATA",811.8,180,100,4350,0) +MU VTE-4 HEPARIN MED TRM +"DATA",811.8,180,100,4351,0) +686 +"DATA",811.8,180,100,4352,0) +2876419271 +"DATA",811.8,180,100,4353,0) +NO +"DATA",811.8,180,100,4354,0) + +"DATA",811.8,180,100,4355,0) + +"DATA",811.8,180,100,4366,0) + +"DATA",811.8,180,100,4367,0) + +"DATA",811.8,180,100,4368,0) + +"DATA",811.8,180,100,4375,0) + +"DATA",811.8,180,100,4376,0) + +"DATA",811.8,180,100,4377,0) + +"DATA",811.8,180,100,4378,0) +REMINDER TERM +"DATA",811.8,180,100,4379,0) +811.5 +"DATA",811.8,180,100,4380,0) +MU DISCHARGE DEATH +"DATA",811.8,180,100,4381,0) +685 +"DATA",811.8,180,100,4382,0) +536067863 +"DATA",811.8,180,100,4383,0) +NO +"DATA",811.8,180,100,4384,0) + +"DATA",811.8,180,100,4385,0) + +"DATA",811.8,180,100,4396,0) + +"DATA",811.8,180,100,4397,0) + +"DATA",811.8,180,100,4398,0) + +"DATA",811.8,180,100,4402,0) + +"DATA",811.8,180,100,4403,0) + +"DATA",811.8,180,100,4404,0) + +"DATA",811.8,180,100,4405,0) +REMINDER TERM +"DATA",811.8,180,100,4406,0) +811.5 +"DATA",811.8,180,100,4407,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE +"DATA",811.8,180,100,4408,0) +684 +"DATA",811.8,180,100,4409,0) +1819822144 +"DATA",811.8,180,100,4410,0) +NO +"DATA",811.8,180,100,4411,0) + +"DATA",811.8,180,100,4412,0) + +"DATA",811.8,180,100,4423,0) + +"DATA",811.8,180,100,4424,0) + +"DATA",811.8,180,100,4425,0) + +"DATA",811.8,180,100,4429,0) + +"DATA",811.8,180,100,4430,0) + +"DATA",811.8,180,100,4431,0) + +"DATA",811.8,180,100,4432,0) +REMINDER TERM +"DATA",811.8,180,100,4433,0) +811.5 +"DATA",811.8,180,100,4434,0) +MU VTE-4 DENOM PLT LAB RESULT TRM +"DATA",811.8,180,100,4435,0) +689 +"DATA",811.8,180,100,4436,0) +1938584144 +"DATA",811.8,180,100,4437,0) +NO +"DATA",811.8,180,100,4438,0) + +"DATA",811.8,180,100,4439,0) + +"DATA",811.8,180,100,4447,0) + +"DATA",811.8,180,100,4448,0) + +"DATA",811.8,180,100,4449,0) + +"DATA",811.8,180,100,4453,0) + +"DATA",811.8,180,100,4454,0) + +"DATA",811.8,180,100,4455,0) + +"DATA",811.8,180,100,4456,0) +REMINDER TERM +"DATA",811.8,180,100,4457,0) +811.5 +"DATA",811.8,180,100,4458,0) +MU WARFARIN THERAPY +"DATA",811.8,180,100,4459,0) +740 +"DATA",811.8,180,100,4460,0) +464909860 +"DATA",811.8,180,100,4461,0) +NO +"DATA",811.8,180,100,4462,0) + +"DATA",811.8,180,100,4463,0) + +"DATA",811.8,180,100,4472,0) + +"DATA",811.8,180,100,4473,0) + +"DATA",811.8,180,100,4474,0) + +"DATA",811.8,180,100,4479,0) + +"DATA",811.8,180,100,4480,0) + +"DATA",811.8,180,100,4481,0) + +"DATA",811.8,180,100,4482,0) +REMINDER TERM +"DATA",811.8,180,100,4483,0) +811.5 +"DATA",811.8,180,100,4484,0) +MU VTE-3 DENOM TX +"DATA",811.8,180,100,4485,0) +739 +"DATA",811.8,180,100,4486,0) +1599420264 +"DATA",811.8,180,100,4487,0) +NO +"DATA",811.8,180,100,4488,0) + +"DATA",811.8,180,100,4489,0) + +"DATA",811.8,180,100,4498,0) + +"DATA",811.8,180,100,4499,0) + +"DATA",811.8,180,100,4500,0) + +"DATA",811.8,180,100,4505,0) + +"DATA",811.8,180,100,4506,0) + +"DATA",811.8,180,100,4507,0) + +"DATA",811.8,180,100,4508,0) +REMINDER TERM +"DATA",811.8,180,100,4509,0) +811.5 +"DATA",811.8,180,100,4510,0) +MU VTE-3 NUMER INR<2 TRM +"DATA",811.8,180,100,4511,0) +742 +"DATA",811.8,180,100,4512,0) +1362577542 +"DATA",811.8,180,100,4513,0) +NO +"DATA",811.8,180,100,4514,0) + +"DATA",811.8,180,100,4515,0) + +"DATA",811.8,180,100,4525,0) + +"DATA",811.8,180,100,4526,0) + +"DATA",811.8,180,100,4527,0) + +"DATA",811.8,180,100,4531,0) + +"DATA",811.8,180,100,4532,0) + +"DATA",811.8,180,100,4533,0) + +"DATA",811.8,180,100,4534,0) +REMINDER TERM +"DATA",811.8,180,100,4535,0) +811.5 +"DATA",811.8,180,100,4536,0) +MU VTE-3 NUMER INR>=2 TRM +"DATA",811.8,180,100,4537,0) +741 +"DATA",811.8,180,100,4538,0) +3670698211 +"DATA",811.8,180,100,4539,0) +NO +"DATA",811.8,180,100,4540,0) + +"DATA",811.8,180,100,4541,0) +=2 TRM +"DATA",811.8,180,100,4543,0) +811.5;+741,;100~LOCAL +"DATA",811.8,180,100,4544,0) +811.52;+742,+741,;.01~LT.INR +"DATA",811.8,180,100,4545,0) +811.52;+742,+741,;14~I V>1.9 +"DATA",811.8,180,100,4546,0) +811.52;+742,+741,;22~I V>1.9 +"DATA",811.8,180,100,4547,0) +811.53;+743,+741,;.01~07/20/2012@09:51:16 +"DATA",811.8,180,100,4548,0) +811.53;+743,+741,;2~WP-start~1 +"DATA",811.8,180,100,4549,0) +Exchange Stub +"DATA",811.8,180,100,4550,0) +]]> +"DATA",811.8,180,100,4551,0) + +"DATA",811.8,180,100,4552,0) + +"DATA",811.8,180,100,4553,0) + +"DATA",811.8,180,100,4557,0) + +"DATA",811.8,180,100,4558,0) + +"DATA",811.8,180,100,4559,0) + +"DATA",811.8,180,100,4560,0) +REMINDER TERM +"DATA",811.8,180,100,4561,0) +811.5 +"DATA",811.8,180,100,4562,0) +MU TPA THERAPY +"DATA",811.8,180,100,4563,0) +737 +"DATA",811.8,180,100,4564,0) +2878031716 +"DATA",811.8,180,100,4565,0) +NO +"DATA",811.8,180,100,4566,0) + +"DATA",811.8,180,100,4567,0) + +"DATA",811.8,180,100,4577,0) + +"DATA",811.8,180,100,4578,0) + +"DATA",811.8,180,100,4579,0) + +"DATA",811.8,180,100,4585,0) + +"DATA",811.8,180,100,4586,0) + +"DATA",811.8,180,100,4587,0) + +"DATA",811.8,180,100,4588,0) +REMINDER TERM +"DATA",811.8,180,100,4589,0) +811.5 +"DATA",811.8,180,100,4590,0) +MU VTE-1 NUMER PROPHYLAXIS TRM +"DATA",811.8,180,100,4591,0) +743 +"DATA",811.8,180,100,4592,0) +1028304784 +"DATA",811.8,180,100,4593,0) +NO +"DATA",811.8,180,100,4594,0) + +"DATA",811.8,180,100,4595,0) + +"DATA",811.8,180,100,4609,0) + +"DATA",811.8,180,100,4610,0) + +"DATA",811.8,180,100,4611,0) + +"DATA",811.8,180,100,4621,0) + +"DATA",811.8,180,100,4622,0) + +"DATA",811.8,180,100,4623,0) + +"DATA",811.8,180,100,4624,0) +REMINDER TERM +"DATA",811.8,180,100,4625,0) +811.5 +"DATA",811.8,180,100,4626,0) +MU VTE-2 DENOM TX TRM +"DATA",811.8,180,100,4627,0) +738 +"DATA",811.8,180,100,4628,0) +1518450117 +"DATA",811.8,180,100,4629,0) +NO +"DATA",811.8,180,100,4630,0) + +"DATA",811.8,180,100,4631,0) + +"DATA",811.8,180,100,4650,0) + +"DATA",811.8,180,100,4651,0) + +"DATA",811.8,180,100,4652,0) + +"DATA",811.8,180,100,4665,0) + +"DATA",811.8,180,100,4666,0) + +"DATA",811.8,180,100,4667,0) + +"DATA",811.8,180,100,4668,0) +REMINDER TERM +"DATA",811.8,180,100,4669,0) +811.5 +"DATA",811.8,180,100,4670,0) +MU VTE-2 DENOM EXCLU HF TRM +"DATA",811.8,180,100,4671,0) +661 +"DATA",811.8,180,100,4672,0) +3477886431 +"DATA",811.8,180,100,4673,0) +NO +"DATA",811.8,180,100,4674,0) + +"DATA",811.8,180,100,4675,0) + +"DATA",811.8,180,100,4687,0) + +"DATA",811.8,180,100,4688,0) + +"DATA",811.8,180,100,4689,0) + +"DATA",811.8,180,100,4695,0) + +"DATA",811.8,180,100,4696,0) + +"DATA",811.8,180,100,4697,0) + +"DATA",811.8,180,100,4698,0) +REMINDER TERM +"DATA",811.8,180,100,4699,0) +811.5 +"DATA",811.8,180,100,4700,0) +MU ADMISSION ICU TRM +"DATA",811.8,180,100,4701,0) +658 +"DATA",811.8,180,100,4702,0) +1783261594 +"DATA",811.8,180,100,4703,0) +NO +"DATA",811.8,180,100,4704,0) + +"DATA",811.8,180,100,4705,0) + +"DATA",811.8,180,100,4715,0) + +"DATA",811.8,180,100,4716,0) + +"DATA",811.8,180,100,4717,0) + +"DATA",811.8,180,100,4721,0) + +"DATA",811.8,180,100,4722,0) + +"DATA",811.8,180,100,4723,0) + +"DATA",811.8,180,100,4724,0) +REMINDER TERM +"DATA",811.8,180,100,4725,0) +811.5 +"DATA",811.8,180,100,4726,0) +MU STK-1 NUMER TRM +"DATA",811.8,180,100,4727,0) +555 +"DATA",811.8,180,100,4728,0) +1605993274 +"DATA",811.8,180,100,4729,0) +NO +"DATA",811.8,180,100,4730,0) + +"DATA",811.8,180,100,4731,0) + +"DATA",811.8,180,100,4742,0) + +"DATA",811.8,180,100,4743,0) + +"DATA",811.8,180,100,4744,0) + +"DATA",811.8,180,100,4751,0) + +"DATA",811.8,180,100,4752,0) + +"DATA",811.8,180,100,4753,0) + +"DATA",811.8,180,100,4754,0) +REMINDER TERM +"DATA",811.8,180,100,4755,0) +811.5 +"DATA",811.8,180,100,4756,0) +MU STK-1 DENOM EXCLU TRM +"DATA",811.8,180,100,4757,0) +546 +"DATA",811.8,180,100,4758,0) +2941885128 +"DATA",811.8,180,100,4759,0) +NO +"DATA",811.8,180,100,4760,0) + +"DATA",811.8,180,100,4761,0) + +"DATA",811.8,180,100,4774,0) + +"DATA",811.8,180,100,4775,0) + +"DATA",811.8,180,100,4776,0) + +"DATA",811.8,180,100,4783,0) + +"DATA",811.8,180,100,4784,0) + +"DATA",811.8,180,100,4785,0) + +"DATA",811.8,180,100,4786,0) +REMINDER TERM +"DATA",811.8,180,100,4787,0) +811.5 +"DATA",811.8,180,100,4788,0) +MU VTE-1 DENOM EXCLU TX TRM +"DATA",811.8,180,100,4789,0) +527 +"DATA",811.8,180,100,4790,0) +189263354 +"DATA",811.8,180,100,4791,0) +NO +"DATA",811.8,180,100,4792,0) + +"DATA",811.8,180,100,4793,0) + +"DATA",811.8,180,100,4815,0) + +"DATA",811.8,180,100,4816,0) + +"DATA",811.8,180,100,4817,0) + +"DATA",811.8,180,100,4833,0) + +"DATA",811.8,180,100,4834,0) + +"DATA",811.8,180,100,4835,0) + +"DATA",811.8,180,100,4836,0) +REMINDER TERM +"DATA",811.8,180,100,4837,0) +811.5 +"DATA",811.8,180,100,4838,0) +MU VTE-1 DENOM EXCLU HF TRM +"DATA",811.8,180,100,4839,0) +525 +"DATA",811.8,180,100,4840,0) +676574987 +"DATA",811.8,180,100,4841,0) +NO +"DATA",811.8,180,100,4842,0) + +"DATA",811.8,180,100,4843,0) + +"DATA",811.8,180,100,4854,0) + +"DATA",811.8,180,100,4855,0) + +"DATA",811.8,180,100,4856,0) + +"DATA",811.8,180,100,4861,0) + +"DATA",811.8,180,100,4862,0) + +"DATA",811.8,180,100,4863,0) + +"DATA",811.8,180,100,4864,0) +REMINDER DEFINITION +"DATA",811.8,180,100,4865,0) +811.9 +"DATA",811.8,180,100,4866,0) +MU VTE-6 DENOM CR +"DATA",811.8,180,100,4867,0) +221 +"DATA",811.8,180,100,4868,0) +4128277235 +"DATA",811.8,180,100,4869,0) +NO +"DATA",811.8,180,100,4870,0) + +"DATA",811.8,180,100,4871,0) + +"DATA",811.8,180,100,4960,0) + +"DATA",811.8,180,100,4961,0) + +"DATA",811.8,180,100,4962,0) + +"DATA",811.8,180,100,4990,0) + +"DATA",811.8,180,100,4991,0) + +"DATA",811.8,180,100,4992,0) + +"DATA",811.8,180,100,4993,0) +REMINDER DEFINITION +"DATA",811.8,180,100,4994,0) +811.9 +"DATA",811.8,180,100,4995,0) +MU VTE-6 NUMER CR +"DATA",811.8,180,100,4996,0) +225 +"DATA",811.8,180,100,4997,0) +3788632228 +"DATA",811.8,180,100,4998,0) +NO +"DATA",811.8,180,100,4999,0) + +"DATA",811.8,180,100,5000,0) + +"DATA",811.8,180,100,5103,0) + +"DATA",811.8,180,100,5104,0) + +"DATA",811.8,180,100,5105,0) + +"DATA",811.8,180,100,5139,0) + +"DATA",811.8,180,100,5140,0) + +"DATA",811.8,180,100,5141,0) + +"DATA",811.8,180,100,5142,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5143,0) +811.9 +"DATA",811.8,180,100,5144,0) +MU VTE-5 DENOM CR +"DATA",811.8,180,100,5145,0) +223 +"DATA",811.8,180,100,5146,0) +1077067850 +"DATA",811.8,180,100,5147,0) +NO +"DATA",811.8,180,100,5148,0) + +"DATA",811.8,180,100,5149,0) + +"DATA",811.8,180,100,5234,0) + +"DATA",811.8,180,100,5235,0) + +"DATA",811.8,180,100,5236,0) + +"DATA",811.8,180,100,5262,0) + +"DATA",811.8,180,100,5263,0) + +"DATA",811.8,180,100,5264,0) + +"DATA",811.8,180,100,5265,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5266,0) +811.9 +"DATA",811.8,180,100,5267,0) +MU VTE-5 NUMER CR +"DATA",811.8,180,100,5268,0) +224 +"DATA",811.8,180,100,5269,0) +4223723788 +"DATA",811.8,180,100,5270,0) +NO +"DATA",811.8,180,100,5271,0) + +"DATA",811.8,180,100,5272,0) + +"DATA",811.8,180,100,5358,0) + +"DATA",811.8,180,100,5359,0) + +"DATA",811.8,180,100,5360,0) + +"DATA",811.8,180,100,5386,0) + +"DATA",811.8,180,100,5387,0) + +"DATA",811.8,180,100,5388,0) + +"DATA",811.8,180,100,5389,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5390,0) +811.9 +"DATA",811.8,180,100,5391,0) +MU VTE-4 DENOM CR +"DATA",811.8,180,100,5392,0) +226 +"DATA",811.8,180,100,5393,0) +1783933120 +"DATA",811.8,180,100,5394,0) +NO +"DATA",811.8,180,100,5395,0) + +"DATA",811.8,180,100,5396,0) + +"DATA",811.8,180,100,5471,0) + +"DATA",811.8,180,100,5472,0) + +"DATA",811.8,180,100,5473,0) + +"DATA",811.8,180,100,5494,0) + +"DATA",811.8,180,100,5495,0) + +"DATA",811.8,180,100,5496,0) + +"DATA",811.8,180,100,5497,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5498,0) +811.9 +"DATA",811.8,180,100,5499,0) +MU VTE-4 NUMER CR +"DATA",811.8,180,100,5500,0) +227 +"DATA",811.8,180,100,5501,0) +1778718948 +"DATA",811.8,180,100,5502,0) +NO +"DATA",811.8,180,100,5503,0) + +"DATA",811.8,180,100,5504,0) + +"DATA",811.8,180,100,5582,0) + +"DATA",811.8,180,100,5583,0) + +"DATA",811.8,180,100,5584,0) + +"DATA",811.8,180,100,5606,0) + +"DATA",811.8,180,100,5607,0) + +"DATA",811.8,180,100,5608,0) + +"DATA",811.8,180,100,5609,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5610,0) +811.9 +"DATA",811.8,180,100,5611,0) +MU VTE-3 DENOM CR +"DATA",811.8,180,100,5612,0) +245 +"DATA",811.8,180,100,5613,0) +3747727026 +"DATA",811.8,180,100,5614,0) +NO +"DATA",811.8,180,100,5615,0) + +"DATA",811.8,180,100,5616,0) + +"DATA",811.8,180,100,5684,0) + +"DATA",811.8,180,100,5685,0) + +"DATA",811.8,180,100,5686,0) + +"DATA",811.8,180,100,5704,0) + +"DATA",811.8,180,100,5705,0) + +"DATA",811.8,180,100,5706,0) + +"DATA",811.8,180,100,5707,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5708,0) +811.9 +"DATA",811.8,180,100,5709,0) +MU VTE-3 NUMER CR +"DATA",811.8,180,100,5710,0) +246 +"DATA",811.8,180,100,5711,0) +2610777584 +"DATA",811.8,180,100,5712,0) +NO +"DATA",811.8,180,100,5713,0) + +"DATA",811.8,180,100,5714,0) +=2 TRM +"DATA",811.8,180,100,5775,0) +811.902;+260,+246,;24~0 +"DATA",811.8,180,100,5776,0) +811.902;+260,+246,;25~0 +"DATA",811.8,180,100,5777,0) +811.925;+261,+246,;.01~1 +"DATA",811.8,180,100,5778,0) +811.925;+261,+246,;3~DIFF_DATE(1,12)<121 +"DATA",811.8,180,100,5779,0) +811.925;+261,+246,;10~FN(1)<121 +"DATA",811.8,180,100,5780,0) +811.925;+261,+246,;41~0 +"DATA",811.8,180,100,5781,0) +811.925;+261,+246,;42~0 +"DATA",811.8,180,100,5782,0) +811.925;+262,+246,;.01~2 +"DATA",811.8,180,100,5783,0) +811.925;+262,+246,;3~DUR(8)>4 +"DATA",811.8,180,100,5784,0) +811.925;+262,+246,;10~FN(1)>4 +"DATA",811.8,180,100,5785,0) +811.925;+262,+246,;41~0 +"DATA",811.8,180,100,5786,0) +811.925;+262,+246,;42~0 +"DATA",811.8,180,100,5787,0) +811.925;+263,+246,;.01~3 +"DATA",811.8,180,100,5788,0) +811.925;+263,+246,;3~DUR(13)>4 +"DATA",811.8,180,100,5789,0) +811.925;+263,+246,;10~FN(1)>4 +"DATA",811.8,180,100,5790,0) +811.925;+263,+246,;41~0 +"DATA",811.8,180,100,5791,0) +811.925;+263,+246,;42~0 +"DATA",811.8,180,100,5792,0) +811.9255;+264,+261,+246,;.01~1 +"DATA",811.8,180,100,5793,0) +811.9255;+264,+261,+246,;.02~DIFF_DATE +"DATA",811.8,180,100,5794,0) +811.9255;+265,+262,+246,;.01~1 +"DATA",811.8,180,100,5795,0) +811.9255;+265,+262,+246,;.02~DUR +"DATA",811.8,180,100,5796,0) +811.9255;+266,+263,+246,;.01~1 +"DATA",811.8,180,100,5797,0) +811.9255;+266,+263,+246,;.02~DUR +"DATA",811.8,180,100,5798,0) +811.9256;+267,+264,+261,+246,;.01~1 +"DATA",811.8,180,100,5799,0) +811.9256;+268,+265,+262,+246,;.01~8 +"DATA",811.8,180,100,5800,0) +811.9256;+269,+266,+263,+246,;.01~13 +"DATA",811.8,180,100,5801,0) +811.9256;+270,+264,+261,+246,;.01~12 +"DATA",811.8,180,100,5802,0) +811.97;+271,+246,;.01~99Y +"DATA",811.8,180,100,5803,0) +811.97;+271,+246,;1~18 +"DATA",811.8,180,100,5804,0) +811.97;+271,+246,;5~0 +"DATA",811.8,180,100,5805,0) +811.97;+271,+246,;6~0 +"DATA",811.8,180,100,5806,0) +]]> +"DATA",811.8,180,100,5807,0) + +"DATA",811.8,180,100,5808,0) + +"DATA",811.8,180,100,5809,0) + +"DATA",811.8,180,100,5836,0) + +"DATA",811.8,180,100,5837,0) + +"DATA",811.8,180,100,5838,0) + +"DATA",811.8,180,100,5839,0) +REMINDER DEFINITION +"DATA",811.8,180,100,5840,0) +811.9 +"DATA",811.8,180,100,5841,0) +MU VTE-2 NUMER CR +"DATA",811.8,180,100,5842,0) +244 +"DATA",811.8,180,100,5843,0) +308646270 +"DATA",811.8,180,100,5844,0) +NO +"DATA",811.8,180,100,5845,0) + +"DATA",811.8,180,100,5846,0) +1 +"DATA",811.8,180,100,5902,0) +811.925;+255,+244,;10~FN(1)>1 +"DATA",811.8,180,100,5903,0) +811.925;+255,+244,;41~0 +"DATA",811.8,180,100,5904,0) +811.925;+255,+244,;42~0 +"DATA",811.8,180,100,5905,0) +811.925;+256,+244,;.01~3 +"DATA",811.8,180,100,5906,0) +811.925;+256,+244,;3~DIFF_DATE(12,3)<1 +"DATA",811.8,180,100,5907,0) +811.925;+256,+244,;10~FN(1)<1 +"DATA",811.8,180,100,5908,0) +811.925;+256,+244,;41~0 +"DATA",811.8,180,100,5909,0) +811.925;+256,+244,;42~0 +"DATA",811.8,180,100,5910,0) +811.925;+257,+244,;.01~4 +"DATA",811.8,180,100,5911,0) +811.925;+257,+244,;3~MAX_DATE(5,7,4,1)MAX_DATE(3) +"DATA",811.8,180,100,5917,0) +811.925;+258,+244,;10~FN(1)>FN(2) +"DATA",811.8,180,100,5918,0) +811.925;+258,+244,;41~0 +"DATA",811.8,180,100,5919,0) +811.925;+258,+244,;42~0 +"DATA",811.8,180,100,5920,0) +811.925;+259,+244,;.01~6 +"DATA",811.8,180,100,5921,0) +811.925;+259,+244,;3~VALUE(5,1,"START DATE") +"DATA",811.8,180,100,5970,0) + +"DATA",811.8,180,100,5971,0) + +"DATA",811.8,180,100,5972,0) + +"DATA",811.8,180,100,6021,0) + +"DATA",811.8,180,100,6022,0) + +"DATA",811.8,180,100,6023,0) + +"DATA",811.8,180,100,6024,0) +REMINDER DEFINITION +"DATA",811.8,180,100,6025,0) +811.9 +"DATA",811.8,180,100,6026,0) +MU VTE-2 DENOM CR +"DATA",811.8,180,100,6027,0) +210 +"DATA",811.8,180,100,6028,0) +2276423367 +"DATA",811.8,180,100,6029,0) +NO +"DATA",811.8,180,100,6030,0) + +"DATA",811.8,180,100,6031,0) +1 +"DATA",811.8,180,100,6084,0) +811.925;+220,+210,;10~FN(1)>1 +"DATA",811.8,180,100,6085,0) +811.925;+220,+210,;41~0 +"DATA",811.8,180,100,6086,0) +811.925;+220,+210,;42~0 +"DATA",811.8,180,100,6087,0) +811.925;+221,+210,;.01~3 +"DATA",811.8,180,100,6088,0) +811.925;+221,+210,;3~DIFF_DATE(12,3)<1 +"DATA",811.8,180,100,6089,0) +811.925;+221,+210,;10~FN(1)<1 +"DATA",811.8,180,100,6090,0) +811.925;+221,+210,;41~0 +"DATA",811.8,180,100,6091,0) +811.925;+221,+210,;42~0 +"DATA",811.8,180,100,6092,0) +811.925;+222,+210,;.01~4 +"DATA",811.8,180,100,6093,0) +811.925;+222,+210,;3~MAX_DATE(5,7,4,1)MAX_DATE(3) +"DATA",811.8,180,100,6099,0) +811.925;+223,+210,;10~FN(1)>FN(2) +"DATA",811.8,180,100,6100,0) +811.925;+223,+210,;41~0 +"DATA",811.8,180,100,6101,0) +811.925;+223,+210,;42~0 +"DATA",811.8,180,100,6102,0) +811.925;+224,+210,;.01~6 +"DATA",811.8,180,100,6103,0) +811.925;+224,+210,;3~VALUE(5,1,"START DATE") +"DATA",811.8,180,100,6152,0) + +"DATA",811.8,180,100,6153,0) + +"DATA",811.8,180,100,6154,0) + +"DATA",811.8,180,100,6202,0) + +"DATA",811.8,180,100,6203,0) + +"DATA",811.8,180,100,6204,0) + +"DATA",811.8,180,100,6205,0) +REMINDER DEFINITION +"DATA",811.8,180,100,6206,0) +811.9 +"DATA",811.8,180,100,6207,0) +MU STK-1 NUMER CR +"DATA",811.8,180,100,6208,0) +204 +"DATA",811.8,180,100,6209,0) +2839878557 +"DATA",811.8,180,100,6210,0) +NO +"DATA",811.8,180,100,6211,0) + +"DATA",811.8,180,100,6212,0) +1 +"DATA",811.8,180,100,6288,0) +811.925;+228,+204,;10~FN(1)>1 +"DATA",811.8,180,100,6289,0) +811.925;+228,+204,;13~18 +"DATA",811.8,180,100,6290,0) +811.925;+228,+204,;14~99 +"DATA",811.8,180,100,6291,0) +811.925;+228,+204,;41~0 +"DATA",811.8,180,100,6292,0) +811.925;+228,+204,;42~0 +"DATA",811.8,180,100,6293,0) +811.9255;+229,+227,+204,;.01~1 +"DATA",811.8,180,100,6294,0) +811.9255;+229,+227,+204,;.02~DIFF_DATE +"DATA",811.8,180,100,6295,0) +811.9255;+230,+228,+204,;.01~1 +"DATA",811.8,180,100,6296,0) +811.9255;+230,+228,+204,;.02~DIFF_DATE +"DATA",811.8,180,100,6297,0) +811.9256;+231,+229,+227,+204,;.01~3 +"DATA",811.8,180,100,6298,0) +811.9256;+232,+230,+228,+204,;.01~3 +"DATA",811.8,180,100,6299,0) +811.9256;+233,+229,+227,+204,;.01~4 +"DATA",811.8,180,100,6300,0) +811.9256;+234,+230,+228,+204,;.01~4 +"DATA",811.8,180,100,6301,0) +811.97;+235,+204,;.01~99Y +"DATA",811.8,180,100,6302,0) +811.97;+235,+204,;1~18 +"DATA",811.8,180,100,6303,0) +811.97;+235,+204,;2~99 +"DATA",811.8,180,100,6304,0) +811.97;+235,+204,;5~0 +"DATA",811.8,180,100,6305,0) +811.97;+235,+204,;6~0 +"DATA",811.8,180,100,6306,0) +]]> +"DATA",811.8,180,100,6307,0) + +"DATA",811.8,180,100,6308,0) + +"DATA",811.8,180,100,6309,0) + +"DATA",811.8,180,100,6342,0) + +"DATA",811.8,180,100,6343,0) + +"DATA",811.8,180,100,6344,0) + +"DATA",811.8,180,100,6345,0) +REMINDER DEFINITION +"DATA",811.8,180,100,6346,0) +811.9 +"DATA",811.8,180,100,6347,0) +MU VTE-1 DENOM CR +"DATA",811.8,180,100,6348,0) +191 +"DATA",811.8,180,100,6349,0) +171958310 +"DATA",811.8,180,100,6350,0) +NO +"DATA",811.8,180,100,6351,0) + +"DATA",811.8,180,100,6352,0) +1 +"DATA",811.8,180,100,6398,0) +811.925;+199,+191,;10~FN(1)>1 +"DATA",811.8,180,100,6399,0) +811.925;+199,+191,;41~0 +"DATA",811.8,180,100,6400,0) +811.925;+199,+191,;42~0 +"DATA",811.8,180,100,6401,0) +811.925;+200,+191,;.01~3 +"DATA",811.8,180,100,6402,0) +811.925;+200,+191,;3~DIFF_DATE(11,3)>0 +"DATA",811.8,180,100,6403,0) +811.925;+200,+191,;10~FN(1)>0 +"DATA",811.8,180,100,6404,0) +811.925;+200,+191,;41~0 +"DATA",811.8,180,100,6405,0) +811.925;+200,+191,;42~0 +"DATA",811.8,180,100,6406,0) +811.9255;+201,+198,+191,;.01~1 +"DATA",811.8,180,100,6407,0) +811.9255;+201,+198,+191,;.02~DIFF_DATE +"DATA",811.8,180,100,6408,0) +811.9255;+202,+199,+191,;.01~1 +"DATA",811.8,180,100,6409,0) +811.9255;+202,+199,+191,;.02~DIFF_DATE +"DATA",811.8,180,100,6410,0) +811.9255;+203,+200,+191,;.01~1 +"DATA",811.8,180,100,6411,0) +811.9255;+203,+200,+191,;.02~DIFF_DATE +"DATA",811.8,180,100,6412,0) +811.9256;+204,+201,+198,+191,;.01~2 +"DATA",811.8,180,100,6413,0) +811.9256;+205,+202,+199,+191,;.01~2 +"DATA",811.8,180,100,6414,0) +811.9256;+206,+203,+200,+191,;.01~11 +"DATA",811.8,180,100,6415,0) +811.9256;+207,+201,+198,+191,;.01~3 +"DATA",811.8,180,100,6416,0) +811.9256;+208,+202,+199,+191,;.01~3 +"DATA",811.8,180,100,6417,0) +811.9256;+209,+203,+200,+191,;.01~3 +"DATA",811.8,180,100,6418,0) +811.97;+210,+191,;.01~99Y +"DATA",811.8,180,100,6419,0) +811.97;+210,+191,;1~18 +"DATA",811.8,180,100,6420,0) +811.97;+210,+191,;5~0 +"DATA",811.8,180,100,6421,0) +811.97;+210,+191,;6~0 +"DATA",811.8,180,100,6422,0) +]]> +"DATA",811.8,180,100,6423,0) + +"DATA",811.8,180,100,6424,0) + +"DATA",811.8,180,100,6425,0) + +"DATA",811.8,180,100,6446,0) + +"DATA",811.8,180,100,6447,0) + +"DATA",811.8,180,100,6448,0) + +"DATA",811.8,180,100,6449,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6450,0) +810.4 +"DATA",811.8,180,100,6451,0) +MU VTE-6 DENOM RR +"DATA",811.8,180,100,6452,0) +113 +"DATA",811.8,180,100,6453,0) +818724216 +"DATA",811.8,180,100,6454,0) +NO +"DATA",811.8,180,100,6455,0) + +"DATA",811.8,180,100,6456,0) + +"DATA",811.8,180,100,6465,0) + +"DATA",811.8,180,100,6466,0) + +"DATA",811.8,180,100,6467,0) + +"DATA",811.8,180,100,6470,0) + +"DATA",811.8,180,100,6471,0) + +"DATA",811.8,180,100,6472,0) + +"DATA",811.8,180,100,6473,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6474,0) +810.4 +"DATA",811.8,180,100,6475,0) +MU VTE-6 DENOM RS +"DATA",811.8,180,100,6476,0) +162 +"DATA",811.8,180,100,6477,0) +2514996428 +"DATA",811.8,180,100,6478,0) +YES +"DATA",811.8,180,100,6479,0) + +"DATA",811.8,180,100,6480,0) + +"DATA",811.8,180,100,6491,0) + +"DATA",811.8,180,100,6492,0) + +"DATA",811.8,180,100,6493,0) + +"DATA",811.8,180,100,6497,0) + +"DATA",811.8,180,100,6498,0) + +"DATA",811.8,180,100,6499,0) + +"DATA",811.8,180,100,6500,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6501,0) +810.4 +"DATA",811.8,180,100,6502,0) +MU VTE-6 NUMER RR +"DATA",811.8,180,100,6503,0) +112 +"DATA",811.8,180,100,6504,0) +4050644097 +"DATA",811.8,180,100,6505,0) +NO +"DATA",811.8,180,100,6506,0) + +"DATA",811.8,180,100,6507,0) + +"DATA",811.8,180,100,6516,0) + +"DATA",811.8,180,100,6517,0) + +"DATA",811.8,180,100,6518,0) + +"DATA",811.8,180,100,6521,0) + +"DATA",811.8,180,100,6522,0) + +"DATA",811.8,180,100,6523,0) + +"DATA",811.8,180,100,6524,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6525,0) +810.4 +"DATA",811.8,180,100,6526,0) +MU VTE-6 NUMER RS +"DATA",811.8,180,100,6527,0) +158 +"DATA",811.8,180,100,6528,0) +3669180762 +"DATA",811.8,180,100,6529,0) +YES +"DATA",811.8,180,100,6530,0) + +"DATA",811.8,180,100,6531,0) + +"DATA",811.8,180,100,6542,0) + +"DATA",811.8,180,100,6543,0) + +"DATA",811.8,180,100,6544,0) + +"DATA",811.8,180,100,6548,0) + +"DATA",811.8,180,100,6549,0) + +"DATA",811.8,180,100,6550,0) + +"DATA",811.8,180,100,6551,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6552,0) +810.4 +"DATA",811.8,180,100,6553,0) +MU VTE-5 DENOM RR +"DATA",811.8,180,100,6554,0) +111 +"DATA",811.8,180,100,6555,0) +2205703405 +"DATA",811.8,180,100,6556,0) +NO +"DATA",811.8,180,100,6557,0) + +"DATA",811.8,180,100,6558,0) + +"DATA",811.8,180,100,6567,0) + +"DATA",811.8,180,100,6568,0) + +"DATA",811.8,180,100,6569,0) + +"DATA",811.8,180,100,6572,0) + +"DATA",811.8,180,100,6573,0) + +"DATA",811.8,180,100,6574,0) + +"DATA",811.8,180,100,6575,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6576,0) +810.4 +"DATA",811.8,180,100,6577,0) +MU VTE-5 DENOM RS +"DATA",811.8,180,100,6578,0) +156 +"DATA",811.8,180,100,6579,0) +409976344 +"DATA",811.8,180,100,6580,0) +YES +"DATA",811.8,180,100,6581,0) + +"DATA",811.8,180,100,6582,0) + +"DATA",811.8,180,100,6593,0) + +"DATA",811.8,180,100,6594,0) + +"DATA",811.8,180,100,6595,0) + +"DATA",811.8,180,100,6599,0) + +"DATA",811.8,180,100,6600,0) + +"DATA",811.8,180,100,6601,0) + +"DATA",811.8,180,100,6602,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6603,0) +810.4 +"DATA",811.8,180,100,6604,0) +MU VTE-5 NUMER RR +"DATA",811.8,180,100,6605,0) +110 +"DATA",811.8,180,100,6606,0) +1121651988 +"DATA",811.8,180,100,6607,0) +NO +"DATA",811.8,180,100,6608,0) + +"DATA",811.8,180,100,6609,0) + +"DATA",811.8,180,100,6618,0) + +"DATA",811.8,180,100,6619,0) + +"DATA",811.8,180,100,6620,0) + +"DATA",811.8,180,100,6623,0) + +"DATA",811.8,180,100,6624,0) + +"DATA",811.8,180,100,6625,0) + +"DATA",811.8,180,100,6626,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6627,0) +810.4 +"DATA",811.8,180,100,6628,0) +MU VTE-5 NUMER RS +"DATA",811.8,180,100,6629,0) +147 +"DATA",811.8,180,100,6630,0) +1463497614 +"DATA",811.8,180,100,6631,0) +YES +"DATA",811.8,180,100,6632,0) + +"DATA",811.8,180,100,6633,0) + +"DATA",811.8,180,100,6644,0) + +"DATA",811.8,180,100,6645,0) + +"DATA",811.8,180,100,6646,0) + +"DATA",811.8,180,100,6650,0) + +"DATA",811.8,180,100,6651,0) + +"DATA",811.8,180,100,6652,0) + +"DATA",811.8,180,100,6653,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6654,0) +810.4 +"DATA",811.8,180,100,6655,0) +MU VTE-4 DENOM RR +"DATA",811.8,180,100,6656,0) +109 +"DATA",811.8,180,100,6657,0) +1530593697 +"DATA",811.8,180,100,6658,0) +NO +"DATA",811.8,180,100,6659,0) + +"DATA",811.8,180,100,6660,0) + +"DATA",811.8,180,100,6669,0) + +"DATA",811.8,180,100,6670,0) + +"DATA",811.8,180,100,6671,0) + +"DATA",811.8,180,100,6674,0) + +"DATA",811.8,180,100,6675,0) + +"DATA",811.8,180,100,6676,0) + +"DATA",811.8,180,100,6677,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6678,0) +810.4 +"DATA",811.8,180,100,6679,0) +MU VTE-4 DENOM RS +"DATA",811.8,180,100,6680,0) +146 +"DATA",811.8,180,100,6681,0) +1662488660 +"DATA",811.8,180,100,6682,0) +YES +"DATA",811.8,180,100,6683,0) + +"DATA",811.8,180,100,6684,0) + +"DATA",811.8,180,100,6695,0) + +"DATA",811.8,180,100,6696,0) + +"DATA",811.8,180,100,6697,0) + +"DATA",811.8,180,100,6701,0) + +"DATA",811.8,180,100,6702,0) + +"DATA",811.8,180,100,6703,0) + +"DATA",811.8,180,100,6704,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6705,0) +810.4 +"DATA",811.8,180,100,6706,0) +MU VTE-4 NUMER RR +"DATA",811.8,180,100,6707,0) +108 +"DATA",811.8,180,100,6708,0) +2593673304 +"DATA",811.8,180,100,6709,0) +NO +"DATA",811.8,180,100,6710,0) + +"DATA",811.8,180,100,6711,0) + +"DATA",811.8,180,100,6720,0) + +"DATA",811.8,180,100,6721,0) + +"DATA",811.8,180,100,6722,0) + +"DATA",811.8,180,100,6725,0) + +"DATA",811.8,180,100,6726,0) + +"DATA",811.8,180,100,6727,0) + +"DATA",811.8,180,100,6728,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6729,0) +810.4 +"DATA",811.8,180,100,6730,0) +MU VTE-4 NUMER RS +"DATA",811.8,180,100,6731,0) +145 +"DATA",811.8,180,100,6732,0) +742596034 +"DATA",811.8,180,100,6733,0) +YES +"DATA",811.8,180,100,6734,0) + +"DATA",811.8,180,100,6735,0) + +"DATA",811.8,180,100,6746,0) + +"DATA",811.8,180,100,6747,0) + +"DATA",811.8,180,100,6748,0) + +"DATA",811.8,180,100,6752,0) + +"DATA",811.8,180,100,6753,0) + +"DATA",811.8,180,100,6754,0) + +"DATA",811.8,180,100,6755,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6756,0) +810.4 +"DATA",811.8,180,100,6757,0) +MU VTE-3 DENOM RR +"DATA",811.8,180,100,6758,0) +106 +"DATA",811.8,180,100,6759,0) +1063295366 +"DATA",811.8,180,100,6760,0) +NO +"DATA",811.8,180,100,6761,0) + +"DATA",811.8,180,100,6762,0) + +"DATA",811.8,180,100,6771,0) + +"DATA",811.8,180,100,6772,0) + +"DATA",811.8,180,100,6773,0) + +"DATA",811.8,180,100,6776,0) + +"DATA",811.8,180,100,6777,0) + +"DATA",811.8,180,100,6778,0) + +"DATA",811.8,180,100,6779,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6780,0) +810.4 +"DATA",811.8,180,100,6781,0) +MU VTE-3 DENOM RS +"DATA",811.8,180,100,6782,0) +144 +"DATA",811.8,180,100,6783,0) +3624820209 +"DATA",811.8,180,100,6784,0) +YES +"DATA",811.8,180,100,6785,0) + +"DATA",811.8,180,100,6786,0) + +"DATA",811.8,180,100,6797,0) + +"DATA",811.8,180,100,6798,0) + +"DATA",811.8,180,100,6799,0) + +"DATA",811.8,180,100,6803,0) + +"DATA",811.8,180,100,6804,0) + +"DATA",811.8,180,100,6805,0) + +"DATA",811.8,180,100,6806,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6807,0) +810.4 +"DATA",811.8,180,100,6808,0) +MU VTE-3 NUMER RR +"DATA",811.8,180,100,6809,0) +107 +"DATA",811.8,180,100,6810,0) +4274243711 +"DATA",811.8,180,100,6811,0) +NO +"DATA",811.8,180,100,6812,0) + +"DATA",811.8,180,100,6813,0) + +"DATA",811.8,180,100,6822,0) + +"DATA",811.8,180,100,6823,0) + +"DATA",811.8,180,100,6824,0) + +"DATA",811.8,180,100,6827,0) + +"DATA",811.8,180,100,6828,0) + +"DATA",811.8,180,100,6829,0) + +"DATA",811.8,180,100,6830,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6831,0) +810.4 +"DATA",811.8,180,100,6832,0) +MU VTE-3 NUMER RS +"DATA",811.8,180,100,6833,0) +129 +"DATA",811.8,180,100,6834,0) +2539311207 +"DATA",811.8,180,100,6835,0) +YES +"DATA",811.8,180,100,6836,0) + +"DATA",811.8,180,100,6837,0) + +"DATA",811.8,180,100,6848,0) + +"DATA",811.8,180,100,6849,0) + +"DATA",811.8,180,100,6850,0) + +"DATA",811.8,180,100,6854,0) + +"DATA",811.8,180,100,6855,0) + +"DATA",811.8,180,100,6856,0) + +"DATA",811.8,180,100,6857,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6858,0) +810.4 +"DATA",811.8,180,100,6859,0) +MU VTE-2 NUMER RR +"DATA",811.8,180,100,6860,0) +105 +"DATA",811.8,180,100,6861,0) +645961011 +"DATA",811.8,180,100,6862,0) +NO +"DATA",811.8,180,100,6863,0) + +"DATA",811.8,180,100,6864,0) + +"DATA",811.8,180,100,6873,0) + +"DATA",811.8,180,100,6874,0) + +"DATA",811.8,180,100,6875,0) + +"DATA",811.8,180,100,6878,0) + +"DATA",811.8,180,100,6879,0) + +"DATA",811.8,180,100,6880,0) + +"DATA",811.8,180,100,6881,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6882,0) +810.4 +"DATA",811.8,180,100,6883,0) +MU VTE-2 NUMER RS +"DATA",811.8,180,100,6884,0) +128 +"DATA",811.8,180,100,6885,0) +3961716267 +"DATA",811.8,180,100,6886,0) +YES +"DATA",811.8,180,100,6887,0) + +"DATA",811.8,180,100,6888,0) + +"DATA",811.8,180,100,6899,0) + +"DATA",811.8,180,100,6900,0) + +"DATA",811.8,180,100,6901,0) + +"DATA",811.8,180,100,6905,0) + +"DATA",811.8,180,100,6906,0) + +"DATA",811.8,180,100,6907,0) + +"DATA",811.8,180,100,6908,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6909,0) +810.4 +"DATA",811.8,180,100,6910,0) +MU VTE-2 DENOM RR +"DATA",811.8,180,100,6911,0) +70 +"DATA",811.8,180,100,6912,0) +3877881034 +"DATA",811.8,180,100,6913,0) +NO +"DATA",811.8,180,100,6914,0) + +"DATA",811.8,180,100,6915,0) + +"DATA",811.8,180,100,6924,0) + +"DATA",811.8,180,100,6925,0) + +"DATA",811.8,180,100,6926,0) + +"DATA",811.8,180,100,6929,0) + +"DATA",811.8,180,100,6930,0) + +"DATA",811.8,180,100,6931,0) + +"DATA",811.8,180,100,6932,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6933,0) +810.4 +"DATA",811.8,180,100,6934,0) +MU VTE-2 DENOM RS +"DATA",811.8,180,100,6935,0) +71 +"DATA",811.8,180,100,6936,0) +2742449085 +"DATA",811.8,180,100,6937,0) +YES +"DATA",811.8,180,100,6938,0) + +"DATA",811.8,180,100,6939,0) + +"DATA",811.8,180,100,6950,0) + +"DATA",811.8,180,100,6951,0) + +"DATA",811.8,180,100,6952,0) + +"DATA",811.8,180,100,6956,0) + +"DATA",811.8,180,100,6957,0) + +"DATA",811.8,180,100,6958,0) + +"DATA",811.8,180,100,6959,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6960,0) +810.4 +"DATA",811.8,180,100,6961,0) +MU STK-1 NUMER RR +"DATA",811.8,180,100,6962,0) +63 +"DATA",811.8,180,100,6963,0) +384274410 +"DATA",811.8,180,100,6964,0) +NO +"DATA",811.8,180,100,6965,0) + +"DATA",811.8,180,100,6966,0) + +"DATA",811.8,180,100,6975,0) + +"DATA",811.8,180,100,6976,0) + +"DATA",811.8,180,100,6977,0) + +"DATA",811.8,180,100,6980,0) + +"DATA",811.8,180,100,6981,0) + +"DATA",811.8,180,100,6982,0) + +"DATA",811.8,180,100,6983,0) +REMINDER LIST RULE +"DATA",811.8,180,100,6984,0) +810.4 +"DATA",811.8,180,100,6985,0) +MU VTE-1 NUMER RS +"DATA",811.8,180,100,6986,0) +69 +"DATA",811.8,180,100,6987,0) +4234423142 +"DATA",811.8,180,100,6988,0) +YES +"DATA",811.8,180,100,6989,0) + +"DATA",811.8,180,100,6990,0) + +"DATA",811.8,180,100,7001,0) + +"DATA",811.8,180,100,7002,0) + +"DATA",811.8,180,100,7003,0) + +"DATA",811.8,180,100,7007,0) + +"DATA",811.8,180,100,7008,0) + +"DATA",811.8,180,100,7009,0) + +"DATA",811.8,180,100,7010,0) +REMINDER LIST RULE +"DATA",811.8,180,100,7011,0) +810.4 +"DATA",811.8,180,100,7012,0) +MU VTE-1 DENOM RR +"DATA",811.8,180,100,7013,0) +66 +"DATA",811.8,180,100,7014,0) +1419191647 +"DATA",811.8,180,100,7015,0) +NO +"DATA",811.8,180,100,7016,0) + +"DATA",811.8,180,100,7017,0) + +"DATA",811.8,180,100,7026,0) + +"DATA",811.8,180,100,7027,0) + +"DATA",811.8,180,100,7028,0) + +"DATA",811.8,180,100,7031,0) + +"DATA",811.8,180,100,7032,0) + +"DATA",811.8,180,100,7033,0) + +"DATA",811.8,180,100,7034,0) +REMINDER LIST RULE +"DATA",811.8,180,100,7035,0) +810.4 +"DATA",811.8,180,100,7036,0) +MU VTE-1 DENOM RS +"DATA",811.8,180,100,7037,0) +67 +"DATA",811.8,180,100,7038,0) +788398441 +"DATA",811.8,180,100,7039,0) +YES +"DATA",811.8,180,100,7040,0) + +"DATA",811.8,180,100,7041,0) + +"DATA",811.8,180,100,7052,0) + +"DATA",811.8,180,100,7053,0) + +"DATA",811.8,180,100,7054,0) + +"DATA",811.8,180,100,7058,0) + +"DATA",811.8,180,100,7059,0) + +"DATA",811.8,180,100,7060,0) + +"DATA",811.8,180,100,7061,0) +119 +"DATA",811.8,180,100,7062,0) + +"DATA",811.8,180,100,7063,0) +47 +"DATA",811.8,180,100,7064,0) +133 +"DATA",811.8,180,100,7065,0) +52 +"DATA",811.8,180,100,7066,0) + +"DATA",811.8,180,100,7067,0) + +"DATA",811.8,180,100,7068,0) +146 +"DATA",811.8,180,100,7069,0) +146 +"DATA",811.8,180,100,7070,0) +137 +"DATA",811.8,180,100,7071,0) + +"DATA",811.8,180,100,7072,0) + +"DATA",811.8,180,100,7073,0) +159 +"DATA",811.8,180,100,7074,0) +159 +"DATA",811.8,180,100,7075,0) +150 +"DATA",811.8,180,100,7076,0) + +"DATA",811.8,180,100,7077,0) + +"DATA",811.8,180,100,7078,0) +172 +"DATA",811.8,180,100,7079,0) +172 +"DATA",811.8,180,100,7080,0) +163 +"DATA",811.8,180,100,7081,0) + +"DATA",811.8,180,100,7082,0) + +"DATA",811.8,180,100,7083,0) +185 +"DATA",811.8,180,100,7084,0) +185 +"DATA",811.8,180,100,7085,0) +176 +"DATA",811.8,180,100,7086,0) + +"DATA",811.8,180,100,7087,0) + +"DATA",811.8,180,100,7088,0) +198 +"DATA",811.8,180,100,7089,0) +198 +"DATA",811.8,180,100,7090,0) +189 +"DATA",811.8,180,100,7091,0) + +"DATA",811.8,180,100,7092,0) + +"DATA",811.8,180,100,7093,0) +211 +"DATA",811.8,180,100,7094,0) +211 +"DATA",811.8,180,100,7095,0) +202 +"DATA",811.8,180,100,7096,0) + +"DATA",811.8,180,100,7097,0) + +"DATA",811.8,180,100,7098,0) +224 +"DATA",811.8,180,100,7099,0) +224 +"DATA",811.8,180,100,7100,0) +215 +"DATA",811.8,180,100,7101,0) + +"DATA",811.8,180,100,7102,0) + +"DATA",811.8,180,100,7103,0) +238 +"DATA",811.8,180,100,7104,0) +237 +"DATA",811.8,180,100,7105,0) +228 +"DATA",811.8,180,100,7106,0) + +"DATA",811.8,180,100,7107,0) + +"DATA",811.8,180,100,7108,0) +255 +"DATA",811.8,180,100,7109,0) +251 +"DATA",811.8,180,100,7110,0) +242 +"DATA",811.8,180,100,7111,0) + +"DATA",811.8,180,100,7112,0) + +"DATA",811.8,180,100,7113,0) +272 +"DATA",811.8,180,100,7114,0) +268 +"DATA",811.8,180,100,7115,0) +259 +"DATA",811.8,180,100,7116,0) + +"DATA",811.8,180,100,7117,0) + +"DATA",811.8,180,100,7118,0) +289 +"DATA",811.8,180,100,7119,0) +285 +"DATA",811.8,180,100,7120,0) +276 +"DATA",811.8,180,100,7121,0) + +"DATA",811.8,180,100,7122,0) + +"DATA",811.8,180,100,7123,0) +306 +"DATA",811.8,180,100,7124,0) +302 +"DATA",811.8,180,100,7125,0) +293 +"DATA",811.8,180,100,7126,0) + +"DATA",811.8,180,100,7127,0) + +"DATA",811.8,180,100,7128,0) +323 +"DATA",811.8,180,100,7129,0) +319 +"DATA",811.8,180,100,7130,0) +310 +"DATA",811.8,180,100,7131,0) + +"DATA",811.8,180,100,7132,0) + +"DATA",811.8,180,100,7133,0) +340 +"DATA",811.8,180,100,7134,0) +336 +"DATA",811.8,180,100,7135,0) +327 +"DATA",811.8,180,100,7136,0) + +"DATA",811.8,180,100,7137,0) + +"DATA",811.8,180,100,7138,0) +357 +"DATA",811.8,180,100,7139,0) +353 +"DATA",811.8,180,100,7140,0) +344 +"DATA",811.8,180,100,7141,0) + +"DATA",811.8,180,100,7142,0) + +"DATA",811.8,180,100,7143,0) +374 +"DATA",811.8,180,100,7144,0) +370 +"DATA",811.8,180,100,7145,0) +361 +"DATA",811.8,180,100,7146,0) + +"DATA",811.8,180,100,7147,0) + +"DATA",811.8,180,100,7148,0) +391 +"DATA",811.8,180,100,7149,0) +387 +"DATA",811.8,180,100,7150,0) +378 +"DATA",811.8,180,100,7151,0) + +"DATA",811.8,180,100,7152,0) + +"DATA",811.8,180,100,7153,0) +408 +"DATA",811.8,180,100,7154,0) +404 +"DATA",811.8,180,100,7155,0) +395 +"DATA",811.8,180,100,7156,0) + +"DATA",811.8,180,100,7157,0) + +"DATA",811.8,180,100,7158,0) +425 +"DATA",811.8,180,100,7159,0) +421 +"DATA",811.8,180,100,7160,0) +412 +"DATA",811.8,180,100,7161,0) + +"DATA",811.8,180,100,7162,0) + +"DATA",811.8,180,100,7163,0) +442 +"DATA",811.8,180,100,7164,0) +438 +"DATA",811.8,180,100,7165,0) +429 +"DATA",811.8,180,100,7166,0) + +"DATA",811.8,180,100,7167,0) + +"DATA",811.8,180,100,7168,0) +459 +"DATA",811.8,180,100,7169,0) +455 +"DATA",811.8,180,100,7170,0) +446 +"DATA",811.8,180,100,7171,0) + +"DATA",811.8,180,100,7172,0) + +"DATA",811.8,180,100,7173,0) +476 +"DATA",811.8,180,100,7174,0) +472 +"DATA",811.8,180,100,7175,0) +463 +"DATA",811.8,180,100,7176,0) + +"DATA",811.8,180,100,7177,0) + +"DATA",811.8,180,100,7178,0) +493 +"DATA",811.8,180,100,7179,0) +489 +"DATA",811.8,180,100,7180,0) +480 +"DATA",811.8,180,100,7181,0) + +"DATA",811.8,180,100,7182,0) + +"DATA",811.8,180,100,7183,0) +510 +"DATA",811.8,180,100,7184,0) +506 +"DATA",811.8,180,100,7185,0) +497 +"DATA",811.8,180,100,7186,0) + +"DATA",811.8,180,100,7187,0) + +"DATA",811.8,180,100,7188,0) +527 +"DATA",811.8,180,100,7189,0) +523 +"DATA",811.8,180,100,7190,0) +514 +"DATA",811.8,180,100,7191,0) + +"DATA",811.8,180,100,7192,0) + +"DATA",811.8,180,100,7193,0) +544 +"DATA",811.8,180,100,7194,0) +540 +"DATA",811.8,180,100,7195,0) +531 +"DATA",811.8,180,100,7196,0) + +"DATA",811.8,180,100,7197,0) + +"DATA",811.8,180,100,7198,0) +561 +"DATA",811.8,180,100,7199,0) +557 +"DATA",811.8,180,100,7200,0) +548 +"DATA",811.8,180,100,7201,0) + +"DATA",811.8,180,100,7202,0) + +"DATA",811.8,180,100,7203,0) +578 +"DATA",811.8,180,100,7204,0) +574 +"DATA",811.8,180,100,7205,0) +565 +"DATA",811.8,180,100,7206,0) + +"DATA",811.8,180,100,7207,0) + +"DATA",811.8,180,100,7208,0) +629 +"DATA",811.8,180,100,7209,0) +591 +"DATA",811.8,180,100,7210,0) +582 +"DATA",811.8,180,100,7211,0) +634 +"DATA",811.8,180,100,7212,0) +634 +"DATA",811.8,180,100,7213,0) + +"DATA",811.8,180,100,7214,0) + +"DATA",811.8,180,100,7215,0) +682 +"DATA",811.8,180,100,7216,0) +647 +"DATA",811.8,180,100,7217,0) +638 +"DATA",811.8,180,100,7218,0) +687 +"DATA",811.8,180,100,7219,0) +687 +"DATA",811.8,180,100,7220,0) + +"DATA",811.8,180,100,7221,0) + +"DATA",811.8,180,100,7222,0) +766 +"DATA",811.8,180,100,7223,0) +700 +"DATA",811.8,180,100,7224,0) +691 +"DATA",811.8,180,100,7225,0) +786 +"DATA",811.8,180,100,7226,0) +771 +"DATA",811.8,180,100,7227,0) + +"DATA",811.8,180,100,7228,0) + +"DATA",811.8,180,100,7229,0) +845 +"DATA",811.8,180,100,7230,0) +799 +"DATA",811.8,180,100,7231,0) +790 +"DATA",811.8,180,100,7232,0) +860 +"DATA",811.8,180,100,7233,0) +850 +"DATA",811.8,180,100,7234,0) + +"DATA",811.8,180,100,7235,0) + +"DATA",811.8,180,100,7236,0) +938 +"DATA",811.8,180,100,7237,0) +873 +"DATA",811.8,180,100,7238,0) +864 +"DATA",811.8,180,100,7239,0) +958 +"DATA",811.8,180,100,7240,0) +943 +"DATA",811.8,180,100,7241,0) + +"DATA",811.8,180,100,7242,0) + +"DATA",811.8,180,100,7243,0) +1016 +"DATA",811.8,180,100,7244,0) +971 +"DATA",811.8,180,100,7245,0) +962 +"DATA",811.8,180,100,7246,0) +1031 +"DATA",811.8,180,100,7247,0) +1021 +"DATA",811.8,180,100,7248,0) + +"DATA",811.8,180,100,7249,0) + +"DATA",811.8,180,100,7250,0) +1077 +"DATA",811.8,180,100,7251,0) +1044 +"DATA",811.8,180,100,7252,0) +1035 +"DATA",811.8,180,100,7253,0) +1089 +"DATA",811.8,180,100,7254,0) +1082 +"DATA",811.8,180,100,7255,0) + +"DATA",811.8,180,100,7256,0) + +"DATA",811.8,180,100,7257,0) +1519 +"DATA",811.8,180,100,7258,0) +1102 +"DATA",811.8,180,100,7259,0) +1093 +"DATA",811.8,180,100,7260,0) +1627 +"DATA",811.8,180,100,7261,0) +1524 +"DATA",811.8,180,100,7262,0) + +"DATA",811.8,180,100,7263,0) + +"DATA",811.8,180,100,7264,0) +1709 +"DATA",811.8,180,100,7265,0) +1640 +"DATA",811.8,180,100,7266,0) +1631 +"DATA",811.8,180,100,7267,0) +1730 +"DATA",811.8,180,100,7268,0) +1714 +"DATA",811.8,180,100,7269,0) + +"DATA",811.8,180,100,7270,0) + +"DATA",811.8,180,100,7271,0) +1800 +"DATA",811.8,180,100,7272,0) +1743 +"DATA",811.8,180,100,7273,0) +1734 +"DATA",811.8,180,100,7274,0) +1818 +"DATA",811.8,180,100,7275,0) +1805 +"DATA",811.8,180,100,7276,0) + +"DATA",811.8,180,100,7277,0) + +"DATA",811.8,180,100,7278,0) +1852 +"DATA",811.8,180,100,7279,0) +1831 +"DATA",811.8,180,100,7280,0) +1822 +"DATA",811.8,180,100,7281,0) +1861 +"DATA",811.8,180,100,7282,0) +1857 +"DATA",811.8,180,100,7283,0) + +"DATA",811.8,180,100,7284,0) + +"DATA",811.8,180,100,7285,0) +1887 +"DATA",811.8,180,100,7286,0) +1874 +"DATA",811.8,180,100,7287,0) +1865 +"DATA",811.8,180,100,7288,0) +1894 +"DATA",811.8,180,100,7289,0) +1892 +"DATA",811.8,180,100,7290,0) + +"DATA",811.8,180,100,7291,0) + +"DATA",811.8,180,100,7292,0) +1916 +"DATA",811.8,180,100,7293,0) +1907 +"DATA",811.8,180,100,7294,0) +1898 +"DATA",811.8,180,100,7295,0) +1922 +"DATA",811.8,180,100,7296,0) +1921 +"DATA",811.8,180,100,7297,0) + +"DATA",811.8,180,100,7298,0) + +"DATA",811.8,180,100,7299,0) +2672 +"DATA",811.8,180,100,7300,0) +1935 +"DATA",811.8,180,100,7301,0) +1926 +"DATA",811.8,180,100,7302,0) +2860 +"DATA",811.8,180,100,7303,0) +2677 +"DATA",811.8,180,100,7304,0) + +"DATA",811.8,180,100,7305,0) + +"DATA",811.8,180,100,7306,0) +2931 +"DATA",811.8,180,100,7307,0) +2873 +"DATA",811.8,180,100,7308,0) +2864 +"DATA",811.8,180,100,7309,0) +2949 +"DATA",811.8,180,100,7310,0) +2936 +"DATA",811.8,180,100,7311,0) + +"DATA",811.8,180,100,7312,0) + +"DATA",811.8,180,100,7313,0) +2979 +"DATA",811.8,180,100,7314,0) +2962 +"DATA",811.8,180,100,7315,0) +2953 +"DATA",811.8,180,100,7316,0) +2987 +"DATA",811.8,180,100,7317,0) +2984 +"DATA",811.8,180,100,7318,0) + +"DATA",811.8,180,100,7319,0) + +"DATA",811.8,180,100,7320,0) +3593 +"DATA",811.8,180,100,7321,0) +3000 +"DATA",811.8,180,100,7322,0) +2991 +"DATA",811.8,180,100,7323,0) +3745 +"DATA",811.8,180,100,7324,0) +3598 +"DATA",811.8,180,100,7325,0) + +"DATA",811.8,180,100,7326,0) + +"DATA",811.8,180,100,7327,0) +3771 +"DATA",811.8,180,100,7328,0) +3758 +"DATA",811.8,180,100,7329,0) +3749 +"DATA",811.8,180,100,7330,0) +3778 +"DATA",811.8,180,100,7331,0) +3776 +"DATA",811.8,180,100,7332,0) + +"DATA",811.8,180,100,7333,0) + +"DATA",811.8,180,100,7334,0) +3844 +"DATA",811.8,180,100,7335,0) +3791 +"DATA",811.8,180,100,7336,0) +3782 +"DATA",811.8,180,100,7337,0) +3861 +"DATA",811.8,180,100,7338,0) +3849 +"DATA",811.8,180,100,7339,0) + +"DATA",811.8,180,100,7340,0) + +"DATA",811.8,180,100,7341,0) +3879 +"DATA",811.8,180,100,7342,0) +3874 +"DATA",811.8,180,100,7343,0) +3865 +"DATA",811.8,180,100,7344,0) +3885 +"DATA",811.8,180,100,7345,0) +3884 +"DATA",811.8,180,100,7346,0) + +"DATA",811.8,180,100,7347,0) + +"DATA",811.8,180,100,7348,0) +3903 +"DATA",811.8,180,100,7349,0) +3898 +"DATA",811.8,180,100,7350,0) +3889 +"DATA",811.8,180,100,7351,0) +3909 +"DATA",811.8,180,100,7352,0) +3908 +"DATA",811.8,180,100,7353,0) + +"DATA",811.8,180,100,7354,0) + +"DATA",811.8,180,100,7355,0) +3927 +"DATA",811.8,180,100,7356,0) +3922 +"DATA",811.8,180,100,7357,0) +3913 +"DATA",811.8,180,100,7358,0) +3933 +"DATA",811.8,180,100,7359,0) +3932 +"DATA",811.8,180,100,7360,0) + +"DATA",811.8,180,100,7361,0) + +"DATA",811.8,180,100,7362,0) +3954 +"DATA",811.8,180,100,7363,0) +3946 +"DATA",811.8,180,100,7364,0) +3937 +"DATA",811.8,180,100,7365,0) +3963 +"DATA",811.8,180,100,7366,0) +3959 +"DATA",811.8,180,100,7367,0) + +"DATA",811.8,180,100,7368,0) + +"DATA",811.8,180,100,7369,0) +3982 +"DATA",811.8,180,100,7370,0) +3976 +"DATA",811.8,180,100,7371,0) +3967 +"DATA",811.8,180,100,7372,0) +3989 +"DATA",811.8,180,100,7373,0) +3987 +"DATA",811.8,180,100,7374,0) + +"DATA",811.8,180,100,7375,0) + +"DATA",811.8,180,100,7376,0) +4010 +"DATA",811.8,180,100,7377,0) +4002 +"DATA",811.8,180,100,7378,0) +3993 +"DATA",811.8,180,100,7379,0) +4016 +"DATA",811.8,180,100,7380,0) +4015 +"DATA",811.8,180,100,7381,0) + +"DATA",811.8,180,100,7382,0) + +"DATA",811.8,180,100,7383,0) +4039 +"DATA",811.8,180,100,7384,0) +4029 +"DATA",811.8,180,100,7385,0) +4020 +"DATA",811.8,180,100,7386,0) +4050 +"DATA",811.8,180,100,7387,0) +4044 +"DATA",811.8,180,100,7388,0) + +"DATA",811.8,180,100,7389,0) + +"DATA",811.8,180,100,7390,0) +4070 +"DATA",811.8,180,100,7391,0) +4063 +"DATA",811.8,180,100,7392,0) +4054 +"DATA",811.8,180,100,7393,0) +4078 +"DATA",811.8,180,100,7394,0) +4075 +"DATA",811.8,180,100,7395,0) + +"DATA",811.8,180,100,7396,0) + +"DATA",811.8,180,100,7397,0) +4100 +"DATA",811.8,180,100,7398,0) +4091 +"DATA",811.8,180,100,7399,0) +4082 +"DATA",811.8,180,100,7400,0) +4110 +"DATA",811.8,180,100,7401,0) +4105 +"DATA",811.8,180,100,7402,0) + +"DATA",811.8,180,100,7403,0) + +"DATA",811.8,180,100,7404,0) +4128 +"DATA",811.8,180,100,7405,0) +4123 +"DATA",811.8,180,100,7406,0) +4114 +"DATA",811.8,180,100,7407,0) +4134 +"DATA",811.8,180,100,7408,0) +4133 +"DATA",811.8,180,100,7409,0) + +"DATA",811.8,180,100,7410,0) + +"DATA",811.8,180,100,7411,0) +4152 +"DATA",811.8,180,100,7412,0) +4147 +"DATA",811.8,180,100,7413,0) +4138 +"DATA",811.8,180,100,7414,0) +4158 +"DATA",811.8,180,100,7415,0) +4157 +"DATA",811.8,180,100,7416,0) + +"DATA",811.8,180,100,7417,0) + +"DATA",811.8,180,100,7418,0) +4177 +"DATA",811.8,180,100,7419,0) +4171 +"DATA",811.8,180,100,7420,0) +4162 +"DATA",811.8,180,100,7421,0) +4184 +"DATA",811.8,180,100,7422,0) +4182 +"DATA",811.8,180,100,7423,0) + +"DATA",811.8,180,100,7424,0) + +"DATA",811.8,180,100,7425,0) +4205 +"DATA",811.8,180,100,7426,0) +4197 +"DATA",811.8,180,100,7427,0) +4188 +"DATA",811.8,180,100,7428,0) +4211 +"DATA",811.8,180,100,7429,0) +4210 +"DATA",811.8,180,100,7430,0) + +"DATA",811.8,180,100,7431,0) + +"DATA",811.8,180,100,7432,0) +4232 +"DATA",811.8,180,100,7433,0) +4224 +"DATA",811.8,180,100,7434,0) +4215 +"DATA",811.8,180,100,7435,0) +4238 +"DATA",811.8,180,100,7436,0) +4237 +"DATA",811.8,180,100,7437,0) + +"DATA",811.8,180,100,7438,0) + +"DATA",811.8,180,100,7439,0) +4259 +"DATA",811.8,180,100,7440,0) +4251 +"DATA",811.8,180,100,7441,0) +4242 +"DATA",811.8,180,100,7442,0) +4265 +"DATA",811.8,180,100,7443,0) +4264 +"DATA",811.8,180,100,7444,0) + +"DATA",811.8,180,100,7445,0) + +"DATA",811.8,180,100,7446,0) +4283 +"DATA",811.8,180,100,7447,0) +4278 +"DATA",811.8,180,100,7448,0) +4269 +"DATA",811.8,180,100,7449,0) +4289 +"DATA",811.8,180,100,7450,0) +4288 +"DATA",811.8,180,100,7451,0) + +"DATA",811.8,180,100,7452,0) + +"DATA",811.8,180,100,7453,0) +4310 +"DATA",811.8,180,100,7454,0) +4302 +"DATA",811.8,180,100,7455,0) +4293 +"DATA",811.8,180,100,7456,0) +4316 +"DATA",811.8,180,100,7457,0) +4315 +"DATA",811.8,180,100,7458,0) + +"DATA",811.8,180,100,7459,0) + +"DATA",811.8,180,100,7460,0) +4337 +"DATA",811.8,180,100,7461,0) +4329 +"DATA",811.8,180,100,7462,0) +4320 +"DATA",811.8,180,100,7463,0) +4343 +"DATA",811.8,180,100,7464,0) +4342 +"DATA",811.8,180,100,7465,0) + +"DATA",811.8,180,100,7466,0) + +"DATA",811.8,180,100,7467,0) +4364 +"DATA",811.8,180,100,7468,0) +4356 +"DATA",811.8,180,100,7469,0) +4347 +"DATA",811.8,180,100,7470,0) +4373 +"DATA",811.8,180,100,7471,0) +4369 +"DATA",811.8,180,100,7472,0) + +"DATA",811.8,180,100,7473,0) + +"DATA",811.8,180,100,7474,0) +4394 +"DATA",811.8,180,100,7475,0) +4386 +"DATA",811.8,180,100,7476,0) +4377 +"DATA",811.8,180,100,7477,0) +4400 +"DATA",811.8,180,100,7478,0) +4399 +"DATA",811.8,180,100,7479,0) + +"DATA",811.8,180,100,7480,0) + +"DATA",811.8,180,100,7481,0) +4421 +"DATA",811.8,180,100,7482,0) +4413 +"DATA",811.8,180,100,7483,0) +4404 +"DATA",811.8,180,100,7484,0) +4427 +"DATA",811.8,180,100,7485,0) +4426 +"DATA",811.8,180,100,7486,0) + +"DATA",811.8,180,100,7487,0) + +"DATA",811.8,180,100,7488,0) +4445 +"DATA",811.8,180,100,7489,0) +4440 +"DATA",811.8,180,100,7490,0) +4431 +"DATA",811.8,180,100,7491,0) +4451 +"DATA",811.8,180,100,7492,0) +4450 +"DATA",811.8,180,100,7493,0) + +"DATA",811.8,180,100,7494,0) + +"DATA",811.8,180,100,7495,0) +4470 +"DATA",811.8,180,100,7496,0) +4464 +"DATA",811.8,180,100,7497,0) +4455 +"DATA",811.8,180,100,7498,0) +4477 +"DATA",811.8,180,100,7499,0) +4475 +"DATA",811.8,180,100,7500,0) + +"DATA",811.8,180,100,7501,0) + +"DATA",811.8,180,100,7502,0) +4496 +"DATA",811.8,180,100,7503,0) +4490 +"DATA",811.8,180,100,7504,0) +4481 +"DATA",811.8,180,100,7505,0) +4503 +"DATA",811.8,180,100,7506,0) +4501 +"DATA",811.8,180,100,7507,0) + +"DATA",811.8,180,100,7508,0) + +"DATA",811.8,180,100,7509,0) +4523 +"DATA",811.8,180,100,7510,0) +4516 +"DATA",811.8,180,100,7511,0) +4507 +"DATA",811.8,180,100,7512,0) +4529 +"DATA",811.8,180,100,7513,0) +4528 +"DATA",811.8,180,100,7514,0) + +"DATA",811.8,180,100,7515,0) + +"DATA",811.8,180,100,7516,0) +4549 +"DATA",811.8,180,100,7517,0) +4542 +"DATA",811.8,180,100,7518,0) +4533 +"DATA",811.8,180,100,7519,0) +4555 +"DATA",811.8,180,100,7520,0) +4554 +"DATA",811.8,180,100,7521,0) + +"DATA",811.8,180,100,7522,0) + +"DATA",811.8,180,100,7523,0) +4575 +"DATA",811.8,180,100,7524,0) +4568 +"DATA",811.8,180,100,7525,0) +4559 +"DATA",811.8,180,100,7526,0) +4583 +"DATA",811.8,180,100,7527,0) +4580 +"DATA",811.8,180,100,7528,0) + +"DATA",811.8,180,100,7529,0) + +"DATA",811.8,180,100,7530,0) +4607 +"DATA",811.8,180,100,7531,0) +4596 +"DATA",811.8,180,100,7532,0) +4587 +"DATA",811.8,180,100,7533,0) +4619 +"DATA",811.8,180,100,7534,0) +4612 +"DATA",811.8,180,100,7535,0) + +"DATA",811.8,180,100,7536,0) + +"DATA",811.8,180,100,7537,0) +4648 +"DATA",811.8,180,100,7538,0) +4632 +"DATA",811.8,180,100,7539,0) +4623 +"DATA",811.8,180,100,7540,0) +4663 +"DATA",811.8,180,100,7541,0) +4653 +"DATA",811.8,180,100,7542,0) + +"DATA",811.8,180,100,7543,0) + +"DATA",811.8,180,100,7544,0) +4685 +"DATA",811.8,180,100,7545,0) +4676 +"DATA",811.8,180,100,7546,0) +4667 +"DATA",811.8,180,100,7547,0) +4693 +"DATA",811.8,180,100,7548,0) +4690 +"DATA",811.8,180,100,7549,0) + +"DATA",811.8,180,100,7550,0) + +"DATA",811.8,180,100,7551,0) +4713 +"DATA",811.8,180,100,7552,0) +4706 +"DATA",811.8,180,100,7553,0) +4697 +"DATA",811.8,180,100,7554,0) +4719 +"DATA",811.8,180,100,7555,0) +4718 +"DATA",811.8,180,100,7556,0) + +"DATA",811.8,180,100,7557,0) + +"DATA",811.8,180,100,7558,0) +4740 +"DATA",811.8,180,100,7559,0) +4732 +"DATA",811.8,180,100,7560,0) +4723 +"DATA",811.8,180,100,7561,0) +4749 +"DATA",811.8,180,100,7562,0) +4745 +"DATA",811.8,180,100,7563,0) + +"DATA",811.8,180,100,7564,0) + +"DATA",811.8,180,100,7565,0) +4772 +"DATA",811.8,180,100,7566,0) +4762 +"DATA",811.8,180,100,7567,0) +4753 +"DATA",811.8,180,100,7568,0) +4781 +"DATA",811.8,180,100,7569,0) +4777 +"DATA",811.8,180,100,7570,0) + +"DATA",811.8,180,100,7571,0) + +"DATA",811.8,180,100,7572,0) +4813 +"DATA",811.8,180,100,7573,0) +4794 +"DATA",811.8,180,100,7574,0) +4785 +"DATA",811.8,180,100,7575,0) +4831 +"DATA",811.8,180,100,7576,0) +4818 +"DATA",811.8,180,100,7577,0) + +"DATA",811.8,180,100,7578,0) + +"DATA",811.8,180,100,7579,0) +4852 +"DATA",811.8,180,100,7580,0) +4844 +"DATA",811.8,180,100,7581,0) +4835 +"DATA",811.8,180,100,7582,0) +4859 +"DATA",811.8,180,100,7583,0) +4857 +"DATA",811.8,180,100,7584,0) + +"DATA",811.8,180,100,7585,0) + +"DATA",811.8,180,100,7586,0) +4958 +"DATA",811.8,180,100,7587,0) +4872 +"DATA",811.8,180,100,7588,0) +4863 +"DATA",811.8,180,100,7589,0) +4988 +"DATA",811.8,180,100,7590,0) +4963 +"DATA",811.8,180,100,7591,0) + +"DATA",811.8,180,100,7592,0) + +"DATA",811.8,180,100,7593,0) +5101 +"DATA",811.8,180,100,7594,0) +5001 +"DATA",811.8,180,100,7595,0) +4992 +"DATA",811.8,180,100,7596,0) +5137 +"DATA",811.8,180,100,7597,0) +5106 +"DATA",811.8,180,100,7598,0) + +"DATA",811.8,180,100,7599,0) + +"DATA",811.8,180,100,7600,0) +5232 +"DATA",811.8,180,100,7601,0) +5150 +"DATA",811.8,180,100,7602,0) +5141 +"DATA",811.8,180,100,7603,0) +5260 +"DATA",811.8,180,100,7604,0) +5237 +"DATA",811.8,180,100,7605,0) + +"DATA",811.8,180,100,7606,0) + +"DATA",811.8,180,100,7607,0) +5356 +"DATA",811.8,180,100,7608,0) +5273 +"DATA",811.8,180,100,7609,0) +5264 +"DATA",811.8,180,100,7610,0) +5384 +"DATA",811.8,180,100,7611,0) +5361 +"DATA",811.8,180,100,7612,0) + +"DATA",811.8,180,100,7613,0) + +"DATA",811.8,180,100,7614,0) +5469 +"DATA",811.8,180,100,7615,0) +5397 +"DATA",811.8,180,100,7616,0) +5388 +"DATA",811.8,180,100,7617,0) +5492 +"DATA",811.8,180,100,7618,0) +5474 +"DATA",811.8,180,100,7619,0) + +"DATA",811.8,180,100,7620,0) + +"DATA",811.8,180,100,7621,0) +5580 +"DATA",811.8,180,100,7622,0) +5505 +"DATA",811.8,180,100,7623,0) +5496 +"DATA",811.8,180,100,7624,0) +5604 +"DATA",811.8,180,100,7625,0) +5585 +"DATA",811.8,180,100,7626,0) + +"DATA",811.8,180,100,7627,0) + +"DATA",811.8,180,100,7628,0) +5682 +"DATA",811.8,180,100,7629,0) +5617 +"DATA",811.8,180,100,7630,0) +5608 +"DATA",811.8,180,100,7631,0) +5702 +"DATA",811.8,180,100,7632,0) +5687 +"DATA",811.8,180,100,7633,0) + +"DATA",811.8,180,100,7634,0) + +"DATA",811.8,180,100,7635,0) +5805 +"DATA",811.8,180,100,7636,0) +5715 +"DATA",811.8,180,100,7637,0) +5706 +"DATA",811.8,180,100,7638,0) +5834 +"DATA",811.8,180,100,7639,0) +5810 +"DATA",811.8,180,100,7640,0) + +"DATA",811.8,180,100,7641,0) + +"DATA",811.8,180,100,7642,0) +5968 +"DATA",811.8,180,100,7643,0) +5847 +"DATA",811.8,180,100,7644,0) +5838 +"DATA",811.8,180,100,7645,0) +6019 +"DATA",811.8,180,100,7646,0) +5973 +"DATA",811.8,180,100,7647,0) + +"DATA",811.8,180,100,7648,0) + +"DATA",811.8,180,100,7649,0) +6150 +"DATA",811.8,180,100,7650,0) +6032 +"DATA",811.8,180,100,7651,0) +6023 +"DATA",811.8,180,100,7652,0) +6200 +"DATA",811.8,180,100,7653,0) +6155 +"DATA",811.8,180,100,7654,0) + +"DATA",811.8,180,100,7655,0) + +"DATA",811.8,180,100,7656,0) +6305 +"DATA",811.8,180,100,7657,0) +6213 +"DATA",811.8,180,100,7658,0) +6204 +"DATA",811.8,180,100,7659,0) +6340 +"DATA",811.8,180,100,7660,0) +6310 +"DATA",811.8,180,100,7661,0) + +"DATA",811.8,180,100,7662,0) + +"DATA",811.8,180,100,7663,0) +6421 +"DATA",811.8,180,100,7664,0) +6353 +"DATA",811.8,180,100,7665,0) +6344 +"DATA",811.8,180,100,7666,0) +6444 +"DATA",811.8,180,100,7667,0) +6426 +"DATA",811.8,180,100,7668,0) + +"DATA",811.8,180,100,7669,0) + +"DATA",811.8,180,100,7670,0) +6463 +"DATA",811.8,180,100,7671,0) +6457 +"DATA",811.8,180,100,7672,0) +6448 +"DATA",811.8,180,100,7673,0) +6468 +"DATA",811.8,180,100,7674,0) +6468 +"DATA",811.8,180,100,7675,0) + +"DATA",811.8,180,100,7676,0) + +"DATA",811.8,180,100,7677,0) +6489 +"DATA",811.8,180,100,7678,0) +6481 +"DATA",811.8,180,100,7679,0) +6472 +"DATA",811.8,180,100,7680,0) +6495 +"DATA",811.8,180,100,7681,0) +6494 +"DATA",811.8,180,100,7682,0) + +"DATA",811.8,180,100,7683,0) + +"DATA",811.8,180,100,7684,0) +6514 +"DATA",811.8,180,100,7685,0) +6508 +"DATA",811.8,180,100,7686,0) +6499 +"DATA",811.8,180,100,7687,0) +6519 +"DATA",811.8,180,100,7688,0) +6519 +"DATA",811.8,180,100,7689,0) + +"DATA",811.8,180,100,7690,0) + +"DATA",811.8,180,100,7691,0) +6540 +"DATA",811.8,180,100,7692,0) +6532 +"DATA",811.8,180,100,7693,0) +6523 +"DATA",811.8,180,100,7694,0) +6546 +"DATA",811.8,180,100,7695,0) +6545 +"DATA",811.8,180,100,7696,0) + +"DATA",811.8,180,100,7697,0) + +"DATA",811.8,180,100,7698,0) +6565 +"DATA",811.8,180,100,7699,0) +6559 +"DATA",811.8,180,100,7700,0) +6550 +"DATA",811.8,180,100,7701,0) +6570 +"DATA",811.8,180,100,7702,0) +6570 +"DATA",811.8,180,100,7703,0) + +"DATA",811.8,180,100,7704,0) + +"DATA",811.8,180,100,7705,0) +6591 +"DATA",811.8,180,100,7706,0) +6583 +"DATA",811.8,180,100,7707,0) +6574 +"DATA",811.8,180,100,7708,0) +6597 +"DATA",811.8,180,100,7709,0) +6596 +"DATA",811.8,180,100,7710,0) + +"DATA",811.8,180,100,7711,0) + +"DATA",811.8,180,100,7712,0) +6616 +"DATA",811.8,180,100,7713,0) +6610 +"DATA",811.8,180,100,7714,0) +6601 +"DATA",811.8,180,100,7715,0) +6621 +"DATA",811.8,180,100,7716,0) +6621 +"DATA",811.8,180,100,7717,0) + +"DATA",811.8,180,100,7718,0) + +"DATA",811.8,180,100,7719,0) +6642 +"DATA",811.8,180,100,7720,0) +6634 +"DATA",811.8,180,100,7721,0) +6625 +"DATA",811.8,180,100,7722,0) +6648 +"DATA",811.8,180,100,7723,0) +6647 +"DATA",811.8,180,100,7724,0) + +"DATA",811.8,180,100,7725,0) + +"DATA",811.8,180,100,7726,0) +6667 +"DATA",811.8,180,100,7727,0) +6661 +"DATA",811.8,180,100,7728,0) +6652 +"DATA",811.8,180,100,7729,0) +6672 +"DATA",811.8,180,100,7730,0) +6672 +"DATA",811.8,180,100,7731,0) + +"DATA",811.8,180,100,7732,0) + +"DATA",811.8,180,100,7733,0) +6693 +"DATA",811.8,180,100,7734,0) +6685 +"DATA",811.8,180,100,7735,0) +6676 +"DATA",811.8,180,100,7736,0) +6699 +"DATA",811.8,180,100,7737,0) +6698 +"DATA",811.8,180,100,7738,0) + +"DATA",811.8,180,100,7739,0) + +"DATA",811.8,180,100,7740,0) +6718 +"DATA",811.8,180,100,7741,0) +6712 +"DATA",811.8,180,100,7742,0) +6703 +"DATA",811.8,180,100,7743,0) +6723 +"DATA",811.8,180,100,7744,0) +6723 +"DATA",811.8,180,100,7745,0) + +"DATA",811.8,180,100,7746,0) + +"DATA",811.8,180,100,7747,0) +6744 +"DATA",811.8,180,100,7748,0) +6736 +"DATA",811.8,180,100,7749,0) +6727 +"DATA",811.8,180,100,7750,0) +6750 +"DATA",811.8,180,100,7751,0) +6749 +"DATA",811.8,180,100,7752,0) + +"DATA",811.8,180,100,7753,0) + +"DATA",811.8,180,100,7754,0) +6769 +"DATA",811.8,180,100,7755,0) +6763 +"DATA",811.8,180,100,7756,0) +6754 +"DATA",811.8,180,100,7757,0) +6774 +"DATA",811.8,180,100,7758,0) +6774 +"DATA",811.8,180,100,7759,0) + +"DATA",811.8,180,100,7760,0) + +"DATA",811.8,180,100,7761,0) +6795 +"DATA",811.8,180,100,7762,0) +6787 +"DATA",811.8,180,100,7763,0) +6778 +"DATA",811.8,180,100,7764,0) +6801 +"DATA",811.8,180,100,7765,0) +6800 +"DATA",811.8,180,100,7766,0) + +"DATA",811.8,180,100,7767,0) + +"DATA",811.8,180,100,7768,0) +6820 +"DATA",811.8,180,100,7769,0) +6814 +"DATA",811.8,180,100,7770,0) +6805 +"DATA",811.8,180,100,7771,0) +6825 +"DATA",811.8,180,100,7772,0) +6825 +"DATA",811.8,180,100,7773,0) + +"DATA",811.8,180,100,7774,0) + +"DATA",811.8,180,100,7775,0) +6846 +"DATA",811.8,180,100,7776,0) +6838 +"DATA",811.8,180,100,7777,0) +6829 +"DATA",811.8,180,100,7778,0) +6852 +"DATA",811.8,180,100,7779,0) +6851 +"DATA",811.8,180,100,7780,0) + +"DATA",811.8,180,100,7781,0) + +"DATA",811.8,180,100,7782,0) +6871 +"DATA",811.8,180,100,7783,0) +6865 +"DATA",811.8,180,100,7784,0) +6856 +"DATA",811.8,180,100,7785,0) +6876 +"DATA",811.8,180,100,7786,0) +6876 +"DATA",811.8,180,100,7787,0) + +"DATA",811.8,180,100,7788,0) + +"DATA",811.8,180,100,7789,0) +6897 +"DATA",811.8,180,100,7790,0) +6889 +"DATA",811.8,180,100,7791,0) +6880 +"DATA",811.8,180,100,7792,0) +6903 +"DATA",811.8,180,100,7793,0) +6902 +"DATA",811.8,180,100,7794,0) + +"DATA",811.8,180,100,7795,0) + +"DATA",811.8,180,100,7796,0) +6922 +"DATA",811.8,180,100,7797,0) +6916 +"DATA",811.8,180,100,7798,0) +6907 +"DATA",811.8,180,100,7799,0) +6927 +"DATA",811.8,180,100,7800,0) +6927 +"DATA",811.8,180,100,7801,0) + +"DATA",811.8,180,100,7802,0) + +"DATA",811.8,180,100,7803,0) +6948 +"DATA",811.8,180,100,7804,0) +6940 +"DATA",811.8,180,100,7805,0) +6931 +"DATA",811.8,180,100,7806,0) +6954 +"DATA",811.8,180,100,7807,0) +6953 +"DATA",811.8,180,100,7808,0) + +"DATA",811.8,180,100,7809,0) + +"DATA",811.8,180,100,7810,0) +6973 +"DATA",811.8,180,100,7811,0) +6967 +"DATA",811.8,180,100,7812,0) +6958 +"DATA",811.8,180,100,7813,0) +6978 +"DATA",811.8,180,100,7814,0) +6978 +"DATA",811.8,180,100,7815,0) + +"DATA",811.8,180,100,7816,0) + +"DATA",811.8,180,100,7817,0) +6999 +"DATA",811.8,180,100,7818,0) +6991 +"DATA",811.8,180,100,7819,0) +6982 +"DATA",811.8,180,100,7820,0) +7005 +"DATA",811.8,180,100,7821,0) +7004 +"DATA",811.8,180,100,7822,0) + +"DATA",811.8,180,100,7823,0) + +"DATA",811.8,180,100,7824,0) +7024 +"DATA",811.8,180,100,7825,0) +7018 +"DATA",811.8,180,100,7826,0) +7009 +"DATA",811.8,180,100,7827,0) +7029 +"DATA",811.8,180,100,7828,0) +7029 +"DATA",811.8,180,100,7829,0) + +"DATA",811.8,180,100,7830,0) + +"DATA",811.8,180,100,7831,0) +7050 +"DATA",811.8,180,100,7832,0) +7042 +"DATA",811.8,180,100,7833,0) +7033 +"DATA",811.8,180,100,7834,0) +7056 +"DATA",811.8,180,100,7835,0) +7055 +"DATA",811.8,180,100,7836,0) + +"DATA",811.8,180,100,7837,0) + +"DATA",811.8,180,100,7838,0) + +"DATA",811.8,180,110,0) +^811.804^41^41 +"DATA",811.8,180,110,1,0) +Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION +"DATA",811.8,180,110,2,0) +Date Packed: 07/20/2012@09:48:30 +"DATA",811.8,180,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,180,110,4,0) + +"DATA",811.8,180,110,5,0) +Description: +"DATA",811.8,180,110,6,0) +This contains the Reminder Rule Sets for the VTE measures for Meaningful +"DATA",811.8,180,110,7,0) +Use Stage 1. +"DATA",811.8,180,110,8,0) +NQF 0371 +"DATA",811.8,180,110,9,0) +NQF 0372 +"DATA",811.8,180,110,10,0) +NQF 0373 +"DATA",811.8,180,110,11,0) +NQF 0374 +"DATA",811.8,180,110,12,0) +NQF 0375 +"DATA",811.8,180,110,13,0) +NQF 0376 +"DATA",811.8,180,110,14,0) + +"DATA",811.8,180,110,15,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,180,110,16,0) +REMINDER LIST RULE +"DATA",811.8,180,110,17,0) + MU VTE-1 DENOM RS +"DATA",811.8,180,110,18,0) + MU VTE-1 NUMER RS +"DATA",811.8,180,110,19,0) + MU VTE-2 DENOM RS +"DATA",811.8,180,110,20,0) + MU VTE-2 NUMER RS +"DATA",811.8,180,110,21,0) + MU VTE-3 NUMER RS +"DATA",811.8,180,110,22,0) + MU VTE-3 DENOM RS +"DATA",811.8,180,110,23,0) + MU VTE-4 NUMER RS +"DATA",811.8,180,110,24,0) + MU VTE-4 DENOM RS +"DATA",811.8,180,110,25,0) + MU VTE-5 NUMER RS +"DATA",811.8,180,110,26,0) + MU VTE-5 DENOM RS +"DATA",811.8,180,110,27,0) + MU VTE-6 NUMER RS +"DATA",811.8,180,110,28,0) + MU VTE-6 DENOM RS +"DATA",811.8,180,110,29,0) + +"DATA",811.8,180,110,30,0) +Keywords: +"DATA",811.8,180,110,31,0) +NQF 0371 +"DATA",811.8,180,110,32,0) +NQF 0372 +"DATA",811.8,180,110,33,0) +NQF 0373 +"DATA",811.8,180,110,34,0) +NQF 0374 +"DATA",811.8,180,110,35,0) +NQF 0375 +"DATA",811.8,180,110,36,0) +NQF 0376 +"DATA",811.8,180,110,37,0) +MU +"DATA",811.8,180,110,38,0) +VTE +"DATA",811.8,180,110,39,0) +VENOUS THROMBOEMBOLISM +"DATA",811.8,180,110,40,0) + +"DATA",811.8,180,110,41,0) +Components: +"DATA",811.8,180,119) +10 +"DATA",811.8,180,120,0) +^811.802A^119^119 +"DATA",811.8,180,120,1,0) +ROUTINE^0^1 +"DATA",811.8,180,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,180,120,1,1,1,0) +PXRMINPL^52^133^^^1^0 +"DATA",811.8,180,120,2,0) +VA GENERIC^50.6^3 +"DATA",811.8,180,120,2,1,0) +^811.8021A^3^3 +"DATA",811.8,180,120,2,1,1,0) +WARFARIN^146^146^^^0^0 +"DATA",811.8,180,120,2,1,2,0) +HEPARIN/SODIUM CHLORIDE^159^159^^^0^0 +"DATA",811.8,180,120,2,1,3,0) +HEPARIN^172^172^^^0^0 +"DATA",811.8,180,120,3,0) +VA DRUG CLASS^50.605^2 +"DATA",811.8,180,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,180,120,3,1,1,0) +BL110^185^185^^^0^0 +"DATA",811.8,180,120,3,1,2,0) +BL115^198^198^^^0^0 +"DATA",811.8,180,120,4,0) +LABORATORY TEST^60^2 +"DATA",811.8,180,120,4,1,0) +^811.8021A^2^2 +"DATA",811.8,180,120,4,1,1,0) +PLT ^211^211^^^0^0 +"DATA",811.8,180,120,4,1,2,0) +INR^224^224^^^0^0 +"DATA",811.8,180,120,5,0) +HEALTH FACTORS^9999999.64^21 +"DATA",811.8,180,120,5,1,0) +^811.8021A^21^21 +"DATA",811.8,180,120,5,1,1,0) +MU STK^237^238^^^1^0 +"DATA",811.8,180,120,5,1,2,0) +VTE TEST ORDER^251^255^^^1^0 +"DATA",811.8,180,120,5,1,3,0) +VTE PRESENT AT ADMISSION^268^272^^^1^0 +"DATA",811.8,180,120,5,1,4,0) +VTE DX CONFIRMED DURING HOSPTIALIZATION^285^289^^^1^0 +"DATA",811.8,180,120,5,1,5,0) +VTE NOT GIVEN-HOSPITAL ADMISSION^302^306^^^1^0 +"DATA",811.8,180,120,5,1,6,0) +VTE PROPHYLAXIS DECLINED^319^323^^^1^0 +"DATA",811.8,180,120,5,1,7,0) +VTE PROHYLAXIS NOT RECEIVED^336^340^^^1^0 +"DATA",811.8,180,120,5,1,8,0) +VTE NO MECHANICAL PROPHYLAXIS: REASON^353^357^^^1^0 +"DATA",811.8,180,120,5,1,9,0) +ENROLLED IN CLINICAL TRIALS^370^374^^^1^0 +"DATA",811.8,180,120,5,1,10,0) +COMFORT MEASURES ON OR DAY AFTER ARRIVAL^387^391^^^1^0 +"DATA",811.8,180,120,5,1,11,0) +VTE PROPHYLAXIS RECEIVED^404^408^^^1^0 +"DATA",811.8,180,120,5,1,12,0) +WARFARIN PRESCRIBED AT DISCHARGE^421^425^^^1^0 +"DATA",811.8,180,120,5,1,13,0) +WARFARIN FOLLOW-UP MONITORING ADDRESSED^438^442^^^1^0 +"DATA",811.8,180,120,5,1,14,0) +WARFARIN ADVERSE REACTIONS ADDRESSED^455^459^^^1^0 +"DATA",811.8,180,120,5,1,15,0) +WARFARIN DIETARY ADVICE GIVEN^472^476^^^1^0 +"DATA",811.8,180,120,5,1,16,0) +WARFARIN COMPLIANCE ADDRESSED^489^493^^^1^0 +"DATA",811.8,180,120,5,1,17,0) +WARFARIN EDU MATERIAL GIVEN AT DISCH^506^510^^^1^0 +"DATA",811.8,180,120,5,1,18,0) +SURGICAL CARE IMPROVEMENT PROJECT (SCIP)^523^527^^^1^0 +"DATA",811.8,180,120,5,1,19,0) +VTE PROPHYLAXIS DOCUMENTED^540^544^^^1^0 +"DATA",811.8,180,120,5,1,20,0) +ELECTIVE CAROTID INTERVENTION^557^561^^^1^0 +"DATA",811.8,180,120,5,1,21,0) +COMFORT MEASURES PROTOCOL FOLLOWED^574^578^^^1^0 +"DATA",811.8,180,120,6,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,180,120,6,1,0) +^811.8021A^2^2 +"DATA",811.8,180,120,6,1,1,0) +VA-ADMISSIONS FOR A DATE RANGE^591^629^634^634^1^0 +"DATA",811.8,180,120,6,1,2,0) +VA-DISCHARGES FOR A DATE RANGE^647^682^687^687^1^0 +"DATA",811.8,180,120,7,0) +REMINDER TAXONOMY^811.2^17 +"DATA",811.8,180,120,7,1,0) +^811.8021A^17^17 +"DATA",811.8,180,120,7,1,1,0) +MU VTE-6 TABLE 7.04 DISCH DX TX^700^766^771^786^1^0 +"DATA",811.8,180,120,7,1,2,0) +MU VTE-6 TABLE 7.03 DISCH DX TX^799^845^850^860^1^0 +"DATA",811.8,180,120,7,1,3,0) +MU TABLE 7.04 TX^873^938^943^958^1^0 +"DATA",811.8,180,120,7,1,4,0) +MU TABLE 7.03 TX^971^1016^1021^1031^1^0 +"DATA",811.8,180,120,7,1,5,0) +MU INTRACRAN NEURO SURG 5.17^1044^1077^1082^1089^1^0 +"DATA",811.8,180,120,7,1,6,0) +MU GENERAL SURGERY 5.19^1102^1519^1524^1627^1^0 +"DATA",811.8,180,120,7,1,7,0) +MU GYNERCOLOGICAL SURG 5.20^1640^1709^1714^1730^1^0 +"DATA",811.8,180,120,7,1,8,0) +MU UROLOGICAL SURGERY 5.21^1743^1800^1805^1818^1^0 +"DATA",811.8,180,120,7,1,9,0) +MU ELECTIVE HIP REPL 5.22^1831^1852^1857^1861^1^0 +"DATA",811.8,180,120,7,1,10,0) +MU ELECTIVE TOTAL KNEE REPL 5.23^1874^1887^1892^1894^1^0 +"DATA",811.8,180,120,7,1,11,0) +MU HIP FRAC 5.24^1907^1916^1921^1922^1^0 +"DATA",811.8,180,120,7,1,12,0) +MU OBSTETRICS 7.02^1935^2672^2677^2860^1^0 +"DATA",811.8,180,120,7,1,13,0) +MU STK-1 DENOM INCLU TX^2873^2931^2936^2949^1^0 +"DATA",811.8,180,120,7,1,14,0) +MU STK DENOM EXCLU ELECTIVE SURGERY TX^2962^2979^2984^2987^1^0 +"DATA",811.8,180,120,7,1,15,0) +MU TABLE 7.01 TX^3000^3593^3598^3745^1^0 +"DATA",811.8,180,120,7,1,16,0) +MU TABLE 8.2 TX^3758^3771^3776^3778^1^0 +"DATA",811.8,180,120,7,1,17,0) +MU STROKE 8.1 TX^3791^3844^3849^3861^1^0 +"DATA",811.8,180,120,8,0) +REMINDER TERM^811.5^35 +"DATA",811.8,180,120,8,1,0) +^811.8021A^35^35 +"DATA",811.8,180,120,8,1,1,0) +MU VTE-6 DENOM TEST ORDERED TRM^3874^3879^3884^3885^1^0 +"DATA",811.8,180,120,8,1,2,0) +MU VTE-6 DENOM VTE PRESENT AT ADMISSION TRM^3898^3903^3908^3909^1^0 +"DATA",811.8,180,120,8,1,3,0) +MU VTE-6 DENOM CONFIRMED DX TRM^3922^3927^3932^3933^1^0 +"DATA",811.8,180,120,8,1,4,0) +MU VTE-6 NO PROPHYLAXIS EXCLU DENOM TRM^3946^3954^3959^3963^1^0 +"DATA",811.8,180,120,8,1,5,0) +MU VTE-6 EXCLU DENOM TRM^3976^3982^3987^3989^1^0 +"DATA",811.8,180,120,8,1,6,0) +MU ADMISSION MVMT TRIAL TRM^4002^4010^4015^4016^1^0 +"DATA",811.8,180,120,8,1,7,0) +MU VTE-6 PROPHYLAXIS GIVEN TRM^4029^4039^4044^4050^1^0 +"DATA",811.8,180,120,8,1,8,0) +MU VTE-5 WARFARIN TRM^4063^4070^4075^4078^1^0 +"DATA",811.8,180,120,8,1,9,0) +MU VTE-5 WARFARIN INSTRUCTION TRM^4091^4100^4105^4110^1^0 +"DATA",811.8,180,120,8,1,10,0) +MU VTE-5 DENOM TEST ORDER TRM^4123^4128^4133^4134^1^0 +"DATA",811.8,180,120,8,1,11,0) +MU VTE-5 DENOM CONFIRMED DX TRM^4147^4152^4157^4158^1^0 +"DATA",811.8,180,120,8,1,12,0) +MU VTE-5 DENOM INCL 7.03 OR 7.04 TX TRM^4171^4177^4182^4184^1^0 +"DATA",811.8,180,120,8,1,13,0) +MU DISCHARGED HOME-HOSPIC CARE^4197^4205^4210^4211^1^0 +"DATA",811.8,180,120,8,1,14,0) +MU DISCHARGED COURT/LAW ^4224^4232^4237^4238^1^0 +"DATA",811.8,180,120,8,1,15,0) +MU DISCHARGED HOME^4251^4259^4264^4265^1^0 +"DATA",811.8,180,120,8,1,16,0) +MU VTE-5 DENOM EXCLU TRM^4278^4283^4288^4289^1^0 +"DATA",811.8,180,120,8,1,17,0) +MU DISCHARGED PT LEFT AGAINST MED ADVICE^4302^4310^4315^4316^1^0 +"DATA",811.8,180,120,8,1,18,0) +MU DISCHARGED TRANSFER OUT^4329^4337^4342^4343^1^0 +"DATA",811.8,180,120,8,1,19,0) +MU VTE-4 HEPARIN MED TRM^4356^4364^4369^4373^1^0 +"DATA",811.8,180,120,8,1,20,0) +MU DISCHARGE DEATH^4386^4394^4399^4400^1^0 +"DATA",811.8,180,120,8,1,21,0) +MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE^4413^4421^4426^4427^1^0 +"DATA",811.8,180,120,8,1,22,0) +MU VTE-4 DENOM PLT LAB RESULT TRM^4440^4445^4450^4451^1^0 +"DATA",811.8,180,120,8,1,23,0) +MU WARFARIN THERAPY^4464^4470^4475^4477^1^0 +"DATA",811.8,180,120,8,1,24,0) +MU VTE-3 DENOM TX^4490^4496^4501^4503^1^0 +"DATA",811.8,180,120,8,1,25,0) +MU VTE-3 NUMER INR<2 TRM^4516^4523^4528^4529^1^0 +"DATA",811.8,180,120,8,1,26,0) +MU VTE-3 NUMER INR>=2 TRM^4542^4549^4554^4555^1^0 +"DATA",811.8,180,120,8,1,27,0) +MU TPA THERAPY^4568^4575^4580^4583^1^0 +"DATA",811.8,180,120,8,1,28,0) +MU VTE-1 NUMER PROPHYLAXIS TRM^4596^4607^4612^4619^1^0 +"DATA",811.8,180,120,8,1,29,0) +MU VTE-2 DENOM TX TRM^4632^4648^4653^4663^1^0 +"DATA",811.8,180,120,8,1,30,0) +MU VTE-2 DENOM EXCLU HF TRM^4676^4685^4690^4693^1^0 +"DATA",811.8,180,120,8,1,31,0) +MU ADMISSION ICU TRM^4706^4713^4718^4719^1^0 +"DATA",811.8,180,120,8,1,32,0) +MU STK-1 NUMER TRM^4732^4740^4745^4749^1^0 +"DATA",811.8,180,120,8,1,33,0) +MU STK-1 DENOM EXCLU TRM^4762^4772^4777^4781^1^0 +"DATA",811.8,180,120,8,1,34,0) +MU VTE-1 DENOM EXCLU TX TRM^4794^4813^4818^4831^1^0 +"DATA",811.8,180,120,8,1,35,0) +MU VTE-1 DENOM EXCLU HF TRM^4844^4852^4857^4859^1^0 +"DATA",811.8,180,120,9,0) +REMINDER DEFINITION^811.9^12 +"DATA",811.8,180,120,9,1,0) +^811.8021A^12^12 +"DATA",811.8,180,120,9,1,1,0) +MU VTE-6 DENOM CR^4872^4958^4963^4988^1^0 +"DATA",811.8,180,120,9,1,2,0) +MU VTE-6 NUMER CR^5001^5101^5106^5137^1^0 +"DATA",811.8,180,120,9,1,3,0) +MU VTE-5 DENOM CR^5150^5232^5237^5260^1^0 +"DATA",811.8,180,120,9,1,4,0) +MU VTE-5 NUMER CR^5273^5356^5361^5384^1^0 +"DATA",811.8,180,120,9,1,5,0) +MU VTE-4 DENOM CR^5397^5469^5474^5492^1^0 +"DATA",811.8,180,120,9,1,6,0) +MU VTE-4 NUMER CR^5505^5580^5585^5604^1^0 +"DATA",811.8,180,120,9,1,7,0) +MU VTE-3 DENOM CR^5617^5682^5687^5702^1^0 +"DATA",811.8,180,120,9,1,8,0) +MU VTE-3 NUMER CR^5715^5805^5810^5834^1^0 +"DATA",811.8,180,120,9,1,9,0) +MU VTE-2 NUMER CR^5847^5968^5973^6019^1^0 +"DATA",811.8,180,120,9,1,10,0) +MU VTE-2 DENOM CR^6032^6150^6155^6200^1^0 +"DATA",811.8,180,120,9,1,11,0) +MU STK-1 NUMER CR^6213^6305^6310^6340^1^0 +"DATA",811.8,180,120,9,1,12,0) +MU VTE-1 DENOM CR^6353^6421^6426^6444^1^0 +"DATA",811.8,180,120,10,0) +REMINDER LIST RULE^810.4^24 +"DATA",811.8,180,120,10,1,0) +^811.8021A^24^24 +"DATA",811.8,180,120,10,1,1,0) +MU VTE-6 DENOM RR^6457^6463^6468^6468^1^0 +"DATA",811.8,180,120,10,1,2,0) +MU VTE-6 DENOM RS^6481^6489^6494^6495^1^1 +"DATA",811.8,180,120,10,1,3,0) +MU VTE-6 NUMER RR^6508^6514^6519^6519^1^0 +"DATA",811.8,180,120,10,1,4,0) +MU VTE-6 NUMER RS^6532^6540^6545^6546^1^1 +"DATA",811.8,180,120,10,1,5,0) +MU VTE-5 DENOM RR^6559^6565^6570^6570^1^0 +"DATA",811.8,180,120,10,1,6,0) +MU VTE-5 DENOM RS^6583^6591^6596^6597^1^1 +"DATA",811.8,180,120,10,1,7,0) +MU VTE-5 NUMER RR^6610^6616^6621^6621^1^0 +"DATA",811.8,180,120,10,1,8,0) +MU VTE-5 NUMER RS^6634^6642^6647^6648^1^1 +"DATA",811.8,180,120,10,1,9,0) +MU VTE-4 DENOM RR^6661^6667^6672^6672^1^0 +"DATA",811.8,180,120,10,1,10,0) +MU VTE-4 DENOM RS^6685^6693^6698^6699^1^1 +"DATA",811.8,180,120,10,1,11,0) +MU VTE-4 NUMER RR^6712^6718^6723^6723^1^0 +"DATA",811.8,180,120,10,1,12,0) +MU VTE-4 NUMER RS^6736^6744^6749^6750^1^1 +"DATA",811.8,180,120,10,1,13,0) +MU VTE-3 DENOM RR^6763^6769^6774^6774^1^0 +"DATA",811.8,180,120,10,1,14,0) +MU VTE-3 DENOM RS^6787^6795^6800^6801^1^1 +"DATA",811.8,180,120,10,1,15,0) +MU VTE-3 NUMER RR^6814^6820^6825^6825^1^0 +"DATA",811.8,180,120,10,1,16,0) +MU VTE-3 NUMER RS^6838^6846^6851^6852^1^1 +"DATA",811.8,180,120,10,1,17,0) +MU VTE-2 NUMER RR^6865^6871^6876^6876^1^0 +"DATA",811.8,180,120,10,1,18,0) +MU VTE-2 NUMER RS^6889^6897^6902^6903^1^1 +"DATA",811.8,180,120,10,1,19,0) +MU VTE-2 DENOM RR^6916^6922^6927^6927^1^0 +"DATA",811.8,180,120,10,1,20,0) +MU VTE-2 DENOM RS^6940^6948^6953^6954^1^1 +"DATA",811.8,180,120,10,1,21,0) +MU STK-1 NUMER RR^6967^6973^6978^6978^1^0 +"DATA",811.8,180,120,10,1,22,0) +MU VTE-1 NUMER RS^6991^6999^7004^7005^1^1 +"DATA",811.8,180,120,10,1,23,0) +MU VTE-1 DENOM RR^7018^7024^7029^7029^1^0 +"DATA",811.8,180,120,10,1,24,0) +MU VTE-1 DENOM RS^7042^7050^7055^7056^1^1 +"DATA",811.8,184,0) +MU NQF0038 CHILD IMM SMH^MANAGER,SYS at VOE OFFICE INSTITUTION OLD^3120727.174833 +"DATA",811.8,184,100,1,0) + +"DATA",811.8,184,100,2,0) + +"DATA",811.8,184,100,3,0) +2.0P17 +"DATA",811.8,184,100,4,0) +5042 +"DATA",811.8,184,100,5,0) + +"DATA",811.8,184,100,6,0) +MU NQF0038 CHILD IMM SMH +"DATA",811.8,184,100,7,0) +MANAGER,SYS +"DATA",811.8,184,100,8,0) +VOE OFFICE INSTITUTION OLD +"DATA",811.8,184,100,9,0) +07/27/2012@17:48:33 +"DATA",811.8,184,100,10,0) + +"DATA",811.8,184,100,11,0) + +"DATA",811.8,184,100,15,0) + +"DATA",811.8,184,100,16,0) +MU +"DATA",811.8,184,100,17,0) +NQF0038 +"DATA",811.8,184,100,18,0) +IMMUNIZATION +"DATA",811.8,184,100,19,0) +IMMUNIZATIONS +"DATA",811.8,184,100,20,0) +CHILDREN +"DATA",811.8,184,100,21,0) + +"DATA",811.8,184,100,22,0) + +"DATA",811.8,184,100,23,0) +PXRMART +"DATA",811.8,184,100,24,0) +2296482722 +"DATA",811.8,184,100,25,0) + +"DATA",811.8,184,100,26,0) +EDT) +"DATA",811.8,184,100,48,0) + .S NFOUND=NFOUND+1,TEST(NFOUND)=1,DATE(NFOUND)=EDATE +"DATA",811.8,184,100,49,0) + .S DATA(NFOUND,"REACTANT")=$P(GMRAR0,U,2) +"DATA",811.8,184,100,50,0) + .S TEXT(NFOUND)="Documented reaction "_$S(SUB="API":"that includes the ingredient ",1:"to an agent in class ")_$S(SUB="APC":ITEM,1:$P(^PS(50.416,ITEM,0),U))_", reactant was: "_DATA(NFOUND,"REACTANT")_"." +"DATA",811.8,184,100,51,0) + Q +"DATA",811.8,184,100,52,0) +]]> +"DATA",811.8,184,100,53,0) + +"DATA",811.8,184,100,54,0) + +"DATA",811.8,184,100,55,0) + +"DATA",811.8,184,100,56,0) +IMMUNIZATION +"DATA",811.8,184,100,57,0) +9999999.14 +"DATA",811.8,184,100,58,0) +HEP A1 PEDS +"DATA",811.8,184,100,59,0) +127 +"DATA",811.8,184,100,60,0) +927519080 +"DATA",811.8,184,100,61,0) +NO +"DATA",811.8,184,100,62,0) + +"DATA",811.8,184,100,63,0) + +"DATA",811.8,184,100,68,0) + +"DATA",811.8,184,100,69,0) + +"DATA",811.8,184,100,70,0) + +"DATA",811.8,184,100,71,0) +IMMUNIZATION +"DATA",811.8,184,100,72,0) +9999999.14 +"DATA",811.8,184,100,73,0) +HEP A2 PEDS +"DATA",811.8,184,100,74,0) +126 +"DATA",811.8,184,100,75,0) +4257862200 +"DATA",811.8,184,100,76,0) +NO +"DATA",811.8,184,100,77,0) + +"DATA",811.8,184,100,78,0) + +"DATA",811.8,184,100,83,0) + +"DATA",811.8,184,100,84,0) + +"DATA",811.8,184,100,85,0) + +"DATA",811.8,184,100,86,0) +IMMUNIZATION +"DATA",811.8,184,100,87,0) +9999999.14 +"DATA",811.8,184,100,88,0) +INFLUENZA +"DATA",811.8,184,100,89,0) +12 +"DATA",811.8,184,100,90,0) +1066305499 +"DATA",811.8,184,100,91,0) +NO +"DATA",811.8,184,100,92,0) + +"DATA",811.8,184,100,93,0) + +"DATA",811.8,184,100,98,0) + +"DATA",811.8,184,100,99,0) + +"DATA",811.8,184,100,100,0) + +"DATA",811.8,184,100,101,0) +IMMUNIZATION +"DATA",811.8,184,100,102,0) +9999999.14 +"DATA",811.8,184,100,103,0) +RV 1 PEDS +"DATA",811.8,184,100,104,0) +111 +"DATA",811.8,184,100,105,0) +1606904587 +"DATA",811.8,184,100,106,0) +NO +"DATA",811.8,184,100,107,0) + +"DATA",811.8,184,100,108,0) + +"DATA",811.8,184,100,113,0) + +"DATA",811.8,184,100,114,0) + +"DATA",811.8,184,100,115,0) + +"DATA",811.8,184,100,116,0) +IMMUNIZATION +"DATA",811.8,184,100,117,0) +9999999.14 +"DATA",811.8,184,100,118,0) +RV 2 PEDS +"DATA",811.8,184,100,119,0) +110 +"DATA",811.8,184,100,120,0) +1005051806 +"DATA",811.8,184,100,121,0) +NO +"DATA",811.8,184,100,122,0) + +"DATA",811.8,184,100,123,0) + +"DATA",811.8,184,100,128,0) + +"DATA",811.8,184,100,129,0) + +"DATA",811.8,184,100,130,0) + +"DATA",811.8,184,100,131,0) +IMMUNIZATION +"DATA",811.8,184,100,132,0) +9999999.14 +"DATA",811.8,184,100,133,0) +RV 3 PEDS +"DATA",811.8,184,100,134,0) +109 +"DATA",811.8,184,100,135,0) +403157997 +"DATA",811.8,184,100,136,0) +NO +"DATA",811.8,184,100,137,0) + +"DATA",811.8,184,100,138,0) + +"DATA",811.8,184,100,143,0) + +"DATA",811.8,184,100,144,0) + +"DATA",811.8,184,100,145,0) + +"DATA",811.8,184,100,146,0) +IMMUNIZATION +"DATA",811.8,184,100,147,0) +9999999.14 +"DATA",811.8,184,100,148,0) +HiB1 +"DATA",811.8,184,100,149,0) +125 +"DATA",811.8,184,100,150,0) +7813003 +"DATA",811.8,184,100,151,0) +NO +"DATA",811.8,184,100,152,0) + +"DATA",811.8,184,100,153,0) + +"DATA",811.8,184,100,158,0) + +"DATA",811.8,184,100,159,0) + +"DATA",811.8,184,100,160,0) + +"DATA",811.8,184,100,161,0) +IMMUNIZATION +"DATA",811.8,184,100,162,0) +9999999.14 +"DATA",811.8,184,100,163,0) +HIB PED 1 +"DATA",811.8,184,100,164,0) +75 +"DATA",811.8,184,100,165,0) +4192694622 +"DATA",811.8,184,100,166,0) +NO +"DATA",811.8,184,100,167,0) + +"DATA",811.8,184,100,168,0) + +"DATA",811.8,184,100,172,0) + +"DATA",811.8,184,100,173,0) + +"DATA",811.8,184,100,174,0) + +"DATA",811.8,184,100,175,0) +IMMUNIZATION +"DATA",811.8,184,100,176,0) +9999999.14 +"DATA",811.8,184,100,177,0) +HiB2 +"DATA",811.8,184,100,178,0) +124 +"DATA",811.8,184,100,179,0) +1144614947 +"DATA",811.8,184,100,180,0) +NO +"DATA",811.8,184,100,181,0) + +"DATA",811.8,184,100,182,0) + +"DATA",811.8,184,100,187,0) + +"DATA",811.8,184,100,188,0) + +"DATA",811.8,184,100,189,0) + +"DATA",811.8,184,100,190,0) +IMMUNIZATION +"DATA",811.8,184,100,191,0) +9999999.14 +"DATA",811.8,184,100,192,0) +HIB PED 2 +"DATA",811.8,184,100,193,0) +76 +"DATA",811.8,184,100,194,0) +3477564718 +"DATA",811.8,184,100,195,0) +NO +"DATA",811.8,184,100,196,0) + +"DATA",811.8,184,100,197,0) + +"DATA",811.8,184,100,201,0) + +"DATA",811.8,184,100,202,0) + +"DATA",811.8,184,100,203,0) + +"DATA",811.8,184,100,204,0) +IMMUNIZATION +"DATA",811.8,184,100,205,0) +9999999.14 +"DATA",811.8,184,100,206,0) +HiB3 +"DATA",811.8,184,100,207,0) +123 +"DATA",811.8,184,100,208,0) +3469979780 +"DATA",811.8,184,100,209,0) +NO +"DATA",811.8,184,100,210,0) + +"DATA",811.8,184,100,211,0) + +"DATA",811.8,184,100,216,0) + +"DATA",811.8,184,100,217,0) + +"DATA",811.8,184,100,218,0) + +"DATA",811.8,184,100,219,0) +IMMUNIZATION +"DATA",811.8,184,100,220,0) +9999999.14 +"DATA",811.8,184,100,221,0) +HIB PED 3 +"DATA",811.8,184,100,222,0) +77 +"DATA",811.8,184,100,223,0) +3710347006 +"DATA",811.8,184,100,224,0) +NO +"DATA",811.8,184,100,225,0) + +"DATA",811.8,184,100,226,0) + +"DATA",811.8,184,100,230,0) + +"DATA",811.8,184,100,231,0) + +"DATA",811.8,184,100,232,0) + +"DATA",811.8,184,100,233,0) +IMMUNIZATION +"DATA",811.8,184,100,234,0) +9999999.14 +"DATA",811.8,184,100,235,0) +PCV1 PEDS +"DATA",811.8,184,100,236,0) +116 +"DATA",811.8,184,100,237,0) +2783926850 +"DATA",811.8,184,100,238,0) +NO +"DATA",811.8,184,100,239,0) + +"DATA",811.8,184,100,240,0) + +"DATA",811.8,184,100,245,0) + +"DATA",811.8,184,100,246,0) + +"DATA",811.8,184,100,247,0) + +"DATA",811.8,184,100,248,0) +IMMUNIZATION +"DATA",811.8,184,100,249,0) +9999999.14 +"DATA",811.8,184,100,250,0) +PCV2 PEDS +"DATA",811.8,184,100,251,0) +115 +"DATA",811.8,184,100,252,0) +1606218315 +"DATA",811.8,184,100,253,0) +NO +"DATA",811.8,184,100,254,0) + +"DATA",811.8,184,100,255,0) + +"DATA",811.8,184,100,260,0) + +"DATA",811.8,184,100,261,0) + +"DATA",811.8,184,100,262,0) + +"DATA",811.8,184,100,263,0) +IMMUNIZATION +"DATA",811.8,184,100,264,0) +9999999.14 +"DATA",811.8,184,100,265,0) +PCV3 PEDS +"DATA",811.8,184,100,266,0) +114 +"DATA",811.8,184,100,267,0) +3210569843 +"DATA",811.8,184,100,268,0) +NO +"DATA",811.8,184,100,269,0) + +"DATA",811.8,184,100,270,0) + +"DATA",811.8,184,100,275,0) + +"DATA",811.8,184,100,276,0) + +"DATA",811.8,184,100,277,0) + +"DATA",811.8,184,100,278,0) +IMMUNIZATION +"DATA",811.8,184,100,279,0) +9999999.14 +"DATA",811.8,184,100,280,0) +PCV4 PEDS +"DATA",811.8,184,100,281,0) +113 +"DATA",811.8,184,100,282,0) +1886037016 +"DATA",811.8,184,100,283,0) +NO +"DATA",811.8,184,100,284,0) + +"DATA",811.8,184,100,285,0) + +"DATA",811.8,184,100,290,0) + +"DATA",811.8,184,100,291,0) + +"DATA",811.8,184,100,292,0) + +"DATA",811.8,184,100,293,0) +IMMUNIZATION +"DATA",811.8,184,100,294,0) +9999999.14 +"DATA",811.8,184,100,295,0) +PCV5 PEDS +"DATA",811.8,184,100,296,0) +112 +"DATA",811.8,184,100,297,0) +2425044512 +"DATA",811.8,184,100,298,0) +NO +"DATA",811.8,184,100,299,0) + +"DATA",811.8,184,100,300,0) + +"DATA",811.8,184,100,305,0) + +"DATA",811.8,184,100,306,0) + +"DATA",811.8,184,100,307,0) + +"DATA",811.8,184,100,308,0) +IMMUNIZATION +"DATA",811.8,184,100,309,0) +9999999.14 +"DATA",811.8,184,100,310,0) +VZV1 INFANT +"DATA",811.8,184,100,311,0) +118 +"DATA",811.8,184,100,312,0) +3905126325 +"DATA",811.8,184,100,313,0) +NO +"DATA",811.8,184,100,314,0) + +"DATA",811.8,184,100,315,0) + +"DATA",811.8,184,100,320,0) + +"DATA",811.8,184,100,321,0) + +"DATA",811.8,184,100,322,0) + +"DATA",811.8,184,100,323,0) +IMMUNIZATION +"DATA",811.8,184,100,324,0) +9999999.14 +"DATA",811.8,184,100,325,0) +VZV2 INFANT +"DATA",811.8,184,100,326,0) +117 +"DATA",811.8,184,100,327,0) +574782693 +"DATA",811.8,184,100,328,0) +NO +"DATA",811.8,184,100,329,0) + +"DATA",811.8,184,100,330,0) + +"DATA",811.8,184,100,335,0) + +"DATA",811.8,184,100,336,0) + +"DATA",811.8,184,100,337,0) + +"DATA",811.8,184,100,338,0) +IMMUNIZATION +"DATA",811.8,184,100,339,0) +9999999.14 +"DATA",811.8,184,100,340,0) +HEP B1 INFANT +"DATA",811.8,184,100,341,0) +122 +"DATA",811.8,184,100,342,0) +941135617 +"DATA",811.8,184,100,343,0) +NO +"DATA",811.8,184,100,344,0) + +"DATA",811.8,184,100,345,0) + +"DATA",811.8,184,100,350,0) + +"DATA",811.8,184,100,351,0) + +"DATA",811.8,184,100,352,0) + +"DATA",811.8,184,100,353,0) +IMMUNIZATION +"DATA",811.8,184,100,354,0) +9999999.14 +"DATA",811.8,184,100,355,0) +HEP B2 INFANT +"DATA",811.8,184,100,356,0) +121 +"DATA",811.8,184,100,357,0) +3638835454 +"DATA",811.8,184,100,358,0) +NO +"DATA",811.8,184,100,359,0) + +"DATA",811.8,184,100,360,0) + +"DATA",811.8,184,100,365,0) + +"DATA",811.8,184,100,366,0) + +"DATA",811.8,184,100,367,0) + +"DATA",811.8,184,100,368,0) +IMMUNIZATION +"DATA",811.8,184,100,369,0) +9999999.14 +"DATA",811.8,184,100,370,0) +HEP B3 INFANT +"DATA",811.8,184,100,371,0) +120 +"DATA",811.8,184,100,372,0) +832528276 +"DATA",811.8,184,100,373,0) +NO +"DATA",811.8,184,100,374,0) + +"DATA",811.8,184,100,375,0) + +"DATA",811.8,184,100,380,0) + +"DATA",811.8,184,100,381,0) + +"DATA",811.8,184,100,382,0) + +"DATA",811.8,184,100,383,0) +IMMUNIZATION +"DATA",811.8,184,100,384,0) +9999999.14 +"DATA",811.8,184,100,385,0) +HEP B4 INFANT +"DATA",811.8,184,100,386,0) +119 +"DATA",811.8,184,100,387,0) +3261882689 +"DATA",811.8,184,100,388,0) +NO +"DATA",811.8,184,100,389,0) + +"DATA",811.8,184,100,390,0) + +"DATA",811.8,184,100,395,0) + +"DATA",811.8,184,100,396,0) + +"DATA",811.8,184,100,397,0) + +"DATA",811.8,184,100,398,0) +IMMUNIZATION +"DATA",811.8,184,100,399,0) +9999999.14 +"DATA",811.8,184,100,400,0) +MMR1 +"DATA",811.8,184,100,401,0) +104 +"DATA",811.8,184,100,402,0) +2294276969 +"DATA",811.8,184,100,403,0) +NO +"DATA",811.8,184,100,404,0) + +"DATA",811.8,184,100,405,0) + +"DATA",811.8,184,100,410,0) + +"DATA",811.8,184,100,411,0) + +"DATA",811.8,184,100,412,0) + +"DATA",811.8,184,100,413,0) +IMMUNIZATION +"DATA",811.8,184,100,414,0) +9999999.14 +"DATA",811.8,184,100,415,0) +RUBELLA +"DATA",811.8,184,100,416,0) +14 +"DATA",811.8,184,100,417,0) +3044597882 +"DATA",811.8,184,100,418,0) +NO +"DATA",811.8,184,100,419,0) + +"DATA",811.8,184,100,420,0) + +"DATA",811.8,184,100,424,0) + +"DATA",811.8,184,100,425,0) + +"DATA",811.8,184,100,426,0) + +"DATA",811.8,184,100,427,0) +IMMUNIZATION +"DATA",811.8,184,100,428,0) +9999999.14 +"DATA",811.8,184,100,429,0) +MEASLES +"DATA",811.8,184,100,430,0) +11 +"DATA",811.8,184,100,431,0) +2800376681 +"DATA",811.8,184,100,432,0) +NO +"DATA",811.8,184,100,433,0) + +"DATA",811.8,184,100,434,0) + +"DATA",811.8,184,100,438,0) + +"DATA",811.8,184,100,439,0) + +"DATA",811.8,184,100,440,0) + +"DATA",811.8,184,100,441,0) +IMMUNIZATION +"DATA",811.8,184,100,442,0) +9999999.14 +"DATA",811.8,184,100,443,0) +MUMPS +"DATA",811.8,184,100,444,0) +15 +"DATA",811.8,184,100,445,0) +1224561516 +"DATA",811.8,184,100,446,0) +NO +"DATA",811.8,184,100,447,0) + +"DATA",811.8,184,100,448,0) + +"DATA",811.8,184,100,453,0) + +"DATA",811.8,184,100,454,0) + +"DATA",811.8,184,100,455,0) + +"DATA",811.8,184,100,456,0) +IMMUNIZATION +"DATA",811.8,184,100,457,0) +9999999.14 +"DATA",811.8,184,100,458,0) +IPV1 +"DATA",811.8,184,100,459,0) +108 +"DATA",811.8,184,100,460,0) +4240221679 +"DATA",811.8,184,100,461,0) +NO +"DATA",811.8,184,100,462,0) + +"DATA",811.8,184,100,463,0) + +"DATA",811.8,184,100,468,0) + +"DATA",811.8,184,100,469,0) + +"DATA",811.8,184,100,470,0) + +"DATA",811.8,184,100,471,0) +IMMUNIZATION +"DATA",811.8,184,100,472,0) +9999999.14 +"DATA",811.8,184,100,473,0) +IPV2 +"DATA",811.8,184,100,474,0) +107 +"DATA",811.8,184,100,475,0) +3102925383 +"DATA",811.8,184,100,476,0) +NO +"DATA",811.8,184,100,477,0) + +"DATA",811.8,184,100,478,0) + +"DATA",811.8,184,100,483,0) + +"DATA",811.8,184,100,484,0) + +"DATA",811.8,184,100,485,0) + +"DATA",811.8,184,100,486,0) +IMMUNIZATION +"DATA",811.8,184,100,487,0) +9999999.14 +"DATA",811.8,184,100,488,0) +IPV3 +"DATA",811.8,184,100,489,0) +106 +"DATA",811.8,184,100,490,0) +840442592 +"DATA",811.8,184,100,491,0) +NO +"DATA",811.8,184,100,492,0) + +"DATA",811.8,184,100,493,0) + +"DATA",811.8,184,100,498,0) + +"DATA",811.8,184,100,499,0) + +"DATA",811.8,184,100,500,0) + +"DATA",811.8,184,100,501,0) +IMMUNIZATION +"DATA",811.8,184,100,502,0) +9999999.14 +"DATA",811.8,184,100,503,0) +IPV4 +"DATA",811.8,184,100,504,0) +105 +"DATA",811.8,184,100,505,0) +812543255 +"DATA",811.8,184,100,506,0) +NO +"DATA",811.8,184,100,507,0) + +"DATA",811.8,184,100,508,0) + +"DATA",811.8,184,100,513,0) + +"DATA",811.8,184,100,514,0) + +"DATA",811.8,184,100,515,0) + +"DATA",811.8,184,100,516,0) +IMMUNIZATION +"DATA",811.8,184,100,517,0) +9999999.14 +"DATA",811.8,184,100,518,0) +DTaP1 +"DATA",811.8,184,100,519,0) +103 +"DATA",811.8,184,100,520,0) +193659471 +"DATA",811.8,184,100,521,0) +NO +"DATA",811.8,184,100,522,0) + +"DATA",811.8,184,100,523,0) + +"DATA",811.8,184,100,528,0) + +"DATA",811.8,184,100,529,0) + +"DATA",811.8,184,100,530,0) + +"DATA",811.8,184,100,531,0) +IMMUNIZATION +"DATA",811.8,184,100,532,0) +9999999.14 +"DATA",811.8,184,100,533,0) +DTaP2 +"DATA",811.8,184,100,534,0) +102 +"DATA",811.8,184,100,535,0) +2844821668 +"DATA",811.8,184,100,536,0) +NO +"DATA",811.8,184,100,537,0) + +"DATA",811.8,184,100,538,0) + +"DATA",811.8,184,100,543,0) + +"DATA",811.8,184,100,544,0) + +"DATA",811.8,184,100,545,0) + +"DATA",811.8,184,100,546,0) +IMMUNIZATION +"DATA",811.8,184,100,547,0) +9999999.14 +"DATA",811.8,184,100,548,0) +DTaP3 +"DATA",811.8,184,100,549,0) +101 +"DATA",811.8,184,100,550,0) +3362131709 +"DATA",811.8,184,100,551,0) +NO +"DATA",811.8,184,100,552,0) + +"DATA",811.8,184,100,553,0) + +"DATA",811.8,184,100,558,0) + +"DATA",811.8,184,100,559,0) + +"DATA",811.8,184,100,560,0) + +"DATA",811.8,184,100,561,0) +IMMUNIZATION +"DATA",811.8,184,100,562,0) +9999999.14 +"DATA",811.8,184,100,563,0) +DTaP4 +"DATA",811.8,184,100,564,0) +100 +"DATA",811.8,184,100,565,0) +920034099 +"DATA",811.8,184,100,566,0) +NO +"DATA",811.8,184,100,567,0) + +"DATA",811.8,184,100,568,0) + +"DATA",811.8,184,100,573,0) + +"DATA",811.8,184,100,574,0) + +"DATA",811.8,184,100,575,0) + +"DATA",811.8,184,100,576,0) +IMMUNIZATION +"DATA",811.8,184,100,577,0) +9999999.14 +"DATA",811.8,184,100,578,0) +DTaP5 +"DATA",811.8,184,100,579,0) +99 +"DATA",811.8,184,100,580,0) +1461722474 +"DATA",811.8,184,100,581,0) +NO +"DATA",811.8,184,100,582,0) + +"DATA",811.8,184,100,583,0) + +"DATA",811.8,184,100,588,0) + +"DATA",811.8,184,100,589,0) + +"DATA",811.8,184,100,590,0) + +"DATA",811.8,184,100,591,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,184,100,592,0) +811.4 +"DATA",811.8,184,100,593,0) +VA-ALLERGY +"DATA",811.8,184,100,594,0) +33 +"DATA",811.8,184,100,595,0) +1409719351 +"DATA",811.8,184,100,596,0) +NO +"DATA",811.8,184,100,597,0) + +"DATA",811.8,184,100,598,0) + +"DATA",811.8,184,100,620,0) + +"DATA",811.8,184,100,621,0) + +"DATA",811.8,184,100,622,0) + +"DATA",811.8,184,100,625,0) + +"DATA",811.8,184,100,626,0) + +"DATA",811.8,184,100,627,0) + +"DATA",811.8,184,100,628,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,629,0) +811.2 +"DATA",811.8,184,100,630,0) +MU NQF0038 NUM8 HEP A DX INCL +"DATA",811.8,184,100,631,0) +117 +"DATA",811.8,184,100,632,0) +1376651763 +"DATA",811.8,184,100,633,0) +NO +"DATA",811.8,184,100,634,0) + +"DATA",811.8,184,100,635,0) + +"DATA",811.8,184,100,647,0) + +"DATA",811.8,184,100,648,0) + +"DATA",811.8,184,100,649,0) + +"DATA",811.8,184,100,653,0) + +"DATA",811.8,184,100,654,0) + +"DATA",811.8,184,100,655,0) + +"DATA",811.8,184,100,656,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,657,0) +811.2 +"DATA",811.8,184,100,658,0) +MU NQF0038 DENOM EM INC +"DATA",811.8,184,100,659,0) +84 +"DATA",811.8,184,100,660,0) +3780355051 +"DATA",811.8,184,100,661,0) +NO +"DATA",811.8,184,100,662,0) + +"DATA",811.8,184,100,663,0) + +"DATA",811.8,184,100,750,0) + +"DATA",811.8,184,100,751,0) + +"DATA",811.8,184,100,752,0) + +"DATA",811.8,184,100,778,0) + +"DATA",811.8,184,100,779,0) + +"DATA",811.8,184,100,780,0) + +"DATA",811.8,184,100,781,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,782,0) +811.2 +"DATA",811.8,184,100,783,0) +MU NQF0038 NUM DX ACTIVE +"DATA",811.8,184,100,784,0) +98 +"DATA",811.8,184,100,785,0) +139402715 +"DATA",811.8,184,100,786,0) +NO +"DATA",811.8,184,100,787,0) + +"DATA",811.8,184,100,788,0) + +"DATA",811.8,184,100,839,0) + +"DATA",811.8,184,100,840,0) + +"DATA",811.8,184,100,841,0) + +"DATA",811.8,184,100,856,0) + +"DATA",811.8,184,100,857,0) + +"DATA",811.8,184,100,858,0) + +"DATA",811.8,184,100,859,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,860,0) +811.2 +"DATA",811.8,184,100,861,0) +MU NQF0038 NUM INACTIVE DX +"DATA",811.8,184,100,862,0) +97 +"DATA",811.8,184,100,863,0) +4035522147 +"DATA",811.8,184,100,864,0) +NO +"DATA",811.8,184,100,865,0) + +"DATA",811.8,184,100,866,0) + +"DATA",811.8,184,100,886,0) + +"DATA",811.8,184,100,887,0) + +"DATA",811.8,184,100,888,0) + +"DATA",811.8,184,100,894,0) + +"DATA",811.8,184,100,895,0) + +"DATA",811.8,184,100,896,0) + +"DATA",811.8,184,100,897,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,898,0) +811.2 +"DATA",811.8,184,100,899,0) +MU NQF0038 DENOM EM +"DATA",811.8,184,100,900,0) +114 +"DATA",811.8,184,100,901,0) +3289594443 +"DATA",811.8,184,100,902,0) +NO +"DATA",811.8,184,100,903,0) + +"DATA",811.8,184,100,904,0) + +"DATA",811.8,184,100,991,0) + +"DATA",811.8,184,100,992,0) + +"DATA",811.8,184,100,993,0) + +"DATA",811.8,184,100,1019,0) + +"DATA",811.8,184,100,1020,0) + +"DATA",811.8,184,100,1021,0) + +"DATA",811.8,184,100,1022,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1023,0) +811.2 +"DATA",811.8,184,100,1024,0) +MU NQF0038 NUM6 VZV DX INCL +"DATA",811.8,184,100,1025,0) +115 +"DATA",811.8,184,100,1026,0) +3442348359 +"DATA",811.8,184,100,1027,0) +NO +"DATA",811.8,184,100,1028,0) + +"DATA",811.8,184,100,1029,0) + +"DATA",811.8,184,100,1045,0) + +"DATA",811.8,184,100,1046,0) + +"DATA",811.8,184,100,1047,0) + +"DATA",811.8,184,100,1052,0) + +"DATA",811.8,184,100,1053,0) + +"DATA",811.8,184,100,1054,0) + +"DATA",811.8,184,100,1055,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1056,0) +811.2 +"DATA",811.8,184,100,1057,0) +MU NQF0038 NUM5 HEP_B DX INCL +"DATA",811.8,184,100,1058,0) +116 +"DATA",811.8,184,100,1059,0) +2918325169 +"DATA",811.8,184,100,1060,0) +NO +"DATA",811.8,184,100,1061,0) + +"DATA",811.8,184,100,1062,0) + +"DATA",811.8,184,100,1076,0) + +"DATA",811.8,184,100,1077,0) + +"DATA",811.8,184,100,1078,0) + +"DATA",811.8,184,100,1083,0) + +"DATA",811.8,184,100,1084,0) + +"DATA",811.8,184,100,1085,0) + +"DATA",811.8,184,100,1086,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1087,0) +811.2 +"DATA",811.8,184,100,1088,0) +MU NQF0038 NUM3 RUBELLA DX EXCLU +"DATA",811.8,184,100,1089,0) +99 +"DATA",811.8,184,100,1090,0) +1905176477 +"DATA",811.8,184,100,1091,0) +NO +"DATA",811.8,184,100,1092,0) + +"DATA",811.8,184,100,1093,0) + +"DATA",811.8,184,100,1105,0) + +"DATA",811.8,184,100,1106,0) + +"DATA",811.8,184,100,1107,0) + +"DATA",811.8,184,100,1111,0) + +"DATA",811.8,184,100,1112,0) + +"DATA",811.8,184,100,1113,0) + +"DATA",811.8,184,100,1114,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1115,0) +811.2 +"DATA",811.8,184,100,1116,0) +MU NQF0038 NUM3 MEASLES DX EXCLU +"DATA",811.8,184,100,1117,0) +90 +"DATA",811.8,184,100,1118,0) +376855565 +"DATA",811.8,184,100,1119,0) +NO +"DATA",811.8,184,100,1120,0) + +"DATA",811.8,184,100,1121,0) + +"DATA",811.8,184,100,1133,0) + +"DATA",811.8,184,100,1134,0) + +"DATA",811.8,184,100,1135,0) + +"DATA",811.8,184,100,1139,0) + +"DATA",811.8,184,100,1140,0) + +"DATA",811.8,184,100,1141,0) + +"DATA",811.8,184,100,1142,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1143,0) +811.2 +"DATA",811.8,184,100,1144,0) +MU NQF0038 NUM3 MUMPS DX EXCLU +"DATA",811.8,184,100,1145,0) +96 +"DATA",811.8,184,100,1146,0) +2263019396 +"DATA",811.8,184,100,1147,0) +NO +"DATA",811.8,184,100,1148,0) + +"DATA",811.8,184,100,1149,0) + +"DATA",811.8,184,100,1161,0) + +"DATA",811.8,184,100,1162,0) + +"DATA",811.8,184,100,1163,0) + +"DATA",811.8,184,100,1167,0) + +"DATA",811.8,184,100,1168,0) + +"DATA",811.8,184,100,1169,0) + +"DATA",811.8,184,100,1170,0) +REMINDER TAXONOMY +"DATA",811.8,184,100,1171,0) +811.2 +"DATA",811.8,184,100,1172,0) +MU NQF0038 DTAP ICD EXCLU +"DATA",811.8,184,100,1173,0) +95 +"DATA",811.8,184,100,1174,0) +599321582 +"DATA",811.8,184,100,1175,0) +NO +"DATA",811.8,184,100,1176,0) + +"DATA",811.8,184,100,1177,0) + +"DATA",811.8,184,100,1186,0) + +"DATA",811.8,184,100,1187,0) + +"DATA",811.8,184,100,1188,0) + +"DATA",811.8,184,100,1192,0) + +"DATA",811.8,184,100,1193,0) + +"DATA",811.8,184,100,1194,0) + +"DATA",811.8,184,100,1195,0) +REMINDER TERM +"DATA",811.8,184,100,1196,0) +811.5 +"DATA",811.8,184,100,1197,0) +MU NQF0038 NUM8 ALLERGY EXCLU +"DATA",811.8,184,100,1198,0) +616 +"DATA",811.8,184,100,1199,0) +4252892369 +"DATA",811.8,184,100,1200,0) +NO +"DATA",811.8,184,100,1201,0) + +"DATA",811.8,184,100,1202,0) + +"DATA",811.8,184,100,1212,0) + +"DATA",811.8,184,100,1213,0) + +"DATA",811.8,184,100,1214,0) + +"DATA",811.8,184,100,1218,0) + +"DATA",811.8,184,100,1219,0) + +"DATA",811.8,184,100,1220,0) + +"DATA",811.8,184,100,1221,0) +REMINDER TERM +"DATA",811.8,184,100,1222,0) +811.5 +"DATA",811.8,184,100,1223,0) +MU NQF0038 NUM8 HEPA1 +"DATA",811.8,184,100,1224,0) +622 +"DATA",811.8,184,100,1225,0) +2422143598 +"DATA",811.8,184,100,1226,0) +NO +"DATA",811.8,184,100,1227,0) + +"DATA",811.8,184,100,1228,0) + +"DATA",811.8,184,100,1237,0) + +"DATA",811.8,184,100,1238,0) + +"DATA",811.8,184,100,1239,0) + +"DATA",811.8,184,100,1243,0) + +"DATA",811.8,184,100,1244,0) + +"DATA",811.8,184,100,1245,0) + +"DATA",811.8,184,100,1246,0) +REMINDER TERM +"DATA",811.8,184,100,1247,0) +811.5 +"DATA",811.8,184,100,1248,0) +MU NQF0038 NUM8 HEPA2 +"DATA",811.8,184,100,1249,0) +621 +"DATA",811.8,184,100,1250,0) +4077861352 +"DATA",811.8,184,100,1251,0) +NO +"DATA",811.8,184,100,1252,0) + +"DATA",811.8,184,100,1253,0) + +"DATA",811.8,184,100,1262,0) + +"DATA",811.8,184,100,1263,0) + +"DATA",811.8,184,100,1264,0) + +"DATA",811.8,184,100,1268,0) + +"DATA",811.8,184,100,1269,0) + +"DATA",811.8,184,100,1270,0) + +"DATA",811.8,184,100,1271,0) +REMINDER TERM +"DATA",811.8,184,100,1272,0) +811.5 +"DATA",811.8,184,100,1273,0) +MU NQF0038 NUM10 INFLUENZA VAC +"DATA",811.8,184,100,1274,0) +536 +"DATA",811.8,184,100,1275,0) +486825485 +"DATA",811.8,184,100,1276,0) +NO +"DATA",811.8,184,100,1277,0) + +"DATA",811.8,184,100,1278,0) + +"DATA",811.8,184,100,1287,0) + +"DATA",811.8,184,100,1288,0) + +"DATA",811.8,184,100,1289,0) + +"DATA",811.8,184,100,1293,0) + +"DATA",811.8,184,100,1294,0) + +"DATA",811.8,184,100,1295,0) + +"DATA",811.8,184,100,1296,0) +REMINDER TERM +"DATA",811.8,184,100,1297,0) +811.5 +"DATA",811.8,184,100,1298,0) +MU NQF0038 NUM10 FLU ALLERGY EXCLU +"DATA",811.8,184,100,1299,0) +526 +"DATA",811.8,184,100,1300,0) +1188108177 +"DATA",811.8,184,100,1301,0) +NO +"DATA",811.8,184,100,1302,0) + +"DATA",811.8,184,100,1303,0) + +"DATA",811.8,184,100,1313,0) + +"DATA",811.8,184,100,1314,0) + +"DATA",811.8,184,100,1315,0) + +"DATA",811.8,184,100,1319,0) + +"DATA",811.8,184,100,1320,0) + +"DATA",811.8,184,100,1321,0) + +"DATA",811.8,184,100,1322,0) +REMINDER TERM +"DATA",811.8,184,100,1323,0) +811.5 +"DATA",811.8,184,100,1324,0) +MU NQF0038 NUM9 ROTAVIRUS ALLERGY EXCLU +"DATA",811.8,184,100,1325,0) +558 +"DATA",811.8,184,100,1326,0) +3745551750 +"DATA",811.8,184,100,1327,0) +NO +"DATA",811.8,184,100,1328,0) + +"DATA",811.8,184,100,1329,0) + +"DATA",811.8,184,100,1339,0) + +"DATA",811.8,184,100,1340,0) + +"DATA",811.8,184,100,1341,0) + +"DATA",811.8,184,100,1345,0) + +"DATA",811.8,184,100,1346,0) + +"DATA",811.8,184,100,1347,0) + +"DATA",811.8,184,100,1348,0) +REMINDER TERM +"DATA",811.8,184,100,1349,0) +811.5 +"DATA",811.8,184,100,1350,0) +MU NQF0038 NUM9 RV1 +"DATA",811.8,184,100,1351,0) +576 +"DATA",811.8,184,100,1352,0) +337859396 +"DATA",811.8,184,100,1353,0) +NO +"DATA",811.8,184,100,1354,0) + +"DATA",811.8,184,100,1355,0) + +"DATA",811.8,184,100,1364,0) + +"DATA",811.8,184,100,1365,0) + +"DATA",811.8,184,100,1366,0) + +"DATA",811.8,184,100,1370,0) + +"DATA",811.8,184,100,1371,0) + +"DATA",811.8,184,100,1372,0) + +"DATA",811.8,184,100,1373,0) +REMINDER TERM +"DATA",811.8,184,100,1374,0) +811.5 +"DATA",811.8,184,100,1375,0) +MU NQF0038 NUM9 RV2 +"DATA",811.8,184,100,1376,0) +575 +"DATA",811.8,184,100,1377,0) +2254502425 +"DATA",811.8,184,100,1378,0) +NO +"DATA",811.8,184,100,1379,0) + +"DATA",811.8,184,100,1380,0) + +"DATA",811.8,184,100,1389,0) + +"DATA",811.8,184,100,1390,0) + +"DATA",811.8,184,100,1391,0) + +"DATA",811.8,184,100,1395,0) + +"DATA",811.8,184,100,1396,0) + +"DATA",811.8,184,100,1397,0) + +"DATA",811.8,184,100,1398,0) +REMINDER TERM +"DATA",811.8,184,100,1399,0) +811.5 +"DATA",811.8,184,100,1400,0) +MU NQF0038 NUM9 RV3 +"DATA",811.8,184,100,1401,0) +560 +"DATA",811.8,184,100,1402,0) +1097949421 +"DATA",811.8,184,100,1403,0) +NO +"DATA",811.8,184,100,1404,0) + +"DATA",811.8,184,100,1405,0) + +"DATA",811.8,184,100,1414,0) + +"DATA",811.8,184,100,1415,0) + +"DATA",811.8,184,100,1416,0) + +"DATA",811.8,184,100,1420,0) + +"DATA",811.8,184,100,1421,0) + +"DATA",811.8,184,100,1422,0) + +"DATA",811.8,184,100,1423,0) +REMINDER TERM +"DATA",811.8,184,100,1424,0) +811.5 +"DATA",811.8,184,100,1425,0) +MU NQF0038 NUM4 ALLERGY EXCLU +"DATA",811.8,184,100,1426,0) +607 +"DATA",811.8,184,100,1427,0) +3455581843 +"DATA",811.8,184,100,1428,0) +NO +"DATA",811.8,184,100,1429,0) + +"DATA",811.8,184,100,1430,0) + +"DATA",811.8,184,100,1440,0) + +"DATA",811.8,184,100,1441,0) + +"DATA",811.8,184,100,1442,0) + +"DATA",811.8,184,100,1446,0) + +"DATA",811.8,184,100,1447,0) + +"DATA",811.8,184,100,1448,0) + +"DATA",811.8,184,100,1449,0) +REMINDER TERM +"DATA",811.8,184,100,1450,0) +811.5 +"DATA",811.8,184,100,1451,0) +MU NQF0038 NUM4 HIB1 +"DATA",811.8,184,100,1452,0) +612 +"DATA",811.8,184,100,1453,0) +786166230 +"DATA",811.8,184,100,1454,0) +NO +"DATA",811.8,184,100,1455,0) + +"DATA",811.8,184,100,1456,0) + +"DATA",811.8,184,100,1467,0) + +"DATA",811.8,184,100,1468,0) + +"DATA",811.8,184,100,1469,0) + +"DATA",811.8,184,100,1474,0) + +"DATA",811.8,184,100,1475,0) + +"DATA",811.8,184,100,1476,0) + +"DATA",811.8,184,100,1477,0) +REMINDER TERM +"DATA",811.8,184,100,1478,0) +811.5 +"DATA",811.8,184,100,1479,0) +MU NQF0038 NUM4 HIB2 +"DATA",811.8,184,100,1480,0) +609 +"DATA",811.8,184,100,1481,0) +2360125814 +"DATA",811.8,184,100,1482,0) +NO +"DATA",811.8,184,100,1483,0) + +"DATA",811.8,184,100,1484,0) + +"DATA",811.8,184,100,1495,0) + +"DATA",811.8,184,100,1496,0) + +"DATA",811.8,184,100,1497,0) + +"DATA",811.8,184,100,1502,0) + +"DATA",811.8,184,100,1503,0) + +"DATA",811.8,184,100,1504,0) + +"DATA",811.8,184,100,1505,0) +REMINDER TERM +"DATA",811.8,184,100,1506,0) +811.5 +"DATA",811.8,184,100,1507,0) +MU NQF0038 NUM4 HIB3 +"DATA",811.8,184,100,1508,0) +608 +"DATA",811.8,184,100,1509,0) +3984482582 +"DATA",811.8,184,100,1510,0) +NO +"DATA",811.8,184,100,1511,0) + +"DATA",811.8,184,100,1512,0) + +"DATA",811.8,184,100,1523,0) + +"DATA",811.8,184,100,1524,0) + +"DATA",811.8,184,100,1525,0) + +"DATA",811.8,184,100,1530,0) + +"DATA",811.8,184,100,1531,0) + +"DATA",811.8,184,100,1532,0) + +"DATA",811.8,184,100,1533,0) +REMINDER TERM +"DATA",811.8,184,100,1534,0) +811.5 +"DATA",811.8,184,100,1535,0) +MU NQF0038 NUM7 ALLERGY EXCLU +"DATA",811.8,184,100,1536,0) +593 +"DATA",811.8,184,100,1537,0) +475713304 +"DATA",811.8,184,100,1538,0) +NO +"DATA",811.8,184,100,1539,0) + +"DATA",811.8,184,100,1540,0) + +"DATA",811.8,184,100,1550,0) + +"DATA",811.8,184,100,1551,0) + +"DATA",811.8,184,100,1552,0) + +"DATA",811.8,184,100,1556,0) + +"DATA",811.8,184,100,1557,0) + +"DATA",811.8,184,100,1558,0) + +"DATA",811.8,184,100,1559,0) +REMINDER TERM +"DATA",811.8,184,100,1560,0) +811.5 +"DATA",811.8,184,100,1561,0) +MU NQF0038 NUM7 PCV1 +"DATA",811.8,184,100,1562,0) +598 +"DATA",811.8,184,100,1563,0) +1315301079 +"DATA",811.8,184,100,1564,0) +NO +"DATA",811.8,184,100,1565,0) + +"DATA",811.8,184,100,1566,0) + +"DATA",811.8,184,100,1575,0) + +"DATA",811.8,184,100,1576,0) + +"DATA",811.8,184,100,1577,0) + +"DATA",811.8,184,100,1581,0) + +"DATA",811.8,184,100,1582,0) + +"DATA",811.8,184,100,1583,0) + +"DATA",811.8,184,100,1584,0) +REMINDER TERM +"DATA",811.8,184,100,1585,0) +811.5 +"DATA",811.8,184,100,1586,0) +MU NQF0038 NUM7 PCV2 +"DATA",811.8,184,100,1587,0) +597 +"DATA",811.8,184,100,1588,0) +3693498250 +"DATA",811.8,184,100,1589,0) +NO +"DATA",811.8,184,100,1590,0) + +"DATA",811.8,184,100,1591,0) + +"DATA",811.8,184,100,1600,0) + +"DATA",811.8,184,100,1601,0) + +"DATA",811.8,184,100,1602,0) + +"DATA",811.8,184,100,1606,0) + +"DATA",811.8,184,100,1607,0) + +"DATA",811.8,184,100,1608,0) + +"DATA",811.8,184,100,1609,0) +REMINDER TERM +"DATA",811.8,184,100,1610,0) +811.5 +"DATA",811.8,184,100,1611,0) +MU NQF0038 NUM7 PCV3 +"DATA",811.8,184,100,1612,0) +596 +"DATA",811.8,184,100,1613,0) +456643966 +"DATA",811.8,184,100,1614,0) +NO +"DATA",811.8,184,100,1615,0) + +"DATA",811.8,184,100,1616,0) + +"DATA",811.8,184,100,1625,0) + +"DATA",811.8,184,100,1626,0) + +"DATA",811.8,184,100,1627,0) + +"DATA",811.8,184,100,1631,0) + +"DATA",811.8,184,100,1632,0) + +"DATA",811.8,184,100,1633,0) + +"DATA",811.8,184,100,1634,0) +REMINDER TERM +"DATA",811.8,184,100,1635,0) +811.5 +"DATA",811.8,184,100,1636,0) +MU NQF0038 NUM7 PCV4 +"DATA",811.8,184,100,1637,0) +595 +"DATA",811.8,184,100,1638,0) +600841073 +"DATA",811.8,184,100,1639,0) +NO +"DATA",811.8,184,100,1640,0) + +"DATA",811.8,184,100,1641,0) + +"DATA",811.8,184,100,1650,0) + +"DATA",811.8,184,100,1651,0) + +"DATA",811.8,184,100,1652,0) + +"DATA",811.8,184,100,1656,0) + +"DATA",811.8,184,100,1657,0) + +"DATA",811.8,184,100,1658,0) + +"DATA",811.8,184,100,1659,0) +REMINDER TERM +"DATA",811.8,184,100,1660,0) +811.5 +"DATA",811.8,184,100,1661,0) +MU NQF0038 NUM7 PCV5 +"DATA",811.8,184,100,1662,0) +594 +"DATA",811.8,184,100,1663,0) +2216019985 +"DATA",811.8,184,100,1664,0) +NO +"DATA",811.8,184,100,1665,0) + +"DATA",811.8,184,100,1666,0) + +"DATA",811.8,184,100,1674,0) + +"DATA",811.8,184,100,1675,0) + +"DATA",811.8,184,100,1676,0) + +"DATA",811.8,184,100,1680,0) + +"DATA",811.8,184,100,1681,0) + +"DATA",811.8,184,100,1682,0) + +"DATA",811.8,184,100,1683,0) +REMINDER TERM +"DATA",811.8,184,100,1684,0) +811.5 +"DATA",811.8,184,100,1685,0) +MU NQF0038 NUM6 VZV ALLERGY EXCLU +"DATA",811.8,184,100,1686,0) +599 +"DATA",811.8,184,100,1687,0) +3660015488 +"DATA",811.8,184,100,1688,0) +NO +"DATA",811.8,184,100,1689,0) + +"DATA",811.8,184,100,1690,0) + +"DATA",811.8,184,100,1700,0) + +"DATA",811.8,184,100,1701,0) + +"DATA",811.8,184,100,1702,0) + +"DATA",811.8,184,100,1706,0) + +"DATA",811.8,184,100,1707,0) + +"DATA",811.8,184,100,1708,0) + +"DATA",811.8,184,100,1709,0) +REMINDER TERM +"DATA",811.8,184,100,1710,0) +811.5 +"DATA",811.8,184,100,1711,0) +MU NQF0038 NUM6 VZV1 +"DATA",811.8,184,100,1712,0) +601 +"DATA",811.8,184,100,1713,0) +1799658949 +"DATA",811.8,184,100,1714,0) +NO +"DATA",811.8,184,100,1715,0) + +"DATA",811.8,184,100,1716,0) + +"DATA",811.8,184,100,1725,0) + +"DATA",811.8,184,100,1726,0) + +"DATA",811.8,184,100,1727,0) + +"DATA",811.8,184,100,1731,0) + +"DATA",811.8,184,100,1732,0) + +"DATA",811.8,184,100,1733,0) + +"DATA",811.8,184,100,1734,0) +REMINDER TERM +"DATA",811.8,184,100,1735,0) +811.5 +"DATA",811.8,184,100,1736,0) +MU NQF0038 NUM6 VZV2 +"DATA",811.8,184,100,1737,0) +600 +"DATA",811.8,184,100,1738,0) +3411752915 +"DATA",811.8,184,100,1739,0) +NO +"DATA",811.8,184,100,1740,0) + +"DATA",811.8,184,100,1741,0) + +"DATA",811.8,184,100,1750,0) + +"DATA",811.8,184,100,1751,0) + +"DATA",811.8,184,100,1752,0) + +"DATA",811.8,184,100,1756,0) + +"DATA",811.8,184,100,1757,0) + +"DATA",811.8,184,100,1758,0) + +"DATA",811.8,184,100,1759,0) +REMINDER TERM +"DATA",811.8,184,100,1760,0) +811.5 +"DATA",811.8,184,100,1761,0) +MU NQF0038 NUM5 ALLERGY EXCLU +"DATA",811.8,184,100,1762,0) +602 +"DATA",811.8,184,100,1763,0) +6472850 +"DATA",811.8,184,100,1764,0) +NO +"DATA",811.8,184,100,1765,0) + +"DATA",811.8,184,100,1766,0) + +"DATA",811.8,184,100,1779,0) + +"DATA",811.8,184,100,1780,0) + +"DATA",811.8,184,100,1781,0) + +"DATA",811.8,184,100,1786,0) + +"DATA",811.8,184,100,1787,0) + +"DATA",811.8,184,100,1788,0) + +"DATA",811.8,184,100,1789,0) +REMINDER TERM +"DATA",811.8,184,100,1790,0) +811.5 +"DATA",811.8,184,100,1791,0) +MU NQF0038 NUM5 HEPB1 +"DATA",811.8,184,100,1792,0) +606 +"DATA",811.8,184,100,1793,0) +2493977937 +"DATA",811.8,184,100,1794,0) +NO +"DATA",811.8,184,100,1795,0) + +"DATA",811.8,184,100,1796,0) + +"DATA",811.8,184,100,1805,0) + +"DATA",811.8,184,100,1806,0) + +"DATA",811.8,184,100,1807,0) + +"DATA",811.8,184,100,1811,0) + +"DATA",811.8,184,100,1812,0) + +"DATA",811.8,184,100,1813,0) + +"DATA",811.8,184,100,1814,0) +REMINDER TERM +"DATA",811.8,184,100,1815,0) +811.5 +"DATA",811.8,184,100,1816,0) +MU NQF0038 NUM5 HEPB2 +"DATA",811.8,184,100,1817,0) +605 +"DATA",811.8,184,100,1818,0) +4212382407 +"DATA",811.8,184,100,1819,0) +NO +"DATA",811.8,184,100,1820,0) + +"DATA",811.8,184,100,1821,0) + +"DATA",811.8,184,100,1830,0) + +"DATA",811.8,184,100,1831,0) + +"DATA",811.8,184,100,1832,0) + +"DATA",811.8,184,100,1836,0) + +"DATA",811.8,184,100,1837,0) + +"DATA",811.8,184,100,1838,0) + +"DATA",811.8,184,100,1839,0) +REMINDER TERM +"DATA",811.8,184,100,1840,0) +811.5 +"DATA",811.8,184,100,1841,0) +MU NQF0038 NUM5 HEPB3 +"DATA",811.8,184,100,1842,0) +604 +"DATA",811.8,184,100,1843,0) +3732905909 +"DATA",811.8,184,100,1844,0) +NO +"DATA",811.8,184,100,1845,0) + +"DATA",811.8,184,100,1846,0) + +"DATA",811.8,184,100,1855,0) + +"DATA",811.8,184,100,1856,0) + +"DATA",811.8,184,100,1857,0) + +"DATA",811.8,184,100,1861,0) + +"DATA",811.8,184,100,1862,0) + +"DATA",811.8,184,100,1863,0) + +"DATA",811.8,184,100,1864,0) +REMINDER TERM +"DATA",811.8,184,100,1865,0) +811.5 +"DATA",811.8,184,100,1866,0) +MU NQF0038 NUM5 HEPB4 +"DATA",811.8,184,100,1867,0) +603 +"DATA",811.8,184,100,1868,0) +611993067 +"DATA",811.8,184,100,1869,0) +NO +"DATA",811.8,184,100,1870,0) + +"DATA",811.8,184,100,1871,0) + +"DATA",811.8,184,100,1880,0) + +"DATA",811.8,184,100,1881,0) + +"DATA",811.8,184,100,1882,0) + +"DATA",811.8,184,100,1886,0) + +"DATA",811.8,184,100,1887,0) + +"DATA",811.8,184,100,1888,0) + +"DATA",811.8,184,100,1889,0) +REMINDER TERM +"DATA",811.8,184,100,1890,0) +811.5 +"DATA",811.8,184,100,1891,0) +MU NQF0038 NUM3 MMR1 +"DATA",811.8,184,100,1892,0) +528 +"DATA",811.8,184,100,1893,0) +1415022567 +"DATA",811.8,184,100,1894,0) +NO +"DATA",811.8,184,100,1895,0) + +"DATA",811.8,184,100,1896,0) + +"DATA",811.8,184,100,1905,0) + +"DATA",811.8,184,100,1906,0) + +"DATA",811.8,184,100,1907,0) + +"DATA",811.8,184,100,1911,0) + +"DATA",811.8,184,100,1912,0) + +"DATA",811.8,184,100,1913,0) + +"DATA",811.8,184,100,1914,0) +REMINDER TERM +"DATA",811.8,184,100,1915,0) +811.5 +"DATA",811.8,184,100,1916,0) +MU NQF0038 NUM3 GENER MMR ALLERGY EXCLU +"DATA",811.8,184,100,1917,0) +529 +"DATA",811.8,184,100,1918,0) +3126808472 +"DATA",811.8,184,100,1919,0) +NO +"DATA",811.8,184,100,1920,0) + +"DATA",811.8,184,100,1921,0) + +"DATA",811.8,184,100,1931,0) + +"DATA",811.8,184,100,1932,0) + +"DATA",811.8,184,100,1933,0) + +"DATA",811.8,184,100,1937,0) + +"DATA",811.8,184,100,1938,0) + +"DATA",811.8,184,100,1939,0) + +"DATA",811.8,184,100,1940,0) +REMINDER TERM +"DATA",811.8,184,100,1941,0) +811.5 +"DATA",811.8,184,100,1942,0) +MU NQF0038 NUM3 RUBELLA VAC ALLERGY EXCLU +"DATA",811.8,184,100,1943,0) +530 +"DATA",811.8,184,100,1944,0) +1848074406 +"DATA",811.8,184,100,1945,0) +NO +"DATA",811.8,184,100,1946,0) + +"DATA",811.8,184,100,1947,0) + +"DATA",811.8,184,100,1957,0) + +"DATA",811.8,184,100,1958,0) + +"DATA",811.8,184,100,1959,0) + +"DATA",811.8,184,100,1963,0) + +"DATA",811.8,184,100,1964,0) + +"DATA",811.8,184,100,1965,0) + +"DATA",811.8,184,100,1966,0) +REMINDER TERM +"DATA",811.8,184,100,1967,0) +811.5 +"DATA",811.8,184,100,1968,0) +MU NQF0038 NUM3 MEASLES VAC ALLERGY EXCL +"DATA",811.8,184,100,1969,0) +514 +"DATA",811.8,184,100,1970,0) +4021095139 +"DATA",811.8,184,100,1971,0) +NO +"DATA",811.8,184,100,1972,0) + +"DATA",811.8,184,100,1973,0) + +"DATA",811.8,184,100,1983,0) + +"DATA",811.8,184,100,1984,0) + +"DATA",811.8,184,100,1985,0) + +"DATA",811.8,184,100,1989,0) + +"DATA",811.8,184,100,1990,0) + +"DATA",811.8,184,100,1991,0) + +"DATA",811.8,184,100,1992,0) +REMINDER TERM +"DATA",811.8,184,100,1993,0) +811.5 +"DATA",811.8,184,100,1994,0) +MU NQF0038 NUM3 MUMPS VAC ALLERGY EXCLU +"DATA",811.8,184,100,1995,0) +527 +"DATA",811.8,184,100,1996,0) +4170327595 +"DATA",811.8,184,100,1997,0) +NO +"DATA",811.8,184,100,1998,0) + +"DATA",811.8,184,100,1999,0) + +"DATA",811.8,184,100,2009,0) + +"DATA",811.8,184,100,2010,0) + +"DATA",811.8,184,100,2011,0) + +"DATA",811.8,184,100,2015,0) + +"DATA",811.8,184,100,2016,0) + +"DATA",811.8,184,100,2017,0) + +"DATA",811.8,184,100,2018,0) +REMINDER TERM +"DATA",811.8,184,100,2019,0) +811.5 +"DATA",811.8,184,100,2020,0) +MU NQF0038 NUM2 IPV1 +"DATA",811.8,184,100,2021,0) +534 +"DATA",811.8,184,100,2022,0) +938612804 +"DATA",811.8,184,100,2023,0) +NO +"DATA",811.8,184,100,2024,0) + +"DATA",811.8,184,100,2025,0) + +"DATA",811.8,184,100,2034,0) + +"DATA",811.8,184,100,2035,0) + +"DATA",811.8,184,100,2036,0) + +"DATA",811.8,184,100,2040,0) + +"DATA",811.8,184,100,2041,0) + +"DATA",811.8,184,100,2042,0) + +"DATA",811.8,184,100,2043,0) +REMINDER TERM +"DATA",811.8,184,100,2044,0) +811.5 +"DATA",811.8,184,100,2045,0) +MU NQF0038 NUM2 IPV2 +"DATA",811.8,184,100,2046,0) +533 +"DATA",811.8,184,100,2047,0) +2519463222 +"DATA",811.8,184,100,2048,0) +NO +"DATA",811.8,184,100,2049,0) + +"DATA",811.8,184,100,2050,0) + +"DATA",811.8,184,100,2059,0) + +"DATA",811.8,184,100,2060,0) + +"DATA",811.8,184,100,2061,0) + +"DATA",811.8,184,100,2065,0) + +"DATA",811.8,184,100,2066,0) + +"DATA",811.8,184,100,2067,0) + +"DATA",811.8,184,100,2068,0) +REMINDER TERM +"DATA",811.8,184,100,2069,0) +811.5 +"DATA",811.8,184,100,2070,0) +MU NQF0038 NUM2 IPV3 +"DATA",811.8,184,100,2071,0) +532 +"DATA",811.8,184,100,2072,0) +4137463320 +"DATA",811.8,184,100,2073,0) +NO +"DATA",811.8,184,100,2074,0) + +"DATA",811.8,184,100,2075,0) + +"DATA",811.8,184,100,2084,0) + +"DATA",811.8,184,100,2085,0) + +"DATA",811.8,184,100,2086,0) + +"DATA",811.8,184,100,2090,0) + +"DATA",811.8,184,100,2091,0) + +"DATA",811.8,184,100,2092,0) + +"DATA",811.8,184,100,2093,0) +REMINDER TERM +"DATA",811.8,184,100,2094,0) +811.5 +"DATA",811.8,184,100,2095,0) +MU NQF0038 NUM2 IPV4 +"DATA",811.8,184,100,2096,0) +531 +"DATA",811.8,184,100,2097,0) +250161555 +"DATA",811.8,184,100,2098,0) +NO +"DATA",811.8,184,100,2099,0) + +"DATA",811.8,184,100,2100,0) + +"DATA",811.8,184,100,2109,0) + +"DATA",811.8,184,100,2110,0) + +"DATA",811.8,184,100,2111,0) + +"DATA",811.8,184,100,2115,0) + +"DATA",811.8,184,100,2116,0) + +"DATA",811.8,184,100,2117,0) + +"DATA",811.8,184,100,2118,0) +REMINDER TERM +"DATA",811.8,184,100,2119,0) +811.5 +"DATA",811.8,184,100,2120,0) +MU NQF0038 NUM2 IPV ALLERGY INCLU +"DATA",811.8,184,100,2121,0) +535 +"DATA",811.8,184,100,2122,0) +2253244680 +"DATA",811.8,184,100,2123,0) +NO +"DATA",811.8,184,100,2124,0) + +"DATA",811.8,184,100,2125,0) + +"DATA",811.8,184,100,2144,0) + +"DATA",811.8,184,100,2145,0) + +"DATA",811.8,184,100,2146,0) + +"DATA",811.8,184,100,2153,0) + +"DATA",811.8,184,100,2154,0) + +"DATA",811.8,184,100,2155,0) + +"DATA",811.8,184,100,2156,0) +REMINDER TERM +"DATA",811.8,184,100,2157,0) +811.5 +"DATA",811.8,184,100,2158,0) +MU NQF0038 DTAP1 +"DATA",811.8,184,100,2159,0) +525 +"DATA",811.8,184,100,2160,0) +2298256423 +"DATA",811.8,184,100,2161,0) +NO +"DATA",811.8,184,100,2162,0) + +"DATA",811.8,184,100,2163,0) + +"DATA",811.8,184,100,2172,0) + +"DATA",811.8,184,100,2173,0) + +"DATA",811.8,184,100,2174,0) + +"DATA",811.8,184,100,2178,0) + +"DATA",811.8,184,100,2179,0) + +"DATA",811.8,184,100,2180,0) + +"DATA",811.8,184,100,2181,0) +REMINDER TERM +"DATA",811.8,184,100,2182,0) +811.5 +"DATA",811.8,184,100,2183,0) +MU NQF0038 DTAP2 +"DATA",811.8,184,100,2184,0) +524 +"DATA",811.8,184,100,2185,0) +3626688811 +"DATA",811.8,184,100,2186,0) +NO +"DATA",811.8,184,100,2187,0) + +"DATA",811.8,184,100,2188,0) + +"DATA",811.8,184,100,2197,0) + +"DATA",811.8,184,100,2198,0) + +"DATA",811.8,184,100,2199,0) + +"DATA",811.8,184,100,2203,0) + +"DATA",811.8,184,100,2204,0) + +"DATA",811.8,184,100,2205,0) + +"DATA",811.8,184,100,2206,0) +REMINDER TERM +"DATA",811.8,184,100,2207,0) +811.5 +"DATA",811.8,184,100,2208,0) +MU NQF0038 DTAP3 +"DATA",811.8,184,100,2209,0) +523 +"DATA",811.8,184,100,2210,0) +1589102608 +"DATA",811.8,184,100,2211,0) +NO +"DATA",811.8,184,100,2212,0) + +"DATA",811.8,184,100,2213,0) + +"DATA",811.8,184,100,2222,0) + +"DATA",811.8,184,100,2223,0) + +"DATA",811.8,184,100,2224,0) + +"DATA",811.8,184,100,2228,0) + +"DATA",811.8,184,100,2229,0) + +"DATA",811.8,184,100,2230,0) + +"DATA",811.8,184,100,2231,0) +REMINDER TERM +"DATA",811.8,184,100,2232,0) +811.5 +"DATA",811.8,184,100,2233,0) +MU NQF0038 DTAP4 +"DATA",811.8,184,100,2234,0) +521 +"DATA",811.8,184,100,2235,0) +2038831923 +"DATA",811.8,184,100,2236,0) +NO +"DATA",811.8,184,100,2237,0) + +"DATA",811.8,184,100,2238,0) + +"DATA",811.8,184,100,2247,0) + +"DATA",811.8,184,100,2248,0) + +"DATA",811.8,184,100,2249,0) + +"DATA",811.8,184,100,2253,0) + +"DATA",811.8,184,100,2254,0) + +"DATA",811.8,184,100,2255,0) + +"DATA",811.8,184,100,2256,0) +REMINDER TERM +"DATA",811.8,184,100,2257,0) +811.5 +"DATA",811.8,184,100,2258,0) +MU NQF0038 DTAP5 +"DATA",811.8,184,100,2259,0) +520 +"DATA",811.8,184,100,2260,0) +4279972360 +"DATA",811.8,184,100,2261,0) +NO +"DATA",811.8,184,100,2262,0) + +"DATA",811.8,184,100,2263,0) + +"DATA",811.8,184,100,2272,0) + +"DATA",811.8,184,100,2273,0) + +"DATA",811.8,184,100,2274,0) + +"DATA",811.8,184,100,2278,0) + +"DATA",811.8,184,100,2279,0) + +"DATA",811.8,184,100,2280,0) + +"DATA",811.8,184,100,2281,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2282,0) +811.9 +"DATA",811.8,184,100,2283,0) +MU NQF0038 NUM8 HEPA LIST +"DATA",811.8,184,100,2284,0) +176 +"DATA",811.8,184,100,2285,0) +3063815209 +"DATA",811.8,184,100,2286,0) +NO +"DATA",811.8,184,100,2287,0) + +"DATA",811.8,184,100,2288,0) + +"DATA",811.8,184,100,2330,0) + +"DATA",811.8,184,100,2331,0) + +"DATA",811.8,184,100,2332,0) + +"DATA",811.8,184,100,2340,0) + +"DATA",811.8,184,100,2341,0) + +"DATA",811.8,184,100,2342,0) + +"DATA",811.8,184,100,2343,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2344,0) +811.9 +"DATA",811.8,184,100,2345,0) +MU NQF0038 NUM10 INFLUENZA LIST +"DATA",811.8,184,100,2346,0) +157 +"DATA",811.8,184,100,2347,0) +2792524997 +"DATA",811.8,184,100,2348,0) +NO +"DATA",811.8,184,100,2349,0) + +"DATA",811.8,184,100,2350,0) +1 +"DATA",811.8,184,100,2389,0) +811.925;+163,+157,;10~FN(1)>1 +"DATA",811.8,184,100,2390,0) +811.925;+163,+157,;41~0 +"DATA",811.8,184,100,2391,0) +811.925;+163,+157,;42~0 +"DATA",811.8,184,100,2392,0) +811.925;+164,+157,;.01~3 +"DATA",811.8,184,100,2393,0) +811.925;+164,+157,;3~MAX_DATE(1)>(MIN_DATE(1)+180) +"DATA",811.8,184,100,2394,0) +811.925;+164,+157,;10~FN(1)>(FN(2)+180) +"DATA",811.8,184,100,2395,0) +811.925;+164,+157,;41~0 +"DATA",811.8,184,100,2396,0) +811.925;+164,+157,;42~0 +"DATA",811.8,184,100,2397,0) +811.9255;+165,+163,+157,;.01~1 +"DATA",811.8,184,100,2398,0) +811.9255;+165,+163,+157,;.02~COUNT +"DATA",811.8,184,100,2399,0) +811.9255;+166,+164,+157,;.01~1 +"DATA",811.8,184,100,2400,0) +811.9255;+166,+164,+157,;.02~MAX_DATE +"DATA",811.8,184,100,2401,0) +811.9255;+167,+164,+157,;.01~2 +"DATA",811.8,184,100,2402,0) +811.9255;+167,+164,+157,;.02~MIN_DATE +"DATA",811.8,184,100,2403,0) +811.9256;+168,+165,+163,+157,;.01~1 +"DATA",811.8,184,100,2404,0) +811.9256;+169,+166,+164,+157,;.01~1 +"DATA",811.8,184,100,2405,0) +811.9256;+170,+167,+164,+157,;.01~1 +"DATA",811.8,184,100,2406,0) +811.97;+171,+157,;.01~99Y +"DATA",811.8,184,100,2407,0) +811.97;+171,+157,;1~2 +"DATA",811.8,184,100,2408,0) +811.97;+171,+157,;2~2 +"DATA",811.8,184,100,2409,0) +811.97;+171,+157,;5~0 +"DATA",811.8,184,100,2410,0) +811.97;+171,+157,;6~0 +"DATA",811.8,184,100,2411,0) +]]> +"DATA",811.8,184,100,2412,0) + +"DATA",811.8,184,100,2413,0) + +"DATA",811.8,184,100,2414,0) + +"DATA",811.8,184,100,2430,0) + +"DATA",811.8,184,100,2431,0) + +"DATA",811.8,184,100,2432,0) + +"DATA",811.8,184,100,2433,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2434,0) +811.9 +"DATA",811.8,184,100,2435,0) +MU NQF0038 IMMUN DENOM PL +"DATA",811.8,184,100,2436,0) +143 +"DATA",811.8,184,100,2437,0) +1809123290 +"DATA",811.8,184,100,2438,0) +NO +"DATA",811.8,184,100,2439,0) + +"DATA",811.8,184,100,2440,0) + +"DATA",811.8,184,100,2476,0) + +"DATA",811.8,184,100,2477,0) + +"DATA",811.8,184,100,2478,0) + +"DATA",811.8,184,100,2483,0) + +"DATA",811.8,184,100,2484,0) + +"DATA",811.8,184,100,2485,0) + +"DATA",811.8,184,100,2486,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2487,0) +811.9 +"DATA",811.8,184,100,2488,0) +MU NQF0038 NUM9 RV LIST +"DATA",811.8,184,100,2489,0) +169 +"DATA",811.8,184,100,2490,0) +3170007919 +"DATA",811.8,184,100,2491,0) +NO +"DATA",811.8,184,100,2492,0) + +"DATA",811.8,184,100,2493,0) +41)!FI(3)) +"DATA",811.8,184,100,2534,0) +811.925;+175,+169,;10~((FN(1)>41)!FN(2)) +"DATA",811.8,184,100,2535,0) +811.925;+175,+169,;41~0 +"DATA",811.8,184,100,2536,0) +811.925;+175,+169,;42~0 +"DATA",811.8,184,100,2537,0) +811.9255;+176,+175,+169,;.01~1 +"DATA",811.8,184,100,2538,0) +811.9255;+176,+175,+169,;.02~DIFF_DATE +"DATA",811.8,184,100,2539,0) +811.9255;+177,+175,+169,;.01~2 +"DATA",811.8,184,100,2540,0) +811.9255;+177,+175,+169,;.02~FI +"DATA",811.8,184,100,2541,0) +811.9256;+178,+176,+175,+169,;.01~1 +"DATA",811.8,184,100,2542,0) +811.9256;+179,+177,+175,+169,;.01~3 +"DATA",811.8,184,100,2543,0) +811.9256;+180,+176,+175,+169,;.01~2 +"DATA",811.8,184,100,2544,0) +811.97;+181,+169,;.01~99Y +"DATA",811.8,184,100,2545,0) +811.97;+181,+169,;1~2 +"DATA",811.8,184,100,2546,0) +811.97;+181,+169,;2~2 +"DATA",811.8,184,100,2547,0) +811.97;+181,+169,;5~0 +"DATA",811.8,184,100,2548,0) +811.97;+181,+169,;6~0 +"DATA",811.8,184,100,2549,0) +]]> +"DATA",811.8,184,100,2550,0) + +"DATA",811.8,184,100,2551,0) + +"DATA",811.8,184,100,2552,0) + +"DATA",811.8,184,100,2566,0) + +"DATA",811.8,184,100,2567,0) + +"DATA",811.8,184,100,2568,0) + +"DATA",811.8,184,100,2569,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2570,0) +811.9 +"DATA",811.8,184,100,2571,0) +MU NQF0038 NUM4 HIB LIST +"DATA",811.8,184,100,2572,0) +173 +"DATA",811.8,184,100,2573,0) +3524423173 +"DATA",811.8,184,100,2574,0) +NO +"DATA",811.8,184,100,2575,0) + +"DATA",811.8,184,100,2576,0) +41)!FI(3)) +"DATA",811.8,184,100,2617,0) +811.925;+179,+173,;10~((FN(1)>41)!FN(2)) +"DATA",811.8,184,100,2618,0) +811.925;+179,+173,;41~0 +"DATA",811.8,184,100,2619,0) +811.925;+179,+173,;42~0 +"DATA",811.8,184,100,2620,0) +811.9255;+180,+179,+173,;.01~1 +"DATA",811.8,184,100,2621,0) +811.9255;+180,+179,+173,;.02~DIFF_DATE +"DATA",811.8,184,100,2622,0) +811.9255;+181,+179,+173,;.01~2 +"DATA",811.8,184,100,2623,0) +811.9255;+181,+179,+173,;.02~FI +"DATA",811.8,184,100,2624,0) +811.9256;+182,+180,+179,+173,;.01~1 +"DATA",811.8,184,100,2625,0) +811.9256;+183,+181,+179,+173,;.01~3 +"DATA",811.8,184,100,2626,0) +811.9256;+184,+180,+179,+173,;.01~2 +"DATA",811.8,184,100,2627,0) +811.97;+185,+173,;.01~99Y +"DATA",811.8,184,100,2628,0) +811.97;+185,+173,;1~2 +"DATA",811.8,184,100,2629,0) +811.97;+185,+173,;2~2 +"DATA",811.8,184,100,2630,0) +811.97;+185,+173,;5~0 +"DATA",811.8,184,100,2631,0) +811.97;+185,+173,;6~0 +"DATA",811.8,184,100,2632,0) +]]> +"DATA",811.8,184,100,2633,0) + +"DATA",811.8,184,100,2634,0) + +"DATA",811.8,184,100,2635,0) + +"DATA",811.8,184,100,2649,0) + +"DATA",811.8,184,100,2650,0) + +"DATA",811.8,184,100,2651,0) + +"DATA",811.8,184,100,2652,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2653,0) +811.9 +"DATA",811.8,184,100,2654,0) +MU NQF0038 NUM7 PCV LIST +"DATA",811.8,184,100,2655,0) +170 +"DATA",811.8,184,100,2656,0) +2897600612 +"DATA",811.8,184,100,2657,0) +NO +"DATA",811.8,184,100,2658,0) + +"DATA",811.8,184,100,2659,0) +41)&(DIFF_DATE(2,3)>41)&(DIFF_DATE(3,4)>41))!FI(5) +"DATA",811.8,184,100,2706,0) +811.925;+178,+170,;10~((FN(1)>41)&(FN(2)>41)&(FN(3)>41))!FN(4) +"DATA",811.8,184,100,2707,0) +811.925;+178,+170,;41~0 +"DATA",811.8,184,100,2708,0) +811.925;+178,+170,;42~0 +"DATA",811.8,184,100,2709,0) +811.9255;+179,+178,+170,;.01~1 +"DATA",811.8,184,100,2710,0) +811.9255;+179,+178,+170,;.02~DIFF_DATE +"DATA",811.8,184,100,2711,0) +811.9255;+180,+178,+170,;.01~2 +"DATA",811.8,184,100,2712,0) +811.9255;+180,+178,+170,;.02~DIFF_DATE +"DATA",811.8,184,100,2713,0) +811.9255;+181,+178,+170,;.01~3 +"DATA",811.8,184,100,2714,0) +811.9255;+181,+178,+170,;.02~DIFF_DATE +"DATA",811.8,184,100,2715,0) +811.9255;+182,+178,+170,;.01~4 +"DATA",811.8,184,100,2716,0) +811.9255;+182,+178,+170,;.02~FI +"DATA",811.8,184,100,2717,0) +811.9256;+183,+179,+178,+170,;.01~1 +"DATA",811.8,184,100,2718,0) +811.9256;+184,+180,+178,+170,;.01~2 +"DATA",811.8,184,100,2719,0) +811.9256;+185,+181,+178,+170,;.01~3 +"DATA",811.8,184,100,2720,0) +811.9256;+186,+182,+178,+170,;.01~5 +"DATA",811.8,184,100,2721,0) +811.9256;+187,+179,+178,+170,;.01~2 +"DATA",811.8,184,100,2722,0) +811.9256;+188,+180,+178,+170,;.01~3 +"DATA",811.8,184,100,2723,0) +811.9256;+189,+181,+178,+170,;.01~4 +"DATA",811.8,184,100,2724,0) +811.97;+190,+170,;.01~99Y +"DATA",811.8,184,100,2725,0) +811.97;+190,+170,;1~2 +"DATA",811.8,184,100,2726,0) +811.97;+190,+170,;2~2 +"DATA",811.8,184,100,2727,0) +811.97;+190,+170,;5~0 +"DATA",811.8,184,100,2728,0) +811.97;+190,+170,;6~0 +"DATA",811.8,184,100,2729,0) +]]> +"DATA",811.8,184,100,2730,0) + +"DATA",811.8,184,100,2731,0) + +"DATA",811.8,184,100,2732,0) + +"DATA",811.8,184,100,2754,0) + +"DATA",811.8,184,100,2755,0) + +"DATA",811.8,184,100,2756,0) + +"DATA",811.8,184,100,2757,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2758,0) +811.9 +"DATA",811.8,184,100,2759,0) +MU NQF0038 NUM6 VZV LIST +"DATA",811.8,184,100,2760,0) +171 +"DATA",811.8,184,100,2761,0) +654779585 +"DATA",811.8,184,100,2762,0) +NO +"DATA",811.8,184,100,2763,0) + +"DATA",811.8,184,100,2764,0) + +"DATA",811.8,184,100,2813,0) + +"DATA",811.8,184,100,2814,0) + +"DATA",811.8,184,100,2815,0) + +"DATA",811.8,184,100,2825,0) + +"DATA",811.8,184,100,2826,0) + +"DATA",811.8,184,100,2827,0) + +"DATA",811.8,184,100,2828,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2829,0) +811.9 +"DATA",811.8,184,100,2830,0) +MU NQF0038 NUM5 HEPB LIST +"DATA",811.8,184,100,2831,0) +172 +"DATA",811.8,184,100,2832,0) +1420025905 +"DATA",811.8,184,100,2833,0) +NO +"DATA",811.8,184,100,2834,0) + +"DATA",811.8,184,100,2835,0) +41)&(DIFF_DATE(2,3)>41))!FI(4) +"DATA",811.8,184,100,2884,0) +811.925;+180,+172,;10~((FN(1)>41)&(FN(2)>41))!FN(3) +"DATA",811.8,184,100,2885,0) +811.925;+180,+172,;41~0 +"DATA",811.8,184,100,2886,0) +811.925;+180,+172,;42~0 +"DATA",811.8,184,100,2887,0) +811.9255;+181,+180,+172,;.01~1 +"DATA",811.8,184,100,2888,0) +811.9255;+181,+180,+172,;.02~DIFF_DATE +"DATA",811.8,184,100,2889,0) +811.9255;+182,+180,+172,;.01~2 +"DATA",811.8,184,100,2890,0) +811.9255;+182,+180,+172,;.02~DIFF_DATE +"DATA",811.8,184,100,2891,0) +811.9255;+183,+180,+172,;.01~3 +"DATA",811.8,184,100,2892,0) +811.9255;+183,+180,+172,;.02~FI +"DATA",811.8,184,100,2893,0) +811.9256;+184,+181,+180,+172,;.01~1 +"DATA",811.8,184,100,2894,0) +811.9256;+185,+182,+180,+172,;.01~2 +"DATA",811.8,184,100,2895,0) +811.9256;+186,+183,+180,+172,;.01~4 +"DATA",811.8,184,100,2896,0) +811.9256;+187,+181,+180,+172,;.01~2 +"DATA",811.8,184,100,2897,0) +811.9256;+188,+182,+180,+172,;.01~3 +"DATA",811.8,184,100,2898,0) +811.97;+189,+172,;.01~99Y +"DATA",811.8,184,100,2899,0) +811.97;+189,+172,;1~2 +"DATA",811.8,184,100,2900,0) +811.97;+189,+172,;2~2 +"DATA",811.8,184,100,2901,0) +811.97;+189,+172,;5~0 +"DATA",811.8,184,100,2902,0) +811.97;+189,+172,;6~0 +"DATA",811.8,184,100,2903,0) +]]> +"DATA",811.8,184,100,2904,0) + +"DATA",811.8,184,100,2905,0) + +"DATA",811.8,184,100,2906,0) + +"DATA",811.8,184,100,2925,0) + +"DATA",811.8,184,100,2926,0) + +"DATA",811.8,184,100,2927,0) + +"DATA",811.8,184,100,2928,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2929,0) +811.9 +"DATA",811.8,184,100,2930,0) +MU NQF0038 NUM3-4 MMR OR EXCLUSIONS +"DATA",811.8,184,100,2931,0) +154 +"DATA",811.8,184,100,2932,0) +378304769 +"DATA",811.8,184,100,2933,0) +NO +"DATA",811.8,184,100,2934,0) + +"DATA",811.8,184,100,2935,0) + +"DATA",811.8,184,100,2977,0) + +"DATA",811.8,184,100,2978,0) + +"DATA",811.8,184,100,2979,0) + +"DATA",811.8,184,100,2987,0) + +"DATA",811.8,184,100,2988,0) + +"DATA",811.8,184,100,2989,0) + +"DATA",811.8,184,100,2990,0) +REMINDER DEFINITION +"DATA",811.8,184,100,2991,0) +811.9 +"DATA",811.8,184,100,2992,0) +MU NQF0038 NUM3-3 RUBELLA +"DATA",811.8,184,100,2993,0) +155 +"DATA",811.8,184,100,2994,0) +2295076213 +"DATA",811.8,184,100,2995,0) +NO +"DATA",811.8,184,100,2996,0) + +"DATA",811.8,184,100,2997,0) +1 +"DATA",811.8,184,100,3032,0) +811.925;+160,+155,;10~FN(1)>1 +"DATA",811.8,184,100,3033,0) +811.925;+160,+155,;41~0 +"DATA",811.8,184,100,3034,0) +811.925;+160,+155,;42~0 +"DATA",811.8,184,100,3035,0) +811.9255;+161,+160,+155,;.01~1 +"DATA",811.8,184,100,3036,0) +811.9255;+161,+160,+155,;.02~COUNT +"DATA",811.8,184,100,3037,0) +811.9256;+162,+161,+160,+155,;.01~1 +"DATA",811.8,184,100,3038,0) +811.97;+163,+155,;.01~99Y +"DATA",811.8,184,100,3039,0) +811.97;+163,+155,;1~2 +"DATA",811.8,184,100,3040,0) +811.97;+163,+155,;2~2 +"DATA",811.8,184,100,3041,0) +811.97;+163,+155,;5~0 +"DATA",811.8,184,100,3042,0) +811.97;+163,+155,;6~0 +"DATA",811.8,184,100,3043,0) +]]> +"DATA",811.8,184,100,3044,0) + +"DATA",811.8,184,100,3045,0) + +"DATA",811.8,184,100,3046,0) + +"DATA",811.8,184,100,3056,0) + +"DATA",811.8,184,100,3057,0) + +"DATA",811.8,184,100,3058,0) + +"DATA",811.8,184,100,3059,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3060,0) +811.9 +"DATA",811.8,184,100,3061,0) +MU NQF0038 NUM3-2 MEASLES +"DATA",811.8,184,100,3062,0) +141 +"DATA",811.8,184,100,3063,0) +1881785811 +"DATA",811.8,184,100,3064,0) +NO +"DATA",811.8,184,100,3065,0) + +"DATA",811.8,184,100,3066,0) +1 +"DATA",811.8,184,100,3101,0) +811.925;+146,+141,;10~FN(1)>1 +"DATA",811.8,184,100,3102,0) +811.925;+146,+141,;41~0 +"DATA",811.8,184,100,3103,0) +811.925;+146,+141,;42~0 +"DATA",811.8,184,100,3104,0) +811.9255;+147,+146,+141,;.01~1 +"DATA",811.8,184,100,3105,0) +811.9255;+147,+146,+141,;.02~COUNT +"DATA",811.8,184,100,3106,0) +811.9256;+148,+147,+146,+141,;.01~1 +"DATA",811.8,184,100,3107,0) +811.97;+149,+141,;.01~99Y +"DATA",811.8,184,100,3108,0) +811.97;+149,+141,;1~2 +"DATA",811.8,184,100,3109,0) +811.97;+149,+141,;2~2 +"DATA",811.8,184,100,3110,0) +811.97;+149,+141,;5~0 +"DATA",811.8,184,100,3111,0) +811.97;+149,+141,;6~0 +"DATA",811.8,184,100,3112,0) +]]> +"DATA",811.8,184,100,3113,0) + +"DATA",811.8,184,100,3114,0) + +"DATA",811.8,184,100,3115,0) + +"DATA",811.8,184,100,3125,0) + +"DATA",811.8,184,100,3126,0) + +"DATA",811.8,184,100,3127,0) + +"DATA",811.8,184,100,3128,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3129,0) +811.9 +"DATA",811.8,184,100,3130,0) +MU NQF0038 NUM3-1 MUMPS +"DATA",811.8,184,100,3131,0) +149 +"DATA",811.8,184,100,3132,0) +407955614 +"DATA",811.8,184,100,3133,0) +NO +"DATA",811.8,184,100,3134,0) + +"DATA",811.8,184,100,3135,0) +1 +"DATA",811.8,184,100,3170,0) +811.925;+154,+149,;10~FN(1)>1 +"DATA",811.8,184,100,3171,0) +811.925;+154,+149,;41~0 +"DATA",811.8,184,100,3172,0) +811.925;+154,+149,;42~0 +"DATA",811.8,184,100,3173,0) +811.9255;+155,+154,+149,;.01~1 +"DATA",811.8,184,100,3174,0) +811.9255;+155,+154,+149,;.02~COUNT +"DATA",811.8,184,100,3175,0) +811.9256;+156,+155,+154,+149,;.01~1 +"DATA",811.8,184,100,3176,0) +811.97;+157,+149,;.01~99Y +"DATA",811.8,184,100,3177,0) +811.97;+157,+149,;1~2 +"DATA",811.8,184,100,3178,0) +811.97;+157,+149,;2~2 +"DATA",811.8,184,100,3179,0) +811.97;+157,+149,;5~0 +"DATA",811.8,184,100,3180,0) +811.97;+157,+149,;6~0 +"DATA",811.8,184,100,3181,0) +]]> +"DATA",811.8,184,100,3182,0) + +"DATA",811.8,184,100,3183,0) + +"DATA",811.8,184,100,3184,0) + +"DATA",811.8,184,100,3194,0) + +"DATA",811.8,184,100,3195,0) + +"DATA",811.8,184,100,3196,0) + +"DATA",811.8,184,100,3197,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3198,0) +811.9 +"DATA",811.8,184,100,3199,0) +MU NQF0038 NUM2 IPV LIST +"DATA",811.8,184,100,3200,0) +156 +"DATA",811.8,184,100,3201,0) +3647355999 +"DATA",811.8,184,100,3202,0) +NO +"DATA",811.8,184,100,3203,0) + +"DATA",811.8,184,100,3204,0) +41)&(DIFF_DATE(2,3)>41))!(FI(4)) +"DATA",811.8,184,100,3248,0) +811.925;+163,+156,;10~((FN(1)>41)&(FN(2)>41))!(FN(3)) +"DATA",811.8,184,100,3249,0) +811.925;+163,+156,;41~0 +"DATA",811.8,184,100,3250,0) +811.925;+163,+156,;42~0 +"DATA",811.8,184,100,3251,0) +811.9255;+164,+163,+156,;.01~1 +"DATA",811.8,184,100,3252,0) +811.9255;+164,+163,+156,;.02~DIFF_DATE +"DATA",811.8,184,100,3253,0) +811.9255;+165,+163,+156,;.01~2 +"DATA",811.8,184,100,3254,0) +811.9255;+165,+163,+156,;.02~DIFF_DATE +"DATA",811.8,184,100,3255,0) +811.9255;+166,+163,+156,;.01~3 +"DATA",811.8,184,100,3256,0) +811.9255;+166,+163,+156,;.02~FI +"DATA",811.8,184,100,3257,0) +811.9256;+167,+164,+163,+156,;.01~1 +"DATA",811.8,184,100,3258,0) +811.9256;+168,+165,+163,+156,;.01~2 +"DATA",811.8,184,100,3259,0) +811.9256;+169,+166,+163,+156,;.01~4 +"DATA",811.8,184,100,3260,0) +811.9256;+170,+164,+163,+156,;.01~2 +"DATA",811.8,184,100,3261,0) +811.9256;+171,+165,+163,+156,;.01~3 +"DATA",811.8,184,100,3262,0) +811.97;+172,+156,;.01~99Y +"DATA",811.8,184,100,3263,0) +811.97;+172,+156,;1~2 +"DATA",811.8,184,100,3264,0) +811.97;+172,+156,;2~2 +"DATA",811.8,184,100,3265,0) +811.97;+172,+156,;3~WP-start~1 +"DATA",811.8,184,100,3266,0) +PATIENT WAS 2 DURING EVALUATION PERIOD. +"DATA",811.8,184,100,3267,0) +811.97;+172,+156,;5~1 +"DATA",811.8,184,100,3268,0) +811.97;+172,+156,;6~0 +"DATA",811.8,184,100,3269,0) +]]> +"DATA",811.8,184,100,3270,0) + +"DATA",811.8,184,100,3271,0) + +"DATA",811.8,184,100,3272,0) + +"DATA",811.8,184,100,3290,0) + +"DATA",811.8,184,100,3291,0) + +"DATA",811.8,184,100,3292,0) + +"DATA",811.8,184,100,3293,0) +REMINDER DEFINITION +"DATA",811.8,184,100,3294,0) +811.9 +"DATA",811.8,184,100,3295,0) +MU NQF0038 NUM1 LIST +"DATA",811.8,184,100,3296,0) +148 +"DATA",811.8,184,100,3297,0) +2285142910 +"DATA",811.8,184,100,3298,0) +NO +"DATA",811.8,184,100,3299,0) + +"DATA",811.8,184,100,3300,0) +41)&(DIFF_DATE(4,5)>41)&(DIFF_DATE(5,6)>41) +"DATA",811.8,184,100,3354,0) +811.925;+157,+148,;10~(FN(1)>41)&(FN(2)>41)&(FN(3)>41) +"DATA",811.8,184,100,3355,0) +811.925;+157,+148,;41~0 +"DATA",811.8,184,100,3356,0) +811.925;+157,+148,;42~0 +"DATA",811.8,184,100,3357,0) +811.925;+158,+148,;.01~2 +"DATA",811.8,184,100,3358,0) +811.925;+158,+148,;3~(PXRMDOB+20000)>MRD(6,7) +"DATA",811.8,184,100,3359,0) +811.925;+158,+148,;10~(PXRMDOB+20000)>FN(1) +"DATA",811.8,184,100,3360,0) +811.925;+158,+148,;41~0 +"DATA",811.8,184,100,3361,0) +811.925;+158,+148,;42~0 +"DATA",811.8,184,100,3362,0) +811.9255;+159,+157,+148,;.01~1 +"DATA",811.8,184,100,3363,0) +811.9255;+159,+157,+148,;.02~DIFF_DATE +"DATA",811.8,184,100,3364,0) +811.9255;+160,+158,+148,;.01~1 +"DATA",811.8,184,100,3365,0) +811.9255;+160,+158,+148,;.02~MRD +"DATA",811.8,184,100,3366,0) +811.9255;+161,+157,+148,;.01~2 +"DATA",811.8,184,100,3367,0) +811.9255;+161,+157,+148,;.02~DIFF_DATE +"DATA",811.8,184,100,3368,0) +811.9255;+162,+157,+148,;.01~3 +"DATA",811.8,184,100,3369,0) +811.9255;+162,+157,+148,;.02~DIFF_DATE +"DATA",811.8,184,100,3370,0) +811.9256;+163,+159,+157,+148,;.01~1 +"DATA",811.8,184,100,3371,0) +811.9256;+164,+160,+158,+148,;.01~6 +"DATA",811.8,184,100,3372,0) +811.9256;+165,+161,+157,+148,;.01~4 +"DATA",811.8,184,100,3373,0) +811.9256;+166,+162,+157,+148,;.01~5 +"DATA",811.8,184,100,3374,0) +811.9256;+167,+159,+157,+148,;.01~4 +"DATA",811.8,184,100,3375,0) +811.9256;+168,+160,+158,+148,;.01~7 +"DATA",811.8,184,100,3376,0) +811.9256;+169,+161,+157,+148,;.01~5 +"DATA",811.8,184,100,3377,0) +811.9256;+170,+162,+157,+148,;.01~6 +"DATA",811.8,184,100,3378,0) +811.97;+171,+148,;.01~99Y +"DATA",811.8,184,100,3379,0) +811.97;+171,+148,;1~2 +"DATA",811.8,184,100,3380,0) +811.97;+171,+148,;2~2 +"DATA",811.8,184,100,3381,0) +811.97;+171,+148,;5~0 +"DATA",811.8,184,100,3382,0) +811.97;+171,+148,;6~0 +"DATA",811.8,184,100,3383,0) +]]> +"DATA",811.8,184,100,3384,0) + +"DATA",811.8,184,100,3385,0) + +"DATA",811.8,184,100,3386,0) + +"DATA",811.8,184,100,3411,0) + +"DATA",811.8,184,100,3412,0) + +"DATA",811.8,184,100,3413,0) + +"DATA",811.8,184,100,3414,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3415,0) +810.4 +"DATA",811.8,184,100,3416,0) +MU NQF0038 NUM8 ALLERGY FR +"DATA",811.8,184,100,3417,0) +193 +"DATA",811.8,184,100,3418,0) +580312536 +"DATA",811.8,184,100,3419,0) +NO +"DATA",811.8,184,100,3420,0) + +"DATA",811.8,184,100,3421,0) + +"DATA",811.8,184,100,3432,0) + +"DATA",811.8,184,100,3433,0) + +"DATA",811.8,184,100,3434,0) + +"DATA",811.8,184,100,3437,0) + +"DATA",811.8,184,100,3438,0) + +"DATA",811.8,184,100,3439,0) + +"DATA",811.8,184,100,3440,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3441,0) +810.4 +"DATA",811.8,184,100,3442,0) +MU NQF0038 NUM8 RR +"DATA",811.8,184,100,3443,0) +194 +"DATA",811.8,184,100,3444,0) +271688782 +"DATA",811.8,184,100,3445,0) +NO +"DATA",811.8,184,100,3446,0) + +"DATA",811.8,184,100,3447,0) + +"DATA",811.8,184,100,3456,0) + +"DATA",811.8,184,100,3457,0) + +"DATA",811.8,184,100,3458,0) + +"DATA",811.8,184,100,3461,0) + +"DATA",811.8,184,100,3462,0) + +"DATA",811.8,184,100,3463,0) + +"DATA",811.8,184,100,3464,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3465,0) +810.4 +"DATA",811.8,184,100,3466,0) +MU NQF0038 NUM8 HEP A RS +"DATA",811.8,184,100,3467,0) +195 +"DATA",811.8,184,100,3468,0) +317566218 +"DATA",811.8,184,100,3469,0) +NO +"DATA",811.8,184,100,3470,0) + +"DATA",811.8,184,100,3471,0) + +"DATA",811.8,184,100,3485,0) + +"DATA",811.8,184,100,3486,0) + +"DATA",811.8,184,100,3487,0) + +"DATA",811.8,184,100,3492,0) + +"DATA",811.8,184,100,3493,0) + +"DATA",811.8,184,100,3494,0) + +"DATA",811.8,184,100,3495,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3496,0) +810.4 +"DATA",811.8,184,100,3497,0) +MU NQF0038 NUM10 FLU RR +"DATA",811.8,184,100,3498,0) +102 +"DATA",811.8,184,100,3499,0) +612564212 +"DATA",811.8,184,100,3500,0) +NO +"DATA",811.8,184,100,3501,0) + +"DATA",811.8,184,100,3502,0) + +"DATA",811.8,184,100,3511,0) + +"DATA",811.8,184,100,3512,0) + +"DATA",811.8,184,100,3513,0) + +"DATA",811.8,184,100,3516,0) + +"DATA",811.8,184,100,3517,0) + +"DATA",811.8,184,100,3518,0) + +"DATA",811.8,184,100,3519,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3520,0) +810.4 +"DATA",811.8,184,100,3521,0) +MU NQF0038 NUM10 FLU FR +"DATA",811.8,184,100,3522,0) +103 +"DATA",811.8,184,100,3523,0) +835561642 +"DATA",811.8,184,100,3524,0) +NO +"DATA",811.8,184,100,3525,0) + +"DATA",811.8,184,100,3526,0) + +"DATA",811.8,184,100,3535,0) + +"DATA",811.8,184,100,3536,0) + +"DATA",811.8,184,100,3537,0) + +"DATA",811.8,184,100,3540,0) + +"DATA",811.8,184,100,3541,0) + +"DATA",811.8,184,100,3542,0) + +"DATA",811.8,184,100,3543,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3544,0) +810.4 +"DATA",811.8,184,100,3545,0) +MU NQF0038 DENOM RR +"DATA",811.8,184,100,3546,0) +67 +"DATA",811.8,184,100,3547,0) +3322876793 +"DATA",811.8,184,100,3548,0) +NO +"DATA",811.8,184,100,3549,0) + +"DATA",811.8,184,100,3550,0) + +"DATA",811.8,184,100,3559,0) + +"DATA",811.8,184,100,3560,0) + +"DATA",811.8,184,100,3561,0) + +"DATA",811.8,184,100,3564,0) + +"DATA",811.8,184,100,3565,0) + +"DATA",811.8,184,100,3566,0) + +"DATA",811.8,184,100,3567,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3568,0) +810.4 +"DATA",811.8,184,100,3569,0) +MU NQF0038 NUM10 INFLUENZA RS +"DATA",811.8,184,100,3570,0) +104 +"DATA",811.8,184,100,3571,0) +894589208 +"DATA",811.8,184,100,3572,0) +NO +"DATA",811.8,184,100,3573,0) + +"DATA",811.8,184,100,3574,0) + +"DATA",811.8,184,100,3591,0) + +"DATA",811.8,184,100,3592,0) + +"DATA",811.8,184,100,3593,0) + +"DATA",811.8,184,100,3599,0) + +"DATA",811.8,184,100,3600,0) + +"DATA",811.8,184,100,3601,0) + +"DATA",811.8,184,100,3602,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3603,0) +810.4 +"DATA",811.8,184,100,3604,0) +MU NQF0038 NUM9 ALLERGY FR +"DATA",811.8,184,100,3605,0) +146 +"DATA",811.8,184,100,3606,0) +409462214 +"DATA",811.8,184,100,3607,0) +NO +"DATA",811.8,184,100,3608,0) + +"DATA",811.8,184,100,3609,0) + +"DATA",811.8,184,100,3620,0) + +"DATA",811.8,184,100,3621,0) + +"DATA",811.8,184,100,3622,0) + +"DATA",811.8,184,100,3625,0) + +"DATA",811.8,184,100,3626,0) + +"DATA",811.8,184,100,3627,0) + +"DATA",811.8,184,100,3628,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3629,0) +810.4 +"DATA",811.8,184,100,3630,0) +MU NQF0038 NUM9 RR +"DATA",811.8,184,100,3631,0) +147 +"DATA",811.8,184,100,3632,0) +1306992670 +"DATA",811.8,184,100,3633,0) +NO +"DATA",811.8,184,100,3634,0) + +"DATA",811.8,184,100,3635,0) + +"DATA",811.8,184,100,3644,0) + +"DATA",811.8,184,100,3645,0) + +"DATA",811.8,184,100,3646,0) + +"DATA",811.8,184,100,3649,0) + +"DATA",811.8,184,100,3650,0) + +"DATA",811.8,184,100,3651,0) + +"DATA",811.8,184,100,3652,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3653,0) +810.4 +"DATA",811.8,184,100,3654,0) +MU NQF0038 NUM9 RV RS +"DATA",811.8,184,100,3655,0) +148 +"DATA",811.8,184,100,3656,0) +659147702 +"DATA",811.8,184,100,3657,0) +NO +"DATA",811.8,184,100,3658,0) + +"DATA",811.8,184,100,3659,0) + +"DATA",811.8,184,100,3673,0) + +"DATA",811.8,184,100,3674,0) + +"DATA",811.8,184,100,3675,0) + +"DATA",811.8,184,100,3680,0) + +"DATA",811.8,184,100,3681,0) + +"DATA",811.8,184,100,3682,0) + +"DATA",811.8,184,100,3683,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3684,0) +810.4 +"DATA",811.8,184,100,3685,0) +MU NQF0038 NUM4 ALLERGY FR +"DATA",811.8,184,100,3686,0) +158 +"DATA",811.8,184,100,3687,0) +3164412154 +"DATA",811.8,184,100,3688,0) +NO +"DATA",811.8,184,100,3689,0) + +"DATA",811.8,184,100,3690,0) + +"DATA",811.8,184,100,3701,0) + +"DATA",811.8,184,100,3702,0) + +"DATA",811.8,184,100,3703,0) + +"DATA",811.8,184,100,3706,0) + +"DATA",811.8,184,100,3707,0) + +"DATA",811.8,184,100,3708,0) + +"DATA",811.8,184,100,3709,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3710,0) +810.4 +"DATA",811.8,184,100,3711,0) +MU NQF0038 NUM4 RR +"DATA",811.8,184,100,3712,0) +159 +"DATA",811.8,184,100,3713,0) +2270811009 +"DATA",811.8,184,100,3714,0) +NO +"DATA",811.8,184,100,3715,0) + +"DATA",811.8,184,100,3716,0) + +"DATA",811.8,184,100,3725,0) + +"DATA",811.8,184,100,3726,0) + +"DATA",811.8,184,100,3727,0) + +"DATA",811.8,184,100,3730,0) + +"DATA",811.8,184,100,3731,0) + +"DATA",811.8,184,100,3732,0) + +"DATA",811.8,184,100,3733,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3734,0) +810.4 +"DATA",811.8,184,100,3735,0) +MU NQF0038 NUM4 HIB RS +"DATA",811.8,184,100,3736,0) +160 +"DATA",811.8,184,100,3737,0) +82663200 +"DATA",811.8,184,100,3738,0) +NO +"DATA",811.8,184,100,3739,0) + +"DATA",811.8,184,100,3740,0) + +"DATA",811.8,184,100,3754,0) + +"DATA",811.8,184,100,3755,0) + +"DATA",811.8,184,100,3756,0) + +"DATA",811.8,184,100,3761,0) + +"DATA",811.8,184,100,3762,0) + +"DATA",811.8,184,100,3763,0) + +"DATA",811.8,184,100,3764,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3765,0) +810.4 +"DATA",811.8,184,100,3766,0) +MU NQF0038 NUM7 PCV PR +"DATA",811.8,184,100,3767,0) +189 +"DATA",811.8,184,100,3768,0) +211215395 +"DATA",811.8,184,100,3769,0) +NO +"DATA",811.8,184,100,3770,0) + +"DATA",811.8,184,100,3771,0) + +"DATA",811.8,184,100,3781,0) + +"DATA",811.8,184,100,3782,0) + +"DATA",811.8,184,100,3783,0) + +"DATA",811.8,184,100,3786,0) + +"DATA",811.8,184,100,3787,0) + +"DATA",811.8,184,100,3788,0) + +"DATA",811.8,184,100,3789,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3790,0) +810.4 +"DATA",811.8,184,100,3791,0) +MU NQF0038 NUM6 VZV PR +"DATA",811.8,184,100,3792,0) +188 +"DATA",811.8,184,100,3793,0) +3145953173 +"DATA",811.8,184,100,3794,0) +NO +"DATA",811.8,184,100,3795,0) + +"DATA",811.8,184,100,3796,0) + +"DATA",811.8,184,100,3806,0) + +"DATA",811.8,184,100,3807,0) + +"DATA",811.8,184,100,3808,0) + +"DATA",811.8,184,100,3811,0) + +"DATA",811.8,184,100,3812,0) + +"DATA",811.8,184,100,3813,0) + +"DATA",811.8,184,100,3814,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3815,0) +810.4 +"DATA",811.8,184,100,3816,0) +MU NQF0038 NUM5 HEP B PR +"DATA",811.8,184,100,3817,0) +187 +"DATA",811.8,184,100,3818,0) +3618141299 +"DATA",811.8,184,100,3819,0) +NO +"DATA",811.8,184,100,3820,0) + +"DATA",811.8,184,100,3821,0) + +"DATA",811.8,184,100,3831,0) + +"DATA",811.8,184,100,3832,0) + +"DATA",811.8,184,100,3833,0) + +"DATA",811.8,184,100,3836,0) + +"DATA",811.8,184,100,3837,0) + +"DATA",811.8,184,100,3838,0) + +"DATA",811.8,184,100,3839,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3840,0) +810.4 +"DATA",811.8,184,100,3841,0) +MU NQF0038 NUM3-ALL PR +"DATA",811.8,184,100,3842,0) +190 +"DATA",811.8,184,100,3843,0) +1579468922 +"DATA",811.8,184,100,3844,0) +NO +"DATA",811.8,184,100,3845,0) + +"DATA",811.8,184,100,3846,0) + +"DATA",811.8,184,100,3856,0) + +"DATA",811.8,184,100,3857,0) + +"DATA",811.8,184,100,3858,0) + +"DATA",811.8,184,100,3861,0) + +"DATA",811.8,184,100,3862,0) + +"DATA",811.8,184,100,3863,0) + +"DATA",811.8,184,100,3864,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3865,0) +810.4 +"DATA",811.8,184,100,3866,0) +MU NQF0038 NUM2 IPV PR +"DATA",811.8,184,100,3867,0) +181 +"DATA",811.8,184,100,3868,0) +655077998 +"DATA",811.8,184,100,3869,0) +NO +"DATA",811.8,184,100,3870,0) + +"DATA",811.8,184,100,3871,0) + +"DATA",811.8,184,100,3881,0) + +"DATA",811.8,184,100,3882,0) + +"DATA",811.8,184,100,3883,0) + +"DATA",811.8,184,100,3886,0) + +"DATA",811.8,184,100,3887,0) + +"DATA",811.8,184,100,3888,0) + +"DATA",811.8,184,100,3889,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3890,0) +810.4 +"DATA",811.8,184,100,3891,0) +MU NQF0038 NUM1 DPT PR +"DATA",811.8,184,100,3892,0) +180 +"DATA",811.8,184,100,3893,0) +396938512 +"DATA",811.8,184,100,3894,0) +NO +"DATA",811.8,184,100,3895,0) + +"DATA",811.8,184,100,3896,0) + +"DATA",811.8,184,100,3906,0) + +"DATA",811.8,184,100,3907,0) + +"DATA",811.8,184,100,3908,0) + +"DATA",811.8,184,100,3911,0) + +"DATA",811.8,184,100,3912,0) + +"DATA",811.8,184,100,3913,0) + +"DATA",811.8,184,100,3914,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3915,0) +810.4 +"DATA",811.8,184,100,3916,0) +MU NQF0038 NUM12 COMBO6 RS +"DATA",811.8,184,100,3917,0) +192 +"DATA",811.8,184,100,3918,0) +1140826219 +"DATA",811.8,184,100,3919,0) +NO +"DATA",811.8,184,100,3920,0) + +"DATA",811.8,184,100,3921,0) + +"DATA",811.8,184,100,3948,0) + +"DATA",811.8,184,100,3949,0) + +"DATA",811.8,184,100,3950,0) + +"DATA",811.8,184,100,3959,0) + +"DATA",811.8,184,100,3960,0) + +"DATA",811.8,184,100,3961,0) + +"DATA",811.8,184,100,3962,0) +REMINDER LIST RULE +"DATA",811.8,184,100,3963,0) +810.4 +"DATA",811.8,184,100,3964,0) +MU NQF0038 NUM11 COMBO5 RS +"DATA",811.8,184,100,3965,0) +191 +"DATA",811.8,184,100,3966,0) +1341186925 +"DATA",811.8,184,100,3967,0) +NO +"DATA",811.8,184,100,3968,0) + +"DATA",811.8,184,100,3969,0) + +"DATA",811.8,184,100,3993,0) + +"DATA",811.8,184,100,3994,0) + +"DATA",811.8,184,100,3995,0) + +"DATA",811.8,184,100,4003,0) + +"DATA",811.8,184,100,4004,0) + +"DATA",811.8,184,100,4005,0) + +"DATA",811.8,184,100,4006,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4007,0) +810.4 +"DATA",811.8,184,100,4008,0) +MU NQF0038 NUM7 ALLERGY +"DATA",811.8,184,100,4009,0) +149 +"DATA",811.8,184,100,4010,0) +2117858157 +"DATA",811.8,184,100,4011,0) +NO +"DATA",811.8,184,100,4012,0) + +"DATA",811.8,184,100,4013,0) + +"DATA",811.8,184,100,4024,0) + +"DATA",811.8,184,100,4025,0) + +"DATA",811.8,184,100,4026,0) + +"DATA",811.8,184,100,4029,0) + +"DATA",811.8,184,100,4030,0) + +"DATA",811.8,184,100,4031,0) + +"DATA",811.8,184,100,4032,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4033,0) +810.4 +"DATA",811.8,184,100,4034,0) +MU NQF0038 NUM7 RR +"DATA",811.8,184,100,4035,0) +150 +"DATA",811.8,184,100,4036,0) +366296038 +"DATA",811.8,184,100,4037,0) +NO +"DATA",811.8,184,100,4038,0) + +"DATA",811.8,184,100,4039,0) + +"DATA",811.8,184,100,4048,0) + +"DATA",811.8,184,100,4049,0) + +"DATA",811.8,184,100,4050,0) + +"DATA",811.8,184,100,4053,0) + +"DATA",811.8,184,100,4054,0) + +"DATA",811.8,184,100,4055,0) + +"DATA",811.8,184,100,4056,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4057,0) +810.4 +"DATA",811.8,184,100,4058,0) +MU NQF0038 NUM7 PCV RS +"DATA",811.8,184,100,4059,0) +151 +"DATA",811.8,184,100,4060,0) +2960624820 +"DATA",811.8,184,100,4061,0) +NO +"DATA",811.8,184,100,4062,0) + +"DATA",811.8,184,100,4063,0) + +"DATA",811.8,184,100,4077,0) + +"DATA",811.8,184,100,4078,0) + +"DATA",811.8,184,100,4079,0) + +"DATA",811.8,184,100,4084,0) + +"DATA",811.8,184,100,4085,0) + +"DATA",811.8,184,100,4086,0) + +"DATA",811.8,184,100,4087,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4088,0) +810.4 +"DATA",811.8,184,100,4089,0) +MU NQF0038 NUM6 ALLERGY FR +"DATA",811.8,184,100,4090,0) +152 +"DATA",811.8,184,100,4091,0) +1364688189 +"DATA",811.8,184,100,4092,0) +NO +"DATA",811.8,184,100,4093,0) + +"DATA",811.8,184,100,4094,0) + +"DATA",811.8,184,100,4105,0) + +"DATA",811.8,184,100,4106,0) + +"DATA",811.8,184,100,4107,0) + +"DATA",811.8,184,100,4110,0) + +"DATA",811.8,184,100,4111,0) + +"DATA",811.8,184,100,4112,0) + +"DATA",811.8,184,100,4113,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4114,0) +810.4 +"DATA",811.8,184,100,4115,0) +MU NQF0038 NUM6 RR +"DATA",811.8,184,100,4116,0) +153 +"DATA",811.8,184,100,4117,0) +3455337133 +"DATA",811.8,184,100,4118,0) +NO +"DATA",811.8,184,100,4119,0) + +"DATA",811.8,184,100,4120,0) + +"DATA",811.8,184,100,4129,0) + +"DATA",811.8,184,100,4130,0) + +"DATA",811.8,184,100,4131,0) + +"DATA",811.8,184,100,4134,0) + +"DATA",811.8,184,100,4135,0) + +"DATA",811.8,184,100,4136,0) + +"DATA",811.8,184,100,4137,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4138,0) +810.4 +"DATA",811.8,184,100,4139,0) +MU NQF0038 NUM6 VZV RS +"DATA",811.8,184,100,4140,0) +154 +"DATA",811.8,184,100,4141,0) +2294361658 +"DATA",811.8,184,100,4142,0) +NO +"DATA",811.8,184,100,4143,0) + +"DATA",811.8,184,100,4144,0) + +"DATA",811.8,184,100,4158,0) + +"DATA",811.8,184,100,4159,0) + +"DATA",811.8,184,100,4160,0) + +"DATA",811.8,184,100,4165,0) + +"DATA",811.8,184,100,4166,0) + +"DATA",811.8,184,100,4167,0) + +"DATA",811.8,184,100,4168,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4169,0) +810.4 +"DATA",811.8,184,100,4170,0) +MU NQF0038 NUM5 ALLERGY FR +"DATA",811.8,184,100,4171,0) +155 +"DATA",811.8,184,100,4172,0) +3068229452 +"DATA",811.8,184,100,4173,0) +NO +"DATA",811.8,184,100,4174,0) + +"DATA",811.8,184,100,4175,0) + +"DATA",811.8,184,100,4186,0) + +"DATA",811.8,184,100,4187,0) + +"DATA",811.8,184,100,4188,0) + +"DATA",811.8,184,100,4191,0) + +"DATA",811.8,184,100,4192,0) + +"DATA",811.8,184,100,4193,0) + +"DATA",811.8,184,100,4194,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4195,0) +810.4 +"DATA",811.8,184,100,4196,0) +MU NQF0038 NUM5 RR +"DATA",811.8,184,100,4197,0) +156 +"DATA",811.8,184,100,4198,0) +3323803814 +"DATA",811.8,184,100,4199,0) +NO +"DATA",811.8,184,100,4200,0) + +"DATA",811.8,184,100,4201,0) + +"DATA",811.8,184,100,4210,0) + +"DATA",811.8,184,100,4211,0) + +"DATA",811.8,184,100,4212,0) + +"DATA",811.8,184,100,4215,0) + +"DATA",811.8,184,100,4216,0) + +"DATA",811.8,184,100,4217,0) + +"DATA",811.8,184,100,4218,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4219,0) +810.4 +"DATA",811.8,184,100,4220,0) +MU NQF0038 NUM5 RS +"DATA",811.8,184,100,4221,0) +157 +"DATA",811.8,184,100,4222,0) +3115899416 +"DATA",811.8,184,100,4223,0) +NO +"DATA",811.8,184,100,4224,0) + +"DATA",811.8,184,100,4225,0) + +"DATA",811.8,184,100,4239,0) + +"DATA",811.8,184,100,4240,0) + +"DATA",811.8,184,100,4241,0) + +"DATA",811.8,184,100,4246,0) + +"DATA",811.8,184,100,4247,0) + +"DATA",811.8,184,100,4248,0) + +"DATA",811.8,184,100,4249,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4250,0) +810.4 +"DATA",811.8,184,100,4251,0) +MU NQF0038 NUM3-4 PR +"DATA",811.8,184,100,4252,0) +185 +"DATA",811.8,184,100,4253,0) +1680199935 +"DATA",811.8,184,100,4254,0) +NO +"DATA",811.8,184,100,4255,0) + +"DATA",811.8,184,100,4256,0) + +"DATA",811.8,184,100,4266,0) + +"DATA",811.8,184,100,4267,0) + +"DATA",811.8,184,100,4268,0) + +"DATA",811.8,184,100,4271,0) + +"DATA",811.8,184,100,4272,0) + +"DATA",811.8,184,100,4273,0) + +"DATA",811.8,184,100,4274,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4275,0) +810.4 +"DATA",811.8,184,100,4276,0) +MU NQF0038 NUM3-3 PR +"DATA",811.8,184,100,4277,0) +184 +"DATA",811.8,184,100,4278,0) +2217373386 +"DATA",811.8,184,100,4279,0) +NO +"DATA",811.8,184,100,4280,0) + +"DATA",811.8,184,100,4281,0) + +"DATA",811.8,184,100,4291,0) + +"DATA",811.8,184,100,4292,0) + +"DATA",811.8,184,100,4293,0) + +"DATA",811.8,184,100,4296,0) + +"DATA",811.8,184,100,4297,0) + +"DATA",811.8,184,100,4298,0) + +"DATA",811.8,184,100,4299,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4300,0) +810.4 +"DATA",811.8,184,100,4301,0) +MU NQF0038 NUM3-2 PR +"DATA",811.8,184,100,4302,0) +183 +"DATA",811.8,184,100,4303,0) +2912733258 +"DATA",811.8,184,100,4304,0) +NO +"DATA",811.8,184,100,4305,0) + +"DATA",811.8,184,100,4306,0) + +"DATA",811.8,184,100,4316,0) + +"DATA",811.8,184,100,4317,0) + +"DATA",811.8,184,100,4318,0) + +"DATA",811.8,184,100,4321,0) + +"DATA",811.8,184,100,4322,0) + +"DATA",811.8,184,100,4323,0) + +"DATA",811.8,184,100,4324,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4325,0) +810.4 +"DATA",811.8,184,100,4326,0) +MU NQF0038 NUM3-1 PR +"DATA",811.8,184,100,4327,0) +182 +"DATA",811.8,184,100,4328,0) +3797202273 +"DATA",811.8,184,100,4329,0) +NO +"DATA",811.8,184,100,4330,0) + +"DATA",811.8,184,100,4331,0) + +"DATA",811.8,184,100,4341,0) + +"DATA",811.8,184,100,4342,0) + +"DATA",811.8,184,100,4343,0) + +"DATA",811.8,184,100,4346,0) + +"DATA",811.8,184,100,4347,0) + +"DATA",811.8,184,100,4348,0) + +"DATA",811.8,184,100,4349,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4350,0) +810.4 +"DATA",811.8,184,100,4351,0) +MU NQF0038 NUM3-ALL RS +"DATA",811.8,184,100,4352,0) +186 +"DATA",811.8,184,100,4353,0) +2008475235 +"DATA",811.8,184,100,4354,0) +NO +"DATA",811.8,184,100,4355,0) + +"DATA",811.8,184,100,4356,0) + +"DATA",811.8,184,100,4377,0) + +"DATA",811.8,184,100,4378,0) + +"DATA",811.8,184,100,4379,0) + +"DATA",811.8,184,100,4386,0) + +"DATA",811.8,184,100,4387,0) + +"DATA",811.8,184,100,4388,0) + +"DATA",811.8,184,100,4389,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4390,0) +810.4 +"DATA",811.8,184,100,4391,0) +MU NQF0038 NUM3-4 MMR AND EXCL RR +"DATA",811.8,184,100,4392,0) +88 +"DATA",811.8,184,100,4393,0) +1272599656 +"DATA",811.8,184,100,4394,0) +NO +"DATA",811.8,184,100,4395,0) + +"DATA",811.8,184,100,4396,0) + +"DATA",811.8,184,100,4405,0) + +"DATA",811.8,184,100,4406,0) + +"DATA",811.8,184,100,4407,0) + +"DATA",811.8,184,100,4410,0) + +"DATA",811.8,184,100,4411,0) + +"DATA",811.8,184,100,4412,0) + +"DATA",811.8,184,100,4413,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4414,0) +810.4 +"DATA",811.8,184,100,4415,0) +MU NQF0038 NUM3 MMR ALLERGY FR +"DATA",811.8,184,100,4416,0) +89 +"DATA",811.8,184,100,4417,0) +4236512237 +"DATA",811.8,184,100,4418,0) +NO +"DATA",811.8,184,100,4419,0) + +"DATA",811.8,184,100,4420,0) + +"DATA",811.8,184,100,4429,0) + +"DATA",811.8,184,100,4430,0) + +"DATA",811.8,184,100,4431,0) + +"DATA",811.8,184,100,4434,0) + +"DATA",811.8,184,100,4435,0) + +"DATA",811.8,184,100,4436,0) + +"DATA",811.8,184,100,4437,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4438,0) +810.4 +"DATA",811.8,184,100,4439,0) +MU NQF0038 NUM3-4 MMR AND EXCLU RS +"DATA",811.8,184,100,4440,0) +90 +"DATA",811.8,184,100,4441,0) +1961889816 +"DATA",811.8,184,100,4442,0) +NO +"DATA",811.8,184,100,4443,0) + +"DATA",811.8,184,100,4444,0) + +"DATA",811.8,184,100,4461,0) + +"DATA",811.8,184,100,4462,0) + +"DATA",811.8,184,100,4463,0) + +"DATA",811.8,184,100,4469,0) + +"DATA",811.8,184,100,4470,0) + +"DATA",811.8,184,100,4471,0) + +"DATA",811.8,184,100,4472,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4473,0) +810.4 +"DATA",811.8,184,100,4474,0) +MU NQF0038 NUM3-3 RUBELLA RR +"DATA",811.8,184,100,4475,0) +91 +"DATA",811.8,184,100,4476,0) +3263414274 +"DATA",811.8,184,100,4477,0) +NO +"DATA",811.8,184,100,4478,0) + +"DATA",811.8,184,100,4479,0) + +"DATA",811.8,184,100,4488,0) + +"DATA",811.8,184,100,4489,0) + +"DATA",811.8,184,100,4490,0) + +"DATA",811.8,184,100,4493,0) + +"DATA",811.8,184,100,4494,0) + +"DATA",811.8,184,100,4495,0) + +"DATA",811.8,184,100,4496,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4497,0) +810.4 +"DATA",811.8,184,100,4498,0) +MU NQF0038 RUBELLA ALERGY FR +"DATA",811.8,184,100,4499,0) +92 +"DATA",811.8,184,100,4500,0) +1563630356 +"DATA",811.8,184,100,4501,0) +NO +"DATA",811.8,184,100,4502,0) + +"DATA",811.8,184,100,4503,0) + +"DATA",811.8,184,100,4512,0) + +"DATA",811.8,184,100,4513,0) + +"DATA",811.8,184,100,4514,0) + +"DATA",811.8,184,100,4517,0) + +"DATA",811.8,184,100,4518,0) + +"DATA",811.8,184,100,4519,0) + +"DATA",811.8,184,100,4520,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4521,0) +810.4 +"DATA",811.8,184,100,4522,0) +MU NQF0038 NUM3-3 RUBELLA RS +"DATA",811.8,184,100,4523,0) +93 +"DATA",811.8,184,100,4524,0) +594563451 +"DATA",811.8,184,100,4525,0) +NO +"DATA",811.8,184,100,4526,0) + +"DATA",811.8,184,100,4527,0) + +"DATA",811.8,184,100,4544,0) + +"DATA",811.8,184,100,4545,0) + +"DATA",811.8,184,100,4546,0) + +"DATA",811.8,184,100,4552,0) + +"DATA",811.8,184,100,4553,0) + +"DATA",811.8,184,100,4554,0) + +"DATA",811.8,184,100,4555,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4556,0) +810.4 +"DATA",811.8,184,100,4557,0) +MU NQF0038 NUM3-2 MEASLES RR +"DATA",811.8,184,100,4558,0) +94 +"DATA",811.8,184,100,4559,0) +3998010317 +"DATA",811.8,184,100,4560,0) +NO +"DATA",811.8,184,100,4561,0) + +"DATA",811.8,184,100,4562,0) + +"DATA",811.8,184,100,4571,0) + +"DATA",811.8,184,100,4572,0) + +"DATA",811.8,184,100,4573,0) + +"DATA",811.8,184,100,4576,0) + +"DATA",811.8,184,100,4577,0) + +"DATA",811.8,184,100,4578,0) + +"DATA",811.8,184,100,4579,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4580,0) +810.4 +"DATA",811.8,184,100,4581,0) +MU NQF0038 NUM3 MEASLES ALLERGY FR +"DATA",811.8,184,100,4582,0) +66 +"DATA",811.8,184,100,4583,0) +3218860484 +"DATA",811.8,184,100,4584,0) +NO +"DATA",811.8,184,100,4585,0) + +"DATA",811.8,184,100,4586,0) + +"DATA",811.8,184,100,4595,0) + +"DATA",811.8,184,100,4596,0) + +"DATA",811.8,184,100,4597,0) + +"DATA",811.8,184,100,4600,0) + +"DATA",811.8,184,100,4601,0) + +"DATA",811.8,184,100,4602,0) + +"DATA",811.8,184,100,4603,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4604,0) +810.4 +"DATA",811.8,184,100,4605,0) +MU NQF0038 NUM3-2 MEASLES RS +"DATA",811.8,184,100,4606,0) +95 +"DATA",811.8,184,100,4607,0) +3638212138 +"DATA",811.8,184,100,4608,0) +NO +"DATA",811.8,184,100,4609,0) + +"DATA",811.8,184,100,4610,0) + +"DATA",811.8,184,100,4627,0) + +"DATA",811.8,184,100,4628,0) + +"DATA",811.8,184,100,4629,0) + +"DATA",811.8,184,100,4635,0) + +"DATA",811.8,184,100,4636,0) + +"DATA",811.8,184,100,4637,0) + +"DATA",811.8,184,100,4638,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4639,0) +810.4 +"DATA",811.8,184,100,4640,0) +MU NQF0038 NUM3-1 MUMPS RR +"DATA",811.8,184,100,4641,0) +96 +"DATA",811.8,184,100,4642,0) +3554346091 +"DATA",811.8,184,100,4643,0) +NO +"DATA",811.8,184,100,4644,0) + +"DATA",811.8,184,100,4645,0) + +"DATA",811.8,184,100,4654,0) + +"DATA",811.8,184,100,4655,0) + +"DATA",811.8,184,100,4656,0) + +"DATA",811.8,184,100,4659,0) + +"DATA",811.8,184,100,4660,0) + +"DATA",811.8,184,100,4661,0) + +"DATA",811.8,184,100,4662,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4663,0) +810.4 +"DATA",811.8,184,100,4664,0) +MU NQF0038 NUM3 MUMPS ALLERGY FR +"DATA",811.8,184,100,4665,0) +84 +"DATA",811.8,184,100,4666,0) +3166110152 +"DATA",811.8,184,100,4667,0) +NO +"DATA",811.8,184,100,4668,0) + +"DATA",811.8,184,100,4669,0) + +"DATA",811.8,184,100,4678,0) + +"DATA",811.8,184,100,4679,0) + +"DATA",811.8,184,100,4680,0) + +"DATA",811.8,184,100,4683,0) + +"DATA",811.8,184,100,4684,0) + +"DATA",811.8,184,100,4685,0) + +"DATA",811.8,184,100,4686,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4687,0) +810.4 +"DATA",811.8,184,100,4688,0) +MU NQF0038 NUM3-1 MUMPS RS +"DATA",811.8,184,100,4689,0) +97 +"DATA",811.8,184,100,4690,0) +2495675956 +"DATA",811.8,184,100,4691,0) +NO +"DATA",811.8,184,100,4692,0) + +"DATA",811.8,184,100,4693,0) + +"DATA",811.8,184,100,4710,0) + +"DATA",811.8,184,100,4711,0) + +"DATA",811.8,184,100,4712,0) + +"DATA",811.8,184,100,4718,0) + +"DATA",811.8,184,100,4719,0) + +"DATA",811.8,184,100,4720,0) + +"DATA",811.8,184,100,4721,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4722,0) +810.4 +"DATA",811.8,184,100,4723,0) +MU NQF0038 NUM2 1 RR +"DATA",811.8,184,100,4724,0) +98 +"DATA",811.8,184,100,4725,0) +1373361489 +"DATA",811.8,184,100,4726,0) +NO +"DATA",811.8,184,100,4727,0) + +"DATA",811.8,184,100,4728,0) + +"DATA",811.8,184,100,4737,0) + +"DATA",811.8,184,100,4738,0) + +"DATA",811.8,184,100,4739,0) + +"DATA",811.8,184,100,4742,0) + +"DATA",811.8,184,100,4743,0) + +"DATA",811.8,184,100,4744,0) + +"DATA",811.8,184,100,4745,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4746,0) +810.4 +"DATA",811.8,184,100,4747,0) +MU NQF0038 NUM2 ALLERGY FR +"DATA",811.8,184,100,4748,0) +99 +"DATA",811.8,184,100,4749,0) +2870067539 +"DATA",811.8,184,100,4750,0) +NO +"DATA",811.8,184,100,4751,0) + +"DATA",811.8,184,100,4752,0) + +"DATA",811.8,184,100,4761,0) + +"DATA",811.8,184,100,4762,0) + +"DATA",811.8,184,100,4763,0) + +"DATA",811.8,184,100,4766,0) + +"DATA",811.8,184,100,4767,0) + +"DATA",811.8,184,100,4768,0) + +"DATA",811.8,184,100,4769,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4770,0) +810.4 +"DATA",811.8,184,100,4771,0) +MU NQF0038 NUM2 IPV RS +"DATA",811.8,184,100,4772,0) +100 +"DATA",811.8,184,100,4773,0) +3471243906 +"DATA",811.8,184,100,4774,0) +NO +"DATA",811.8,184,100,4775,0) + +"DATA",811.8,184,100,4776,0) + +"DATA",811.8,184,100,4793,0) + +"DATA",811.8,184,100,4794,0) + +"DATA",811.8,184,100,4795,0) + +"DATA",811.8,184,100,4801,0) + +"DATA",811.8,184,100,4802,0) + +"DATA",811.8,184,100,4803,0) + +"DATA",811.8,184,100,4804,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4805,0) +810.4 +"DATA",811.8,184,100,4806,0) +MU NQF0038 NUM1 RR +"DATA",811.8,184,100,4807,0) +79 +"DATA",811.8,184,100,4808,0) +1728070001 +"DATA",811.8,184,100,4809,0) +NO +"DATA",811.8,184,100,4810,0) + +"DATA",811.8,184,100,4811,0) + +"DATA",811.8,184,100,4820,0) + +"DATA",811.8,184,100,4821,0) + +"DATA",811.8,184,100,4822,0) + +"DATA",811.8,184,100,4825,0) + +"DATA",811.8,184,100,4826,0) + +"DATA",811.8,184,100,4827,0) + +"DATA",811.8,184,100,4828,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4829,0) +810.4 +"DATA",811.8,184,100,4830,0) +MU NQF0038 NUM1 DPT ALLERGY FR +"DATA",811.8,184,100,4831,0) +80 +"DATA",811.8,184,100,4832,0) +705637361 +"DATA",811.8,184,100,4833,0) +NO +"DATA",811.8,184,100,4834,0) + +"DATA",811.8,184,100,4835,0) + +"DATA",811.8,184,100,4844,0) + +"DATA",811.8,184,100,4845,0) + +"DATA",811.8,184,100,4846,0) + +"DATA",811.8,184,100,4849,0) + +"DATA",811.8,184,100,4850,0) + +"DATA",811.8,184,100,4851,0) + +"DATA",811.8,184,100,4852,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4853,0) +810.4 +"DATA",811.8,184,100,4854,0) +MU NQF0038 NUM1 DPT RS +"DATA",811.8,184,100,4855,0) +81 +"DATA",811.8,184,100,4856,0) +2102262028 +"DATA",811.8,184,100,4857,0) +NO +"DATA",811.8,184,100,4858,0) + +"DATA",811.8,184,100,4859,0) + +"DATA",811.8,184,100,4876,0) + +"DATA",811.8,184,100,4877,0) + +"DATA",811.8,184,100,4878,0) + +"DATA",811.8,184,100,4884,0) + +"DATA",811.8,184,100,4885,0) + +"DATA",811.8,184,100,4886,0) + +"DATA",811.8,184,100,4887,0) +REMINDER LIST RULE +"DATA",811.8,184,100,4888,0) +810.4 +"DATA",811.8,184,100,4889,0) +MU NQF0038 DENOM RS +"DATA",811.8,184,100,4890,0) +82 +"DATA",811.8,184,100,4891,0) +1609875410 +"DATA",811.8,184,100,4892,0) +NO +"DATA",811.8,184,100,4893,0) + +"DATA",811.8,184,100,4894,0) + +"DATA",811.8,184,100,4905,0) + +"DATA",811.8,184,100,4906,0) + +"DATA",811.8,184,100,4907,0) + +"DATA",811.8,184,100,4911,0) + +"DATA",811.8,184,100,4912,0) + +"DATA",811.8,184,100,4913,0) + +"DATA",811.8,184,100,4914,0) +REMINDER EXTRACT DEFINITION +"DATA",811.8,184,100,4915,0) +810.2 +"DATA",811.8,184,100,4916,0) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"DATA",811.8,184,100,4917,0) +11 +"DATA",811.8,184,100,4918,0) +3700429294 +"DATA",811.8,184,100,4919,0) +YES +"DATA",811.8,184,100,4920,0) + +"DATA",811.8,184,100,4921,0) + +"DATA",811.8,184,100,5018,0) + +"DATA",811.8,184,100,5019,0) + +"DATA",811.8,184,100,5020,0) + +"DATA",811.8,184,100,5040,0) + +"DATA",811.8,184,100,5041,0) + +"DATA",811.8,184,100,5042,0) + +"DATA",811.8,184,100,5043,0) +160 +"DATA",811.8,184,100,5044,0) + +"DATA",811.8,184,100,5045,0) +22 +"DATA",811.8,184,100,5046,0) +51 +"DATA",811.8,184,100,5047,0) +27 +"DATA",811.8,184,100,5048,0) + +"DATA",811.8,184,100,5049,0) + +"DATA",811.8,184,100,5050,0) +66 +"DATA",811.8,184,100,5051,0) +64 +"DATA",811.8,184,100,5052,0) +55 +"DATA",811.8,184,100,5053,0) + +"DATA",811.8,184,100,5054,0) + +"DATA",811.8,184,100,5055,0) +81 +"DATA",811.8,184,100,5056,0) +79 +"DATA",811.8,184,100,5057,0) +70 +"DATA",811.8,184,100,5058,0) + +"DATA",811.8,184,100,5059,0) + +"DATA",811.8,184,100,5060,0) +96 +"DATA",811.8,184,100,5061,0) +94 +"DATA",811.8,184,100,5062,0) +85 +"DATA",811.8,184,100,5063,0) + +"DATA",811.8,184,100,5064,0) + +"DATA",811.8,184,100,5065,0) +111 +"DATA",811.8,184,100,5066,0) +109 +"DATA",811.8,184,100,5067,0) +100 +"DATA",811.8,184,100,5068,0) + +"DATA",811.8,184,100,5069,0) + +"DATA",811.8,184,100,5070,0) +126 +"DATA",811.8,184,100,5071,0) +124 +"DATA",811.8,184,100,5072,0) +115 +"DATA",811.8,184,100,5073,0) + +"DATA",811.8,184,100,5074,0) + +"DATA",811.8,184,100,5075,0) +141 +"DATA",811.8,184,100,5076,0) +139 +"DATA",811.8,184,100,5077,0) +130 +"DATA",811.8,184,100,5078,0) + +"DATA",811.8,184,100,5079,0) + +"DATA",811.8,184,100,5080,0) +156 +"DATA",811.8,184,100,5081,0) +154 +"DATA",811.8,184,100,5082,0) +145 +"DATA",811.8,184,100,5083,0) + +"DATA",811.8,184,100,5084,0) + +"DATA",811.8,184,100,5085,0) +170 +"DATA",811.8,184,100,5086,0) +169 +"DATA",811.8,184,100,5087,0) +160 +"DATA",811.8,184,100,5088,0) + +"DATA",811.8,184,100,5089,0) + +"DATA",811.8,184,100,5090,0) +185 +"DATA",811.8,184,100,5091,0) +183 +"DATA",811.8,184,100,5092,0) +174 +"DATA",811.8,184,100,5093,0) + +"DATA",811.8,184,100,5094,0) + +"DATA",811.8,184,100,5095,0) +199 +"DATA",811.8,184,100,5096,0) +198 +"DATA",811.8,184,100,5097,0) +189 +"DATA",811.8,184,100,5098,0) + +"DATA",811.8,184,100,5099,0) + +"DATA",811.8,184,100,5100,0) +214 +"DATA",811.8,184,100,5101,0) +212 +"DATA",811.8,184,100,5102,0) +203 +"DATA",811.8,184,100,5103,0) + +"DATA",811.8,184,100,5104,0) + +"DATA",811.8,184,100,5105,0) +228 +"DATA",811.8,184,100,5106,0) +227 +"DATA",811.8,184,100,5107,0) +218 +"DATA",811.8,184,100,5108,0) + +"DATA",811.8,184,100,5109,0) + +"DATA",811.8,184,100,5110,0) +243 +"DATA",811.8,184,100,5111,0) +241 +"DATA",811.8,184,100,5112,0) +232 +"DATA",811.8,184,100,5113,0) + +"DATA",811.8,184,100,5114,0) + +"DATA",811.8,184,100,5115,0) +258 +"DATA",811.8,184,100,5116,0) +256 +"DATA",811.8,184,100,5117,0) +247 +"DATA",811.8,184,100,5118,0) + +"DATA",811.8,184,100,5119,0) + +"DATA",811.8,184,100,5120,0) +273 +"DATA",811.8,184,100,5121,0) +271 +"DATA",811.8,184,100,5122,0) +262 +"DATA",811.8,184,100,5123,0) + +"DATA",811.8,184,100,5124,0) + +"DATA",811.8,184,100,5125,0) +288 +"DATA",811.8,184,100,5126,0) +286 +"DATA",811.8,184,100,5127,0) +277 +"DATA",811.8,184,100,5128,0) + +"DATA",811.8,184,100,5129,0) + +"DATA",811.8,184,100,5130,0) +303 +"DATA",811.8,184,100,5131,0) +301 +"DATA",811.8,184,100,5132,0) +292 +"DATA",811.8,184,100,5133,0) + +"DATA",811.8,184,100,5134,0) + +"DATA",811.8,184,100,5135,0) +318 +"DATA",811.8,184,100,5136,0) +316 +"DATA",811.8,184,100,5137,0) +307 +"DATA",811.8,184,100,5138,0) + +"DATA",811.8,184,100,5139,0) + +"DATA",811.8,184,100,5140,0) +333 +"DATA",811.8,184,100,5141,0) +331 +"DATA",811.8,184,100,5142,0) +322 +"DATA",811.8,184,100,5143,0) + +"DATA",811.8,184,100,5144,0) + +"DATA",811.8,184,100,5145,0) +348 +"DATA",811.8,184,100,5146,0) +346 +"DATA",811.8,184,100,5147,0) +337 +"DATA",811.8,184,100,5148,0) + +"DATA",811.8,184,100,5149,0) + +"DATA",811.8,184,100,5150,0) +363 +"DATA",811.8,184,100,5151,0) +361 +"DATA",811.8,184,100,5152,0) +352 +"DATA",811.8,184,100,5153,0) + +"DATA",811.8,184,100,5154,0) + +"DATA",811.8,184,100,5155,0) +378 +"DATA",811.8,184,100,5156,0) +376 +"DATA",811.8,184,100,5157,0) +367 +"DATA",811.8,184,100,5158,0) + +"DATA",811.8,184,100,5159,0) + +"DATA",811.8,184,100,5160,0) +393 +"DATA",811.8,184,100,5161,0) +391 +"DATA",811.8,184,100,5162,0) +382 +"DATA",811.8,184,100,5163,0) + +"DATA",811.8,184,100,5164,0) + +"DATA",811.8,184,100,5165,0) +408 +"DATA",811.8,184,100,5166,0) +406 +"DATA",811.8,184,100,5167,0) +397 +"DATA",811.8,184,100,5168,0) + +"DATA",811.8,184,100,5169,0) + +"DATA",811.8,184,100,5170,0) +422 +"DATA",811.8,184,100,5171,0) +421 +"DATA",811.8,184,100,5172,0) +412 +"DATA",811.8,184,100,5173,0) + +"DATA",811.8,184,100,5174,0) + +"DATA",811.8,184,100,5175,0) +436 +"DATA",811.8,184,100,5176,0) +435 +"DATA",811.8,184,100,5177,0) +426 +"DATA",811.8,184,100,5178,0) + +"DATA",811.8,184,100,5179,0) + +"DATA",811.8,184,100,5180,0) +451 +"DATA",811.8,184,100,5181,0) +449 +"DATA",811.8,184,100,5182,0) +440 +"DATA",811.8,184,100,5183,0) + +"DATA",811.8,184,100,5184,0) + +"DATA",811.8,184,100,5185,0) +466 +"DATA",811.8,184,100,5186,0) +464 +"DATA",811.8,184,100,5187,0) +455 +"DATA",811.8,184,100,5188,0) + +"DATA",811.8,184,100,5189,0) + +"DATA",811.8,184,100,5190,0) +481 +"DATA",811.8,184,100,5191,0) +479 +"DATA",811.8,184,100,5192,0) +470 +"DATA",811.8,184,100,5193,0) + +"DATA",811.8,184,100,5194,0) + +"DATA",811.8,184,100,5195,0) +496 +"DATA",811.8,184,100,5196,0) +494 +"DATA",811.8,184,100,5197,0) +485 +"DATA",811.8,184,100,5198,0) + +"DATA",811.8,184,100,5199,0) + +"DATA",811.8,184,100,5200,0) +511 +"DATA",811.8,184,100,5201,0) +509 +"DATA",811.8,184,100,5202,0) +500 +"DATA",811.8,184,100,5203,0) + +"DATA",811.8,184,100,5204,0) + +"DATA",811.8,184,100,5205,0) +526 +"DATA",811.8,184,100,5206,0) +524 +"DATA",811.8,184,100,5207,0) +515 +"DATA",811.8,184,100,5208,0) + +"DATA",811.8,184,100,5209,0) + +"DATA",811.8,184,100,5210,0) +541 +"DATA",811.8,184,100,5211,0) +539 +"DATA",811.8,184,100,5212,0) +530 +"DATA",811.8,184,100,5213,0) + +"DATA",811.8,184,100,5214,0) + +"DATA",811.8,184,100,5215,0) +556 +"DATA",811.8,184,100,5216,0) +554 +"DATA",811.8,184,100,5217,0) +545 +"DATA",811.8,184,100,5218,0) + +"DATA",811.8,184,100,5219,0) + +"DATA",811.8,184,100,5220,0) +571 +"DATA",811.8,184,100,5221,0) +569 +"DATA",811.8,184,100,5222,0) +560 +"DATA",811.8,184,100,5223,0) + +"DATA",811.8,184,100,5224,0) + +"DATA",811.8,184,100,5225,0) +586 +"DATA",811.8,184,100,5226,0) +584 +"DATA",811.8,184,100,5227,0) +575 +"DATA",811.8,184,100,5228,0) + +"DATA",811.8,184,100,5229,0) + +"DATA",811.8,184,100,5230,0) +618 +"DATA",811.8,184,100,5231,0) +599 +"DATA",811.8,184,100,5232,0) +590 +"DATA",811.8,184,100,5233,0) +623 +"DATA",811.8,184,100,5234,0) +623 +"DATA",811.8,184,100,5235,0) + +"DATA",811.8,184,100,5236,0) + +"DATA",811.8,184,100,5237,0) +645 +"DATA",811.8,184,100,5238,0) +636 +"DATA",811.8,184,100,5239,0) +627 +"DATA",811.8,184,100,5240,0) +651 +"DATA",811.8,184,100,5241,0) +650 +"DATA",811.8,184,100,5242,0) + +"DATA",811.8,184,100,5243,0) + +"DATA",811.8,184,100,5244,0) +748 +"DATA",811.8,184,100,5245,0) +664 +"DATA",811.8,184,100,5246,0) +655 +"DATA",811.8,184,100,5247,0) +776 +"DATA",811.8,184,100,5248,0) +753 +"DATA",811.8,184,100,5249,0) + +"DATA",811.8,184,100,5250,0) + +"DATA",811.8,184,100,5251,0) +837 +"DATA",811.8,184,100,5252,0) +789 +"DATA",811.8,184,100,5253,0) +780 +"DATA",811.8,184,100,5254,0) +854 +"DATA",811.8,184,100,5255,0) +842 +"DATA",811.8,184,100,5256,0) + +"DATA",811.8,184,100,5257,0) + +"DATA",811.8,184,100,5258,0) +884 +"DATA",811.8,184,100,5259,0) +867 +"DATA",811.8,184,100,5260,0) +858 +"DATA",811.8,184,100,5261,0) +892 +"DATA",811.8,184,100,5262,0) +889 +"DATA",811.8,184,100,5263,0) + +"DATA",811.8,184,100,5264,0) + +"DATA",811.8,184,100,5265,0) +989 +"DATA",811.8,184,100,5266,0) +905 +"DATA",811.8,184,100,5267,0) +896 +"DATA",811.8,184,100,5268,0) +1017 +"DATA",811.8,184,100,5269,0) +994 +"DATA",811.8,184,100,5270,0) + +"DATA",811.8,184,100,5271,0) + +"DATA",811.8,184,100,5272,0) +1043 +"DATA",811.8,184,100,5273,0) +1030 +"DATA",811.8,184,100,5274,0) +1021 +"DATA",811.8,184,100,5275,0) +1050 +"DATA",811.8,184,100,5276,0) +1048 +"DATA",811.8,184,100,5277,0) + +"DATA",811.8,184,100,5278,0) + +"DATA",811.8,184,100,5279,0) +1074 +"DATA",811.8,184,100,5280,0) +1063 +"DATA",811.8,184,100,5281,0) +1054 +"DATA",811.8,184,100,5282,0) +1081 +"DATA",811.8,184,100,5283,0) +1079 +"DATA",811.8,184,100,5284,0) + +"DATA",811.8,184,100,5285,0) + +"DATA",811.8,184,100,5286,0) +1103 +"DATA",811.8,184,100,5287,0) +1094 +"DATA",811.8,184,100,5288,0) +1085 +"DATA",811.8,184,100,5289,0) +1109 +"DATA",811.8,184,100,5290,0) +1108 +"DATA",811.8,184,100,5291,0) + +"DATA",811.8,184,100,5292,0) + +"DATA",811.8,184,100,5293,0) +1131 +"DATA",811.8,184,100,5294,0) +1122 +"DATA",811.8,184,100,5295,0) +1113 +"DATA",811.8,184,100,5296,0) +1137 +"DATA",811.8,184,100,5297,0) +1136 +"DATA",811.8,184,100,5298,0) + +"DATA",811.8,184,100,5299,0) + +"DATA",811.8,184,100,5300,0) +1159 +"DATA",811.8,184,100,5301,0) +1150 +"DATA",811.8,184,100,5302,0) +1141 +"DATA",811.8,184,100,5303,0) +1165 +"DATA",811.8,184,100,5304,0) +1164 +"DATA",811.8,184,100,5305,0) + +"DATA",811.8,184,100,5306,0) + +"DATA",811.8,184,100,5307,0) +1184 +"DATA",811.8,184,100,5308,0) +1178 +"DATA",811.8,184,100,5309,0) +1169 +"DATA",811.8,184,100,5310,0) +1190 +"DATA",811.8,184,100,5311,0) +1189 +"DATA",811.8,184,100,5312,0) + +"DATA",811.8,184,100,5313,0) + +"DATA",811.8,184,100,5314,0) +1210 +"DATA",811.8,184,100,5315,0) +1203 +"DATA",811.8,184,100,5316,0) +1194 +"DATA",811.8,184,100,5317,0) +1216 +"DATA",811.8,184,100,5318,0) +1215 +"DATA",811.8,184,100,5319,0) + +"DATA",811.8,184,100,5320,0) + +"DATA",811.8,184,100,5321,0) +1235 +"DATA",811.8,184,100,5322,0) +1229 +"DATA",811.8,184,100,5323,0) +1220 +"DATA",811.8,184,100,5324,0) +1241 +"DATA",811.8,184,100,5325,0) +1240 +"DATA",811.8,184,100,5326,0) + +"DATA",811.8,184,100,5327,0) + +"DATA",811.8,184,100,5328,0) +1260 +"DATA",811.8,184,100,5329,0) +1254 +"DATA",811.8,184,100,5330,0) +1245 +"DATA",811.8,184,100,5331,0) +1266 +"DATA",811.8,184,100,5332,0) +1265 +"DATA",811.8,184,100,5333,0) + +"DATA",811.8,184,100,5334,0) + +"DATA",811.8,184,100,5335,0) +1285 +"DATA",811.8,184,100,5336,0) +1279 +"DATA",811.8,184,100,5337,0) +1270 +"DATA",811.8,184,100,5338,0) +1291 +"DATA",811.8,184,100,5339,0) +1290 +"DATA",811.8,184,100,5340,0) + +"DATA",811.8,184,100,5341,0) + +"DATA",811.8,184,100,5342,0) +1311 +"DATA",811.8,184,100,5343,0) +1304 +"DATA",811.8,184,100,5344,0) +1295 +"DATA",811.8,184,100,5345,0) +1317 +"DATA",811.8,184,100,5346,0) +1316 +"DATA",811.8,184,100,5347,0) + +"DATA",811.8,184,100,5348,0) + +"DATA",811.8,184,100,5349,0) +1337 +"DATA",811.8,184,100,5350,0) +1330 +"DATA",811.8,184,100,5351,0) +1321 +"DATA",811.8,184,100,5352,0) +1343 +"DATA",811.8,184,100,5353,0) +1342 +"DATA",811.8,184,100,5354,0) + +"DATA",811.8,184,100,5355,0) + +"DATA",811.8,184,100,5356,0) +1362 +"DATA",811.8,184,100,5357,0) +1356 +"DATA",811.8,184,100,5358,0) +1347 +"DATA",811.8,184,100,5359,0) +1368 +"DATA",811.8,184,100,5360,0) +1367 +"DATA",811.8,184,100,5361,0) + +"DATA",811.8,184,100,5362,0) + +"DATA",811.8,184,100,5363,0) +1387 +"DATA",811.8,184,100,5364,0) +1381 +"DATA",811.8,184,100,5365,0) +1372 +"DATA",811.8,184,100,5366,0) +1393 +"DATA",811.8,184,100,5367,0) +1392 +"DATA",811.8,184,100,5368,0) + +"DATA",811.8,184,100,5369,0) + +"DATA",811.8,184,100,5370,0) +1412 +"DATA",811.8,184,100,5371,0) +1406 +"DATA",811.8,184,100,5372,0) +1397 +"DATA",811.8,184,100,5373,0) +1418 +"DATA",811.8,184,100,5374,0) +1417 +"DATA",811.8,184,100,5375,0) + +"DATA",811.8,184,100,5376,0) + +"DATA",811.8,184,100,5377,0) +1438 +"DATA",811.8,184,100,5378,0) +1431 +"DATA",811.8,184,100,5379,0) +1422 +"DATA",811.8,184,100,5380,0) +1444 +"DATA",811.8,184,100,5381,0) +1443 +"DATA",811.8,184,100,5382,0) + +"DATA",811.8,184,100,5383,0) + +"DATA",811.8,184,100,5384,0) +1465 +"DATA",811.8,184,100,5385,0) +1457 +"DATA",811.8,184,100,5386,0) +1448 +"DATA",811.8,184,100,5387,0) +1472 +"DATA",811.8,184,100,5388,0) +1470 +"DATA",811.8,184,100,5389,0) + +"DATA",811.8,184,100,5390,0) + +"DATA",811.8,184,100,5391,0) +1493 +"DATA",811.8,184,100,5392,0) +1485 +"DATA",811.8,184,100,5393,0) +1476 +"DATA",811.8,184,100,5394,0) +1500 +"DATA",811.8,184,100,5395,0) +1498 +"DATA",811.8,184,100,5396,0) + +"DATA",811.8,184,100,5397,0) + +"DATA",811.8,184,100,5398,0) +1521 +"DATA",811.8,184,100,5399,0) +1513 +"DATA",811.8,184,100,5400,0) +1504 +"DATA",811.8,184,100,5401,0) +1528 +"DATA",811.8,184,100,5402,0) +1526 +"DATA",811.8,184,100,5403,0) + +"DATA",811.8,184,100,5404,0) + +"DATA",811.8,184,100,5405,0) +1548 +"DATA",811.8,184,100,5406,0) +1541 +"DATA",811.8,184,100,5407,0) +1532 +"DATA",811.8,184,100,5408,0) +1554 +"DATA",811.8,184,100,5409,0) +1553 +"DATA",811.8,184,100,5410,0) + +"DATA",811.8,184,100,5411,0) + +"DATA",811.8,184,100,5412,0) +1573 +"DATA",811.8,184,100,5413,0) +1567 +"DATA",811.8,184,100,5414,0) +1558 +"DATA",811.8,184,100,5415,0) +1579 +"DATA",811.8,184,100,5416,0) +1578 +"DATA",811.8,184,100,5417,0) + +"DATA",811.8,184,100,5418,0) + +"DATA",811.8,184,100,5419,0) +1598 +"DATA",811.8,184,100,5420,0) +1592 +"DATA",811.8,184,100,5421,0) +1583 +"DATA",811.8,184,100,5422,0) +1604 +"DATA",811.8,184,100,5423,0) +1603 +"DATA",811.8,184,100,5424,0) + +"DATA",811.8,184,100,5425,0) + +"DATA",811.8,184,100,5426,0) +1623 +"DATA",811.8,184,100,5427,0) +1617 +"DATA",811.8,184,100,5428,0) +1608 +"DATA",811.8,184,100,5429,0) +1629 +"DATA",811.8,184,100,5430,0) +1628 +"DATA",811.8,184,100,5431,0) + +"DATA",811.8,184,100,5432,0) + +"DATA",811.8,184,100,5433,0) +1648 +"DATA",811.8,184,100,5434,0) +1642 +"DATA",811.8,184,100,5435,0) +1633 +"DATA",811.8,184,100,5436,0) +1654 +"DATA",811.8,184,100,5437,0) +1653 +"DATA",811.8,184,100,5438,0) + +"DATA",811.8,184,100,5439,0) + +"DATA",811.8,184,100,5440,0) +1672 +"DATA",811.8,184,100,5441,0) +1667 +"DATA",811.8,184,100,5442,0) +1658 +"DATA",811.8,184,100,5443,0) +1678 +"DATA",811.8,184,100,5444,0) +1677 +"DATA",811.8,184,100,5445,0) + +"DATA",811.8,184,100,5446,0) + +"DATA",811.8,184,100,5447,0) +1698 +"DATA",811.8,184,100,5448,0) +1691 +"DATA",811.8,184,100,5449,0) +1682 +"DATA",811.8,184,100,5450,0) +1704 +"DATA",811.8,184,100,5451,0) +1703 +"DATA",811.8,184,100,5452,0) + +"DATA",811.8,184,100,5453,0) + +"DATA",811.8,184,100,5454,0) +1723 +"DATA",811.8,184,100,5455,0) +1717 +"DATA",811.8,184,100,5456,0) +1708 +"DATA",811.8,184,100,5457,0) +1729 +"DATA",811.8,184,100,5458,0) +1728 +"DATA",811.8,184,100,5459,0) + +"DATA",811.8,184,100,5460,0) + +"DATA",811.8,184,100,5461,0) +1748 +"DATA",811.8,184,100,5462,0) +1742 +"DATA",811.8,184,100,5463,0) +1733 +"DATA",811.8,184,100,5464,0) +1754 +"DATA",811.8,184,100,5465,0) +1753 +"DATA",811.8,184,100,5466,0) + +"DATA",811.8,184,100,5467,0) + +"DATA",811.8,184,100,5468,0) +1777 +"DATA",811.8,184,100,5469,0) +1767 +"DATA",811.8,184,100,5470,0) +1758 +"DATA",811.8,184,100,5471,0) +1784 +"DATA",811.8,184,100,5472,0) +1782 +"DATA",811.8,184,100,5473,0) + +"DATA",811.8,184,100,5474,0) + +"DATA",811.8,184,100,5475,0) +1803 +"DATA",811.8,184,100,5476,0) +1797 +"DATA",811.8,184,100,5477,0) +1788 +"DATA",811.8,184,100,5478,0) +1809 +"DATA",811.8,184,100,5479,0) +1808 +"DATA",811.8,184,100,5480,0) + +"DATA",811.8,184,100,5481,0) + +"DATA",811.8,184,100,5482,0) +1828 +"DATA",811.8,184,100,5483,0) +1822 +"DATA",811.8,184,100,5484,0) +1813 +"DATA",811.8,184,100,5485,0) +1834 +"DATA",811.8,184,100,5486,0) +1833 +"DATA",811.8,184,100,5487,0) + +"DATA",811.8,184,100,5488,0) + +"DATA",811.8,184,100,5489,0) +1853 +"DATA",811.8,184,100,5490,0) +1847 +"DATA",811.8,184,100,5491,0) +1838 +"DATA",811.8,184,100,5492,0) +1859 +"DATA",811.8,184,100,5493,0) +1858 +"DATA",811.8,184,100,5494,0) + +"DATA",811.8,184,100,5495,0) + +"DATA",811.8,184,100,5496,0) +1878 +"DATA",811.8,184,100,5497,0) +1872 +"DATA",811.8,184,100,5498,0) +1863 +"DATA",811.8,184,100,5499,0) +1884 +"DATA",811.8,184,100,5500,0) +1883 +"DATA",811.8,184,100,5501,0) + +"DATA",811.8,184,100,5502,0) + +"DATA",811.8,184,100,5503,0) +1903 +"DATA",811.8,184,100,5504,0) +1897 +"DATA",811.8,184,100,5505,0) +1888 +"DATA",811.8,184,100,5506,0) +1909 +"DATA",811.8,184,100,5507,0) +1908 +"DATA",811.8,184,100,5508,0) + +"DATA",811.8,184,100,5509,0) + +"DATA",811.8,184,100,5510,0) +1929 +"DATA",811.8,184,100,5511,0) +1922 +"DATA",811.8,184,100,5512,0) +1913 +"DATA",811.8,184,100,5513,0) +1935 +"DATA",811.8,184,100,5514,0) +1934 +"DATA",811.8,184,100,5515,0) + +"DATA",811.8,184,100,5516,0) + +"DATA",811.8,184,100,5517,0) +1955 +"DATA",811.8,184,100,5518,0) +1948 +"DATA",811.8,184,100,5519,0) +1939 +"DATA",811.8,184,100,5520,0) +1961 +"DATA",811.8,184,100,5521,0) +1960 +"DATA",811.8,184,100,5522,0) + +"DATA",811.8,184,100,5523,0) + +"DATA",811.8,184,100,5524,0) +1981 +"DATA",811.8,184,100,5525,0) +1974 +"DATA",811.8,184,100,5526,0) +1965 +"DATA",811.8,184,100,5527,0) +1987 +"DATA",811.8,184,100,5528,0) +1986 +"DATA",811.8,184,100,5529,0) + +"DATA",811.8,184,100,5530,0) + +"DATA",811.8,184,100,5531,0) +2007 +"DATA",811.8,184,100,5532,0) +2000 +"DATA",811.8,184,100,5533,0) +1991 +"DATA",811.8,184,100,5534,0) +2013 +"DATA",811.8,184,100,5535,0) +2012 +"DATA",811.8,184,100,5536,0) + +"DATA",811.8,184,100,5537,0) + +"DATA",811.8,184,100,5538,0) +2032 +"DATA",811.8,184,100,5539,0) +2026 +"DATA",811.8,184,100,5540,0) +2017 +"DATA",811.8,184,100,5541,0) +2038 +"DATA",811.8,184,100,5542,0) +2037 +"DATA",811.8,184,100,5543,0) + +"DATA",811.8,184,100,5544,0) + +"DATA",811.8,184,100,5545,0) +2057 +"DATA",811.8,184,100,5546,0) +2051 +"DATA",811.8,184,100,5547,0) +2042 +"DATA",811.8,184,100,5548,0) +2063 +"DATA",811.8,184,100,5549,0) +2062 +"DATA",811.8,184,100,5550,0) + +"DATA",811.8,184,100,5551,0) + +"DATA",811.8,184,100,5552,0) +2082 +"DATA",811.8,184,100,5553,0) +2076 +"DATA",811.8,184,100,5554,0) +2067 +"DATA",811.8,184,100,5555,0) +2088 +"DATA",811.8,184,100,5556,0) +2087 +"DATA",811.8,184,100,5557,0) + +"DATA",811.8,184,100,5558,0) + +"DATA",811.8,184,100,5559,0) +2107 +"DATA",811.8,184,100,5560,0) +2101 +"DATA",811.8,184,100,5561,0) +2092 +"DATA",811.8,184,100,5562,0) +2113 +"DATA",811.8,184,100,5563,0) +2112 +"DATA",811.8,184,100,5564,0) + +"DATA",811.8,184,100,5565,0) + +"DATA",811.8,184,100,5566,0) +2142 +"DATA",811.8,184,100,5567,0) +2126 +"DATA",811.8,184,100,5568,0) +2117 +"DATA",811.8,184,100,5569,0) +2151 +"DATA",811.8,184,100,5570,0) +2147 +"DATA",811.8,184,100,5571,0) + +"DATA",811.8,184,100,5572,0) + +"DATA",811.8,184,100,5573,0) +2170 +"DATA",811.8,184,100,5574,0) +2164 +"DATA",811.8,184,100,5575,0) +2155 +"DATA",811.8,184,100,5576,0) +2176 +"DATA",811.8,184,100,5577,0) +2175 +"DATA",811.8,184,100,5578,0) + +"DATA",811.8,184,100,5579,0) + +"DATA",811.8,184,100,5580,0) +2195 +"DATA",811.8,184,100,5581,0) +2189 +"DATA",811.8,184,100,5582,0) +2180 +"DATA",811.8,184,100,5583,0) +2201 +"DATA",811.8,184,100,5584,0) +2200 +"DATA",811.8,184,100,5585,0) + +"DATA",811.8,184,100,5586,0) + +"DATA",811.8,184,100,5587,0) +2220 +"DATA",811.8,184,100,5588,0) +2214 +"DATA",811.8,184,100,5589,0) +2205 +"DATA",811.8,184,100,5590,0) +2226 +"DATA",811.8,184,100,5591,0) +2225 +"DATA",811.8,184,100,5592,0) + +"DATA",811.8,184,100,5593,0) + +"DATA",811.8,184,100,5594,0) +2245 +"DATA",811.8,184,100,5595,0) +2239 +"DATA",811.8,184,100,5596,0) +2230 +"DATA",811.8,184,100,5597,0) +2251 +"DATA",811.8,184,100,5598,0) +2250 +"DATA",811.8,184,100,5599,0) + +"DATA",811.8,184,100,5600,0) + +"DATA",811.8,184,100,5601,0) +2270 +"DATA",811.8,184,100,5602,0) +2264 +"DATA",811.8,184,100,5603,0) +2255 +"DATA",811.8,184,100,5604,0) +2276 +"DATA",811.8,184,100,5605,0) +2275 +"DATA",811.8,184,100,5606,0) + +"DATA",811.8,184,100,5607,0) + +"DATA",811.8,184,100,5608,0) +2328 +"DATA",811.8,184,100,5609,0) +2289 +"DATA",811.8,184,100,5610,0) +2280 +"DATA",811.8,184,100,5611,0) +2338 +"DATA",811.8,184,100,5612,0) +2333 +"DATA",811.8,184,100,5613,0) + +"DATA",811.8,184,100,5614,0) + +"DATA",811.8,184,100,5615,0) +2410 +"DATA",811.8,184,100,5616,0) +2351 +"DATA",811.8,184,100,5617,0) +2342 +"DATA",811.8,184,100,5618,0) +2428 +"DATA",811.8,184,100,5619,0) +2415 +"DATA",811.8,184,100,5620,0) + +"DATA",811.8,184,100,5621,0) + +"DATA",811.8,184,100,5622,0) +2474 +"DATA",811.8,184,100,5623,0) +2441 +"DATA",811.8,184,100,5624,0) +2432 +"DATA",811.8,184,100,5625,0) +2481 +"DATA",811.8,184,100,5626,0) +2479 +"DATA",811.8,184,100,5627,0) + +"DATA",811.8,184,100,5628,0) + +"DATA",811.8,184,100,5629,0) +2548 +"DATA",811.8,184,100,5630,0) +2494 +"DATA",811.8,184,100,5631,0) +2485 +"DATA",811.8,184,100,5632,0) +2564 +"DATA",811.8,184,100,5633,0) +2553 +"DATA",811.8,184,100,5634,0) + +"DATA",811.8,184,100,5635,0) + +"DATA",811.8,184,100,5636,0) +2631 +"DATA",811.8,184,100,5637,0) +2577 +"DATA",811.8,184,100,5638,0) +2568 +"DATA",811.8,184,100,5639,0) +2647 +"DATA",811.8,184,100,5640,0) +2636 +"DATA",811.8,184,100,5641,0) + +"DATA",811.8,184,100,5642,0) + +"DATA",811.8,184,100,5643,0) +2728 +"DATA",811.8,184,100,5644,0) +2660 +"DATA",811.8,184,100,5645,0) +2651 +"DATA",811.8,184,100,5646,0) +2752 +"DATA",811.8,184,100,5647,0) +2733 +"DATA",811.8,184,100,5648,0) + +"DATA",811.8,184,100,5649,0) + +"DATA",811.8,184,100,5650,0) +2811 +"DATA",811.8,184,100,5651,0) +2765 +"DATA",811.8,184,100,5652,0) +2756 +"DATA",811.8,184,100,5653,0) +2823 +"DATA",811.8,184,100,5654,0) +2816 +"DATA",811.8,184,100,5655,0) + +"DATA",811.8,184,100,5656,0) + +"DATA",811.8,184,100,5657,0) +2902 +"DATA",811.8,184,100,5658,0) +2836 +"DATA",811.8,184,100,5659,0) +2827 +"DATA",811.8,184,100,5660,0) +2923 +"DATA",811.8,184,100,5661,0) +2907 +"DATA",811.8,184,100,5662,0) + +"DATA",811.8,184,100,5663,0) + +"DATA",811.8,184,100,5664,0) +2975 +"DATA",811.8,184,100,5665,0) +2936 +"DATA",811.8,184,100,5666,0) +2927 +"DATA",811.8,184,100,5667,0) +2985 +"DATA",811.8,184,100,5668,0) +2980 +"DATA",811.8,184,100,5669,0) + +"DATA",811.8,184,100,5670,0) + +"DATA",811.8,184,100,5671,0) +3042 +"DATA",811.8,184,100,5672,0) +2998 +"DATA",811.8,184,100,5673,0) +2989 +"DATA",811.8,184,100,5674,0) +3054 +"DATA",811.8,184,100,5675,0) +3047 +"DATA",811.8,184,100,5676,0) + +"DATA",811.8,184,100,5677,0) + +"DATA",811.8,184,100,5678,0) +3111 +"DATA",811.8,184,100,5679,0) +3067 +"DATA",811.8,184,100,5680,0) +3058 +"DATA",811.8,184,100,5681,0) +3123 +"DATA",811.8,184,100,5682,0) +3116 +"DATA",811.8,184,100,5683,0) + +"DATA",811.8,184,100,5684,0) + +"DATA",811.8,184,100,5685,0) +3180 +"DATA",811.8,184,100,5686,0) +3136 +"DATA",811.8,184,100,5687,0) +3127 +"DATA",811.8,184,100,5688,0) +3192 +"DATA",811.8,184,100,5689,0) +3185 +"DATA",811.8,184,100,5690,0) + +"DATA",811.8,184,100,5691,0) + +"DATA",811.8,184,100,5692,0) +3268 +"DATA",811.8,184,100,5693,0) +3205 +"DATA",811.8,184,100,5694,0) +3196 +"DATA",811.8,184,100,5695,0) +3288 +"DATA",811.8,184,100,5696,0) +3273 +"DATA",811.8,184,100,5697,0) + +"DATA",811.8,184,100,5698,0) + +"DATA",811.8,184,100,5699,0) +3382 +"DATA",811.8,184,100,5700,0) +3301 +"DATA",811.8,184,100,5701,0) +3292 +"DATA",811.8,184,100,5702,0) +3409 +"DATA",811.8,184,100,5703,0) +3387 +"DATA",811.8,184,100,5704,0) + +"DATA",811.8,184,100,5705,0) + +"DATA",811.8,184,100,5706,0) +3430 +"DATA",811.8,184,100,5707,0) +3422 +"DATA",811.8,184,100,5708,0) +3413 +"DATA",811.8,184,100,5709,0) +3435 +"DATA",811.8,184,100,5710,0) +3435 +"DATA",811.8,184,100,5711,0) + +"DATA",811.8,184,100,5712,0) + +"DATA",811.8,184,100,5713,0) +3454 +"DATA",811.8,184,100,5714,0) +3448 +"DATA",811.8,184,100,5715,0) +3439 +"DATA",811.8,184,100,5716,0) +3459 +"DATA",811.8,184,100,5717,0) +3459 +"DATA",811.8,184,100,5718,0) + +"DATA",811.8,184,100,5719,0) + +"DATA",811.8,184,100,5720,0) +3483 +"DATA",811.8,184,100,5721,0) +3472 +"DATA",811.8,184,100,5722,0) +3463 +"DATA",811.8,184,100,5723,0) +3490 +"DATA",811.8,184,100,5724,0) +3488 +"DATA",811.8,184,100,5725,0) + +"DATA",811.8,184,100,5726,0) + +"DATA",811.8,184,100,5727,0) +3509 +"DATA",811.8,184,100,5728,0) +3503 +"DATA",811.8,184,100,5729,0) +3494 +"DATA",811.8,184,100,5730,0) +3514 +"DATA",811.8,184,100,5731,0) +3514 +"DATA",811.8,184,100,5732,0) + +"DATA",811.8,184,100,5733,0) + +"DATA",811.8,184,100,5734,0) +3533 +"DATA",811.8,184,100,5735,0) +3527 +"DATA",811.8,184,100,5736,0) +3518 +"DATA",811.8,184,100,5737,0) +3538 +"DATA",811.8,184,100,5738,0) +3538 +"DATA",811.8,184,100,5739,0) + +"DATA",811.8,184,100,5740,0) + +"DATA",811.8,184,100,5741,0) +3557 +"DATA",811.8,184,100,5742,0) +3551 +"DATA",811.8,184,100,5743,0) +3542 +"DATA",811.8,184,100,5744,0) +3562 +"DATA",811.8,184,100,5745,0) +3562 +"DATA",811.8,184,100,5746,0) + +"DATA",811.8,184,100,5747,0) + +"DATA",811.8,184,100,5748,0) +3589 +"DATA",811.8,184,100,5749,0) +3575 +"DATA",811.8,184,100,5750,0) +3566 +"DATA",811.8,184,100,5751,0) +3597 +"DATA",811.8,184,100,5752,0) +3594 +"DATA",811.8,184,100,5753,0) + +"DATA",811.8,184,100,5754,0) + +"DATA",811.8,184,100,5755,0) +3618 +"DATA",811.8,184,100,5756,0) +3610 +"DATA",811.8,184,100,5757,0) +3601 +"DATA",811.8,184,100,5758,0) +3623 +"DATA",811.8,184,100,5759,0) +3623 +"DATA",811.8,184,100,5760,0) + +"DATA",811.8,184,100,5761,0) + +"DATA",811.8,184,100,5762,0) +3642 +"DATA",811.8,184,100,5763,0) +3636 +"DATA",811.8,184,100,5764,0) +3627 +"DATA",811.8,184,100,5765,0) +3647 +"DATA",811.8,184,100,5766,0) +3647 +"DATA",811.8,184,100,5767,0) + +"DATA",811.8,184,100,5768,0) + +"DATA",811.8,184,100,5769,0) +3671 +"DATA",811.8,184,100,5770,0) +3660 +"DATA",811.8,184,100,5771,0) +3651 +"DATA",811.8,184,100,5772,0) +3678 +"DATA",811.8,184,100,5773,0) +3676 +"DATA",811.8,184,100,5774,0) + +"DATA",811.8,184,100,5775,0) + +"DATA",811.8,184,100,5776,0) +3699 +"DATA",811.8,184,100,5777,0) +3691 +"DATA",811.8,184,100,5778,0) +3682 +"DATA",811.8,184,100,5779,0) +3704 +"DATA",811.8,184,100,5780,0) +3704 +"DATA",811.8,184,100,5781,0) + +"DATA",811.8,184,100,5782,0) + +"DATA",811.8,184,100,5783,0) +3723 +"DATA",811.8,184,100,5784,0) +3717 +"DATA",811.8,184,100,5785,0) +3708 +"DATA",811.8,184,100,5786,0) +3728 +"DATA",811.8,184,100,5787,0) +3728 +"DATA",811.8,184,100,5788,0) + +"DATA",811.8,184,100,5789,0) + +"DATA",811.8,184,100,5790,0) +3752 +"DATA",811.8,184,100,5791,0) +3741 +"DATA",811.8,184,100,5792,0) +3732 +"DATA",811.8,184,100,5793,0) +3759 +"DATA",811.8,184,100,5794,0) +3757 +"DATA",811.8,184,100,5795,0) + +"DATA",811.8,184,100,5796,0) + +"DATA",811.8,184,100,5797,0) +3779 +"DATA",811.8,184,100,5798,0) +3772 +"DATA",811.8,184,100,5799,0) +3763 +"DATA",811.8,184,100,5800,0) +3784 +"DATA",811.8,184,100,5801,0) +3784 +"DATA",811.8,184,100,5802,0) + +"DATA",811.8,184,100,5803,0) + +"DATA",811.8,184,100,5804,0) +3804 +"DATA",811.8,184,100,5805,0) +3797 +"DATA",811.8,184,100,5806,0) +3788 +"DATA",811.8,184,100,5807,0) +3809 +"DATA",811.8,184,100,5808,0) +3809 +"DATA",811.8,184,100,5809,0) + +"DATA",811.8,184,100,5810,0) + +"DATA",811.8,184,100,5811,0) +3829 +"DATA",811.8,184,100,5812,0) +3822 +"DATA",811.8,184,100,5813,0) +3813 +"DATA",811.8,184,100,5814,0) +3834 +"DATA",811.8,184,100,5815,0) +3834 +"DATA",811.8,184,100,5816,0) + +"DATA",811.8,184,100,5817,0) + +"DATA",811.8,184,100,5818,0) +3854 +"DATA",811.8,184,100,5819,0) +3847 +"DATA",811.8,184,100,5820,0) +3838 +"DATA",811.8,184,100,5821,0) +3859 +"DATA",811.8,184,100,5822,0) +3859 +"DATA",811.8,184,100,5823,0) + +"DATA",811.8,184,100,5824,0) + +"DATA",811.8,184,100,5825,0) +3879 +"DATA",811.8,184,100,5826,0) +3872 +"DATA",811.8,184,100,5827,0) +3863 +"DATA",811.8,184,100,5828,0) +3884 +"DATA",811.8,184,100,5829,0) +3884 +"DATA",811.8,184,100,5830,0) + +"DATA",811.8,184,100,5831,0) + +"DATA",811.8,184,100,5832,0) +3904 +"DATA",811.8,184,100,5833,0) +3897 +"DATA",811.8,184,100,5834,0) +3888 +"DATA",811.8,184,100,5835,0) +3909 +"DATA",811.8,184,100,5836,0) +3909 +"DATA",811.8,184,100,5837,0) + +"DATA",811.8,184,100,5838,0) + +"DATA",811.8,184,100,5839,0) +3946 +"DATA",811.8,184,100,5840,0) +3922 +"DATA",811.8,184,100,5841,0) +3913 +"DATA",811.8,184,100,5842,0) +3957 +"DATA",811.8,184,100,5843,0) +3951 +"DATA",811.8,184,100,5844,0) + +"DATA",811.8,184,100,5845,0) + +"DATA",811.8,184,100,5846,0) +3991 +"DATA",811.8,184,100,5847,0) +3970 +"DATA",811.8,184,100,5848,0) +3961 +"DATA",811.8,184,100,5849,0) +4001 +"DATA",811.8,184,100,5850,0) +3996 +"DATA",811.8,184,100,5851,0) + +"DATA",811.8,184,100,5852,0) + +"DATA",811.8,184,100,5853,0) +4022 +"DATA",811.8,184,100,5854,0) +4014 +"DATA",811.8,184,100,5855,0) +4005 +"DATA",811.8,184,100,5856,0) +4027 +"DATA",811.8,184,100,5857,0) +4027 +"DATA",811.8,184,100,5858,0) + +"DATA",811.8,184,100,5859,0) + +"DATA",811.8,184,100,5860,0) +4046 +"DATA",811.8,184,100,5861,0) +4040 +"DATA",811.8,184,100,5862,0) +4031 +"DATA",811.8,184,100,5863,0) +4051 +"DATA",811.8,184,100,5864,0) +4051 +"DATA",811.8,184,100,5865,0) + +"DATA",811.8,184,100,5866,0) + +"DATA",811.8,184,100,5867,0) +4075 +"DATA",811.8,184,100,5868,0) +4064 +"DATA",811.8,184,100,5869,0) +4055 +"DATA",811.8,184,100,5870,0) +4082 +"DATA",811.8,184,100,5871,0) +4080 +"DATA",811.8,184,100,5872,0) + +"DATA",811.8,184,100,5873,0) + +"DATA",811.8,184,100,5874,0) +4103 +"DATA",811.8,184,100,5875,0) +4095 +"DATA",811.8,184,100,5876,0) +4086 +"DATA",811.8,184,100,5877,0) +4108 +"DATA",811.8,184,100,5878,0) +4108 +"DATA",811.8,184,100,5879,0) + +"DATA",811.8,184,100,5880,0) + +"DATA",811.8,184,100,5881,0) +4127 +"DATA",811.8,184,100,5882,0) +4121 +"DATA",811.8,184,100,5883,0) +4112 +"DATA",811.8,184,100,5884,0) +4132 +"DATA",811.8,184,100,5885,0) +4132 +"DATA",811.8,184,100,5886,0) + +"DATA",811.8,184,100,5887,0) + +"DATA",811.8,184,100,5888,0) +4156 +"DATA",811.8,184,100,5889,0) +4145 +"DATA",811.8,184,100,5890,0) +4136 +"DATA",811.8,184,100,5891,0) +4163 +"DATA",811.8,184,100,5892,0) +4161 +"DATA",811.8,184,100,5893,0) + +"DATA",811.8,184,100,5894,0) + +"DATA",811.8,184,100,5895,0) +4184 +"DATA",811.8,184,100,5896,0) +4176 +"DATA",811.8,184,100,5897,0) +4167 +"DATA",811.8,184,100,5898,0) +4189 +"DATA",811.8,184,100,5899,0) +4189 +"DATA",811.8,184,100,5900,0) + +"DATA",811.8,184,100,5901,0) + +"DATA",811.8,184,100,5902,0) +4208 +"DATA",811.8,184,100,5903,0) +4202 +"DATA",811.8,184,100,5904,0) +4193 +"DATA",811.8,184,100,5905,0) +4213 +"DATA",811.8,184,100,5906,0) +4213 +"DATA",811.8,184,100,5907,0) + +"DATA",811.8,184,100,5908,0) + +"DATA",811.8,184,100,5909,0) +4237 +"DATA",811.8,184,100,5910,0) +4226 +"DATA",811.8,184,100,5911,0) +4217 +"DATA",811.8,184,100,5912,0) +4244 +"DATA",811.8,184,100,5913,0) +4242 +"DATA",811.8,184,100,5914,0) + +"DATA",811.8,184,100,5915,0) + +"DATA",811.8,184,100,5916,0) +4264 +"DATA",811.8,184,100,5917,0) +4257 +"DATA",811.8,184,100,5918,0) +4248 +"DATA",811.8,184,100,5919,0) +4269 +"DATA",811.8,184,100,5920,0) +4269 +"DATA",811.8,184,100,5921,0) + +"DATA",811.8,184,100,5922,0) + +"DATA",811.8,184,100,5923,0) +4289 +"DATA",811.8,184,100,5924,0) +4282 +"DATA",811.8,184,100,5925,0) +4273 +"DATA",811.8,184,100,5926,0) +4294 +"DATA",811.8,184,100,5927,0) +4294 +"DATA",811.8,184,100,5928,0) + +"DATA",811.8,184,100,5929,0) + +"DATA",811.8,184,100,5930,0) +4314 +"DATA",811.8,184,100,5931,0) +4307 +"DATA",811.8,184,100,5932,0) +4298 +"DATA",811.8,184,100,5933,0) +4319 +"DATA",811.8,184,100,5934,0) +4319 +"DATA",811.8,184,100,5935,0) + +"DATA",811.8,184,100,5936,0) + +"DATA",811.8,184,100,5937,0) +4339 +"DATA",811.8,184,100,5938,0) +4332 +"DATA",811.8,184,100,5939,0) +4323 +"DATA",811.8,184,100,5940,0) +4344 +"DATA",811.8,184,100,5941,0) +4344 +"DATA",811.8,184,100,5942,0) + +"DATA",811.8,184,100,5943,0) + +"DATA",811.8,184,100,5944,0) +4375 +"DATA",811.8,184,100,5945,0) +4357 +"DATA",811.8,184,100,5946,0) +4348 +"DATA",811.8,184,100,5947,0) +4384 +"DATA",811.8,184,100,5948,0) +4380 +"DATA",811.8,184,100,5949,0) + +"DATA",811.8,184,100,5950,0) + +"DATA",811.8,184,100,5951,0) +4403 +"DATA",811.8,184,100,5952,0) +4397 +"DATA",811.8,184,100,5953,0) +4388 +"DATA",811.8,184,100,5954,0) +4408 +"DATA",811.8,184,100,5955,0) +4408 +"DATA",811.8,184,100,5956,0) + +"DATA",811.8,184,100,5957,0) + +"DATA",811.8,184,100,5958,0) +4427 +"DATA",811.8,184,100,5959,0) +4421 +"DATA",811.8,184,100,5960,0) +4412 +"DATA",811.8,184,100,5961,0) +4432 +"DATA",811.8,184,100,5962,0) +4432 +"DATA",811.8,184,100,5963,0) + +"DATA",811.8,184,100,5964,0) + +"DATA",811.8,184,100,5965,0) +4459 +"DATA",811.8,184,100,5966,0) +4445 +"DATA",811.8,184,100,5967,0) +4436 +"DATA",811.8,184,100,5968,0) +4467 +"DATA",811.8,184,100,5969,0) +4464 +"DATA",811.8,184,100,5970,0) + +"DATA",811.8,184,100,5971,0) + +"DATA",811.8,184,100,5972,0) +4486 +"DATA",811.8,184,100,5973,0) +4480 +"DATA",811.8,184,100,5974,0) +4471 +"DATA",811.8,184,100,5975,0) +4491 +"DATA",811.8,184,100,5976,0) +4491 +"DATA",811.8,184,100,5977,0) + +"DATA",811.8,184,100,5978,0) + +"DATA",811.8,184,100,5979,0) +4510 +"DATA",811.8,184,100,5980,0) +4504 +"DATA",811.8,184,100,5981,0) +4495 +"DATA",811.8,184,100,5982,0) +4515 +"DATA",811.8,184,100,5983,0) +4515 +"DATA",811.8,184,100,5984,0) + +"DATA",811.8,184,100,5985,0) + +"DATA",811.8,184,100,5986,0) +4542 +"DATA",811.8,184,100,5987,0) +4528 +"DATA",811.8,184,100,5988,0) +4519 +"DATA",811.8,184,100,5989,0) +4550 +"DATA",811.8,184,100,5990,0) +4547 +"DATA",811.8,184,100,5991,0) + +"DATA",811.8,184,100,5992,0) + +"DATA",811.8,184,100,5993,0) +4569 +"DATA",811.8,184,100,5994,0) +4563 +"DATA",811.8,184,100,5995,0) +4554 +"DATA",811.8,184,100,5996,0) +4574 +"DATA",811.8,184,100,5997,0) +4574 +"DATA",811.8,184,100,5998,0) + +"DATA",811.8,184,100,5999,0) + +"DATA",811.8,184,100,6000,0) +4593 +"DATA",811.8,184,100,6001,0) +4587 +"DATA",811.8,184,100,6002,0) +4578 +"DATA",811.8,184,100,6003,0) +4598 +"DATA",811.8,184,100,6004,0) +4598 +"DATA",811.8,184,100,6005,0) + +"DATA",811.8,184,100,6006,0) + +"DATA",811.8,184,100,6007,0) +4625 +"DATA",811.8,184,100,6008,0) +4611 +"DATA",811.8,184,100,6009,0) +4602 +"DATA",811.8,184,100,6010,0) +4633 +"DATA",811.8,184,100,6011,0) +4630 +"DATA",811.8,184,100,6012,0) + +"DATA",811.8,184,100,6013,0) + +"DATA",811.8,184,100,6014,0) +4652 +"DATA",811.8,184,100,6015,0) +4646 +"DATA",811.8,184,100,6016,0) +4637 +"DATA",811.8,184,100,6017,0) +4657 +"DATA",811.8,184,100,6018,0) +4657 +"DATA",811.8,184,100,6019,0) + +"DATA",811.8,184,100,6020,0) + +"DATA",811.8,184,100,6021,0) +4676 +"DATA",811.8,184,100,6022,0) +4670 +"DATA",811.8,184,100,6023,0) +4661 +"DATA",811.8,184,100,6024,0) +4681 +"DATA",811.8,184,100,6025,0) +4681 +"DATA",811.8,184,100,6026,0) + +"DATA",811.8,184,100,6027,0) + +"DATA",811.8,184,100,6028,0) +4708 +"DATA",811.8,184,100,6029,0) +4694 +"DATA",811.8,184,100,6030,0) +4685 +"DATA",811.8,184,100,6031,0) +4716 +"DATA",811.8,184,100,6032,0) +4713 +"DATA",811.8,184,100,6033,0) + +"DATA",811.8,184,100,6034,0) + +"DATA",811.8,184,100,6035,0) +4735 +"DATA",811.8,184,100,6036,0) +4729 +"DATA",811.8,184,100,6037,0) +4720 +"DATA",811.8,184,100,6038,0) +4740 +"DATA",811.8,184,100,6039,0) +4740 +"DATA",811.8,184,100,6040,0) + +"DATA",811.8,184,100,6041,0) + +"DATA",811.8,184,100,6042,0) +4759 +"DATA",811.8,184,100,6043,0) +4753 +"DATA",811.8,184,100,6044,0) +4744 +"DATA",811.8,184,100,6045,0) +4764 +"DATA",811.8,184,100,6046,0) +4764 +"DATA",811.8,184,100,6047,0) + +"DATA",811.8,184,100,6048,0) + +"DATA",811.8,184,100,6049,0) +4791 +"DATA",811.8,184,100,6050,0) +4777 +"DATA",811.8,184,100,6051,0) +4768 +"DATA",811.8,184,100,6052,0) +4799 +"DATA",811.8,184,100,6053,0) +4796 +"DATA",811.8,184,100,6054,0) + +"DATA",811.8,184,100,6055,0) + +"DATA",811.8,184,100,6056,0) +4818 +"DATA",811.8,184,100,6057,0) +4812 +"DATA",811.8,184,100,6058,0) +4803 +"DATA",811.8,184,100,6059,0) +4823 +"DATA",811.8,184,100,6060,0) +4823 +"DATA",811.8,184,100,6061,0) + +"DATA",811.8,184,100,6062,0) + +"DATA",811.8,184,100,6063,0) +4842 +"DATA",811.8,184,100,6064,0) +4836 +"DATA",811.8,184,100,6065,0) +4827 +"DATA",811.8,184,100,6066,0) +4847 +"DATA",811.8,184,100,6067,0) +4847 +"DATA",811.8,184,100,6068,0) + +"DATA",811.8,184,100,6069,0) + +"DATA",811.8,184,100,6070,0) +4874 +"DATA",811.8,184,100,6071,0) +4860 +"DATA",811.8,184,100,6072,0) +4851 +"DATA",811.8,184,100,6073,0) +4882 +"DATA",811.8,184,100,6074,0) +4879 +"DATA",811.8,184,100,6075,0) + +"DATA",811.8,184,100,6076,0) + +"DATA",811.8,184,100,6077,0) +4903 +"DATA",811.8,184,100,6078,0) +4895 +"DATA",811.8,184,100,6079,0) +4886 +"DATA",811.8,184,100,6080,0) +4909 +"DATA",811.8,184,100,6081,0) +4908 +"DATA",811.8,184,100,6082,0) + +"DATA",811.8,184,100,6083,0) + +"DATA",811.8,184,100,6084,0) +5016 +"DATA",811.8,184,100,6085,0) +4922 +"DATA",811.8,184,100,6086,0) +4913 +"DATA",811.8,184,100,6087,0) +5038 +"DATA",811.8,184,100,6088,0) +5021 +"DATA",811.8,184,100,6089,0) + +"DATA",811.8,184,100,6090,0) + +"DATA",811.8,184,100,6091,0) + +"DATA",811.8,184,110,0) +^811.804^16^16 +"DATA",811.8,184,110,1,0) +Source: MANAGER,SYS at VOE OFFICE INSTITUTION OLD +"DATA",811.8,184,110,2,0) +Date Packed: 07/27/2012@17:48:33 +"DATA",811.8,184,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,184,110,4,0) + +"DATA",811.8,184,110,5,0) +Description: +"DATA",811.8,184,110,6,0) +This extract will encapsulate all the reminder rule sets and dependent +"DATA",811.8,184,110,7,0) +patient lists for Children's Immunizations counts for MU NQF0038. +"DATA",811.8,184,110,8,0) + +"DATA",811.8,184,110,9,0) +Keywords: +"DATA",811.8,184,110,10,0) +MU +"DATA",811.8,184,110,11,0) +NQF0038 +"DATA",811.8,184,110,12,0) +IMMUNIZATION +"DATA",811.8,184,110,13,0) +IMMUNIZATIONS +"DATA",811.8,184,110,14,0) +CHILDREN +"DATA",811.8,184,110,15,0) + +"DATA",811.8,184,110,16,0) +Components: +"DATA",811.8,184,119) +8 +"DATA",811.8,184,120,0) +^811.802A^160^160 +"DATA",811.8,184,120,1,0) +ROUTINE^0^1 +"DATA",811.8,184,120,1,1,0) +^811.8021A^1^1 +"DATA",811.8,184,120,1,1,1,0) +PXRMART^27^51^^^1^0 +"DATA",811.8,184,120,2,0) +IMMUNIZATION^9999999.14^36 +"DATA",811.8,184,120,2,1,0) +^811.8021A^36^36 +"DATA",811.8,184,120,2,1,1,0) +HEP A1 PEDS^64^66^^^1^0 +"DATA",811.8,184,120,2,1,2,0) +HEP A2 PEDS^79^81^^^1^0 +"DATA",811.8,184,120,2,1,3,0) +INFLUENZA^94^96^^^1^0 +"DATA",811.8,184,120,2,1,4,0) +RV 1 PEDS^109^111^^^1^0 +"DATA",811.8,184,120,2,1,5,0) +RV 2 PEDS^124^126^^^1^0 +"DATA",811.8,184,120,2,1,6,0) +RV 3 PEDS^139^141^^^1^0 +"DATA",811.8,184,120,2,1,7,0) +HiB1^154^156^^^1^0 +"DATA",811.8,184,120,2,1,8,0) +HIB PED 1^169^170^^^1^0 +"DATA",811.8,184,120,2,1,9,0) +HiB2^183^185^^^1^0 +"DATA",811.8,184,120,2,1,10,0) +HIB PED 2^198^199^^^1^0 +"DATA",811.8,184,120,2,1,11,0) +HiB3^212^214^^^1^0 +"DATA",811.8,184,120,2,1,12,0) +HIB PED 3^227^228^^^1^0 +"DATA",811.8,184,120,2,1,13,0) +PCV1 PEDS^241^243^^^1^0 +"DATA",811.8,184,120,2,1,14,0) +PCV2 PEDS^256^258^^^1^0 +"DATA",811.8,184,120,2,1,15,0) +PCV3 PEDS^271^273^^^1^0 +"DATA",811.8,184,120,2,1,16,0) +PCV4 PEDS^286^288^^^1^0 +"DATA",811.8,184,120,2,1,17,0) +PCV5 PEDS^301^303^^^1^0 +"DATA",811.8,184,120,2,1,18,0) +VZV1 INFANT^316^318^^^1^0 +"DATA",811.8,184,120,2,1,19,0) +VZV2 INFANT^331^333^^^1^0 +"DATA",811.8,184,120,2,1,20,0) +HEP B1 INFANT^346^348^^^1^0 +"DATA",811.8,184,120,2,1,21,0) +HEP B2 INFANT^361^363^^^1^0 +"DATA",811.8,184,120,2,1,22,0) +HEP B3 INFANT^376^378^^^1^0 +"DATA",811.8,184,120,2,1,23,0) +HEP B4 INFANT^391^393^^^1^0 +"DATA",811.8,184,120,2,1,24,0) +MMR1^406^408^^^1^0 +"DATA",811.8,184,120,2,1,25,0) +RUBELLA^421^422^^^1^0 +"DATA",811.8,184,120,2,1,26,0) +MEASLES^435^436^^^1^0 +"DATA",811.8,184,120,2,1,27,0) +MUMPS^449^451^^^1^0 +"DATA",811.8,184,120,2,1,28,0) +IPV1^464^466^^^1^0 +"DATA",811.8,184,120,2,1,29,0) +IPV2^479^481^^^1^0 +"DATA",811.8,184,120,2,1,30,0) +IPV3^494^496^^^1^0 +"DATA",811.8,184,120,2,1,31,0) +IPV4^509^511^^^1^0 +"DATA",811.8,184,120,2,1,32,0) +DTaP1^524^526^^^1^0 +"DATA",811.8,184,120,2,1,33,0) +DTaP2^539^541^^^1^0 +"DATA",811.8,184,120,2,1,34,0) +DTaP3^554^556^^^1^0 +"DATA",811.8,184,120,2,1,35,0) +DTaP4^569^571^^^1^0 +"DATA",811.8,184,120,2,1,36,0) +DTaP5^584^586^^^1^0 +"DATA",811.8,184,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^1 +"DATA",811.8,184,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,184,120,3,1,1,0) +VA-ALLERGY^599^618^623^623^1^0 +"DATA",811.8,184,120,4,0) +REMINDER TAXONOMY^811.2^11 +"DATA",811.8,184,120,4,1,0) +^811.8021A^11^11 +"DATA",811.8,184,120,4,1,1,0) +MU NQF0038 NUM8 HEP A DX INCL^636^645^650^651^1^0 +"DATA",811.8,184,120,4,1,2,0) +MU NQF0038 DENOM EM INC^664^748^753^776^1^0 +"DATA",811.8,184,120,4,1,3,0) +MU NQF0038 NUM DX ACTIVE^789^837^842^854^1^0 +"DATA",811.8,184,120,4,1,4,0) +MU NQF0038 NUM INACTIVE DX^867^884^889^892^1^0 +"DATA",811.8,184,120,4,1,5,0) +MU NQF0038 DENOM EM^905^989^994^1017^1^0 +"DATA",811.8,184,120,4,1,6,0) +MU NQF0038 NUM6 VZV DX INCL^1030^1043^1048^1050^1^0 +"DATA",811.8,184,120,4,1,7,0) +MU NQF0038 NUM5 HEP_B DX INCL^1063^1074^1079^1081^1^0 +"DATA",811.8,184,120,4,1,8,0) +MU NQF0038 NUM3 RUBELLA DX EXCLU^1094^1103^1108^1109^1^0 +"DATA",811.8,184,120,4,1,9,0) +MU NQF0038 NUM3 MEASLES DX EXCLU^1122^1131^1136^1137^1^0 +"DATA",811.8,184,120,4,1,10,0) +MU NQF0038 NUM3 MUMPS DX EXCLU^1150^1159^1164^1165^1^0 +"DATA",811.8,184,120,4,1,11,0) +MU NQF0038 DTAP ICD EXCLU^1178^1184^1189^1190^1^0 +"DATA",811.8,184,120,5,0) +REMINDER TERM^811.5^42 +"DATA",811.8,184,120,5,1,0) +^811.8021A^42^42 +"DATA",811.8,184,120,5,1,1,0) +MU NQF0038 NUM8 ALLERGY EXCLU ^1203^1210^1215^1216^1^0 +"DATA",811.8,184,120,5,1,2,0) +MU NQF0038 NUM8 HEPA1^1229^1235^1240^1241^1^0 +"DATA",811.8,184,120,5,1,3,0) +MU NQF0038 NUM8 HEPA2^1254^1260^1265^1266^1^0 +"DATA",811.8,184,120,5,1,4,0) +MU NQF0038 NUM10 INFLUENZA VAC^1279^1285^1290^1291^1^0 +"DATA",811.8,184,120,5,1,5,0) +MU NQF0038 NUM10 FLU ALLERGY EXCLU^1304^1311^1316^1317^1^0 +"DATA",811.8,184,120,5,1,6,0) +MU NQF0038 NUM9 ROTAVIRUS ALLERGY EXCLU^1330^1337^1342^1343^1^0 +"DATA",811.8,184,120,5,1,7,0) +MU NQF0038 NUM9 RV1^1356^1362^1367^1368^1^0 +"DATA",811.8,184,120,5,1,8,0) +MU NQF0038 NUM9 RV2^1381^1387^1392^1393^1^0 +"DATA",811.8,184,120,5,1,9,0) +MU NQF0038 NUM9 RV3^1406^1412^1417^1418^1^0 +"DATA",811.8,184,120,5,1,10,0) +MU NQF0038 NUM4 ALLERGY EXCLU^1431^1438^1443^1444^1^0 +"DATA",811.8,184,120,5,1,11,0) +MU NQF0038 NUM4 HIB1^1457^1465^1470^1472^1^0 +"DATA",811.8,184,120,5,1,12,0) +MU NQF0038 NUM4 HIB2^1485^1493^1498^1500^1^0 +"DATA",811.8,184,120,5,1,13,0) +MU NQF0038 NUM4 HIB3^1513^1521^1526^1528^1^0 +"DATA",811.8,184,120,5,1,14,0) +MU NQF0038 NUM7 ALLERGY EXCLU^1541^1548^1553^1554^1^0 +"DATA",811.8,184,120,5,1,15,0) +MU NQF0038 NUM7 PCV1^1567^1573^1578^1579^1^0 +"DATA",811.8,184,120,5,1,16,0) +MU NQF0038 NUM7 PCV2^1592^1598^1603^1604^1^0 +"DATA",811.8,184,120,5,1,17,0) +MU NQF0038 NUM7 PCV3^1617^1623^1628^1629^1^0 +"DATA",811.8,184,120,5,1,18,0) +MU NQF0038 NUM7 PCV4^1642^1648^1653^1654^1^0 +"DATA",811.8,184,120,5,1,19,0) +MU NQF0038 NUM7 PCV5^1667^1672^1677^1678^1^0 +"DATA",811.8,184,120,5,1,20,0) +MU NQF0038 NUM6 VZV ALLERGY EXCLU^1691^1698^1703^1704^1^0 +"DATA",811.8,184,120,5,1,21,0) +MU NQF0038 NUM6 VZV1^1717^1723^1728^1729^1^0 +"DATA",811.8,184,120,5,1,22,0) +MU NQF0038 NUM6 VZV2^1742^1748^1753^1754^1^0 +"DATA",811.8,184,120,5,1,23,0) +MU NQF0038 NUM5 ALLERGY EXCLU^1767^1777^1782^1784^1^0 +"DATA",811.8,184,120,5,1,24,0) +MU NQF0038 NUM5 HEPB1^1797^1803^1808^1809^1^0 +"DATA",811.8,184,120,5,1,25,0) +MU NQF0038 NUM5 HEPB2^1822^1828^1833^1834^1^0 +"DATA",811.8,184,120,5,1,26,0) +MU NQF0038 NUM5 HEPB3^1847^1853^1858^1859^1^0 +"DATA",811.8,184,120,5,1,27,0) +MU NQF0038 NUM5 HEPB4^1872^1878^1883^1884^1^0 +"DATA",811.8,184,120,5,1,28,0) +MU NQF0038 NUM3 MMR1^1897^1903^1908^1909^1^0 +"DATA",811.8,184,120,5,1,29,0) +MU NQF0038 NUM3 GENER MMR ALLERGY EXCLU^1922^1929^1934^1935^1^0 +"DATA",811.8,184,120,5,1,30,0) +MU NQF0038 NUM3 RUBELLA VAC ALLERGY EXCLU^1948^1955^1960^1961^1^0 +"DATA",811.8,184,120,5,1,31,0) +MU NQF0038 NUM3 MEASLES VAC ALLERGY EXCL^1974^1981^1986^1987^1^0 +"DATA",811.8,184,120,5,1,32,0) +MU NQF0038 NUM3 MUMPS VAC ALLERGY EXCLU^2000^2007^2012^2013^1^0 +"DATA",811.8,184,120,5,1,33,0) +MU NQF0038 NUM2 IPV1^2026^2032^2037^2038^1^0 +"DATA",811.8,184,120,5,1,34,0) +MU NQF0038 NUM2 IPV2^2051^2057^2062^2063^1^0 +"DATA",811.8,184,120,5,1,35,0) +MU NQF0038 NUM2 IPV3^2076^2082^2087^2088^1^0 +"DATA",811.8,184,120,5,1,36,0) +MU NQF0038 NUM2 IPV4^2101^2107^2112^2113^1^0 +"DATA",811.8,184,120,5,1,37,0) +MU NQF0038 NUM2 IPV ALLERGY INCLU^2126^2142^2147^2151^1^0 +"DATA",811.8,184,120,5,1,38,0) +MU NQF0038 DTAP1^2164^2170^2175^2176^1^0 +"DATA",811.8,184,120,5,1,39,0) +MU NQF0038 DTAP2^2189^2195^2200^2201^1^0 +"DATA",811.8,184,120,5,1,40,0) +MU NQF0038 DTAP3^2214^2220^2225^2226^1^0 +"DATA",811.8,184,120,5,1,41,0) +MU NQF0038 DTAP4^2239^2245^2250^2251^1^0 +"DATA",811.8,184,120,5,1,42,0) +MU NQF0038 DTAP5^2264^2270^2275^2276^1^0 +"DATA",811.8,184,120,6,0) +REMINDER DEFINITION^811.9^14 +"DATA",811.8,184,120,6,1,0) +^811.8021A^14^14 +"DATA",811.8,184,120,6,1,1,0) +MU NQF0038 NUM8 HEPA LIST^2289^2328^2333^2338^1^0 +"DATA",811.8,184,120,6,1,2,0) +MU NQF0038 NUM10 INFLUENZA LIST^2351^2410^2415^2428^1^0 +"DATA",811.8,184,120,6,1,3,0) +MU NQF0038 IMMUN DENOM PL^2441^2474^2479^2481^1^0 +"DATA",811.8,184,120,6,1,4,0) +MU NQF0038 NUM9 RV LIST^2494^2548^2553^2564^1^0 +"DATA",811.8,184,120,6,1,5,0) +MU NQF0038 NUM4 HIB LIST^2577^2631^2636^2647^1^0 +"DATA",811.8,184,120,6,1,6,0) +MU NQF0038 NUM7 PCV LIST^2660^2728^2733^2752^1^0 +"DATA",811.8,184,120,6,1,7,0) +MU NQF0038 NUM6 VZV LIST^2765^2811^2816^2823^1^0 +"DATA",811.8,184,120,6,1,8,0) +MU NQF0038 NUM5 HEPB LIST^2836^2902^2907^2923^1^0 +"DATA",811.8,184,120,6,1,9,0) +MU NQF0038 NUM3-4 MMR OR EXCLUSIONS^2936^2975^2980^2985^1^0 +"DATA",811.8,184,120,6,1,10,0) +MU NQF0038 NUM3-3 RUBELLA ^2998^3042^3047^3054^1^0 +"DATA",811.8,184,120,6,1,11,0) +MU NQF0038 NUM3-2 MEASLES ^3067^3111^3116^3123^1^0 +"DATA",811.8,184,120,6,1,12,0) +MU NQF0038 NUM3-1 MUMPS ^3136^3180^3185^3192^1^0 +"DATA",811.8,184,120,6,1,13,0) +MU NQF0038 NUM2 IPV LIST^3205^3268^3273^3288^1^0 +"DATA",811.8,184,120,6,1,14,0) +MU NQF0038 NUM1 LIST^3301^3382^3387^3409^1^0 +"DATA",811.8,184,120,7,0) +REMINDER LIST RULE^810.4^54 +"DATA",811.8,184,120,7,1,0) +^811.8021A^54^54 +"DATA",811.8,184,120,7,1,1,0) +MU NQF0038 NUM8 ALLERGY FR^3422^3430^3435^3435^1^0 +"DATA",811.8,184,120,7,1,2,0) +MU NQF0038 NUM8 RR^3448^3454^3459^3459^1^0 +"DATA",811.8,184,120,7,1,3,0) +MU NQF0038 NUM8 HEP A RS^3472^3483^3488^3490^1^0 +"DATA",811.8,184,120,7,1,4,0) +MU NQF0038 NUM10 FLU RR^3503^3509^3514^3514^1^0 +"DATA",811.8,184,120,7,1,5,0) +MU NQF0038 NUM10 FLU FR^3527^3533^3538^3538^1^0 +"DATA",811.8,184,120,7,1,6,0) +MU NQF0038 DENOM RR^3551^3557^3562^3562^1^0 +"DATA",811.8,184,120,7,1,7,0) +MU NQF0038 NUM10 INFLUENZA RS^3575^3589^3594^3597^1^0 +"DATA",811.8,184,120,7,1,8,0) +MU NQF0038 NUM9 ALLERGY FR^3610^3618^3623^3623^1^0 +"DATA",811.8,184,120,7,1,9,0) +MU NQF0038 NUM9 RR^3636^3642^3647^3647^1^0 +"DATA",811.8,184,120,7,1,10,0) +MU NQF0038 NUM9 RV RS^3660^3671^3676^3678^1^0 +"DATA",811.8,184,120,7,1,11,0) +MU NQF0038 NUM4 ALLERGY FR^3691^3699^3704^3704^1^0 +"DATA",811.8,184,120,7,1,12,0) +MU NQF0038 NUM4 RR^3717^3723^3728^3728^1^0 +"DATA",811.8,184,120,7,1,13,0) +MU NQF0038 NUM4 HIB RS^3741^3752^3757^3759^1^0 +"DATA",811.8,184,120,7,1,14,0) +MU NQF0038 NUM7 PCV PR^3772^3779^3784^3784^1^0 +"DATA",811.8,184,120,7,1,15,0) +MU NQF0038 NUM6 VZV PR^3797^3804^3809^3809^1^0 +"DATA",811.8,184,120,7,1,16,0) +MU NQF0038 NUM5 HEP B PR^3822^3829^3834^3834^1^0 +"DATA",811.8,184,120,7,1,17,0) +MU NQF0038 NUM3-ALL PR^3847^3854^3859^3859^1^0 +"DATA",811.8,184,120,7,1,18,0) +MU NQF0038 NUM2 IPV PR^3872^3879^3884^3884^1^0 +"DATA",811.8,184,120,7,1,19,0) +MU NQF0038 NUM1 DPT PR^3897^3904^3909^3909^1^0 +"DATA",811.8,184,120,7,1,20,0) +MU NQF0038 NUM12 COMBO6 RS^3922^3946^3951^3957^1^0 +"DATA",811.8,184,120,7,1,21,0) +MU NQF0038 NUM11 COMBO5 RS^3970^3991^3996^4001^1^0 +"DATA",811.8,184,120,7,1,22,0) +MU NQF0038 NUM7 ALLERGY^4014^4022^4027^4027^1^0 +"DATA",811.8,184,120,7,1,23,0) +MU NQF0038 NUM7 RR^4040^4046^4051^4051^1^0 +"DATA",811.8,184,120,7,1,24,0) +MU NQF0038 NUM7 PCV RS^4064^4075^4080^4082^1^0 +"DATA",811.8,184,120,7,1,25,0) +MU NQF0038 NUM6 ALLERGY FR^4095^4103^4108^4108^1^0 +"DATA",811.8,184,120,7,1,26,0) +MU NQF0038 NUM6 RR^4121^4127^4132^4132^1^0 +"DATA",811.8,184,120,7,1,27,0) +MU NQF0038 NUM6 VZV RS^4145^4156^4161^4163^1^0 +"DATA",811.8,184,120,7,1,28,0) +MU NQF0038 NUM5 ALLERGY FR^4176^4184^4189^4189^1^0 +"DATA",811.8,184,120,7,1,29,0) +MU NQF0038 NUM5 RR^4202^4208^4213^4213^1^0 +"DATA",811.8,184,120,7,1,30,0) +MU NQF0038 NUM5 RS^4226^4237^4242^4244^1^0 +"DATA",811.8,184,120,7,1,31,0) +MU NQF0038 NUM3-4 PR^4257^4264^4269^4269^1^0 +"DATA",811.8,184,120,7,1,32,0) +MU NQF0038 NUM3-3 PR^4282^4289^4294^4294^1^0 +"DATA",811.8,184,120,7,1,33,0) +MU NQF0038 NUM3-2 PR^4307^4314^4319^4319^1^0 +"DATA",811.8,184,120,7,1,34,0) +MU NQF0038 NUM3-1 PR^4332^4339^4344^4344^1^0 +"DATA",811.8,184,120,7,1,35,0) +MU NQF0038 NUM3-ALL RS^4357^4375^4380^4384^1^0 +"DATA",811.8,184,120,7,1,36,0) +MU NQF0038 NUM3-4 MMR AND EXCL RR^4397^4403^4408^4408^1^0 +"DATA",811.8,184,120,7,1,37,0) +MU NQF0038 NUM3 MMR ALLERGY FR^4421^4427^4432^4432^1^0 +"DATA",811.8,184,120,7,1,38,0) +MU NQF0038 NUM3-4 MMR AND EXCLU RS^4445^4459^4464^4467^1^0 +"DATA",811.8,184,120,7,1,39,0) +MU NQF0038 NUM3-3 RUBELLA RR^4480^4486^4491^4491^1^0 +"DATA",811.8,184,120,7,1,40,0) +MU NQF0038 RUBELLA ALERGY FR^4504^4510^4515^4515^1^0 +"DATA",811.8,184,120,7,1,41,0) +MU NQF0038 NUM3-3 RUBELLA RS^4528^4542^4547^4550^1^0 +"DATA",811.8,184,120,7,1,42,0) +MU NQF0038 NUM3-2 MEASLES RR^4563^4569^4574^4574^1^0 +"DATA",811.8,184,120,7,1,43,0) +MU NQF0038 NUM3 MEASLES ALLERGY FR^4587^4593^4598^4598^1^0 +"DATA",811.8,184,120,7,1,44,0) +MU NQF0038 NUM3-2 MEASLES RS^4611^4625^4630^4633^1^0 +"DATA",811.8,184,120,7,1,45,0) +MU NQF0038 NUM3-1 MUMPS RR^4646^4652^4657^4657^1^0 +"DATA",811.8,184,120,7,1,46,0) +MU NQF0038 NUM3 MUMPS ALLERGY FR^4670^4676^4681^4681^1^0 +"DATA",811.8,184,120,7,1,47,0) +MU NQF0038 NUM3-1 MUMPS RS^4694^4708^4713^4716^1^0 +"DATA",811.8,184,120,7,1,48,0) +MU NQF0038 NUM2 1 RR^4729^4735^4740^4740^1^0 +"DATA",811.8,184,120,7,1,49,0) +MU NQF0038 NUM2 ALLERGY FR^4753^4759^4764^4764^1^0 +"DATA",811.8,184,120,7,1,50,0) +MU NQF0038 NUM2 IPV RS^4777^4791^4796^4799^1^0 +"DATA",811.8,184,120,7,1,51,0) +MU NQF0038 NUM1 RR^4812^4818^4823^4823^1^0 +"DATA",811.8,184,120,7,1,52,0) +MU NQF0038 NUM1 DPT ALLERGY FR^4836^4842^4847^4847^1^0 +"DATA",811.8,184,120,7,1,53,0) +MU NQF0038 NUM1 DPT RS^4860^4874^4879^4882^1^0 +"DATA",811.8,184,120,7,1,54,0) +MU NQF0038 DENOM RS^4895^4903^4908^4909^1^0 +"DATA",811.8,184,120,8,0) +REMINDER EXTRACT DEFINITION^810.2^1 +"DATA",811.8,184,120,8,1,0) +^811.8021A^1^1 +"DATA",811.8,184,120,8,1,1,0) +MU NQF0038 CHILDREN'S IMMUNIZATIONS^4922^5016^5021^5038^1^1 +"DATA",811.8,184,130,0) +^811.803DA^1^1 +"DATA",811.8,184,130,1,0) +3120727.145459^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,184,130,1,1,0) +^811.8031A^160^160 +"DATA",811.8,184,130,1,1,1,0) +1^ROUTINE^PXRMART^S^ +"DATA",811.8,184,130,1,1,2,0) +2^IMMUNIZATION^HEP A1 PEDS^S^ +"DATA",811.8,184,130,1,1,3,0) +3^IMMUNIZATION^HEP A2 PEDS^S^ +"DATA",811.8,184,130,1,1,4,0) +4^IMMUNIZATION^INFLUENZA^S^ +"DATA",811.8,184,130,1,1,5,0) +5^IMMUNIZATION^RV 1 PEDS^S^ +"DATA",811.8,184,130,1,1,6,0) +6^IMMUNIZATION^RV 2 PEDS^S^ +"DATA",811.8,184,130,1,1,7,0) +7^IMMUNIZATION^RV 3 PEDS^S^ +"DATA",811.8,184,130,1,1,8,0) +8^IMMUNIZATION^HiB1^S^ +"DATA",811.8,184,130,1,1,9,0) +9^IMMUNIZATION^HIB PED 1^S^ +"DATA",811.8,184,130,1,1,10,0) +10^IMMUNIZATION^HiB2^S^ +"DATA",811.8,184,130,1,1,11,0) +11^IMMUNIZATION^HIB PED 2^S^ +"DATA",811.8,184,130,1,1,12,0) +12^IMMUNIZATION^HiB3^S^ +"DATA",811.8,184,130,1,1,13,0) +13^IMMUNIZATION^HIB PED 3^S^ +"DATA",811.8,184,130,1,1,14,0) +14^IMMUNIZATION^PCV1 PEDS^S^ +"DATA",811.8,184,130,1,1,15,0) +15^IMMUNIZATION^PCV2 PEDS^S^ +"DATA",811.8,184,130,1,1,16,0) +16^IMMUNIZATION^PCV3 PEDS^S^ +"DATA",811.8,184,130,1,1,17,0) +17^IMMUNIZATION^PCV4 PEDS^S^ +"DATA",811.8,184,130,1,1,18,0) +18^IMMUNIZATION^PCV5 PEDS^S^ +"DATA",811.8,184,130,1,1,19,0) +19^IMMUNIZATION^VZV1 INFANT^S^ +"DATA",811.8,184,130,1,1,20,0) +20^IMMUNIZATION^VZV2 INFANT^S^ +"DATA",811.8,184,130,1,1,21,0) +21^IMMUNIZATION^HEP B1 INFANT^S^ +"DATA",811.8,184,130,1,1,22,0) +22^IMMUNIZATION^HEP B2 INFANT^S^ +"DATA",811.8,184,130,1,1,23,0) +23^IMMUNIZATION^HEP B3 INFANT^S^ +"DATA",811.8,184,130,1,1,24,0) +24^IMMUNIZATION^HEP B4 INFANT^S^ +"DATA",811.8,184,130,1,1,25,0) +25^IMMUNIZATION^MMR1^S^ +"DATA",811.8,184,130,1,1,26,0) +26^IMMUNIZATION^RUBELLA^S^ +"DATA",811.8,184,130,1,1,27,0) +27^IMMUNIZATION^MEASLES^S^ +"DATA",811.8,184,130,1,1,28,0) +28^IMMUNIZATION^MUMPS^S^ +"DATA",811.8,184,130,1,1,29,0) +29^IMMUNIZATION^IPV1^S^ +"DATA",811.8,184,130,1,1,30,0) +30^IMMUNIZATION^IPV2^S^ +"DATA",811.8,184,130,1,1,31,0) +31^IMMUNIZATION^IPV3^S^ +"DATA",811.8,184,130,1,1,32,0) +32^IMMUNIZATION^IPV4^S^ +"DATA",811.8,184,130,1,1,33,0) +33^IMMUNIZATION^DTaP1^S^ +"DATA",811.8,184,130,1,1,34,0) +34^IMMUNIZATION^DTaP2^S^ +"DATA",811.8,184,130,1,1,35,0) +35^IMMUNIZATION^DTaP3^S^ +"DATA",811.8,184,130,1,1,36,0) +36^IMMUNIZATION^DTaP4^S^ +"DATA",811.8,184,130,1,1,37,0) +37^IMMUNIZATION^DTaP5^S^ +"DATA",811.8,184,130,1,1,38,0) +38^REMINDER COMPUTED FINDINGS^VA-ALLERGY^S^ +"DATA",811.8,184,130,1,1,39,0) +39^REMINDER TAXONOMY^MU NQF0038 NUM8 HEP A DX INCL^S^ +"DATA",811.8,184,130,1,1,40,0) +40^REMINDER TAXONOMY^MU NQF0038 DENOM EM INC^O^ +"DATA",811.8,184,130,1,1,41,0) +41^REMINDER TAXONOMY^MU NQF0038 NUM DX ACTIVE^S^ +"DATA",811.8,184,130,1,1,42,0) +42^REMINDER TAXONOMY^MU NQF0038 NUM INACTIVE DX^O^ +"DATA",811.8,184,130,1,1,43,0) +43^REMINDER TAXONOMY^MU NQF0038 DENOM EM^S^ +"DATA",811.8,184,130,1,1,44,0) +44^REMINDER TAXONOMY^MU NQF0038 NUM6 VZV DX INCL^S^ +"DATA",811.8,184,130,1,1,45,0) +45^REMINDER TAXONOMY^MU NQF0038 NUM5 HEP_B DX INCL^S^ +"DATA",811.8,184,130,1,1,46,0) +46^REMINDER TAXONOMY^MU NQF0038 NUM3 RUBELLA DX EXCLU^S^ +"DATA",811.8,184,130,1,1,47,0) +47^REMINDER TAXONOMY^MU NQF0038 NUM3 MEASLES DX EXCLU^S^ +"DATA",811.8,184,130,1,1,48,0) +48^REMINDER TAXONOMY^MU NQF0038 NUM3 MUMPS DX EXCLU^S^ +"DATA",811.8,184,130,1,1,49,0) +49^REMINDER TAXONOMY^MU NQF0038 DTAP ICD EXCLU^S^ +"DATA",811.8,184,130,1,1,50,0) +50^REMINDER TERM^MU NQF0038 NUM8 ALLERGY EXCLU ^S^ +"DATA",811.8,184,130,1,1,51,0) +51^REMINDER TERM^MU NQF0038 NUM8 HEPA1^S^ +"DATA",811.8,184,130,1,1,52,0) +52^REMINDER TERM^MU NQF0038 NUM8 HEPA2^S^ +"DATA",811.8,184,130,1,1,53,0) +53^REMINDER TERM^MU NQF0038 NUM10 INFLUENZA VAC^S^ +"DATA",811.8,184,130,1,1,54,0) +54^REMINDER TERM^MU NQF0038 NUM10 FLU ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,55,0) +55^REMINDER TERM^MU NQF0038 NUM9 ROTAVIRUS ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,56,0) +56^REMINDER TERM^MU NQF0038 NUM9 RV1^S^ +"DATA",811.8,184,130,1,1,57,0) +57^REMINDER TERM^MU NQF0038 NUM9 RV2^S^ +"DATA",811.8,184,130,1,1,58,0) +58^REMINDER TERM^MU NQF0038 NUM9 RV3^S^ +"DATA",811.8,184,130,1,1,59,0) +59^REMINDER TERM^MU NQF0038 NUM4 ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,60,0) +60^REMINDER TERM^MU NQF0038 NUM4 HIB1^S^ +"DATA",811.8,184,130,1,1,61,0) +61^REMINDER TERM^MU NQF0038 NUM4 HIB2^S^ +"DATA",811.8,184,130,1,1,62,0) +62^REMINDER TERM^MU NQF0038 NUM4 HIB3^S^ +"DATA",811.8,184,130,1,1,63,0) +63^REMINDER TERM^MU NQF0038 NUM7 ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,64,0) +64^REMINDER TERM^MU NQF0038 NUM7 PCV1^S^ +"DATA",811.8,184,130,1,1,65,0) +65^REMINDER TERM^MU NQF0038 NUM7 PCV2^S^ +"DATA",811.8,184,130,1,1,66,0) +66^REMINDER TERM^MU NQF0038 NUM7 PCV3^S^ +"DATA",811.8,184,130,1,1,67,0) +67^REMINDER TERM^MU NQF0038 NUM7 PCV4^S^ +"DATA",811.8,184,130,1,1,68,0) +68^REMINDER TERM^MU NQF0038 NUM7 PCV5^S^ +"DATA",811.8,184,130,1,1,69,0) +69^REMINDER TERM^MU NQF0038 NUM6 VZV ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,70,0) +70^REMINDER TERM^MU NQF0038 NUM6 VZV1^S^ +"DATA",811.8,184,130,1,1,71,0) +71^REMINDER TERM^MU NQF0038 NUM6 VZV2^S^ +"DATA",811.8,184,130,1,1,72,0) +72^REMINDER TERM^MU NQF0038 NUM5 ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,73,0) +73^REMINDER TERM^MU NQF0038 NUM5 HEPB1^S^ +"DATA",811.8,184,130,1,1,74,0) +74^REMINDER TERM^MU NQF0038 NUM5 HEPB2^S^ +"DATA",811.8,184,130,1,1,75,0) +75^REMINDER TERM^MU NQF0038 NUM5 HEPB3^S^ +"DATA",811.8,184,130,1,1,76,0) +76^REMINDER TERM^MU NQF0038 NUM5 HEPB4^S^ +"DATA",811.8,184,130,1,1,77,0) +77^REMINDER TERM^MU NQF0038 NUM3 MMR1^S^ +"DATA",811.8,184,130,1,1,78,0) +78^REMINDER TERM^MU NQF0038 NUM3 GENER MMR ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,79,0) +79^REMINDER TERM^MU NQF0038 NUM3 RUBELLA VAC ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,80,0) +80^REMINDER TERM^MU NQF0038 NUM3 MEASLES VAC ALLERGY EXCL^S^ +"DATA",811.8,184,130,1,1,81,0) +81^REMINDER TERM^MU NQF0038 NUM3 MUMPS VAC ALLERGY EXCLU^S^ +"DATA",811.8,184,130,1,1,82,0) +82^REMINDER TERM^MU NQF0038 NUM2 IPV1^S^ +"DATA",811.8,184,130,1,1,83,0) +83^REMINDER TERM^MU NQF0038 NUM2 IPV2^S^ +"DATA",811.8,184,130,1,1,84,0) +84^REMINDER TERM^MU NQF0038 NUM2 IPV3^S^ +"DATA",811.8,184,130,1,1,85,0) +85^REMINDER TERM^MU NQF0038 NUM2 IPV4^S^ +"DATA",811.8,184,130,1,1,86,0) +86^REMINDER TERM^MU NQF0038 NUM2 IPV ALLERGY INCLU^S^ +"DATA",811.8,184,130,1,1,87,0) +87^REMINDER TERM^MU NQF0038 DTAP1^S^ +"DATA",811.8,184,130,1,1,88,0) +88^REMINDER TERM^MU NQF0038 DTAP2^S^ +"DATA",811.8,184,130,1,1,89,0) +89^REMINDER TERM^MU NQF0038 DTAP3^S^ +"DATA",811.8,184,130,1,1,90,0) +90^REMINDER TERM^MU NQF0038 DTAP4^S^ +"DATA",811.8,184,130,1,1,91,0) +91^REMINDER TERM^MU NQF0038 DTAP5^S^ +"DATA",811.8,184,130,1,1,92,0) +92^REMINDER DEFINITION^MU NQF0038 NUM8 HEPA LIST^S^ +"DATA",811.8,184,130,1,1,93,0) +93^REMINDER DEFINITION^MU NQF0038 NUM10 INFLUENZA LIST^S^ +"DATA",811.8,184,130,1,1,94,0) +94^REMINDER DEFINITION^MU NQF0038 IMMUN DENOM PL^S^ +"DATA",811.8,184,130,1,1,95,0) +95^REMINDER DEFINITION^MU NQF0038 NUM9 RV LIST^S^ +"DATA",811.8,184,130,1,1,96,0) +96^REMINDER DEFINITION^MU NQF0038 NUM4 HIB LIST^S^ +"DATA",811.8,184,130,1,1,97,0) +97^REMINDER DEFINITION^MU NQF0038 NUM7 PCV LIST^S^ +"DATA",811.8,184,130,1,1,98,0) +98^REMINDER DEFINITION^MU NQF0038 NUM6 VZV LIST^S^ +"DATA",811.8,184,130,1,1,99,0) +99^REMINDER DEFINITION^MU NQF0038 NUM5 HEPB LIST^S^ +"DATA",811.8,184,130,1,1,100,0) +100^REMINDER DEFINITION^MU NQF0038 NUM3-4 MMR OR EXCLUSIONS^S^ +"DATA",811.8,184,130,1,1,101,0) +101^REMINDER DEFINITION^MU NQF0038 NUM3-3 RUBELLA ^S^ +"DATA",811.8,184,130,1,1,102,0) +102^REMINDER DEFINITION^MU NQF0038 NUM3-2 MEASLES ^S^ +"DATA",811.8,184,130,1,1,103,0) +103^REMINDER DEFINITION^MU NQF0038 NUM3-1 MUMPS ^S^ +"DATA",811.8,184,130,1,1,104,0) +104^REMINDER DEFINITION^MU NQF0038 NUM2 IPV LIST^S^ +"DATA",811.8,184,130,1,1,105,0) +105^REMINDER DEFINITION^MU NQF0038 NUM1 LIST^S^ +"DATA",811.8,184,130,1,1,106,0) +106^REMINDER LIST RULE^MU NQF0038 NUM8 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,107,0) +107^REMINDER LIST RULE^MU NQF0038 NUM8 RR^S^ +"DATA",811.8,184,130,1,1,108,0) +108^REMINDER LIST RULE^MU NQF0038 NUM8 HEP A RS^S^ +"DATA",811.8,184,130,1,1,109,0) +109^REMINDER LIST RULE^MU NQF0038 NUM10 FLU RR^S^ +"DATA",811.8,184,130,1,1,110,0) +110^REMINDER LIST RULE^MU NQF0038 NUM10 FLU FR^S^ +"DATA",811.8,184,130,1,1,111,0) +111^REMINDER LIST RULE^MU NQF0038 DENOM RR^S^ +"DATA",811.8,184,130,1,1,112,0) +112^REMINDER LIST RULE^MU NQF0038 NUM10 INFLUENZA RS^S^ +"DATA",811.8,184,130,1,1,113,0) +113^REMINDER LIST RULE^MU NQF0038 NUM9 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,114,0) +114^REMINDER LIST RULE^MU NQF0038 NUM9 RR^S^ +"DATA",811.8,184,130,1,1,115,0) +115^REMINDER LIST RULE^MU NQF0038 NUM9 RV RS^S^ +"DATA",811.8,184,130,1,1,116,0) +116^REMINDER LIST RULE^MU NQF0038 NUM4 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,117,0) +117^REMINDER LIST RULE^MU NQF0038 NUM4 RR^S^ +"DATA",811.8,184,130,1,1,118,0) +118^REMINDER LIST RULE^MU NQF0038 NUM4 HIB RS^S^ +"DATA",811.8,184,130,1,1,119,0) +119^REMINDER LIST RULE^MU NQF0038 NUM7 PCV PR^S^ +"DATA",811.8,184,130,1,1,120,0) +120^REMINDER LIST RULE^MU NQF0038 NUM6 VZV PR^S^ +"DATA",811.8,184,130,1,1,121,0) +121^REMINDER LIST RULE^MU NQF0038 NUM5 HEP B PR^S^ +"DATA",811.8,184,130,1,1,122,0) +122^REMINDER LIST RULE^MU NQF0038 NUM3-ALL PR^S^ +"DATA",811.8,184,130,1,1,123,0) +123^REMINDER LIST RULE^MU NQF0038 NUM2 IPV PR^S^ +"DATA",811.8,184,130,1,1,124,0) +124^REMINDER LIST RULE^MU NQF0038 NUM1 DPT PR^S^ +"DATA",811.8,184,130,1,1,125,0) +125^REMINDER LIST RULE^MU NQF0038 NUM12 COMBO6 RS^S^ +"DATA",811.8,184,130,1,1,126,0) +126^REMINDER LIST RULE^MU NQF0038 NUM11 COMBO5 RS^S^ +"DATA",811.8,184,130,1,1,127,0) +127^REMINDER LIST RULE^MU NQF0038 NUM7 ALLERGY^S^ +"DATA",811.8,184,130,1,1,128,0) +128^REMINDER LIST RULE^MU NQF0038 NUM7 RR^S^ +"DATA",811.8,184,130,1,1,129,0) +129^REMINDER LIST RULE^MU NQF0038 NUM7 PCV RS^S^ +"DATA",811.8,184,130,1,1,130,0) +130^REMINDER LIST RULE^MU NQF0038 NUM6 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,131,0) +131^REMINDER LIST RULE^MU NQF0038 NUM6 RR^S^ +"DATA",811.8,184,130,1,1,132,0) +132^REMINDER LIST RULE^MU NQF0038 NUM6 VZV RS^S^ +"DATA",811.8,184,130,1,1,133,0) +133^REMINDER LIST RULE^MU NQF0038 NUM5 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,134,0) +134^REMINDER LIST RULE^MU NQF0038 NUM5 RR^S^ +"DATA",811.8,184,130,1,1,135,0) +135^REMINDER LIST RULE^MU NQF0038 NUM5 RS^S^ +"DATA",811.8,184,130,1,1,136,0) +136^REMINDER LIST RULE^MU NQF0038 NUM3-4 PR^S^ +"DATA",811.8,184,130,1,1,137,0) +137^REMINDER LIST RULE^MU NQF0038 NUM3-3 PR^S^ +"DATA",811.8,184,130,1,1,138,0) +138^REMINDER LIST RULE^MU NQF0038 NUM3-2 PR^S^ +"DATA",811.8,184,130,1,1,139,0) +139^REMINDER LIST RULE^MU NQF0038 NUM3-1 PR^S^ +"DATA",811.8,184,130,1,1,140,0) +140^REMINDER LIST RULE^MU NQF0038 NUM3-ALL RS^S^ +"DATA",811.8,184,130,1,1,141,0) +141^REMINDER LIST RULE^MU NQF0038 NUM3-4 MMR AND EXCL RR^S^ +"DATA",811.8,184,130,1,1,142,0) +142^REMINDER LIST RULE^MU NQF0038 NUM3 MMR ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,143,0) +143^REMINDER LIST RULE^MU NQF0038 NUM3-4 MMR AND EXCLU RS^S^ +"DATA",811.8,184,130,1,1,144,0) +144^REMINDER LIST RULE^MU NQF0038 NUM3-3 RUBELLA RR^S^ +"DATA",811.8,184,130,1,1,145,0) +145^REMINDER LIST RULE^MU NQF0038 RUBELLA ALERGY FR^S^ +"DATA",811.8,184,130,1,1,146,0) +146^REMINDER LIST RULE^MU NQF0038 NUM3-3 RUBELLA RS^S^ +"DATA",811.8,184,130,1,1,147,0) +147^REMINDER LIST RULE^MU NQF0038 NUM3-2 MEASLES RR^S^ +"DATA",811.8,184,130,1,1,148,0) +148^REMINDER LIST RULE^MU NQF0038 NUM3 MEASLES ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,149,0) +149^REMINDER LIST RULE^MU NQF0038 NUM3-2 MEASLES RS^S^ +"DATA",811.8,184,130,1,1,150,0) +150^REMINDER LIST RULE^MU NQF0038 NUM3-1 MUMPS RR^S^ +"DATA",811.8,184,130,1,1,151,0) +151^REMINDER LIST RULE^MU NQF0038 NUM3 MUMPS ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,152,0) +152^REMINDER LIST RULE^MU NQF0038 NUM3-1 MUMPS RS^O^ +"DATA",811.8,184,130,1,1,153,0) +153^REMINDER LIST RULE^MU NQF0038 NUM2 1 RR^S^ +"DATA",811.8,184,130,1,1,154,0) +154^REMINDER LIST RULE^MU NQF0038 NUM2 ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,155,0) +155^REMINDER LIST RULE^MU NQF0038 NUM2 IPV RS^S^ +"DATA",811.8,184,130,1,1,156,0) +156^REMINDER LIST RULE^MU NQF0038 NUM1 RR^S^ +"DATA",811.8,184,130,1,1,157,0) +157^REMINDER LIST RULE^MU NQF0038 NUM1 DPT ALLERGY FR^S^ +"DATA",811.8,184,130,1,1,158,0) +158^REMINDER LIST RULE^MU NQF0038 NUM1 DPT RS^S^ +"DATA",811.8,184,130,1,1,159,0) +159^REMINDER LIST RULE^MU NQF0038 DENOM RS^S^ +"DATA",811.8,184,130,1,1,160,0) +160^REMINDER EXTRACT DEFINITION^MU NQF0038 CHILDREN'S IMMUNIZATIONS^O^ +"DATA",811.8,185,0) +MU NQF0024-ALL^MANAGER,SYSTEM at VOE OFFICE INSTITUTION OLD^3120731.174903 +"DATA",811.8,185,100,1,0) + +"DATA",811.8,185,100,2,0) + +"DATA",811.8,185,100,3,0) +2.0P17 +"DATA",811.8,185,100,4,0) +1294 +"DATA",811.8,185,100,5,0) + +"DATA",811.8,185,100,6,0) +MU NQF0024-ALL +"DATA",811.8,185,100,7,0) +MANAGER,SYSTEM +"DATA",811.8,185,100,8,0) +VOE OFFICE INSTITUTION OLD +"DATA",811.8,185,100,9,0) +07/31/2012@17:49:03 +"DATA",811.8,185,100,10,0) + +"DATA",811.8,185,100,11,0) + +"DATA",811.8,185,100,21,0) + +"DATA",811.8,185,100,22,0) +BMI PERCENTILE +"DATA",811.8,185,100,23,0) + +"DATA",811.8,185,100,24,0) + +"DATA",811.8,185,100,25,0) +C0QRMBMI +"DATA",811.8,185,100,26,0) +2871931989 +"DATA",811.8,185,100,27,0) + +"DATA",811.8,185,100,28,0) + 18. +"DATA",811.8,185,100,45,0) + ; Call doesn't work for anybody above 18 yo. +"DATA",811.8,185,100,46,0) + I $T(BMIPCTL^TMGGRC1)']"" S NFOUND=0 QUIT +"DATA",811.8,185,100,47,0) + I PXRMAGE>18 S NFOUND=0 QUIT +"DATA",811.8,185,100,48,0) + ; +"DATA",811.8,185,100,49,0) + ; Get BMIs from Standard Reminders Call (added in Patch 12) +"DATA",811.8,185,100,50,0) + D BMI^PXRMBMI(DFN,NGET,BDT,EDT,.NFOUND,.TEST,.DATE,.DATA,.TEXT) ; BMI call +"DATA",811.8,185,100,51,0) + ; +"DATA",811.8,185,100,52,0) + ; Walk through BMI results +"DATA",811.8,185,100,53,0) + N IND ; Index +"DATA",811.8,185,100,54,0) + F IND=1:1:NFOUND D Q:'NFOUND ; If NFOUND is zero'ed, quit. +"DATA",811.8,185,100,55,0) + . ; +"DATA",811.8,185,100,56,0) + . ; S TEST(IND)=1,DATE(IND)=TDATE ; The same; won't set here. +"DATA",811.8,185,100,57,0) + . ; S TEXT(IND)="height measured "_$$EDATE^PXRMDATE(HDATE) ; the same +"DATA",811.8,185,100,58,0) + . N BMI S BMI=DATA(IND,"VALUE") ; Get BMI +"DATA",811.8,185,100,59,0) + . N PBMI ; BMI Percentile +"DATA",811.8,185,100,60,0) + . ; We use PXRMDATE API to grab the Reminders Date Due, not today's date. +"DATA",811.8,185,100,61,0) + . N AGE S AGE=$$FMDIFF^XLFDT($$NOW^PXRMDATE(),PXRMDOB,1)/365.24 ; Age in yrs +"DATA",811.8,185,100,62,0) + . ; +"DATA",811.8,185,100,63,0) + . ; If the ep exists, call it, otherwise, mark as not found. +"DATA",811.8,185,100,64,0) + . S PBMI=$$BMIPCTL^TMGGRC1(AGE,PXRMSEX,BMI,1) +"DATA",811.8,185,100,65,0) + . ; +"DATA",811.8,185,100,66,0) + . ; Also, if N/A (patient above 18 yo) - mark as not found. +"DATA",811.8,185,100,67,0) + . I PBMI["N/A" S NFOUND=0 QUIT ; Not available for anybody above 18 yo. +"DATA",811.8,185,100,68,0) + . ; +"DATA",811.8,185,100,69,0) + . ; We get a textish result (e.g. 78th percentile); convert to number +"DATA",811.8,185,100,70,0) + . S PBMI=+PBMI +"DATA",811.8,185,100,71,0) + . ; +"DATA",811.8,185,100,72,0) + . ; Set return values (NB: BMI subscript is still there) +"DATA",811.8,185,100,73,0) + . S (DATA(IND,"VALUE"),DATA(IND,"BMI%ILE"))=PBMI +"DATA",811.8,185,100,74,0) + QUIT +"DATA",811.8,185,100,75,0) + ; +"DATA",811.8,185,100,76,0) +TPBMI(DFN) ; Test PBMI; Pass DFN by Value; Private, for testing only +"DATA",811.8,185,100,77,0) + N NFOUND,TEST,DATE,DATA,TEXT +"DATA",811.8,185,100,78,0) + N PXRMSEX S PXRMSEX=$P(^DPT(DFN,0),U,2) +"DATA",811.8,185,100,79,0) + N PXRMDOB S PXRMDOB=$P(^DPT(DFN,0),U,3) +"DATA",811.8,185,100,80,0) + N PXRMAGE S PXRMAGE=$$GET1^DIQ(2,DFN,"AGE") +"DATA",811.8,185,100,81,0) + D PBMI^C0QRMBMI(DFN,99,3000000,$$DT^XLFDT(),.NFOUND,.TEST,.DATE,.DATA,.TEXT) +"DATA",811.8,185,100,82,0) + I 'NFOUND W "No results found! for DFN "_DFN,!! QUIT +"DATA",811.8,185,100,83,0) + ; +"DATA",811.8,185,100,84,0) + W "Patient: DFN: "_DFN_"; "_PXRMAGE_" yo; "_PXRMSEX,! +"DATA",811.8,185,100,85,0) + ; +"DATA",811.8,185,100,86,0) + N I F I=1:1:NFOUND D +"DATA",811.8,185,100,87,0) + . W "NFOUND: "_NFOUND,! +"DATA",811.8,185,100,88,0) + . W "TEST: "_TEST(I),! +"DATA",811.8,185,100,89,0) + . W "DATE: "_DATE(I),! +"DATA",811.8,185,100,90,0) + . W "TEXT: "_TEXT(I),! +"DATA",811.8,185,100,91,0) + . W "DATA VALUE: "_DATA(I,"VALUE"),! +"DATA",811.8,185,100,92,0) + . W "DATA BMI%ILE: "_DATA(I,"BMI%ILE"),! +"DATA",811.8,185,100,93,0) + . W "DATA BMI: "_DATA(I,"BMI"),! +"DATA",811.8,185,100,94,0) + . W ! +"DATA",811.8,185,100,95,0) + QUIT +"DATA",811.8,185,100,96,0) + ; +"DATA",811.8,185,100,97,0) + ; Private below as well. +"DATA",811.8,185,100,98,0) +TEST N DFN S DFN=0 F S DFN=$O(^DPT(DFN)) Q:'DFN D TPBMI(DFN) ; One liner test +"DATA",811.8,185,100,99,0) + QUIT +"DATA",811.8,185,100,100,0) +]]> +"DATA",811.8,185,100,101,0) + +"DATA",811.8,185,100,102,0) + +"DATA",811.8,185,100,103,0) + +"DATA",811.8,185,100,104,0) +PXRMPDEM +"DATA",811.8,185,100,105,0) +3829238928 +"DATA",811.8,185,100,106,0) + +"DATA",811.8,185,100,107,0) +0 S VALUE("DECEASED")=1,TEXT="Patient is deceased" +"DATA",811.8,185,100,119,0) + I '$D(PXRMPDEM) D +"DATA",811.8,185,100,120,0) + . N DOB,DOD +"DATA",811.8,185,100,121,0) + .;DBIA #10035 +"DATA",811.8,185,100,122,0) + . S DOB=$P(^DPT(DFN,0),U,3) +"DATA",811.8,185,100,123,0) + . S DOD=$P($G(^DPT(DFN,.35)),U,1) +"DATA",811.8,185,100,124,0) + . S VALUE=$$AGE^PXRMAGE(DOB,DOD,$$NOW^PXRMDATE) +"DATA",811.8,185,100,125,0) + . I +DOD=0 S VALUE("DECEASED")=0 Q +"DATA",811.8,185,100,126,0) + . I +DOD>0 S VALUE("DECEASED")=1,TEXT="Patient is deceased" +"DATA",811.8,185,100,127,0) + Q +"DATA",811.8,185,100,128,0) + ; +"DATA",811.8,185,100,129,0) + ;====================================================== +"DATA",811.8,185,100,130,0) +DFA(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;This computed finding +"DATA",811.8,185,100,131,0) + ;returns the date the patient turns a specified age. Based on +"DATA",811.8,185,100,132,0) + ;work by AJM: 9/16/08. +"DATA",811.8,185,100,133,0) + ;DBIA #10035 DATE OF BIRTH is a required field. +"DATA",811.8,185,100,134,0) + I TEST="" S NFOUND=0,DATE(1)=$$NOW^PXRMDATE,TEST(1)=0 Q +"DATA",811.8,185,100,135,0) + S TEST=$P(TEST,".",1) +"DATA",811.8,185,100,136,0) + N DOB,YOB +"DATA",811.8,185,100,137,0) + S NFOUND=1 +"DATA",811.8,185,100,138,0) + S DOB=$S($D(PXRMDOB):PXRMDOB,1:$P(^DPT(DFN,0),U,3)) +"DATA",811.8,185,100,139,0) + S YOB=$E(DOB,1,3) +"DATA",811.8,185,100,140,0) + S (DATE(1),VALUE(1,"VALUE"))=YOB+TEST_$E(DOB,4,7) +"DATA",811.8,185,100,141,0) + S TEST(1)=1 +"DATA",811.8,185,100,142,0) + S TEXT(1)="Patient "_$S(DATE(1)>$$NOW^PXRMDATE:"will be ",1:"was ")_+TEST_" years old on "_$$FMTE^XLFDT(DATE(1),"5Z") +"DATA",811.8,185,100,143,0) + Q +"DATA",811.8,185,100,144,0) + ; +"DATA",811.8,185,100,145,0) + ;====================================================== +"DATA",811.8,185,100,146,0) +DOB(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's +"DATA",811.8,185,100,147,0) + ;date of birth. +"DATA",811.8,185,100,148,0) + I $D(PXRMPDEM) S VALUE=PXRMPDEM("DOB") +"DATA",811.8,185,100,149,0) + ;DBIA #10035 DATE OF BIRTH is a required field. +"DATA",811.8,185,100,150,0) + I '$D(PXRMPDEM) S VALUE=$P(^DPT(DFN,0),U,3) +"DATA",811.8,185,100,151,0) + S TEST=$S(VALUE<$$NOW^PXRMDATE:1,1:0) +"DATA",811.8,185,100,152,0) + I TEST S DATE=VALUE,TEXT=$$EDATE^PXRMDATE(VALUE) +"DATA",811.8,185,100,153,0) + Q +"DATA",811.8,185,100,154,0) + ; +"DATA",811.8,185,100,155,0) + ;====================================================== +"DATA",811.8,185,100,156,0) +DOD(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's +"DATA",811.8,185,100,157,0) + ;date of death. +"DATA",811.8,185,100,158,0) + I $D(PXRMPDEM) S VALUE=+PXRMPDEM("DOD") +"DATA",811.8,185,100,159,0) + ;DBIA #10035 +"DATA",811.8,185,100,160,0) + I '$D(PXRMPDEM) S VALUE=+$P($G(^DPT(DFN,.35)),U,1) +"DATA",811.8,185,100,161,0) + S TEST=$S(VALUE=0:0,VALUE>$$NOW^PXRMDATE:0,1:1) +"DATA",811.8,185,100,162,0) + I TEST S DATE=VALUE,TEXT=$$EDATE^PXRMDATE(VALUE) +"DATA",811.8,185,100,163,0) + Q +"DATA",811.8,185,100,164,0) + ; +"DATA",811.8,185,100,165,0) + ;====================================================== +"DATA",811.8,185,100,166,0) +EMPLOYE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;This computed finding +"DATA",811.8,185,100,167,0) + ;will return true if the patient is an employee. +"DATA",811.8,185,100,168,0) + ;DBIA #10035, #10060 +"DATA",811.8,185,100,169,0) + N IEN,PAID,SSN +"DATA",811.8,185,100,170,0) + S NFOUND=1,DATE(1)=$$NOW^PXRMDATE,TEST(1)=0 +"DATA",811.8,185,100,171,0) + S SSN=$P($G(^DPT(DFN,0)),U,9) +"DATA",811.8,185,100,172,0) + I SSN="" Q +"DATA",811.8,185,100,173,0) + ;Use SSN to make the link. +"DATA",811.8,185,100,174,0) + S IEN=+$O(^VA(200,"SSN",SSN,"")) +"DATA",811.8,185,100,175,0) + I IEN=0 Q +"DATA",811.8,185,100,176,0) + S PAID=+$P($G(^VA(200,IEN,450)),U,1) +"DATA",811.8,185,100,177,0) + I PAID=0 Q +"DATA",811.8,185,100,178,0) + ;Check for a termination date. +"DATA",811.8,185,100,179,0) + I +$P(^VA(200,IEN,0),U,11)0,DDATE'EDT S NFOUND=NFOUND+1,DDATEL(DDATE,NFOUND)=^DGPT(IEN,0) +"DATA",811.8,185,100,211,0) + I NFOUND=0 Q +"DATA",811.8,185,100,212,0) + S SDIR=$S(NGET<0:1,1:-1) +"DATA",811.8,185,100,213,0) + S NGET=$S(NGET<0:-NGET,1:NGET) +"DATA",811.8,185,100,214,0) + S (DONE,NF)=0 +"DATA",811.8,185,100,215,0) + S DDATE="" +"DATA",811.8,185,100,216,0) + F IND=1:1:NFOUND Q:DONE D +"DATA",811.8,185,100,217,0) + . S DDATE=$O(DDATEL(DDATE),SDIR) +"DATA",811.8,185,100,218,0) + . I DDATE="" S DONE=1 Q +"DATA",811.8,185,100,219,0) + . S IEN=0 +"DATA",811.8,185,100,220,0) + . F S IEN=$O(DDATEL(DDATE,IEN)) Q:(IEN="")!(DONE) D +"DATA",811.8,185,100,221,0) + .. S FEEBASIS=$P(DDATEL(DDATE,IEN),U,4) +"DATA",811.8,185,100,222,0) + .. I FEEBASIS=1,'INFEE Q +"DATA",811.8,185,100,223,0) + ..;Type 1 is PTF, Type 2 is Census +"DATA",811.8,185,100,224,0) + .. S TYPE=$P(DDATEL(DDATE,IEN),U,11) +"DATA",811.8,185,100,225,0) + .. I TYPE=2,'INCEN Q +"DATA",811.8,185,100,226,0) + .. S NF=NF+1 +"DATA",811.8,185,100,227,0) + .. S TEST(NF)=1,(DATE(NF),VALUE(NF))=DDATE +"DATA",811.8,185,100,228,0) + .. I FEEBASIS=1 S TEXT(NF)="Fee basis" +"DATA",811.8,185,100,229,0) + .. I TYPE=2 S TEXT(NF)="Census" +"DATA",811.8,185,100,230,0) + .. I NF=NGET S DONE=1 +"DATA",811.8,185,100,231,0) + S NFOUND=NF +"DATA",811.8,185,100,232,0) + Q +"DATA",811.8,185,100,233,0) + ; +"DATA",811.8,185,100,234,0) + ;====================================================== +"DATA",811.8,185,100,235,0) +INP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding for +"DATA",811.8,185,100,236,0) + ;determining if a patient is an inpatient on the evaluation date. +"DATA",811.8,185,100,237,0) + N VAIN,VAINDT +"DATA",811.8,185,100,238,0) + S NFOUND=1 +"DATA",811.8,185,100,239,0) + S (DATE(1),VAINDT)=$$NOW^PXRMDATE +"DATA",811.8,185,100,240,0) + D INP^VADPT +"DATA",811.8,185,100,241,0) + I VAIN(1)="" S TEST(1)=0 D KVA^VADPT Q +"DATA",811.8,185,100,242,0) + S TEST(1)=1 +"DATA",811.8,185,100,243,0) + S VALUE(1,"PRIMARY PROVIDER")=$P(VAIN(2),U,2) +"DATA",811.8,185,100,244,0) + S VALUE(1,"TREATING SPECIALTY")=$P(VAIN(3),U,2) +"DATA",811.8,185,100,245,0) + S VALUE(1,"WARD LOCATION")=$P(VAIN(4),U,2) +"DATA",811.8,185,100,246,0) + S VALUE(1,"ADMISSION DATE/TIME")=$P(VAIN(7),U,1) +"DATA",811.8,185,100,247,0) + S VALUE(1,"ADMISSION TYPE")=$P(VAIN(8),U,2) +"DATA",811.8,185,100,248,0) + S VALUE(1,"ATTENDING PHYSICIAN")=$P(VAIN(11),U,2) +"DATA",811.8,185,100,249,0) + S TEXT(1)="Patient is an inpatient; admission date/time: "_$$FMTE^XLFDT(VALUE(1,"ADMISSION DATE/TIME"),"5Z") +"DATA",811.8,185,100,250,0) + D KVA^VADPT +"DATA",811.8,185,100,251,0) + Q +"DATA",811.8,185,100,252,0) + ; +"DATA",811.8,185,100,253,0) + ;====================================================== +"DATA",811.8,185,100,254,0) +NEWRACE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding +"DATA",811.8,185,100,255,0) + ;for returning a patient's multi-valued race. +"DATA",811.8,185,100,256,0) + N CNT,CNT1,IND,VADM +"DATA",811.8,185,100,257,0) + D DEM^VADPT +"DATA",811.8,185,100,258,0) + I $D(VADM(12))'=11 S NFOUND=0 D KVA^VADPT Q +"DATA",811.8,185,100,259,0) + S NGET=$S(NGET<0:-NGET,1:NGET) +"DATA",811.8,185,100,260,0) + S (CNT,CNT1)=0 +"DATA",811.8,185,100,261,0) + F S CNT=$O(VADM(12,CNT)) Q:(CNT="")!(CNT1=NGET) D +"DATA",811.8,185,100,262,0) + . S CNT1=CNT1+1,TEST(CNT1)=1,DATE(CNT1)=$$NOW^PXRMDATE +"DATA",811.8,185,100,263,0) + . S TEXT(CNT1)="",VALUE(CNT1,"VALUE")=$P($G(VADM(12,CNT)),U,2) +"DATA",811.8,185,100,264,0) + F CNT=1:1:CNT1 F IND=1:1:CNT1 S VALUE(CNT,"RACE",IND)=VALUE(IND,"VALUE") +"DATA",811.8,185,100,265,0) + S NFOUND=CNT1 +"DATA",811.8,185,100,266,0) + D KVA^VADPT +"DATA",811.8,185,100,267,0) + Q +"DATA",811.8,185,100,268,0) + ; +"DATA",811.8,185,100,269,0) + ;====================================================== +"DATA",811.8,185,100,270,0) +PATTYPE(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding to return the patient +"DATA",811.8,185,100,271,0) + ;type +"DATA",811.8,185,100,272,0) + N VAEL +"DATA",811.8,185,100,273,0) + S VALUE="" +"DATA",811.8,185,100,274,0) + S DATE=$$NOW^PXRMDATE +"DATA",811.8,185,100,275,0) + D ELIG^VADPT +"DATA",811.8,185,100,276,0) + S TEST=$S($G(VAEL(6))'="":1,1:0) +"DATA",811.8,185,100,277,0) + S VALUE=$P(VAEL(6),U,2) +"DATA",811.8,185,100,278,0) + D KVA^VADPT +"DATA",811.8,185,100,279,0) + Q +"DATA",811.8,185,100,280,0) + ;====================================================== +"DATA",811.8,185,100,281,0) +RACE(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for checking a patient's race. +"DATA",811.8,185,100,282,0) + N RACE +"DATA",811.8,185,100,283,0) + S DATE=$$NOW^PXRMDATE +"DATA",811.8,185,100,284,0) + ;DBIA #10035 +"DATA",811.8,185,100,285,0) + S RACE=$P($G(^DPT(DFN,0)),U,6) +"DATA",811.8,185,100,286,0) + I RACE="" S TEST=0,VALUE="" Q +"DATA",811.8,185,100,287,0) + Q +"DATA",811.8,185,100,288,0) + ; +"DATA",811.8,185,100,289,0) + ;====================================================== +"DATA",811.8,185,100,290,0) +SEX(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for returning a patient's +"DATA",811.8,185,100,291,0) + ;sex. +"DATA",811.8,185,100,292,0) + S DATE=$$NOW^PXRMDATE,TEST=1 +"DATA",811.8,185,100,293,0) + I $D(PXRMPDEM) S VALUE=PXRMPDEM("SEX") Q +"DATA",811.8,185,100,294,0) + ;DBIA #10035 SEX is a required field. +"DATA",811.8,185,100,295,0) + I '$D(PXRMPDEM) S VALUE=$P(^DPT(DFN,0),U,2) +"DATA",811.8,185,100,296,0) + Q +"DATA",811.8,185,100,297,0) + ; +"DATA",811.8,185,100,298,0) + ;====================================================== +"DATA",811.8,185,100,299,0) +WASINP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding for +"DATA",811.8,185,100,300,0) + ;determining if a patient was an inpatient in the period defined +"DATA",811.8,185,100,301,0) + ;by BDT and EDT. +"DATA",811.8,185,100,302,0) + ;Access to DGPM covered by DBIA #1378 +"DATA",811.8,185,100,303,0) + N ADATE,ADM,ADML,DDATE,IEN,INDT,FDATE,LOS,NOCC,SDIR,TEMP +"DATA",811.8,185,100,304,0) + S FDATE=$S(TEST="DISCH":"DISCH",1:"ADM") +"DATA",811.8,185,100,305,0) + S SDIR=$S(NGET<0:1,1:-1) +"DATA",811.8,185,100,306,0) + S NOCC=$S(NGET<0:-NGET,1:NGET) +"DATA",811.8,185,100,307,0) + S NFOUND=0 +"DATA",811.8,185,100,308,0) + ;Use the "ATID3" index to build a last of past admissions and +"DATA",811.8,185,100,309,0) + ;discharges. +"DATA",811.8,185,100,310,0) + S INDT="" +"DATA",811.8,185,100,311,0) + F S INDT=$O(^DGPM("ATID3",DFN,INDT)) Q:INDT="" D +"DATA",811.8,185,100,312,0) + . S IEN=$O(^DGPM("ATID3",DFN,INDT,"")) +"DATA",811.8,185,100,313,0) + . S TEMP=^DGPM(IEN,0) +"DATA",811.8,185,100,314,0) + . S DDATE=$P(TEMP,U,1) +"DATA",811.8,185,100,315,0) + . S ADM=$P(TEMP,U,14) +"DATA",811.8,185,100,316,0) + . S ADATE=$P(^DGPM(ADM,0),U,1) +"DATA",811.8,185,100,317,0) + . I $$OVERLAP^PXRMINDX(ADATE,DDATE,BDT,EDT)'="O" Q +"DATA",811.8,185,100,318,0) + . S ADML(ADATE)=DDATE +"DATA",811.8,185,100,319,0) + ;Check for the last admission and add it if it is not on the list. +"DATA",811.8,185,100,320,0) + S INDT=$O(^DGPM("ATID1",DFN,"")) +"DATA",811.8,185,100,321,0) + I INDT'="" D +"DATA",811.8,185,100,322,0) + . S IEN=$O(^DGPM("ATID1",DFN,INDT,"")) +"DATA",811.8,185,100,323,0) + . S TEMP=^DGPM(IEN,0) +"DATA",811.8,185,100,324,0) + . S ADATE=$P(TEMP,U,1) +"DATA",811.8,185,100,325,0) + . I $D(ADML(ADATE)) Q +"DATA",811.8,185,100,326,0) + . S IEN=$P(TEMP,U,17) +"DATA",811.8,185,100,327,0) + .;Since this is the last admission there may not be a discharge. +"DATA",811.8,185,100,328,0) + . S DDATE=$S(IEN="":$$NOW^PXRMDATE,1:$P(^DGPM(IEN,0),U,1)) +"DATA",811.8,185,100,329,0) + . I $$OVERLAP^PXRMINDX(ADATE,DDATE,BDT,EDT)="O" S ADML(ADATE)=DDATE +"DATA",811.8,185,100,330,0) + ;Sort the list. +"DATA",811.8,185,100,331,0) + S ADATE="" +"DATA",811.8,185,100,332,0) + F S ADATE=$O(ADML(ADATE),SDIR) Q:(NFOUND=NOCC)!(ADATE="") D +"DATA",811.8,185,100,333,0) + . S NFOUND=NFOUND+1 +"DATA",811.8,185,100,334,0) + . S TEST(NFOUND)=1 +"DATA",811.8,185,100,335,0) + . S DDATE=ADML(ADATE) +"DATA",811.8,185,100,336,0) + . I DDATE="" S DDATE=PXRMDATE +"DATA",811.8,185,100,337,0) + . S DATE(NFOUND)=$S(FDATE="DISCH":DDATE,1:ADATE) +"DATA",811.8,185,100,338,0) + . S LOS=$$FMDIFF^XLFDT(DDATE,ADATE) +"DATA",811.8,185,100,339,0) + . S TEMP="Inpatient from: "_$$FMTE^XLFDT(ADATE,"5Z")_" to " +"DATA",811.8,185,100,340,0) + . S TEMP=TEMP_$S(DDATE=PXRMDATE:"now",1:$$FMTE^XLFDT(DDATE,"5Z")) +"DATA",811.8,185,100,341,0) + . S TEMP=TEMP_"; Length of stay "_LOS_" days." +"DATA",811.8,185,100,342,0) + . S TEXT(NFOUND)=TEMP +"DATA",811.8,185,100,343,0) + . S VALUE(NFOUND,"ADMISSION DATE")=ADATE +"DATA",811.8,185,100,344,0) + . S VALUE(NFOUND,"DISCHARGE DATE")=DDATE +"DATA",811.8,185,100,345,0) + . S VALUE(NFOUND,"LENGTH OF STAY")=LOS +"DATA",811.8,185,100,346,0) + Q +"DATA",811.8,185,100,347,0) + ; +"DATA",811.8,185,100,348,0) +]]> +"DATA",811.8,185,100,349,0) + +"DATA",811.8,185,100,350,0) + +"DATA",811.8,185,100,351,0) + +"DATA",811.8,185,100,352,0) +GMRV VITAL TYPE +"DATA",811.8,185,100,353,0) +120.51 +"DATA",811.8,185,100,354,0) +WEIGHT +"DATA",811.8,185,100,355,0) +9 +"DATA",811.8,185,100,356,0) +3151076501 +"DATA",811.8,185,100,357,0) +NO +"DATA",811.8,185,100,358,0) + +"DATA",811.8,185,100,359,0) + +"DATA",811.8,185,100,362,0) + +"DATA",811.8,185,100,363,0) + +"DATA",811.8,185,100,364,0) + +"DATA",811.8,185,100,365,0) +GMRV VITAL TYPE +"DATA",811.8,185,100,366,0) +120.51 +"DATA",811.8,185,100,367,0) +HEIGHT +"DATA",811.8,185,100,368,0) +8 +"DATA",811.8,185,100,369,0) +1230056667 +"DATA",811.8,185,100,370,0) +NO +"DATA",811.8,185,100,371,0) + +"DATA",811.8,185,100,372,0) + +"DATA",811.8,185,100,375,0) + +"DATA",811.8,185,100,376,0) + +"DATA",811.8,185,100,377,0) + +"DATA",811.8,185,100,378,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,185,100,379,0) +811.4 +"DATA",811.8,185,100,380,0) +VW-BMI-PERCENTILE +"DATA",811.8,185,100,381,0) +99 +"DATA",811.8,185,100,382,0) +1440960318 +"DATA",811.8,185,100,383,0) +NO +"DATA",811.8,185,100,384,0) + +"DATA",811.8,185,100,385,0) +25"; +"DATA",811.8,185,100,402,0) + 3) This finding will be evaluated to true for patients with a BMI +"DATA",811.8,185,100,403,0) +percentile that is greater than 25. +"DATA",811.8,185,100,404,0) + +"DATA",811.8,185,100,405,0) +This is a multi-occurrence computed finding. +"DATA",811.8,185,100,406,0) +811.4;+99,;5~MULTIPLE +"DATA",811.8,185,100,407,0) +811.4;+99,;100~LOCAL +"DATA",811.8,185,100,408,0) +811.42;+100,+99,;.01~07/31/2012@17:49:43 +"DATA",811.8,185,100,409,0) +811.42;+100,+99,;2~WP-start~1 +"DATA",811.8,185,100,410,0) +Exchange Stub +"DATA",811.8,185,100,411,0) +]]> +"DATA",811.8,185,100,412,0) + +"DATA",811.8,185,100,413,0) + +"DATA",811.8,185,100,414,0) + +"DATA",811.8,185,100,417,0) + +"DATA",811.8,185,100,418,0) + +"DATA",811.8,185,100,419,0) + +"DATA",811.8,185,100,420,0) +REMINDER COMPUTED FINDINGS +"DATA",811.8,185,100,421,0) +811.4 +"DATA",811.8,185,100,422,0) +VA-AGE +"DATA",811.8,185,100,423,0) +24 +"DATA",811.8,185,100,424,0) +697429304 +"DATA",811.8,185,100,425,0) +NO +"DATA",811.8,185,100,426,0) + +"DATA",811.8,185,100,427,0) +50. +"DATA",811.8,185,100,436,0) + +"DATA",811.8,185,100,437,0) +If the patient is deceased the age will be their age on the date of +"DATA",811.8,185,100,438,0) +death and V("DECEASED")=1. +"DATA",811.8,185,100,439,0) +811.4;+24,;5~SINGLE +"DATA",811.8,185,100,440,0) +811.4;+24,;100~NATIONAL +"DATA",811.8,185,100,441,0) +811.42;+25,+24,;.01~07/31/2012@17:49:43 +"DATA",811.8,185,100,442,0) +811.42;+25,+24,;2~WP-start~1 +"DATA",811.8,185,100,443,0) +Exchange Stub +"DATA",811.8,185,100,444,0) +]]> +"DATA",811.8,185,100,445,0) + +"DATA",811.8,185,100,446,0) + +"DATA",811.8,185,100,447,0) + +"DATA",811.8,185,100,450,0) + +"DATA",811.8,185,100,451,0) + +"DATA",811.8,185,100,452,0) + +"DATA",811.8,185,100,453,0) +REMINDER TAXONOMY +"DATA",811.8,185,100,454,0) +811.2 +"DATA",811.8,185,100,455,0) +MU NQF0024 PHYSICAL +"DATA",811.8,185,100,456,0) +94 +"DATA",811.8,185,100,457,0) +3603119878 +"DATA",811.8,185,100,458,0) +NO +"DATA",811.8,185,100,459,0) + +"DATA",811.8,185,100,460,0) + +"DATA",811.8,185,100,472,0) + +"DATA",811.8,185,100,473,0) + +"DATA",811.8,185,100,474,0) + +"DATA",811.8,185,100,479,0) + +"DATA",811.8,185,100,480,0) + +"DATA",811.8,185,100,481,0) + +"DATA",811.8,185,100,482,0) +REMINDER TAXONOMY +"DATA",811.8,185,100,483,0) +811.2 +"DATA",811.8,185,100,484,0) +MU NQF0024 NUTRITION +"DATA",811.8,185,100,485,0) +93 +"DATA",811.8,185,100,486,0) +2397086677 +"DATA",811.8,185,100,487,0) +NO +"DATA",811.8,185,100,488,0) + +"DATA",811.8,185,100,489,0) + +"DATA",811.8,185,100,513,0) + +"DATA",811.8,185,100,514,0) + +"DATA",811.8,185,100,515,0) + +"DATA",811.8,185,100,524,0) + +"DATA",811.8,185,100,525,0) + +"DATA",811.8,185,100,526,0) + +"DATA",811.8,185,100,527,0) +REMINDER TAXONOMY +"DATA",811.8,185,100,528,0) +811.2 +"DATA",811.8,185,100,529,0) +MU NQF0024 BMI 2-17 ENC +"DATA",811.8,185,100,530,0) +92 +"DATA",811.8,185,100,531,0) +2269080646 +"DATA",811.8,185,100,532,0) +NO +"DATA",811.8,185,100,533,0) + +"DATA",811.8,185,100,534,0) + +"DATA",811.8,185,100,590,0) + +"DATA",811.8,185,100,591,0) + +"DATA",811.8,185,100,592,0) + +"DATA",811.8,185,100,608,0) + +"DATA",811.8,185,100,609,0) + +"DATA",811.8,185,100,610,0) + +"DATA",811.8,185,100,611,0) +REMINDER TERM +"DATA",811.8,185,100,612,0) +811.5 +"DATA",811.8,185,100,613,0) +MU NQF0024 BMI PERCENTILE +"DATA",811.8,185,100,614,0) +557 +"DATA",811.8,185,100,615,0) +3836857714 +"DATA",811.8,185,100,616,0) +NO +"DATA",811.8,185,100,617,0) + +"DATA",811.8,185,100,618,0) + +"DATA",811.8,185,100,626,0) + +"DATA",811.8,185,100,627,0) + +"DATA",811.8,185,100,628,0) + +"DATA",811.8,185,100,632,0) + +"DATA",811.8,185,100,633,0) + +"DATA",811.8,185,100,634,0) + +"DATA",811.8,185,100,635,0) +REMINDER TERM +"DATA",811.8,185,100,636,0) +811.5 +"DATA",811.8,185,100,637,0) +MU NQF0024 AGE 2-10Y CF +"DATA",811.8,185,100,638,0) +614 +"DATA",811.8,185,100,639,0) +3325321741 +"DATA",811.8,185,100,640,0) +NO +"DATA",811.8,185,100,641,0) + +"DATA",811.8,185,100,642,0) +1 +"DATA",811.8,185,100,647,0) +811.52;+615,+614,;22~I V>1 +"DATA",811.8,185,100,648,0) +811.52;+616,+614,;.01~CF.VA-AGE +"DATA",811.8,185,100,649,0) +811.52;+616,+614,;14~I V<11 +"DATA",811.8,185,100,650,0) +811.52;+616,+614,;22~I V<11 +"DATA",811.8,185,100,651,0) +811.53;+617,+614,;.01~07/31/2012@17:49:45 +"DATA",811.8,185,100,652,0) +811.53;+617,+614,;2~WP-start~1 +"DATA",811.8,185,100,653,0) +Exchange Stub +"DATA",811.8,185,100,654,0) +]]> +"DATA",811.8,185,100,655,0) + +"DATA",811.8,185,100,656,0) + +"DATA",811.8,185,100,657,0) + +"DATA",811.8,185,100,662,0) + +"DATA",811.8,185,100,663,0) + +"DATA",811.8,185,100,664,0) + +"DATA",811.8,185,100,665,0) +REMINDER TERM +"DATA",811.8,185,100,666,0) +811.5 +"DATA",811.8,185,100,667,0) +MU NQF0024 AGE 11-17 CF +"DATA",811.8,185,100,668,0) +615 +"DATA",811.8,185,100,669,0) +3216234137 +"DATA",811.8,185,100,670,0) +NO +"DATA",811.8,185,100,671,0) + +"DATA",811.8,185,100,672,0) +10 +"DATA",811.8,185,100,677,0) +811.52;+616,+615,;22~I V>10 +"DATA",811.8,185,100,678,0) +811.52;+617,+615,;.01~CF.VA-AGE +"DATA",811.8,185,100,679,0) +811.52;+617,+615,;14~I V<18 +"DATA",811.8,185,100,680,0) +811.52;+617,+615,;22~I V<18 +"DATA",811.8,185,100,681,0) +811.53;+618,+615,;.01~07/31/2012@17:49:45 +"DATA",811.8,185,100,682,0) +811.53;+618,+615,;2~WP-start~1 +"DATA",811.8,185,100,683,0) +Exchange Stub +"DATA",811.8,185,100,684,0) +]]> +"DATA",811.8,185,100,685,0) + +"DATA",811.8,185,100,686,0) + +"DATA",811.8,185,100,687,0) + +"DATA",811.8,185,100,692,0) + +"DATA",811.8,185,100,693,0) + +"DATA",811.8,185,100,694,0) + +"DATA",811.8,185,100,695,0) +REMINDER DEFINITION +"DATA",811.8,185,100,696,0) +811.9 +"DATA",811.8,185,100,697,0) +MU NQF0024 BMI 2-17 YRS NUMER LIST +"DATA",811.8,185,100,698,0) +147 +"DATA",811.8,185,100,699,0) +513139047 +"DATA",811.8,185,100,700,0) +NO +"DATA",811.8,185,100,701,0) + +"DATA",811.8,185,100,702,0) + +"DATA",811.8,185,100,775,0) + +"DATA",811.8,185,100,776,0) + +"DATA",811.8,185,100,777,0) + +"DATA",811.8,185,100,794,0) + +"DATA",811.8,185,100,795,0) + +"DATA",811.8,185,100,796,0) + +"DATA",811.8,185,100,797,0) +REMINDER DEFINITION +"DATA",811.8,185,100,798,0) +811.9 +"DATA",811.8,185,100,799,0) +MU NQF0024 DEM LIST +"DATA",811.8,185,100,800,0) +174 +"DATA",811.8,185,100,801,0) +2973718776 +"DATA",811.8,185,100,802,0) +NO +"DATA",811.8,185,100,803,0) + +"DATA",811.8,185,100,804,0) + +"DATA",811.8,185,100,835,0) + +"DATA",811.8,185,100,836,0) + +"DATA",811.8,185,100,837,0) + +"DATA",811.8,185,100,842,0) + +"DATA",811.8,185,100,843,0) + +"DATA",811.8,185,100,844,0) + +"DATA",811.8,185,100,845,0) +REMINDER DEFINITION +"DATA",811.8,185,100,846,0) +811.9 +"DATA",811.8,185,100,847,0) +MU NQF0024 BMI 2-10Y DENOM LIST +"DATA",811.8,185,100,848,0) +178 +"DATA",811.8,185,100,849,0) +1607351926 +"DATA",811.8,185,100,850,0) +NO +"DATA",811.8,185,100,851,0) + +"DATA",811.8,185,100,852,0) + +"DATA",811.8,185,100,883,0) + +"DATA",811.8,185,100,884,0) + +"DATA",811.8,185,100,885,0) + +"DATA",811.8,185,100,890,0) + +"DATA",811.8,185,100,891,0) + +"DATA",811.8,185,100,892,0) + +"DATA",811.8,185,100,893,0) +REMINDER DEFINITION +"DATA",811.8,185,100,894,0) +811.9 +"DATA",811.8,185,100,895,0) +MU NQF0024 BMI 11-17Y DENOM LIST +"DATA",811.8,185,100,896,0) +180 +"DATA",811.8,185,100,897,0) +3614933919 +"DATA",811.8,185,100,898,0) +NO +"DATA",811.8,185,100,899,0) + +"DATA",811.8,185,100,900,0) + +"DATA",811.8,185,100,931,0) + +"DATA",811.8,185,100,932,0) + +"DATA",811.8,185,100,933,0) + +"DATA",811.8,185,100,938,0) + +"DATA",811.8,185,100,939,0) + +"DATA",811.8,185,100,940,0) + +"DATA",811.8,185,100,941,0) +REMINDER LIST RULE +"DATA",811.8,185,100,942,0) +810.4 +"DATA",811.8,185,100,943,0) +MU NQF0024 BMI PERCENTILE FR +"DATA",811.8,185,100,944,0) +163 +"DATA",811.8,185,100,945,0) +2662505972 +"DATA",811.8,185,100,946,0) +NO +"DATA",811.8,185,100,947,0) + +"DATA",811.8,185,100,948,0) + +"DATA",811.8,185,100,957,0) + +"DATA",811.8,185,100,958,0) + +"DATA",811.8,185,100,959,0) + +"DATA",811.8,185,100,962,0) + +"DATA",811.8,185,100,963,0) + +"DATA",811.8,185,100,964,0) + +"DATA",811.8,185,100,965,0) +REMINDER LIST RULE +"DATA",811.8,185,100,966,0) +810.4 +"DATA",811.8,185,100,967,0) +MU NQF0024 AGE 2-10 YEARS FR +"DATA",811.8,185,100,968,0) +161 +"DATA",811.8,185,100,969,0) +935747946 +"DATA",811.8,185,100,970,0) +NO +"DATA",811.8,185,100,971,0) + +"DATA",811.8,185,100,972,0) + +"DATA",811.8,185,100,981,0) + +"DATA",811.8,185,100,982,0) + +"DATA",811.8,185,100,983,0) + +"DATA",811.8,185,100,986,0) + +"DATA",811.8,185,100,987,0) + +"DATA",811.8,185,100,988,0) + +"DATA",811.8,185,100,989,0) +REMINDER LIST RULE +"DATA",811.8,185,100,990,0) +810.4 +"DATA",811.8,185,100,991,0) +MU NQF0024 BMI 2-17 YR NUM RR +"DATA",811.8,185,100,992,0) +77 +"DATA",811.8,185,100,993,0) +3961334217 +"DATA",811.8,185,100,994,0) +NO +"DATA",811.8,185,100,995,0) + +"DATA",811.8,185,100,996,0) + +"DATA",811.8,185,100,1005,0) + +"DATA",811.8,185,100,1006,0) + +"DATA",811.8,185,100,1007,0) + +"DATA",811.8,185,100,1010,0) + +"DATA",811.8,185,100,1011,0) + +"DATA",811.8,185,100,1012,0) + +"DATA",811.8,185,100,1013,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1014,0) +810.4 +"DATA",811.8,185,100,1015,0) +MU NQF0024 BMI PERCENTILE 2-10Y RS +"DATA",811.8,185,100,1016,0) +164 +"DATA",811.8,185,100,1017,0) +3870950224 +"DATA",811.8,185,100,1018,0) +YES +"DATA",811.8,185,100,1019,0) + +"DATA",811.8,185,100,1020,0) + +"DATA",811.8,185,100,1037,0) + +"DATA",811.8,185,100,1038,0) + +"DATA",811.8,185,100,1039,0) + +"DATA",811.8,185,100,1045,0) + +"DATA",811.8,185,100,1046,0) + +"DATA",811.8,185,100,1047,0) + +"DATA",811.8,185,100,1048,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1049,0) +810.4 +"DATA",811.8,185,100,1050,0) +MU NQF0024 AGE 11-17 YRS FR +"DATA",811.8,185,100,1051,0) +162 +"DATA",811.8,185,100,1052,0) +1569720012 +"DATA",811.8,185,100,1053,0) +NO +"DATA",811.8,185,100,1054,0) + +"DATA",811.8,185,100,1055,0) + +"DATA",811.8,185,100,1064,0) + +"DATA",811.8,185,100,1065,0) + +"DATA",811.8,185,100,1066,0) + +"DATA",811.8,185,100,1069,0) + +"DATA",811.8,185,100,1070,0) + +"DATA",811.8,185,100,1071,0) + +"DATA",811.8,185,100,1072,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1073,0) +810.4 +"DATA",811.8,185,100,1074,0) +MU NQF0024 BMI PERCENTILE 11-17Y RS +"DATA",811.8,185,100,1075,0) +165 +"DATA",811.8,185,100,1076,0) +2293356593 +"DATA",811.8,185,100,1077,0) +YES +"DATA",811.8,185,100,1078,0) + +"DATA",811.8,185,100,1079,0) + +"DATA",811.8,185,100,1096,0) + +"DATA",811.8,185,100,1097,0) + +"DATA",811.8,185,100,1098,0) + +"DATA",811.8,185,100,1104,0) + +"DATA",811.8,185,100,1105,0) + +"DATA",811.8,185,100,1106,0) + +"DATA",811.8,185,100,1107,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1108,0) +810.4 +"DATA",811.8,185,100,1109,0) +MU NQF0024 BMI 2-17YRS RR +"DATA",811.8,185,100,1110,0) +75 +"DATA",811.8,185,100,1111,0) +735094804 +"DATA",811.8,185,100,1112,0) +NO +"DATA",811.8,185,100,1113,0) + +"DATA",811.8,185,100,1114,0) + +"DATA",811.8,185,100,1123,0) + +"DATA",811.8,185,100,1124,0) + +"DATA",811.8,185,100,1125,0) + +"DATA",811.8,185,100,1128,0) + +"DATA",811.8,185,100,1129,0) + +"DATA",811.8,185,100,1130,0) + +"DATA",811.8,185,100,1131,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1132,0) +810.4 +"DATA",811.8,185,100,1133,0) +MU NQF0024 BMI 2-17YRS DEM RS +"DATA",811.8,185,100,1134,0) +76 +"DATA",811.8,185,100,1135,0) +1395388539 +"DATA",811.8,185,100,1136,0) +YES +"DATA",811.8,185,100,1137,0) + +"DATA",811.8,185,100,1138,0) + +"DATA",811.8,185,100,1149,0) + +"DATA",811.8,185,100,1150,0) + +"DATA",811.8,185,100,1151,0) + +"DATA",811.8,185,100,1155,0) + +"DATA",811.8,185,100,1156,0) + +"DATA",811.8,185,100,1157,0) + +"DATA",811.8,185,100,1158,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1159,0) +810.4 +"DATA",811.8,185,100,1160,0) +MU NQF0024 BMI 2-17YR NUM RS +"DATA",811.8,185,100,1161,0) +78 +"DATA",811.8,185,100,1162,0) +463614337 +"DATA",811.8,185,100,1163,0) +YES +"DATA",811.8,185,100,1164,0) + +"DATA",811.8,185,100,1165,0) + +"DATA",811.8,185,100,1182,0) + +"DATA",811.8,185,100,1183,0) + +"DATA",811.8,185,100,1184,0) + +"DATA",811.8,185,100,1190,0) + +"DATA",811.8,185,100,1191,0) + +"DATA",811.8,185,100,1192,0) + +"DATA",811.8,185,100,1193,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1194,0) +810.4 +"DATA",811.8,185,100,1195,0) +MU NQF0024 BMI 2-10Y DENOM RR +"DATA",811.8,185,100,1196,0) +196 +"DATA",811.8,185,100,1197,0) +3130960392 +"DATA",811.8,185,100,1198,0) +NO +"DATA",811.8,185,100,1199,0) + +"DATA",811.8,185,100,1200,0) + +"DATA",811.8,185,100,1209,0) + +"DATA",811.8,185,100,1210,0) + +"DATA",811.8,185,100,1211,0) + +"DATA",811.8,185,100,1214,0) + +"DATA",811.8,185,100,1215,0) + +"DATA",811.8,185,100,1216,0) + +"DATA",811.8,185,100,1217,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1218,0) +810.4 +"DATA",811.8,185,100,1219,0) +MU NQF0024 BMI 2-10Y DENOM RS +"DATA",811.8,185,100,1220,0) +199 +"DATA",811.8,185,100,1221,0) +1432334213 +"DATA",811.8,185,100,1222,0) +YES +"DATA",811.8,185,100,1223,0) + +"DATA",811.8,185,100,1224,0) + +"DATA",811.8,185,100,1235,0) + +"DATA",811.8,185,100,1236,0) + +"DATA",811.8,185,100,1237,0) + +"DATA",811.8,185,100,1241,0) + +"DATA",811.8,185,100,1242,0) + +"DATA",811.8,185,100,1243,0) + +"DATA",811.8,185,100,1244,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1245,0) +810.4 +"DATA",811.8,185,100,1246,0) +MU NQF0024 11-17Y DENOM RR +"DATA",811.8,185,100,1247,0) +197 +"DATA",811.8,185,100,1248,0) +412521237 +"DATA",811.8,185,100,1249,0) +NO +"DATA",811.8,185,100,1250,0) + +"DATA",811.8,185,100,1251,0) + +"DATA",811.8,185,100,1260,0) + +"DATA",811.8,185,100,1261,0) + +"DATA",811.8,185,100,1262,0) + +"DATA",811.8,185,100,1265,0) + +"DATA",811.8,185,100,1266,0) + +"DATA",811.8,185,100,1267,0) + +"DATA",811.8,185,100,1268,0) +REMINDER LIST RULE +"DATA",811.8,185,100,1269,0) +810.4 +"DATA",811.8,185,100,1270,0) +MU NQF0024 BMI 11-17Y DENOM RS +"DATA",811.8,185,100,1271,0) +198 +"DATA",811.8,185,100,1272,0) +2948743680 +"DATA",811.8,185,100,1273,0) +YES +"DATA",811.8,185,100,1274,0) + +"DATA",811.8,185,100,1275,0) + +"DATA",811.8,185,100,1286,0) + +"DATA",811.8,185,100,1287,0) + +"DATA",811.8,185,100,1288,0) + +"DATA",811.8,185,100,1292,0) + +"DATA",811.8,185,100,1293,0) + +"DATA",811.8,185,100,1294,0) + +"DATA",811.8,185,100,1295,0) +29 +"DATA",811.8,185,100,1296,0) + +"DATA",811.8,185,100,1297,0) +24 +"DATA",811.8,185,100,1298,0) +99 +"DATA",811.8,185,100,1299,0) +29 +"DATA",811.8,185,100,1300,0) + +"DATA",811.8,185,100,1301,0) + +"DATA",811.8,185,100,1302,0) +103 +"DATA",811.8,185,100,1303,0) +347 +"DATA",811.8,185,100,1304,0) +108 +"DATA",811.8,185,100,1305,0) + +"DATA",811.8,185,100,1306,0) + +"DATA",811.8,185,100,1307,0) +360 +"DATA",811.8,185,100,1308,0) +360 +"DATA",811.8,185,100,1309,0) +351 +"DATA",811.8,185,100,1310,0) + +"DATA",811.8,185,100,1311,0) + +"DATA",811.8,185,100,1312,0) +373 +"DATA",811.8,185,100,1313,0) +373 +"DATA",811.8,185,100,1314,0) +364 +"DATA",811.8,185,100,1315,0) + +"DATA",811.8,185,100,1316,0) + +"DATA",811.8,185,100,1317,0) +410 +"DATA",811.8,185,100,1318,0) +386 +"DATA",811.8,185,100,1319,0) +377 +"DATA",811.8,185,100,1320,0) +415 +"DATA",811.8,185,100,1321,0) +415 +"DATA",811.8,185,100,1322,0) + +"DATA",811.8,185,100,1323,0) + +"DATA",811.8,185,100,1324,0) +443 +"DATA",811.8,185,100,1325,0) +428 +"DATA",811.8,185,100,1326,0) +419 +"DATA",811.8,185,100,1327,0) +448 +"DATA",811.8,185,100,1328,0) +448 +"DATA",811.8,185,100,1329,0) + +"DATA",811.8,185,100,1330,0) + +"DATA",811.8,185,100,1331,0) +470 +"DATA",811.8,185,100,1332,0) +461 +"DATA",811.8,185,100,1333,0) +452 +"DATA",811.8,185,100,1334,0) +477 +"DATA",811.8,185,100,1335,0) +475 +"DATA",811.8,185,100,1336,0) + +"DATA",811.8,185,100,1337,0) + +"DATA",811.8,185,100,1338,0) +511 +"DATA",811.8,185,100,1339,0) +490 +"DATA",811.8,185,100,1340,0) +481 +"DATA",811.8,185,100,1341,0) +522 +"DATA",811.8,185,100,1342,0) +516 +"DATA",811.8,185,100,1343,0) + +"DATA",811.8,185,100,1344,0) + +"DATA",811.8,185,100,1345,0) +588 +"DATA",811.8,185,100,1346,0) +535 +"DATA",811.8,185,100,1347,0) +526 +"DATA",811.8,185,100,1348,0) +606 +"DATA",811.8,185,100,1349,0) +593 +"DATA",811.8,185,100,1350,0) + +"DATA",811.8,185,100,1351,0) + +"DATA",811.8,185,100,1352,0) +624 +"DATA",811.8,185,100,1353,0) +619 +"DATA",811.8,185,100,1354,0) +610 +"DATA",811.8,185,100,1355,0) +630 +"DATA",811.8,185,100,1356,0) +629 +"DATA",811.8,185,100,1357,0) + +"DATA",811.8,185,100,1358,0) + +"DATA",811.8,185,100,1359,0) +653 +"DATA",811.8,185,100,1360,0) +643 +"DATA",811.8,185,100,1361,0) +634 +"DATA",811.8,185,100,1362,0) +660 +"DATA",811.8,185,100,1363,0) +658 +"DATA",811.8,185,100,1364,0) + +"DATA",811.8,185,100,1365,0) + +"DATA",811.8,185,100,1366,0) +683 +"DATA",811.8,185,100,1367,0) +673 +"DATA",811.8,185,100,1368,0) +664 +"DATA",811.8,185,100,1369,0) +690 +"DATA",811.8,185,100,1370,0) +688 +"DATA",811.8,185,100,1371,0) + +"DATA",811.8,185,100,1372,0) + +"DATA",811.8,185,100,1373,0) +773 +"DATA",811.8,185,100,1374,0) +703 +"DATA",811.8,185,100,1375,0) +694 +"DATA",811.8,185,100,1376,0) +792 +"DATA",811.8,185,100,1377,0) +778 +"DATA",811.8,185,100,1378,0) + +"DATA",811.8,185,100,1379,0) + +"DATA",811.8,185,100,1380,0) +833 +"DATA",811.8,185,100,1381,0) +805 +"DATA",811.8,185,100,1382,0) +796 +"DATA",811.8,185,100,1383,0) +840 +"DATA",811.8,185,100,1384,0) +838 +"DATA",811.8,185,100,1385,0) + +"DATA",811.8,185,100,1386,0) + +"DATA",811.8,185,100,1387,0) +881 +"DATA",811.8,185,100,1388,0) +853 +"DATA",811.8,185,100,1389,0) +844 +"DATA",811.8,185,100,1390,0) +888 +"DATA",811.8,185,100,1391,0) +886 +"DATA",811.8,185,100,1392,0) + +"DATA",811.8,185,100,1393,0) + +"DATA",811.8,185,100,1394,0) +929 +"DATA",811.8,185,100,1395,0) +901 +"DATA",811.8,185,100,1396,0) +892 +"DATA",811.8,185,100,1397,0) +936 +"DATA",811.8,185,100,1398,0) +934 +"DATA",811.8,185,100,1399,0) + +"DATA",811.8,185,100,1400,0) + +"DATA",811.8,185,100,1401,0) +955 +"DATA",811.8,185,100,1402,0) +949 +"DATA",811.8,185,100,1403,0) +940 +"DATA",811.8,185,100,1404,0) +960 +"DATA",811.8,185,100,1405,0) +960 +"DATA",811.8,185,100,1406,0) + +"DATA",811.8,185,100,1407,0) + +"DATA",811.8,185,100,1408,0) +979 +"DATA",811.8,185,100,1409,0) +973 +"DATA",811.8,185,100,1410,0) +964 +"DATA",811.8,185,100,1411,0) +984 +"DATA",811.8,185,100,1412,0) +984 +"DATA",811.8,185,100,1413,0) + +"DATA",811.8,185,100,1414,0) + +"DATA",811.8,185,100,1415,0) +1003 +"DATA",811.8,185,100,1416,0) +997 +"DATA",811.8,185,100,1417,0) +988 +"DATA",811.8,185,100,1418,0) +1008 +"DATA",811.8,185,100,1419,0) +1008 +"DATA",811.8,185,100,1420,0) + +"DATA",811.8,185,100,1421,0) + +"DATA",811.8,185,100,1422,0) +1035 +"DATA",811.8,185,100,1423,0) +1021 +"DATA",811.8,185,100,1424,0) +1012 +"DATA",811.8,185,100,1425,0) +1043 +"DATA",811.8,185,100,1426,0) +1040 +"DATA",811.8,185,100,1427,0) + +"DATA",811.8,185,100,1428,0) + +"DATA",811.8,185,100,1429,0) +1062 +"DATA",811.8,185,100,1430,0) +1056 +"DATA",811.8,185,100,1431,0) +1047 +"DATA",811.8,185,100,1432,0) +1067 +"DATA",811.8,185,100,1433,0) +1067 +"DATA",811.8,185,100,1434,0) + +"DATA",811.8,185,100,1435,0) + +"DATA",811.8,185,100,1436,0) +1094 +"DATA",811.8,185,100,1437,0) +1080 +"DATA",811.8,185,100,1438,0) +1071 +"DATA",811.8,185,100,1439,0) +1102 +"DATA",811.8,185,100,1440,0) +1099 +"DATA",811.8,185,100,1441,0) + +"DATA",811.8,185,100,1442,0) + +"DATA",811.8,185,100,1443,0) +1121 +"DATA",811.8,185,100,1444,0) +1115 +"DATA",811.8,185,100,1445,0) +1106 +"DATA",811.8,185,100,1446,0) +1126 +"DATA",811.8,185,100,1447,0) +1126 +"DATA",811.8,185,100,1448,0) + +"DATA",811.8,185,100,1449,0) + +"DATA",811.8,185,100,1450,0) +1147 +"DATA",811.8,185,100,1451,0) +1139 +"DATA",811.8,185,100,1452,0) +1130 +"DATA",811.8,185,100,1453,0) +1153 +"DATA",811.8,185,100,1454,0) +1152 +"DATA",811.8,185,100,1455,0) + +"DATA",811.8,185,100,1456,0) + +"DATA",811.8,185,100,1457,0) +1180 +"DATA",811.8,185,100,1458,0) +1166 +"DATA",811.8,185,100,1459,0) +1157 +"DATA",811.8,185,100,1460,0) +1188 +"DATA",811.8,185,100,1461,0) +1185 +"DATA",811.8,185,100,1462,0) + +"DATA",811.8,185,100,1463,0) + +"DATA",811.8,185,100,1464,0) +1207 +"DATA",811.8,185,100,1465,0) +1201 +"DATA",811.8,185,100,1466,0) +1192 +"DATA",811.8,185,100,1467,0) +1212 +"DATA",811.8,185,100,1468,0) +1212 +"DATA",811.8,185,100,1469,0) + +"DATA",811.8,185,100,1470,0) + +"DATA",811.8,185,100,1471,0) +1233 +"DATA",811.8,185,100,1472,0) +1225 +"DATA",811.8,185,100,1473,0) +1216 +"DATA",811.8,185,100,1474,0) +1239 +"DATA",811.8,185,100,1475,0) +1238 +"DATA",811.8,185,100,1476,0) + +"DATA",811.8,185,100,1477,0) + +"DATA",811.8,185,100,1478,0) +1258 +"DATA",811.8,185,100,1479,0) +1252 +"DATA",811.8,185,100,1480,0) +1243 +"DATA",811.8,185,100,1481,0) +1263 +"DATA",811.8,185,100,1482,0) +1263 +"DATA",811.8,185,100,1483,0) + +"DATA",811.8,185,100,1484,0) + +"DATA",811.8,185,100,1485,0) +1284 +"DATA",811.8,185,100,1486,0) +1276 +"DATA",811.8,185,100,1487,0) +1267 +"DATA",811.8,185,100,1488,0) +1290 +"DATA",811.8,185,100,1489,0) +1289 +"DATA",811.8,185,100,1490,0) + +"DATA",811.8,185,100,1491,0) + +"DATA",811.8,185,100,1492,0) + +"DATA",811.8,185,110,0) +^811.804^18^18 +"DATA",811.8,185,110,1,0) +Source: MANAGER,SYSTEM at VOE OFFICE INSTITUTION OLD +"DATA",811.8,185,110,2,0) +Date Packed: 07/31/2012@17:49:03 +"DATA",811.8,185,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,185,110,4,0) + +"DATA",811.8,185,110,5,0) +Description: +"DATA",811.8,185,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,185,110,7,0) +REMINDER LIST RULE +"DATA",811.8,185,110,8,0) + MU NQF0024 BMI 2-17YRS DEM RS +"DATA",811.8,185,110,9,0) + MU NQF0024 BMI 2-17YR NUM RS +"DATA",811.8,185,110,10,0) + MU NQF0024 BMI PERCENTILE 2-10Y RS +"DATA",811.8,185,110,11,0) + MU NQF0024 BMI PERCENTILE 11-17Y RS +"DATA",811.8,185,110,12,0) + MU NQF0024 BMI 11-17Y DENOM RS +"DATA",811.8,185,110,13,0) + MU NQF0024 BMI 2-10Y DENOM RS +"DATA",811.8,185,110,14,0) + +"DATA",811.8,185,110,15,0) +Keywords: +"DATA",811.8,185,110,16,0) +BMI PERCENTILE +"DATA",811.8,185,110,17,0) + +"DATA",811.8,185,110,18,0) +Components: +"DATA",811.8,185,119) +7 +"DATA",811.8,185,120,0) +^811.802A^29^29 +"DATA",811.8,185,120,1,0) +ROUTINE^0^2 +"DATA",811.8,185,120,1,1,0) +^811.8021A^2^2 +"DATA",811.8,185,120,1,1,1,0) +C0QRMBMI^29^99^^^1^0 +"DATA",811.8,185,120,1,1,2,0) +PXRMPDEM^108^347^^^1^0 +"DATA",811.8,185,120,2,0) +GMRV VITAL TYPE^120.51^2 +"DATA",811.8,185,120,2,1,0) +^811.8021A^2^2 +"DATA",811.8,185,120,2,1,1,0) +WEIGHT^360^360^^^0^0 +"DATA",811.8,185,120,2,1,2,0) +HEIGHT^373^373^^^0^0 +"DATA",811.8,185,120,3,0) +REMINDER COMPUTED FINDINGS^811.4^2 +"DATA",811.8,185,120,3,1,0) +^811.8021A^2^2 +"DATA",811.8,185,120,3,1,1,0) +VW-BMI-PERCENTILE^386^410^415^415^1^0 +"DATA",811.8,185,120,3,1,2,0) +VA-AGE^428^443^448^448^1^0 +"DATA",811.8,185,120,4,0) +REMINDER TAXONOMY^811.2^3 +"DATA",811.8,185,120,4,1,0) +^811.8021A^3^3 +"DATA",811.8,185,120,4,1,1,0) +MU NQF0024 PHYSICAL ^461^470^475^477^1^0 +"DATA",811.8,185,120,4,1,2,0) +MU NQF0024 NUTRITION ^490^511^516^522^1^0 +"DATA",811.8,185,120,4,1,3,0) +MU NQF0024 BMI 2-17 ENC^535^588^593^606^1^0 +"DATA",811.8,185,120,5,0) +REMINDER TERM^811.5^3 +"DATA",811.8,185,120,5,1,0) +^811.8021A^3^3 +"DATA",811.8,185,120,5,1,1,0) +MU NQF0024 BMI PERCENTILE^619^624^629^630^1^0 +"DATA",811.8,185,120,5,1,2,0) +MU NQF0024 AGE 2-10Y CF^643^653^658^660^1^0 +"DATA",811.8,185,120,5,1,3,0) +MU NQF0024 AGE 11-17 CF^673^683^688^690^1^0 +"DATA",811.8,185,120,6,0) +REMINDER DEFINITION^811.9^4 +"DATA",811.8,185,120,6,1,0) +^811.8021A^4^4 +"DATA",811.8,185,120,6,1,1,0) +MU NQF0024 BMI 2-17 YRS NUMER LIST^703^773^778^792^1^0 +"DATA",811.8,185,120,6,1,2,0) +MU NQF0024 DEM LIST ^805^833^838^840^1^0 +"DATA",811.8,185,120,6,1,3,0) +MU NQF0024 BMI 2-10Y DENOM LIST^853^881^886^888^1^0 +"DATA",811.8,185,120,6,1,4,0) +MU NQF0024 BMI 11-17Y DENOM LIST^901^929^934^936^1^0 +"DATA",811.8,185,120,7,0) +REMINDER LIST RULE^810.4^13 +"DATA",811.8,185,120,7,1,0) +^811.8021A^13^13 +"DATA",811.8,185,120,7,1,1,0) +MU NQF0024 BMI PERCENTILE FR^949^955^960^960^1^0 +"DATA",811.8,185,120,7,1,2,0) +MU NQF0024 AGE 2-10 YEARS FR^973^979^984^984^1^0 +"DATA",811.8,185,120,7,1,3,0) +MU NQF0024 BMI 2-17 YR NUM RR^997^1003^1008^1008^1^0 +"DATA",811.8,185,120,7,1,4,0) +MU NQF0024 BMI PERCENTILE 2-10Y RS^1021^1035^1040^1043^1^1 +"DATA",811.8,185,120,7,1,5,0) +MU NQF0024 AGE 11-17 YRS FR^1056^1062^1067^1067^1^0 +"DATA",811.8,185,120,7,1,6,0) +MU NQF0024 BMI PERCENTILE 11-17Y RS^1080^1094^1099^1102^1^1 +"DATA",811.8,185,120,7,1,7,0) +MU NQF0024 BMI 2-17YRS RR^1115^1121^1126^1126^1^0 +"DATA",811.8,185,120,7,1,8,0) +MU NQF0024 BMI 2-17YRS DEM RS^1139^1147^1152^1153^1^1 +"DATA",811.8,185,120,7,1,9,0) +MU NQF0024 BMI 2-17YR NUM RS^1166^1180^1185^1188^1^1 +"DATA",811.8,185,120,7,1,10,0) +MU NQF0024 BMI 2-10Y DENOM RR^1201^1207^1212^1212^1^0 +"DATA",811.8,185,120,7,1,11,0) +MU NQF0024 BMI 2-10Y DENOM RS^1225^1233^1238^1239^1^1 +"DATA",811.8,185,120,7,1,12,0) +MU NQF0024 11-17Y DENOM RR^1252^1258^1263^1263^1^0 +"DATA",811.8,185,120,7,1,13,0) +MU NQF0024 BMI 11-17Y DENOM RS^1276^1284^1289^1290^1^1 +"DATA",811.8,185,130,0) +^811.803DA^1^1 +"DATA",811.8,185,130,1,0) +3120803.093841^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,185,130,1,1,0) +^811.8031A^27^27 +"DATA",811.8,185,130,1,1,1,0) +1^ROUTINE^C0QRMBMI^S^ +"DATA",811.8,185,130,1,1,2,0) +2^ROUTINE^PXRMPDEM^S^ +"DATA",811.8,185,130,1,1,3,0) +3^REMINDER COMPUTED FINDINGS^VW-BMI-PERCENTILE^S^ +"DATA",811.8,185,130,1,1,4,0) +4^REMINDER COMPUTED FINDINGS^VA-AGE^S^ +"DATA",811.8,185,130,1,1,5,0) +5^REMINDER TAXONOMY^MU NQF0024 PHYSICAL ^S^ +"DATA",811.8,185,130,1,1,6,0) +6^REMINDER TAXONOMY^MU NQF0024 NUTRITION ^O^ +"DATA",811.8,185,130,1,1,7,0) +7^REMINDER TAXONOMY^MU NQF0024 BMI 2-17 ENC^O^ +"DATA",811.8,185,130,1,1,8,0) +8^REMINDER TERM^MU NQF0024 BMI PERCENTILE^I^ +"DATA",811.8,185,130,1,1,8,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,9,0) +9^REMINDER TERM^MU NQF0024 AGE 2-10Y CF^I^ +"DATA",811.8,185,130,1,1,9,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,10,0) +10^REMINDER TERM^MU NQF0024 AGE 11-17 CF^I^ +"DATA",811.8,185,130,1,1,10,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,11,0) +11^REMINDER DEFINITION^MU NQF0024 BMI 2-17 YRS NUMER LIST^O^ +"DATA",811.8,185,130,1,1,11,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,12,0) +12^REMINDER DEFINITION^MU NQF0024 DEM LIST ^I^ +"DATA",811.8,185,130,1,1,12,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,13,0) +13^REMINDER DEFINITION^MU NQF0024 BMI 2-10Y DENOM LIST^I^ +"DATA",811.8,185,130,1,1,13,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,14,0) +14^REMINDER DEFINITION^MU NQF0024 BMI 11-17Y DENOM LIST^I^ +"DATA",811.8,185,130,1,1,14,1,0) +^811.80315A^2^2 +"DATA",811.8,185,130,1,1,15,0) +15^REMINDER LIST RULE^MU NQF0024 BMI PERCENTILE FR^I^ +"DATA",811.8,185,130,1,1,16,0) +16^REMINDER LIST RULE^MU NQF0024 AGE 2-10 YEARS FR^I^ +"DATA",811.8,185,130,1,1,17,0) +17^REMINDER LIST RULE^MU NQF0024 BMI 2-17 YR NUM RR^S^ +"DATA",811.8,185,130,1,1,18,0) +18^REMINDER LIST RULE^MU NQF0024 BMI PERCENTILE 2-10Y RS^I^ +"DATA",811.8,185,130,1,1,19,0) +19^REMINDER LIST RULE^MU NQF0024 AGE 11-17 YRS FR^I^ +"DATA",811.8,185,130,1,1,20,0) +20^REMINDER LIST RULE^MU NQF0024 BMI PERCENTILE 11-17Y RS^I^ +"DATA",811.8,185,130,1,1,21,0) +21^REMINDER LIST RULE^MU NQF0024 BMI 2-17YRS RR^O^ +"DATA",811.8,185,130,1,1,22,0) +22^REMINDER LIST RULE^MU NQF0024 BMI 2-17YRS DEM RS^S^ +"DATA",811.8,185,130,1,1,23,0) +23^REMINDER LIST RULE^MU NQF0024 BMI 2-17YR NUM RS^O^ +"DATA",811.8,185,130,1,1,24,0) +24^REMINDER LIST RULE^MU NQF0024 BMI 2-10Y DENOM RR^I^ +"DATA",811.8,185,130,1,1,25,0) +25^REMINDER LIST RULE^MU NQF0024 BMI 2-10Y DENOM RS^I^ +"DATA",811.8,185,130,1,1,26,0) +26^REMINDER LIST RULE^MU NQF0024 11-17Y DENOM RR^I^ +"DATA",811.8,185,130,1,1,27,0) +27^REMINDER LIST RULE^MU NQF0024 BMI 11-17Y DENOM RS^I^ +"DATA",811.8,186,0) +MU CPRS HELP DIS^BOKHARI,SYED at VOE OFFICE INSTITUTION^3120801.183229 +"DATA",811.8,186,100,1,0) + +"DATA",811.8,186,100,2,0) + +"DATA",811.8,186,100,3,0) +2.0P17 +"DATA",811.8,186,100,4,0) +4101 +"DATA",811.8,186,100,5,0) + +"DATA",811.8,186,100,6,0) +MU CPRS HELP DIS +"DATA",811.8,186,100,7,0) +BOKHARI,SYED +"DATA",811.8,186,100,8,0) +VOE OFFICE INSTITUTION +"DATA",811.8,186,100,9,0) +08/01/2012@18:32:29 +"DATA",811.8,186,100,10,0) + +"DATA",811.8,186,100,11,0) + +"DATA",811.8,186,100,22,0) + +"DATA",811.8,186,100,23,0) + +"DATA",811.8,186,100,24,0) + +"DATA",811.8,186,100,25,0) +IMMUNIZATION +"DATA",811.8,186,100,26,0) +9999999.14 +"DATA",811.8,186,100,27,0) +FLU,3 YRS +"DATA",811.8,186,100,28,0) +52 +"DATA",811.8,186,100,29,0) +4239920913 +"DATA",811.8,186,100,30,0) +NO +"DATA",811.8,186,100,31,0) + +"DATA",811.8,186,100,32,0) + +"DATA",811.8,186,100,36,0) + +"DATA",811.8,186,100,37,0) + +"DATA",811.8,186,100,38,0) + +"DATA",811.8,186,100,39,0) +IMMUNIZATION +"DATA",811.8,186,100,40,0) +9999999.14 +"DATA",811.8,186,100,41,0) +INFLUENZA +"DATA",811.8,186,100,42,0) +12 +"DATA",811.8,186,100,43,0) +1066305499 +"DATA",811.8,186,100,44,0) +NO +"DATA",811.8,186,100,45,0) + +"DATA",811.8,186,100,46,0) + +"DATA",811.8,186,100,51,0) + +"DATA",811.8,186,100,52,0) + +"DATA",811.8,186,100,53,0) + +"DATA",811.8,186,100,54,0) +IMMUNIZATION +"DATA",811.8,186,100,55,0) +9999999.14 +"DATA",811.8,186,100,56,0) +RV 3 PEDS +"DATA",811.8,186,100,57,0) +126 +"DATA",811.8,186,100,58,0) +403157997 +"DATA",811.8,186,100,59,0) +NO +"DATA",811.8,186,100,60,0) + +"DATA",811.8,186,100,61,0) + +"DATA",811.8,186,100,66,0) + +"DATA",811.8,186,100,67,0) + +"DATA",811.8,186,100,68,0) + +"DATA",811.8,186,100,69,0) +IMMUNIZATION +"DATA",811.8,186,100,70,0) +9999999.14 +"DATA",811.8,186,100,71,0) +RV 2 PEDS +"DATA",811.8,186,100,72,0) +125 +"DATA",811.8,186,100,73,0) +1005051806 +"DATA",811.8,186,100,74,0) +NO +"DATA",811.8,186,100,75,0) + +"DATA",811.8,186,100,76,0) + +"DATA",811.8,186,100,81,0) + +"DATA",811.8,186,100,82,0) + +"DATA",811.8,186,100,83,0) + +"DATA",811.8,186,100,84,0) +IMMUNIZATION +"DATA",811.8,186,100,85,0) +9999999.14 +"DATA",811.8,186,100,86,0) +RV 1 PEDS +"DATA",811.8,186,100,87,0) +124 +"DATA",811.8,186,100,88,0) +1606904587 +"DATA",811.8,186,100,89,0) +NO +"DATA",811.8,186,100,90,0) + +"DATA",811.8,186,100,91,0) + +"DATA",811.8,186,100,96,0) + +"DATA",811.8,186,100,97,0) + +"DATA",811.8,186,100,98,0) + +"DATA",811.8,186,100,99,0) +IMMUNIZATION +"DATA",811.8,186,100,100,0) +9999999.14 +"DATA",811.8,186,100,101,0) +HEP A3 PEDS +"DATA",811.8,186,100,102,0) +106 +"DATA",811.8,186,100,103,0) +3664513394 +"DATA",811.8,186,100,104,0) +NO +"DATA",811.8,186,100,105,0) + +"DATA",811.8,186,100,106,0) + +"DATA",811.8,186,100,110,0) + +"DATA",811.8,186,100,111,0) + +"DATA",811.8,186,100,112,0) + +"DATA",811.8,186,100,113,0) +IMMUNIZATION +"DATA",811.8,186,100,114,0) +9999999.14 +"DATA",811.8,186,100,115,0) +HEP A2 PEDS +"DATA",811.8,186,100,116,0) +105 +"DATA",811.8,186,100,117,0) +4257862200 +"DATA",811.8,186,100,118,0) +NO +"DATA",811.8,186,100,119,0) + +"DATA",811.8,186,100,120,0) + +"DATA",811.8,186,100,125,0) + +"DATA",811.8,186,100,126,0) + +"DATA",811.8,186,100,127,0) + +"DATA",811.8,186,100,128,0) +IMMUNIZATION +"DATA",811.8,186,100,129,0) +9999999.14 +"DATA",811.8,186,100,130,0) +HEP A1 PEDS +"DATA",811.8,186,100,131,0) +104 +"DATA",811.8,186,100,132,0) +927519080 +"DATA",811.8,186,100,133,0) +NO +"DATA",811.8,186,100,134,0) + +"DATA",811.8,186,100,135,0) + +"DATA",811.8,186,100,140,0) + +"DATA",811.8,186,100,141,0) + +"DATA",811.8,186,100,142,0) + +"DATA",811.8,186,100,143,0) +IMMUNIZATION +"DATA",811.8,186,100,144,0) +9999999.14 +"DATA",811.8,186,100,145,0) +PCV5 PEDS +"DATA",811.8,186,100,146,0) +123 +"DATA",811.8,186,100,147,0) +2425044512 +"DATA",811.8,186,100,148,0) +NO +"DATA",811.8,186,100,149,0) + +"DATA",811.8,186,100,150,0) + +"DATA",811.8,186,100,155,0) + +"DATA",811.8,186,100,156,0) + +"DATA",811.8,186,100,157,0) + +"DATA",811.8,186,100,158,0) +IMMUNIZATION +"DATA",811.8,186,100,159,0) +9999999.14 +"DATA",811.8,186,100,160,0) +PCV4 PEDS +"DATA",811.8,186,100,161,0) +122 +"DATA",811.8,186,100,162,0) +1886037016 +"DATA",811.8,186,100,163,0) +NO +"DATA",811.8,186,100,164,0) + +"DATA",811.8,186,100,165,0) + +"DATA",811.8,186,100,170,0) + +"DATA",811.8,186,100,171,0) + +"DATA",811.8,186,100,172,0) + +"DATA",811.8,186,100,173,0) +IMMUNIZATION +"DATA",811.8,186,100,174,0) +9999999.14 +"DATA",811.8,186,100,175,0) +PCV3 PEDS +"DATA",811.8,186,100,176,0) +121 +"DATA",811.8,186,100,177,0) +3210569843 +"DATA",811.8,186,100,178,0) +NO +"DATA",811.8,186,100,179,0) + +"DATA",811.8,186,100,180,0) + +"DATA",811.8,186,100,185,0) + +"DATA",811.8,186,100,186,0) + +"DATA",811.8,186,100,187,0) + +"DATA",811.8,186,100,188,0) +IMMUNIZATION +"DATA",811.8,186,100,189,0) +9999999.14 +"DATA",811.8,186,100,190,0) +PCV2 PEDS +"DATA",811.8,186,100,191,0) +120 +"DATA",811.8,186,100,192,0) +1606218315 +"DATA",811.8,186,100,193,0) +NO +"DATA",811.8,186,100,194,0) + +"DATA",811.8,186,100,195,0) + +"DATA",811.8,186,100,200,0) + +"DATA",811.8,186,100,201,0) + +"DATA",811.8,186,100,202,0) + +"DATA",811.8,186,100,203,0) +IMMUNIZATION +"DATA",811.8,186,100,204,0) +9999999.14 +"DATA",811.8,186,100,205,0) +PCV1 PEDS +"DATA",811.8,186,100,206,0) +119 +"DATA",811.8,186,100,207,0) +2783926850 +"DATA",811.8,186,100,208,0) +NO +"DATA",811.8,186,100,209,0) + +"DATA",811.8,186,100,210,0) + +"DATA",811.8,186,100,215,0) + +"DATA",811.8,186,100,216,0) + +"DATA",811.8,186,100,217,0) + +"DATA",811.8,186,100,218,0) +IMMUNIZATION +"DATA",811.8,186,100,219,0) +9999999.14 +"DATA",811.8,186,100,220,0) +VZV1 INFANT +"DATA",811.8,186,100,221,0) +128 +"DATA",811.8,186,100,222,0) +3905126325 +"DATA",811.8,186,100,223,0) +NO +"DATA",811.8,186,100,224,0) + +"DATA",811.8,186,100,225,0) + +"DATA",811.8,186,100,230,0) + +"DATA",811.8,186,100,231,0) + +"DATA",811.8,186,100,232,0) + +"DATA",811.8,186,100,233,0) +IMMUNIZATION +"DATA",811.8,186,100,234,0) +9999999.14 +"DATA",811.8,186,100,235,0) +HEP B4 INFANT +"DATA",811.8,186,100,236,0) +110 +"DATA",811.8,186,100,237,0) +3261882689 +"DATA",811.8,186,100,238,0) +NO +"DATA",811.8,186,100,239,0) + +"DATA",811.8,186,100,240,0) + +"DATA",811.8,186,100,245,0) + +"DATA",811.8,186,100,246,0) + +"DATA",811.8,186,100,247,0) + +"DATA",811.8,186,100,248,0) +IMMUNIZATION +"DATA",811.8,186,100,249,0) +9999999.14 +"DATA",811.8,186,100,250,0) +HEP B3 INFANT +"DATA",811.8,186,100,251,0) +109 +"DATA",811.8,186,100,252,0) +832528276 +"DATA",811.8,186,100,253,0) +NO +"DATA",811.8,186,100,254,0) + +"DATA",811.8,186,100,255,0) + +"DATA",811.8,186,100,260,0) + +"DATA",811.8,186,100,261,0) + +"DATA",811.8,186,100,262,0) + +"DATA",811.8,186,100,263,0) +IMMUNIZATION +"DATA",811.8,186,100,264,0) +9999999.14 +"DATA",811.8,186,100,265,0) +HEP B2 INFANT +"DATA",811.8,186,100,266,0) +108 +"DATA",811.8,186,100,267,0) +3638835454 +"DATA",811.8,186,100,268,0) +NO +"DATA",811.8,186,100,269,0) + +"DATA",811.8,186,100,270,0) + +"DATA",811.8,186,100,275,0) + +"DATA",811.8,186,100,276,0) + +"DATA",811.8,186,100,277,0) + +"DATA",811.8,186,100,278,0) +IMMUNIZATION +"DATA",811.8,186,100,279,0) +9999999.14 +"DATA",811.8,186,100,280,0) +HEP B1 INFANT +"DATA",811.8,186,100,281,0) +107 +"DATA",811.8,186,100,282,0) +941135617 +"DATA",811.8,186,100,283,0) +NO +"DATA",811.8,186,100,284,0) + +"DATA",811.8,186,100,285,0) + +"DATA",811.8,186,100,290,0) + +"DATA",811.8,186,100,291,0) + +"DATA",811.8,186,100,292,0) + +"DATA",811.8,186,100,293,0) +IMMUNIZATION +"DATA",811.8,186,100,294,0) +9999999.14 +"DATA",811.8,186,100,295,0) +HIB PED 4 +"DATA",811.8,186,100,296,0) +78 +"DATA",811.8,186,100,297,0) +2718389710 +"DATA",811.8,186,100,298,0) +NO +"DATA",811.8,186,100,299,0) + +"DATA",811.8,186,100,300,0) + +"DATA",811.8,186,100,304,0) + +"DATA",811.8,186,100,305,0) + +"DATA",811.8,186,100,306,0) + +"DATA",811.8,186,100,307,0) +IMMUNIZATION +"DATA",811.8,186,100,308,0) +9999999.14 +"DATA",811.8,186,100,309,0) +HIB PED 3 +"DATA",811.8,186,100,310,0) +77 +"DATA",811.8,186,100,311,0) +3710347006 +"DATA",811.8,186,100,312,0) +NO +"DATA",811.8,186,100,313,0) + +"DATA",811.8,186,100,314,0) + +"DATA",811.8,186,100,318,0) + +"DATA",811.8,186,100,319,0) + +"DATA",811.8,186,100,320,0) + +"DATA",811.8,186,100,321,0) +IMMUNIZATION +"DATA",811.8,186,100,322,0) +9999999.14 +"DATA",811.8,186,100,323,0) +HIB PED 2 +"DATA",811.8,186,100,324,0) +76 +"DATA",811.8,186,100,325,0) +3477564718 +"DATA",811.8,186,100,326,0) +NO +"DATA",811.8,186,100,327,0) + +"DATA",811.8,186,100,328,0) + +"DATA",811.8,186,100,332,0) + +"DATA",811.8,186,100,333,0) + +"DATA",811.8,186,100,334,0) + +"DATA",811.8,186,100,335,0) +IMMUNIZATION +"DATA",811.8,186,100,336,0) +9999999.14 +"DATA",811.8,186,100,337,0) +HIB PED 1 +"DATA",811.8,186,100,338,0) +75 +"DATA",811.8,186,100,339,0) +4192694622 +"DATA",811.8,186,100,340,0) +NO +"DATA",811.8,186,100,341,0) + +"DATA",811.8,186,100,342,0) + +"DATA",811.8,186,100,346,0) + +"DATA",811.8,186,100,347,0) + +"DATA",811.8,186,100,348,0) + +"DATA",811.8,186,100,349,0) +IMMUNIZATION +"DATA",811.8,186,100,350,0) +9999999.14 +"DATA",811.8,186,100,351,0) +MEASLES,MUMPS,RUBELLA PED #2 +"DATA",811.8,186,100,352,0) +80 +"DATA",811.8,186,100,353,0) +3929455417 +"DATA",811.8,186,100,354,0) +NO +"DATA",811.8,186,100,355,0) + +"DATA",811.8,186,100,356,0) + +"DATA",811.8,186,100,360,0) + +"DATA",811.8,186,100,361,0) + +"DATA",811.8,186,100,362,0) + +"DATA",811.8,186,100,363,0) +IMMUNIZATION +"DATA",811.8,186,100,364,0) +9999999.14 +"DATA",811.8,186,100,365,0) +MEASLES,MUMPS,RUBELLA PED #1 +"DATA",811.8,186,100,366,0) +79 +"DATA",811.8,186,100,367,0) +1188191440 +"DATA",811.8,186,100,368,0) +NO +"DATA",811.8,186,100,369,0) + +"DATA",811.8,186,100,370,0) + +"DATA",811.8,186,100,374,0) + +"DATA",811.8,186,100,375,0) + +"DATA",811.8,186,100,376,0) + +"DATA",811.8,186,100,377,0) +IMMUNIZATION +"DATA",811.8,186,100,378,0) +9999999.14 +"DATA",811.8,186,100,379,0) +IPV1 +"DATA",811.8,186,100,380,0) +114 +"DATA",811.8,186,100,381,0) +4240221679 +"DATA",811.8,186,100,382,0) +NO +"DATA",811.8,186,100,383,0) + +"DATA",811.8,186,100,384,0) + +"DATA",811.8,186,100,389,0) + +"DATA",811.8,186,100,390,0) + +"DATA",811.8,186,100,391,0) + +"DATA",811.8,186,100,392,0) +IMMUNIZATION +"DATA",811.8,186,100,393,0) +9999999.14 +"DATA",811.8,186,100,394,0) +IPV4 +"DATA",811.8,186,100,395,0) +117 +"DATA",811.8,186,100,396,0) +812543255 +"DATA",811.8,186,100,397,0) +NO +"DATA",811.8,186,100,398,0) + +"DATA",811.8,186,100,399,0) + +"DATA",811.8,186,100,404,0) + +"DATA",811.8,186,100,405,0) + +"DATA",811.8,186,100,406,0) + +"DATA",811.8,186,100,407,0) +IMMUNIZATION +"DATA",811.8,186,100,408,0) +9999999.14 +"DATA",811.8,186,100,409,0) +IPV3 +"DATA",811.8,186,100,410,0) +116 +"DATA",811.8,186,100,411,0) +840442592 +"DATA",811.8,186,100,412,0) +NO +"DATA",811.8,186,100,413,0) + +"DATA",811.8,186,100,414,0) + +"DATA",811.8,186,100,419,0) + +"DATA",811.8,186,100,420,0) + +"DATA",811.8,186,100,421,0) + +"DATA",811.8,186,100,422,0) +IMMUNIZATION +"DATA",811.8,186,100,423,0) +9999999.14 +"DATA",811.8,186,100,424,0) +IPV2 +"DATA",811.8,186,100,425,0) +115 +"DATA",811.8,186,100,426,0) +3102925383 +"DATA",811.8,186,100,427,0) +NO +"DATA",811.8,186,100,428,0) + +"DATA",811.8,186,100,429,0) + +"DATA",811.8,186,100,434,0) + +"DATA",811.8,186,100,435,0) + +"DATA",811.8,186,100,436,0) + +"DATA",811.8,186,100,437,0) +IMMUNIZATION +"DATA",811.8,186,100,438,0) +9999999.14 +"DATA",811.8,186,100,439,0) +DTaP5 +"DATA",811.8,186,100,440,0) +103 +"DATA",811.8,186,100,441,0) +1461722474 +"DATA",811.8,186,100,442,0) +NO +"DATA",811.8,186,100,443,0) + +"DATA",811.8,186,100,444,0) + +"DATA",811.8,186,100,449,0) + +"DATA",811.8,186,100,450,0) + +"DATA",811.8,186,100,451,0) + +"DATA",811.8,186,100,452,0) +IMMUNIZATION +"DATA",811.8,186,100,453,0) +9999999.14 +"DATA",811.8,186,100,454,0) +DTaP4 +"DATA",811.8,186,100,455,0) +102 +"DATA",811.8,186,100,456,0) +920034099 +"DATA",811.8,186,100,457,0) +NO +"DATA",811.8,186,100,458,0) + +"DATA",811.8,186,100,459,0) + +"DATA",811.8,186,100,464,0) + +"DATA",811.8,186,100,465,0) + +"DATA",811.8,186,100,466,0) + +"DATA",811.8,186,100,467,0) +IMMUNIZATION +"DATA",811.8,186,100,468,0) +9999999.14 +"DATA",811.8,186,100,469,0) +DTaP3 +"DATA",811.8,186,100,470,0) +101 +"DATA",811.8,186,100,471,0) +3362131709 +"DATA",811.8,186,100,472,0) +NO +"DATA",811.8,186,100,473,0) + +"DATA",811.8,186,100,474,0) + +"DATA",811.8,186,100,479,0) + +"DATA",811.8,186,100,480,0) + +"DATA",811.8,186,100,481,0) + +"DATA",811.8,186,100,482,0) +IMMUNIZATION +"DATA",811.8,186,100,483,0) +9999999.14 +"DATA",811.8,186,100,484,0) +DTaP2 +"DATA",811.8,186,100,485,0) +100 +"DATA",811.8,186,100,486,0) +2844821668 +"DATA",811.8,186,100,487,0) +NO +"DATA",811.8,186,100,488,0) + +"DATA",811.8,186,100,489,0) + +"DATA",811.8,186,100,494,0) + +"DATA",811.8,186,100,495,0) + +"DATA",811.8,186,100,496,0) + +"DATA",811.8,186,100,497,0) +IMMUNIZATION +"DATA",811.8,186,100,498,0) +9999999.14 +"DATA",811.8,186,100,499,0) +DTaP1 +"DATA",811.8,186,100,500,0) +99 +"DATA",811.8,186,100,501,0) +193659471 +"DATA",811.8,186,100,502,0) +NO +"DATA",811.8,186,100,503,0) + +"DATA",811.8,186,100,504,0) + +"DATA",811.8,186,100,509,0) + +"DATA",811.8,186,100,510,0) + +"DATA",811.8,186,100,511,0) + +"DATA",811.8,186,100,512,0) +HEALTH FACTORS +"DATA",811.8,186,100,513,0) +9999999.64 +"DATA",811.8,186,100,514,0) +BMI MANAGEMENT OPTIONS +"DATA",811.8,186,100,515,0) +50212 +"DATA",811.8,186,100,516,0) +3865298610 +"DATA",811.8,186,100,517,0) +NO +"DATA",811.8,186,100,518,0) + +"DATA",811.8,186,100,519,0) + +"DATA",811.8,186,100,523,0) + +"DATA",811.8,186,100,524,0) + +"DATA",811.8,186,100,525,0) + +"DATA",811.8,186,100,526,0) +HEALTH FACTORS +"DATA",811.8,186,100,527,0) +9999999.64 +"DATA",811.8,186,100,528,0) +BMI DIETARY CONSULT DONE +"DATA",811.8,186,100,529,0) +50214 +"DATA",811.8,186,100,530,0) +2104698889 +"DATA",811.8,186,100,531,0) +NO +"DATA",811.8,186,100,532,0) + +"DATA",811.8,186,100,533,0) + +"DATA",811.8,186,100,539,0) + +"DATA",811.8,186,100,540,0) + +"DATA",811.8,186,100,541,0) + +"DATA",811.8,186,100,542,0) +HEALTH FACTORS +"DATA",811.8,186,100,543,0) +9999999.64 +"DATA",811.8,186,100,544,0) +BMI CARE GOAL DOCUMENTED +"DATA",811.8,186,100,545,0) +50213 +"DATA",811.8,186,100,546,0) +2777035191 +"DATA",811.8,186,100,547,0) +NO +"DATA",811.8,186,100,548,0) + +"DATA",811.8,186,100,549,0) + +"DATA",811.8,186,100,555,0) + +"DATA",811.8,186,100,556,0) + +"DATA",811.8,186,100,557,0) + +"DATA",811.8,186,100,558,0) +HEALTH FACTORS +"DATA",811.8,186,100,559,0) +9999999.64 +"DATA",811.8,186,100,560,0) +SNOMED CODES +"DATA",811.8,186,100,561,0) +500013 +"DATA",811.8,186,100,562,0) +3190378291 +"DATA",811.8,186,100,563,0) +NO +"DATA",811.8,186,100,564,0) + +"DATA",811.8,186,100,565,0) + +"DATA",811.8,186,100,569,0) + +"DATA",811.8,186,100,570,0) + +"DATA",811.8,186,100,571,0) + +"DATA",811.8,186,100,572,0) +HEALTH FACTORS +"DATA",811.8,186,100,573,0) +9999999.64 +"DATA",811.8,186,100,574,0) +395700008 +"DATA",811.8,186,100,575,0) +500247 +"DATA",811.8,186,100,576,0) +984823388 +"DATA",811.8,186,100,577,0) +NO +"DATA",811.8,186,100,578,0) + +"DATA",811.8,186,100,579,0) + +"DATA",811.8,186,100,586,0) + +"DATA",811.8,186,100,587,0) + +"DATA",811.8,186,100,588,0) + +"DATA",811.8,186,100,589,0) +HEALTH FACTORS +"DATA",811.8,186,100,590,0) +9999999.64 +"DATA",811.8,186,100,591,0) +384742004 +"DATA",811.8,186,100,592,0) +500246 +"DATA",811.8,186,100,593,0) +3679292001 +"DATA",811.8,186,100,594,0) +NO +"DATA",811.8,186,100,595,0) + +"DATA",811.8,186,100,596,0) + +"DATA",811.8,186,100,603,0) + +"DATA",811.8,186,100,604,0) + +"DATA",811.8,186,100,605,0) + +"DATA",811.8,186,100,606,0) +HEALTH FACTORS +"DATA",811.8,186,100,607,0) +9999999.64 +"DATA",811.8,186,100,608,0) +225323000 +"DATA",811.8,186,100,609,0) +500245 +"DATA",811.8,186,100,610,0) +1335550128 +"DATA",811.8,186,100,611,0) +NO +"DATA",811.8,186,100,612,0) + +"DATA",811.8,186,100,613,0) + +"DATA",811.8,186,100,620,0) + +"DATA",811.8,186,100,621,0) + +"DATA",811.8,186,100,622,0) + +"DATA",811.8,186,100,623,0) +HEALTH FACTORS +"DATA",811.8,186,100,624,0) +9999999.64 +"DATA",811.8,186,100,625,0) +SMOKING STATUS RECODE +"DATA",811.8,186,100,626,0) +500153 +"DATA",811.8,186,100,627,0) +662837912 +"DATA",811.8,186,100,628,0) +NO +"DATA",811.8,186,100,629,0) + +"DATA",811.8,186,100,630,0) + +"DATA",811.8,186,100,634,0) + +"DATA",811.8,186,100,635,0) + +"DATA",811.8,186,100,636,0) + +"DATA",811.8,186,100,637,0) +HEALTH FACTORS +"DATA",811.8,186,100,638,0) +9999999.64 +"DATA",811.8,186,100,639,0) +009 +"DATA",811.8,186,100,640,0) +500299 +"DATA",811.8,186,100,641,0) +4195987574 +"DATA",811.8,186,100,642,0) +NO +"DATA",811.8,186,100,643,0) + +"DATA",811.8,186,100,644,0) + +"DATA",811.8,186,100,650,0) + +"DATA",811.8,186,100,651,0) + +"DATA",811.8,186,100,652,0) + +"DATA",811.8,186,100,653,0) +HEALTH FACTORS +"DATA",811.8,186,100,654,0) +9999999.64 +"DATA",811.8,186,100,655,0) +MU SMOKING STATUS +"DATA",811.8,186,100,656,0) +500307 +"DATA",811.8,186,100,657,0) +3381942127 +"DATA",811.8,186,100,658,0) +NO +"DATA",811.8,186,100,659,0) + +"DATA",811.8,186,100,660,0) + +"DATA",811.8,186,100,664,0) + +"DATA",811.8,186,100,665,0) + +"DATA",811.8,186,100,666,0) + +"DATA",811.8,186,100,667,0) +HEALTH FACTORS +"DATA",811.8,186,100,668,0) +9999999.64 +"DATA",811.8,186,100,669,0) +STATUS-UNKNOWN IF EVER SMOKED (009) +"DATA",811.8,186,100,670,0) +50091 +"DATA",811.8,186,100,671,0) +2633446382 +"DATA",811.8,186,100,672,0) +NO +"DATA",811.8,186,100,673,0) + +"DATA",811.8,186,100,674,0) + +"DATA",811.8,186,100,681,0) + +"DATA",811.8,186,100,682,0) + +"DATA",811.8,186,100,683,0) + +"DATA",811.8,186,100,684,0) +HEALTH FACTORS +"DATA",811.8,186,100,685,0) +9999999.64 +"DATA",811.8,186,100,686,0) +005 +"DATA",811.8,186,100,687,0) +500298 +"DATA",811.8,186,100,688,0) +1605008258 +"DATA",811.8,186,100,689,0) +NO +"DATA",811.8,186,100,690,0) + +"DATA",811.8,186,100,691,0) + +"DATA",811.8,186,100,697,0) + +"DATA",811.8,186,100,698,0) + +"DATA",811.8,186,100,699,0) + +"DATA",811.8,186,100,700,0) +HEALTH FACTORS +"DATA",811.8,186,100,701,0) +9999999.64 +"DATA",811.8,186,100,702,0) +STATUS-SMOKER, CURRENT STATUS UNK (005) +"DATA",811.8,186,100,703,0) +50090 +"DATA",811.8,186,100,704,0) +2904943057 +"DATA",811.8,186,100,705,0) +NO +"DATA",811.8,186,100,706,0) + +"DATA",811.8,186,100,707,0) + +"DATA",811.8,186,100,714,0) + +"DATA",811.8,186,100,715,0) + +"DATA",811.8,186,100,716,0) + +"DATA",811.8,186,100,717,0) +HEALTH FACTORS +"DATA",811.8,186,100,718,0) +9999999.64 +"DATA",811.8,186,100,719,0) +004 +"DATA",811.8,186,100,720,0) +500297 +"DATA",811.8,186,100,721,0) +4053870614 +"DATA",811.8,186,100,722,0) +NO +"DATA",811.8,186,100,723,0) + +"DATA",811.8,186,100,724,0) + +"DATA",811.8,186,100,730,0) + +"DATA",811.8,186,100,731,0) + +"DATA",811.8,186,100,732,0) + +"DATA",811.8,186,100,733,0) +HEALTH FACTORS +"DATA",811.8,186,100,734,0) +9999999.64 +"DATA",811.8,186,100,735,0) +STATUS-NEVER SMOKER (004) +"DATA",811.8,186,100,736,0) +50089 +"DATA",811.8,186,100,737,0) +2368282304 +"DATA",811.8,186,100,738,0) +NO +"DATA",811.8,186,100,739,0) + +"DATA",811.8,186,100,740,0) + +"DATA",811.8,186,100,747,0) + +"DATA",811.8,186,100,748,0) + +"DATA",811.8,186,100,749,0) + +"DATA",811.8,186,100,750,0) +HEALTH FACTORS +"DATA",811.8,186,100,751,0) +9999999.64 +"DATA",811.8,186,100,752,0) +003 +"DATA",811.8,186,100,753,0) +500296 +"DATA",811.8,186,100,754,0) +225681016 +"DATA",811.8,186,100,755,0) +NO +"DATA",811.8,186,100,756,0) + +"DATA",811.8,186,100,757,0) + +"DATA",811.8,186,100,763,0) + +"DATA",811.8,186,100,764,0) + +"DATA",811.8,186,100,765,0) + +"DATA",811.8,186,100,766,0) +HEALTH FACTORS +"DATA",811.8,186,100,767,0) +9999999.64 +"DATA",811.8,186,100,768,0) +STATUS-FORMER SMOKER (003) +"DATA",811.8,186,100,769,0) +50088 +"DATA",811.8,186,100,770,0) +1868097210 +"DATA",811.8,186,100,771,0) +NO +"DATA",811.8,186,100,772,0) + +"DATA",811.8,186,100,773,0) + +"DATA",811.8,186,100,780,0) + +"DATA",811.8,186,100,781,0) + +"DATA",811.8,186,100,782,0) + +"DATA",811.8,186,100,783,0) +HEALTH FACTORS +"DATA",811.8,186,100,784,0) +9999999.64 +"DATA",811.8,186,100,785,0) +002 +"DATA",811.8,186,100,786,0) +500295 +"DATA",811.8,186,100,787,0) +2742603244 +"DATA",811.8,186,100,788,0) +NO +"DATA",811.8,186,100,789,0) + +"DATA",811.8,186,100,790,0) + +"DATA",811.8,186,100,796,0) + +"DATA",811.8,186,100,797,0) + +"DATA",811.8,186,100,798,0) + +"DATA",811.8,186,100,799,0) +HEALTH FACTORS +"DATA",811.8,186,100,800,0) +9999999.64 +"DATA",811.8,186,100,801,0) +STATUS-CURRENT SOME DAY SMOKER (002) +"DATA",811.8,186,100,802,0) +50087 +"DATA",811.8,186,100,803,0) +298124988 +"DATA",811.8,186,100,804,0) +NO +"DATA",811.8,186,100,805,0) + +"DATA",811.8,186,100,806,0) + +"DATA",811.8,186,100,813,0) + +"DATA",811.8,186,100,814,0) + +"DATA",811.8,186,100,815,0) + +"DATA",811.8,186,100,816,0) +HEALTH FACTORS +"DATA",811.8,186,100,817,0) +9999999.64 +"DATA",811.8,186,100,818,0) +001 +"DATA",811.8,186,100,819,0) +500226 +"DATA",811.8,186,100,820,0) +2316582673 +"DATA",811.8,186,100,821,0) +NO +"DATA",811.8,186,100,822,0) + +"DATA",811.8,186,100,823,0) + +"DATA",811.8,186,100,829,0) + +"DATA",811.8,186,100,830,0) + +"DATA",811.8,186,100,831,0) + +"DATA",811.8,186,100,832,0) +HEALTH FACTORS +"DATA",811.8,186,100,833,0) +9999999.64 +"DATA",811.8,186,100,834,0) +STATUS-CURRENT EVERY DAY SMOKER (001) +"DATA",811.8,186,100,835,0) +50086 +"DATA",811.8,186,100,836,0) +2167765730 +"DATA",811.8,186,100,837,0) +NO +"DATA",811.8,186,100,838,0) + +"DATA",811.8,186,100,839,0) + +"DATA",811.8,186,100,846,0) + +"DATA",811.8,186,100,847,0) + +"DATA",811.8,186,100,848,0) + +"DATA",811.8,186,100,849,0) +HEALTH FACTORS +"DATA",811.8,186,100,850,0) +9999999.64 +"DATA",811.8,186,100,851,0) +110483000 +"DATA",811.8,186,100,852,0) +500244 +"DATA",811.8,186,100,853,0) +1262444182 +"DATA",811.8,186,100,854,0) +NO +"DATA",811.8,186,100,855,0) + +"DATA",811.8,186,100,856,0) + +"DATA",811.8,186,100,863,0) + +"DATA",811.8,186,100,864,0) + +"DATA",811.8,186,100,865,0) + +"DATA",811.8,186,100,866,0) +HEALTH FACTORS +"DATA",811.8,186,100,867,0) +9999999.64 +"DATA",811.8,186,100,868,0) +228504007 +"DATA",811.8,186,100,869,0) +500241 +"DATA",811.8,186,100,870,0) +3382870893 +"DATA",811.8,186,100,871,0) +NO +"DATA",811.8,186,100,872,0) + +"DATA",811.8,186,100,873,0) + +"DATA",811.8,186,100,880,0) + +"DATA",811.8,186,100,881,0) + +"DATA",811.8,186,100,882,0) + +"DATA",811.8,186,100,883,0) +HEALTH FACTORS +"DATA",811.8,186,100,884,0) +9999999.64 +"DATA",811.8,186,100,885,0) +228491005 +"DATA",811.8,186,100,886,0) +500248 +"DATA",811.8,186,100,887,0) +1154489745 +"DATA",811.8,186,100,888,0) +NO +"DATA",811.8,186,100,889,0) + +"DATA",811.8,186,100,890,0) + +"DATA",811.8,186,100,897,0) + +"DATA",811.8,186,100,898,0) + +"DATA",811.8,186,100,899,0) + +"DATA",811.8,186,100,900,0) +HEALTH FACTORS +"DATA",811.8,186,100,901,0) +9999999.64 +"DATA",811.8,186,100,902,0) +TOBACCO +"DATA",811.8,186,100,903,0) +6 +"DATA",811.8,186,100,904,0) +115169586 +"DATA",811.8,186,100,905,0) +NO +"DATA",811.8,186,100,906,0) + +"DATA",811.8,186,100,907,0) + +"DATA",811.8,186,100,913,0) + +"DATA",811.8,186,100,914,0) + +"DATA",811.8,186,100,915,0) + +"DATA",811.8,186,100,916,0) +HEALTH FACTORS +"DATA",811.8,186,100,917,0) +9999999.64 +"DATA",811.8,186,100,918,0) +CURRENT NON-SMOKER +"DATA",811.8,186,100,919,0) +3 +"DATA",811.8,186,100,920,0) +3595588701 +"DATA",811.8,186,100,921,0) +NO +"DATA",811.8,186,100,922,0) + +"DATA",811.8,186,100,923,0) + +"DATA",811.8,186,100,930,0) + +"DATA",811.8,186,100,931,0) + +"DATA",811.8,186,100,932,0) + +"DATA",811.8,186,100,933,0) +HEALTH FACTORS +"DATA",811.8,186,100,934,0) +9999999.64 +"DATA",811.8,186,100,935,0) +105539002 +"DATA",811.8,186,100,936,0) +500249 +"DATA",811.8,186,100,937,0) +3625812579 +"DATA",811.8,186,100,938,0) +NO +"DATA",811.8,186,100,939,0) + +"DATA",811.8,186,100,940,0) + +"DATA",811.8,186,100,947,0) + +"DATA",811.8,186,100,948,0) + +"DATA",811.8,186,100,949,0) + +"DATA",811.8,186,100,950,0) +HEALTH FACTORS +"DATA",811.8,186,100,951,0) +9999999.64 +"DATA",811.8,186,100,952,0) +Current every day smoker (001) +"DATA",811.8,186,100,953,0) +500313 +"DATA",811.8,186,100,954,0) +1195086142 +"DATA",811.8,186,100,955,0) +NO +"DATA",811.8,186,100,956,0) + +"DATA",811.8,186,100,957,0) + +"DATA",811.8,186,100,963,0) + +"DATA",811.8,186,100,964,0) + +"DATA",811.8,186,100,965,0) + +"DATA",811.8,186,100,966,0) +HEALTH FACTORS +"DATA",811.8,186,100,967,0) +9999999.64 +"DATA",811.8,186,100,968,0) +Current some day smoker +"DATA",811.8,186,100,969,0) +500312 +"DATA",811.8,186,100,970,0) +1765150394 +"DATA",811.8,186,100,971,0) +NO +"DATA",811.8,186,100,972,0) + +"DATA",811.8,186,100,973,0) + +"DATA",811.8,186,100,979,0) + +"DATA",811.8,186,100,980,0) + +"DATA",811.8,186,100,981,0) + +"DATA",811.8,186,100,982,0) +HEALTH FACTORS +"DATA",811.8,186,100,983,0) +9999999.64 +"DATA",811.8,186,100,984,0) +Former Smoker +"DATA",811.8,186,100,985,0) +500311 +"DATA",811.8,186,100,986,0) +2507883144 +"DATA",811.8,186,100,987,0) +NO +"DATA",811.8,186,100,988,0) + +"DATA",811.8,186,100,989,0) + +"DATA",811.8,186,100,995,0) + +"DATA",811.8,186,100,996,0) + +"DATA",811.8,186,100,997,0) + +"DATA",811.8,186,100,998,0) +HEALTH FACTORS +"DATA",811.8,186,100,999,0) +9999999.64 +"DATA",811.8,186,100,1000,0) +Never Smoker +"DATA",811.8,186,100,1001,0) +500310 +"DATA",811.8,186,100,1002,0) +2529046008 +"DATA",811.8,186,100,1003,0) +NO +"DATA",811.8,186,100,1004,0) + +"DATA",811.8,186,100,1005,0) + +"DATA",811.8,186,100,1011,0) + +"DATA",811.8,186,100,1012,0) + +"DATA",811.8,186,100,1013,0) + +"DATA",811.8,186,100,1014,0) +HEALTH FACTORS +"DATA",811.8,186,100,1015,0) +9999999.64 +"DATA",811.8,186,100,1016,0) +Smoker, current status unknown +"DATA",811.8,186,100,1017,0) +500309 +"DATA",811.8,186,100,1018,0) +2731822686 +"DATA",811.8,186,100,1019,0) +NO +"DATA",811.8,186,100,1020,0) + +"DATA",811.8,186,100,1021,0) + +"DATA",811.8,186,100,1027,0) + +"DATA",811.8,186,100,1028,0) + +"DATA",811.8,186,100,1029,0) + +"DATA",811.8,186,100,1030,0) +HEALTH FACTORS +"DATA",811.8,186,100,1031,0) +9999999.64 +"DATA",811.8,186,100,1032,0) +Unknown if ever smoked +"DATA",811.8,186,100,1033,0) +500308 +"DATA",811.8,186,100,1034,0) +2755264911 +"DATA",811.8,186,100,1035,0) +NO +"DATA",811.8,186,100,1036,0) + +"DATA",811.8,186,100,1037,0) + +"DATA",811.8,186,100,1043,0) + +"DATA",811.8,186,100,1044,0) + +"DATA",811.8,186,100,1045,0) + +"DATA",811.8,186,100,1046,0) +REMINDER TERM +"DATA",811.8,186,100,1047,0) +811.5 +"DATA",811.8,186,100,1048,0) +MU SMOKING STATUS HF +"DATA",811.8,186,100,1049,0) +526 +"DATA",811.8,186,100,1050,0) +354231296 +"DATA",811.8,186,100,1051,0) +NO +"DATA",811.8,186,100,1052,0) + +"DATA",811.8,186,100,1053,0) + +"DATA",811.8,186,100,1072,0) + +"DATA",811.8,186,100,1073,0) + +"DATA",811.8,186,100,1074,0) + +"DATA",811.8,186,100,1083,0) + +"DATA",811.8,186,100,1084,0) + +"DATA",811.8,186,100,1085,0) + +"DATA",811.8,186,100,1086,0) +REMINDER DEFINITION +"DATA",811.8,186,100,1087,0) +811.9 +"DATA",811.8,186,100,1088,0) +MU SMOKING STATUS +"DATA",811.8,186,100,1089,0) +141 +"DATA",811.8,186,100,1090,0) +2908374960 +"DATA",811.8,186,100,1091,0) +YES +"DATA",811.8,186,100,1092,0) + +"DATA",811.8,186,100,1093,0) + +"DATA",811.8,186,100,1135,0) + +"DATA",811.8,186,100,1136,0) + +"DATA",811.8,186,100,1137,0) + +"DATA",811.8,186,100,1142,0) + +"DATA",811.8,186,100,1143,0) + +"DATA",811.8,186,100,1144,0) + +"DATA",811.8,186,100,1145,0) +REMINDER DIALOG +"DATA",811.8,186,100,1146,0) +801.41 +"DATA",811.8,186,100,1147,0) +PXRM COMMENT +"DATA",811.8,186,100,1148,0) +1 +"DATA",811.8,186,100,1149,0) +3865933290 +"DATA",811.8,186,100,1150,0) +NO +"DATA",811.8,186,100,1151,0) + +"DATA",811.8,186,100,1152,0) + +"DATA",811.8,186,100,1162,0) + +"DATA",811.8,186,100,1163,0) + +"DATA",811.8,186,100,1164,0) + +"DATA",811.8,186,100,1167,0) + +"DATA",811.8,186,100,1168,0) + +"DATA",811.8,186,100,1169,0) + +"DATA",811.8,186,100,1170,0) +REMINDER DIALOG +"DATA",811.8,186,100,1171,0) +801.41 +"DATA",811.8,186,100,1172,0) +MU NQF0421 BMI CONSULT EL +"DATA",811.8,186,100,1173,0) +1480 +"DATA",811.8,186,100,1174,0) +2005952129 +"DATA",811.8,186,100,1175,0) +NO +"DATA",811.8,186,100,1176,0) + +"DATA",811.8,186,100,1177,0) + +"DATA",811.8,186,100,1192,0) + +"DATA",811.8,186,100,1193,0) + +"DATA",811.8,186,100,1194,0) + +"DATA",811.8,186,100,1198,0) + +"DATA",811.8,186,100,1199,0) + +"DATA",811.8,186,100,1200,0) + +"DATA",811.8,186,100,1201,0) +REMINDER DIALOG +"DATA",811.8,186,100,1202,0) +801.41 +"DATA",811.8,186,100,1203,0) +MU NQF0421 BMI MANAGEMENT PLAN EL +"DATA",811.8,186,100,1204,0) +1479 +"DATA",811.8,186,100,1205,0) +577998201 +"DATA",811.8,186,100,1206,0) +NO +"DATA",811.8,186,100,1207,0) + +"DATA",811.8,186,100,1208,0) + +"DATA",811.8,186,100,1223,0) + +"DATA",811.8,186,100,1224,0) + +"DATA",811.8,186,100,1225,0) + +"DATA",811.8,186,100,1229,0) + +"DATA",811.8,186,100,1230,0) + +"DATA",811.8,186,100,1231,0) + +"DATA",811.8,186,100,1232,0) +REMINDER DIALOG +"DATA",811.8,186,100,1233,0) +801.41 +"DATA",811.8,186,100,1234,0) +MU NQF0421 BMI MANAGEMENT GP +"DATA",811.8,186,100,1235,0) +1484 +"DATA",811.8,186,100,1236,0) +1780881735 +"DATA",811.8,186,100,1237,0) +NO +"DATA",811.8,186,100,1238,0) + +"DATA",811.8,186,100,1239,0) + +"DATA",811.8,186,100,1259,0) + +"DATA",811.8,186,100,1260,0) + +"DATA",811.8,186,100,1261,0) + +"DATA",811.8,186,100,1266,0) + +"DATA",811.8,186,100,1267,0) + +"DATA",811.8,186,100,1268,0) + +"DATA",811.8,186,100,1269,0) +REMINDER DIALOG +"DATA",811.8,186,100,1270,0) +801.41 +"DATA",811.8,186,100,1271,0) +MU NQF0421 BMI DI +"DATA",811.8,186,100,1272,0) +1485 +"DATA",811.8,186,100,1273,0) +2424330335 +"DATA",811.8,186,100,1274,0) +YES +"DATA",811.8,186,100,1275,0) + +"DATA",811.8,186,100,1276,0) + +"DATA",811.8,186,100,1286,0) + +"DATA",811.8,186,100,1287,0) + +"DATA",811.8,186,100,1288,0) + +"DATA",811.8,186,100,1292,0) + +"DATA",811.8,186,100,1293,0) + +"DATA",811.8,186,100,1294,0) + +"DATA",811.8,186,100,1295,0) +REMINDER DIALOG +"DATA",811.8,186,100,1296,0) +801.41 +"DATA",811.8,186,100,1297,0) +PXRM OUTSIDE LOCATION +"DATA",811.8,186,100,1298,0) +41 +"DATA",811.8,186,100,1299,0) +3464040608 +"DATA",811.8,186,100,1300,0) +NO +"DATA",811.8,186,100,1301,0) + +"DATA",811.8,186,100,1302,0) + +"DATA",811.8,186,100,1312,0) + +"DATA",811.8,186,100,1313,0) + +"DATA",811.8,186,100,1314,0) + +"DATA",811.8,186,100,1317,0) + +"DATA",811.8,186,100,1318,0) + +"DATA",811.8,186,100,1319,0) + +"DATA",811.8,186,100,1320,0) +REMINDER DIALOG +"DATA",811.8,186,100,1321,0) +801.41 +"DATA",811.8,186,100,1322,0) +PXRM VISIT DATE +"DATA",811.8,186,100,1323,0) +40 +"DATA",811.8,186,100,1324,0) +4262247822 +"DATA",811.8,186,100,1325,0) +NO +"DATA",811.8,186,100,1326,0) + +"DATA",811.8,186,100,1327,0) + +"DATA",811.8,186,100,1337,0) + +"DATA",811.8,186,100,1338,0) + +"DATA",811.8,186,100,1339,0) + +"DATA",811.8,186,100,1342,0) + +"DATA",811.8,186,100,1343,0) + +"DATA",811.8,186,100,1344,0) + +"DATA",811.8,186,100,1345,0) +REMINDER DIALOG +"DATA",811.8,186,100,1346,0) +801.41 +"DATA",811.8,186,100,1347,0) +MU NQF0041 FLU HISTORICAL EL +"DATA",811.8,186,100,1348,0) +1450 +"DATA",811.8,186,100,1349,0) +2432108423 +"DATA",811.8,186,100,1350,0) +NO +"DATA",811.8,186,100,1351,0) + +"DATA",811.8,186,100,1352,0) + +"DATA",811.8,186,100,1368,0) + +"DATA",811.8,186,100,1369,0) + +"DATA",811.8,186,100,1370,0) + +"DATA",811.8,186,100,1375,0) + +"DATA",811.8,186,100,1376,0) + +"DATA",811.8,186,100,1377,0) + +"DATA",811.8,186,100,1378,0) +REMINDER DIALOG +"DATA",811.8,186,100,1379,0) +801.41 +"DATA",811.8,186,100,1380,0) +MU NQF0041 FLU VACCINE GP +"DATA",811.8,186,100,1381,0) +1451 +"DATA",811.8,186,100,1382,0) +962180506 +"DATA",811.8,186,100,1383,0) +NO +"DATA",811.8,186,100,1384,0) + +"DATA",811.8,186,100,1385,0) + +"DATA",811.8,186,100,1403,0) + +"DATA",811.8,186,100,1404,0) + +"DATA",811.8,186,100,1405,0) + +"DATA",811.8,186,100,1409,0) + +"DATA",811.8,186,100,1410,0) + +"DATA",811.8,186,100,1411,0) + +"DATA",811.8,186,100,1412,0) +REMINDER DIALOG +"DATA",811.8,186,100,1413,0) +801.41 +"DATA",811.8,186,100,1414,0) +MU NQF0041 INFLUENZA MANAGEMENT DI +"DATA",811.8,186,100,1415,0) +1452 +"DATA",811.8,186,100,1416,0) +1870663257 +"DATA",811.8,186,100,1417,0) +YES +"DATA",811.8,186,100,1418,0) + +"DATA",811.8,186,100,1419,0) + +"DATA",811.8,186,100,1429,0) + +"DATA",811.8,186,100,1430,0) + +"DATA",811.8,186,100,1431,0) + +"DATA",811.8,186,100,1435,0) + +"DATA",811.8,186,100,1436,0) + +"DATA",811.8,186,100,1437,0) + +"DATA",811.8,186,100,1438,0) +REMINDER DIALOG +"DATA",811.8,186,100,1439,0) +801.41 +"DATA",811.8,186,100,1440,0) +MU NQF0038 FLU2 EL +"DATA",811.8,186,100,1441,0) +1402 +"DATA",811.8,186,100,1442,0) +419511143 +"DATA",811.8,186,100,1443,0) +NO +"DATA",811.8,186,100,1444,0) + +"DATA",811.8,186,100,1445,0) + +"DATA",811.8,186,100,1461,0) + +"DATA",811.8,186,100,1462,0) + +"DATA",811.8,186,100,1463,0) + +"DATA",811.8,186,100,1468,0) + +"DATA",811.8,186,100,1469,0) + +"DATA",811.8,186,100,1470,0) + +"DATA",811.8,186,100,1471,0) +REMINDER DIALOG +"DATA",811.8,186,100,1472,0) +801.41 +"DATA",811.8,186,100,1473,0) +MU NQF0038 FLU1 EL +"DATA",811.8,186,100,1474,0) +1401 +"DATA",811.8,186,100,1475,0) +2550034907 +"DATA",811.8,186,100,1476,0) +NO +"DATA",811.8,186,100,1477,0) + +"DATA",811.8,186,100,1478,0) + +"DATA",811.8,186,100,1494,0) + +"DATA",811.8,186,100,1495,0) + +"DATA",811.8,186,100,1496,0) + +"DATA",811.8,186,100,1501,0) + +"DATA",811.8,186,100,1502,0) + +"DATA",811.8,186,100,1503,0) + +"DATA",811.8,186,100,1504,0) +REMINDER DIALOG +"DATA",811.8,186,100,1505,0) +801.41 +"DATA",811.8,186,100,1506,0) +MU NQF0038 FLU GP +"DATA",811.8,186,100,1507,0) +1411 +"DATA",811.8,186,100,1508,0) +166417031 +"DATA",811.8,186,100,1509,0) +NO +"DATA",811.8,186,100,1510,0) + +"DATA",811.8,186,100,1511,0) + +"DATA",811.8,186,100,1531,0) + +"DATA",811.8,186,100,1532,0) + +"DATA",811.8,186,100,1533,0) + +"DATA",811.8,186,100,1538,0) + +"DATA",811.8,186,100,1539,0) + +"DATA",811.8,186,100,1540,0) + +"DATA",811.8,186,100,1541,0) +REMINDER DIALOG +"DATA",811.8,186,100,1542,0) +801.41 +"DATA",811.8,186,100,1543,0) +MU NQF0038 RV3 EL +"DATA",811.8,186,100,1544,0) +1400 +"DATA",811.8,186,100,1545,0) +112343765 +"DATA",811.8,186,100,1546,0) +NO +"DATA",811.8,186,100,1547,0) + +"DATA",811.8,186,100,1548,0) + +"DATA",811.8,186,100,1564,0) + +"DATA",811.8,186,100,1565,0) + +"DATA",811.8,186,100,1566,0) + +"DATA",811.8,186,100,1571,0) + +"DATA",811.8,186,100,1572,0) + +"DATA",811.8,186,100,1573,0) + +"DATA",811.8,186,100,1574,0) +REMINDER DIALOG +"DATA",811.8,186,100,1575,0) +801.41 +"DATA",811.8,186,100,1576,0) +MU NQF0038 RV2 EL +"DATA",811.8,186,100,1577,0) +1399 +"DATA",811.8,186,100,1578,0) +415787886 +"DATA",811.8,186,100,1579,0) +NO +"DATA",811.8,186,100,1580,0) + +"DATA",811.8,186,100,1581,0) + +"DATA",811.8,186,100,1597,0) + +"DATA",811.8,186,100,1598,0) + +"DATA",811.8,186,100,1599,0) + +"DATA",811.8,186,100,1604,0) + +"DATA",811.8,186,100,1605,0) + +"DATA",811.8,186,100,1606,0) + +"DATA",811.8,186,100,1607,0) +REMINDER DIALOG +"DATA",811.8,186,100,1608,0) +801.41 +"DATA",811.8,186,100,1609,0) +MU NQF0038 RV1 EL +"DATA",811.8,186,100,1610,0) +1398 +"DATA",811.8,186,100,1611,0) +847130142 +"DATA",811.8,186,100,1612,0) +NO +"DATA",811.8,186,100,1613,0) + +"DATA",811.8,186,100,1614,0) + +"DATA",811.8,186,100,1630,0) + +"DATA",811.8,186,100,1631,0) + +"DATA",811.8,186,100,1632,0) + +"DATA",811.8,186,100,1637,0) + +"DATA",811.8,186,100,1638,0) + +"DATA",811.8,186,100,1639,0) + +"DATA",811.8,186,100,1640,0) +REMINDER DIALOG +"DATA",811.8,186,100,1641,0) +801.41 +"DATA",811.8,186,100,1642,0) +MU NQF0038 RV GP +"DATA",811.8,186,100,1643,0) +1410 +"DATA",811.8,186,100,1644,0) +2593768613 +"DATA",811.8,186,100,1645,0) +NO +"DATA",811.8,186,100,1646,0) + +"DATA",811.8,186,100,1647,0) + +"DATA",811.8,186,100,1669,0) + +"DATA",811.8,186,100,1670,0) + +"DATA",811.8,186,100,1671,0) + +"DATA",811.8,186,100,1677,0) + +"DATA",811.8,186,100,1678,0) + +"DATA",811.8,186,100,1679,0) + +"DATA",811.8,186,100,1680,0) +REMINDER DIALOG +"DATA",811.8,186,100,1681,0) +801.41 +"DATA",811.8,186,100,1682,0) +MU NQF0038 HEP A3 EL +"DATA",811.8,186,100,1683,0) +1397 +"DATA",811.8,186,100,1684,0) +661866771 +"DATA",811.8,186,100,1685,0) +NO +"DATA",811.8,186,100,1686,0) + +"DATA",811.8,186,100,1687,0) + +"DATA",811.8,186,100,1703,0) + +"DATA",811.8,186,100,1704,0) + +"DATA",811.8,186,100,1705,0) + +"DATA",811.8,186,100,1710,0) + +"DATA",811.8,186,100,1711,0) + +"DATA",811.8,186,100,1712,0) + +"DATA",811.8,186,100,1713,0) +REMINDER DIALOG +"DATA",811.8,186,100,1714,0) +801.41 +"DATA",811.8,186,100,1715,0) +MU NQF0038 HEP A2 EL +"DATA",811.8,186,100,1716,0) +1396 +"DATA",811.8,186,100,1717,0) +1182701722 +"DATA",811.8,186,100,1718,0) +NO +"DATA",811.8,186,100,1719,0) + +"DATA",811.8,186,100,1720,0) + +"DATA",811.8,186,100,1736,0) + +"DATA",811.8,186,100,1737,0) + +"DATA",811.8,186,100,1738,0) + +"DATA",811.8,186,100,1743,0) + +"DATA",811.8,186,100,1744,0) + +"DATA",811.8,186,100,1745,0) + +"DATA",811.8,186,100,1746,0) +REMINDER DIALOG +"DATA",811.8,186,100,1747,0) +801.41 +"DATA",811.8,186,100,1748,0) +MU NQF0038 HEP A1 EL +"DATA",811.8,186,100,1749,0) +1395 +"DATA",811.8,186,100,1750,0) +2455707917 +"DATA",811.8,186,100,1751,0) +NO +"DATA",811.8,186,100,1752,0) + +"DATA",811.8,186,100,1753,0) + +"DATA",811.8,186,100,1769,0) + +"DATA",811.8,186,100,1770,0) + +"DATA",811.8,186,100,1771,0) + +"DATA",811.8,186,100,1776,0) + +"DATA",811.8,186,100,1777,0) + +"DATA",811.8,186,100,1778,0) + +"DATA",811.8,186,100,1779,0) +REMINDER DIALOG +"DATA",811.8,186,100,1780,0) +801.41 +"DATA",811.8,186,100,1781,0) +MU NQF0038 HEP A GP +"DATA",811.8,186,100,1782,0) +1409 +"DATA",811.8,186,100,1783,0) +2279175535 +"DATA",811.8,186,100,1784,0) +NO +"DATA",811.8,186,100,1785,0) + +"DATA",811.8,186,100,1786,0) + +"DATA",811.8,186,100,1808,0) + +"DATA",811.8,186,100,1809,0) + +"DATA",811.8,186,100,1810,0) + +"DATA",811.8,186,100,1816,0) + +"DATA",811.8,186,100,1817,0) + +"DATA",811.8,186,100,1818,0) + +"DATA",811.8,186,100,1819,0) +REMINDER DIALOG +"DATA",811.8,186,100,1820,0) +801.41 +"DATA",811.8,186,100,1821,0) +MU NQF0038 PCV5 EL +"DATA",811.8,186,100,1822,0) +1394 +"DATA",811.8,186,100,1823,0) +3178056935 +"DATA",811.8,186,100,1824,0) +NO +"DATA",811.8,186,100,1825,0) + +"DATA",811.8,186,100,1826,0) + +"DATA",811.8,186,100,1842,0) + +"DATA",811.8,186,100,1843,0) + +"DATA",811.8,186,100,1844,0) + +"DATA",811.8,186,100,1849,0) + +"DATA",811.8,186,100,1850,0) + +"DATA",811.8,186,100,1851,0) + +"DATA",811.8,186,100,1852,0) +REMINDER DIALOG +"DATA",811.8,186,100,1853,0) +801.41 +"DATA",811.8,186,100,1854,0) +MU NQF0038 PCV4 EL +"DATA",811.8,186,100,1855,0) +1393 +"DATA",811.8,186,100,1856,0) +717062598 +"DATA",811.8,186,100,1857,0) +NO +"DATA",811.8,186,100,1858,0) + +"DATA",811.8,186,100,1859,0) + +"DATA",811.8,186,100,1875,0) + +"DATA",811.8,186,100,1876,0) + +"DATA",811.8,186,100,1877,0) + +"DATA",811.8,186,100,1882,0) + +"DATA",811.8,186,100,1883,0) + +"DATA",811.8,186,100,1884,0) + +"DATA",811.8,186,100,1885,0) +REMINDER DIALOG +"DATA",811.8,186,100,1886,0) +801.41 +"DATA",811.8,186,100,1887,0) +MU NQF0038 PCV3 EL +"DATA",811.8,186,100,1888,0) +1392 +"DATA",811.8,186,100,1889,0) +2070802083 +"DATA",811.8,186,100,1890,0) +NO +"DATA",811.8,186,100,1891,0) + +"DATA",811.8,186,100,1892,0) + +"DATA",811.8,186,100,1908,0) + +"DATA",811.8,186,100,1909,0) + +"DATA",811.8,186,100,1910,0) + +"DATA",811.8,186,100,1915,0) + +"DATA",811.8,186,100,1916,0) + +"DATA",811.8,186,100,1917,0) + +"DATA",811.8,186,100,1918,0) +REMINDER DIALOG +"DATA",811.8,186,100,1919,0) +801.41 +"DATA",811.8,186,100,1920,0) +MU NQF0038 PCV2 EL +"DATA",811.8,186,100,1921,0) +1391 +"DATA",811.8,186,100,1922,0) +3971818370 +"DATA",811.8,186,100,1923,0) +NO +"DATA",811.8,186,100,1924,0) + +"DATA",811.8,186,100,1925,0) + +"DATA",811.8,186,100,1941,0) + +"DATA",811.8,186,100,1942,0) + +"DATA",811.8,186,100,1943,0) + +"DATA",811.8,186,100,1948,0) + +"DATA",811.8,186,100,1949,0) + +"DATA",811.8,186,100,1950,0) + +"DATA",811.8,186,100,1951,0) +REMINDER DIALOG +"DATA",811.8,186,100,1952,0) +801.41 +"DATA",811.8,186,100,1953,0) +MU NQF0038 PCV1 EL +"DATA",811.8,186,100,1954,0) +1390 +"DATA",811.8,186,100,1955,0) +2411557536 +"DATA",811.8,186,100,1956,0) +NO +"DATA",811.8,186,100,1957,0) + +"DATA",811.8,186,100,1958,0) + +"DATA",811.8,186,100,1974,0) + +"DATA",811.8,186,100,1975,0) + +"DATA",811.8,186,100,1976,0) + +"DATA",811.8,186,100,1981,0) + +"DATA",811.8,186,100,1982,0) + +"DATA",811.8,186,100,1983,0) + +"DATA",811.8,186,100,1984,0) +REMINDER DIALOG +"DATA",811.8,186,100,1985,0) +801.41 +"DATA",811.8,186,100,1986,0) +MU NQF0038 PCV GP +"DATA",811.8,186,100,1987,0) +1408 +"DATA",811.8,186,100,1988,0) +3811209231 +"DATA",811.8,186,100,1989,0) +NO +"DATA",811.8,186,100,1990,0) + +"DATA",811.8,186,100,1991,0) + +"DATA",811.8,186,100,2017,0) + +"DATA",811.8,186,100,2018,0) + +"DATA",811.8,186,100,2019,0) + +"DATA",811.8,186,100,2027,0) + +"DATA",811.8,186,100,2028,0) + +"DATA",811.8,186,100,2029,0) + +"DATA",811.8,186,100,2030,0) +REMINDER DIALOG +"DATA",811.8,186,100,2031,0) +801.41 +"DATA",811.8,186,100,2032,0) +MU NQF0038 VZV1 EL +"DATA",811.8,186,100,2033,0) +1389 +"DATA",811.8,186,100,2034,0) +3911058109 +"DATA",811.8,186,100,2035,0) +NO +"DATA",811.8,186,100,2036,0) + +"DATA",811.8,186,100,2037,0) + +"DATA",811.8,186,100,2053,0) + +"DATA",811.8,186,100,2054,0) + +"DATA",811.8,186,100,2055,0) + +"DATA",811.8,186,100,2060,0) + +"DATA",811.8,186,100,2061,0) + +"DATA",811.8,186,100,2062,0) + +"DATA",811.8,186,100,2063,0) +REMINDER DIALOG +"DATA",811.8,186,100,2064,0) +801.41 +"DATA",811.8,186,100,2065,0) +MU NQF0038 VZV GP +"DATA",811.8,186,100,2066,0) +1407 +"DATA",811.8,186,100,2067,0) +2551547664 +"DATA",811.8,186,100,2068,0) +NO +"DATA",811.8,186,100,2069,0) + +"DATA",811.8,186,100,2070,0) + +"DATA",811.8,186,100,2088,0) + +"DATA",811.8,186,100,2089,0) + +"DATA",811.8,186,100,2090,0) + +"DATA",811.8,186,100,2094,0) + +"DATA",811.8,186,100,2095,0) + +"DATA",811.8,186,100,2096,0) + +"DATA",811.8,186,100,2097,0) +REMINDER DIALOG +"DATA",811.8,186,100,2098,0) +801.41 +"DATA",811.8,186,100,2099,0) +MU NQF0038 HEP B4 EL +"DATA",811.8,186,100,2100,0) +1388 +"DATA",811.8,186,100,2101,0) +3505875640 +"DATA",811.8,186,100,2102,0) +NO +"DATA",811.8,186,100,2103,0) + +"DATA",811.8,186,100,2104,0) + +"DATA",811.8,186,100,2120,0) + +"DATA",811.8,186,100,2121,0) + +"DATA",811.8,186,100,2122,0) + +"DATA",811.8,186,100,2127,0) + +"DATA",811.8,186,100,2128,0) + +"DATA",811.8,186,100,2129,0) + +"DATA",811.8,186,100,2130,0) +REMINDER DIALOG +"DATA",811.8,186,100,2131,0) +801.41 +"DATA",811.8,186,100,2132,0) +MU NQF0038 HEP B3 EL +"DATA",811.8,186,100,2133,0) +1385 +"DATA",811.8,186,100,2134,0) +2766062682 +"DATA",811.8,186,100,2135,0) +NO +"DATA",811.8,186,100,2136,0) + +"DATA",811.8,186,100,2137,0) + +"DATA",811.8,186,100,2153,0) + +"DATA",811.8,186,100,2154,0) + +"DATA",811.8,186,100,2155,0) + +"DATA",811.8,186,100,2160,0) + +"DATA",811.8,186,100,2161,0) + +"DATA",811.8,186,100,2162,0) + +"DATA",811.8,186,100,2163,0) +REMINDER DIALOG +"DATA",811.8,186,100,2164,0) +801.41 +"DATA",811.8,186,100,2165,0) +MU NQF0038 HEP B2 EL +"DATA",811.8,186,100,2166,0) +1384 +"DATA",811.8,186,100,2167,0) +3275876181 +"DATA",811.8,186,100,2168,0) +NO +"DATA",811.8,186,100,2169,0) + +"DATA",811.8,186,100,2170,0) + +"DATA",811.8,186,100,2186,0) + +"DATA",811.8,186,100,2187,0) + +"DATA",811.8,186,100,2188,0) + +"DATA",811.8,186,100,2193,0) + +"DATA",811.8,186,100,2194,0) + +"DATA",811.8,186,100,2195,0) + +"DATA",811.8,186,100,2196,0) +REMINDER DIALOG +"DATA",811.8,186,100,2197,0) +801.41 +"DATA",811.8,186,100,2198,0) +MU NQF0038 HEP B1 EL +"DATA",811.8,186,100,2199,0) +1383 +"DATA",811.8,186,100,2200,0) +1809875524 +"DATA",811.8,186,100,2201,0) +NO +"DATA",811.8,186,100,2202,0) + +"DATA",811.8,186,100,2203,0) + +"DATA",811.8,186,100,2219,0) + +"DATA",811.8,186,100,2220,0) + +"DATA",811.8,186,100,2221,0) + +"DATA",811.8,186,100,2226,0) + +"DATA",811.8,186,100,2227,0) + +"DATA",811.8,186,100,2228,0) + +"DATA",811.8,186,100,2229,0) +REMINDER DIALOG +"DATA",811.8,186,100,2230,0) +801.41 +"DATA",811.8,186,100,2231,0) +MU NQF0038 HEP B GP +"DATA",811.8,186,100,2232,0) +1406 +"DATA",811.8,186,100,2233,0) +3955023894 +"DATA",811.8,186,100,2234,0) +NO +"DATA",811.8,186,100,2235,0) + +"DATA",811.8,186,100,2236,0) + +"DATA",811.8,186,100,2260,0) + +"DATA",811.8,186,100,2261,0) + +"DATA",811.8,186,100,2262,0) + +"DATA",811.8,186,100,2269,0) + +"DATA",811.8,186,100,2270,0) + +"DATA",811.8,186,100,2271,0) + +"DATA",811.8,186,100,2272,0) +REMINDER DIALOG +"DATA",811.8,186,100,2273,0) +801.41 +"DATA",811.8,186,100,2274,0) +MU NQF0038 HIB4 EL +"DATA",811.8,186,100,2275,0) +1382 +"DATA",811.8,186,100,2276,0) +187967711 +"DATA",811.8,186,100,2277,0) +NO +"DATA",811.8,186,100,2278,0) + +"DATA",811.8,186,100,2279,0) + +"DATA",811.8,186,100,2295,0) + +"DATA",811.8,186,100,2296,0) + +"DATA",811.8,186,100,2297,0) + +"DATA",811.8,186,100,2302,0) + +"DATA",811.8,186,100,2303,0) + +"DATA",811.8,186,100,2304,0) + +"DATA",811.8,186,100,2305,0) +REMINDER DIALOG +"DATA",811.8,186,100,2306,0) +801.41 +"DATA",811.8,186,100,2307,0) +MU NQF0038 HIB3 EL +"DATA",811.8,186,100,2308,0) +1381 +"DATA",811.8,186,100,2309,0) +3423895982 +"DATA",811.8,186,100,2310,0) +NO +"DATA",811.8,186,100,2311,0) + +"DATA",811.8,186,100,2312,0) + +"DATA",811.8,186,100,2328,0) + +"DATA",811.8,186,100,2329,0) + +"DATA",811.8,186,100,2330,0) + +"DATA",811.8,186,100,2335,0) + +"DATA",811.8,186,100,2336,0) + +"DATA",811.8,186,100,2337,0) + +"DATA",811.8,186,100,2338,0) +REMINDER DIALOG +"DATA",811.8,186,100,2339,0) +801.41 +"DATA",811.8,186,100,2340,0) +MU NQF0038 HIB2 EL +"DATA",811.8,186,100,2341,0) +1380 +"DATA",811.8,186,100,2342,0) +3769619557 +"DATA",811.8,186,100,2343,0) +NO +"DATA",811.8,186,100,2344,0) + +"DATA",811.8,186,100,2345,0) + +"DATA",811.8,186,100,2361,0) + +"DATA",811.8,186,100,2362,0) + +"DATA",811.8,186,100,2363,0) + +"DATA",811.8,186,100,2368,0) + +"DATA",811.8,186,100,2369,0) + +"DATA",811.8,186,100,2370,0) + +"DATA",811.8,186,100,2371,0) +REMINDER DIALOG +"DATA",811.8,186,100,2372,0) +801.41 +"DATA",811.8,186,100,2373,0) +MU NQF0038 HIB1 EL +"DATA",811.8,186,100,2374,0) +1379 +"DATA",811.8,186,100,2375,0) +2506238520 +"DATA",811.8,186,100,2376,0) +NO +"DATA",811.8,186,100,2377,0) + +"DATA",811.8,186,100,2378,0) + +"DATA",811.8,186,100,2394,0) + +"DATA",811.8,186,100,2395,0) + +"DATA",811.8,186,100,2396,0) + +"DATA",811.8,186,100,2401,0) + +"DATA",811.8,186,100,2402,0) + +"DATA",811.8,186,100,2403,0) + +"DATA",811.8,186,100,2404,0) +REMINDER DIALOG +"DATA",811.8,186,100,2405,0) +801.41 +"DATA",811.8,186,100,2406,0) +MU NQF0038 HIB GP +"DATA",811.8,186,100,2407,0) +1405 +"DATA",811.8,186,100,2408,0) +2315251967 +"DATA",811.8,186,100,2409,0) +NO +"DATA",811.8,186,100,2410,0) + +"DATA",811.8,186,100,2411,0) + +"DATA",811.8,186,100,2435,0) + +"DATA",811.8,186,100,2436,0) + +"DATA",811.8,186,100,2437,0) + +"DATA",811.8,186,100,2444,0) + +"DATA",811.8,186,100,2445,0) + +"DATA",811.8,186,100,2446,0) + +"DATA",811.8,186,100,2447,0) +REMINDER DIALOG +"DATA",811.8,186,100,2448,0) +801.41 +"DATA",811.8,186,100,2449,0) +MU NQF0038 MMR2 EL +"DATA",811.8,186,100,2450,0) +1378 +"DATA",811.8,186,100,2451,0) +4086285654 +"DATA",811.8,186,100,2452,0) +NO +"DATA",811.8,186,100,2453,0) + +"DATA",811.8,186,100,2454,0) + +"DATA",811.8,186,100,2470,0) + +"DATA",811.8,186,100,2471,0) + +"DATA",811.8,186,100,2472,0) + +"DATA",811.8,186,100,2477,0) + +"DATA",811.8,186,100,2478,0) + +"DATA",811.8,186,100,2479,0) + +"DATA",811.8,186,100,2480,0) +REMINDER DIALOG +"DATA",811.8,186,100,2481,0) +801.41 +"DATA",811.8,186,100,2482,0) +MU NQF0038 MMR1 +"DATA",811.8,186,100,2483,0) +1377 +"DATA",811.8,186,100,2484,0) +313379732 +"DATA",811.8,186,100,2485,0) +NO +"DATA",811.8,186,100,2486,0) + +"DATA",811.8,186,100,2487,0) + +"DATA",811.8,186,100,2503,0) + +"DATA",811.8,186,100,2504,0) + +"DATA",811.8,186,100,2505,0) + +"DATA",811.8,186,100,2510,0) + +"DATA",811.8,186,100,2511,0) + +"DATA",811.8,186,100,2512,0) + +"DATA",811.8,186,100,2513,0) +REMINDER DIALOG +"DATA",811.8,186,100,2514,0) +801.41 +"DATA",811.8,186,100,2515,0) +MU NQF0038 MMR GP +"DATA",811.8,186,100,2516,0) +1404 +"DATA",811.8,186,100,2517,0) +1493135913 +"DATA",811.8,186,100,2518,0) +NO +"DATA",811.8,186,100,2519,0) + +"DATA",811.8,186,100,2520,0) + +"DATA",811.8,186,100,2540,0) + +"DATA",811.8,186,100,2541,0) + +"DATA",811.8,186,100,2542,0) + +"DATA",811.8,186,100,2547,0) + +"DATA",811.8,186,100,2548,0) + +"DATA",811.8,186,100,2549,0) + +"DATA",811.8,186,100,2550,0) +REMINDER DIALOG +"DATA",811.8,186,100,2551,0) +801.41 +"DATA",811.8,186,100,2552,0) +MU NQF0038 IVP1 EL +"DATA",811.8,186,100,2553,0) +1373 +"DATA",811.8,186,100,2554,0) +1672741597 +"DATA",811.8,186,100,2555,0) +NO +"DATA",811.8,186,100,2556,0) + +"DATA",811.8,186,100,2557,0) + +"DATA",811.8,186,100,2573,0) + +"DATA",811.8,186,100,2574,0) + +"DATA",811.8,186,100,2575,0) + +"DATA",811.8,186,100,2580,0) + +"DATA",811.8,186,100,2581,0) + +"DATA",811.8,186,100,2582,0) + +"DATA",811.8,186,100,2583,0) +REMINDER DIALOG +"DATA",811.8,186,100,2584,0) +801.41 +"DATA",811.8,186,100,2585,0) +MU NQF0038 IPV4 EL +"DATA",811.8,186,100,2586,0) +1376 +"DATA",811.8,186,100,2587,0) +3944118252 +"DATA",811.8,186,100,2588,0) +NO +"DATA",811.8,186,100,2589,0) + +"DATA",811.8,186,100,2590,0) + +"DATA",811.8,186,100,2606,0) + +"DATA",811.8,186,100,2607,0) + +"DATA",811.8,186,100,2608,0) + +"DATA",811.8,186,100,2613,0) + +"DATA",811.8,186,100,2614,0) + +"DATA",811.8,186,100,2615,0) + +"DATA",811.8,186,100,2616,0) +REMINDER DIALOG +"DATA",811.8,186,100,2617,0) +801.41 +"DATA",811.8,186,100,2618,0) +MU NQF0038 IPV3 EL +"DATA",811.8,186,100,2619,0) +1375 +"DATA",811.8,186,100,2620,0) +2705709091 +"DATA",811.8,186,100,2621,0) +NO +"DATA",811.8,186,100,2622,0) + +"DATA",811.8,186,100,2623,0) + +"DATA",811.8,186,100,2639,0) + +"DATA",811.8,186,100,2640,0) + +"DATA",811.8,186,100,2641,0) + +"DATA",811.8,186,100,2646,0) + +"DATA",811.8,186,100,2647,0) + +"DATA",811.8,186,100,2648,0) + +"DATA",811.8,186,100,2649,0) +REMINDER DIALOG +"DATA",811.8,186,100,2650,0) +801.41 +"DATA",811.8,186,100,2651,0) +MU NQF0038 IPV2 EL +"DATA",811.8,186,100,2652,0) +1374 +"DATA",811.8,186,100,2653,0) +3112406202 +"DATA",811.8,186,100,2654,0) +NO +"DATA",811.8,186,100,2655,0) + +"DATA",811.8,186,100,2656,0) + +"DATA",811.8,186,100,2672,0) + +"DATA",811.8,186,100,2673,0) + +"DATA",811.8,186,100,2674,0) + +"DATA",811.8,186,100,2679,0) + +"DATA",811.8,186,100,2680,0) + +"DATA",811.8,186,100,2681,0) + +"DATA",811.8,186,100,2682,0) +REMINDER DIALOG +"DATA",811.8,186,100,2683,0) +801.41 +"DATA",811.8,186,100,2684,0) +MU NQF0038 IPV GP +"DATA",811.8,186,100,2685,0) +1403 +"DATA",811.8,186,100,2686,0) +4213485728 +"DATA",811.8,186,100,2687,0) +NO +"DATA",811.8,186,100,2688,0) + +"DATA",811.8,186,100,2689,0) + +"DATA",811.8,186,100,2713,0) + +"DATA",811.8,186,100,2714,0) + +"DATA",811.8,186,100,2715,0) + +"DATA",811.8,186,100,2722,0) + +"DATA",811.8,186,100,2723,0) + +"DATA",811.8,186,100,2724,0) + +"DATA",811.8,186,100,2725,0) +REMINDER DIALOG +"DATA",811.8,186,100,2726,0) +801.41 +"DATA",811.8,186,100,2727,0) +MU NQF0038 DTAP5 EL +"DATA",811.8,186,100,2728,0) +1359 +"DATA",811.8,186,100,2729,0) +1724524081 +"DATA",811.8,186,100,2730,0) +NO +"DATA",811.8,186,100,2731,0) + +"DATA",811.8,186,100,2732,0) + +"DATA",811.8,186,100,2750,0) + +"DATA",811.8,186,100,2751,0) + +"DATA",811.8,186,100,2752,0) + +"DATA",811.8,186,100,2757,0) + +"DATA",811.8,186,100,2758,0) + +"DATA",811.8,186,100,2759,0) + +"DATA",811.8,186,100,2760,0) +REMINDER DIALOG +"DATA",811.8,186,100,2761,0) +801.41 +"DATA",811.8,186,100,2762,0) +MU NQF0038 DTAP4 EL +"DATA",811.8,186,100,2763,0) +1360 +"DATA",811.8,186,100,2764,0) +4030512640 +"DATA",811.8,186,100,2765,0) +NO +"DATA",811.8,186,100,2766,0) + +"DATA",811.8,186,100,2767,0) + +"DATA",811.8,186,100,2785,0) + +"DATA",811.8,186,100,2786,0) + +"DATA",811.8,186,100,2787,0) + +"DATA",811.8,186,100,2792,0) + +"DATA",811.8,186,100,2793,0) + +"DATA",811.8,186,100,2794,0) + +"DATA",811.8,186,100,2795,0) +REMINDER DIALOG +"DATA",811.8,186,100,2796,0) +801.41 +"DATA",811.8,186,100,2797,0) +MU NQF0038 DTAP3 EL +"DATA",811.8,186,100,2798,0) +1361 +"DATA",811.8,186,100,2799,0) +3822548426 +"DATA",811.8,186,100,2800,0) +NO +"DATA",811.8,186,100,2801,0) + +"DATA",811.8,186,100,2802,0) + +"DATA",811.8,186,100,2820,0) + +"DATA",811.8,186,100,2821,0) + +"DATA",811.8,186,100,2822,0) + +"DATA",811.8,186,100,2827,0) + +"DATA",811.8,186,100,2828,0) + +"DATA",811.8,186,100,2829,0) + +"DATA",811.8,186,100,2830,0) +REMINDER DIALOG +"DATA",811.8,186,100,2831,0) +801.41 +"DATA",811.8,186,100,2832,0) +MU NQF0038 DTAP2 EL +"DATA",811.8,186,100,2833,0) +1362 +"DATA",811.8,186,100,2834,0) +1479447632 +"DATA",811.8,186,100,2835,0) +NO +"DATA",811.8,186,100,2836,0) + +"DATA",811.8,186,100,2837,0) + +"DATA",811.8,186,100,2855,0) + +"DATA",811.8,186,100,2856,0) + +"DATA",811.8,186,100,2857,0) + +"DATA",811.8,186,100,2862,0) + +"DATA",811.8,186,100,2863,0) + +"DATA",811.8,186,100,2864,0) + +"DATA",811.8,186,100,2865,0) +REMINDER DIALOG +"DATA",811.8,186,100,2866,0) +801.41 +"DATA",811.8,186,100,2867,0) +MU NQF0038 DPT1 EL +"DATA",811.8,186,100,2868,0) +1363 +"DATA",811.8,186,100,2869,0) +2523543786 +"DATA",811.8,186,100,2870,0) +NO +"DATA",811.8,186,100,2871,0) + +"DATA",811.8,186,100,2872,0) + +"DATA",811.8,186,100,2890,0) + +"DATA",811.8,186,100,2891,0) + +"DATA",811.8,186,100,2892,0) + +"DATA",811.8,186,100,2897,0) + +"DATA",811.8,186,100,2898,0) + +"DATA",811.8,186,100,2899,0) + +"DATA",811.8,186,100,2900,0) +REMINDER DIALOG +"DATA",811.8,186,100,2901,0) +801.41 +"DATA",811.8,186,100,2902,0) +MU NQF0038 DTP MANAGE GP +"DATA",811.8,186,100,2903,0) +1365 +"DATA",811.8,186,100,2904,0) +4033267886 +"DATA",811.8,186,100,2905,0) +NO +"DATA",811.8,186,100,2906,0) + +"DATA",811.8,186,100,2907,0) + +"DATA",811.8,186,100,2933,0) + +"DATA",811.8,186,100,2934,0) + +"DATA",811.8,186,100,2935,0) + +"DATA",811.8,186,100,2943,0) + +"DATA",811.8,186,100,2944,0) + +"DATA",811.8,186,100,2945,0) + +"DATA",811.8,186,100,2946,0) +REMINDER DIALOG +"DATA",811.8,186,100,2947,0) +801.41 +"DATA",811.8,186,100,2948,0) +MU NQF0038 INFO EL +"DATA",811.8,186,100,2949,0) +1368 +"DATA",811.8,186,100,2950,0) +1740324661 +"DATA",811.8,186,100,2951,0) +NO +"DATA",811.8,186,100,2952,0) + +"DATA",811.8,186,100,2953,0) +41 DAYS APART THERE IS AN EXTRA DTaP DOSE (DTaP5) +"DATA",811.8,186,100,2973,0) +IN CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2974,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2975,0) +================================================ \\ +"DATA",811.8,186,100,2976,0) +IPV VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA IPV DOSE (IPV4) IN +"DATA",811.8,186,100,2977,0) +CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2978,0) +BAD VACCINE SPACING. \\ +"DATA",811.8,186,100,2979,0) +=============================================== \\ +"DATA",811.8,186,100,2980,0) +MMR REQUIRES ONLY ONE INJECTION UNLESS CONTRAINDATED. IF THE PATIENT IS +"DATA",811.8,186,100,2981,0) +ALLERGIC OR IMMUNE TO ONLY PART OF THE VACCINE (ei MEASLES), THEY SHOULD +"DATA",811.8,186,100,2982,0) +BE INNOCULATED WITH THE OTHER (ei RUBELLA, MUMPS) VACCINES +"DATA",811.8,186,100,2983,0) +=============================================== \\ +"DATA",811.8,186,100,2984,0) +HiB VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA HIB DOSE (HIB3) IN +"DATA",811.8,186,100,2985,0) +CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2986,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2987,0) +=============================================== \\ +"DATA",811.8,186,100,2988,0) +HEP B HAS AN EXTRA DOSE (HEP4) FOR BAD SPACING OR COMBINATION EFFECTS +"DATA",811.8,186,100,2989,0) +=============================================== \\ +"DATA",811.8,186,100,2990,0) +PCV VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA PCV DOSE (PCV5) IN +"DATA",811.8,186,100,2991,0) +CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2992,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2993,0) +=============================================== \\ +"DATA",811.8,186,100,2994,0) +ROTAVIRUS VACCINES MUST BE >41 DAYS APART THERE IS AN EXTRA RV DOSE (RV3) +"DATA",811.8,186,100,2995,0) +IN CASE AN EXTRA DOSE IS NEEDED BECAUSE OF COMBINATION VACCINE EFFECTS OR +"DATA",811.8,186,100,2996,0) +BAD VACCINE SPACING \\ +"DATA",811.8,186,100,2997,0) +801.41;+1368,;100~LOCAL +"DATA",811.8,186,100,2998,0) +801.44;+1369,+1368,;.01~08/01/2012@18:33 +"DATA",811.8,186,100,2999,0) +801.44;+1369,+1368,;2~WP-start~1 +"DATA",811.8,186,100,3000,0) +Exchange Stub +"DATA",811.8,186,100,3001,0) +]]> +"DATA",811.8,186,100,3002,0) + +"DATA",811.8,186,100,3003,0) + +"DATA",811.8,186,100,3004,0) + +"DATA",811.8,186,100,3007,0) + +"DATA",811.8,186,100,3008,0) + +"DATA",811.8,186,100,3009,0) + +"DATA",811.8,186,100,3010,0) +REMINDER DIALOG +"DATA",811.8,186,100,3011,0) +801.41 +"DATA",811.8,186,100,3012,0) +MU NQF0038 INFANT IMMUNE MANAGEMENT BANNER GP +"DATA",811.8,186,100,3013,0) +1369 +"DATA",811.8,186,100,3014,0) +3721096797 +"DATA",811.8,186,100,3015,0) +NO +"DATA",811.8,186,100,3016,0) + +"DATA",811.8,186,100,3017,0) + +"DATA",811.8,186,100,3038,0) + +"DATA",811.8,186,100,3039,0) + +"DATA",811.8,186,100,3040,0) + +"DATA",811.8,186,100,3045,0) + +"DATA",811.8,186,100,3046,0) + +"DATA",811.8,186,100,3047,0) + +"DATA",811.8,186,100,3048,0) +REMINDER DIALOG +"DATA",811.8,186,100,3049,0) +801.41 +"DATA",811.8,186,100,3050,0) +MU NQF0038 IMMUNE MANAGEMENT DI +"DATA",811.8,186,100,3051,0) +1371 +"DATA",811.8,186,100,3052,0) +880130429 +"DATA",811.8,186,100,3053,0) +YES +"DATA",811.8,186,100,3054,0) + +"DATA",811.8,186,100,3055,0) + +"DATA",811.8,186,100,3083,0) + +"DATA",811.8,186,100,3084,0) + +"DATA",811.8,186,100,3085,0) + +"DATA",811.8,186,100,3098,0) + +"DATA",811.8,186,100,3099,0) + +"DATA",811.8,186,100,3100,0) + +"DATA",811.8,186,100,3101,0) +REMINDER DIALOG +"DATA",811.8,186,100,3102,0) +801.41 +"DATA",811.8,186,100,3103,0) +MU NQF0028AB TOBACCO REFERRAL EL +"DATA",811.8,186,100,3104,0) +1294 +"DATA",811.8,186,100,3105,0) +2972586896 +"DATA",811.8,186,100,3106,0) +NO +"DATA",811.8,186,100,3107,0) + +"DATA",811.8,186,100,3108,0) + +"DATA",811.8,186,100,3124,0) + +"DATA",811.8,186,100,3125,0) + +"DATA",811.8,186,100,3126,0) + +"DATA",811.8,186,100,3130,0) + +"DATA",811.8,186,100,3131,0) + +"DATA",811.8,186,100,3132,0) + +"DATA",811.8,186,100,3133,0) +REMINDER DIALOG +"DATA",811.8,186,100,3134,0) +801.41 +"DATA",811.8,186,100,3135,0) +MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL +"DATA",811.8,186,100,3136,0) +1295 +"DATA",811.8,186,100,3137,0) +2086453962 +"DATA",811.8,186,100,3138,0) +NO +"DATA",811.8,186,100,3139,0) + +"DATA",811.8,186,100,3140,0) + +"DATA",811.8,186,100,3156,0) + +"DATA",811.8,186,100,3157,0) + +"DATA",811.8,186,100,3158,0) + +"DATA",811.8,186,100,3162,0) + +"DATA",811.8,186,100,3163,0) + +"DATA",811.8,186,100,3164,0) + +"DATA",811.8,186,100,3165,0) +REMINDER DIALOG +"DATA",811.8,186,100,3166,0) +801.41 +"DATA",811.8,186,100,3167,0) +MU NQF0028AB TOBACCO COUNSELING TODAY EL +"DATA",811.8,186,100,3168,0) +1296 +"DATA",811.8,186,100,3169,0) +1962310122 +"DATA",811.8,186,100,3170,0) +NO +"DATA",811.8,186,100,3171,0) + +"DATA",811.8,186,100,3172,0) + +"DATA",811.8,186,100,3188,0) + +"DATA",811.8,186,100,3189,0) + +"DATA",811.8,186,100,3190,0) + +"DATA",811.8,186,100,3194,0) + +"DATA",811.8,186,100,3195,0) + +"DATA",811.8,186,100,3196,0) + +"DATA",811.8,186,100,3197,0) +REMINDER DIALOG +"DATA",811.8,186,100,3198,0) +801.41 +"DATA",811.8,186,100,3199,0) +MU NQF0028B TOBACCO INTERVENTION GP +"DATA",811.8,186,100,3200,0) +1297 +"DATA",811.8,186,100,3201,0) +2142037628 +"DATA",811.8,186,100,3202,0) +NO +"DATA",811.8,186,100,3203,0) + +"DATA",811.8,186,100,3204,0) + +"DATA",811.8,186,100,3227,0) + +"DATA",811.8,186,100,3228,0) + +"DATA",811.8,186,100,3229,0) + +"DATA",811.8,186,100,3235,0) + +"DATA",811.8,186,100,3236,0) + +"DATA",811.8,186,100,3237,0) + +"DATA",811.8,186,100,3238,0) +REMINDER DIALOG +"DATA",811.8,186,100,3239,0) +801.41 +"DATA",811.8,186,100,3240,0) +PXRM ADD TO PROBLEM LIST +"DATA",811.8,186,100,3241,0) +89 +"DATA",811.8,186,100,3242,0) +2348131077 +"DATA",811.8,186,100,3243,0) +NO +"DATA",811.8,186,100,3244,0) + +"DATA",811.8,186,100,3245,0) + +"DATA",811.8,186,100,3257,0) + +"DATA",811.8,186,100,3258,0) + +"DATA",811.8,186,100,3259,0) + +"DATA",811.8,186,100,3262,0) + +"DATA",811.8,186,100,3263,0) + +"DATA",811.8,186,100,3264,0) + +"DATA",811.8,186,100,3265,0) +REMINDER DIALOG +"DATA",811.8,186,100,3266,0) +801.41 +"DATA",811.8,186,100,3267,0) +MU NQF0028 TOBACCO USE-ADD DX EL +"DATA",811.8,186,100,3268,0) +1292 +"DATA",811.8,186,100,3269,0) +673823130 +"DATA",811.8,186,100,3270,0) +NO +"DATA",811.8,186,100,3271,0) + +"DATA",811.8,186,100,3272,0) + +"DATA",811.8,186,100,3287,0) + +"DATA",811.8,186,100,3288,0) + +"DATA",811.8,186,100,3289,0) + +"DATA",811.8,186,100,3293,0) + +"DATA",811.8,186,100,3294,0) + +"DATA",811.8,186,100,3295,0) + +"DATA",811.8,186,100,3296,0) +REMINDER DIALOG +"DATA",811.8,186,100,3297,0) +801.41 +"DATA",811.8,186,100,3298,0) +MU NQF0028 ADD TO PL GP +"DATA",811.8,186,100,3299,0) +1293 +"DATA",811.8,186,100,3300,0) +1803861366 +"DATA",811.8,186,100,3301,0) +NO +"DATA",811.8,186,100,3302,0) + +"DATA",811.8,186,100,3303,0) + +"DATA",811.8,186,100,3321,0) + +"DATA",811.8,186,100,3322,0) + +"DATA",811.8,186,100,3323,0) + +"DATA",811.8,186,100,3327,0) + +"DATA",811.8,186,100,3328,0) + +"DATA",811.8,186,100,3329,0) + +"DATA",811.8,186,100,3330,0) +REMINDER DIALOG +"DATA",811.8,186,100,3331,0) +801.41 +"DATA",811.8,186,100,3332,0) +MU SMOKING STATUS UNK IF EVER EL +"DATA",811.8,186,100,3333,0) +1248 +"DATA",811.8,186,100,3334,0) +3655330662 +"DATA",811.8,186,100,3335,0) +NO +"DATA",811.8,186,100,3336,0) + +"DATA",811.8,186,100,3337,0) + +"DATA",811.8,186,100,3353,0) + +"DATA",811.8,186,100,3354,0) + +"DATA",811.8,186,100,3355,0) + +"DATA",811.8,186,100,3360,0) + +"DATA",811.8,186,100,3361,0) + +"DATA",811.8,186,100,3362,0) + +"DATA",811.8,186,100,3363,0) +REMINDER DIALOG +"DATA",811.8,186,100,3364,0) +801.41 +"DATA",811.8,186,100,3365,0) +MU SMOKING STATUS SMOKER-UNK EL +"DATA",811.8,186,100,3366,0) +1249 +"DATA",811.8,186,100,3367,0) +1746827854 +"DATA",811.8,186,100,3368,0) +NO +"DATA",811.8,186,100,3369,0) + +"DATA",811.8,186,100,3370,0) + +"DATA",811.8,186,100,3386,0) + +"DATA",811.8,186,100,3387,0) + +"DATA",811.8,186,100,3388,0) + +"DATA",811.8,186,100,3393,0) + +"DATA",811.8,186,100,3394,0) + +"DATA",811.8,186,100,3395,0) + +"DATA",811.8,186,100,3396,0) +REMINDER DIALOG +"DATA",811.8,186,100,3397,0) +801.41 +"DATA",811.8,186,100,3398,0) +MU SMOKING STATUS NEVER SMOKER EL +"DATA",811.8,186,100,3399,0) +1250 +"DATA",811.8,186,100,3400,0) +4227552971 +"DATA",811.8,186,100,3401,0) +NO +"DATA",811.8,186,100,3402,0) + +"DATA",811.8,186,100,3403,0) + +"DATA",811.8,186,100,3416,0) + +"DATA",811.8,186,100,3417,0) + +"DATA",811.8,186,100,3418,0) + +"DATA",811.8,186,100,3422,0) + +"DATA",811.8,186,100,3423,0) + +"DATA",811.8,186,100,3424,0) + +"DATA",811.8,186,100,3425,0) +REMINDER DIALOG +"DATA",811.8,186,100,3426,0) +801.41 +"DATA",811.8,186,100,3427,0) +MU SMOKING STATUS FORMER SMOKER EL +"DATA",811.8,186,100,3428,0) +1251 +"DATA",811.8,186,100,3429,0) +483251297 +"DATA",811.8,186,100,3430,0) +NO +"DATA",811.8,186,100,3431,0) + +"DATA",811.8,186,100,3432,0) + +"DATA",811.8,186,100,3448,0) + +"DATA",811.8,186,100,3449,0) + +"DATA",811.8,186,100,3450,0) + +"DATA",811.8,186,100,3455,0) + +"DATA",811.8,186,100,3456,0) + +"DATA",811.8,186,100,3457,0) + +"DATA",811.8,186,100,3458,0) +REMINDER DIALOG +"DATA",811.8,186,100,3459,0) +801.41 +"DATA",811.8,186,100,3460,0) +MU SMOKING STATUS CURRENT SOME DAY EL +"DATA",811.8,186,100,3461,0) +1252 +"DATA",811.8,186,100,3462,0) +2448043799 +"DATA",811.8,186,100,3463,0) +NO +"DATA",811.8,186,100,3464,0) + +"DATA",811.8,186,100,3465,0) + +"DATA",811.8,186,100,3481,0) + +"DATA",811.8,186,100,3482,0) + +"DATA",811.8,186,100,3483,0) + +"DATA",811.8,186,100,3488,0) + +"DATA",811.8,186,100,3489,0) + +"DATA",811.8,186,100,3490,0) + +"DATA",811.8,186,100,3491,0) +REMINDER DIALOG +"DATA",811.8,186,100,3492,0) +801.41 +"DATA",811.8,186,100,3493,0) +MU SMOKING STATUS CURRENT EVERY DAY EL +"DATA",811.8,186,100,3494,0) +1253 +"DATA",811.8,186,100,3495,0) +3886444348 +"DATA",811.8,186,100,3496,0) +NO +"DATA",811.8,186,100,3497,0) + +"DATA",811.8,186,100,3498,0) + +"DATA",811.8,186,100,3514,0) + +"DATA",811.8,186,100,3515,0) + +"DATA",811.8,186,100,3516,0) + +"DATA",811.8,186,100,3521,0) + +"DATA",811.8,186,100,3522,0) + +"DATA",811.8,186,100,3523,0) + +"DATA",811.8,186,100,3524,0) +REMINDER DIALOG +"DATA",811.8,186,100,3525,0) +801.41 +"DATA",811.8,186,100,3526,0) +MU SMOKING STATUS GP +"DATA",811.8,186,100,3527,0) +1254 +"DATA",811.8,186,100,3528,0) +3350863446 +"DATA",811.8,186,100,3529,0) +NO +"DATA",811.8,186,100,3530,0) + +"DATA",811.8,186,100,3531,0) + +"DATA",811.8,186,100,3559,0) + +"DATA",811.8,186,100,3560,0) + +"DATA",811.8,186,100,3561,0) + +"DATA",811.8,186,100,3570,0) + +"DATA",811.8,186,100,3571,0) + +"DATA",811.8,186,100,3572,0) + +"DATA",811.8,186,100,3573,0) +REMINDER DIALOG +"DATA",811.8,186,100,3574,0) +801.41 +"DATA",811.8,186,100,3575,0) +MU NQF0028 SMOKING POS GP +"DATA",811.8,186,100,3576,0) +1340 +"DATA",811.8,186,100,3577,0) +4036941733 +"DATA",811.8,186,100,3578,0) +NO +"DATA",811.8,186,100,3579,0) + +"DATA",811.8,186,100,3580,0) + +"DATA",811.8,186,100,3599,0) + +"DATA",811.8,186,100,3600,0) + +"DATA",811.8,186,100,3601,0) + +"DATA",811.8,186,100,3605,0) + +"DATA",811.8,186,100,3606,0) + +"DATA",811.8,186,100,3607,0) + +"DATA",811.8,186,100,3608,0) +REMINDER DIALOG +"DATA",811.8,186,100,3609,0) +801.41 +"DATA",811.8,186,100,3610,0) +MU NQF0028AB SMOKELESS TOBACCO POS SCREEN EL +"DATA",811.8,186,100,3611,0) +1298 +"DATA",811.8,186,100,3612,0) +148133109 +"DATA",811.8,186,100,3613,0) +NO +"DATA",811.8,186,100,3614,0) + +"DATA",811.8,186,100,3615,0) + +"DATA",811.8,186,100,3631,0) + +"DATA",811.8,186,100,3632,0) + +"DATA",811.8,186,100,3633,0) + +"DATA",811.8,186,100,3637,0) + +"DATA",811.8,186,100,3638,0) + +"DATA",811.8,186,100,3639,0) + +"DATA",811.8,186,100,3640,0) +REMINDER DIALOG +"DATA",811.8,186,100,3641,0) +801.41 +"DATA",811.8,186,100,3642,0) +MU NQF0028A TOBACCO USER GP +"DATA",811.8,186,100,3643,0) +1306 +"DATA",811.8,186,100,3644,0) +1821592942 +"DATA",811.8,186,100,3645,0) +NO +"DATA",811.8,186,100,3646,0) + +"DATA",811.8,186,100,3647,0) + +"DATA",811.8,186,100,3668,0) + +"DATA",811.8,186,100,3669,0) + +"DATA",811.8,186,100,3670,0) + +"DATA",811.8,186,100,3675,0) + +"DATA",811.8,186,100,3676,0) + +"DATA",811.8,186,100,3677,0) + +"DATA",811.8,186,100,3678,0) +REMINDER DIALOG +"DATA",811.8,186,100,3679,0) +801.41 +"DATA",811.8,186,100,3680,0) +MU NQF0028AB SMOKELESS TOBACCO NEGATIVE EL +"DATA",811.8,186,100,3681,0) +1307 +"DATA",811.8,186,100,3682,0) +4160261923 +"DATA",811.8,186,100,3683,0) +NO +"DATA",811.8,186,100,3684,0) + +"DATA",811.8,186,100,3685,0) + +"DATA",811.8,186,100,3701,0) + +"DATA",811.8,186,100,3702,0) + +"DATA",811.8,186,100,3703,0) + +"DATA",811.8,186,100,3707,0) + +"DATA",811.8,186,100,3708,0) + +"DATA",811.8,186,100,3709,0) + +"DATA",811.8,186,100,3710,0) +REMINDER DIALOG +"DATA",811.8,186,100,3711,0) +801.41 +"DATA",811.8,186,100,3712,0) +MU NQF0028AB NONSMOKER SCREEN EL +"DATA",811.8,186,100,3713,0) +1308 +"DATA",811.8,186,100,3714,0) +1818635542 +"DATA",811.8,186,100,3715,0) +NO +"DATA",811.8,186,100,3716,0) + +"DATA",811.8,186,100,3717,0) + +"DATA",811.8,186,100,3734,0) + +"DATA",811.8,186,100,3735,0) + +"DATA",811.8,186,100,3736,0) + +"DATA",811.8,186,100,3741,0) + +"DATA",811.8,186,100,3742,0) + +"DATA",811.8,186,100,3743,0) + +"DATA",811.8,186,100,3744,0) +REMINDER DIALOG +"DATA",811.8,186,100,3745,0) +801.41 +"DATA",811.8,186,100,3746,0) +MU NQF0028A TOBACCO NONUSER GP +"DATA",811.8,186,100,3747,0) +1309 +"DATA",811.8,186,100,3748,0) +1974809965 +"DATA",811.8,186,100,3749,0) +NO +"DATA",811.8,186,100,3750,0) + +"DATA",811.8,186,100,3751,0) + +"DATA",811.8,186,100,3772,0) + +"DATA",811.8,186,100,3773,0) + +"DATA",811.8,186,100,3774,0) + +"DATA",811.8,186,100,3779,0) + +"DATA",811.8,186,100,3780,0) + +"DATA",811.8,186,100,3781,0) + +"DATA",811.8,186,100,3782,0) +REMINDER DIALOG +"DATA",811.8,186,100,3783,0) +801.41 +"DATA",811.8,186,100,3784,0) +MU NQF0028A MANAGMENT SCREEN GP +"DATA",811.8,186,100,3785,0) +1310 +"DATA",811.8,186,100,3786,0) +1156352851 +"DATA",811.8,186,100,3787,0) +NO +"DATA",811.8,186,100,3788,0) + +"DATA",811.8,186,100,3789,0) + +"DATA",811.8,186,100,3810,0) + +"DATA",811.8,186,100,3811,0) + +"DATA",811.8,186,100,3812,0) + +"DATA",811.8,186,100,3817,0) + +"DATA",811.8,186,100,3818,0) + +"DATA",811.8,186,100,3819,0) + +"DATA",811.8,186,100,3820,0) +REMINDER DIALOG +"DATA",811.8,186,100,3821,0) +801.41 +"DATA",811.8,186,100,3822,0) +PQRI M0028 INFO EL +"DATA",811.8,186,100,3823,0) +1311 +"DATA",811.8,186,100,3824,0) +3674516686 +"DATA",811.8,186,100,3825,0) +NO +"DATA",811.8,186,100,3826,0) + +"DATA",811.8,186,100,3827,0) + +"DATA",811.8,186,100,3841,0) + +"DATA",811.8,186,100,3842,0) + +"DATA",811.8,186,100,3843,0) + +"DATA",811.8,186,100,3846,0) + +"DATA",811.8,186,100,3847,0) + +"DATA",811.8,186,100,3848,0) + +"DATA",811.8,186,100,3849,0) +REMINDER DIALOG +"DATA",811.8,186,100,3850,0) +801.41 +"DATA",811.8,186,100,3851,0) +PQRI M0028 INFO GP +"DATA",811.8,186,100,3852,0) +1312 +"DATA",811.8,186,100,3853,0) +306819832 +"DATA",811.8,186,100,3854,0) +NO +"DATA",811.8,186,100,3855,0) + +"DATA",811.8,186,100,3856,0) + +"DATA",811.8,186,100,3875,0) + +"DATA",811.8,186,100,3876,0) + +"DATA",811.8,186,100,3877,0) + +"DATA",811.8,186,100,3881,0) + +"DATA",811.8,186,100,3882,0) + +"DATA",811.8,186,100,3883,0) + +"DATA",811.8,186,100,3884,0) +REMINDER DIALOG +"DATA",811.8,186,100,3885,0) +801.41 +"DATA",811.8,186,100,3886,0) +MU NQF0028AB MANAGEMENT DI +"DATA",811.8,186,100,3887,0) +1313 +"DATA",811.8,186,100,3888,0) +1024904544 +"DATA",811.8,186,100,3889,0) +YES +"DATA",811.8,186,100,3890,0) + +"DATA",811.8,186,100,3891,0) + +"DATA",811.8,186,100,3909,0) + +"DATA",811.8,186,100,3910,0) + +"DATA",811.8,186,100,3911,0) + +"DATA",811.8,186,100,3919,0) + +"DATA",811.8,186,100,3920,0) + +"DATA",811.8,186,100,3921,0) + +"DATA",811.8,186,100,3922,0) +REMINDER DIALOG +"DATA",811.8,186,100,3923,0) +801.41 +"DATA",811.8,186,100,3924,0) +MU SMOKING STATUS HISTORY EL +"DATA",811.8,186,100,3925,0) +1255 +"DATA",811.8,186,100,3926,0) +1271676757 +"DATA",811.8,186,100,3927,0) +NO +"DATA",811.8,186,100,3928,0) + +"DATA",811.8,186,100,3929,0) + +"DATA",811.8,186,100,3940,0) + +"DATA",811.8,186,100,3941,0) + +"DATA",811.8,186,100,3942,0) + +"DATA",811.8,186,100,3945,0) + +"DATA",811.8,186,100,3946,0) + +"DATA",811.8,186,100,3947,0) + +"DATA",811.8,186,100,3948,0) +REMINDER DIALOG +"DATA",811.8,186,100,3949,0) +801.41 +"DATA",811.8,186,100,3950,0) +MU SMOKING STATUS HX GP +"DATA",811.8,186,100,3951,0) +1256 +"DATA",811.8,186,100,3952,0) +4187372097 +"DATA",811.8,186,100,3953,0) +NO +"DATA",811.8,186,100,3954,0) + +"DATA",811.8,186,100,3955,0) + +"DATA",811.8,186,100,3971,0) + +"DATA",811.8,186,100,3972,0) + +"DATA",811.8,186,100,3973,0) + +"DATA",811.8,186,100,3977,0) + +"DATA",811.8,186,100,3978,0) + +"DATA",811.8,186,100,3979,0) + +"DATA",811.8,186,100,3980,0) +REMINDER DIALOG +"DATA",811.8,186,100,3981,0) +801.41 +"DATA",811.8,186,100,3982,0) +MU SMOKING STATUS DI +"DATA",811.8,186,100,3983,0) +1257 +"DATA",811.8,186,100,3984,0) +3221423773 +"DATA",811.8,186,100,3985,0) +YES +"DATA",811.8,186,100,3986,0) + +"DATA",811.8,186,100,3987,0) + +"DATA",811.8,186,100,4000,0) + +"DATA",811.8,186,100,4001,0) + +"DATA",811.8,186,100,4002,0) + +"DATA",811.8,186,100,4007,0) + +"DATA",811.8,186,100,4008,0) + +"DATA",811.8,186,100,4009,0) + +"DATA",811.8,186,100,4010,0) +HEALTH SUMMARY COMPONENT +"DATA",811.8,186,100,4011,0) +142.1 +"DATA",811.8,186,100,4012,0) +PCE HEALTH FACTORS SELECTED +"DATA",811.8,186,100,4013,0) +203 +"DATA",811.8,186,100,4014,0) +1531877056 +"DATA",811.8,186,100,4015,0) +NO +"DATA",811.8,186,100,4016,0) + +"DATA",811.8,186,100,4017,0) + +"DATA",811.8,186,100,4020,0) + +"DATA",811.8,186,100,4021,0) + +"DATA",811.8,186,100,4022,0) + +"DATA",811.8,186,100,4023,0) +HEALTH SUMMARY TYPE +"DATA",811.8,186,100,4024,0) +142 +"DATA",811.8,186,100,4025,0) +MU SMOKING STATUS HS +"DATA",811.8,186,100,4026,0) +91 +"DATA",811.8,186,100,4027,0) +3831292420 +"DATA",811.8,186,100,4028,0) +YES +"DATA",811.8,186,100,4029,0) + +"DATA",811.8,186,100,4030,0) + +"DATA",811.8,186,100,4044,0) + +"DATA",811.8,186,100,4045,0) + +"DATA",811.8,186,100,4046,0) + +"DATA",811.8,186,100,4051,0) + +"DATA",811.8,186,100,4052,0) + +"DATA",811.8,186,100,4053,0) + +"DATA",811.8,186,100,4054,0) +HEALTH SUMMARY OBJECTS +"DATA",811.8,186,100,4055,0) +142.5 +"DATA",811.8,186,100,4056,0) +MU SMOKING STATUS (TIU) +"DATA",811.8,186,100,4057,0) +500014 +"DATA",811.8,186,100,4058,0) +1121929719 +"DATA",811.8,186,100,4059,0) +YES +"DATA",811.8,186,100,4060,0) + +"DATA",811.8,186,100,4061,0) + +"DATA",811.8,186,100,4081,0) + +"DATA",811.8,186,100,4082,0) + +"DATA",811.8,186,100,4083,0) + +"DATA",811.8,186,100,4084,0) +TIU DOCUMENT DEFINITION +"DATA",811.8,186,100,4085,0) +8925.1 +"DATA",811.8,186,100,4086,0) +MU SMOKING STATUS +"DATA",811.8,186,100,4087,0) +16 +"DATA",811.8,186,100,4088,0) +2555097705 +"DATA",811.8,186,100,4089,0) +YES +"DATA",811.8,186,100,4090,0) + +"DATA",811.8,186,100,4091,0) + +"DATA",811.8,186,100,4099,0) + +"DATA",811.8,186,100,4100,0) + +"DATA",811.8,186,100,4101,0) + +"DATA",811.8,186,100,4102,0) +155 +"DATA",811.8,186,100,4103,0) + +"DATA",811.8,186,100,4104,0) +34 +"DATA",811.8,186,100,4105,0) +33 +"DATA",811.8,186,100,4106,0) +24 +"DATA",811.8,186,100,4107,0) + +"DATA",811.8,186,100,4108,0) + +"DATA",811.8,186,100,4109,0) +49 +"DATA",811.8,186,100,4110,0) +47 +"DATA",811.8,186,100,4111,0) +38 +"DATA",811.8,186,100,4112,0) + +"DATA",811.8,186,100,4113,0) + +"DATA",811.8,186,100,4114,0) +64 +"DATA",811.8,186,100,4115,0) +62 +"DATA",811.8,186,100,4116,0) +53 +"DATA",811.8,186,100,4117,0) + +"DATA",811.8,186,100,4118,0) + +"DATA",811.8,186,100,4119,0) +79 +"DATA",811.8,186,100,4120,0) +77 +"DATA",811.8,186,100,4121,0) +68 +"DATA",811.8,186,100,4122,0) + +"DATA",811.8,186,100,4123,0) + +"DATA",811.8,186,100,4124,0) +94 +"DATA",811.8,186,100,4125,0) +92 +"DATA",811.8,186,100,4126,0) +83 +"DATA",811.8,186,100,4127,0) + +"DATA",811.8,186,100,4128,0) + +"DATA",811.8,186,100,4129,0) +108 +"DATA",811.8,186,100,4130,0) +107 +"DATA",811.8,186,100,4131,0) +98 +"DATA",811.8,186,100,4132,0) + +"DATA",811.8,186,100,4133,0) + +"DATA",811.8,186,100,4134,0) +123 +"DATA",811.8,186,100,4135,0) +121 +"DATA",811.8,186,100,4136,0) +112 +"DATA",811.8,186,100,4137,0) + +"DATA",811.8,186,100,4138,0) + +"DATA",811.8,186,100,4139,0) +138 +"DATA",811.8,186,100,4140,0) +136 +"DATA",811.8,186,100,4141,0) +127 +"DATA",811.8,186,100,4142,0) + +"DATA",811.8,186,100,4143,0) + +"DATA",811.8,186,100,4144,0) +153 +"DATA",811.8,186,100,4145,0) +151 +"DATA",811.8,186,100,4146,0) +142 +"DATA",811.8,186,100,4147,0) + +"DATA",811.8,186,100,4148,0) + +"DATA",811.8,186,100,4149,0) +168 +"DATA",811.8,186,100,4150,0) +166 +"DATA",811.8,186,100,4151,0) +157 +"DATA",811.8,186,100,4152,0) + +"DATA",811.8,186,100,4153,0) + +"DATA",811.8,186,100,4154,0) +183 +"DATA",811.8,186,100,4155,0) +181 +"DATA",811.8,186,100,4156,0) +172 +"DATA",811.8,186,100,4157,0) + +"DATA",811.8,186,100,4158,0) + +"DATA",811.8,186,100,4159,0) +198 +"DATA",811.8,186,100,4160,0) +196 +"DATA",811.8,186,100,4161,0) +187 +"DATA",811.8,186,100,4162,0) + +"DATA",811.8,186,100,4163,0) + +"DATA",811.8,186,100,4164,0) +213 +"DATA",811.8,186,100,4165,0) +211 +"DATA",811.8,186,100,4166,0) +202 +"DATA",811.8,186,100,4167,0) + +"DATA",811.8,186,100,4168,0) + +"DATA",811.8,186,100,4169,0) +228 +"DATA",811.8,186,100,4170,0) +226 +"DATA",811.8,186,100,4171,0) +217 +"DATA",811.8,186,100,4172,0) + +"DATA",811.8,186,100,4173,0) + +"DATA",811.8,186,100,4174,0) +243 +"DATA",811.8,186,100,4175,0) +241 +"DATA",811.8,186,100,4176,0) +232 +"DATA",811.8,186,100,4177,0) + +"DATA",811.8,186,100,4178,0) + +"DATA",811.8,186,100,4179,0) +258 +"DATA",811.8,186,100,4180,0) +256 +"DATA",811.8,186,100,4181,0) +247 +"DATA",811.8,186,100,4182,0) + +"DATA",811.8,186,100,4183,0) + +"DATA",811.8,186,100,4184,0) +273 +"DATA",811.8,186,100,4185,0) +271 +"DATA",811.8,186,100,4186,0) +262 +"DATA",811.8,186,100,4187,0) + +"DATA",811.8,186,100,4188,0) + +"DATA",811.8,186,100,4189,0) +288 +"DATA",811.8,186,100,4190,0) +286 +"DATA",811.8,186,100,4191,0) +277 +"DATA",811.8,186,100,4192,0) + +"DATA",811.8,186,100,4193,0) + +"DATA",811.8,186,100,4194,0) +302 +"DATA",811.8,186,100,4195,0) +301 +"DATA",811.8,186,100,4196,0) +292 +"DATA",811.8,186,100,4197,0) + +"DATA",811.8,186,100,4198,0) + +"DATA",811.8,186,100,4199,0) +316 +"DATA",811.8,186,100,4200,0) +315 +"DATA",811.8,186,100,4201,0) +306 +"DATA",811.8,186,100,4202,0) + +"DATA",811.8,186,100,4203,0) + +"DATA",811.8,186,100,4204,0) +330 +"DATA",811.8,186,100,4205,0) +329 +"DATA",811.8,186,100,4206,0) +320 +"DATA",811.8,186,100,4207,0) + +"DATA",811.8,186,100,4208,0) + +"DATA",811.8,186,100,4209,0) +344 +"DATA",811.8,186,100,4210,0) +343 +"DATA",811.8,186,100,4211,0) +334 +"DATA",811.8,186,100,4212,0) + +"DATA",811.8,186,100,4213,0) + +"DATA",811.8,186,100,4214,0) +358 +"DATA",811.8,186,100,4215,0) +357 +"DATA",811.8,186,100,4216,0) +348 +"DATA",811.8,186,100,4217,0) + +"DATA",811.8,186,100,4218,0) + +"DATA",811.8,186,100,4219,0) +372 +"DATA",811.8,186,100,4220,0) +371 +"DATA",811.8,186,100,4221,0) +362 +"DATA",811.8,186,100,4222,0) + +"DATA",811.8,186,100,4223,0) + +"DATA",811.8,186,100,4224,0) +387 +"DATA",811.8,186,100,4225,0) +385 +"DATA",811.8,186,100,4226,0) +376 +"DATA",811.8,186,100,4227,0) + +"DATA",811.8,186,100,4228,0) + +"DATA",811.8,186,100,4229,0) +402 +"DATA",811.8,186,100,4230,0) +400 +"DATA",811.8,186,100,4231,0) +391 +"DATA",811.8,186,100,4232,0) + +"DATA",811.8,186,100,4233,0) + +"DATA",811.8,186,100,4234,0) +417 +"DATA",811.8,186,100,4235,0) +415 +"DATA",811.8,186,100,4236,0) +406 +"DATA",811.8,186,100,4237,0) + +"DATA",811.8,186,100,4238,0) + +"DATA",811.8,186,100,4239,0) +432 +"DATA",811.8,186,100,4240,0) +430 +"DATA",811.8,186,100,4241,0) +421 +"DATA",811.8,186,100,4242,0) + +"DATA",811.8,186,100,4243,0) + +"DATA",811.8,186,100,4244,0) +447 +"DATA",811.8,186,100,4245,0) +445 +"DATA",811.8,186,100,4246,0) +436 +"DATA",811.8,186,100,4247,0) + +"DATA",811.8,186,100,4248,0) + +"DATA",811.8,186,100,4249,0) +462 +"DATA",811.8,186,100,4250,0) +460 +"DATA",811.8,186,100,4251,0) +451 +"DATA",811.8,186,100,4252,0) + +"DATA",811.8,186,100,4253,0) + +"DATA",811.8,186,100,4254,0) +477 +"DATA",811.8,186,100,4255,0) +475 +"DATA",811.8,186,100,4256,0) +466 +"DATA",811.8,186,100,4257,0) + +"DATA",811.8,186,100,4258,0) + +"DATA",811.8,186,100,4259,0) +492 +"DATA",811.8,186,100,4260,0) +490 +"DATA",811.8,186,100,4261,0) +481 +"DATA",811.8,186,100,4262,0) + +"DATA",811.8,186,100,4263,0) + +"DATA",811.8,186,100,4264,0) +507 +"DATA",811.8,186,100,4265,0) +505 +"DATA",811.8,186,100,4266,0) +496 +"DATA",811.8,186,100,4267,0) + +"DATA",811.8,186,100,4268,0) + +"DATA",811.8,186,100,4269,0) +521 +"DATA",811.8,186,100,4270,0) +520 +"DATA",811.8,186,100,4271,0) +511 +"DATA",811.8,186,100,4272,0) + +"DATA",811.8,186,100,4273,0) + +"DATA",811.8,186,100,4274,0) +537 +"DATA",811.8,186,100,4275,0) +534 +"DATA",811.8,186,100,4276,0) +525 +"DATA",811.8,186,100,4277,0) + +"DATA",811.8,186,100,4278,0) + +"DATA",811.8,186,100,4279,0) +553 +"DATA",811.8,186,100,4280,0) +550 +"DATA",811.8,186,100,4281,0) +541 +"DATA",811.8,186,100,4282,0) + +"DATA",811.8,186,100,4283,0) + +"DATA",811.8,186,100,4284,0) +567 +"DATA",811.8,186,100,4285,0) +566 +"DATA",811.8,186,100,4286,0) +557 +"DATA",811.8,186,100,4287,0) + +"DATA",811.8,186,100,4288,0) + +"DATA",811.8,186,100,4289,0) +584 +"DATA",811.8,186,100,4290,0) +580 +"DATA",811.8,186,100,4291,0) +571 +"DATA",811.8,186,100,4292,0) + +"DATA",811.8,186,100,4293,0) + +"DATA",811.8,186,100,4294,0) +601 +"DATA",811.8,186,100,4295,0) +597 +"DATA",811.8,186,100,4296,0) +588 +"DATA",811.8,186,100,4297,0) + +"DATA",811.8,186,100,4298,0) + +"DATA",811.8,186,100,4299,0) +618 +"DATA",811.8,186,100,4300,0) +614 +"DATA",811.8,186,100,4301,0) +605 +"DATA",811.8,186,100,4302,0) + +"DATA",811.8,186,100,4303,0) + +"DATA",811.8,186,100,4304,0) +632 +"DATA",811.8,186,100,4305,0) +631 +"DATA",811.8,186,100,4306,0) +622 +"DATA",811.8,186,100,4307,0) + +"DATA",811.8,186,100,4308,0) + +"DATA",811.8,186,100,4309,0) +648 +"DATA",811.8,186,100,4310,0) +645 +"DATA",811.8,186,100,4311,0) +636 +"DATA",811.8,186,100,4312,0) + +"DATA",811.8,186,100,4313,0) + +"DATA",811.8,186,100,4314,0) +662 +"DATA",811.8,186,100,4315,0) +661 +"DATA",811.8,186,100,4316,0) +652 +"DATA",811.8,186,100,4317,0) + +"DATA",811.8,186,100,4318,0) + +"DATA",811.8,186,100,4319,0) +679 +"DATA",811.8,186,100,4320,0) +675 +"DATA",811.8,186,100,4321,0) +666 +"DATA",811.8,186,100,4322,0) + +"DATA",811.8,186,100,4323,0) + +"DATA",811.8,186,100,4324,0) +695 +"DATA",811.8,186,100,4325,0) +692 +"DATA",811.8,186,100,4326,0) +683 +"DATA",811.8,186,100,4327,0) + +"DATA",811.8,186,100,4328,0) + +"DATA",811.8,186,100,4329,0) +712 +"DATA",811.8,186,100,4330,0) +708 +"DATA",811.8,186,100,4331,0) +699 +"DATA",811.8,186,100,4332,0) + +"DATA",811.8,186,100,4333,0) + +"DATA",811.8,186,100,4334,0) +728 +"DATA",811.8,186,100,4335,0) +725 +"DATA",811.8,186,100,4336,0) +716 +"DATA",811.8,186,100,4337,0) + +"DATA",811.8,186,100,4338,0) + +"DATA",811.8,186,100,4339,0) +745 +"DATA",811.8,186,100,4340,0) +741 +"DATA",811.8,186,100,4341,0) +732 +"DATA",811.8,186,100,4342,0) + +"DATA",811.8,186,100,4343,0) + +"DATA",811.8,186,100,4344,0) +761 +"DATA",811.8,186,100,4345,0) +758 +"DATA",811.8,186,100,4346,0) +749 +"DATA",811.8,186,100,4347,0) + +"DATA",811.8,186,100,4348,0) + +"DATA",811.8,186,100,4349,0) +778 +"DATA",811.8,186,100,4350,0) +774 +"DATA",811.8,186,100,4351,0) +765 +"DATA",811.8,186,100,4352,0) + +"DATA",811.8,186,100,4353,0) + +"DATA",811.8,186,100,4354,0) +794 +"DATA",811.8,186,100,4355,0) +791 +"DATA",811.8,186,100,4356,0) +782 +"DATA",811.8,186,100,4357,0) + +"DATA",811.8,186,100,4358,0) + +"DATA",811.8,186,100,4359,0) +811 +"DATA",811.8,186,100,4360,0) +807 +"DATA",811.8,186,100,4361,0) +798 +"DATA",811.8,186,100,4362,0) + +"DATA",811.8,186,100,4363,0) + +"DATA",811.8,186,100,4364,0) +827 +"DATA",811.8,186,100,4365,0) +824 +"DATA",811.8,186,100,4366,0) +815 +"DATA",811.8,186,100,4367,0) + +"DATA",811.8,186,100,4368,0) + +"DATA",811.8,186,100,4369,0) +844 +"DATA",811.8,186,100,4370,0) +840 +"DATA",811.8,186,100,4371,0) +831 +"DATA",811.8,186,100,4372,0) + +"DATA",811.8,186,100,4373,0) + +"DATA",811.8,186,100,4374,0) +861 +"DATA",811.8,186,100,4375,0) +857 +"DATA",811.8,186,100,4376,0) +848 +"DATA",811.8,186,100,4377,0) + +"DATA",811.8,186,100,4378,0) + +"DATA",811.8,186,100,4379,0) +878 +"DATA",811.8,186,100,4380,0) +874 +"DATA",811.8,186,100,4381,0) +865 +"DATA",811.8,186,100,4382,0) + +"DATA",811.8,186,100,4383,0) + +"DATA",811.8,186,100,4384,0) +895 +"DATA",811.8,186,100,4385,0) +891 +"DATA",811.8,186,100,4386,0) +882 +"DATA",811.8,186,100,4387,0) + +"DATA",811.8,186,100,4388,0) + +"DATA",811.8,186,100,4389,0) +911 +"DATA",811.8,186,100,4390,0) +908 +"DATA",811.8,186,100,4391,0) +899 +"DATA",811.8,186,100,4392,0) + +"DATA",811.8,186,100,4393,0) + +"DATA",811.8,186,100,4394,0) +928 +"DATA",811.8,186,100,4395,0) +924 +"DATA",811.8,186,100,4396,0) +915 +"DATA",811.8,186,100,4397,0) + +"DATA",811.8,186,100,4398,0) + +"DATA",811.8,186,100,4399,0) +945 +"DATA",811.8,186,100,4400,0) +941 +"DATA",811.8,186,100,4401,0) +932 +"DATA",811.8,186,100,4402,0) + +"DATA",811.8,186,100,4403,0) + +"DATA",811.8,186,100,4404,0) +961 +"DATA",811.8,186,100,4405,0) +958 +"DATA",811.8,186,100,4406,0) +949 +"DATA",811.8,186,100,4407,0) + +"DATA",811.8,186,100,4408,0) + +"DATA",811.8,186,100,4409,0) +977 +"DATA",811.8,186,100,4410,0) +974 +"DATA",811.8,186,100,4411,0) +965 +"DATA",811.8,186,100,4412,0) + +"DATA",811.8,186,100,4413,0) + +"DATA",811.8,186,100,4414,0) +993 +"DATA",811.8,186,100,4415,0) +990 +"DATA",811.8,186,100,4416,0) +981 +"DATA",811.8,186,100,4417,0) + +"DATA",811.8,186,100,4418,0) + +"DATA",811.8,186,100,4419,0) +1009 +"DATA",811.8,186,100,4420,0) +1006 +"DATA",811.8,186,100,4421,0) +997 +"DATA",811.8,186,100,4422,0) + +"DATA",811.8,186,100,4423,0) + +"DATA",811.8,186,100,4424,0) +1025 +"DATA",811.8,186,100,4425,0) +1022 +"DATA",811.8,186,100,4426,0) +1013 +"DATA",811.8,186,100,4427,0) + +"DATA",811.8,186,100,4428,0) + +"DATA",811.8,186,100,4429,0) +1041 +"DATA",811.8,186,100,4430,0) +1038 +"DATA",811.8,186,100,4431,0) +1029 +"DATA",811.8,186,100,4432,0) + +"DATA",811.8,186,100,4433,0) + +"DATA",811.8,186,100,4434,0) +1070 +"DATA",811.8,186,100,4435,0) +1054 +"DATA",811.8,186,100,4436,0) +1045 +"DATA",811.8,186,100,4437,0) +1081 +"DATA",811.8,186,100,4438,0) +1075 +"DATA",811.8,186,100,4439,0) + +"DATA",811.8,186,100,4440,0) + +"DATA",811.8,186,100,4441,0) +1133 +"DATA",811.8,186,100,4442,0) +1094 +"DATA",811.8,186,100,4443,0) +1085 +"DATA",811.8,186,100,4444,0) +1140 +"DATA",811.8,186,100,4445,0) +1138 +"DATA",811.8,186,100,4446,0) + +"DATA",811.8,186,100,4447,0) + +"DATA",811.8,186,100,4448,0) +1160 +"DATA",811.8,186,100,4449,0) +1153 +"DATA",811.8,186,100,4450,0) +1144 +"DATA",811.8,186,100,4451,0) +1165 +"DATA",811.8,186,100,4452,0) +1165 +"DATA",811.8,186,100,4453,0) + +"DATA",811.8,186,100,4454,0) + +"DATA",811.8,186,100,4455,0) +1190 +"DATA",811.8,186,100,4456,0) +1178 +"DATA",811.8,186,100,4457,0) +1169 +"DATA",811.8,186,100,4458,0) +1196 +"DATA",811.8,186,100,4459,0) +1195 +"DATA",811.8,186,100,4460,0) + +"DATA",811.8,186,100,4461,0) + +"DATA",811.8,186,100,4462,0) +1221 +"DATA",811.8,186,100,4463,0) +1209 +"DATA",811.8,186,100,4464,0) +1200 +"DATA",811.8,186,100,4465,0) +1227 +"DATA",811.8,186,100,4466,0) +1226 +"DATA",811.8,186,100,4467,0) + +"DATA",811.8,186,100,4468,0) + +"DATA",811.8,186,100,4469,0) +1257 +"DATA",811.8,186,100,4470,0) +1240 +"DATA",811.8,186,100,4471,0) +1231 +"DATA",811.8,186,100,4472,0) +1264 +"DATA",811.8,186,100,4473,0) +1262 +"DATA",811.8,186,100,4474,0) + +"DATA",811.8,186,100,4475,0) + +"DATA",811.8,186,100,4476,0) +1284 +"DATA",811.8,186,100,4477,0) +1277 +"DATA",811.8,186,100,4478,0) +1268 +"DATA",811.8,186,100,4479,0) +1290 +"DATA",811.8,186,100,4480,0) +1289 +"DATA",811.8,186,100,4481,0) + +"DATA",811.8,186,100,4482,0) + +"DATA",811.8,186,100,4483,0) +1310 +"DATA",811.8,186,100,4484,0) +1303 +"DATA",811.8,186,100,4485,0) +1294 +"DATA",811.8,186,100,4486,0) +1315 +"DATA",811.8,186,100,4487,0) +1315 +"DATA",811.8,186,100,4488,0) + +"DATA",811.8,186,100,4489,0) + +"DATA",811.8,186,100,4490,0) +1335 +"DATA",811.8,186,100,4491,0) +1328 +"DATA",811.8,186,100,4492,0) +1319 +"DATA",811.8,186,100,4493,0) +1340 +"DATA",811.8,186,100,4494,0) +1340 +"DATA",811.8,186,100,4495,0) + +"DATA",811.8,186,100,4496,0) + +"DATA",811.8,186,100,4497,0) +1366 +"DATA",811.8,186,100,4498,0) +1353 +"DATA",811.8,186,100,4499,0) +1344 +"DATA",811.8,186,100,4500,0) +1373 +"DATA",811.8,186,100,4501,0) +1371 +"DATA",811.8,186,100,4502,0) + +"DATA",811.8,186,100,4503,0) + +"DATA",811.8,186,100,4504,0) +1401 +"DATA",811.8,186,100,4505,0) +1386 +"DATA",811.8,186,100,4506,0) +1377 +"DATA",811.8,186,100,4507,0) +1407 +"DATA",811.8,186,100,4508,0) +1406 +"DATA",811.8,186,100,4509,0) + +"DATA",811.8,186,100,4510,0) + +"DATA",811.8,186,100,4511,0) +1427 +"DATA",811.8,186,100,4512,0) +1420 +"DATA",811.8,186,100,4513,0) +1411 +"DATA",811.8,186,100,4514,0) +1433 +"DATA",811.8,186,100,4515,0) +1432 +"DATA",811.8,186,100,4516,0) + +"DATA",811.8,186,100,4517,0) + +"DATA",811.8,186,100,4518,0) +1459 +"DATA",811.8,186,100,4519,0) +1446 +"DATA",811.8,186,100,4520,0) +1437 +"DATA",811.8,186,100,4521,0) +1466 +"DATA",811.8,186,100,4522,0) +1464 +"DATA",811.8,186,100,4523,0) + +"DATA",811.8,186,100,4524,0) + +"DATA",811.8,186,100,4525,0) +1492 +"DATA",811.8,186,100,4526,0) +1479 +"DATA",811.8,186,100,4527,0) +1470 +"DATA",811.8,186,100,4528,0) +1499 +"DATA",811.8,186,100,4529,0) +1497 +"DATA",811.8,186,100,4530,0) + +"DATA",811.8,186,100,4531,0) + +"DATA",811.8,186,100,4532,0) +1529 +"DATA",811.8,186,100,4533,0) +1512 +"DATA",811.8,186,100,4534,0) +1503 +"DATA",811.8,186,100,4535,0) +1536 +"DATA",811.8,186,100,4536,0) +1534 +"DATA",811.8,186,100,4537,0) + +"DATA",811.8,186,100,4538,0) + +"DATA",811.8,186,100,4539,0) +1562 +"DATA",811.8,186,100,4540,0) +1549 +"DATA",811.8,186,100,4541,0) +1540 +"DATA",811.8,186,100,4542,0) +1569 +"DATA",811.8,186,100,4543,0) +1567 +"DATA",811.8,186,100,4544,0) + +"DATA",811.8,186,100,4545,0) + +"DATA",811.8,186,100,4546,0) +1595 +"DATA",811.8,186,100,4547,0) +1582 +"DATA",811.8,186,100,4548,0) +1573 +"DATA",811.8,186,100,4549,0) +1602 +"DATA",811.8,186,100,4550,0) +1600 +"DATA",811.8,186,100,4551,0) + +"DATA",811.8,186,100,4552,0) + +"DATA",811.8,186,100,4553,0) +1628 +"DATA",811.8,186,100,4554,0) +1615 +"DATA",811.8,186,100,4555,0) +1606 +"DATA",811.8,186,100,4556,0) +1635 +"DATA",811.8,186,100,4557,0) +1633 +"DATA",811.8,186,100,4558,0) + +"DATA",811.8,186,100,4559,0) + +"DATA",811.8,186,100,4560,0) +1667 +"DATA",811.8,186,100,4561,0) +1648 +"DATA",811.8,186,100,4562,0) +1639 +"DATA",811.8,186,100,4563,0) +1675 +"DATA",811.8,186,100,4564,0) +1672 +"DATA",811.8,186,100,4565,0) + +"DATA",811.8,186,100,4566,0) + +"DATA",811.8,186,100,4567,0) +1701 +"DATA",811.8,186,100,4568,0) +1688 +"DATA",811.8,186,100,4569,0) +1679 +"DATA",811.8,186,100,4570,0) +1708 +"DATA",811.8,186,100,4571,0) +1706 +"DATA",811.8,186,100,4572,0) + +"DATA",811.8,186,100,4573,0) + +"DATA",811.8,186,100,4574,0) +1734 +"DATA",811.8,186,100,4575,0) +1721 +"DATA",811.8,186,100,4576,0) +1712 +"DATA",811.8,186,100,4577,0) +1741 +"DATA",811.8,186,100,4578,0) +1739 +"DATA",811.8,186,100,4579,0) + +"DATA",811.8,186,100,4580,0) + +"DATA",811.8,186,100,4581,0) +1767 +"DATA",811.8,186,100,4582,0) +1754 +"DATA",811.8,186,100,4583,0) +1745 +"DATA",811.8,186,100,4584,0) +1774 +"DATA",811.8,186,100,4585,0) +1772 +"DATA",811.8,186,100,4586,0) + +"DATA",811.8,186,100,4587,0) + +"DATA",811.8,186,100,4588,0) +1806 +"DATA",811.8,186,100,4589,0) +1787 +"DATA",811.8,186,100,4590,0) +1778 +"DATA",811.8,186,100,4591,0) +1814 +"DATA",811.8,186,100,4592,0) +1811 +"DATA",811.8,186,100,4593,0) + +"DATA",811.8,186,100,4594,0) + +"DATA",811.8,186,100,4595,0) +1840 +"DATA",811.8,186,100,4596,0) +1827 +"DATA",811.8,186,100,4597,0) +1818 +"DATA",811.8,186,100,4598,0) +1847 +"DATA",811.8,186,100,4599,0) +1845 +"DATA",811.8,186,100,4600,0) + +"DATA",811.8,186,100,4601,0) + +"DATA",811.8,186,100,4602,0) +1873 +"DATA",811.8,186,100,4603,0) +1860 +"DATA",811.8,186,100,4604,0) +1851 +"DATA",811.8,186,100,4605,0) +1880 +"DATA",811.8,186,100,4606,0) +1878 +"DATA",811.8,186,100,4607,0) + +"DATA",811.8,186,100,4608,0) + +"DATA",811.8,186,100,4609,0) +1906 +"DATA",811.8,186,100,4610,0) +1893 +"DATA",811.8,186,100,4611,0) +1884 +"DATA",811.8,186,100,4612,0) +1913 +"DATA",811.8,186,100,4613,0) +1911 +"DATA",811.8,186,100,4614,0) + +"DATA",811.8,186,100,4615,0) + +"DATA",811.8,186,100,4616,0) +1939 +"DATA",811.8,186,100,4617,0) +1926 +"DATA",811.8,186,100,4618,0) +1917 +"DATA",811.8,186,100,4619,0) +1946 +"DATA",811.8,186,100,4620,0) +1944 +"DATA",811.8,186,100,4621,0) + +"DATA",811.8,186,100,4622,0) + +"DATA",811.8,186,100,4623,0) +1972 +"DATA",811.8,186,100,4624,0) +1959 +"DATA",811.8,186,100,4625,0) +1950 +"DATA",811.8,186,100,4626,0) +1979 +"DATA",811.8,186,100,4627,0) +1977 +"DATA",811.8,186,100,4628,0) + +"DATA",811.8,186,100,4629,0) + +"DATA",811.8,186,100,4630,0) +2015 +"DATA",811.8,186,100,4631,0) +1992 +"DATA",811.8,186,100,4632,0) +1983 +"DATA",811.8,186,100,4633,0) +2025 +"DATA",811.8,186,100,4634,0) +2020 +"DATA",811.8,186,100,4635,0) + +"DATA",811.8,186,100,4636,0) + +"DATA",811.8,186,100,4637,0) +2051 +"DATA",811.8,186,100,4638,0) +2038 +"DATA",811.8,186,100,4639,0) +2029 +"DATA",811.8,186,100,4640,0) +2058 +"DATA",811.8,186,100,4641,0) +2056 +"DATA",811.8,186,100,4642,0) + +"DATA",811.8,186,100,4643,0) + +"DATA",811.8,186,100,4644,0) +2086 +"DATA",811.8,186,100,4645,0) +2071 +"DATA",811.8,186,100,4646,0) +2062 +"DATA",811.8,186,100,4647,0) +2092 +"DATA",811.8,186,100,4648,0) +2091 +"DATA",811.8,186,100,4649,0) + +"DATA",811.8,186,100,4650,0) + +"DATA",811.8,186,100,4651,0) +2118 +"DATA",811.8,186,100,4652,0) +2105 +"DATA",811.8,186,100,4653,0) +2096 +"DATA",811.8,186,100,4654,0) +2125 +"DATA",811.8,186,100,4655,0) +2123 +"DATA",811.8,186,100,4656,0) + +"DATA",811.8,186,100,4657,0) + +"DATA",811.8,186,100,4658,0) +2151 +"DATA",811.8,186,100,4659,0) +2138 +"DATA",811.8,186,100,4660,0) +2129 +"DATA",811.8,186,100,4661,0) +2158 +"DATA",811.8,186,100,4662,0) +2156 +"DATA",811.8,186,100,4663,0) + +"DATA",811.8,186,100,4664,0) + +"DATA",811.8,186,100,4665,0) +2184 +"DATA",811.8,186,100,4666,0) +2171 +"DATA",811.8,186,100,4667,0) +2162 +"DATA",811.8,186,100,4668,0) +2191 +"DATA",811.8,186,100,4669,0) +2189 +"DATA",811.8,186,100,4670,0) + +"DATA",811.8,186,100,4671,0) + +"DATA",811.8,186,100,4672,0) +2217 +"DATA",811.8,186,100,4673,0) +2204 +"DATA",811.8,186,100,4674,0) +2195 +"DATA",811.8,186,100,4675,0) +2224 +"DATA",811.8,186,100,4676,0) +2222 +"DATA",811.8,186,100,4677,0) + +"DATA",811.8,186,100,4678,0) + +"DATA",811.8,186,100,4679,0) +2258 +"DATA",811.8,186,100,4680,0) +2237 +"DATA",811.8,186,100,4681,0) +2228 +"DATA",811.8,186,100,4682,0) +2267 +"DATA",811.8,186,100,4683,0) +2263 +"DATA",811.8,186,100,4684,0) + +"DATA",811.8,186,100,4685,0) + +"DATA",811.8,186,100,4686,0) +2293 +"DATA",811.8,186,100,4687,0) +2280 +"DATA",811.8,186,100,4688,0) +2271 +"DATA",811.8,186,100,4689,0) +2300 +"DATA",811.8,186,100,4690,0) +2298 +"DATA",811.8,186,100,4691,0) + +"DATA",811.8,186,100,4692,0) + +"DATA",811.8,186,100,4693,0) +2326 +"DATA",811.8,186,100,4694,0) +2313 +"DATA",811.8,186,100,4695,0) +2304 +"DATA",811.8,186,100,4696,0) +2333 +"DATA",811.8,186,100,4697,0) +2331 +"DATA",811.8,186,100,4698,0) + +"DATA",811.8,186,100,4699,0) + +"DATA",811.8,186,100,4700,0) +2359 +"DATA",811.8,186,100,4701,0) +2346 +"DATA",811.8,186,100,4702,0) +2337 +"DATA",811.8,186,100,4703,0) +2366 +"DATA",811.8,186,100,4704,0) +2364 +"DATA",811.8,186,100,4705,0) + +"DATA",811.8,186,100,4706,0) + +"DATA",811.8,186,100,4707,0) +2392 +"DATA",811.8,186,100,4708,0) +2379 +"DATA",811.8,186,100,4709,0) +2370 +"DATA",811.8,186,100,4710,0) +2399 +"DATA",811.8,186,100,4711,0) +2397 +"DATA",811.8,186,100,4712,0) + +"DATA",811.8,186,100,4713,0) + +"DATA",811.8,186,100,4714,0) +2433 +"DATA",811.8,186,100,4715,0) +2412 +"DATA",811.8,186,100,4716,0) +2403 +"DATA",811.8,186,100,4717,0) +2442 +"DATA",811.8,186,100,4718,0) +2438 +"DATA",811.8,186,100,4719,0) + +"DATA",811.8,186,100,4720,0) + +"DATA",811.8,186,100,4721,0) +2468 +"DATA",811.8,186,100,4722,0) +2455 +"DATA",811.8,186,100,4723,0) +2446 +"DATA",811.8,186,100,4724,0) +2475 +"DATA",811.8,186,100,4725,0) +2473 +"DATA",811.8,186,100,4726,0) + +"DATA",811.8,186,100,4727,0) + +"DATA",811.8,186,100,4728,0) +2501 +"DATA",811.8,186,100,4729,0) +2488 +"DATA",811.8,186,100,4730,0) +2479 +"DATA",811.8,186,100,4731,0) +2508 +"DATA",811.8,186,100,4732,0) +2506 +"DATA",811.8,186,100,4733,0) + +"DATA",811.8,186,100,4734,0) + +"DATA",811.8,186,100,4735,0) +2538 +"DATA",811.8,186,100,4736,0) +2521 +"DATA",811.8,186,100,4737,0) +2512 +"DATA",811.8,186,100,4738,0) +2545 +"DATA",811.8,186,100,4739,0) +2543 +"DATA",811.8,186,100,4740,0) + +"DATA",811.8,186,100,4741,0) + +"DATA",811.8,186,100,4742,0) +2571 +"DATA",811.8,186,100,4743,0) +2558 +"DATA",811.8,186,100,4744,0) +2549 +"DATA",811.8,186,100,4745,0) +2578 +"DATA",811.8,186,100,4746,0) +2576 +"DATA",811.8,186,100,4747,0) + +"DATA",811.8,186,100,4748,0) + +"DATA",811.8,186,100,4749,0) +2604 +"DATA",811.8,186,100,4750,0) +2591 +"DATA",811.8,186,100,4751,0) +2582 +"DATA",811.8,186,100,4752,0) +2611 +"DATA",811.8,186,100,4753,0) +2609 +"DATA",811.8,186,100,4754,0) + +"DATA",811.8,186,100,4755,0) + +"DATA",811.8,186,100,4756,0) +2637 +"DATA",811.8,186,100,4757,0) +2624 +"DATA",811.8,186,100,4758,0) +2615 +"DATA",811.8,186,100,4759,0) +2644 +"DATA",811.8,186,100,4760,0) +2642 +"DATA",811.8,186,100,4761,0) + +"DATA",811.8,186,100,4762,0) + +"DATA",811.8,186,100,4763,0) +2670 +"DATA",811.8,186,100,4764,0) +2657 +"DATA",811.8,186,100,4765,0) +2648 +"DATA",811.8,186,100,4766,0) +2677 +"DATA",811.8,186,100,4767,0) +2675 +"DATA",811.8,186,100,4768,0) + +"DATA",811.8,186,100,4769,0) + +"DATA",811.8,186,100,4770,0) +2711 +"DATA",811.8,186,100,4771,0) +2690 +"DATA",811.8,186,100,4772,0) +2681 +"DATA",811.8,186,100,4773,0) +2720 +"DATA",811.8,186,100,4774,0) +2716 +"DATA",811.8,186,100,4775,0) + +"DATA",811.8,186,100,4776,0) + +"DATA",811.8,186,100,4777,0) +2748 +"DATA",811.8,186,100,4778,0) +2733 +"DATA",811.8,186,100,4779,0) +2724 +"DATA",811.8,186,100,4780,0) +2755 +"DATA",811.8,186,100,4781,0) +2753 +"DATA",811.8,186,100,4782,0) + +"DATA",811.8,186,100,4783,0) + +"DATA",811.8,186,100,4784,0) +2783 +"DATA",811.8,186,100,4785,0) +2768 +"DATA",811.8,186,100,4786,0) +2759 +"DATA",811.8,186,100,4787,0) +2790 +"DATA",811.8,186,100,4788,0) +2788 +"DATA",811.8,186,100,4789,0) + +"DATA",811.8,186,100,4790,0) + +"DATA",811.8,186,100,4791,0) +2818 +"DATA",811.8,186,100,4792,0) +2803 +"DATA",811.8,186,100,4793,0) +2794 +"DATA",811.8,186,100,4794,0) +2825 +"DATA",811.8,186,100,4795,0) +2823 +"DATA",811.8,186,100,4796,0) + +"DATA",811.8,186,100,4797,0) + +"DATA",811.8,186,100,4798,0) +2853 +"DATA",811.8,186,100,4799,0) +2838 +"DATA",811.8,186,100,4800,0) +2829 +"DATA",811.8,186,100,4801,0) +2860 +"DATA",811.8,186,100,4802,0) +2858 +"DATA",811.8,186,100,4803,0) + +"DATA",811.8,186,100,4804,0) + +"DATA",811.8,186,100,4805,0) +2888 +"DATA",811.8,186,100,4806,0) +2873 +"DATA",811.8,186,100,4807,0) +2864 +"DATA",811.8,186,100,4808,0) +2895 +"DATA",811.8,186,100,4809,0) +2893 +"DATA",811.8,186,100,4810,0) + +"DATA",811.8,186,100,4811,0) + +"DATA",811.8,186,100,4812,0) +2931 +"DATA",811.8,186,100,4813,0) +2908 +"DATA",811.8,186,100,4814,0) +2899 +"DATA",811.8,186,100,4815,0) +2941 +"DATA",811.8,186,100,4816,0) +2936 +"DATA",811.8,186,100,4817,0) + +"DATA",811.8,186,100,4818,0) + +"DATA",811.8,186,100,4819,0) +3000 +"DATA",811.8,186,100,4820,0) +2954 +"DATA",811.8,186,100,4821,0) +2945 +"DATA",811.8,186,100,4822,0) +3005 +"DATA",811.8,186,100,4823,0) +3005 +"DATA",811.8,186,100,4824,0) + +"DATA",811.8,186,100,4825,0) + +"DATA",811.8,186,100,4826,0) +3036 +"DATA",811.8,186,100,4827,0) +3018 +"DATA",811.8,186,100,4828,0) +3009 +"DATA",811.8,186,100,4829,0) +3043 +"DATA",811.8,186,100,4830,0) +3041 +"DATA",811.8,186,100,4831,0) + +"DATA",811.8,186,100,4832,0) + +"DATA",811.8,186,100,4833,0) +3081 +"DATA",811.8,186,100,4834,0) +3056 +"DATA",811.8,186,100,4835,0) +3047 +"DATA",811.8,186,100,4836,0) +3096 +"DATA",811.8,186,100,4837,0) +3086 +"DATA",811.8,186,100,4838,0) + +"DATA",811.8,186,100,4839,0) + +"DATA",811.8,186,100,4840,0) +3122 +"DATA",811.8,186,100,4841,0) +3109 +"DATA",811.8,186,100,4842,0) +3100 +"DATA",811.8,186,100,4843,0) +3128 +"DATA",811.8,186,100,4844,0) +3127 +"DATA",811.8,186,100,4845,0) + +"DATA",811.8,186,100,4846,0) + +"DATA",811.8,186,100,4847,0) +3154 +"DATA",811.8,186,100,4848,0) +3141 +"DATA",811.8,186,100,4849,0) +3132 +"DATA",811.8,186,100,4850,0) +3160 +"DATA",811.8,186,100,4851,0) +3159 +"DATA",811.8,186,100,4852,0) + +"DATA",811.8,186,100,4853,0) + +"DATA",811.8,186,100,4854,0) +3186 +"DATA",811.8,186,100,4855,0) +3173 +"DATA",811.8,186,100,4856,0) +3164 +"DATA",811.8,186,100,4857,0) +3192 +"DATA",811.8,186,100,4858,0) +3191 +"DATA",811.8,186,100,4859,0) + +"DATA",811.8,186,100,4860,0) + +"DATA",811.8,186,100,4861,0) +3225 +"DATA",811.8,186,100,4862,0) +3205 +"DATA",811.8,186,100,4863,0) +3196 +"DATA",811.8,186,100,4864,0) +3233 +"DATA",811.8,186,100,4865,0) +3230 +"DATA",811.8,186,100,4866,0) + +"DATA",811.8,186,100,4867,0) + +"DATA",811.8,186,100,4868,0) +3255 +"DATA",811.8,186,100,4869,0) +3246 +"DATA",811.8,186,100,4870,0) +3237 +"DATA",811.8,186,100,4871,0) +3260 +"DATA",811.8,186,100,4872,0) +3260 +"DATA",811.8,186,100,4873,0) + +"DATA",811.8,186,100,4874,0) + +"DATA",811.8,186,100,4875,0) +3285 +"DATA",811.8,186,100,4876,0) +3273 +"DATA",811.8,186,100,4877,0) +3264 +"DATA",811.8,186,100,4878,0) +3291 +"DATA",811.8,186,100,4879,0) +3290 +"DATA",811.8,186,100,4880,0) + +"DATA",811.8,186,100,4881,0) + +"DATA",811.8,186,100,4882,0) +3319 +"DATA",811.8,186,100,4883,0) +3304 +"DATA",811.8,186,100,4884,0) +3295 +"DATA",811.8,186,100,4885,0) +3325 +"DATA",811.8,186,100,4886,0) +3324 +"DATA",811.8,186,100,4887,0) + +"DATA",811.8,186,100,4888,0) + +"DATA",811.8,186,100,4889,0) +3351 +"DATA",811.8,186,100,4890,0) +3338 +"DATA",811.8,186,100,4891,0) +3329 +"DATA",811.8,186,100,4892,0) +3358 +"DATA",811.8,186,100,4893,0) +3356 +"DATA",811.8,186,100,4894,0) + +"DATA",811.8,186,100,4895,0) + +"DATA",811.8,186,100,4896,0) +3384 +"DATA",811.8,186,100,4897,0) +3371 +"DATA",811.8,186,100,4898,0) +3362 +"DATA",811.8,186,100,4899,0) +3391 +"DATA",811.8,186,100,4900,0) +3389 +"DATA",811.8,186,100,4901,0) + +"DATA",811.8,186,100,4902,0) + +"DATA",811.8,186,100,4903,0) +3414 +"DATA",811.8,186,100,4904,0) +3404 +"DATA",811.8,186,100,4905,0) +3395 +"DATA",811.8,186,100,4906,0) +3420 +"DATA",811.8,186,100,4907,0) +3419 +"DATA",811.8,186,100,4908,0) + +"DATA",811.8,186,100,4909,0) + +"DATA",811.8,186,100,4910,0) +3446 +"DATA",811.8,186,100,4911,0) +3433 +"DATA",811.8,186,100,4912,0) +3424 +"DATA",811.8,186,100,4913,0) +3453 +"DATA",811.8,186,100,4914,0) +3451 +"DATA",811.8,186,100,4915,0) + +"DATA",811.8,186,100,4916,0) + +"DATA",811.8,186,100,4917,0) +3479 +"DATA",811.8,186,100,4918,0) +3466 +"DATA",811.8,186,100,4919,0) +3457 +"DATA",811.8,186,100,4920,0) +3486 +"DATA",811.8,186,100,4921,0) +3484 +"DATA",811.8,186,100,4922,0) + +"DATA",811.8,186,100,4923,0) + +"DATA",811.8,186,100,4924,0) +3512 +"DATA",811.8,186,100,4925,0) +3499 +"DATA",811.8,186,100,4926,0) +3490 +"DATA",811.8,186,100,4927,0) +3519 +"DATA",811.8,186,100,4928,0) +3517 +"DATA",811.8,186,100,4929,0) + +"DATA",811.8,186,100,4930,0) + +"DATA",811.8,186,100,4931,0) +3557 +"DATA",811.8,186,100,4932,0) +3532 +"DATA",811.8,186,100,4933,0) +3523 +"DATA",811.8,186,100,4934,0) +3568 +"DATA",811.8,186,100,4935,0) +3562 +"DATA",811.8,186,100,4936,0) + +"DATA",811.8,186,100,4937,0) + +"DATA",811.8,186,100,4938,0) +3597 +"DATA",811.8,186,100,4939,0) +3581 +"DATA",811.8,186,100,4940,0) +3572 +"DATA",811.8,186,100,4941,0) +3603 +"DATA",811.8,186,100,4942,0) +3602 +"DATA",811.8,186,100,4943,0) + +"DATA",811.8,186,100,4944,0) + +"DATA",811.8,186,100,4945,0) +3629 +"DATA",811.8,186,100,4946,0) +3616 +"DATA",811.8,186,100,4947,0) +3607 +"DATA",811.8,186,100,4948,0) +3635 +"DATA",811.8,186,100,4949,0) +3634 +"DATA",811.8,186,100,4950,0) + +"DATA",811.8,186,100,4951,0) + +"DATA",811.8,186,100,4952,0) +3666 +"DATA",811.8,186,100,4953,0) +3648 +"DATA",811.8,186,100,4954,0) +3639 +"DATA",811.8,186,100,4955,0) +3673 +"DATA",811.8,186,100,4956,0) +3671 +"DATA",811.8,186,100,4957,0) + +"DATA",811.8,186,100,4958,0) + +"DATA",811.8,186,100,4959,0) +3699 +"DATA",811.8,186,100,4960,0) +3686 +"DATA",811.8,186,100,4961,0) +3677 +"DATA",811.8,186,100,4962,0) +3705 +"DATA",811.8,186,100,4963,0) +3704 +"DATA",811.8,186,100,4964,0) + +"DATA",811.8,186,100,4965,0) + +"DATA",811.8,186,100,4966,0) +3732 +"DATA",811.8,186,100,4967,0) +3718 +"DATA",811.8,186,100,4968,0) +3709 +"DATA",811.8,186,100,4969,0) +3739 +"DATA",811.8,186,100,4970,0) +3737 +"DATA",811.8,186,100,4971,0) + +"DATA",811.8,186,100,4972,0) + +"DATA",811.8,186,100,4973,0) +3770 +"DATA",811.8,186,100,4974,0) +3752 +"DATA",811.8,186,100,4975,0) +3743 +"DATA",811.8,186,100,4976,0) +3777 +"DATA",811.8,186,100,4977,0) +3775 +"DATA",811.8,186,100,4978,0) + +"DATA",811.8,186,100,4979,0) + +"DATA",811.8,186,100,4980,0) +3808 +"DATA",811.8,186,100,4981,0) +3790 +"DATA",811.8,186,100,4982,0) +3781 +"DATA",811.8,186,100,4983,0) +3815 +"DATA",811.8,186,100,4984,0) +3813 +"DATA",811.8,186,100,4985,0) + +"DATA",811.8,186,100,4986,0) + +"DATA",811.8,186,100,4987,0) +3839 +"DATA",811.8,186,100,4988,0) +3828 +"DATA",811.8,186,100,4989,0) +3819 +"DATA",811.8,186,100,4990,0) +3844 +"DATA",811.8,186,100,4991,0) +3844 +"DATA",811.8,186,100,4992,0) + +"DATA",811.8,186,100,4993,0) + +"DATA",811.8,186,100,4994,0) +3873 +"DATA",811.8,186,100,4995,0) +3857 +"DATA",811.8,186,100,4996,0) +3848 +"DATA",811.8,186,100,4997,0) +3879 +"DATA",811.8,186,100,4998,0) +3878 +"DATA",811.8,186,100,4999,0) + +"DATA",811.8,186,100,5000,0) + +"DATA",811.8,186,100,5001,0) +3907 +"DATA",811.8,186,100,5002,0) +3892 +"DATA",811.8,186,100,5003,0) +3883 +"DATA",811.8,186,100,5004,0) +3917 +"DATA",811.8,186,100,5005,0) +3912 +"DATA",811.8,186,100,5006,0) + +"DATA",811.8,186,100,5007,0) + +"DATA",811.8,186,100,5008,0) +3938 +"DATA",811.8,186,100,5009,0) +3930 +"DATA",811.8,186,100,5010,0) +3921 +"DATA",811.8,186,100,5011,0) +3943 +"DATA",811.8,186,100,5012,0) +3943 +"DATA",811.8,186,100,5013,0) + +"DATA",811.8,186,100,5014,0) + +"DATA",811.8,186,100,5015,0) +3969 +"DATA",811.8,186,100,5016,0) +3956 +"DATA",811.8,186,100,5017,0) +3947 +"DATA",811.8,186,100,5018,0) +3975 +"DATA",811.8,186,100,5019,0) +3974 +"DATA",811.8,186,100,5020,0) + +"DATA",811.8,186,100,5021,0) + +"DATA",811.8,186,100,5022,0) +3998 +"DATA",811.8,186,100,5023,0) +3988 +"DATA",811.8,186,100,5024,0) +3979 +"DATA",811.8,186,100,5025,0) +4005 +"DATA",811.8,186,100,5026,0) +4003 +"DATA",811.8,186,100,5027,0) + +"DATA",811.8,186,100,5028,0) + +"DATA",811.8,186,100,5029,0) +4018 +"DATA",811.8,186,100,5030,0) +4018 +"DATA",811.8,186,100,5031,0) +4009 +"DATA",811.8,186,100,5032,0) + +"DATA",811.8,186,100,5033,0) + +"DATA",811.8,186,100,5034,0) +4042 +"DATA",811.8,186,100,5035,0) +4031 +"DATA",811.8,186,100,5036,0) +4022 +"DATA",811.8,186,100,5037,0) +4049 +"DATA",811.8,186,100,5038,0) +4047 +"DATA",811.8,186,100,5039,0) + +"DATA",811.8,186,100,5040,0) + +"DATA",811.8,186,100,5041,0) +4079 +"DATA",811.8,186,100,5042,0) +4062 +"DATA",811.8,186,100,5043,0) +4053 +"DATA",811.8,186,100,5044,0) + +"DATA",811.8,186,100,5045,0) + +"DATA",811.8,186,100,5046,0) +4097 +"DATA",811.8,186,100,5047,0) +4092 +"DATA",811.8,186,100,5048,0) +4083 +"DATA",811.8,186,100,5049,0) + +"DATA",811.8,186,100,5050,0) + +"DATA",811.8,186,100,5051,0) + +"DATA",811.8,186,110,0) +^811.804^18^18 +"DATA",811.8,186,110,1,0) +Source: BOKHARI,SYED at VOE OFFICE INSTITUTION +"DATA",811.8,186,110,2,0) +Date Packed: 08/01/2012@18:32:29 +"DATA",811.8,186,110,3,0) +Package Version: 2.0P17 +"DATA",811.8,186,110,4,0) + +"DATA",811.8,186,110,5,0) +Description: +"DATA",811.8,186,110,6,0) +The following Clinical Reminder items were selected for packing: +"DATA",811.8,186,110,7,0) +REMINDER DIALOG +"DATA",811.8,186,110,8,0) + MU NQF0028AB MANAGEMENT DI +"DATA",811.8,186,110,9,0) + MU NQF0038 IMMUNE MANAGEMENT DI +"DATA",811.8,186,110,10,0) + MU NQF0041 INFLUENZA MANAGEMENT DI +"DATA",811.8,186,110,11,0) + MU NQF0421 BMI DI +"DATA",811.8,186,110,12,0) + +"DATA",811.8,186,110,13,0) +REMINDER DEFINITION +"DATA",811.8,186,110,14,0) + MU SMOKING STATUS +"DATA",811.8,186,110,15,0) + +"DATA",811.8,186,110,16,0) +Keywords: +"DATA",811.8,186,110,17,0) + +"DATA",811.8,186,110,18,0) +Components: +"DATA",811.8,186,119) +9 +"DATA",811.8,186,120,0) +^811.802A^155^155 +"DATA",811.8,186,120,1,0) +IMMUNIZATION^9999999.14^33 +"DATA",811.8,186,120,1,1,0) +^811.8021A^33^33 +"DATA",811.8,186,120,1,1,1,0) +FLU,3 YRS^33^34^^^1^0 +"DATA",811.8,186,120,1,1,2,0) +INFLUENZA^47^49^^^1^0 +"DATA",811.8,186,120,1,1,3,0) +RV 3 PEDS^62^64^^^1^0 +"DATA",811.8,186,120,1,1,4,0) +RV 2 PEDS^77^79^^^1^0 +"DATA",811.8,186,120,1,1,5,0) +RV 1 PEDS^92^94^^^1^0 +"DATA",811.8,186,120,1,1,6,0) +HEP A3 PEDS^107^108^^^1^0 +"DATA",811.8,186,120,1,1,7,0) +HEP A2 PEDS^121^123^^^1^0 +"DATA",811.8,186,120,1,1,8,0) +HEP A1 PEDS^136^138^^^1^0 +"DATA",811.8,186,120,1,1,9,0) +PCV5 PEDS^151^153^^^1^0 +"DATA",811.8,186,120,1,1,10,0) +PCV4 PEDS^166^168^^^1^0 +"DATA",811.8,186,120,1,1,11,0) +PCV3 PEDS^181^183^^^1^0 +"DATA",811.8,186,120,1,1,12,0) +PCV2 PEDS^196^198^^^1^0 +"DATA",811.8,186,120,1,1,13,0) +PCV1 PEDS^211^213^^^1^0 +"DATA",811.8,186,120,1,1,14,0) +VZV1 INFANT^226^228^^^1^0 +"DATA",811.8,186,120,1,1,15,0) +HEP B4 INFANT^241^243^^^1^0 +"DATA",811.8,186,120,1,1,16,0) +HEP B3 INFANT^256^258^^^1^0 +"DATA",811.8,186,120,1,1,17,0) +HEP B2 INFANT^271^273^^^1^0 +"DATA",811.8,186,120,1,1,18,0) +HEP B1 INFANT^286^288^^^1^0 +"DATA",811.8,186,120,1,1,19,0) +HIB PED 4^301^302^^^1^0 +"DATA",811.8,186,120,1,1,20,0) +HIB PED 3^315^316^^^1^0 +"DATA",811.8,186,120,1,1,21,0) +HIB PED 2^329^330^^^1^0 +"DATA",811.8,186,120,1,1,22,0) +HIB PED 1^343^344^^^1^0 +"DATA",811.8,186,120,1,1,23,0) +MEASLES,MUMPS,RUBELLA PED #2^357^358^^^1^0 +"DATA",811.8,186,120,1,1,24,0) +MEASLES,MUMPS,RUBELLA PED #1^371^372^^^1^0 +"DATA",811.8,186,120,1,1,25,0) +IPV1^385^387^^^1^0 +"DATA",811.8,186,120,1,1,26,0) +IPV4^400^402^^^1^0 +"DATA",811.8,186,120,1,1,27,0) +IPV3^415^417^^^1^0 +"DATA",811.8,186,120,1,1,28,0) +IPV2^430^432^^^1^0 +"DATA",811.8,186,120,1,1,29,0) +DTaP5^445^447^^^1^0 +"DATA",811.8,186,120,1,1,30,0) +DTaP4^460^462^^^1^0 +"DATA",811.8,186,120,1,1,31,0) +DTaP3^475^477^^^1^0 +"DATA",811.8,186,120,1,1,32,0) +DTaP2^490^492^^^1^0 +"DATA",811.8,186,120,1,1,33,0) +DTaP1^505^507^^^1^0 +"DATA",811.8,186,120,2,0) +HEALTH FACTORS^9999999.64^33 +"DATA",811.8,186,120,2,1,0) +^811.8021A^33^33 +"DATA",811.8,186,120,2,1,1,0) +BMI MANAGEMENT OPTIONS^520^521^^^1^0 +"DATA",811.8,186,120,2,1,2,0) +BMI DIETARY CONSULT DONE^534^537^^^1^0 +"DATA",811.8,186,120,2,1,3,0) +BMI CARE GOAL DOCUMENTED^550^553^^^1^0 +"DATA",811.8,186,120,2,1,4,0) +SNOMED CODES^566^567^^^1^0 +"DATA",811.8,186,120,2,1,5,0) +395700008^580^584^^^1^0 +"DATA",811.8,186,120,2,1,6,0) +384742004^597^601^^^1^0 +"DATA",811.8,186,120,2,1,7,0) +225323000^614^618^^^1^0 +"DATA",811.8,186,120,2,1,8,0) +SMOKING STATUS RECODE^631^632^^^1^0 +"DATA",811.8,186,120,2,1,9,0) +009^645^648^^^1^0 +"DATA",811.8,186,120,2,1,10,0) +MU SMOKING STATUS^661^662^^^1^0 +"DATA",811.8,186,120,2,1,11,0) +STATUS-UNKNOWN IF EVER SMOKED (009)^675^679^^^1^0 +"DATA",811.8,186,120,2,1,12,0) +005^692^695^^^1^0 +"DATA",811.8,186,120,2,1,13,0) +STATUS-SMOKER, CURRENT STATUS UNK (005)^708^712^^^1^0 +"DATA",811.8,186,120,2,1,14,0) +004^725^728^^^1^0 +"DATA",811.8,186,120,2,1,15,0) +STATUS-NEVER SMOKER (004)^741^745^^^1^0 +"DATA",811.8,186,120,2,1,16,0) +003^758^761^^^1^0 +"DATA",811.8,186,120,2,1,17,0) +STATUS-FORMER SMOKER (003)^774^778^^^1^0 +"DATA",811.8,186,120,2,1,18,0) +002^791^794^^^1^0 +"DATA",811.8,186,120,2,1,19,0) +STATUS-CURRENT SOME DAY SMOKER (002)^807^811^^^1^0 +"DATA",811.8,186,120,2,1,20,0) +001^824^827^^^1^0 +"DATA",811.8,186,120,2,1,21,0) +STATUS-CURRENT EVERY DAY SMOKER (001)^840^844^^^1^0 +"DATA",811.8,186,120,2,1,22,0) +110483000^857^861^^^1^0 +"DATA",811.8,186,120,2,1,23,0) +228504007^874^878^^^1^0 +"DATA",811.8,186,120,2,1,24,0) +228491005^891^895^^^1^0 +"DATA",811.8,186,120,2,1,25,0) +TOBACCO^908^911^^^1^0 +"DATA",811.8,186,120,2,1,26,0) +CURRENT NON-SMOKER^924^928^^^1^0 +"DATA",811.8,186,120,2,1,27,0) +105539002^941^945^^^1^0 +"DATA",811.8,186,120,2,1,28,0) +Current every day smoker (001)^958^961^^^1^0 +"DATA",811.8,186,120,2,1,29,0) +Current some day smoker^974^977^^^1^0 +"DATA",811.8,186,120,2,1,30,0) +Former Smoker^990^993^^^1^0 +"DATA",811.8,186,120,2,1,31,0) +Never Smoker^1006^1009^^^1^0 +"DATA",811.8,186,120,2,1,32,0) +Smoker, current status unknown^1022^1025^^^1^0 +"DATA",811.8,186,120,2,1,33,0) +Unknown if ever smoked^1038^1041^^^1^0 +"DATA",811.8,186,120,3,0) +REMINDER TERM^811.5^1 +"DATA",811.8,186,120,3,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,3,1,1,0) +MU SMOKING STATUS HF^1054^1070^1075^1081^1^0 +"DATA",811.8,186,120,4,0) +REMINDER DEFINITION^811.9^1 +"DATA",811.8,186,120,4,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,4,1,1,0) +MU SMOKING STATUS^1094^1133^1138^1140^1^1 +"DATA",811.8,186,120,5,0) +REMINDER DIALOG^801.41^83 +"DATA",811.8,186,120,5,1,0) +^811.8021A^83^83 +"DATA",811.8,186,120,5,1,1,0) +PXRM COMMENT^1153^1160^1165^1165^1^0 +"DATA",811.8,186,120,5,1,2,0) +MU NQF0421 BMI CONSULT EL^1178^1190^1195^1196^1^0 +"DATA",811.8,186,120,5,1,3,0) +MU NQF0421 BMI MANAGEMENT PLAN EL^1209^1221^1226^1227^1^0 +"DATA",811.8,186,120,5,1,4,0) +MU NQF0421 BMI MANAGEMENT GP^1240^1257^1262^1264^1^0 +"DATA",811.8,186,120,5,1,5,0) +MU NQF0421 BMI DI^1277^1284^1289^1290^1^1 +"DATA",811.8,186,120,5,1,6,0) +PXRM OUTSIDE LOCATION^1303^1310^1315^1315^1^0 +"DATA",811.8,186,120,5,1,7,0) +PXRM VISIT DATE^1328^1335^1340^1340^1^0 +"DATA",811.8,186,120,5,1,8,0) +MU NQF0041 FLU HISTORICAL EL^1353^1366^1371^1373^1^0 +"DATA",811.8,186,120,5,1,9,0) +MU NQF0041 FLU VACCINE GP^1386^1401^1406^1407^1^0 +"DATA",811.8,186,120,5,1,10,0) +MU NQF0041 INFLUENZA MANAGEMENT DI^1420^1427^1432^1433^1^1 +"DATA",811.8,186,120,5,1,11,0) +MU NQF0038 FLU2 EL^1446^1459^1464^1466^1^0 +"DATA",811.8,186,120,5,1,12,0) +MU NQF0038 FLU1 EL^1479^1492^1497^1499^1^0 +"DATA",811.8,186,120,5,1,13,0) +MU NQF0038 FLU GP^1512^1529^1534^1536^1^0 +"DATA",811.8,186,120,5,1,14,0) +MU NQF0038 RV3 EL^1549^1562^1567^1569^1^0 +"DATA",811.8,186,120,5,1,15,0) +MU NQF0038 RV2 EL^1582^1595^1600^1602^1^0 +"DATA",811.8,186,120,5,1,16,0) +MU NQF0038 RV1 EL^1615^1628^1633^1635^1^0 +"DATA",811.8,186,120,5,1,17,0) +MU NQF0038 RV GP^1648^1667^1672^1675^1^0 +"DATA",811.8,186,120,5,1,18,0) +MU NQF0038 HEP A3 EL^1688^1701^1706^1708^1^0 +"DATA",811.8,186,120,5,1,19,0) +MU NQF0038 HEP A2 EL^1721^1734^1739^1741^1^0 +"DATA",811.8,186,120,5,1,20,0) +MU NQF0038 HEP A1 EL^1754^1767^1772^1774^1^0 +"DATA",811.8,186,120,5,1,21,0) +MU NQF0038 HEP A GP^1787^1806^1811^1814^1^0 +"DATA",811.8,186,120,5,1,22,0) +MU NQF0038 PCV5 EL^1827^1840^1845^1847^1^0 +"DATA",811.8,186,120,5,1,23,0) +MU NQF0038 PCV4 EL^1860^1873^1878^1880^1^0 +"DATA",811.8,186,120,5,1,24,0) +MU NQF0038 PCV3 EL^1893^1906^1911^1913^1^0 +"DATA",811.8,186,120,5,1,25,0) +MU NQF0038 PCV2 EL^1926^1939^1944^1946^1^0 +"DATA",811.8,186,120,5,1,26,0) +MU NQF0038 PCV1 EL^1959^1972^1977^1979^1^0 +"DATA",811.8,186,120,5,1,27,0) +MU NQF0038 PCV GP^1992^2015^2020^2025^1^0 +"DATA",811.8,186,120,5,1,28,0) +MU NQF0038 VZV1 EL^2038^2051^2056^2058^1^0 +"DATA",811.8,186,120,5,1,29,0) +MU NQF0038 VZV GP^2071^2086^2091^2092^1^0 +"DATA",811.8,186,120,5,1,30,0) +MU NQF0038 HEP B4 EL^2105^2118^2123^2125^1^0 +"DATA",811.8,186,120,5,1,31,0) +MU NQF0038 HEP B3 EL^2138^2151^2156^2158^1^0 +"DATA",811.8,186,120,5,1,32,0) +MU NQF0038 HEP B2 EL^2171^2184^2189^2191^1^0 +"DATA",811.8,186,120,5,1,33,0) +MU NQF0038 HEP B1 EL^2204^2217^2222^2224^1^0 +"DATA",811.8,186,120,5,1,34,0) +MU NQF0038 HEP B GP^2237^2258^2263^2267^1^0 +"DATA",811.8,186,120,5,1,35,0) +MU NQF0038 HIB4 EL^2280^2293^2298^2300^1^0 +"DATA",811.8,186,120,5,1,36,0) +MU NQF0038 HIB3 EL^2313^2326^2331^2333^1^0 +"DATA",811.8,186,120,5,1,37,0) +MU NQF0038 HIB2 EL^2346^2359^2364^2366^1^0 +"DATA",811.8,186,120,5,1,38,0) +MU NQF0038 HIB1 EL^2379^2392^2397^2399^1^0 +"DATA",811.8,186,120,5,1,39,0) +MU NQF0038 HIB GP^2412^2433^2438^2442^1^0 +"DATA",811.8,186,120,5,1,40,0) +MU NQF0038 MMR2 EL^2455^2468^2473^2475^1^0 +"DATA",811.8,186,120,5,1,41,0) +MU NQF0038 MMR1^2488^2501^2506^2508^1^0 +"DATA",811.8,186,120,5,1,42,0) +MU NQF0038 MMR GP^2521^2538^2543^2545^1^0 +"DATA",811.8,186,120,5,1,43,0) +MU NQF0038 IVP1 EL^2558^2571^2576^2578^1^0 +"DATA",811.8,186,120,5,1,44,0) +MU NQF0038 IPV4 EL^2591^2604^2609^2611^1^0 +"DATA",811.8,186,120,5,1,45,0) +MU NQF0038 IPV3 EL^2624^2637^2642^2644^1^0 +"DATA",811.8,186,120,5,1,46,0) +MU NQF0038 IPV2 EL^2657^2670^2675^2677^1^0 +"DATA",811.8,186,120,5,1,47,0) +MU NQF0038 IPV GP^2690^2711^2716^2720^1^0 +"DATA",811.8,186,120,5,1,48,0) +MU NQF0038 DTAP5 EL^2733^2748^2753^2755^1^0 +"DATA",811.8,186,120,5,1,49,0) +MU NQF0038 DTAP4 EL^2768^2783^2788^2790^1^0 +"DATA",811.8,186,120,5,1,50,0) +MU NQF0038 DTAP3 EL^2803^2818^2823^2825^1^0 +"DATA",811.8,186,120,5,1,51,0) +MU NQF0038 DTAP2 EL^2838^2853^2858^2860^1^0 +"DATA",811.8,186,120,5,1,52,0) +MU NQF0038 DPT1 EL^2873^2888^2893^2895^1^0 +"DATA",811.8,186,120,5,1,53,0) +MU NQF0038 DTP MANAGE GP^2908^2931^2936^2941^1^0 +"DATA",811.8,186,120,5,1,54,0) +MU NQF0038 INFO EL^2954^3000^3005^3005^1^0 +"DATA",811.8,186,120,5,1,55,0) +MU NQF0038 INFANT IMMUNE MANAGEMENT BANNER GP^3018^3036^3041^3043^1^0 +"DATA",811.8,186,120,5,1,56,0) +MU NQF0038 IMMUNE MANAGEMENT DI^3056^3081^3086^3096^1^1 +"DATA",811.8,186,120,5,1,57,0) +MU NQF0028AB TOBACCO REFERRAL EL^3109^3122^3127^3128^1^0 +"DATA",811.8,186,120,5,1,58,0) +MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL^3141^3154^3159^3160^1^0 +"DATA",811.8,186,120,5,1,59,0) +MU NQF0028AB TOBACCO COUNSELING TODAY EL^3173^3186^3191^3192^1^0 +"DATA",811.8,186,120,5,1,60,0) +MU NQF0028B TOBACCO INTERVENTION GP^3205^3225^3230^3233^1^0 +"DATA",811.8,186,120,5,1,61,0) +PXRM ADD TO PROBLEM LIST^3246^3255^3260^3260^1^0 +"DATA",811.8,186,120,5,1,62,0) +MU NQF0028 TOBACCO USE-ADD DX EL^3273^3285^3290^3291^1^0 +"DATA",811.8,186,120,5,1,63,0) +MU NQF0028 ADD TO PL GP^3304^3319^3324^3325^1^0 +"DATA",811.8,186,120,5,1,64,0) +MU SMOKING STATUS UNK IF EVER EL^3338^3351^3356^3358^1^0 +"DATA",811.8,186,120,5,1,65,0) +MU SMOKING STATUS SMOKER-UNK EL^3371^3384^3389^3391^1^0 +"DATA",811.8,186,120,5,1,66,0) +MU SMOKING STATUS NEVER SMOKER EL^3404^3414^3419^3420^1^0 +"DATA",811.8,186,120,5,1,67,0) +MU SMOKING STATUS FORMER SMOKER EL^3433^3446^3451^3453^1^0 +"DATA",811.8,186,120,5,1,68,0) +MU SMOKING STATUS CURRENT SOME DAY EL^3466^3479^3484^3486^1^0 +"DATA",811.8,186,120,5,1,69,0) +MU SMOKING STATUS CURRENT EVERY DAY EL^3499^3512^3517^3519^1^0 +"DATA",811.8,186,120,5,1,70,0) +MU SMOKING STATUS GP^3532^3557^3562^3568^1^0 +"DATA",811.8,186,120,5,1,71,0) +MU NQF0028 SMOKING POS GP^3581^3597^3602^3603^1^0 +"DATA",811.8,186,120,5,1,72,0) +MU NQF0028AB SMOKELESS TOBACCO POS SCREEN EL^3616^3629^3634^3635^1^0 +"DATA",811.8,186,120,5,1,73,0) +MU NQF0028A TOBACCO USER GP^3648^3666^3671^3673^1^0 +"DATA",811.8,186,120,5,1,74,0) +MU NQF0028AB SMOKELESS TOBACCO NEGATIVE EL^3686^3699^3704^3705^1^0 +"DATA",811.8,186,120,5,1,75,0) +MU NQF0028AB NONSMOKER SCREEN EL^3718^3732^3737^3739^1^0 +"DATA",811.8,186,120,5,1,76,0) +MU NQF0028A TOBACCO NONUSER GP^3752^3770^3775^3777^1^0 +"DATA",811.8,186,120,5,1,77,0) +MU NQF0028A MANAGMENT SCREEN GP^3790^3808^3813^3815^1^0 +"DATA",811.8,186,120,5,1,78,0) +PQRI M0028 INFO EL^3828^3839^3844^3844^1^0 +"DATA",811.8,186,120,5,1,79,0) +PQRI M0028 INFO GP^3857^3873^3878^3879^1^0 +"DATA",811.8,186,120,5,1,80,0) +MU NQF0028AB MANAGEMENT DI^3892^3907^3912^3917^1^1 +"DATA",811.8,186,120,5,1,81,0) +MU SMOKING STATUS HISTORY EL^3930^3938^3943^3943^1^0 +"DATA",811.8,186,120,5,1,82,0) +MU SMOKING STATUS HX GP^3956^3969^3974^3975^1^0 +"DATA",811.8,186,120,5,1,83,0) +MU SMOKING STATUS DI^3988^3998^4003^4005^1^1 +"DATA",811.8,186,120,6,0) +HEALTH SUMMARY COMPONENT^142.1^1 +"DATA",811.8,186,120,6,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,6,1,1,0) +PCE HEALTH FACTORS SELECTED^4018^4018^^^0^0 +"DATA",811.8,186,120,7,0) +HEALTH SUMMARY TYPE^142^1 +"DATA",811.8,186,120,7,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,7,1,1,0) +MU SMOKING STATUS HS^4031^4042^4047^4049^1^1 +"DATA",811.8,186,120,8,0) +HEALTH SUMMARY OBJECTS^142.5^1 +"DATA",811.8,186,120,8,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,8,1,1,0) +MU SMOKING STATUS (TIU)^4062^4079^^^1^1 +"DATA",811.8,186,120,9,0) +TIU DOCUMENT DEFINITION^8925.1^1 +"DATA",811.8,186,120,9,1,0) +^811.8021A^1^1 +"DATA",811.8,186,120,9,1,1,0) +MU SMOKING STATUS^4092^4097^^^1^1 +"DATA",811.8,186,130,0) +^811.803DA^2^2 +"DATA",811.8,186,130,1,0) +3120803.105544^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,186,130,1,1,0) +^811.8031A^71^71 +"DATA",811.8,186,130,1,1,1,0) +1^IMMUNIZATION^FLU,3 YRS^S^ +"DATA",811.8,186,130,1,1,2,0) +2^IMMUNIZATION^INFLUENZA^S^ +"DATA",811.8,186,130,1,1,3,0) +3^IMMUNIZATION^RV 3 PEDS^S^ +"DATA",811.8,186,130,1,1,4,0) +4^IMMUNIZATION^RV 2 PEDS^S^ +"DATA",811.8,186,130,1,1,5,0) +5^IMMUNIZATION^RV 1 PEDS^S^ +"DATA",811.8,186,130,1,1,6,0) +6^IMMUNIZATION^HEP A3 PEDS^S^ +"DATA",811.8,186,130,1,1,7,0) +7^IMMUNIZATION^HEP A2 PEDS^S^ +"DATA",811.8,186,130,1,1,8,0) +8^IMMUNIZATION^HEP A1 PEDS^S^ +"DATA",811.8,186,130,1,1,9,0) +9^IMMUNIZATION^PCV5 PEDS^S^ +"DATA",811.8,186,130,1,1,10,0) +10^IMMUNIZATION^PCV4 PEDS^S^ +"DATA",811.8,186,130,1,1,11,0) +11^IMMUNIZATION^PCV3 PEDS^S^ +"DATA",811.8,186,130,1,1,12,0) +12^IMMUNIZATION^PCV2 PEDS^S^ +"DATA",811.8,186,130,1,1,13,0) +13^IMMUNIZATION^PCV1 PEDS^S^ +"DATA",811.8,186,130,1,1,14,0) +14^IMMUNIZATION^VZV1 INFANT^S^ +"DATA",811.8,186,130,1,1,15,0) +15^IMMUNIZATION^HEP B4 INFANT^S^ +"DATA",811.8,186,130,1,1,16,0) +16^IMMUNIZATION^HEP B3 INFANT^S^ +"DATA",811.8,186,130,1,1,17,0) +17^IMMUNIZATION^HEP B2 INFANT^S^ +"DATA",811.8,186,130,1,1,18,0) +18^IMMUNIZATION^HEP B1 INFANT^S^ +"DATA",811.8,186,130,1,1,19,0) +19^IMMUNIZATION^HIB PED 4^S^ +"DATA",811.8,186,130,1,1,20,0) +20^IMMUNIZATION^HIB PED 3^S^ +"DATA",811.8,186,130,1,1,21,0) +21^IMMUNIZATION^HIB PED 2^S^ +"DATA",811.8,186,130,1,1,22,0) +22^IMMUNIZATION^HIB PED 1^S^ +"DATA",811.8,186,130,1,1,23,0) +23^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #2^S^ +"DATA",811.8,186,130,1,1,24,0) +24^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #1^S^ +"DATA",811.8,186,130,1,1,25,0) +25^IMMUNIZATION^IPV1^S^ +"DATA",811.8,186,130,1,1,26,0) +26^IMMUNIZATION^IPV4^S^ +"DATA",811.8,186,130,1,1,27,0) +27^IMMUNIZATION^IPV3^S^ +"DATA",811.8,186,130,1,1,28,0) +28^IMMUNIZATION^IPV2^S^ +"DATA",811.8,186,130,1,1,29,0) +29^IMMUNIZATION^DTaP5^S^ +"DATA",811.8,186,130,1,1,30,0) +30^IMMUNIZATION^DTaP4^S^ +"DATA",811.8,186,130,1,1,31,0) +31^IMMUNIZATION^DTaP3^S^ +"DATA",811.8,186,130,1,1,32,0) +32^IMMUNIZATION^DTaP2^S^ +"DATA",811.8,186,130,1,1,33,0) +33^IMMUNIZATION^DTaP1^S^ +"DATA",811.8,186,130,1,1,34,0) +34^HEALTH FACTORS^BMI MANAGEMENT OPTIONS^S^ +"DATA",811.8,186,130,1,1,35,0) +35^HEALTH FACTORS^BMI DIETARY CONSULT DONE^S^ +"DATA",811.8,186,130,1,1,36,0) +36^HEALTH FACTORS^BMI CARE GOAL DOCUMENTED^S^ +"DATA",811.8,186,130,1,1,37,0) +37^HEALTH FACTORS^SNOMED CODES^S^ +"DATA",811.8,186,130,1,1,38,0) +38^HEALTH FACTORS^395700008^S^ +"DATA",811.8,186,130,1,1,39,0) +39^HEALTH FACTORS^384742004^S^ +"DATA",811.8,186,130,1,1,40,0) +40^HEALTH FACTORS^225323000^S^ +"DATA",811.8,186,130,1,1,41,0) +41^HEALTH FACTORS^SMOKING STATUS RECODE^S^ +"DATA",811.8,186,130,1,1,42,0) +42^HEALTH FACTORS^009^S^ +"DATA",811.8,186,130,1,1,43,0) +43^HEALTH FACTORS^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,1,1,44,0) +44^HEALTH FACTORS^STATUS-UNKNOWN IF EVER SMOKED (009)^S^ +"DATA",811.8,186,130,1,1,45,0) +45^HEALTH FACTORS^005^S^ +"DATA",811.8,186,130,1,1,46,0) +46^HEALTH FACTORS^STATUS-SMOKER, CURRENT STATUS UNK (005)^S^ +"DATA",811.8,186,130,1,1,47,0) +47^HEALTH FACTORS^004^S^ +"DATA",811.8,186,130,1,1,48,0) +48^HEALTH FACTORS^STATUS-NEVER SMOKER (004)^S^ +"DATA",811.8,186,130,1,1,49,0) +49^HEALTH FACTORS^003^S^ +"DATA",811.8,186,130,1,1,50,0) +50^HEALTH FACTORS^STATUS-FORMER SMOKER (003)^S^ +"DATA",811.8,186,130,1,1,51,0) +51^HEALTH FACTORS^002^S^ +"DATA",811.8,186,130,1,1,52,0) +52^HEALTH FACTORS^STATUS-CURRENT SOME DAY SMOKER (002)^S^ +"DATA",811.8,186,130,1,1,53,0) +53^HEALTH FACTORS^001^S^ +"DATA",811.8,186,130,1,1,54,0) +54^HEALTH FACTORS^STATUS-CURRENT EVERY DAY SMOKER (001)^S^ +"DATA",811.8,186,130,1,1,55,0) +55^HEALTH FACTORS^110483000^S^ +"DATA",811.8,186,130,1,1,56,0) +56^HEALTH FACTORS^228504007^S^ +"DATA",811.8,186,130,1,1,57,0) +57^HEALTH FACTORS^228491005^S^ +"DATA",811.8,186,130,1,1,58,0) +58^HEALTH FACTORS^TOBACCO^S^ +"DATA",811.8,186,130,1,1,59,0) +59^HEALTH FACTORS^CURRENT NON-SMOKER^S^ +"DATA",811.8,186,130,1,1,60,0) +60^HEALTH FACTORS^105539002^S^ +"DATA",811.8,186,130,1,1,61,0) +61^HEALTH FACTORS^Current every day smoker (001)^S^ +"DATA",811.8,186,130,1,1,62,0) +62^HEALTH FACTORS^Current some day smoker^S^ +"DATA",811.8,186,130,1,1,63,0) +63^HEALTH FACTORS^Former Smoker^S^ +"DATA",811.8,186,130,1,1,64,0) +64^HEALTH FACTORS^Never Smoker^S^ +"DATA",811.8,186,130,1,1,65,0) +65^HEALTH FACTORS^Smoker, current status unknown^S^ +"DATA",811.8,186,130,1,1,66,0) +66^HEALTH FACTORS^Unknown if ever smoked^S^ +"DATA",811.8,186,130,1,1,67,0) +67^REMINDER TERM^MU SMOKING STATUS HF^S^ +"DATA",811.8,186,130,1,1,68,0) +68^REMINDER DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,1,1,69,0) +74^HEALTH SUMMARY TYPE^MU SMOKING STATUS HS^S^ +"DATA",811.8,186,130,1,1,70,0) +75^HEALTH SUMMARY OBJECTS^MU SMOKING STATUS (TIU)^O^ +"DATA",811.8,186,130,1,1,71,0) +76^TIU DOCUMENT DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,0) +3120803.1101^MANAGER,SYSTEM^INTERACTIVE +"DATA",811.8,186,130,2,1,0) +^811.8031A^183^183 +"DATA",811.8,186,130,2,1,1,0) +1^IMMUNIZATION^FLU,3 YRS^S^ +"DATA",811.8,186,130,2,1,2,0) +2^IMMUNIZATION^INFLUENZA^S^ +"DATA",811.8,186,130,2,1,3,0) +3^IMMUNIZATION^RV 3 PEDS^S^ +"DATA",811.8,186,130,2,1,4,0) +4^IMMUNIZATION^RV 2 PEDS^S^ +"DATA",811.8,186,130,2,1,5,0) +5^IMMUNIZATION^RV 1 PEDS^S^ +"DATA",811.8,186,130,2,1,6,0) +6^IMMUNIZATION^HEP A3 PEDS^S^ +"DATA",811.8,186,130,2,1,7,0) +7^IMMUNIZATION^HEP A2 PEDS^S^ +"DATA",811.8,186,130,2,1,8,0) +8^IMMUNIZATION^HEP A1 PEDS^S^ +"DATA",811.8,186,130,2,1,9,0) +9^IMMUNIZATION^PCV5 PEDS^S^ +"DATA",811.8,186,130,2,1,10,0) +10^IMMUNIZATION^PCV4 PEDS^S^ +"DATA",811.8,186,130,2,1,11,0) +11^IMMUNIZATION^PCV3 PEDS^S^ +"DATA",811.8,186,130,2,1,12,0) +12^IMMUNIZATION^PCV2 PEDS^S^ +"DATA",811.8,186,130,2,1,13,0) +13^IMMUNIZATION^PCV1 PEDS^S^ +"DATA",811.8,186,130,2,1,14,0) +14^IMMUNIZATION^VZV1 INFANT^S^ +"DATA",811.8,186,130,2,1,15,0) +15^IMMUNIZATION^HEP B4 INFANT^S^ +"DATA",811.8,186,130,2,1,16,0) +16^IMMUNIZATION^HEP B3 INFANT^S^ +"DATA",811.8,186,130,2,1,17,0) +17^IMMUNIZATION^HEP B2 INFANT^S^ +"DATA",811.8,186,130,2,1,18,0) +18^IMMUNIZATION^HEP B1 INFANT^S^ +"DATA",811.8,186,130,2,1,19,0) +19^IMMUNIZATION^HIB PED 4^S^ +"DATA",811.8,186,130,2,1,20,0) +20^IMMUNIZATION^HIB PED 3^S^ +"DATA",811.8,186,130,2,1,21,0) +21^IMMUNIZATION^HIB PED 2^S^ +"DATA",811.8,186,130,2,1,22,0) +22^IMMUNIZATION^HIB PED 1^S^ +"DATA",811.8,186,130,2,1,23,0) +23^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #2^S^ +"DATA",811.8,186,130,2,1,24,0) +24^IMMUNIZATION^MEASLES,MUMPS,RUBELLA PED #1^S^ +"DATA",811.8,186,130,2,1,25,0) +25^IMMUNIZATION^IPV1^S^ +"DATA",811.8,186,130,2,1,26,0) +26^IMMUNIZATION^IPV4^S^ +"DATA",811.8,186,130,2,1,27,0) +27^IMMUNIZATION^IPV3^S^ +"DATA",811.8,186,130,2,1,28,0) +28^IMMUNIZATION^IPV2^S^ +"DATA",811.8,186,130,2,1,29,0) +29^IMMUNIZATION^DTaP5^S^ +"DATA",811.8,186,130,2,1,30,0) +30^IMMUNIZATION^DTaP4^S^ +"DATA",811.8,186,130,2,1,31,0) +31^IMMUNIZATION^DTaP3^S^ +"DATA",811.8,186,130,2,1,32,0) +32^IMMUNIZATION^DTaP2^S^ +"DATA",811.8,186,130,2,1,33,0) +33^IMMUNIZATION^DTaP1^S^ +"DATA",811.8,186,130,2,1,34,0) +34^HEALTH FACTORS^BMI MANAGEMENT OPTIONS^S^ +"DATA",811.8,186,130,2,1,35,0) +35^HEALTH FACTORS^BMI DIETARY CONSULT DONE^S^ +"DATA",811.8,186,130,2,1,36,0) +36^HEALTH FACTORS^BMI CARE GOAL DOCUMENTED^S^ +"DATA",811.8,186,130,2,1,37,0) +37^HEALTH FACTORS^SNOMED CODES^S^ +"DATA",811.8,186,130,2,1,38,0) +38^HEALTH FACTORS^395700008^S^ +"DATA",811.8,186,130,2,1,39,0) +39^HEALTH FACTORS^384742004^S^ +"DATA",811.8,186,130,2,1,40,0) +40^HEALTH FACTORS^225323000^S^ +"DATA",811.8,186,130,2,1,41,0) +41^HEALTH FACTORS^SMOKING STATUS RECODE^S^ +"DATA",811.8,186,130,2,1,42,0) +42^HEALTH FACTORS^009^S^ +"DATA",811.8,186,130,2,1,43,0) +43^HEALTH FACTORS^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,1,44,0) +44^HEALTH FACTORS^STATUS-UNKNOWN IF EVER SMOKED (009)^S^ +"DATA",811.8,186,130,2,1,45,0) +45^HEALTH FACTORS^005^S^ +"DATA",811.8,186,130,2,1,46,0) +46^HEALTH FACTORS^STATUS-SMOKER, CURRENT STATUS UNK (005)^S^ +"DATA",811.8,186,130,2,1,47,0) +47^HEALTH FACTORS^004^S^ +"DATA",811.8,186,130,2,1,48,0) +48^HEALTH FACTORS^STATUS-NEVER SMOKER (004)^S^ +"DATA",811.8,186,130,2,1,49,0) +49^HEALTH FACTORS^003^S^ +"DATA",811.8,186,130,2,1,50,0) +50^HEALTH FACTORS^STATUS-FORMER SMOKER (003)^S^ +"DATA",811.8,186,130,2,1,51,0) +51^HEALTH FACTORS^002^S^ +"DATA",811.8,186,130,2,1,52,0) +52^HEALTH FACTORS^STATUS-CURRENT SOME DAY SMOKER (002)^S^ +"DATA",811.8,186,130,2,1,53,0) +53^HEALTH FACTORS^001^S^ +"DATA",811.8,186,130,2,1,54,0) +54^HEALTH FACTORS^STATUS-CURRENT EVERY DAY SMOKER (001)^S^ +"DATA",811.8,186,130,2,1,55,0) +55^HEALTH FACTORS^110483000^S^ +"DATA",811.8,186,130,2,1,56,0) +56^HEALTH FACTORS^228504007^S^ +"DATA",811.8,186,130,2,1,57,0) +57^HEALTH FACTORS^228491005^S^ +"DATA",811.8,186,130,2,1,58,0) +58^HEALTH FACTORS^TOBACCO^S^ +"DATA",811.8,186,130,2,1,59,0) +59^HEALTH FACTORS^CURRENT NON-SMOKER^S^ +"DATA",811.8,186,130,2,1,60,0) +60^HEALTH FACTORS^105539002^S^ +"DATA",811.8,186,130,2,1,61,0) +61^HEALTH FACTORS^Current every day smoker (001)^S^ +"DATA",811.8,186,130,2,1,62,0) +62^HEALTH FACTORS^Current some day smoker^S^ +"DATA",811.8,186,130,2,1,63,0) +63^HEALTH FACTORS^Former Smoker^S^ +"DATA",811.8,186,130,2,1,64,0) +64^HEALTH FACTORS^Never Smoker^S^ +"DATA",811.8,186,130,2,1,65,0) +65^HEALTH FACTORS^Smoker, current status unknown^S^ +"DATA",811.8,186,130,2,1,66,0) +66^HEALTH FACTORS^Unknown if ever smoked^S^ +"DATA",811.8,186,130,2,1,67,0) +67^REMINDER TERM^MU SMOKING STATUS HF^S^ +"DATA",811.8,186,130,2,1,68,0) +68^REMINDER DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,1,69,0) +74^HEALTH SUMMARY TYPE^MU SMOKING STATUS HS^S^ +"DATA",811.8,186,130,2,1,70,0) +75^HEALTH SUMMARY OBJECTS^MU SMOKING STATUS (TIU)^O^ +"DATA",811.8,186,130,2,1,71,0) +76^TIU DOCUMENT DEFINITION^MU SMOKING STATUS^S^ +"DATA",811.8,186,130,2,1,72,0) +1^REMINDER DIALOG^MU NQF0028AB MANAGEMENT DI^O^ +"DATA",811.8,186,130,2,1,73,0) +2^REMINDER DIALOG^MU NQF0038 INFANT IMMUNE MANAGEMENT BANNER GP^S^ +"DATA",811.8,186,130,2,1,74,0) +3^REMINDER DIALOG^MU NQF0038 INFO EL^S^ +"DATA",811.8,186,130,2,1,75,0) +4^REMINDER DIALOG^MU NQF0028A MANAGMENT SCREEN GP^S^ +"DATA",811.8,186,130,2,1,76,0) +5^REMINDER DIALOG^MU NQF0028A TOBACCO NONUSER GP^S^ +"DATA",811.8,186,130,2,1,77,0) +6^REMINDER DIALOG^MU NQF0028AB NONSMOKER SCREEN EL^S^ +"DATA",811.8,186,130,2,1,78,0) +7^REMINDER DIALOG^MU SMOKING STATUS CURRENT SOME DAY EL^S^ +"DATA",811.8,186,130,2,1,79,0) +8^REMINDER DIALOG^MU NQF0028AB SMOKELESS TOBACCO NEGATIVE EL^S^ +"DATA",811.8,186,130,2,1,80,0) +9^REMINDER DIALOG^MU SMOKING STATUS FORMER SMOKER EL^S^ +"DATA",811.8,186,130,2,1,81,0) +10^REMINDER DIALOG^MU NQF0028A TOBACCO USER GP^O^ +"DATA",811.8,186,130,2,1,82,0) +11^REMINDER DIALOG^MU NQF0028 SMOKING POS GP^S^ +"DATA",811.8,186,130,2,1,83,0) +12^REMINDER DIALOG^MU SMOKING STATUS GP^S^ +"DATA",811.8,186,130,2,1,84,0) +13^REMINDER DIALOG^MU SMOKING STATUS CURRENT EVERY DAY EL^S^ +"DATA",811.8,186,130,2,1,85,0) +14^REMINDER DIALOG^MU NQF0038 DTAP4 EL^S^ +"DATA",811.8,186,130,2,1,86,0) +15^REMINDER DIALOG^MU SMOKING STATUS CURRENT SOME DAY EL^S^ +"DATA",811.8,186,130,2,1,87,0) +16^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,88,0) +17^REMINDER DIALOG^MU NQF0038 DTAP5 EL^S^ +"DATA",811.8,186,130,2,1,89,0) +18^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,90,0) +19^REMINDER DIALOG^MU SMOKING STATUS NEVER SMOKER EL^S^ +"DATA",811.8,186,130,2,1,91,0) +20^REMINDER DIALOG^MU NQF0038 IPV GP^S^ +"DATA",811.8,186,130,2,1,92,0) +21^REMINDER DIALOG^MU NQF0038 IVP1 EL^S^ +"DATA",811.8,186,130,2,1,93,0) +22^REMINDER DIALOG^MU SMOKING STATUS UNK IF EVER EL^S^ +"DATA",811.8,186,130,2,1,94,0) +23^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,95,0) +24^REMINDER DIALOG^MU NQF0028AB SMOKELESS TOBACCO POS SCREEN EL^S^ +"DATA",811.8,186,130,2,1,96,0) +25^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,97,0) +26^REMINDER DIALOG^MU NQF0028B TOBACCO INTERVENTION GP^S^ +"DATA",811.8,186,130,2,1,98,0) +27^REMINDER DIALOG^MU NQF0028AB TOBACCO COUNSELING TODAY EL^S^ +"DATA",811.8,186,130,2,1,99,0) +28^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,100,0) +29^REMINDER DIALOG^MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL^S^ +"DATA",811.8,186,130,2,1,101,0) +30^REMINDER DIALOG^MU NQF0038 IPV4 EL^S^ +"DATA",811.8,186,130,2,1,102,0) +31^REMINDER DIALOG^MU NQF0028AB TOBACCO REFERRAL EL^S^ +"DATA",811.8,186,130,2,1,103,0) +32^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,104,0) +33^REMINDER DIALOG^MU NQF0028 ADD TO PL GP^S^ +"DATA",811.8,186,130,2,1,105,0) +34^REMINDER DIALOG^MU NQF0028 TOBACCO USE-ADD DX EL^S^ +"DATA",811.8,186,130,2,1,106,0) +35^REMINDER DIALOG^PXRM ADD TO PROBLEM LIST^S^ +"DATA",811.8,186,130,2,1,107,0) +36^REMINDER DIALOG^MU NQF0028B TOBACCO INTERVENTION GP^S^ +"DATA",811.8,186,130,2,1,108,0) +37^REMINDER DIALOG^MU NQF0028AB TOBACCO COUNSELING TODAY EL^S^ +"DATA",811.8,186,130,2,1,109,0) +38^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,110,0) +39^REMINDER DIALOG^MU NQF0028AB TOBACCO ASSISTANCE PROGRM EL^S^ +"DATA",811.8,186,130,2,1,111,0) +40^REMINDER DIALOG^MU NQF0038 HIB GP^S^ +"DATA",811.8,186,130,2,1,112,0) +41^REMINDER DIALOG^MU NQF0028AB TOBACCO REFERRAL EL^S^ +"DATA",811.8,186,130,2,1,113,0) +42^REMINDER DIALOG^PXRM COMMENT^S^ +"DATA",811.8,186,130,2,1,114,0) +43^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,115,0) +44^REMINDER DIALOG^MU NQF0038 HIB2 EL^S^ +"DATA",811.8,186,130,2,1,116,0) +45^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,117,0) +46^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,118,0) +47^REMINDER DIALOG^MU NQF0038 HIB3 EL^S^ +"DATA",811.8,186,130,2,1,119,0) +48^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,120,0) +49^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,121,0) +50^REMINDER DIALOG^MU NQF0038 HIB4 EL^S^ +"DATA",811.8,186,130,2,1,122,0) +51^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,123,0) +52^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,124,0) +53^REMINDER DIALOG^MU NQF0038 HEP B GP^S^ +"DATA",811.8,186,130,2,1,125,0) +54^REMINDER DIALOG^MU NQF0038 HEP B1 EL^S^ +"DATA",811.8,186,130,2,1,126,0) +55^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,127,0) +56^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,128,0) +57^REMINDER DIALOG^MU NQF0038 HEP B2 EL^S^ +"DATA",811.8,186,130,2,1,129,0) +58^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,130,0) +59^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,131,0) +60^REMINDER DIALOG^MU NQF0038 HEP B3 EL^S^ +"DATA",811.8,186,130,2,1,132,0) +61^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,133,0) +62^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,134,0) +63^REMINDER DIALOG^MU NQF0038 HEP B4 EL^S^ +"DATA",811.8,186,130,2,1,135,0) +64^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,136,0) +65^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,137,0) +66^REMINDER DIALOG^MU NQF0038 VZV GP^S^ +"DATA",811.8,186,130,2,1,138,0) +67^REMINDER DIALOG^MU NQF0038 VZV1 EL^S^ +"DATA",811.8,186,130,2,1,139,0) +68^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,140,0) +69^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,141,0) +70^REMINDER DIALOG^MU NQF0038 PCV GP^S^ +"DATA",811.8,186,130,2,1,142,0) +71^REMINDER DIALOG^MU NQF0038 PCV1 EL^S^ +"DATA",811.8,186,130,2,1,143,0) +72^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,144,0) +73^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,145,0) +74^REMINDER DIALOG^MU NQF0038 PCV2 EL^S^ +"DATA",811.8,186,130,2,1,146,0) +75^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,147,0) +76^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,148,0) +77^REMINDER DIALOG^MU NQF0038 PCV3 EL^S^ +"DATA",811.8,186,130,2,1,149,0) +78^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,150,0) +79^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,151,0) +80^REMINDER DIALOG^MU NQF0038 PCV4 EL^S^ +"DATA",811.8,186,130,2,1,152,0) +81^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,153,0) +82^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,154,0) +83^REMINDER DIALOG^MU NQF0038 PCV5 EL^S^ +"DATA",811.8,186,130,2,1,155,0) +84^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,156,0) +85^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,157,0) +86^REMINDER DIALOG^MU NQF0038 HEP A GP^S^ +"DATA",811.8,186,130,2,1,158,0) +87^REMINDER DIALOG^MU NQF0038 HEP A1 EL^S^ +"DATA",811.8,186,130,2,1,159,0) +88^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,160,0) +89^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,161,0) +90^REMINDER DIALOG^MU NQF0038 HEP A2 EL^S^ +"DATA",811.8,186,130,2,1,162,0) +91^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,163,0) +92^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,164,0) +93^REMINDER DIALOG^MU NQF0038 HEP A3 EL^S^ +"DATA",811.8,186,130,2,1,165,0) +94^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,166,0) +95^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,167,0) +96^REMINDER DIALOG^MU NQF0038 RV GP^S^ +"DATA",811.8,186,130,2,1,168,0) +97^REMINDER DIALOG^MU NQF0038 RV1 EL^S^ +"DATA",811.8,186,130,2,1,169,0) +98^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,170,0) +99^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,171,0) +100^REMINDER DIALOG^MU NQF0038 RV2 EL^S^ +"DATA",811.8,186,130,2,1,172,0) +101^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,173,0) +102^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,174,0) +103^REMINDER DIALOG^MU NQF0038 RV3 EL^S^ +"DATA",811.8,186,130,2,1,175,0) +104^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,176,0) +105^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,177,0) +106^REMINDER DIALOG^MU NQF0038 FLU GP^S^ +"DATA",811.8,186,130,2,1,178,0) +107^REMINDER DIALOG^MU NQF0038 FLU1 EL^S^ +"DATA",811.8,186,130,2,1,179,0) +108^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,180,0) +109^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"DATA",811.8,186,130,2,1,181,0) +110^REMINDER DIALOG^MU NQF0038 FLU2 EL^S^ +"DATA",811.8,186,130,2,1,182,0) +111^REMINDER DIALOG^PXRM VISIT DATE^S^ +"DATA",811.8,186,130,2,1,183,0) +112^REMINDER DIALOG^PXRM OUTSIDE LOCATION^S^ +"FIA",811.8) +REMINDER EXCHANGE +"FIA",811.8,0) +^PXD(811.8, +"FIA",811.8,0,0) +811.8s +"FIA",811.8,0,1) +y^y^f^^n^^y^o^n +"FIA",811.8,0,10) + +"FIA",811.8,0,11) +I $$EXFINC^C0Q1P2(Y) +"FIA",811.8,0,"RLRO") + +"FIA",811.8,0,"VR") +1.0^C0Q +"FIA",811.8,811.8) +0 +"FIA",811.8,811.801) +0 +"FIA",811.8,811.802) +0 +"FIA",811.8,811.8021) +0 +"FIA",811.8,811.803) +0 +"FIA",811.8,811.8031) +0 +"FIA",811.8,811.80315) +0 +"FIA",811.8,811.804) +0 +"INI") +PRE^C0Q1P2 +"INIT") +POST^C0Q1P2 +"IX",811.8,811.8,"B",0) +811.8^B^Uniqueness Index for Key 'A' of File #811.8^R^^R^IR^I^811.8^^^^^LS +"IX",811.8,811.8,"B",1) +S ^PXD(811.8,"B",X(1),X(2),DA)="" +"IX",811.8,811.8,"B",2) +K ^PXD(811.8,"B",X(1),X(2),DA) +"IX",811.8,811.8,"B",2.5) +K ^PXD(811.8,"B") +"IX",811.8,811.8,"B",11.1,0) +^.114IA^2^2 +"IX",811.8,811.8,"B",11.1,1,0) +1^F^811.8^.01^^1 +"IX",811.8,811.8,"B",11.1,2,0) +2^F^811.8^.03^^2 +"IX",811.8,811.8,"D",0) +811.8^D^Cross-reference on date and time^R^^F^IR^I^811.8^^^^^LS +"IX",811.8,811.8,"D",1) +S ^PXD(811.8,"D",X,DA)="" +"IX",811.8,811.8,"D",2) +K ^PXD(811.8,"D",X,DA) +"IX",811.8,811.8,"D",2.5) +K ^PXD(811.8,"D") +"IX",811.8,811.8,"D",11.1,0) +^.114IA^1^1 +"IX",811.8,811.8,"D",11.1,1,0) +1^F^811.8^.03^^1^F +"IX",811.8,811.8,"D",11.1,1,3) + +"IX",811.8,811.803,"B",0) +811.803^B^New style B cross-reference^R^^F^IR^I^811.803^^^^^LS +"IX",811.8,811.803,"B",1) +S ^PXD(811.8,DA(1),130,"B",X,DA)="" +"IX",811.8,811.803,"B",2) +K ^PXD(811.8,DA(1),130,"B",X,DA) +"IX",811.8,811.803,"B",2.5) +K ^PXD(811.8,DA(1),130,"B") +"IX",811.8,811.803,"B",11.1,0) +^.114IA^1^1 +"IX",811.8,811.803,"B",11.1,1,0) +1^F^811.803^.01^^1^F +"KEY",811.8,811.8,"A",0) +811.8^A^P^845 +"KEY",811.8,811.8,"A",2,0) +^.312IA^2^2 +"KEY",811.8,811.8,"A",2,1,0) +.01^811.8^1 +"KEY",811.8,811.8,"A",2,2,0) +.03^811.8^2 +"KEYPTR",811.8,811.8,"A") +811.8^B +"MBREQ") +0 +"PKG",215,-1) +1^1 +"PKG",215,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",215,20,0) +^9.402P^^ +"PKG",215,22,0) +^9.49I^1^1 +"PKG",215,22,1,0) +1.0^3120731^3120802^8 +"PKG",215,22,1,"PAH",1,0) +2^3120803 +"PKG",215,22,1,"PAH",1,1,0) +^^307^307^3120803 +"PKG",215,22,1,"PAH",1,1,1,0) + Summary +"PKG",215,22,1,"PAH",1,1,2,0) + ======= +"PKG",215,22,1,"PAH",1,1,3,0) + This build contains the reminder rules and extracts for use with the +"PKG",215,22,1,"PAH",1,1,4,0) +Quality Measures package for reporting for Meaningful use Stage I. It +"PKG",215,22,1,"PAH",1,1,5,0) +also installs reminder dialogs for use in populating data for some of the +"PKG",215,22,1,"PAH",1,1,6,0) +Outpatient Measures. +"PKG",215,22,1,"PAH",1,1,7,0) + +"PKG",215,22,1,"PAH",1,1,8,0) + Source, Copyright, & Licensing: +"PKG",215,22,1,"PAH",1,1,9,0) + =============================== +"PKG",215,22,1,"PAH",1,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"PKG",215,22,1,"PAH",1,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"PKG",215,22,1,"PAH",1,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"PKG",215,22,1,"PAH",1,1,13,0) + Copyright WorldVistA 2012. +"PKG",215,22,1,"PAH",1,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"PKG",215,22,1,"PAH",1,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"PKG",215,22,1,"PAH",1,1,16,0) + Released through VISTA Forum. +"PKG",215,22,1,"PAH",1,1,17,0) + +"PKG",215,22,1,"PAH",1,1,18,0) + Functionality: +"PKG",215,22,1,"PAH",1,1,19,0) + ============== +"PKG",215,22,1,"PAH",1,1,20,0) + This patch installs the following reminder rules and selectively extracts +"PKG",215,22,1,"PAH",1,1,21,0) +for these Meaningful Use Stage I measure. +"PKG",215,22,1,"PAH",1,1,22,0) + +"PKG",215,22,1,"PAH",1,1,23,0) + NQF 0024-alt-core_wt-kids +"PKG",215,22,1,"PAH",1,1,24,0) + NQF 0013-core-HTN +"PKG",215,22,1,"PAH",1,1,25,0) + NQF 0028a-core-tobacco-access +"PKG",215,22,1,"PAH",1,1,26,0) + NQF 0028b-core-tobaocc-intervention +"PKG",215,22,1,"PAH",1,1,27,0) + NQF 0041-alt-core-flu +"PKG",215,22,1,"PAH",1,1,28,0) + NQF 0059-option1-DM-Hbalc +"PKG",215,22,1,"PAH",1,1,29,0) + NQF 0061-option3-DM-BP +"PKG",215,22,1,"PAH",1,1,30,0) + NQF 0064-option2-DM-LDL +"PKG",215,22,1,"PAH",1,1,31,0) + NQF 0495 (Education 1 for Inpatient) +"PKG",215,22,1,"PAH",1,1,32,0) + NQF 0497 (Education 2 for Inpatient) +"PKG",215,22,1,"PAH",1,1,33,0) + MU Inpatient Stroke Measures (contains labs) +"PKG",215,22,1,"PAH",1,1,34,0) + - NQF 0435 +"PKG",215,22,1,"PAH",1,1,35,0) + - NQF 0436 +"PKG",215,22,1,"PAH",1,1,36,0) + - NQF 0437 +"PKG",215,22,1,"PAH",1,1,37,0) + - NQF 0438 +"PKG",215,22,1,"PAH",1,1,38,0) + - NQF 0439 +"PKG",215,22,1,"PAH",1,1,39,0) + - NQF 0440 +"PKG",215,22,1,"PAH",1,1,40,0) + - NQF 0441 +"PKG",215,22,1,"PAH",1,1,41,0) + MU Inpatient Venous Thombotic Embolism Measures (contains labs) +"PKG",215,22,1,"PAH",1,1,42,0) + - NQF 0371 +"PKG",215,22,1,"PAH",1,1,43,0) + - NQF 0372 +"PKG",215,22,1,"PAH",1,1,44,0) + - NQF 0373 +"PKG",215,22,1,"PAH",1,1,45,0) + - NQF 0374 +"PKG",215,22,1,"PAH",1,1,46,0) + - NQF 0375 +"PKG",215,22,1,"PAH",1,1,47,0) + - NQF 0376 +"PKG",215,22,1,"PAH",1,1,48,0) + - NQF 0421-core-adult-weight (contains reminder extracts) +"PKG",215,22,1,"PAH",1,1,49,0) + - NQF 0038-alt-core-childImms (contains reminder extracts) +"PKG",215,22,1,"PAH",1,1,50,0) + +"PKG",215,22,1,"PAH",1,1,51,0) +In addition, the following CPRS dialogs are sent in this patch. +"PKG",215,22,1,"PAH",1,1,52,0) + - MU NQF0421 BMI DI +"PKG",215,22,1,"PAH",1,1,53,0) + - MU NQF0041 INFLUENZA MANAGEMENT DI +"PKG",215,22,1,"PAH",1,1,54,0) + - MU NQF0038 IMMUNE MANAGEMENT DI +"PKG",215,22,1,"PAH",1,1,55,0) + - MU NQF0028AB MANAGEMENT DI +"PKG",215,22,1,"PAH",1,1,56,0) + - MU SMOKING STATUS DI +"PKG",215,22,1,"PAH",1,1,57,0) + +"PKG",215,22,1,"PAH",1,1,58,0) +All of this is installed automatically, except if the labs transported in +"PKG",215,22,1,"PAH",1,1,59,0) +the dialog cannot be found, the installer will be prompted to rematch +"PKG",215,22,1,"PAH",1,1,60,0) +them. +"PKG",215,22,1,"PAH",1,1,61,0) + +"PKG",215,22,1,"PAH",1,1,62,0) + Package Elements: +"PKG",215,22,1,"PAH",1,1,63,0) + ================= +"PKG",215,22,1,"PAH",1,1,64,0) + This build transports and installs the following REMINDER EXCHANGE +"PKG",215,22,1,"PAH",1,1,65,0) +entries: +"PKG",215,22,1,"PAH",1,1,66,0) +MU NQF0013 HTN_MK 07/06/2011@15:08:53 +"PKG",215,22,1,"PAH",1,1,67,0) +MU NQF0024-ALL 07/31/2012@17:49:03 +"PKG",215,22,1,"PAH",1,1,68,0) +MU NQF0028 TOBACCO_MK 07/06/2011@15:14:49 +"PKG",215,22,1,"PAH",1,1,69,0) +MU NQF0028AB MANAGEMENT DI 06/08/2011@16:50:31 +"PKG",215,22,1,"PAH",1,1,70,0) +MU NQF0038 CHILD IMM SMH 07/27/2012@17:48:33 +"PKG",215,22,1,"PAH",1,1,71,0) +MU NQF0041 FLU_MK 07/06/2011@15:26:59 +"PKG",215,22,1,"PAH",1,1,72,0) +MU NQF0059_61_64_SMH 07/16/2012@10:46:17 +"PKG",215,22,1,"PAH",1,1,73,0) +MU NQF0421 ADULT BMI SMH 07/26/2012@11:00:17 +"PKG",215,22,1,"PAH",1,1,74,0) +MU STROKE 2.3.4.5.6.8.10 SMH 07/18/2012@10:33:53 +"PKG",215,22,1,"PAH",1,1,75,0) +MU NQF 0495 ED-1 07/17/2012@11:47:55 +"PKG",215,22,1,"PAH",1,1,76,0) +MU NQF 0497 ED-2 07/17/2012@11:50:23 +"PKG",215,22,1,"PAH",1,1,77,0) +MU VTE 1.2.3.4.5.6 SMH 07/20/2012@09:48:30 +"PKG",215,22,1,"PAH",1,1,78,0) +MU CPRS HELP DIS 08/01/2012@18:32:29 +"PKG",215,22,1,"PAH",1,1,79,0) + +"PKG",215,22,1,"PAH",1,1,80,0) + Routines: +"PKG",215,22,1,"PAH",1,1,81,0) + ========= +"PKG",215,22,1,"PAH",1,1,82,0) + C0Q1P2 (Transport and KIDS install routine) +"PKG",215,22,1,"PAH",1,1,83,0) + +"PKG",215,22,1,"PAH",1,1,84,0) + The second line of each of these routines now looks like: +"PKG",215,22,1,"PAH",1,1,85,0) + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 21 +"PKG",215,22,1,"PAH",1,1,86,0) + +"PKG",215,22,1,"PAH",1,1,87,0) + Documentation: +"PKG",215,22,1,"PAH",1,1,88,0) + +"PKG",215,22,1,"PAH",1,1,89,0) + +"PKG",215,22,1,"PAH",1,1,90,0) + Test Sites: +"PKG",215,22,1,"PAH",1,1,91,0) + =========== +"PKG",215,22,1,"PAH",1,1,92,0) + +"PKG",215,22,1,"PAH",1,1,93,0) + +"PKG",215,22,1,"PAH",1,1,94,0) + Compliance: +"PKG",215,22,1,"PAH",1,1,95,0) + =========== +"PKG",215,22,1,"PAH",1,1,96,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",215,22,1,"PAH",1,1,97,0) + Conventions (version 3 April 2007). +"PKG",215,22,1,"PAH",1,1,98,0) + +"PKG",215,22,1,"PAH",1,1,99,0) + Installation Instructions: +"PKG",215,22,1,"PAH",1,1,100,0) + ========================== +"PKG",215,22,1,"PAH",1,1,101,0) + Pre-installation: +"PKG",215,22,1,"PAH",1,1,102,0) + +"PKG",215,22,1,"PAH",1,1,103,0) + Prerequisite patches: +"PKG",215,22,1,"PAH",1,1,104,0) + - PXRM*2.0*12 (Download from VA FOIA Site; part of a Multibuild) +"PKG",215,22,1,"PAH",1,1,105,0) + - PXRM*2.0*17 (Download from VA FOIA Site; part of a Multibuild) +"PKG",215,22,1,"PAH",1,1,106,0) + - TMG*1.0*17 (Download from Trac Server: +"PKG",215,22,1,"PAH",1,1,107,0) + https://trac.opensourcevista.net/svn/PGC/tags/TMG-PGC/) +"PKG",215,22,1,"PAH",1,1,108,0) + +"PKG",215,22,1,"PAH",1,1,109,0) + For a successful installation, you need to be sure that the labs that +"PKG",215,22,1,"PAH",1,1,110,0) +the Inpatient Measures rely on exist. If not, the Lab ADPAC needs to +"PKG",215,22,1,"PAH",1,1,111,0) +create them. These labs are: +"PKG",215,22,1,"PAH",1,1,112,0) + - LDL CHOLESTEROL +"PKG",215,22,1,"PAH",1,1,113,0) + - PLT +"PKG",215,22,1,"PAH",1,1,114,0) + - INR +"PKG",215,22,1,"PAH",1,1,115,0) + +"PKG",215,22,1,"PAH",1,1,116,0) + If these don't exist by the same name as above, the installer will be +"PKG",215,22,1,"PAH",1,1,117,0) +asked to rematch them. +"PKG",215,22,1,"PAH",1,1,118,0) + +"PKG",215,22,1,"PAH",1,1,119,0) + Users can remain on the system while this patch is installed. +"PKG",215,22,1,"PAH",1,1,120,0) + +"PKG",215,22,1,"PAH",1,1,121,0) + Install Time - less than 5 minutes +"PKG",215,22,1,"PAH",1,1,122,0) + +"PKG",215,22,1,"PAH",1,1,123,0) + The Pre-installation routine PRE^C0Q1P2 will delete existing Reminder +"PKG",215,22,1,"PAH",1,1,124,0) +Exchange entries with the same name. +"PKG",215,22,1,"PAH",1,1,125,0) + +"PKG",215,22,1,"PAH",1,1,126,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",215,22,1,"PAH",1,1,127,0) + +"PKG",215,22,1,"PAH",1,1,128,0) + Choose the PackMan message containing this patch and invoke the +"PKG",215,22,1,"PAH",1,1,129,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"PKG",215,22,1,"PAH",1,1,130,0) + Use the Load a Distribution option in KIDS to load it from a +"PKG",215,22,1,"PAH",1,1,131,0) + host file. +"PKG",215,22,1,"PAH",1,1,132,0) + +"PKG",215,22,1,"PAH",1,1,133,0) + 2. START UP KIDS +"PKG",215,22,1,"PAH",1,1,134,0) + +"PKG",215,22,1,"PAH",1,1,135,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",215,22,1,"PAH",1,1,136,0) + [XPD MAIN]: +"PKG",215,22,1,"PAH",1,1,137,0) + +"PKG",215,22,1,"PAH",1,1,138,0) + Edits and Distribution ... +"PKG",215,22,1,"PAH",1,1,139,0) + Utilities ... +"PKG",215,22,1,"PAH",1,1,140,0) + Installation ... +"PKG",215,22,1,"PAH",1,1,141,0) + +"PKG",215,22,1,"PAH",1,1,142,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",215,22,1,"PAH",1,1,143,0) + --- +"PKG",215,22,1,"PAH",1,1,144,0) + Load a Distribution +"PKG",215,22,1,"PAH",1,1,145,0) + Print Transport Global +"PKG",215,22,1,"PAH",1,1,146,0) + Compare Transport Global to Current System +"PKG",215,22,1,"PAH",1,1,147,0) + Verify Checksums in Transport Global +"PKG",215,22,1,"PAH",1,1,148,0) + Install Package(s) +"PKG",215,22,1,"PAH",1,1,149,0) + Restart Install of Package(s) +"PKG",215,22,1,"PAH",1,1,150,0) + Unload a Distribution +"PKG",215,22,1,"PAH",1,1,151,0) + Backup a Transport Global +"PKG",215,22,1,"PAH",1,1,152,0) + +"PKG",215,22,1,"PAH",1,1,153,0) + Select Installation Option: +"PKG",215,22,1,"PAH",1,1,154,0) + +"PKG",215,22,1,"PAH",1,1,155,0) + 3. Select Installation Option: +"PKG",215,22,1,"PAH",1,1,156,0) + +"PKG",215,22,1,"PAH",1,1,157,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",215,22,1,"PAH",1,1,158,0) + NAME, enter C0Q*1.0*2): +"PKG",215,22,1,"PAH",1,1,159,0) + +"PKG",215,22,1,"PAH",1,1,160,0) + a. Backup a Transport Global - This option will create a backup +"PKG",215,22,1,"PAH",1,1,161,0) + message of any routines exported with this patch. It will not +"PKG",215,22,1,"PAH",1,1,162,0) + backup any other changes such as DD's or templates. +"PKG",215,22,1,"PAH",1,1,163,0) + b. Compare Transport Global to Current System - This option will +"PKG",215,22,1,"PAH",1,1,164,0) + allow you to view all changes that will be made when this patch +"PKG",215,22,1,"PAH",1,1,165,0) + is installed. It compares all components of this patch +"PKG",215,22,1,"PAH",1,1,166,0) + (routines, DD's, templates, etc.). +"PKG",215,22,1,"PAH",1,1,167,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",215,22,1,"PAH",1,1,168,0) + you to ensure the integrity of the routines that are in the +"PKG",215,22,1,"PAH",1,1,169,0) + transport global. +"PKG",215,22,1,"PAH",1,1,170,0) + +"PKG",215,22,1,"PAH",1,1,171,0) + 4. Select Installation Option: Install Package(s) +"PKG",215,22,1,"PAH",1,1,172,0) + +"PKG",215,22,1,"PAH",1,1,173,0) + **This is the step to start the installation of this KIDS patch: +"PKG",215,22,1,"PAH",1,1,174,0) + +"PKG",215,22,1,"PAH",1,1,175,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",215,22,1,"PAH",1,1,176,0) + and enter "C0Q*1.0*2" at the INSTALL NAME prompt. +"PKG",215,22,1,"PAH",1,1,177,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",215,22,1,"PAH",1,1,178,0) + Install? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,179,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",215,22,1,"PAH",1,1,180,0) + NO//' answer NO +"PKG",215,22,1,"PAH",1,1,181,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",215,22,1,"PAH",1,1,182,0) + and Protocols? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,183,0) + +"PKG",215,22,1,"PAH",1,1,184,0) + The Post-installation routine POST^C0Q1P2 will install the Reminder +"PKG",215,22,1,"PAH",1,1,185,0) +Exchange entries. +"PKG",215,22,1,"PAH",1,1,186,0) + +"PKG",215,22,1,"PAH",1,1,187,0) +Here is an example installation log. It includes lab replacements. +"PKG",215,22,1,"PAH",1,1,188,0) +Select INSTALL NAME: C0Q*1.0*2 Loaded from Distribution Loaded +"PKG",215,22,1,"PAH",1,1,189,0) +from D +"PKG",215,22,1,"PAH",1,1,190,0) +istribution 8/3/12@14:23:27 +"PKG",215,22,1,"PAH",1,1,191,0) + => SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"PKG",215,22,1,"PAH",1,1,192,0) + +"PKG",215,22,1,"PAH",1,1,193,0) +This Distribution was loaded on Aug 03, 2012@14:23:27 with header of +"PKG",215,22,1,"PAH",1,1,194,0) + SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 +"PKG",215,22,1,"PAH",1,1,195,0) + It consisted of the following Install(s): +"PKG",215,22,1,"PAH",1,1,196,0) + C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,197,0) + +"PKG",215,22,1,"PAH",1,1,198,0) + Checking C0Q*1.0*2 for overlap with VOE 1.0 . OK +"PKG",215,22,1,"PAH",1,1,199,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,200,0) + +"PKG",215,22,1,"PAH",1,1,201,0) + +"PKG",215,22,1,"PAH",1,1,202,0) + Checking C0Q*1.0*2 for overlap with VOE 1.1 . OK +"PKG",215,22,1,"PAH",1,1,203,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,204,0) + +"PKG",215,22,1,"PAH",1,1,205,0) + +"PKG",215,22,1,"PAH",1,1,206,0) + Checking C0Q*1.0*2 for overlap with NO HOME 1.0 . OK +"PKG",215,22,1,"PAH",1,1,207,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,208,0) + +"PKG",215,22,1,"PAH",1,1,209,0) +Checking Install for Package C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,210,0) + +"PKG",215,22,1,"PAH",1,1,211,0) +Install Questions for C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,212,0) + +"PKG",215,22,1,"PAH",1,1,213,0) +Incoming Files: +"PKG",215,22,1,"PAH",1,1,214,0) + +"PKG",215,22,1,"PAH",1,1,215,0) + +"PKG",215,22,1,"PAH",1,1,216,0) + 811.8 REMINDER EXCHANGE (including data) +"PKG",215,22,1,"PAH",1,1,217,0) +Note: You already have the 'REMINDER EXCHANGE' File. +"PKG",215,22,1,"PAH",1,1,218,0) +I will OVERWRITE your data with mine. +"PKG",215,22,1,"PAH",1,1,219,0) + +"PKG",215,22,1,"PAH",1,1,220,0) + +"PKG",215,22,1,"PAH",1,1,221,0) +Want KIDS to INHIBIT LOGONs during the install? NO// +"PKG",215,22,1,"PAH",1,1,222,0) +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// +"PKG",215,22,1,"PAH",1,1,223,0) + +"PKG",215,22,1,"PAH",1,1,224,0) +Enter the Device you want to print the Install messages. +"PKG",215,22,1,"PAH",1,1,225,0) +You can queue the install by enter a 'Q' at the device prompt. +"PKG",215,22,1,"PAH",1,1,226,0) +Enter a '^' to abort the install. +"PKG",215,22,1,"PAH",1,1,227,0) + +"PKG",215,22,1,"PAH",1,1,228,0) +DEVICE: HOME// PHOME HOME PRINTER +"PKG",215,22,1,"PAH",1,1,229,0) + +"PKG",215,22,1,"PAH",1,1,230,0) + +"PKG",215,22,1,"PAH",1,1,231,0) + Install Started for C0Q*1.0*2 : +"PKG",215,22,1,"PAH",1,1,232,0) + Aug 03, 2012@14:23:33 +"PKG",215,22,1,"PAH",1,1,233,0) + +"PKG",215,22,1,"PAH",1,1,234,0) +Build Distribution Date: Aug 03, 2012 +"PKG",215,22,1,"PAH",1,1,235,0) + +"PKG",215,22,1,"PAH",1,1,236,0) + Installing Routines:.. +"PKG",215,22,1,"PAH",1,1,237,0) + Aug 03, 2012@14:23:33 +"PKG",215,22,1,"PAH",1,1,238,0) + +"PKG",215,22,1,"PAH",1,1,239,0) + Running Pre-Install Routine: PRE^C0Q1P2. +"PKG",215,22,1,"PAH",1,1,240,0) + +"PKG",215,22,1,"PAH",1,1,241,0) + Installing Data Dictionaries: .. +"PKG",215,22,1,"PAH",1,1,242,0) + Aug 03, 2012@14:23:34 +"PKG",215,22,1,"PAH",1,1,243,0) + +"PKG",215,22,1,"PAH",1,1,244,0) + Installing Data: +"PKG",215,22,1,"PAH",1,1,245,0) + Aug 03, 2012@14:23:35 +"PKG",215,22,1,"PAH",1,1,246,0) + +"PKG",215,22,1,"PAH",1,1,247,0) + Running Post-Install Routine: POST^C0Q1P2. +"PKG",215,22,1,"PAH",1,1,248,0) + +"PKG",215,22,1,"PAH",1,1,249,0) +Installing reminder exchange entry MU NQF0024-ALL +"PKG",215,22,1,"PAH",1,1,250,0) + +"PKG",215,22,1,"PAH",1,1,251,0) +Installing reminder exchange entry MU NQF0013 HTN_MK +"PKG",215,22,1,"PAH",1,1,252,0) + +"PKG",215,22,1,"PAH",1,1,253,0) +Installing reminder exchange entry MU NQF0028 TOBACCO_MK +"PKG",215,22,1,"PAH",1,1,254,0) + +"PKG",215,22,1,"PAH",1,1,255,0) +Installing reminder exchange entry MU NQF0041 FLU_MK +"PKG",215,22,1,"PAH",1,1,256,0) + +"PKG",215,22,1,"PAH",1,1,257,0) +Installing reminder exchange entry MU NQF0059_61_64_SMH +"PKG",215,22,1,"PAH",1,1,258,0) + +"PKG",215,22,1,"PAH",1,1,259,0) +Installing reminder exchange entry MU NQF 0495 ED-1 +"PKG",215,22,1,"PAH",1,1,260,0) + +"PKG",215,22,1,"PAH",1,1,261,0) +Installing reminder exchange entry MU NQF 0497 ED-2 +"PKG",215,22,1,"PAH",1,1,262,0) + +"PKG",215,22,1,"PAH",1,1,263,0) +Installing reminder exchange entry MU STROKE 2.3.4.5.6.8.10 SMH +"PKG",215,22,1,"PAH",1,1,264,0) + +"PKG",215,22,1,"PAH",1,1,265,0) +Installing reminder exchange entry MU VTE 1.2.3.4.5.6 SMH +"PKG",215,22,1,"PAH",1,1,266,0) +Finding LT.INR does not exist, what do you want to do? +"PKG",215,22,1,"PAH",1,1,267,0) + +"PKG",215,22,1,"PAH",1,1,268,0) + Select one of the following: +"PKG",215,22,1,"PAH",1,1,269,0) + +"PKG",215,22,1,"PAH",1,1,270,0) + +"PKG",215,22,1,"PAH",1,1,271,0) + D Delete +"PKG",215,22,1,"PAH",1,1,272,0) + P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,273,0) + Q Quit the install +"PKG",215,22,1,"PAH",1,1,274,0) + +"PKG",215,22,1,"PAH",1,1,275,0) +Enter response: P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,276,0) +Select LABORATORY TEST NAME: SAM INR +"PKG",215,22,1,"PAH",1,1,277,0) +Finding LT.INR does not exist, what do you want to do? +"PKG",215,22,1,"PAH",1,1,278,0) + +"PKG",215,22,1,"PAH",1,1,279,0) + Select one of the following: +"PKG",215,22,1,"PAH",1,1,280,0) + +"PKG",215,22,1,"PAH",1,1,281,0) + +"PKG",215,22,1,"PAH",1,1,282,0) + D Delete +"PKG",215,22,1,"PAH",1,1,283,0) + P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,284,0) + Q Quit the install +"PKG",215,22,1,"PAH",1,1,285,0) + +"PKG",215,22,1,"PAH",1,1,286,0) +Enter response: P Replace with an existing entry +"PKG",215,22,1,"PAH",1,1,287,0) +Select LABORATORY TEST NAME: SAM INR +"PKG",215,22,1,"PAH",1,1,288,0) + +"PKG",215,22,1,"PAH",1,1,289,0) +Installing reminder exchange entry MU NQF0421 ADULT BMI SMH +"PKG",215,22,1,"PAH",1,1,290,0) + +"PKG",215,22,1,"PAH",1,1,291,0) +Installing reminder exchange entry MU NQF0038 CHILD IMM SMH +"PKG",215,22,1,"PAH",1,1,292,0) + +"PKG",215,22,1,"PAH",1,1,293,0) +Installing reminder exchange entry MU CPRS HELP DIS +"PKG",215,22,1,"PAH",1,1,294,0) + +"PKG",215,22,1,"PAH",1,1,295,0) + Updating Routine file...... +"PKG",215,22,1,"PAH",1,1,296,0) + +"PKG",215,22,1,"PAH",1,1,297,0) + Updating KIDS files....... +"PKG",215,22,1,"PAH",1,1,298,0) + +"PKG",215,22,1,"PAH",1,1,299,0) + C0Q*1.0*2 Installed. +"PKG",215,22,1,"PAH",1,1,300,0) + Aug 03, 2012@14:24:27 +"PKG",215,22,1,"PAH",1,1,301,0) + +"PKG",215,22,1,"PAH",1,1,302,0) + Not a VA primary domain +"PKG",215,22,1,"PAH",1,1,303,0) + +"PKG",215,22,1,"PAH",1,1,304,0) + NO Install Message sent +"PKG",215,22,1,"PAH",1,1,305,0) + +"PKG",215,22,1,"PAH",1,1,306,0) + After installation, make sure you install C0Q*1.0*3, which relies on +"PKG",215,22,1,"PAH",1,1,307,0) +this patch. +"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","C0Q1P2") +0^^B15060103 +"RTN","C0Q1P2",1,0) +C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 2 ; 8/3/12 11:13am +"RTN","C0Q1P2",2,0) + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 23 +"RTN","C0Q1P2",3,0) + ; Licensed under package license. See Documentation for license and +"RTN","C0Q1P2",4,0) + ; usage conditions. +"RTN","C0Q1P2",5,0) + ; +"RTN","C0Q1P2",6,0) + ; PEPs: PRE, POST +"RTN","C0Q1P2",7,0) + ; +"RTN","C0Q1P2",8,0) +PRE ; Unified Pre; PEP +"RTN","C0Q1P2",9,0) + D PREREM +"RTN","C0Q1P2",10,0) + QUIT +"RTN","C0Q1P2",11,0) +POST ; Unified Post; PEP +"RTN","C0Q1P2",12,0) + D POSTREM +"RTN","C0Q1P2",13,0) + QUIT +"RTN","C0Q1P2",14,0) + ; +"RTN","C0Q1P2",15,0) + ; Rest of entry points are private +"RTN","C0Q1P2",16,0) + ; +"RTN","C0Q1P2",17,0) + ; +"RTN","C0Q1P2",18,0) +ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install +"RTN","C0Q1P2",19,0) + ; +"RTN","C0Q1P2",20,0) + N LN S LN=1 +"RTN","C0Q1P2",21,0) + ; +"RTN","C0Q1P2",22,0) + ; NQF 0024-alt-core_wt-kids +"RTN","C0Q1P2",23,0) + S ARRAY(LN,1)="MU NQF0024-ALL" +"RTN","C0Q1P2",24,0) + I MODE S ARRAY(LN,2)="07/31/2012@17:49:03" +"RTN","C0Q1P2",25,0) + S LN=LN+1 +"RTN","C0Q1P2",26,0) + ; +"RTN","C0Q1P2",27,0) + ; NQF 0013-core-HTN +"RTN","C0Q1P2",28,0) + S ARRAY(LN,1)="MU NQF0013 HTN_MK" +"RTN","C0Q1P2",29,0) + I MODE S ARRAY(LN,2)="07/06/2011@15:08:53" +"RTN","C0Q1P2",30,0) + S LN=LN+1 +"RTN","C0Q1P2",31,0) + ; +"RTN","C0Q1P2",32,0) + ; NQF 0028a-core-tobacco-access +"RTN","C0Q1P2",33,0) + ; NQF 0028b-core-tobaocc-intervention +"RTN","C0Q1P2",34,0) + S ARRAY(LN,1)="MU NQF0028 TOBACCO_MK" +"RTN","C0Q1P2",35,0) + I MODE S ARRAY(LN,2)="07/06/2011@15:14:49" +"RTN","C0Q1P2",36,0) + S LN=LN+1 +"RTN","C0Q1P2",37,0) + ; +"RTN","C0Q1P2",38,0) + ; NQF 0041-alt-core-flu +"RTN","C0Q1P2",39,0) + S ARRAY(LN,1)="MU NQF0041 FLU_MK" +"RTN","C0Q1P2",40,0) + I MODE S ARRAY(LN,2)="07/06/2011@15:26:59" +"RTN","C0Q1P2",41,0) + S LN=LN+1 +"RTN","C0Q1P2",42,0) + ; +"RTN","C0Q1P2",43,0) + ; NQF 0059-option1-DM-Hbalc +"RTN","C0Q1P2",44,0) + ; NQF 0061-option3-DM-BP +"RTN","C0Q1P2",45,0) + ; NQF 0064-option2-DM-LDL +"RTN","C0Q1P2",46,0) + ; All are in One Reminder Exchange entry +"RTN","C0Q1P2",47,0) + S ARRAY(LN,1)="MU NQF0059_61_64_SMH" +"RTN","C0Q1P2",48,0) + I MODE S ARRAY(LN,2)="07/16/2012@10:46:17" +"RTN","C0Q1P2",49,0) + S LN=LN+1 +"RTN","C0Q1P2",50,0) + ; +"RTN","C0Q1P2",51,0) + ; Inpatient Education Reminders (popularly known as ED-1 and ED-2) +"RTN","C0Q1P2",52,0) + ; NQF 0495 +"RTN","C0Q1P2",53,0) + ; NQF 0497 +"RTN","C0Q1P2",54,0) + S ARRAY(LN,1)="MU NQF 0495 ED-1" +"RTN","C0Q1P2",55,0) + I MODE S ARRAY(LN,2)="07/17/2012@11:47:55" +"RTN","C0Q1P2",56,0) + S LN=LN+1 +"RTN","C0Q1P2",57,0) + S ARRAY(LN,1)="MU NQF 0497 ED-2" +"RTN","C0Q1P2",58,0) + I MODE S ARRAY(LN,2)="07/17/2012@11:50:23" +"RTN","C0Q1P2",59,0) + S LN=LN+1 +"RTN","C0Q1P2",60,0) + ; +"RTN","C0Q1P2",61,0) + ; MU Stroke Measures +"RTN","C0Q1P2",62,0) + ; NQF 0435 +"RTN","C0Q1P2",63,0) + ; NQF 0436 +"RTN","C0Q1P2",64,0) + ; NQF 0437 +"RTN","C0Q1P2",65,0) + ; NQF 0438 +"RTN","C0Q1P2",66,0) + ; NQF 0439 +"RTN","C0Q1P2",67,0) + ; NQF 0440 +"RTN","C0Q1P2",68,0) + ; NQF 0441 +"RTN","C0Q1P2",69,0) + ; NB: Contains two Labs! Must rematch if not on your system. +"RTN","C0Q1P2",70,0) + ; Installation will become talkative +"RTN","C0Q1P2",71,0) + S ARRAY(LN,1)="MU STROKE 2.3.4.5.6.8.10 SMH" +"RTN","C0Q1P2",72,0) + I MODE S ARRAY(LN,2)="07/18/2012@10:33:53" +"RTN","C0Q1P2",73,0) + S LN=LN+1 +"RTN","C0Q1P2",74,0) + ; +"RTN","C0Q1P2",75,0) + ; MU VTE Measures +"RTN","C0Q1P2",76,0) + ; NQF 0371 +"RTN","C0Q1P2",77,0) + ; NQF 0372 +"RTN","C0Q1P2",78,0) + ; NQF 0373 +"RTN","C0Q1P2",79,0) + ; NQF 0374 +"RTN","C0Q1P2",80,0) + ; NQF 0375 +"RTN","C0Q1P2",81,0) + ; NQF 0376 +"RTN","C0Q1P2",82,0) + ; NB: Contains several labs. Must rematch if not on your system. +"RTN","C0Q1P2",83,0) + ; Installation will become talkative +"RTN","C0Q1P2",84,0) + S ARRAY(LN,1)="MU VTE 1.2.3.4.5.6 SMH" +"RTN","C0Q1P2",85,0) + I MODE S ARRAY(LN,2)="07/20/2012@09:48:30" +"RTN","C0Q1P2",86,0) + S LN=LN+1 +"RTN","C0Q1P2",87,0) + ; +"RTN","C0Q1P2",88,0) + ; +"RTN","C0Q1P2",89,0) + ; NQF 0421-core-adult-weight +"RTN","C0Q1P2",90,0) + ; NB: B/c of the presence of patient lists, measures sent as part of +"RTN","C0Q1P2",91,0) + ; an extract. +"RTN","C0Q1P2",92,0) + S ARRAY(LN,1)="MU NQF0421 ADULT BMI SMH" +"RTN","C0Q1P2",93,0) + I MODE S ARRAY(LN,2)="07/26/2012@11:00:17" +"RTN","C0Q1P2",94,0) + S LN=LN+1 +"RTN","C0Q1P2",95,0) + ; +"RTN","C0Q1P2",96,0) + ; NQF 0038-alt-core-childImms +"RTN","C0Q1P2",97,0) + ; NB: Again because of Patient Lists, measures sent as part of an extract +"RTN","C0Q1P2",98,0) + S ARRAY(LN,1)="MU NQF0038 CHILD IMM SMH" +"RTN","C0Q1P2",99,0) + I MODE S ARRAY(LN,2)="07/27/2012@17:48:33" +"RTN","C0Q1P2",100,0) + S LN=LN+1 +"RTN","C0Q1P2",101,0) + ; +"RTN","C0Q1P2",102,0) + ; CPRS Management Dialogs for Outpatient Stuff +"RTN","C0Q1P2",103,0) + ; MU NQF0421 BMI DI +"RTN","C0Q1P2",104,0) + ; MU NQF0041 INFLUENZA MANAGEMENT DI +"RTN","C0Q1P2",105,0) + ; MU NQF0038 IMMUNE MANAGEMENT DI +"RTN","C0Q1P2",106,0) + ; MU NQF0028AB MANAGEMENT DI +"RTN","C0Q1P2",107,0) + ; MU SMOKING STATUS DI +"RTN","C0Q1P2",108,0) + S ARRAY(LN,1)="MU CPRS HELP DIS" +"RTN","C0Q1P2",109,0) + I MODE S ARRAY(LN,2)="08/01/2012@18:32:29" +"RTN","C0Q1P2",110,0) + S LN=LN+1 +"RTN","C0Q1P2",111,0) + ; +"RTN","C0Q1P2",112,0) + QUIT +"RTN","C0Q1P2",113,0) + ; +"RTN","C0Q1P2",114,0) + ; +"RTN","C0Q1P2",115,0) + ;=============================================================== +"RTN","C0Q1P2",116,0) +DELEI ;If the Exchange File entry already exists delete it. +"RTN","C0Q1P2",117,0) + N ARRAY,IC,IND,LIST,LUVALUE,NUM +"RTN","C0Q1P2",118,0) + D ARRAY(1,.ARRAY) +"RTN","C0Q1P2",119,0) + S IC=0 +"RTN","C0Q1P2",120,0) + F S IC=$O(ARRAY(IC)) Q:'IC D +"RTN","C0Q1P2",121,0) + .S LUVALUE(1)=ARRAY(IC,1) +"RTN","C0Q1P2",122,0) + .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST") +"RTN","C0Q1P2",123,0) + .I '$D(LIST) Q +"RTN","C0Q1P2",124,0) + .S NUM=$P(LIST("DILIST",0),U,1) +"RTN","C0Q1P2",125,0) + .I NUM'=0 D +"RTN","C0Q1P2",126,0) + ..F IND=1:1:NUM D +"RTN","C0Q1P2",127,0) + ... N DA,DIK +"RTN","C0Q1P2",128,0) + ... S DIK="^PXD(811.8," +"RTN","C0Q1P2",129,0) + ... S DA=LIST("DILIST",2,IND) +"RTN","C0Q1P2",130,0) + ... D ^DIK +"RTN","C0Q1P2",131,0) + Q +"RTN","C0Q1P2",132,0) + ; +"RTN","C0Q1P2",133,0) + ;=============================================================== +"RTN","C0Q1P2",134,0) +EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to +"RTN","C0Q1P2",135,0) + ;include in the build. This is used in the build to determine which +"RTN","C0Q1P2",136,0) + ;entries to include. +"RTN","C0Q1P2",137,0) + N ARRAY,FOUND,IEN,IC,LUVALUE +"RTN","C0Q1P2",138,0) + D ARRAY(1,.ARRAY) +"RTN","C0Q1P2",139,0) + S FOUND=0 +"RTN","C0Q1P2",140,0) + S IC=0 +"RTN","C0Q1P2",141,0) + F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D +"RTN","C0Q1P2",142,0) + . M LUVALUE=ARRAY(IC) +"RTN","C0Q1P2",143,0) + . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE) +"RTN","C0Q1P2",144,0) + . I IEN=Y S FOUND=1 Q +"RTN","C0Q1P2",145,0) + Q FOUND +"RTN","C0Q1P2",146,0) + ; +"RTN","C0Q1P2",147,0) +PREREM ; +"RTN","C0Q1P2",148,0) + D DELEI +"RTN","C0Q1P2",149,0) + Q +"RTN","C0Q1P2",150,0) +POSTREM ; +"RTN","C0Q1P2",151,0) + D SMEXINS +"RTN","C0Q1P2",152,0) + Q +"RTN","C0Q1P2",153,0) + ;=============================================================== +"RTN","C0Q1P2",154,0) +SMEXINS ;Silent mode install. +"RTN","C0Q1P2",155,0) + N ARRAY,IC,IEN,LUVALUE,PXRMINST +"RTN","C0Q1P2",156,0) + S PXRMINST=1 +"RTN","C0Q1P2",157,0) + D ARRAY(1,.ARRAY) +"RTN","C0Q1P2",158,0) + S IC=0 +"RTN","C0Q1P2",159,0) + F S IC=$O(ARRAY(IC)) Q:'IC D +"RTN","C0Q1P2",160,0) + .M LUVALUE=ARRAY(IC) +"RTN","C0Q1P2",161,0) + .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE) +"RTN","C0Q1P2",162,0) + .I IEN'=0 D +"RTN","C0Q1P2",163,0) + .. N TEXT +"RTN","C0Q1P2",164,0) + .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1) +"RTN","C0Q1P2",165,0) + .. E S TEXT="Installing reminder exchange entry "_LUVALUE(1) +"RTN","C0Q1P2",166,0) + .. D BMES^XPDUTL(TEXT) +"RTN","C0Q1P2",167,0) + .. D INSTALL^PXRMEXSI(IEN,"I",1) +"RTN","C0Q1P2",168,0) + Q +"RTN","C0Q1P2",169,0) + ; +"SEC","^DIC",811.8,811.8,0,"AUDIT") +@ +"SEC","^DIC",811.8,811.8,0,"DD") +@ +"SEC","^DIC",811.8,811.8,0,"DEL") +@ +"SEC","^DIC",811.8,811.8,0,"LAYGO") +@ +"SEC","^DIC",811.8,811.8,0,"RD") + +"SEC","^DIC",811.8,811.8,0,"WR") +@ +"VER") +8.0^22.0 +"^DD",811.8,811.8,0) +FIELD^^130^8 +"^DD",811.8,811.8,0,"DDA") +N +"^DD",811.8,811.8,0,"DT") +3080125 +"^DD",811.8,811.8,0,"NM","REMINDER EXCHANGE") + +"^DD",811.8,811.8,0,"SCR") +I 0>1 +"^DD",811.8,811.8,0,"VRPK") +PXRM +"^DD",811.8,811.8,.01,0) +NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X +"^DD",811.8,811.8,.01,.1) + +"^DD",811.8,811.8,.01,1,0) +^.1^^0 +"^DD",811.8,811.8,.01,3) +Do not edit this field. +"^DD",811.8,811.8,.01,21,0) +^.001^2^2^3050124^^^^ +"^DD",811.8,811.8,.01,21,1,0) +This is the name of the entry in the Exchange File. It will be the same +"^DD",811.8,811.8,.01,21,2,0) +as the name of the reminder definition that was packed. +"^DD",811.8,811.8,.01,"DT") +3010601 +"^DD",811.8,811.8,.02,0) +SOURCE^F^^0;2^K:$L(X)>64!($L(X)<3) X +"^DD",811.8,811.8,.02,3) +Do not edit this field. +"^DD",811.8,811.8,.02,21,0) +^.001^3^3^3070313^^^ +"^DD",811.8,811.8,.02,21,1,0) +This is the source of the packed reminder. It will contain the name of +"^DD",811.8,811.8,.02,21,2,0) +the person who packed it and their site. +"^DD",811.8,811.8,.02,21,3,0) + +"^DD",811.8,811.8,.02,"DT") +3000706 +"^DD",811.8,811.8,.03,0) +DATE PACKED^D^^0;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X +"^DD",811.8,811.8,.03,3) +Do not edit this field. +"^DD",811.8,811.8,.03,21,0) +^.001^3^3^3050124^^^ +"^DD",811.8,811.8,.03,21,1,0) +This is the date and time the reminder was originally packed. When a +"^DD",811.8,811.8,.03,21,2,0) +packed reminder is put into the Exchange File from a MailMan message or +"^DD",811.8,811.8,.03,21,3,0) +a host file, this will reflect the original packing date and time. +"^DD",811.8,811.8,.03,"DT") +3000712 +"^DD",811.8,811.8,100,0) +PACKED REMINDER^811.801A^^100;0 +"^DD",811.8,811.8,100,9) +@ +"^DD",811.8,811.8,100,21,0) +^.001^1^1^3050126^^^^ +"^DD",811.8,811.8,100,21,1,0) +This multiple stores the packed reminder definition in XML format. +"^DD",811.8,811.8,100,"DT") +3030312 +"^DD",811.8,811.8,110,0) +DESCRIPTION^811.804^^110;0 +"^DD",811.8,811.8,110,21,0) +^.001^4^4^3050124^^^^ +"^DD",811.8,811.8,110,21,1,0) +This contains formatted information about the Exchange File entry. It +"^DD",811.8,811.8,110,21,2,0) +includes source information, a brief description, and keywords. This +"^DD",811.8,811.8,110,21,3,0) +information will be displayed when an entry is selected for possible +"^DD",811.8,811.8,110,21,4,0) +installation. +"^DD",811.8,811.8,119,0) +NUMBER OF UNIQUE COMPONENTS^NJ6,0^^119;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X +"^DD",811.8,811.8,119,3) +Do not edit this field. +"^DD",811.8,811.8,119,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8,119,21,1,0) +This is the number of unique components in the packed reminder. +"^DD",811.8,811.8,119,"DT") +3030609 +"^DD",811.8,811.8,120,0) +COMPONENT LIST^811.802A^^120;0 +"^DD",811.8,811.8,120,21,0) +^.001^1^1^3080206^^^^ +"^DD",811.8,811.8,120,21,1,0) +This is a list of components that are included in the packed reminder. +"^DD",811.8,811.8,130,0) +INSTALLATION HISTORY^811.803DA^^130;0 +"^DD",811.8,811.8,130,21,0) +^.001^2^2^3070808^^^^ +"^DD",811.8,811.8,130,21,1,0) +This multiple is used to record a history of packed reminder +"^DD",811.8,811.8,130,21,2,0) +installations. +"^DD",811.8,811.801,0) +PACKED REMINDER SUB-FIELD^^.01^1 +"^DD",811.8,811.801,0,"DT") +3030609 +"^DD",811.8,811.801,0,"IX","B",811.801,.01) + +"^DD",811.8,811.801,0,"NM","PACKED REMINDER") + +"^DD",811.8,811.801,0,"UP") +811.8 +"^DD",811.8,811.801,.01,0) +XML DATA^WL^^0;1^Q +"^DD",811.8,811.801,.01,1,0) +^.1 +"^DD",811.8,811.801,.01,1,1,0) +811.801^B +"^DD",811.8,811.801,.01,1,1,1) +S ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.801,.01,1,1,2) +K ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA) +"^DD",811.8,811.801,.01,1,1,"DT") +3030415 +"^DD",811.8,811.801,.01,3) +Do not edit this field. +"^DD",811.8,811.801,.01,9) +@ +"^DD",811.8,811.801,.01,21,0) +^.001^1^1^3050126^^^^ +"^DD",811.8,811.801,.01,21,1,0) +This is a line of XML data. +"^DD",811.8,811.801,.01,"DT") +3030609 +"^DD",811.8,811.802,0) +COMPONENT LIST SUB-FIELD^^1^4 +"^DD",811.8,811.802,0,"DT") +3080125 +"^DD",811.8,811.802,0,"NM","COMPONENT LIST") + +"^DD",811.8,811.802,0,"UP") +811.8 +"^DD",811.8,811.802,.01,0) +COMPONENT^F^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.802,.01,1,0) +^.1^^0 +"^DD",811.8,811.802,.01,3) +Do not edit this field. +"^DD",811.8,811.802,.01,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.802,.01,21,1,0) +This is the name of the component; for example, ROUTINE or EDUCATION TOPIC. +"^DD",811.8,811.802,.01,"DT") +3050112 +"^DD",811.8,811.802,.02,0) +FILE NUMBER^NJ14,4X^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."5N.N) X +"^DD",811.8,811.802,.02,3) +Do not edit this field. +"^DD",811.8,811.802,.02,21,0) +^.001^2^2^3050126^^^^ +"^DD",811.8,811.802,.02,21,1,0) +This is the file number of the component. If the component is a routine, +"^DD",811.8,811.802,.02,21,2,0) +then the file number will be 0. +"^DD",811.8,811.802,.02,"DT") +3050111 +"^DD",811.8,811.802,.03,0) +NUMBER OF ITEMS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.802,.03,3) +Do not edit this field. +"^DD",811.8,811.802,.03,21,0) +^.001^4^4^3050124^^^ +"^DD",811.8,811.802,.03,21,1,0) +This is the number of this type of component that is included in the +"^DD",811.8,811.802,.03,21,2,0) +packed reminder. For example, if this particular component is Health +"^DD",811.8,811.802,.03,21,3,0) +Factors and there are three of them in the packed reminder, the NUMBER +"^DD",811.8,811.802,.03,21,4,0) +OF ITEMS would be 3. +"^DD",811.8,811.802,.03,"DT") +3001101 +"^DD",811.8,811.802,1,0) +ITEM LIST^811.8021A^^1;0 +"^DD",811.8,811.802,1,21,0) +^.001^3^3^3080206^^^^ +"^DD",811.8,811.802,1,21,1,0) +This is the list of items of the component type. For example, if the +"^DD",811.8,811.802,1,21,2,0) +component type is Health Factors and there are three of them, the three +"^DD",811.8,811.802,1,21,3,0) +entries are specified in this list. +"^DD",811.8,811.8021,0) +ITEM LIST SUB-FIELD^^4^7 +"^DD",811.8,811.8021,0,"DT") +3080125 +"^DD",811.8,811.8021,0,"NM","ITEM LIST") + +"^DD",811.8,811.8021,0,"UP") +811.802 +"^DD",811.8,811.8021,.01,0) +ITEM^F^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8021,.01,1,0) +^.1^^0 +"^DD",811.8,811.8021,.01,3) +Do not edit this field. +"^DD",811.8,811.8021,.01,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.8021,.01,21,1,0) +This is the name of the item. +"^DD",811.8,811.8021,.01,"DT") +3050112 +"^DD",811.8,811.8021,.02,0) +START LINE^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,.02,3) +Do not edit this field. +"^DD",811.8,811.8021,.02,21,0) +^.001^1^1^3050124^^^ +"^DD",811.8,811.8021,.02,21,1,0) +This is the line in node 100 where the data for this item starts. +"^DD",811.8,811.8021,.02,"DT") +3050124 +"^DD",811.8,811.8021,.03,0) +END LINE^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,.03,3) +Do not edit this field. +"^DD",811.8,811.8021,.03,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,.03,21,1,0) +This is the line in node 100 where the data for this item ends. +"^DD",811.8,811.8021,.03,"DT") +3050124 +"^DD",811.8,811.8021,1,0) +IEN ROOT START LINE^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,1,3) +Do not edit this field. +"^DD",811.8,811.8021,1,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,1,21,1,0) +This is the line in node 100 where the ien root for this item starts. +"^DD",811.8,811.8021,1,"DT") +3050124 +"^DD",811.8,811.8021,2,0) +IEN ROOT END LINE^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X +"^DD",811.8,811.8021,2,3) +Do not edit this field. +"^DD",811.8,811.8021,2,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8021,2,21,1,0) +This is the line in node 100 where the ien root ends. +"^DD",811.8,811.8021,2,"DT") +3050124 +"^DD",811.8,811.8021,3,0) +OK TO INSTALL^S^0:NO;1:YES;^0;6^Q +"^DD",811.8,811.8021,3,21,0) +^^4^4^3080122^ +"^DD",811.8,811.8021,3,21,1,0) +If this field is YES then the item can be installed. The value for +"^DD",811.8,811.8021,3,21,2,0) +this field is determined when the list of components and items in +"^DD",811.8,811.8021,3,21,3,0) +the Exchange File is built. +"^DD",811.8,811.8021,3,21,4,0) + +"^DD",811.8,811.8021,3,"DT") +3080122 +"^DD",811.8,811.8021,4,0) +SELECTABLE^S^0:NO;1:YES;^0;7^Q +"^DD",811.8,811.8021,4,21,0) +^.001^6^6^3080206^^ +"^DD",811.8,811.8021,4,21,1,0) +If this field is marked YES then the item can be selected for +"^DD",811.8,811.8021,4,21,2,0) +installation. This will include all Clinical Reminder items selected +"^DD",811.8,811.8021,4,21,3,0) +for packing by the user, reminder dialogs that are linked to a reminder +"^DD",811.8,811.8021,4,21,4,0) +definition, and entries from files that are exchangeable. +"^DD",811.8,811.8021,4,21,5,0) + +"^DD",811.8,811.8021,4,21,6,0) + +"^DD",811.8,811.8021,4,"DT") +3080206 +"^DD",811.8,811.803,0) +INSTALLATION HISTORY SUB-FIELD^^2^4 +"^DD",811.8,811.803,0,"DT") +3070808 +"^DD",811.8,811.803,0,"NM","INSTALLATION HISTORY") + +"^DD",811.8,811.803,0,"UP") +811.8 +"^DD",811.8,811.803,.01,0) +INSTALLATION DATE AND TIME^D^^0;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X +"^DD",811.8,811.803,.01,1,0) +^.1^^0 +"^DD",811.8,811.803,.01,3) +Do not edit this field. +"^DD",811.8,811.803,.01,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.803,.01,21,1,0) +This is the date and time of the installation. +"^DD",811.8,811.803,.01,"DT") +3001121 +"^DD",811.8,811.803,.02,0) +INSTALLED BY^F^^0;2^K:$L(X)>45!($L(X)<1) X +"^DD",811.8,811.803,.02,3) +Do not edit this field. +"^DD",811.8,811.803,.02,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.803,.02,21,1,0) +This is the person who did the installation. +"^DD",811.8,811.803,.02,"DT") +3001116 +"^DD",811.8,811.803,1,0) +COMPONENT LIST^811.8031A^^1;0 +"^DD",811.8,811.803,1,21,0) +^.001^2^2^3050124^^^ +"^DD",811.8,811.803,1,21,1,0) +This multiple contains a list of the packed reminder components that +"^DD",811.8,811.803,1,21,2,0) +were selected as part of this installation. +"^DD",811.8,811.803,2,0) +INSTALLATION TYPE^F^^0;3^K:$L(X)>30!($L(X)<1) X +"^DD",811.8,811.803,2,3) +Answer must be 1-30 characters in length. +"^DD",811.8,811.803,2,21,0) +^.001^3^3^3070808^^ +"^DD",811.8,811.803,2,21,1,0) +This field is used to store the installation type. +"^DD",811.8,811.803,2,21,2,0) + +"^DD",811.8,811.803,2,21,3,0) + +"^DD",811.8,811.803,2,"DT") +3070808 +"^DD",811.8,811.8031,0) +COMPONENT LIST SUB-FIELD^^5^6 +"^DD",811.8,811.8031,0,"DT") +3010313 +"^DD",811.8,811.8031,0,"IX","B",811.8031,.01) + +"^DD",811.8,811.8031,0,"NM","COMPONENT LIST") + +"^DD",811.8,811.8031,0,"UP") +811.803 +"^DD",811.8,811.8031,.01,0) +INDEX^NJ6,0^^0;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X +"^DD",811.8,811.8031,.01,1,0) +^.1 +"^DD",811.8,811.8031,.01,1,1,0) +811.8031^B +"^DD",811.8,811.8031,.01,1,1,1) +S ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.8031,.01,1,1,2) +K ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA) +"^DD",811.8,811.8031,.01,3) +Do not edit this field. +"^DD",811.8,811.8031,.01,21,0) +^.001^2^2^3050124^^^ +"^DD",811.8,811.8031,.01,21,1,0) +This number corresponds to the item number in the List Manager display +"^DD",811.8,811.8031,.01,21,2,0) +of the components in the Exchange File entry. +"^DD",811.8,811.8031,.01,"DT") +3001115 +"^DD",811.8,811.8031,1,0) +COMPONENT^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,1,3) +Do not edit this field. +"^DD",811.8,811.8031,1,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,1,21,1,0) +This is the type of component, Education Topic, Health Factor, etc. +"^DD",811.8,811.8031,1,"DT") +3001115 +"^DD",811.8,811.8031,2,0) +ITEM^F^^0;3^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,2,3) +Do not edit this field. +"^DD",811.8,811.8031,2,21,0) +^.001^2^2^3050124^^ +"^DD",811.8,811.8031,2,21,1,0) +This is the name of the component. For example, if the component is +"^DD",811.8,811.8031,2,21,2,0) +a Health Factor then this is the name of the Health Factor. +"^DD",811.8,811.8031,2,"DT") +3001115 +"^DD",811.8,811.8031,3,0) +ACTION^F^^0;4^K:$L(X)>4!($L(X)<1) X +"^DD",811.8,811.8031,3,3) +Do not edit this field. +"^DD",811.8,811.8031,3,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,3,21,1,0) +This is the action that was taken with the item. +"^DD",811.8,811.8031,3,"DT") +3001115 +"^DD",811.8,811.8031,4,0) +NEWNAME^F^^0;5^K:$L(X)>64!($L(X)<1) X +"^DD",811.8,811.8031,4,3) +Do not edit this field. +"^DD",811.8,811.8031,4,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.8031,4,21,1,0) +If the item was copied to a new name then the new name is stored here. +"^DD",811.8,811.8031,4,"DT") +3001115 +"^DD",811.8,811.8031,5,0) +ADDITIONAL DETAILS^811.80315A^^1;0 +"^DD",811.8,811.8031,5,21,0) +^.001^3^3^3050124^^^ +"^DD",811.8,811.8031,5,21,1,0) +This multiple is used to store additional details about the +"^DD",811.8,811.8031,5,21,2,0) +installation. As an example, if a finding in a reminder definition is +"^DD",811.8,811.8031,5,21,3,0) +replaced with another finding that information is stored here. +"^DD",811.8,811.80315,0) +ADDITIONAL DETAILS SUB-FIELD^^.01^1 +"^DD",811.8,811.80315,0,"DT") +3010313 +"^DD",811.8,811.80315,0,"IX","B",811.80315,.01) + +"^DD",811.8,811.80315,0,"NM","ADDITIONAL DETAILS") + +"^DD",811.8,811.80315,0,"UP") +811.8031 +"^DD",811.8,811.80315,.01,0) +ADDITIONAL DETAILS^F^^0;1^K:$L(X)>80!($L(X)<1) X +"^DD",811.8,811.80315,.01,1,0) +^.1 +"^DD",811.8,811.80315,.01,1,1,0) +811.80315^B +"^DD",811.8,811.80315,.01,1,1,1) +S ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",811.8,811.80315,.01,1,1,2) +K ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",811.8,811.80315,.01,3) +Do not edit this field. +"^DD",811.8,811.80315,.01,21,0) +^.001^1^1^3050124^^ +"^DD",811.8,811.80315,.01,21,1,0) +This is a line of additional information. +"^DD",811.8,811.80315,.01,"DT") +3010313 +"^DD",811.8,811.804,0) +DESCRIPTION SUB-FIELD^^.01^1 +"^DD",811.8,811.804,0,"DT") +3001221 +"^DD",811.8,811.804,0,"NM","DESCRIPTION") + +"^DD",811.8,811.804,0,"UP") +811.8 +"^DD",811.8,811.804,.01,0) +DESCRIPTION^W^^0;1^Q +"^DD",811.8,811.804,.01,3) +Do not edit this field. +"^DD",811.8,811.804,.01,"DT") +3001221 +"^DIC",811.8,811.8,0) +REMINDER EXCHANGE^811.8 +"^DIC",811.8,811.8,0,"GL") +^PXD(811.8, +"^DIC",811.8,811.8,"%",0) +^1.005^^0 +"^DIC",811.8,811.8,"%D",0) +^1.001^3^3^3050126^^^^ +"^DIC",811.8,811.8,"%D",1,0) +The Reminder Exchange File is used to store packed reminder +"^DIC",811.8,811.8,"%D",2,0) +definitions. All the entries in this file are managed by the +"^DIC",811.8,811.8,"%D",3,0) +Reminder Exchange Utility and should never be edited by hand. +"^DIC",811.8,"B","REMINDER EXCHANGE",811.8) + +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-001_PAT-002.TXT b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-001_PAT-002.TXT new file mode 100644 index 0000000..a1ab9fa --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-001_PAT-002.TXT @@ -0,0 +1,336 @@ +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: + Summary + ======= + This build contains the reminder rules and extracts for use with the +Quality Measures package for reporting for Meaningful use Stage I. It +also installs reminder dialogs for use in populating data for some of the +Outpatient Measures. + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +patches 12 and 17. The build was produced in July 2012. + Copyright WorldVistA 2012. + Licensed under GPL version 2 or later. Find it here: +http://www.gnu.org/licenses/gpl-2.0.html + Released through VISTA Forum. + + Functionality: + ============== + This patch installs the following reminder rules and selectively extracts +for these Meaningful Use Stage I measure. + + NQF 0024-alt-core_wt-kids + NQF 0013-core-HTN + NQF 0028a-core-tobacco-access + NQF 0028b-core-tobaocc-intervention + NQF 0041-alt-core-flu + NQF 0059-option1-DM-Hbalc + NQF 0061-option3-DM-BP + NQF 0064-option2-DM-LDL + NQF 0495 (Education 1 for Inpatient) + NQF 0497 (Education 2 for Inpatient) + MU Inpatient Stroke Measures (contains labs) + - NQF 0435 + - NQF 0436 + - NQF 0437 + - NQF 0438 + - NQF 0439 + - NQF 0440 + - NQF 0441 + MU Inpatient Venous Thombotic Embolism Measures (contains labs) + - NQF 0371 + - NQF 0372 + - NQF 0373 + - NQF 0374 + - NQF 0375 + - NQF 0376 + - NQF 0421-core-adult-weight (contains reminder extracts) + - NQF 0038-alt-core-childImms (contains reminder extracts) + +In addition, the following CPRS dialogs are sent in this patch. + - MU NQF0421 BMI DI + - MU NQF0041 INFLUENZA MANAGEMENT DI + - MU NQF0038 IMMUNE MANAGEMENT DI + - MU NQF0028AB MANAGEMENT DI + - MU SMOKING STATUS DI + +All of this is installed automatically, except if the labs transported in +the dialog cannot be found, the installer will be prompted to rematch +them. + + Package Elements: + ================= + This build transports and installs the following REMINDER EXCHANGE +entries: +MU NQF0013 HTN_MK 07/06/2011@15:08:53 +MU NQF0024-ALL 07/31/2012@17:49:03 +MU NQF0028 TOBACCO_MK 07/06/2011@15:14:49 +MU NQF0028AB MANAGEMENT DI 06/08/2011@16:50:31 +MU NQF0038 CHILD IMM SMH 07/27/2012@17:48:33 +MU NQF0041 FLU_MK 07/06/2011@15:26:59 +MU NQF0059_61_64_SMH 07/16/2012@10:46:17 +MU NQF0421 ADULT BMI SMH 07/26/2012@11:00:17 +MU STROKE 2.3.4.5.6.8.10 SMH 07/18/2012@10:33:53 +MU NQF 0495 ED-1 07/17/2012@11:47:55 +MU NQF 0497 ED-2 07/17/2012@11:50:23 +MU VTE 1.2.3.4.5.6 SMH 07/20/2012@09:48:30 +MU CPRS HELP DIS 08/01/2012@18:32:29 + + Routines: + ========= + C0Q1P2 (Transport and KIDS install routine) + + The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;Build 21 + + Documentation: + + + Test Sites: + =========== + + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007). + + Installation Instructions: + ========================== + Pre-installation: + + Prerequisite patches: + - PXRM*2.0*12 (Download from VA FOIA Site; part of a Multibuild) + - PXRM*2.0*17 (Download from VA FOIA Site; part of a Multibuild) + - TMG*1.0*17 (Download from Trac Server: + https://trac.opensourcevista.net/svn/PGC/tags/TMG-PGC/) + + For a successful installation, you need to be sure that the labs that +the Inpatient Measures rely on exist. If not, the Lab ADPAC needs to +create them. These labs are: + - LDL CHOLESTEROL + - PLT + - INR + + If these don't exist by the same name as above, the installer will be +asked to rematch them. + + Users can remain on the system while this patch is installed. + + Install Time - less than 5 minutes + + The Pre-installation routine PRE^C0Q1P2 will delete existing Reminder +Exchange entries with the same name. + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build, or + Use the Load a Distribution option in KIDS to load it from a + host file. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*2): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*2" at the INSTALL NAME prompt. + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + The Post-installation routine POST^C0Q1P2 will install the Reminder +Exchange entries. + +Here is an example installation log. It includes lab replacements. +Select INSTALL NAME: C0Q*1.0*2 Loaded from Distribution Loaded +from D +istribution 8/3/12@14:23:27 + => SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 + +This Distribution was loaded on Aug 03, 2012@14:23:27 with header of + SDFGHJKL; ;Created on Aug 03, 2012@11:14:09 + It consisted of the following Install(s): + C0Q*1.0*2 + + Checking C0Q*1.0*2 for overlap with VOE 1.0 . OK + No overlap found + + + Checking C0Q*1.0*2 for overlap with VOE 1.1 . OK + No overlap found + + + Checking C0Q*1.0*2 for overlap with NO HOME 1.0 . OK + No overlap found + +Checking Install for Package C0Q*1.0*2 + +Install Questions for C0Q*1.0*2 + +Incoming Files: + + + 811.8 REMINDER EXCHANGE (including data) +Note: You already have the 'REMINDER EXCHANGE' File. +I will OVERWRITE your data with mine. + + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// PHOME HOME PRINTER + + + Install Started for C0Q*1.0*2 : + Aug 03, 2012@14:23:33 + +Build Distribution Date: Aug 03, 2012 + + Installing Routines:.. + Aug 03, 2012@14:23:33 + + Running Pre-Install Routine: PRE^C0Q1P2. + + Installing Data Dictionaries: .. + Aug 03, 2012@14:23:34 + + Installing Data: + Aug 03, 2012@14:23:35 + + Running Post-Install Routine: POST^C0Q1P2. + +Installing reminder exchange entry MU NQF0024-ALL + +Installing reminder exchange entry MU NQF0013 HTN_MK + +Installing reminder exchange entry MU NQF0028 TOBACCO_MK + +Installing reminder exchange entry MU NQF0041 FLU_MK + +Installing reminder exchange entry MU NQF0059_61_64_SMH + +Installing reminder exchange entry MU NQF 0495 ED-1 + +Installing reminder exchange entry MU NQF 0497 ED-2 + +Installing reminder exchange entry MU STROKE 2.3.4.5.6.8.10 SMH + +Installing reminder exchange entry MU VTE 1.2.3.4.5.6 SMH +Finding LT.INR does not exist, what do you want to do? + + Select one of the following: + + + D Delete + P Replace with an existing entry + Q Quit the install + +Enter response: P Replace with an existing entry +Select LABORATORY TEST NAME: SAM INR +Finding LT.INR does not exist, what do you want to do? + + Select one of the following: + + + D Delete + P Replace with an existing entry + Q Quit the install + +Enter response: P Replace with an existing entry +Select LABORATORY TEST NAME: SAM INR + +Installing reminder exchange entry MU NQF0421 ADULT BMI SMH + +Installing reminder exchange entry MU NQF0038 CHILD IMM SMH + +Installing reminder exchange entry MU CPRS HELP DIS + + Updating Routine file...... + + Updating KIDS files....... + + C0Q*1.0*2 Installed. + Aug 03, 2012@14:24:27 + + Not a VA primary domain + + NO Install Message sent + + After installation, make sure you install C0Q*1.0*3, which relies on +this patch. + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: PRE^C0Q1P2 DELETE PRE-INIT ROUTINE: No +POST-INIT ROUTINE: POST^C0Q1P2 DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +811.8 REMINDER EXCHANGE YES YES YES OVER NO NO + DATA SCREEN: I $$EXFINC^C0Q1P2(Y) + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: NO + Default INHIBIT LOGONs during the install: NO + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO + +REQUIRED BUILDS: ACTION: + PXRM*2.0*12 Don't install, leave global + PXRM*2.0*17 Don't install, leave global + TMG*1.0*17 Don't install, leave global + diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-002_PAT-003.KID b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-002_PAT-003.KID new file mode 100644 index 0000000..515141f --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-002_PAT-003.KID @@ -0,0 +1,3188 @@ +KIDS Distribution saved on Aug 06, 2012@11:32:48 +QUALITY MEASURES 1.0 PATCH 3 +**KIDS**:C0Q*1.0*3^ + +**INSTALL NAME** +C0Q*1.0*3 +"BLD",7936,0) +C0Q*1.0*3^QUALITY MEASURES^0^3120806^y +"BLD",7936,1,0) +^^155^155^3120803^ +"BLD",7936,1,1,0) + Summary +"BLD",7936,1,2,0) + ======= +"BLD",7936,1,3,0) + This build contains the Quality Measures file (#1130580001.101) fully +"BLD",7936,1,4,0) + populated with the Reminder Rule Sets and if applicable Reminder Extract +"BLD",7936,1,5,0) + definitions for use with the Quality Measures package for reporting for +"BLD",7936,1,6,0) + Meaningful use Stage I. +"BLD",7936,1,7,0) + +"BLD",7936,1,8,0) + Source, Copyright, & Licensing: +"BLD",7936,1,9,0) + =============================== +"BLD",7936,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"BLD",7936,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"BLD",7936,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"BLD",7936,1,13,0) + Copyright WorldVistA 2012. +"BLD",7936,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"BLD",7936,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"BLD",7936,1,16,0) + Released through VISTA Forum. +"BLD",7936,1,17,0) + +"BLD",7936,1,18,0) + Functionality: +"BLD",7936,1,19,0) + ============== +"BLD",7936,1,20,0) + This patch is a pure data patch. It only installs reference data in the +"BLD",7936,1,21,0) +C0Q QUALITY MEASURE file (#1130580001.101). It relies on Reminder Package +"BLD",7936,1,22,0) +data (specifically rule sets and extracts) sent in C0Q*1.0*2. +"BLD",7936,1,23,0) + +"BLD",7936,1,24,0) + Package Elements: +"BLD",7936,1,25,0) + ================= +"BLD",7936,1,26,0) + This build transports entries in the C0Q QUALITY MEASURE file. +"BLD",7936,1,27,0) + +"BLD",7936,1,28,0) + Routines: +"BLD",7936,1,29,0) + ========= +"BLD",7936,1,30,0) + +"BLD",7936,1,31,0) + +"BLD",7936,1,32,0) + Documentation: +"BLD",7936,1,33,0) + +"BLD",7936,1,34,0) + +"BLD",7936,1,35,0) + Test Sites: +"BLD",7936,1,36,0) + =========== +"BLD",7936,1,37,0) + +"BLD",7936,1,38,0) + +"BLD",7936,1,39,0) + Compliance: +"BLD",7936,1,40,0) + =========== +"BLD",7936,1,41,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7936,1,42,0) + Conventions (version 3 April 2007). +"BLD",7936,1,43,0) + +"BLD",7936,1,44,0) + Installation Instructions: +"BLD",7936,1,45,0) + ========================== +"BLD",7936,1,46,0) + Pre-installation: +"BLD",7936,1,47,0) + +"BLD",7936,1,48,0) + Prerequisite patches: (both found on the trac server here: +"BLD",7936,1,49,0) + https://trac.opensourcevista.net/svn/qrda/C0Q/trunk/kids/) +"BLD",7936,1,50,0) + C0Q*1.0*2 +"BLD",7936,1,51,0) + QUALITY MEASURES 1.0 +"BLD",7936,1,52,0) + +"BLD",7936,1,53,0) + Users can remain on the system while this patch is installed. +"BLD",7936,1,54,0) + +"BLD",7936,1,55,0) + Install Time - less than 1 minute. +"BLD",7936,1,56,0) + +"BLD",7936,1,57,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7936,1,58,0) + +"BLD",7936,1,59,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7936,1,60,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"BLD",7936,1,61,0) + Use the Load a Distribution option in KIDS to load it from a +"BLD",7936,1,62,0) + host file. +"BLD",7936,1,63,0) + +"BLD",7936,1,64,0) + 2. START UP KIDS +"BLD",7936,1,65,0) + +"BLD",7936,1,66,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7936,1,67,0) + [XPD MAIN]: +"BLD",7936,1,68,0) + +"BLD",7936,1,69,0) + Edits and Distribution ... +"BLD",7936,1,70,0) + Utilities ... +"BLD",7936,1,71,0) + Installation ... +"BLD",7936,1,72,0) + +"BLD",7936,1,73,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7936,1,74,0) + --- +"BLD",7936,1,75,0) + Load a Distribution +"BLD",7936,1,76,0) + Print Transport Global +"BLD",7936,1,77,0) + Compare Transport Global to Current System +"BLD",7936,1,78,0) + Verify Checksums in Transport Global +"BLD",7936,1,79,0) + Install Package(s) +"BLD",7936,1,80,0) + Restart Install of Package(s) +"BLD",7936,1,81,0) + Unload a Distribution +"BLD",7936,1,82,0) + Backup a Transport Global +"BLD",7936,1,83,0) + +"BLD",7936,1,84,0) + Select Installation Option: +"BLD",7936,1,85,0) + +"BLD",7936,1,86,0) + 3. Select Installation Option: +"BLD",7936,1,87,0) + +"BLD",7936,1,88,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7936,1,89,0) + NAME, enter C0Q*1.0*3): +"BLD",7936,1,90,0) + +"BLD",7936,1,91,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7936,1,92,0) + message of any routines exported with this patch. It will not +"BLD",7936,1,93,0) + backup any other changes such as DD's or templates. +"BLD",7936,1,94,0) + b. Compare Transport Global to Current System - This option will +"BLD",7936,1,95,0) + allow you to view all changes that will be made when this patch +"BLD",7936,1,96,0) + is installed. It compares all components of this patch +"BLD",7936,1,97,0) + (routines, DD's, templates, etc.). +"BLD",7936,1,98,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7936,1,99,0) + you to ensure the integrity of the routines that are in the +"BLD",7936,1,100,0) + transport global. +"BLD",7936,1,101,0) + +"BLD",7936,1,102,0) + 4. Select Installation Option: Install Package(s) +"BLD",7936,1,103,0) + +"BLD",7936,1,104,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7936,1,105,0) + +"BLD",7936,1,106,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7936,1,107,0) + and enter "C0Q*1.0*3" at the INSTALL NAME prompt. +"BLD",7936,1,108,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7936,1,109,0) + Install? NO//' answer NO +"BLD",7936,1,110,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7936,1,111,0) + NO//' answer NO +"BLD",7936,1,112,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7936,1,113,0) + and Protocols? NO//' answer NO +"BLD",7936,1,114,0) + +"BLD",7936,1,115,0) + +"BLD",7936,1,116,0) +Here is an example installation log. +"BLD",7936,1,117,0) +Select INSTALL NAME: C0Q*1.0*3 Loaded from Distribution Loaded +"BLD",7936,1,118,0) +from Di +"BLD",7936,1,119,0) +stribution 8/3/12@16:32:30 +"BLD",7936,1,120,0) + => SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"BLD",7936,1,121,0) + +"BLD",7936,1,122,0) +This Distribution was loaded on Aug 03, 2012@16:32:30 with header of +"BLD",7936,1,123,0) + SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"BLD",7936,1,124,0) + It consisted of the following Install(s): +"BLD",7936,1,125,0) + C0Q*1.0*3 +"BLD",7936,1,126,0) + +"BLD",7936,1,127,0) + Checking C0Q*1.0*3 for overlap with VOE 1.0 . OK +"BLD",7936,1,128,0) + No overlap found +"BLD",7936,1,129,0) +DEVICE: HOME// PHOME HOME PRINTER +"BLD",7936,1,130,0) + +"BLD",7936,1,131,0) + +"BLD",7936,1,132,0) + Install Started for C0Q*1.0*3 : +"BLD",7936,1,133,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,134,0) + +"BLD",7936,1,135,0) +Build Distribution Date: Aug 03, 2012 +"BLD",7936,1,136,0) + +"BLD",7936,1,137,0) + Installing Routines:. +"BLD",7936,1,138,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,139,0) + +"BLD",7936,1,140,0) + Installing Data Dictionaries: .. +"BLD",7936,1,141,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,142,0) + +"BLD",7936,1,143,0) + Installing Data: +"BLD",7936,1,144,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,145,0) + +"BLD",7936,1,146,0) + Updating Routine file..... +"BLD",7936,1,147,0) + +"BLD",7936,1,148,0) + Updating KIDS files....... +"BLD",7936,1,149,0) + +"BLD",7936,1,150,0) + C0Q*1.0*3 Installed. +"BLD",7936,1,151,0) + Aug 03, 2012@16:35:24 +"BLD",7936,1,152,0) + +"BLD",7936,1,153,0) + Not a VA primary domain +"BLD",7936,1,154,0) + +"BLD",7936,1,155,0) + NO Install Message sent +"BLD",7936,4,0) +^9.64PA^1130580001.101^1 +"BLD",7936,4,1130580001.101,0) +1130580001.101 +"BLD",7936,4,1130580001.101,222) +y^y^f^^y^^y^o^n +"BLD",7936,4,"B",1130580001.101,1130580001.101) + +"BLD",7936,6.3) +12 +"BLD",7936,"ABPKG") +n +"BLD",7936,"KRN",0) +^9.67PA^779.2^20 +"BLD",7936,"KRN",.4,0) +.4 +"BLD",7936,"KRN",.401,0) +.401 +"BLD",7936,"KRN",.402,0) +.402 +"BLD",7936,"KRN",.403,0) +.403 +"BLD",7936,"KRN",.5,0) +.5 +"BLD",7936,"KRN",.84,0) +.84 +"BLD",7936,"KRN",3.6,0) +3.6 +"BLD",7936,"KRN",3.8,0) +3.8 +"BLD",7936,"KRN",9.2,0) +9.2 +"BLD",7936,"KRN",9.8,0) +9.8 +"BLD",7936,"KRN",19,0) +19 +"BLD",7936,"KRN",19.1,0) +19.1 +"BLD",7936,"KRN",101,0) +101 +"BLD",7936,"KRN",409.61,0) +409.61 +"BLD",7936,"KRN",771,0) +771 +"BLD",7936,"KRN",779.2,0) +779.2 +"BLD",7936,"KRN",870,0) +870 +"BLD",7936,"KRN",8989.51,0) +8989.51 +"BLD",7936,"KRN",8989.52,0) +8989.52 +"BLD",7936,"KRN",8994,0) +8994 +"BLD",7936,"KRN","B",.4,.4) + +"BLD",7936,"KRN","B",.401,.401) + +"BLD",7936,"KRN","B",.402,.402) + +"BLD",7936,"KRN","B",.403,.403) + +"BLD",7936,"KRN","B",.5,.5) + +"BLD",7936,"KRN","B",.84,.84) + +"BLD",7936,"KRN","B",3.6,3.6) + +"BLD",7936,"KRN","B",3.8,3.8) + +"BLD",7936,"KRN","B",9.2,9.2) + +"BLD",7936,"KRN","B",9.8,9.8) + +"BLD",7936,"KRN","B",19,19) + +"BLD",7936,"KRN","B",19.1,19.1) + +"BLD",7936,"KRN","B",101,101) + +"BLD",7936,"KRN","B",409.61,409.61) + +"BLD",7936,"KRN","B",771,771) + +"BLD",7936,"KRN","B",779.2,779.2) + +"BLD",7936,"KRN","B",870,870) + +"BLD",7936,"KRN","B",8989.51,8989.51) + +"BLD",7936,"KRN","B",8989.52,8989.52) + +"BLD",7936,"KRN","B",8994,8994) + +"BLD",7936,"QUES",0) +^9.62^^ +"BLD",7936,"REQB",0) +^9.611^2^2 +"BLD",7936,"REQB",1,0) +C0Q*1.0*2^2 +"BLD",7936,"REQB",2,0) +QUALITY MEASURES 1.0^2 +"BLD",7936,"REQB","B","C0Q*1.0*2",1) + +"BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2) + +"DATA",1130580001.101,4,0) +PQRI MEASURE 124^^^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,6,0) +PQRI MEASURE 47^^^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) +PQRI MEASURE 48^^^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,12,0) +MU EP NQF 0043^^^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) +^1130580001.111^2^2^3120730^^ +"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,12,7) +NQF0043 +"DATA",1130580001.101,14,0) +PQRI MEASURE 39^^^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) +PQRI MEASURE 173^^^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,23,0) +MU HOS NQF 0495 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495^^^^^^88^165 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497^^^^^^90^168 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435^^^^^^114^115 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436^^^^^^116^117 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437^^^^^^119^118 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438^^^^^^120^121 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439^^^^^^122^123 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440^^^^^^124^125 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441^^^^^^126^127 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371^^^^^^69^67 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372^^^^^^128^71 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373^^^^^^129^144 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374^^^^^^145^146 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375^^^^^^147^156 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376^^^^^^158^162 +"DATA",1130580001.101,39,0) +MU EP NQF 0421^^^2.16.840.1.113883.3.249.11.54 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,4) +PQRI-128 +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421^^^^^^321^320^10 +"DATA",1130580001.101,40,0) +MU EP NQF 0013^^^2.16.840.1.113883.3.249.11.56 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,4) +PQRI-13 +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013^^^^^^142^167 +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^^^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,4) +PQRI-28 +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A^^^^^^157^160 +"DATA",1130580001.101,42,0) +MU EP NQF 0041^^^2.16.840.1.113883.3.249.11.7 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,4) +PQRI-110 +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041^^^^^^242^243 +"DATA",1130580001.101,43,0) +MU EP NQF 0024 +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (ALL) +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (ALL) +"DATA",1130580001.101,43,6,0) +^^6^6^3120803^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. This specific Quality Measure is for all the children. +"DATA",1130580001.101,43,7) +NQF0024 ALL^^^^^^151^149 +"DATA",1130580001.101,44,0) +MU EP NQF 0038^^^2.16.840.1.113883.3.249.11.60 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,4) +PQRI-38 +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038 +"DATA",1130580001.101,45,0) +MU EP NQF 0059^^^2.16.840.1.113883.3.249.11.2 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,4) +PQRI-1 +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059^^^^^^260^258 +"DATA",1130580001.101,46,0) +MU EP NQF 0064^^^2.16.840.1.113883.3.249.11.3 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,4) +PQRI-2 +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064^^^^^^248^258 +"DATA",1130580001.101,47,0) +MU EP NQF 0061^^^2.16.840.1.113883.3.249.11.4 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,4) +PQRI-3 +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061^^^^^^262^258 +"DATA",1130580001.101,48,0) +MU EP NQF 0081^^^2.16.840.1.113883.3.249.11.5 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,4) +PQRI-5 +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081 +"DATA",1130580001.101,49,0) +MU EP NQF 0070^^^2.16.840.1.113883.3.249.11.6 +"DATA",1130580001.101,49,1) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +"DATA",1130580001.101,49,4) +PQRI-7 +"DATA",1130580001.101,49,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,49,6,0) +^^3^3^3101013^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients aged 18 years and older with a diagnosis of +"DATA",1130580001.101,49,6,2,0) +coronary artery disease and a prior MI who where prescribed beta-blocker +"DATA",1130580001.101,49,6,3,0) +therapy +"DATA",1130580001.101,49,7) +NQF0070 +"DATA",1130580001.101,50,0) +MU EP NQF 0031^^^2.16.840.1.113883.3.249.11.9 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,4) +PQRI-112 +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031 +"DATA",1130580001.101,51,0) +MU EP NQF 0034^^^2.16.840.1.113883.3.249.11.10 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,4) +PQRI-113 +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034 +"DATA",1130580001.101,52,0) +MU EP NQF 0067 +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067 +"DATA",1130580001.101,53,0) +MU EP NQF 0083 +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083 +"DATA",1130580001.101,54,0) +MU EP NQF 0105 +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105 +"DATA",1130580001.101,55,0) +MU EP NQF 0086 +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086 +"DATA",1130580001.101,56,0) +MU EP NQF 0088 +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088 +"DATA",1130580001.101,57,0) +MU EP NQF 0089 +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089 +"DATA",1130580001.101,58,0) +MU EP NQF 0047 +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047 +"DATA",1130580001.101,59,0) +MU EP NQF 0001 +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001 +"DATA",1130580001.101,60,0) +MU EP NQF 0002 +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002 +"DATA",1130580001.101,61,0) +MU EP NQF 0385 +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385 +"DATA",1130580001.101,62,0) +MU EP NQF 0389 +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389 +"DATA",1130580001.101,63,0) +MU EP NQF 0027 +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027 +"DATA",1130580001.101,64,0) +MU EP NQF 0055 +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055 +"DATA",1130580001.101,65,0) +MU EP NQF 0062 +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062 +"DATA",1130580001.101,66,0) +MU EP NQF 0056 +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056 +"DATA",1130580001.101,67,0) +MU EP NQF 0074 +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074 +"DATA",1130580001.101,68,0) +MU EP NQF 0084 +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084 +"DATA",1130580001.101,69,0) +MU EP NQF 0073 +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073 +"DATA",1130580001.101,70,0) +MU EP NQF 0068 +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068 +"DATA",1130580001.101,71,0) +MU EP NQF 0004 +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004 +"DATA",1130580001.101,72,0) +MU EP NQF 0012 +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012 +"DATA",1130580001.101,73,0) +MU EP NQF 0014 +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014 +"DATA",1130580001.101,74,0) +MU EP NQF 0018 +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018 +"DATA",1130580001.101,75,0) +MU EP NQF 0032 +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032 +"DATA",1130580001.101,76,0) +MU EP NQF 0033 +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033 +"DATA",1130580001.101,77,0) +MU EP NQF 0036 +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036 +"DATA",1130580001.101,78,0) +MU EP NQF 0052 +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052 +"DATA",1130580001.101,79,0) +MU EP NQF 0075 +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075 +"DATA",1130580001.101,80,0) +MU EP NQF 0575 +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575 +"DATA",1130580001.101,81,0) +MU EP NQF 0028B +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B^^^^^^154^160 +"DATA",1130580001.101,82,0) +MU EP NQF 0024 2-10Y +"DATA",1130580001.101,82,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (2-10) +"DATA",1130580001.101,82,5) +Weight Assessment and Counseling for Children 2-10 Years Old +"DATA",1130580001.101,82,6,0) +^^6^6^3120803^ +"DATA",1130580001.101,82,6,1,0) +Percentage of patients 2-10 years of age +"DATA",1130580001.101,82,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,82,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,82,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,82,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,82,6,6,0) +year. Only for those 2-10 years of age. +"DATA",1130580001.101,82,7) +NQF0024 2-10Y^^^^^^334^338 +"DATA",1130580001.101,83,0) +MU EP NQF 0038 NUM1 DPT +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT^^^^^^329^192^11 +"DATA",1130580001.101,84,0) +MU EP NQF 0038 NUM2 IPV +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV^^^^^^224^192^11 +"DATA",1130580001.101,85,0) +MU EP NQF 0038 NUM3 MMR +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR^^^^^^183^192^11 +"DATA",1130580001.101,86,0) +MU EP NQF 0038 NUM4 HiB +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB^^^^^^189^192^11 +"DATA",1130580001.101,87,0) +MU EP NQF 0038 NUM5 HEP B +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B^^^^^^194^192^11 +"DATA",1130580001.101,88,0) +MU EP NQF 0038 NUM6 VZV +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV^^^^^^198^192^11 +"DATA",1130580001.101,89,0) +MU EP NQF 0038 NUM7 PCV +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV^^^^^^205^192^11 +"DATA",1130580001.101,90,0) +MU EP NQF 0038 NUM8 HEP A +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A^^^^^^208^192^11 +"DATA",1130580001.101,91,0) +MU EP NQF 0038 NUM9 RV +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9^^^^^^216^192^11 +"DATA",1130580001.101,92,0) +MU EP NQF 0038 NUM10 FLU +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10^^^^^^331^192^11 +"DATA",1130580001.101,93,0) +MU EP NQF 0038 NUM11 COMBO5 +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5^^^^^^228^192^11 +"DATA",1130580001.101,94,0) +MU EP NQF 0038 NUM12 COMBO6 +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6^^^^^^231^192^11 +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,104,0) +MU EP NQF 0024 11-17Y +"DATA",1130580001.101,104,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents (11-17) +"DATA",1130580001.101,104,5) +Weight Assessment and Counseling for Children and Adolescents 11-17 years old +"DATA",1130580001.101,104,6,0) +^^6^6^3120803^ +"DATA",1130580001.101,104,6,1,0) +Percentage of patients 11-17 years of age +"DATA",1130580001.101,104,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,104,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,104,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,104,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,104,6,6,0) +year. Only for those 11-17 years old. +"DATA",1130580001.101,104,7) +NQF0024 11-17Y^^^^^^336^340 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^y^^y^o^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FRV1",1130580001.101,"104,7",7) +MU NQF0024 BMI PERCENTILE 11-17Y RS +"FRV1",1130580001.101,"104,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"104,7",8) +MU NQF0024 BMI 11-17Y DENOM RS +"FRV1",1130580001.101,"104,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"23,7",7) +MU ED-1 NUMER RS +"FRV1",1130580001.101,"23,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"23,7",8) +MU ED-1 DENOM RS +"FRV1",1130580001.101,"23,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",7) +MU ED-2 NUMER RS +"FRV1",1130580001.101,"24,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",8) +MU ED-2 DENOM RS +"FRV1",1130580001.101,"24,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",7) +MU STK-2 NUMER RS +"FRV1",1130580001.101,"25,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",8) +MU STK-2 DENOM RS +"FRV1",1130580001.101,"25,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",7) +MU STK-3 NUMER RS +"FRV1",1130580001.101,"26,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",8) +MU STK-3 DENOM RS +"FRV1",1130580001.101,"26,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",7) +MU STK-4 NUMER RS +"FRV1",1130580001.101,"27,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",8) +MU STK-4 DENOM RS +"FRV1",1130580001.101,"27,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",7) +MU STK-5 NUMER RS +"FRV1",1130580001.101,"28,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",8) +MU STK-5 DENOM RS +"FRV1",1130580001.101,"28,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",7) +MU STK-6 NUMER RS +"FRV1",1130580001.101,"29,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",8) +MU STK-6 DENOM RS +"FRV1",1130580001.101,"29,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",7) +MU STK-8 NUMER RS +"FRV1",1130580001.101,"30,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",8) +MU STK-8 DENOM RS +"FRV1",1130580001.101,"30,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",7) +MU STK-10 NUMER RS +"FRV1",1130580001.101,"31,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",8) +MU STK-10 DENOM RS +"FRV1",1130580001.101,"31,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",7) +MU VTE-1 NUMER RS +"FRV1",1130580001.101,"32,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",8) +MU VTE-1 DENOM RS +"FRV1",1130580001.101,"32,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",7) +MU VTE-2 NUMER RS +"FRV1",1130580001.101,"33,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",8) +MU VTE-2 DENOM RS +"FRV1",1130580001.101,"33,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",7) +MU VTE-3 NUMER RS +"FRV1",1130580001.101,"34,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",8) +MU VTE-3 DENOM RS +"FRV1",1130580001.101,"34,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",7) +MU VTE-4 NUMER RS +"FRV1",1130580001.101,"35,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",8) +MU VTE-4 DENOM RS +"FRV1",1130580001.101,"35,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",7) +MU VTE-5 NUMER RS +"FRV1",1130580001.101,"36,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",8) +MU VTE-5 DENOM RS +"FRV1",1130580001.101,"36,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",7) +MU VTE-6 NUMER RS +"FRV1",1130580001.101,"37,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",8) +MU VTE-6 DENOM RS +"FRV1",1130580001.101,"37,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"39,7",7) +MU NQF0421 BMI NUM ALL RS +"FRV1",1130580001.101,"39,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"39,7",8) +MU NQF0421 BMI DENOM ALL RS +"FRV1",1130580001.101,"39,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"39,7",9) +MU NQF0421 ADULT BMI +"FRV1",1130580001.101,"39,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"40,7",7) +MU NQF0013 HTN NUMER2 RS +"FRV1",1130580001.101,"40,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"40,7",8) +MU NQF0013 HTN DENOM2 RS +"FRV1",1130580001.101,"40,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"41,7",7) +MU NQF0028A TOBACCO SCREEN NUM RS +"FRV1",1130580001.101,"41,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"41,7",8) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1",1130580001.101,"41,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"42,7",7) +MU NQF0041 FLU RS +"FRV1",1130580001.101,"42,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"42,7",8) +MU NQF0041 FLU DENOM RS +"FRV1",1130580001.101,"42,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"43,7",7) +MU NQF0024 BMI 2-17YR NUM RS +"FRV1",1130580001.101,"43,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"43,7",8) +MU NQF0024 BMI 2-17YRS DEM RS +"FRV1",1130580001.101,"43,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"45,7",7) +MU NQF0059 HBA1C NUM RS +"FRV1",1130580001.101,"45,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"45,7",8) +MU NQF0059 DM DENOM-ALL RS +"FRV1",1130580001.101,"45,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"46,7",7) +MU NQF0064 NUM LDL RS +"FRV1",1130580001.101,"46,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"46,7",8) +MU NQF0059 DM DENOM-ALL RS +"FRV1",1130580001.101,"46,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"47,7",7) +MU NQF0061 NUM DM BP<140/90 RS +"FRV1",1130580001.101,"47,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"47,7",8) +MU NQF0059 DM DENOM-ALL RS +"FRV1",1130580001.101,"47,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"81,7",7) +MU NQF0028B TOBACCO INTERV NUM2 RS +"FRV1",1130580001.101,"81,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"81,7",8) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1",1130580001.101,"81,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"82,7",7) +MU NQF0024 BMI PERCENTILE 2-10Y RS +"FRV1",1130580001.101,"82,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"82,7",8) +MU NQF0024 BMI 2-10Y DENOM RS +"FRV1",1130580001.101,"82,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"83,7",7) +MU NQF0038 NUM1 DPT RS +"FRV1",1130580001.101,"83,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"83,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"83,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"83,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"83,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"84,7",7) +MU NQF0038 NUM2 IPV RS +"FRV1",1130580001.101,"84,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"84,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"84,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"84,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"84,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"85,7",7) +MU NQF0038 NUM3-ALL RS +"FRV1",1130580001.101,"85,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"85,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"85,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"85,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"85,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"86,7",7) +MU NQF0038 NUM4 HIB RS +"FRV1",1130580001.101,"86,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"86,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"86,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"86,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"86,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"87,7",7) +MU NQF0038 NUM5 RS +"FRV1",1130580001.101,"87,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"87,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"87,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"87,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"87,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"88,7",7) +MU NQF0038 NUM6 VZV RS +"FRV1",1130580001.101,"88,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"88,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"88,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"88,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"88,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"89,7",7) +MU NQF0038 NUM7 PCV RS +"FRV1",1130580001.101,"89,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"89,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"89,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"89,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"89,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"90,7",7) +MU NQF0038 NUM8 HEP A RS +"FRV1",1130580001.101,"90,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"90,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"90,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"90,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"90,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"91,7",7) +MU NQF0038 NUM9 RV RS +"FRV1",1130580001.101,"91,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"91,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"91,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"91,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"91,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"92,7",7) +MU NQF0038 NUM10 INFLUENZA RS +"FRV1",1130580001.101,"92,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"92,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"92,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"92,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"92,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"93,7",7) +MU NQF0038 NUM11 COMBO5 RS +"FRV1",1130580001.101,"93,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"93,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"93,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"93,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"93,7",9,"F") +;PXRM(810.2, +"FRV1",1130580001.101,"94,7",7) +MU NQF0038 NUM12 COMBO6 RS +"FRV1",1130580001.101,"94,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"94,7",8) +MU NQF0038 DENOM RS +"FRV1",1130580001.101,"94,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"94,7",9) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1",1130580001.101,"94,7",9,"F") +;PXRM(810.2, +"FRV1K",1130580001.101,"104,7",7) +B +"FRV1K",1130580001.101,"104,7",7,1) +MU NQF0024 BMI PERCENTILE 11-17Y RS +"FRV1K",1130580001.101,"104,7",8) +B +"FRV1K",1130580001.101,"104,7",8,1) +MU NQF0024 BMI 11-17Y DENOM RS +"FRV1K",1130580001.101,"23,7",7) +B +"FRV1K",1130580001.101,"23,7",7,1) +MU ED-1 NUMER RS +"FRV1K",1130580001.101,"23,7",8) +B +"FRV1K",1130580001.101,"23,7",8,1) +MU ED-1 DENOM RS +"FRV1K",1130580001.101,"24,7",7) +B +"FRV1K",1130580001.101,"24,7",7,1) +MU ED-2 NUMER RS +"FRV1K",1130580001.101,"24,7",8) +B +"FRV1K",1130580001.101,"24,7",8,1) +MU ED-2 DENOM RS +"FRV1K",1130580001.101,"25,7",7) +B +"FRV1K",1130580001.101,"25,7",7,1) +MU STK-2 NUMER RS +"FRV1K",1130580001.101,"25,7",8) +B +"FRV1K",1130580001.101,"25,7",8,1) +MU STK-2 DENOM RS +"FRV1K",1130580001.101,"26,7",7) +B +"FRV1K",1130580001.101,"26,7",7,1) +MU STK-3 NUMER RS +"FRV1K",1130580001.101,"26,7",8) +B +"FRV1K",1130580001.101,"26,7",8,1) +MU STK-3 DENOM RS +"FRV1K",1130580001.101,"27,7",7) +B +"FRV1K",1130580001.101,"27,7",7,1) +MU STK-4 NUMER RS +"FRV1K",1130580001.101,"27,7",8) +B +"FRV1K",1130580001.101,"27,7",8,1) +MU STK-4 DENOM RS +"FRV1K",1130580001.101,"28,7",7) +B +"FRV1K",1130580001.101,"28,7",7,1) +MU STK-5 NUMER RS +"FRV1K",1130580001.101,"28,7",8) +B +"FRV1K",1130580001.101,"28,7",8,1) +MU STK-5 DENOM RS +"FRV1K",1130580001.101,"29,7",7) +B +"FRV1K",1130580001.101,"29,7",7,1) +MU STK-6 NUMER RS +"FRV1K",1130580001.101,"29,7",8) +B +"FRV1K",1130580001.101,"29,7",8,1) +MU STK-6 DENOM RS +"FRV1K",1130580001.101,"30,7",7) +B +"FRV1K",1130580001.101,"30,7",7,1) +MU STK-8 NUMER RS +"FRV1K",1130580001.101,"30,7",8) +B +"FRV1K",1130580001.101,"30,7",8,1) +MU STK-8 DENOM RS +"FRV1K",1130580001.101,"31,7",7) +B +"FRV1K",1130580001.101,"31,7",7,1) +MU STK-10 NUMER RS +"FRV1K",1130580001.101,"31,7",8) +B +"FRV1K",1130580001.101,"31,7",8,1) +MU STK-10 DENOM RS +"FRV1K",1130580001.101,"32,7",7) +B +"FRV1K",1130580001.101,"32,7",7,1) +MU VTE-1 NUMER RS +"FRV1K",1130580001.101,"32,7",8) +B +"FRV1K",1130580001.101,"32,7",8,1) +MU VTE-1 DENOM RS +"FRV1K",1130580001.101,"33,7",7) +B +"FRV1K",1130580001.101,"33,7",7,1) +MU VTE-2 NUMER RS +"FRV1K",1130580001.101,"33,7",8) +B +"FRV1K",1130580001.101,"33,7",8,1) +MU VTE-2 DENOM RS +"FRV1K",1130580001.101,"34,7",7) +B +"FRV1K",1130580001.101,"34,7",7,1) +MU VTE-3 NUMER RS +"FRV1K",1130580001.101,"34,7",8) +B +"FRV1K",1130580001.101,"34,7",8,1) +MU VTE-3 DENOM RS +"FRV1K",1130580001.101,"35,7",7) +B +"FRV1K",1130580001.101,"35,7",7,1) +MU VTE-4 NUMER RS +"FRV1K",1130580001.101,"35,7",8) +B +"FRV1K",1130580001.101,"35,7",8,1) +MU VTE-4 DENOM RS +"FRV1K",1130580001.101,"36,7",7) +B +"FRV1K",1130580001.101,"36,7",7,1) +MU VTE-5 NUMER RS +"FRV1K",1130580001.101,"36,7",8) +B +"FRV1K",1130580001.101,"36,7",8,1) +MU VTE-5 DENOM RS +"FRV1K",1130580001.101,"37,7",7) +B +"FRV1K",1130580001.101,"37,7",7,1) +MU VTE-6 NUMER RS +"FRV1K",1130580001.101,"37,7",8) +B +"FRV1K",1130580001.101,"37,7",8,1) +MU VTE-6 DENOM RS +"FRV1K",1130580001.101,"39,7",7) +B +"FRV1K",1130580001.101,"39,7",7,1) +MU NQF0421 BMI NUM ALL RS +"FRV1K",1130580001.101,"39,7",8) +B +"FRV1K",1130580001.101,"39,7",8,1) +MU NQF0421 BMI DENOM ALL RS +"FRV1K",1130580001.101,"39,7",9) +B +"FRV1K",1130580001.101,"39,7",9,1) +MU NQF0421 ADULT BMI +"FRV1K",1130580001.101,"40,7",7) +B +"FRV1K",1130580001.101,"40,7",7,1) +MU NQF0013 HTN NUMER2 RS +"FRV1K",1130580001.101,"40,7",8) +B +"FRV1K",1130580001.101,"40,7",8,1) +MU NQF0013 HTN DENOM2 RS +"FRV1K",1130580001.101,"41,7",7) +B +"FRV1K",1130580001.101,"41,7",7,1) +MU NQF0028A TOBACCO SCREEN NUM RS +"FRV1K",1130580001.101,"41,7",8) +B +"FRV1K",1130580001.101,"41,7",8,1) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1K",1130580001.101,"42,7",7) +B +"FRV1K",1130580001.101,"42,7",7,1) +MU NQF0041 FLU RS +"FRV1K",1130580001.101,"42,7",8) +B +"FRV1K",1130580001.101,"42,7",8,1) +MU NQF0041 FLU DENOM RS +"FRV1K",1130580001.101,"43,7",7) +B +"FRV1K",1130580001.101,"43,7",7,1) +MU NQF0024 BMI 2-17YR NUM RS +"FRV1K",1130580001.101,"43,7",8) +B +"FRV1K",1130580001.101,"43,7",8,1) +MU NQF0024 BMI 2-17YRS DEM RS +"FRV1K",1130580001.101,"45,7",7) +B +"FRV1K",1130580001.101,"45,7",7,1) +MU NQF0059 HBA1C NUM RS +"FRV1K",1130580001.101,"45,7",8) +B +"FRV1K",1130580001.101,"45,7",8,1) +MU NQF0059 DM DENOM-ALL RS +"FRV1K",1130580001.101,"46,7",7) +B +"FRV1K",1130580001.101,"46,7",7,1) +MU NQF0064 NUM LDL RS +"FRV1K",1130580001.101,"46,7",8) +B +"FRV1K",1130580001.101,"46,7",8,1) +MU NQF0059 DM DENOM-ALL RS +"FRV1K",1130580001.101,"47,7",7) +B +"FRV1K",1130580001.101,"47,7",7,1) +MU NQF0061 NUM DM BP<140/90 RS +"FRV1K",1130580001.101,"47,7",8) +B +"FRV1K",1130580001.101,"47,7",8,1) +MU NQF0059 DM DENOM-ALL RS +"FRV1K",1130580001.101,"81,7",7) +B +"FRV1K",1130580001.101,"81,7",7,1) +MU NQF0028B TOBACCO INTERV NUM2 RS +"FRV1K",1130580001.101,"81,7",8) +B +"FRV1K",1130580001.101,"81,7",8,1) +MU NQF0028B TOBACCO INTERV DENOM RS +"FRV1K",1130580001.101,"82,7",7) +B +"FRV1K",1130580001.101,"82,7",7,1) +MU NQF0024 BMI PERCENTILE 2-10Y RS +"FRV1K",1130580001.101,"82,7",8) +B +"FRV1K",1130580001.101,"82,7",8,1) +MU NQF0024 BMI 2-10Y DENOM RS +"FRV1K",1130580001.101,"83,7",7) +B +"FRV1K",1130580001.101,"83,7",7,1) +MU NQF0038 NUM1 DPT RS +"FRV1K",1130580001.101,"83,7",8) +B +"FRV1K",1130580001.101,"83,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"83,7",9) +B +"FRV1K",1130580001.101,"83,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"84,7",7) +B +"FRV1K",1130580001.101,"84,7",7,1) +MU NQF0038 NUM2 IPV RS +"FRV1K",1130580001.101,"84,7",8) +B +"FRV1K",1130580001.101,"84,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"84,7",9) +B +"FRV1K",1130580001.101,"84,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"85,7",7) +B +"FRV1K",1130580001.101,"85,7",7,1) +MU NQF0038 NUM3-ALL RS +"FRV1K",1130580001.101,"85,7",8) +B +"FRV1K",1130580001.101,"85,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"85,7",9) +B +"FRV1K",1130580001.101,"85,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"86,7",7) +B +"FRV1K",1130580001.101,"86,7",7,1) +MU NQF0038 NUM4 HIB RS +"FRV1K",1130580001.101,"86,7",8) +B +"FRV1K",1130580001.101,"86,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"86,7",9) +B +"FRV1K",1130580001.101,"86,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"87,7",7) +B +"FRV1K",1130580001.101,"87,7",7,1) +MU NQF0038 NUM5 RS +"FRV1K",1130580001.101,"87,7",8) +B +"FRV1K",1130580001.101,"87,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"87,7",9) +B +"FRV1K",1130580001.101,"87,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"88,7",7) +B +"FRV1K",1130580001.101,"88,7",7,1) +MU NQF0038 NUM6 VZV RS +"FRV1K",1130580001.101,"88,7",8) +B +"FRV1K",1130580001.101,"88,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"88,7",9) +B +"FRV1K",1130580001.101,"88,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"89,7",7) +B +"FRV1K",1130580001.101,"89,7",7,1) +MU NQF0038 NUM7 PCV RS +"FRV1K",1130580001.101,"89,7",8) +B +"FRV1K",1130580001.101,"89,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"89,7",9) +B +"FRV1K",1130580001.101,"89,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"90,7",7) +B +"FRV1K",1130580001.101,"90,7",7,1) +MU NQF0038 NUM8 HEP A RS +"FRV1K",1130580001.101,"90,7",8) +B +"FRV1K",1130580001.101,"90,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"90,7",9) +B +"FRV1K",1130580001.101,"90,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"91,7",7) +B +"FRV1K",1130580001.101,"91,7",7,1) +MU NQF0038 NUM9 RV RS +"FRV1K",1130580001.101,"91,7",8) +B +"FRV1K",1130580001.101,"91,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"91,7",9) +B +"FRV1K",1130580001.101,"91,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"92,7",7) +B +"FRV1K",1130580001.101,"92,7",7,1) +MU NQF0038 NUM10 INFLUENZA RS +"FRV1K",1130580001.101,"92,7",8) +B +"FRV1K",1130580001.101,"92,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"92,7",9) +B +"FRV1K",1130580001.101,"92,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"93,7",7) +B +"FRV1K",1130580001.101,"93,7",7,1) +MU NQF0038 NUM11 COMBO5 RS +"FRV1K",1130580001.101,"93,7",8) +B +"FRV1K",1130580001.101,"93,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"93,7",9) +B +"FRV1K",1130580001.101,"93,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"FRV1K",1130580001.101,"94,7",7) +B +"FRV1K",1130580001.101,"94,7",7,1) +MU NQF0038 NUM12 COMBO6 RS +"FRV1K",1130580001.101,"94,7",8) +B +"FRV1K",1130580001.101,"94,7",8,1) +MU NQF0038 DENOM RS +"FRV1K",1130580001.101,"94,7",9) +B +"FRV1K",1130580001.101,"94,7",9,1) +MU NQF0038 CHILDREN'S IMMUNIZATIONS +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^562 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"MBREQ") +0 +"PGL",1130580001.101,0,2,1) +NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q +"PGL",1130580001.101,0,3,2) +DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q +"PGL",1130580001.101,7,2,1.1) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"PGL",1130580001.101,7,3,2.1) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"PGL",1130580001.101,7,4,1.5) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"PGL",1130580001.101,7,5,1.51) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"PGL",1130580001.101,7,7,1.2) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,8,2.2) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,9,2.5) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"PKG",215,-1) +1^1 +"PKG",215,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",215,20,0) +^9.402P^^ +"PKG",215,22,0) +^9.49I^1^1 +"PKG",215,22,1,0) +1.0^3120731^3120806^8 +"PKG",215,22,1,"PAH",1,0) +3^3120806^8 +"PKG",215,22,1,"PAH",1,1,0) +^^155^155^3120806 +"PKG",215,22,1,"PAH",1,1,1,0) + Summary +"PKG",215,22,1,"PAH",1,1,2,0) + ======= +"PKG",215,22,1,"PAH",1,1,3,0) + This build contains the Quality Measures file (#1130580001.101) fully +"PKG",215,22,1,"PAH",1,1,4,0) + populated with the Reminder Rule Sets and if applicable Reminder Extract +"PKG",215,22,1,"PAH",1,1,5,0) + definitions for use with the Quality Measures package for reporting for +"PKG",215,22,1,"PAH",1,1,6,0) + Meaningful use Stage I. +"PKG",215,22,1,"PAH",1,1,7,0) + +"PKG",215,22,1,"PAH",1,1,8,0) + Source, Copyright, & Licensing: +"PKG",215,22,1,"PAH",1,1,9,0) + =============================== +"PKG",215,22,1,"PAH",1,1,10,0) + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +"PKG",215,22,1,"PAH",1,1,11,0) +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +"PKG",215,22,1,"PAH",1,1,12,0) +patches 12 and 17. The build was produced in July 2012. +"PKG",215,22,1,"PAH",1,1,13,0) + Copyright WorldVistA 2012. +"PKG",215,22,1,"PAH",1,1,14,0) + Licensed under GPL version 2 or later. Find it here: +"PKG",215,22,1,"PAH",1,1,15,0) +http://www.gnu.org/licenses/gpl-2.0.html +"PKG",215,22,1,"PAH",1,1,16,0) + Released through VISTA Forum. +"PKG",215,22,1,"PAH",1,1,17,0) + +"PKG",215,22,1,"PAH",1,1,18,0) + Functionality: +"PKG",215,22,1,"PAH",1,1,19,0) + ============== +"PKG",215,22,1,"PAH",1,1,20,0) + This patch is a pure data patch. It only installs reference data in the +"PKG",215,22,1,"PAH",1,1,21,0) +C0Q QUALITY MEASURE file (#1130580001.101). It relies on Reminder Package +"PKG",215,22,1,"PAH",1,1,22,0) +data (specifically rule sets and extracts) sent in C0Q*1.0*2. +"PKG",215,22,1,"PAH",1,1,23,0) + +"PKG",215,22,1,"PAH",1,1,24,0) + Package Elements: +"PKG",215,22,1,"PAH",1,1,25,0) + ================= +"PKG",215,22,1,"PAH",1,1,26,0) + This build transports entries in the C0Q QUALITY MEASURE file. +"PKG",215,22,1,"PAH",1,1,27,0) + +"PKG",215,22,1,"PAH",1,1,28,0) + Routines: +"PKG",215,22,1,"PAH",1,1,29,0) + ========= +"PKG",215,22,1,"PAH",1,1,30,0) + +"PKG",215,22,1,"PAH",1,1,31,0) + +"PKG",215,22,1,"PAH",1,1,32,0) + Documentation: +"PKG",215,22,1,"PAH",1,1,33,0) + +"PKG",215,22,1,"PAH",1,1,34,0) + +"PKG",215,22,1,"PAH",1,1,35,0) + Test Sites: +"PKG",215,22,1,"PAH",1,1,36,0) + =========== +"PKG",215,22,1,"PAH",1,1,37,0) + +"PKG",215,22,1,"PAH",1,1,38,0) + +"PKG",215,22,1,"PAH",1,1,39,0) + Compliance: +"PKG",215,22,1,"PAH",1,1,40,0) + =========== +"PKG",215,22,1,"PAH",1,1,41,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",215,22,1,"PAH",1,1,42,0) + Conventions (version 3 April 2007). +"PKG",215,22,1,"PAH",1,1,43,0) + +"PKG",215,22,1,"PAH",1,1,44,0) + Installation Instructions: +"PKG",215,22,1,"PAH",1,1,45,0) + ========================== +"PKG",215,22,1,"PAH",1,1,46,0) + Pre-installation: +"PKG",215,22,1,"PAH",1,1,47,0) + +"PKG",215,22,1,"PAH",1,1,48,0) + Prerequisite patches: (both found on the trac server here: +"PKG",215,22,1,"PAH",1,1,49,0) + https://trac.opensourcevista.net/svn/qrda/C0Q/trunk/kids/) +"PKG",215,22,1,"PAH",1,1,50,0) + C0Q*1.0*2 +"PKG",215,22,1,"PAH",1,1,51,0) + QUALITY MEASURES 1.0 +"PKG",215,22,1,"PAH",1,1,52,0) + +"PKG",215,22,1,"PAH",1,1,53,0) + Users can remain on the system while this patch is installed. +"PKG",215,22,1,"PAH",1,1,54,0) + +"PKG",215,22,1,"PAH",1,1,55,0) + Install Time - less than 1 minute. +"PKG",215,22,1,"PAH",1,1,56,0) + +"PKG",215,22,1,"PAH",1,1,57,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",215,22,1,"PAH",1,1,58,0) + +"PKG",215,22,1,"PAH",1,1,59,0) + Choose the PackMan message containing this patch and invoke the +"PKG",215,22,1,"PAH",1,1,60,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build, or +"PKG",215,22,1,"PAH",1,1,61,0) + Use the Load a Distribution option in KIDS to load it from a +"PKG",215,22,1,"PAH",1,1,62,0) + host file. +"PKG",215,22,1,"PAH",1,1,63,0) + +"PKG",215,22,1,"PAH",1,1,64,0) + 2. START UP KIDS +"PKG",215,22,1,"PAH",1,1,65,0) + +"PKG",215,22,1,"PAH",1,1,66,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",215,22,1,"PAH",1,1,67,0) + [XPD MAIN]: +"PKG",215,22,1,"PAH",1,1,68,0) + +"PKG",215,22,1,"PAH",1,1,69,0) + Edits and Distribution ... +"PKG",215,22,1,"PAH",1,1,70,0) + Utilities ... +"PKG",215,22,1,"PAH",1,1,71,0) + Installation ... +"PKG",215,22,1,"PAH",1,1,72,0) + +"PKG",215,22,1,"PAH",1,1,73,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",215,22,1,"PAH",1,1,74,0) + --- +"PKG",215,22,1,"PAH",1,1,75,0) + Load a Distribution +"PKG",215,22,1,"PAH",1,1,76,0) + Print Transport Global +"PKG",215,22,1,"PAH",1,1,77,0) + Compare Transport Global to Current System +"PKG",215,22,1,"PAH",1,1,78,0) + Verify Checksums in Transport Global +"PKG",215,22,1,"PAH",1,1,79,0) + Install Package(s) +"PKG",215,22,1,"PAH",1,1,80,0) + Restart Install of Package(s) +"PKG",215,22,1,"PAH",1,1,81,0) + Unload a Distribution +"PKG",215,22,1,"PAH",1,1,82,0) + Backup a Transport Global +"PKG",215,22,1,"PAH",1,1,83,0) + +"PKG",215,22,1,"PAH",1,1,84,0) + Select Installation Option: +"PKG",215,22,1,"PAH",1,1,85,0) + +"PKG",215,22,1,"PAH",1,1,86,0) + 3. Select Installation Option: +"PKG",215,22,1,"PAH",1,1,87,0) + +"PKG",215,22,1,"PAH",1,1,88,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",215,22,1,"PAH",1,1,89,0) + NAME, enter C0Q*1.0*3): +"PKG",215,22,1,"PAH",1,1,90,0) + +"PKG",215,22,1,"PAH",1,1,91,0) + a. Backup a Transport Global - This option will create a backup +"PKG",215,22,1,"PAH",1,1,92,0) + message of any routines exported with this patch. It will not +"PKG",215,22,1,"PAH",1,1,93,0) + backup any other changes such as DD's or templates. +"PKG",215,22,1,"PAH",1,1,94,0) + b. Compare Transport Global to Current System - This option will +"PKG",215,22,1,"PAH",1,1,95,0) + allow you to view all changes that will be made when this patch +"PKG",215,22,1,"PAH",1,1,96,0) + is installed. It compares all components of this patch +"PKG",215,22,1,"PAH",1,1,97,0) + (routines, DD's, templates, etc.). +"PKG",215,22,1,"PAH",1,1,98,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",215,22,1,"PAH",1,1,99,0) + you to ensure the integrity of the routines that are in the +"PKG",215,22,1,"PAH",1,1,100,0) + transport global. +"PKG",215,22,1,"PAH",1,1,101,0) + +"PKG",215,22,1,"PAH",1,1,102,0) + 4. Select Installation Option: Install Package(s) +"PKG",215,22,1,"PAH",1,1,103,0) + +"PKG",215,22,1,"PAH",1,1,104,0) + **This is the step to start the installation of this KIDS patch: +"PKG",215,22,1,"PAH",1,1,105,0) + +"PKG",215,22,1,"PAH",1,1,106,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",215,22,1,"PAH",1,1,107,0) + and enter "C0Q*1.0*3" at the INSTALL NAME prompt. +"PKG",215,22,1,"PAH",1,1,108,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",215,22,1,"PAH",1,1,109,0) + Install? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,110,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",215,22,1,"PAH",1,1,111,0) + NO//' answer NO +"PKG",215,22,1,"PAH",1,1,112,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",215,22,1,"PAH",1,1,113,0) + and Protocols? NO//' answer NO +"PKG",215,22,1,"PAH",1,1,114,0) + +"PKG",215,22,1,"PAH",1,1,115,0) + +"PKG",215,22,1,"PAH",1,1,116,0) +Here is an example installation log. +"PKG",215,22,1,"PAH",1,1,117,0) +Select INSTALL NAME: C0Q*1.0*3 Loaded from Distribution Loaded +"PKG",215,22,1,"PAH",1,1,118,0) +from Di +"PKG",215,22,1,"PAH",1,1,119,0) +stribution 8/3/12@16:32:30 +"PKG",215,22,1,"PAH",1,1,120,0) + => SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"PKG",215,22,1,"PAH",1,1,121,0) + +"PKG",215,22,1,"PAH",1,1,122,0) +This Distribution was loaded on Aug 03, 2012@16:32:30 with header of +"PKG",215,22,1,"PAH",1,1,123,0) + SDFGHJKL ;Created on Aug 03, 2012@16:31:28 +"PKG",215,22,1,"PAH",1,1,124,0) + It consisted of the following Install(s): +"PKG",215,22,1,"PAH",1,1,125,0) + C0Q*1.0*3 +"PKG",215,22,1,"PAH",1,1,126,0) + +"PKG",215,22,1,"PAH",1,1,127,0) + Checking C0Q*1.0*3 for overlap with VOE 1.0 . OK +"PKG",215,22,1,"PAH",1,1,128,0) + No overlap found +"PKG",215,22,1,"PAH",1,1,129,0) +DEVICE: HOME// PHOME HOME PRINTER +"PKG",215,22,1,"PAH",1,1,130,0) + +"PKG",215,22,1,"PAH",1,1,131,0) + +"PKG",215,22,1,"PAH",1,1,132,0) + Install Started for C0Q*1.0*3 : +"PKG",215,22,1,"PAH",1,1,133,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,134,0) + +"PKG",215,22,1,"PAH",1,1,135,0) +Build Distribution Date: Aug 03, 2012 +"PKG",215,22,1,"PAH",1,1,136,0) + +"PKG",215,22,1,"PAH",1,1,137,0) + Installing Routines:. +"PKG",215,22,1,"PAH",1,1,138,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,139,0) + +"PKG",215,22,1,"PAH",1,1,140,0) + Installing Data Dictionaries: .. +"PKG",215,22,1,"PAH",1,1,141,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,142,0) + +"PKG",215,22,1,"PAH",1,1,143,0) + Installing Data: +"PKG",215,22,1,"PAH",1,1,144,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,145,0) + +"PKG",215,22,1,"PAH",1,1,146,0) + Updating Routine file..... +"PKG",215,22,1,"PAH",1,1,147,0) + +"PKG",215,22,1,"PAH",1,1,148,0) + Updating KIDS files....... +"PKG",215,22,1,"PAH",1,1,149,0) + +"PKG",215,22,1,"PAH",1,1,150,0) + C0Q*1.0*3 Installed. +"PKG",215,22,1,"PAH",1,1,151,0) + Aug 03, 2012@16:35:24 +"PKG",215,22,1,"PAH",1,1,152,0) + +"PKG",215,22,1,"PAH",1,1,153,0) + Not a VA primary domain +"PKG",215,22,1,"PAH",1,1,154,0) + +"PKG",215,22,1,"PAH",1,1,155,0) + NO Install Message sent +"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 +"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") +@ +"VER") +8.0^22.0 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^18 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-002_PAT-003.TXT b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-002_PAT-003.TXT new file mode 100644 index 0000000..379f9f8 --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-002_PAT-003.TXT @@ -0,0 +1,201 @@ +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + + Summary + ======= + This build contains the Quality Measures file (#1130580001.101) fully + populated with the Reminder Rule Sets and if applicable Reminder Extract + definitions for use with the Quality Measures package for reporting for + Meaningful use Stage I. + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced by Sam Habiel on a copy of Dew +Drop and tested on a virgin instance of WV EHR 3-09 patched with PXRM 2.0 +patches 12 and 17. The build was produced in July 2012. + Copyright WorldVistA 2012. + Licensed under GPL version 2 or later. Find it here: +http://www.gnu.org/licenses/gpl-2.0.html + Released through VISTA Forum. + + Functionality: + ============== + This patch is a pure data patch. It only installs reference data in the C0Q + QUALITY MEASURE file (#1130580001.101). It relies on Reminder Package data + (specifically rule sets and extracts) sent in C0Q*1.0*2. + + Package Elements: + ================= + This build transports entries in the C0Q QUALITY MEASURE file. + + Routines: + ========= + + + Documentation: + + + Test Sites: + =========== + + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007). + + Installation Instructions: + ========================== + Pre-installation: + + Prerequisite patches: (both found on the trac server here: + https://trac.opensourcevista.net/svn/qrda/C0Q/trunk/kids/) + C0Q*1.0*2 + QUALITY MEASURES 1.0 + + Users can remain on the system while this patch is installed. + + Install Time - less than 1 minute. + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build, or + Use the Load a Distribution option in KIDS to load it from a + host file. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*3): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*3" at the INSTALL NAME prompt. + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + +Here is an example installation log. +Select INSTALL NAME: C0Q*1.0*3 Loaded from Distribution Loaded from Di +stribution 8/3/12@16:32:30 + => SDFGHJKL ;Created on Aug 03, 2012@16:31:28 + +This Distribution was loaded on Aug 03, 2012@16:32:30 with header of + SDFGHJKL ;Created on Aug 03, 2012@16:31:28 + It consisted of the following Install(s): + C0Q*1.0*3 + + Checking C0Q*1.0*3 for overlap with VOE 1.0 . OK + No overlap found + + + Checking C0Q*1.0*3 for overlap with VOE 1.1 . OK + No overlap found + + + Checking C0Q*1.0*3 for overlap with NO HOME 1.0 . OK + No overlap found + +Checking Install for Package C0Q*1.0*3 + +Install Questions for C0Q*1.0*3 + +Incoming Files: + + + 1130580001.101C0Q QUALITY MEASURE (including data) +Note: You already have the 'C0Q QUALITY MEASURE' File. +I will OVERWRITE your data with mine. + + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// PHOME HOME PRINTER + + + Install Started for C0Q*1.0*3 : + Aug 03, 2012@16:35:24 + +Build Distribution Date: Aug 03, 2012 + + Installing Routines:. + Aug 03, 2012@16:35:24 + + Installing Data Dictionaries: .. + Aug 03, 2012@16:35:24 + + Installing Data: + Aug 03, 2012@16:35:24 + + Updating Routine file..... + + Updating KIDS files....... + + C0Q*1.0*3 Installed. + Aug 03, 2012@16:35:24 + + Not a VA primary domain + + NO Install Message sent + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +PRE-TRANSPORT RTN: + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO + +REQUIRED BUILDS: ACTION: + C0Q*1.0*2 Don't install, leave global + QUALITY MEASURES 1.0 Don't install, leave global diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID new file mode 100644 index 0000000..bed019e --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID @@ -0,0 +1,3180 @@ +KIDS Distribution saved on Aug 24, 2012@13:01:24 +INPATIENT CMS QRDA GENERATION SUPPORT +**KIDS**:C0Q*1.0*4^ + +**INSTALL NAME** +C0Q*1.0*4 +"BLD",7936,0) +C0Q*1.0*4^QUALITY MEASURES^0^3120824^y +"BLD",7936,1,0) +^^250^250^3120824^ +"BLD",7936,1,1,0) + Source, Copyright, & Licensing: +"BLD",7936,1,2,0) + =============================== +"BLD",7936,1,3,0) + This patch to WorldVistA 2.0 was produced in Dew Drop +"BLD",7936,1,4,0) + by George Lily on 24 August 2012 and released through VISTA Forum. +"BLD",7936,1,5,0) + +"BLD",7936,1,6,0) + (C) 2012 George Lilly +"BLD",7936,1,7,0) + Licensed under GPL 2. +"BLD",7936,1,8,0) + +"BLD",7936,1,9,0) + Functionality: +"BLD",7936,1,10,0) + ============== +"BLD",7936,1,11,0) + This patch adds the ability to generate modified CCRs +"BLD",7936,1,12,0) + containing a QUALITY measure section that looks like +"BLD",7936,1,13,0) + this: +"BLD",7936,1,14,0) + +"BLD",7936,1,15,0) + +"BLD",7936,1,16,0) + 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"BLD",7936,1,17,0) + +"BLD",7936,1,18,0) + 1.3.6.1.4.1.33895.1.2.16001.1.2.2 +"BLD",7936,1,19,0) + 1.3.6.1.4.1.33895.1.2.16002.1.2.2 +"BLD",7936,1,20,0) + 1.3.6.1.4.1.33895.1.2.16004.1.2.2 +"BLD",7936,1,21,0) + 1.3.6.1.4.1.33895.1.2.16008.1.2.2 +"BLD",7936,1,22,0) + +"BLD",7936,1,23,0) + +"BLD",7936,1,24,0) + +"BLD",7936,1,25,0) + +"BLD",7936,1,26,0) + This enables you to create a QRDA document in the C32 format to submit to CMS +"BLD",7936,1,27,0) + containing these measures. The C32 document will be generated by an XSLT +"BLD",7936,1,28,0) + transform from the CCR document. +"BLD",7936,1,29,0) + +"BLD",7936,1,30,0) + The driving force behind the creation of this patch, as well as the +"BLD",7936,1,31,0) + documentation of the actual QRDA documents to send to CMS can be found here: +"BLD",7936,1,32,0) + http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 +"BLD",7936,1,33,0) + +"BLD",7936,1,34,0) + Specifically, this sentence: +"BLD",7936,1,35,0) + "One part of meeting the requirements for Stage I Meaningful Use may include +"BLD",7936,1,36,0) + submitting Clinical Quality Measures (CQMs) electronically using the QRDA +"BLD",7936,1,37,0) + Category I file format." +"BLD",7936,1,38,0) + +"BLD",7936,1,39,0) + Package Elements: +"BLD",7936,1,40,0) + ================= +"BLD",7936,1,41,0) +PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 +"BLD",7936,1,42,0) +------------------------------------------------------------------------------- +"BLD",7936,1,43,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"BLD",7936,1,44,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"BLD",7936,1,45,0) + +"BLD",7936,1,46,0) +DESCRIPTION: +"BLD",7936,1,47,0) +QRDA Support. +"BLD",7936,1,48,0) + +"BLD",7936,1,49,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"BLD",7936,1,50,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"BLD",7936,1,51,0) +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +"BLD",7936,1,52,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P4 +"BLD",7936,1,53,0) + +"BLD",7936,1,54,0) + UP SEND DATA USER +"BLD",7936,1,55,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7936,1,56,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7936,1,57,0) +------------------------------------------------------------------------------- +"BLD",7936,1,58,0) + +"BLD",7936,1,59,0) +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO +"BLD",7936,1,60,0) + +"BLD",7936,1,61,0) +1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO +"BLD",7936,1,62,0) + +"BLD",7936,1,63,0) +1130580001.401C0Q PARAMETER YES YES NO NO +"BLD",7936,1,64,0) +Partial DD: subDD: 1130580001.401fld: 5.1 +"BLD",7936,1,65,0) + fld: 5.2 +"BLD",7936,1,66,0) + fld: 5.3 +"BLD",7936,1,67,0) + +"BLD",7936,1,68,0) +INPUT TEMPLATE: ACTION: +"BLD",7936,1,69,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE +"BLD",7936,1,70,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE +"BLD",7936,1,71,0) + +"BLD",7936,1,72,0) +ROUTINE: ACTION: +"BLD",7936,1,73,0) + C0QQRDA SEND TO SITE +"BLD",7936,1,74,0) + +"BLD",7936,1,75,0) +OPTION: ACTION: +"BLD",7936,1,76,0) + C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE +"BLD",7936,1,77,0) + C0Q QRDA MENU SEND TO SITE +"BLD",7936,1,78,0) + C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS +"BLD",7936,1,79,0) + +"BLD",7936,1,80,0) +INSTALL QUESTIONS: +"BLD",7936,1,81,0) + +"BLD",7936,1,82,0) + Default Rebuild Menu Trees Upon Completion of Install: YES +"BLD",7936,1,83,0) + Default INHIBIT LOGONs during the install: NO +"BLD",7936,1,84,0) + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO +"BLD",7936,1,85,0) + +"BLD",7936,1,86,0) +REQUIRED BUILDS: ACTION: +"BLD",7936,1,87,0) + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global +"BLD",7936,1,88,0) + QUALITY MEASURES 1.0 Don't install, leave global +"BLD",7936,1,89,0) + +"BLD",7936,1,90,0) + Summary of Changes to package: +"BLD",7936,1,91,0) + - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs +"BLD",7936,1,92,0) + for Inpatients, as follows: +"BLD",7936,1,93,0) + +"BLD",7936,1,94,0) +NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET +"BLD",7936,1,95,0) +---------------------------------------------------------------------------------- +"BLD",7936,1,96,0) + +"BLD",7936,1,97,0) +MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS +"BLD",7936,1,98,0) +MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS +"BLD",7936,1,99,0) + +"BLD",7936,1,100,0) +MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS +"BLD",7936,1,101,0) +MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS +"BLD",7936,1,102,0) +MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS +"BLD",7936,1,103,0) +MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS +"BLD",7936,1,104,0) +MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS +"BLD",7936,1,105,0) +MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS +"BLD",7936,1,106,0) +MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS +"BLD",7936,1,107,0) + +"BLD",7936,1,108,0) +MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS +"BLD",7936,1,109,0) +MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS +"BLD",7936,1,110,0) +MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS +"BLD",7936,1,111,0) +MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS +"BLD",7936,1,112,0) +MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS +"BLD",7936,1,113,0) +MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS +"BLD",7936,1,114,0) + +"BLD",7936,1,115,0) + - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET +"BLD",7936,1,116,0) + - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET +"BLD",7936,1,117,0) + - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: +"BLD",7936,1,118,0) +NAME: ED CMS REPORTING MEASURES +"BLD",7936,1,119,0) + QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 +"BLD",7936,1,120,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 +"BLD",7936,1,121,0) +MEASURE: MU HOS NQF 0495 +"BLD",7936,1,122,0) +MEASURE: MU HOS NQF 0497 +"BLD",7936,1,123,0) + MU YEAR KEY: MU12 +"BLD",7936,1,124,0) + +"BLD",7936,1,125,0) +NAME: STK CMS REPORTING MEASURES +"BLD",7936,1,126,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"BLD",7936,1,127,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"BLD",7936,1,128,0) +MEASURE: MU HOS NQF 0435 +"BLD",7936,1,129,0) +MEASURE: MU HOS NQF 0436 +"BLD",7936,1,130,0) +MEASURE: MU HOS NQF 0437 +"BLD",7936,1,131,0) +MEASURE: MU HOS NQF 0438 +"BLD",7936,1,132,0) +MEASURE: MU HOS NQF 0439 +"BLD",7936,1,133,0) +MEASURE: MU HOS NQF 0440 +"BLD",7936,1,134,0) +MEASURE: MU HOS NQF 0441 +"BLD",7936,1,135,0) + MU YEAR KEY: MU12 +"BLD",7936,1,136,0) + +"BLD",7936,1,137,0) +NAME: VTE CMS REPORTING MEASURES +"BLD",7936,1,138,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 +"BLD",7936,1,139,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"BLD",7936,1,140,0) +MEASURE: MU HOS NQF 0371 +"BLD",7936,1,141,0) +MEASURE: MU HOS NQF 0372 +"BLD",7936,1,142,0) +MEASURE: MU HOS NQF 0373 +"BLD",7936,1,143,0) +MEASURE: MU HOS NQF 0374 +"BLD",7936,1,144,0) +MEASURE: MU HOS NQF 0375 +"BLD",7936,1,145,0) +MEASURE: MU HOS NQF 0376 +"BLD",7936,1,146,0) + MU YEAR KEY: MU12 +"BLD",7936,1,147,0) + +"BLD",7936,1,148,0) + - Creation of supporting fields in the C0Q PARAMETER file to drive generation +"BLD",7936,1,149,0) + of the QRDA documents. +"BLD",7936,1,150,0) + - VTE CMS MEASUREMENT SET +"BLD",7936,1,151,0) + - STK CMS MEASUREMENT SET +"BLD",7936,1,152,0) + - ED CMS MEASUREMENT SET +"BLD",7936,1,153,0) + +"BLD",7936,1,154,0) + - Modification of existing input templates to support the new fields created. +"BLD",7936,1,155,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401 +"BLD",7936,1,156,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 +"BLD",7936,1,157,0) + +"BLD",7936,1,158,0) + - Routine C0QQRDA to drive the generation of the QRDA documents. +"BLD",7936,1,159,0) + +"BLD",7936,1,160,0) + - Menu option to call EN^C0QQRDA: +"BLD",7936,1,161,0) + -> C0Q QUALITY MEASUREMENT MENU +"BLD",7936,1,162,0) + Parent: C0Q QRDA MENU +"BLD",7936,1,163,0) + +"BLD",7936,1,164,0) + Routine Versioning: +"BLD",7936,1,165,0) + +"BLD",7936,1,166,0) + The second line of each of these routines now looks like: +"BLD",7936,1,167,0) + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 +"BLD",7936,1,168,0) + +"BLD",7936,1,169,0) + +"BLD",7936,1,170,0) + The following checksums can be checked with CHECK1^XTSUMBLD: +"BLD",7936,1,171,0) + +"BLD",7936,1,172,0) + Routine Before After Patch List +"BLD",7936,1,173,0) + ------- ----------- ------------ --------------------------------- +"BLD",7936,1,174,0) + C0QQRDA 89943644 **4** +"BLD",7936,1,175,0) + +"BLD",7936,1,176,0) + Documentation: +"BLD",7936,1,177,0) + ============== +"BLD",7936,1,178,0) + None at this moment. +"BLD",7936,1,179,0) + +"BLD",7936,1,180,0) + Test Sites: +"BLD",7936,1,181,0) + =========== +"BLD",7936,1,182,0) + None at this moment. +"BLD",7936,1,183,0) + +"BLD",7936,1,184,0) + Compliance: +"BLD",7936,1,185,0) + =========== +"BLD",7936,1,186,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7936,1,187,0) + Conventions (version 3 April 2007). +"BLD",7936,1,188,0) + +"BLD",7936,1,189,0) + Installation Instructions: +"BLD",7936,1,190,0) + ========================== +"BLD",7936,1,191,0) + Install Time - less than 1 minute +"BLD",7936,1,192,0) + +"BLD",7936,1,193,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7936,1,194,0) + +"BLD",7936,1,195,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7936,1,196,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"BLD",7936,1,197,0) + +"BLD",7936,1,198,0) + 2. START UP KIDS +"BLD",7936,1,199,0) + +"BLD",7936,1,200,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7936,1,201,0) + [XPD MAIN]: +"BLD",7936,1,202,0) + +"BLD",7936,1,203,0) + Edits and Distribution ... +"BLD",7936,1,204,0) + Utilities ... +"BLD",7936,1,205,0) + Installation ... +"BLD",7936,1,206,0) + +"BLD",7936,1,207,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7936,1,208,0) + --- +"BLD",7936,1,209,0) + Load a Distribution +"BLD",7936,1,210,0) + Print Transport Global +"BLD",7936,1,211,0) + Compare Transport Global to Current System +"BLD",7936,1,212,0) + Verify Checksums in Transport Global +"BLD",7936,1,213,0) + Install Package(s) +"BLD",7936,1,214,0) + Restart Install of Package(s) +"BLD",7936,1,215,0) + Unload a Distribution +"BLD",7936,1,216,0) + Backup a Transport Global +"BLD",7936,1,217,0) + +"BLD",7936,1,218,0) + Select Installation Option: +"BLD",7936,1,219,0) + +"BLD",7936,1,220,0) + 3. Select Installation Option: +"BLD",7936,1,221,0) + +"BLD",7936,1,222,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7936,1,223,0) + NAME, enter C0Q*1.0*4): +"BLD",7936,1,224,0) + +"BLD",7936,1,225,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7936,1,226,0) + message of any routines exported with this patch. It will not +"BLD",7936,1,227,0) + backup any other changes such as DD's or templates. +"BLD",7936,1,228,0) + b. Compare Transport Global to Current System - This option will +"BLD",7936,1,229,0) + allow you to view all changes that will be made when this patch +"BLD",7936,1,230,0) + is installed. It compares all components of this patch +"BLD",7936,1,231,0) + (routines, DD's, templates, etc.). +"BLD",7936,1,232,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7936,1,233,0) + you to ensure the integrity of the routines that are in the +"BLD",7936,1,234,0) + transport global. +"BLD",7936,1,235,0) + +"BLD",7936,1,236,0) + 4. Select Installation Option: Install Package(s) +"BLD",7936,1,237,0) + +"BLD",7936,1,238,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7936,1,239,0) + +"BLD",7936,1,240,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7936,1,241,0) + and enter "C0Q*1.0*4" at the INSTALL NAME prompt. +"BLD",7936,1,242,0) + b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' +"BLD",7936,1,243,0) + Answer YES. The file is just renamed, that's why KIDS asks you to +"BLD",7936,1,244,0) + overwrite it. +"BLD",7936,1,245,0) + c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7936,1,246,0) + Install? YES//' answer YES +"BLD",7936,1,247,0) + d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7936,1,248,0) + NO//' answer NO +"BLD",7936,1,249,0) + e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7936,1,250,0) + and Protocols? NO//' answer NO +"BLD",7936,4,0) +^9.64PA^1130580001.401^3 +"BLD",7936,4,1130580001.101,0) +1130580001.101 +"BLD",7936,4,1130580001.101,222) +y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n +"BLD",7936,4,1130580001.101,224) + +"BLD",7936,4,1130580001.201,0) +1130580001.201 +"BLD",7936,4,1130580001.201,222) +y^y^f^^y^C0Q 1P0*4 MS^y^o^n +"BLD",7936,4,1130580001.401,0) +1130580001.401 +"BLD",7936,4,1130580001.401,2,0) +^9.641^1130580001.401^1 +"BLD",7936,4,1130580001.401,2,1130580001.401,0) +C0Q PARAMETER (File-top level) +"BLD",7936,4,1130580001.401,2,1130580001.401,1,0) +^9.6411^5.3^3 +"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.1,0) +VTE CMS MEASUREMENT SET +"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.2,0) +STK CMS MEASUREMENT SET +"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.3,0) +ED CMS MEASUREMENT SET +"BLD",7936,4,1130580001.401,222) +y^y^p^^^^n^^n +"BLD",7936,4,1130580001.401,224) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.1) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.2) + +"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.3) + +"BLD",7936,4,"B",1130580001.101,1130580001.101) + +"BLD",7936,4,"B",1130580001.201,1130580001.201) + +"BLD",7936,4,"B",1130580001.401,1130580001.401) + +"BLD",7936,6.3) +28 +"BLD",7936,"KRN",0) +^9.67PA^779.2^20 +"BLD",7936,"KRN",.4,0) +.4 +"BLD",7936,"KRN",.401,0) +.401 +"BLD",7936,"KRN",.402,0) +.402 +"BLD",7936,"KRN",.402,"NM",0) +^9.68A^2^2 +"BLD",7936,"KRN",.402,"NM",1,0) +C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7936,"KRN",.402,"NM",2,0) +C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0 +"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",1) + +"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",2) + +"BLD",7936,"KRN",.403,0) +.403 +"BLD",7936,"KRN",.5,0) +.5 +"BLD",7936,"KRN",.84,0) +.84 +"BLD",7936,"KRN",3.6,0) +3.6 +"BLD",7936,"KRN",3.8,0) +3.8 +"BLD",7936,"KRN",9.2,0) +9.2 +"BLD",7936,"KRN",9.8,0) +9.8 +"BLD",7936,"KRN",9.8,"NM",0) +^9.68A^1^1 +"BLD",7936,"KRN",9.8,"NM",1,0) +C0QQRDA^^0^B89943644 +"BLD",7936,"KRN",9.8,"NM","B","C0QQRDA",1) + +"BLD",7936,"KRN",19,0) +19 +"BLD",7936,"KRN",19,"NM",0) +^9.68A^3^3 +"BLD",7936,"KRN",19,"NM",1,0) +C0Q QRDA MENU^^0 +"BLD",7936,"KRN",19,"NM",2,0) +C0Q EXPORT INPATIENT QRDA CCRS^^0 +"BLD",7936,"KRN",19,"NM",3,0) +C0Q QUALITY MEASUREMENT MENU^^2 +"BLD",7936,"KRN",19,"NM","B","C0Q EXPORT INPATIENT QRDA CCRS",2) + +"BLD",7936,"KRN",19,"NM","B","C0Q QRDA MENU",1) + +"BLD",7936,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",3) + +"BLD",7936,"KRN",19.1,0) +19.1 +"BLD",7936,"KRN",101,0) +101 +"BLD",7936,"KRN",409.61,0) +409.61 +"BLD",7936,"KRN",771,0) +771 +"BLD",7936,"KRN",779.2,0) +779.2 +"BLD",7936,"KRN",870,0) +870 +"BLD",7936,"KRN",8989.51,0) +8989.51 +"BLD",7936,"KRN",8989.52,0) +8989.52 +"BLD",7936,"KRN",8994,0) +8994 +"BLD",7936,"KRN","B",.4,.4) + +"BLD",7936,"KRN","B",.401,.401) + +"BLD",7936,"KRN","B",.402,.402) + +"BLD",7936,"KRN","B",.403,.403) + +"BLD",7936,"KRN","B",.5,.5) + +"BLD",7936,"KRN","B",.84,.84) + +"BLD",7936,"KRN","B",3.6,3.6) + +"BLD",7936,"KRN","B",3.8,3.8) + +"BLD",7936,"KRN","B",9.2,9.2) + +"BLD",7936,"KRN","B",9.8,9.8) + +"BLD",7936,"KRN","B",19,19) + +"BLD",7936,"KRN","B",19.1,19.1) + +"BLD",7936,"KRN","B",101,101) + +"BLD",7936,"KRN","B",409.61,409.61) + +"BLD",7936,"KRN","B",771,771) + +"BLD",7936,"KRN","B",779.2,779.2) + +"BLD",7936,"KRN","B",870,870) + +"BLD",7936,"KRN","B",8989.51,8989.51) + +"BLD",7936,"KRN","B",8989.52,8989.52) + +"BLD",7936,"KRN","B",8994,8994) + +"BLD",7936,"PRET") +TRAN^C0Q1P4 +"BLD",7936,"QDEF") +^^^^NO^^^^YES^^NO +"BLD",7936,"QUES",0) +^9.62^^ +"BLD",7936,"REQB",0) +^9.611^2^2 +"BLD",7936,"REQB",1,0) +CCD/CCR GENERATION UTILITIES 1.2^2 +"BLD",7936,"REQB",2,0) +QUALITY MEASURES 1.0^2 +"BLD",7936,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1) + +"BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2) + +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^^^2.16.840.1.113883.3.249.11.14.2.1.2.2 +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495^^^^^^88^165 +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^^^2.16.840.1.113883.3.249.11.14.3.1.2.2 +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497^^^^^^90^168 +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^^^1.3.6.1.4.1.33895.1.2.16001.1.2.2 +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435^^^^^^114^115 +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^^^1.3.6.1.4.1.33895.1.2.16002.1.2.2 +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436^^^^^^116^117 +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^^^1.3.6.1.4.1.33895.1.2.16003.1.2.2 +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437^^^^^^119^118 +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^^^1.3.6.1.4.1.33895.1.2.16004.1.2.2 +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438^^^^^^120^121 +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^^^1.3.6.1.4.1.33895.1.2.16005.1.2.2 +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439^^^^^^122^123 +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^^^1.3.6.1.4.1.33895.1.2.16007.1.2.2 +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440^^^^^^124^125 +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^^^1.3.6.1.4.1.33895.1.2.16008.1.2.2 +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441^^^^^^126^127 +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^^^1.3.6.1.4.1.33895.1.2.15971.1.2.2 +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371^^^^^^69^67 +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^^^1.3.6.1.4.1.33895.1.2.15972.1.2.2 +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372^^^^^^128^71 +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^^^1.3.6.1.4.1.33895.1.2.15973.1.2.2 +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373^^^^^^129^144 +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^^^1.3.6.1.4.1.33895.1.2.15974.1.2.2 +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374^^^^^^145^146 +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^^^1.3.6.1.4.1.33895.1.2.15975.1.2.2 +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375^^^^^^147^156 +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^^^1.3.6.1.4.1.33895.1.2.15976.1.2.2 +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376^^^^^^158^162 +"DATA",1130580001.201,10,0) +VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1 +"DATA",1130580001.201,10,4) +^^3120101^3121231 +"DATA",1130580001.201,10,5,0) +^1130580001.2011P^6^6 +"DATA",1130580001.201,10,5,1,0) +32 +"DATA",1130580001.201,10,5,2,0) +33 +"DATA",1130580001.201,10,5,3,0) +34 +"DATA",1130580001.201,10,5,4,0) +35 +"DATA",1130580001.201,10,5,5,0) +36 +"DATA",1130580001.201,10,5,6,0) +37 +"DATA",1130580001.201,10,6) +^ +"DATA",1130580001.201,10,7) +MU12 +"DATA",1130580001.201,11,0) +STK CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.31.1.2.1 +"DATA",1130580001.201,11,4) +^^3120101^3121231 +"DATA",1130580001.201,11,5,0) +^1130580001.2011P^7^7 +"DATA",1130580001.201,11,5,1,0) +25 +"DATA",1130580001.201,11,5,2,0) +26 +"DATA",1130580001.201,11,5,3,0) +27 +"DATA",1130580001.201,11,5,4,0) +28 +"DATA",1130580001.201,11,5,5,0) +29 +"DATA",1130580001.201,11,5,6,0) +30 +"DATA",1130580001.201,11,5,7,0) +31 +"DATA",1130580001.201,11,6) +^ +"DATA",1130580001.201,11,7) +MU12 +"DATA",1130580001.201,12,0) +ED CMS REPORTING MEASURES^2.16.840.1.113883.3.249.11.14.1.1.1 +"DATA",1130580001.201,12,4) +^^3120101^3121213 +"DATA",1130580001.201,12,5,0) +^1130580001.2011P^2^2 +"DATA",1130580001.201,12,5,1,0) +23 +"DATA",1130580001.201,12,5,2,0) +24 +"DATA",1130580001.201,12,6) +^ +"DATA",1130580001.201,12,7) +MU12 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") +^DIBT(920,1) +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FIA",1130580001.201) +C0Q MEASUREMENT SET +"FIA",1130580001.201,0) +^C0Q(201, +"FIA",1130580001.201,0,0) +1130580001.201 +"FIA",1130580001.201,0,1) +y^y^f^^y^C0Q 1P0*4 MS^y^o^n +"FIA",1130580001.201,0,10) + +"FIA",1130580001.201,0,11) + +"FIA",1130580001.201,0,"RLRO") +^DIBT(921,1) +"FIA",1130580001.201,0,"VR") +1.0^C0Q +"FIA",1130580001.201,1130580001.201) +0 +"FIA",1130580001.201,1130580001.2011) +0 +"FIA",1130580001.201,1130580001.20111) +0 +"FIA",1130580001.201,1130580001.20112) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^y^p^^^^n^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +1 +"FIA",1130580001.401,1130580001.401,5.1) + +"FIA",1130580001.401,1130580001.401,5.2) + +"FIA",1130580001.401,1130580001.401,5.3) + +"FRV1",1130580001.101,"23,7",7) +MU ED-1 NUMER RS +"FRV1",1130580001.101,"23,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"23,7",8) +MU ED-1 DENOM RS +"FRV1",1130580001.101,"23,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",7) +MU ED-2 NUMER RS +"FRV1",1130580001.101,"24,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"24,7",8) +MU ED-2 DENOM RS +"FRV1",1130580001.101,"24,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",7) +MU STK-2 NUMER RS +"FRV1",1130580001.101,"25,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"25,7",8) +MU STK-2 DENOM RS +"FRV1",1130580001.101,"25,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",7) +MU STK-3 NUMER RS +"FRV1",1130580001.101,"26,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"26,7",8) +MU STK-3 DENOM RS +"FRV1",1130580001.101,"26,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",7) +MU STK-4 NUMER RS +"FRV1",1130580001.101,"27,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"27,7",8) +MU STK-4 DENOM RS +"FRV1",1130580001.101,"27,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",7) +MU STK-5 NUMER RS +"FRV1",1130580001.101,"28,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"28,7",8) +MU STK-5 DENOM RS +"FRV1",1130580001.101,"28,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",7) +MU STK-6 NUMER RS +"FRV1",1130580001.101,"29,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"29,7",8) +MU STK-6 DENOM RS +"FRV1",1130580001.101,"29,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",7) +MU STK-8 NUMER RS +"FRV1",1130580001.101,"30,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"30,7",8) +MU STK-8 DENOM RS +"FRV1",1130580001.101,"30,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",7) +MU STK-10 NUMER RS +"FRV1",1130580001.101,"31,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"31,7",8) +MU STK-10 DENOM RS +"FRV1",1130580001.101,"31,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",7) +MU VTE-1 NUMER RS +"FRV1",1130580001.101,"32,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"32,7",8) +MU VTE-1 DENOM RS +"FRV1",1130580001.101,"32,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",7) +MU VTE-2 NUMER RS +"FRV1",1130580001.101,"33,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"33,7",8) +MU VTE-2 DENOM RS +"FRV1",1130580001.101,"33,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",7) +MU VTE-3 NUMER RS +"FRV1",1130580001.101,"34,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"34,7",8) +MU VTE-3 DENOM RS +"FRV1",1130580001.101,"34,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",7) +MU VTE-4 NUMER RS +"FRV1",1130580001.101,"35,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"35,7",8) +MU VTE-4 DENOM RS +"FRV1",1130580001.101,"35,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",7) +MU VTE-5 NUMER RS +"FRV1",1130580001.101,"36,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"36,7",8) +MU VTE-5 DENOM RS +"FRV1",1130580001.101,"36,7",8,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",7) +MU VTE-6 NUMER RS +"FRV1",1130580001.101,"37,7",7,"F") +;PXRM(810.4, +"FRV1",1130580001.101,"37,7",8) +MU VTE-6 DENOM RS +"FRV1",1130580001.101,"37,7",8,"F") +;PXRM(810.4, +"FRV1K",1130580001.101,"23,7",7) +B +"FRV1K",1130580001.101,"23,7",7,1) +MU ED-1 NUMER RS +"FRV1K",1130580001.101,"23,7",8) +B +"FRV1K",1130580001.101,"23,7",8,1) +MU ED-1 DENOM RS +"FRV1K",1130580001.101,"24,7",7) +B +"FRV1K",1130580001.101,"24,7",7,1) +MU ED-2 NUMER RS +"FRV1K",1130580001.101,"24,7",8) +B +"FRV1K",1130580001.101,"24,7",8,1) +MU ED-2 DENOM RS +"FRV1K",1130580001.101,"25,7",7) +B +"FRV1K",1130580001.101,"25,7",7,1) +MU STK-2 NUMER RS +"FRV1K",1130580001.101,"25,7",8) +B +"FRV1K",1130580001.101,"25,7",8,1) +MU STK-2 DENOM RS +"FRV1K",1130580001.101,"26,7",7) +B +"FRV1K",1130580001.101,"26,7",7,1) +MU STK-3 NUMER RS +"FRV1K",1130580001.101,"26,7",8) +B +"FRV1K",1130580001.101,"26,7",8,1) +MU STK-3 DENOM RS +"FRV1K",1130580001.101,"27,7",7) +B +"FRV1K",1130580001.101,"27,7",7,1) +MU STK-4 NUMER RS +"FRV1K",1130580001.101,"27,7",8) +B +"FRV1K",1130580001.101,"27,7",8,1) +MU STK-4 DENOM RS +"FRV1K",1130580001.101,"28,7",7) +B +"FRV1K",1130580001.101,"28,7",7,1) +MU STK-5 NUMER RS +"FRV1K",1130580001.101,"28,7",8) +B +"FRV1K",1130580001.101,"28,7",8,1) +MU STK-5 DENOM RS +"FRV1K",1130580001.101,"29,7",7) +B +"FRV1K",1130580001.101,"29,7",7,1) +MU STK-6 NUMER RS +"FRV1K",1130580001.101,"29,7",8) +B +"FRV1K",1130580001.101,"29,7",8,1) +MU STK-6 DENOM RS +"FRV1K",1130580001.101,"30,7",7) +B +"FRV1K",1130580001.101,"30,7",7,1) +MU STK-8 NUMER RS +"FRV1K",1130580001.101,"30,7",8) +B +"FRV1K",1130580001.101,"30,7",8,1) +MU STK-8 DENOM RS +"FRV1K",1130580001.101,"31,7",7) +B +"FRV1K",1130580001.101,"31,7",7,1) +MU STK-10 NUMER RS +"FRV1K",1130580001.101,"31,7",8) +B +"FRV1K",1130580001.101,"31,7",8,1) +MU STK-10 DENOM RS +"FRV1K",1130580001.101,"32,7",7) +B +"FRV1K",1130580001.101,"32,7",7,1) +MU VTE-1 NUMER RS +"FRV1K",1130580001.101,"32,7",8) +B +"FRV1K",1130580001.101,"32,7",8,1) +MU VTE-1 DENOM RS +"FRV1K",1130580001.101,"33,7",7) +B +"FRV1K",1130580001.101,"33,7",7,1) +MU VTE-2 NUMER RS +"FRV1K",1130580001.101,"33,7",8) +B +"FRV1K",1130580001.101,"33,7",8,1) +MU VTE-2 DENOM RS +"FRV1K",1130580001.101,"34,7",7) +B +"FRV1K",1130580001.101,"34,7",7,1) +MU VTE-3 NUMER RS +"FRV1K",1130580001.101,"34,7",8) +B +"FRV1K",1130580001.101,"34,7",8,1) +MU VTE-3 DENOM RS +"FRV1K",1130580001.101,"35,7",7) +B +"FRV1K",1130580001.101,"35,7",7,1) +MU VTE-4 NUMER RS +"FRV1K",1130580001.101,"35,7",8) +B +"FRV1K",1130580001.101,"35,7",8,1) +MU VTE-4 DENOM RS +"FRV1K",1130580001.101,"36,7",7) +B +"FRV1K",1130580001.101,"36,7",7,1) +MU VTE-5 NUMER RS +"FRV1K",1130580001.101,"36,7",8) +B +"FRV1K",1130580001.101,"36,7",8,1) +MU VTE-5 DENOM RS +"FRV1K",1130580001.101,"37,7",7) +B +"FRV1K",1130580001.101,"37,7",7,1) +MU VTE-6 NUMER RS +"FRV1K",1130580001.101,"37,7",8) +B +"FRV1K",1130580001.101,"37,7",8,1) +MU VTE-6 DENOM RS +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"IX",1130580001.201,1130580001.201,"MU",0) +1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS +"IX",1130580001.201,1130580001.201,"MU",1) +S ^C0Q(201,"MU",$E(X,1,30),DA)="" +"IX",1130580001.201,1130580001.201,"MU",2) +K ^C0Q(201,"MU",$E(X,1,30),DA) +"IX",1130580001.201,1130580001.201,"MU",2.5) +K ^C0Q(201,"MU") +"IX",1130580001.201,1130580001.201,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.201,1130580001.201,"MU",11.1,1,0) +1^F^1130580001.201^.3^30^1^F +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^733 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",.402,1742,-1) +0^1 +"KRN",.402,1742,0) +C0Q EDIT INPATIENT PARMS^3120801.1733^@^1130580001.401^^@^3120802 +"KRN",.402,1742,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1742,"DR",1,1130580001.401) +.01;.02;.03;1;1.1;5.1;5.2;5.3;3; +"KRN",.402,1742,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1747,-1) +0^2 +"KRN",.402,1747,0) +C0Q EDIT MEASURE SET^3120801.0011^@^1130580001.201^^@^3120801 +"KRN",.402,1747,"DR",1,1130580001.201) +.01;.02;.03;.05;.3;.4;1; +"KRN",.402,1747,"DR",2,1130580001.2011) +.01;1.2;2.2; +"KRN",19,11027,-1) +2^3 +"KRN",19,11027,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^8^^^^^^^^y +"KRN",19,11027,10,0) +^19.01IP^20^20 +"KRN",19,11027,10,20,0) +11070 +"KRN",19,11027,10,20,"^") +C0Q QRDA MENU +"KRN",19,11027,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11070,-1) +0^1 +"KRN",19,11070,0) +C0Q QRDA MENU^QRDA MENU^^M^^^^^^^^QUALITY MEASURES^y +"KRN",19,11070,1,0) +^^1^1^3120801^ +"KRN",19,11070,1,1,0) +Contains QRDA generation releated menu options. +"KRN",19,11070,10,0) +^19.01IP^1^1 +"KRN",19,11070,10,1,0) +11071 +"KRN",19,11070,10,1,"^") +C0Q EXPORT INPATIENT QRDA CCRS +"KRN",19,11070,99) +62670,75392 +"KRN",19,11070,"U") +QRDA MENU +"KRN",19,11071,-1) +0^2 +"KRN",19,11071,0) +C0Q EXPORT INPATIENT QRDA CCRS^EXPORT INPATIENT QRDA MEASURES AS CCRS^^R^^^^^^^^QUALITY MEASURES^y +"KRN",19,11071,1,0) +^^2^2^3120801^ +"KRN",19,11071,1,1,0) +This option updates the CMS Inpatient Reporting measures and then creates +"KRN",19,11071,1,2,0) +a CCR for each patient in these measures' denominators. +"KRN",19,11071,25) +EN^C0QQRDA +"KRN",19,11071,"U") +EXPORT INPATIENT QRDA MEASURES +"MBREQ") +0 +"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 +"PGL",1130580001.101,0,2,1) +NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q +"PGL",1130580001.101,0,3,2) +DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q +"PGL",1130580001.101,7,2,1.1) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"PGL",1130580001.101,7,3,2.1) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"PGL",1130580001.101,7,4,1.5) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"PGL",1130580001.101,7,5,1.51) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"PGL",1130580001.101,7,7,1.2) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,8,2.2) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"PGL",1130580001.101,7,9,2.5) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"PGL",1130580001.2011,4,3,1.2) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"PGL",1130580001.2011,4,4,2.2) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"PKG",212,-1) +1^1 +"PKG",212,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",212,20,0) +^9.402P^^ +"PKG",212,22,0) +^9.49I^1^1 +"PKG",212,22,1,0) +1.0^3120731 +"PKG",212,22,1,"PAH",1,0) +4^3120824 +"PKG",212,22,1,"PAH",1,1,0) +^^250^250^3120824 +"PKG",212,22,1,"PAH",1,1,1,0) + Source, Copyright, & Licensing: +"PKG",212,22,1,"PAH",1,1,2,0) + =============================== +"PKG",212,22,1,"PAH",1,1,3,0) + This patch to WorldVistA 2.0 was produced in Dew Drop +"PKG",212,22,1,"PAH",1,1,4,0) + by George Lily on 24 August 2012 and released through VISTA Forum. +"PKG",212,22,1,"PAH",1,1,5,0) + +"PKG",212,22,1,"PAH",1,1,6,0) + (C) 2012 George Lilly +"PKG",212,22,1,"PAH",1,1,7,0) + Licensed under GPL 2. +"PKG",212,22,1,"PAH",1,1,8,0) + +"PKG",212,22,1,"PAH",1,1,9,0) + Functionality: +"PKG",212,22,1,"PAH",1,1,10,0) + ============== +"PKG",212,22,1,"PAH",1,1,11,0) + This patch adds the ability to generate modified CCRs +"PKG",212,22,1,"PAH",1,1,12,0) + containing a QUALITY measure section that looks like +"PKG",212,22,1,"PAH",1,1,13,0) + this: +"PKG",212,22,1,"PAH",1,1,14,0) + +"PKG",212,22,1,"PAH",1,1,15,0) + +"PKG",212,22,1,"PAH",1,1,16,0) + 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"PKG",212,22,1,"PAH",1,1,17,0) + +"PKG",212,22,1,"PAH",1,1,18,0) + 1.3.6.1.4.1.33895.1.2.16001.1.2.2 +"PKG",212,22,1,"PAH",1,1,19,0) + 1.3.6.1.4.1.33895.1.2.16002.1.2.2 +"PKG",212,22,1,"PAH",1,1,20,0) + 1.3.6.1.4.1.33895.1.2.16004.1.2.2 +"PKG",212,22,1,"PAH",1,1,21,0) + 1.3.6.1.4.1.33895.1.2.16008.1.2.2 +"PKG",212,22,1,"PAH",1,1,22,0) + +"PKG",212,22,1,"PAH",1,1,23,0) + +"PKG",212,22,1,"PAH",1,1,24,0) + +"PKG",212,22,1,"PAH",1,1,25,0) + +"PKG",212,22,1,"PAH",1,1,26,0) + This enables you to create a QRDA document in the C32 format to submit to CMS +"PKG",212,22,1,"PAH",1,1,27,0) + containing these measures. The C32 document will be generated by an XSLT +"PKG",212,22,1,"PAH",1,1,28,0) + transform from the CCR document. +"PKG",212,22,1,"PAH",1,1,29,0) + +"PKG",212,22,1,"PAH",1,1,30,0) + The driving force behind the creation of this patch, as well as the +"PKG",212,22,1,"PAH",1,1,31,0) + documentation of the actual QRDA documents to send to CMS can be found here: +"PKG",212,22,1,"PAH",1,1,32,0) + http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 +"PKG",212,22,1,"PAH",1,1,33,0) + +"PKG",212,22,1,"PAH",1,1,34,0) + Specifically, this sentence: +"PKG",212,22,1,"PAH",1,1,35,0) + "One part of meeting the requirements for Stage I Meaningful Use may include +"PKG",212,22,1,"PAH",1,1,36,0) + submitting Clinical Quality Measures (CQMs) electronically using the QRDA +"PKG",212,22,1,"PAH",1,1,37,0) + Category I file format." +"PKG",212,22,1,"PAH",1,1,38,0) + +"PKG",212,22,1,"PAH",1,1,39,0) + Package Elements: +"PKG",212,22,1,"PAH",1,1,40,0) + ================= +"PKG",212,22,1,"PAH",1,1,41,0) +PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 +"PKG",212,22,1,"PAH",1,1,42,0) +------------------------------------------------------------------------------- +"PKG",212,22,1,"PAH",1,1,43,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"PKG",212,22,1,"PAH",1,1,44,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"PKG",212,22,1,"PAH",1,1,45,0) + +"PKG",212,22,1,"PAH",1,1,46,0) +DESCRIPTION: +"PKG",212,22,1,"PAH",1,1,47,0) +QRDA Support. +"PKG",212,22,1,"PAH",1,1,48,0) + +"PKG",212,22,1,"PAH",1,1,49,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"PKG",212,22,1,"PAH",1,1,50,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"PKG",212,22,1,"PAH",1,1,51,0) +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +"PKG",212,22,1,"PAH",1,1,52,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P4 +"PKG",212,22,1,"PAH",1,1,53,0) + +"PKG",212,22,1,"PAH",1,1,54,0) + UP SEND DATA USER +"PKG",212,22,1,"PAH",1,1,55,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",212,22,1,"PAH",1,1,56,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",212,22,1,"PAH",1,1,57,0) +------------------------------------------------------------------------------- +"PKG",212,22,1,"PAH",1,1,58,0) + +"PKG",212,22,1,"PAH",1,1,59,0) +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO +"PKG",212,22,1,"PAH",1,1,60,0) + +"PKG",212,22,1,"PAH",1,1,61,0) +1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO +"PKG",212,22,1,"PAH",1,1,62,0) + +"PKG",212,22,1,"PAH",1,1,63,0) +1130580001.401C0Q PARAMETER YES YES NO NO +"PKG",212,22,1,"PAH",1,1,64,0) +Partial DD: subDD: 1130580001.401fld: 5.1 +"PKG",212,22,1,"PAH",1,1,65,0) + fld: 5.2 +"PKG",212,22,1,"PAH",1,1,66,0) + fld: 5.3 +"PKG",212,22,1,"PAH",1,1,67,0) + +"PKG",212,22,1,"PAH",1,1,68,0) +INPUT TEMPLATE: ACTION: +"PKG",212,22,1,"PAH",1,1,69,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE +"PKG",212,22,1,"PAH",1,1,70,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE +"PKG",212,22,1,"PAH",1,1,71,0) + +"PKG",212,22,1,"PAH",1,1,72,0) +ROUTINE: ACTION: +"PKG",212,22,1,"PAH",1,1,73,0) + C0QQRDA SEND TO SITE +"PKG",212,22,1,"PAH",1,1,74,0) + +"PKG",212,22,1,"PAH",1,1,75,0) +OPTION: ACTION: +"PKG",212,22,1,"PAH",1,1,76,0) + C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE +"PKG",212,22,1,"PAH",1,1,77,0) + C0Q QRDA MENU SEND TO SITE +"PKG",212,22,1,"PAH",1,1,78,0) + C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS +"PKG",212,22,1,"PAH",1,1,79,0) + +"PKG",212,22,1,"PAH",1,1,80,0) +INSTALL QUESTIONS: +"PKG",212,22,1,"PAH",1,1,81,0) + +"PKG",212,22,1,"PAH",1,1,82,0) + Default Rebuild Menu Trees Upon Completion of Install: YES +"PKG",212,22,1,"PAH",1,1,83,0) + Default INHIBIT LOGONs during the install: NO +"PKG",212,22,1,"PAH",1,1,84,0) + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO +"PKG",212,22,1,"PAH",1,1,85,0) + +"PKG",212,22,1,"PAH",1,1,86,0) +REQUIRED BUILDS: ACTION: +"PKG",212,22,1,"PAH",1,1,87,0) + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global +"PKG",212,22,1,"PAH",1,1,88,0) + QUALITY MEASURES 1.0 Don't install, leave global +"PKG",212,22,1,"PAH",1,1,89,0) + +"PKG",212,22,1,"PAH",1,1,90,0) + Summary of Changes to package: +"PKG",212,22,1,"PAH",1,1,91,0) + - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs +"PKG",212,22,1,"PAH",1,1,92,0) + for Inpatients, as follows: +"PKG",212,22,1,"PAH",1,1,93,0) + +"PKG",212,22,1,"PAH",1,1,94,0) +NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET +"PKG",212,22,1,"PAH",1,1,95,0) +---------------------------------------------------------------------------------- +"PKG",212,22,1,"PAH",1,1,96,0) + +"PKG",212,22,1,"PAH",1,1,97,0) +MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS +"PKG",212,22,1,"PAH",1,1,98,0) +MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS +"PKG",212,22,1,"PAH",1,1,99,0) + +"PKG",212,22,1,"PAH",1,1,100,0) +MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS +"PKG",212,22,1,"PAH",1,1,101,0) +MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS +"PKG",212,22,1,"PAH",1,1,102,0) +MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS +"PKG",212,22,1,"PAH",1,1,103,0) +MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS +"PKG",212,22,1,"PAH",1,1,104,0) +MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS +"PKG",212,22,1,"PAH",1,1,105,0) +MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS +"PKG",212,22,1,"PAH",1,1,106,0) +MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS +"PKG",212,22,1,"PAH",1,1,107,0) + +"PKG",212,22,1,"PAH",1,1,108,0) +MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS +"PKG",212,22,1,"PAH",1,1,109,0) +MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS +"PKG",212,22,1,"PAH",1,1,110,0) +MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS +"PKG",212,22,1,"PAH",1,1,111,0) +MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS +"PKG",212,22,1,"PAH",1,1,112,0) +MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS +"PKG",212,22,1,"PAH",1,1,113,0) +MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS +"PKG",212,22,1,"PAH",1,1,114,0) + +"PKG",212,22,1,"PAH",1,1,115,0) + - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,116,0) + - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,117,0) + - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: +"PKG",212,22,1,"PAH",1,1,118,0) +NAME: ED CMS REPORTING MEASURES +"PKG",212,22,1,"PAH",1,1,119,0) + QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 +"PKG",212,22,1,"PAH",1,1,120,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 +"PKG",212,22,1,"PAH",1,1,121,0) +MEASURE: MU HOS NQF 0495 +"PKG",212,22,1,"PAH",1,1,122,0) +MEASURE: MU HOS NQF 0497 +"PKG",212,22,1,"PAH",1,1,123,0) + MU YEAR KEY: MU12 +"PKG",212,22,1,"PAH",1,1,124,0) + +"PKG",212,22,1,"PAH",1,1,125,0) +NAME: STK CMS REPORTING MEASURES +"PKG",212,22,1,"PAH",1,1,126,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 +"PKG",212,22,1,"PAH",1,1,127,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"PKG",212,22,1,"PAH",1,1,128,0) +MEASURE: MU HOS NQF 0435 +"PKG",212,22,1,"PAH",1,1,129,0) +MEASURE: MU HOS NQF 0436 +"PKG",212,22,1,"PAH",1,1,130,0) +MEASURE: MU HOS NQF 0437 +"PKG",212,22,1,"PAH",1,1,131,0) +MEASURE: MU HOS NQF 0438 +"PKG",212,22,1,"PAH",1,1,132,0) +MEASURE: MU HOS NQF 0439 +"PKG",212,22,1,"PAH",1,1,133,0) +MEASURE: MU HOS NQF 0440 +"PKG",212,22,1,"PAH",1,1,134,0) +MEASURE: MU HOS NQF 0441 +"PKG",212,22,1,"PAH",1,1,135,0) + MU YEAR KEY: MU12 +"PKG",212,22,1,"PAH",1,1,136,0) + +"PKG",212,22,1,"PAH",1,1,137,0) +NAME: VTE CMS REPORTING MEASURES +"PKG",212,22,1,"PAH",1,1,138,0) + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 +"PKG",212,22,1,"PAH",1,1,139,0) + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +"PKG",212,22,1,"PAH",1,1,140,0) +MEASURE: MU HOS NQF 0371 +"PKG",212,22,1,"PAH",1,1,141,0) +MEASURE: MU HOS NQF 0372 +"PKG",212,22,1,"PAH",1,1,142,0) +MEASURE: MU HOS NQF 0373 +"PKG",212,22,1,"PAH",1,1,143,0) +MEASURE: MU HOS NQF 0374 +"PKG",212,22,1,"PAH",1,1,144,0) +MEASURE: MU HOS NQF 0375 +"PKG",212,22,1,"PAH",1,1,145,0) +MEASURE: MU HOS NQF 0376 +"PKG",212,22,1,"PAH",1,1,146,0) + MU YEAR KEY: MU12 +"PKG",212,22,1,"PAH",1,1,147,0) + +"PKG",212,22,1,"PAH",1,1,148,0) + - Creation of supporting fields in the C0Q PARAMETER file to drive generation +"PKG",212,22,1,"PAH",1,1,149,0) + of the QRDA documents. +"PKG",212,22,1,"PAH",1,1,150,0) + - VTE CMS MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,151,0) + - STK CMS MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,152,0) + - ED CMS MEASUREMENT SET +"PKG",212,22,1,"PAH",1,1,153,0) + +"PKG",212,22,1,"PAH",1,1,154,0) + - Modification of existing input templates to support the new fields created. +"PKG",212,22,1,"PAH",1,1,155,0) + C0Q EDIT INPATIENT PARMS FILE #1130580001.401 +"PKG",212,22,1,"PAH",1,1,156,0) + C0Q EDIT MEASURE SET FILE #1130580001.201 +"PKG",212,22,1,"PAH",1,1,157,0) + +"PKG",212,22,1,"PAH",1,1,158,0) + - Routine C0QQRDA to drive the generation of the QRDA documents. +"PKG",212,22,1,"PAH",1,1,159,0) + +"PKG",212,22,1,"PAH",1,1,160,0) + - Menu option to call EN^C0QQRDA: +"PKG",212,22,1,"PAH",1,1,161,0) + -> C0Q QUALITY MEASUREMENT MENU +"PKG",212,22,1,"PAH",1,1,162,0) + Parent: C0Q QRDA MENU +"PKG",212,22,1,"PAH",1,1,163,0) + +"PKG",212,22,1,"PAH",1,1,164,0) + Routine Versioning: +"PKG",212,22,1,"PAH",1,1,165,0) + +"PKG",212,22,1,"PAH",1,1,166,0) + The second line of each of these routines now looks like: +"PKG",212,22,1,"PAH",1,1,167,0) + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 +"PKG",212,22,1,"PAH",1,1,168,0) + +"PKG",212,22,1,"PAH",1,1,169,0) + +"PKG",212,22,1,"PAH",1,1,170,0) + The following checksums can be checked with CHECK1^XTSUMBLD: +"PKG",212,22,1,"PAH",1,1,171,0) + +"PKG",212,22,1,"PAH",1,1,172,0) + Routine Before After Patch List +"PKG",212,22,1,"PAH",1,1,173,0) + ------- ----------- ------------ --------------------------------- +"PKG",212,22,1,"PAH",1,1,174,0) + C0QQRDA 89943644 **4** +"PKG",212,22,1,"PAH",1,1,175,0) + +"PKG",212,22,1,"PAH",1,1,176,0) + Documentation: +"PKG",212,22,1,"PAH",1,1,177,0) + ============== +"PKG",212,22,1,"PAH",1,1,178,0) + None at this moment. +"PKG",212,22,1,"PAH",1,1,179,0) + +"PKG",212,22,1,"PAH",1,1,180,0) + Test Sites: +"PKG",212,22,1,"PAH",1,1,181,0) + =========== +"PKG",212,22,1,"PAH",1,1,182,0) + None at this moment. +"PKG",212,22,1,"PAH",1,1,183,0) + +"PKG",212,22,1,"PAH",1,1,184,0) + Compliance: +"PKG",212,22,1,"PAH",1,1,185,0) + =========== +"PKG",212,22,1,"PAH",1,1,186,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",212,22,1,"PAH",1,1,187,0) + Conventions (version 3 April 2007). +"PKG",212,22,1,"PAH",1,1,188,0) + +"PKG",212,22,1,"PAH",1,1,189,0) + Installation Instructions: +"PKG",212,22,1,"PAH",1,1,190,0) + ========================== +"PKG",212,22,1,"PAH",1,1,191,0) + Install Time - less than 1 minute +"PKG",212,22,1,"PAH",1,1,192,0) + +"PKG",212,22,1,"PAH",1,1,193,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",212,22,1,"PAH",1,1,194,0) + +"PKG",212,22,1,"PAH",1,1,195,0) + Choose the PackMan message containing this patch and invoke the +"PKG",212,22,1,"PAH",1,1,196,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"PKG",212,22,1,"PAH",1,1,197,0) + +"PKG",212,22,1,"PAH",1,1,198,0) + 2. START UP KIDS +"PKG",212,22,1,"PAH",1,1,199,0) + +"PKG",212,22,1,"PAH",1,1,200,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",212,22,1,"PAH",1,1,201,0) + [XPD MAIN]: +"PKG",212,22,1,"PAH",1,1,202,0) + +"PKG",212,22,1,"PAH",1,1,203,0) + Edits and Distribution ... +"PKG",212,22,1,"PAH",1,1,204,0) + Utilities ... +"PKG",212,22,1,"PAH",1,1,205,0) + Installation ... +"PKG",212,22,1,"PAH",1,1,206,0) + +"PKG",212,22,1,"PAH",1,1,207,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",212,22,1,"PAH",1,1,208,0) + --- +"PKG",212,22,1,"PAH",1,1,209,0) + Load a Distribution +"PKG",212,22,1,"PAH",1,1,210,0) + Print Transport Global +"PKG",212,22,1,"PAH",1,1,211,0) + Compare Transport Global to Current System +"PKG",212,22,1,"PAH",1,1,212,0) + Verify Checksums in Transport Global +"PKG",212,22,1,"PAH",1,1,213,0) + Install Package(s) +"PKG",212,22,1,"PAH",1,1,214,0) + Restart Install of Package(s) +"PKG",212,22,1,"PAH",1,1,215,0) + Unload a Distribution +"PKG",212,22,1,"PAH",1,1,216,0) + Backup a Transport Global +"PKG",212,22,1,"PAH",1,1,217,0) + +"PKG",212,22,1,"PAH",1,1,218,0) + Select Installation Option: +"PKG",212,22,1,"PAH",1,1,219,0) + +"PKG",212,22,1,"PAH",1,1,220,0) + 3. Select Installation Option: +"PKG",212,22,1,"PAH",1,1,221,0) + +"PKG",212,22,1,"PAH",1,1,222,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",212,22,1,"PAH",1,1,223,0) + NAME, enter C0Q*1.0*4): +"PKG",212,22,1,"PAH",1,1,224,0) + +"PKG",212,22,1,"PAH",1,1,225,0) + a. Backup a Transport Global - This option will create a backup +"PKG",212,22,1,"PAH",1,1,226,0) + message of any routines exported with this patch. It will not +"PKG",212,22,1,"PAH",1,1,227,0) + backup any other changes such as DD's or templates. +"PKG",212,22,1,"PAH",1,1,228,0) + b. Compare Transport Global to Current System - This option will +"PKG",212,22,1,"PAH",1,1,229,0) + allow you to view all changes that will be made when this patch +"PKG",212,22,1,"PAH",1,1,230,0) + is installed. It compares all components of this patch +"PKG",212,22,1,"PAH",1,1,231,0) + (routines, DD's, templates, etc.). +"PKG",212,22,1,"PAH",1,1,232,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",212,22,1,"PAH",1,1,233,0) + you to ensure the integrity of the routines that are in the +"PKG",212,22,1,"PAH",1,1,234,0) + transport global. +"PKG",212,22,1,"PAH",1,1,235,0) + +"PKG",212,22,1,"PAH",1,1,236,0) + 4. Select Installation Option: Install Package(s) +"PKG",212,22,1,"PAH",1,1,237,0) + +"PKG",212,22,1,"PAH",1,1,238,0) + **This is the step to start the installation of this KIDS patch: +"PKG",212,22,1,"PAH",1,1,239,0) + +"PKG",212,22,1,"PAH",1,1,240,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",212,22,1,"PAH",1,1,241,0) + and enter "C0Q*1.0*4" at the INSTALL NAME prompt. +"PKG",212,22,1,"PAH",1,1,242,0) + b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' +"PKG",212,22,1,"PAH",1,1,243,0) + Answer YES. The file is just renamed, that's why KIDS asks you to +"PKG",212,22,1,"PAH",1,1,244,0) + overwrite it. +"PKG",212,22,1,"PAH",1,1,245,0) + c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",212,22,1,"PAH",1,1,246,0) + Install? YES//' answer YES +"PKG",212,22,1,"PAH",1,1,247,0) + d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",212,22,1,"PAH",1,1,248,0) + NO//' answer NO +"PKG",212,22,1,"PAH",1,1,249,0) + e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",212,22,1,"PAH",1,1,250,0) + and Protocols? NO//' answer NO +"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") +YES +"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","C0QQRDA") +0^1^B89943644 +"RTN","C0QQRDA",1,0) +C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/24/12 12:41pm +"RTN","C0QQRDA",2,0) + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 +"RTN","C0QQRDA",3,0) + ;Copyright 2012 George Lilly. Licensed under the terms of the GNU +"RTN","C0QQRDA",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QQRDA",5,0) + ; +"RTN","C0QQRDA",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QQRDA",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QQRDA",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QQRDA",9,0) + ;(at your option) any later version. +"RTN","C0QQRDA",10,0) + ; +"RTN","C0QQRDA",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QQRDA",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QQRDA",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QQRDA",14,0) + ;GNU General Public License for more details. +"RTN","C0QQRDA",15,0) + ; +"RTN","C0QQRDA",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QQRDA",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QQRDA",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QQRDA",19,0) + ; +"RTN","C0QQRDA",20,0) +EN ; Private to this Package; Main Entry Point for this routine +"RTN","C0QQRDA",21,0) + ; This EP is interactive or silent depending on params +"RTN","C0QQRDA",22,0) + ; +"RTN","C0QQRDA",23,0) + ; Check for config errors first; try to set-up. +"RTN","C0QQRDA",24,0) + N % S %=$$CHECKPAR() +"RTN","C0QQRDA",25,0) + I +%=1 D EN^DDIOL($P(%,U,2)) QUIT ; No inpatient pars found... QUIT +"RTN","C0QQRDA",26,0) + ; +"RTN","C0QQRDA",27,0) + N C0QFAIL S C0QFAIL=0 +"RTN","C0QQRDA",28,0) + I +%=2 D ; No QRDA Measure Sets... try to set it up. +"RTN","C0QQRDA",29,0) + . D EN^DDIOL("Trying to automatically set-up measure sets in parameters") +"RTN","C0QQRDA",30,0) + . N % S %=$$SETUPPAR($$INPPARM()) +"RTN","C0QQRDA",31,0) + . I % D EN^DDIOL("Failed to set-up..."_$P(%,U,2)) S C0QFAIL=1 +"RTN","C0QQRDA",32,0) + . E D EN^DDIOL("...Set-up complete",""),EN^DDIOL("","","!!!") +"RTN","C0QQRDA",33,0) + ; +"RTN","C0QQRDA",34,0) + I C0QFAIL QUIT +"RTN","C0QQRDA",35,0) + ; +"RTN","C0QQRDA",36,0) + ; Print Intro +"RTN","C0QQRDA",37,0) + N % +"RTN","C0QQRDA",38,0) + S %(1)="This program collects patients from the denominators of the measures" +"RTN","C0QQRDA",39,0) + S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default" +"RTN","C0QQRDA",40,0) + S %(3)="directory (probably /tmp/)." +"RTN","C0QQRDA",41,0) + S %(4)="" +"RTN","C0QQRDA",42,0) + S %(5)="This will take some time to execute." +"RTN","C0QQRDA",43,0) + S %(6)="" +"RTN","C0QQRDA",44,0) + S %(6,"F")="!!!" +"RTN","C0QQRDA",45,0) + ; +"RTN","C0QQRDA",46,0) + D EN^DDIOL(.%) +"RTN","C0QQRDA",47,0) + ; +"RTN","C0QQRDA",48,0) + ; Ask user which measure set to run +"RTN","C0QQRDA",49,0) + N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables +"RTN","C0QQRDA",50,0) + S DIR(0)="SB^V:VTE;S:STK;E:ED;A:ALL" +"RTN","C0QQRDA",51,0) + S DIR("A")="Measure to calculate" +"RTN","C0QQRDA",52,0) + S DIR("A",1)="Which measure set would you like to produce QRDA documents for?" +"RTN","C0QQRDA",53,0) + S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or " +"RTN","C0QQRDA",54,0) + S DIR("A",3)="[E]D Measure Set. Or you can choose to run [A]ll of them." +"RTN","C0QQRDA",55,0) + D ^DIR +"RTN","C0QQRDA",56,0) + ; +"RTN","C0QQRDA",57,0) + I $G(DTOUT)!$G(DUOUT) QUIT ; Did user hit '^' or time out? +"RTN","C0QQRDA",58,0) + ; +"RTN","C0QQRDA",59,0) + ; Get the Measure Set IEN which the user has seleted. +"RTN","C0QQRDA",60,0) + ; NB: field names start with VTE, STK, or ED; so I can use the output +"RTN","C0QQRDA",61,0) + ; of DIR directly. +"RTN","C0QQRDA",62,0) + ; +"RTN","C0QQRDA",63,0) + N FLD S FLD=Y(0) ; Grab full text of user choice into var "FLD" for field. +"RTN","C0QQRDA",64,0) + N C0QMSIENS ; Measure set IENs (^ piece); (0) stores the identifier for file names +"RTN","C0QQRDA",65,0) + ;looks like this in the end +"RTN","C0QQRDA",66,0) + ; C0QMSIENS=1^3^5 +"RTN","C0QQRDA",67,0) + ; C0QMSIENS(0)="ED^VTE^STK" +"RTN","C0QQRDA",68,0) + ; +"RTN","C0QQRDA",69,0) + N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameter IEN in 401 +"RTN","C0QQRDA",70,0) + ; +"RTN","C0QQRDA",71,0) + ; If not all, grab the measure set; else, grab all of them in ^ pieces +"RTN","C0QQRDA",72,0) + I FLD'="ALL" D +"RTN","C0QQRDA",73,0) + . S C0QMSIENS=$$GET1^DIQ(1130580001.401,INPPARM,FLD,"I") +"RTN","C0QQRDA",74,0) + . S C0QMSIENS(0)=FLD +"RTN","C0QQRDA",75,0) + ; +"RTN","C0QQRDA",76,0) + E D +"RTN","C0QQRDA",77,0) + . N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") +"RTN","C0QQRDA",78,0) + . N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") +"RTN","C0QQRDA",79,0) + . N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") +"RTN","C0QQRDA",80,0) + . S C0QMSIENS=C0QED_U_C0QVTE_U_C0QSTK +"RTN","C0QQRDA",81,0) + . S C0QMSIENS(0)="ED"_U_"VTE"_U_"STK" +"RTN","C0QQRDA",82,0) + ; +"RTN","C0QQRDA",83,0) + ; +"RTN","C0QQRDA",84,0) + S:'C0QMSIENS $EC=",U1," ; Debug.Assert that MSIEN is numeric. +"RTN","C0QQRDA",85,0) + ; +"RTN","C0QQRDA",86,0) + ; +"RTN","C0QQRDA",87,0) + ; Do the work +"RTN","C0QQRDA",88,0) + N C0QI ; Counter through the measures +"RTN","C0QQRDA",89,0) + F C0QI=1:1:$L(C0QMSIENS,U) D +"RTN","C0QQRDA",90,0) + . N MSIEN S MSIEN=$P(C0QMSIENS,U,C0QI) ; Measure Set IEN +"RTN","C0QQRDA",91,0) + . N MSNAME S MSNAME=$P(C0QMSIENS(0),U,C0QI) ; Measure Set Name +"RTN","C0QQRDA",92,0) + . N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection +"RTN","C0QQRDA",93,0) + . K @REF ; Clear global +"RTN","C0QQRDA",94,0) + . D WORK(REF,MSIEN) ; Process Measure Set, collect data in global +"RTN","C0QQRDA",95,0) + . D PRINTXML(REF,MSNAME) ; Generate XML; output to File. +"RTN","C0QQRDA",96,0) + . K @REF ; Clear global +"RTN","C0QQRDA",97,0) + QUIT +"RTN","C0QQRDA",98,0) + ; +"RTN","C0QQRDA",99,0) + ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked. +"RTN","C0QQRDA",100,0) + ; N % S %=$$CHECKPAR() +"RTN","C0QQRDA",101,0) + ; I % S RETURN(0)=% Q +"RTN","C0QQRDA",102,0) + ; +"RTN","C0QQRDA",103,0) + ; N DIQUIET S DIQUIET=1 +"RTN","C0QQRDA",104,0) + ; D EN +"RTN","C0QQRDA",105,0) + ; S RETURN(0)=0 +"RTN","C0QQRDA",106,0) + ; QUIT +"RTN","C0QQRDA",107,0) + ; +"RTN","C0QQRDA",108,0) +CHECKPAR() ; Private Proc; Check if environment is okay. +"RTN","C0QQRDA",109,0) + ; Output: 0 or +ve^message for error +"RTN","C0QQRDA",110,0) + ; 1 -> No Inpatient Parameters found +"RTN","C0QQRDA",111,0) + ; 2 -> Measurement Set(s) not found. +"RTN","C0QQRDA",112,0) + ; +"RTN","C0QQRDA",113,0) + N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN +"RTN","C0QQRDA",114,0) + I 'INPPARM Q 1_U_"No Inpatient Parameters found" +"RTN","C0QQRDA",115,0) + ; +"RTN","C0QQRDA",116,0) + ; Pointer fields to Measurement Set file, we grab the IENs +"RTN","C0QQRDA",117,0) + N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") +"RTN","C0QQRDA",118,0) + N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") +"RTN","C0QQRDA",119,0) + N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") +"RTN","C0QQRDA",120,0) + ; +"RTN","C0QQRDA",121,0) + N TXT S TXT="" ; Error text +"RTN","C0QQRDA",122,0) + I 'C0QED S TXT=TXT_"ED," +"RTN","C0QQRDA",123,0) + I 'C0QSTK S TXT=TXT_"STK," +"RTN","C0QQRDA",124,0) + I 'C0QVTE S TXT=TXT_"VTE" +"RTN","C0QQRDA",125,0) + I $E(TXT,$L(TXT))="," S TXT=$E(TXT,1,$L(TXT)-1) ; remove trailing comma +"RTN","C0QQRDA",126,0) + I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT +"RTN","C0QQRDA",127,0) + ; +"RTN","C0QQRDA",128,0) + QUIT 0 ; All okay +"RTN","C0QQRDA",129,0) + ; +"RTN","C0QQRDA",130,0) +SETUPPAR(INPPARM) ; Private Proc; Set-up QRDA lists if Inpatient Param is found. +"RTN","C0QQRDA",131,0) + ; Input: Inpatient Parameter IEN in C0Q(401, -> C0Q Parameters +"RTN","C0QQRDA",132,0) + ; Output: 0 if okay or 1^error description +"RTN","C0QQRDA",133,0) + N C0QFDA +"RTN","C0QQRDA",134,0) + ; +"RTN","C0QQRDA",135,0) + N VTEIEN S VTEIEN=$O(^C0Q(201,"B","VTE CMS REPORTING MEASURES","")) +"RTN","C0QQRDA",136,0) + I 'VTEIEN QUIT 1_U_"VTE not found" +"RTN","C0QQRDA",137,0) + N STKIEN S STKIEN=$O(^C0Q(201,"B","STK CMS REPORTING MEASURES","")) +"RTN","C0QQRDA",138,0) + I 'STKIEN QUIT 1_U_"STK not found" +"RTN","C0QQRDA",139,0) + N EDIEN S EDIEN=$O(^C0Q(201,"B","ED CMS REPORTING MEASURES","")) +"RTN","C0QQRDA",140,0) + I 'EDIEN QUIT 1_U_"ED not found" +"RTN","C0QQRDA",141,0) + ; +"RTN","C0QQRDA",142,0) + S C0QFDA(1130580001.401,INPPARM_",",5.1)=VTEIEN +"RTN","C0QQRDA",143,0) + S C0QFDA(1130580001.401,INPPARM_",",5.2)=STKIEN +"RTN","C0QQRDA",144,0) + S C0QFDA(1130580001.401,INPPARM_",",5.3)=EDIEN +"RTN","C0QQRDA",145,0) + ; +"RTN","C0QQRDA",146,0) + N C0QERR +"RTN","C0QQRDA",147,0) + D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) +"RTN","C0QQRDA",148,0) + I $D(C0QERR) Q 2_U_C0QERR("DIERR",1,"TEXT",1) +"RTN","C0QQRDA",149,0) + Q 0 +"RTN","C0QQRDA",150,0) + ; +"RTN","C0QQRDA",151,0) +WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data. +"RTN","C0QQRDA",152,0) + ; Input/Output: C0QREF -> Global for Output passed by Name +"RTN","C0QQRDA",153,0) + ; C0QMSIEN -> (Input): Measurement Set IEN to calculate +"RTN","C0QQRDA",154,0) + ; +"RTN","C0QQRDA",155,0) + ; Print +"RTN","C0QQRDA",156,0) + D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0)) +"RTN","C0QQRDA",157,0) + D EN^DDIOL("") +"RTN","C0QQRDA",158,0) + ; +"RTN","C0QQRDA",159,0) + ; Calculate totals and move patients over from individual measures +"RTN","C0QQRDA",160,0) + N A +"RTN","C0QQRDA",161,0) + D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used. +"RTN","C0QQRDA",162,0) + ; +"RTN","C0QQRDA",163,0) + ; Get QRDA code for Measure Set. +"RTN","C0QQRDA",164,0) + N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT") +"RTN","C0QQRDA",165,0) + ; +"RTN","C0QQRDA",166,0) + N C0QI S C0QI=0 ; Fileman IEN looper +"RTN","C0QQRDA",167,0) + F S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI D ; For each measure in Measure Set +"RTN","C0QQRDA",168,0) + . ; +"RTN","C0QQRDA",169,0) + . ; Get QRDA code using relational jump +"RTN","C0QQRDA",170,0) + . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT") +"RTN","C0QQRDA",171,0) + . ; +"RTN","C0QQRDA",172,0) + . ; Then collect patients in the denominator, and store in output global +"RTN","C0QQRDA",173,0) + . N C0QP S C0QP=0 +"RTN","C0QQRDA",174,0) + . F S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP D ; For each patient in denominator +"RTN","C0QQRDA",175,0) + . . N C0QDFN S C0QDFN=+^(C0QP,0) +"RTN","C0QQRDA",176,0) + . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)="" +"RTN","C0QQRDA",177,0) + QUIT +"RTN","C0QQRDA",178,0) + ; +"RTN","C0QQRDA",179,0) +INPPARM() ; $$ Private; Get Inpatient Parameters IEN +"RTN","C0QQRDA",180,0) + ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file +"RTN","C0QQRDA",181,0) + ; +"RTN","C0QQRDA",182,0) + ; Browse this tree of xrefs to get the IEN of INP type (last line here). +"RTN","C0QQRDA",183,0) + ; ^C0Q(401,"B","INPATIENT",2)="" +"RTN","C0QQRDA",184,0) + ; ^C0Q(401,"B","OUTPATIENT",1)="" +"RTN","C0QQRDA",185,0) + ; ^C0Q(401,"MU","MU12",1)="" +"RTN","C0QQRDA",186,0) + ; ^C0Q(401,"MU","MU12",2)="" +"RTN","C0QQRDA",187,0) + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" +"RTN","C0QQRDA",188,0) + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" +"RTN","C0QQRDA",189,0) + ; +"RTN","C0QQRDA",190,0) + N MUID S MUID="" ; Looper for MU Year ID +"RTN","C0QQRDA",191,0) + N FOUND S FOUND=0 ; Found flag to get out of loop +"RTN","C0QQRDA",192,0) + N IEN ; Output variable +"RTN","C0QQRDA",193,0) + F S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID="" Q:FOUND D ; Loop backwards +"RTN","C0QQRDA",194,0) + . N TYP S TYP="" ; Type ("EP" or "INP") +"RTN","C0QQRDA",195,0) + . F S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP="" Q:FOUND D +"RTN","C0QQRDA",196,0) + . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q ; If found, get IEN, quit out of loops +"RTN","C0QQRDA",197,0) + QUIT +$G(IEN) +"RTN","C0QQRDA",198,0) + ; +"RTN","C0QQRDA",199,0) +PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc +"RTN","C0QQRDA",200,0) + ; Input: C0QREF -> Global By Name +"RTN","C0QQRDA",201,0) + ; C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames. +"RTN","C0QQRDA",202,0) + ; Output: modified CCRs are saved in /tmp/ +"RTN","C0QQRDA",203,0) + N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers +"RTN","C0QQRDA",204,0) + F S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN="" D ; For each patient +"RTN","C0QQRDA",205,0) + . ; +"RTN","C0QQRDA",206,0) + . N GREEN S GREEN=$C(27)_"[1;37;42m" +"RTN","C0QQRDA",207,0) + . N RESET S RESET=$C(27)_"[0m" +"RTN","C0QQRDA",208,0) + . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!") +"RTN","C0QQRDA",209,0) + . D EN^DDIOL("","","!") +"RTN","C0QQRDA",210,0) + . ; +"RTN","C0QQRDA",211,0) + . ; CCR Generatation is next; protected against crashes. +"RTN","C0QQRDA",212,0) + . ; ET set to new value then restored. +"RTN","C0QQRDA",213,0) + . N C0QCCRXML ; CCR XML +"RTN","C0QQRDA",214,0) + . N OLDTRAP S OLDTRAP=$ET +"RTN","C0QQRDA",215,0) + . ; ET: Rollback to this level, write the error in red , clear it, then quit +"RTN","C0QQRDA",216,0) + . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET +"RTN","C0QQRDA",217,0) + . N $ES,$ET +"RTN","C0QQRDA",218,0) + . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA" +"RTN","C0QQRDA",219,0) + . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC. +"RTN","C0QQRDA",220,0) + . S $ET=OLDTRAP +"RTN","C0QQRDA",221,0) + . ; +"RTN","C0QQRDA",222,0) + . ; +"RTN","C0QQRDA",223,0) + . ; Quality XML Section generated by hand next... +"RTN","C0QQRDA",224,0) + . N C0QXML ; Generated Quality XML +"RTN","C0QQRDA",225,0) + . D XMLSTORE(.C0QXML,$$OT("QUALITY")) ; Open Tag +"RTN","C0QQRDA",226,0) + . F S C0QMS=$O(@C0QREF@(C0QDFN,C0QMS)) Q:C0QMS="" D ; For each measure set +"RTN","C0QQRDA",227,0) + . . D XMLSTORE(.C0QXML,$$OT("MEASURE_SET")) ; Open tag +"RTN","C0QQRDA",228,0) + . . D XMLSTORE(.C0QXML,$$TAG("ID",C0QMS)) ; Write out set QRDA code +"RTN","C0QQRDA",229,0) + . . D XMLSTORE(.C0QXML,$$OT("MEASURES")) ; Open tag +"RTN","C0QQRDA",230,0) + . . F S C0QM=$O(@C0QREF@(C0QDFN,C0QMS,C0QM)) Q:C0QM="" D ; for each measure +"RTN","C0QQRDA",231,0) + . . . D XMLSTORE(.C0QXML,$$TAG("MEASURE",C0QM)) ; Write and qrda code +"RTN","C0QQRDA",232,0) + . . D XMLSTORE(.C0QXML,$$CT("MEASURES")) ; Close tag +"RTN","C0QQRDA",233,0) + . . D XMLSTORE(.C0QXML,$$CT("MEASURE_SET")) ; Close tag +"RTN","C0QQRDA",234,0) + . D XMLSTORE(.C0QXML,$$CT("QUALITY")) ; Close tag +"RTN","C0QQRDA",235,0) + . ; +"RTN","C0QQRDA",236,0) + . ; +"RTN","C0QQRDA",237,0) + . ; Insert Quality XML under the root of the CCR document +"RTN","C0QQRDA",238,0) + . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord") +"RTN","C0QQRDA",239,0) + . ; +"RTN","C0QQRDA",240,0) + . ; +"RTN","C0QQRDA",241,0) + . ; Get Kernel Default Directory +"RTN","C0QQRDA",242,0) + . N DEFDIR S DEFDIR=$$DEFDIR^%ZISH() +"RTN","C0QQRDA",243,0) + . ; +"RTN","C0QQRDA",244,0) + . ; +"RTN","C0QQRDA",245,0) + . ; Write out to a file. +"RTN","C0QQRDA",246,0) + . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name +"RTN","C0QQRDA",247,0) + . K C0QCCRXML(0) ; remove zero node; API doesn't support it. +"RTN","C0QQRDA",248,0) + . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR)) +"RTN","C0QQRDA",249,0) + QUIT +"RTN","C0QQRDA",250,0) + ; +"RTN","C0QQRDA",251,0) + ; Quick XML stuff ; All Private +"RTN","C0QQRDA",252,0) +OT(STR) Q "<"_STR_">" ; $$ Open Tag +"RTN","C0QQRDA",253,0) +CT(STR) Q "" ; $$ Close Tag +"RTN","C0QQRDA",254,0) +TAG(NM,CONTENT) Q "<"_NM_">"_CONTENT_"" ; $$ Whole tag +"RTN","C0QQRDA",255,0) + ; +"RTN","C0QQRDA",256,0) +XMLSTORE(REF,STR) ; Priv Proc - Store XML +"RTN","C0QQRDA",257,0) + ; REF -> Save Array. Pass by Reference. +"RTN","C0QQRDA",258,0) + ; STR -> What to store. Pass by Value. +"RTN","C0QQRDA",259,0) + ; Use like this: D XMLSTORE(.STORE,"") +"RTN","C0QQRDA",260,0) + ; Output: STORE(1)="" +"RTN","C0QQRDA",261,0) + N L ; Number Subscript to use +"RTN","C0QQRDA",262,0) + S L=$O(REF(" "),-1) S L=L+1 ; Get last number and increment +"RTN","C0QQRDA",263,0) + S REF(L)=STR,REF(0)=L ; Store string in numbered sub, store last number in 0 node (not used here) +"RTN","C0QQRDA",264,0) + QUIT +"RTN","C0QQRDA",265,0) + ; +"RTN","C0QQRDA",266,0) + ; Following is for formatting printed XML. L passed in Symbol Table and starts at 0. +"RTN","C0QQRDA",267,0) +L1 D WS S L=L+1 Q ; Write space and increment +"RTN","C0QQRDA",268,0) +L2 S L=L-1 D WS Q ; Decrement and Write space +"RTN","C0QQRDA",269,0) +WS X "F I=1:1:L W "" """ Q ; Write Space +"RTN","C0QQRDA",270,0) + ; This is for rolling down the stack to the $ES level +"RTN","C0QQRDA",271,0) +ROLLDOWN S $ET="Q:$ES S $EC=""""",$EC=",U99," QUIT +"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^^.3^18 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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) + +"^DD",1130580001.101,1130580001.101,3,3) +Answer must be 3-120 characters in length +"^DD",1130580001.101,1130580001.101,3,21,0) +^^2^2^3120731^^ +"^DD",1130580001.101,1130580001.101,3,21,1,0) +Measure template root for the QRDA Document. A series of . delimited +"^DD",1130580001.101,1130580001.101,3,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.101,1130580001.101,3,"DT") +3120731 +"^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^^.4^9 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3120801 +"^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 MEASUREMENT SET") + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3) + +"^DD",1130580001.201,1130580001.201,.01,0) +NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.201,1130580001.201,.01,.1) + +"^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) +Answer must be 3-30 characters in length. +"^DD",1130580001.201,1130580001.201,.01,21,0) +^^1^1^3120731^ +"^DD",1130580001.201,1130580001.201,.01,21,1,0) +Measurement Set Name. +"^DD",1130580001.201,1130580001.201,.01,"DT") +3120731 +"^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,.3,0) +MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.201,1130580001.201,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.201,1130580001.201,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.201,1130580001.201,.3,"DT") +3111129 +"^DD",1130580001.201,1130580001.201,.4,0) +QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X +"^DD",1130580001.201,1130580001.201,.4,3) +Answer must be 3-120 characters in length. +"^DD",1130580001.201,1130580001.201,.4,21,0) +^^6^6^3120731^ +"^DD",1130580001.201,1130580001.201,.4,21,1,0) +Measure template root for the Measurement Set. A series of . delimited +"^DD",1130580001.201,1130580001.201,.4,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.201,1130580001.201,.4,21,3,0) + +"^DD",1130580001.201,1130580001.201,.4,21,4,0) +Most measurement sets don't have that. Only measurement sets reporable as +"^DD",1130580001.201,1130580001.201,.4,21,5,0) +a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled +"^DD",1130580001.201,1130580001.201,.4,21,6,0) +out as it is reported in the QRDA document. +"^DD",1130580001.201,1130580001.201,.4,"DT") +3120731 +"^DD",1130580001.201,1130580001.201,1,0) +MEASURE^1130580001.2011P^^5;0 +"^DD",1130580001.201,1130580001.2011,0) +MEASURE SUB-FIELD^^2.2^8 +"^DD",1130580001.201,1130580001.2011,0,"DT") +3120801 +"^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) + +"^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") +3120801 +"^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,1.2,0) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"^DD",1130580001.201,1130580001.2011,1.2,.1) +FILTER LIST FOR NUMERATOR +"^DD",1130580001.201,1130580001.2011,1.2,"DT") +3111129 +"^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,2.2,0) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"^DD",1130580001.201,1130580001.2011,2.2,.1) +FILTER LIST FOR DENOMINATOR +"^DD",1130580001.201,1130580001.2011,2.2,"DT") +3111129 +"^DD",1130580001.201,1130580001.2011,3,0) +PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.401,1130580001.401,5.1,0) +VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q +"^DD",1130580001.401,1130580001.401,5.1,3) +Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.1,21,0) +^^3^3^3120801^^^ +"^DD",1130580001.401,1130580001.401,5.1,21,1,0) +This field holds the VTE measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.1,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.1,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.1,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.1,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.1,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.1,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.1,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.2,0) +STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q +"^DD",1130580001.401,1130580001.401,5.2,3) +Enter STK Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.2,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,21,1,0) +This field holds the STK measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.2,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.2,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.2,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.2,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.2,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.2,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.3,0) +ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q +"^DD",1130580001.401,1130580001.401,5.3,3) +Enter ED Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.3,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,21,1,0) +This field holds the ED measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.3,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.3,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.3,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.3,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.3,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.3,"DT") +3120801 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +"^DIC",1130580001.201,1130580001.201,0) +C0Q MEASUREMENT SET^1130580001.201 +"^DIC",1130580001.201,1130580001.201,0,"GL") +^C0Q(201, +"^DIC",1130580001.201,1130580001.201,"%",0) +^1.005^^ +"^DIC",1130580001.201,1130580001.201,"%D",0) +^^3^3^3120731^ +"^DIC",1130580001.201,1130580001.201,"%D",1,0) +This file contains the groupings of Measurements found in the Quality +"^DIC",1130580001.201,1130580001.201,"%D",2,0) +Measures file. It is tied to the parameters file as the set of +"^DIC",1130580001.201,1130580001.201,"%D",3,0) +measurements to report for a site. +"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201) + +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.TXT b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.TXT new file mode 100644 index 0000000..632e877 --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.TXT @@ -0,0 +1,462 @@ + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced in Dew Drop + by George Lily on 24 August 2012 and released through VISTA Forum. + + (C) 2012 George Lilly + Licensed under GPL 2. + + Functionality: + ============== + This patch adds the ability to generate modified CCRs + containing a QUALITY measure section that looks like + this: + + + 1.3.6.1.4.1.33895.1.1.31.1.2.1 + + 1.3.6.1.4.1.33895.1.2.16001.1.2.2 + 1.3.6.1.4.1.33895.1.2.16002.1.2.2 + 1.3.6.1.4.1.33895.1.2.16004.1.2.2 + 1.3.6.1.4.1.33895.1.2.16008.1.2.2 + + + + + This enables you to create a QRDA document in the C32 format to submit to CMS + containing these measures. The C32 document will be generated by an XSLT + transform from the CCR document. + + The driving force behind the creation of this patch, as well as the + documentation of the actual QRDA documents to send to CMS can be found here: + http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 + + Specifically, this sentence: + "One part of meeting the requirements for Stage I Meaningful Use may include + submitting Clinical Quality Measures (CQMs) electronically using the QRDA + Category I file format." + + Package Elements: + ================= +PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 +------------------------------------------------------------------------------- +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: +QRDA Support. + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: +PRE-TRANSPORT RTN: TRAN^C0Q1P4 + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO + +1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO + +1130580001.401C0Q PARAMETER YES YES NO NO +Partial DD: subDD: 1130580001.401fld: 5.1 + fld: 5.2 + fld: 5.3 + +INPUT TEMPLATE: ACTION: + C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE + C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE + +ROUTINE: ACTION: + C0QQRDA SEND TO SITE + +OPTION: ACTION: + C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE + C0Q QRDA MENU SEND TO SITE + C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: YES + Default INHIBIT LOGONs during the install: NO + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO + +REQUIRED BUILDS: ACTION: + CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global + QUALITY MEASURES 1.0 Don't install, leave global + + Summary of Changes to package: + - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs + for Inpatients, as follows: + +NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET +---------------------------------------------------------------------------------- + +MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS +MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS + +MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS +MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS +MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS +MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS +MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS +MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS +MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS + +MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS +MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS +MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS +MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS +MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS +MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS + + - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET + - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET + - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: +NAME: ED CMS REPORTING MEASURES + QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 + BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 +MEASURE: MU HOS NQF 0495 +MEASURE: MU HOS NQF 0497 + MU YEAR KEY: MU12 + +NAME: STK CMS REPORTING MEASURES + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +MEASURE: MU HOS NQF 0435 +MEASURE: MU HOS NQF 0436 +MEASURE: MU HOS NQF 0437 +MEASURE: MU HOS NQF 0438 +MEASURE: MU HOS NQF 0439 +MEASURE: MU HOS NQF 0440 +MEASURE: MU HOS NQF 0441 + MU YEAR KEY: MU12 + +NAME: VTE CMS REPORTING MEASURES + QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 + BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 +MEASURE: MU HOS NQF 0371 +MEASURE: MU HOS NQF 0372 +MEASURE: MU HOS NQF 0373 +MEASURE: MU HOS NQF 0374 +MEASURE: MU HOS NQF 0375 +MEASURE: MU HOS NQF 0376 + MU YEAR KEY: MU12 + + - Creation of supporting fields in the C0Q PARAMETER file to drive generation + of the QRDA documents. + - VTE CMS MEASUREMENT SET + - STK CMS MEASUREMENT SET + - ED CMS MEASUREMENT SET + + - Modification of existing input templates to support the new fields created. + C0Q EDIT INPATIENT PARMS FILE #1130580001.401 + C0Q EDIT MEASURE SET FILE #1130580001.201 + + - Routine C0QQRDA to drive the generation of the QRDA documents. + + - Menu option to call EN^C0QQRDA: + -> C0Q QUALITY MEASUREMENT MENU + Parent: C0Q QRDA MENU + + Routine Versioning: + + The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 + + + The following checksums can be checked with CHECK1^XTSUMBLD: + + Routine Before After Patch List + ------- ----------- ------------ --------------------------------- + C0QQRDA 89943644 **4** + + Documentation: + ============== + None at this moment. + + Test Sites: + =========== + None at this moment. + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007). + + Installation Instructions: + ========================== + Install Time - less than 1 minute + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*4): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*4" at the INSTALL NAME prompt. + b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' + Answer YES. The file is just renamed, that's why KIDS asks you to + overwrite it. + c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? YES//' answer YES + d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + Installation Example: +Select Installation Option: 6 Install Package(s) +Select INSTALL NAME: C0Q*1.0*4 Loaded from Distribution Loaded from D +istribution 8/24/12@10:05 + => INPATIENT CMS QRDA GENERATION SUPPORT ;Created on Aug 02, 2012@10:40: + +This Distribution was loaded on Aug 24, 2012@10:05 with header of + INPATIENT CMS QRDA GENERATION SUPPORT ;Created on Aug 02, 2012@10:40:23 + It consisted of the following Install(s): + C0Q*1.0*4 + + Checking C0Q*1.0*4 for overlap with VOE 1.0 .... OK + No overlap found + + Checking C0Q*1.0*4 for overlap with VOE 1.1 .... OK + No overlap found + + Checking C0Q*1.0*4 for overlap with NO HOME 1.0 .... OK + No overlap found + +Checking Install for Package C0Q*1.0*4 + +Install Questions for C0Q*1.0*4 + +Incoming Files: + + 1130580001.101C0Q QUALITY MEASURE (including data) +Note: You already have the 'C0Q QUALITY MEASURE' File. +I will OVERWRITE your data with mine. + + 1130580001.201C0Q MEASUREMENT SET (including data) +*BUT YOU ALREADY HAVE 'C0Q MEASUREMENTS' AS FILE #1130580001.201! +Shall I write over your C0Q MEASUREMENTS File? YES// +I will OVERWRITE your data with mine. + + 1130580001.401C0Q PARAMETER (Partial Definition) +Note: You already have the 'C0Q PARAMETER' File. + +Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES// + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// PHOME HOME PRINTER + + + Install Started for C0Q*1.0*4 : + Aug 24, 2012@10:08:54 + +Build Distribution Date: Aug 02, 2012 + + Installing Routines:.. + Aug 24, 2012@10:08:54 + + Installing Data Dictionaries: .... + Aug 24, 2012@10:08:55 + + Installing Data: + Aug 24, 2012@10:08:55 + + Installing PACKAGE COMPONENTS: + + Installing INPUT TEMPLATE... + + Installing OPTION.... + Aug 24, 2012@10:08:55 + + Updating Routine file...... + + Updating KIDS files....... + + C0Q*1.0*4 Installed. + Aug 24, 2012@10:08:55 + + Not a VA primary domain + + NO Install Message sent + + Call MENU rebuild + +Starting Menu Rebuild: Aug 24, 2012@10:08:57 + +Collecting primary menus in the New Person file... + + Primary menus found in the New Person file + ------------------------------------------ + +OPTION NAME MENU TEXT # OF LAST LAST + USERS USED BUILT + +EVE Systems Manager Menu 25 08/24/12 08/06/12 +XUCORE Core Applications 3 08/14/12 08/06/12 +XUSERTOOLS User's Toolbox 3 06/28/11 08/06/12 +XMUSER MailMan Menu 1 06/03/11 08/06/12 +DG REGISTRATION MENURegistration Menu 1 06/21/11 08/06/12 +DGZ REGISTRATION MENU + EHR Registration Menu 39 07/09/12 08/06/12 +XUZEVE STARTUP FUNCTIONS 1 11/16/05 08/06/12 + +Building secondary menu trees.... + +Merging.... done. + +Menu Rebuild Complete: Aug 24, 2012@10:09:01 + +Brief Usage Instructions: +==================================== +Before running the QRDA option, you need to set-up your inpatient parameters. +You need AT LEAST a Parameter Name, an MU Year, and a Parameter Type in order +for the software to pick up the parameter's presence. If you already have it +set-up, you don't need to perform this step. Please note that the software does +a reverse $Order through the MU years and will only pick the latest one. + +--- +Select SETUP QUALITY REPORTING Option: INP EDIT PARMS + +Select C0Q PARAMETER NAME: ? + to exit: + You may enter a new C0Q PARAMETER, if you wish + NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH + PUNCTUATION + +Select C0Q PARAMETER NAME: INPATIENT + Are you adding 'INPATIENT' as a new C0Q PARAMETER (the 1ST)? No// Y (Yes) +NAME: INPATIENT// +MEASUREMENT PERIOD KEY: MU12 +PARAMETER TYPE: INP INPATIENT +INP MU MEASUREMENT SET: +INP QUALITY MEASUREMENT SET: +VTE CMS MEASUREMENT SET: +STK CMS MEASUREMENT SET: +ED CMS MEASUREMENT SET: +Select SUBSCRIBER: +--- + +Next, the you can invoke the menu option as follows, but you may not get any +CCRs to generate. The option will run EN^C0QQRDA which will look up the +installed measure sets and try to set-up your parameters correctly. If you +re-named the installed measure sets, this step will fail and you will need to +populate them manually in the parameters. + +--- +Select QUALITY MEASUREMENT MENU Option: QRDA MENU + +Select QRDA MENU Option: EXPORT INPATIENT QRDA MEASURES AS CCRS +Trying to automatically set-up measure sets in parameters +...Set-up complete + +This program collects patients from the denominators of the measures +STK, VTE, and ED and outputs modified CCR files to the kernel default +directory (probably /tmp/). + +This will take some time to execute. + +Which measure set would you like to produce QRDA documents for? +Choose to Run [V]TE Measure Set, [S]TK Measure Set, or +[E]D Measure Set. Or you can choose to run [A]ll of them. +Measure to calculate: (V/S/E/A): VTE +10: VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1 +--- + +The patient list to generate the CCRs is ultimately taken from the Patient +Lists pointed to from the C0Q QUALITY MEASURE file for each of the measures +being processed in the VTE, ED, or STK Measure Set. At this point of package +development, you must run these measures manually in the reminders package and +then populate the Numerator Patient List field and the Denominator Patient List +field for each of these measures. The software per CMS regs picks up the +patients in the denominator once the measure set is processed. + +A successful execution looks like this: +--- +Select QRDA MENU Option: EXPORT INPATIENT QRDA MEASURES AS CCRS +This program collects patients from the denominators of the measures +STK, VTE, and ED and outputs modified CCR files to the kernel default +directory (probably /tmp/). + +This will take some time to execute. + +Which measure set would you like to produce QRDA documents for? +Choose to Run [V]TE Measure Set, [S]TK Measure Set, or +[E]D Measure Set. Or you can choose to run [A]ll of them. +Measure to calculate: (V/S/E/A): V +10: VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1C0QFDA(1130580001.2 +011,"6,10,",3)=33 + +Prosessing DFN 97 +RUNNING D EXTRACT^C0CPROBS(IXML,DFN,OXML) +NULL RESULT FROM LIST^ORQQPL3 +RUNNING D EXTRACT^C0CALERT(IXML,DFN,OXML) +RUNNING D EXTRACT^C0CMED(IXML,DFN,OXML) +RUNNING D MAP^C0CIMMU(IXML,DFN,OXML) +NULL RESULT FROM IMMUN^PXRHS03 +RUNNING D EXTRACT^C0CVITAL(IXML,DFN,OXML) +VITALS START: T LIMIT: T-360 +RUNNING D MAP^C0CLABS(IXML,DFN,OXML) +I MAPPED +VARS:^TMP("C0CCCR",9097,"RESULTS") +DFN:97 +LAB LOOKUP FAILED, NO SSN +RUNNING D EXTRACT^C0CPROC(IXML,DFN,OXML) +RUNNING D EXTRACT^C0CENC(IXML,DFN,OXML) +PROCESSING:PATIENT 97 +PROCESSING:PROVIDER 8 +PROCESSING:SYSTEM 1 + +1^WROTE FILE: VTE_QRDA_CCR_DFN0000000097.XML TO /tmp/ +--- diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-004_PAT-001.KID b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-004_PAT-001.KID new file mode 100644 index 0000000..333efb2 --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-004_PAT-001.KID @@ -0,0 +1,4186 @@ +KIDS Distribution saved on Sep 17, 2012@16:13:14 +ERX MU MEASURE SUPPORT +**KIDS**:C0Q*1.0*1^ + +**INSTALL NAME** +C0Q*1.0*1 +"BLD",7937,0) +C0Q*1.0*1^QUALITY MEASURES^0^3120917^y +"BLD",7937,1,0) +^^291^291^3120917^ +"BLD",7937,1,1,0) +ePrescribing MU measure in this package. +"BLD",7937,1,2,0) + +"BLD",7937,1,3,0) +Dependencies: +"BLD",7937,1,4,0) +This build requires C0P*1*4 for the new WebService entry that gets MU +"BLD",7937,1,5,0) +data from New Crop. +"BLD",7937,1,6,0) +This build requires the base C0Q 1.0 to be installed. +"BLD",7937,1,7,0) + +"BLD",7937,1,8,0) +This build performs the following: +"BLD",7937,1,9,0) +Routines: +"BLD",7937,1,10,0) +1. Adds routine C0QMUERX for calculation of ePrescribing stats. +"BLD",7937,1,11,0) +2. Mods routine C0QMU12 to call C0QMUERX for the ERX measure for +"BLD",7937,1,12,0) +Outpatients. +"BLD",7937,1,13,0) +3. Mods routine C0QUPDT to handle the special case of ePrescribing stats. +"BLD",7937,1,14,0) +Also, some checks and quits so that we won't crash if no patient lists +"BLD",7937,1,15,0) +are associated with the measure. +"BLD",7937,1,16,0) + +"BLD",7937,1,17,0) +Data Dictionary: +"BLD",7937,1,18,0) +1. File C0Q PARAMETER has two new indexes: +"BLD",7937,1,19,0) + AMMS REGULAR +"BLD",7937,1,20,0) + Field: EP MU MEASUREMENT SET (1130580001.401,2) +"BLD",7937,1,21,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"BLD",7937,1,22,0) + walk back to a parameter when processing a specific IEN. +"BLD",7937,1,23,0) + +"BLD",7937,1,24,0) + You can get the IEN of the measurement set using +"BLD",7937,1,25,0) + $O(^C0Q(401,"AMMS",MSIEN,"")). +"BLD",7937,1,26,0) + 1)= S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"BLD",7937,1,27,0) + 2)= K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"BLD",7937,1,28,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"BLD",7937,1,29,0) + +"BLD",7937,1,30,0) + AQMS REGULAR +"BLD",7937,1,31,0) + Field: EP QUALITY MEASUREMENT SET (1130580001.401,2.1) +"BLD",7937,1,32,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"BLD",7937,1,33,0) + walk back to a parameter when processing a specific IEN. +"BLD",7937,1,34,0) + +"BLD",7937,1,35,0) + You can get the IEN of the measurement set using +"BLD",7937,1,36,0) + $O(^C0Q(401,"AQMS",MSIEN,"")). +"BLD",7937,1,37,0) + 1)= S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"BLD",7937,1,38,0) + 2)= K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"BLD",7937,1,39,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"BLD",7937,1,40,0) + +"BLD",7937,1,41,0) +2. File C0Q QUALITY MEASURE has a new field, MEASURE TYPE (#4): +"BLD",7937,1,42,0) + +"BLD",7937,1,43,0) +1130580001.101,4MEASURE TYPE 0;5 SET +"BLD",7937,1,44,0) + +"BLD",7937,1,45,0) + 'P' FOR Performance; +"BLD",7937,1,46,0) + 'Q' FOR Quality; +"BLD",7937,1,47,0) + 'E' FOR Electronic Prescribing Performance; +"BLD",7937,1,48,0) + LAST EDITED: MAY 30, 2012 +"BLD",7937,1,49,0) + HELP-PROMPT: Enter a code P, Q or E +"BLD",7937,1,50,0) + DESCRIPTION: This field designates the measure type. It can +"BLD",7937,1,51,0) + be P, Q or M. +"BLD",7937,1,52,0) + +"BLD",7937,1,53,0) + P is for Performance. Performance measures are +"BLD",7937,1,54,0) + MU measures to measure how meaningfully used an +"BLD",7937,1,55,0) + EMR is. An example of a performance measure is +"BLD",7937,1,56,0) + whether allergies are documented in the EMR. +"BLD",7937,1,57,0) + Performance measures reference a Patient List +"BLD",7937,1,58,0) + created by this package. +"BLD",7937,1,59,0) + +"BLD",7937,1,60,0) + Q is for Quality Measures. Quality measures are +"BLD",7937,1,61,0) + MU measures to assess how well the patients are +"BLD",7937,1,62,0) + cared for. An example of a quality measure is +"BLD",7937,1,63,0) + whether Hemoglobin A1c Poor Control. Quality +"BLD",7937,1,64,0) + measures reference Patient Lists in the +"BLD",7937,1,65,0) + Reminders package. +"BLD",7937,1,66,0) + +"BLD",7937,1,67,0) + E is for Electronic Prescribing. This is a +"BLD",7937,1,68,0) + Performance measure, except that it is handled +"BLD",7937,1,69,0) + differently than the rest. Instead of the +"BLD",7937,1,70,0) + numerators and denominators being lists of +"BLD",7937,1,71,0) + patients as with all the other measurements, +"BLD",7937,1,72,0) + they are a number of prescriptions. That's why +"BLD",7937,1,73,0) + we have a special flag for it. It references a +"BLD",7937,1,74,0) + Patient List created by this package. The +"BLD",7937,1,75,0) + numerator and denominators are stored in +"BLD",7937,1,76,0) + subfiles for each patient. +"BLD",7937,1,77,0) + +"BLD",7937,1,78,0) + TECHNICAL DESCR: As of version C0P*1.0*1, the software doesn't +"BLD",7937,1,79,0) + use this field except to check for an +"BLD",7937,1,80,0) + electronic prescribing type (code E). +"BLD",7937,1,81,0) + +"BLD",7937,1,82,0) + I anticipate using this field for other +"BLD",7937,1,83,0) + purposes in the future. +"BLD",7937,1,84,0) + +"BLD",7937,1,85,0) +INPUT TEMPLATE: +"BLD",7937,1,86,0) +C0Q EDIT MU MEASURE adds the new field MEASURE TYPE mentioned above. +"BLD",7937,1,87,0) + +"BLD",7937,1,88,0) +DATA: +"BLD",7937,1,89,0) +The entry MU EP ERX for processing ePrescribing stats in C0Q QUALITY +"BLD",7937,1,90,0) +MEASURE is sent to destination sites. +"BLD",7937,1,91,0) + +"BLD",7937,1,92,0) +Implementation Steps: +"BLD",7937,1,93,0) +1. If you don't have New Crop eRx installed, there won't be any effects. +"BLD",7937,1,94,0) +The C0Q code will behave like before. +"BLD",7937,1,95,0) +2. If you don't have C0P*1.0*4 installed, again, the C0Q code will behave +"BLD",7937,1,96,0) +as before the patch. +"BLD",7937,1,97,0) +3. Once you install C0P*1.0*4 with this patch (C0Q*1.0*1), the code will +"BLD",7937,1,98,0) +loop through all Outpatients who have an ERx. The actual patients are +"BLD",7937,1,99,0) +determined via your outpatient parameters. If your parameters reference a +"BLD",7937,1,100,0) +clinic location that already has patients with ERxs, you don't need to do +"BLD",7937,1,101,0) +anything to make the code run. It will run automatically; and it's time +"BLD",7937,1,102,0) +consuming; before you run it though, make sure to do #4. +"BLD",7937,1,103,0) +4. In order for you to see a print out of the eRx measures, you +"BLD",7937,1,104,0) +need to add the Measure MU EP ERX to the Measure Set used in the EP MU +"BLD",7937,1,105,0) +MEASUREMENT SET field in your Outpatient Parameters. You must do this +"BLD",7937,1,106,0) +before you run this for the first time. +"BLD",7937,1,107,0) + +"BLD",7937,1,108,0) +Example of Set-up: +"BLD",7937,1,109,0) + +"BLD",7937,1,110,0) +Select QUALITY MEASUREMENT MENU Option: ? +"BLD",7937,1,111,0) + +"BLD",7937,1,112,0) + COPY OVER PATIENT LISTS +"BLD",7937,1,113,0) + ED-1 COMPUTATION +"BLD",7937,1,114,0) + ED-2 COMPUTATION +"BLD",7937,1,115,0) + EP UPDATE MU MEASURES +"BLD",7937,1,116,0) + INP UPDATE MU MEASURES +"BLD",7937,1,117,0) + PQRI MENU ... +"BLD",7937,1,118,0) + PQRI PRINT XML +"BLD",7937,1,119,0) + PRINT C0Q MEASURES +"BLD",7937,1,120,0) + QRDA MENU ... +"BLD",7937,1,121,0) + SETUP QUALITY REPORTING ... +"BLD",7937,1,122,0) + +"BLD",7937,1,123,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"BLD",7937,1,124,0) +text. +"BLD",7937,1,125,0) + +"BLD",7937,1,126,0) +Select QUALITY MEASUREMENT MENU Option: setUP QUALITY REPORTING +"BLD",7937,1,127,0) + +"BLD",7937,1,128,0) +Select SETUP QUALITY REPORTING Option: ? +"BLD",7937,1,129,0) + +"BLD",7937,1,130,0) + DISPLAY QUALITY MEASURES +"BLD",7937,1,131,0) + EDIT SUPERUSERS +"BLD",7937,1,132,0) + EP EDIT PARMS +"BLD",7937,1,133,0) + INP EDIT PARMS +"BLD",7937,1,134,0) + MEASURE SET EDIT +"BLD",7937,1,135,0) + MU MEASURE EDIT +"BLD",7937,1,136,0) + QUALITY MEASURE EDIT +"BLD",7937,1,137,0) + +"BLD",7937,1,138,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"BLD",7937,1,139,0) +text. +"BLD",7937,1,140,0) + +"BLD",7937,1,141,0) +Select SETUP QUALITY REPORTING Option: ep edit PARMS +"BLD",7937,1,142,0) + +"BLD",7937,1,143,0) +Select C0Q PARAMETER NAME: OUTPATIENT +"BLD",7937,1,144,0) +NAME: OUTPATIENT// +"BLD",7937,1,145,0) +MEASUREMENT PERIOD KEY: MU12// +"BLD",7937,1,146,0) +PARAMETER TYPE: OUTPATIENT// +"BLD",7937,1,147,0) +EP MU MEASUREMENT SET: OUTPATIENT MEASURE SET// +"BLD",7937,1,148,0) +EP QUALITY MEASUREMENT SET: +"BLD",7937,1,149,0) +Select CLINIC: DR OFFICE// +"BLD",7937,1,150,0) +PATIENT LIST LABEL: +"BLD",7937,1,151,0) +Select SUBSCRIBER: +"BLD",7937,1,152,0) + +"BLD",7937,1,153,0) +Select C0Q PARAMETER NAME: +"BLD",7937,1,154,0) + +"BLD",7937,1,155,0) +Select SETUP QUALITY REPORTING Option: measure set EDIT +"BLD",7937,1,156,0) + +"BLD",7937,1,157,0) +Select C0Q MEASUREMENT SET NAME: outpaTIENT MEASURE SET +"BLD",7937,1,158,0) +NAME: OUTPATIENT MEASURE SET Replace +"BLD",7937,1,159,0) +BEGIN DATE: JUN 12,2001// +"BLD",7937,1,160,0) +END DATE: MAY 25,2012// +"BLD",7937,1,161,0) +LOCKED: +"BLD",7937,1,162,0) +MU YEAR KEY: MU12// +"BLD",7937,1,163,0) +QRDA TEMPLATE ROOT: +"BLD",7937,1,164,0) +Select MEASURE: MU EP ERX// +"BLD",7937,1,165,0) + MEASURE: MU EP ERX// +"BLD",7937,1,166,0) + NUMERATOR FILTER LIST: +"BLD",7937,1,167,0) + DENOMINATOR FILTER LIST: +"BLD",7937,1,168,0) +Select MEASURE: +"BLD",7937,1,169,0) + +"BLD",7937,1,170,0) +Select C0Q MEASUREMENT SET NAME: +"BLD",7937,1,171,0) + +"BLD",7937,1,172,0) +Select SETUP QUALITY REPORTING Option: +"BLD",7937,1,173,0) + +"BLD",7937,1,174,0) +Select QUALITY MEASUREMENT MENU Option: ? +"BLD",7937,1,175,0) + +"BLD",7937,1,176,0) + COPY OVER PATIENT LISTS +"BLD",7937,1,177,0) + ED-1 COMPUTATION +"BLD",7937,1,178,0) + ED-2 COMPUTATION +"BLD",7937,1,179,0) + EP UPDATE MU MEASURES +"BLD",7937,1,180,0) + INP UPDATE MU MEASURES +"BLD",7937,1,181,0) + PQRI MENU ... +"BLD",7937,1,182,0) + PQRI PRINT XML +"BLD",7937,1,183,0) + PRINT C0Q MEASURES +"BLD",7937,1,184,0) + QRDA MENU ... +"BLD",7937,1,185,0) + SETUP QUALITY REPORTING ... +"BLD",7937,1,186,0) + +"BLD",7937,1,187,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"BLD",7937,1,188,0) +text. +"BLD",7937,1,189,0) + +"BLD",7937,1,190,0) +Select QUALITY MEASUREMENT MENU Option: ep updATE MU MEASURES +"BLD",7937,1,191,0) +Sep 16, 2012@86:54:61 +"BLD",7937,1,192,0) +Jan 03, 2008@80:85:41 +"BLD",7937,1,193,0) +Jan 01, 2008@81:59:42 +"BLD",7937,1,194,0) +Nov 25, 2005@86:89:76 +"BLD",7937,1,195,0) +Nov 25, 2005@85:87:58 +"BLD",7937,1,196,0) +Nov 24, 2005@79:68:87 +"BLD",7937,1,197,0) +Aug 01, 2005@91:59:64 +"BLD",7937,1,198,0) +Aug 2005@84:91:51 +"BLD",7937,1,199,0) +Aug 2005@84:78:82 +"BLD",7937,1,200,0) +Jul 28, 2005@88:55:64 +"BLD",7937,1,201,0) +Jul 28, 2005@88:46:85 +"BLD",7937,1,202,0) +Jul 28, 2005@87:95:55 +"BLD",7937,1,203,0) +Jul 27, 2005@87:79:80 +"BLD",7937,1,204,0) +Jul 27, 2005@83:83:97 +"BLD",7937,1,205,0) +Jul 26, 2005@88:78:96 +"BLD",7937,1,206,0) +Jul 26, 2005@88:75:45 +"BLD",7937,1,207,0) +Jul 26, 2005@88:58:60 +"BLD",7937,1,208,0) +Jul 26, 2005@88:52:62 +"BLD",7937,1,209,0) +Jul 26, 2005@88:50:59 +"BLD",7937,1,210,0) +Jul 26, 2005@88:49:74 +"BLD",7937,1,211,0) +Jul 26, 2005@84:54:55 +"BLD",7937,1,212,0) +Jul 24, 2005@91:62:76 +"BLD",7937,1,213,0) +Jul 23, 2005@88:98:45 +"BLD",7937,1,214,0) +Jul 23, 2005@85:77:89 +"BLD",7937,1,215,0) +Jul 23, 2005@83:77:71 +"BLD",7937,1,216,0) +Jul 23, 2005@82:82:99 +"BLD",7937,1,217,0) +Jul 23, 2005@82:66:61 +"BLD",7937,1,218,0) +Jul 22, 2005@83:85:46 +"BLD",7937,1,219,0) +Jul 22, 2005@82:82:92 +"BLD",7937,1,220,0) +Jul 22, 2005@82:75:99 +"BLD",7937,1,221,0) +Jul 21, 2005@89:50:71 +"BLD",7937,1,222,0) +Jul 21, 2005@83:53:48 +"BLD",7937,1,223,0) +Jul 20, 2005@91:43:44 +"BLD",7937,1,224,0) +Jul 20, 2005@87:89:46 +"BLD",7937,1,225,0) +Jul 20, 2005@84:60:78 +"BLD",7937,1,226,0) +Jul 20, 2005@84:60:71 +"BLD",7937,1,227,0) +Jul 19, 2005@89:92:54 +"BLD",7937,1,228,0) +Jul 19, 2005@89:55:97 +"BLD",7937,1,229,0) +Jul 18, 2005@92:58:51 +"BLD",7937,1,230,0) +Jul 18, 2005@91:47:87 +"BLD",7937,1,231,0) +Jul 18, 2005@88:67:86 +"BLD",7937,1,232,0) +Jul 18, 2005@88:63:92 +"BLD",7937,1,233,0) +Jul 18, 2005@86:64:88 +"BLD",7937,1,234,0) +Jul 18, 2005@84:56:82 +"BLD",7937,1,235,0) +Jul 18, 2005@84:45:52 +"BLD",7937,1,236,0) +Jul 17, 2005@82:42:51 +"BLD",7937,1,237,0) +Jul 14, 2005@84:00 +"BLD",7937,1,238,0) +Jul 07, 2005@86:97 +"BLD",7937,1,239,0) +Jul 2005@85:62:77B index passed +"BLD",7937,1,240,0) +4 +"BLD",7937,1,241,0) +Calling GETMEDS6 SOAP Web Service Call for 4 +"BLD",7937,1,242,0) +Patient 4 Rx 1 +"BLD",7937,1,243,0) +DeaClassCode: 0 +"BLD",7937,1,244,0) +PharmacyType: 1 +"BLD",7937,1,245,0) +PharmacyDetailType: 1 +"BLD",7937,1,246,0) +FinalDestinationType: 2 +"BLD",7937,1,247,0) +FinalStatusType: 2 +"BLD",7937,1,248,0) +Patient 4 Rx 2 +"BLD",7937,1,249,0) +DeaClassCode: 0 +"BLD",7937,1,250,0) +PharmacyType: 0 +"BLD",7937,1,251,0) +Patient 4 Rx 3 +"BLD",7937,1,252,0) +DeaClassCode: 0 +"BLD",7937,1,253,0) +PharmacyType: 1 +"BLD",7937,1,254,0) +PharmacyDetailType: 1 +"BLD",7937,1,255,0) +FinalDestinationType: 2 +"BLD",7937,1,256,0) +FinalStatusType: 2 +"BLD",7937,1,257,0) +Patient 4 Rx 4 +"BLD",7937,1,258,0) +DeaClassCode: 0 +"BLD",7937,1,259,0) +PharmacyType: 0 +"BLD",7937,1,260,0) +IENs ?+14,1,17, ready to file +"BLD",7937,1,261,0) +Saving ERXDEN of 0 for Patient MOUSE,MICKEY (4) +"BLD",7937,1,262,0) +Fileman Data Array +"BLD",7937,1,263,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXDEN +"BLD",7937,1,264,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"BLD",7937,1,265,0) +Patient 4 Rx 1 +"BLD",7937,1,266,0) +DeaClassCode: 0 +"BLD",7937,1,267,0) +PharmacyType: 1 +"BLD",7937,1,268,0) +PharmacyDetailType: 1 +"BLD",7937,1,269,0) +FinalDestinationType: 2 +"BLD",7937,1,270,0) +Patient 4 Rx 2 +"BLD",7937,1,271,0) +DeaClassCode: 0 +"BLD",7937,1,272,0) +PharmacyType: 0 +"BLD",7937,1,273,0) +Patient 4 Rx 3 +"BLD",7937,1,274,0) +DeaClassCode: 0 +"BLD",7937,1,275,0) +PharmacyType: 1 +"BLD",7937,1,276,0) +PharmacyDetailType: 1 +"BLD",7937,1,277,0) +FinalDestinationType: 2 +"BLD",7937,1,278,0) +Patient 4 Rx 4 +"BLD",7937,1,279,0) +DeaClassCode: 0 +"BLD",7937,1,280,0) +PharmacyType: 0 +"BLD",7937,1,281,0) +IENs ?+14,1,17, ready to file +"BLD",7937,1,282,0) +Saving ERXNUM of 0 for Patient MOUSE,MICKEY (4) +"BLD",7937,1,283,0) +Fileman Data Array +"BLD",7937,1,284,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXNUM +"BLD",7937,1,285,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"BLD",7937,1,286,0) +C0QFDA(1130580001.2011,"1,7,",3)=100 +"BLD",7937,1,287,0) +Processing E-Prescribing Counts +"BLD",7937,1,288,0) +DFN Denominator Numerator +"BLD",7937,1,289,0) +4 0 0 +"BLD",7937,1,290,0) + === === +"BLD",7937,1,291,0) + 0 0 +"BLD",7937,4,0) +^9.64PA^1130580001.101^2 +"BLD",7937,4,1130580001.101,0) +1130580001.101 +"BLD",7937,4,1130580001.101,222) +y^y^f^^n^^y^o^n +"BLD",7937,4,1130580001.101,224) +I $P(^(0),U)="MU EP ERX" +"BLD",7937,4,1130580001.401,0) +1130580001.401 +"BLD",7937,4,1130580001.401,2,0) +^9.641^1130580001.401^1 +"BLD",7937,4,1130580001.401,2,1130580001.401,0) +C0Q PARAMETER (File-top level) +"BLD",7937,4,1130580001.401,2,1130580001.401,1,0) +^9.6411^2.1^2 +"BLD",7937,4,1130580001.401,2,1130580001.401,1,2,0) +EP MU MEASUREMENT SET +"BLD",7937,4,1130580001.401,2,1130580001.401,1,2.1,0) +EP QUALITY MEASUREMENT SET +"BLD",7937,4,1130580001.401,222) +y^n^p^^^^n^^n +"BLD",7937,4,1130580001.401,224) + +"BLD",7937,4,"APDD",1130580001.401,1130580001.401) + +"BLD",7937,4,"APDD",1130580001.401,1130580001.401,2) + +"BLD",7937,4,"APDD",1130580001.401,1130580001.401,2.1) + +"BLD",7937,4,"B",1130580001.101,1130580001.101) + +"BLD",7937,4,"B",1130580001.401,1130580001.401) + +"BLD",7937,6.3) +32 +"BLD",7937,"ABPKG") +n +"BLD",7937,"INIT") +POST^C0Q1P1 +"BLD",7937,"KRN",0) +^9.67PA^779.2^20 +"BLD",7937,"KRN",.4,0) +.4 +"BLD",7937,"KRN",.4,"NM",0) +^9.68A^^0 +"BLD",7937,"KRN",.401,0) +.401 +"BLD",7937,"KRN",.401,"NM",0) +^9.68A^^ +"BLD",7937,"KRN",.402,0) +.402 +"BLD",7937,"KRN",.402,"NM",0) +^9.68A^1^1 +"BLD",7937,"KRN",.402,"NM",1,0) +C0Q EDIT MU MEASURE FILE #1130580001.101^1130580001.101^0 +"BLD",7937,"KRN",.402,"NM","B","C0Q EDIT MU MEASURE FILE #1130580001.101",1) + +"BLD",7937,"KRN",.403,0) +.403 +"BLD",7937,"KRN",.5,0) +.5 +"BLD",7937,"KRN",.84,0) +.84 +"BLD",7937,"KRN",3.6,0) +3.6 +"BLD",7937,"KRN",3.8,0) +3.8 +"BLD",7937,"KRN",9.2,0) +9.2 +"BLD",7937,"KRN",9.8,0) +9.8 +"BLD",7937,"KRN",9.8,"NM",0) +^9.68A^3^3 +"BLD",7937,"KRN",9.8,"NM",1,0) +C0QMUERX^^0^B83723794 +"BLD",7937,"KRN",9.8,"NM",2,0) +C0QUPDT^^0^B78393601 +"BLD",7937,"KRN",9.8,"NM",3,0) +C0QMU12^^0^B266254568 +"BLD",7937,"KRN",9.8,"NM","B","C0QMU12",3) + +"BLD",7937,"KRN",9.8,"NM","B","C0QMUERX",1) + +"BLD",7937,"KRN",9.8,"NM","B","C0QUPDT",2) + +"BLD",7937,"KRN",19,0) +19 +"BLD",7937,"KRN",19,"NM",0) +^9.68A^^0 +"BLD",7937,"KRN",19.1,0) +19.1 +"BLD",7937,"KRN",101,0) +101 +"BLD",7937,"KRN",409.61,0) +409.61 +"BLD",7937,"KRN",771,0) +771 +"BLD",7937,"KRN",779.2,0) +779.2 +"BLD",7937,"KRN",870,0) +870 +"BLD",7937,"KRN",8989.51,0) +8989.51 +"BLD",7937,"KRN",8989.52,0) +8989.52 +"BLD",7937,"KRN",8994,0) +8994 +"BLD",7937,"KRN","B",.4,.4) + +"BLD",7937,"KRN","B",.401,.401) + +"BLD",7937,"KRN","B",.402,.402) + +"BLD",7937,"KRN","B",.403,.403) + +"BLD",7937,"KRN","B",.5,.5) + +"BLD",7937,"KRN","B",.84,.84) + +"BLD",7937,"KRN","B",3.6,3.6) + +"BLD",7937,"KRN","B",3.8,3.8) + +"BLD",7937,"KRN","B",9.2,9.2) + +"BLD",7937,"KRN","B",9.8,9.8) + +"BLD",7937,"KRN","B",19,19) + +"BLD",7937,"KRN","B",19.1,19.1) + +"BLD",7937,"KRN","B",101,101) + +"BLD",7937,"KRN","B",409.61,409.61) + +"BLD",7937,"KRN","B",771,771) + +"BLD",7937,"KRN","B",779.2,779.2) + +"BLD",7937,"KRN","B",870,870) + +"BLD",7937,"KRN","B",8989.51,8989.51) + +"BLD",7937,"KRN","B",8989.52,8989.52) + +"BLD",7937,"KRN","B",8994,8994) + +"BLD",7937,"QDEF") +^^^^NO^^^^NO^^NO +"BLD",7937,"QUES",0) +^9.62^^ +"BLD",7937,"REQB",0) +^9.611^1^1 +"BLD",7937,"REQB",1,0) +QUALITY MEASURES 1.0^2 +"BLD",7937,"REQB","B","QUALITY MEASURES 1.0",1) + +"DATA",1130580001.101,104,0) +MU EP ERX^^^^E +"DATA",1130580001.101,104,1) +More than 40% of all permissible prescriptions written by the EP are transmitted electronically using certified EHR technology. +"DATA",1130580001.101,104,5) +Eligibile Prescriptions transmitted electronically +"DATA",1130580001.101,104,6,0) +^1130580001.111^6^6^3120614^^^ +"DATA",1130580001.101,104,6,1,0) +Final Rule Text: § 170.304(b). +"DATA",1130580001.101,104,6,2,0) +Electronic prescribing. Enable a user to electronically generate +"DATA",1130580001.101,104,6,3,0) +and transmit prescriptions and prescription-related information +"DATA",1130580001.101,104,6,4,0) +in accordance with: +"DATA",1130580001.101,104,6,5,0) +(1) The standard specified in § 170.205(b)(1) or § 170.205(b)(2); and +"DATA",1130580001.101,104,6,6,0) +(2) The standard specified in 170.207(d). +"DATA",1130580001.101,104,7) +^^^^^MU12 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^n^^y^o^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) +I $P(^(0),U)="MU EP ERX" +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^n^p^^^^n^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +1 +"FIA",1130580001.401,1130580001.401,2) + +"FIA",1130580001.401,1130580001.401,2.1) + +"INIT") +POST^C0Q1P1 +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^739 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",.402,1746,-1) +0^1 +"KRN",.402,1746,0) +C0Q EDIT MU MEASURE^3120917.1335^@^1130580001.101^^@^3120614 +"KRN",.402,1746,"DR",1,1130580001.101) +.01;4;.3;.5;.61;.7;.8;1.1;2.1; +"MBREQ") +0 +"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 +"PKG",213,-1) +1^1 +"PKG",213,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",213,20,0) +^9.402P^^ +"PKG",213,22,0) +^9.49I^1^1 +"PKG",213,22,1,0) +1.0^3120731^3120614^8 +"PKG",213,22,1,"PAH",1,0) +1^3120917 +"PKG",213,22,1,"PAH",1,1,0) +^^291^291^3120917 +"PKG",213,22,1,"PAH",1,1,1,0) +ePrescribing MU measure in this package. +"PKG",213,22,1,"PAH",1,1,2,0) + +"PKG",213,22,1,"PAH",1,1,3,0) +Dependencies: +"PKG",213,22,1,"PAH",1,1,4,0) +This build requires C0P*1*4 for the new WebService entry that gets MU +"PKG",213,22,1,"PAH",1,1,5,0) +data from New Crop. +"PKG",213,22,1,"PAH",1,1,6,0) +This build requires the base C0Q 1.0 to be installed. +"PKG",213,22,1,"PAH",1,1,7,0) + +"PKG",213,22,1,"PAH",1,1,8,0) +This build performs the following: +"PKG",213,22,1,"PAH",1,1,9,0) +Routines: +"PKG",213,22,1,"PAH",1,1,10,0) +1. Adds routine C0QMUERX for calculation of ePrescribing stats. +"PKG",213,22,1,"PAH",1,1,11,0) +2. Mods routine C0QMU12 to call C0QMUERX for the ERX measure for +"PKG",213,22,1,"PAH",1,1,12,0) +Outpatients. +"PKG",213,22,1,"PAH",1,1,13,0) +3. Mods routine C0QUPDT to handle the special case of ePrescribing stats. +"PKG",213,22,1,"PAH",1,1,14,0) +Also, some checks and quits so that we won't crash if no patient lists +"PKG",213,22,1,"PAH",1,1,15,0) +are associated with the measure. +"PKG",213,22,1,"PAH",1,1,16,0) + +"PKG",213,22,1,"PAH",1,1,17,0) +Data Dictionary: +"PKG",213,22,1,"PAH",1,1,18,0) +1. File C0Q PARAMETER has two new indexes: +"PKG",213,22,1,"PAH",1,1,19,0) + AMMS REGULAR +"PKG",213,22,1,"PAH",1,1,20,0) + Field: EP MU MEASUREMENT SET (1130580001.401,2) +"PKG",213,22,1,"PAH",1,1,21,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"PKG",213,22,1,"PAH",1,1,22,0) + walk back to a parameter when processing a specific IEN. +"PKG",213,22,1,"PAH",1,1,23,0) + +"PKG",213,22,1,"PAH",1,1,24,0) + You can get the IEN of the measurement set using +"PKG",213,22,1,"PAH",1,1,25,0) + $O(^C0Q(401,"AMMS",MSIEN,"")). +"PKG",213,22,1,"PAH",1,1,26,0) + 1)= S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"PKG",213,22,1,"PAH",1,1,27,0) + 2)= K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"PKG",213,22,1,"PAH",1,1,28,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"PKG",213,22,1,"PAH",1,1,29,0) + +"PKG",213,22,1,"PAH",1,1,30,0) + AQMS REGULAR +"PKG",213,22,1,"PAH",1,1,31,0) + Field: EP QUALITY MEASUREMENT SET (1130580001.401,2.1) +"PKG",213,22,1,"PAH",1,1,32,0) + Description: Indexes the IEN of the Measurement Set. Used so that we can +"PKG",213,22,1,"PAH",1,1,33,0) + walk back to a parameter when processing a specific IEN. +"PKG",213,22,1,"PAH",1,1,34,0) + +"PKG",213,22,1,"PAH",1,1,35,0) + You can get the IEN of the measurement set using +"PKG",213,22,1,"PAH",1,1,36,0) + $O(^C0Q(401,"AQMS",MSIEN,"")). +"PKG",213,22,1,"PAH",1,1,37,0) + 1)= S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"PKG",213,22,1,"PAH",1,1,38,0) + 2)= K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"PKG",213,22,1,"PAH",1,1,39,0) + 3)= USED BY THE CODE. SEE DESCRIPTION. +"PKG",213,22,1,"PAH",1,1,40,0) + +"PKG",213,22,1,"PAH",1,1,41,0) +2. File C0Q QUALITY MEASURE has a new field, MEASURE TYPE (#4): +"PKG",213,22,1,"PAH",1,1,42,0) + +"PKG",213,22,1,"PAH",1,1,43,0) +1130580001.101,4MEASURE TYPE 0;5 SET +"PKG",213,22,1,"PAH",1,1,44,0) + +"PKG",213,22,1,"PAH",1,1,45,0) + 'P' FOR Performance; +"PKG",213,22,1,"PAH",1,1,46,0) + 'Q' FOR Quality; +"PKG",213,22,1,"PAH",1,1,47,0) + 'E' FOR Electronic Prescribing Performance; +"PKG",213,22,1,"PAH",1,1,48,0) + LAST EDITED: MAY 30, 2012 +"PKG",213,22,1,"PAH",1,1,49,0) + HELP-PROMPT: Enter a code P, Q or E +"PKG",213,22,1,"PAH",1,1,50,0) + DESCRIPTION: This field designates the measure type. It can +"PKG",213,22,1,"PAH",1,1,51,0) + be P, Q or M. +"PKG",213,22,1,"PAH",1,1,52,0) + +"PKG",213,22,1,"PAH",1,1,53,0) + P is for Performance. Performance measures are +"PKG",213,22,1,"PAH",1,1,54,0) + MU measures to measure how meaningfully used an +"PKG",213,22,1,"PAH",1,1,55,0) + EMR is. An example of a performance measure is +"PKG",213,22,1,"PAH",1,1,56,0) + whether allergies are documented in the EMR. +"PKG",213,22,1,"PAH",1,1,57,0) + Performance measures reference a Patient List +"PKG",213,22,1,"PAH",1,1,58,0) + created by this package. +"PKG",213,22,1,"PAH",1,1,59,0) + +"PKG",213,22,1,"PAH",1,1,60,0) + Q is for Quality Measures. Quality measures are +"PKG",213,22,1,"PAH",1,1,61,0) + MU measures to assess how well the patients are +"PKG",213,22,1,"PAH",1,1,62,0) + cared for. An example of a quality measure is +"PKG",213,22,1,"PAH",1,1,63,0) + whether Hemoglobin A1c Poor Control. Quality +"PKG",213,22,1,"PAH",1,1,64,0) + measures reference Patient Lists in the +"PKG",213,22,1,"PAH",1,1,65,0) + Reminders package. +"PKG",213,22,1,"PAH",1,1,66,0) + +"PKG",213,22,1,"PAH",1,1,67,0) + E is for Electronic Prescribing. This is a +"PKG",213,22,1,"PAH",1,1,68,0) + Performance measure, except that it is handled +"PKG",213,22,1,"PAH",1,1,69,0) + differently than the rest. Instead of the +"PKG",213,22,1,"PAH",1,1,70,0) + numerators and denominators being lists of +"PKG",213,22,1,"PAH",1,1,71,0) + patients as with all the other measurements, +"PKG",213,22,1,"PAH",1,1,72,0) + they are a number of prescriptions. That's why +"PKG",213,22,1,"PAH",1,1,73,0) + we have a special flag for it. It references a +"PKG",213,22,1,"PAH",1,1,74,0) + Patient List created by this package. The +"PKG",213,22,1,"PAH",1,1,75,0) + numerator and denominators are stored in +"PKG",213,22,1,"PAH",1,1,76,0) + subfiles for each patient. +"PKG",213,22,1,"PAH",1,1,77,0) + +"PKG",213,22,1,"PAH",1,1,78,0) + TECHNICAL DESCR: As of version C0P*1.0*1, the software doesn't +"PKG",213,22,1,"PAH",1,1,79,0) + use this field except to check for an +"PKG",213,22,1,"PAH",1,1,80,0) + electronic prescribing type (code E). +"PKG",213,22,1,"PAH",1,1,81,0) + +"PKG",213,22,1,"PAH",1,1,82,0) + I anticipate using this field for other +"PKG",213,22,1,"PAH",1,1,83,0) + purposes in the future. +"PKG",213,22,1,"PAH",1,1,84,0) + +"PKG",213,22,1,"PAH",1,1,85,0) +INPUT TEMPLATE: +"PKG",213,22,1,"PAH",1,1,86,0) +C0Q EDIT MU MEASURE adds the new field MEASURE TYPE mentioned above. +"PKG",213,22,1,"PAH",1,1,87,0) + +"PKG",213,22,1,"PAH",1,1,88,0) +DATA: +"PKG",213,22,1,"PAH",1,1,89,0) +The entry MU EP ERX for processing ePrescribing stats in C0Q QUALITY +"PKG",213,22,1,"PAH",1,1,90,0) +MEASURE is sent to destination sites. +"PKG",213,22,1,"PAH",1,1,91,0) + +"PKG",213,22,1,"PAH",1,1,92,0) +Implementation Steps: +"PKG",213,22,1,"PAH",1,1,93,0) +1. If you don't have New Crop eRx installed, there won't be any effects. +"PKG",213,22,1,"PAH",1,1,94,0) +The C0Q code will behave like before. +"PKG",213,22,1,"PAH",1,1,95,0) +2. If you don't have C0P*1.0*4 installed, again, the C0Q code will behave +"PKG",213,22,1,"PAH",1,1,96,0) +as before the patch. +"PKG",213,22,1,"PAH",1,1,97,0) +3. Once you install C0P*1.0*4 with this patch (C0Q*1.0*1), the code will +"PKG",213,22,1,"PAH",1,1,98,0) +loop through all Outpatients who have an ERx. The actual patients are +"PKG",213,22,1,"PAH",1,1,99,0) +determined via your outpatient parameters. If your parameters reference a +"PKG",213,22,1,"PAH",1,1,100,0) +clinic location that already has patients with ERxs, you don't need to do +"PKG",213,22,1,"PAH",1,1,101,0) +anything to make the code run. It will run automatically; and it's time +"PKG",213,22,1,"PAH",1,1,102,0) +consuming; before you run it though, make sure to do #4. +"PKG",213,22,1,"PAH",1,1,103,0) +4. In order for you to see a print out of the eRx measures, you +"PKG",213,22,1,"PAH",1,1,104,0) +need to add the Measure MU EP ERX to the Measure Set used in the EP MU +"PKG",213,22,1,"PAH",1,1,105,0) +MEASUREMENT SET field in your Outpatient Parameters. You must do this +"PKG",213,22,1,"PAH",1,1,106,0) +before you run this for the first time. +"PKG",213,22,1,"PAH",1,1,107,0) + +"PKG",213,22,1,"PAH",1,1,108,0) +Example of Set-up: +"PKG",213,22,1,"PAH",1,1,109,0) + +"PKG",213,22,1,"PAH",1,1,110,0) +Select QUALITY MEASUREMENT MENU Option: ? +"PKG",213,22,1,"PAH",1,1,111,0) + +"PKG",213,22,1,"PAH",1,1,112,0) + COPY OVER PATIENT LISTS +"PKG",213,22,1,"PAH",1,1,113,0) + ED-1 COMPUTATION +"PKG",213,22,1,"PAH",1,1,114,0) + ED-2 COMPUTATION +"PKG",213,22,1,"PAH",1,1,115,0) + EP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,116,0) + INP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,117,0) + PQRI MENU ... +"PKG",213,22,1,"PAH",1,1,118,0) + PQRI PRINT XML +"PKG",213,22,1,"PAH",1,1,119,0) + PRINT C0Q MEASURES +"PKG",213,22,1,"PAH",1,1,120,0) + QRDA MENU ... +"PKG",213,22,1,"PAH",1,1,121,0) + SETUP QUALITY REPORTING ... +"PKG",213,22,1,"PAH",1,1,122,0) + +"PKG",213,22,1,"PAH",1,1,123,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"PKG",213,22,1,"PAH",1,1,124,0) +text. +"PKG",213,22,1,"PAH",1,1,125,0) + +"PKG",213,22,1,"PAH",1,1,126,0) +Select QUALITY MEASUREMENT MENU Option: setUP QUALITY REPORTING +"PKG",213,22,1,"PAH",1,1,127,0) + +"PKG",213,22,1,"PAH",1,1,128,0) +Select SETUP QUALITY REPORTING Option: ? +"PKG",213,22,1,"PAH",1,1,129,0) + +"PKG",213,22,1,"PAH",1,1,130,0) + DISPLAY QUALITY MEASURES +"PKG",213,22,1,"PAH",1,1,131,0) + EDIT SUPERUSERS +"PKG",213,22,1,"PAH",1,1,132,0) + EP EDIT PARMS +"PKG",213,22,1,"PAH",1,1,133,0) + INP EDIT PARMS +"PKG",213,22,1,"PAH",1,1,134,0) + MEASURE SET EDIT +"PKG",213,22,1,"PAH",1,1,135,0) + MU MEASURE EDIT +"PKG",213,22,1,"PAH",1,1,136,0) + QUALITY MEASURE EDIT +"PKG",213,22,1,"PAH",1,1,137,0) + +"PKG",213,22,1,"PAH",1,1,138,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"PKG",213,22,1,"PAH",1,1,139,0) +text. +"PKG",213,22,1,"PAH",1,1,140,0) + +"PKG",213,22,1,"PAH",1,1,141,0) +Select SETUP QUALITY REPORTING Option: ep edit PARMS +"PKG",213,22,1,"PAH",1,1,142,0) + +"PKG",213,22,1,"PAH",1,1,143,0) +Select C0Q PARAMETER NAME: OUTPATIENT +"PKG",213,22,1,"PAH",1,1,144,0) +NAME: OUTPATIENT// +"PKG",213,22,1,"PAH",1,1,145,0) +MEASUREMENT PERIOD KEY: MU12// +"PKG",213,22,1,"PAH",1,1,146,0) +PARAMETER TYPE: OUTPATIENT// +"PKG",213,22,1,"PAH",1,1,147,0) +EP MU MEASUREMENT SET: OUTPATIENT MEASURE SET// +"PKG",213,22,1,"PAH",1,1,148,0) +EP QUALITY MEASUREMENT SET: +"PKG",213,22,1,"PAH",1,1,149,0) +Select CLINIC: DR OFFICE// +"PKG",213,22,1,"PAH",1,1,150,0) +PATIENT LIST LABEL: +"PKG",213,22,1,"PAH",1,1,151,0) +Select SUBSCRIBER: +"PKG",213,22,1,"PAH",1,1,152,0) + +"PKG",213,22,1,"PAH",1,1,153,0) +Select C0Q PARAMETER NAME: +"PKG",213,22,1,"PAH",1,1,154,0) + +"PKG",213,22,1,"PAH",1,1,155,0) +Select SETUP QUALITY REPORTING Option: measure set EDIT +"PKG",213,22,1,"PAH",1,1,156,0) + +"PKG",213,22,1,"PAH",1,1,157,0) +Select C0Q MEASUREMENT SET NAME: outpaTIENT MEASURE SET +"PKG",213,22,1,"PAH",1,1,158,0) +NAME: OUTPATIENT MEASURE SET Replace +"PKG",213,22,1,"PAH",1,1,159,0) +BEGIN DATE: JUN 12,2001// +"PKG",213,22,1,"PAH",1,1,160,0) +END DATE: MAY 25,2012// +"PKG",213,22,1,"PAH",1,1,161,0) +LOCKED: +"PKG",213,22,1,"PAH",1,1,162,0) +MU YEAR KEY: MU12// +"PKG",213,22,1,"PAH",1,1,163,0) +QRDA TEMPLATE ROOT: +"PKG",213,22,1,"PAH",1,1,164,0) +Select MEASURE: MU EP ERX// +"PKG",213,22,1,"PAH",1,1,165,0) + MEASURE: MU EP ERX// +"PKG",213,22,1,"PAH",1,1,166,0) + NUMERATOR FILTER LIST: +"PKG",213,22,1,"PAH",1,1,167,0) + DENOMINATOR FILTER LIST: +"PKG",213,22,1,"PAH",1,1,168,0) +Select MEASURE: +"PKG",213,22,1,"PAH",1,1,169,0) + +"PKG",213,22,1,"PAH",1,1,170,0) +Select C0Q MEASUREMENT SET NAME: +"PKG",213,22,1,"PAH",1,1,171,0) + +"PKG",213,22,1,"PAH",1,1,172,0) +Select SETUP QUALITY REPORTING Option: +"PKG",213,22,1,"PAH",1,1,173,0) + +"PKG",213,22,1,"PAH",1,1,174,0) +Select QUALITY MEASUREMENT MENU Option: ? +"PKG",213,22,1,"PAH",1,1,175,0) + +"PKG",213,22,1,"PAH",1,1,176,0) + COPY OVER PATIENT LISTS +"PKG",213,22,1,"PAH",1,1,177,0) + ED-1 COMPUTATION +"PKG",213,22,1,"PAH",1,1,178,0) + ED-2 COMPUTATION +"PKG",213,22,1,"PAH",1,1,179,0) + EP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,180,0) + INP UPDATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,181,0) + PQRI MENU ... +"PKG",213,22,1,"PAH",1,1,182,0) + PQRI PRINT XML +"PKG",213,22,1,"PAH",1,1,183,0) + PRINT C0Q MEASURES +"PKG",213,22,1,"PAH",1,1,184,0) + QRDA MENU ... +"PKG",213,22,1,"PAH",1,1,185,0) + SETUP QUALITY REPORTING ... +"PKG",213,22,1,"PAH",1,1,186,0) + +"PKG",213,22,1,"PAH",1,1,187,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +"PKG",213,22,1,"PAH",1,1,188,0) +text. +"PKG",213,22,1,"PAH",1,1,189,0) + +"PKG",213,22,1,"PAH",1,1,190,0) +Select QUALITY MEASUREMENT MENU Option: ep updATE MU MEASURES +"PKG",213,22,1,"PAH",1,1,191,0) +Sep 16, 2012@86:54:61 +"PKG",213,22,1,"PAH",1,1,192,0) +Jan 03, 2008@80:85:41 +"PKG",213,22,1,"PAH",1,1,193,0) +Jan 01, 2008@81:59:42 +"PKG",213,22,1,"PAH",1,1,194,0) +Nov 25, 2005@86:89:76 +"PKG",213,22,1,"PAH",1,1,195,0) +Nov 25, 2005@85:87:58 +"PKG",213,22,1,"PAH",1,1,196,0) +Nov 24, 2005@79:68:87 +"PKG",213,22,1,"PAH",1,1,197,0) +Aug 01, 2005@91:59:64 +"PKG",213,22,1,"PAH",1,1,198,0) +Aug 2005@84:91:51 +"PKG",213,22,1,"PAH",1,1,199,0) +Aug 2005@84:78:82 +"PKG",213,22,1,"PAH",1,1,200,0) +Jul 28, 2005@88:55:64 +"PKG",213,22,1,"PAH",1,1,201,0) +Jul 28, 2005@88:46:85 +"PKG",213,22,1,"PAH",1,1,202,0) +Jul 28, 2005@87:95:55 +"PKG",213,22,1,"PAH",1,1,203,0) +Jul 27, 2005@87:79:80 +"PKG",213,22,1,"PAH",1,1,204,0) +Jul 27, 2005@83:83:97 +"PKG",213,22,1,"PAH",1,1,205,0) +Jul 26, 2005@88:78:96 +"PKG",213,22,1,"PAH",1,1,206,0) +Jul 26, 2005@88:75:45 +"PKG",213,22,1,"PAH",1,1,207,0) +Jul 26, 2005@88:58:60 +"PKG",213,22,1,"PAH",1,1,208,0) +Jul 26, 2005@88:52:62 +"PKG",213,22,1,"PAH",1,1,209,0) +Jul 26, 2005@88:50:59 +"PKG",213,22,1,"PAH",1,1,210,0) +Jul 26, 2005@88:49:74 +"PKG",213,22,1,"PAH",1,1,211,0) +Jul 26, 2005@84:54:55 +"PKG",213,22,1,"PAH",1,1,212,0) +Jul 24, 2005@91:62:76 +"PKG",213,22,1,"PAH",1,1,213,0) +Jul 23, 2005@88:98:45 +"PKG",213,22,1,"PAH",1,1,214,0) +Jul 23, 2005@85:77:89 +"PKG",213,22,1,"PAH",1,1,215,0) +Jul 23, 2005@83:77:71 +"PKG",213,22,1,"PAH",1,1,216,0) +Jul 23, 2005@82:82:99 +"PKG",213,22,1,"PAH",1,1,217,0) +Jul 23, 2005@82:66:61 +"PKG",213,22,1,"PAH",1,1,218,0) +Jul 22, 2005@83:85:46 +"PKG",213,22,1,"PAH",1,1,219,0) +Jul 22, 2005@82:82:92 +"PKG",213,22,1,"PAH",1,1,220,0) +Jul 22, 2005@82:75:99 +"PKG",213,22,1,"PAH",1,1,221,0) +Jul 21, 2005@89:50:71 +"PKG",213,22,1,"PAH",1,1,222,0) +Jul 21, 2005@83:53:48 +"PKG",213,22,1,"PAH",1,1,223,0) +Jul 20, 2005@91:43:44 +"PKG",213,22,1,"PAH",1,1,224,0) +Jul 20, 2005@87:89:46 +"PKG",213,22,1,"PAH",1,1,225,0) +Jul 20, 2005@84:60:78 +"PKG",213,22,1,"PAH",1,1,226,0) +Jul 20, 2005@84:60:71 +"PKG",213,22,1,"PAH",1,1,227,0) +Jul 19, 2005@89:92:54 +"PKG",213,22,1,"PAH",1,1,228,0) +Jul 19, 2005@89:55:97 +"PKG",213,22,1,"PAH",1,1,229,0) +Jul 18, 2005@92:58:51 +"PKG",213,22,1,"PAH",1,1,230,0) +Jul 18, 2005@91:47:87 +"PKG",213,22,1,"PAH",1,1,231,0) +Jul 18, 2005@88:67:86 +"PKG",213,22,1,"PAH",1,1,232,0) +Jul 18, 2005@88:63:92 +"PKG",213,22,1,"PAH",1,1,233,0) +Jul 18, 2005@86:64:88 +"PKG",213,22,1,"PAH",1,1,234,0) +Jul 18, 2005@84:56:82 +"PKG",213,22,1,"PAH",1,1,235,0) +Jul 18, 2005@84:45:52 +"PKG",213,22,1,"PAH",1,1,236,0) +Jul 17, 2005@82:42:51 +"PKG",213,22,1,"PAH",1,1,237,0) +Jul 14, 2005@84:00 +"PKG",213,22,1,"PAH",1,1,238,0) +Jul 07, 2005@86:97 +"PKG",213,22,1,"PAH",1,1,239,0) +Jul 2005@85:62:77B index passed +"PKG",213,22,1,"PAH",1,1,240,0) +4 +"PKG",213,22,1,"PAH",1,1,241,0) +Calling GETMEDS6 SOAP Web Service Call for 4 +"PKG",213,22,1,"PAH",1,1,242,0) +Patient 4 Rx 1 +"PKG",213,22,1,"PAH",1,1,243,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,244,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,245,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,246,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,247,0) +FinalStatusType: 2 +"PKG",213,22,1,"PAH",1,1,248,0) +Patient 4 Rx 2 +"PKG",213,22,1,"PAH",1,1,249,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,250,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,251,0) +Patient 4 Rx 3 +"PKG",213,22,1,"PAH",1,1,252,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,253,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,254,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,255,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,256,0) +FinalStatusType: 2 +"PKG",213,22,1,"PAH",1,1,257,0) +Patient 4 Rx 4 +"PKG",213,22,1,"PAH",1,1,258,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,259,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,260,0) +IENs ?+14,1,17, ready to file +"PKG",213,22,1,"PAH",1,1,261,0) +Saving ERXDEN of 0 for Patient MOUSE,MICKEY (4) +"PKG",213,22,1,"PAH",1,1,262,0) +Fileman Data Array +"PKG",213,22,1,"PAH",1,1,263,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXDEN +"PKG",213,22,1,"PAH",1,1,264,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"PKG",213,22,1,"PAH",1,1,265,0) +Patient 4 Rx 1 +"PKG",213,22,1,"PAH",1,1,266,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,267,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,268,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,269,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,270,0) +Patient 4 Rx 2 +"PKG",213,22,1,"PAH",1,1,271,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,272,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,273,0) +Patient 4 Rx 3 +"PKG",213,22,1,"PAH",1,1,274,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,275,0) +PharmacyType: 1 +"PKG",213,22,1,"PAH",1,1,276,0) +PharmacyDetailType: 1 +"PKG",213,22,1,"PAH",1,1,277,0) +FinalDestinationType: 2 +"PKG",213,22,1,"PAH",1,1,278,0) +Patient 4 Rx 4 +"PKG",213,22,1,"PAH",1,1,279,0) +DeaClassCode: 0 +"PKG",213,22,1,"PAH",1,1,280,0) +PharmacyType: 0 +"PKG",213,22,1,"PAH",1,1,281,0) +IENs ?+14,1,17, ready to file +"PKG",213,22,1,"PAH",1,1,282,0) +Saving ERXNUM of 0 for Patient MOUSE,MICKEY (4) +"PKG",213,22,1,"PAH",1,1,283,0) +Fileman Data Array +"PKG",213,22,1,"PAH",1,1,284,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXNUM +"PKG",213,22,1,"PAH",1,1,285,0) +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +"PKG",213,22,1,"PAH",1,1,286,0) +C0QFDA(1130580001.2011,"1,7,",3)=100 +"PKG",213,22,1,"PAH",1,1,287,0) +Processing E-Prescribing Counts +"PKG",213,22,1,"PAH",1,1,288,0) +DFN Denominator Numerator +"PKG",213,22,1,"PAH",1,1,289,0) +4 0 0 +"PKG",213,22,1,"PAH",1,1,290,0) + === === +"PKG",213,22,1,"PAH",1,1,291,0) + 0 0 +"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") +4 +"RTN","C0Q1P1") +0^^B541473 +"RTN","C0Q1P1",1,0) +C0Q1P1 ; VEN/SMH - Inits for Patch 1 ; 9/17/12 1:15pm +"RTN","C0Q1P1",2,0) + ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32 +"RTN","C0Q1P1",3,0) + ; +"RTN","C0Q1P1",4,0) +POST ; Post-Install hook for Patch 1; PEP +"RTN","C0Q1P1",5,0) + ; Fire off the new x-refs for entries in the parameter file +"RTN","C0Q1P1",6,0) + N C0QI S C0QI=0 ; Walk through starting with number 1 +"RTN","C0Q1P1",7,0) + F S C0QI=$O(^C0Q(401,C0QI)) Q:'C0QI D +"RTN","C0Q1P1",8,0) + . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2^AMMS",DA=C0QI D EN^DIK +"RTN","C0Q1P1",9,0) + . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2.1^AQMS",DA=C0QI D EN^DIK +"RTN","C0Q1P1",10,0) + QUIT +"RTN","C0QMU12") +0^3^B266254568 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 9/17/12 1:19pm +"RTN","C0QMU12",2,0) + ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",29,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",30,0) + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX +"RTN","C0QMU12",31,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",32,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",34,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX +"RTN","C0QMU12",36,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",37,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",38,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",40,0) + . D CLEAN^DILF +"RTN","C0QMU12",41,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",42,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",43,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",44,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",45,0) + ; +"RTN","C0QMU12",46,0) + Q +"RTN","C0QMU12",47,0) + ; +"RTN","C0QMU12",48,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",49,0) + ; patient lists +"RTN","C0QMU12",50,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",51,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",52,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",53,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",54,0) + S ZYR="MU12-" +"RTN","C0QMU12",55,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",56,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",57,0) + N C0QPARM +"RTN","C0QMU12",58,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",59,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",60,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",61,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",62,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",63,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",64,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",65,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",66,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",67,0) + . I C0QPL D ; +"RTN","C0QMU12",68,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",69,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",70,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",71,0) + . K C0QLIST +"RTN","C0QMU12",72,0) + Q +"RTN","C0QMU12",73,0) + ; +"RTN","C0QMU12",74,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",75,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",76,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",77,0) + ; will be zeroed out +"RTN","C0QMU12",78,0) + K C0QLIST +"RTN","C0QMU12",79,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",80,0) + S C0QLIST(ZYR_"Patient")="" +"RTN","C0QMU12",81,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",82,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",83,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",87,0) + Q +"RTN","C0QMU12",88,0) + ; +"RTN","C0QMU12",89,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",90,0) + N WARD S WARD="" +"RTN","C0QMU12",91,0) + F D Q:WARD="" +"RTN","C0QMU12",92,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",93,0) + . Q:WARD="" +"RTN","C0QMU12",94,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",95,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",96,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",97,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",98,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",99,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",100,0) + . . . D PROBLEM +"RTN","C0QMU12",101,0) + . . . D ALLERGY +"RTN","C0QMU12",102,0) + . . . D MEDS4 +"RTN","C0QMU12",103,0) + . . . D RECON2 +"RTN","C0QMU12",104,0) + . . . D ADVDIR +"RTN","C0QMU12",105,0) + . . . D SMOKING +"RTN","C0QMU12",106,0) + . . . D VITALS +"RTN","C0QMU12",107,0) + . . . D VTE1 +"RTN","C0QMU12",108,0) + . . . D COD +"RTN","C0QMU12",109,0) + . . . D EDTIME +"RTN","C0QMU12",110,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",111,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",112,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",113,0) + Q +"RTN","C0QMU12",114,0) + ; +"RTN","C0QMU12",115,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",116,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",117,0) + S PBCNT="" +"RTN","C0QMU12",118,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",119,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",120,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",121,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",122,0) + K PROBL +"RTN","C0QMU12",123,0) + Q +"RTN","C0QMU12",124,0) + ; +"RTN","C0QMU12",125,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",126,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",127,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",128,0) + S ALCNT="" +"RTN","C0QMU12",129,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",130,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",131,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",132,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",133,0) + K ALRGYL +"RTN","C0QMU12",134,0) + Q +"RTN","C0QMU12",135,0) + ; +"RTN","C0QMU12",136,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",137,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",138,0) + N BEG,END +"RTN","C0QMU12",139,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",140,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",141,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",142,0) + N C0QMEDS +"RTN","C0QMU12",143,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",144,0) + N FOUND +"RTN","C0QMU12",145,0) + N ZI +"RTN","C0QMU12",146,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",147,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",148,0) + E D ; HAS MEDS +"RTN","C0QMU12",149,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",150,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",151,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",152,0) + . N ZM +"RTN","C0QMU12",153,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",154,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",155,0) + . . S FOUND=1 +"RTN","C0QMU12",156,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",157,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",158,0) + Q +"RTN","C0QMU12",159,0) + ; +"RTN","C0QMU12",160,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",161,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",162,0) + ; +"RTN","C0QMU12",163,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",164,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",165,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",166,0) + N GT,G +"RTN","C0QMU12",167,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",168,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",169,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",170,0) + . S HASRECON=1 +"RTN","C0QMU12",171,0) + ;N ZT +"RTN","C0QMU12",172,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",173,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",174,0) + ;. S HASRECON=1 +"RTN","C0QMU12",175,0) + ;E D ; +"RTN","C0QMU12",176,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",177,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",178,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",179,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",180,0) + I HASRECON D ; +"RTN","C0QMU12",181,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",182,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",183,0) + Q +"RTN","C0QMU12",184,0) + ; +"RTN","C0QMU12",185,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",186,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",187,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",188,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",189,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",190,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",191,0) + Q +"RTN","C0QMU12",192,0) + ; +"RTN","C0QMU12",193,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",194,0) + N ZI S ZI="" +"RTN","C0QMU12",195,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",196,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",197,0) + . ;B +"RTN","C0QMU12",198,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",199,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",200,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",201,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",202,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",203,0) + . E D ; +"RTN","C0QMU12",204,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",205,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",206,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",208,0) + Q +"RTN","C0QMU12",209,0) + ; +"RTN","C0QMU12",210,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",211,0) + ; +"RTN","C0QMU12",212,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",213,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",214,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",215,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",216,0) + . E D ; +"RTN","C0QMU12",217,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",218,0) + Q +"RTN","C0QMU12",219,0) + ; +"RTN","C0QMU12",220,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",221,0) +VITALS ; +"RTN","C0QMU12",222,0) + ; +"RTN","C0QMU12",223,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",224,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",225,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",226,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",227,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",228,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",229,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",230,0) + Q +"RTN","C0QMU12",231,0) + ; +"RTN","C0QMU12",232,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",233,0) + ; +"RTN","C0QMU12",234,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",235,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",236,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",237,0) + Q +"RTN","C0QMU12",238,0) + ; +"RTN","C0QMU12",239,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",240,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",241,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",242,0) + Q +"RTN","C0QMU12",243,0) + ; +"RTN","C0QMU12",244,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",245,0) + N FOUND +"RTN","C0QMU12",246,0) + S FOUND=0 +"RTN","C0QMU12",247,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",248,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",249,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",250,0) + I FOUND D ; +"RTN","C0QMU12",251,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",252,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",253,0) + Q +"RTN","C0QMU12",254,0) + ; +"RTN","C0QMU12",255,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",256,0) + N ZICU +"RTN","C0QMU12",257,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",258,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",259,0) + S ZI="" +"RTN","C0QMU12",260,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",261,0) + . S ZJ="" +"RTN","C0QMU12",262,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",263,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",264,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",265,0) + Q +"RTN","C0QMU12",266,0) + ; +"RTN","C0QMU12",267,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",268,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",269,0) + K C0QLIST +"RTN","C0QMU12",270,0) + N ZPAT +"RTN","C0QMU12",271,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",272,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",273,0) + ; +"RTN","C0QMU12",274,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",275,0) + N GN,GO,GF +"RTN","C0QMU12",276,0) + S GN=ZPAT +"RTN","C0QMU12",277,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",278,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",279,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",280,0) + ; +"RTN","C0QMU12",281,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",282,0) + ; +"RTN","C0QMU12",283,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",284,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",285,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",286,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",287,0) + ; +"RTN","C0QMU12",288,0) + S GN=ZPAT +"RTN","C0QMU12",289,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",290,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",291,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",292,0) + ; +"RTN","C0QMU12",293,0) + S GN=ZPAT +"RTN","C0QMU12",294,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",295,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",296,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",297,0) + ; +"RTN","C0QMU12",298,0) + S GN=ZPAT +"RTN","C0QMU12",299,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",300,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",301,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",302,0) + ; +"RTN","C0QMU12",303,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",304,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",305,0) + Q +"RTN","C0QMU12",306,0) + ; +"RTN","C0QMU12",307,0) +ED1 ; +"RTN","C0QMU12",308,0) + S ZYR="MU12-" +"RTN","C0QMU12",309,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",310,0) + Q +"RTN","C0QMU12",311,0) + ; +"RTN","C0QMU12",312,0) +ED2 ; +"RTN","C0QMU12",313,0) + S ZYR="MU12-" +"RTN","C0QMU12",314,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",315,0) + Q +"RTN","C0QMU12",316,0) + ; +"RTN","C0QMU12",317,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",318,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",319,0) + N ZIEN,ZN +"RTN","C0QMU12",320,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",321,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",322,0) + Q ZN +"RTN","C0QMU12",323,0) + ; +"RTN","C0QMU12",324,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",325,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",326,0) + N ZIEN,ZN +"RTN","C0QMU12",327,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",328,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",329,0) + Q ZN +"RTN","C0QMU12",330,0) + ; +"RTN","C0QMU12",331,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",332,0) + N ZL,ZR +"RTN","C0QMU12",333,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",334,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",335,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",336,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",337,0) + Q ZR +"RTN","C0QMU12",338,0) + ; +"RTN","C0QMU12",339,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",340,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",341,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",342,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",343,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",344,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",345,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",346,0) + N ZI +"RTN","C0QMU12",347,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",348,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",349,0) + . W !,$$FMTE^XLFDT(9999999-ZI) ;B ; +"RTN","C0QMU12",350,0) + . I ZI="" Q ; +"RTN","C0QMU12",351,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",352,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",353,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",354,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",355,0) + Q +"RTN","C0QMU12",356,0) + ; +"RTN","C0QMU12",357,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",358,0) + ; +"RTN","C0QMU12",359,0) + S DTE=3111000 +"RTN","C0QMU12",360,0) + S MUYR=ZYR +"RTN","C0QMU12",361,0) + N ZC,ZN +"RTN","C0QMU12",362,0) + S ZN=0 +"RTN","C0QMU12",363,0) + N ZI S ZI=0 +"RTN","C0QMU12",364,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",365,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",366,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",367,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",368,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",369,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",370,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",371,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",372,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",373,0) + Q +"RTN","C0QMU12",374,0) + ; +"RTN","C0QMU12",375,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",376,0) + S ZYR="MU12-" +"RTN","C0QMU12",377,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",378,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",379,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",380,0) + N ZI S ZI="" +"RTN","C0QMU12",381,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",382,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",383,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",384,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",385,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",386,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",387,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",388,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",389,0) + S DFN="" +"RTN","C0QMU12",390,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",391,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",392,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",393,0) + . D PROBLEM +"RTN","C0QMU12",394,0) + . D ALLERGY +"RTN","C0QMU12",395,0) + . ;D MEDS +"RTN","C0QMU12",396,0) + . D ERX +"RTN","C0QMU12",397,0) + . D SMOKING +"RTN","C0QMU12",398,0) + . D VITALS +"RTN","C0QMU12",399,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",400,0) + ; +"RTN","C0QMU12",401,0) + ; Now process eRx MU measures for these patients +"RTN","C0QMU12",402,0) + ; Check for eRx template and code first; if they exist, run the code +"RTN","C0QMU12",403,0) + I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO +"RTN","C0QMU12",404,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",405,0) + . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list +"RTN","C0QMU12",406,0) + ; +"RTN","C0QMU12",407,0) + N C0QCIEN +"RTN","C0QMU12",408,0) + S ZI="" +"RTN","C0QMU12",409,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",410,0) + . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set +"RTN","C0QMU12",411,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",412,0) + . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",413,0) + Q +"RTN","C0QMU12",414,0) + ; +"RTN","C0QMU12",415,0) +DIS ; +"RTN","C0QMU12",416,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",417,0) + F D Q:DTE="" +"RTN","C0QMU12",418,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",419,0) + . Q:'DTE +"RTN","C0QMU12",420,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",421,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",422,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",423,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",424,0) + . D +"RTN","C0QMU12",425,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",426,0) + . . Q:'PTFM +"RTN","C0QMU12",427,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",428,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",429,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",430,0) + . . D PROBLEM +"RTN","C0QMU12",431,0) + . . D ALLERGY +"RTN","C0QMU12",432,0) + . . D MEDS4 +"RTN","C0QMU12",433,0) + . . D RECON2 +"RTN","C0QMU12",434,0) + . . D ADVDIR +"RTN","C0QMU12",435,0) + . . D SMOKING +"RTN","C0QMU12",436,0) + . . D VITALS +"RTN","C0QMU12",437,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",438,0) + . . D VTE1 +"RTN","C0QMU12",439,0) + . . D COD +"RTN","C0QMU12",440,0) + . . D EDTIME +"RTN","C0QMU12",441,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",442,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",443,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",444,0) + Q +"RTN","C0QMU12",445,0) + ; +"RTN","C0QMU12",446,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",447,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",448,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",449,0) + ; +"RTN","C0QMU12",450,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",451,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",452,0) + N ZI,ZN +"RTN","C0QMU12",453,0) + S ZI="" +"RTN","C0QMU12",454,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",455,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",456,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",457,0) + . . K C0QFDA +"RTN","C0QMU12",458,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",459,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",460,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",461,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",462,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",463,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",464,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",465,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",466,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",467,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",468,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",469,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",470,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",471,0) + . N ZJ,ZK +"RTN","C0QMU12",472,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",473,0) + . K C0QFDA +"RTN","C0QMU12",474,0) + . S ZJ="" +"RTN","C0QMU12",475,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",476,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",477,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",478,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",479,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",480,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",481,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",482,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",483,0) + . K C0QFDA +"RTN","C0QMU12",484,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",485,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",486,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",487,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",488,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",489,0) + ;. Q +"RTN","C0QMU12",490,0) + ;. K C0QFDA +"RTN","C0QMU12",491,0) + ;. N ZJ,ZC +"RTN","C0QMU12",492,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",493,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",494,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",495,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",496,0) + ;. D UPDIE +"RTN","C0QMU12",497,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",498,0) + Q +"RTN","C0QMU12",499,0) + ; +"RTN","C0QMU12",500,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",501,0) + ; +"RTN","C0QMU12",502,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",503,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",504,0) + D CLEAN^DILF +"RTN","C0QMU12",505,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",506,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",507,0) + D CLEAN^DILF +"RTN","C0QMU12",508,0) + K ZERR +"RTN","C0QMU12",509,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",510,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",511,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",512,0) + ;. W "ERROR",! +"RTN","C0QMU12",513,0) + ;. ZWR ZERR +"RTN","C0QMU12",514,0) + ;. B +"RTN","C0QMU12",515,0) + K C0QFDA +"RTN","C0QMU12",516,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",517,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",518,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",519,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",520,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",521,0) + ; +"RTN","C0QMU12",522,0) + Q ZR +"RTN","C0QMU12",523,0) + ; +"RTN","C0QMU12",524,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",525,0) + K ZERR +"RTN","C0QMU12",526,0) + D CLEAN^DILF +"RTN","C0QMU12",527,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",528,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",529,0) + K C0QFDA +"RTN","C0QMU12",530,0) + Q +"RTN","C0QMU12",531,0) + ; +"RTN","C0QMU12",532,0) +END ;end of C0QPRML; +"RTN","C0QMUERX") +0^1^B83723794 +"RTN","C0QMUERX",1,0) +C0QMUERX ; VEN - Analyze ERx Data for Patients ; 9/17/12 1:16pm +"RTN","C0QMUERX",2,0) + ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32 +"RTN","C0QMUERX",3,0) + QUIT ; No Entry from the top +"RTN","C0QMUERX",4,0) + ; +"RTN","C0QMUERX",5,0) +UT ; Unit Tests +"RTN","C0QMUERX",6,0) + N C0QDEBUG S C0QDEBUG=1 +"RTN","C0QMUERX",7,0) + W "Testing ^DPT B Index",! +"RTN","C0QMUERX",8,0) + D EN("^DPT(""B"")") +"RTN","C0QMUERX",9,0) + W !,"Testing B Index on a C0Q Patient List",! +"RTN","C0QMUERX",10,0) + D EN("^C0Q(301,4,1,""B"")") +"RTN","C0QMUERX",11,0) + W !,"Testing ^AUPNPAT B Index",! +"RTN","C0QMUERX",12,0) + D EN("^AUPNPAT(""B"")") +"RTN","C0QMUERX",13,0) + W !,"Testing Reminder Patient List B Index",! +"RTN","C0QMUERX",14,0) + D EN("^PXRMXP(810.5,80,30,""B"")") +"RTN","C0QMUERX",15,0) + W !,"Testing upright file ^DPT",! +"RTN","C0QMUERX",16,0) + D EN("^DPT") +"RTN","C0QMUERX",17,0) + W !,"Testing a file with no data",! +"RTN","C0QMUERX",18,0) + D EN("^ALKJSDF") +"RTN","C0QMUERX",19,0) + W !,"Testing a no valid parameters",! +"RTN","C0QMUERX",20,0) + D EN("") +"RTN","C0QMUERX",21,0) +UT2 ; Units Tests 2 +"RTN","C0QMUERX",22,0) + N C0QDEBUG S C0QDEBUG=1 +"RTN","C0QMUERX",23,0) + D EN("^C0Q(301,4,1,""B"")") +"RTN","C0QMUERX",24,0) + QUIT +"RTN","C0QMUERX",25,0) +UT3 ; More Unit Tests +"RTN","C0QMUERX",26,0) + N C0QDEBUG S C0QDEBUG=1 +"RTN","C0QMUERX",27,0) + D EN($$PATLN^C0QMU12("MU12-EP-HasERX")) +"RTN","C0QMUERX",28,0) + W $$COUNT($$PATLN^C0QMU12("MU12-EP-HasERX")) +"RTN","C0QMUERX",29,0) + QUIT +"RTN","C0QMUERX",30,0) +EN(C0QLIST) ; PEP - Analyze ERx Data and store +"RTN","C0QMUERX",31,0) + ; Parameters: +"RTN","C0QMUERX",32,0) + ; C0QLIST - Pass by Name. Global or Local Reference. +"RTN","C0QMUERX",33,0) + ; Can be: ^DPT("B") for all patients or ^C0Q(301,2,1,"B") for a specific patient list +"RTN","C0QMUERX",34,0) + ; Future: Can be a search template on file 2 or 9000001 +"RTN","C0QMUERX",35,0) + ; +"RTN","C0QMUERX",36,0) + ; Check if XML Soap Message is installed +"RTN","C0QMUERX",37,0) + I '$D(^C0PX("B","GETMEDS6")) WRITE "GETMEDS6 Soap Message not installed",! QUIT +"RTN","C0QMUERX",38,0) + ; +"RTN","C0QMUERX",39,0) + ; Check if SOAP^C0PWS2 exists +"RTN","C0QMUERX",40,0) + I '$L($T(SOAP^C0PWS2)) WRITE "C0PWS2 Doesn't exist",! QUIT +"RTN","C0QMUERX",41,0) + ; +"RTN","C0QMUERX",42,0) + ; Check C0QLIST for sanity. Must be a single node. +"RTN","C0QMUERX",43,0) + IF '($DATA(C0QLIST)#2)!(C0QLIST="") WRITE "You didn't pass the list",! QUIT +"RTN","C0QMUERX",44,0) + ; +"RTN","C0QMUERX",45,0) + ; Contents must be a Reference with Data +"RTN","C0QMUERX",46,0) + IF '$DATA(@C0QLIST) WRITE "Destination doesn't contain any data",! QUIT +"RTN","C0QMUERX",47,0) + ; +"RTN","C0QMUERX",48,0) + ; Is this a B index? +"RTN","C0QMUERX",49,0) + NEW C0QB +"RTN","C0QMUERX",50,0) + IF $QSUBSCRIPT(C0QLIST,$QLENGTH(C0QLIST))="B" DO +"RTN","C0QMUERX",51,0) + . SET C0QB=1 +"RTN","C0QMUERX",52,0) + . ; DEBUG +"RTN","C0QMUERX",53,0) + . W:$G(C0QDEBUG) "B index passed",! +"RTN","C0QMUERX",54,0) + . ; DEBUG +"RTN","C0QMUERX",55,0) + ELSE SET C0QB=0 +"RTN","C0QMUERX",56,0) + ; +"RTN","C0QMUERX",57,0) + ; Make sure our TMP is empty +"RTN","C0QMUERX",58,0) + K ^TMP($J) +"RTN","C0QMUERX",59,0) + ; +"RTN","C0QMUERX",60,0) + ; Walk the global +"RTN","C0QMUERX",61,0) + N C0QWALK S C0QWALK=$SELECT(C0QB:"",'C0QB:0) ; Walker, start of $ORDER? +"RTN","C0QMUERX",62,0) + N C0QDONE S C0QDONE=0 ; Finish Flag +"RTN","C0QMUERX",63,0) + FOR SET C0QWALK=$O(@C0QLIST@(C0QWALK)) QUIT:C0QDONE DO +"RTN","C0QMUERX",64,0) + . ; Are we done? +"RTN","C0QMUERX",65,0) + . I C0QB,C0QWALK="" S C0QDONE=1 QUIT ; If in index and we are out, done +"RTN","C0QMUERX",66,0) + . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT ; If not in index and we are not numeric, done +"RTN","C0QMUERX",67,0) + . ; +"RTN","C0QMUERX",68,0) + . N C0QDFN ; DFN of Patient +"RTN","C0QMUERX",69,0) + . ; If Walking B Index and Index not numeric, grab DFN (assuming ^DPT or ^AUPNPAT) +"RTN","C0QMUERX",70,0) + . ; TODO: Should I check that the global is ^DPT or ^AUPNPAT? +"RTN","C0QMUERX",71,0) + . I C0QB,'+C0QWALK S C0QDFN=$O(@C0QLIST@(C0QWALK,"")) +"RTN","C0QMUERX",72,0) + . ; Otherwise, we will assume the contents of the index are the DFNs +"RTN","C0QMUERX",73,0) + . E S C0QDFN=C0QWALK +"RTN","C0QMUERX",74,0) + . I $G(C0QDEBUG) W C0QDFN," " +"RTN","C0QMUERX",75,0) + . ; +"RTN","C0QMUERX",76,0) + . ; Now, check to see if the patient has e-Rx's +"RTN","C0QMUERX",77,0) + . I $$HASERX(C0QDFN) S ^TMP($J,C0QDFN)="" +"RTN","C0QMUERX",78,0) + ; +"RTN","C0QMUERX",79,0) + W:$G(C0QDEBUG) ! ; +"RTN","C0QMUERX",80,0) + ; +"RTN","C0QMUERX",81,0) + ; Loop through collected DFNs, send to WS, and get data back, store in ^TMP($J,DFN) +"RTN","C0QMUERX",82,0) + N C0QDFN S C0QDFN=0 +"RTN","C0QMUERX",83,0) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",84,0) + . N C0POUT +"RTN","C0QMUERX",85,0) + . W:$G(C0QDEBUG) "Calling GETMEDS6 SOAP Web Service Call for "_C0QDFN,! +"RTN","C0QMUERX",86,0) + . D SOAP^C0PWS2("C0POUT","GETMEDS6",DUZ,C0QDFN) +"RTN","C0QMUERX",87,0) + . Q:$G(C0POUT(1,"RowCount"))=0 ; WS says no data +"RTN","C0QMUERX",88,0) + . M ^TMP($J,C0QDFN)=C0POUT +"RTN","C0QMUERX",89,0) + ; +"RTN","C0QMUERX",90,0) + ; From the New Crop Meaningful Use documentation: +"RTN","C0QMUERX",91,0) + ; Appendix G: Meaningful Use Certification FAQ Question 10 +"RTN","C0QMUERX",92,0) + ; +"RTN","C0QMUERX",93,0) + ; DENOMINATOR NUMERATOR +"RTN","C0QMUERX",94,0) + ; DeaClassCode = 0, 9 DeaClassCode = 0, 9 +"RTN","C0QMUERX",95,0) + ; PharmacyType = 1 PharmacyType = 1 +"RTN","C0QMUERX",96,0) + ; PharmacyDetailType = 1, 2 PharmacyDetailType = 1, 2 +"RTN","C0QMUERX",97,0) + ; FinalDestinationType = 1, 2, 3, 4 FinalDestinationType = 3, 4 +"RTN","C0QMUERX",98,0) + ; FinalStatusType = 1, 4, 5 FinalStatusType = 1, 5 +"RTN","C0QMUERX",99,0) + ; +"RTN","C0QMUERX",100,0) + ; DeMorgan's Law +"RTN","C0QMUERX",101,0) + ; NOT(A or B) = NOT(A) and NOT(B) +"RTN","C0QMUERX",102,0) + ; So to collect prescriptions for which DeaClassCode is 0 or 9 +"RTN","C0QMUERX",103,0) + ; We exclude all those who are not 0 AND not 9. +"RTN","C0QMUERX",104,0) + ; See: http://en.wikipedia.org/wiki/De_Morgan%27s_laws#Negation_of_a_disjunction +"RTN","C0QMUERX",105,0) + ; +"RTN","C0QMUERX",106,0) + ; The algorithms below use an Onion Peeling method. Any prescription which +"RTN","C0QMUERX",107,0) + ; fails makes you jump to the next prescription. +"RTN","C0QMUERX",108,0) + ; The "Onion levels" are: +"RTN","C0QMUERX",109,0) + ; DeaClassCode, PharamcyType, PharmacyDetailType, FinalDestinationType, FinalStatusType +"RTN","C0QMUERX",110,0) + ; +"RTN","C0QMUERX",111,0) + ; Now walk through collected DFNs and accumulate MU stats +"RTN","C0QMUERX",112,0) + ; +"RTN","C0QMUERX",113,0) + ; WARNING: Naked References below +"RTN","C0QMUERX",114,0) + ; +"RTN","C0QMUERX",115,0) + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 +"RTN","C0QMUERX",116,0) + N C0QD S C0QD=0 ; Denominator - Overall (cf C0QDP below) +"RTN","C0QMUERX",117,0) + ; +"RTN","C0QMUERX",118,0) + ; Calculate Denominator below +"RTN","C0QMUERX",119,0) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",120,0) + . N C0QDP S C0QDP=0 ; Denominator - Patient Specific +"RTN","C0QMUERX",121,0) + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO +"RTN","C0QMUERX",122,0) + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! +"RTN","C0QMUERX",123,0) + .. ; +"RTN","C0QMUERX",124,0) + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE +"RTN","C0QMUERX",125,0) + .. ; +"RTN","C0QMUERX",126,0) + .. N DEA S DEA=^("DeaClassCode") +"RTN","C0QMUERX",127,0) + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! +"RTN","C0QMUERX",128,0) + .. Q:((DEA'=0)&(DEA'=9)) +"RTN","C0QMUERX",129,0) + .. ; +"RTN","C0QMUERX",130,0) + .. N PT S PT=^("PharmacyType") +"RTN","C0QMUERX",131,0) + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! +"RTN","C0QMUERX",132,0) + .. Q:(PT'=1) +"RTN","C0QMUERX",133,0) + .. ; +"RTN","C0QMUERX",134,0) + .. N PDT S PDT=^("PharmacyDetailType") +"RTN","C0QMUERX",135,0) + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! +"RTN","C0QMUERX",136,0) + .. Q:((PDT'=1)&(PDT'=2)) +"RTN","C0QMUERX",137,0) + .. ; +"RTN","C0QMUERX",138,0) + .. N FDT S FDT=^("FinalDestinationType") +"RTN","C0QMUERX",139,0) + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! +"RTN","C0QMUERX",140,0) + .. Q:((FDT'=1)&(FDT'=2)&(FDT'=3)&(FDT'=4)) +"RTN","C0QMUERX",141,0) + .. ; +"RTN","C0QMUERX",142,0) + .. N FST S FST=^("FinalStatusType") +"RTN","C0QMUERX",143,0) + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! +"RTN","C0QMUERX",144,0) + .. Q:((FST'=1)&(FST'=4)&(FST'=5)) +"RTN","C0QMUERX",145,0) + .. ; +"RTN","C0QMUERX",146,0) + .. W:$G(C0QDEBUG) "Adding to Denominator",! +"RTN","C0QMUERX",147,0) + .. S C0QDP=C0QDP+1 +"RTN","C0QMUERX",148,0) + .. S C0QD=C0QD+1 +"RTN","C0QMUERX",149,0) + . ; +"RTN","C0QMUERX",150,0) + . ; SAVE C0QDP - while it lasts! +"RTN","C0QMUERX",151,0) + . D SAVE(C0QLIST,C0QDFN,"ERXDEN",C0QDP) +"RTN","C0QMUERX",152,0) + ; +"RTN","C0QMUERX",153,0) + ; Calculate Numerator below +"RTN","C0QMUERX",154,0) + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 +"RTN","C0QMUERX",155,0) + N C0QN S C0QN=0 ; Numerator - Overall (cf C0QNP below) +"RTN","C0QMUERX",156,0) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",157,0) + . N C0QNP S C0QNP=0 ; Numerator - Patient Specific +"RTN","C0QMUERX",158,0) + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO +"RTN","C0QMUERX",159,0) + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! +"RTN","C0QMUERX",160,0) + .. ; +"RTN","C0QMUERX",161,0) + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE +"RTN","C0QMUERX",162,0) + .. ; +"RTN","C0QMUERX",163,0) + .. N DEA S DEA=^("DeaClassCode") +"RTN","C0QMUERX",164,0) + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! +"RTN","C0QMUERX",165,0) + .. Q:((DEA'=0)&(DEA'=9)) +"RTN","C0QMUERX",166,0) + .. ; +"RTN","C0QMUERX",167,0) + .. N PT S PT=^("PharmacyType") +"RTN","C0QMUERX",168,0) + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! +"RTN","C0QMUERX",169,0) + .. Q:(PT'=1) +"RTN","C0QMUERX",170,0) + .. ; +"RTN","C0QMUERX",171,0) + .. N PDT S PDT=^("PharmacyDetailType") +"RTN","C0QMUERX",172,0) + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! +"RTN","C0QMUERX",173,0) + .. Q:((PDT'=1)&(PDT'=2)) +"RTN","C0QMUERX",174,0) + .. ; +"RTN","C0QMUERX",175,0) + .. N FDT S FDT=^("FinalDestinationType") +"RTN","C0QMUERX",176,0) + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! +"RTN","C0QMUERX",177,0) + .. Q:((FDT'=3)&(FDT'=4)) +"RTN","C0QMUERX",178,0) + .. ; +"RTN","C0QMUERX",179,0) + .. N FST S FST=^("FinalStatusType") +"RTN","C0QMUERX",180,0) + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! +"RTN","C0QMUERX",181,0) + .. Q:((FST'=1)&(FST'=5)) +"RTN","C0QMUERX",182,0) + .. ; +"RTN","C0QMUERX",183,0) + .. W:$G(C0QDEBUG) "Adding to Numerator",! +"RTN","C0QMUERX",184,0) + .. S C0QNP=C0QNP+1 +"RTN","C0QMUERX",185,0) + .. S C0QN=C0QN+1 +"RTN","C0QMUERX",186,0) + . ; +"RTN","C0QMUERX",187,0) + . ; Save C0QNP while it lasts +"RTN","C0QMUERX",188,0) + . D SAVE(C0QLIST,C0QDFN,"ERXNUM",C0QNP) +"RTN","C0QMUERX",189,0) + ; +"RTN","C0QMUERX",190,0) + S ^TMP($J)=C0QN_U_C0QD +"RTN","C0QMUERX",191,0) + ; +"RTN","C0QMUERX",192,0) + ; TODO: Over here, do something with the numerator and denominator.. +"RTN","C0QMUERX",193,0) + ; Probably store them somewhere. +"RTN","C0QMUERX",194,0) + ; +"RTN","C0QMUERX",195,0) + I '$G(C0QDEBUG) K ^TMP($J) ; Empty out in production not testing +"RTN","C0QMUERX",196,0) + QUIT +"RTN","C0QMUERX",197,0) + ; +"RTN","C0QMUERX",198,0) +HASERX(DFN) ; $$ - Private; Has E-Prescriptions? +"RTN","C0QMUERX",199,0) + ; Parameters +"RTN","C0QMUERX",200,0) + ; - DFN by Value +"RTN","C0QMUERX",201,0) + ; Output +"RTN","C0QMUERX",202,0) + ; 0 or 1 (false or true) +"RTN","C0QMUERX",203,0) + N ZI S ZI="" +"RTN","C0QMUERX",204,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMUERX",205,0) + N DONE,HASERX +"RTN","C0QMUERX",206,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" Q:$G(DONE) D +"RTN","C0QMUERX",207,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" S (DONE,HASERX)=1 +"RTN","C0QMUERX",208,0) + Q +$G(HASERX) +"RTN","C0QMUERX",209,0) + ; +"RTN","C0QMUERX",210,0) +SAVE(C0QLIST,C0QDFN,TYPE,COUNT) ; Proc - Private; Save Count in C0Q(301, file +"RTN","C0QMUERX",211,0) + ; Layman's Explanation: Save the denominator or numerator for ePrescribing for +"RTN","C0QMUERX",212,0) + ; each of the patients in the Subfile for that patient in ^C0Q(301, +"RTN","C0QMUERX",213,0) + ; Still hard to understand though! Here's a demo: +"RTN","C0QMUERX",214,0) + ; ^C0Q(301,IEN has a subfile under node 1 which stores the patients. E.g. +"RTN","C0QMUERX",215,0) + ; ^C0Q(301,48,1,15,0)=91$ +"RTN","C0QMUERX",216,0) + ; ^C0Q(301,48,1,16,0)=93$ +"RTN","C0QMUERX",217,0) + ; ^C0Q(301,48,1,17,0)=173$ +"RTN","C0QMUERX",218,0) + ; +"RTN","C0QMUERX",219,0) + ; I store the numerator and denominator under each of the patients. The numerator +"RTN","C0QMUERX",220,0) + ; stands for the number of prescriptions that were electronically transmitted; +"RTN","C0QMUERX",221,0) + ; the denominator stands for the numbers of prescriptions that COULD HAVE BEEN +"RTN","C0QMUERX",222,0) + ; electronically transmitted. End result for Patient 173 is as follows: +"RTN","C0QMUERX",223,0) + ; ^C0Q(301,48,1,17,0)=173 +"RTN","C0QMUERX",224,0) + ; ^C0Q(301,48,1,17,1,0)="^1130580001.3111^2^2" +"RTN","C0QMUERX",225,0) + ; ^C0Q(301,48,1,17,1,1,0)="ERXDEN^0" +"RTN","C0QMUERX",226,0) + ; ^C0Q(301,48,1,17,1,2,0)="ERXNUM^0" +"RTN","C0QMUERX",227,0) + ; ^C0Q(301,48,1,17,1,"B","ERXDEN",1)="" +"RTN","C0QMUERX",228,0) + ; ^C0Q(301,48,1,17,1,"B","ERXNUM",2)="" +"RTN","C0QMUERX",229,0) + ; +"RTN","C0QMUERX",230,0) + ; Subroutine COUNT (below) goes and counts the data +"RTN","C0QMUERX",231,0) + ; +"RTN","C0QMUERX",232,0) + ; Params: +"RTN","C0QMUERX",233,0) + ; C0QLIST (by val): "B" x-ref where patients are located. Only supports ^C0Q(301, file. +"RTN","C0QMUERX",234,0) + ; C0QDFN (by val): Patient DFN for whom to file data. +"RTN","C0QMUERX",235,0) + ; TYPE (by val): Either ERXDEN or ERXNUM for eRx Denominator or eRx Numerator +"RTN","C0QMUERX",236,0) + ; COUNT (by val): The number to save +"RTN","C0QMUERX",237,0) + ; +"RTN","C0QMUERX",238,0) + ; First, QUIT if this isn't a Quality Measures List? +"RTN","C0QMUERX",239,0) + ; $QS(x,0) gets you the global name +"RTN","C0QMUERX",240,0) + ; +"RTN","C0QMUERX",241,0) + ; This should give you an idea of what I am dealing with! +"RTN","C0QMUERX",242,0) + ; +"RTN","C0QMUERX",243,0) + ; ^C0Q(301,48,1,15,0)=91 +"RTN","C0QMUERX",244,0) + ; ^C0Q(301,48,1,16,0)=93 +"RTN","C0QMUERX",245,0) + ; ^C0Q(301,48,1,17,0)=173 +"RTN","C0QMUERX",246,0) + ; ^C0Q(301,48,1,18,0)=174 +"RTN","C0QMUERX",247,0) + ; ^C0Q(301,48,1,"B",5,1)="" +"RTN","C0QMUERX",248,0) + ; ^C0Q(301,48,1,"B",10,2)="" +"RTN","C0QMUERX",249,0) + ; ^C0Q(301,48,1,"B",11,3)="" +"RTN","C0QMUERX",250,0) + ; ^C0Q(301,48,1,"B",14,4)="" +"RTN","C0QMUERX",251,0) + ; +"RTN","C0QMUERX",252,0) + I $QS(C0QLIST,0)'="^C0Q" W:$G(C0QDEBUG) "Not Saving Patient "_C0QDFN,! QUIT +"RTN","C0QMUERX",253,0) + ; +"RTN","C0QMUERX",254,0) + ; Otherwise, prepare to save +"RTN","C0QMUERX",255,0) + N C0QFDA ; Fileman Data Array +"RTN","C0QMUERX",256,0) + N C0QIENS ; IENS +"RTN","C0QMUERX",257,0) + N L1,L2 ; Top Level, Level 2 +"RTN","C0QMUERX",258,0) + S L1=$QS(C0QLIST,2) ; Top Level IEN +"RTN","C0QMUERX",259,0) + S L2=$O(^C0Q(301,L1,1,"B",C0QDFN,"")) ; Patient IEN +"RTN","C0QMUERX",260,0) + S C0QIENS="?+1"_C0QDFN_","_L2_","_L1_"," ; TODO: Here C0QDFN is a dummy for uniqueness in FDA, not meaningful! - DO BETTER! +"RTN","C0QMUERX",261,0) + W:$G(C0QDEBUG) "IENs "_C0QIENS_" ready to file",! +"RTN","C0QMUERX",262,0) + W:$G(C0QDEBUG) "Saving "_TYPE_" of "_COUNT_" for Patient "_$P(^DPT(C0QDFN,0),U)_" ("_C0QDFN_")",! +"RTN","C0QMUERX",263,0) + S C0QFDA(1130580001.3111,C0QIENS,.01)=TYPE +"RTN","C0QMUERX",264,0) + S C0QFDA(1130580001.3111,C0QIENS,.02)=COUNT +"RTN","C0QMUERX",265,0) + ; +"RTN","C0QMUERX",266,0) + W:$G(C0QDEBUG) "Fileman Data Array",! +"RTN","C0QMUERX",267,0) + I $G(C0QDEBUG) N % S %=$NA(C0QFDA) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QMUERX",268,0) + ; +"RTN","C0QMUERX",269,0) + N C0QERR ; Errors +"RTN","C0QMUERX",270,0) + D UPDATE^DIE("","C0QFDA","","C0QERR") +"RTN","C0QMUERX",271,0) + ; +"RTN","C0QMUERX",272,0) + I $D(C0QERR) DO +"RTN","C0QMUERX",273,0) + . W "Error in filing data",! +"RTN","C0QMUERX",274,0) + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QMUERX",275,0) + ; +"RTN","C0QMUERX",276,0) + QUIT +"RTN","C0QMUERX",277,0) + ; +"RTN","C0QMUERX",278,0) +COUNT(C0QLIST) ; $$ - Private; Count Numerator and Denominator for a Patient List +"RTN","C0QMUERX",279,0) + ; Input: C0QLIST - Pass by Value - Patient Listing B index (only C0Q(301,IEN,1,"B", listing is supported) +"RTN","C0QMUERX",280,0) + ; Output: (as string) NUMERATOR/DENOMINATOR +"RTN","C0QMUERX",281,0) + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. +"RTN","C0QMUERX",282,0) + ; +"RTN","C0QMUERX",283,0) + I $QS(C0QLIST,0)'="^C0Q" W:$G(C0QDEBUG) "Counting for files other than C0Q(301, not supported ",! QUIT "0/0" +"RTN","C0QMUERX",284,0) + ; MEASURE ----------- +"RTN","C0QMUERX",285,0) + ; IEN ----------- | +"RTN","C0QMUERX",286,0) + ; L1 ------| | | +"RTN","C0QMUERX",287,0) + ; V V V +"RTN","C0QMUERX",288,0) + ; ^C0Q(301,48,1,2,1,1,0)="ERXDEN^0" +"RTN","C0QMUERX",289,0) + ; ^C0Q(301,48,1,2,1,2,0)="ERXNUM^0" +"RTN","C0QMUERX",290,0) + ; ^C0Q(301,48,1,2,1,"B","ERXDEN",1)="" +"RTN","C0QMUERX",291,0) + ; ^C0Q(301,48,1,2,1,"B","ERXNUM",2)="" +"RTN","C0QMUERX",292,0) + ; ^C0Q(301,48,1,2,1,"B" +"RTN","C0QMUERX",293,0) + W:$G(C0QDEBUG) "DFN",?20,"Denominator",?40,"Numerator",! +"RTN","C0QMUERX",294,0) + ; +"RTN","C0QMUERX",295,0) + N L1 S L1=$QS(C0QLIST,2) ; Top Level IEN +"RTN","C0QMUERX",296,0) + ; +"RTN","C0QMUERX",297,0) + N DENTOT,NUMTOT S (DENTOT,NUMTOT)=0 ; Denominator Total, Numerator Total +"RTN","C0QMUERX",298,0) + ; +"RTN","C0QMUERX",299,0) + N C0QDFN S C0QDFN=0 ; Walker through B index +"RTN","C0QMUERX",300,0) + F S C0QDFN=$O(^C0Q(301,L1,1,"B",C0QDFN)) Q:C0QDFN="" DO +"RTN","C0QMUERX",301,0) + . N IEN S IEN=$O(^(C0QDFN,"")) ; naked naked - get IEN from B index +"RTN","C0QMUERX",302,0) + . W:$G(C0QDEBUG) C0QDFN +"RTN","C0QMUERX",303,0) + . ; +"RTN","C0QMUERX",304,0) + . ; Denom Processing +"RTN","C0QMUERX",305,0) + . N DENIEN S DENIEN=$O(^C0Q(301,L1,1,IEN,1,"B","ERXDEN","")) ; Denom IEN +"RTN","C0QMUERX",306,0) + . N DEN S DEN=$S(DENIEN:$P(^C0Q(301,L1,1,IEN,1,DENIEN,0),U,2),1:"N/A") ; Denominator +"RTN","C0QMUERX",307,0) + . W:$G(C0QDEBUG) ?20,DEN +"RTN","C0QMUERX",308,0) + . S DENTOT=DENTOT+DEN ; Total it up (N/A becomes zero) +"RTN","C0QMUERX",309,0) + . ; +"RTN","C0QMUERX",310,0) + . N NUMIEN S NUMIEN=$O(^C0Q(301,L1,1,IEN,1,"B","ERXNUM","")) ; Numerator IEN +"RTN","C0QMUERX",311,0) + . N NUM S NUM=$S(NUMIEN:$P(^C0Q(301,L1,1,IEN,1,NUMIEN,0),U,2),1:"N/A") ; Numerator +"RTN","C0QMUERX",312,0) + . W:$G(C0QDEBUG) ?40,NUM +"RTN","C0QMUERX",313,0) + . S NUMTOT=NUMTOT+NUM ; Total it up (N/A becomes zero) +"RTN","C0QMUERX",314,0) + . ; +"RTN","C0QMUERX",315,0) + . w:$G(C0QDEBUG) ! +"RTN","C0QMUERX",316,0) + ; +"RTN","C0QMUERX",317,0) + ; Write the totals +"RTN","C0QMUERX",318,0) + D:$G(C0QDEBUG) +"RTN","C0QMUERX",319,0) + . W ?20,"===" +"RTN","C0QMUERX",320,0) + . W ?40,"===" +"RTN","C0QMUERX",321,0) + . W ! +"RTN","C0QMUERX",322,0) + . ; +"RTN","C0QMUERX",323,0) + . W ?20,DENTOT +"RTN","C0QMUERX",324,0) + . W ?40,NUMTOT +"RTN","C0QMUERX",325,0) + . W ! +"RTN","C0QMUERX",326,0) + ; +"RTN","C0QMUERX",327,0) + ; Quit with Numeartor/Denominator +"RTN","C0QMUERX",328,0) + QUIT NUMTOT_"/"_DENTOT +"RTN","C0QUPDT") +0^2^B78393601 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 9/17/12 1:12pm +"RTN","C0QUPDT",2,0) + ;;1.0;C0Q;**1**;May 21, 2012;Build 32 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +"RTN","C0QUPDT",30,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",31,0) + ; +"RTN","C0QUPDT",32,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",33,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",34,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",35,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",36,0) + ; +"RTN","C0QUPDT",37,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",38,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",39,0) + ; +"RTN","C0QUPDT",40,0) + N ZI S ZI="" +"RTN","C0QUPDT",41,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",42,0) + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? +"RTN","C0QUPDT",43,0) + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" +"RTN","C0QUPDT",44,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",45,0) + D DELIST("C0QM") +"RTN","C0QUPDT",46,0) + N ZII S ZII="" +"RTN","C0QUPDT",47,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",48,0) + . ; +"RTN","C0QUPDT",49,0) + . ; Special processing for eRx measure. +"RTN","C0QUPDT",50,0) + . I $$GET1^DIQ(1130580001.101,+C0QM(ZII)_",",4,"I")="E" D ERXCOUNT(MSET,ZII) Q +"RTN","C0QUPDT",51,0) + . ; +"RTN","C0QUPDT",52,0) + . ; Otherwise, we go on +"RTN","C0QUPDT",53,0) + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD +"RTN","C0QUPDT",54,0) + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST +"RTN","C0QUPDT",55,0) + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST +"RTN","C0QUPDT",56,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",57,0) + . ; +"RTN","C0QUPDT",58,0) + . ; Numerator +"RTN","C0QUPDT",59,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",60,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",61,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",62,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",63,0) + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh +"RTN","C0QUPDT",64,0) + . ; +"RTN","C0QUPDT",65,0) + . ; Denominator +"RTN","C0QUPDT",66,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",67,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",68,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",69,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",70,0) + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh +"RTN","C0QUPDT",71,0) + . ; +"RTN","C0QUPDT",72,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",73,0) + . ; +"RTN","C0QUPDT",74,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",75,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",76,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",77,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",78,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",79,0) + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST +"RTN","C0QUPDT",80,0) + . . N ZNEW +"RTN","C0QUPDT",81,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",82,0) + . . K C0QFLTRD +"RTN","C0QUPDT",83,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",84,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",85,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",86,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",87,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",88,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",89,0) + . N C0QCNT +"RTN","C0QUPDT",90,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",91,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",92,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",93,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",94,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",95,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",96,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",97,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",98,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",99,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",100,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",101,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",102,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",103,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",104,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",105,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",106,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",107,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",108,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",109,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",110,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",111,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",112,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",113,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",114,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",115,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",116,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",117,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",118,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",119,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",120,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",121,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",122,0) + . ; +"RTN","C0QUPDT",123,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",124,0) + . ; +"RTN","C0QUPDT",125,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",126,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",127,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",128,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",129,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",130,0) + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST +"RTN","C0QUPDT",131,0) + . . N ZNEW +"RTN","C0QUPDT",132,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",133,0) + . . K C0QFLTRD +"RTN","C0QUPDT",134,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",135,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",136,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",137,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",138,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",139,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",140,0) + . N C0QDCNT +"RTN","C0QUPDT",141,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",142,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",143,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",144,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",145,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",146,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",147,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",148,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",149,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",150,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",151,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",152,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",153,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",154,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",155,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",156,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",157,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",158,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",159,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",160,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",161,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",162,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",163,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",164,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",165,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",166,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",167,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",168,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",169,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",170,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",171,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",172,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",173,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",174,0) + . ; +"RTN","C0QUPDT",175,0) + . ; File Percentage +"RTN","C0QUPDT",176,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",177,0) + . D ; +"RTN","C0QUPDT",178,0) + . . I C0QDCNT>0 D ; +"RTN","C0QUPDT",179,0) + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",180,0) + . . E S C0QPCT=0 +"RTN","C0QUPDT",181,0) + . . K C0QFDA +"RTN","C0QUPDT",182,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",183,0) + . . D UPDIE +"RTN","C0QUPDT",184,0) + Q +"RTN","C0QUPDT",185,0) + ; +"RTN","C0QUPDT",186,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",187,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",188,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",189,0) + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD +"RTN","C0QUPDT",190,0) + S ZI="" +"RTN","C0QUPDT",191,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",192,0) + K @RTN +"RTN","C0QUPDT",193,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",194,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",195,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",196,0) + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST +"RTN","C0QUPDT",197,0) + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST +"RTN","C0QUPDT",198,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",199,0) + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD +"RTN","C0QUPDT",200,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",201,0) + Q +"RTN","C0QUPDT",202,0) + ; +"RTN","C0QUPDT",203,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",204,0) + K ZERR +"RTN","C0QUPDT",205,0) + D CLEAN^DILF +"RTN","C0QUPDT",206,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QUPDT",207,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",208,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",209,0) + ;. W "ERROR",! +"RTN","C0QUPDT",210,0) + ;. ZWR ZERR +"RTN","C0QUPDT",211,0) + ;. B +"RTN","C0QUPDT",212,0) + K C0QFDA +"RTN","C0QUPDT",213,0) + Q +"RTN","C0QUPDT",214,0) + ; +"RTN","C0QUPDT",215,0) +ERXCOUNT(MSETIEN,MIEN) ; Private Proc; Get eRx and file as Numerator, Denominator, and % +"RTN","C0QUPDT",216,0) + ; Inputs: +"RTN","C0QUPDT",217,0) + ; MSETIEN - Measurement Set IEN - By Value +"RTN","C0QUPDT",218,0) + ; MIEN - Measurement IEN inside the Measurement Set - By Value +"RTN","C0QUPDT",219,0) + ; +"RTN","C0QUPDT",220,0) + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. +"RTN","C0QUPDT",221,0) + ; +"RTN","C0QUPDT",222,0) + ; No check is done to see if the caller is sending bad data. Measurement must be +"RTN","C0QUPDT",223,0) + ; in a subfile under Measurement Set. +"RTN","C0QUPDT",224,0) + ; +"RTN","C0QUPDT",225,0) + W:$G(C0QDEBUG) "Processing E-Prescribing Counts",! +"RTN","C0QUPDT",226,0) + ; Example of Data we go through in the C0Q Parameter File, so the code below +"RTN","C0QUPDT",227,0) + ; will make sense. +"RTN","C0QUPDT",228,0) + ; ^C0Q(401,"AMMS",2,1)="" +"RTN","C0QUPDT",229,0) + ; ^C0Q(401,"AMMS",2,2)="" +"RTN","C0QUPDT",230,0) + ; ^C0Q(401,"AQMS",6,2)="" +"RTN","C0QUPDT",231,0) + ; ^C0Q(401,"B","INPATIENT",2)="" +"RTN","C0QUPDT",232,0) + ; ^C0Q(401,"B","OUTPATIENT",1)="" +"RTN","C0QUPDT",233,0) + ; ^C0Q(401,"MU","MU12",1)="" +"RTN","C0QUPDT",234,0) + ; ^C0Q(401,"MU","MU12",2)="" +"RTN","C0QUPDT",235,0) + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" +"RTN","C0QUPDT",236,0) + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" +"RTN","C0QUPDT",237,0) + ; +"RTN","C0QUPDT",238,0) + ; Get Parameter year from the Parameters file. +"RTN","C0QUPDT",239,0) + ; 1. Get parameter associated with this measurement set from AMMS x-ref (new in C0Q*1*1). +"RTN","C0QUPDT",240,0) + N C0QPARAM +"RTN","C0QUPDT",241,0) + N % S %="" F S %=$O(^C0Q(401,"AMMS",MSETIEN,%)) Q:%="" S C0QPARAM(%)="" +"RTN","C0QUPDT",242,0) + ; +"RTN","C0QUPDT",243,0) + ; 2. Find the year for each of those--store as value of node; IEN still subscript. +"RTN","C0QUPDT",244,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" S C0QPARAM(%)=$$GET1^DIQ(1130580001.401,%_",",.02) +"RTN","C0QUPDT",245,0) + ; +"RTN","C0QUPDT",246,0) + ; 3. Now make sure that this parameter that point to an Outpatient Parameters +"RTN","C0QUPDT",247,0) + ; WARNING: CONFUSING CODE WRITTEN BY ME AHEAD +"RTN","C0QUPDT",248,0) + ; The % loop will stop with a valid value if found; % is used in the lines immediately below +"RTN","C0QUPDT",249,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" Q:$D(^C0Q(401,"MUTYP",C0QPARAM(%),"EP",%)) +"RTN","C0QUPDT",250,0) + ; +"RTN","C0QUPDT",251,0) + ; 4. If % has a valid IEN (there can be multiple, we take the first), then off we go. +"RTN","C0QUPDT",252,0) + ; Otherwise, if it is back to "", we quit. +"RTN","C0QUPDT",253,0) + N MUYEAR +"RTN","C0QUPDT",254,0) + IF '% W "No suitable parameter found. Cannot determine Measurement Year.",! QUIT +"RTN","C0QUPDT",255,0) + ELSE S MUYEAR=C0QPARAM(%) +"RTN","C0QUPDT",256,0) + ; +"RTN","C0QUPDT",257,0) + ; Now, based on the MU year, construct the patient list name that has the eRx data. +"RTN","C0QUPDT",258,0) + N LISTNAME S LISTNAME=MUYEAR_"-"_"EP"_"-"_"HasERX" +"RTN","C0QUPDT",259,0) + ; +"RTN","C0QUPDT",260,0) + ; Call the API in C0QMUERX to get the counts already calculated +"RTN","C0QUPDT",261,0) + ; Data is returned NUM/DEN +"RTN","C0QUPDT",262,0) + N COUNTS S COUNTS=$$COUNT^C0QMUERX($$PATLN^C0QMU12(LISTNAME)) +"RTN","C0QUPDT",263,0) + ; +"RTN","C0QUPDT",264,0) + ; File the count +"RTN","C0QUPDT",265,0) + N NUM S NUM=$P(COUNTS,"/") ; Numerator +"RTN","C0QUPDT",266,0) + N DEN S DEN=$P(COUNTS,"/",2) ; Denominator +"RTN","C0QUPDT",267,0) + ; +"RTN","C0QUPDT",268,0) + ; Prepare FDA +"RTN","C0QUPDT",269,0) + N C0QFDA,C0QERR +"RTN","C0QUPDT",270,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",1.1)=NUM ; Numerator +"RTN","C0QUPDT",271,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",2.1)=DEN ; Denominator +"RTN","C0QUPDT",272,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",3)=$S(DEN=0:0,1:$J(100*NUM/DEN,0,0)) ; Percentage; avoid dividing by zero! +"RTN","C0QUPDT",273,0) + ; +"RTN","C0QUPDT",274,0) + ; File FDA using Filer not updater (editing existing entry only) +"RTN","C0QUPDT",275,0) + D FILE^DIE("ET",$NAME(C0QFDA),$NAME(C0QERR)) ; Flags: External, Transaction +"RTN","C0QUPDT",276,0) + ; +"RTN","C0QUPDT",277,0) + ; If error, print it out +"RTN","C0QUPDT",278,0) + I $D(C0QERR) DO +"RTN","C0QUPDT",279,0) + . W "Error filing data",! +"RTN","C0QUPDT",280,0) + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QUPDT",281,0) + ; +"RTN","C0QUPDT",282,0) + QUIT +"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") +@ +"VER") +8.0^22.0 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^19 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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) + +"^DD",1130580001.101,1130580001.101,3,3) +Answer must be 3-120 characters in length +"^DD",1130580001.101,1130580001.101,3,21,0) +^^2^2^3120731^^ +"^DD",1130580001.101,1130580001.101,3,21,1,0) +Measure template root for the QRDA Document. A series of . delimited +"^DD",1130580001.101,1130580001.101,3,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.101,1130580001.101,3,"DT") +3120731 +"^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.101,4,0) +MEASURE TYPE^S^P:Performance;Q:Quality;E:Electronic Prescribing Performance;^0;5^Q +"^DD",1130580001.101,1130580001.101,4,3) +Enter a code P, Q or E +"^DD",1130580001.101,1130580001.101,4,21,0) +^^19^19^3120530^ +"^DD",1130580001.101,1130580001.101,4,21,1,0) +This field designates the measure type. It can be P, Q or M. +"^DD",1130580001.101,1130580001.101,4,21,2,0) + +"^DD",1130580001.101,1130580001.101,4,21,3,0) +P is for Performance. Performance measures are MU measures to measure +"^DD",1130580001.101,1130580001.101,4,21,4,0) +how meaningfully used an EMR is. An example of a performance measure +"^DD",1130580001.101,1130580001.101,4,21,5,0) +is whether allergies are documented in the EMR. Performance measures +"^DD",1130580001.101,1130580001.101,4,21,6,0) +reference a Patient List created by this package. +"^DD",1130580001.101,1130580001.101,4,21,7,0) + +"^DD",1130580001.101,1130580001.101,4,21,8,0) +Q is for Quality Measures. Quality measures are MU measures to assess how +"^DD",1130580001.101,1130580001.101,4,21,9,0) +well the patients are cared for. An example of a quality measure is +"^DD",1130580001.101,1130580001.101,4,21,10,0) +whether Hemoglobin A1c Poor Control. Quality measures reference Patient +"^DD",1130580001.101,1130580001.101,4,21,11,0) +Lists in the Reminders package. +"^DD",1130580001.101,1130580001.101,4,21,12,0) + +"^DD",1130580001.101,1130580001.101,4,21,13,0) +E is for Electronic Prescribing. This is a Performance measure, except +"^DD",1130580001.101,1130580001.101,4,21,14,0) +that it is handled differently than the rest. Instead of the numerators +"^DD",1130580001.101,1130580001.101,4,21,15,0) +and denominators being lists of patients as with all the other +"^DD",1130580001.101,1130580001.101,4,21,16,0) +measurements, they are a number of prescriptions. That's why we have a +"^DD",1130580001.101,1130580001.101,4,21,17,0) +special flag for it. It references a Patient List created by this +"^DD",1130580001.101,1130580001.101,4,21,18,0) +package. The numerator and denominators are stored in subfiles for each +"^DD",1130580001.101,1130580001.101,4,21,19,0) +patient. +"^DD",1130580001.101,1130580001.101,4,23,0) +^^4^4^3120530^ +"^DD",1130580001.101,1130580001.101,4,23,1,0) +As of version C0P*1.0*1, the software doesn't use this field except to +"^DD",1130580001.101,1130580001.101,4,23,2,0) +check for an electronic prescribing type (code E). +"^DD",1130580001.101,1130580001.101,4,23,3,0) + +"^DD",1130580001.101,1130580001.101,4,23,4,0) +I anticipate using this field for other purposes in the future. +"^DD",1130580001.101,1130580001.101,4,"DT") +3120530 +"^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.401,1130580001.401,2,0) +EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q +"^DD",1130580001.401,1130580001.401,2,.1) +OUTPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2,1,1,0) +1130580001.401^AMMS +"^DD",1130580001.401,1130580001.401,2,1,1,1) +S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2,1,1,2) +K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",0) +^.101^5^5^3120530^^^ +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",5,0) +$O(^C0Q(401,"AMMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.1,0) +EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q +"^DD",1130580001.401,1130580001.401,2.1,.1) +OUTPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2.1,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2.1,1,1,0) +1130580001.401^AQMS +"^DD",1130580001.401,1130580001.401,2.1,1,1,1) +S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2.1,1,1,2) +K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2.1,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",0) +^^5^5^3120530^ +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",5,0) +$O(^C0Q(401,"AQMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2.1,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2.1,"DT") +3120103 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-004_PAT-001.TXT b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-004_PAT-001.TXT new file mode 100644 index 0000000..c683ef1 --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-004_PAT-001.TXT @@ -0,0 +1,472 @@ +DHCP Patch Display Page: 1 +============================================================================= +Run Date: SEP 17, 2012 Designation: C0Q*1*1 TEST v +Package : QUALITY MEASURES Priority : MANDATORY +Version : 1 Status : UNDER DEVELOPMENT +============================================================================= + +Subject: E-Rx MU Measures + +Category: ROUTINE + ENHANCEMENT + +Description: +=========== + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced by George Lilly on 14 June 2012 +and released through VISTA Forum. + + Copyright: Build documentation and C0QMUERX routine (c) George Lilly +2012. + + License: Package C0Q has license of GPL 2.0. + + Functionality: + ============== +DESCRIPTION: +Addition of ePrescribing MU measure and code to support it. + +Dependencies: +This build needs C0P*1*4 for the new WebService entry that gets MU +data from New Crop. It's not a technical dependency; the code will +function without it, but it won't perform ERx calculations. +This build requires the base C0Q 1.0 to be installed. + +This build performs the following: +Routines: +1. Adds routine C0QMUERX for calculation of ePrescribing stats. +2. Mods routine C0QMU12 to call C0QMUERX for the ERX measure for +Outpatients. +3. Mods routine C0QUPDT to handle the special case of ePrescribing stats. +Also, some checks and quits so that we won't crash if no patient lists +are associated with a measure (general bug fix). + + Support Tickets: + + + Package Elements: + ================= +Data Dictionary: +1. File C0Q PARAMETER has two new indexes (used by ERXCOUNT^C0QUPDT) + AMMS REGULAR + Field: EP MU MEASUREMENT SET (1130580001.401,2) + Description: Indexes the IEN of the Measurement Set. Used so that we can + walk back to a parameter when processing a specific IEN. + + You can get the IEN of the measurement set using + $O(^C0Q(401,"AMMS",MSIEN,"")). + 1)= S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" + 2)= K ^C0Q(401,"AMMS",$E(X,1,30),DA) + 3)= USED BY THE CODE. SEE DESCRIPTION. + + AQMS REGULAR + Field: EP QUALITY MEASUREMENT SET (1130580001.401,2.1) + Description: Indexes the IEN of the Measurement Set. Used so that we can + walk back to a parameter when processing a specific IEN. + + You can get the IEN of the measurement set using + $O(^C0Q(401,"AQMS",MSIEN,"")). + 1)= S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" + 2)= K ^C0Q(401,"AQMS",$E(X,1,30),DA) + 3)= USED BY THE CODE. SEE DESCRIPTION. + +2. File C0Q QUALITY MEASURE has a new field, MEASURE TYPE (#4) used by +UPDATE^C0QUPDT + +1130580001.101,4MEASURE TYPE 0;5 SET + + 'P' FOR Performance; + 'Q' FOR Quality; + 'E' FOR Electronic Prescribing Performance; + LAST EDITED: MAY 30, 2012 + HELP-PROMPT: Enter a code P, Q or E + DESCRIPTION: This field designates the measure type. It can + be P, Q or M. + + P is for Performance. Performance measures are + MU measures to measure how meaningfully used an + EMR is. An example of a performance measure is + whether allergies are documented in the EMR. + Performance measures reference a Patient List + created by this package. + + Q is for Quality Measures. Quality measures are + MU measures to assess how well the patients are + cared for. An example of a quality measure is + whether Hemoglobin A1c Poor Control. Quality + measures reference Patient Lists in the + Reminders package. + + E is for Electronic Prescribing. This is a + Performance measure, except that it is handled + differently than the rest. Instead of the + numerators and denominators being lists of + patients as with all the other measurements, + they are a number of prescriptions. That's why + we have a special flag for it. It references a + Patient List created by this package. The + numerator and denominators are stored in + subfiles for each patient. + + TECHNICAL DESCR: As of version C0P*1.0*1, the software doesn't + use this field except to check for an + electronic prescribing type (code E). + + I anticipate using this field for other + purposes in the future. + +DATA: +The entry MU EP ERX for processing ePrescribing stats in C0Q QUALITY +MEASURE is sent to destination sites. This entry has MEASURE TYPE set to +E so that it is processed by the routine UPDATE^C0QUPDT. + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES YES OVER NO NO + DATA SCREEN: I $P(^(0),U)="MU EP ERX" + +1130580001.401C0Q PARAMETER YES NO NO NO +Partial DD: subDD: 1130580001.401fld: 2 + fld: 2.1 + +INPUT TEMPLATE: +C0Q EDIT MU MEASURE adds the new field MEASURE TYPE mentioned above to +allow editing of measures + +INPUT TEMPLATE: ACTION: + C0Q EDIT MU MEASURE FILE #1130580001.101 SEND TO SITE + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: POST^C0Q1P1 DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: + + +ROUTINE: ACTION: + C0QMU12 SEND TO SITE + C0QMUERX SEND TO SITE + C0QUPDT SEND TO SITE + +INSTALL QUESTIONS: + + Default Rebuild Menu Trees Upon Completion of Install: NO + Default INHIBIT LOGONs during the install: NO + Default DISABLE Scheduled Options, Menu Options, and Protocols: NO + +REQUIRED BUILDS: ACTION: + QUALITY MEASURES 1.0 Don't install, leave global + + Documentation: + ============== + + + Test Sites: + =========== + + Tested by George Lilly on smart2 (dEWDrop) environment + + Compliance: + =========== + Complies with the SACC. One routine has a code size or 15076, +and fails the code size check. + + Installation Instructions: + ========================== + Install Time - less than 1 minute + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*1): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*1" at the INSTALL NAME prompt. + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + The post installation routine POST^C0Q1P1 will perform the following +tasks: +1. Re-index C0P PARAMETERS file fields EP MU MEASUREMENT SET +(1130580001.401,2) and EP QUALITY MEASUREMENT SET (1130580001.401,2.1) +to make the AMMS and AQMS indeces respectively. + + Post-installation instructions + ============================== +1. If you don't have New Crop eRx installed, there won't be any effects. +The C0Q code will behave like before. +2. If you don't have C0P*1.0*4 installed, again, the C0Q code will behave +as before the patch. +3. Once you install C0P*1.0*4 with this patch (C0Q*1.0*1), the code will +loop through all Outpatients who have an ERx. The actual patients are +determined via your outpatient parameters. If your parameters reference a +clinic location that already has patients with ERxs, you don't need to do +anything to make the code run. It will run automatically; and it's time +consuming; before you run it though, make sure to do #4. +4. In order for you to see a print out of the eRx measures, you +need to add the Measure MU EP ERX to the Measure Set used in the EP MU +MEASUREMENT SET field in your Outpatient Parameters. You must do this +before you run this for the first time. + +Example of Set-up: + +Select QUALITY MEASUREMENT MENU Option: ? + + COPY OVER PATIENT LISTS + ED-1 COMPUTATION + ED-2 COMPUTATION + EP UPDATE MU MEASURES + INP UPDATE MU MEASURES + PQRI MENU ... + PQRI PRINT XML + PRINT C0Q MEASURES + QRDA MENU ... + SETUP QUALITY REPORTING ... + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +text. + +Select QUALITY MEASUREMENT MENU Option: setUP QUALITY REPORTING + +Select SETUP QUALITY REPORTING Option: ? + + DISPLAY QUALITY MEASURES + EDIT SUPERUSERS + EP EDIT PARMS + INP EDIT PARMS + MEASURE SET EDIT + MU MEASURE EDIT + QUALITY MEASURE EDIT + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +text. + +Select SETUP QUALITY REPORTING Option: ep edit PARMS + +Select C0Q PARAMETER NAME: OUTPATIENT +NAME: OUTPATIENT// +MEASUREMENT PERIOD KEY: MU12// +PARAMETER TYPE: OUTPATIENT// +EP MU MEASUREMENT SET: OUTPATIENT MEASURE SET// +EP QUALITY MEASUREMENT SET: +Select CLINIC: DR OFFICE// +PATIENT LIST LABEL: +Select SUBSCRIBER: + +Select C0Q PARAMETER NAME: + +Select SETUP QUALITY REPORTING Option: measure set EDIT + +Select C0Q MEASUREMENT SET NAME: outpaTIENT MEASURE SET +NAME: OUTPATIENT MEASURE SET Replace +BEGIN DATE: JUN 12,2001// +END DATE: MAY 25,2012// +LOCKED: +MU YEAR KEY: MU12// +QRDA TEMPLATE ROOT: +Select MEASURE: MU EP ERX// + MEASURE: MU EP ERX// + NUMERATOR FILTER LIST: + DENOMINATOR FILTER LIST: +Select MEASURE: + +Select C0Q MEASUREMENT SET NAME: + +Select SETUP QUALITY REPORTING Option: + +Select QUALITY MEASUREMENT MENU Option: ? + + COPY OVER PATIENT LISTS + ED-1 COMPUTATION + ED-2 COMPUTATION + EP UPDATE MU MEASURES + INP UPDATE MU MEASURES + PQRI MENU ... + PQRI PRINT XML + PRINT C0Q MEASURES + QRDA MENU ... + SETUP QUALITY REPORTING ... + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help +text. + +Select QUALITY MEASUREMENT MENU Option: ep updATE MU MEASURES +Sep 16, 2012@86:54:61 +Jan 03, 2008@80:85:41 +Jan 01, 2008@81:59:42 +Nov 25, 2005@86:89:76 +Nov 25, 2005@85:87:58 +Nov 24, 2005@79:68:87 +Aug 01, 2005@91:59:64 +Aug 2005@84:91:51 +Aug 2005@84:78:82 +Jul 28, 2005@88:55:64 +Jul 28, 2005@88:46:85 +Jul 28, 2005@87:95:55 +Jul 27, 2005@87:79:80 +Jul 27, 2005@83:83:97 +Jul 26, 2005@88:78:96 +Jul 26, 2005@88:75:45 +Jul 26, 2005@88:58:60 +Jul 26, 2005@88:52:62 +Jul 26, 2005@88:50:59 +Jul 26, 2005@88:49:74 +Jul 26, 2005@84:54:55 +Jul 24, 2005@91:62:76 +Jul 23, 2005@88:98:45 +Jul 23, 2005@85:77:89 +Jul 23, 2005@83:77:71 +Jul 23, 2005@82:82:99 +Jul 23, 2005@82:66:61 +Jul 22, 2005@83:85:46 +Jul 22, 2005@82:82:92 +Jul 22, 2005@82:75:99 +Jul 21, 2005@89:50:71 +Jul 21, 2005@83:53:48 +Jul 20, 2005@91:43:44 +Jul 20, 2005@87:89:46 +Jul 20, 2005@84:60:78 +Jul 20, 2005@84:60:71 +Jul 19, 2005@89:92:54 +Jul 19, 2005@89:55:97 +Jul 18, 2005@92:58:51 +Jul 18, 2005@91:47:87 +Jul 18, 2005@88:67:86 +Jul 18, 2005@88:63:92 +Jul 18, 2005@86:64:88 +Jul 18, 2005@84:56:82 +Jul 18, 2005@84:45:52 +Jul 17, 2005@82:42:51 +Jul 14, 2005@84:00 +Jul 07, 2005@86:97 +Jul 2005@85:62:77B index passed +4 +Calling GETMEDS6 SOAP Web Service Call for 4 +Patient 4 Rx 1 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +FinalStatusType: 2 +Patient 4 Rx 2 +DeaClassCode: 0 +PharmacyType: 0 +Patient 4 Rx 3 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +FinalStatusType: 2 +Patient 4 Rx 4 +DeaClassCode: 0 +PharmacyType: 0 +IENs ?+14,1,17, ready to file +Saving ERXDEN of 0 for Patient MOUSE,MICKEY (4) +Fileman Data Array +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXDEN +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +Patient 4 Rx 1 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +Patient 4 Rx 2 +DeaClassCode: 0 +PharmacyType: 0 +Patient 4 Rx 3 +DeaClassCode: 0 +PharmacyType: 1 +PharmacyDetailType: 1 +FinalDestinationType: 2 +Patient 4 Rx 4 +DeaClassCode: 0 +PharmacyType: 0 +IENs ?+14,1,17, ready to file +Saving ERXNUM of 0 for Patient MOUSE,MICKEY (4) +Fileman Data Array +C0QFDA(1130580001.3111,"?+14,1,17,",.01): ERXNUM +C0QFDA(1130580001.3111,"?+14,1,17,",.02): 0 +C0QFDA(1130580001.2011,"1,7,",3)=100 +Processing E-Prescribing Counts +DFN Denominator Numerator +4 0 0 + === === + 0 0 + + +Routine Information: +==================== + + +The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**[Patch List]**;May 21, 2012;Build 33 + +The checksums below are new checksums, and + can be checked with CHECK1^XTSUMBLD. + +Routine Name: C0Q1P1 + Before: n/a After: B541473 **1** +Routine Name: C0QMU12 + Before: n/a After:B266254568 **1** +Routine Name: C0QMUERX + Before: n/a After: B83723794 **1** +Routine Name: C0QUPDT + Before: n/a After: B78393601 **1** + + +============================================================================= +User Information: + Entered By : HABIEL,SAM Date Entered : JUN 11,2012 + Completed By: LILLY,GEORGE Date Completed: JUN 14,2012 + Released By : Date Released : +============================================================================= diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.KID b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.KID new file mode 100644 index 0000000..28c6c4c --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.KID @@ -0,0 +1,3840 @@ +KIDS Distribution saved on Oct 18, 2012@11:20:27 +Bug Fixes for QM package +**KIDS**:C0Q*1.0*5^ + +**INSTALL NAME** +C0Q*1.0*5 +"BLD",7919,0) +C0Q*1.0*5^QUALITY MEASURES^0^3121018^y +"BLD",7919,1,0) +^^171^171^3121018^ +"BLD",7919,1,1,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"BLD",7919,1,2,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"BLD",7919,1,3,0) + +"BLD",7919,1,4,0) +DESCRIPTION: +"BLD",7919,1,5,0) +============ +"BLD",7919,1,6,0) +Written by Sam Habiel on 17 October 2012 and released through VISTA Forum. +"BLD",7919,1,7,0) + +"BLD",7919,1,8,0) +Licensed under package license (currently GPL 2.0) +"BLD",7919,1,9,0) + +"BLD",7919,1,10,0) +FUNCTIONALITY: +"BLD",7919,1,11,0) +============== +"BLD",7919,1,12,0) +This build fixes various bugs in the Quality Measurements package +"BLD",7919,1,13,0) +discovered during testing. +"BLD",7919,1,14,0) + +"BLD",7919,1,15,0) + 1. Empty lists are created in advance for Outpatients. Previously, they +"BLD",7919,1,16,0) +were not created, even though an entry point existed (INITCLST). +"BLD",7919,1,17,0) + +"BLD",7919,1,18,0) + 2. The Vitals lookup code that calls CPRS code didn't include today. +"BLD",7919,1,19,0) +This was fixed by adding .999999 to today's date. +"BLD",7919,1,20,0) + +"BLD",7919,1,21,0) + 3. File security (@ sign everywhere) didn't permit normal users to edit +"BLD",7919,1,22,0) +the file. Previous, I defeated the @ sign protection by setting DLAYGO. +"BLD",7919,1,23,0) +However, DLAYGO got killed by Fileman after each edit, which meant that +"BLD",7919,1,24,0) +you can only edit one entry at a time before heading back out and back in +"BLD",7919,1,25,0) +to edit another entry. After discussion with Fileman developers, the +"BLD",7919,1,26,0) +proper way to do this was to not to use DLAYGO but rather remove the @ +"BLD",7919,1,27,0) +signs for Read, Write, and Laygo in the Files Definitions. +"BLD",7919,1,28,0) + +"BLD",7919,1,29,0) + - File list where protections were changed. +"BLD",7919,1,30,0) + --> C0Q MEASUREMENT SET (1130580001.201) +"BLD",7919,1,31,0) + --> C0Q QUALITY MEASURE (1130580001.101) +"BLD",7919,1,32,0) + --> C0Q PARAMETER (1130580001.401) +"BLD",7919,1,33,0) + +"BLD",7919,1,34,0) + - Options which don't use DLAYGO anymore. +"BLD",7919,1,35,0) + --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS] +"BLD",7919,1,36,0) + --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS] +"BLD",7919,1,37,0) + --> INP EDIT PARMS [C0Q EDIT INP PARMS] +"BLD",7919,1,38,0) + --> MEASURE SET EDIT [C0Q EDIT MEASURE SET] +"BLD",7919,1,39,0) + --> MU MEASURE EDIT [C0Q EDIT MU MEASURE] +"BLD",7919,1,40,0) + --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE] +"BLD",7919,1,41,0) + +"BLD",7919,1,42,0) +4. The Outpatient Quality Measurement Set which is specified in the +"BLD",7919,1,43,0) +Parameters was being completely ignored. This is fixed. +"BLD",7919,1,44,0) + +"BLD",7919,1,45,0) +5. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag +"BLD",7919,1,46,0) +indicating the type of measure (Performance vs Quality Measure). Since it +"BLD",7919,1,47,0) +was left lying around, a Quality Measure was mistakenly interpreted as a +"BLD",7919,1,48,0) +performance measure, giving you a result of zero, since there is no +"BLD",7919,1,49,0) +data for this Quality Measure. +"BLD",7919,1,50,0) + +"BLD",7919,1,51,0) +6. The option that executes the logic for Outpatients C0Q EP UPDATE MU +"BLD",7919,1,52,0) +MEASURES didn't display the time on the dates of the Visits being +"BLD",7919,1,53,0) +processed correctly. This patch fixes this. +"BLD",7919,1,54,0) + +"BLD",7919,1,55,0) +SUPPORT TICKETS: +"BLD",7919,1,56,0) +================ +"BLD",7919,1,57,0) +None +"BLD",7919,1,58,0) + +"BLD",7919,1,59,0) +PACKAGE ELEMENTS: +"BLD",7919,1,60,0) +================= +"BLD",7919,1,61,0) + +"BLD",7919,1,62,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"BLD",7919,1,63,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"BLD",7919,1,64,0) +POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No +"BLD",7919,1,65,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P5 +"BLD",7919,1,66,0) + +"BLD",7919,1,67,0) + UP SEND DATA USER +"BLD",7919,1,68,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7919,1,69,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7919,1,70,0) +------------------------------------------------------------------------------- +"BLD",7919,1,71,0) + +"BLD",7919,1,72,0) +1130580001.101C0Q QUALITY MEASURE YES YES NO +"BLD",7919,1,73,0) + +"BLD",7919,1,74,0) +1130580001.201C0Q MEASUREMENT SET YES YES NO +"BLD",7919,1,75,0) + +"BLD",7919,1,76,0) + UP SEND DATA USER +"BLD",7919,1,77,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7919,1,78,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7919,1,79,0) +------------------------------------------------------------------------------- +"BLD",7919,1,80,0) + +"BLD",7919,1,81,0) +1130580001.401C0Q PARAMETER YES YES NO +"BLD",7919,1,82,0) + +"BLD",7919,1,83,0) +ROUTINE: ACTION: +"BLD",7919,1,84,0) + C0Q1P5 SEND TO SITE +"BLD",7919,1,85,0) + C0QMU12 SEND TO SITE +"BLD",7919,1,86,0) + C0QUPDT SEND TO SITE +"BLD",7919,1,87,0) + +"BLD",7919,1,88,0) +OPTION: ACTION: +"BLD",7919,1,89,0) + C0Q EDIT INP PARMS SEND TO SITE +"BLD",7919,1,90,0) + C0Q EDIT MEASURE SET SEND TO SITE +"BLD",7919,1,91,0) + C0Q EDIT MU MEASURE SEND TO SITE +"BLD",7919,1,92,0) + C0Q EDIT OUTPATIENT PARMS SEND TO SITE +"BLD",7919,1,93,0) + C0Q EDIT QUALITY MEASURE SEND TO SITE +"BLD",7919,1,94,0) + C0Q EDIT SUPERUSERS SEND TO SITE +"BLD",7919,1,95,0) + +"BLD",7919,1,96,0) +DOCUMENTATION: +"BLD",7919,1,97,0) +============== +"BLD",7919,1,98,0) +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 +"BLD",7919,1,99,0) + +"BLD",7919,1,100,0) +COMPLIANCE: +"BLD",7919,1,101,0) +=========== +"BLD",7919,1,102,0) +This software complies with the VA MUMPS Programming Standards and +"BLD",7919,1,103,0) + Conventions (version 3 April 2007), except for the following: +"BLD",7919,1,104,0) + +"BLD",7919,1,105,0) + C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584 +"BLD",7919,1,106,0) + S - Routine code exceeds SACC maximum size of 15000 (15513). +"BLD",7919,1,107,0) + +"BLD",7919,1,108,0) +Blood Bank Clearance: This software doesn't interact with the Blood Bank module. +"BLD",7919,1,109,0) + +"BLD",7919,1,110,0) +Installation Instructions: +"BLD",7919,1,111,0) +========================== +"BLD",7919,1,112,0) +Install Time - less than 1 minute. +"BLD",7919,1,113,0) + +"BLD",7919,1,114,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7919,1,115,0) + +"BLD",7919,1,116,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7919,1,117,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"BLD",7919,1,118,0) + +"BLD",7919,1,119,0) + 2. START UP KIDS +"BLD",7919,1,120,0) + +"BLD",7919,1,121,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7919,1,122,0) + [XPD MAIN]: +"BLD",7919,1,123,0) + +"BLD",7919,1,124,0) + Edits and Distribution ... +"BLD",7919,1,125,0) + Utilities ... +"BLD",7919,1,126,0) + Installation ... +"BLD",7919,1,127,0) + +"BLD",7919,1,128,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7919,1,129,0) + --- +"BLD",7919,1,130,0) + Load a Distribution +"BLD",7919,1,131,0) + Print Transport Global +"BLD",7919,1,132,0) + Compare Transport Global to Current System +"BLD",7919,1,133,0) + Verify Checksums in Transport Global +"BLD",7919,1,134,0) + Install Package(s) +"BLD",7919,1,135,0) + Restart Install of Package(s) +"BLD",7919,1,136,0) + Unload a Distribution +"BLD",7919,1,137,0) + Backup a Transport Global +"BLD",7919,1,138,0) + +"BLD",7919,1,139,0) + Select Installation Option: +"BLD",7919,1,140,0) + +"BLD",7919,1,141,0) + 3. Select Installation Option: +"BLD",7919,1,142,0) + +"BLD",7919,1,143,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7919,1,144,0) + NAME, enter C0Q*1.0*5): +"BLD",7919,1,145,0) + +"BLD",7919,1,146,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7919,1,147,0) + message of any routines exported with this patch. It will not +"BLD",7919,1,148,0) + backup any other changes such as DD's or templates. +"BLD",7919,1,149,0) + b. Compare Transport Global to Current System - This option will +"BLD",7919,1,150,0) + allow you to view all changes that will be made when this patch +"BLD",7919,1,151,0) + is installed. It compares all components of this patch +"BLD",7919,1,152,0) + (routines, DD's, templates, etc.). +"BLD",7919,1,153,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7919,1,154,0) + you to ensure the integrity of the routines that are in the +"BLD",7919,1,155,0) + transport global. +"BLD",7919,1,156,0) + +"BLD",7919,1,157,0) + 4. Select Installation Option: Install Package(s) +"BLD",7919,1,158,0) + +"BLD",7919,1,159,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7919,1,160,0) + +"BLD",7919,1,161,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7919,1,162,0) + and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the +"BLD",7919,1,163,0) + Environment Check routine, the message below will display +"BLD",7919,1,164,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7919,1,165,0) + Install? NO//' answer NO +"BLD",7919,1,166,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7919,1,167,0) + NO//' answer NO +"BLD",7919,1,168,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7919,1,169,0) + and Protocols? NO//' answer NO +"BLD",7919,1,170,0) + +"BLD",7919,1,171,0) + 5. Post installation: No post installation tasks are necessary. +"BLD",7919,4,0) +^9.64PA^1130580001.401^3 +"BLD",7919,4,1130580001.101,0) +1130580001.101 +"BLD",7919,4,1130580001.101,222) +y^y^f^^^^n +"BLD",7919,4,1130580001.201,0) +1130580001.201 +"BLD",7919,4,1130580001.201,222) +y^y^f^^^^n +"BLD",7919,4,1130580001.401,0) +1130580001.401 +"BLD",7919,4,1130580001.401,222) +y^y^f^^^^n +"BLD",7919,4,"B",1130580001.101,1130580001.101) + +"BLD",7919,4,"B",1130580001.201,1130580001.201) + +"BLD",7919,4,"B",1130580001.401,1130580001.401) + +"BLD",7919,6.3) +10 +"BLD",7919,"INI") + +"BLD",7919,"INIT") +POST^C0Q1P5 +"BLD",7919,"KRN",0) +^9.67PA^779.2^20 +"BLD",7919,"KRN",.4,0) +.4 +"BLD",7919,"KRN",.401,0) +.401 +"BLD",7919,"KRN",.402,0) +.402 +"BLD",7919,"KRN",.403,0) +.403 +"BLD",7919,"KRN",.5,0) +.5 +"BLD",7919,"KRN",.84,0) +.84 +"BLD",7919,"KRN",3.6,0) +3.6 +"BLD",7919,"KRN",3.8,0) +3.8 +"BLD",7919,"KRN",9.2,0) +9.2 +"BLD",7919,"KRN",9.8,0) +9.8 +"BLD",7919,"KRN",9.8,"NM",0) +^9.68A^3^3 +"BLD",7919,"KRN",9.8,"NM",1,0) +C0QMU12^^0^B280797584 +"BLD",7919,"KRN",9.8,"NM",2,0) +C0QUPDT^^0^B78768309 +"BLD",7919,"KRN",9.8,"NM",3,0) +C0Q1P5^^0^B619258 +"BLD",7919,"KRN",9.8,"NM","B","C0Q1P5",3) + +"BLD",7919,"KRN",9.8,"NM","B","C0QMU12",1) + +"BLD",7919,"KRN",9.8,"NM","B","C0QUPDT",2) + +"BLD",7919,"KRN",19,0) +19 +"BLD",7919,"KRN",19,"NM",0) +^9.68A^6^6 +"BLD",7919,"KRN",19,"NM",1,0) +C0Q EDIT SUPERUSERS^^0 +"BLD",7919,"KRN",19,"NM",2,0) +C0Q EDIT OUTPATIENT PARMS^^0 +"BLD",7919,"KRN",19,"NM",3,0) +C0Q EDIT INP PARMS^^0 +"BLD",7919,"KRN",19,"NM",4,0) +C0Q EDIT MEASURE SET^^0 +"BLD",7919,"KRN",19,"NM",5,0) +C0Q EDIT MU MEASURE^^0 +"BLD",7919,"KRN",19,"NM",6,0) +C0Q EDIT QUALITY MEASURE^^0 +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT INP PARMS",3) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT MEASURE SET",4) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT MU MEASURE",5) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT OUTPATIENT PARMS",2) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT QUALITY MEASURE",6) + +"BLD",7919,"KRN",19,"NM","B","C0Q EDIT SUPERUSERS",1) + +"BLD",7919,"KRN",19.1,0) +19.1 +"BLD",7919,"KRN",101,0) +101 +"BLD",7919,"KRN",409.61,0) +409.61 +"BLD",7919,"KRN",771,0) +771 +"BLD",7919,"KRN",779.2,0) +779.2 +"BLD",7919,"KRN",870,0) +870 +"BLD",7919,"KRN",8989.51,0) +8989.51 +"BLD",7919,"KRN",8989.52,0) +8989.52 +"BLD",7919,"KRN",8994,0) +8994 +"BLD",7919,"KRN","B",.4,.4) + +"BLD",7919,"KRN","B",.401,.401) + +"BLD",7919,"KRN","B",.402,.402) + +"BLD",7919,"KRN","B",.403,.403) + +"BLD",7919,"KRN","B",.5,.5) + +"BLD",7919,"KRN","B",.84,.84) + +"BLD",7919,"KRN","B",3.6,3.6) + +"BLD",7919,"KRN","B",3.8,3.8) + +"BLD",7919,"KRN","B",9.2,9.2) + +"BLD",7919,"KRN","B",9.8,9.8) + +"BLD",7919,"KRN","B",19,19) + +"BLD",7919,"KRN","B",19.1,19.1) + +"BLD",7919,"KRN","B",101,101) + +"BLD",7919,"KRN","B",409.61,409.61) + +"BLD",7919,"KRN","B",771,771) + +"BLD",7919,"KRN","B",779.2,779.2) + +"BLD",7919,"KRN","B",870,870) + +"BLD",7919,"KRN","B",8989.51,8989.51) + +"BLD",7919,"KRN","B",8989.52,8989.52) + +"BLD",7919,"KRN","B",8994,8994) + +"BLD",7919,"PRET") +TRAN^C0Q1P5 +"BLD",7919,"QUES",0) +^9.62^^ +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^^^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^C0Q +"FIA",1130580001.101,1130580001.101) +0 +"FIA",1130580001.101,1130580001.111) +0 +"FIA",1130580001.201) +C0Q MEASUREMENT SET +"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,0,"VR") +1.0^C0Q +"FIA",1130580001.201,1130580001.201) +0 +"FIA",1130580001.201,1130580001.2011) +0 +"FIA",1130580001.201,1130580001.20111) +0 +"FIA",1130580001.201,1130580001.20112) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^y^f^^^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +0 +"FIA",1130580001.401,1130580001.4013) +0 +"FIA",1130580001.401,1130580001.411) +0 +"INIT") +POST^C0Q1P5 +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"IX",1130580001.201,1130580001.201,"MU",0) +1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS +"IX",1130580001.201,1130580001.201,"MU",1) +S ^C0Q(201,"MU",$E(X,1,30),DA)="" +"IX",1130580001.201,1130580001.201,"MU",2) +K ^C0Q(201,"MU",$E(X,1,30),DA) +"IX",1130580001.201,1130580001.201,"MU",2.5) +K ^C0Q(201,"MU") +"IX",1130580001.201,1130580001.201,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.201,1130580001.201,"MU",11.1,1,0) +1^F^1130580001.201^.3^30^1^F +"IX",1130580001.401,1130580001.401,"MU",0) +1130580001.401^MU^REGULAR INDEX ON THE REPORTING PERIOD FIELD^R^^F^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MU",1) +S ^C0Q(401,"MU",$E(X,1,30),DA)="" +"IX",1130580001.401,1130580001.401,"MU",2) +K ^C0Q(401,"MU",$E(X,1,30),DA) +"IX",1130580001.401,1130580001.401,"MU",2.5) +K ^C0Q(401,"MU") +"IX",1130580001.401,1130580001.401,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.401,1130580001.401,"MU",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",0) +1130580001.401^MUTYP^INDEX ON PARAMETER TYPE BY REPORTING PERIOD^R^^R^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MUTYP",1) +S ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA)="" +"IX",1130580001.401,1130580001.401,"MUTYP",2) +K ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA) +"IX",1130580001.401,1130580001.401,"MUTYP",2.5) +K ^C0Q(401,"MUTYP") +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,0) +^.114IA^2^2 +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,3) + +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,0) +2^F^1130580001.401^.03^^2^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,3) + +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^784 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",19,11027,-1) +0^3 +"KRN",19,11027,0) +C0Q EDIT INP PARMS^INP EDIT PARMS^^E^^^^^^^^^y^^ +"KRN",19,11027,15) + +"KRN",19,11027,20) + +"KRN",19,11027,30) +C0Q(401, +"KRN",19,11027,31) +AEMQL +"KRN",19,11027,50) +C0Q(401, +"KRN",19,11027,51) +[C0Q EDIT INPATIENT PARMS] +"KRN",19,11027,"U") +INP EDIT PARMS +"KRN",19,11028,-1) +0^2 +"KRN",19,11028,0) +C0Q EDIT OUTPATIENT PARMS^EP EDIT PARMS^^E^^^^^^^^QUALITY MEASURES^y^^ +"KRN",19,11028,15) + +"KRN",19,11028,20) + +"KRN",19,11028,30) +C0Q(401, +"KRN",19,11028,31) +AEMQL +"KRN",19,11028,50) +C0Q(401, +"KRN",19,11028,51) +[C0Q EDIT OUPATIENT PARMS] +"KRN",19,11028,"U") +EP EDIT PARMS +"KRN",19,11029,-1) +0^1 +"KRN",19,11029,0) +C0Q EDIT SUPERUSERS^EDIT SUPERUSERS^^E^^^^^^^^^y +"KRN",19,11029,30) +C0Q(401, +"KRN",19,11029,31) +AEMQ +"KRN",19,11029,50) +C0Q(401, +"KRN",19,11029,51) +[C0Q EDIT SUPERUSERS] +"KRN",19,11029,"U") +EDIT SUPERUSERS +"KRN",19,11030,-1) +0^4 +"KRN",19,11030,0) +C0Q EDIT MEASURE SET^MEASURE SET EDIT^^E^^^^^^^^QUALITY MEASURES^y^^ +"KRN",19,11030,15) + +"KRN",19,11030,20) + +"KRN",19,11030,30) +C0Q(201, +"KRN",19,11030,31) +AEMQL +"KRN",19,11030,50) +C0Q(201, +"KRN",19,11030,51) +[C0Q EDIT MEASURE SET] +"KRN",19,11030,"U") +MEASURE SET EDIT +"KRN",19,11031,-1) +0^6 +"KRN",19,11031,0) +C0Q EDIT QUALITY MEASURE^QUALITY MEASURE EDIT^^E^^^^^^^^^y^^ +"KRN",19,11031,15) + +"KRN",19,11031,20) + +"KRN",19,11031,30) +C0Q(101, +"KRN",19,11031,31) +AEMQL +"KRN",19,11031,50) +C0Q(101, +"KRN",19,11031,51) +[C0Q EDIT QUALITY MEASURE] +"KRN",19,11031,"U") +QUALITY MEASURE EDIT +"KRN",19,11032,-1) +0^5 +"KRN",19,11032,0) +C0Q EDIT MU MEASURE^MU MEASURE EDIT^^E^^^^^^^^QUALITY MEASURES^y^^ +"KRN",19,11032,15) + +"KRN",19,11032,20) + +"KRN",19,11032,30) +C0Q(101, +"KRN",19,11032,31) +AEMQL +"KRN",19,11032,50) +C0Q(101, +"KRN",19,11032,51) +[C0Q EDIT MU MEASURE] +"KRN",19,11032,"U") +MU MEASURE EDIT +"MBREQ") +0 +"ORD",18,19) +19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA +"ORD",18,19,0) +OPTION +"PKG",214,-1) +1^1 +"PKG",214,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",214,20,0) +^9.402P^^ +"PKG",214,22,0) +^9.49I^1^1 +"PKG",214,22,1,0) +1.0^3120731^3121002^8 +"PKG",214,22,1,"PAH",1,0) +5^3121018 +"PKG",214,22,1,"PAH",1,1,0) +^^171^171^3121018 +"PKG",214,22,1,"PAH",1,1,1,0) +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +"PKG",214,22,1,"PAH",1,1,2,0) +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO +"PKG",214,22,1,"PAH",1,1,3,0) + +"PKG",214,22,1,"PAH",1,1,4,0) +DESCRIPTION: +"PKG",214,22,1,"PAH",1,1,5,0) +============ +"PKG",214,22,1,"PAH",1,1,6,0) +Written by Sam Habiel on 17 October 2012 and released through VISTA Forum. +"PKG",214,22,1,"PAH",1,1,7,0) + +"PKG",214,22,1,"PAH",1,1,8,0) +Licensed under package license (currently GPL 2.0) +"PKG",214,22,1,"PAH",1,1,9,0) + +"PKG",214,22,1,"PAH",1,1,10,0) +FUNCTIONALITY: +"PKG",214,22,1,"PAH",1,1,11,0) +============== +"PKG",214,22,1,"PAH",1,1,12,0) +This build fixes various bugs in the Quality Measurements package +"PKG",214,22,1,"PAH",1,1,13,0) +discovered during testing. +"PKG",214,22,1,"PAH",1,1,14,0) + +"PKG",214,22,1,"PAH",1,1,15,0) + 1. Empty lists are created in advance for Outpatients. Previously, they +"PKG",214,22,1,"PAH",1,1,16,0) +were not created, even though an entry point existed (INITCLST). +"PKG",214,22,1,"PAH",1,1,17,0) + +"PKG",214,22,1,"PAH",1,1,18,0) + 2. The Vitals lookup code that calls CPRS code didn't include today. +"PKG",214,22,1,"PAH",1,1,19,0) +This was fixed by adding .999999 to today's date. +"PKG",214,22,1,"PAH",1,1,20,0) + +"PKG",214,22,1,"PAH",1,1,21,0) + 3. File security (@ sign everywhere) didn't permit normal users to edit +"PKG",214,22,1,"PAH",1,1,22,0) +the file. Previous, I defeated the @ sign protection by setting DLAYGO. +"PKG",214,22,1,"PAH",1,1,23,0) +However, DLAYGO got killed by Fileman after each edit, which meant that +"PKG",214,22,1,"PAH",1,1,24,0) +you can only edit one entry at a time before heading back out and back in +"PKG",214,22,1,"PAH",1,1,25,0) +to edit another entry. After discussion with Fileman developers, the +"PKG",214,22,1,"PAH",1,1,26,0) +proper way to do this was to not to use DLAYGO but rather remove the @ +"PKG",214,22,1,"PAH",1,1,27,0) +signs for Read, Write, and Laygo in the Files Definitions. +"PKG",214,22,1,"PAH",1,1,28,0) + +"PKG",214,22,1,"PAH",1,1,29,0) + - File list where protections were changed. +"PKG",214,22,1,"PAH",1,1,30,0) + --> C0Q MEASUREMENT SET (1130580001.201) +"PKG",214,22,1,"PAH",1,1,31,0) + --> C0Q QUALITY MEASURE (1130580001.101) +"PKG",214,22,1,"PAH",1,1,32,0) + --> C0Q PARAMETER (1130580001.401) +"PKG",214,22,1,"PAH",1,1,33,0) + +"PKG",214,22,1,"PAH",1,1,34,0) + - Options which don't use DLAYGO anymore. +"PKG",214,22,1,"PAH",1,1,35,0) + --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS] +"PKG",214,22,1,"PAH",1,1,36,0) + --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS] +"PKG",214,22,1,"PAH",1,1,37,0) + --> INP EDIT PARMS [C0Q EDIT INP PARMS] +"PKG",214,22,1,"PAH",1,1,38,0) + --> MEASURE SET EDIT [C0Q EDIT MEASURE SET] +"PKG",214,22,1,"PAH",1,1,39,0) + --> MU MEASURE EDIT [C0Q EDIT MU MEASURE] +"PKG",214,22,1,"PAH",1,1,40,0) + --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE] +"PKG",214,22,1,"PAH",1,1,41,0) + +"PKG",214,22,1,"PAH",1,1,42,0) +4. The Outpatient Quality Measurement Set which is specified in the +"PKG",214,22,1,"PAH",1,1,43,0) +Parameters was being completely ignored. This is fixed. +"PKG",214,22,1,"PAH",1,1,44,0) + +"PKG",214,22,1,"PAH",1,1,45,0) +5. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag +"PKG",214,22,1,"PAH",1,1,46,0) +indicating the type of measure (Performance vs Quality Measure). Since it +"PKG",214,22,1,"PAH",1,1,47,0) +was left lying around, a Quality Measure was mistakenly interpreted as a +"PKG",214,22,1,"PAH",1,1,48,0) +performance measure, giving you a result of zero, since there is no +"PKG",214,22,1,"PAH",1,1,49,0) +data for this Quality Measure. +"PKG",214,22,1,"PAH",1,1,50,0) + +"PKG",214,22,1,"PAH",1,1,51,0) +6. The option that executes the logic for Outpatients C0Q EP UPDATE MU +"PKG",214,22,1,"PAH",1,1,52,0) +MEASURES didn't display the time on the dates of the Visits being +"PKG",214,22,1,"PAH",1,1,53,0) +processed correctly. This patch fixes this. +"PKG",214,22,1,"PAH",1,1,54,0) + +"PKG",214,22,1,"PAH",1,1,55,0) +SUPPORT TICKETS: +"PKG",214,22,1,"PAH",1,1,56,0) +================ +"PKG",214,22,1,"PAH",1,1,57,0) +None +"PKG",214,22,1,"PAH",1,1,58,0) + +"PKG",214,22,1,"PAH",1,1,59,0) +PACKAGE ELEMENTS: +"PKG",214,22,1,"PAH",1,1,60,0) +================= +"PKG",214,22,1,"PAH",1,1,61,0) + +"PKG",214,22,1,"PAH",1,1,62,0) +ENVIRONMENT CHECK: DELETE ENV ROUTINE: +"PKG",214,22,1,"PAH",1,1,63,0) + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +"PKG",214,22,1,"PAH",1,1,64,0) +POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No +"PKG",214,22,1,"PAH",1,1,65,0) +PRE-TRANSPORT RTN: TRAN^C0Q1P5 +"PKG",214,22,1,"PAH",1,1,66,0) + +"PKG",214,22,1,"PAH",1,1,67,0) + UP SEND DATA USER +"PKG",214,22,1,"PAH",1,1,68,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",214,22,1,"PAH",1,1,69,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",214,22,1,"PAH",1,1,70,0) +------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,71,0) + +"PKG",214,22,1,"PAH",1,1,72,0) +1130580001.101C0Q QUALITY MEASURE YES YES NO +"PKG",214,22,1,"PAH",1,1,73,0) + +"PKG",214,22,1,"PAH",1,1,74,0) +1130580001.201C0Q MEASUREMENT SET YES YES NO +"PKG",214,22,1,"PAH",1,1,75,0) + +"PKG",214,22,1,"PAH",1,1,76,0) + UP SEND DATA USER +"PKG",214,22,1,"PAH",1,1,77,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",214,22,1,"PAH",1,1,78,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",214,22,1,"PAH",1,1,79,0) +------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,80,0) + +"PKG",214,22,1,"PAH",1,1,81,0) +1130580001.401C0Q PARAMETER YES YES NO +"PKG",214,22,1,"PAH",1,1,82,0) + +"PKG",214,22,1,"PAH",1,1,83,0) +ROUTINE: ACTION: +"PKG",214,22,1,"PAH",1,1,84,0) + C0Q1P5 SEND TO SITE +"PKG",214,22,1,"PAH",1,1,85,0) + C0QMU12 SEND TO SITE +"PKG",214,22,1,"PAH",1,1,86,0) + C0QUPDT SEND TO SITE +"PKG",214,22,1,"PAH",1,1,87,0) + +"PKG",214,22,1,"PAH",1,1,88,0) +OPTION: ACTION: +"PKG",214,22,1,"PAH",1,1,89,0) + C0Q EDIT INP PARMS SEND TO SITE +"PKG",214,22,1,"PAH",1,1,90,0) + C0Q EDIT MEASURE SET SEND TO SITE +"PKG",214,22,1,"PAH",1,1,91,0) + C0Q EDIT MU MEASURE SEND TO SITE +"PKG",214,22,1,"PAH",1,1,92,0) + C0Q EDIT OUTPATIENT PARMS SEND TO SITE +"PKG",214,22,1,"PAH",1,1,93,0) + C0Q EDIT QUALITY MEASURE SEND TO SITE +"PKG",214,22,1,"PAH",1,1,94,0) + C0Q EDIT SUPERUSERS SEND TO SITE +"PKG",214,22,1,"PAH",1,1,95,0) + +"PKG",214,22,1,"PAH",1,1,96,0) +DOCUMENTATION: +"PKG",214,22,1,"PAH",1,1,97,0) +============== +"PKG",214,22,1,"PAH",1,1,98,0) +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 +"PKG",214,22,1,"PAH",1,1,99,0) + +"PKG",214,22,1,"PAH",1,1,100,0) +COMPLIANCE: +"PKG",214,22,1,"PAH",1,1,101,0) +=========== +"PKG",214,22,1,"PAH",1,1,102,0) +This software complies with the VA MUMPS Programming Standards and +"PKG",214,22,1,"PAH",1,1,103,0) + Conventions (version 3 April 2007), except for the following: +"PKG",214,22,1,"PAH",1,1,104,0) + +"PKG",214,22,1,"PAH",1,1,105,0) + C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584 +"PKG",214,22,1,"PAH",1,1,106,0) + S - Routine code exceeds SACC maximum size of 15000 (15513). +"PKG",214,22,1,"PAH",1,1,107,0) + +"PKG",214,22,1,"PAH",1,1,108,0) +Blood Bank Clearance: This software doesn't interact with the Blood Bank module. +"PKG",214,22,1,"PAH",1,1,109,0) + +"PKG",214,22,1,"PAH",1,1,110,0) +Installation Instructions: +"PKG",214,22,1,"PAH",1,1,111,0) +========================== +"PKG",214,22,1,"PAH",1,1,112,0) +Install Time - less than 1 minute. +"PKG",214,22,1,"PAH",1,1,113,0) + +"PKG",214,22,1,"PAH",1,1,114,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",214,22,1,"PAH",1,1,115,0) + +"PKG",214,22,1,"PAH",1,1,116,0) + Choose the PackMan message containing this patch and invoke the +"PKG",214,22,1,"PAH",1,1,117,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"PKG",214,22,1,"PAH",1,1,118,0) + +"PKG",214,22,1,"PAH",1,1,119,0) + 2. START UP KIDS +"PKG",214,22,1,"PAH",1,1,120,0) + +"PKG",214,22,1,"PAH",1,1,121,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",214,22,1,"PAH",1,1,122,0) + [XPD MAIN]: +"PKG",214,22,1,"PAH",1,1,123,0) + +"PKG",214,22,1,"PAH",1,1,124,0) + Edits and Distribution ... +"PKG",214,22,1,"PAH",1,1,125,0) + Utilities ... +"PKG",214,22,1,"PAH",1,1,126,0) + Installation ... +"PKG",214,22,1,"PAH",1,1,127,0) + +"PKG",214,22,1,"PAH",1,1,128,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",214,22,1,"PAH",1,1,129,0) + --- +"PKG",214,22,1,"PAH",1,1,130,0) + Load a Distribution +"PKG",214,22,1,"PAH",1,1,131,0) + Print Transport Global +"PKG",214,22,1,"PAH",1,1,132,0) + Compare Transport Global to Current System +"PKG",214,22,1,"PAH",1,1,133,0) + Verify Checksums in Transport Global +"PKG",214,22,1,"PAH",1,1,134,0) + Install Package(s) +"PKG",214,22,1,"PAH",1,1,135,0) + Restart Install of Package(s) +"PKG",214,22,1,"PAH",1,1,136,0) + Unload a Distribution +"PKG",214,22,1,"PAH",1,1,137,0) + Backup a Transport Global +"PKG",214,22,1,"PAH",1,1,138,0) + +"PKG",214,22,1,"PAH",1,1,139,0) + Select Installation Option: +"PKG",214,22,1,"PAH",1,1,140,0) + +"PKG",214,22,1,"PAH",1,1,141,0) + 3. Select Installation Option: +"PKG",214,22,1,"PAH",1,1,142,0) + +"PKG",214,22,1,"PAH",1,1,143,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",214,22,1,"PAH",1,1,144,0) + NAME, enter C0Q*1.0*5): +"PKG",214,22,1,"PAH",1,1,145,0) + +"PKG",214,22,1,"PAH",1,1,146,0) + a. Backup a Transport Global - This option will create a backup +"PKG",214,22,1,"PAH",1,1,147,0) + message of any routines exported with this patch. It will not +"PKG",214,22,1,"PAH",1,1,148,0) + backup any other changes such as DD's or templates. +"PKG",214,22,1,"PAH",1,1,149,0) + b. Compare Transport Global to Current System - This option will +"PKG",214,22,1,"PAH",1,1,150,0) + allow you to view all changes that will be made when this patch +"PKG",214,22,1,"PAH",1,1,151,0) + is installed. It compares all components of this patch +"PKG",214,22,1,"PAH",1,1,152,0) + (routines, DD's, templates, etc.). +"PKG",214,22,1,"PAH",1,1,153,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",214,22,1,"PAH",1,1,154,0) + you to ensure the integrity of the routines that are in the +"PKG",214,22,1,"PAH",1,1,155,0) + transport global. +"PKG",214,22,1,"PAH",1,1,156,0) + +"PKG",214,22,1,"PAH",1,1,157,0) + 4. Select Installation Option: Install Package(s) +"PKG",214,22,1,"PAH",1,1,158,0) + +"PKG",214,22,1,"PAH",1,1,159,0) + **This is the step to start the installation of this KIDS patch: +"PKG",214,22,1,"PAH",1,1,160,0) + +"PKG",214,22,1,"PAH",1,1,161,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",214,22,1,"PAH",1,1,162,0) + and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the +"PKG",214,22,1,"PAH",1,1,163,0) + Environment Check routine, the message below will display +"PKG",214,22,1,"PAH",1,1,164,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",214,22,1,"PAH",1,1,165,0) + Install? NO//' answer NO +"PKG",214,22,1,"PAH",1,1,166,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",214,22,1,"PAH",1,1,167,0) + NO//' answer NO +"PKG",214,22,1,"PAH",1,1,168,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",214,22,1,"PAH",1,1,169,0) + and Protocols? NO//' answer NO +"PKG",214,22,1,"PAH",1,1,170,0) + +"PKG",214,22,1,"PAH",1,1,171,0) + 5. Post installation: No post installation tasks are necessary. +"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") +3 +"RTN","C0Q1P5") +0^3^B619258 +"RTN","C0Q1P5",1,0) +C0Q1P5 ; VEN/SMH - KIDS not transporting Security Codes; workaround. ; 10/17/12 12:12pm +"RTN","C0Q1P5",2,0) + ;;1.0;QUALITY MEASURES;**5**;Oct 17, 2012;Build 10 +"RTN","C0Q1P5",3,0) + ;; +"RTN","C0Q1P5",4,0) + ; PEPs: TRAN, POST +"RTN","C0Q1P5",5,0) + ; +"RTN","C0Q1P5",6,0) + ; ZEXCEPT: XPDGREF +"RTN","C0Q1P5",7,0) +TRAN ; Pre-transport hook +"RTN","C0Q1P5",8,0) + M @XPDGREF@(1130580001.101)=^DIC(1130580001.101) +"RTN","C0Q1P5",9,0) + M @XPDGREF@(1130580001.201)=^DIC(1130580001.201) +"RTN","C0Q1P5",10,0) + M @XPDGREF@(1130580001.401)=^DIC(1130580001.401) +"RTN","C0Q1P5",11,0) + QUIT +"RTN","C0Q1P5",12,0) + ; +"RTN","C0Q1P5",13,0) + ; ZEXCEPT: XPDGREF +"RTN","C0Q1P5",14,0) +POST ; Post-install hook +"RTN","C0Q1P5",15,0) + M ^DIC(1130580001.101)=@XPDGREF@(1130580001.101) +"RTN","C0Q1P5",16,0) + M ^DIC(1130580001.201)=@XPDGREF@(1130580001.201) +"RTN","C0Q1P5",17,0) + M ^DIC(1130580001.401)=@XPDGREF@(1130580001.401) +"RTN","C0Q1P5",18,0) + QUIT +"RTN","C0QMU12") +0^1^B280797584 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm +"RTN","C0QMU12",2,0) + ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 10 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",29,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",30,0) + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX +"RTN","C0QMU12",31,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",32,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",34,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX +"RTN","C0QMU12",36,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",37,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",38,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",40,0) + . D CLEAN^DILF +"RTN","C0QMU12",41,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",42,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",43,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",44,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",45,0) + ; +"RTN","C0QMU12",46,0) + Q +"RTN","C0QMU12",47,0) + ; +"RTN","C0QMU12",48,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",49,0) + ; patient lists +"RTN","C0QMU12",50,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",51,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",52,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",53,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",54,0) + S ZYR="MU12-" +"RTN","C0QMU12",55,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",56,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",57,0) + N C0QPARM +"RTN","C0QMU12",58,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",59,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",60,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",61,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",62,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",63,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",64,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",65,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",66,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",67,0) + . I C0QPL D ; +"RTN","C0QMU12",68,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",69,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",70,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",71,0) + . K C0QLIST +"RTN","C0QMU12",72,0) + Q +"RTN","C0QMU12",73,0) + ; +"RTN","C0QMU12",74,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",75,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",76,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",77,0) + ; will be zeroed out +"RTN","C0QMU12",78,0) + ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!! +"RTN","C0QMU12",79,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",80,0) + S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP. +"RTN","C0QMU12",81,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",82,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",83,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",87,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",88,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",89,0) + S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",90,0) + Q +"RTN","C0QMU12",91,0) + ; +"RTN","C0QMU12",92,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",93,0) + N WARD S WARD="" +"RTN","C0QMU12",94,0) + F D Q:WARD="" +"RTN","C0QMU12",95,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",96,0) + . Q:WARD="" +"RTN","C0QMU12",97,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",98,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",99,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",100,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",101,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",102,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",103,0) + . . . D PROBLEM +"RTN","C0QMU12",104,0) + . . . D ALLERGY +"RTN","C0QMU12",105,0) + . . . D MEDS4 +"RTN","C0QMU12",106,0) + . . . D RECON2 +"RTN","C0QMU12",107,0) + . . . D ADVDIR +"RTN","C0QMU12",108,0) + . . . D SMOKING +"RTN","C0QMU12",109,0) + . . . D VITALS +"RTN","C0QMU12",110,0) + . . . D VTE1 +"RTN","C0QMU12",111,0) + . . . D COD +"RTN","C0QMU12",112,0) + . . . D EDTIME +"RTN","C0QMU12",113,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",114,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",115,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",116,0) + Q +"RTN","C0QMU12",117,0) + ; +"RTN","C0QMU12",118,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",119,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",120,0) + S PBCNT="" +"RTN","C0QMU12",121,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",122,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",123,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",124,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",125,0) + K PROBL +"RTN","C0QMU12",126,0) + Q +"RTN","C0QMU12",127,0) + ; +"RTN","C0QMU12",128,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",129,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",130,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",131,0) + S ALCNT="" +"RTN","C0QMU12",132,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",133,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",134,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",135,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",136,0) + K ALRGYL +"RTN","C0QMU12",137,0) + Q +"RTN","C0QMU12",138,0) + ; +"RTN","C0QMU12",139,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",140,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",141,0) + N BEG,END +"RTN","C0QMU12",142,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",143,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",144,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",145,0) + N C0QMEDS +"RTN","C0QMU12",146,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",147,0) + N FOUND +"RTN","C0QMU12",148,0) + N ZI +"RTN","C0QMU12",149,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",150,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",151,0) + E D ; HAS MEDS +"RTN","C0QMU12",152,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",153,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",154,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",155,0) + . N ZM +"RTN","C0QMU12",156,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",157,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",158,0) + . . S FOUND=1 +"RTN","C0QMU12",159,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",160,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",161,0) + Q +"RTN","C0QMU12",162,0) + ; +"RTN","C0QMU12",163,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",164,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",165,0) + ; +"RTN","C0QMU12",166,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",167,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",168,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",169,0) + N GT,G +"RTN","C0QMU12",170,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",171,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",172,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",173,0) + . S HASRECON=1 +"RTN","C0QMU12",174,0) + ;N ZT +"RTN","C0QMU12",175,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",176,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",177,0) + ;. S HASRECON=1 +"RTN","C0QMU12",178,0) + ;E D ; +"RTN","C0QMU12",179,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",180,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",181,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",182,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",183,0) + I HASRECON D ; +"RTN","C0QMU12",184,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",185,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",186,0) + Q +"RTN","C0QMU12",187,0) + ; +"RTN","C0QMU12",188,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",189,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",190,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",191,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",192,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",193,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",194,0) + Q +"RTN","C0QMU12",195,0) + ; +"RTN","C0QMU12",196,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",197,0) + N ZI S ZI="" +"RTN","C0QMU12",198,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",199,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",200,0) + . ;B +"RTN","C0QMU12",201,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",202,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",203,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",204,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",205,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",206,0) + . E D ; +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",208,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",209,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",210,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",211,0) + Q +"RTN","C0QMU12",212,0) + ; +"RTN","C0QMU12",213,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",214,0) + ; +"RTN","C0QMU12",215,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",216,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",217,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",218,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",219,0) + . E D ; +"RTN","C0QMU12",220,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",221,0) + Q +"RTN","C0QMU12",222,0) + ; +"RTN","C0QMU12",223,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",224,0) +VITALS ; +"RTN","C0QMU12",225,0) + ; +"RTN","C0QMU12",226,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",227,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",228,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",229,0) + S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5 +"RTN","C0QMU12",230,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",231,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",232,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",233,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",234,0) + Q +"RTN","C0QMU12",235,0) + ; +"RTN","C0QMU12",236,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",237,0) + ; +"RTN","C0QMU12",238,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",239,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",240,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",241,0) + Q +"RTN","C0QMU12",242,0) + ; +"RTN","C0QMU12",243,0) + ; +"RTN","C0QMU12",244,0) + ; +"RTN","C0QMU12",245,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",246,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",247,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",248,0) + Q +"RTN","C0QMU12",249,0) + ; +"RTN","C0QMU12",250,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",251,0) + N FOUND +"RTN","C0QMU12",252,0) + S FOUND=0 +"RTN","C0QMU12",253,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",254,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",255,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",256,0) + I FOUND D ; +"RTN","C0QMU12",257,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",258,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",259,0) + Q +"RTN","C0QMU12",260,0) + ; +"RTN","C0QMU12",261,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",262,0) + N ZICU +"RTN","C0QMU12",263,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",264,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",265,0) + S ZI="" +"RTN","C0QMU12",266,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",267,0) + . S ZJ="" +"RTN","C0QMU12",268,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",269,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",270,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",271,0) + Q +"RTN","C0QMU12",272,0) + ; +"RTN","C0QMU12",273,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",274,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",275,0) + K C0QLIST +"RTN","C0QMU12",276,0) + N ZPAT +"RTN","C0QMU12",277,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",278,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",279,0) + ; +"RTN","C0QMU12",280,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",281,0) + N GN,GO,GF +"RTN","C0QMU12",282,0) + S GN=ZPAT +"RTN","C0QMU12",283,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",284,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",285,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",286,0) + ; +"RTN","C0QMU12",287,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",288,0) + ; +"RTN","C0QMU12",289,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",290,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",291,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",292,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",293,0) + ; +"RTN","C0QMU12",294,0) + S GN=ZPAT +"RTN","C0QMU12",295,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",296,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",297,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",298,0) + ; +"RTN","C0QMU12",299,0) + S GN=ZPAT +"RTN","C0QMU12",300,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",301,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",302,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",303,0) + ; +"RTN","C0QMU12",304,0) + S GN=ZPAT +"RTN","C0QMU12",305,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",306,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",307,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",308,0) + ; +"RTN","C0QMU12",309,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",310,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",311,0) + Q +"RTN","C0QMU12",312,0) + ; +"RTN","C0QMU12",313,0) +ED1 ; +"RTN","C0QMU12",314,0) + S ZYR="MU12-" +"RTN","C0QMU12",315,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",316,0) + Q +"RTN","C0QMU12",317,0) + ; +"RTN","C0QMU12",318,0) +ED2 ; +"RTN","C0QMU12",319,0) + S ZYR="MU12-" +"RTN","C0QMU12",320,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",321,0) + Q +"RTN","C0QMU12",322,0) + ; +"RTN","C0QMU12",323,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",324,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",325,0) + N ZIEN,ZN +"RTN","C0QMU12",326,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",327,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",328,0) + Q ZN +"RTN","C0QMU12",329,0) + ; +"RTN","C0QMU12",330,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",331,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",332,0) + N ZIEN,ZN +"RTN","C0QMU12",333,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",334,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",335,0) + Q ZN +"RTN","C0QMU12",336,0) + ; +"RTN","C0QMU12",337,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",338,0) + N ZL,ZR +"RTN","C0QMU12",339,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",340,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",341,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",342,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",343,0) + Q ZR +"RTN","C0QMU12",344,0) + ; +"RTN","C0QMU12",345,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",346,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",347,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",348,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",349,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",350,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",351,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",352,0) + N ZI +"RTN","C0QMU12",353,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",354,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",355,0) + . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5 +"RTN","C0QMU12",356,0) + . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5 +"RTN","C0QMU12",357,0) + . I ZI="" Q ; +"RTN","C0QMU12",358,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",359,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",360,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",361,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",362,0) + Q +"RTN","C0QMU12",363,0) + ; +"RTN","C0QMU12",364,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",365,0) + ; +"RTN","C0QMU12",366,0) + S DTE=3111000 +"RTN","C0QMU12",367,0) + S MUYR=ZYR +"RTN","C0QMU12",368,0) + N ZC,ZN +"RTN","C0QMU12",369,0) + S ZN=0 +"RTN","C0QMU12",370,0) + N ZI S ZI=0 +"RTN","C0QMU12",371,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",372,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",373,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",374,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",375,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",376,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",377,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",378,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",379,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",380,0) + Q +"RTN","C0QMU12",381,0) + ; +"RTN","C0QMU12",382,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",383,0) + S ZYR="MU12-" +"RTN","C0QMU12",384,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",385,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",386,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",387,0) + N ZI S ZI="" +"RTN","C0QMU12",388,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",389,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",390,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",391,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",392,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",393,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",394,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",395,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",396,0) + S DFN="" +"RTN","C0QMU12",397,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",398,0) + D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have +"RTN","C0QMU12",399,0) + ; any. C0Q*1*5 +"RTN","C0QMU12",400,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",401,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",402,0) + . D PROBLEM +"RTN","C0QMU12",403,0) + . D ALLERGY +"RTN","C0QMU12",404,0) + . ;D MEDS +"RTN","C0QMU12",405,0) + . D ERX +"RTN","C0QMU12",406,0) + . D SMOKING +"RTN","C0QMU12",407,0) + . D VITALS +"RTN","C0QMU12",408,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",409,0) + ; +"RTN","C0QMU12",410,0) + ; Now process eRx MU measures for these patients +"RTN","C0QMU12",411,0) + ; Check for eRx template and code first; if they exist, run the code +"RTN","C0QMU12",412,0) + I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO +"RTN","C0QMU12",413,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",414,0) + . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list +"RTN","C0QMU12",415,0) + ; +"RTN","C0QMU12",416,0) + N ZI S ZI="" +"RTN","C0QMU12",417,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",418,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",419,0) + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",420,0) + . ; VEN/SMH -- Quality Set missing for Outpatient -- adding +"RTN","C0QMU12",421,0) + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5 +"RTN","C0QMU12",422,0) + Q +"RTN","C0QMU12",423,0) + ; +"RTN","C0QMU12",424,0) +DIS ; +"RTN","C0QMU12",425,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",426,0) + F D Q:DTE="" +"RTN","C0QMU12",427,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",428,0) + . Q:'DTE +"RTN","C0QMU12",429,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",430,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",431,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",432,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",433,0) + . D +"RTN","C0QMU12",434,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",435,0) + . . Q:'PTFM +"RTN","C0QMU12",436,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",437,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",438,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",439,0) + . . D PROBLEM +"RTN","C0QMU12",440,0) + . . D ALLERGY +"RTN","C0QMU12",441,0) + . . D MEDS4 +"RTN","C0QMU12",442,0) + . . D RECON2 +"RTN","C0QMU12",443,0) + . . D ADVDIR +"RTN","C0QMU12",444,0) + . . D SMOKING +"RTN","C0QMU12",445,0) + . . D VITALS +"RTN","C0QMU12",446,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",447,0) + . . D VTE1 +"RTN","C0QMU12",448,0) + . . D COD +"RTN","C0QMU12",449,0) + . . D EDTIME +"RTN","C0QMU12",450,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",451,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",452,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",453,0) + Q +"RTN","C0QMU12",454,0) + ; +"RTN","C0QMU12",455,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",456,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",457,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",458,0) + ; +"RTN","C0QMU12",459,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",460,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",461,0) + N ZI,ZN +"RTN","C0QMU12",462,0) + S ZI="" +"RTN","C0QMU12",463,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",464,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",465,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",466,0) + . . K C0QFDA +"RTN","C0QMU12",467,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",468,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",469,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",470,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",471,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",472,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",473,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",474,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",475,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",476,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",477,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",478,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",479,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",480,0) + . N ZJ,ZK +"RTN","C0QMU12",481,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",482,0) + . K C0QFDA +"RTN","C0QMU12",483,0) + . S ZJ="" +"RTN","C0QMU12",484,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",485,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",486,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",487,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",488,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",489,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",490,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",491,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",492,0) + . K C0QFDA +"RTN","C0QMU12",493,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",494,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",495,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",496,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",497,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",498,0) + ;. Q +"RTN","C0QMU12",499,0) + ;. K C0QFDA +"RTN","C0QMU12",500,0) + ;. N ZJ,ZC +"RTN","C0QMU12",501,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",502,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",503,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",504,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",505,0) + ;. D UPDIE +"RTN","C0QMU12",506,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",507,0) + Q +"RTN","C0QMU12",508,0) + ; +"RTN","C0QMU12",509,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",510,0) + ; +"RTN","C0QMU12",511,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",512,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",513,0) + D CLEAN^DILF +"RTN","C0QMU12",514,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",515,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",516,0) + D CLEAN^DILF +"RTN","C0QMU12",517,0) + K ZERR +"RTN","C0QMU12",518,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",519,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",520,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",521,0) + ;. W "ERROR",! +"RTN","C0QMU12",522,0) + ;. ZWR ZERR +"RTN","C0QMU12",523,0) + ;. B +"RTN","C0QMU12",524,0) + K C0QFDA +"RTN","C0QMU12",525,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",526,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",527,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",528,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",529,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",530,0) + ; +"RTN","C0QMU12",531,0) + Q ZR +"RTN","C0QMU12",532,0) + ; +"RTN","C0QMU12",533,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",534,0) + K ZERR +"RTN","C0QMU12",535,0) + D CLEAN^DILF +"RTN","C0QMU12",536,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",537,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",538,0) + K C0QFDA +"RTN","C0QMU12",539,0) + Q +"RTN","C0QMU12",540,0) + ; +"RTN","C0QMU12",541,0) +END ;end of C0QPRML; +"RTN","C0QUPDT") +0^2^B78768309 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 10/17/12 12:09pm +"RTN","C0QUPDT",2,0) + ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 10 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +"RTN","C0QUPDT",30,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",31,0) + ; +"RTN","C0QUPDT",32,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",33,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",34,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",35,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",36,0) + ; +"RTN","C0QUPDT",37,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",38,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",39,0) + ; +"RTN","C0QUPDT",40,0) + N ZI S ZI="" +"RTN","C0QUPDT",41,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",42,0) + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? +"RTN","C0QUPDT",43,0) + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" +"RTN","C0QUPDT",44,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",45,0) + D DELIST("C0QM") +"RTN","C0QUPDT",46,0) + N ZII S ZII="" +"RTN","C0QUPDT",47,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",48,0) + . ; +"RTN","C0QUPDT",49,0) + . ; Special processing for eRx measure. +"RTN","C0QUPDT",50,0) + . I $$GET1^DIQ(1130580001.101,+C0QM(ZII)_",",4,"I")="E" D ERXCOUNT(MSET,ZII) Q +"RTN","C0QUPDT",51,0) + . ; +"RTN","C0QUPDT",52,0) + . ; Otherwise, we go on +"RTN","C0QUPDT",53,0) + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD,C0QNALT ; VEN/SMH - line changed in *5 +"RTN","C0QUPDT",54,0) + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST +"RTN","C0QUPDT",55,0) + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST +"RTN","C0QUPDT",56,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",57,0) + . ; +"RTN","C0QUPDT",58,0) + . ; Numerator +"RTN","C0QUPDT",59,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",60,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",61,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",62,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",63,0) + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh +"RTN","C0QUPDT",64,0) + . ; +"RTN","C0QUPDT",65,0) + . ; Denominator +"RTN","C0QUPDT",66,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",67,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",68,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",69,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",70,0) + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh +"RTN","C0QUPDT",71,0) + . ; +"RTN","C0QUPDT",72,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",73,0) + . ; +"RTN","C0QUPDT",74,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",75,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",76,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",77,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",78,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",79,0) + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST +"RTN","C0QUPDT",80,0) + . . N ZNEW +"RTN","C0QUPDT",81,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",82,0) + . . K C0QFLTRD +"RTN","C0QUPDT",83,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",84,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",85,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",86,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",87,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",88,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",89,0) + . N C0QCNT +"RTN","C0QUPDT",90,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",91,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",92,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",93,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",94,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",95,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",96,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",97,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",98,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",99,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",100,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",101,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",102,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",103,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",104,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",105,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",106,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",107,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",108,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",109,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",110,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",111,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",112,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",113,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",114,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",115,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",116,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",117,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",118,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",119,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",120,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",121,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",122,0) + . ; +"RTN","C0QUPDT",123,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",124,0) + . ; +"RTN","C0QUPDT",125,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",126,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",127,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",128,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",129,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",130,0) + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST +"RTN","C0QUPDT",131,0) + . . N ZNEW +"RTN","C0QUPDT",132,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",133,0) + . . K C0QFLTRD +"RTN","C0QUPDT",134,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",135,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",136,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",137,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",138,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",139,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",140,0) + . N C0QDCNT +"RTN","C0QUPDT",141,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",142,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",143,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",144,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",145,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",146,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",147,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",148,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",149,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",150,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",151,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",152,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",153,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",154,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",155,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",156,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",157,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",158,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",159,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",160,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",161,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",162,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",163,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",164,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",165,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",166,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",167,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",168,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",169,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",170,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",171,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",172,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",173,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",174,0) + . ; +"RTN","C0QUPDT",175,0) + . ; File Percentage +"RTN","C0QUPDT",176,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",177,0) + . D ; +"RTN","C0QUPDT",178,0) + . . I C0QDCNT>0 D ; +"RTN","C0QUPDT",179,0) + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",180,0) + . . E S C0QPCT=0 +"RTN","C0QUPDT",181,0) + . . K C0QFDA +"RTN","C0QUPDT",182,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",183,0) + . . D UPDIE +"RTN","C0QUPDT",184,0) + Q +"RTN","C0QUPDT",185,0) + ; +"RTN","C0QUPDT",186,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",187,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",188,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",189,0) + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD +"RTN","C0QUPDT",190,0) + S ZI="" +"RTN","C0QUPDT",191,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",192,0) + K @RTN +"RTN","C0QUPDT",193,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",194,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",195,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",196,0) + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST +"RTN","C0QUPDT",197,0) + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST +"RTN","C0QUPDT",198,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",199,0) + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD +"RTN","C0QUPDT",200,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",201,0) + Q +"RTN","C0QUPDT",202,0) + ; +"RTN","C0QUPDT",203,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",204,0) + K ZERR +"RTN","C0QUPDT",205,0) + D CLEAN^DILF +"RTN","C0QUPDT",206,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QUPDT",207,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",208,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",209,0) + ;. W "ERROR",! +"RTN","C0QUPDT",210,0) + ;. ZWR ZERR +"RTN","C0QUPDT",211,0) + ;. B +"RTN","C0QUPDT",212,0) + K C0QFDA +"RTN","C0QUPDT",213,0) + Q +"RTN","C0QUPDT",214,0) + ; +"RTN","C0QUPDT",215,0) +ERXCOUNT(MSETIEN,MIEN) ; Private Proc; Get eRx and file as Numerator, Denominator, and % +"RTN","C0QUPDT",216,0) + ; Inputs: +"RTN","C0QUPDT",217,0) + ; MSETIEN - Measurement Set IEN - By Value +"RTN","C0QUPDT",218,0) + ; MIEN - Measurement IEN inside the Measurement Set - By Value +"RTN","C0QUPDT",219,0) + ; +"RTN","C0QUPDT",220,0) + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. +"RTN","C0QUPDT",221,0) + ; ZEXCEPT: C0QDEBUG ; For Dr. Ivey's parser. +"RTN","C0QUPDT",222,0) + ; +"RTN","C0QUPDT",223,0) + ; No check is done to see if the caller is sending bad data. Measurement must be +"RTN","C0QUPDT",224,0) + ; in a subfile under Measurement Set. +"RTN","C0QUPDT",225,0) + ; +"RTN","C0QUPDT",226,0) + W:$G(C0QDEBUG) "Processing E-Prescribing Counts",! +"RTN","C0QUPDT",227,0) + ; Example of Data we go through in the C0Q Parameter File, so the code below +"RTN","C0QUPDT",228,0) + ; will make sense. +"RTN","C0QUPDT",229,0) + ; ^C0Q(401,"AMMS",2,1)="" +"RTN","C0QUPDT",230,0) + ; ^C0Q(401,"AMMS",2,2)="" +"RTN","C0QUPDT",231,0) + ; ^C0Q(401,"AQMS",6,2)="" +"RTN","C0QUPDT",232,0) + ; ^C0Q(401,"B","INPATIENT",2)="" +"RTN","C0QUPDT",233,0) + ; ^C0Q(401,"B","OUTPATIENT",1)="" +"RTN","C0QUPDT",234,0) + ; ^C0Q(401,"MU","MU12",1)="" +"RTN","C0QUPDT",235,0) + ; ^C0Q(401,"MU","MU12",2)="" +"RTN","C0QUPDT",236,0) + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" +"RTN","C0QUPDT",237,0) + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" +"RTN","C0QUPDT",238,0) + ; +"RTN","C0QUPDT",239,0) + ; Get Parameter year from the Parameters file. +"RTN","C0QUPDT",240,0) + ; 1. Get parameter associated with this measurement set from AMMS x-ref (new in C0Q*1*1). +"RTN","C0QUPDT",241,0) + N C0QPARAM +"RTN","C0QUPDT",242,0) + N % S %="" F S %=$O(^C0Q(401,"AMMS",MSETIEN,%)) Q:%="" S C0QPARAM(%)="" +"RTN","C0QUPDT",243,0) + ; +"RTN","C0QUPDT",244,0) + ; 2. Find the year for each of those--store as value of node; IEN still subscript. +"RTN","C0QUPDT",245,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" S C0QPARAM(%)=$$GET1^DIQ(1130580001.401,%_",",.02) +"RTN","C0QUPDT",246,0) + ; +"RTN","C0QUPDT",247,0) + ; 3. Now make sure that this parameter that point to an Outpatient Parameters +"RTN","C0QUPDT",248,0) + ; WARNING: CONFUSING CODE WRITTEN BY ME AHEAD +"RTN","C0QUPDT",249,0) + ; The % loop will stop with a valid value if found; % is used in the lines immediately below +"RTN","C0QUPDT",250,0) + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" Q:$D(^C0Q(401,"MUTYP",C0QPARAM(%),"EP",%)) +"RTN","C0QUPDT",251,0) + ; +"RTN","C0QUPDT",252,0) + ; 4. If % has a valid IEN (there can be multiple, we take the first), then off we go. +"RTN","C0QUPDT",253,0) + ; Otherwise, if it is back to "", we quit. +"RTN","C0QUPDT",254,0) + N MUYEAR +"RTN","C0QUPDT",255,0) + IF '% W "No suitable parameter found. Cannot determine Measurement Year.",! QUIT +"RTN","C0QUPDT",256,0) + ELSE S MUYEAR=C0QPARAM(%) +"RTN","C0QUPDT",257,0) + ; +"RTN","C0QUPDT",258,0) + ; Now, based on the MU year, construct the patient list name that has the eRx data. +"RTN","C0QUPDT",259,0) + N LISTNAME S LISTNAME=MUYEAR_"-"_"EP"_"-"_"HasERX" +"RTN","C0QUPDT",260,0) + ; +"RTN","C0QUPDT",261,0) + ; Call the API in C0QMUERX to get the counts already calculated +"RTN","C0QUPDT",262,0) + ; Data is returned NUM/DEN +"RTN","C0QUPDT",263,0) + N COUNTS S COUNTS=$$COUNT^C0QMUERX($$PATLN^C0QMU12(LISTNAME)) +"RTN","C0QUPDT",264,0) + ; +"RTN","C0QUPDT",265,0) + ; File the count +"RTN","C0QUPDT",266,0) + N NUM S NUM=$P(COUNTS,"/") ; Numerator +"RTN","C0QUPDT",267,0) + N DEN S DEN=$P(COUNTS,"/",2) ; Denominator +"RTN","C0QUPDT",268,0) + ; +"RTN","C0QUPDT",269,0) + ; Prepare FDA +"RTN","C0QUPDT",270,0) + N C0QFDA,C0QERR +"RTN","C0QUPDT",271,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",1.1)=NUM ; Numerator +"RTN","C0QUPDT",272,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",2.1)=DEN ; Denominator +"RTN","C0QUPDT",273,0) + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",3)=$S(DEN=0:0,1:$J(100*NUM/DEN,0,0)) ; Percentage; avoid dividing by zero! +"RTN","C0QUPDT",274,0) + ; +"RTN","C0QUPDT",275,0) + ; File FDA using Filer not updater (editing existing entry only) +"RTN","C0QUPDT",276,0) + D FILE^DIE("ET",$NAME(C0QFDA),$NAME(C0QERR)) ; Flags: External, Transaction +"RTN","C0QUPDT",277,0) + ; +"RTN","C0QUPDT",278,0) + ; If error, print it out +"RTN","C0QUPDT",279,0) + I $D(C0QERR) DO +"RTN","C0QUPDT",280,0) + . W "Error filing data",! +"RTN","C0QUPDT",281,0) + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! +"RTN","C0QUPDT",282,0) + ; +"RTN","C0QUPDT",283,0) + QUIT +"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") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"AUDIT") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DD") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DEL") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"LAYGO") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"RD") + +"SEC","^DIC",1130580001.401,1130580001.401,0,"WR") + +"TEMP",1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"TEMP",1130580001.101,0,"AUDIT") +@ +"TEMP",1130580001.101,0,"DD") +@ +"TEMP",1130580001.101,0,"DEL") +@ +"TEMP",1130580001.101,0,"GL") +^C0Q(101, +"TEMP",1130580001.101,0,"LAYGO") + +"TEMP",1130580001.101,0,"RD") + +"TEMP",1130580001.101,0,"WR") + +"TEMP",1130580001.101,"%",0) +^1.005^^ +"TEMP",1130580001.201,0) +C0Q MEASUREMENT SET^1130580001.201 +"TEMP",1130580001.201,0,"AUDIT") +@ +"TEMP",1130580001.201,0,"DD") +@ +"TEMP",1130580001.201,0,"DEL") + +"TEMP",1130580001.201,0,"GL") +^C0Q(201, +"TEMP",1130580001.201,0,"LAYGO") + +"TEMP",1130580001.201,0,"RD") + +"TEMP",1130580001.201,0,"WR") + +"TEMP",1130580001.201,"%",0) +^1.005^^0 +"TEMP",1130580001.201,"%D",0) +^^3^3^3120731^ +"TEMP",1130580001.201,"%D",1,0) +This file contains the groupings of Measurements found in the Quality +"TEMP",1130580001.201,"%D",2,0) +Measures file. It is tied to the parameters file as the set of +"TEMP",1130580001.201,"%D",3,0) +measurements to report for a site. +"TEMP",1130580001.401,0) +C0Q PARAMETER^1130580001.401 +"TEMP",1130580001.401,0,"AUDIT") +@ +"TEMP",1130580001.401,0,"DD") +@ +"TEMP",1130580001.401,0,"DEL") + +"TEMP",1130580001.401,0,"GL") +^C0Q(401, +"TEMP",1130580001.401,0,"LAYGO") + +"TEMP",1130580001.401,0,"RD") + +"TEMP",1130580001.401,0,"WR") + +"TEMP",1130580001.401,"%",0) +^1.005^^0 +"TEMP",1130580001.401,"%D",0) +^^7^7^3120103^ +"TEMP",1130580001.401,"%D",1,0) +This parameter file was created by George Lilly 12/2011 for the C0Q +"TEMP",1130580001.401,"%D",2,0) +Meaningful Use and Quality Measurement Project funded in part by Oroville +"TEMP",1130580001.401,"%D",3,0) +Hospital. It controls the updating of Meaningful Use patient lists and +"TEMP",1130580001.401,"%D",4,0) +C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this +"TEMP",1130580001.401,"%D",5,0) +file should be updated using the C0Q SETUP options because the +"TEMP",1130580001.401,"%D",6,0) +combiniation of fields in each record varies depending on the updating +"TEMP",1130580001.401,"%D",7,0) +behavior that is desired. +"VER") +8.0^22.0 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^19 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) + +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") + +"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) + +"^DD",1130580001.101,1130580001.101,0,"VRPK") +C0Q +"^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,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.2,0) +NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,1.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,1.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,1.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,1.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,1.2,21,1,0) +This is the numerator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,1.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,1.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,1.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,1.2,21,5,0) +the measure. This count is for the numerator. +"^DD",1130580001.101,1130580001.101,1.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,2.2,0) +DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X +"^DD",1130580001.101,1130580001.101,2.2,3) +Enter the reminder rule set to use for this measure. +"^DD",1130580001.101,1130580001.101,2.2,12) +If the type of the reminder list rule is a Rule Set. +"^DD",1130580001.101,1130580001.101,2.2,12.1) +S DIC("S")="I $P(^(0),U,3)=3" +"^DD",1130580001.101,1130580001.101,2.2,21,0) +^^5^5^3120716^ +"^DD",1130580001.101,1130580001.101,2.2,21,1,0) +This is the denominator reminder rule set to use for the quality measure. +"^DD",1130580001.101,1130580001.101,2.2,21,2,0) + +"^DD",1130580001.101,1130580001.101,2.2,21,3,0) +The rule set is used to generate a patient list, which this package +"^DD",1130580001.101,1130580001.101,2.2,21,4,0) +referneces. The contents of the patient list will produce the count for +"^DD",1130580001.101,1130580001.101,2.2,21,5,0) +the measure. This count is for the denominator. +"^DD",1130580001.101,1130580001.101,2.2,"DT") +3120716 +"^DD",1130580001.101,1130580001.101,2.5,0) +EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q +"^DD",1130580001.101,1130580001.101,2.5,3) +Select a Reminder Extract Definition for this measure +"^DD",1130580001.101,1130580001.101,2.5,21,0) +^^4^4^3120726^ +"^DD",1130580001.101,1130580001.101,2.5,21,1,0) +If this measure depends upon a reminder extract definition, you can add +"^DD",1130580001.101,1130580001.101,2.5,21,2,0) +this extract definition here. This will alter how the Quality Measures +"^DD",1130580001.101,1130580001.101,2.5,21,3,0) +package computes the measure to use the extract in addition and prior to +"^DD",1130580001.101,1130580001.101,2.5,21,4,0) +the rule sets. +"^DD",1130580001.101,1130580001.101,2.5,"DT") +3120726 +"^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) + +"^DD",1130580001.101,1130580001.101,3,3) +Answer must be 3-120 characters in length +"^DD",1130580001.101,1130580001.101,3,21,0) +^^2^2^3120731^^ +"^DD",1130580001.101,1130580001.101,3,21,1,0) +Measure template root for the QRDA Document. A series of . delimited +"^DD",1130580001.101,1130580001.101,3,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.101,1130580001.101,3,"DT") +3120731 +"^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.101,4,0) +MEASURE TYPE^S^P:Performance;Q:Quality;E:Electronic Prescribing Performance;^0;5^Q +"^DD",1130580001.101,1130580001.101,4,3) +Enter a code P, Q or E +"^DD",1130580001.101,1130580001.101,4,21,0) +^^19^19^3120530^ +"^DD",1130580001.101,1130580001.101,4,21,1,0) +This field designates the measure type. It can be P, Q or M. +"^DD",1130580001.101,1130580001.101,4,21,2,0) + +"^DD",1130580001.101,1130580001.101,4,21,3,0) +P is for Performance. Performance measures are MU measures to measure +"^DD",1130580001.101,1130580001.101,4,21,4,0) +how meaningfully used an EMR is. An example of a performance measure +"^DD",1130580001.101,1130580001.101,4,21,5,0) +is whether allergies are documented in the EMR. Performance measures +"^DD",1130580001.101,1130580001.101,4,21,6,0) +reference a Patient List created by this package. +"^DD",1130580001.101,1130580001.101,4,21,7,0) + +"^DD",1130580001.101,1130580001.101,4,21,8,0) +Q is for Quality Measures. Quality measures are MU measures to assess how +"^DD",1130580001.101,1130580001.101,4,21,9,0) +well the patients are cared for. An example of a quality measure is +"^DD",1130580001.101,1130580001.101,4,21,10,0) +whether Hemoglobin A1c Poor Control. Quality measures reference Patient +"^DD",1130580001.101,1130580001.101,4,21,11,0) +Lists in the Reminders package. +"^DD",1130580001.101,1130580001.101,4,21,12,0) + +"^DD",1130580001.101,1130580001.101,4,21,13,0) +E is for Electronic Prescribing. This is a Performance measure, except +"^DD",1130580001.101,1130580001.101,4,21,14,0) +that it is handled differently than the rest. Instead of the numerators +"^DD",1130580001.101,1130580001.101,4,21,15,0) +and denominators being lists of patients as with all the other +"^DD",1130580001.101,1130580001.101,4,21,16,0) +measurements, they are a number of prescriptions. That's why we have a +"^DD",1130580001.101,1130580001.101,4,21,17,0) +special flag for it. It references a Patient List created by this +"^DD",1130580001.101,1130580001.101,4,21,18,0) +package. The numerator and denominators are stored in subfiles for each +"^DD",1130580001.101,1130580001.101,4,21,19,0) +patient. +"^DD",1130580001.101,1130580001.101,4,23,0) +^^4^4^3120530^ +"^DD",1130580001.101,1130580001.101,4,23,1,0) +As of version C0P*1.0*1, the software doesn't use this field except to +"^DD",1130580001.101,1130580001.101,4,23,2,0) +check for an electronic prescribing type (code E). +"^DD",1130580001.101,1130580001.101,4,23,3,0) + +"^DD",1130580001.101,1130580001.101,4,23,4,0) +I anticipate using this field for other purposes in the future. +"^DD",1130580001.101,1130580001.101,4,"DT") +3120530 +"^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^^.4^9 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3120801 +"^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 MEASUREMENT SET") + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3) + +"^DD",1130580001.201,1130580001.201,0,"VRPK") +C0Q +"^DD",1130580001.201,1130580001.201,.01,0) +NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.201,1130580001.201,.01,.1) + +"^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) +Answer must be 3-30 characters in length. +"^DD",1130580001.201,1130580001.201,.01,21,0) +^^1^1^3120731^ +"^DD",1130580001.201,1130580001.201,.01,21,1,0) +Measurement Set Name. +"^DD",1130580001.201,1130580001.201,.01,"DT") +3120731 +"^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,.3,0) +MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.201,1130580001.201,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.201,1130580001.201,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.201,1130580001.201,.3,"DT") +3111129 +"^DD",1130580001.201,1130580001.201,.4,0) +QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X +"^DD",1130580001.201,1130580001.201,.4,3) +Answer must be 3-120 characters in length. +"^DD",1130580001.201,1130580001.201,.4,21,0) +^^6^6^3120731^ +"^DD",1130580001.201,1130580001.201,.4,21,1,0) +Measure template root for the Measurement Set. A series of . delimited +"^DD",1130580001.201,1130580001.201,.4,21,2,0) +numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 +"^DD",1130580001.201,1130580001.201,.4,21,3,0) + +"^DD",1130580001.201,1130580001.201,.4,21,4,0) +Most measurement sets don't have that. Only measurement sets reporable as +"^DD",1130580001.201,1130580001.201,.4,21,5,0) +a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled +"^DD",1130580001.201,1130580001.201,.4,21,6,0) +out as it is reported in the QRDA document. +"^DD",1130580001.201,1130580001.201,.4,"DT") +3120731 +"^DD",1130580001.201,1130580001.201,1,0) +MEASURE^1130580001.2011P^^5;0 +"^DD",1130580001.201,1130580001.2011,0) +MEASURE SUB-FIELD^^2.2^8 +"^DD",1130580001.201,1130580001.2011,0,"DT") +3120801 +"^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) + +"^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") +3120801 +"^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,1.2,0) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"^DD",1130580001.201,1130580001.2011,1.2,.1) +FILTER LIST FOR NUMERATOR +"^DD",1130580001.201,1130580001.2011,1.2,"DT") +3111129 +"^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,2.2,0) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"^DD",1130580001.201,1130580001.2011,2.2,.1) +FILTER LIST FOR DENOMINATOR +"^DD",1130580001.201,1130580001.2011,2.2,"DT") +3111129 +"^DD",1130580001.201,1130580001.2011,3,0) +PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.401,1130580001.401,0) +FIELD^^1.015^14 +"^DD",1130580001.401,1130580001.401,0,"DDA") +N +"^DD",1130580001.401,1130580001.401,0,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,0,"IX","AMMS",1130580001.401,2) + +"^DD",1130580001.401,1130580001.401,0,"IX","AQMS",1130580001.401,2.1) + +"^DD",1130580001.401,1130580001.401,0,"IX","B",1130580001.401,.01) + +"^DD",1130580001.401,1130580001.401,0,"NM","C0Q PARAMETER") + +"^DD",1130580001.401,1130580001.401,0,"VRPK") +QUALITY MEASURES +"^DD",1130580001.401,1130580001.401,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.401,1130580001.401,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,.01,1,1,0) +1130580001.401^B +"^DD",1130580001.401,1130580001.401,.01,1,1,1) +S ^C0Q(401,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,.01,1,1,2) +K ^C0Q(401,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.401,1130580001.401,.02,0) +MEASUREMENT PERIOD KEY^F^^0;2^K:$L(X)>60!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,.02,.1) +YEAR KEY FOR MEASUREMENT PERIOD IE MU12 +"^DD",1130580001.401,1130580001.401,.02,3) +Answer must be 1-60 characters in length. +"^DD",1130580001.401,1130580001.401,.02,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,.02,21,1,0) +Meaningful Use and Quality Measures are generally computed for a +"^DD",1130580001.401,1130580001.401,.02,21,2,0) +particular fiscal year. The Measurement Period Key changes every year +"^DD",1130580001.401,1130580001.401,.02,21,3,0) +when new parameters are set up to govern the computations for that year. +"^DD",1130580001.401,1130580001.401,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,.03,0) +PARAMETER TYPE^S^INP:INPATIENT;EP:OUTPATIENT;ALL:SUPERUSERS;^0;3^Q +"^DD",1130580001.401,1130580001.401,.03,.1) +C0Q PARAMETER TYPE +"^DD",1130580001.401,1130580001.401,.03,21,0) +^^6^6^3120103^ +"^DD",1130580001.401,1130580001.401,.03,21,1,0) +If the current parameter record is type INP it will define the processing +"^DD",1130580001.401,1130580001.401,.03,21,2,0) +for inpatient patients. Type EP defines the processing for one group of +"^DD",1130580001.401,1130580001.401,.03,21,3,0) +oupatient patients where a group is the patients with a visit at one or +"^DD",1130580001.401,1130580001.401,.03,21,4,0) +more clinics specified in the CLINIC multiple. Type ALL is used to +"^DD",1130580001.401,1130580001.401,.03,21,5,0) +specify a set of subscribers who have access to all Measurement Sets in +"^DD",1130580001.401,1130580001.401,.03,21,6,0) +the specifies Measurement Period. +"^DD",1130580001.401,1130580001.401,.03,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1,0) +INP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;4^Q +"^DD",1130580001.401,1130580001.401,1,.1) +INPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1.015,0) +DIVISION REPORTING^P40.8'^DG(40.8,^4;1^Q +"^DD",1130580001.401,1130580001.401,1.015,.1) +MEDICAL CENTER DIVISION FOR THIS PARAMETER +"^DD",1130580001.401,1130580001.401,1.015,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,1.1,0) +INP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;5^Q +"^DD",1130580001.401,1130580001.401,1.1,.1) +INPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2,0) +EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q +"^DD",1130580001.401,1130580001.401,2,.1) +OUTPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2,1,1,0) +1130580001.401^AMMS +"^DD",1130580001.401,1130580001.401,2,1,1,1) +S ^C0Q(401,"AMMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2,1,1,2) +K ^C0Q(401,"AMMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",0) +^.101^5^5^3120530^^^ +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2,1,1,"%D",5,0) +$O(^C0Q(401,"AMMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.1,0) +EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q +"^DD",1130580001.401,1130580001.401,2.1,.1) +OUTPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2.1,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,2.1,1,1,0) +1130580001.401^AQMS +"^DD",1130580001.401,1130580001.401,2.1,1,1,1) +S ^C0Q(401,"AQMS",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,2.1,1,1,2) +K ^C0Q(401,"AQMS",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,2.1,1,1,3) +USED BY THE CODE. SEE DESCRIPTION. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",0) +^^5^5^3120530^ +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",1,0) +Indexes the IEN of the Measurement Set. Used so that we can walk back to +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",2,0) +a parameter when processing a specific IEN. +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",3,0) + +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",4,0) +You can get the IEN of the measurement set using +"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",5,0) +$O(^C0Q(401,"AQMS",MSIEN,"")). +"^DD",1130580001.401,1130580001.401,2.1,1,1,"DT") +3120530 +"^DD",1130580001.401,1130580001.401,2.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.2,0) +CLINIC^1130580001.411P^^1;0 +"^DD",1130580001.401,1130580001.401,2.3,0) +PATIENT LIST LABEL^F^^2;1^K:$L(X)>20!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,2.3,.1) +MU PATIENT LIST LABEL +"^DD",1130580001.401,1130580001.401,2.3,3) +Answer must be 1-20 characters in length. +"^DD",1130580001.401,1130580001.401,2.3,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,2.3,21,1,0) +When there is more than one clinic in this reporting group, this field is +"^DD",1130580001.401,1130580001.401,2.3,21,2,0) +used to contain a label for the patient lists. If it is not defined, the +"^DD",1130580001.401,1130580001.401,2.3,21,3,0) +name of the first clinic defined is used as the label. +"^DD",1130580001.401,1130580001.401,2.3,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,3,0) +SUBSCRIBER^1130580001.4013P^^3;0 +"^DD",1130580001.401,1130580001.401,5.1,0) +VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q +"^DD",1130580001.401,1130580001.401,5.1,3) +Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.1,21,0) +^^3^3^3120801^^^ +"^DD",1130580001.401,1130580001.401,5.1,21,1,0) +This field holds the VTE measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.1,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.1,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.1,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.1,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.1,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.1,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.1,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.2,0) +STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q +"^DD",1130580001.401,1130580001.401,5.2,3) +Enter STK Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.2,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,21,1,0) +This field holds the STK measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.2,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.2,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.2,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.2,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.2,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.2,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.2,"DT") +3120801 +"^DD",1130580001.401,1130580001.401,5.3,0) +ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q +"^DD",1130580001.401,1130580001.401,5.3,3) +Enter ED Measure Set to use for Inpatient CMS QRDA Reporting +"^DD",1130580001.401,1130580001.401,5.3,21,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,21,1,0) +This field holds the ED measure set for reporting information to the +"^DD",1130580001.401,1130580001.401,5.3,21,2,0) +Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) +"^DD",1130580001.401,1130580001.401,5.3,21,3,0) +2012 EHR incentive pilot. +"^DD",1130580001.401,1130580001.401,5.3,23,0) +^^3^3^3120801^ +"^DD",1130580001.401,1130580001.401,5.3,23,1,0) +See +"^DD",1130580001.401,1130580001.401,5.3,23,2,0) +http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% +"^DD",1130580001.401,1130580001.401,5.3,23,3,0) +2FQnetTier3&cid=1228772217179 +"^DD",1130580001.401,1130580001.401,5.3,"DT") +3120801 +"^DD",1130580001.401,1130580001.4013,0) +SUBSCRIBER SUB-FIELD^^.02^2 +"^DD",1130580001.401,1130580001.4013,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,0,"IX","B",1130580001.4013,.01) + +"^DD",1130580001.401,1130580001.4013,0,"NM","SUBSCRIBER") + +"^DD",1130580001.401,1130580001.4013,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.4013,.01,0) +SUBSCRIBER^MP200'^VA(200,^0;1^Q +"^DD",1130580001.401,1130580001.4013,.01,.1) +SUBSCRIBERS TO THIS MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.4013,.01,1,1,0) +1130580001.4013^B +"^DD",1130580001.401,1130580001.4013,.01,1,1,1) +S ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.4013,.01,1,1,2) +K ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.4013,.01,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,.02,0) +DEFAULT^S^1:YES;0:NO;^0;2^Q +"^DD",1130580001.401,1130580001.4013,.02,.1) +DISPLAY AS SUBSCRIBER DEFAULT MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0) +CLINIC SUB-FIELD^^.01^1 +"^DD",1130580001.401,1130580001.411,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0,"IX","B",1130580001.411,.01) + +"^DD",1130580001.401,1130580001.411,0,"NM","CLINIC") + +"^DD",1130580001.401,1130580001.411,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.411,.01,0) +CLINIC^MP44'^SC(^0;1^Q +"^DD",1130580001.401,1130580001.411,.01,.1) +OUTPATIENT CLINIC +"^DD",1130580001.401,1130580001.411,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.411,.01,1,1,0) +1130580001.411^B +"^DD",1130580001.401,1130580001.411,.01,1,1,1) +S ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.411,.01,1,1,2) +K ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.411,.01,"DT") +3120103 +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,1130580001.101,"%",0) +^1.005^^ +"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) + +"^DIC",1130580001.201,1130580001.201,0) +C0Q MEASUREMENT SET^1130580001.201 +"^DIC",1130580001.201,1130580001.201,0,"GL") +^C0Q(201, +"^DIC",1130580001.201,1130580001.201,"%",0) +^1.005^^0 +"^DIC",1130580001.201,1130580001.201,"%D",0) +^^3^3^3120731^ +"^DIC",1130580001.201,1130580001.201,"%D",1,0) +This file contains the groupings of Measurements found in the Quality +"^DIC",1130580001.201,1130580001.201,"%D",2,0) +Measures file. It is tied to the parameters file as the set of +"^DIC",1130580001.201,1130580001.201,"%D",3,0) +measurements to report for a site. +"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201) + +"^DIC",1130580001.401,1130580001.401,0) +C0Q PARAMETER^1130580001.401 +"^DIC",1130580001.401,1130580001.401,0,"GL") +^C0Q(401, +"^DIC",1130580001.401,1130580001.401,"%",0) +^1.005^^0 +"^DIC",1130580001.401,1130580001.401,"%D",0) +^^7^7^3120103^ +"^DIC",1130580001.401,1130580001.401,"%D",1,0) +This parameter file was created by George Lilly 12/2011 for the C0Q +"^DIC",1130580001.401,1130580001.401,"%D",2,0) +Meaningful Use and Quality Measurement Project funded in part by Oroville +"^DIC",1130580001.401,1130580001.401,"%D",3,0) +Hospital. It controls the updating of Meaningful Use patient lists and +"^DIC",1130580001.401,1130580001.401,"%D",4,0) +C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this +"^DIC",1130580001.401,1130580001.401,"%D",5,0) +file should be updated using the C0Q SETUP options because the +"^DIC",1130580001.401,1130580001.401,"%D",6,0) +combiniation of fields in each record varies depending on the updating +"^DIC",1130580001.401,1130580001.401,"%D",7,0) +behavior that is desired. +"^DIC",1130580001.401,"B","C0Q PARAMETER",1130580001.401) + +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.TXT b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.TXT new file mode 100644 index 0000000..ec90055 --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.TXT @@ -0,0 +1,216 @@ +DHCP Patch Display Page: 1 +============================================================================= +Run Date: OCT 18, 2012 Designation: C0Q*1*5 TEST v +Package : QUALITY MEASURES Priority : MANDATORY +Version : 1 Status : UNDER DEVELOPMENT +============================================================================= + +Subject: Miscellaneous and necessary bug fixes + +Category: ROUTINE + OTHER + +Description: +=========== + +TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES +NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO + +DESCRIPTION: +============ +Written by Sam Habiel on 17 October 2012 and released through VISTA Forum. + +Licensed under package license (currently GPL 2.0) + +FUNCTIONALITY: +============== +This build fixes various bugs in the Quality Measurements package +discovered during testing. + + 1. Empty lists are created in advance for Outpatients. Previously, they +were not created, even though an entry point existed (INITCLST). + + 2. The Vitals lookup code that calls CPRS code didn't include today. +This was fixed by adding .999999 to today's date. + + 3. File security (@ sign everywhere) didn't permit normal users to edit +the file. Previous, I defeated the @ sign protection by setting DLAYGO. +However, DLAYGO got killed by Fileman after each edit, which meant that +you can only edit one entry at a time before heading back out and back in +to edit another entry. After discussion with Fileman developers, the +proper way to do this was to not to use DLAYGO but rather remove the @ +signs for Read, Write, and Laygo in the Files Definitions. + + - File list where protections were changed. + --> C0Q MEASUREMENT SET (1130580001.201) + --> C0Q QUALITY MEASURE (1130580001.101) + --> C0Q PARAMETER (1130580001.401) + + - Options which don't use DLAYGO anymore. + --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS] + --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS] + --> INP EDIT PARMS [C0Q EDIT INP PARMS] + --> MEASURE SET EDIT [C0Q EDIT MEASURE SET] + --> MU MEASURE EDIT [C0Q EDIT MU MEASURE] + --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE] + +4. The Outpatient Quality Measurement Set which is specified in the +Parameters was being completely ignored. This is fixed. + +5. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag +indicating the type of measure (Performance vs Quality Measure). Since it +was left lying around, a Quality Measure was mistakenly interpreted as a +performance measure, giving you a result of zero, since there is no +data for this Quality Measure. + +6. The option that executes the logic for Outpatients C0Q EP UPDATE MU +MEASURES didn't display the time on the dates of the Visits being +processed correctly. This patch fixes this. + +SUPPORT TICKETS: +================ +None + +PACKAGE ELEMENTS: +================= + +ENVIRONMENT CHECK: DELETE ENV ROUTINE: + PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: +POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No +PRE-TRANSPORT RTN: TRAN^C0Q1P5 + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.101C0Q QUALITY MEASURE YES YES NO + +1130580001.201C0Q MEASUREMENT SET YES YES NO + + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.401C0Q PARAMETER YES YES NO + +ROUTINE: ACTION: + C0Q1P5 SEND TO SITE + C0QMU12 SEND TO SITE + C0QUPDT SEND TO SITE + +OPTION: ACTION: + C0Q EDIT INP PARMS SEND TO SITE + C0Q EDIT MEASURE SET SEND TO SITE + C0Q EDIT MU MEASURE SEND TO SITE + C0Q EDIT OUTPATIENT PARMS SEND TO SITE + C0Q EDIT QUALITY MEASURE SEND TO SITE + C0Q EDIT SUPERUSERS SEND TO SITE + +DOCUMENTATION: +============== +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 + +COMPLIANCE: +=========== +This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007), except for the following: + + C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584 + S - Routine code exceeds SACC maximum size of 15000 (15513). + +Blood Bank Clearance: This software doesn't interact with the Blood Bank module. + +Installation Instructions: +========================== +Install Time - less than 1 minute. + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*5): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the + Environment Check routine, the message below will display + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + + 5. Post installation: No post installation tasks are necessary. + + + +Routine Information: +==================== + + +The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**[Patch List]**;Oct 17, 2012;Build 9 + +The checksums below are new checksums, and + can be checked with CHECK1^XTSUMBLD. + +Routine Name: C0Q1P5 + Before: n/a After: B619258 **5** +Routine Name: C0QMU12 + Before: n/a After:B280797584 **1,5** +Routine Name: C0QUPDT + Before: n/a After: B78768309 **1,5** + +Routine list of preceding patches: 1 + + +============================================================================= +User Information: + Entered By : HABIEL,SAM Date Entered : OCT 18,2012 + Completed By: Date Completed: + Released By : Date Released : +============================================================================= + diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID new file mode 100644 index 0000000..8b78510 --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID @@ -0,0 +1,3364 @@ +KIDS Distribution saved on Oct 23, 2012@13:24:04 +Support for Model Measure Sets +**KIDS**:C0Q*1.0*6^ + +**INSTALL NAME** +C0Q*1.0*6 +"BLD",7920,0) +C0Q*1.0*6^QUALITY MEASURES^0^3121023^y +"BLD",7920,1,0) +^^422^422^3121023^ +"BLD",7920,1,1,0) + Source, Copyright, & Licensing: +"BLD",7920,1,2,0) + =============================== +"BLD",7920,1,3,0) + This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George +"BLD",7920,1,4,0) +Lily on 23 October 2012 and released through VISTA Forum. +"BLD",7920,1,5,0) + +"BLD",7920,1,6,0) + (C) Geroge Lilly 2012 +"BLD",7920,1,7,0) + Licensed under Package License: AGPL v3. +"BLD",7920,1,8,0) + +"BLD",7920,1,9,0) + http://www.gnu.org/licenses/agpl-3.0.html +"BLD",7920,1,10,0) + +"BLD",7920,1,11,0) + Functionality: +"BLD",7920,1,12,0) + ============== +"BLD",7920,1,13,0) + This patch adds support for using model Measurement Sets for creating a new +"BLD",7920,1,14,0) +Measurement Sets based on the model Measurement Sets. Usage instructions will +"BLD",7920,1,15,0) +be found at the end of this patch message. +"BLD",7920,1,16,0) + +"BLD",7920,1,17,0) + Support Tickets: +"BLD",7920,1,18,0) + +"BLD",7920,1,19,0) + +"BLD",7920,1,20,0) + Package Elements: +"BLD",7920,1,21,0) + ================= +"BLD",7920,1,22,0) + UP SEND DATA USER +"BLD",7920,1,23,0) + DATE SEC. COMES SITE RSLV OVER +"BLD",7920,1,24,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"BLD",7920,1,25,0) +------------------------------------------------------------------------------- +"BLD",7920,1,26,0) + +"BLD",7920,1,27,0) +1130580001.401C0Q PARAMETER YES NO NO NO +"BLD",7920,1,28,0) +Partial DD: subDD: 1130580001.401fld: 6.1 +"BLD",7920,1,29,0) + fld: 6.2 +"BLD",7920,1,30,0) + +"BLD",7920,1,31,0) +INPUT TEMPLATE: ACTION: +"BLD",7920,1,32,0) + C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE +"BLD",7920,1,33,0) + +"BLD",7920,1,34,0) +ROUTINE: ACTION: +"BLD",7920,1,35,0) + C0QMU12 SEND TO SITE +"BLD",7920,1,36,0) + C0QMU123 SEND TO SITE +"BLD",7920,1,37,0) + Test Sites: +"BLD",7920,1,38,0) + =========== +"BLD",7920,1,39,0) + +"BLD",7920,1,40,0) + +"BLD",7920,1,41,0) + Compliance: +"BLD",7920,1,42,0) + =========== +"BLD",7920,1,43,0) + This software complies with the VA MUMPS Programming Standards and +"BLD",7920,1,44,0) + Conventions (version 3 April 2007), with the following exception: +"BLD",7920,1,45,0) + +"BLD",7920,1,46,0) + C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107 +"BLD",7920,1,47,0) + S - Routine exceeds SACC maximum size of 20000 (20662). +"BLD",7920,1,48,0) + S - Routine code exceeds SACC maximum size of 15000 (16922). +"BLD",7920,1,49,0) + +"BLD",7920,1,50,0) + +"BLD",7920,1,51,0) + This software has not been tested for 508 compliance. +"BLD",7920,1,52,0) + +"BLD",7920,1,53,0) + Installation Instructions: +"BLD",7920,1,54,0) + ========================== +"BLD",7920,1,55,0) + Install Time - less than 1 minute +"BLD",7920,1,56,0) + +"BLD",7920,1,57,0) + 1. LOAD TRANSPORT GLOBAL +"BLD",7920,1,58,0) + +"BLD",7920,1,59,0) + Choose the PackMan message containing this patch and invoke the +"BLD",7920,1,60,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"BLD",7920,1,61,0) + +"BLD",7920,1,62,0) + 2. START UP KIDS +"BLD",7920,1,63,0) + +"BLD",7920,1,64,0) + Start up the Kernel Installation and Distribution System Menu +"BLD",7920,1,65,0) + [XPD MAIN]: +"BLD",7920,1,66,0) + +"BLD",7920,1,67,0) + Edits and Distribution ... +"BLD",7920,1,68,0) + Utilities ... +"BLD",7920,1,69,0) + Installation ... +"BLD",7920,1,70,0) + +"BLD",7920,1,71,0) + Select Kernel Installation & Distribution System Option: INStallation +"BLD",7920,1,72,0) + --- +"BLD",7920,1,73,0) + Load a Distribution +"BLD",7920,1,74,0) + Print Transport Global +"BLD",7920,1,75,0) + Compare Transport Global to Current System +"BLD",7920,1,76,0) + Verify Checksums in Transport Global +"BLD",7920,1,77,0) + Install Package(s) +"BLD",7920,1,78,0) + Restart Install of Package(s) +"BLD",7920,1,79,0) + Unload a Distribution +"BLD",7920,1,80,0) + Backup a Transport Global +"BLD",7920,1,81,0) + +"BLD",7920,1,82,0) + Select Installation Option: +"BLD",7920,1,83,0) + +"BLD",7920,1,84,0) + 3. Select Installation Option: +"BLD",7920,1,85,0) + +"BLD",7920,1,86,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"BLD",7920,1,87,0) + NAME, enter C0Q*1.0*6): +"BLD",7920,1,88,0) + +"BLD",7920,1,89,0) + a. Backup a Transport Global - This option will create a backup +"BLD",7920,1,90,0) + message of any routines exported with this patch. It will not +"BLD",7920,1,91,0) + backup any other changes such as DD's or templates. +"BLD",7920,1,92,0) + b. Compare Transport Global to Current System - This option will +"BLD",7920,1,93,0) + allow you to view all changes that will be made when this patch +"BLD",7920,1,94,0) + is installed. It compares all components of this patch +"BLD",7920,1,95,0) + (routines, DD's, templates, etc.). +"BLD",7920,1,96,0) + c. Verify Checksums in Transport Global - This option will allow +"BLD",7920,1,97,0) + you to ensure the integrity of the routines that are in the +"BLD",7920,1,98,0) + transport global. +"BLD",7920,1,99,0) + +"BLD",7920,1,100,0) + 4. Select Installation Option: Install Package(s) +"BLD",7920,1,101,0) + +"BLD",7920,1,102,0) + **This is the step to start the installation of this KIDS patch: +"BLD",7920,1,103,0) + +"BLD",7920,1,104,0) + a. Choose the Install Package(s) option to start the patch install +"BLD",7920,1,105,0) + and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the +"BLD",7920,1,106,0) + Environment Check routine, the message below will display +"BLD",7920,1,107,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"BLD",7920,1,108,0) + Install? NO//' answer NO +"BLD",7920,1,109,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"BLD",7920,1,110,0) + NO//' answer NO +"BLD",7920,1,111,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"BLD",7920,1,112,0) + and Protocols? NO//' answer NO +"BLD",7920,1,113,0) + +"BLD",7920,1,114,0) +Install Transcript: +"BLD",7920,1,115,0) +Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System +"BLD",7920,1,116,0) + +"BLD",7920,1,117,0) +Select Kernel Installation & Distribution System Option: INStallation +"BLD",7920,1,118,0) + +"BLD",7920,1,119,0) +Select Installation Option: 1 Load a Distribution +"BLD",7920,1,120,0) +Enter a Host File: C0Q*1.0*6 +"BLD",7920,1,121,0) + +"BLD",7920,1,122,0) +KIDS Distribution saved on Oct 22, 2012@17:41:17 +"BLD",7920,1,123,0) +Comment: FRDGHJKLFGHJKL +"BLD",7920,1,124,0) + +"BLD",7920,1,125,0) +This Distribution contains Transport Globals for the following Package(s): +"BLD",7920,1,126,0) + C0Q*1.0*6 +"BLD",7920,1,127,0) +Distribution OK! +"BLD",7920,1,128,0) + +"BLD",7920,1,129,0) +Want to Continue with Load? YES// +"BLD",7920,1,130,0) +Loading Distribution... +"BLD",7920,1,131,0) + +"BLD",7920,1,132,0) + C0Q*1.0*6 +"BLD",7920,1,133,0) +Use INSTALL NAME: C0Q*1.0*6 to install this Distribution. +"BLD",7920,1,134,0) + +"BLD",7920,1,135,0) +Select Installation Option: 6 Install Package(s) +"BLD",7920,1,136,0) +Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di +"BLD",7920,1,137,0) +stribution 10/23/12@11:46:32 +"BLD",7920,1,138,0) + => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 +"BLD",7920,1,139,0) + +"BLD",7920,1,140,0) +This Distribution was loaded on Oct 23, 2012@11:46:32 with header of +"BLD",7920,1,141,0) + FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 +"BLD",7920,1,142,0) + It consisted of the following Install(s): +"BLD",7920,1,143,0) + C0Q*1.0*6 +"BLD",7920,1,144,0) + +"BLD",7920,1,145,0) + Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK +"BLD",7920,1,146,0) + No overlap found +"BLD",7920,1,147,0) + +"BLD",7920,1,148,0) + Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK +"BLD",7920,1,149,0) + No overlap found +"BLD",7920,1,150,0) + +"BLD",7920,1,151,0) + Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK +"BLD",7920,1,152,0) + No overlap found +"BLD",7920,1,153,0) + +"BLD",7920,1,154,0) +Checking Install for Package C0Q*1.0*6 +"BLD",7920,1,155,0) + +"BLD",7920,1,156,0) +Install Questions for C0Q*1.0*6 +"BLD",7920,1,157,0) + +"BLD",7920,1,158,0) +Incoming Files: +"BLD",7920,1,159,0) + +"BLD",7920,1,160,0) + 1130580001.401C0Q PARAMETER (Partial Definition) +"BLD",7920,1,161,0) +Note: You already have the 'C0Q PARAMETER' File. +"BLD",7920,1,162,0) + +"BLD",7920,1,163,0) +Want KIDS to INHIBIT LOGONs during the install? NO// +"BLD",7920,1,164,0) +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// +"BLD",7920,1,165,0) + +"BLD",7920,1,166,0) +Enter the Device you want to print the Install messages. +"BLD",7920,1,167,0) +You can queue the install by enter a 'Q' at the device prompt. +"BLD",7920,1,168,0) +Enter a '^' to abort the install. +"BLD",7920,1,169,0) + +"BLD",7920,1,170,0) +DEVICE: HOME// 0;P-OTHER;80;9999 TELNET +"BLD",7920,1,171,0) + +"BLD",7920,1,172,0) + Install Started for C0Q*1.0*6 : +"BLD",7920,1,173,0) + Oct 23, 2012@11:46:53 +"BLD",7920,1,174,0) + +"BLD",7920,1,175,0) +Build Distribution Date: Oct 22, 2012 +"BLD",7920,1,176,0) + +"BLD",7920,1,177,0) + Installing Routines:... +"BLD",7920,1,178,0) + Oct 23, 2012@11:46:53 +"BLD",7920,1,179,0) + +"BLD",7920,1,180,0) + Installing Data Dictionaries: .. +"BLD",7920,1,181,0) + Oct 23, 2012@11:46:54 +"BLD",7920,1,182,0) + +"BLD",7920,1,183,0) + Installing PACKAGE COMPONENTS: +"BLD",7920,1,184,0) + +"BLD",7920,1,185,0) + Installing INPUT TEMPLATE.. +"BLD",7920,1,186,0) + Oct 23, 2012@11:46:54 +"BLD",7920,1,187,0) + +"BLD",7920,1,188,0) + Updating Routine file...... +"BLD",7920,1,189,0) + +"BLD",7920,1,190,0) + Updating KIDS files....... +"BLD",7920,1,191,0) + +"BLD",7920,1,192,0) + C0Q*1.0*6 Installed. +"BLD",7920,1,193,0) + Oct 23, 2012@11:46:54 +"BLD",7920,1,194,0) + +"BLD",7920,1,195,0) + Not a VA primary domain +"BLD",7920,1,196,0) + +"BLD",7920,1,197,0) + NO Install Message sent +"BLD",7920,1,198,0) + +"BLD",7920,1,199,0) +Select Installation Option: +"BLD",7920,1,200,0) +---------------------------- +"BLD",7920,1,201,0) + +"BLD",7920,1,202,0) +Usage instructions: +"BLD",7920,1,203,0) +=================== +"BLD",7920,1,204,0) +1. Create two measure sets, one for Performance Measures, and one for Quality +"BLD",7920,1,205,0) +Measures. If you have ones already created for other clinics, you can use them. +"BLD",7920,1,206,0) +It's okay for them to have filter lists, as these will be deleted by the +"BLD",7920,1,207,0) +software when the measure set is being copied. +"BLD",7920,1,208,0) + +"BLD",7920,1,209,0) +2. Attach these measure sets to an Outpatient Parameter in the fields: MODEL +"BLD",7920,1,210,0) +PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of +"BLD",7920,1,211,0) +these fields is to generate the a measure set to use in the fields EP MU +"BLD",7920,1,212,0) +MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these +"BLD",7920,1,213,0) +filled out, the Model fields will have no effect. +"BLD",7920,1,214,0) + +"BLD",7920,1,215,0) +3. Run the option EP UPDATE MU MEASURES. This create new measure sets based on +"BLD",7920,1,216,0) +the model measure sets and attach the appropriate filter lists. +"BLD",7920,1,217,0) + +"BLD",7920,1,218,0) +Miscellaneous remarks: If a model set is replaced and the option to update is +"BLD",7920,1,219,0) +reran, the behavior is not to delete the old created measure set but rather to +"BLD",7920,1,220,0) +merge the contents of the new model set into the old created measure set. I am +"BLD",7920,1,221,0) +not sure if this is the desirable behavior, but that is how it currently works. +"BLD",7920,1,222,0) + +"BLD",7920,1,223,0) +Transcript: +"BLD",7920,1,224,0) +Select QUALITY MEASUREMENT MENU Option: ? +"BLD",7920,1,225,0) + +"BLD",7920,1,226,0) + COPY OVER PATIENT LISTS +"BLD",7920,1,227,0) + ED-1 COMPUTATION +"BLD",7920,1,228,0) + ED-2 COMPUTATION +"BLD",7920,1,229,0) + EP UPDATE MU MEASURES +"BLD",7920,1,230,0) + INP UPDATE MU MEASURES +"BLD",7920,1,231,0) + PQRI MENU ... +"BLD",7920,1,232,0) + PQRI PRINT XML +"BLD",7920,1,233,0) + PRINT C0Q MEASURES +"BLD",7920,1,234,0) + QRDA MENU ... +"BLD",7920,1,235,0) + SETUP QUALITY REPORTING ... +"BLD",7920,1,236,0) + +"BLD",7920,1,237,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text. +"BLD",7920,1,238,0) + +"BLD",7920,1,239,0) +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES +"BLD",7920,1,240,0) + +"BLD",7920,1,241,0) +Select C0Q MEASUREMENT SET NAME: DR OFF +"BLD",7920,1,242,0) + 1 DR OFFICE PERFORMANCE MEASURES +"BLD",7920,1,243,0) + 2 DR OFFICE QUALITY MEASURES +"BLD",7920,1,244,0) +CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES +"BLD",7920,1,245,0) + +"BLD",7920,1,246,0) +DEVICE: HOME// TELNET +"BLD",7920,1,247,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +"BLD",7920,1,248,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"BLD",7920,1,249,0) +-------------------------------------------------------------------------------- +"BLD",7920,1,250,0) + +"BLD",7920,1,251,0) +CPOE 3 0 0.00 +"BLD",7920,1,252,0) + +"BLD",7920,1,253,0) +PROBLEMS 3 3 100.00 +"BLD",7920,1,254,0) + +"BLD",7920,1,255,0) +ALLERGIES 3 3 100.00 +"BLD",7920,1,256,0) + +"BLD",7920,1,257,0) +Select C0Q MEASUREMENT SET NAME: DR OFF +"BLD",7920,1,258,0) + 1 DR OFFICE PERFORMANCE MEASURES +"BLD",7920,1,259,0) + 2 DR OFFICE QUALITY MEASURES +"BLD",7920,1,260,0) +CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES +"BLD",7920,1,261,0) + +"BLD",7920,1,262,0) +DEVICE: HOME// TELNET +"BLD",7920,1,263,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +"BLD",7920,1,264,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"BLD",7920,1,265,0) +-------------------------------------------------------------------------------- +"BLD",7920,1,266,0) + +"BLD",7920,1,267,0) +NQF0013 Hypertension: 0 0 0.00 +"BLD",7920,1,268,0) +Blood Pressure +"BLD",7920,1,269,0) +Measurement +"BLD",7920,1,270,0) + +"BLD",7920,1,271,0) +NQF0028A Tobacco Use 0 0 0.00 +"BLD",7920,1,272,0) +Assessment +"BLD",7920,1,273,0) + +"BLD",7920,1,274,0) +NQF0028B Tobacco Use 0 0 0.00 +"BLD",7920,1,275,0) +Assessment and Cessation +"BLD",7920,1,276,0) +Intervention +"BLD",7920,1,277,0) + +"BLD",7920,1,278,0) +Select C0Q MEASUREMENT SET NAME: +"BLD",7920,1,279,0) + +"BLD",7920,1,280,0) +Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING +"BLD",7920,1,281,0) + +"BLD",7920,1,282,0) +Select SETUP QUALITY REPORTING Option: EP EDIT PARMS +"BLD",7920,1,283,0) + +"BLD",7920,1,284,0) +Select C0Q PARAMETER NAME: ACME CLINIC #1 +"BLD",7920,1,285,0) + Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y +"BLD",7920,1,286,0) + (Yes) +"BLD",7920,1,287,0) +NAME: ACME CLINIC #1// +"BLD",7920,1,288,0) +MEASUREMENT PERIOD KEY: MU12 +"BLD",7920,1,289,0) +PARAMETER TYPE: OU OUTPATIENT +"BLD",7920,1,290,0) +EP MU MEASUREMENT SET: +"BLD",7920,1,291,0) +EP QUALITY MEASUREMENT SET: +"BLD",7920,1,292,0) +Select CLINIC: ACME CLINIC #1 +"BLD",7920,1,293,0) + Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET +"BLD",7920,1,294,0) +ER)? No// Y (Yes) +"BLD",7920,1,295,0) +Select CLINIC: +"BLD",7920,1,296,0) +PATIENT LIST LABEL: +"BLD",7920,1,297,0) +Select SUBSCRIBER: +"BLD",7920,1,298,0) +MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES +"BLD",7920,1,299,0) +MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES +"BLD",7920,1,300,0) + +"BLD",7920,1,301,0) +Select C0Q PARAMETER NAME: +"BLD",7920,1,302,0) + +"BLD",7920,1,303,0) +Select SETUP QUALITY REPORTING Option: +"BLD",7920,1,304,0) + +"BLD",7920,1,305,0) +Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES +"BLD",7920,1,306,0) +Jan 04, 2008@19:14:59 +"BLD",7920,1,307,0) +Jan 02, 2008@18:40:58 +"BLD",7920,1,308,0) +Nov 26, 2005@13:10:24 +"BLD",7920,1,309,0) +Nov 26, 2005@14:12:42 +"BLD",7920,1,310,0) +Nov 25, 2005@20:31:13 +"BLD",7920,1,311,0) +Aug 02, 2005@08:40:36 +"BLD",7920,1,312,0) +Aug 01, 2005@15:08:49 +"BLD",7920,1,313,0) +Aug 01, 2005@15:21:18 +"BLD",7920,1,314,0) +Jul 29, 2005@11:44:36 +"BLD",7920,1,315,0) +Jul 29, 2005@11:53:15 +"BLD",7920,1,316,0) +Jul 29, 2005@12:04:45 +"BLD",7920,1,317,0) +Jul 28, 2005@12:20:20 +"BLD",7920,1,318,0) +Jul 28, 2005@16:16:03 +"BLD",7920,1,319,0) +Jul 27, 2005@11:21:04 +"BLD",7920,1,320,0) +Jul 27, 2005@11:24:55 +"BLD",7920,1,321,0) +Jul 27, 2005@11:41:40 +"BLD",7920,1,322,0) +Jul 27, 2005@11:47:38 +"BLD",7920,1,323,0) +Jul 27, 2005@11:49:41 +"BLD",7920,1,324,0) +Jul 27, 2005@11:50:26 +"BLD",7920,1,325,0) +Jul 27, 2005@15:45:45 +"BLD",7920,1,326,0) +Jul 25, 2005@08:37:24 +"BLD",7920,1,327,0) +Jul 24, 2005@11:01:55 +"BLD",7920,1,328,0) +Jul 24, 2005@14:22:11 +"BLD",7920,1,329,0) +Jul 24, 2005@16:22:29 +"BLD",7920,1,330,0) +Jul 24, 2005@17:17:01 +"BLD",7920,1,331,0) +Jul 24, 2005@17:33:39 +"BLD",7920,1,332,0) +Jul 23, 2005@16:14:54 +"BLD",7920,1,333,0) +Jul 23, 2005@17:17:08 +"BLD",7920,1,334,0) +Jul 23, 2005@17:24:01 +"BLD",7920,1,335,0) +Jul 22, 2005@10:49:29 +"BLD",7920,1,336,0) +Jul 22, 2005@16:46:52 +"BLD",7920,1,337,0) +Jul 21, 2005@08:56:56 +"BLD",7920,1,338,0) +Jul 21, 2005@12:10:54 +"BLD",7920,1,339,0) +Jul 21, 2005@15:39:22 +"BLD",7920,1,340,0) +Jul 21, 2005@15:39:29 +"BLD",7920,1,341,0) +Jul 20, 2005@10:07:46 +"BLD",7920,1,342,0) +Jul 20, 2005@10:44:03 +"BLD",7920,1,343,0) +Jul 19, 2005@07:41:49 +"BLD",7920,1,344,0) +Jul 19, 2005@08:52:13 +"BLD",7920,1,345,0) +Jul 19, 2005@11:32:14 +"BLD",7920,1,346,0) +Jul 19, 2005@11:36:08 +"BLD",7920,1,347,0) +Jul 19, 2005@13:35:12 +"BLD",7920,1,348,0) +Jul 19, 2005@15:43:18 +"BLD",7920,1,349,0) +Jul 19, 2005@15:54:48 +"BLD",7920,1,350,0) +Jul 18, 2005@17:57:49 +"BLD",7920,1,351,0) +Jul 15, 2005@16:00 +"BLD",7920,1,352,0) +Jul 08, 2005@13:03 +"BLD",7920,1,353,0) +Jul 01, 2005@14:37:23 +"BLD",7920,1,354,0) +Oct 23, 2012@12:02 +"BLD",7920,1,355,0) +CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0 +"BLD",7920,1,356,0) +C0QFDA(1130580001.2011,"2,13,",3)=100 +"BLD",7920,1,357,0) +C0QFDA(1130580001.2011,"3,13,",3)=100 +"BLD",7920,1,358,0) +C0QFDA(1130580001.2011,"1,14,",3)=0 +"BLD",7920,1,359,0) +C0QFDA(1130580001.2011,"2,14,",3)=0 +"BLD",7920,1,360,0) +C0QFDA(1130580001.2011,"3,14,",3)=0 +"BLD",7920,1,361,0) +C0QFDA(1130580001.2011,"1,15,",1.1)=0 +"BLD",7920,1,362,0) +C0QFDA(1130580001.2011,"1,15,",2.1)=1 +"BLD",7920,1,363,0) +C0QFDA(1130580001.20112,"+1,1,15,",.01)=3 +"BLD",7920,1,364,0) +C0QFDA(1130580001.2011,"1,15,",3)=0 +"BLD",7920,1,365,0) +C0QFDA(1130580001.2011,"2,15,",1.1)=1 +"BLD",7920,1,366,0) +C0QFDA(1130580001.20111,"+1,2,15,",.01)=3 +"BLD",7920,1,367,0) +C0QFDA(1130580001.2011,"2,15,",2.1)=1 +"BLD",7920,1,368,0) +C0QFDA(1130580001.20112,"+1,2,15,",.01)=3 +"BLD",7920,1,369,0) +C0QFDA(1130580001.2011,"2,15,",3)=100 +"BLD",7920,1,370,0) +C0QFDA(1130580001.2011,"3,15,",1.1)=1 +"BLD",7920,1,371,0) +C0QFDA(1130580001.20111,"+1,3,15,",.01)=3 +"BLD",7920,1,372,0) +C0QFDA(1130580001.2011,"3,15,",2.1)=1 +"BLD",7920,1,373,0) +C0QFDA(1130580001.20112,"+1,3,15,",.01)=3 +"BLD",7920,1,374,0) +C0QFDA(1130580001.2011,"3,15,",3)=100 +"BLD",7920,1,375,0) +C0QFDA(1130580001.2011,"1,16,",1.1)=0 +"BLD",7920,1,376,0) +C0QFDA(1130580001.2011,"1,16,",2.1)=0 +"BLD",7920,1,377,0) +C0QFDA(1130580001.2011,"1,16,",3)=0 +"BLD",7920,1,378,0) +C0QFDA(1130580001.2011,"2,16,",1.1)=0 +"BLD",7920,1,379,0) +C0QFDA(1130580001.2011,"2,16,",2.1)=0 +"BLD",7920,1,380,0) +C0QFDA(1130580001.2011,"2,16,",3)=0 +"BLD",7920,1,381,0) +C0QFDA(1130580001.2011,"3,16,",1.1)=0 +"BLD",7920,1,382,0) +C0QFDA(1130580001.2011,"3,16,",2.1)=0 +"BLD",7920,1,383,0) +C0QFDA(1130580001.2011,"3,16,",3)=0 +"BLD",7920,1,384,0) + +"BLD",7920,1,385,0) +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES +"BLD",7920,1,386,0) + +"BLD",7920,1,387,0) +Select C0Q MEASUREMENT SET NAME: ACME +"BLD",7920,1,388,0) + 1 ACME CLINIC #1 PR +"BLD",7920,1,389,0) + 2 ACME CLINIC #1 QM +"BLD",7920,1,390,0) +CHOOSE 1-2: 1 ACME CLINIC #1 PR +"BLD",7920,1,391,0) + +"BLD",7920,1,392,0) +DEVICE: HOME// TELNET +"BLD",7920,1,393,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +"BLD",7920,1,394,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"BLD",7920,1,395,0) +-------------------------------------------------------------------------------- +"BLD",7920,1,396,0) + +"BLD",7920,1,397,0) +CPOE 1 0 0.00 +"BLD",7920,1,398,0) + +"BLD",7920,1,399,0) +PROBLEMS 1 1 100.00 +"BLD",7920,1,400,0) + +"BLD",7920,1,401,0) +ALLERGIES 1 1 100.00 +"BLD",7920,1,402,0) + +"BLD",7920,1,403,0) +Select C0Q MEASUREMENT SET NAME: ACME +"BLD",7920,1,404,0) + 1 ACME CLINIC #1 PR +"BLD",7920,1,405,0) + 2 ACME CLINIC #1 QM +"BLD",7920,1,406,0) +CHOOSE 1-2: 2 ACME CLINIC #1 QM +"BLD",7920,1,407,0) + +"BLD",7920,1,408,0) +DEVICE: HOME// TELNET +"BLD",7920,1,409,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +"BLD",7920,1,410,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"BLD",7920,1,411,0) +-------------------------------------------------------------------------------- +"BLD",7920,1,412,0) + +"BLD",7920,1,413,0) +NQF0013 Hypertension: 0 0 0.00 +"BLD",7920,1,414,0) +Blood Pressure +"BLD",7920,1,415,0) +Measurement +"BLD",7920,1,416,0) + +"BLD",7920,1,417,0) +NQF0028A Tobacco Use 0 0 0.00 +"BLD",7920,1,418,0) +Assessment +"BLD",7920,1,419,0) + +"BLD",7920,1,420,0) +NQF0028B Tobacco Use 0 0 0.00 +"BLD",7920,1,421,0) +Assessment and Cessation +"BLD",7920,1,422,0) +Intervention +"BLD",7920,4,0) +^9.64PA^1130580001.401^1 +"BLD",7920,4,1130580001.401,0) +1130580001.401 +"BLD",7920,4,1130580001.401,2,0) +^9.641^1130580001.401^1 +"BLD",7920,4,1130580001.401,2,1130580001.401,0) +C0Q PARAMETER (File-top level) +"BLD",7920,4,1130580001.401,2,1130580001.401,1,0) +^9.6411^6.2^2 +"BLD",7920,4,1130580001.401,2,1130580001.401,1,6.1,0) +MODEL PERFORMANCE MEASURE SET +"BLD",7920,4,1130580001.401,2,1130580001.401,1,6.2,0) +MODEL QUALITY MEASURE SET +"BLD",7920,4,1130580001.401,222) +y^n^p^^^^n^^n +"BLD",7920,4,1130580001.401,224) + +"BLD",7920,4,"APDD",1130580001.401,1130580001.401) + +"BLD",7920,4,"APDD",1130580001.401,1130580001.401,6.1) + +"BLD",7920,4,"APDD",1130580001.401,1130580001.401,6.2) + +"BLD",7920,4,"B",1130580001.401,1130580001.401) + +"BLD",7920,6.3) +3 +"BLD",7920,"KRN",0) +^9.67PA^779.2^20 +"BLD",7920,"KRN",.4,0) +.4 +"BLD",7920,"KRN",.401,0) +.401 +"BLD",7920,"KRN",.402,0) +.402 +"BLD",7920,"KRN",.402,"NM",0) +^9.68A^1^1 +"BLD",7920,"KRN",.402,"NM",1,0) +C0Q EDIT OUPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7920,"KRN",.402,"NM","B","C0Q EDIT OUPATIENT PARMS FILE #1130580001.401",1) + +"BLD",7920,"KRN",.403,0) +.403 +"BLD",7920,"KRN",.5,0) +.5 +"BLD",7920,"KRN",.84,0) +.84 +"BLD",7920,"KRN",3.6,0) +3.6 +"BLD",7920,"KRN",3.8,0) +3.8 +"BLD",7920,"KRN",9.2,0) +9.2 +"BLD",7920,"KRN",9.8,0) +9.8 +"BLD",7920,"KRN",9.8,"NM",0) +^9.68A^2^2 +"BLD",7920,"KRN",9.8,"NM",1,0) +C0QMU12^^0^B351357107 +"BLD",7920,"KRN",9.8,"NM",2,0) +C0QMU123^^0^B4208272 +"BLD",7920,"KRN",9.8,"NM","B","C0QMU12",1) + +"BLD",7920,"KRN",9.8,"NM","B","C0QMU123",2) + +"BLD",7920,"KRN",19,0) +19 +"BLD",7920,"KRN",19.1,0) +19.1 +"BLD",7920,"KRN",101,0) +101 +"BLD",7920,"KRN",409.61,0) +409.61 +"BLD",7920,"KRN",771,0) +771 +"BLD",7920,"KRN",779.2,0) +779.2 +"BLD",7920,"KRN",870,0) +870 +"BLD",7920,"KRN",8989.51,0) +8989.51 +"BLD",7920,"KRN",8989.52,0) +8989.52 +"BLD",7920,"KRN",8994,0) +8994 +"BLD",7920,"KRN","B",.4,.4) + +"BLD",7920,"KRN","B",.401,.401) + +"BLD",7920,"KRN","B",.402,.402) + +"BLD",7920,"KRN","B",.403,.403) + +"BLD",7920,"KRN","B",.5,.5) + +"BLD",7920,"KRN","B",.84,.84) + +"BLD",7920,"KRN","B",3.6,3.6) + +"BLD",7920,"KRN","B",3.8,3.8) + +"BLD",7920,"KRN","B",9.2,9.2) + +"BLD",7920,"KRN","B",9.8,9.8) + +"BLD",7920,"KRN","B",19,19) + +"BLD",7920,"KRN","B",19.1,19.1) + +"BLD",7920,"KRN","B",101,101) + +"BLD",7920,"KRN","B",409.61,409.61) + +"BLD",7920,"KRN","B",771,771) + +"BLD",7920,"KRN","B",779.2,779.2) + +"BLD",7920,"KRN","B",870,870) + +"BLD",7920,"KRN","B",8989.51,8989.51) + +"BLD",7920,"KRN","B",8989.52,8989.52) + +"BLD",7920,"KRN","B",8994,8994) + +"BLD",7920,"QUES",0) +^9.62^^ +"BLD",7920,"REQB",0) +^9.611^^ +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^n^p^^^^n^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^C0Q +"FIA",1130580001.401,1130580001.401) +1 +"FIA",1130580001.401,1130580001.401,6.1) + +"FIA",1130580001.401,1130580001.401,6.2) + +"KRN",.402,1734,-1) +0^1 +"KRN",.402,1734,0) +C0Q EDIT OUPATIENT PARMS^3121019.1511^@^1130580001.401^^@^3121022 +"KRN",.402,1734,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1734,"DIAB",1,1,1130580001.411,0) +ALL +"KRN",.402,1734,"DR",1,1130580001.401) +.01;.02;.03;2;2.1;2.2;2.3;3;6.1;6.2; +"KRN",.402,1734,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1734,"DR",2,1130580001.411) +.01 +"MBREQ") +0 +"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 +"PKG",214,-1) +1^1 +"PKG",214,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",214,20,0) +^9.402P^^ +"PKG",214,22,0) +^9.49I^1^1 +"PKG",214,22,1,0) +1.0^3120731^3121002^8 +"PKG",214,22,1,"PAH",1,0) +6^3121023 +"PKG",214,22,1,"PAH",1,1,0) +^^422^422^3121023 +"PKG",214,22,1,"PAH",1,1,1,0) + Source, Copyright, & Licensing: +"PKG",214,22,1,"PAH",1,1,2,0) + =============================== +"PKG",214,22,1,"PAH",1,1,3,0) + This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George +"PKG",214,22,1,"PAH",1,1,4,0) +Lily on 23 October 2012 and released through VISTA Forum. +"PKG",214,22,1,"PAH",1,1,5,0) + +"PKG",214,22,1,"PAH",1,1,6,0) + (C) Geroge Lilly 2012 +"PKG",214,22,1,"PAH",1,1,7,0) + Licensed under Package License: AGPL v3. +"PKG",214,22,1,"PAH",1,1,8,0) + +"PKG",214,22,1,"PAH",1,1,9,0) + http://www.gnu.org/licenses/agpl-3.0.html +"PKG",214,22,1,"PAH",1,1,10,0) + +"PKG",214,22,1,"PAH",1,1,11,0) + Functionality: +"PKG",214,22,1,"PAH",1,1,12,0) + ============== +"PKG",214,22,1,"PAH",1,1,13,0) + This patch adds support for using model Measurement Sets for creating a new +"PKG",214,22,1,"PAH",1,1,14,0) +Measurement Sets based on the model Measurement Sets. Usage instructions will +"PKG",214,22,1,"PAH",1,1,15,0) +be found at the end of this patch message. +"PKG",214,22,1,"PAH",1,1,16,0) + +"PKG",214,22,1,"PAH",1,1,17,0) + Support Tickets: +"PKG",214,22,1,"PAH",1,1,18,0) + +"PKG",214,22,1,"PAH",1,1,19,0) + +"PKG",214,22,1,"PAH",1,1,20,0) + Package Elements: +"PKG",214,22,1,"PAH",1,1,21,0) + ================= +"PKG",214,22,1,"PAH",1,1,22,0) + UP SEND DATA USER +"PKG",214,22,1,"PAH",1,1,23,0) + DATE SEC. COMES SITE RSLV OVER +"PKG",214,22,1,"PAH",1,1,24,0) +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +"PKG",214,22,1,"PAH",1,1,25,0) +------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,26,0) + +"PKG",214,22,1,"PAH",1,1,27,0) +1130580001.401C0Q PARAMETER YES NO NO NO +"PKG",214,22,1,"PAH",1,1,28,0) +Partial DD: subDD: 1130580001.401fld: 6.1 +"PKG",214,22,1,"PAH",1,1,29,0) + fld: 6.2 +"PKG",214,22,1,"PAH",1,1,30,0) + +"PKG",214,22,1,"PAH",1,1,31,0) +INPUT TEMPLATE: ACTION: +"PKG",214,22,1,"PAH",1,1,32,0) + C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE +"PKG",214,22,1,"PAH",1,1,33,0) + +"PKG",214,22,1,"PAH",1,1,34,0) +ROUTINE: ACTION: +"PKG",214,22,1,"PAH",1,1,35,0) + C0QMU12 SEND TO SITE +"PKG",214,22,1,"PAH",1,1,36,0) + C0QMU123 SEND TO SITE +"PKG",214,22,1,"PAH",1,1,37,0) + Test Sites: +"PKG",214,22,1,"PAH",1,1,38,0) + =========== +"PKG",214,22,1,"PAH",1,1,39,0) + +"PKG",214,22,1,"PAH",1,1,40,0) + +"PKG",214,22,1,"PAH",1,1,41,0) + Compliance: +"PKG",214,22,1,"PAH",1,1,42,0) + =========== +"PKG",214,22,1,"PAH",1,1,43,0) + This software complies with the VA MUMPS Programming Standards and +"PKG",214,22,1,"PAH",1,1,44,0) + Conventions (version 3 April 2007), with the following exception: +"PKG",214,22,1,"PAH",1,1,45,0) + +"PKG",214,22,1,"PAH",1,1,46,0) + C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107 +"PKG",214,22,1,"PAH",1,1,47,0) + S - Routine exceeds SACC maximum size of 20000 (20662). +"PKG",214,22,1,"PAH",1,1,48,0) + S - Routine code exceeds SACC maximum size of 15000 (16922). +"PKG",214,22,1,"PAH",1,1,49,0) + +"PKG",214,22,1,"PAH",1,1,50,0) + +"PKG",214,22,1,"PAH",1,1,51,0) + This software has not been tested for 508 compliance. +"PKG",214,22,1,"PAH",1,1,52,0) + +"PKG",214,22,1,"PAH",1,1,53,0) + Installation Instructions: +"PKG",214,22,1,"PAH",1,1,54,0) + ========================== +"PKG",214,22,1,"PAH",1,1,55,0) + Install Time - less than 1 minute +"PKG",214,22,1,"PAH",1,1,56,0) + +"PKG",214,22,1,"PAH",1,1,57,0) + 1. LOAD TRANSPORT GLOBAL +"PKG",214,22,1,"PAH",1,1,58,0) + +"PKG",214,22,1,"PAH",1,1,59,0) + Choose the PackMan message containing this patch and invoke the +"PKG",214,22,1,"PAH",1,1,60,0) + INSTALL/CHECK MESSAGE PackMan option to unload the build. +"PKG",214,22,1,"PAH",1,1,61,0) + +"PKG",214,22,1,"PAH",1,1,62,0) + 2. START UP KIDS +"PKG",214,22,1,"PAH",1,1,63,0) + +"PKG",214,22,1,"PAH",1,1,64,0) + Start up the Kernel Installation and Distribution System Menu +"PKG",214,22,1,"PAH",1,1,65,0) + [XPD MAIN]: +"PKG",214,22,1,"PAH",1,1,66,0) + +"PKG",214,22,1,"PAH",1,1,67,0) + Edits and Distribution ... +"PKG",214,22,1,"PAH",1,1,68,0) + Utilities ... +"PKG",214,22,1,"PAH",1,1,69,0) + Installation ... +"PKG",214,22,1,"PAH",1,1,70,0) + +"PKG",214,22,1,"PAH",1,1,71,0) + Select Kernel Installation & Distribution System Option: INStallation +"PKG",214,22,1,"PAH",1,1,72,0) + --- +"PKG",214,22,1,"PAH",1,1,73,0) + Load a Distribution +"PKG",214,22,1,"PAH",1,1,74,0) + Print Transport Global +"PKG",214,22,1,"PAH",1,1,75,0) + Compare Transport Global to Current System +"PKG",214,22,1,"PAH",1,1,76,0) + Verify Checksums in Transport Global +"PKG",214,22,1,"PAH",1,1,77,0) + Install Package(s) +"PKG",214,22,1,"PAH",1,1,78,0) + Restart Install of Package(s) +"PKG",214,22,1,"PAH",1,1,79,0) + Unload a Distribution +"PKG",214,22,1,"PAH",1,1,80,0) + Backup a Transport Global +"PKG",214,22,1,"PAH",1,1,81,0) + +"PKG",214,22,1,"PAH",1,1,82,0) + Select Installation Option: +"PKG",214,22,1,"PAH",1,1,83,0) + +"PKG",214,22,1,"PAH",1,1,84,0) + 3. Select Installation Option: +"PKG",214,22,1,"PAH",1,1,85,0) + +"PKG",214,22,1,"PAH",1,1,86,0) + NOTE: The following are OPTIONAL - (When prompted for the INSTALL +"PKG",214,22,1,"PAH",1,1,87,0) + NAME, enter C0Q*1.0*6): +"PKG",214,22,1,"PAH",1,1,88,0) + +"PKG",214,22,1,"PAH",1,1,89,0) + a. Backup a Transport Global - This option will create a backup +"PKG",214,22,1,"PAH",1,1,90,0) + message of any routines exported with this patch. It will not +"PKG",214,22,1,"PAH",1,1,91,0) + backup any other changes such as DD's or templates. +"PKG",214,22,1,"PAH",1,1,92,0) + b. Compare Transport Global to Current System - This option will +"PKG",214,22,1,"PAH",1,1,93,0) + allow you to view all changes that will be made when this patch +"PKG",214,22,1,"PAH",1,1,94,0) + is installed. It compares all components of this patch +"PKG",214,22,1,"PAH",1,1,95,0) + (routines, DD's, templates, etc.). +"PKG",214,22,1,"PAH",1,1,96,0) + c. Verify Checksums in Transport Global - This option will allow +"PKG",214,22,1,"PAH",1,1,97,0) + you to ensure the integrity of the routines that are in the +"PKG",214,22,1,"PAH",1,1,98,0) + transport global. +"PKG",214,22,1,"PAH",1,1,99,0) + +"PKG",214,22,1,"PAH",1,1,100,0) + 4. Select Installation Option: Install Package(s) +"PKG",214,22,1,"PAH",1,1,101,0) + +"PKG",214,22,1,"PAH",1,1,102,0) + **This is the step to start the installation of this KIDS patch: +"PKG",214,22,1,"PAH",1,1,103,0) + +"PKG",214,22,1,"PAH",1,1,104,0) + a. Choose the Install Package(s) option to start the patch install +"PKG",214,22,1,"PAH",1,1,105,0) + and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the +"PKG",214,22,1,"PAH",1,1,106,0) + Environment Check routine, the message below will display +"PKG",214,22,1,"PAH",1,1,107,0) + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of +"PKG",214,22,1,"PAH",1,1,108,0) + Install? NO//' answer NO +"PKG",214,22,1,"PAH",1,1,109,0) + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? +"PKG",214,22,1,"PAH",1,1,110,0) + NO//' answer NO +"PKG",214,22,1,"PAH",1,1,111,0) + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, +"PKG",214,22,1,"PAH",1,1,112,0) + and Protocols? NO//' answer NO +"PKG",214,22,1,"PAH",1,1,113,0) + +"PKG",214,22,1,"PAH",1,1,114,0) +Install Transcript: +"PKG",214,22,1,"PAH",1,1,115,0) +Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System +"PKG",214,22,1,"PAH",1,1,116,0) + +"PKG",214,22,1,"PAH",1,1,117,0) +Select Kernel Installation & Distribution System Option: INStallation +"PKG",214,22,1,"PAH",1,1,118,0) + +"PKG",214,22,1,"PAH",1,1,119,0) +Select Installation Option: 1 Load a Distribution +"PKG",214,22,1,"PAH",1,1,120,0) +Enter a Host File: C0Q*1.0*6 +"PKG",214,22,1,"PAH",1,1,121,0) + +"PKG",214,22,1,"PAH",1,1,122,0) +KIDS Distribution saved on Oct 22, 2012@17:41:17 +"PKG",214,22,1,"PAH",1,1,123,0) +Comment: FRDGHJKLFGHJKL +"PKG",214,22,1,"PAH",1,1,124,0) + +"PKG",214,22,1,"PAH",1,1,125,0) +This Distribution contains Transport Globals for the following Package(s): +"PKG",214,22,1,"PAH",1,1,126,0) + C0Q*1.0*6 +"PKG",214,22,1,"PAH",1,1,127,0) +Distribution OK! +"PKG",214,22,1,"PAH",1,1,128,0) + +"PKG",214,22,1,"PAH",1,1,129,0) +Want to Continue with Load? YES// +"PKG",214,22,1,"PAH",1,1,130,0) +Loading Distribution... +"PKG",214,22,1,"PAH",1,1,131,0) + +"PKG",214,22,1,"PAH",1,1,132,0) + C0Q*1.0*6 +"PKG",214,22,1,"PAH",1,1,133,0) +Use INSTALL NAME: C0Q*1.0*6 to install this Distribution. +"PKG",214,22,1,"PAH",1,1,134,0) + +"PKG",214,22,1,"PAH",1,1,135,0) +Select Installation Option: 6 Install Package(s) +"PKG",214,22,1,"PAH",1,1,136,0) +Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di +"PKG",214,22,1,"PAH",1,1,137,0) +stribution 10/23/12@11:46:32 +"PKG",214,22,1,"PAH",1,1,138,0) + => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 +"PKG",214,22,1,"PAH",1,1,139,0) + +"PKG",214,22,1,"PAH",1,1,140,0) +This Distribution was loaded on Oct 23, 2012@11:46:32 with header of +"PKG",214,22,1,"PAH",1,1,141,0) + FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 +"PKG",214,22,1,"PAH",1,1,142,0) + It consisted of the following Install(s): +"PKG",214,22,1,"PAH",1,1,143,0) + C0Q*1.0*6 +"PKG",214,22,1,"PAH",1,1,144,0) + +"PKG",214,22,1,"PAH",1,1,145,0) + Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK +"PKG",214,22,1,"PAH",1,1,146,0) + No overlap found +"PKG",214,22,1,"PAH",1,1,147,0) + +"PKG",214,22,1,"PAH",1,1,148,0) + Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK +"PKG",214,22,1,"PAH",1,1,149,0) + No overlap found +"PKG",214,22,1,"PAH",1,1,150,0) + +"PKG",214,22,1,"PAH",1,1,151,0) + Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK +"PKG",214,22,1,"PAH",1,1,152,0) + No overlap found +"PKG",214,22,1,"PAH",1,1,153,0) + +"PKG",214,22,1,"PAH",1,1,154,0) +Checking Install for Package C0Q*1.0*6 +"PKG",214,22,1,"PAH",1,1,155,0) + +"PKG",214,22,1,"PAH",1,1,156,0) +Install Questions for C0Q*1.0*6 +"PKG",214,22,1,"PAH",1,1,157,0) + +"PKG",214,22,1,"PAH",1,1,158,0) +Incoming Files: +"PKG",214,22,1,"PAH",1,1,159,0) + +"PKG",214,22,1,"PAH",1,1,160,0) + 1130580001.401C0Q PARAMETER (Partial Definition) +"PKG",214,22,1,"PAH",1,1,161,0) +Note: You already have the 'C0Q PARAMETER' File. +"PKG",214,22,1,"PAH",1,1,162,0) + +"PKG",214,22,1,"PAH",1,1,163,0) +Want KIDS to INHIBIT LOGONs during the install? NO// +"PKG",214,22,1,"PAH",1,1,164,0) +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// +"PKG",214,22,1,"PAH",1,1,165,0) + +"PKG",214,22,1,"PAH",1,1,166,0) +Enter the Device you want to print the Install messages. +"PKG",214,22,1,"PAH",1,1,167,0) +You can queue the install by enter a 'Q' at the device prompt. +"PKG",214,22,1,"PAH",1,1,168,0) +Enter a '^' to abort the install. +"PKG",214,22,1,"PAH",1,1,169,0) + +"PKG",214,22,1,"PAH",1,1,170,0) +DEVICE: HOME// 0;P-OTHER;80;9999 TELNET +"PKG",214,22,1,"PAH",1,1,171,0) + +"PKG",214,22,1,"PAH",1,1,172,0) + Install Started for C0Q*1.0*6 : +"PKG",214,22,1,"PAH",1,1,173,0) + Oct 23, 2012@11:46:53 +"PKG",214,22,1,"PAH",1,1,174,0) + +"PKG",214,22,1,"PAH",1,1,175,0) +Build Distribution Date: Oct 22, 2012 +"PKG",214,22,1,"PAH",1,1,176,0) + +"PKG",214,22,1,"PAH",1,1,177,0) + Installing Routines:... +"PKG",214,22,1,"PAH",1,1,178,0) + Oct 23, 2012@11:46:53 +"PKG",214,22,1,"PAH",1,1,179,0) + +"PKG",214,22,1,"PAH",1,1,180,0) + Installing Data Dictionaries: .. +"PKG",214,22,1,"PAH",1,1,181,0) + Oct 23, 2012@11:46:54 +"PKG",214,22,1,"PAH",1,1,182,0) + +"PKG",214,22,1,"PAH",1,1,183,0) + Installing PACKAGE COMPONENTS: +"PKG",214,22,1,"PAH",1,1,184,0) + +"PKG",214,22,1,"PAH",1,1,185,0) + Installing INPUT TEMPLATE.. +"PKG",214,22,1,"PAH",1,1,186,0) + Oct 23, 2012@11:46:54 +"PKG",214,22,1,"PAH",1,1,187,0) + +"PKG",214,22,1,"PAH",1,1,188,0) + Updating Routine file...... +"PKG",214,22,1,"PAH",1,1,189,0) + +"PKG",214,22,1,"PAH",1,1,190,0) + Updating KIDS files....... +"PKG",214,22,1,"PAH",1,1,191,0) + +"PKG",214,22,1,"PAH",1,1,192,0) + C0Q*1.0*6 Installed. +"PKG",214,22,1,"PAH",1,1,193,0) + Oct 23, 2012@11:46:54 +"PKG",214,22,1,"PAH",1,1,194,0) + +"PKG",214,22,1,"PAH",1,1,195,0) + Not a VA primary domain +"PKG",214,22,1,"PAH",1,1,196,0) + +"PKG",214,22,1,"PAH",1,1,197,0) + NO Install Message sent +"PKG",214,22,1,"PAH",1,1,198,0) + +"PKG",214,22,1,"PAH",1,1,199,0) +Select Installation Option: +"PKG",214,22,1,"PAH",1,1,200,0) +---------------------------- +"PKG",214,22,1,"PAH",1,1,201,0) + +"PKG",214,22,1,"PAH",1,1,202,0) +Usage instructions: +"PKG",214,22,1,"PAH",1,1,203,0) +=================== +"PKG",214,22,1,"PAH",1,1,204,0) +1. Create two measure sets, one for Performance Measures, and one for Quality +"PKG",214,22,1,"PAH",1,1,205,0) +Measures. If you have ones already created for other clinics, you can use them. +"PKG",214,22,1,"PAH",1,1,206,0) +It's okay for them to have filter lists, as these will be deleted by the +"PKG",214,22,1,"PAH",1,1,207,0) +software when the measure set is being copied. +"PKG",214,22,1,"PAH",1,1,208,0) + +"PKG",214,22,1,"PAH",1,1,209,0) +2. Attach these measure sets to an Outpatient Parameter in the fields: MODEL +"PKG",214,22,1,"PAH",1,1,210,0) +PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of +"PKG",214,22,1,"PAH",1,1,211,0) +these fields is to generate the a measure set to use in the fields EP MU +"PKG",214,22,1,"PAH",1,1,212,0) +MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these +"PKG",214,22,1,"PAH",1,1,213,0) +filled out, the Model fields will have no effect. +"PKG",214,22,1,"PAH",1,1,214,0) + +"PKG",214,22,1,"PAH",1,1,215,0) +3. Run the option EP UPDATE MU MEASURES. This create new measure sets based on +"PKG",214,22,1,"PAH",1,1,216,0) +the model measure sets and attach the appropriate filter lists. +"PKG",214,22,1,"PAH",1,1,217,0) + +"PKG",214,22,1,"PAH",1,1,218,0) +Miscellaneous remarks: If a model set is replaced and the option to update is +"PKG",214,22,1,"PAH",1,1,219,0) +reran, the behavior is not to delete the old created measure set but rather to +"PKG",214,22,1,"PAH",1,1,220,0) +merge the contents of the new model set into the old created measure set. I am +"PKG",214,22,1,"PAH",1,1,221,0) +not sure if this is the desirable behavior, but that is how it currently works. +"PKG",214,22,1,"PAH",1,1,222,0) + +"PKG",214,22,1,"PAH",1,1,223,0) +Transcript: +"PKG",214,22,1,"PAH",1,1,224,0) +Select QUALITY MEASUREMENT MENU Option: ? +"PKG",214,22,1,"PAH",1,1,225,0) + +"PKG",214,22,1,"PAH",1,1,226,0) + COPY OVER PATIENT LISTS +"PKG",214,22,1,"PAH",1,1,227,0) + ED-1 COMPUTATION +"PKG",214,22,1,"PAH",1,1,228,0) + ED-2 COMPUTATION +"PKG",214,22,1,"PAH",1,1,229,0) + EP UPDATE MU MEASURES +"PKG",214,22,1,"PAH",1,1,230,0) + INP UPDATE MU MEASURES +"PKG",214,22,1,"PAH",1,1,231,0) + PQRI MENU ... +"PKG",214,22,1,"PAH",1,1,232,0) + PQRI PRINT XML +"PKG",214,22,1,"PAH",1,1,233,0) + PRINT C0Q MEASURES +"PKG",214,22,1,"PAH",1,1,234,0) + QRDA MENU ... +"PKG",214,22,1,"PAH",1,1,235,0) + SETUP QUALITY REPORTING ... +"PKG",214,22,1,"PAH",1,1,236,0) + +"PKG",214,22,1,"PAH",1,1,237,0) +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text. +"PKG",214,22,1,"PAH",1,1,238,0) + +"PKG",214,22,1,"PAH",1,1,239,0) +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES +"PKG",214,22,1,"PAH",1,1,240,0) + +"PKG",214,22,1,"PAH",1,1,241,0) +Select C0Q MEASUREMENT SET NAME: DR OFF +"PKG",214,22,1,"PAH",1,1,242,0) + 1 DR OFFICE PERFORMANCE MEASURES +"PKG",214,22,1,"PAH",1,1,243,0) + 2 DR OFFICE QUALITY MEASURES +"PKG",214,22,1,"PAH",1,1,244,0) +CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES +"PKG",214,22,1,"PAH",1,1,245,0) + +"PKG",214,22,1,"PAH",1,1,246,0) +DEVICE: HOME// TELNET +"PKG",214,22,1,"PAH",1,1,247,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +"PKG",214,22,1,"PAH",1,1,248,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"PKG",214,22,1,"PAH",1,1,249,0) +-------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,250,0) + +"PKG",214,22,1,"PAH",1,1,251,0) +CPOE 3 0 0.00 +"PKG",214,22,1,"PAH",1,1,252,0) + +"PKG",214,22,1,"PAH",1,1,253,0) +PROBLEMS 3 3 100.00 +"PKG",214,22,1,"PAH",1,1,254,0) + +"PKG",214,22,1,"PAH",1,1,255,0) +ALLERGIES 3 3 100.00 +"PKG",214,22,1,"PAH",1,1,256,0) + +"PKG",214,22,1,"PAH",1,1,257,0) +Select C0Q MEASUREMENT SET NAME: DR OFF +"PKG",214,22,1,"PAH",1,1,258,0) + 1 DR OFFICE PERFORMANCE MEASURES +"PKG",214,22,1,"PAH",1,1,259,0) + 2 DR OFFICE QUALITY MEASURES +"PKG",214,22,1,"PAH",1,1,260,0) +CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES +"PKG",214,22,1,"PAH",1,1,261,0) + +"PKG",214,22,1,"PAH",1,1,262,0) +DEVICE: HOME// TELNET +"PKG",214,22,1,"PAH",1,1,263,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +"PKG",214,22,1,"PAH",1,1,264,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"PKG",214,22,1,"PAH",1,1,265,0) +-------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,266,0) + +"PKG",214,22,1,"PAH",1,1,267,0) +NQF0013 Hypertension: 0 0 0.00 +"PKG",214,22,1,"PAH",1,1,268,0) +Blood Pressure +"PKG",214,22,1,"PAH",1,1,269,0) +Measurement +"PKG",214,22,1,"PAH",1,1,270,0) + +"PKG",214,22,1,"PAH",1,1,271,0) +NQF0028A Tobacco Use 0 0 0.00 +"PKG",214,22,1,"PAH",1,1,272,0) +Assessment +"PKG",214,22,1,"PAH",1,1,273,0) + +"PKG",214,22,1,"PAH",1,1,274,0) +NQF0028B Tobacco Use 0 0 0.00 +"PKG",214,22,1,"PAH",1,1,275,0) +Assessment and Cessation +"PKG",214,22,1,"PAH",1,1,276,0) +Intervention +"PKG",214,22,1,"PAH",1,1,277,0) + +"PKG",214,22,1,"PAH",1,1,278,0) +Select C0Q MEASUREMENT SET NAME: +"PKG",214,22,1,"PAH",1,1,279,0) + +"PKG",214,22,1,"PAH",1,1,280,0) +Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING +"PKG",214,22,1,"PAH",1,1,281,0) + +"PKG",214,22,1,"PAH",1,1,282,0) +Select SETUP QUALITY REPORTING Option: EP EDIT PARMS +"PKG",214,22,1,"PAH",1,1,283,0) + +"PKG",214,22,1,"PAH",1,1,284,0) +Select C0Q PARAMETER NAME: ACME CLINIC #1 +"PKG",214,22,1,"PAH",1,1,285,0) + Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y +"PKG",214,22,1,"PAH",1,1,286,0) + (Yes) +"PKG",214,22,1,"PAH",1,1,287,0) +NAME: ACME CLINIC #1// +"PKG",214,22,1,"PAH",1,1,288,0) +MEASUREMENT PERIOD KEY: MU12 +"PKG",214,22,1,"PAH",1,1,289,0) +PARAMETER TYPE: OU OUTPATIENT +"PKG",214,22,1,"PAH",1,1,290,0) +EP MU MEASUREMENT SET: +"PKG",214,22,1,"PAH",1,1,291,0) +EP QUALITY MEASUREMENT SET: +"PKG",214,22,1,"PAH",1,1,292,0) +Select CLINIC: ACME CLINIC #1 +"PKG",214,22,1,"PAH",1,1,293,0) + Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET +"PKG",214,22,1,"PAH",1,1,294,0) +ER)? No// Y (Yes) +"PKG",214,22,1,"PAH",1,1,295,0) +Select CLINIC: +"PKG",214,22,1,"PAH",1,1,296,0) +PATIENT LIST LABEL: +"PKG",214,22,1,"PAH",1,1,297,0) +Select SUBSCRIBER: +"PKG",214,22,1,"PAH",1,1,298,0) +MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES +"PKG",214,22,1,"PAH",1,1,299,0) +MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES +"PKG",214,22,1,"PAH",1,1,300,0) + +"PKG",214,22,1,"PAH",1,1,301,0) +Select C0Q PARAMETER NAME: +"PKG",214,22,1,"PAH",1,1,302,0) + +"PKG",214,22,1,"PAH",1,1,303,0) +Select SETUP QUALITY REPORTING Option: +"PKG",214,22,1,"PAH",1,1,304,0) + +"PKG",214,22,1,"PAH",1,1,305,0) +Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES +"PKG",214,22,1,"PAH",1,1,306,0) +Jan 04, 2008@19:14:59 +"PKG",214,22,1,"PAH",1,1,307,0) +Jan 02, 2008@18:40:58 +"PKG",214,22,1,"PAH",1,1,308,0) +Nov 26, 2005@13:10:24 +"PKG",214,22,1,"PAH",1,1,309,0) +Nov 26, 2005@14:12:42 +"PKG",214,22,1,"PAH",1,1,310,0) +Nov 25, 2005@20:31:13 +"PKG",214,22,1,"PAH",1,1,311,0) +Aug 02, 2005@08:40:36 +"PKG",214,22,1,"PAH",1,1,312,0) +Aug 01, 2005@15:08:49 +"PKG",214,22,1,"PAH",1,1,313,0) +Aug 01, 2005@15:21:18 +"PKG",214,22,1,"PAH",1,1,314,0) +Jul 29, 2005@11:44:36 +"PKG",214,22,1,"PAH",1,1,315,0) +Jul 29, 2005@11:53:15 +"PKG",214,22,1,"PAH",1,1,316,0) +Jul 29, 2005@12:04:45 +"PKG",214,22,1,"PAH",1,1,317,0) +Jul 28, 2005@12:20:20 +"PKG",214,22,1,"PAH",1,1,318,0) +Jul 28, 2005@16:16:03 +"PKG",214,22,1,"PAH",1,1,319,0) +Jul 27, 2005@11:21:04 +"PKG",214,22,1,"PAH",1,1,320,0) +Jul 27, 2005@11:24:55 +"PKG",214,22,1,"PAH",1,1,321,0) +Jul 27, 2005@11:41:40 +"PKG",214,22,1,"PAH",1,1,322,0) +Jul 27, 2005@11:47:38 +"PKG",214,22,1,"PAH",1,1,323,0) +Jul 27, 2005@11:49:41 +"PKG",214,22,1,"PAH",1,1,324,0) +Jul 27, 2005@11:50:26 +"PKG",214,22,1,"PAH",1,1,325,0) +Jul 27, 2005@15:45:45 +"PKG",214,22,1,"PAH",1,1,326,0) +Jul 25, 2005@08:37:24 +"PKG",214,22,1,"PAH",1,1,327,0) +Jul 24, 2005@11:01:55 +"PKG",214,22,1,"PAH",1,1,328,0) +Jul 24, 2005@14:22:11 +"PKG",214,22,1,"PAH",1,1,329,0) +Jul 24, 2005@16:22:29 +"PKG",214,22,1,"PAH",1,1,330,0) +Jul 24, 2005@17:17:01 +"PKG",214,22,1,"PAH",1,1,331,0) +Jul 24, 2005@17:33:39 +"PKG",214,22,1,"PAH",1,1,332,0) +Jul 23, 2005@16:14:54 +"PKG",214,22,1,"PAH",1,1,333,0) +Jul 23, 2005@17:17:08 +"PKG",214,22,1,"PAH",1,1,334,0) +Jul 23, 2005@17:24:01 +"PKG",214,22,1,"PAH",1,1,335,0) +Jul 22, 2005@10:49:29 +"PKG",214,22,1,"PAH",1,1,336,0) +Jul 22, 2005@16:46:52 +"PKG",214,22,1,"PAH",1,1,337,0) +Jul 21, 2005@08:56:56 +"PKG",214,22,1,"PAH",1,1,338,0) +Jul 21, 2005@12:10:54 +"PKG",214,22,1,"PAH",1,1,339,0) +Jul 21, 2005@15:39:22 +"PKG",214,22,1,"PAH",1,1,340,0) +Jul 21, 2005@15:39:29 +"PKG",214,22,1,"PAH",1,1,341,0) +Jul 20, 2005@10:07:46 +"PKG",214,22,1,"PAH",1,1,342,0) +Jul 20, 2005@10:44:03 +"PKG",214,22,1,"PAH",1,1,343,0) +Jul 19, 2005@07:41:49 +"PKG",214,22,1,"PAH",1,1,344,0) +Jul 19, 2005@08:52:13 +"PKG",214,22,1,"PAH",1,1,345,0) +Jul 19, 2005@11:32:14 +"PKG",214,22,1,"PAH",1,1,346,0) +Jul 19, 2005@11:36:08 +"PKG",214,22,1,"PAH",1,1,347,0) +Jul 19, 2005@13:35:12 +"PKG",214,22,1,"PAH",1,1,348,0) +Jul 19, 2005@15:43:18 +"PKG",214,22,1,"PAH",1,1,349,0) +Jul 19, 2005@15:54:48 +"PKG",214,22,1,"PAH",1,1,350,0) +Jul 18, 2005@17:57:49 +"PKG",214,22,1,"PAH",1,1,351,0) +Jul 15, 2005@16:00 +"PKG",214,22,1,"PAH",1,1,352,0) +Jul 08, 2005@13:03 +"PKG",214,22,1,"PAH",1,1,353,0) +Jul 01, 2005@14:37:23 +"PKG",214,22,1,"PAH",1,1,354,0) +Oct 23, 2012@12:02 +"PKG",214,22,1,"PAH",1,1,355,0) +CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0 +"PKG",214,22,1,"PAH",1,1,356,0) +C0QFDA(1130580001.2011,"2,13,",3)=100 +"PKG",214,22,1,"PAH",1,1,357,0) +C0QFDA(1130580001.2011,"3,13,",3)=100 +"PKG",214,22,1,"PAH",1,1,358,0) +C0QFDA(1130580001.2011,"1,14,",3)=0 +"PKG",214,22,1,"PAH",1,1,359,0) +C0QFDA(1130580001.2011,"2,14,",3)=0 +"PKG",214,22,1,"PAH",1,1,360,0) +C0QFDA(1130580001.2011,"3,14,",3)=0 +"PKG",214,22,1,"PAH",1,1,361,0) +C0QFDA(1130580001.2011,"1,15,",1.1)=0 +"PKG",214,22,1,"PAH",1,1,362,0) +C0QFDA(1130580001.2011,"1,15,",2.1)=1 +"PKG",214,22,1,"PAH",1,1,363,0) +C0QFDA(1130580001.20112,"+1,1,15,",.01)=3 +"PKG",214,22,1,"PAH",1,1,364,0) +C0QFDA(1130580001.2011,"1,15,",3)=0 +"PKG",214,22,1,"PAH",1,1,365,0) +C0QFDA(1130580001.2011,"2,15,",1.1)=1 +"PKG",214,22,1,"PAH",1,1,366,0) +C0QFDA(1130580001.20111,"+1,2,15,",.01)=3 +"PKG",214,22,1,"PAH",1,1,367,0) +C0QFDA(1130580001.2011,"2,15,",2.1)=1 +"PKG",214,22,1,"PAH",1,1,368,0) +C0QFDA(1130580001.20112,"+1,2,15,",.01)=3 +"PKG",214,22,1,"PAH",1,1,369,0) +C0QFDA(1130580001.2011,"2,15,",3)=100 +"PKG",214,22,1,"PAH",1,1,370,0) +C0QFDA(1130580001.2011,"3,15,",1.1)=1 +"PKG",214,22,1,"PAH",1,1,371,0) +C0QFDA(1130580001.20111,"+1,3,15,",.01)=3 +"PKG",214,22,1,"PAH",1,1,372,0) +C0QFDA(1130580001.2011,"3,15,",2.1)=1 +"PKG",214,22,1,"PAH",1,1,373,0) +C0QFDA(1130580001.20112,"+1,3,15,",.01)=3 +"PKG",214,22,1,"PAH",1,1,374,0) +C0QFDA(1130580001.2011,"3,15,",3)=100 +"PKG",214,22,1,"PAH",1,1,375,0) +C0QFDA(1130580001.2011,"1,16,",1.1)=0 +"PKG",214,22,1,"PAH",1,1,376,0) +C0QFDA(1130580001.2011,"1,16,",2.1)=0 +"PKG",214,22,1,"PAH",1,1,377,0) +C0QFDA(1130580001.2011,"1,16,",3)=0 +"PKG",214,22,1,"PAH",1,1,378,0) +C0QFDA(1130580001.2011,"2,16,",1.1)=0 +"PKG",214,22,1,"PAH",1,1,379,0) +C0QFDA(1130580001.2011,"2,16,",2.1)=0 +"PKG",214,22,1,"PAH",1,1,380,0) +C0QFDA(1130580001.2011,"2,16,",3)=0 +"PKG",214,22,1,"PAH",1,1,381,0) +C0QFDA(1130580001.2011,"3,16,",1.1)=0 +"PKG",214,22,1,"PAH",1,1,382,0) +C0QFDA(1130580001.2011,"3,16,",2.1)=0 +"PKG",214,22,1,"PAH",1,1,383,0) +C0QFDA(1130580001.2011,"3,16,",3)=0 +"PKG",214,22,1,"PAH",1,1,384,0) + +"PKG",214,22,1,"PAH",1,1,385,0) +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES +"PKG",214,22,1,"PAH",1,1,386,0) + +"PKG",214,22,1,"PAH",1,1,387,0) +Select C0Q MEASUREMENT SET NAME: ACME +"PKG",214,22,1,"PAH",1,1,388,0) + 1 ACME CLINIC #1 PR +"PKG",214,22,1,"PAH",1,1,389,0) + 2 ACME CLINIC #1 QM +"PKG",214,22,1,"PAH",1,1,390,0) +CHOOSE 1-2: 1 ACME CLINIC #1 PR +"PKG",214,22,1,"PAH",1,1,391,0) + +"PKG",214,22,1,"PAH",1,1,392,0) +DEVICE: HOME// TELNET +"PKG",214,22,1,"PAH",1,1,393,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +"PKG",214,22,1,"PAH",1,1,394,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"PKG",214,22,1,"PAH",1,1,395,0) +-------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,396,0) + +"PKG",214,22,1,"PAH",1,1,397,0) +CPOE 1 0 0.00 +"PKG",214,22,1,"PAH",1,1,398,0) + +"PKG",214,22,1,"PAH",1,1,399,0) +PROBLEMS 1 1 100.00 +"PKG",214,22,1,"PAH",1,1,400,0) + +"PKG",214,22,1,"PAH",1,1,401,0) +ALLERGIES 1 1 100.00 +"PKG",214,22,1,"PAH",1,1,402,0) + +"PKG",214,22,1,"PAH",1,1,403,0) +Select C0Q MEASUREMENT SET NAME: ACME +"PKG",214,22,1,"PAH",1,1,404,0) + 1 ACME CLINIC #1 PR +"PKG",214,22,1,"PAH",1,1,405,0) + 2 ACME CLINIC #1 QM +"PKG",214,22,1,"PAH",1,1,406,0) +CHOOSE 1-2: 2 ACME CLINIC #1 QM +"PKG",214,22,1,"PAH",1,1,407,0) + +"PKG",214,22,1,"PAH",1,1,408,0) +DEVICE: HOME// TELNET +"PKG",214,22,1,"PAH",1,1,409,0) +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +"PKG",214,22,1,"PAH",1,1,410,0) +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +"PKG",214,22,1,"PAH",1,1,411,0) +-------------------------------------------------------------------------------- +"PKG",214,22,1,"PAH",1,1,412,0) + +"PKG",214,22,1,"PAH",1,1,413,0) +NQF0013 Hypertension: 0 0 0.00 +"PKG",214,22,1,"PAH",1,1,414,0) +Blood Pressure +"PKG",214,22,1,"PAH",1,1,415,0) +Measurement +"PKG",214,22,1,"PAH",1,1,416,0) + +"PKG",214,22,1,"PAH",1,1,417,0) +NQF0028A Tobacco Use 0 0 0.00 +"PKG",214,22,1,"PAH",1,1,418,0) +Assessment +"PKG",214,22,1,"PAH",1,1,419,0) + +"PKG",214,22,1,"PAH",1,1,420,0) +NQF0028B Tobacco Use 0 0 0.00 +"PKG",214,22,1,"PAH",1,1,421,0) +Assessment and Cessation +"PKG",214,22,1,"PAH",1,1,422,0) +Intervention +"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") +2 +"RTN","C0QMU12") +0^1^B351357107 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/22/12 4:29pm +"RTN","C0QMU12",2,0) + ;;1.0;QUALITY MEASURES;**1,5,6**;May 21, 2012;Build 3 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT SET FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"IEN")=ZIEN +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",29,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",30,0) + . ; +"RTN","C0QMU12",31,0) + . ; Inpatient +"RTN","C0QMU12",32,0) + . S (ZX,@ZARY@(ZCNT,"InpatientMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",34,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",36,0) + . ; +"RTN","C0QMU12",37,0) + . ; Outpatient +"RTN","C0QMU12",38,0) + . S (ZX,@ZARY@(ZCNT,"EPMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",40,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",41,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",42,0) + . S @ZARY@(ZCNT,"EPModelPerfSet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.1,"I") +"RTN","C0QMU12",43,0) + . S @ZARY@(ZCNT,"EPModelQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.2,"I") +"RTN","C0QMU12",44,0) + . ; +"RTN","C0QMU12",45,0) + . D CLEAN^DILF +"RTN","C0QMU12",46,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",47,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",48,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",49,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",50,0) + ; +"RTN","C0QMU12",51,0) + Q +"RTN","C0QMU12",52,0) + ; +"RTN","C0QMU12",53,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",54,0) + ; patient lists +"RTN","C0QMU12",55,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",56,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",57,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",58,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",59,0) + S ZYR="MU12-" +"RTN","C0QMU12",60,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",61,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",62,0) + N C0QPARM +"RTN","C0QMU12",63,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",64,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",65,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",66,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",67,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",68,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",69,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",70,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",71,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",72,0) + . I C0QPL D ; +"RTN","C0QMU12",73,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",74,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",75,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",76,0) + . K C0QLIST +"RTN","C0QMU12",77,0) + Q +"RTN","C0QMU12",78,0) + ; +"RTN","C0QMU12",79,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",80,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",81,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",82,0) + ; will be zeroed out +"RTN","C0QMU12",83,0) + ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!! +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP. +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",87,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",88,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",89,0) + S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",90,0) + S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",91,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",92,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",93,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",94,0) + S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5 +"RTN","C0QMU12",95,0) + Q +"RTN","C0QMU12",96,0) + ; +"RTN","C0QMU12",97,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",98,0) + N WARD S WARD="" +"RTN","C0QMU12",99,0) + F D Q:WARD="" +"RTN","C0QMU12",100,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",101,0) + . Q:WARD="" +"RTN","C0QMU12",102,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",103,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",104,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",105,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",106,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",107,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",108,0) + . . . D PROBLEM +"RTN","C0QMU12",109,0) + . . . D ALLERGY +"RTN","C0QMU12",110,0) + . . . D MEDS4 +"RTN","C0QMU12",111,0) + . . . D RECON2 +"RTN","C0QMU12",112,0) + . . . D ADVDIR +"RTN","C0QMU12",113,0) + . . . D SMOKING +"RTN","C0QMU12",114,0) + . . . D VITALS +"RTN","C0QMU12",115,0) + . . . D VTE1 +"RTN","C0QMU12",116,0) + . . . D COD +"RTN","C0QMU12",117,0) + . . . D EDTIME +"RTN","C0QMU12",118,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",119,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",120,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",121,0) + Q +"RTN","C0QMU12",122,0) + ; +"RTN","C0QMU12",123,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",124,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",125,0) + S PBCNT="" +"RTN","C0QMU12",126,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",127,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",128,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",129,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",130,0) + K PROBL +"RTN","C0QMU12",131,0) + Q +"RTN","C0QMU12",132,0) + ; +"RTN","C0QMU12",133,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",134,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",135,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",136,0) + S ALCNT="" +"RTN","C0QMU12",137,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",138,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",139,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",140,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",141,0) + K ALRGYL +"RTN","C0QMU12",142,0) + Q +"RTN","C0QMU12",143,0) + ; +"RTN","C0QMU12",144,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",145,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",146,0) + N BEG,END +"RTN","C0QMU12",147,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",148,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",149,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",150,0) + N C0QMEDS +"RTN","C0QMU12",151,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",152,0) + N FOUND +"RTN","C0QMU12",153,0) + N ZI +"RTN","C0QMU12",154,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",155,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",156,0) + E D ; HAS MEDS +"RTN","C0QMU12",157,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",158,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",159,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",160,0) + . N ZM +"RTN","C0QMU12",161,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",162,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",163,0) + . . S FOUND=1 +"RTN","C0QMU12",164,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",165,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",166,0) + Q +"RTN","C0QMU12",167,0) + ; +"RTN","C0QMU12",168,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",169,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",170,0) + ; +"RTN","C0QMU12",171,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",172,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",173,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",174,0) + N GT,G +"RTN","C0QMU12",175,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",176,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",177,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",178,0) + . S HASRECON=1 +"RTN","C0QMU12",179,0) + ;N ZT +"RTN","C0QMU12",180,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",181,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",182,0) + ;. S HASRECON=1 +"RTN","C0QMU12",183,0) + ;E D ; +"RTN","C0QMU12",184,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",185,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",186,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",187,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",188,0) + I HASRECON D ; +"RTN","C0QMU12",189,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",190,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",191,0) + Q +"RTN","C0QMU12",192,0) + ; +"RTN","C0QMU12",193,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",194,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",195,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",196,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",197,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",198,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",199,0) + Q +"RTN","C0QMU12",200,0) + ; +"RTN","C0QMU12",201,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",202,0) + N ZI S ZI="" +"RTN","C0QMU12",203,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",204,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",205,0) + . ;B +"RTN","C0QMU12",206,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",208,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",209,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",210,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",211,0) + . E D ; +"RTN","C0QMU12",212,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",213,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",214,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",215,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",216,0) + Q +"RTN","C0QMU12",217,0) + ; +"RTN","C0QMU12",218,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",219,0) + ; +"RTN","C0QMU12",220,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",221,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",222,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",223,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",224,0) + . E D ; +"RTN","C0QMU12",225,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",226,0) + Q +"RTN","C0QMU12",227,0) + ; +"RTN","C0QMU12",228,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",229,0) +VITALS ; +"RTN","C0QMU12",230,0) + ; +"RTN","C0QMU12",231,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",232,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",233,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",234,0) + S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5 +"RTN","C0QMU12",235,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",236,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",237,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",238,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",239,0) + Q +"RTN","C0QMU12",240,0) + ; +"RTN","C0QMU12",241,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",242,0) + ; +"RTN","C0QMU12",243,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",244,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",245,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",246,0) + Q +"RTN","C0QMU12",247,0) + ; +"RTN","C0QMU12",248,0) + ; +"RTN","C0QMU12",249,0) + ; +"RTN","C0QMU12",250,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",251,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",252,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",253,0) + Q +"RTN","C0QMU12",254,0) + ; +"RTN","C0QMU12",255,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",256,0) + N FOUND +"RTN","C0QMU12",257,0) + S FOUND=0 +"RTN","C0QMU12",258,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",259,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",260,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",261,0) + I FOUND D ; +"RTN","C0QMU12",262,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",263,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",264,0) + Q +"RTN","C0QMU12",265,0) + ; +"RTN","C0QMU12",266,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",267,0) + N ZICU +"RTN","C0QMU12",268,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",269,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",270,0) + S ZI="" +"RTN","C0QMU12",271,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",272,0) + . S ZJ="" +"RTN","C0QMU12",273,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",274,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",275,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",276,0) + Q +"RTN","C0QMU12",277,0) + ; +"RTN","C0QMU12",278,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",279,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",280,0) + K C0QLIST +"RTN","C0QMU12",281,0) + N ZPAT +"RTN","C0QMU12",282,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",283,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",284,0) + ; +"RTN","C0QMU12",285,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",286,0) + N GN,GO,GF +"RTN","C0QMU12",287,0) + S GN=ZPAT +"RTN","C0QMU12",288,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",289,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",290,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",291,0) + ; +"RTN","C0QMU12",292,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",293,0) + ; +"RTN","C0QMU12",294,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",295,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",296,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",297,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",298,0) + ; +"RTN","C0QMU12",299,0) + S GN=ZPAT +"RTN","C0QMU12",300,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",301,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",302,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",303,0) + ; +"RTN","C0QMU12",304,0) + S GN=ZPAT +"RTN","C0QMU12",305,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",306,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",307,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",308,0) + ; +"RTN","C0QMU12",309,0) + S GN=ZPAT +"RTN","C0QMU12",310,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",311,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",312,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",313,0) + ; +"RTN","C0QMU12",314,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",315,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",316,0) + Q +"RTN","C0QMU12",317,0) + ; +"RTN","C0QMU12",318,0) +ED1 ; +"RTN","C0QMU12",319,0) + S ZYR="MU12-" +"RTN","C0QMU12",320,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",321,0) + Q +"RTN","C0QMU12",322,0) + ; +"RTN","C0QMU12",323,0) +ED2 ; +"RTN","C0QMU12",324,0) + S ZYR="MU12-" +"RTN","C0QMU12",325,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",326,0) + Q +"RTN","C0QMU12",327,0) + ; +"RTN","C0QMU12",328,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",329,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",330,0) + N ZIEN,ZN +"RTN","C0QMU12",331,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",332,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",333,0) + Q ZN +"RTN","C0QMU12",334,0) + ; +"RTN","C0QMU12",335,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",336,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",337,0) + N ZIEN,ZN +"RTN","C0QMU12",338,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",339,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",340,0) + Q ZN +"RTN","C0QMU12",341,0) + ; +"RTN","C0QMU12",342,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",343,0) + N ZL,ZR +"RTN","C0QMU12",344,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",345,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",346,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",347,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",348,0) + Q ZR +"RTN","C0QMU12",349,0) + ; +"RTN","C0QMU12",350,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",351,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",352,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",353,0) + ; Initially, make an empty list (C0Q*1.0*6) +"RTN","C0QMU12",354,0) + S C0QLIST(PREFIX_"Patient")="" +"RTN","C0QMU12",355,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",356,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",357,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",358,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",359,0) + N ZI +"RTN","C0QMU12",360,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",361,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",362,0) + . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5 +"RTN","C0QMU12",363,0) + . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5 +"RTN","C0QMU12",364,0) + . I ZI="" Q ; +"RTN","C0QMU12",365,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",366,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",367,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",368,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",369,0) + Q +"RTN","C0QMU12",370,0) + ; +"RTN","C0QMU12",371,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",372,0) + ; +"RTN","C0QMU12",373,0) + S DTE=3111000 +"RTN","C0QMU12",374,0) + S MUYR=ZYR +"RTN","C0QMU12",375,0) + N ZC,ZN +"RTN","C0QMU12",376,0) + S ZN=0 +"RTN","C0QMU12",377,0) + N ZI S ZI=0 +"RTN","C0QMU12",378,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",379,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",380,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",381,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",382,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",383,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",384,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",385,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",386,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",387,0) + Q +"RTN","C0QMU12",388,0) + ; +"RTN","C0QMU12",389,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",390,0) + S ZYR="MU12-" +"RTN","C0QMU12",391,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",392,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",393,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",394,0) + N ZI S ZI="" +"RTN","C0QMU12",395,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",396,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",397,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",398,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",399,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",400,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",401,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",402,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",403,0) + . ; update parameter list with filter list (1.0*6) +"RTN","C0QMU12",404,0) + . S C0QPARM(ZI,"FilterListName")=PRE_"Patient" +"RTN","C0QMU12",405,0) + S DFN="" +"RTN","C0QMU12",406,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",407,0) + D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have +"RTN","C0QMU12",408,0) + ; any. C0Q*1*5 +"RTN","C0QMU12",409,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",410,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",411,0) + . D PROBLEM +"RTN","C0QMU12",412,0) + . D ALLERGY +"RTN","C0QMU12",413,0) + . ;D MEDS +"RTN","C0QMU12",414,0) + . D ERX +"RTN","C0QMU12",415,0) + . D SMOKING +"RTN","C0QMU12",416,0) + . D VITALS +"RTN","C0QMU12",417,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",418,0) + ; +"RTN","C0QMU12",419,0) + ; Now process eRx MU measures for these patients +"RTN","C0QMU12",420,0) + ; Check for eRx template and code first; if they exist, run the code +"RTN","C0QMU12",421,0) + I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO +"RTN","C0QMU12",422,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",423,0) + . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list +"RTN","C0QMU12",424,0) + ; +"RTN","C0QMU12",425,0) + N ZI S ZI="" +"RTN","C0QMU12",426,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",427,0) + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; +"RTN","C0QMU12",428,0) + . I 'C0QPARM(ZI,"EPMeasurementSet"),C0QPARM(ZI,"EPModelPerfSet") D +"RTN","C0QMU12",429,0) + . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) +"RTN","C0QMU12",430,0) + . . N FLN S FLN=C0QPARM(ZI,"FilterListName") +"RTN","C0QMU12",431,0) + . . ; +"RTN","C0QMU12",432,0) + . . ; 1. BUILD New Measure Set from Model Performance Measure Set +"RTN","C0QMU12",433,0) + . . ; Get IEN back of the newly created measure set. +"RTN","C0QMU12",434,0) + . . N MSIEN ; Measure Set IEN that gets created +"RTN","C0QMU12",435,0) + . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelPerfSet"),C0QCLNC,0,FLN) +"RTN","C0QMU12",436,0) + . . ; +"RTN","C0QMU12",437,0) + . . ; 2. File Measure Set +"RTN","C0QMU12",438,0) + . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2)=MSIEN +"RTN","C0QMU12",439,0) + . . N C0QERR +"RTN","C0QMU12",440,0) + . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) +"RTN","C0QMU12",441,0) + . . I $D(C0QERR) S $EC=",U1," +"RTN","C0QMU12",442,0) + . . ; +"RTN","C0QMU12",443,0) + . . ; 3. Set this IEN to be the one in EPMeasurementSet +"RTN","C0QMU12",444,0) + . . S C0QPARM(ZI,"EPMeasurementSet")=MSIEN +"RTN","C0QMU12",445,0) + . . ; DONE +"RTN","C0QMU12",446,0) + . . ; +"RTN","C0QMU12",447,0) + . I 'C0QPARM(ZI,"EPQualitySet"),C0QPARM(ZI,"EPModelQualitySet") D +"RTN","C0QMU12",448,0) + . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) +"RTN","C0QMU12",449,0) + . . N FLN S FLN=C0QPARM(ZI,"FilterListName") +"RTN","C0QMU12",450,0) + . . ; +"RTN","C0QMU12",451,0) + . . ; 1. BUILD New Measure Set from Model Performance Measure Set +"RTN","C0QMU12",452,0) + . . ; Get IEN back of the newly created measure set. +"RTN","C0QMU12",453,0) + . . N MSIEN ; Measure Set IEN that gets created +"RTN","C0QMU12",454,0) + . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelQualitySet"),C0QCLNC,1,FLN) +"RTN","C0QMU12",455,0) + . . ; +"RTN","C0QMU12",456,0) + . . ; 2. File Measure Set +"RTN","C0QMU12",457,0) + . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2.1)=MSIEN +"RTN","C0QMU12",458,0) + . . N C0QERR +"RTN","C0QMU12",459,0) + . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) +"RTN","C0QMU12",460,0) + . . I $D(C0QERR) S $EC=",U1," +"RTN","C0QMU12",461,0) + . . ; +"RTN","C0QMU12",462,0) + . . ; 3. Set this IEN to be the one in EPMeasurementSet +"RTN","C0QMU12",463,0) + . . S C0QPARM(ZI,"EPQualitySet")=MSIEN +"RTN","C0QMU12",464,0) + . . ; DONE +"RTN","C0QMU12",465,0) + . ; +"RTN","C0QMU12",466,0) + . ; Quit if we still don't have measurement sets +"RTN","C0QMU12",467,0) + . I 'C0QPARM(ZI,"EPMeasurementSet")&('C0QPARM(ZI,"EPQualitySet")) QUIT +"RTN","C0QMU12",468,0) + . ; +"RTN","C0QMU12",469,0) + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",470,0) + . ; VEN/SMH -- Quality Set missing for Outpatient -- adding +"RTN","C0QMU12",471,0) + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5 +"RTN","C0QMU12",472,0) + Q +"RTN","C0QMU12",473,0) + ; +"RTN","C0QMU12",474,0) +DIS ; +"RTN","C0QMU12",475,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",476,0) + F D Q:DTE="" +"RTN","C0QMU12",477,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",478,0) + . Q:'DTE +"RTN","C0QMU12",479,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",480,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",481,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",482,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",483,0) + . D +"RTN","C0QMU12",484,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",485,0) + . . Q:'PTFM +"RTN","C0QMU12",486,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",487,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",488,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",489,0) + . . D PROBLEM +"RTN","C0QMU12",490,0) + . . D ALLERGY +"RTN","C0QMU12",491,0) + . . D MEDS4 +"RTN","C0QMU12",492,0) + . . D RECON2 +"RTN","C0QMU12",493,0) + . . D ADVDIR +"RTN","C0QMU12",494,0) + . . D SMOKING +"RTN","C0QMU12",495,0) + . . D VITALS +"RTN","C0QMU12",496,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",497,0) + . . D VTE1 +"RTN","C0QMU12",498,0) + . . D COD +"RTN","C0QMU12",499,0) + . . D EDTIME +"RTN","C0QMU12",500,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",501,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",502,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",503,0) + Q +"RTN","C0QMU12",504,0) + ; +"RTN","C0QMU12",505,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",506,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",507,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",508,0) + ; +"RTN","C0QMU12",509,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",510,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",511,0) + N ZI,ZN +"RTN","C0QMU12",512,0) + S ZI="" +"RTN","C0QMU12",513,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",514,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",515,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",516,0) + . . K C0QFDA +"RTN","C0QMU12",517,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",518,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",519,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",520,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",521,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",522,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",523,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",524,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",525,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",526,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",527,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",528,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",529,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",530,0) + . N ZJ,ZK +"RTN","C0QMU12",531,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",532,0) + . K C0QFDA +"RTN","C0QMU12",533,0) + . S ZJ="" +"RTN","C0QMU12",534,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",535,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",536,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",537,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",538,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",539,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",540,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",541,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",542,0) + . K C0QFDA +"RTN","C0QMU12",543,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",544,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",545,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",546,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",547,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",548,0) + ;. Q +"RTN","C0QMU12",549,0) + ;. K C0QFDA +"RTN","C0QMU12",550,0) + ;. N ZJ,ZC +"RTN","C0QMU12",551,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",552,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",553,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",554,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",555,0) + ;. D UPDIE +"RTN","C0QMU12",556,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",557,0) + Q +"RTN","C0QMU12",558,0) + ; +"RTN","C0QMU12",559,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",560,0) + ; +"RTN","C0QMU12",561,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",562,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",563,0) + D CLEAN^DILF +"RTN","C0QMU12",564,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",565,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",566,0) + D CLEAN^DILF +"RTN","C0QMU12",567,0) + K ZERR +"RTN","C0QMU12",568,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",569,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",570,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",571,0) + ;. W "ERROR",! +"RTN","C0QMU12",572,0) + ;. ZWR ZERR +"RTN","C0QMU12",573,0) + ;. B +"RTN","C0QMU12",574,0) + K C0QFDA +"RTN","C0QMU12",575,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",576,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",577,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",578,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",579,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",580,0) + ; +"RTN","C0QMU12",581,0) + Q ZR +"RTN","C0QMU12",582,0) + ; +"RTN","C0QMU12",583,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",584,0) + K ZERR +"RTN","C0QMU12",585,0) + D CLEAN^DILF +"RTN","C0QMU12",586,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",587,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",588,0) + K C0QFDA +"RTN","C0QMU12",589,0) + Q +"RTN","C0QMU12",590,0) + ; +"RTN","C0QMU12",591,0) +END ;end of C0QPRML; +"RTN","C0QMU123") +0^2^B4208272 +"RTN","C0QMU123",1,0) +C0QMU123 ; VEN/SMH - Clone a Measure Set and give a new name and filter. ; 10/23/12 1:07pm +"RTN","C0QMU123",2,0) + ;;1.0;QUALITY MEASURES;**6**;;Build 3 +"RTN","C0QMU123",3,0) + ; (C) George Lilly. Licensed under AGPL. +"RTN","C0QMU123",4,0) + QUIT +"RTN","C0QMU123",5,0) + ; +"RTN","C0QMU123",6,0) +CLONE(MSIEN,CLNNM,ISQM,FLNAME) ; Private $$ ; Clone a measure set into a new one +"RTN","C0QMU123",7,0) + ; Input: +"RTN","C0QMU123",8,0) + ; 1. Measurement Set IEN to clone +"RTN","C0QMU123",9,0) + ; 2. Clinic Name for which this Measurement Set would apply (FT) +"RTN","C0QMU123",10,0) + ; 3. Boolean: Is Quality Measure? +"RTN","C0QMU123",11,0) + ; 4. Filter List Name +"RTN","C0QMU123",12,0) + ; +"RTN","C0QMU123",13,0) + ; Output: +"RTN","C0QMU123",14,0) + ; IEN of Created measure set. +"RTN","C0QMU123",15,0) + ; +"RTN","C0QMU123",16,0) + ; Get data from Model Set +"RTN","C0QMU123",17,0) + N C0QIENS S C0QIENS=MSIEN_"," ; Input to GETS call +"RTN","C0QMU123",18,0) + N C0QOUT,C0QERR ; Output Variables in GETS call. +"RTN","C0QMU123",19,0) + D GETS^DIQ(1130580001.201,C0QIENS,"**","",$NA(C0QOUT),$NA(C0QERR)) +"RTN","C0QMU123",20,0) + ; +"RTN","C0QMU123",21,0) + I $D(C0QERR) S $EC=",U1," ; Crash in case of error. Shouldn't happen. +"RTN","C0QMU123",22,0) + ; +"RTN","C0QMU123",23,0) + ; Deal with D0 stuff first. +"RTN","C0QMU123",24,0) + ; Merge D0 level into a new FDA array. +"RTN","C0QMU123",25,0) + N C0QNEW ; New FDA +"RTN","C0QMU123",26,0) + M C0QNEW(1130580001.201,"?+1,")=C0QOUT(1130580001.201,C0QIENS) +"RTN","C0QMU123",27,0) + ; +"RTN","C0QMU123",28,0) + ; Change .01 +"RTN","C0QMU123",29,0) + ; NOTE: Field name is 30 characters. But HL is max 30 chars too! +"RTN","C0QMU123",30,0) + ; So we have to truncate it. +"RTN","C0QMU123",31,0) + ; If Is Quality Measure, Use QM, otherwise, use Performance Report. +"RTN","C0QMU123",32,0) + S C0QNEW(1130580001.201,"?+1,",.01)=$E(CLNNM,1,27)_" "_$S(ISQM:"QM",1:"PR") +"RTN","C0QMU123",33,0) + ; +"RTN","C0QMU123",34,0) + ; Deal with D1 level +"RTN","C0QMU123",35,0) + N I S I=0 ; Looper +"RTN","C0QMU123",36,0) + N CNT S CNT=1 ; IENS counter ; Will become 2 and larger. Not to collide with the initial 1. +"RTN","C0QMU123",37,0) + ; +"RTN","C0QMU123",38,0) + ; For each record in D1 level +"RTN","C0QMU123",39,0) + F S I=$O(C0QOUT(1130580001.2011,I)) Q:'I D +"RTN","C0QMU123",40,0) + . S CNT=CNT+1 +"RTN","C0QMU123",41,0) + . ; Grab the Measure field +"RTN","C0QMU123",42,0) + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",.01)=C0QOUT(1130580001.2011,I,.01) +"RTN","C0QMU123",43,0) + . ; +"RTN","C0QMU123",44,0) + . ; Put the Filter lists on +"RTN","C0QMU123",45,0) + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",1.2)=FLNAME +"RTN","C0QMU123",46,0) + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",2.2)=FLNAME +"RTN","C0QMU123",47,0) + ; +"RTN","C0QMU123",48,0) + ; File Data. +"RTN","C0QMU123",49,0) + N C0QIEN,C0QERR ; Returned IEN, Error array +"RTN","C0QMU123",50,0) + D UPDATE^DIE("E",$NA(C0QNEW),$NA(C0QIEN),$NA(C0QERR)) +"RTN","C0QMU123",51,0) + I $D(C0QERR) S $EC=",U1," +"RTN","C0QMU123",52,0) + ; +"RTN","C0QMU123",53,0) + Q C0QIEN(1) ; Quit with IEN for ?+1. +"RTN","C0QMU123",54,0) + ; +"RTN","C0QMU123",55,0) + ; SAM(1130580001.201,"17,",.01)="DR OFFICE QM REPORT" +"RTN","C0QMU123",56,0) + ; SAM(1130580001.201,"17,",.02)="AUG 1,2012" +"RTN","C0QMU123",57,0) + ; SAM(1130580001.201,"17,",.03)="OCT 31,2012" +"RTN","C0QMU123",58,0) + ; SAM(1130580001.201,"17,",.04)="" +"RTN","C0QMU123",59,0) + ; SAM(1130580001.201,"17,",.05)="" +"RTN","C0QMU123",60,0) + ; SAM(1130580001.201,"17,",.2)="" +"RTN","C0QMU123",61,0) + ; SAM(1130580001.201,"17,",.3)="" +"RTN","C0QMU123",62,0) + ; SAM(1130580001.201,"17,",.4)="" +"RTN","C0QMU123",63,0) + ; SAM(1130580001.2011,"1,17,",.01)="MU EP NQF 0013" +"RTN","C0QMU123",64,0) + ; SAM(1130580001.2011,"1,17,",1.1)=1 +"RTN","C0QMU123",65,0) + ; SAM(1130580001.2011,"1,17,",1.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",66,0) + ; SAM(1130580001.2011,"1,17,",2.1)=1 +"RTN","C0QMU123",67,0) + ; SAM(1130580001.2011,"1,17,",2.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",68,0) + ; SAM(1130580001.2011,"1,17,",3)=100 +"RTN","C0QMU123",69,0) + ; SAM(1130580001.2011,"2,17,",.01)="MU EP NQF 0028A" +"RTN","C0QMU123",70,0) + ; SAM(1130580001.2011,"2,17,",1.1)=0 +"RTN","C0QMU123",71,0) + ; SAM(1130580001.2011,"2,17,",1.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",72,0) + ; SAM(1130580001.2011,"2,17,",2.1)=1 +"RTN","C0QMU123",73,0) + ; SAM(1130580001.2011,"2,17,",2.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",74,0) + ; SAM(1130580001.2011,"2,17,",3)=0 +"RTN","C0QMU123",75,0) + ; SAM(1130580001.2011,"3,17,",.01)="MU EP NQF 0028B" +"RTN","C0QMU123",76,0) + ; SAM(1130580001.2011,"3,17,",1.1)=0 +"RTN","C0QMU123",77,0) + ; SAM(1130580001.2011,"3,17,",1.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",78,0) + ; SAM(1130580001.2011,"3,17,",2.1)=1 +"RTN","C0QMU123",79,0) + ; SAM(1130580001.2011,"3,17,",2.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",80,0) + ; SAM(1130580001.2011,"3,17,",3)=0 +"RTN","C0QMU123",81,0) + ; SAM(1130580001.2011,"4,17,",.01)="MU EP NQF 0421" +"RTN","C0QMU123",82,0) + ; SAM(1130580001.2011,"4,17,",1.1)=1 +"RTN","C0QMU123",83,0) + ; SAM(1130580001.2011,"4,17,",1.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",84,0) + ; SAM(1130580001.2011,"4,17,",2.1)=1 +"RTN","C0QMU123",85,0) + ; SAM(1130580001.2011,"4,17,",2.2)="MU12-EP-DR OFFICE-Patient" +"RTN","C0QMU123",86,0) + ; SAM(1130580001.2011,"4,17,",3)=100 +"RTN","C0QMU123",87,0) + ; SAM(1130580001.20111,"1,1,17,",.01)="MOUSE,MICKEY" +"RTN","C0QMU123",88,0) + ; SAM(1130580001.20111,"1,4,17,",.01)="MOUSE,MICKEY" +"RTN","C0QMU123",89,0) + ; SAM(1130580001.20112,"1,1,17,",.01)="MOUSE,MICKEY" +"RTN","C0QMU123",90,0) + ; SAM(1130580001.20112,"1,2,17,",.01)="MOUSE,MICKEY" +"RTN","C0QMU123",91,0) + ; SAM(1130580001.20112,"1,3,17,",.01)="MOUSE,MICKEY" +"RTN","C0QMU123",92,0) + ; SAM(1130580001.20112,"1,4,17,",.01)="MOUSE,MICKEY" +"RTN","C0QMU123",93,0) + ; +"VER") +8.0^22.0 +"^DD",1130580001.401,1130580001.401,6.1,0) +MODEL PERFORMANCE MEASURE SET^P1130580001.201'^C0Q(201,^6;1^Q +"^DD",1130580001.401,1130580001.401,6.1,3) +Enter a measure set to base created measure sets on +"^DD",1130580001.401,1130580001.401,6.1,21,0) +^^4^4^3121022^ +"^DD",1130580001.401,1130580001.401,6.1,21,1,0) +Entering a selection here lets the software know that you want to create +"^DD",1130580001.401,1130580001.401,6.1,21,2,0) +a new Measure Set based on another measure set. The Measure Set's name +"^DD",1130580001.401,1130580001.401,6.1,21,3,0) +will be CLINIC NAME + PR, where the clinic name is truncated +"^DD",1130580001.401,1130580001.401,6.1,21,4,0) +to 27 characters, and where PR stands for Performance Report. +"^DD",1130580001.401,1130580001.401,6.1,"DT") +3121022 +"^DD",1130580001.401,1130580001.401,6.2,0) +MODEL QUALITY MEASURE SET^P1130580001.201'^C0Q(201,^6;2^Q +"^DD",1130580001.401,1130580001.401,6.2,3) +Enter a measure set to base created measure sets on +"^DD",1130580001.401,1130580001.401,6.2,21,0) +^^4^4^3121022^ +"^DD",1130580001.401,1130580001.401,6.2,21,1,0) +Entering a selection here lets the software know that you want to create +"^DD",1130580001.401,1130580001.401,6.2,21,2,0) +a new Measure Set based on another measure set. The Measure Set's name +"^DD",1130580001.401,1130580001.401,6.2,21,3,0) +will be CLINIC NAME + QM, where the clinic name is truncated +"^DD",1130580001.401,1130580001.401,6.2,21,4,0) +to 27 characters, and where QM stands for Quality Measures. +"^DD",1130580001.401,1130580001.401,6.2,"DT") +3121022 +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.TXT b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.TXT new file mode 100644 index 0000000..63bdcfe --- /dev/null +++ b/qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.TXT @@ -0,0 +1,469 @@ +DHCP Patch Display Page: 1 +============================================================================= +Run Date: OCT 23, 2012 Designation: C0Q*1*6 TEST v +Package : QUALITY MEASURES Priority : MANDATORY +Version : 1 Status : UNDER DEVELOPMENT +============================================================================= + +Subject: Support for Model Measure Sets + +Category: ROUTINE + INPUT TEMPLATE + ENHANCEMENT + +Description: +=========== + +$TXT Created by MANAGER,SYSTEM at BETA.VISTA-OFFICE.ORG (KIDS) on Tuesday, 10/2 +3/12 at 13:11 + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George +Lily on 23 October 2012 and released through VISTA Forum. + + (C) Geroge Lilly 2012 + Licensed under Package License: AGPL v3. + + http://www.gnu.org/licenses/agpl-3.0.html + + Functionality: + ============== + This patch adds support for using model Measurement Sets for creating a new +Measurement Sets based on the model Measurement Sets. Usage instructions will +be found at the end of this patch message. + + Support Tickets: + + + Package Elements: + ================= + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.401C0Q PARAMETER YES NO NO NO +Partial DD: subDD: 1130580001.401fld: 6.1 + fld: 6.2 + +INPUT TEMPLATE: ACTION: + C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE + +ROUTINE: ACTION: + C0QMU12 SEND TO SITE + C0QMU123 SEND TO SITE + Test Sites: + =========== + + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007), with the following exception: + + C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107 + S - Routine exceeds SACC maximum size of 20000 (20662). + S - Routine code exceeds SACC maximum size of 15000 (16922). + + + This software has not been tested for 508 compliance. + + Installation Instructions: + ========================== + Install Time - less than 1 minute + + 1. LOAD TRANSPORT GLOBAL + + Choose the PackMan message containing this patch and invoke the + INSTALL/CHECK MESSAGE PackMan option to unload the build. + + 2. START UP KIDS + + Start up the Kernel Installation and Distribution System Menu + [XPD MAIN]: + + Edits and Distribution ... + Utilities ... + Installation ... + + Select Kernel Installation & Distribution System Option: INStallation + --- + Load a Distribution + Print Transport Global + Compare Transport Global to Current System + Verify Checksums in Transport Global + Install Package(s) + Restart Install of Package(s) + Unload a Distribution + Backup a Transport Global + + Select Installation Option: + + 3. Select Installation Option: + + NOTE: The following are OPTIONAL - (When prompted for the INSTALL + NAME, enter C0Q*1.0*6): + + a. Backup a Transport Global - This option will create a backup + message of any routines exported with this patch. It will not + backup any other changes such as DD's or templates. + b. Compare Transport Global to Current System - This option will + allow you to view all changes that will be made when this patch + is installed. It compares all components of this patch + (routines, DD's, templates, etc.). + c. Verify Checksums in Transport Global - This option will allow + you to ensure the integrity of the routines that are in the + transport global. + + 4. Select Installation Option: Install Package(s) + + **This is the step to start the installation of this KIDS patch: + + a. Choose the Install Package(s) option to start the patch install + and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the + Environment Check routine, the message below will display + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + +Install Transcript: +Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System + +Select Kernel Installation & Distribution System Option: INStallation + +Select Installation Option: 1 Load a Distribution +Enter a Host File: C0Q*1.0*6 + +KIDS Distribution saved on Oct 22, 2012@17:41:17 +Comment: FRDGHJKLFGHJKL + +This Distribution contains Transport Globals for the following Package(s): + C0Q*1.0*6 +Distribution OK! + +Want to Continue with Load? YES// +Loading Distribution... + + C0Q*1.0*6 +Use INSTALL NAME: C0Q*1.0*6 to install this Distribution. + +Select Installation Option: 6 Install Package(s) +Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di +stribution 10/23/12@11:46:32 + => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 + +This Distribution was loaded on Oct 23, 2012@11:46:32 with header of + FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 + It consisted of the following Install(s): + C0Q*1.0*6 + + Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK + No overlap found + + Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK + No overlap found + + Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK + No overlap found + +Checking Install for Package C0Q*1.0*6 + +Install Questions for C0Q*1.0*6 + +Incoming Files: + + 1130580001.401C0Q PARAMETER (Partial Definition) +Note: You already have the 'C0Q PARAMETER' File. + +Want KIDS to INHIBIT LOGONs during the install? NO// +Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// + +Enter the Device you want to print the Install messages. +You can queue the install by enter a 'Q' at the device prompt. +Enter a '^' to abort the install. + +DEVICE: HOME// 0;P-OTHER;80;9999 TELNET + + Install Started for C0Q*1.0*6 : + Oct 23, 2012@11:46:53 + +Build Distribution Date: Oct 22, 2012 + + Installing Routines:... + Oct 23, 2012@11:46:53 + + Installing Data Dictionaries: .. + Oct 23, 2012@11:46:54 + + Installing PACKAGE COMPONENTS: + + Installing INPUT TEMPLATE.. + Oct 23, 2012@11:46:54 + + Updating Routine file...... + + Updating KIDS files....... + + C0Q*1.0*6 Installed. + Oct 23, 2012@11:46:54 + + Not a VA primary domain + + NO Install Message sent + +Select Installation Option: +---------------------------- + +Usage instructions: +=================== +1. Create two measure sets, one for Performance Measures, and one for Quality +Measures. If you have ones already created for other clinics, you can use them. +It's okay for them to have filter lists, as these will be deleted by the +software when the measure set is being copied. + +2. Attach these measure sets to an Outpatient Parameter in the fields: MODEL +PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of +these fields is to generate the a measure set to use in the fields EP MU +MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these +filled out, the Model fields will have no effect. + +3. Run the option EP UPDATE MU MEASURES. This create new measure sets based on +the model measure sets and attach the appropriate filter lists. + +Miscellaneous remarks: If a model set is replaced and the option to update is +reran, the behavior is not to delete the old created measure set but rather to +merge the contents of the new model set into the old created measure set. I am +not sure if this is the desirable behavior, but that is how it currently works. + +Transcript: +Select QUALITY MEASUREMENT MENU Option: ? + + COPY OVER PATIENT LISTS + ED-1 COMPUTATION + ED-2 COMPUTATION + EP UPDATE MU MEASURES + INP UPDATE MU MEASURES + PQRI MENU ... + PQRI PRINT XML + PRINT C0Q MEASURES + QRDA MENU ... + SETUP QUALITY REPORTING ... + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text. + +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES + +Select C0Q MEASUREMENT SET NAME: DR OFF + 1 DR OFFICE PERFORMANCE MEASURES + 2 DR OFFICE QUALITY MEASURES +CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +CPOE 3 0 0.00 + +PROBLEMS 3 3 100.00 + +ALLERGIES 3 3 100.00 + +Select C0Q MEASUREMENT SET NAME: DR OFF + 1 DR OFFICE PERFORMANCE MEASURES + 2 DR OFFICE QUALITY MEASURES +CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +NQF0013 Hypertension: 0 0 0.00 +Blood Pressure +Measurement + +NQF0028A Tobacco Use 0 0 0.00 +Assessment + +NQF0028B Tobacco Use 0 0 0.00 +Assessment and Cessation +Intervention + +Select C0Q MEASUREMENT SET NAME: + +Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING + +Select SETUP QUALITY REPORTING Option: EP EDIT PARMS + +Select C0Q PARAMETER NAME: ACME CLINIC #1 + Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y + (Yes) +NAME: ACME CLINIC #1// +MEASUREMENT PERIOD KEY: MU12 +PARAMETER TYPE: OU OUTPATIENT +EP MU MEASUREMENT SET: +EP QUALITY MEASUREMENT SET: +Select CLINIC: ACME CLINIC #1 + Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET +ER)? No// Y (Yes) +Select CLINIC: +PATIENT LIST LABEL: +Select SUBSCRIBER: +MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES +MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES + +Select C0Q PARAMETER NAME: + +Select SETUP QUALITY REPORTING Option: + +Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES +Jan 04, 2008@19:14:59 +Jan 02, 2008@18:40:58 +Nov 26, 2005@13:10:24 +Nov 26, 2005@14:12:42 +Nov 25, 2005@20:31:13 +Aug 02, 2005@08:40:36 +Aug 01, 2005@15:08:49 +Aug 01, 2005@15:21:18 +Jul 29, 2005@11:44:36 +Jul 29, 2005@11:53:15 +Jul 29, 2005@12:04:45 +Jul 28, 2005@12:20:20 +Jul 28, 2005@16:16:03 +Jul 27, 2005@11:21:04 +Jul 27, 2005@11:24:55 +Jul 27, 2005@11:41:40 +Jul 27, 2005@11:47:38 +Jul 27, 2005@11:49:41 +Jul 27, 2005@11:50:26 +Jul 27, 2005@15:45:45 +Jul 25, 2005@08:37:24 +Jul 24, 2005@11:01:55 +Jul 24, 2005@14:22:11 +Jul 24, 2005@16:22:29 +Jul 24, 2005@17:17:01 +Jul 24, 2005@17:33:39 +Jul 23, 2005@16:14:54 +Jul 23, 2005@17:17:08 +Jul 23, 2005@17:24:01 +Jul 22, 2005@10:49:29 +Jul 22, 2005@16:46:52 +Jul 21, 2005@08:56:56 +Jul 21, 2005@12:10:54 +Jul 21, 2005@15:39:22 +Jul 21, 2005@15:39:29 +Jul 20, 2005@10:07:46 +Jul 20, 2005@10:44:03 +Jul 19, 2005@07:41:49 +Jul 19, 2005@08:52:13 +Jul 19, 2005@11:32:14 +Jul 19, 2005@11:36:08 +Jul 19, 2005@13:35:12 +Jul 19, 2005@15:43:18 +Jul 19, 2005@15:54:48 +Jul 18, 2005@17:57:49 +Jul 15, 2005@16:00 +Jul 08, 2005@13:03 +Jul 01, 2005@14:37:23 +Oct 23, 2012@12:02 +CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0 +C0QFDA(1130580001.2011,"2,13,",3)=100 +C0QFDA(1130580001.2011,"3,13,",3)=100 +C0QFDA(1130580001.2011,"1,14,",3)=0 +C0QFDA(1130580001.2011,"2,14,",3)=0 +C0QFDA(1130580001.2011,"3,14,",3)=0 +C0QFDA(1130580001.2011,"1,15,",1.1)=0 +C0QFDA(1130580001.2011,"1,15,",2.1)=1 +C0QFDA(1130580001.20112,"+1,1,15,",.01)=3 +C0QFDA(1130580001.2011,"1,15,",3)=0 +C0QFDA(1130580001.2011,"2,15,",1.1)=1 +C0QFDA(1130580001.20111,"+1,2,15,",.01)=3 +C0QFDA(1130580001.2011,"2,15,",2.1)=1 +C0QFDA(1130580001.20112,"+1,2,15,",.01)=3 +C0QFDA(1130580001.2011,"2,15,",3)=100 +C0QFDA(1130580001.2011,"3,15,",1.1)=1 +C0QFDA(1130580001.20111,"+1,3,15,",.01)=3 +C0QFDA(1130580001.2011,"3,15,",2.1)=1 +C0QFDA(1130580001.20112,"+1,3,15,",.01)=3 +C0QFDA(1130580001.2011,"3,15,",3)=100 +C0QFDA(1130580001.2011,"1,16,",1.1)=0 +C0QFDA(1130580001.2011,"1,16,",2.1)=0 +C0QFDA(1130580001.2011,"1,16,",3)=0 +C0QFDA(1130580001.2011,"2,16,",1.1)=0 +C0QFDA(1130580001.2011,"2,16,",2.1)=0 +C0QFDA(1130580001.2011,"2,16,",3)=0 +C0QFDA(1130580001.2011,"3,16,",1.1)=0 +C0QFDA(1130580001.2011,"3,16,",2.1)=0 +C0QFDA(1130580001.2011,"3,16,",3)=0 + +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES + +Select C0Q MEASUREMENT SET NAME: ACME + 1 ACME CLINIC #1 PR + 2 ACME CLINIC #1 QM +CHOOSE 1-2: 1 ACME CLINIC #1 PR + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +CPOE 1 0 0.00 + +PROBLEMS 1 1 100.00 + +ALLERGIES 1 1 100.00 + +Select C0Q MEASUREMENT SET NAME: ACME + 1 ACME CLINIC #1 PR + 2 ACME CLINIC #1 QM +CHOOSE 1-2: 2 ACME CLINIC #1 QM + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +NQF0013 Hypertension: 0 0 0.00 +Blood Pressure +Measurement + +NQF0028A Tobacco Use 0 0 0.00 +Assessment + +NQF0028B Tobacco Use 0 0 0.00 +Assessment and Cessation +Intervention + + + +Routine Information: +==================== + + +The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**[Patch List]**;May 21, 2012;Build 2 + +The checksums below are new checksums, and + can be checked with CHECK1^XTSUMBLD. + +Routine Name: C0QMU12 + Before: n/a After:B351357107 **1,5,6** +Routine Name: C0QMU123 + Before: n/a After: B4208272 **6** + +Routine list of preceding patches: 5 + + +============================================================================= +User Information: + Entered By : HABIEL,SAM Date Entered : OCT 23,2012 + Completed By: Date Completed: + Released By : Date Released : +============================================================================= + diff --git a/qrda/C0Q/trunk/kids/QUALITY_MEASURES_1.0.KID b/qrda/C0Q/trunk/kids/QUALITY_MEASURES_1.0.KID new file mode 100644 index 0000000..ff88cc9 --- /dev/null +++ b/qrda/C0Q/trunk/kids/QUALITY_MEASURES_1.0.KID @@ -0,0 +1,9926 @@ +KIDS Distribution saved on Jul 31, 2012@17:18:02 +QUALITY MEASURES 1.0 T12 +**KIDS**:QUALITY MEASURES 1.0^ + +**INSTALL NAME** +QUALITY MEASURES 1.0 +"BLD",7929,0) +QUALITY MEASURES 1.0^QUALITY MEASURES^0^3120731^n +"BLD",7929,1,0) +^^9^9^3120731^^^^ +"BLD",7929,1,1,0) +The C0Q Quality Reporting Package is a mumps-based addition to VistA for +"BLD",7929,1,2,0) +reporting Meaningful Use and Quality Measurements. The package supports +"BLD",7929,1,3,0) +both inpatient and outpatient reporting, and computes the Meaningful Use +"BLD",7929,1,4,0) +measures from patient records. For Quality Measurements, the reporting +"BLD",7929,1,5,0) +package relies on the VistA Reminders Patient Lists as the source for its +"BLD",7929,1,6,0) +reporting. +"BLD",7929,1,7,0) + +"BLD",7929,1,8,0) +Installation and Use instructions can be found here: +"BLD",7929,1,9,0) +http://vistapedia.net/index.php?title=C0Q_Quality_Reporting_1.0 +"BLD",7929,4,0) +^9.64PA^1130580001.401^5 +"BLD",7929,4,178.301,0) +178.301 +"BLD",7929,4,178.301,222) +y^y^f^^n^^y^o^n +"BLD",7929,4,1130580001.101,0) +1130580001.101 +"BLD",7929,4,1130580001.101,222) +y^y^f^^n^^y^r^n +"BLD",7929,4,1130580001.101,224) + +"BLD",7929,4,1130580001.201,0) +1130580001.201 +"BLD",7929,4,1130580001.201,222) +y^y^f^^^^n^^ +"BLD",7929,4,1130580001.201,224) + +"BLD",7929,4,1130580001.301,0) +1130580001.301 +"BLD",7929,4,1130580001.301,222) +y^y^f^^^^n^^ +"BLD",7929,4,1130580001.301,224) + +"BLD",7929,4,1130580001.401,0) +1130580001.401 +"BLD",7929,4,1130580001.401,222) +y^y^f^^^^n +"BLD",7929,4,"B",178.301,178.301) + +"BLD",7929,4,"B",1130580001.101,1130580001.101) + +"BLD",7929,4,"B",1130580001.201,1130580001.201) + +"BLD",7929,4,"B",1130580001.301,1130580001.301) + +"BLD",7929,4,"B",1130580001.401,1130580001.401) + +"BLD",7929,6.3) +68 +"BLD",7929,"ABPKG") +n +"BLD",7929,"INI") +PRE^C0QKIDS +"BLD",7929,"INIT") +POST^C0QKIDS +"BLD",7929,"KRN",0) +^9.67PA^779.2^20 +"BLD",7929,"KRN",.4,0) +.4 +"BLD",7929,"KRN",.4,"NM",0) +^9.68A^6^6 +"BLD",7929,"KRN",.4,"NM",1,0) +C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",2,0) +C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",3,0) +C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0 +"BLD",7929,"KRN",.4,"NM",4,0) +C0Q EP SETUP FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",5,0) +C0Q HOS MEASURES FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM",6,0) +C0Q MEASUREMENT REPORT FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.4,"NM","B","C0Q EP SETUP FILE #1130580001.201",4) + +"BLD",7929,"KRN",.4,"NM","B","C0Q HOS MEASURES FILE #1130580001.201",5) + +"BLD",7929,"KRN",.4,"NM","B","C0Q MEASUREMENT REPORT FILE #1130580001.201",6) + +"BLD",7929,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1) + +"BLD",7929,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2) + +"BLD",7929,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3) + +"BLD",7929,"KRN",.401,0) +.401 +"BLD",7929,"KRN",.402,0) +.402 +"BLD",7929,"KRN",.402,"NM",0) +^9.68A^8^7 +"BLD",7929,"KRN",.402,"NM",1,0) +C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.402,"NM",3,0) +C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7929,"KRN",.402,"NM",4,0) +C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0 +"BLD",7929,"KRN",.402,"NM",5,0) +C0Q EDIT MU MEASURE FILE #1130580001.101^1130580001.101^0 +"BLD",7929,"KRN",.402,"NM",6,0) +C0Q EDIT OUPATIENT PARMS FILE #1130580001.401^1130580001.401^0 +"BLD",7929,"KRN",.402,"NM",7,0) +C0Q EDIT QUALITY MEASURE FILE #1130580001.101^1130580001.101^0 +"BLD",7929,"KRN",.402,"NM",8,0) +C0Q EDIT SUPERUSERS FILE #1130580001.401^1130580001.401^0 +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",3) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",4) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT MU MEASURE FILE #1130580001.101",5) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT OUPATIENT PARMS FILE #1130580001.401",6) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT QUALITY MEASURE FILE #1130580001.101",7) + +"BLD",7929,"KRN",.402,"NM","B","C0Q EDIT SUPERUSERS FILE #1130580001.401",8) + +"BLD",7929,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1) + +"BLD",7929,"KRN",.403,0) +.403 +"BLD",7929,"KRN",.5,0) +.5 +"BLD",7929,"KRN",.84,0) +.84 +"BLD",7929,"KRN",3.6,0) +3.6 +"BLD",7929,"KRN",3.8,0) +3.8 +"BLD",7929,"KRN",9.2,0) +9.2 +"BLD",7929,"KRN",9.8,0) +9.8 +"BLD",7929,"KRN",9.8,"NM",0) +^9.68A^20^16 +"BLD",7929,"KRN",9.8,"NM",1,0) +C0QMAIN^^0^B116855264 +"BLD",7929,"KRN",9.8,"NM",2,0) +C0QGMRAD^^0^B18802718 +"BLD",7929,"KRN",9.8,"NM",3,0) +C0QGMTSA^^0^B2175692 +"BLD",7929,"KRN",9.8,"NM",4,0) +C0QGMTSG^^0^B29331917 +"BLD",7929,"KRN",9.8,"NM",5,0) +C0QERTIM^^0^B7594438 +"BLD",7929,"KRN",9.8,"NM",7,0) +C0QPQRI^^0^B41586325 +"BLD",7929,"KRN",9.8,"NM",9,0) +C0QSET^^0^B8764820 +"BLD",7929,"KRN",9.8,"NM",10,0) +C0QUPDT^^0^B52683124 +"BLD",7929,"KRN",9.8,"NM",11,0) +C0QHF^^0^B4977233 +"BLD",7929,"KRN",9.8,"NM",13,0) +C0QUTIL^^0^B21495692 +"BLD",7929,"KRN",9.8,"NM",14,0) +C0QINIT^^0^B5217090 +"BLD",7929,"KRN",9.8,"NM",15,0) +C0QNOTES^^0^B16985475 +"BLD",7929,"KRN",9.8,"NM",17,0) +C0QMU12^^0^B256149135 +"BLD",7929,"KRN",9.8,"NM",18,0) +C0QIMMUN^^0^B7512677 +"BLD",7929,"KRN",9.8,"NM",19,0) +C0QMU121^^0^B184663073 +"BLD",7929,"KRN",9.8,"NM",20,0) +C0QMU122^^0^B3365532 +"BLD",7929,"KRN",9.8,"NM","B","C0QERTIM",5) + +"BLD",7929,"KRN",9.8,"NM","B","C0QGMRAD",2) + +"BLD",7929,"KRN",9.8,"NM","B","C0QGMTSA",3) + +"BLD",7929,"KRN",9.8,"NM","B","C0QGMTSG",4) + +"BLD",7929,"KRN",9.8,"NM","B","C0QHF",11) + +"BLD",7929,"KRN",9.8,"NM","B","C0QIMMUN",18) + +"BLD",7929,"KRN",9.8,"NM","B","C0QINIT",14) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMAIN",1) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMU12",17) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMU121",19) + +"BLD",7929,"KRN",9.8,"NM","B","C0QMU122",20) + +"BLD",7929,"KRN",9.8,"NM","B","C0QNOTES",15) + +"BLD",7929,"KRN",9.8,"NM","B","C0QPQRI",7) + +"BLD",7929,"KRN",9.8,"NM","B","C0QSET",9) + +"BLD",7929,"KRN",9.8,"NM","B","C0QUPDT",10) + +"BLD",7929,"KRN",9.8,"NM","B","C0QUTIL",13) + +"BLD",7929,"KRN",19,0) +19 +"BLD",7929,"KRN",19,"NM",0) +^9.68A^29^23 +"BLD",7929,"KRN",19,"NM",1,0) +C0Q BY PATIENT NUMERATOR^^0 +"BLD",7929,"KRN",19,"NM",2,0) +C0Q DENOMINATOR PATIENT LIST^^0 +"BLD",7929,"KRN",19,"NM",4,0) +C0Q DISPLAY QUALITY MEASURES^^0 +"BLD",7929,"KRN",19,"NM",5,0) +C0Q EXPORT CCR BY MEASURE^^0 +"BLD",7929,"KRN",19,"NM",6,0) +C0Q EXPORT MEASURE SET^^0 +"BLD",7929,"KRN",19,"NM",7,0) +C0Q LIST MEASURE SET^^0 +"BLD",7929,"KRN",19,"NM",10,0) +C0Q QUALITY MEASUREMENT MENU^^0 +"BLD",7929,"KRN",19,"NM",12,0) +C0Q COPY PATIENT LISTS^^0 +"BLD",7929,"KRN",19,"NM",13,0) +C0Q PQRI MENU^^0 +"BLD",7929,"KRN",19,"NM",14,0) +C0Q PRINT MEASURES^^0 +"BLD",7929,"KRN",19,"NM",15,0) +C0Q UPDATE QUALITY MEASUREMENT^^0 +"BLD",7929,"KRN",19,"NM",16,0) +C0Q PRINT PQRI XML^^0 +"BLD",7929,"KRN",19,"NM",19,0) +C0Q ED1 COMPUTATION^^0 +"BLD",7929,"KRN",19,"NM",20,0) +C0Q ED2 COMPUTATION^^0 +"BLD",7929,"KRN",19,"NM",21,0) +C0Q EP UPDATE MU MEASURES^^0 +"BLD",7929,"KRN",19,"NM",22,0) +C0Q INP UPDATE MU MEASURES^^0 +"BLD",7929,"KRN",19,"NM",23,0) +C0Q SETUP QUALITY REPORTING^^0 +"BLD",7929,"KRN",19,"NM",24,0) +C0Q EDIT INP PARMS^^0 +"BLD",7929,"KRN",19,"NM",25,0) +C0Q EDIT MEASURE SET^^0 +"BLD",7929,"KRN",19,"NM",26,0) +C0Q EDIT MU MEASURE^^0 +"BLD",7929,"KRN",19,"NM",27,0) +C0Q EDIT OUTPATIENT PARMS^^0 +"BLD",7929,"KRN",19,"NM",28,0) +C0Q EDIT QUALITY MEASURE^^0 +"BLD",7929,"KRN",19,"NM",29,0) +C0Q EDIT SUPERUSERS^^0 +"BLD",7929,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1) + +"BLD",7929,"KRN",19,"NM","B","C0Q COPY PATIENT LISTS",12) + +"BLD",7929,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2) + +"BLD",7929,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4) + +"BLD",7929,"KRN",19,"NM","B","C0Q ED1 COMPUTATION",19) + +"BLD",7929,"KRN",19,"NM","B","C0Q ED2 COMPUTATION",20) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT INP PARMS",24) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT MEASURE SET",25) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT MU MEASURE",26) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT OUTPATIENT PARMS",27) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT QUALITY MEASURE",28) + +"BLD",7929,"KRN",19,"NM","B","C0Q EDIT SUPERUSERS",29) + +"BLD",7929,"KRN",19,"NM","B","C0Q EP UPDATE MU MEASURES",21) + +"BLD",7929,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5) + +"BLD",7929,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6) + +"BLD",7929,"KRN",19,"NM","B","C0Q INP UPDATE MU MEASURES",22) + +"BLD",7929,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7) + +"BLD",7929,"KRN",19,"NM","B","C0Q PQRI MENU",13) + +"BLD",7929,"KRN",19,"NM","B","C0Q PRINT MEASURES",14) + +"BLD",7929,"KRN",19,"NM","B","C0Q PRINT PQRI XML",16) + +"BLD",7929,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10) + +"BLD",7929,"KRN",19,"NM","B","C0Q SETUP QUALITY REPORTING",23) + +"BLD",7929,"KRN",19,"NM","B","C0Q UPDATE QUALITY MEASUREMENT",15) + +"BLD",7929,"KRN",19.1,0) +19.1 +"BLD",7929,"KRN",101,0) +101 +"BLD",7929,"KRN",409.61,0) +409.61 +"BLD",7929,"KRN",771,0) +771 +"BLD",7929,"KRN",779.2,0) +779.2 +"BLD",7929,"KRN",870,0) +870 +"BLD",7929,"KRN",8989.51,0) +8989.51 +"BLD",7929,"KRN",8989.52,0) +8989.52 +"BLD",7929,"KRN",8994,0) +8994 +"BLD",7929,"KRN","B",.4,.4) + +"BLD",7929,"KRN","B",.401,.401) + +"BLD",7929,"KRN","B",.402,.402) + +"BLD",7929,"KRN","B",.403,.403) + +"BLD",7929,"KRN","B",.5,.5) + +"BLD",7929,"KRN","B",.84,.84) + +"BLD",7929,"KRN","B",3.6,3.6) + +"BLD",7929,"KRN","B",3.8,3.8) + +"BLD",7929,"KRN","B",9.2,9.2) + +"BLD",7929,"KRN","B",9.8,9.8) + +"BLD",7929,"KRN","B",19,19) + +"BLD",7929,"KRN","B",19.1,19.1) + +"BLD",7929,"KRN","B",101,101) + +"BLD",7929,"KRN","B",409.61,409.61) + +"BLD",7929,"KRN","B",771,771) + +"BLD",7929,"KRN","B",779.2,779.2) + +"BLD",7929,"KRN","B",870,870) + +"BLD",7929,"KRN","B",8989.51,8989.51) + +"BLD",7929,"KRN","B",8989.52,8989.52) + +"BLD",7929,"KRN","B",8994,8994) + +"BLD",7929,"PRET") +TRAN^C0QKIDS +"BLD",7929,"QDEF") +^^^^^^^^YES +"BLD",7929,"QUES",0) +^9.62^^ +"BLD",7929,"REQB",0) +^9.611^1^1 +"BLD",7929,"REQB",1,0) +CCD/CCR GENERATION UTILITIES 1.2^2 +"BLD",7929,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1) + +"DATA",178.301,1,0) +TEST +"DATA",178.301,1,9,0) +^178.3014^2^2 +"DATA",178.301,1,9,1,0) +//TEST/ONE +"DATA",178.301,1,9,1,2) +TESTONE +"DATA",178.301,1,9,2,0) +//TEST/TWO +"DATA",178.301,1,9,2,1) +DFN +"DATA",178.301,1,9,2,2) +TESTTWO +"DATA",178.301,2,0) +ICD9 +"DATA",178.301,2,1) +http://www.webservicemart.com/icd9code.asmx/ICD9Codes +"DATA",178.301,2,2) +http://www.webservicemart.com/icd9code.asmx?op=ICD9Codes +"DATA",178.301,2,3,0) +^178.311^11^11^3100225^^^^ +"DATA",178.301,2,3,1,0) + +"DATA",178.301,2,3,2,0) + +"DATA",178.301,2,3,5,0) + +"DATA",178.301,2,3,6,0) + +"DATA",178.301,2,3,7,0) + string +"DATA",178.301,2,3,8,0) + string +"DATA",178.301,2,3,9,0) + +"DATA",178.301,2,3,10,0) + +"DATA",178.301,2,3,11,0) + +"DATA",178.301,2,6) +http://76.110.216.135/icd9code.asmx/ICD9Codes +"DATA",178.301,2,8,0) +^178.3013^11^11^3100225^^ +"DATA",178.301,2,8,1,0) + +"DATA",178.301,2,8,2,0) + +"DATA",178.301,2,8,6,0) + +"DATA",178.301,2,8,7,0) +@@//soap:Envelope/soap:Body/ICD9Codes/Code@@ +"DATA",178.301,2,8,8,0) +@@//soap:Envelope/soap:Body/ICD9Codes/CodeLenght@@ +"DATA",178.301,2,8,9,0) + +"DATA",178.301,2,8,10,0) + +"DATA",178.301,2,8,11,0) + +"DATA",178.301,2,9,0) +^178.3014^5^5 +"DATA",178.301,2,9,1,0) +//soap:Envelope +"DATA",178.301,2,9,2,0) +//soap:Envelope/soap:Body +"DATA",178.301,2,9,3,0) +//soap:Envelope/soap:Body/ICD9Codes +"DATA",178.301,2,9,4,0) +//soap:Envelope/soap:Body/ICD9Codes/Code +"DATA",178.301,2,9,4,2) +CODE +"DATA",178.301,2,9,5,0) +//soap:Envelope/soap:Body/ICD9Codes/CodeLenght +"DATA",178.301,2,9,5,2) +CODELN +"DATA",178.301,2,10,0) +^^4^4^3100226^ +"DATA",178.301,2,10,1,0) +User-Agent: Mozilla/4.0 +"DATA",178.301,2,10,2,0) +SOAPAction: "http://webservicemart.com/ws/ICD9Codes" +"DATA",178.301,2,10,3,0) +Expect: 100-continue +"DATA",178.301,2,10,4,0) +Connection: Keep-Alive +"DATA",178.301,3,0) +ICD9RESULT +"DATA",178.301,3,3,0) +^^31^31^3100227^ +"DATA",178.301,3,3,1,0) + +"DATA",178.301,3,3,2,0) + +"DATA",178.301,3,3,3,0) + +"DATA",178.301,3,3,4,0) + +"DATA",178.301,3,3,5,0) + +"DATA",178.301,3,3,6,0) + +"DATA",178.301,3,3,7,0) + +"DATA",178.301,3,3,8,0) + +"DATA",178.301,3,3,9,0) + +"DATA",178.301,3,3,10,0) + +"DATA",178.301,3,3,11,0) + +"DATA",178.301,3,3,12,0) + +"DATA",178.301,3,3,13,0) + +"DATA",178.301,3,3,14,0) + +"DATA",178.301,3,3,15,0) + +"DATA",178.301,3,3,16,0) + +"DATA",178.301,3,3,17,0) + +"DATA",178.301,3,3,18,0) + +"DATA",178.301,3,3,19,0) + +"DATA",178.301,3,3,20,0) + +"DATA",178.301,3,3,21,0) + +"DATA",178.301,3,3,22,0) + +"DATA",178.301,3,3,23,0) + +"DATA",178.301,3,3,24,0) + +"DATA",178.301,3,3,25,0) + +"DATA",178.301,3,3,26,0) + +"DATA",178.301,3,3,27,0) + +"DATA",178.301,3,3,28,0) + +"DATA",178.301,3,3,29,0) + +"DATA",178.301,3,3,30,0) + +"DATA",178.301,3,3,31,0) + +"DATA",178.301,4,0) +PQRIXML +"DATA",178.301,4,3,0) +^^42^42^3110620^ +"DATA",178.301,4,3,1,0) + +"DATA",178.301,4,3,2,0) + +"DATA",178.301,4,3,5,0) + +"DATA",178.301,4,3,6,0) +12-10-2010 +"DATA",178.301,4,3,7,0) +14:27 +"DATA",178.301,4,3,8,0) +RegistryA +"DATA",178.301,4,3,9,0) +1.0 +"DATA",178.301,4,3,10,0) +1 +"DATA",178.301,4,3,11,0) +9 +"DATA",178.301,4,3,12,0) + +"DATA",178.301,4,3,13,0) + +"DATA",178.301,4,3,14,0) +Model Registry +"DATA",178.301,4,3,15,0) +125789123 +"DATA",178.301,4,3,16,0) +C +"DATA",178.301,4,3,17,0) + +"DATA",178.301,4,3,18,0) + +"DATA",178.301,4,3,19,0) + +"DATA",178.301,4,3,20,0) +12011989 +"DATA",178.301,4,3,21,0) +387682321 +"DATA",178.301,4,3,22,0) +Y +"DATA",178.301,4,3,23,0) +06-13-2010 +"DATA",178.301,4,3,24,0) +12-10-2010 +"DATA",178.301,4,3,25,0) + +"DATA",178.301,4,3,26,0) +2 +"DATA",178.301,4,3,27,0) +20 +"DATA",178.301,4,3,28,0) +30 +"DATA",178.301,4,3,29,0) +66.67 +"DATA",178.301,4,3,30,0) + +"DATA",178.301,4,3,31,0) + +"DATA",178.301,4,3,32,0) +128 +"DATA",178.301,4,3,33,0) +100 +"DATA",178.301,4,3,34,0) +18 +"DATA",178.301,4,3,35,0) +0 +"DATA",178.301,4,3,36,0) +10 +"DATA",178.301,4,3,37,0) +28.00 +"DATA",178.301,4,3,38,0) +90.00 +"DATA",178.301,4,3,39,0) + +"DATA",178.301,4,3,40,0) + +"DATA",178.301,4,3,41,0) + +"DATA",178.301,4,3,42,0) + +"DATA",178.301,4,8,0) +^^42^42^3110614^ +"DATA",178.301,4,8,1,0) + +"DATA",178.301,4,8,2,0) + +"DATA",178.301,4,8,5,0) + +"DATA",178.301,4,8,6,0) +@@//submission/file-audit-data/create-date@@ +"DATA",178.301,4,8,7,0) +@@//submission/file-audit-data/create-time@@ +"DATA",178.301,4,8,8,0) +@@//submission/file-audit-data/create-by@@ +"DATA",178.301,4,8,9,0) +@@//submission/file-audit-data/version@@ +"DATA",178.301,4,8,10,0) +@@//submission/file-audit-data/file-number@@ +"DATA",178.301,4,8,11,0) +@@//submission/file-audit-data/number-of-files@@ +"DATA",178.301,4,8,12,0) + +"DATA",178.301,4,8,13,0) + +"DATA",178.301,4,8,14,0) +@@//submission/registry/registry-name@@ +"DATA",178.301,4,8,15,0) +@@//submission/registry/registry-id@@ +"DATA",178.301,4,8,16,0) +@@//submission/registry/submission-method@@ +"DATA",178.301,4,8,17,0) + +"DATA",178.301,4,8,18,0) + +"DATA",178.301,4,8,19,0) + +"DATA",178.301,4,8,20,0) +@@//submission/measure-group/provider/npi@@ +"DATA",178.301,4,8,21,0) +@@//submission/measure-group/provider/tin@@ +"DATA",178.301,4,8,22,0) +@@//submission/measure-group/provider/waiver-signed@@ +"DATA",178.301,4,8,23,0) +@@//submission/measure-group/provider/encounter-from-date@@ +"DATA",178.301,4,8,24,0) +@@//submission/measure-group/provider/encounter-to-date@@ +"DATA",178.301,4,8,25,0) + +"DATA",178.301,4,8,26,0) +@@//submission/measure-group/provider/measure-group-stat/ffs-patient-count@@ +"DATA",178.301,4,8,27,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator@@ +"DATA",178.301,4,8,28,0) +@@//submission/measure-group/provider/measure-group-stat/group-eligible-instances@@ +"DATA",178.301,4,8,29,0) +@@//submission/measure-group/provider/measure-group-stat/group-reporting-rate@@ +"DATA",178.301,4,8,30,0) + +"DATA",178.301,4,8,31,0) + +"DATA",178.301,4,8,32,0) +@@//submission/measure-group/provider/pqri-measure/pqri-measure-number@@ +"DATA",178.301,4,8,33,0) +@@//submission/measure-group/provider/pqri-measure/eligible-instances@@ +"DATA",178.301,4,8,34,0) +@@//submission/measure-group/provider/pqri-measure/meets-performance-instances@@ +"DATA",178.301,4,8,35,0) +@@//submission/measure-group/provider/pqri-measure/performance-exclusion-instances@@ +"DATA",178.301,4,8,36,0) +@@//submission/measure-group/provider/pqri-measure/performance-not-met-instances@@ +"DATA",178.301,4,8,37,0) +@@//submission/measure-group/provider/pqri-measure/reporting-rate@@ +"DATA",178.301,4,8,38,0) +@@//submission/measure-group/provider/pqri-measure/performance-rate@@ +"DATA",178.301,4,8,39,0) + +"DATA",178.301,4,8,40,0) + +"DATA",178.301,4,8,41,0) + +"DATA",178.301,4,8,42,0) + +"DATA",178.301,4,9,0) +^178.3014^25^25 +"DATA",178.301,4,9,1,0) +//submission/file-audit-data/create-by +"DATA",178.301,4,9,1,1) +a +"DATA",178.301,4,9,1,2) +create-by +"DATA",178.301,4,9,2,0) +//submission/file-audit-data/create-date +"DATA",178.301,4,9,2,2) +create-date +"DATA",178.301,4,9,3,0) +//submission/file-audit-data/create-time +"DATA",178.301,4,9,3,2) +create-time +"DATA",178.301,4,9,4,0) +//submission/file-audit-data/file-number +"DATA",178.301,4,9,4,2) +file-number +"DATA",178.301,4,9,5,0) +//submission/file-audit-data/number-of-files +"DATA",178.301,4,9,5,2) +number-of-files +"DATA",178.301,4,9,6,0) +//submission/file-audit-data/version +"DATA",178.301,4,9,6,2) +version +"DATA",178.301,4,9,7,0) +//submission/measure-group/provider/encounter-from-date +"DATA",178.301,4,9,7,2) +encounter-from-date +"DATA",178.301,4,9,8,0) +//submission/measure-group/provider/encounter-to-date +"DATA",178.301,4,9,8,2) +encounter-to-date +"DATA",178.301,4,9,9,0) +//submission/measure-group/provider/measure-group-stat/ffs-patient-count +"DATA",178.301,4,9,9,2) +ffs-patient-count +"DATA",178.301,4,9,10,0) +//submission/measure-group/provider/measure-group-stat/group-eligible-instances +"DATA",178.301,4,9,10,2) +group-eligible-instances +"DATA",178.301,4,9,11,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate +"DATA",178.301,4,9,11,2) +group-reporting-rate +"DATA",178.301,4,9,12,0) +//submission/measure-group/provider/measure-group-stat/group-reporting-rate-numerator +"DATA",178.301,4,9,12,2) +group-reporting-rate-numerator +"DATA",178.301,4,9,13,0) +//submission/measure-group/provider/npi +"DATA",178.301,4,9,13,2) +npi +"DATA",178.301,4,9,14,0) +//submission/measure-group/provider/pqri-measure/eligible-instances +"DATA",178.301,4,9,14,2) +eligible-instances +"DATA",178.301,4,9,15,0) +//submission/measure-group/provider/pqri-measure/meets-performance-instances +"DATA",178.301,4,9,15,2) +meets-performance-instances +"DATA",178.301,4,9,16,0) +//submission/measure-group/provider/pqri-measure/performance-exclusion-instances +"DATA",178.301,4,9,16,2) +performance-exclusion-instances +"DATA",178.301,4,9,17,0) +//submission/measure-group/provider/pqri-measure/performance-not-met-instances +"DATA",178.301,4,9,17,2) +performance-not-met-instances +"DATA",178.301,4,9,18,0) +//submission/measure-group/provider/pqri-measure/performance-rate +"DATA",178.301,4,9,18,2) +performance-rate +"DATA",178.301,4,9,19,0) +//submission/measure-group/provider/pqri-measure/pqri-measure-number +"DATA",178.301,4,9,19,2) +pqri-measure-number +"DATA",178.301,4,9,20,0) +//submission/measure-group/provider/pqri-measure/reporting-rate +"DATA",178.301,4,9,20,2) +reporting-rate +"DATA",178.301,4,9,21,0) +//submission/measure-group/provider/tin +"DATA",178.301,4,9,21,2) +tin +"DATA",178.301,4,9,22,0) +//submission/measure-group/provider/waiver-signed +"DATA",178.301,4,9,22,2) +waiver-signed +"DATA",178.301,4,9,23,0) +//submission/registry/registry-id +"DATA",178.301,4,9,23,2) +registry-id +"DATA",178.301,4,9,24,0) +//submission/registry/registry-name +"DATA",178.301,4,9,24,2) +registry-name +"DATA",178.301,4,9,25,0) +//submission/registry/submission-method +"DATA",178.301,4,9,25,2) +submission-method +"DATA",178.301,5,0) +PQRI ONE MEASURE +"DATA",178.301,5,3,0) +^^12^12^3110620^ +"DATA",178.301,5,3,1,0) + +"DATA",178.301,5,3,2,0) + +"DATA",178.301,5,3,3,0) + +"DATA",178.301,5,3,4,0) +@@pqri-measure-number@@ +"DATA",178.301,5,3,5,0) +@@eligible-instances@@ +"DATA",178.301,5,3,6,0) +@@meets-performance-instances@@ +"DATA",178.301,5,3,7,0) +@@performance-exclusion-instances@@ +"DATA",178.301,5,3,8,0) +@@performance-not-met-instances@@ +"DATA",178.301,5,3,9,0) +@@reporting-rate@@ +"DATA",178.301,5,3,10,0) +@@performance-rate@@ +"DATA",178.301,5,3,11,0) + +"DATA",178.301,5,3,12,0) + +"DATA",1130580001.101,4,0) +PQRI MEASURE 124^^^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,4,7) +^^^^ +"DATA",1130580001.101,6,0) +PQRI MEASURE 47^^^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,6,7) +^^^^ +"DATA",1130580001.101,7,0) +PQRI MEASURE 48^^^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,7,7) +^^^^ +"DATA",1130580001.101,12,0) +MU EP NQF 0043^^^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) +^1130580001.111^2^2^3120730^^ +"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,12,7) +^^^^ +"DATA",1130580001.101,14,0) +PQRI MEASURE 39^^^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,14,7) +^^^^ +"DATA",1130580001.101,16,0) +PQRI MEASURE 173^^^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,16,7) +^^^^ +"DATA",1130580001.101,23,0) +MU HOS NQF 0495^^ +"DATA",1130580001.101,23,1) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,5) +ED THROUGHPUT ARRIVAL TO DEPARTURE +"DATA",1130580001.101,23,6,0) +^1130580001.111^3^3^3110430^^^^ +"DATA",1130580001.101,23,6,1,0) +Median time from emergency department arrival to time of departure from +"DATA",1130580001.101,23,6,2,0) +the emergency room for patients admitted to the facility from the +"DATA",1130580001.101,23,6,3,0) +emergency department +"DATA",1130580001.101,23,7) +NQF0495^^^^ +"DATA",1130580001.101,24,0) +MU HOS NQF 0497^^ +"DATA",1130580001.101,24,1) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,5) +ED THROUGHPUT ADMITTING DECISION TO DEPARTURE +"DATA",1130580001.101,24,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,24,6,1,0) +Median time from admit decision time to time of departure from the +"DATA",1130580001.101,24,6,2,0) +emergency department of emergency department patients admitted to +"DATA",1130580001.101,24,6,3,0) +inpatient status +"DATA",1130580001.101,24,7) +NQF0497^^^^ +"DATA",1130580001.101,25,0) +MU HOS NQF 0435^^ +"DATA",1130580001.101,25,1) +Ischemic stroke.Discharge on anti-thrombotics +"DATA",1130580001.101,25,5) + Ischemic stroke.Discharge on anti-thrombotic +"DATA",1130580001.101,25,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,25,6,1,0) +Ischemic stroke patients prescribed antithrombotic therapy at hospital +"DATA",1130580001.101,25,6,2,0) +discharge +"DATA",1130580001.101,25,7) +NQF0435^^^^ +"DATA",1130580001.101,26,0) +MU HOS NQF 0436^^ +"DATA",1130580001.101,26,1) + Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,5) +Ischemic stroke.Anticoagulation for A-fib/flutter +"DATA",1130580001.101,26,6,0) +^1130580001.111^2^2^3110430^^^ +"DATA",1130580001.101,26,6,1,0) + Ischemic stroke patients with atrial fibrillation/flutter who are +"DATA",1130580001.101,26,6,2,0) +prescribed anticoagulation therapy at hospital discharge +"DATA",1130580001.101,26,7) +NQF0436^^^^ +"DATA",1130580001.101,27,0) +MU HOS NQF 0437^^ +"DATA",1130580001.101,27,1) + Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,5) +Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset +"DATA",1130580001.101,27,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,27,6,1,0) +Acute ischemic stroke patients who arrive at this hospital within 2 +"DATA",1130580001.101,27,6,2,0) +hours of time last known well and for whom IV t-PA was initiated at this +"DATA",1130580001.101,27,6,3,0) +hospital within 3 hours of time last known well. +"DATA",1130580001.101,27,7) +NQF0437^^^^ +"DATA",1130580001.101,28,0) +MU HOS NQF 0438^^ +"DATA",1130580001.101,28,1) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,5) +Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 +"DATA",1130580001.101,28,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,28,6,1,0) +Ischemic stroke patients administered antithrombotic therapy by the +"DATA",1130580001.101,28,6,2,0) +end of hospital day 2. +"DATA",1130580001.101,28,7) +NQF0438^^^^ +"DATA",1130580001.101,29,0) +MU HOS NQF 0439^^ +"DATA",1130580001.101,29,1) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,5) +Ischemic stroke.Discharge on statins +"DATA",1130580001.101,29,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,29,6,1,0) +Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, +"DATA",1130580001.101,29,6,2,0) +who were on a lipid-lowering medication prior to hospital arrival are +"DATA",1130580001.101,29,6,3,0) +prescribed statin medication at hospital discharge +"DATA",1130580001.101,29,7) +NQF0439^^^^ +"DATA",1130580001.101,30,0) +MU HOS NQF 0440^^ +"DATA",1130580001.101,30,1) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,5) +Ischemic or hemorrhagic stroke.Stroke education +"DATA",1130580001.101,30,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,30,6,1,0) +Ischemic or hemorrhagic stroke patients or their caregivers who were +"DATA",1130580001.101,30,6,2,0) +given educational materials during the hospital stay addressing all of the +"DATA",1130580001.101,30,6,3,0) +following: activation of emergency medical system, need for follow-up +"DATA",1130580001.101,30,6,4,0) +after discharge, medications prescribed at discharge, risk factors for +"DATA",1130580001.101,30,6,5,0) +stroke, and warning signs and symptoms of stroke. +"DATA",1130580001.101,30,7) +NQF0440^^^^ +"DATA",1130580001.101,31,0) +MU HOS NQF 0441^^ +"DATA",1130580001.101,31,1) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,5) +Ischemic or hemorrhagic stroke.Rehabilitation assessment +"DATA",1130580001.101,31,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,31,6,1,0) +Ischemic or hemorrhagic stroke patients who were assessed for +"DATA",1130580001.101,31,6,2,0) +rehabilitation services. +"DATA",1130580001.101,31,7) +NQF0441^^^^ +"DATA",1130580001.101,32,0) +MU HOS NQF 0371^^ +"DATA",1130580001.101,32,1) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,5) +VTE prophylaxis within 24 hours of arrival +"DATA",1130580001.101,32,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,32,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,32,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,32,6,3,0) +day after hospital admission or surgery end date for surgeries that start +"DATA",1130580001.101,32,6,4,0) +the day of or the day after hospital admission. +"DATA",1130580001.101,32,7) +NQF0371^^^^ +"DATA",1130580001.101,33,0) +MU HOS NQF 0372^^ +"DATA",1130580001.101,33,1) +ICU VTE prophylaxis +"DATA",1130580001.101,33,5) +ICU VTE prophylaxis +"DATA",1130580001.101,33,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,33,6,1,0) +This measure assesses the number of patients who received VTE prophylaxis +"DATA",1130580001.101,33,6,2,0) +or have documentation why no VTE prophylaxis was given the day of or the +"DATA",1130580001.101,33,6,3,0) +day after the initial admission (or transfer) to the Intensive Care Unit +"DATA",1130580001.101,33,6,4,0) +(ICU) or surgery end date for surgeries that start the day of or the day +"DATA",1130580001.101,33,6,5,0) +after ICU admission (or transfer). +"DATA",1130580001.101,33,7) +NQF0372^^^^ +"DATA",1130580001.101,34,0) +MU HOS NQF 0373^^ +"DATA",1130580001.101,34,1) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,5) +Anticoagulation overlap therapy +"DATA",1130580001.101,34,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,34,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,34,6,2,0) +who received an overlap of parenteral (intravenous [IV] or subcutaneous +"DATA",1130580001.101,34,6,3,0) +[subcu]) anticoagulation and warfarin therapy. For patients who received +"DATA",1130580001.101,34,6,4,0) +less than five days of overlap therapy, they must be discharged on both +"DATA",1130580001.101,34,6,5,0) +medications. Overlap therapy must be administered for at least five days +"DATA",1130580001.101,34,6,6,0) +with an international normalized ratio (INR) . 2 prior to discontinuation +"DATA",1130580001.101,34,6,7,0) +of the parenteral anticoagulation therapy or the patient must be +"DATA",1130580001.101,34,6,8,0) +discharged on both medications. +"DATA",1130580001.101,34,7) +NQF0373^^^^ +"DATA",1130580001.101,35,0) +MU HOS NQF 0374^^ +"DATA",1130580001.101,35,1) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,5) +Platelet monitoring on unfractionated heparin +"DATA",1130580001.101,35,6,0) +^^10^10^3110430^ +"DATA",1130580001.101,35,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,35,6,2,0) +who received intravenous (IV) UFH therapy dosages AND had their platelet +"DATA",1130580001.101,35,6,3,0) +counts monitored using defined parameters such as a nomogram or +"DATA",1130580001.101,35,6,4,0) +protocol This measure assesses the number of patients diagnosed with +"DATA",1130580001.101,35,6,5,0) +confirmed VTE who received intravenous (IV) UFH therapy dosages AND had +"DATA",1130580001.101,35,6,6,0) +their platelet counts monitored using defined parameters such as a +"DATA",1130580001.101,35,6,7,0) +nomogram or protocol This measure assesses the number of patients +"DATA",1130580001.101,35,6,8,0) +diagnosed with confirmed VTE who received intravenous (IV) UFH therapy +"DATA",1130580001.101,35,6,9,0) +dosages AND had their platelet counts monitored using defined parameters +"DATA",1130580001.101,35,6,10,0) +such as a nomogram or protocol +"DATA",1130580001.101,35,7) +NQF0374^^^^ +"DATA",1130580001.101,36,0) +MU HOS NQF 0375^^ +"DATA",1130580001.101,36,1) +VTE discharge instructions +"DATA",1130580001.101,36,5) +VTE discharge instructions +"DATA",1130580001.101,36,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,36,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,36,6,2,0) +that are discharged to home, to home with home health, home hospice or +"DATA",1130580001.101,36,6,3,0) +discharged/transferred to court/law enforcement on warfarin with written +"DATA",1130580001.101,36,6,4,0) +discharge instructions that address all four criteria: compliance issues, +"DATA",1130580001.101,36,6,5,0) +dietary advice, follow-up This measure assesses the number of patients +"DATA",1130580001.101,36,6,6,0) +diagnosed with confirmed VTE that are discharged to home, to home with +"DATA",1130580001.101,36,6,7,0) +home health, home hospice or discharged/transferred to court/law +"DATA",1130580001.101,36,6,8,0) +enforcement on warfarin with written discharge instructions that address +"DATA",1130580001.101,36,6,9,0) +all four criteria: compliance issues, dietary advice, follow-up +"DATA",1130580001.101,36,6,10,0) +monitoring, and information about the potential for adverse drug +"DATA",1130580001.101,36,6,11,0) +reactions/interactions. +"DATA",1130580001.101,36,7) +NQF0375^^^^ +"DATA",1130580001.101,37,0) +MU HOS NQF 0376^^ +"DATA",1130580001.101,37,1) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,5) +Incidence of potentially preventable VTE +"DATA",1130580001.101,37,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,37,6,1,0) +This measure assesses the number of patients diagnosed with confirmed VTE +"DATA",1130580001.101,37,6,2,0) +during hospitalization (not present on arrival) who did not receive VTE +"DATA",1130580001.101,37,6,3,0) +prophylaxis between hospital admission and the day before the VTE +"DATA",1130580001.101,37,6,4,0) +diagnostic testing order date. +"DATA",1130580001.101,37,7) +NQF0376^^^^ +"DATA",1130580001.101,39,0) +MU EP NQF 0421^^^2.16.840.1.113883.3.249.11.54 +"DATA",1130580001.101,39,1) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,4) +PQRI-128 +"DATA",1130580001.101,39,5) +NQF0421 Adult Weight Screening and Follow-Up +"DATA",1130580001.101,39,6,0) +^1130580001.111^6^6^3110628^^^^ +"DATA",1130580001.101,39,6,1,0) +Percentage of patients aged 18 +"DATA",1130580001.101,39,6,2,0) +years and older with a calculated BMI in the past +"DATA",1130580001.101,39,6,3,0) +six months or during the current visit documented in +"DATA",1130580001.101,39,6,4,0) +the medical record AND if the most recent BMI is +"DATA",1130580001.101,39,6,5,0) +outside parameters, a follow-up plan is +"DATA",1130580001.101,39,6,6,0) +documented. +"DATA",1130580001.101,39,7) +NQF0421^^^^ +"DATA",1130580001.101,40,0) +MU EP NQF 0013^^^2.16.840.1.113883.3.249.11.56 +"DATA",1130580001.101,40,1) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,4) +PQRI-13 +"DATA",1130580001.101,40,5) +NQF0013 Hypertension: Blood Pressure Measurement +"DATA",1130580001.101,40,6,0) +^1130580001.111^4^4^3110628^^ +"DATA",1130580001.101,40,6,1,0) +Percentage of patient visits for patients +"DATA",1130580001.101,40,6,2,0) +aged 18 years and older with a diagnosis of hypertension +"DATA",1130580001.101,40,6,3,0) +who have been seen for at least 2 office visits, with blood +"DATA",1130580001.101,40,6,4,0) +pressure (BP) recorded +"DATA",1130580001.101,40,7) +NQF0013^^^^ +"DATA",1130580001.101,41,0) +MU EP NQF 0028A^^^2.16.840.1.113883.3.249.11.59 +"DATA",1130580001.101,41,1) +NQF0028A Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,41,4) +PQRI-28 +"DATA",1130580001.101,41,5) +NQF0028A Tobacco Use Assessment +"DATA",1130580001.101,41,6,0) +^1130580001.111^7^7^3110625^^^ +"DATA",1130580001.101,41,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,41,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,41,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,41,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,41,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,41,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,41,7) +NQF0028A^^^^ +"DATA",1130580001.101,42,0) +MU EP NQF 0041^^^2.16.840.1.113883.3.249.11.7 +"DATA",1130580001.101,42,1) +Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years Old +"DATA",1130580001.101,42,4) +PQRI-110 +"DATA",1130580001.101,42,5) +NQF0041 Influenza Immunization 50 years and older +"DATA",1130580001.101,42,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,42,6,1,0) +Percentage of patients aged 50 years +"DATA",1130580001.101,42,6,2,0) +and older who received an influenza immunization +"DATA",1130580001.101,42,6,3,0) +during the flu season (September through +"DATA",1130580001.101,42,6,4,0) +February). +"DATA",1130580001.101,42,7) +NQF0041^^^^ +"DATA",1130580001.101,43,0) +MU EP NQF 0024^^ +"DATA",1130580001.101,43,1) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,5) +NQF0024 Weight Assessment and Counseling for Children and Adolescents +"DATA",1130580001.101,43,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,43,6,1,0) +Percentage of patients 2 -17 years of age +"DATA",1130580001.101,43,6,2,0) +who had an outpatient visit with a Primary Care Physician +"DATA",1130580001.101,43,6,3,0) +(PCP) or OB/GYN and who had evidence of BMI +"DATA",1130580001.101,43,6,4,0) +percentile documentation, counseling for nutrition and +"DATA",1130580001.101,43,6,5,0) +counseling for physical activity during the measurement +"DATA",1130580001.101,43,6,6,0) +year. +"DATA",1130580001.101,43,7) +NQF0024^^^^ +"DATA",1130580001.101,44,0) +MU EP NQF 0038^^^2.16.840.1.113883.3.249.11.60 +"DATA",1130580001.101,44,1) +Childhood Immunization Status +"DATA",1130580001.101,44,4) +PQRI-38 +"DATA",1130580001.101,44,5) +Childhood Immunization Status +"DATA",1130580001.101,44,6,0) +^^14^14^3110430^ +"DATA",1130580001.101,44,6,1,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,2,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,3,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,4,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,5,0) +Percentage of children 2 years of age who +"DATA",1130580001.101,44,6,6,0) +had four diphtheria, tetanus and acellular pertussis +"DATA",1130580001.101,44,6,7,0) +(DTaP); three polio(IPV), one measles, ,mumps and +"DATA",1130580001.101,44,6,8,0) +rubella (MMR); two H influenza type B (HiB); three +"DATA",1130580001.101,44,6,9,0) +hepatitis B (Hep B); one chicken pox (VZV); four +"DATA",1130580001.101,44,6,10,0) +pneumococcal conjugate (PCV); two hepatitis A (Hep A); +"DATA",1130580001.101,44,6,11,0) +two or three rotavirus (RV); and two influenza (flu) +"DATA",1130580001.101,44,6,12,0) +vaccines by their second birthday. The measure +"DATA",1130580001.101,44,6,13,0) +calculates a rate for each vaccine and nine separate +"DATA",1130580001.101,44,6,14,0) +combination rates. +"DATA",1130580001.101,44,7) +NQF0038^^^^ +"DATA",1130580001.101,45,0) +MU EP NQF 0059^^^2.16.840.1.113883.3.249.11.2 +"DATA",1130580001.101,45,1) +Diabetes: Hemoglobin A1c Poor Contro +"DATA",1130580001.101,45,4) +PQRI-1 +"DATA",1130580001.101,45,5) +Diabetes: NQF0059 Hemoglobin A1c Poor Control +"DATA",1130580001.101,45,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,45,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,45,6,2,0) +or type 2) who had hemoglobin A1c > 9.0%. +"DATA",1130580001.101,45,7) +NQF0059^^^^ +"DATA",1130580001.101,46,0) +MU EP NQF 0064^^^2.16.840.1.113883.3.249.11.3 +"DATA",1130580001.101,46,1) +Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,4) +PQRI-2 +"DATA",1130580001.101,46,5) +NQF0064 Diabetes: Low Density Lipoprotein (LDL) Management and Control +"DATA",1130580001.101,46,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,46,6,1,0) +Percentage of patients 18-75 years of age with diabetes (type 1 +"DATA",1130580001.101,46,6,2,0) +or type 2) who had LDL-C < 100 mg/dL).Percentage of patients 18-75 years +"DATA",1130580001.101,46,6,3,0) +of age with diabetes (type 1 or type 2) who had LDL-C < 100 mg/dL). +"DATA",1130580001.101,46,7) +NQF0064^^^^ +"DATA",1130580001.101,47,0) +MU EP NQF 0061^^^2.16.840.1.113883.3.249.11.4 +"DATA",1130580001.101,47,1) +Blood Pressure Management +"DATA",1130580001.101,47,4) +PQRI-3 +"DATA",1130580001.101,47,5) +NQF0061 Diabetes: Blood Pressure Management +"DATA",1130580001.101,47,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,47,6,1,0) +Percentage of patients 18 - 75 years of age with +"DATA",1130580001.101,47,6,2,0) +diabetes (type 1 or type 2) who had blood pressure <140/90 mmHg. +"DATA",1130580001.101,47,7) +NQF0061^^^^ +"DATA",1130580001.101,48,0) +MU EP NQF 0081^^^2.16.840.1.113883.3.249.11.5 +"DATA",1130580001.101,48,1) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,4) +PQRI-5 +"DATA",1130580001.101,48,5) +Heart Failure (HF): Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,48,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,48,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,48,6,2,0) +diagnosis of heart failure and LVSD (LVEF < 40%) who were +"DATA",1130580001.101,48,6,3,0) +prescribed ACE inhibitor or ARB therapy +"DATA",1130580001.101,48,7) +NQF0081^^^^ +"DATA",1130580001.101,49,0) +MU EP NQF 0070^^^2.16.840.1.113883.3.249.11.6 +"DATA",1130580001.101,49,1) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +"DATA",1130580001.101,49,4) +PQRI-7 +"DATA",1130580001.101,49,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,49,6,0) +^^3^3^3101013^ +"DATA",1130580001.101,49,6,1,0) +Percentage of patients aged 18 years and older with a diagnosis of +"DATA",1130580001.101,49,6,2,0) +coronary artery disease and a prior MI who where prescribed beta-blocker +"DATA",1130580001.101,49,6,3,0) +therapy +"DATA",1130580001.101,49,7) +NQF0070^^^^ +"DATA",1130580001.101,50,0) +MU EP NQF 0031^^^2.16.840.1.113883.3.249.11.9 +"DATA",1130580001.101,50,1) +Breast Cancer Screening +"DATA",1130580001.101,50,4) +PQRI-112 +"DATA",1130580001.101,50,5) +Breast Cancer Screening +"DATA",1130580001.101,50,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,50,6,1,0) +Percentage of women 40-69 years of age who had a +"DATA",1130580001.101,50,6,2,0) +mammogram to screen for breast cancer +"DATA",1130580001.101,50,7) +NQF0031^^^^ +"DATA",1130580001.101,51,0) +MU EP NQF 0034^^^2.16.840.1.113883.3.249.11.10 +"DATA",1130580001.101,51,1) +Colorectal Cancer Screening +"DATA",1130580001.101,51,4) +PQRI-113 +"DATA",1130580001.101,51,5) +Colorectal Cancer Screening +"DATA",1130580001.101,51,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,51,6,1,0) +Percentage of adults 50-75 years of age who had appropriate screening for +"DATA",1130580001.101,51,6,2,0) +colorectal cancer. +"DATA",1130580001.101,51,7) +NQF0034^^^^ +"DATA",1130580001.101,52,0) +MU EP NQF 0067^^ +"DATA",1130580001.101,52,1) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,5) +Coronary Artery Disease (CAD): Oral Antiplatelet Therapy Prescribed for Patients with CAD +"DATA",1130580001.101,52,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,52,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,52,6,2,0) +diagnosis of CAD who were prescribed oral antiplatelet therapy. +"DATA",1130580001.101,52,7) +NQF0067^^^^ +"DATA",1130580001.101,53,0) +MU EP NQF 0083^^ +"DATA",1130580001.101,53,1) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,5) +Heart Failure (HF): Beta-Blocker Therapy for Left Ventricular Systolic Dysfunction (LVSD) +"DATA",1130580001.101,53,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,53,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,53,6,2,0) +diagnosis of heart failure who also have LVSD (LVEF < 40%) and who were +"DATA",1130580001.101,53,6,3,0) +prescribed beta-blocker therapy +"DATA",1130580001.101,53,7) +NQF0083^^^^ +"DATA",1130580001.101,54,0) +MU EP NQF 0105^^ +"DATA",1130580001.101,54,1) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,5) +Anti-depressant medication management: (a) Effective Acute Phase Treatment,(b)Effective Continuation Phase Treatment +"DATA",1130580001.101,54,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,54,6,1,0) +The percentage of patients 18 years of age and older +"DATA",1130580001.101,54,6,2,0) +who were diagnosed with a new episode of major depression, treated +"DATA",1130580001.101,54,6,3,0) +with antidepressant medication, and who remained on an +"DATA",1130580001.101,54,6,4,0) +antidepressant medication treatment. +"DATA",1130580001.101,54,7) +NQF0105^^^^ +"DATA",1130580001.101,55,0) +MU EP NQF 0086^^ +"DATA",1130580001.101,55,1) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,5) +Primary Open Angle Glaucoma (POAG): Optic Nerve Evaluation +"DATA",1130580001.101,55,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,55,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,55,6,2,0) +diagnosis of POAG who have been seen for at least two office visits +"DATA",1130580001.101,55,6,3,0) +who have an optic nerve head evaluation during one or more office +"DATA",1130580001.101,55,6,4,0) +visits within 12 months. +"DATA",1130580001.101,55,7) +NQF0086^^^^ +"DATA",1130580001.101,56,0) +MU EP NQF 0088^^ +"DATA",1130580001.101,56,1) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,5) +Diabetic Retinopathy: Documentation of Presence or Absence of Macular Edema and Level of Severity of Retinopathy +"DATA",1130580001.101,56,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,56,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,56,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,56,6,3,0) +exam performed which included documentation of the level of severity +"DATA",1130580001.101,56,6,4,0) +of retinopathy and the presence or absence of macular edema during +"DATA",1130580001.101,56,6,5,0) +one or more office visits within 12 months. +"DATA",1130580001.101,56,7) +NQF0088^^^^ +"DATA",1130580001.101,57,0) +MU EP NQF 0089^^ +"DATA",1130580001.101,57,1) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,5) +Diabetic Retinopathy: Communication with the Physician Managing Ongoing Diabetes Care +"DATA",1130580001.101,57,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,57,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,57,6,2,0) +diagnosis of diabetic retinopathy who had a dilated macular or fundus +"DATA",1130580001.101,57,6,3,0) +exam performed with documented communication to the physician who +"DATA",1130580001.101,57,6,4,0) +manages the ongoing care of the patient with diabetes mellitus +"DATA",1130580001.101,57,6,5,0) +regarding the findings of the macular or fundus exam at least once +"DATA",1130580001.101,57,6,6,0) +within 12 months. +"DATA",1130580001.101,57,7) +NQF0089^^^^ +"DATA",1130580001.101,58,0) +MU EP NQF 0047^^ +"DATA",1130580001.101,58,1) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,5) +Asthma Pharmacologic Therapy +"DATA",1130580001.101,58,6,0) +^1130580001.111^4^4^3110430^^ +"DATA",1130580001.101,58,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,58,6,2,0) +diagnosis of mild, moderate, or severe persistent asthma who were +"DATA",1130580001.101,58,6,3,0) +prescribed either the preferred long-term control medication (inhaled +"DATA",1130580001.101,58,6,4,0) +corticosteroid) or an acceptable alternative treatment +"DATA",1130580001.101,58,7) +NQF0047^^^^ +"DATA",1130580001.101,59,0) +MU EP NQF 0001^^ +"DATA",1130580001.101,59,1) +Asthma Assessment +"DATA",1130580001.101,59,5) +Asthma Assessment +"DATA",1130580001.101,59,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,59,6,1,0) +Percentage of patients aged 5 through 40 years with a +"DATA",1130580001.101,59,6,2,0) +diagnosis of asthma and who have been seen for at least 2 office +"DATA",1130580001.101,59,6,3,0) +visits, who were evaluated during at least one office visit within 12 +"DATA",1130580001.101,59,6,4,0) +months for the frequency (numeric) of daytime and nocturnal asthma +"DATA",1130580001.101,59,6,5,0) +symptoms. +"DATA",1130580001.101,59,7) +NQF0001^^^^ +"DATA",1130580001.101,60,0) +MU EP NQF 0002^^ +"DATA",1130580001.101,60,1) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breat Cancer +"DATA",1130580001.101,60,5) +Oncology Breast Cancer: Hormonal Therapy for Stage IC-IIIC Estrogen Receptor/Progesterone Receptor (ER/PR) Positive Breast Cancer +"DATA",1130580001.101,60,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,60,6,1,0) +Percentage of female patients aged 18 years and older +"DATA",1130580001.101,60,6,2,0) +with Stage IC through IIIC, ER or PR positive breast cancer who were +"DATA",1130580001.101,60,6,3,0) +prescribed tamoxifen or aromatase inhibitor (AI) during the 12-month +"DATA",1130580001.101,60,6,4,0) +reporting period. +"DATA",1130580001.101,60,7) +NQF0002^^^^ +"DATA",1130580001.101,61,0) +MU EP NQF 0385^^ +"DATA",1130580001.101,61,1) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,5) +Oncology Colon Cancer: Chemotherapy for Stage III Colon Cancer Patients +"DATA",1130580001.101,61,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,61,6,1,0) +Percentage of patients aged 18 years and older with +"DATA",1130580001.101,61,6,2,0) +Stage IIIA through IIIC colon cancer who are referred for adjuvant +"DATA",1130580001.101,61,6,3,0) +chemotherapy, prescribed adjuvant chemotherapy, or have previously +"DATA",1130580001.101,61,6,4,0) +received adjuvant chemotherapy within the 12-month reporting period +"DATA",1130580001.101,61,7) +NQF0385^^^^ +"DATA",1130580001.101,62,0) +MU EP NQF 0389^^ +"DATA",1130580001.101,62,1) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,5) +Prostate Cancer: Avoidance of Overuse of Bone Scan for Staging Low Risk Prostate Cancer Patients +"DATA",1130580001.101,62,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,62,6,1,0) +Percentage of patients, regardless of age, with a diagnosis of +"DATA",1130580001.101,62,6,2,0) +prostate cancer at low risk of recurrence receiving interstitial prostate +"DATA",1130580001.101,62,6,3,0) +brachytherapy, OR external beam radiotherapy to the prostate, OR radical +"DATA",1130580001.101,62,6,4,0) +prostatectomy, OR cryotherapy who did not have a bone scan performed at +"DATA",1130580001.101,62,6,5,0) +any time since diagnosis of prostate cancer. +"DATA",1130580001.101,62,7) +NQF0389^^^^ +"DATA",1130580001.101,63,0) +MU EP NQF 0027^^ +"DATA",1130580001.101,63,1) +Smoking Smokers and Tobacco Users to Quit,b. Discussing Smoking and Tobacco use Cessation Medications, c. Discussing Smoking and Tobacco use Cessation Strategies and Tobacco Use Cessation, Medical assistance: a. Advising +"DATA",1130580001.101,63,5) +Smoking and Tobacco Use Cessation +"DATA",1130580001.101,63,6,0) +^^5^5^3110430^ +"DATA",1130580001.101,63,6,1,0) +Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,63,6,2,0) +current smokers or tobacco users, who were seen by a practitioner during +"DATA",1130580001.101,63,6,3,0) +the measurement year and who received advice to quit smoking or tobacco +"DATA",1130580001.101,63,6,4,0) +use or whose practitioner recommended or discussed smoking or tobacco use +"DATA",1130580001.101,63,6,5,0) +cessation medications, methods or strategies +"DATA",1130580001.101,63,7) +NQF0027^^^^ +"DATA",1130580001.101,64,0) +MU EP NQF 0055^^ +"DATA",1130580001.101,64,1) +Diabetes: Eye Exam +"DATA",1130580001.101,64,5) +Diabetes: Eye Exam +"DATA",1130580001.101,64,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,64,6,1,0) +Percentage of patients 18 -75 years of age with diabetes (type 1 +"DATA",1130580001.101,64,6,2,0) +or type 2) who had a retinal or dilated eye exam or a negative retinal +"DATA",1130580001.101,64,6,3,0) +exam (no evidence of retinopathy) by an eye care professional +"DATA",1130580001.101,64,7) +NQF0055^^^^ +"DATA",1130580001.101,65,0) +MU EP NQF 0062^^ +"DATA",1130580001.101,65,1) +Diabetes: Urine Screening +"DATA",1130580001.101,65,5) +Diabetes: Urine Screening +"DATA",1130580001.101,65,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,65,6,1,0) +Percentage of patients 18 - 75 years of age with diabetes (type 1 +"DATA",1130580001.101,65,6,2,0) +or type 2) who had a nephropathy screening test or evidence of +"DATA",1130580001.101,65,6,3,0) +nephropathy. +"DATA",1130580001.101,65,7) +NQF0062^^^^ +"DATA",1130580001.101,66,0) +MU EP NQF 0056^^ +"DATA",1130580001.101,66,1) +Diabetes: Foot Exam +"DATA",1130580001.101,66,5) +Diabetes: Foot Exam +"DATA",1130580001.101,66,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,66,6,1,0) +The percentage of patients aged 18 - 75 years with diabetes +"DATA",1130580001.101,66,6,2,0) +(type 1 or type 2) who had a foot exam (visual inspection, sensory exam +"DATA",1130580001.101,66,6,3,0) +with monofilament, or pulse exam). +"DATA",1130580001.101,66,7) +NQF0056^^^^ +"DATA",1130580001.101,67,0) +MU EP NQF 0074^^ +"DATA",1130580001.101,67,1) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,5) +Coronary Artery Disease (CAD): Drug Therapy for Lowering LDLCholesterol +"DATA",1130580001.101,67,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,67,6,1,0) +Percentage of patients aged 18 years and older with a +"DATA",1130580001.101,67,6,2,0) +diagnosis of CAD who were prescribed a lipid-lowering therapy (based +"DATA",1130580001.101,67,6,3,0) +on current ACC/AHA guidelines). +"DATA",1130580001.101,67,7) +NQF0074^^^^ +"DATA",1130580001.101,68,0) +MU EP NQF 0084^^ +"DATA",1130580001.101,68,1) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,5) +Heart Failure (HF): Warfarin Therapy Patients with Atrial Fibrillation +"DATA",1130580001.101,68,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,68,6,1,0) +Percentage of all patients aged 18 years and older with a +"DATA",1130580001.101,68,6,2,0) +diagnosis of heart failure and paroxysmal or chronic atrial fibrillation +"DATA",1130580001.101,68,6,3,0) +who were prescribed warfarin therapy. +"DATA",1130580001.101,68,7) +NQF0084^^^^ +"DATA",1130580001.101,69,0) +MU EP NQF 0073^^ +"DATA",1130580001.101,69,1) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,5) +Ischemic Vascular Disease (IVD): Blood Pressure Management +"DATA",1130580001.101,69,6,0) +^^11^11^3110430^ +"DATA",1130580001.101,69,6,1,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,2,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,3,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,4,0) +Percentage of patients 18 years of age and older who +"DATA",1130580001.101,69,6,5,0) +were discharged alive for acute myocardial infarction (AMI), coronary +"DATA",1130580001.101,69,6,6,0) +artery bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,69,6,7,0) +angioplasty (PTCA) from January 1- November 1 of the year prior to +"DATA",1130580001.101,69,6,8,0) +the measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,69,6,9,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,69,6,10,0) +measurement year and whose recent blood pressure is in control +"DATA",1130580001.101,69,6,11,0) +(<140/90 mmHg). +"DATA",1130580001.101,69,7) +NQF0073^^^^ +"DATA",1130580001.101,70,0) +MU EP NQF 0068^^ +"DATA",1130580001.101,70,1) +Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,5) + Ischemic Vascular Disease (IVD): Use of Aspirin or Another Antithrombotic +"DATA",1130580001.101,70,6,0) +^^8^8^3110430^ +"DATA",1130580001.101,70,6,1,0) + Percentage of patients 18 years of age and older who were +"DATA",1130580001.101,70,6,2,0) +discharged alive for acute myocardial infarction (AMI), coronary artery +"DATA",1130580001.101,70,6,3,0) +bypass graft (CABG) or percutaneous transluminal coronary +"DATA",1130580001.101,70,6,4,0) +angioplasty (PTCA) from January 1-November 1 of the year prior to the +"DATA",1130580001.101,70,6,5,0) +measurement year, or who had a diagnosis of ischemic vascular +"DATA",1130580001.101,70,6,6,0) +disease (IVD) during the measurement year and the year prior to the +"DATA",1130580001.101,70,6,7,0) +measurement year and who had documentation of use of aspirin or +"DATA",1130580001.101,70,6,8,0) +another antithrombotic during the measurement year +"DATA",1130580001.101,70,7) +NQF0068^^^^ +"DATA",1130580001.101,71,0) +MU EP NQF 0004^^ +"DATA",1130580001.101,71,1) + Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a)Initiation,(b)Engagement +"DATA",1130580001.101,71,5) +Initiation and Engagement of Alcohol and Other Drug Dependence Treatment:(a) Initiation,(b) Engagement +"DATA",1130580001.101,71,6,0) +^^6^6^3110430^ +"DATA",1130580001.101,71,6,1,0) +The percentage of adolescent and adult patients with a new +"DATA",1130580001.101,71,6,2,0) +episode of alcohol and other drug (AOD) dependence who initiate treatment +"DATA",1130580001.101,71,6,3,0) +through an inpatient AOD admission, outpatient visit, intensive +"DATA",1130580001.101,71,6,4,0) +outpatient encounter or partial hospitalization within 14 days of the +"DATA",1130580001.101,71,6,5,0) +diagnosis and who initiated treatment and who had two or more additional +"DATA",1130580001.101,71,6,6,0) +services with an AOD diagnosis within 30 days of the initiation visit. +"DATA",1130580001.101,71,7) +NQF0004^^^^ +"DATA",1130580001.101,72,0) +MU EP NQF 0012^^ +"DATA",1130580001.101,72,1) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,5) +Prenatal Care: Screening for Human Immunodeficiency Virus (HIV) +"DATA",1130580001.101,72,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,72,6,1,0) +Percentage of patients, regardless of age, who gave birth during +"DATA",1130580001.101,72,6,2,0) +a 12-month period who were screened for HIV infection during the first or +"DATA",1130580001.101,72,6,3,0) +second prenatal care visit. +"DATA",1130580001.101,72,7) +NQF0012^^^^ +"DATA",1130580001.101,73,0) +MU EP NQF 0014^^ +"DATA",1130580001.101,73,1) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,5) +Prenatal Care: Anti-D Immune Globulin +"DATA",1130580001.101,73,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,73,6,1,0) +Percentage of D (Rh) negative, unsensitized patients, regardless +"DATA",1130580001.101,73,6,2,0) +of age, who gave birth during a 12-month period who received anti-D +"DATA",1130580001.101,73,6,3,0) +immune globulin at 26-30 weeks gestation. +"DATA",1130580001.101,73,7) +NQD0014^^^^ +"DATA",1130580001.101,74,0) +MU EP NQF 0018^^ +"DATA",1130580001.101,74,1) +Controlling High Blood Pressure +"DATA",1130580001.101,74,5) +Controlling High Blood Pressure +"DATA",1130580001.101,74,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,74,6,1,0) +The percentage of patients 18-85 years of age who had a +"DATA",1130580001.101,74,6,2,0) +diagnosis of hypertension and whose BP was adequately controlled during +"DATA",1130580001.101,74,6,3,0) +the measurement year +"DATA",1130580001.101,74,7) +NQF0018^^^^ +"DATA",1130580001.101,75,0) +MU EP NQF 0032^^ +"DATA",1130580001.101,75,1) +Cervical Cancer Screening +"DATA",1130580001.101,75,5) +Cervical Cancer Screening +"DATA",1130580001.101,75,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,75,6,1,0) +Percentage of women 21-64 years of age, who received one or +"DATA",1130580001.101,75,6,2,0) +more Pap tests to screen for cervical cancer +"DATA",1130580001.101,75,7) +NQF0032^^^^ +"DATA",1130580001.101,76,0) +MU EP NQF 0033^^ +"DATA",1130580001.101,76,1) +Chlamydia Screening for Women +"DATA",1130580001.101,76,5) +Chlamydia Screening for Women +"DATA",1130580001.101,76,6,0) +^^3^3^3110430^ +"DATA",1130580001.101,76,6,1,0) +Percentage of women 15- 24 years of age who were identified as sexually +"DATA",1130580001.101,76,6,2,0) +active and who had at least one test for chlamydia during the measurement +"DATA",1130580001.101,76,6,3,0) +year. +"DATA",1130580001.101,76,7) +NQF0033^^^^ +"DATA",1130580001.101,77,0) +MU EP NQF 0036^^ +"DATA",1130580001.101,77,1) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,5) +Use of Appropriate Medications for Asthma +"DATA",1130580001.101,77,6,0) +^^4^4^3110430^ +"DATA",1130580001.101,77,6,1,0) +Percentage of patients 5 - 50 years of age who were identified as having +"DATA",1130580001.101,77,6,2,0) +persistent asthma and were appropriately prescribed medication during the +"DATA",1130580001.101,77,6,3,0) +measurement year. Report three age stratifications (5-11 years, 12-50 +"DATA",1130580001.101,77,6,4,0) +years, and total). +"DATA",1130580001.101,77,7) +NQF0036^^^^ +"DATA",1130580001.101,78,0) +MU EP NQF 0052^^ +"DATA",1130580001.101,78,1) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,5) +Low Back Pain: Use of Imaging Studies +"DATA",1130580001.101,78,6,0) +^1130580001.111^3^3^3110430^^ +"DATA",1130580001.101,78,6,1,0) +Percentage of patients with a primary diagnosis of low back pain +"DATA",1130580001.101,78,6,2,0) +who did not have an imaging study (plain x-ray, MRI, CT scan) within 28 +"DATA",1130580001.101,78,6,3,0) +days of diagnosis. +"DATA",1130580001.101,78,7) +NQF0052^^^^ +"DATA",1130580001.101,79,0) +MU EP NQF 0075^^ +"DATA",1130580001.101,79,1) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,5) +Ischemic Vascular Disease (IVD): Complete Lipid Panel and LDL Control +"DATA",1130580001.101,79,6,0) +^^7^7^3110430^ +"DATA",1130580001.101,79,6,1,0) +Percentage of patients 18 years of age and older who were discharged alive +"DATA",1130580001.101,79,6,2,0) +for acute myocardial infarction (AMI), coronary artery bypass graft (CABG) +"DATA",1130580001.101,79,6,3,0) +or percutaneous transluminal angioplasty (PTCA) from January 1-November1 +"DATA",1130580001.101,79,6,4,0) +of the year prior to the measurement year, or who had a diagnosis of +"DATA",1130580001.101,79,6,5,0) +ischemic vascular disease (IVD) during the measurement year and the year +"DATA",1130580001.101,79,6,6,0) +prior to the measurement year and who had a complete lipid profile +"DATA",1130580001.101,79,6,7,0) +performed during the measurement year and whose LDL-C<100 mg/dL +"DATA",1130580001.101,79,7) +NQF0075^^^^ +"DATA",1130580001.101,80,0) +MU EP NQF 0575^^ +"DATA",1130580001.101,80,1) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,5) +Diabetes: Hemoglobin A1c Control (<8.0%) +"DATA",1130580001.101,80,6,0) +^^2^2^3110430^ +"DATA",1130580001.101,80,6,1,0) +The percentage of patients 18-75 years of age with diabetes +"DATA",1130580001.101,80,6,2,0) +(type 1 or type 2) who had hemoglobin A1c <8.0% +"DATA",1130580001.101,80,7) +NQF0575^^^^ +"DATA",1130580001.101,81,0) +MU EP NQF 0028B^^ +"DATA",1130580001.101,81,1) +NQF0028B Preventive Care and Screening Measure Pair: a. Tobacco Use Assessment,b. Tobacco Cessation Intervention +"DATA",1130580001.101,81,5) +NQF0028B Tobacco Use Assessment and Cessation Intervention +"DATA",1130580001.101,81,6,0) +^1130580001.111^7^7^3110625^^^^ +"DATA",1130580001.101,81,6,1,0) + Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,2,0) +older who have been seen for at least 2 office visits who +"DATA",1130580001.101,81,6,3,0) +were queried about tobacco use one or more times within +"DATA",1130580001.101,81,6,4,0) +24 months b. Percentage of patients aged 18 years and +"DATA",1130580001.101,81,6,5,0) +older identified as tobacco users within the past 24 +"DATA",1130580001.101,81,6,6,0) +months and have been seen for at least 2 office visits, +"DATA",1130580001.101,81,6,7,0) +who received cessation intervention. +"DATA",1130580001.101,81,7) +NQF0028B^^^^ +"DATA",1130580001.101,83,0) +MU EP NQF 0038 NUM1 DPT^^ +"DATA",1130580001.101,83,5) +NQF0038 NUM1 DPT +"DATA",1130580001.101,83,7) +NQF0038 NUM1 DPT^^^^ +"DATA",1130580001.101,84,0) +MU EP NQF 0038 NUM2 IPV^^ +"DATA",1130580001.101,84,5) +NQF0038 NUM2 IPV +"DATA",1130580001.101,84,7) +NQF0038 NUM2 IPV^^^^ +"DATA",1130580001.101,85,0) +MU EP NQF 0038 NUM3 MMR^^ +"DATA",1130580001.101,85,5) +NQF0038 NUM3 MMR +"DATA",1130580001.101,85,7) +NQF0038 NUM3 MMR^^^^ +"DATA",1130580001.101,86,0) +MU EP NQF 0038 NUM4 HiB^^ +"DATA",1130580001.101,86,5) +NQF0038 NUM4 HiB +"DATA",1130580001.101,86,7) +NQF0038 NUM4 HiB^^^^ +"DATA",1130580001.101,87,0) +MU EP NQF 0038 NUM5 HEP B^^ +"DATA",1130580001.101,87,5) +NQF0038 NUM5 HEP B +"DATA",1130580001.101,87,7) +NQF0038 NUM5 HEP B^^^^ +"DATA",1130580001.101,88,0) +MU EP NQF 0038 NUM6 VZV^^ +"DATA",1130580001.101,88,5) +NQF0038 NUM6 VZV +"DATA",1130580001.101,88,7) +NQF0038 NUM6 VZV^^^^ +"DATA",1130580001.101,89,0) +MU EP NQF 0038 NUM7 PCV^^ +"DATA",1130580001.101,89,5) +NQF0038 NUM7 PCV +"DATA",1130580001.101,89,7) +NQF0038 NUM7 PCV^^^^ +"DATA",1130580001.101,90,0) +MU EP NQF 0038 NUM8 HEP A^^ +"DATA",1130580001.101,90,5) +NQF0038 NUM8 HEP A +"DATA",1130580001.101,90,7) +NQF0038 NUM8 HEP A^^^^ +"DATA",1130580001.101,91,0) +MU EP NQF 0038 NUM9 RV^^ +"DATA",1130580001.101,91,5) +NQF0038 NUM9 +"DATA",1130580001.101,91,7) +NQF0038 NUM9^^^^ +"DATA",1130580001.101,92,0) +MU EP NQF 0038 NUM10 FLU^^ +"DATA",1130580001.101,92,5) +NQF0038 NUM10 +"DATA",1130580001.101,92,7) +NQF0038 NUM10^^^^ +"DATA",1130580001.101,93,0) +MU EP NQF 0038 NUM11 COMBO5^^ +"DATA",1130580001.101,93,5) +NQF0038 NUM11 COMBO5 +"DATA",1130580001.101,93,7) +NQF0038 NUM11 COMBO5^^^^ +"DATA",1130580001.101,94,0) +MU EP NQF 0038 NUM12 COMBO6^^ +"DATA",1130580001.101,94,5) +NQF0038 NUM12 COMBO6 +"DATA",1130580001.101,94,7) +NQF0038 NUM12 COMBO6^^^^ +"DATA",1130580001.101,95,0) +MU 2011 INP ADV DIRECTIVES^^ +"DATA",1130580001.101,95,5) +Advance Directives +"DATA",1130580001.101,95,7) +^^^^ +"DATA",1130580001.101,96,0) +MU 2011 INP CPOE^^ +"DATA",1130580001.101,96,5) +CPOE for Medications +"DATA",1130580001.101,96,7) +^^^^ +"DATA",1130580001.101,97,0) +MU 2011 INP MED RECON^^ +"DATA",1130580001.101,97,5) +Medication Reconcilliation +"DATA",1130580001.101,97,7) +^^^^ +"DATA",1130580001.101,98,0) +MU 2011 INP PROBLEM LIST^^ +"DATA",1130580001.101,98,5) +Problem List +"DATA",1130580001.101,98,7) +^^^^ +"DATA",1130580001.101,99,0) +MU 2011 INP VITAL SIGNS^^ +"DATA",1130580001.101,99,5) +Record Vital Signs +"DATA",1130580001.101,99,7) +^^^^ +"DATA",1130580001.101,100,0) +MU 2011 INP SMOKING STATUS^^ +"DATA",1130580001.101,100,5) +Smoking Status +"DATA",1130580001.101,100,7) +^^^^ +"DATA",1130580001.101,101,0) +MU 2011 INP MED LIST^^ +"DATA",1130580001.101,101,5) +Active Medication List +"DATA",1130580001.101,101,7) +^^^^ +"DATA",1130580001.101,102,0) +MU 2011 INP ALLERGY LIST^^ +"DATA",1130580001.101,102,5) +Medication Allergy List +"DATA",1130580001.101,102,7) +^^^^ +"DATA",1130580001.101,103,0) +MU 2011 INP DEMOGRAPHICS^^ +"DATA",1130580001.101,103,5) +Record Demographics +"DATA",1130580001.101,103,7) +^^^^ +"FIA",178.301) +C0C XML MISC +"FIA",178.301,0) +^C0CX(178.301, +"FIA",178.301,0,0) +178.301 +"FIA",178.301,0,1) +y^y^f^^n^^y^o^n +"FIA",178.301,0,10) + +"FIA",178.301,0,11) + +"FIA",178.301,0,"RLRO") + +"FIA",178.301,0,"VR") +1.0^QUALITY MEASURES +"FIA",178.301,178.301) +0 +"FIA",178.301,178.3013) +0 +"FIA",178.301,178.3014) +0 +"FIA",178.301,178.311) +0 +"FIA",178.301,178.321) +0 +"FIA",1130580001.101) +C0Q QUALITY MEASURE +"FIA",1130580001.101,0) +^C0Q(101, +"FIA",1130580001.101,0,0) +1130580001.101I +"FIA",1130580001.101,0,1) +y^y^f^^n^^y^r^n +"FIA",1130580001.101,0,10) + +"FIA",1130580001.101,0,11) + +"FIA",1130580001.101,0,"RLRO") + +"FIA",1130580001.101,0,"VR") +1.0^QUALITY MEASURES +"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,0,"VR") +1.0^QUALITY MEASURES +"FIA",1130580001.201,1130580001.201) +0 +"FIA",1130580001.201,1130580001.2011) +0 +"FIA",1130580001.201,1130580001.20111) +0 +"FIA",1130580001.201,1130580001.20112) +0 +"FIA",1130580001.301) +C0Q PATIENT LIST +"FIA",1130580001.301,0) +^C0Q(301, +"FIA",1130580001.301,0,0) +1130580001.301I +"FIA",1130580001.301,0,1) +y^y^f^^^^n^^ +"FIA",1130580001.301,0,10) + +"FIA",1130580001.301,0,11) + +"FIA",1130580001.301,0,"RLRO") + +"FIA",1130580001.301,0,"VR") +1.0^QUALITY MEASURES +"FIA",1130580001.301,1130580001.301) +0 +"FIA",1130580001.301,1130580001.311) +0 +"FIA",1130580001.301,1130580001.3111) +0 +"FIA",1130580001.301,1130580001.321) +0 +"FIA",1130580001.401) +C0Q PARAMETER +"FIA",1130580001.401,0) +^C0Q(401, +"FIA",1130580001.401,0,0) +1130580001.401 +"FIA",1130580001.401,0,1) +y^y^f^^^^n +"FIA",1130580001.401,0,10) + +"FIA",1130580001.401,0,11) + +"FIA",1130580001.401,0,"RLRO") + +"FIA",1130580001.401,0,"VR") +1.0^QUALITY MEASURES +"FIA",1130580001.401,1130580001.401) +0 +"FIA",1130580001.401,1130580001.4013) +0 +"FIA",1130580001.401,1130580001.411) +0 +"INI") +PRE^C0QKIDS +"INIT") +POST^C0QKIDS +"IX",178.301,178.301,"XPATH",0) +178.301^XPATH^REGULAR WHOLE FILE INDEX ON XPATH BY TEMPLATE^R^^F^IR^W^178.3014^^^^^LS +"IX",178.301,178.301,"XPATH",1) +S ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA)="" +"IX",178.301,178.301,"XPATH",2) +K ^C0CX(178.301,"XPATH",X(2),$E(X(1),1,240),DA(1),DA) +"IX",178.301,178.301,"XPATH",2.5) +K ^C0CX(178.301,"XPATH") +"IX",178.301,178.301,"XPATH",11.1,0) +^.114IA^2^2 +"IX",178.301,178.301,"XPATH",11.1,1,0) +1^F^178.3014^.01^240^2^F +"IX",178.301,178.301,"XPATH",11.1,1,3) + +"IX",178.301,178.301,"XPATH",11.1,2,0) +2^C^^^^1 +"IX",178.301,178.301,"XPATH",11.1,2,1.5) +S X=DA(1) +"IX",1130580001.101,1130580001.101,"B",0) +1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"B",1) +S ^C0Q(101,"B",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"B",2) +K ^C0Q(101,"B",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"B",2.5) +K ^C0Q(101,"B") +"IX",1130580001.101,1130580001.101,"B",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"B",11.1,1,0) +1^F^1130580001.101^.01^30^1^F +"IX",1130580001.101,1130580001.101,"MU",0) +1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS +"IX",1130580001.101,1130580001.101,"MU",1) +S ^C0Q(101,"MU",$E(X,1,30),DA)="" +"IX",1130580001.101,1130580001.101,"MU",2) +K ^C0Q(101,"MU",$E(X,1,30),DA) +"IX",1130580001.101,1130580001.101,"MU",2.5) +K ^C0Q(101,"MU") +"IX",1130580001.101,1130580001.101,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.101,1130580001.101,"MU",11.1,1,0) +1^F^1130580001.101^.3^30^1^F +"IX",1130580001.201,1130580001.201,"MU",0) +1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS +"IX",1130580001.201,1130580001.201,"MU",1) +S ^C0Q(201,"MU",$E(X,1,30),DA)="" +"IX",1130580001.201,1130580001.201,"MU",2) +K ^C0Q(201,"MU",$E(X,1,30),DA) +"IX",1130580001.201,1130580001.201,"MU",2.5) +K ^C0Q(201,"MU") +"IX",1130580001.201,1130580001.201,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.201,1130580001.201,"MU",11.1,1,0) +1^F^1130580001.201^.3^30^1^F +"IX",1130580001.301,1130580001.301,"CATTR",0) +1130580001.301^CATTR^ATTRIBUTE TO TIE PATIENT LIST RECORD TO INTERNAL ARRAYS^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"CATTR",1) +S ^C0Q(301,"CATTR",$E(X,1,64),DA)="" +"IX",1130580001.301,1130580001.301,"CATTR",2) +K ^C0Q(301,"CATTR",$E(X,1,64),DA) +"IX",1130580001.301,1130580001.301,"CATTR",2.5) +K ^C0Q(301,"CATTR") +"IX",1130580001.301,1130580001.301,"CATTR",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"CATTR",11.1,1,0) +1^F^1130580001.301^999^64^1^F +"IX",1130580001.301,1130580001.301,"MU",0) +1130580001.301^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.301^^^^^LS +"IX",1130580001.301,1130580001.301,"MU",1) +S ^C0Q(301,"MU",$E(X,1,30),DA)="" +"IX",1130580001.301,1130580001.301,"MU",2) +K ^C0Q(301,"MU",$E(X,1,30),DA) +"IX",1130580001.301,1130580001.301,"MU",2.5) +K ^C0Q(301,"MU") +"IX",1130580001.301,1130580001.301,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.301,1130580001.301,"MU",11.1,1,0) +1^F^1130580001.301^.3^30^1^F +"IX",1130580001.401,1130580001.401,"MU",0) +1130580001.401^MU^REGULAR INDEX ON THE REPORTING PERIOD FIELD^R^^F^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MU",1) +S ^C0Q(401,"MU",$E(X,1,30),DA)="" +"IX",1130580001.401,1130580001.401,"MU",2) +K ^C0Q(401,"MU",$E(X,1,30),DA) +"IX",1130580001.401,1130580001.401,"MU",2.5) +K ^C0Q(401,"MU") +"IX",1130580001.401,1130580001.401,"MU",11.1,0) +^.114IA^1^1 +"IX",1130580001.401,1130580001.401,"MU",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",0) +1130580001.401^MUTYP^INDEX ON PARAMETER TYPE BY REPORTING PERIOD^R^^R^IR^I^1130580001.401^^^^^LS +"IX",1130580001.401,1130580001.401,"MUTYP",1) +S ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA)="" +"IX",1130580001.401,1130580001.401,"MUTYP",2) +K ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA) +"IX",1130580001.401,1130580001.401,"MUTYP",2.5) +K ^C0Q(401,"MUTYP") +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,0) +^.114IA^2^2 +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,0) +1^F^1130580001.401^.02^30^1^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,3) + +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,0) +2^F^1130580001.401^.03^^2^F +"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,3) + +"KEY",1130580001.101,1130580001.101,"A",0) +1130580001.101^A^P^733 +"KEY",1130580001.101,1130580001.101,"A",2,0) +^.312IA^1^1 +"KEY",1130580001.101,1130580001.101,"A",2,1,0) +.01^1130580001.101^1 +"KEYPTR",1130580001.101,1130580001.101,"A") +1130580001.101^B +"KRN",.4,1495,-1) +0^3 +"KRN",.4,1495,0) +C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3120105 +"KRN",.4,1495,"F",2) +.01~.5~1~2~ +"KRN",.4,1495,"H") +C0Q QUAILITY MEASURE LIST +"KRN",.4,1496,-1) +0^2 +"KRN",.4,1496,0) +C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3110502 +"KRN",.4,1496,"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,1496,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1497,-1) +0^1 +"KRN",.4,1497,0) +C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014 +"KRN",.4,1497,"F",2) +.01~1,.01~1,2,.01~ +"KRN",.4,1497,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1498,-1) +0^5 +"KRN",.4,1498,0) +C0Q HOS MEASURES^3110430.1539^@^1130580001.201^^@^3110430 +"KRN",.4,1498,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1498,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1498,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1498,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1498,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1498,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1498,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1499,-1) +0^4 +"KRN",.4,1499,0) +C0Q EP SETUP^3110430.1927^@^1130580001.201^^@^3110502 +"KRN",.4,1499,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,1)):^(1),1:"") +"KRN",.4,1499,"DXS",2,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1499,"DXS",3,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,0)):^(0),1:"") +"KRN",.4,1499,"F",1) +.01~1,.01~1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:TITLE"~ +"KRN",.4,1499,"F",2) +1,X DXS(2,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,2),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:NUMERATOR"~ +"KRN",.4,1499,"F",3) +1,X DXS(3,9.2) S X=$P($G(^PXRMXP(810.5,+$P(DIP(101),U,3),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;Z;"MEASURE:DENOMINATOR"~ +"KRN",.4,1499,"H") +C0Q MEASUREMENTS LIST +"KRN",.4,1500,-1) +0^6 +"KRN",.4,1500,0) +C0Q MEASUREMENT REPORT^3110512.1707^@^1130580001.201^^@^3120523 +"KRN",.4,1500,"DXS",1,9.2) +S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^C0Q(201,D0,5,D1,0)):^(0),1:""),D0=$P(DIP(1),U,1) S:'D0!'$D(^C0Q(101,+D0,0)) D0=-1 S DIP(101)=$S($D(^C0Q(101,D0,5)):^(5),1:"") +"KRN",.4,1500,"F",2) +1,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP;W25;S;Z;"MEASURE:DISPLAY NAME"~1,2.1;"DENOMINATOR";C27~1,1.1;"NUMERATOR"~1,3;C62~ +"KRN",.4,1500,"H") +C0Q MEASUREMENTS LIST +"KRN",.402,1736,-1) +0^1 +"KRN",.402,1736,0) +C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3110621 +"KRN",.402,1736,"DR",1,1130580001.201) +.01;1; +"KRN",.402,1736,"DR",2,1130580001.2011) +.01; +"KRN",.402,1742,-1) +0^3 +"KRN",.402,1742,0) +C0Q EDIT INPATIENT PARMS^3120105.1456^@^1130580001.401^^@^3120124 +"KRN",.402,1742,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1742,"DR",1,1130580001.401) +.01;.02;.03;1;1.1;3; +"KRN",.402,1742,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1743,-1) +0^6 +"KRN",.402,1743,0) +C0Q EDIT OUPATIENT PARMS^3120105.1458^@^1130580001.401^^@^3120731 +"KRN",.402,1743,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1743,"DIAB",1,1,1130580001.411,0) +ALL +"KRN",.402,1743,"DR",1,1130580001.401) +.01;.02;.03;2;2.1;2.2;2.3;3; +"KRN",.402,1743,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1743,"DR",2,1130580001.411) +.01 +"KRN",.402,1744,-1) +0^8 +"KRN",.402,1744,0) +C0Q EDIT SUPERUSERS^3120105.1459^@^1130580001.401^^@^3120124 +"KRN",.402,1744,"DIAB",1,1,1130580001.4013,0) +ALL +"KRN",.402,1744,"DR",1,1130580001.401) +.01;.02;.03;3; +"KRN",.402,1744,"DR",2,1130580001.4013) +.01:.02 +"KRN",.402,1745,-1) +0^7 +"KRN",.402,1745,0) +C0Q EDIT QUALITY MEASURE^3120105.1536^@^1130580001.101^^@^3120117 +"KRN",.402,1745,"DR",1,1130580001.101) +.01;.3;.5;.61;.7;.8;1;2;3;3.2; +"KRN",.402,1746,-1) +0^5 +"KRN",.402,1746,0) +C0Q EDIT MU MEASURE^3120105.1537^@^1130580001.101^^@^3120219 +"KRN",.402,1746,"DR",1,1130580001.101) +.01;.3;.5;.61;.7;.8;1.1;2.1; +"KRN",.402,1747,-1) +0^4 +"KRN",.402,1747,0) +C0Q EDIT MEASURE SET^3120105.1539^@^1130580001.201^^@^3120730 +"KRN",.402,1747,"DR",1,1130580001.201) +.01;.02;.03;.05;.3;1; +"KRN",.402,1747,"DR",2,1130580001.2011) +.01;1.2;2.2; +"KRN",19,11027,-1) +0^10 +"KRN",19,11027,0) +C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^ +"KRN",19,11027,10,0) +^19.01IP^19^19 +"KRN",19,11027,10,9,0) +11034 +"KRN",19,11027,10,9,"^") +C0Q COPY PATIENT LISTS +"KRN",19,11027,10,12,0) +11037 +"KRN",19,11027,10,12,"^") +C0Q PQRI MENU +"KRN",19,11027,10,13,0) +11038 +"KRN",19,11027,10,13,"^") +C0Q PRINT MEASURES +"KRN",19,11027,10,14,0) +11044 +"KRN",19,11027,10,14,"^") +C0Q PRINT PQRI XML +"KRN",19,11027,10,15,0) +11058 +"KRN",19,11027,10,15,"^") +C0Q INP UPDATE MU MEASURES +"KRN",19,11027,10,16,0) +11059 +"KRN",19,11027,10,16,"^") +C0Q ED1 COMPUTATION +"KRN",19,11027,10,17,0) +11060 +"KRN",19,11027,10,17,"^") +C0Q ED2 COMPUTATION +"KRN",19,11027,10,18,0) +11061 +"KRN",19,11027,10,18,"^") +C0Q SETUP QUALITY REPORTING +"KRN",19,11027,10,19,0) +11062 +"KRN",19,11027,10,19,"^") +C0Q EP UPDATE MU MEASURES +"KRN",19,11027,99) +62598,59399 +"KRN",19,11027,"U") +QUALITY MEASUREMENT MENU +"KRN",19,11028,-1) +0^4 +"KRN",19,11028,0) +C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^QUALITY MEASURES +"KRN",19,11028,60) +C0Q(101, +"KRN",19,11028,62) +0 +"KRN",19,11028,63) +[C0Q PRINT QUALITY MEASURES] +"KRN",19,11028,64) + +"KRN",19,11028,65) + +"KRN",19,11028,66) + +"KRN",19,11028,"U") +DISPLAY QUALITY MEASURES +"KRN",19,11030,-1) +0^7 +"KRN",19,11030,0) +C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^ +"KRN",19,11030,25) +EN^C0QMAIN +"KRN",19,11030,"U") +LIST MEASURE SET +"KRN",19,11031,-1) +0^1 +"KRN",19,11031,0) +C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^ +"KRN",19,11031,25) +NBYP^C0QMAIN +"KRN",19,11031,"U") +BY PATIENT NUMERATOR +"KRN",19,11032,-1) +0^2 +"KRN",19,11032,0) +C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^ +"KRN",19,11032,25) +DBYP^C0QMAIN +"KRN",19,11032,"U") +DENOMINATOR PATIENT LIST +"KRN",19,11033,-1) +0^5 +"KRN",19,11033,0) +C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^ +"KRN",19,11033,25) +EXPORT^C0QMAIN +"KRN",19,11033,"U") +EXPORT CCR BY MEASURE +"KRN",19,11034,-1) +0^12 +"KRN",19,11034,0) +C0Q COPY PATIENT LISTS^COPY OVER PATIENT LISTS^^R^^^^^^^^ +"KRN",19,11034,25) +EN2^C0QMAIN +"KRN",19,11034,"U") +COPY OVER PATIENT LISTS +"KRN",19,11035,-1) +0^6 +"KRN",19,11035,0) +C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^ +"KRN",19,11035,25) +ENEXP^C0QMAIN +"KRN",19,11035,"U") +ALL MEASURES EXPORT +"KRN",19,11036,-1) +0^15 +"KRN",19,11036,0) +C0Q UPDATE QUALITY MEASUREMENT^RERUN ALL CURRENT REMINDERS^^R^^^^^^^^^^^1 +"KRN",19,11036,1,0) +^19.06^3^3^3110430^^ +"KRN",19,11036,1,1,0) +Picks up the C0Q MEASUREMENST file entry to use from the Parameter C0Q +"KRN",19,11036,1,2,0) +MEASUREMENT TO USE, then runs and updates all associated Patient Lists and +"KRN",19,11036,1,3,0) +populates the C0Q QUALITY MEASURE and C0Q MEASUREMENTS files. +"KRN",19,11036,15) +W !,"Quality Measures Update Queued" H 2 +"KRN",19,11036,25) +QUE^C0QMAIN +"KRN",19,11036,"U") +RERUN ALL CURRENT REMINDERS +"KRN",19,11037,-1) +0^13 +"KRN",19,11037,0) +C0Q PQRI MENU^PQRI MENU^^M^^^^^^^^ +"KRN",19,11037,10,0) +^19.01IP^6^6 +"KRN",19,11037,10,1,0) +11035 +"KRN",19,11037,10,1,"^") +C0Q EXPORT MEASURE SET +"KRN",19,11037,10,2,0) +11033 +"KRN",19,11037,10,2,"^") +C0Q EXPORT CCR BY MEASURE +"KRN",19,11037,10,3,0) +11030 +"KRN",19,11037,10,3,"^") +C0Q LIST MEASURE SET +"KRN",19,11037,10,4,0) +11031 +"KRN",19,11037,10,4,"^") +C0Q BY PATIENT NUMERATOR +"KRN",19,11037,10,5,0) +11032 +"KRN",19,11037,10,5,"^") +C0Q DENOMINATOR PATIENT LIST +"KRN",19,11037,10,6,0) +11036 +"KRN",19,11037,10,6,"^") +C0Q UPDATE QUALITY MEASUREMENT +"KRN",19,11037,99) +62598,59399 +"KRN",19,11037,"U") +PQRI MENU +"KRN",19,11038,-1) +0^14 +"KRN",19,11038,0) +C0Q PRINT MEASURES^PRINT C0Q MEASURES^^I^^^^^^^^ +"KRN",19,11038,30) +C0Q(201, +"KRN",19,11038,31) +AEMQ +"KRN",19,11038,63) +[C0Q MEASUREMENT REPORT +"KRN",19,11038,80) +C0Q(201, +"KRN",19,11038,"U") +PRINT C0Q MEASURES +"KRN",19,11044,-1) +0^16 +"KRN",19,11044,0) +C0Q PRINT PQRI XML^PQRI PRINT XML^^R^^^^^^^^ +"KRN",19,11044,25) +EN^C0QPQRI +"KRN",19,11044,"U") +PQRI PRINT XML +"KRN",19,11058,-1) +0^22 +"KRN",19,11058,0) +C0Q INP UPDATE MU MEASURES^INP UPDATE MU MEASURES^^R^^^^^^^^ +"KRN",19,11058,25) +BUILD^C0QMU12 +"KRN",19,11058,"U") +INP UPDATE MU MEASURES +"KRN",19,11059,-1) +0^19 +"KRN",19,11059,0) +C0Q ED1 COMPUTATION^ED-1 COMPUTATION^^R^^^^^^^^ +"KRN",19,11059,25) +ED1^C0QMU12 +"KRN",19,11059,"U") +ED-1 COMPUTATION +"KRN",19,11060,-1) +0^20 +"KRN",19,11060,0) +C0Q ED2 COMPUTATION^ED-2 COMPUTATION^^R^^^^^^^^QUALITY MEASURES +"KRN",19,11060,25) +ED2^C0QMU12 +"KRN",19,11060,"U") +ED-2 COMPUTATION +"KRN",19,11061,-1) +0^23 +"KRN",19,11061,0) +C0Q SETUP QUALITY REPORTING^SETUP QUALITY REPORTING^^M^^^^^^^^ +"KRN",19,11061,10,0) +^19.01IP^9^9 +"KRN",19,11061,10,1,0) +11028 +"KRN",19,11061,10,1,"^") +C0Q DISPLAY QUALITY MEASURES +"KRN",19,11061,10,4,0) +11063 +"KRN",19,11061,10,4,"^") +C0Q EDIT INP PARMS +"KRN",19,11061,10,5,0) +11064 +"KRN",19,11061,10,5,"^") +C0Q EDIT OUTPATIENT PARMS +"KRN",19,11061,10,6,0) +11065 +"KRN",19,11061,10,6,"^") +C0Q EDIT SUPERUSERS +"KRN",19,11061,10,7,0) +11067 +"KRN",19,11061,10,7,"^") +C0Q EDIT QUALITY MEASURE +"KRN",19,11061,10,8,0) +11068 +"KRN",19,11061,10,8,"^") +C0Q EDIT MU MEASURE +"KRN",19,11061,10,9,0) +11066 +"KRN",19,11061,10,9,"^") +C0Q EDIT MEASURE SET +"KRN",19,11061,99) +62602,60669 +"KRN",19,11061,"U") +SETUP QUALITY REPORTING +"KRN",19,11062,-1) +0^21 +"KRN",19,11062,0) +C0Q EP UPDATE MU MEASURES^EP UPDATE MU MEASURES^^R^^^^^^^^ +"KRN",19,11062,25) +DOEP^C0QMU12 +"KRN",19,11062,"U") +EP UPDATE MU MEASURES +"KRN",19,11063,-1) +0^24 +"KRN",19,11063,0) +C0Q EDIT INP PARMS^INP EDIT PARMS^^E^^^^^^^^^^1^1 +"KRN",19,11063,15) +K DLAYGO +"KRN",19,11063,20) +S DLAYGO=1130580001.401 +"KRN",19,11063,30) +C0Q(401, +"KRN",19,11063,31) +AEMQL +"KRN",19,11063,50) +C0Q(401, +"KRN",19,11063,51) +[C0Q EDIT INPATIENT PARMS] +"KRN",19,11063,"U") +INP EDIT PARMS +"KRN",19,11064,-1) +0^27 +"KRN",19,11064,0) +C0Q EDIT OUTPATIENT PARMS^EP EDIT PARMS^^E^^^^^^^^QUALITY MEASURES^^1^1 +"KRN",19,11064,15) +K DLAYGO +"KRN",19,11064,20) +S DLAYGO=1130580001.401 +"KRN",19,11064,30) +C0Q(401, +"KRN",19,11064,31) +AEMQL +"KRN",19,11064,50) +C0Q(401, +"KRN",19,11064,51) +[C0Q EDIT OUPATIENT PARMS] +"KRN",19,11064,"U") +EP EDIT PARMS +"KRN",19,11065,-1) +0^29 +"KRN",19,11065,0) +C0Q EDIT SUPERUSERS^EDIT SUPERUSERS^^E^^^^^^^^ +"KRN",19,11065,30) +C0Q(401, +"KRN",19,11065,31) +AEMQ +"KRN",19,11065,50) +C0Q(401, +"KRN",19,11065,51) +[C0Q EDIT SUPERUSERS] +"KRN",19,11065,"U") +EDIT SUPERUSERS +"KRN",19,11066,-1) +0^25 +"KRN",19,11066,0) +C0Q EDIT MEASURE SET^MEASURE SET EDIT^^E^^^^^^^^QUALITY MEASURES^^1^1 +"KRN",19,11066,15) +K DLAYGO +"KRN",19,11066,20) +S DLAYGO=1130580001.201 +"KRN",19,11066,30) +C0Q(201, +"KRN",19,11066,31) +AEMQL +"KRN",19,11066,50) +C0Q(201, +"KRN",19,11066,51) +[C0Q EDIT MEASURE SET] +"KRN",19,11066,"U") +MEASURE SET EDIT +"KRN",19,11067,-1) +0^28 +"KRN",19,11067,0) +C0Q EDIT QUALITY MEASURE^QUALITY MEASURE EDIT^^E^^^^^^^^^^1^1 +"KRN",19,11067,15) +K DLAYGO +"KRN",19,11067,20) +S DLAYGO=1130580001.101 +"KRN",19,11067,30) +C0Q(101, +"KRN",19,11067,31) +AEMQL +"KRN",19,11067,50) +C0Q(101, +"KRN",19,11067,51) +[C0Q EDIT QUALITY MEASURE] +"KRN",19,11067,"U") +QUALITY MEASURE EDIT +"KRN",19,11068,-1) +0^26 +"KRN",19,11068,0) +C0Q EDIT MU MEASURE^MU MEASURE EDIT^^E^^^^^^^^QUALITY MEASURES^^1^1 +"KRN",19,11068,15) +K DLAYGO +"KRN",19,11068,20) +S DLAYGO=1130580001.101 +"KRN",19,11068,30) +C0Q(101, +"KRN",19,11068,31) +AEMQL +"KRN",19,11068,50) +C0Q(101, +"KRN",19,11068,51) +[C0Q EDIT MU MEASURE] +"KRN",19,11068,"U") +MU MEASURE EDIT +"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 +"PKG",212,-1) +1^1 +"PKG",212,0) +QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures +"PKG",212,1,0) +^9.41A^3^3^3120521^^^ +"PKG",212,1,1,0) +Tracks and Prints quality measures for several reporting programs: +"PKG",212,1,2,0) +- Meaningful Use +"PKG",212,1,3,0) +- PQRI +"PKG",212,20,0) +^9.402P^^ +"PKG",212,22,0) +^9.49I^1^1 +"PKG",212,22,1,0) +1.0^3120731 +"PKG",212,22,1,1,0) +^^9^9^3120731 +"PKG",212,22,1,1,1,0) +The C0Q Quality Reporting Package is a mumps-based addition to VistA for +"PKG",212,22,1,1,2,0) +reporting Meaningful Use and Quality Measurements. The package supports +"PKG",212,22,1,1,3,0) +both inpatient and outpatient reporting, and computes the Meaningful Use +"PKG",212,22,1,1,4,0) +measures from patient records. For Quality Measurements, the reporting +"PKG",212,22,1,1,5,0) +package relies on the VistA Reminders Patient Lists as the source for its +"PKG",212,22,1,1,6,0) +reporting. +"PKG",212,22,1,1,7,0) + +"PKG",212,22,1,1,8,0) +Installation and Use instructions can be found here: +"PKG",212,22,1,1,9,0) +http://vistapedia.net/index.php?title=C0Q_Quality_Reporting_1.0 +"PKG",212,"VERSION") +1.0 +"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") +YES +"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") +17 +"RTN","C0QERTIM") +0^5^B7594438 +"RTN","C0QERTIM",1,0) +C0QERTIM ; Time from admission to leaving a hospital location ; 5/23/12 2:26pm +"RTN","C0QERTIM",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QERTIM",3,0) +EN ;Get Location +"RTN","C0QERTIM",4,0) + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT +"RTN","C0QERTIM",5,0) + S LOCATION=+Y +"RTN","C0QERTIM",6,0) + ;Start date +"RTN","C0QERTIM",7,0) + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y +"RTN","C0QERTIM",8,0) + ;End date +"RTN","C0QERTIM",9,0) + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y +"RTN","C0QERTIM",10,0) + ;select device: +"RTN","C0QERTIM",11,0) + S %ZIS="Q" D ^%ZIS G EXIT:POP +"RTN","C0QERTIM",12,0) + I $D(IO("Q")) D G EXIT +"RTN","C0QERTIM",13,0) + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" +"RTN","C0QERTIM",14,0) + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" +"RTN","C0QERTIM",15,0) + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") +"RTN","C0QERTIM",16,0) + . Q +"RTN","C0QERTIM",17,0) +DQ ; Get down to business +"RTN","C0QERTIM",18,0) + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. +"RTN","C0QERTIM",19,0) + ;^DGPT("AF",date/time,DA) +"RTN","C0QERTIM",20,0) + S PATCOUNT=0,ADMITIME=START +"RTN","C0QERTIM",21,0) + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D +"RTN","C0QERTIM",22,0) + . Q:ADMITIME>STOP +"RTN","C0QERTIM",23,0) + . ;FMIN from ADMISSION DATE piece 2 +"RTN","C0QERTIM",24,0) + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T +"RTN","C0QERTIM",25,0) + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D +"RTN","C0QERTIM",26,0) + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D +"RTN","C0QERTIM",27,0) + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) +"RTN","C0QERTIM",28,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION +"RTN","C0QERTIM",29,0) + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 +"RTN","C0QERTIM",30,0) + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T +"RTN","C0QERTIM",31,0) + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") +"RTN","C0QERTIM",32,0) + . . . I FMINDAY'=FMOUTDAY D +"RTN","C0QERTIM",33,0) + . . . . S DIFFDAY=FMOUTDAY-FMINDAY +"RTN","C0QERTIM",34,0) + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") +"RTN","C0QERTIM",35,0) + . . . . Q +"RTN","C0QERTIM",36,0) + . . . S PATCOUNT=PATCOUNT+1 +"RTN","C0QERTIM",37,0) + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES +"RTN","C0QERTIM",38,0) + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) +"RTN","C0QERTIM",39,0) + . . . Q +"RTN","C0QERTIM",40,0) + . . Q +"RTN","C0QERTIM",41,0) + . Q +"RTN","C0QERTIM",42,0) + U IO W @IOF +"RTN","C0QERTIM",43,0) + ;list median time from Admission to leaving hospital LOCATION +"RTN","C0QERTIM",44,0) + S MID=$P(PATCOUNT/2,"."),SUM=0 +"RTN","C0QERTIM",45,0) + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D +"RTN","C0QERTIM",46,0) + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID +"RTN","C0QERTIM",47,0) + . Q +"RTN","C0QERTIM",48,0) + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! +"RTN","C0QERTIM",49,0) + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) +"RTN","C0QERTIM",50,0) + ;list patient and time from admission to leaving the location +"RTN","C0QERTIM",51,0) + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D +"RTN","C0QERTIM",52,0) + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +"RTN","C0QERTIM",53,0) +EXIT ; DO CLEANUP +"RTN","C0QERTIM",54,0) + S:$D(ZTQUEUED) ZTREQ="@" +"RTN","C0QERTIM",55,0) + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC +"RTN","C0QERTIM",56,0) + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) +"RTN","C0QERTIM",57,0) + Q +"RTN","C0QGMRAD") +0^2^B18802718 +"RTN","C0QGMRAD",1,0) +C0QGMRAD ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98 13:47 +"RTN","C0QGMRAD",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QGMRAD",3,0) +EN1 ; ENTRY TO GATHER PATIENT A/AR DATA +"RTN","C0QGMRAD",4,0) + ;INPUT VARIABLES: +"RTN","C0QGMRAD",5,0) + ; +"RTN","C0QGMRAD",6,0) + ; DFN Pointer to Patient file. +"RTN","C0QGMRAD",7,0) + ; GMRA (OPTIONAL) A^B^C DEFAULT="0^0^111^0" **LOCAL +"RTN","C0QGMRAD",8,0) + ; where A = 0 return all reactions (allergic/non-allergic). +"RTN","C0QGMRAD",9,0) + ; 1 return allergies only. +"RTN","C0QGMRAD",10,0) + ; 2 return non-allergies only. +"RTN","C0QGMRAD",11,0) + ; B = 0 return all data (verified or non-verified). +"RTN","C0QGMRAD",12,0) + ; 1 return only verified data. +"RTN","C0QGMRAD",13,0) + ; 2 return only non-verified data. +"RTN","C0QGMRAD",14,0) + ; C = X_Y_Z +"RTN","C0QGMRAD",15,0) + ; where X, Y, and Z are either 0 or 1. 1 would mean to +"RTN","C0QGMRAD",16,0) + ; return an Adverse Reaction of that particular type, +"RTN","C0QGMRAD",17,0) + ; and zero means do not return an Adverse Reaction of +"RTN","C0QGMRAD",18,0) + ; that type. +"RTN","C0QGMRAD",19,0) + ; X is for TYPE=OTHER +"RTN","C0QGMRAD",20,0) + ; Y is for TYPE=FOOD +"RTN","C0QGMRAD",21,0) + ; Z is for TYPE=DRUG. +"RTN","C0QGMRAD",22,0) + ; E.g., 001 (return drug only), 111 (returns all types), +"RTN","C0QGMRAD",23,0) + ; and 010 (returns food only). +"RTN","C0QGMRAD",24,0) + ; **LOCAL +"RTN","C0QGMRAD",25,0) + ; D = 0 return both Observed and Historical +"RTN","C0QGMRAD",26,0) + ; 1 return only Observed +"RTN","C0QGMRAD",27,0) + ; **LOCAL +"RTN","C0QGMRAD",28,0) + ;OUTPUT VARIABLES: +"RTN","C0QGMRAD",29,0) + ; GMRAL = 1 if patient has Adverse Reaction +"RTN","C0QGMRAD",30,0) + ; 0 if patient has no known Adverse Reaction +"RTN","C0QGMRAD",31,0) + ; null if patient has not been asked about Adverse Reaction +"RTN","C0QGMRAD",32,0) + ; GMRAL(PTR TO 120.8) = A^B^C^D^E^F^G^H^I +"RTN","C0QGMRAD",33,0) + ; where A = Pointer to Patient file. +"RTN","C0QGMRAD",34,0) + ; B = Free text of causative agent. +"RTN","C0QGMRAD",35,0) + ; *C = Type of reaction, where D is drug, F is food, and O is +"RTN","C0QGMRAD",36,0) + ; other. +"RTN","C0QGMRAD",37,0) + ; D = 1 if Adverse Reaction has been verified +"RTN","C0QGMRAD",38,0) + ; 0 if Adverse Reaction has not been verified +"RTN","C0QGMRAD",39,0) + ; E = 0 if this is an allergic reaction +"RTN","C0QGMRAD",40,0) + ; 1 if this is not an allergic reaction +"RTN","C0QGMRAD",41,0) + ; **F = the mechanism of reaction in the format: +"RTN","C0QGMRAD",42,0) + ; External format;Internal format +"RTN","C0QGMRAD",43,0) + ; (ALLERGY;0, PHARMACOLOGIC;2, UNKNOWN;U). +"RTN","C0QGMRAD",44,0) + ; G = Type of reaction. +"RTN","C0QGMRAD",45,0) + ; where D = drug +"RTN","C0QGMRAD",46,0) + ; DF = drug/food +"RTN","C0QGMRAD",47,0) + ; DFO = drug/food/other +"RTN","C0QGMRAD",48,0) + ; DO = drug/other +"RTN","C0QGMRAD",49,0) + ; F = food +"RTN","C0QGMRAD",50,0) + ; FO = food/other +"RTN","C0QGMRAD",51,0) + ; O = other +"RTN","C0QGMRAD",52,0) + ; H = the mechanism of reaction in the format: +"RTN","C0QGMRAD",53,0) + ; External format;Internal format +"RTN","C0QGMRAD",54,0) + ; (ALLERGY;A, PHARMACOLOGIC;P, UNKNOWN;U) +"RTN","C0QGMRAD",55,0) + ; I = IEN and Global root of reactant (stored in piece B above) +"RTN","C0QGMRAD",56,0) + ; set equal to the GMR ALLERGY field (#1) of the PATIENT +"RTN","C0QGMRAD",57,0) + ; ALLERGY file (#120.8) +"RTN","C0QGMRAD",58,0) + ; GMRAL(PTR TO 120.8,"S",COUNT) = S +"RTN","C0QGMRAD",59,0) + ; where COUNT = number 1 to number of signs/symptoms for this +"RTN","C0QGMRAD",60,0) + ; reaction. +"RTN","C0QGMRAD",61,0) + ; S = a sign/symptom for this reaction in the format: +"RTN","C0QGMRAD",62,0) + ; External format;Internal format +"RTN","C0QGMRAD",63,0) + ; +"RTN","C0QGMRAD",64,0) + ;* NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",65,0) + ; Please use piece G. +"RTN","C0QGMRAD",66,0) + ;** NOTE: This piece will no longer be supported after 9/1/97, +"RTN","C0QGMRAD",67,0) + ; Please use piece H. +"RTN","C0QGMRAD",68,0) + ; +"RTN","C0QGMRAD",69,0) + N GMRAOTH +"RTN","C0QGMRAD",70,0) + Q:'$D(DFN) S:'$D(GMRA)#2 GMRA="0^0^111^1" K GMRAL +"RTN","C0QGMRAD",71,0) +DPT ; +"RTN","C0QGMRAD",72,0) + ;Read NKA Node in file 120.86 +"RTN","C0QGMRAD",73,0) + S GMRAL=$P($G(^GMR(120.86,DFN,0)),U,2) +"RTN","C0QGMRAD",74,0) + ;Do not set GMRAL array if patient is unassessed or NKA. +"RTN","C0QGMRAD",75,0) + I GMRAL=0 Q ;PATIENT HAS NO KNOWN ALLERGIES +"RTN","C0QGMRAD",76,0) + F GMRAREC=0:0 S GMRAREC=$O(^GMR(120.8,"B",DFN,GMRAREC)) Q:GMRAREC'>0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL +"RTN","C0QGMRAD",77,0) + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array +"RTN","C0QGMRAD",78,0) + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT +"RTN","C0QGMRAD",79,0) + Q +"RTN","C0QGMRAD",80,0) +SETAL ; +"RTN","C0QGMRAD",81,0) + N %,GMRAI,GMRASIGN +"RTN","C0QGMRAD",82,0) + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT +"RTN","C0QGMRAD",83,0) + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT +"RTN","C0QGMRAD",84,0) + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES +"RTN","C0QGMRAD",85,0) + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA +"RTN","C0QGMRAD",86,0) + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL +"RTN","C0QGMRAD",87,0) + I '$P(GMRA,"^") S GMRAI=1 +"RTN","C0QGMRAD",88,0) + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",89,0) + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 +"RTN","C0QGMRAD",90,0) + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET +"RTN","C0QGMRAD",91,0) + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET +"RTN","C0QGMRAD",92,0) + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA +"RTN","C0QGMRAD",93,0) + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q +"RTN","C0QGMRAD",94,0) + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET +"RTN","C0QGMRAD",95,0) + D PASS(GMRAREC,.GMRAL) +"RTN","C0QGMRAD",96,0) + Q +"RTN","C0QGMRAD",97,0) +PASS(GMRAREC,GMRAL) ; Data filer +"RTN","C0QGMRAD",98,0) + ; This subroutine will store all the patient date for a reaction is an +"RTN","C0QGMRAD",99,0) + ; array. +"RTN","C0QGMRAD",100,0) + ; Input: +"RTN","C0QGMRAD",101,0) + ; GMRAREC = The IEN for the entry in 120.8 +"RTN","C0QGMRAD",102,0) + ;Output: +"RTN","C0QGMRAD",103,0) + ; GMRAL(GMRAREC) the array entry for the record +"RTN","C0QGMRAD",104,0) + ; +"RTN","C0QGMRAD",105,0) + N GMRANODE +"RTN","C0QGMRAD",106,0) + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" +"RTN","C0QGMRAD",107,0) + S %=$P(GMRANODE,"^",14) +"RTN","C0QGMRAD",108,0) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) +"RTN","C0QGMRAD",109,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") +"RTN","C0QGMRAD",110,0) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) +"RTN","C0QGMRAD",111,0) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS +"RTN","C0QGMRAD",112,0) + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) +"RTN","C0QGMRAD",113,0) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 +"RTN","C0QGMRAD",114,0) + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) +"RTN","C0QGMRAD",115,0) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) +"RTN","C0QGMRAD",116,0) + .Q +"RTN","C0QGMRAD",117,0) + K GMRAX,GMRAY,GMRAZ +"RTN","C0QGMRAD",118,0) + Q +"RTN","C0QGMTSA") +0^3^B2175692 +"RTN","C0QGMTSA",1,0) +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 +"RTN","C0QGMTSA",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QGMTSA",3,0) + ; +"RTN","C0QGMTSA",4,0) + ; External References +"RTN","C0QGMTSA",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSA",6,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD +"RTN","C0QGMTSA",7,0) + ; +"RTN","C0QGMTSA",8,0) +ALLRG ; Allergies +"RTN","C0QGMTSA",9,0) + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSA",10,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",11,0) + . D GETALLRG I ALLRG D +"RTN","C0QGMTSA",12,0) + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP +"RTN","C0QGMTSA",13,0) + Q +"RTN","C0QGMTSA",14,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSA",15,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 +"RTN","C0QGMTSA",16,0) + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSA",17,0) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! +"RTN","C0QGMTSA",18,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) +"RTN","C0QGMTSA",19,0) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +"RTN","C0QGMTSA",20,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSA",21,0) + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSA",22,0) + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q +"RTN","C0QGMTSA",23,0) + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D +"RTN","C0QGMTSA",24,0) + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) +"RTN","C0QGMTSA",25,0) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q +"RTN","C0QGMTSA",26,0) + Q +"RTN","C0QGMTSG") +0^4^B29331917 +"RTN","C0QGMTSG",1,0) +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 +"RTN","C0QGMTSG",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QGMTSG",3,0) + ; +"RTN","C0QGMTSG",4,0) + ; External References +"RTN","C0QGMTSG",5,0) + ; DBIA 10096 ^%ZOSF("TEST" +"RTN","C0QGMTSG",6,0) + ; DBIA 10035 ^DPT( +"RTN","C0QGMTSG",7,0) + ; DBIA 905 ^GMR(120.8 +"RTN","C0QGMTSG",8,0) + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) +"RTN","C0QGMTSG",9,0) + ; DBIA 10011 ^DIWP +"RTN","C0QGMTSG",10,0) + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD +"RTN","C0QGMTSG",11,0) + ; DBIA 10060 ^VA(200, +"RTN","C0QGMTSG",12,0) + ; DBIA 3449 ^GMR(120.86, +"RTN","C0QGMTSG",13,0) + ; +"RTN","C0QGMTSG",14,0) +ALLRG ; Allergies +"RTN","C0QGMTSG",15,0) + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL +"RTN","C0QGMTSG",16,0) + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK +"RTN","C0QGMTSG",17,0) + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" +"RTN","C0QGMTSG",18,0) + S X="C0QGMRAD" X ^%ZOSF("TEST") +"RTN","C0QGMTSG",19,0) + I $T D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",20,0) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA +"RTN","C0QGMTSG",21,0) + I 'ALLRG,'$L($G(GMTSALAS)) D +"RTN","C0QGMTSG",22,0) + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! +"RTN","C0QGMTSG",23,0) + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT +"RTN","C0QGMTSG",24,0) + Q +"RTN","C0QGMTSG",25,0) +ALLRGP ; Allergy Print +"RTN","C0QGMTSG",26,0) + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D +"RTN","C0QGMTSG",27,0) + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") +"RTN","C0QGMTSG",28,0) + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D +"RTN","C0QGMTSG",29,0) + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D +"RTN","C0QGMTSG",30,0) + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D +"RTN","C0QGMTSG",31,0) + .... I GMTSAV=1 W " (AV" +"RTN","C0QGMTSG",32,0) + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") +"RTN","C0QGMTSG",33,0) + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") +"RTN","C0QGMTSG",34,0) + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) +"RTN","C0QGMTSG",35,0) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) +"RTN","C0QGMTSG",36,0) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 +"RTN","C0QGMTSG",37,0) + ..... S MX=MX+1 +"RTN","C0QGMTSG",38,0) + ..... W:MX>1 ", " +"RTN","C0QGMTSG",39,0) + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") +"RTN","C0QGMTSG",40,0) + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q +"RTN","C0QGMTSG",41,0) + ..... S ALL=1 W N +"RTN","C0QGMTSG",42,0) + .... D SIGBLK($P(GMTSAFN,U,5)) +"RTN","C0QGMTSG",43,0) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! +"RTN","C0QGMTSG",44,0) + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT +"RTN","C0QGMTSG",45,0) + Q +"RTN","C0QGMTSG",46,0) +NKA ; No known allergies +"RTN","C0QGMTSG",47,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! +"RTN","C0QGMTSG",48,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! +"RTN","C0QGMTSG",49,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! +"RTN","C0QGMTSG",50,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! +"RTN","C0QGMTSG",51,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! +"RTN","C0QGMTSG",52,0) + Q +"RTN","C0QGMTSG",53,0) +GETALLRG ; Get Allergies +"RTN","C0QGMTSG",54,0) + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q +"RTN","C0QGMTSG",55,0) + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q +"RTN","C0QGMTSG",56,0) + I $D(GMRAL)>9 D +"RTN","C0QGMTSG",57,0) + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D +"RTN","C0QGMTSG",58,0) + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" +"RTN","C0QGMTSG",59,0) + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" +"RTN","C0QGMTSG",60,0) + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") +"RTN","C0QGMTSG",61,0) + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" +"RTN","C0QGMTSG",62,0) + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) +"RTN","C0QGMTSG",63,0) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) +"RTN","C0QGMTSG",64,0) + .. S ALLRG=1 +"RTN","C0QGMTSG",65,0) + Q +"RTN","C0QGMTSG",66,0) +ALLAS ; Allergy Assessment +"RTN","C0QGMTSG",67,0) + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" +"RTN","C0QGMTSG",68,0) + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" +"RTN","C0QGMTSG",69,0) + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X +"RTN","C0QGMTSG",70,0) + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") +"RTN","C0QGMTSG",71,0) + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") +"RTN","C0QGMTSG",72,0) + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) +"RTN","C0QGMTSG",73,0) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" +"RTN","C0QGMTSG",74,0) + Q +"RTN","C0QGMTSG",75,0) +AUTOV ; Autoverify +"RTN","C0QGMTSG",76,0) + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) +"RTN","C0QGMTSG",77,0) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 +"RTN","C0QGMTSG",78,0) + Q +"RTN","C0QGMTSG",79,0) +TITLE ; Print title +"RTN","C0QGMTSG",80,0) + D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",81,0) + I $D(GMTSPNF) W ?21,TITLE,! +"RTN","C0QGMTSG",82,0) + E W ?21,"Title: ",TITLE,! +"RTN","C0QGMTSG",83,0) + Q +"RTN","C0QGMTSG",84,0) +TEXT ; Setup for print of allergy comments +"RTN","C0QGMTSG",85,0) + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) +"RTN","C0QGMTSG",86,0) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT +"RTN","C0QGMTSG",87,0) + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) +"RTN","C0QGMTSG",88,0) + K ^UTILITY($J,"W") +"RTN","C0QGMTSG",89,0) + Q:'GMTSLN +"RTN","C0QGMTSG",90,0) + W ! Q +"RTN","C0QGMTSG",91,0) +FORMAT ; Formats each line +"RTN","C0QGMTSG",92,0) + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP +"RTN","C0QGMTSG",93,0) + Q +"RTN","C0QGMTSG",94,0) +LINE ; Writes formatted lines of text +"RTN","C0QGMTSG",95,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) +"RTN","C0QGMTSG",96,0) + Q +"RTN","C0QGMTSG",97,0) +SIGBLK(GMTSALF) ; Signature block +"RTN","C0QGMTSG",98,0) + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) +"RTN","C0QGMTSG",99,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) +"RTN","C0QGMTSG",100,0) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST +"RTN","C0QGMTSG",101,0) + Q +"RTN","C0QHF") +0^11^B4977233 +"RTN","C0QHF",1,0) +C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 +"RTN","C0QHF",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QHF",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QHF",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QHF",5,0) + ; +"RTN","C0QHF",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QHF",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QHF",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QHF",9,0) + ;(at your option) any later version. +"RTN","C0QHF",10,0) + ; +"RTN","C0QHF",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QHF",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QHF",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QHF",14,0) + ;GNU General Public License for more details. +"RTN","C0QHF",15,0) + ; +"RTN","C0QHF",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QHF",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QHF",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QHF",19,0) + ; +"RTN","C0QHF",20,0) + Q +"RTN","C0QHF",21,0) + ; +"RTN","C0QHF",22,0) + ; these routines are for quick lookups on HEALTH FACTOR and V HEALTH FACTOR +"RTN","C0QHF",23,0) + ; files... +"RTN","C0QHF",24,0) + ; +"RTN","C0QHF",25,0) + ; from the DD: +"RTN","C0QHF",26,0) + ;STANDARD DATA DICTIONARY #9000010.23 -- V HEALTH FACTORS FILE +"RTN","C0QHF",27,0) + ;STORED IN ^AUPNVHF( (6744 ENTRIES) +"RTN","C0QHF",28,0) + ;CROSS REFERENCED BY: PATIENT NAME(AATOO), HEALTH FACTOR(AATOO1), VISIT(AD), +"RTN","C0QHF",29,0) + ; VISIT(AV10), HEALTH FACTOR(B), PATIENT NAME(C) +"RTN","C0QHF",30,0) + ; +"RTN","C0QHF",31,0) + ;STANDARD DATA DICTIONARY #9999999.64 -- HEALTH FACTORS FILE +"RTN","C0QHF",32,0) + ;STORED IN ^AUTTHF( (8656 ENTRIES) +"RTN","C0QHF",33,0) + ;CROSS REFERENCED BY: CATEGORY(AC), ENTRY TYPE(AD), FACTOR(B), SYNONYM(D) +"RTN","C0QHF",34,0) + ; +"RTN","C0QHF",35,0) +HFYN(DFN,C0QHF) ; EXTRINSIC RETURNS 1 (YES) OR 0 (NO) IF A PATIENT +"RTN","C0QHF",36,0) + ; HAS A HEALTH FACTOR +"RTN","C0QHF",37,0) + N ZI,ZJ,ZR +"RTN","C0QHF",38,0) + S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN +"RTN","C0QHF",39,0) + I ZI="" D Q 0 ; +"RTN","C0QHF",40,0) + . W !,"BAD HEALTH FACTOR: ",C0QHF +"RTN","C0QHF",41,0) + I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1 +"RTN","C0QHF",42,0) + E S ZR=0 +"RTN","C0QHF",43,0) + Q ZR +"RTN","C0QHF",44,0) + ; +"RTN","C0QHF",45,0) +HFIEN(ZHF) ; EXTRINSIC RETURNS THE IEN OF THE HEALTHFACTOR +"RTN","C0QHF",46,0) + N ZI +"RTN","C0QHF",47,0) + S ZI=$O(^AUTTHF("B",ZHF,"")) ; HEALTH FACTOR IEN +"RTN","C0QHF",48,0) + Q ZI +"RTN","C0QHF",49,0) + ; +"RTN","C0QHF",50,0) +VHFIEN(DFN,ZHF) ; EXTRINSIC RETURNS THE LAST IEN OF THIS HEALTH FACTOR +"RTN","C0QHF",51,0) + ; FOR THE PATIENT +"RTN","C0QHF",52,0) + N ZG,ZJ,ZK +"RTN","C0QHF",53,0) + S ZG=$$HFIEN(ZHF) +"RTN","C0QHF",54,0) + I ZG="" Q ; OPPS HEALTH FACTOR NOT FOUND +"RTN","C0QHF",55,0) + S ZJ=$O(^AUPNVHF("AA",DFN,ZG,""),-1) ;DATE +"RTN","C0QHF",56,0) + S ZK=$O(^AUPNVHF("AA",DFN,ZG,ZJ,"")) ;IEN +"RTN","C0QHF",57,0) + Q ZK +"RTN","C0QHF",58,0) + ; +"RTN","C0QHF",59,0) +HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY +"RTN","C0QHF",60,0) + ; RTN IS PASSED BY REFERENCE AND RETURNS AN ARRAY OF HEALTH FACTORS +"RTN","C0QHF",61,0) + ; THAT THE PATIENT HAS IN THE CATEGORY. RETURNS NULL IF NONE +"RTN","C0QHF",62,0) + ; FORMAT RNT(HEALTH FACTOR IEN,HEALTH FACTOR NAME)="" +"RTN","C0QHF",63,0) + N ZI +"RTN","C0QHF",64,0) + S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN +"RTN","C0QHF",65,0) + N C0QN,C0QO,C0QR +"RTN","C0QHF",66,0) + S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS +"RTN","C0QHF",67,0) + S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY +"RTN","C0QHF",68,0) + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; THE DIFFERENCE +"RTN","C0QHF",69,0) + K RTN ; CLEAR THE RETURN ARRAY +"RTN","C0QHF",70,0) + N ZJ S ZJ="" +"RTN","C0QHF",71,0) + F S ZJ=$O(C0QR(1,ZJ)) Q:ZJ="" D ; FOR ALL HEALTH FACTOR MATCHES +"RTN","C0QHF",72,0) + . S RTN(ZJ,$P(^AUTTHF(ZJ,0),"^",1))="" +"RTN","C0QHF",73,0) + Q +"RTN","C0QHF",74,0) + ; +"RTN","C0QHF",75,0) +HFLCAT(RTN,C0QHFCAT) ; RETURNS A LIST OF PATIENTS WHO HAVE A HEALTH FACTOR +"RTN","C0QHF",76,0) + ; IN THE C0QHFCAT CATEGORY. RTN IS PASSED BY REFERENCE +"RTN","C0QHF",77,0) + ; THIS WILL BE HARD TO DO WITHOUT SOME NEW INDEXES +"RTN","C0QHF",78,0) + Q +"RTN","C0QHF",79,0) + ; +"RTN","C0QHF",80,0) +HFLPAT(RTN,C0QHF) ; RETURNS A LIST OF PATIENTS WHO HAVE A SPECIFIC HEALTH +"RTN","C0QHF",81,0) + ; FACTOR. RTN IS PASSED BY REFERENCE +"RTN","C0QHF",82,0) + ; THIS ONE ALSO WILL BE HARD TO DO QUICKLY WITHOUT A NEW INDEX +"RTN","C0QHF",83,0) + Q +"RTN","C0QHF",84,0) + ; +"RTN","C0QHF",85,0) +INDEXES(DDREF) ;PRINT THE INDEXES ACTUALLY ON FILE DDREF +"RTN","C0QHF",86,0) + ; IE D INDEXES($NA(^DD)) +"RTN","C0QHF",87,0) + N ZI +"RTN","C0QHF",88,0) + S ZI="A" +"RTN","C0QHF",89,0) + F S ZI=$O(@DDREF@(ZI)) Q:ZI="" W !,ZI +"RTN","C0QHF",90,0) + Q +"RTN","C0QHF",91,0) + ; +"RTN","C0QIMMUN") +0^18^B7512677 +"RTN","C0QIMMUN",1,0) +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; 5/23/12 5:40pm +"RTN","C0QIMMUN",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QIMMUN",3,0) + ; ^XTMP("C0QIMMUN",0)=purge date^create date +"RTN","C0QIMMUN",4,0) + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value +"RTN","C0QIMMUN",5,0) + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed +"RTN","C0QIMMUN",6,0) + ; Changed by VEN/SMH to add timeout to the locks on May 23 2012 +"RTN","C0QIMMUN",7,0) +FIND ; Find the next set of immunization orders +"RTN","C0QIMMUN",8,0) + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR +"RTN","C0QIMMUN",9,0) + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) +"RTN","C0QIMMUN",10,0) + N C0QFAIL S C0QFAIL=0 ; Lock fail flag +"RTN","C0QIMMUN",11,0) + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR +"RTN","C0QIMMUN",12,0) + S DIR("A")="Do you want to reset that value" +"RTN","C0QIMMUN",13,0) + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 +"RTN","C0QIMMUN",14,0) + . S DIR("A")="What value shall be used?" +"RTN","C0QIMMUN",15,0) + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR +"RTN","C0QIMMUN",16,0) + . W:Y'>0 !,"We'll skip reseting it then." +"RTN","C0QIMMUN",17,0) + . D:Y>0 +"RTN","C0QIMMUN",18,0) + . . S LASTORDR=+Y +"RTN","C0QIMMUN",19,0) + . . L +^XTMP("C0QIMMUN"):0 +"RTN","C0QIMMUN",20,0) + . . E S C0QFAIL=1 QUIT +"RTN","C0QIMMUN",21,0) + . . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",22,0) + . . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",23,0) + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",24,0) + . . L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",25,0) + . . Q +"RTN","C0QIMMUN",26,0) + . Q +"RTN","C0QIMMUN",27,0) + I C0QFAIL W !,"Failed to acquire lock, exiting..." QUIT +"RTN","C0QIMMUN",28,0) + S DIR("A")="Ready to prep more immunization orders for HL7 messages" +"RTN","C0QIMMUN",29,0) + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 +"RTN","C0QIMMUN",30,0) + L +^XTMP("C0QIMMUN"):0 +"RTN","C0QIMMUN",31,0) + E W !,"Failed to acquire lock; exiting..." QUIT +"RTN","C0QIMMUN",32,0) + I '$D(^XTMP("C0QIMMUN",0)) D +"RTN","C0QIMMUN",33,0) + . S X1=DT,X2=365 D C^%DTC +"RTN","C0QIMMUN",34,0) + . S ^XTMP("C0QIMMUN",0)=X_U_DT +"RTN","C0QIMMUN",35,0) + . S ^XTMP("C0QIMMUN","LASTORDR")=0 +"RTN","C0QIMMUN",36,0) + S ORDER=^XTMP("C0QIMMUN","LASTORDR") +"RTN","C0QIMMUN",37,0) + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D +"RTN","C0QIMMUN",38,0) + . S LASTORDR=ORDER +"RTN","C0QIMMUN",39,0) + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE +"RTN","C0QIMMUN",40,0) + . Q +"RTN","C0QIMMUN",41,0) + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR +"RTN","C0QIMMUN",42,0) + W !,"Done",!,"Last Order processed: ",LASTORDR,! +"RTN","C0QIMMUN",43,0) + L -^XTMP("C0QIMMUN") +"RTN","C0QIMMUN",44,0) + Q +"RTN","C0QIMMUN",45,0) +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP +"RTN","C0QIMMUN",46,0) + S NOW=$P(^OR(100,ORDER,0),U,7) +"RTN","C0QIMMUN",47,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) +"RTN","C0QIMMUN",48,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) +"RTN","C0QIMMUN",49,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) +"RTN","C0QIMMUN",50,0) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D +"RTN","C0QIMMUN",51,0) + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) +"RTN","C0QIMMUN",52,0) + . Q:'$L(SUBSC) +"RTN","C0QIMMUN",53,0) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) +"RTN","C0QIMMUN",54,0) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y +"RTN","C0QIMMUN",55,0) + . Q +"RTN","C0QIMMUN",56,0) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) +"RTN","C0QIMMUN",57,0) + Q +"RTN","C0QINIT") +0^14^B5217090 +"RTN","C0QINIT",1,0) +C0QINIT ; GPL - Quality Reporting Initialization Routines ; 7/31/12 8:16am +"RTN","C0QINIT",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QINIT",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QINIT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QINIT",5,0) + ; +"RTN","C0QINIT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QINIT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QINIT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QINIT",9,0) + ;(at your option) any later version. +"RTN","C0QINIT",10,0) + ; +"RTN","C0QINIT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QINIT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QINIT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QINIT",14,0) + ;GNU General Public License for more details. +"RTN","C0QINIT",15,0) + ; +"RTN","C0QINIT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QINIT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QINIT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QINIT",19,0) + ; +"RTN","C0QINIT",20,0) + Q +"RTN","C0QINIT",21,0) + ; +"RTN","C0QINIT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QINIT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QINIT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QINIT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QINIT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QINIT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QINIT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QINIT",29,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QINIT",30,0) + ; +"RTN","C0QINIT",31,0) +COPYQ ; INTERACTIVE COPY OF A QUALITY MEASURE +"RTN","C0QINIT",32,0) + N FN +"RTN","C0QINIT",33,0) + S FN=$$C0QQFN +"RTN","C0QINIT",34,0) + S DIC=FN,DIC(0)="AEMQ" D ^DIC +"RTN","C0QINIT",35,0) + I Y<1 Q ; EXIT +"RTN","C0QINIT",36,0) + S C0QIEN=$P(Y,U) +"RTN","C0QINIT",37,0) + ;N G,ZWP +"RTN","C0QINIT",38,0) + D GETS^DIQ(FN,C0QIEN,"**","EI","G") +"RTN","C0QINIT",39,0) + M ZWP=G(FN,C0QIEN_",",.61) +"RTN","C0QINIT",40,0) + ; GET READY TO CREATE THE NEW COPY +"RTN","C0QINIT",41,0) + ; FIRST FIND OUT THE NEW NAME +"RTN","C0QINIT",42,0) + N QNAME +"RTN","C0QINIT",43,0) + S QNAME=G(FN,C0QIEN_",",.01,"E") +"RTN","C0QINIT",44,0) + S DIR(0)="F^3:240" +"RTN","C0QINIT",45,0) + S DIR("A")="New Measure Name" +"RTN","C0QINIT",46,0) + S DIR("B")=QNAME +"RTN","C0QINIT",47,0) + D ^DIR +"RTN","C0QINIT",48,0) + I Y="^" Q ; +"RTN","C0QINIT",49,0) + N QNEW +"RTN","C0QINIT",50,0) + S QNEW=Y +"RTN","C0QINIT",51,0) + K C0QFDA +"RTN","C0QINIT",52,0) + N ZI S ZI="" +"RTN","C0QINIT",53,0) + F S ZI=$O(G(FN,C0QIEN_",",ZI)) Q:ZI="" D ; FOR EACH FIELD +"RTN","C0QINIT",54,0) + . I ZI=.01 D Q ; THE NEW NAME +"RTN","C0QINIT",55,0) + . . S C0QFDA(FN,"+1,",.01)=QNEW ; NEW MEASURE NAME +"RTN","C0QINIT",56,0) + . I ZI=3.1 Q ; SKIP THE COMPUTED FIELD +"RTN","C0QINIT",57,0) + . S C0QFDA(FN,"+1,",ZI)=G(FN,C0QIEN_",",ZI,"I") +"RTN","C0QINIT",58,0) + D UPDIE ; CREATE THE NEW RECORD +"RTN","C0QINIT",59,0) + S DIE=$$C0QQFN ; GET READY TO EDIT IT +"RTN","C0QINIT",60,0) + D EN^DIB ; EDIT THE NEW RECORD +"RTN","C0QINIT",61,0) + Q +"RTN","C0QINIT",62,0) + ; +"RTN","C0QINIT",63,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QINIT",64,0) + K ZERR +"RTN","C0QINIT",65,0) + D CLEAN^DILF +"RTN","C0QINIT",66,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QINIT",67,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QINIT",68,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, +"RTN","C0QINIT",69,0) + ; INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QINIT",70,0) + K C0QFDA +"RTN","C0QINIT",71,0) + Q +"RTN","C0QINIT",72,0) + ; +"RTN","C0QKIDS") +0^^B70390912 +"RTN","C0QKIDS",1,0) +C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/31/12 3:36pm +"RTN","C0QKIDS",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QKIDS",3,0) + ; Licensed under package license. See Documentation. +"RTN","C0QKIDS",4,0) + ; +"RTN","C0QKIDS",5,0) + ; PEPs: TRAN, POST, PRE +"RTN","C0QKIDS",6,0) + ; +"RTN","C0QKIDS",7,0) +TRAN ; Unified Transport; PEP +"RTN","C0QKIDS",8,0) + ; D TRAN301 ; looks like I won't send that file over +"RTN","C0QKIDS",9,0) + D TRAN201 ; C0Q MEASUREMENT +"RTN","C0QKIDS",10,0) + D TRAN101 ; C0Q QUALITY MEASURE +"RTN","C0QKIDS",11,0) + QUIT +"RTN","C0QKIDS",12,0) +POST ; Unified Post; PEP +"RTN","C0QKIDS",13,0) + ; D POST301 ; looks like I won't send that file over +"RTN","C0QKIDS",14,0) + ; D POST101 ; C0Q QUALITY MEASURE ; As of T11, I won't do that anymore. --> +"RTN","C0QKIDS",15,0) + ; I discovered that it will do it on destination systems that are set-up. +"RTN","C0QKIDS",16,0) + ; So bad bad bad idea for me to do it in a post-init. +"RTN","C0QKIDS",17,0) + ; ... I wrote TRAN101 to do the function of POST101. +"RTN","C0QKIDS",18,0) + D POST201 ; C0Q MEASUREMENT +"RTN","C0QKIDS",19,0) + QUIT +"RTN","C0QKIDS",20,0) + ; +"RTN","C0QKIDS",21,0) +PRE ; Unified Pre; PEP +"RTN","C0QKIDS",22,0) + D PRE101 +"RTN","C0QKIDS",23,0) + QUIT +"RTN","C0QKIDS",24,0) + ; +"RTN","C0QKIDS",25,0) + ; << >> +"RTN","C0QKIDS",26,0) + ; +"RTN","C0QKIDS",27,0) +TRAN101 ; Remove Untransportable pointers in C0Q QUALITY MEASURE; Private EP +"RTN","C0QKIDS",28,0) + ; NB: I am reaching into KIDS's data here. This may not work for future versions +"RTN","C0QKIDS",29,0) + ; of KIDS. However, I am exporting this only; once exported, it should work in +"RTN","C0QKIDS",30,0) + ; any version of KIDS. +"RTN","C0QKIDS",31,0) + N XPDIEN S XPDIEN=$QS(XPDGREF,2) ; Get IEN of KIDS Transport Global +"RTN","C0QKIDS",32,0) + N X S X=$NA(^XTMP("XPDT",XPDIEN,"DATA",1130580001.101)) ; KIDS transports our data here +"RTN","C0QKIDS",33,0) + N IEN S IEN=0 ; Looper +"RTN","C0QKIDS",34,0) + F S IEN=$O(@X@(IEN)) Q:'IEN D ; For each IEN, remove the following: +"RTN","C0QKIDS",35,0) + . S $P(@X@(IEN,0),U,2)="" ; Numerator Patient List +"RTN","C0QKIDS",36,0) + . S $P(@X@(IEN,0),U,3)="" ; Denominator Patient List +"RTN","C0QKIDS",37,0) + . S $P(@X@(IEN,7),U,4)="" ; Negative Numerator List +"RTN","C0QKIDS",38,0) + . S $P(@X@(IEN,7),U,2)="" ; Alternate Numerator List +"RTN","C0QKIDS",39,0) + . S $P(@X@(IEN,7),U,3)="" ; Alternate Denominator List +"RTN","C0QKIDS",40,0) + . S $P(@X@(IEN,7),U,5)="" ; Alternate Negative Numerator List +"RTN","C0QKIDS",41,0) + QUIT +"RTN","C0QKIDS",42,0) + ; +"RTN","C0QKIDS",43,0) +TRAN301 ; Grab FDA for entire file C0Q PATIENT LIST and store in Transport Global; Private EP +"RTN","C0QKIDS",44,0) + ; Not used. Dead code. +"RTN","C0QKIDS",45,0) + N C0QIEN S C0QIEN=0 ; IEN walker +"RTN","C0QKIDS",46,0) + N C0QREF1 S C0QREF1=$NAME(^TMP("C0QOLD",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",47,0) + N C0QREF2 S C0QREF2=$NAME(^TMP("C0QNEW",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",48,0) + K @C0QREF1,@C0QREF2 ; Kill that +"RTN","C0QKIDS",49,0) + F S C0QIEN=$O(^C0Q(301,C0QIEN)) Q:'+C0QIEN D +"RTN","C0QKIDS",50,0) + . D GETS^DIQ(1130580001.301,C0QIEN_",","*","",C0QREF1) ; Load FDA's in there +"RTN","C0QKIDS",51,0) + . M @C0QREF2@(1130580001.301,"?+"_C0QIEN_",")=@C0QREF1@(1130580001.301,C0QIEN_",") ; Change IENs to ?+ IENs +"RTN","C0QKIDS",52,0) + M @XPDGREF@("C0Q","1130580001.301")=@C0QREF2 ; Put in Transport Global +"RTN","C0QKIDS",53,0) + K @C0QREF1,@C0QREF2 ; Remove +"RTN","C0QKIDS",54,0) + QUIT +"RTN","C0QKIDS",55,0) + ; +"RTN","C0QKIDS",56,0) +TRAN201 ; Grab FDA for 201 C0Q MEASUREMENTS selected fields; Private EP +"RTN","C0QKIDS",57,0) + N C0QIEN S C0QIEN=0 ; IEN walker +"RTN","C0QKIDS",58,0) + N C0QREF1 S C0QREF1=$NAME(^TMP("C0QOLD",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",59,0) + N C0QREF2 S C0QREF2=$NAME(^TMP("C0QNEW",$J)) ; Temporary Global Reference +"RTN","C0QKIDS",60,0) + K @C0QREF1,@C0QREF2 ; Kill that +"RTN","C0QKIDS",61,0) + ; +"RTN","C0QKIDS",62,0) + ; We need C0QCOUNT so that it wouldn't reuse the numbers, b/c updater wants numbers for every different item +"RTN","C0QKIDS",63,0) + N C0QCOUNT S C0QCOUNT=$O(^C0Q(201," "),-1) ; Counter for SubIENs for destination array; init at highest IEN to prevent dups +"RTN","C0QKIDS",64,0) + F S C0QIEN=$O(^C0Q(201,C0QIEN)) Q:'+C0QIEN D ; Walk IENs +"RTN","C0QKIDS",65,0) + . W "Exporting "_C0QIEN,! +"RTN","C0QKIDS",66,0) + . ; Fields SET NAME, BEGIN DATE, END DATE, LOCKED, USE ALL MEASURES, MU YEAR KEY +"RTN","C0QKIDS",67,0) + . D GETS^DIQ(1130580001.201,C0QIEN_",",".01;.02;.03;.05;.2;.3","",C0QREF1) +"RTN","C0QKIDS",68,0) + . M @C0QREF2@(1130580001.201,"?+"_C0QIEN_",")=@C0QREF1@(1130580001.201,C0QIEN_",") ; Change IENs to ?+ IENs +"RTN","C0QKIDS",69,0) + . N C0QIEN2 S C0QIEN2=0 ; Subfile walker +"RTN","C0QKIDS",70,0) + . F S C0QIEN2=$O(^C0Q(201,C0QIEN,5,C0QIEN2)) Q:'+C0QIEN2 D ; MEASURE subfile +"RTN","C0QKIDS",71,0) + . . W "Exporting IENS "_C0QIEN2_","_C0QIEN_",",! +"RTN","C0QKIDS",72,0) + . . D GETS^DIQ(1130580001.2011,C0QIEN2_","_C0QIEN_",",".01","",C0QREF1) ; MEASURE (#.01) +"RTN","C0QKIDS",73,0) + . . S C0QCOUNT=C0QCOUNT+1 ; Increment the counter for SubIEN (can't reuse) +"RTN","C0QKIDS",74,0) + . . M @C0QREF2@(1130580001.2011,"?+"_C0QCOUNT_","_"?+"_C0QIEN_",")=@C0QREF1@(1130580001.2011,C0QIEN2_","_C0QIEN_",") ; as above +"RTN","C0QKIDS",75,0) + ; +"RTN","C0QKIDS",76,0) + M @XPDGREF@("C0Q","1130580001.201")=@C0QREF2 ; Put in transport global +"RTN","C0QKIDS",77,0) + K @C0QREF1,@C0QREF2 ; Remove temp +"RTN","C0QKIDS",78,0) + QUIT +"RTN","C0QKIDS",79,0) + ; +"RTN","C0QKIDS",80,0) +POST201 ; File FDA for 201; Private EP +"RTN","C0QKIDS",81,0) + ; +"RTN","C0QKIDS",82,0) + ; Clean-up data if it already exists! +"RTN","C0QKIDS",83,0) + ; ZWRITE ^C0Q(201,:,5,:,0) +"RTN","C0QKIDS",84,0) + ; ^C0Q(201,1,5,599,0)=50 +"RTN","C0QKIDS",85,0) + ; ^C0Q(201,1,5,600,0)=4 +"RTN","C0QKIDS",86,0) + ; ^C0Q(201,1,5,601,0)=39 +"RTN","C0QKIDS",87,0) + ; ^C0Q(201,1,5,602,0)=6 +"RTN","C0QKIDS",88,0) + ; ^C0Q(201,1,5,603,0)=7 +"RTN","C0QKIDS",89,0) + ; ^C0Q(201,1,5,604,0)=48 +"RTN","C0QKIDS",90,0) + ; ^C0Q(201,1,5,605,0)=46 +"RTN","C0QKIDS",91,0) + ; +"RTN","C0QKIDS",92,0) + IF $O(^C0Q(201,0)) DO QUIT ; Quit if data is already there. +"RTN","C0QKIDS",93,0) + . D MES^XPDUTL("Data exists in file C0Q MEASUREMENTS... Not adding new data") +"RTN","C0QKIDS",94,0) + . D MES^XPDUTL("Cleaning up broken pointers in C0Q MEASUREMENTS from deleted data in C0Q QUALITY MEASURE") +"RTN","C0QKIDS",95,0) + . ; This is very hairy code. Run through the 5 multiple in C0Q MEASUREMENT +"RTN","C0QKIDS",96,0) + . ; Grab the IEN in the .01, check if it exists; if not, kill. +"RTN","C0QKIDS",97,0) + . N DA,DIK ; DIK Variables; as well as our looper variables +"RTN","C0QKIDS",98,0) + . S (DA,DA(1))=0 ; Initial looper values +"RTN","C0QKIDS",99,0) + . F S DA(1)=$O(^C0Q(201,DA(1))) Q:'DA(1) D ; Loop through entries +"RTN","C0QKIDS",100,0) + . . D MES^XPDUTL("...Processing entry "_$P(^C0Q(201,DA(1),0),U)) ; msg +"RTN","C0QKIDS",101,0) + . . S DIK="^C0Q(201,"_DA(1)_",5," ; deletion root for the next loop +"RTN","C0QKIDS",102,0) + . . F S DA=$O(^C0Q(201,DA(1),5,DA)) Q:'DA D ; For each Measure +"RTN","C0QKIDS",103,0) + . . . N IEN S IEN=+^C0Q(201,DA(1),5,DA,0) ; Get IEN +"RTN","C0QKIDS",104,0) + . . . I IEN,'$D(^C0Q(101,IEN)) D ; If IEN is numeric, IEN exists in dest file +"RTN","C0QKIDS",105,0) + . . . . D MES^XPDUTL("......Deleting broken pointer "_IEN) ; msg +"RTN","C0QKIDS",106,0) + . . . . D ^DIK ; delete +"RTN","C0QKIDS",107,0) + ; +"RTN","C0QKIDS",108,0) + ; If new install, add data +"RTN","C0QKIDS",109,0) + ; +"RTN","C0QKIDS",110,0) + D MES^XPDUTL("Adding data to C0Q MEASUREMENTS") +"RTN","C0QKIDS",111,0) + N C0QFDA S C0QFDA=$NAME(@XPDGREF@("C0Q","1130580001.201")) ; Grab FDA from Transport Global +"RTN","C0QKIDS",112,0) + N C0QERR ; Error array for filer +"RTN","C0QKIDS",113,0) + D UPDATE^DIE("E",C0QFDA,"","C0QERR") ; File all +"RTN","C0QKIDS",114,0) + I $D(C0QERR) D ; if there's an error, print it out +"RTN","C0QKIDS",115,0) + . D MES^XPDUTL("Couldn't add data into C0Q MEASUREMENTS") +"RTN","C0QKIDS",116,0) + . S C0QERR=$Q(C0QERR) +"RTN","C0QKIDS",117,0) + . F S C0QERR=$Q(@C0QERR) Q:C0QERR="" D MES^XPDUTL(C0QERR_": "_@C0QERR) +"RTN","C0QKIDS",118,0) + QUIT +"RTN","C0QKIDS",119,0) + ; +"RTN","C0QKIDS",120,0) +POST301 ; Get FDA from Transport Global and install in destination system for C0Q PATIENT LIST; Private EP +"RTN","C0QKIDS",121,0) + ; Not used. Dead code. +"RTN","C0QKIDS",122,0) + N C0QFDA S C0QFDA=$NAME(@XPDGREF@("C0Q","1130580001.301")) ; FDA array name is the global reference +"RTN","C0QKIDS",123,0) + N C0QERR ; Error +"RTN","C0QKIDS",124,0) + D UPDATE^DIE("E",C0QFDA,"","C0QERR") ; File all +"RTN","C0QKIDS",125,0) + I $D(C0QERR) D ; if there's an error, print it out +"RTN","C0QKIDS",126,0) + . D MES^XPDUTL("Couldn't add data into C0Q PATIENT LIST file") +"RTN","C0QKIDS",127,0) + . S C0QERR=$Q(C0QERR) +"RTN","C0QKIDS",128,0) + . F S C0QERR=$Q(@C0QERR) Q:C0QERR="" D MES^XPDUTL(C0QERR_": "_@C0QERR) +"RTN","C0QKIDS",129,0) + QUIT +"RTN","C0QKIDS",130,0) + ; +"RTN","C0QKIDS",131,0) +PRE101 ; Clean existing data (from an earlier installation) from measures that are now merged to other measures +"RTN","C0QKIDS",132,0) + ; in C0Q QUALITY MEASURE in destination systems; Private EP +"RTN","C0QKIDS",133,0) + ; +"RTN","C0QKIDS",134,0) + ; Quit if C0Q Quality Measures isn't on the system. +"RTN","C0QKIDS",135,0) + Q:'$D(^C0Q(101)) +"RTN","C0QKIDS",136,0) + ; +"RTN","C0QKIDS",137,0) + D MES^XPDUTL("Removing subsumed entries in C0Q QUALITY MEASURE") +"RTN","C0QKIDS",138,0) + ; +"RTN","C0QKIDS",139,0) + ; .01 field values to for records to remove +"RTN","C0QKIDS",140,0) + N C0QLIST +"RTN","C0QKIDS",141,0) + S C0QLIST("TEST M0028A")="" +"RTN","C0QKIDS",142,0) + S C0QLIST("MU EP 0028B")="" +"RTN","C0QKIDS",143,0) + S C0QLIST("M0013")="" +"RTN","C0QKIDS",144,0) + S C0QLIST("M0024")="" +"RTN","C0QKIDS",145,0) + S C0QLIST("M1")="" +"RTN","C0QKIDS",146,0) + S C0QLIST("M3")="" +"RTN","C0QKIDS",147,0) + S C0QLIST("M2")="" +"RTN","C0QKIDS",148,0) + S C0QLIST("M0028")="" +"RTN","C0QKIDS",149,0) + S C0QLIST("M111")="" +"RTN","C0QKIDS",150,0) + S C0QLIST("M112")="" +"RTN","C0QKIDS",151,0) + S C0QLIST("M113")="" +"RTN","C0QKIDS",152,0) + S C0QLIST("M128")="" +"RTN","C0QKIDS",153,0) + S C0QLIST("M5")="" +"RTN","C0QKIDS",154,0) + S C0QLIST("M7")="" +"RTN","C0QKIDS",155,0) + S C0QLIST("M0022")="" +"RTN","C0QKIDS",156,0) + S C0QLIST("12")="" +"RTN","C0QKIDS",157,0) + S C0QLIST("M0038")="" +"RTN","C0QKIDS",158,0) + S C0QLIST("M110")="" +"RTN","C0QKIDS",159,0) + ; +"RTN","C0QKIDS",160,0) + ; Root for ^DIK +"RTN","C0QKIDS",161,0) + N DIK S DIK="^C0Q(101," +"RTN","C0QKIDS",162,0) + ; +"RTN","C0QKIDS",163,0) + ; Loop through list, find IEN for each one, kill off +"RTN","C0QKIDS",164,0) + N C0QITEM S C0QITEM="" ; Item +"RTN","C0QKIDS",165,0) + F S C0QITEM=$O(C0QLIST(C0QITEM)) Q:C0QITEM="" D ; Loop +"RTN","C0QKIDS",166,0) + . Q:'$DATA(^C0Q(101,"B",C0QITEM)) ; Quit if not present. +"RTN","C0QKIDS",167,0) + . N DA S DA=$O(^C0Q(101,"B",C0QITEM,"")) ; IEN +"RTN","C0QKIDS",168,0) + . D MES^XPDUTL("...Removing "_C0QITEM) ; Message to user +"RTN","C0QKIDS",169,0) + . D ^DIK ; Delete +"RTN","C0QKIDS",170,0) + ; +"RTN","C0QKIDS",171,0) +REN ; Rename a bunch of entries +"RTN","C0QKIDS",172,0) + ; ("OLD NAME")="NEW NAME" +"RTN","C0QKIDS",173,0) + D MES^XPDUTL("Renaming Old entries in C0Q QUALITY MEASURE") +"RTN","C0QKIDS",174,0) + ; +"RTN","C0QKIDS",175,0) + N C0QLIST +"RTN","C0QKIDS",176,0) + S C0QLIST("NQF0038 NUM1 DPT")="MU EP NQF 0038 NUM1 DPT" +"RTN","C0QKIDS",177,0) + S C0QLIST("NQF0038 NUM10")="MU EP NQF 0038 NUM10 FLU" +"RTN","C0QKIDS",178,0) + S C0QLIST("NQF0038 NUM11 COMBO5")="MU EP NQF 0038 NUM11 COMBO5" +"RTN","C0QKIDS",179,0) + S C0QLIST("NQF0038 NUM12 COMBO6")="MU EP NQF 0038 NUM12 COMBO6" +"RTN","C0QKIDS",180,0) + S C0QLIST("NQF0038 NUM2 IPV")="MU EP NQF 0038 NUM2 IPV" +"RTN","C0QKIDS",181,0) + S C0QLIST("NQF0038 NUM3 MMR")="MU EP NQF 0038 NUM3 MMR" +"RTN","C0QKIDS",182,0) + S C0QLIST("NQF0038 NUM4 HiB")="MU EP NQF 0038 NUM4 HiB" +"RTN","C0QKIDS",183,0) + S C0QLIST("NQF0038 NUM5 HEP B")="MU EP NQF 0038 NUM5 HEP B" +"RTN","C0QKIDS",184,0) + S C0QLIST("NQF0038 NUM6 VZV")="MU EP NQF 0038 NUM6 VZV" +"RTN","C0QKIDS",185,0) + S C0QLIST("NQF0038 NUM7 PCV")="MU EP NQF 0038 NUM7 PCV" +"RTN","C0QKIDS",186,0) + S C0QLIST("NQF0038 NUM8 HEP A")="MU EP NQF 0038 NUM8 HEP A" +"RTN","C0QKIDS",187,0) + S C0QLIST("NQF0038 NUM9")="MU EP NQF 0038 NUM9 RV" +"RTN","C0QKIDS",188,0) + S C0QLIST("M124")="PQRI MEASURE 124" +"RTN","C0QKIDS",189,0) + S C0QLIST("M173")="PQRI MEASURE 173" +"RTN","C0QKIDS",190,0) + S C0QLIST("M39")="PQRI MEASURE 39" +"RTN","C0QKIDS",191,0) + S C0QLIST("M47")="PQRI MEASURE 47" +"RTN","C0QKIDS",192,0) + S C0QLIST("M48")="PQRI MEASURE 48" +"RTN","C0QKIDS",193,0) + ; +"RTN","C0QKIDS",194,0) + N C0QITEM S C0QITEM="" ; Item +"RTN","C0QKIDS",195,0) + N C0QFDA ; FDA +"RTN","C0QKIDS",196,0) + F S C0QITEM=$O(C0QLIST(C0QITEM)) Q:C0QITEM="" D ; Loop through +"RTN","C0QKIDS",197,0) + . N IEN S IEN=$O(^C0Q(101,"B",C0QITEM,"")) ; Get IEN from File using old name +"RTN","C0QKIDS",198,0) + . I IEN S C0QFDA(1130580001.101,IEN_",",.01)=C0QLIST(C0QITEM) ; If found, put new name in FDA for this IEN +"RTN","C0QKIDS",199,0) + . I IEN D MES^XPDUTL("...Renaming "_C0QITEM_" to "_C0QLIST(C0QITEM)) ; Print message to user +"RTN","C0QKIDS",200,0) + ; +"RTN","C0QKIDS",201,0) + N C0QERR ; Error for FILE^DIE +"RTN","C0QKIDS",202,0) + I $D(C0QFDA) D FILE^DIE("E",$NA(C0QFDA),$NA(C0QERR)) ; File if FDA has contents +"RTN","C0QKIDS",203,0) + E D MES^XPDUTL("No entries to rename") ; If nothing, tell user so +"RTN","C0QKIDS",204,0) + ; +"RTN","C0QKIDS",205,0) + D:$D(C0QERR) ; If Error, print it +"RTN","C0QKIDS",206,0) + . D MES^XPDUTL("Error Filing Data. FILE^DIE reported:") +"RTN","C0QKIDS",207,0) + . N REF S REF=$NA(C0QERR) ; $Q Reference +"RTN","C0QKIDS",208,0) + . F S REF=$Q(@REF) Q:REF="" D MES^XPDUTL(REF_"="_@REF) ; Loop and Print +"RTN","C0QKIDS",209,0) + ; +"RTN","C0QKIDS",210,0) + QUIT +"RTN","C0QMAIN") +0^1^B116855264 +"RTN","C0QMAIN",1,0) +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 +"RTN","C0QMAIN",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"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) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"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) + D UPDATE^C0QUPDT(.G,MSIEN) +"RTN","C0QMAIN",142,0) + Q +"RTN","C0QMAIN",143,0) + ; +"RTN","C0QMAIN",144,0) +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC +"RTN","C0QMAIN",145,0) + ; +"RTN","C0QMAIN",146,0) + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC +"RTN","C0QMAIN",147,0) + I Y<1 Q ; EXIT +"RTN","C0QMAIN",148,0) + N MSIEN S MSIEN=+Y +"RTN","C0QMAIN",149,0) + ; changed by gpl to call the new UPDATE^C0QUPDT routine instead +"RTN","C0QMAIN",150,0) + D UPDATE^C0QUPDT(.G,MSIEN) +"RTN","C0QMAIN",151,0) + Q +"RTN","C0QMAIN",152,0) + ; end gpl change +"RTN","C0QMAIN",153,0) + S C0QSUM=1 +"RTN","C0QMAIN",154,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",155,0) + ; iterate over the measures +"RTN","C0QMAIN",156,0) + S MEASURE=0 +"RTN","C0QMAIN",157,0) + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D +"RTN","C0QMAIN",158,0) + . S NUMER=0,DENOM=0 +"RTN","C0QMAIN",159,0) + . ; now count the numerator patients +"RTN","C0QMAIN",160,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 +"RTN","C0QMAIN",161,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER +"RTN","C0QMAIN",162,0) + . ; and count the denominator patients +"RTN","C0QMAIN",163,0) + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 +"RTN","C0QMAIN",164,0) + . Q:DENOM=0 +"RTN","C0QMAIN",165,0) + . ; and stuff the values +"RTN","C0QMAIN",166,0) + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) +"RTN","C0QMAIN",167,0) + . Q +"RTN","C0QMAIN",168,0) + Q +"RTN","C0QMAIN",169,0) + ; +"RTN","C0QMAIN",170,0) +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT +"RTN","C0QMAIN",171,0) + ; MSET IS THE NAME OR IEN OF THE MEASURE SET +"RTN","C0QMAIN",172,0) + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE +"RTN","C0QMAIN",173,0) + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" +"RTN","C0QMAIN",174,0) + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET +"RTN","C0QMAIN",175,0) + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING +"RTN","C0QMAIN",176,0) + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED +"RTN","C0QMAIN",177,0) + ;W !,"LOOKING FOR MEASURE SET ",MSET,! +"RTN","C0QMAIN",178,0) + N ZI S ZI="" +"RTN","C0QMAIN",179,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QMAIN",180,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES +"RTN","C0QMAIN",181,0) + D DELIST("C0QM") +"RTN","C0QMAIN",182,0) + N ZII S ZII=0 +"RTN","C0QMAIN",183,0) + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE +"RTN","C0QMAIN",184,0) + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE +"RTN","C0QMAIN",185,0) + K C0QM +"RTN","C0QMAIN",186,0) + D CLEAN^DILF +"RTN","C0QMAIN",187,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN +"RTN","C0QMAIN",188,0) + D DELIST("C0QM") +"RTN","C0QMAIN",189,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QMAIN",190,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QMAIN",191,0) + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! +"RTN","C0QMAIN",192,0) + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS +"RTN","C0QMAIN",193,0) + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME +"RTN","C0QMAIN",194,0) + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS +"RTN","C0QMAIN",195,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",196,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",197,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QMAIN",198,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QMAIN",199,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",200,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QMAIN",201,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QMAIN",202,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QMAIN",203,0) + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE +"RTN","C0QMAIN",204,0) + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! +"RTN","C0QMAIN",205,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QMAIN",206,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",207,0) + . N C0QUFN ; FILE NUMBER TO USE +"RTN","C0QMAIN",208,0) + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",209,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",210,0) + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",211,0) + . ;D DELIST("G") ; +"RTN","C0QMAIN",212,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",213,0) + . K C0QNUMP +"RTN","C0QMAIN",214,0) + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT +"RTN","C0QMAIN",215,0) + . N ZJ S ZJ="" +"RTN","C0QMAIN",216,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",217,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",218,0) + . . S C0QNUMP("N",ZJ,ZDFN)="" +"RTN","C0QMAIN",219,0) + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",220,0) + . D ADDPATS(MSET,ZII,"C0QNUMP") +"RTN","C0QMAIN",221,0) + . ; NEXT PROCESS THE DENOMINATOR +"RTN","C0QMAIN",222,0) + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! +"RTN","C0QMAIN",223,0) + . K ^TMP("DILIST",$J) +"RTN","C0QMAIN",224,0) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() +"RTN","C0QMAIN",225,0) + . E S C0QUFN=$$RLSTPFN +"RTN","C0QMAIN",226,0) + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS +"RTN","C0QMAIN",227,0) + . ;D DELIST("G") +"RTN","C0QMAIN",228,0) + . ;I $D(G) ZWR G +"RTN","C0QMAIN",229,0) + . ;S ZJ="" +"RTN","C0QMAIN",230,0) + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT +"RTN","C0QMAIN",231,0) + . K C0QDEMP +"RTN","C0QMAIN",232,0) + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; +"RTN","C0QMAIN",233,0) + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) +"RTN","C0QMAIN",234,0) + . . S C0QDEMP("D",ZJ,ZDFN)="" +"RTN","C0QMAIN",235,0) + . D ADDPATS(MSET,ZII,"C0QDEMP") +"RTN","C0QMAIN",236,0) + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES +"RTN","C0QMAIN",237,0) + . ;E D ; +"RTN","C0QMAIN",238,0) + . ;. W "NUM CNT: ",NCNT +"RTN","C0QMAIN",239,0) + . ;. W " DEN CNT: ",DCNT,! +"RTN","C0QMAIN",240,0) + Q +"RTN","C0QMAIN",241,0) + ; +"RTN","C0QMAIN",242,0) +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE +"RTN","C0QMAIN",243,0) + ; MEASURE MEAS IN MEASURE SET IEN MSET +"RTN","C0QMAIN",244,0) + ; +"RTN","C0QMAIN",245,0) + N C0QFDA,MFN,MEASURE +"RTN","C0QMAIN",246,0) + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE +"RTN","C0QMAIN",247,0) + D CLEAN^DILF +"RTN","C0QMAIN",248,0) + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER +"RTN","C0QMAIN",249,0) + D CLEAN^DILF +"RTN","C0QMAIN",250,0) + K ZERR +"RTN","C0QMAIN",251,0) + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMAIN",252,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMAIN",253,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",254,0) + ;. W "ERROR",! +"RTN","C0QMAIN",255,0) + ;. ZWR ZERR +"RTN","C0QMAIN",256,0) + ;. B +"RTN","C0QMAIN",257,0) + K C0QFDA +"RTN","C0QMAIN",258,0) + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE +"RTN","C0QMAIN",259,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMAIN",260,0) + Q +"RTN","C0QMAIN",261,0) + ; +"RTN","C0QMAIN",262,0) +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",263,0) + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS +"RTN","C0QMAIN",264,0) + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" +"RTN","C0QMAIN",265,0) + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N +"RTN","C0QMAIN",266,0) + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN +"RTN","C0QMAIN",267,0) + N C0QI,C0QJ +"RTN","C0QMAIN",268,0) + N C0QFDA +"RTN","C0QMAIN",269,0) + S C0QI="" +"RTN","C0QMAIN",270,0) + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",271,0) + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) +"RTN","C0QMAIN",272,0) + ;W "ADDING NUMERATOR",! +"RTN","C0QMAIN",273,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",274,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",275,0) + K C0QFDA +"RTN","C0QMAIN",276,0) + S C0QI="" +"RTN","C0QMAIN",277,0) + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT +"RTN","C0QMAIN",278,0) + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) +"RTN","C0QMAIN",279,0) + ;W "ADDING DENOMINATOR",! +"RTN","C0QMAIN",280,0) + ;I $D(C0QFDA) ZWR C0QFDA +"RTN","C0QMAIN",281,0) + I $D(C0QFDA) D UPDIE +"RTN","C0QMAIN",282,0) + Q +"RTN","C0QMAIN",283,0) + ; +"RTN","C0QMAIN",284,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QMAIN",285,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QMAIN",286,0) + N ZI,IV,EV,ZDI,ZIEN +"RTN","C0QMAIN",287,0) + S ZI="" +"RTN","C0QMAIN",288,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QMAIN",289,0) + K @RTN +"RTN","C0QMAIN",290,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QMAIN",291,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QMAIN",292,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QMAIN",293,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QMAIN",294,0) + . S @RTN@(ZIEN)=IV_"^"_EV +"RTN","C0QMAIN",295,0) + Q +"RTN","C0QMAIN",296,0) + ; +"RTN","C0QMAIN",297,0) +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR +"RTN","C0QMAIN",298,0) + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) +"RTN","C0QMAIN",299,0) + ; MSET IS THE IEN OF THE MEASURE SET +"RTN","C0QMAIN",300,0) + ; MEAS IS THE IEN OF THE MEASURE +"RTN","C0QMAIN",301,0) + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) +"RTN","C0QMAIN",302,0) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS +"RTN","C0QMAIN",303,0) + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS +"RTN","C0QMAIN",304,0) + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE +"RTN","C0QMAIN",305,0) + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS +"RTN","C0QMAIN",306,0) + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED +"RTN","C0QMAIN",307,0) + N C0QI,C0QJ +"RTN","C0QMAIN",308,0) + D LIST^DIC($$C0QMMFN,","_MSET_",") +"RTN","C0QMAIN",309,0) + K C0QFDA +"RTN","C0QMAIN",310,0) + ;ZWR ^TMP("DILIST",$J,*) +"RTN","C0QMAIN",311,0) + ;ZWR ^TMP("DIERR",$J,*) +"RTN","C0QMAIN",312,0) + ;D +"RTN","C0QMAIN",313,0) + Q +"RTN","C0QMAIN",314,0) + ; +"RTN","C0QMAIN",315,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMAIN",316,0) + K ZERR +"RTN","C0QMAIN",317,0) + D CLEAN^DILF +"RTN","C0QMAIN",318,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMAIN",319,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMAIN",320,0) + ;. W "ERROR",! +"RTN","C0QMAIN",321,0) + ;. ZWR ZERR +"RTN","C0QMAIN",322,0) + ;. B +"RTN","C0QMAIN",323,0) + K C0QFDA +"RTN","C0QMAIN",324,0) + Q +"RTN","C0QMAIN",325,0) + ; +"RTN","C0QMAIN",326,0) +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS +"RTN","C0QMAIN",327,0) + ;AND THEIR MEASURES +"RTN","C0QMAIN",328,0) + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",329,0) + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE +"RTN","C0QMAIN",330,0) + S ZTDESC="CREATE PATIENT LIST" +"RTN","C0QMAIN",331,0) + S ZTRTN="RUN^C0QMAIN" +"RTN","C0QMAIN",332,0) + S ZTSAVE("MSIEN")="" +"RTN","C0QMAIN",333,0) + S ZTIO="" +"RTN","C0QMAIN",334,0) + S ZTDTH=$$NOW^XLFDT +"RTN","C0QMAIN",335,0) + D ^%ZTLOAD +"RTN","C0QMAIN",336,0) + Q +"RTN","C0QMAIN",337,0) + ; +"RTN","C0QMAIN",338,0) +RUN ; DO THE REAL WORK +"RTN","C0QMAIN",339,0) + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") +"RTN","C0QMAIN",340,0) + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date +"RTN","C0QMAIN",341,0) + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date +"RTN","C0QMAIN",342,0) + S PATCREAT="N" ;Secure list - N=No +"RTN","C0QMAIN",343,0) + S PLISTPUG="N" ;Purge list after 5 years - N=No +"RTN","C0QMAIN",344,0) + S PXRMDPAT=0 ;Include deceased patients - N=No +"RTN","C0QMAIN",345,0) + S PXRMTPAT=0 ;Include test patients - N=No +"RTN","C0QMAIN",346,0) + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" +"RTN","C0QMAIN",347,0) + N ZI S ZI="" +"RTN","C0QMAIN",348,0) + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM +"RTN","C0QMAIN",349,0) + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE +"RTN","C0QMAIN",350,0) + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE +"RTN","C0QMAIN",351,0) + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST +"RTN","C0QMAIN",352,0) + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) +"RTN","C0QMAIN",353,0) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",354,0) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) +"RTN","C0QMAIN",355,0) + D C0QRPC(.G,MSIEN) +"RTN","C0QMAIN",356,0) + Q +"RTN","C0QMU12") +0^17^B256149135 +"RTN","C0QMU12",1,0) +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 7/31/12 12:34pm +"RTN","C0QMU12",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QMU12",3,0) + ; +"RTN","C0QMU12",4,0) + ;2011 Zach Gonzales - Licensed under the terms of the GNU +"RTN","C0QMU12",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QMU12",6,0) + ; +"RTN","C0QMU12",7,0) + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED +"RTN","C0QMU12",8,0) + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL +"RTN","C0QMU12",9,0) + ; +"RTN","C0QMU12",10,0) +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +"RTN","C0QMU12",11,0) +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +"RTN","C0QMU12",12,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QMU12",13,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QMU12",14,0) +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS +"RTN","C0QMU12",15,0) + ; ZARY IS PASSED BY NAME +"RTN","C0QMU12",16,0) + ; ZTYP IS "INP" OR "EP" +"RTN","C0QMU12",17,0) + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT +"RTN","C0QMU12",18,0) + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS +"RTN","C0QMU12",19,0) + K @ZARY ; CLEAR RETURN ARRAY +"RTN","C0QMU12",20,0) + N ZIEN,ZCNT,ZX +"RTN","C0QMU12",21,0) + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE +"RTN","C0QMU12",22,0) + . W !,"ERROR, NO PARAMETERS AVAILABLE" +"RTN","C0QMU12",23,0) + S ZIEN="" +"RTN","C0QMU12",24,0) + S ZCNT=0 +"RTN","C0QMU12",25,0) + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; +"RTN","C0QMU12",26,0) + . S ZCNT=ZCNT+1 +"RTN","C0QMU12",27,0) + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) +"RTN","C0QMU12",28,0) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) +"RTN","C0QMU12",29,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") +"RTN","C0QMU12",30,0) + . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX +"RTN","C0QMU12",31,0) + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",32,0) + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",33,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",34,0) + . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") +"RTN","C0QMU12",35,0) + . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX +"RTN","C0QMU12",36,0) + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") +"RTN","C0QMU12",37,0) + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") +"RTN","C0QMU12",38,0) + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") +"RTN","C0QMU12",39,0) + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") +"RTN","C0QMU12",40,0) + . D CLEAN^DILF +"RTN","C0QMU12",41,0) + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") +"RTN","C0QMU12",42,0) + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST +"RTN","C0QMU12",43,0) + . . W !,"ERROR READING CLINIC PARAMETER LIST" +"RTN","C0QMU12",44,0) + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) +"RTN","C0QMU12",45,0) + ; +"RTN","C0QMU12",46,0) + Q +"RTN","C0QMU12",47,0) + ; +"RTN","C0QMU12",48,0) +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create +"RTN","C0QMU12",49,0) + ; patient lists +"RTN","C0QMU12",50,0) + ;N GRSLT ; ARRAY FOR RESULTS +"RTN","C0QMU12",51,0) + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array +"RTN","C0QMU12",52,0) + I '$D(C0QPR) S C0QPR=0 ;default don't print out results +"RTN","C0QMU12",53,0) + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists +"RTN","C0QMU12",54,0) + S ZYR="MU12-" +"RTN","C0QMU12",55,0) + D INITCLST ; initialize C0QLIST +"RTN","C0QMU12",56,0) + N G1 ; ONE SET OF VALUES - RNF1 FORMAT +"RTN","C0QMU12",57,0) + N C0QPARM +"RTN","C0QMU12",58,0) + D INIT("C0QPARM","INP") ; initialize inpatient parms +"RTN","C0QMU12",59,0) + I $O(C0QPARM(""))="" D Q ; no parms for inpatient +"RTN","C0QMU12",60,0) + . W !,"No inpatient parameters" +"RTN","C0QMU12",61,0) + N ZDIV S ZDIV="" +"RTN","C0QMU12",62,0) + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division +"RTN","C0QMU12",63,0) + . D ALL ; all currently admitted patients in the hospital +"RTN","C0QMU12",64,0) + . D DIS ; all patients discharged since the reporting period began +"RTN","C0QMU12",65,0) + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") +"RTN","C0QMU12",66,0) + . ;D ICUPAT ; GENERATE ICU PATIENT LIST +"RTN","C0QMU12",67,0) + . I C0QPL D ; +"RTN","C0QMU12",68,0) + . . D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",69,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; +"RTN","C0QMU12",70,0) + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; +"RTN","C0QMU12",71,0) + . K C0QLIST +"RTN","C0QMU12",72,0) + Q +"RTN","C0QMU12",73,0) + ; +"RTN","C0QMU12",74,0) +INITCLST ; initialize C0QLIST +"RTN","C0QMU12",75,0) + ; INITIALIZE LISTS +"RTN","C0QMU12",76,0) + ; this is done so that if there are no matching patients, the patient list +"RTN","C0QMU12",77,0) + ; will be zeroed out +"RTN","C0QMU12",78,0) + K C0QLIST +"RTN","C0QMU12",79,0) + S C0QLIST(ZYR_"HasDemographics")="" +"RTN","C0QMU12",80,0) + S C0QLIST(ZYR_"Patient")="" +"RTN","C0QMU12",81,0) + S C0QLIST(ZYR_"HasProblem")="" +"RTN","C0QMU12",82,0) + S C0QLIST(ZYR_"HasAllergy")="" +"RTN","C0QMU12",83,0) + S C0QLIST(ZYR_"HasMed")="" +"RTN","C0QMU12",84,0) + S C0QLIST(ZYR_"HasVitalSigns")="" +"RTN","C0QMU12",85,0) + S C0QLIST(ZYR_"HasMedOrders")="" +"RTN","C0QMU12",86,0) + S C0QLIST(ZYR_"HasSmokingStatus")="" +"RTN","C0QMU12",87,0) + Q +"RTN","C0QMU12",88,0) + ; +"RTN","C0QMU12",89,0) +ALL ;retrieve active inpatients +"RTN","C0QMU12",90,0) + N WARD S WARD="" +"RTN","C0QMU12",91,0) + F D Q:WARD="" +"RTN","C0QMU12",92,0) + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name +"RTN","C0QMU12",93,0) + . Q:WARD="" +"RTN","C0QMU12",94,0) + . N WIEN S WIEN="" +"RTN","C0QMU12",95,0) + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN +"RTN","C0QMU12",96,0) + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name +"RTN","C0QMU12",97,0) + . . N DFN,RB S DFN="" +"RTN","C0QMU12",98,0) + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward +"RTN","C0QMU12",99,0) + . . . D DEMO^C0QMU122 +"RTN","C0QMU12",100,0) + . . . D PROBLEM +"RTN","C0QMU12",101,0) + . . . D ALLERGY +"RTN","C0QMU12",102,0) + . . . D MEDS4 +"RTN","C0QMU12",103,0) + . . . D RECON2 +"RTN","C0QMU12",104,0) + . . . D ADVDIR +"RTN","C0QMU12",105,0) + . . . D SMOKING +"RTN","C0QMU12",106,0) + . . . D VITALS +"RTN","C0QMU12",107,0) + . . . D VTE1 +"RTN","C0QMU12",108,0) + . . . D COD +"RTN","C0QMU12",109,0) + . . . D EDTIME +"RTN","C0QMU12",110,0) + . . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",111,0) + . . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",112,0) + . . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",113,0) + Q +"RTN","C0QMU12",114,0) + ; +"RTN","C0QMU12",115,0) +PROBLEM ; PATIENT PROBLEMS +"RTN","C0QMU12",116,0) + D LIST^ORQQPL(.PROBL,DFN,"A") +"RTN","C0QMU12",117,0) + S PBCNT="" +"RTN","C0QMU12",118,0) + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D +"RTN","C0QMU12",119,0) + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description +"RTN","C0QMU12",120,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU12",121,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU12",122,0) + K PROBL +"RTN","C0QMU12",123,0) + Q +"RTN","C0QMU12",124,0) + ; +"RTN","C0QMU12",125,0) +ALLERGY ; ALLERGY LIST +"RTN","C0QMU12",126,0) + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL +"RTN","C0QMU12",127,0) + D LIST^ORQQAL(.ALRGYL,DFN) +"RTN","C0QMU12",128,0) + S ALCNT="" +"RTN","C0QMU12",129,0) + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D +"RTN","C0QMU12",130,0) + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description +"RTN","C0QMU12",131,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU12",132,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU12",133,0) + K ALRGYL +"RTN","C0QMU12",134,0) + Q +"RTN","C0QMU12",135,0) + ; +"RTN","C0QMU12",136,0) +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS +"RTN","C0QMU12",137,0) + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 +"RTN","C0QMU12",138,0) + N BEG,END +"RTN","C0QMU12",139,0) + S BEG=$$DT^C0QUTIL("JULY 3,2011") +"RTN","C0QMU12",140,0) + S END=$$DT^C0QUTIL("NOW") +"RTN","C0QMU12",141,0) + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 +"RTN","C0QMU12",142,0) + N C0QMEDS +"RTN","C0QMU12",143,0) + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL +"RTN","C0QMU12",144,0) + N FOUND +"RTN","C0QMU12",145,0) + N ZI +"RTN","C0QMU12",146,0) + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS +"RTN","C0QMU12",147,0) + . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",148,0) + E D ; HAS MEDS +"RTN","C0QMU12",149,0) + . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",150,0) + S ZI="" S FOUND=0 +"RTN","C0QMU12",151,0) + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED +"RTN","C0QMU12",152,0) + . N ZM +"RTN","C0QMU12",153,0) + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION +"RTN","C0QMU12",154,0) + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE +"RTN","C0QMU12",155,0) + . . S FOUND=1 +"RTN","C0QMU12",156,0) + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE +"RTN","C0QMU12",157,0) + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",158,0) + Q +"RTN","C0QMU12",159,0) + ; +"RTN","C0QMU12",160,0) +RECON ; MEDICATIONS RECONCILIATION +"RTN","C0QMU12",161,0) + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL +"RTN","C0QMU12",162,0) + ; +"RTN","C0QMU12",163,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",164,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",165,0) + N HASRECON S HASRECON=0 +"RTN","C0QMU12",166,0) + N GT,G +"RTN","C0QMU12",167,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QMU12",168,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QMU12",169,0) + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON +"RTN","C0QMU12",170,0) + . S HASRECON=1 +"RTN","C0QMU12",171,0) + ;N ZT +"RTN","C0QMU12",172,0) + ;S ZT="MEDICATION RECONCILIATION COMPLET" +"RTN","C0QMU12",173,0) + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; +"RTN","C0QMU12",174,0) + ;. S HASRECON=1 +"RTN","C0QMU12",175,0) + ;E D ; +"RTN","C0QMU12",176,0) + ;. S ZT="Medication Reconcilation Complete" +"RTN","C0QMU12",177,0) + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; +"RTN","C0QMU12",178,0) + ;. . S HASRECON=1 +"RTN","C0QMU12",179,0) + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 +"RTN","C0QMU12",180,0) + I HASRECON D ; +"RTN","C0QMU12",181,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",182,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",183,0) + Q +"RTN","C0QMU12",184,0) + ; +"RTN","C0QMU12",185,0) +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION +"RTN","C0QMU12",186,0) + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; +"RTN","C0QMU12",187,0) + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient +"RTN","C0QMU12",188,0) + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; +"RTN","C0QMU12",189,0) + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",190,0) + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",191,0) + Q +"RTN","C0QMU12",192,0) + ; +"RTN","C0QMU12",193,0) +ERX ; FOR EP, WE LOOK AT ERX MEDS +"RTN","C0QMU12",194,0) + N ZI S ZI="" +"RTN","C0QMU12",195,0) + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) +"RTN","C0QMU12",196,0) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",197,0) + . ;B +"RTN","C0QMU12",198,0) + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; +"RTN","C0QMU12",199,0) + . . S C0QLIST(ZYR_"HasMed",DFN)="" +"RTN","C0QMU12",200,0) + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" +"RTN","C0QMU12",201,0) + . . S C0QLIST(ZYR_"HasERX",DFN)="" +"RTN","C0QMU12",202,0) + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" +"RTN","C0QMU12",203,0) + . E D ; +"RTN","C0QMU12",204,0) + . . S C0QLIST(ZYR_"NoMed",DFN)="" +"RTN","C0QMU12",205,0) + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" +"RTN","C0QMU12",206,0) + . . S C0QLIST(ZYR_"NoERX",DFN)="" +"RTN","C0QMU12",207,0) + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" +"RTN","C0QMU12",208,0) + Q +"RTN","C0QMU12",209,0) + ; +"RTN","C0QMU12",210,0) +ADVDIR ; ADVANCE DIRECTIVE +"RTN","C0QMU12",211,0) + ; +"RTN","C0QMU12",212,0) + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER +"RTN","C0QMU12",213,0) + . S C0QLIST(ZYR_"Over65",DFN)="" +"RTN","C0QMU12",214,0) + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; +"RTN","C0QMU12",215,0) + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" +"RTN","C0QMU12",216,0) + . E D ; +"RTN","C0QMU12",217,0) + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" +"RTN","C0QMU12",218,0) + Q +"RTN","C0QMU12",219,0) + ; +"RTN","C0QMU12",220,0) +SMOKING G SMOKING^C0QMU121 +"RTN","C0QMU12",221,0) +VITALS ; +"RTN","C0QMU12",222,0) + ; +"RTN","C0QMU12",223,0) + N C0QSDT,C0QEDT +"RTN","C0QMU12",224,0) + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE +"RTN","C0QMU12",225,0) + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY +"RTN","C0QMU12",226,0) + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS +"RTN","C0QMU12",227,0) + I $D(VITRSLT) D ;ZWR VITRSLT B ; +"RTN","C0QMU12",228,0) + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" +"RTN","C0QMU12",229,0) + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" +"RTN","C0QMU12",230,0) + Q +"RTN","C0QMU12",231,0) + ; +"RTN","C0QMU12",232,0) +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL +"RTN","C0QMU12",233,0) + ; +"RTN","C0QMU12",234,0) + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; +"RTN","C0QMU12",235,0) + . S C0QLIST(ZYR_"HasVTE24",DFN)="" +"RTN","C0QMU12",236,0) + E S C0QLIST(ZYR_"NoVTE24",DFN)="" +"RTN","C0QMU12",237,0) + Q +"RTN","C0QMU12",238,0) + ; +"RTN","C0QMU12",239,0) +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE +"RTN","C0QMU12",240,0) + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; +"RTN","C0QMU12",241,0) + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" +"RTN","C0QMU12",242,0) + Q +"RTN","C0QMU12",243,0) + ; +"RTN","C0QMU12",244,0) +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS +"RTN","C0QMU12",245,0) + N FOUND +"RTN","C0QMU12",246,0) + S FOUND=0 +"RTN","C0QMU12",247,0) + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 +"RTN","C0QMU12",248,0) + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 +"RTN","C0QMU12",249,0) + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 +"RTN","C0QMU12",250,0) + I FOUND D ; +"RTN","C0QMU12",251,0) + . S C0QLIST(ZYR_"HasEDtime",DFN)="" +"RTN","C0QMU12",252,0) + E S C0QLIST(ZYR_"NoEDtime",DFN)="" +"RTN","C0QMU12",253,0) + Q +"RTN","C0QMU12",254,0) + ; +"RTN","C0QMU12",255,0) +ICUPAT ; CREATE LIST OF ICU PATIENTS +"RTN","C0QMU12",256,0) + N ZICU +"RTN","C0QMU12",257,0) + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION +"RTN","C0QMU12",258,0) + N ZI,ZJ,ZP +"RTN","C0QMU12",259,0) + S ZI="" +"RTN","C0QMU12",260,0) + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE +"RTN","C0QMU12",261,0) + . S ZJ="" +"RTN","C0QMU12",262,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT +"RTN","C0QMU12",263,0) + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN +"RTN","C0QMU12",264,0) + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" +"RTN","C0QMU12",265,0) + Q +"RTN","C0QMU12",266,0) + ; +"RTN","C0QMU12",267,0) +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED +"RTN","C0QMU12",268,0) + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING +"RTN","C0QMU12",269,0) + K C0QLIST +"RTN","C0QMU12",270,0) + N ZPAT +"RTN","C0QMU12",271,0) + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted +"RTN","C0QMU12",272,0) + ; during the reporting period. used to filter other lists +"RTN","C0QMU12",273,0) + ; +"RTN","C0QMU12",274,0) + ; filter ICU patients against ZPAT +"RTN","C0QMU12",275,0) + N GN,GO,GF +"RTN","C0QMU12",276,0) + S GN=ZPAT +"RTN","C0QMU12",277,0) + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient +"RTN","C0QMU12",278,0) + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination +"RTN","C0QMU12",279,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",280,0) + ; +"RTN","C0QMU12",281,0) + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE +"RTN","C0QMU12",282,0) + ; +"RTN","C0QMU12",283,0) + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period +"RTN","C0QMU12",284,0) + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",285,0) + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",286,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",287,0) + ; +"RTN","C0QMU12",288,0) + S GN=ZPAT +"RTN","C0QMU12",289,0) + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",290,0) + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",291,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",292,0) + ; +"RTN","C0QMU12",293,0) + S GN=ZPAT +"RTN","C0QMU12",294,0) + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",295,0) + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",296,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",297,0) + ; +"RTN","C0QMU12",298,0) + S GN=ZPAT +"RTN","C0QMU12",299,0) + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR +"RTN","C0QMU12",300,0) + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL +"RTN","C0QMU12",301,0) + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation +"RTN","C0QMU12",302,0) + ; +"RTN","C0QMU12",303,0) + D FILE ; FILE ALL THE PATIENT LISTS +"RTN","C0QMU12",304,0) + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set +"RTN","C0QMU12",305,0) + Q +"RTN","C0QMU12",306,0) + ; +"RTN","C0QMU12",307,0) +ED1 ; +"RTN","C0QMU12",308,0) + S ZYR="MU12-" +"RTN","C0QMU12",309,0) + D DOTIME^C0QMU121("ED DEPARTURE TIME") +"RTN","C0QMU12",310,0) + Q +"RTN","C0QMU12",311,0) + ; +"RTN","C0QMU12",312,0) +ED2 ; +"RTN","C0QMU12",313,0) + S ZYR="MU12-" +"RTN","C0QMU12",314,0) + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") +"RTN","C0QMU12",315,0) + Q +"RTN","C0QMU12",316,0) + ; +"RTN","C0QMU12",317,0) +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST +"RTN","C0QMU12",318,0) + ; WHOSE NAME IS ZLST +"RTN","C0QMU12",319,0) + N ZIEN,ZN +"RTN","C0QMU12",320,0) + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list +"RTN","C0QMU12",321,0) + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST +"RTN","C0QMU12",322,0) + Q ZN +"RTN","C0QMU12",323,0) + ; +"RTN","C0QMU12",324,0) +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH +"RTN","C0QMU12",325,0) + ; THE ATTRIBUTE ZATTR +"RTN","C0QMU12",326,0) + N ZIEN,ZN +"RTN","C0QMU12",327,0) + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list +"RTN","C0QMU12",328,0) + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST +"RTN","C0QMU12",329,0) + Q ZN +"RTN","C0QMU12",330,0) + ; +"RTN","C0QMU12",331,0) +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST +"RTN","C0QMU12",332,0) + N ZL,ZR +"RTN","C0QMU12",333,0) + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE +"RTN","C0QMU12",334,0) + I ZL="" Q 0 ; LIST DOES NOT EXIST +"RTN","C0QMU12",335,0) + S ZR=0 ; ASSUME NOT IN LIST +"RTN","C0QMU12",336,0) + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST +"RTN","C0QMU12",337,0) + Q ZR +"RTN","C0QMU12",338,0) + ; +"RTN","C0QMU12",339,0) +LOCPAT(PREFIX,LOC) ;retrieve active outpatients +"RTN","C0QMU12",340,0) + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" +"RTN","C0QMU12",341,0) + ; LOC IS HOSPITAL LOCATION +"RTN","C0QMU12",342,0) + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION +"RTN","C0QMU12",343,0) + I ULOC="" D Q ; OOPS +"RTN","C0QMU12",344,0) + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC +"RTN","C0QMU12",345,0) + S IDTE=9999999-DTE ; INVERSE DATE +"RTN","C0QMU12",346,0) + N ZI +"RTN","C0QMU12",347,0) + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE +"RTN","C0QMU12",348,0) + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE +"RTN","C0QMU12",349,0) + . W !,$$FMTE^XLFDT(9999999-ZI) ;B ; +"RTN","C0QMU12",350,0) + . I ZI="" Q ; +"RTN","C0QMU12",351,0) + . N ZJ S ZJ="" +"RTN","C0QMU12",352,0) + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT +"RTN","C0QMU12",353,0) + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT +"RTN","C0QMU12",354,0) + . . S C0QLIST(PREFIX_"Patient",DFN)="" +"RTN","C0QMU12",355,0) + Q +"RTN","C0QMU12",356,0) + ; +"RTN","C0QMU12",357,0) +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS +"RTN","C0QMU12",358,0) + ; +"RTN","C0QMU12",359,0) + S DTE=3111000 +"RTN","C0QMU12",360,0) + S MUYR=ZYR +"RTN","C0QMU12",361,0) + N ZC,ZN +"RTN","C0QMU12",362,0) + S ZN=0 +"RTN","C0QMU12",363,0) + N ZI S ZI=0 +"RTN","C0QMU12",364,0) + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION +"RTN","C0QMU12",365,0) + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC +"RTN","C0QMU12",366,0) + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC +"RTN","C0QMU12",367,0) + . S ZCIEN=ZI ; IEN OF CLINIC +"RTN","C0QMU12",368,0) + . S ZN=ZN+1 ; COUNT OF CLINICS +"RTN","C0QMU12",369,0) + . S PRE=MUYR_"-EP-"_ZC_"-" +"RTN","C0QMU12",370,0) + . D LOCPAT(PRE,ZC) +"RTN","C0QMU12",371,0) + W !,"NUMBER OF CLINICS: ",ZN +"RTN","C0QMU12",372,0) + D FILE ; CREATE ALL THE EP PATIENT LISTS +"RTN","C0QMU12",373,0) + Q +"RTN","C0QMU12",374,0) + ; +"RTN","C0QMU12",375,0) +DOEP ; DO EP COMPUTATIONS +"RTN","C0QMU12",376,0) + S ZYR="MU12-" +"RTN","C0QMU12",377,0) + N C0QPARM,C0QCLNC +"RTN","C0QMU12",378,0) + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS +"RTN","C0QMU12",379,0) + K C0QLIST ; CLEAR THE LIST +"RTN","C0QMU12",380,0) + N ZI S ZI="" +"RTN","C0QMU12",381,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP +"RTN","C0QMU12",382,0) + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period +"RTN","C0QMU12",383,0) + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this +"RTN","C0QMU12",384,0) + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now +"RTN","C0QMU12",385,0) + . S PRE=ZYR_"EP-"_C0QCLNC_"-" +"RTN","C0QMU12",386,0) + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS +"RTN","C0QMU12",387,0) + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") +"RTN","C0QMU12",388,0) + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") +"RTN","C0QMU12",389,0) + S DFN="" +"RTN","C0QMU12",390,0) + S ZYR=ZYR_"EP-" +"RTN","C0QMU12",391,0) + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT +"RTN","C0QMU12",392,0) + . D DEMO^C0QMU122 +"RTN","C0QMU12",393,0) + . D PROBLEM +"RTN","C0QMU12",394,0) + . D ALLERGY +"RTN","C0QMU12",395,0) + . ;D MEDS +"RTN","C0QMU12",396,0) + . D ERX +"RTN","C0QMU12",397,0) + . D SMOKING +"RTN","C0QMU12",398,0) + . D VITALS +"RTN","C0QMU12",399,0) + D FILE ; FILE THE PATIENT LISTS +"RTN","C0QMU12",400,0) + N C0QCIEN +"RTN","C0QMU12",401,0) + S ZI="" +"RTN","C0QMU12",402,0) + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",403,0) + . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set +"RTN","C0QMU12",404,0) + . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET +"RTN","C0QMU12",405,0) + Q +"RTN","C0QMU12",406,0) + ; +"RTN","C0QMU12",407,0) +DIS ; +"RTN","C0QMU12",408,0) + N DFN,DTE,EXDTE S DTE="" +"RTN","C0QMU12",409,0) + F D Q:DTE="" +"RTN","C0QMU12",410,0) + . S DTE=$O(^DGPM("B",DTE)) +"RTN","C0QMU12",411,0) + . Q:'DTE +"RTN","C0QMU12",412,0) + . ;Q:$P(DTE,".")<3110703 +"RTN","C0QMU12",413,0) + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 +"RTN","C0QMU12",414,0) + . S EXDTE=$$FMTE^XLFDT(DTE) +"RTN","C0QMU12",415,0) + . N PTFM S PTFM="" +"RTN","C0QMU12",416,0) + . D +"RTN","C0QMU12",417,0) + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) +"RTN","C0QMU12",418,0) + . . Q:'PTFM +"RTN","C0QMU12",419,0) + . . S DFN=$P(^DGPM(PTFM,0),U,3) +"RTN","C0QMU12",420,0) + . . S C0QLIST(ZYR_"Patient",DFN)="" +"RTN","C0QMU12",421,0) + . . D DEMO^C0QMU122 +"RTN","C0QMU12",422,0) + . . D PROBLEM +"RTN","C0QMU12",423,0) + . . D ALLERGY +"RTN","C0QMU12",424,0) + . . D MEDS4 +"RTN","C0QMU12",425,0) + . . D RECON2 +"RTN","C0QMU12",426,0) + . . D ADVDIR +"RTN","C0QMU12",427,0) + . . D SMOKING +"RTN","C0QMU12",428,0) + . . D VITALS +"RTN","C0QMU12",429,0) + . . ;D:$P(DTE,".")>3110912 VTE1 +"RTN","C0QMU12",430,0) + . . D VTE1 +"RTN","C0QMU12",431,0) + . . D COD +"RTN","C0QMU12",432,0) + . . D EDTIME +"RTN","C0QMU12",433,0) + . . I C0QPR D PRINT^C0QMU121 +"RTN","C0QMU12",434,0) + . . I C0QSS D SS^C0QMU121 +"RTN","C0QMU12",435,0) + . . I C0QPL D PATLIST^C0QMU121 +"RTN","C0QMU12",436,0) + Q +"RTN","C0QMU12",437,0) + ; +"RTN","C0QMU12",438,0) +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",439,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +"RTN","C0QMU12",440,0) +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST +"RTN","C0QMU12",441,0) + ; +"RTN","C0QMU12",442,0) + I '$D(C0QLIST) Q ; +"RTN","C0QMU12",443,0) + N LFN S LFN=$$C0QALFN() +"RTN","C0QMU12",444,0) + N ZI,ZN +"RTN","C0QMU12",445,0) + S ZI="" +"RTN","C0QMU12",446,0) + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; +"RTN","C0QMU12",447,0) + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) +"RTN","C0QMU12",448,0) + . I ZN="" D ; LIST NOT FOUND, CREATE IT +"RTN","C0QMU12",449,0) + . . K C0QFDA +"RTN","C0QMU12",450,0) + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE +"RTN","C0QMU12",451,0) + . . S C0QFDA(FN,"+1,",.01)=ZI +"RTN","C0QMU12",452,0) + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE +"RTN","C0QMU12",453,0) + . . W !,"CREATING ",ZI +"RTN","C0QMU12",454,0) + . . D UPDIE ; ADD THE RECORD +"RTN","C0QMU12",455,0) + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN +"RTN","C0QMU12",456,0) + . ;I ZN="" D Q ; OOPS +"RTN","C0QMU12",457,0) + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI +"RTN","C0QMU12",458,0) + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN +"RTN","C0QMU12",459,0) + . N C0QNEW,C0QOLD,C0QRSLT +"RTN","C0QMU12",460,0) + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST +"RTN","C0QMU12",461,0) + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST +"RTN","C0QMU12",462,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW +"RTN","C0QMU12",463,0) + . N ZJ,ZK +"RTN","C0QMU12",464,0) + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST +"RTN","C0QMU12",465,0) + . K C0QFDA +"RTN","C0QMU12",466,0) + . S ZJ="" +"RTN","C0QMU12",467,0) + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY +"RTN","C0QMU12",468,0) + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE +"RTN","C0QMU12",469,0) + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN +"RTN","C0QMU12",470,0) + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" +"RTN","C0QMU12",471,0) + . . . S $EC=",U1130580001," ; smh - instead of a BREAK +"RTN","C0QMU12",472,0) + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" +"RTN","C0QMU12",473,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS +"RTN","C0QMU12",474,0) + . ; SECOND, PROCESS THE ADDITIONS +"RTN","C0QMU12",475,0) + . K C0QFDA +"RTN","C0QMU12",476,0) + . S ZJ="" S ZK=1 +"RTN","C0QMU12",477,0) + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 +"RTN","C0QMU12",478,0) + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",479,0) + . . S ZK=ZK+1 +"RTN","C0QMU12",480,0) + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS +"RTN","C0QMU12",481,0) + ;. Q +"RTN","C0QMU12",482,0) + ;. K C0QFDA +"RTN","C0QMU12",483,0) + ;. N ZJ,ZC +"RTN","C0QMU12",484,0) + ;. S ZJ="" S ZC=1 +"RTN","C0QMU12",485,0) + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST +"RTN","C0QMU12",486,0) + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ +"RTN","C0QMU12",487,0) + ;. . S ZC=ZC+1 +"RTN","C0QMU12",488,0) + ;. D UPDIE +"RTN","C0QMU12",489,0) + ;. W !,"FOUND:"_ZI +"RTN","C0QMU12",490,0) + Q +"RTN","C0QMU12",491,0) + ; +"RTN","C0QMU12",492,0) +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE +"RTN","C0QMU12",493,0) + ; +"RTN","C0QMU12",494,0) + N C0QFDA,ZFN,LIST,ATTR +"RTN","C0QMU12",495,0) + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE +"RTN","C0QMU12",496,0) + D CLEAN^DILF +"RTN","C0QMU12",497,0) + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME +"RTN","C0QMU12",498,0) + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE +"RTN","C0QMU12",499,0) + D CLEAN^DILF +"RTN","C0QMU12",500,0) + K ZERR +"RTN","C0QMU12",501,0) + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE +"RTN","C0QMU12",502,0) + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE +"RTN","C0QMU12",503,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",504,0) + ;. W "ERROR",! +"RTN","C0QMU12",505,0) + ;. ZWR ZERR +"RTN","C0QMU12",506,0) + ;. B +"RTN","C0QMU12",507,0) + K C0QFDA +"RTN","C0QMU12",508,0) + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD +"RTN","C0QMU12",509,0) + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE +"RTN","C0QMU12",510,0) + D UPDIE ; CREATE THE SUBFILE +"RTN","C0QMU12",511,0) + N ZR ; NEW IEN FOR THE RECORD +"RTN","C0QMU12",512,0) + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) +"RTN","C0QMU12",513,0) + ; +"RTN","C0QMU12",514,0) + Q ZR +"RTN","C0QMU12",515,0) + ; +"RTN","C0QMU12",516,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QMU12",517,0) + K ZERR +"RTN","C0QMU12",518,0) + D CLEAN^DILF +"RTN","C0QMU12",519,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QMU12",520,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QMU12",521,0) + K C0QFDA +"RTN","C0QMU12",522,0) + Q +"RTN","C0QMU12",523,0) + ; +"RTN","C0QMU12",524,0) +END ;end of C0QPRML; +"RTN","C0QMU121") +0^19^B184663073 +"RTN","C0QMU121",1,0) +C0QMU121 ;VEN/SMH - Patient Reminder List, cont. ; 7/31/12 12:33pm +"RTN","C0QMU121",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QMU121",3,0) + ; +"RTN","C0QMU121",4,0) + ; Licensed under package license. +"RTN","C0QMU121",5,0) + ; +"RTN","C0QMU121",6,0) +SMOKING ; Smoking data collection +"RTN","C0QMU121",7,0) + ; WANT TO CHANGE SMOKING STATUS CHECKING FOR 2012 TO A SIMPLE SET OF +"RTN","C0QMU121",8,0) + ; HEALTH FACTORS. GPL +"RTN","C0QMU121",9,0) + I $$INLIST^C0QMU12(ZYR_"HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STAT CHECK +"RTN","C0QMU121",10,0) + . S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" +"RTN","C0QMU121",11,0) + . S C0QLIST(ZYR_"Over12",DFN)="" +"RTN","C0QMU121",12,0) + I $$INLIST^C0QMU12(ZYR_"NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK +"RTN","C0QMU121",13,0) + . S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" +"RTN","C0QMU121",14,0) + . S C0QLIST(ZYR_"Over12",DFN)="" +"RTN","C0QMU121",15,0) + N C0QSMOKE,C0QSYN +"RTN","C0QMU121",16,0) + S C0QSYN=0 +"RTN","C0QMU121",17,0) + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 +"RTN","C0QMU121",18,0) + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE +"RTN","C0QMU121",19,0) + ; PATIENT IN THE CATEGORY OF TOBACCO +"RTN","C0QMU121",20,0) + I $D(C0QSMOKE) S C0QSYN=1 +"RTN","C0QMU121",21,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") +"RTN","C0QMU121",22,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") +"RTN","C0QMU121",23,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") +"RTN","C0QMU121",24,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") +"RTN","C0QMU121",25,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") +"RTN","C0QMU121",26,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") +"RTN","C0QMU121",27,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") +"RTN","C0QMU121",28,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") +"RTN","C0QMU121",29,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") +"RTN","C0QMU121",30,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") +"RTN","C0QMU121",31,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") +"RTN","C0QMU121",32,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") +"RTN","C0QMU121",33,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") +"RTN","C0QMU121",34,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") +"RTN","C0QMU121",35,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") +"RTN","C0QMU121",36,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") +"RTN","C0QMU121",37,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") +"RTN","C0QMU121",38,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") +"RTN","C0QMU121",39,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") +"RTN","C0QMU121",40,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") +"RTN","C0QMU121",41,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") +"RTN","C0QMU121",42,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") +"RTN","C0QMU121",43,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") +"RTN","C0QMU121",44,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") +"RTN","C0QMU121",45,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") +"RTN","C0QMU121",46,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") +"RTN","C0QMU121",47,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") +"RTN","C0QMU121",48,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") +"RTN","C0QMU121",49,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") +"RTN","C0QMU121",50,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",51,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",52,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",53,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",54,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",55,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",56,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",57,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",58,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",59,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",60,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",61,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",62,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",63,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",64,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",65,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",66,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",67,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",68,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",69,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") +"RTN","C0QMU121",70,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",71,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",72,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",73,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",74,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",75,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",76,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",77,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",78,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",79,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",80,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",81,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",82,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",83,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",84,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",85,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",86,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",87,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",88,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",89,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") +"RTN","C0QMU121",90,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",91,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",92,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",93,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",94,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",95,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",96,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",97,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",98,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",99,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",100,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",101,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",102,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",103,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",104,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",105,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",106,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",107,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",108,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",109,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",110,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",111,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",112,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",113,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",114,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",115,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",116,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",117,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",118,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",119,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",120,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",121,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",122,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",123,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",124,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",125,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",126,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",127,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",128,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") +"RTN","C0QMU121",129,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") +"RTN","C0QMU121",130,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") +"RTN","C0QMU121",131,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") +"RTN","C0QMU121",132,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") +"RTN","C0QMU121",133,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") +"RTN","C0QMU121",134,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") +"RTN","C0QMU121",135,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") +"RTN","C0QMU121",136,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") +"RTN","C0QMU121",137,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") +"RTN","C0QMU121",138,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") +"RTN","C0QMU121",139,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") +"RTN","C0QMU121",140,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") +"RTN","C0QMU121",141,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") +"RTN","C0QMU121",142,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") +"RTN","C0QMU121",143,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") +"RTN","C0QMU121",144,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") +"RTN","C0QMU121",145,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") +"RTN","C0QMU121",146,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") +"RTN","C0QMU121",147,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") +"RTN","C0QMU121",148,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") +"RTN","C0QMU121",149,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") +"RTN","C0QMU121",150,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") +"RTN","C0QMU121",151,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - No") +"RTN","C0QMU121",152,0) + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - Yes") +"RTN","C0QMU121",153,0) + S C0QLIST(ZYR_"Over12",DFN)="" +"RTN","C0QMU121",154,0) + ;N GT +"RTN","C0QMU121",155,0) + ;S GT(1,"HasSmokingStatus","SMOK")="" +"RTN","C0QMU121",156,0) + ;S GT(2,"HasSmokingStatus","Smok")="" +"RTN","C0QMU121",157,0) + ;S GT(3,"HasSmokingStatus","smok")="" +"RTN","C0QMU121",158,0) + ;I 'C0QSYN D ; +"RTN","C0QMU121",159,0) + ;. N G +"RTN","C0QMU121",160,0) + ;. S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) +"RTN","C0QMU121",161,0) + ;. I $D(G) S C0QSYN=1 +"RTN","C0QMU121",162,0) + I C0QSYN S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" +"RTN","C0QMU121",163,0) + E S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" +"RTN","C0QMU121",164,0) + Q +"RTN","C0QMU121",165,0) + ; +"RTN","C0QMU121",166,0) +DOTIME(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE +"RTN","C0QMU121",167,0) + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE +"RTN","C0QMU121",168,0) + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED +"RTN","C0QMU121",169,0) + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME +"RTN","C0QMU121",170,0) + N ZP +"RTN","C0QMU121",171,0) + S ZP=$$PATLN^C0QMU12(ZYR_"HasEDtime") ; patient list name for patients to process +"RTN","C0QMU121",172,0) + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS +"RTN","C0QMU121",173,0) + S ZVFN=9000010 ; VISIT FILE NUMBER +"RTN","C0QMU121",174,0) + K ZARY1,ZARY2 +"RTN","C0QMU121",175,0) + N ZI S ZI="" +"RTN","C0QMU121",176,0) + S COUNT=0 +"RTN","C0QMU121",177,0) + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT +"RTN","C0QMU121",178,0) + . S COUNT=COUNT+1 +"RTN","C0QMU121",179,0) + . N ZA,ZD +"RTN","C0QMU121",180,0) + . S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR +"RTN","C0QMU121",181,0) + . S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR +"RTN","C0QMU121",182,0) + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE +"RTN","C0QMU121",183,0) + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT +"RTN","C0QMU121",184,0) + . ; THE COMMENT IS THE TIME XXYY +"RTN","C0QMU121",185,0) + . N OK,TMP +"RTN","C0QMU121",186,0) + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",187,0) + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",188,0) + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",189,0) + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",190,0) + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",191,0) + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD +"RTN","C0QMU121",192,0) + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",193,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME +"RTN","C0QMU121",194,0) + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME +"RTN","C0QMU121",195,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME +"RTN","C0QMU121",196,0) + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME +"RTN","C0QMU121",197,0) + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES +"RTN","C0QMU121",198,0) + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) +"RTN","C0QMU121",199,0) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) +"RTN","C0QMU121",200,0) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) +"RTN","C0QMU121",201,0) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) +"RTN","C0QMU121",202,0) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) +"RTN","C0QMU121",203,0) + . S GTOT=G1-G2 +"RTN","C0QMU121",204,0) + . W !,"TIME: ",GTOT," ESTIMATED" +"RTN","C0QMU121",205,0) + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES +"RTN","C0QMU121",206,0) + . W !,"COMPUTED MINUTES: ",ZT +"RTN","C0QMU121",207,0) + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG +"RTN","C0QMU121",208,0) + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES +"RTN","C0QMU121",209,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",210,0) + . I ZT>400000 D Q ; THESE ARE ERRORS +"RTN","C0QMU121",211,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",212,0) + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS +"RTN","C0QMU121",213,0) + N ZY,ZZ S ZY="" S ZZ="" +"RTN","C0QMU121",214,0) + N ZCOUNT S ZCOUNT=0 +"RTN","C0QMU121",215,0) + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME +"RTN","C0QMU121",216,0) + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME +"RTN","C0QMU121",217,0) + . . S ZCOUNT=ZCOUNT+1 +"RTN","C0QMU121",218,0) + . . S ZARY2(ZCOUNT,ZY,ZZ)="" +"RTN","C0QMU121",219,0) + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY +"RTN","C0QMU121",220,0) + N ZMID +"RTN","C0QMU121",221,0) + S ZMID=$P(ZCOUNT/2,".") +"RTN","C0QMU121",222,0) + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT +"RTN","C0QMU121",223,0) + W !,"ED ARRIVAL TIME UNTIL ",ZHF +"RTN","C0QMU121",224,0) + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) +"RTN","C0QMU121",225,0) + Q +"RTN","C0QMU121",226,0) + ; +"RTN","C0QMU121",227,0) +DOTIME2(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE +"RTN","C0QMU121",228,0) + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE +"RTN","C0QMU121",229,0) + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED +"RTN","C0QMU121",230,0) + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME +"RTN","C0QMU121",231,0) + N ZP +"RTN","C0QMU121",232,0) + S ZP=$$PATLN^C0QMU12(ZYR_"HasEDtime") ; patient list name for patients to process +"RTN","C0QMU121",233,0) + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS +"RTN","C0QMU121",234,0) + S ZVFN=9000010 ; VISIT FILE NUMBER +"RTN","C0QMU121",235,0) + K ZARY1,ZARY2 +"RTN","C0QMU121",236,0) + N ZI S ZI="" +"RTN","C0QMU121",237,0) + S COUNT=0 +"RTN","C0QMU121",238,0) + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT +"RTN","C0QMU121",239,0) + . S COUNT=COUNT+1 +"RTN","C0QMU121",240,0) + . N ZA,ZD +"RTN","C0QMU121",241,0) + . ;S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR +"RTN","C0QMU121",242,0) + . ;S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR +"RTN","C0QMU121",243,0) + . S ZA=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR +"RTN","C0QMU121",244,0) + . S ZD=$$VHFIEN^C0QHF(ZI,"ED DEPARTURE TIME") ; IEN OF ARRIVAL HEALTH FACTOR +"RTN","C0QMU121",245,0) + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE +"RTN","C0QMU121",246,0) + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT +"RTN","C0QMU121",247,0) + . ; THE COMMENT IS THE TIME XXYY +"RTN","C0QMU121",248,0) + . N OK,TMP +"RTN","C0QMU121",249,0) + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",250,0) + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",251,0) + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",252,0) + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER +"RTN","C0QMU121",253,0) + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE +"RTN","C0QMU121",254,0) + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD +"RTN","C0QMU121",255,0) + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 +"RTN","C0QMU121",256,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME +"RTN","C0QMU121",257,0) + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME +"RTN","C0QMU121",258,0) + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME +"RTN","C0QMU121",259,0) + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME +"RTN","C0QMU121",260,0) + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES +"RTN","C0QMU121",261,0) + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) +"RTN","C0QMU121",262,0) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) +"RTN","C0QMU121",263,0) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) +"RTN","C0QMU121",264,0) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) +"RTN","C0QMU121",265,0) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) +"RTN","C0QMU121",266,0) + . S GTOT=G1-G2 +"RTN","C0QMU121",267,0) + . W !,"TIME: ",GTOT," ESTIMATED" +"RTN","C0QMU121",268,0) + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES +"RTN","C0QMU121",269,0) + . W !,"COMPUTED MINUTES: ",ZT +"RTN","C0QMU121",270,0) + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG +"RTN","C0QMU121",271,0) + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES +"RTN","C0QMU121",272,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",273,0) + . I ZT>400000 D Q ; THESE ARE ERRORS +"RTN","C0QMU121",274,0) + . . W !,"****EXCLUDED****" +"RTN","C0QMU121",275,0) + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS +"RTN","C0QMU121",276,0) + N ZY,ZZ S ZY="" S ZZ="" +"RTN","C0QMU121",277,0) + N ZCOUNT S ZCOUNT=0 +"RTN","C0QMU121",278,0) + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME +"RTN","C0QMU121",279,0) + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME +"RTN","C0QMU121",280,0) + . . S ZCOUNT=ZCOUNT+1 +"RTN","C0QMU121",281,0) + . . S ZARY2(ZCOUNT,ZY,ZZ)="" +"RTN","C0QMU121",282,0) + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY +"RTN","C0QMU121",283,0) + N ZMID +"RTN","C0QMU121",284,0) + S ZMID=$P(ZCOUNT/2,".") +"RTN","C0QMU121",285,0) + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT +"RTN","C0QMU121",286,0) + W !,"ED ARRIVAL TIME UNTIL ",ZHF +"RTN","C0QMU121",287,0) + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) +"RTN","C0QMU121",288,0) + Q +"RTN","C0QMU121",289,0) + ; +"RTN","C0QMU121",290,0) + ; LOOK AT GETTING RID OF PRINT AND SS AS THEY ARE NOT BEING USED. GPL +"RTN","C0QMU121",291,0) + ; VEN/SMH - Call is used in C0QMU12, perhaps not called. +"RTN","C0QMU121",292,0) + ; +"RTN","C0QMU121",293,0) +PRINT ; PRINT TO SCREEN +"RTN","C0QMU121",294,0) + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " +"RTN","C0QMU121",295,0) + I $D(EXDTE) D ; +"RTN","C0QMU121",296,0) + . W !,"Discharge Date: ",EXDTE +"RTN","C0QMU121",297,0) + . W !,DFN," ",PTNAME +"RTN","C0QMU121",298,0) + W !,"DOB: ",PTDOB," HRN: ",PTHRN +"RTN","C0QMU121",299,0) + W !,"Language Spoken: ",$G(PTLANG) +"RTN","C0QMU121",300,0) + W !,"Race: ",RACEDSC +"RTN","C0QMU121",301,0) + W !,"Ethnicity: ",$G(ETHNDSC) +"RTN","C0QMU121",302,0) + W !,"Problems: " +"RTN","C0QMU121",303,0) + W !,PBDESC +"RTN","C0QMU121",304,0) + W !,"Allergies: " +"RTN","C0QMU121",305,0) + W !,ALDESC +"RTN","C0QMU121",306,0) + W !,"Medications: " +"RTN","C0QMU121",307,0) + W ! +"RTN","C0QMU121",308,0) + Q +"RTN","C0QMU121",309,0) + ; +"RTN","C0QMU121",310,0) +SS ; CREATE SPREADSHEET ARRAY +"RTN","C0QMU121",311,0) + S G1("Patient")=DFN +"RTN","C0QMU121",312,0) + I $D(WARD) D ; +"RTN","C0QMU121",313,0) + . S G1("WardName")=WARDNAME +"RTN","C0QMU121",314,0) + . S G1("RoomAndBed")=RB +"RTN","C0QMU121",315,0) + I $D(EXDTE) D ; +"RTN","C0QMU121",316,0) + . S G1("DischargeDate")=EXDTE +"RTN","C0QMU121",317,0) + S G1("PatientName")=PTNAME +"RTN","C0QMU121",318,0) + S G1("Gender")=PTSEX +"RTN","C0QMU121",319,0) + S G1("DateOfBirth")=PTDOB +"RTN","C0QMU121",320,0) + S G1("HealthRecordNumber")=PTHRN +"RTN","C0QMU121",321,0) + S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QMU121",322,0) + S G1("Race")=RACEDSC +"RTN","C0QMU121",323,0) + S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QMU121",324,0) + S G1("Problem")=PBDESC +"RTN","C0QMU121",325,0) + I PBDESC["No problems found" S G1("HasProblem")=0 +"RTN","C0QMU121",326,0) + E S G1("HasProblem")=1 +"RTN","C0QMU121",327,0) + S G1("Allergies")=ALDESC +"RTN","C0QMU121",328,0) + I ALDESC["No Allergy" S G1("HasAllergy")=0 +"RTN","C0QMU121",329,0) + E S G1("HasAllergy")=1 +"RTN","C0QMU121",330,0) + I $D(MDITEM) D ; +"RTN","C0QMU121",331,0) + . S G1("HasMed")=1 +"RTN","C0QMU121",332,0) + E S G1("HasMed")=0 +"RTN","C0QMU121",333,0) + S G1("MedDescription")=$G(MDDESC) +"RTN","C0QMU121",334,0) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC +"RTN","C0QMU121",335,0) + D RNF1TO2B^C0CRNF("GRSLT","G1") +"RTN","C0QMU121",336,0) + K G1 +"RTN","C0QMU121",337,0) + Q ; DON'T WANT TO DO THE NHIN STUFF NOW +"RTN","C0QMU121",338,0) + ; +"RTN","C0QMU121",339,0) +PATLIST ; CREATE PATIENT LISTS +"RTN","C0QMU121",340,0) + ; WANT TO GET RID OF PATLIST AND MOVE FUNCTION TO OTHER ROUTINES. GPL +"RTN","C0QMU121",341,0) + ; VEN/SMH - Call is moved here. Seems to be used in C0QMU12. +"RTN","C0QMU121",342,0) + ; Think about removing at another time. +"RTN","C0QMU121",343,0) + S C0QLIST(ZYR_"Patient",DFN)="" ; THE PATIENT LIST +"RTN","C0QMU121",344,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QMU121",345,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QMU121",346,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QMU121",347,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QMU121",348,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QMU121",349,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QMU121",350,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QMU121",351,0) + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" +"RTN","C0QMU121",352,0) + ;E S C0QLIST("FailedDemographics",DFN)="" +"RTN","C0QMU121",353,0) + ;S G1("Gender")=PTSEX +"RTN","C0QMU121",354,0) + ;S G1("DateOfBirth")=PTDOB +"RTN","C0QMU121",355,0) + ;S G1("HealthRecordNumber")=PTHRN +"RTN","C0QMU121",356,0) + ;S G1("LanguageSpoken")=$G(PTLANG) +"RTN","C0QMU121",357,0) + ;S G1("Race")=RACEDSC +"RTN","C0QMU121",358,0) + ;S G1("Ehtnicity")=$G(ETHNDSC) +"RTN","C0QMU121",359,0) + S G1("Problem")=PBDESC +"RTN","C0QMU121",360,0) + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" +"RTN","C0QMU121",361,0) + E S C0QLIST(ZYR_"HasProblem",DFN)="" +"RTN","C0QMU121",362,0) + ;S G1("Allergies")=ALDESC +"RTN","C0QMU121",363,0) + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" +"RTN","C0QMU121",364,0) + E S C0QLIST(ZYR_"HasAllergy",DFN)="" +"RTN","C0QMU121",365,0) + ;I $D(MDITEM) D ; +"RTN","C0QMU121",366,0) + ;. S C0QLIST("HasMed",DFN)="" +"RTN","C0QMU121",367,0) + ;E S G1("NoMed",DFN)="" +"RTN","C0QMU121",368,0) + ;S G1("MedDescription")=$G(MDDESC) +"RTN","C0QMU121",369,0) + Q +"RTN","C0QMU121",370,0) + ; +"RTN","C0QMU121",371,0) +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT +"RTN","C0QMU121",372,0) + Q:DFN=137!(DFN=14) +"RTN","C0QMU121",373,0) + D EN^C0CNHIN(.G,DFN,"") +"RTN","C0QMU121",374,0) + D ZWRITE^C0QUTIL("G") +"RTN","C0QMU121",375,0) + K G +"RTN","C0QMU121",376,0) + ; +"RTN","C0QMU121",377,0) + QUIT ;end of WARD +"RTN","C0QMU121",378,0) + ; +"RTN","C0QMU122") +0^20^B3365532 +"RTN","C0QMU122",1,0) +C0QMU122 ;VEN/SMH - Patient Reminder List, cont. again ; 7/31/12 12:33pm +"RTN","C0QMU122",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QMU122",3,0) + ; +"RTN","C0QMU122",4,0) + ; Licensed under package license. +"RTN","C0QMU122",5,0) + ; +"RTN","C0QMU122",6,0) +DEMO ; patient demographics +"RTN","C0QMU122",7,0) + K PTDOB +"RTN","C0QMU122",8,0) + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB +"RTN","C0QMU122",9,0) + S PTNAME=$P(^DPT(DFN,0),U) ;patient name +"RTN","C0QMU122",10,0) + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth +"RTN","C0QMU122",11,0) + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex +"RTN","C0QMU122",12,0) + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility +"RTN","C0QMU122",13,0) + S PTHRN=$P($G(VA("PID")),U) ;health record number +"RTN","C0QMU122",14,0) + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file +"RTN","C0QMU122",15,0) + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl +"RTN","C0QMU122",16,0) + S RACE="" +"RTN","C0QMU122",17,0) + F D Q:RACE="" +"RTN","C0QMU122",18,0) + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN +"RTN","C0QMU122",19,0) + . Q:'RACE +"RTN","C0QMU122",20,0) + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description +"RTN","C0QMU122",21,0) + S ETHN="" +"RTN","C0QMU122",22,0) + F D Q:ETHN="" +"RTN","C0QMU122",23,0) + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN +"RTN","C0QMU122",24,0) + . Q:'ETHN +"RTN","C0QMU122",25,0) + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description +"RTN","C0QMU122",26,0) + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed +"RTN","C0QMU122",27,0) + N DEMOYN S DEMOYN=1 +"RTN","C0QMU122",28,0) + I $G(PTSEX)="" S DEMOYN=0 +"RTN","C0QMU122",29,0) + I $G(PTDOB)="" S DEMOYN=0 +"RTN","C0QMU122",30,0) + I $G(PTHRN)="" S DEMOYN=0 +"RTN","C0QMU122",31,0) + I $G(PTLANG)="" S DEMOYN=0 +"RTN","C0QMU122",32,0) + I $G(RACEDSC)="" S DEMOYN=0 +"RTN","C0QMU122",33,0) + I $G(ETHNDSC)="" S DEMOYN=0 +"RTN","C0QMU122",34,0) + I DEMOYN S C0QLIST(ZYR_"HasDemographics",DFN)="" +"RTN","C0QMU122",35,0) + E S C0QLIST(ZYR_"FailedDemographics",DFN)="" +"RTN","C0QMU122",36,0) + Q +"RTN","C0QMU122",37,0) + ; +"RTN","C0QNOTES") +0^15^B16985475 +"RTN","C0QNOTES",1,0) +C0QNOTES ;GPL - Utility to look up patient notes ; 7/31/12 8:17am +"RTN","C0QNOTES",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QNOTES",3,0) + ; +"RTN","C0QNOTES",4,0) + ;2011 George Lilly - Licensed under the terms of the GNU +"RTN","C0QNOTES",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QNOTES",6,0) + ; +"RTN","C0QNOTES",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QNOTES",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QNOTES",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QNOTES",10,0) + ;(at your option) any later version. +"RTN","C0QNOTES",11,0) + ; +"RTN","C0QNOTES",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QNOTES",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QNOTES",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QNOTES",15,0) + ;GNU General Public License for more details. +"RTN","C0QNOTES",16,0) + ; +"RTN","C0QNOTES",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QNOTES",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QNOTES",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QNOTES",20,0) + ; +"RTN","C0QNOTES",21,0) + Q +"RTN","C0QNOTES",22,0) +HASNTYN(ZNTYP,DFN) ; EXTRINSIC 1 YES 0 NO DOES THE PATIENT DFN HAVE +"RTN","C0QNOTES",23,0) + ; NOTE TYPE ZNTYP +"RTN","C0QNOTES",24,0) + N C0QN,C0QO +"RTN","C0QNOTES",25,0) + S C0QO=$NA(^TIU(8925.1,"B",ZNTYP)) ; ALL DOCUMENT DEFS FOR THIS NAME +"RTN","C0QNOTES",26,0) + S C0QN=$NA(^TIU(8925,"AA",DFN)) ; NOTES THE PATIENT HAS +"RTN","C0QNOTES",27,0) + N C0QR +"RTN","C0QNOTES",28,0) + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; DOES PATIENT HAVE THE NOTE? +"RTN","C0QNOTES",29,0) + N ZR +"RTN","C0QNOTES",30,0) + I $D(C0QR(1)) S ZR=1 +"RTN","C0QNOTES",31,0) + E S ZR=0 +"RTN","C0QNOTES",32,0) + Q ZR +"RTN","C0QNOTES",33,0) + ; +"RTN","C0QNOTES",34,0) +TESTNT(DFN) ; TEST THE NTTXT ROUTINE +"RTN","C0QNOTES",35,0) + W !,"MEDICATION RECON IN ER NURSE NOTE" +"RTN","C0QNOTES",36,0) + I $$NTTXT("ER NURSE NOTE","MEDICATION RECONCILIATION COMPLET",DFN) W " FOUND" +"RTN","C0QNOTES",37,0) + E W " NOT FOUND" +"RTN","C0QNOTES",38,0) + W !,"Medication Recon in MED/SURG NURSING ADMISSION ASSESSMENT" +"RTN","C0QNOTES",39,0) + I $$NTTXT("MED/SURG NURSING ADMISSION ASSESSMENT","Medication Reconcilation complete",DFN) W "FOUND" +"RTN","C0QNOTES",40,0) + E W " NOT FOUND" +"RTN","C0QNOTES",41,0) + Q +"RTN","C0QNOTES",42,0) + ; +"RTN","C0QNOTES",43,0) +NTTXT(NTTITLE,NTTXT,DFN) ; EXTRINSIC 1 YES 0 NO DOES PATIENT HAVE +"RTN","C0QNOTES",44,0) + ; TEXT NTTXT IN NOTE TITLE NTTITLE +"RTN","C0QNOTES",45,0) + N C0QNTA,C0QTYP +"RTN","C0QNOTES",46,0) + S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN +"RTN","C0QNOTES",47,0) + S C0QNTA=$NA(^TIU(8925,"AA",DFN,C0QDFMT)) ; ARRAY OF NOTES OF THIS TYPE FOR +"RTN","C0QNOTES",48,0) + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" +"RTN","C0QNOTES",49,0) + N ZI,ZN,ZD,ZL +"RTN","C0QNOTES",50,0) + S ZD="" ; DATE OF THE THE NOTE +"RTN","C0QNOTES",51,0) + N FOUND S FOUND=0 +"RTN","C0QNOTES",52,0) + F S ZD=$O(@C0QNTA@(ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE +"RTN","C0QNOTES",53,0) + . S ZN="" +"RTN","C0QNOTES",54,0) + . F S ZN=$O(@C0QNTA@(ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE +"RTN","C0QNOTES",55,0) + . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) +"RTN","C0QNOTES",56,0) + . . S ZI=0 ; WANT TO STAR ON LINE 1 +"RTN","C0QNOTES",57,0) + . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) +"RTN","C0QNOTES",58,0) + . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; +"RTN","C0QNOTES",59,0) + . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; +"RTN","C0QNOTES",60,0) + . . . . W "**********",$G(@ZL@(ZI,0)),! +"RTN","C0QNOTES",61,0) + Q FOUND ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT +"RTN","C0QNOTES",62,0) + ; YOU SEARCH FOR...gpl ... for example is this is the note title: +"RTN","C0QNOTES",63,0) + ; MED/SURG NURSING ADMISSION ASSESSMENT +"RTN","C0QNOTES",64,0) + ;and this is the text you want: Medication Reconcilation completed. +"RTN","C0QNOTES",65,0) + ; search for: Medication Reconcilation complete +"RTN","C0QNOTES",66,0) + ; that will leave the "d." in piece two of the line +"RTN","C0QNOTES",67,0) + ; +"RTN","C0QNOTES",68,0) + ; or for this note: +"RTN","C0QNOTES",69,0) + ;ER NURSE NOTE +"RTN","C0QNOTES",70,0) + ; and this text: +"RTN","C0QNOTES",71,0) + ;MEDICATION RECONCILIATION COMPLETED +"RTN","C0QNOTES",72,0) + ; search for MEDICATION RECONCILIATION COMPLET +"RTN","C0QNOTES",73,0) + ; which will leave the "ED" in piece 2 +"RTN","C0QNOTES",74,0) +TXTALL(ZRTN,ZTARY,DFN) ; EXTRINSIC WHICH SEARCHES ALL OF A PATIENT'S NOTES +"RTN","C0QNOTES",75,0) + ; FOR AN ARRAY OF TEXT MATCHES. ZRTN IS PASSED BY REFERENCE AND IS LIKE +"RTN","C0QNOTES",76,0) + ; AN RPC RETURN. ZTARY IS PASSED BY REFERENCE AND HAS THE FORMAT +"RTN","C0QNOTES",77,0) + ; ZTARY(1,"TEXT1")="" ZTARY(2,"TEXT2")="" ETC +"RTN","C0QNOTES",78,0) + N C0QTYP,C0QDFMT +"RTN","C0QNOTES",79,0) + ;S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN +"RTN","C0QNOTES",80,0) + S C0QNTA=$NA(^TIU(8925,"AA",DFN)) ; ARRAY OF NOTES FOR +"RTN","C0QNOTES",81,0) + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" +"RTN","C0QNOTES",82,0) + N ZI,ZJ,ZN,ZD,ZL,ZT,NTTXT,ZC,ZTYP +"RTN","C0QNOTES",83,0) + S ZT="" +"RTN","C0QNOTES",84,0) + F S ZT=$O(@C0QNTA@(ZT)) Q:ZT="" D ; +"RTN","C0QNOTES",85,0) + . S ZTYP=$$GET1^DIQ(8925.1,ZT_",",.01) ; NAME OF NOTE TITLE +"RTN","C0QNOTES",86,0) + . S ZD="" ; DATE OF THE THE NOTE +"RTN","C0QNOTES",87,0) + . N FOUND S FOUND=0 +"RTN","C0QNOTES",88,0) + . F S ZD=$O(@C0QNTA@(ZT,ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE +"RTN","C0QNOTES",89,0) + . . S ZN="" +"RTN","C0QNOTES",90,0) + . . F S ZN=$O(@C0QNTA@(ZT,ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE +"RTN","C0QNOTES",91,0) + . . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) +"RTN","C0QNOTES",92,0) + . . . S ZI=0 ; WANT TO STAR ON LINE 1 +"RTN","C0QNOTES",93,0) + . . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) +"RTN","C0QNOTES",94,0) + . . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; +"RTN","C0QNOTES",95,0) + . . . . S ZJ="" ; INDEX FOR SEARCH TERMS +"RTN","C0QNOTES",96,0) + . . . . F S ZJ=$O(ZTARY(ZJ)) Q:ZJ="" D ; FOR EACH SEARCH TERM +"RTN","C0QNOTES",97,0) + . . . . . S ATTR=$O(ZTARY(ZJ,"")) +"RTN","C0QNOTES",98,0) + . . . . . S NTTXT=$O(ZTARY(ZJ,ATTR,"")) +"RTN","C0QNOTES",99,0) + . . . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; +"RTN","C0QNOTES",100,0) + . . . . . . W "**********",$G(@ZL@(ZI,0)),! +"RTN","C0QNOTES",101,0) + . . . . . . S ZC=$O(ZRTN(""),-1) ; NEXT COUNT +"RTN","C0QNOTES",102,0) + . . . . . . I ZC="" S ZC=1 +"RTN","C0QNOTES",103,0) + . . . . . . E S ZC=ZC+1 +"RTN","C0QNOTES",104,0) + . . . . . . S ZRTN(ZC,ATTR,ZTYP,ZN,NTTXT)=$G(@ZL@(ZI,0)) +"RTN","C0QNOTES",105,0) + Q $G(FOUND) ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT +"RTN","C0QNOTES",106,0) + ; +"RTN","C0QNOTES",107,0) +TESTALL ; +"RTN","C0QNOTES",108,0) + S GT(1,"HasSmokingStatus","SMOK")="" +"RTN","C0QNOTES",109,0) + S GT(2,"HasSmokingStatus","Smok")="" +"RTN","C0QNOTES",110,0) + S GT(3,"HasSmokingStatus","smok")="" +"RTN","C0QNOTES",111,0) + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" +"RTN","C0QNOTES",112,0) + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" +"RTN","C0QNOTES",113,0) + W $$TXTALL(.G,.GT,2) ; CHECK ALL PATIENT 2'S NOTEST FOR SMOKING +"RTN","C0QNOTES",114,0) + D ZWRITE^C0QUTIL("G") +"RTN","C0QNOTES",115,0) + Q +"RTN","C0QNOTES",116,0) + ; +"RTN","C0QPQRI") +0^7^B41586325 +"RTN","C0QPQRI",1,0) +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ; 5/23/12 2:42pm +"RTN","C0QPQRI",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QPQRI",3,0) + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU +"RTN","C0QPQRI",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QPQRI",5,0) + ; +"RTN","C0QPQRI",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QPQRI",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QPQRI",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QPQRI",9,0) + ;(at your option) any later version. +"RTN","C0QPQRI",10,0) + ; +"RTN","C0QPQRI",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QPQRI",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QPQRI",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QPQRI",14,0) + ;GNU General Public License for more details. +"RTN","C0QPQRI",15,0) + ; +"RTN","C0QPQRI",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QPQRI",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QPQRI",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QPQRI",19,0) + ; +"RTN","C0QPQRI",20,0) + Q +"RTN","C0QPQRI",21,0) + ; +"RTN","C0QPQRI",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QPQRI",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QPQRI",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QPQRI",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QPQRI",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QPQRI",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QPQRI",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QPQRI",29,0) + ; +"RTN","C0QPQRI",30,0) +EN ; +"RTN","C0QPQRI",31,0) + ; lets try some hard coded values for now +"RTN","C0QPQRI",32,0) + N C0QVAR +"RTN","C0QPQRI",33,0) + ; +"RTN","C0QPQRI",34,0) + ; first, the values that occur only once for the file +"RTN","C0QPQRI",35,0) + ; +"RTN","C0QPQRI",36,0) + S C0QVAR("create-by")="RegistryA" +"RTN","C0QPQRI",37,0) + S C0QVAR("create-date")="12-10-2010" +"RTN","C0QPQRI",38,0) + S C0QVAR("create-time")="14:27" +"RTN","C0QPQRI",39,0) + S C0QVAR("file-number")=1 +"RTN","C0QPQRI",40,0) + S C0QVAR("number-of-files")=9 +"RTN","C0QPQRI",41,0) + S C0QVAR("version")="1.0" +"RTN","C0QPQRI",42,0) + ; +"RTN","C0QPQRI",43,0) + ; registry values +"RTN","C0QPQRI",44,0) + ; +"RTN","C0QPQRI",45,0) + S C0QVAR("registry-id")=125789123 +"RTN","C0QPQRI",46,0) + S C0QVAR("registry-name")="Model Registry" +"RTN","C0QPQRI",47,0) + S C0QVAR("submission-method")="C" +"RTN","C0QPQRI",48,0) + ; +"RTN","C0QPQRI",49,0) + ; values for each provider +"RTN","C0QPQRI",50,0) + ; +"RTN","C0QPQRI",51,0) + S C0QVAR("npi")=12011989 +"RTN","C0QPQRI",52,0) + S C0QVAR("tin")=387682321 +"RTN","C0QPQRI",53,0) + S C0QVAR("waiver-signed")="Y" +"RTN","C0QPQRI",54,0) + S C0QVAR("encounter-from-date")="06-13-2010" +"RTN","C0QPQRI",55,0) + S C0QVAR("encounter-to-date")="12-10-2010" +"RTN","C0QPQRI",56,0) + ; +"RTN","C0QPQRI",57,0) + ; values for each measure group +"RTN","C0QPQRI",58,0) + ; +"RTN","C0QPQRI",59,0) + S C0QVAR("ffs-patient-count")=2 +"RTN","C0QPQRI",60,0) + S C0QVAR("group-eligible-instances")=30 +"RTN","C0QPQRI",61,0) + S C0QVAR("group-reporting-rate")=66.67 +"RTN","C0QPQRI",62,0) + S C0QVAR("group-reporting-rate-numerator")=20 +"RTN","C0QPQRI",63,0) + ; +"RTN","C0QPQRI",64,0) + ; for each measure +"RTN","C0QPQRI",65,0) + ; +"RTN","C0QPQRI",66,0) + S C0QVAR("pqri-measure-number")=128 +"RTN","C0QPQRI",67,0) + S C0QVAR("eligible-instances")=100 +"RTN","C0QPQRI",68,0) + S C0QVAR("meets-performance-instances")=18 +"RTN","C0QPQRI",69,0) + S C0QVAR("performance-exclusion-instances")=0 +"RTN","C0QPQRI",70,0) + S C0QVAR("performance-not-met-instances")=10 +"RTN","C0QPQRI",71,0) + S C0QVAR("performance-rate")="90.00" +"RTN","C0QPQRI",72,0) + S C0QVAR("reporting-rate")="28.00" +"RTN","C0QPQRI",73,0) + ; +"RTN","C0QPQRI",74,0) + ; +"RTN","C0QPQRI",75,0) + N ZG,ZV +"RTN","C0QPQRI",76,0) + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE +"RTN","C0QPQRI",77,0) + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES +"RTN","C0QPQRI",78,0) + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML +"RTN","C0QPQRI",79,0) + D MEA("GG","GGG") ; GET THE MEASURES +"RTN","C0QPQRI",80,0) + N GB ; BUILD LIST +"RTN","C0QPQRI",81,0) + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml +"RTN","C0QPQRI",82,0) + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures +"RTN","C0QPQRI",83,0) + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES +"RTN","C0QPQRI",84,0) + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML +"RTN","C0QPQRI",85,0) + N ZI S ZI=0 +"RTN","C0QPQRI",86,0) + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML +"RTN","C0QPQRI",87,0) + . W !,GZO(ZI) ; WRITE OUT THE XML +"RTN","C0QPQRI",88,0) + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) +"RTN","C0QPQRI",89,0) + K @GN +"RTN","C0QPQRI",90,0) + K ZO(0) ; GET RID OF LINE COUNT +"RTN","C0QPQRI",91,0) + M @GN=GZO +"RTN","C0QPQRI",92,0) + S GN1=$NA(@GN@(1)) +"RTN","C0QPQRI",93,0) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY +"RTN","C0QPQRI",94,0) + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) +"RTN","C0QPQRI",95,0) + K @GN ; DONT NEED IT ANYMORE +"RTN","C0QPQRI",96,0) + Q +"RTN","C0QPQRI",97,0) + ; +"RTN","C0QPQRI",98,0) +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY +"RTN","C0QPQRI",99,0) + ; +"RTN","C0QPQRI",100,0) + ;N GGG +"RTN","C0QPQRI",101,0) + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH +"RTN","C0QPQRI",102,0) + D INSINNER^C0CXPATH(ZARY,GGG,ZONE) ; INSERT XML +"RTN","C0QPQRI",103,0) + Q +"RTN","C0QPQRI",104,0) + ; +"RTN","C0QPQRI",105,0) +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE +"RTN","C0QPQRI",106,0) + ; +"RTN","C0QPQRI",107,0) + N ZG +"RTN","C0QPQRI",108,0) + S ZG=$NA(^TMP("PQRIXML",$J)) +"RTN","C0QPQRI",109,0) + K @ZG +"RTN","C0QPQRI",110,0) + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML +"RTN","C0QPQRI",111,0) + N C0CDOCID +"RTN","C0QPQRI",112,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML +"RTN","C0QPQRI",113,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS +"RTN","C0QPQRI",114,0) + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",115,0) + Q +"RTN","C0QPQRI",116,0) + ; +"RTN","C0QPQRI",117,0) +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML +"RTN","C0QPQRI",118,0) + ; ZRTN IS PASSED BY REFERENCE +"RTN","C0QPQRI",119,0) + ; ZXML IS PASSED BY NAME +"RTN","C0QPQRI",120,0) + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED +"RTN","C0QPQRI",121,0) + ; +"RTN","C0QPQRI",122,0) + N ZG +"RTN","C0QPQRI",123,0) + S ZG=$NA(^TMP("C0CXML",$J)) +"RTN","C0QPQRI",124,0) + K @ZG +"RTN","C0QPQRI",125,0) + M @ZG=@ZXML +"RTN","C0QPQRI",126,0) + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML +"RTN","C0QPQRI",127,0) + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS +"RTN","C0QPQRI",128,0) + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 +"RTN","C0QPQRI",129,0) + Q +"RTN","C0QPQRI",130,0) + ; +"RTN","C0QPQRI",131,0) +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY +"RTN","C0QPQRI",132,0) + ; +"RTN","C0QPQRI",133,0) + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET +"RTN","C0QPQRI",134,0) + ;N GPL +"RTN","C0QPQRI",135,0) + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") +"RTN","C0QPQRI",136,0) + N ZI S ZI="" +"RTN","C0QPQRI",137,0) + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",138,0) + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) +"RTN","C0QPQRI",139,0) + . N ZMIEN,ZMEAIEN,ZRNAME +"RTN","C0QPQRI",140,0) + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE +"RTN","C0QPQRI",141,0) + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE +"RTN","C0QPQRI",142,0) + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE +"RTN","C0QPQRI",143,0) + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME +"RTN","C0QPQRI",144,0) + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME +"RTN","C0QPQRI",145,0) + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 +"RTN","C0QPQRI",146,0) + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",147,0) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",148,0) + . N ZNUM,ZDEM,ZPCT +"RTN","C0QPQRI",149,0) + . S (ZNUM,ZDEM,ZPCT)=0 +"RTN","C0QPQRI",150,0) + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) +"RTN","C0QPQRI",151,0) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) +"RTN","C0QPQRI",152,0) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) +"RTN","C0QPQRI",153,0) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) +"RTN","C0QPQRI",154,0) + . S @RTN@(ZI,"ien")=ZI +"RTN","C0QPQRI",155,0) + ;ZWR GPL +"RTN","C0QPQRI",156,0) + Q +"RTN","C0QPQRI",157,0) + ; +"RTN","C0QPQRI",158,0) +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY +"RTN","C0QPQRI",159,0) + ; +"RTN","C0QPQRI",160,0) + D GETFM(ZIN) ; GET THE MEASURES +"RTN","C0QPQRI",161,0) + ;N G +"RTN","C0QPQRI",162,0) + ;N ZI,ZJ +"RTN","C0QPQRI",163,0) + S ZI="" +"RTN","C0QPQRI",164,0) + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; +"RTN","C0QPQRI",165,0) + . N ZDEN,ZNUM,ZPCT +"RTN","C0QPQRI",166,0) + . S ZDEN=$G(@ZIN@(ZI,"denominator")) +"RTN","C0QPQRI",167,0) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) +"RTN","C0QPQRI",168,0) + . S ZPCT=$G(@ZIN@(ZI,"percent")) +"RTN","C0QPQRI",169,0) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN +"RTN","C0QPQRI",170,0) + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM +"RTN","C0QPQRI",171,0) + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 +"RTN","C0QPQRI",172,0) + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM +"RTN","C0QPQRI",173,0) + . S G("pqri-measure",ZI,"performance-rate")=ZPCT +"RTN","C0QPQRI",174,0) + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") +"RTN","C0QPQRI",175,0) + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT +"RTN","C0QPQRI",176,0) + K ^TMP("MXMLDOM",$J) +"RTN","C0QPQRI",177,0) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") +"RTN","C0QPQRI",178,0) + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) +"RTN","C0QPQRI",179,0) + Q +"RTN","C0QPQRI",180,0) + ; +"RTN","C0QSET") +0^9^B8764820 +"RTN","C0QSET",1,0) +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm ; 7/31/12 8:19am +"RTN","C0QSET",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QSET",3,0) + ; +"RTN","C0QSET",4,0) + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU +"RTN","C0QSET",5,0) + ;General Public License See attached copy of the License. +"RTN","C0QSET",6,0) + ; +"RTN","C0QSET",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QSET",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QSET",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QSET",10,0) + ;(at your option) any later version. +"RTN","C0QSET",11,0) + ; +"RTN","C0QSET",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QSET",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QSET",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QSET",15,0) + ;GNU General Public License for more details. +"RTN","C0QSET",16,0) + ; +"RTN","C0QSET",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QSET",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QSET",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QSET",20,0) + ; +"RTN","C0QSET",21,0) + Q +"RTN","C0QSET",22,0) + ; +"RTN","C0QSET",23,0) +TEST ; TEST OF UNITY ROUTINE +"RTN","C0QSET",24,0) + ; +"RTN","C0QSET",25,0) + S A(1)="" +"RTN","C0QSET",26,0) + S A(2)="" +"RTN","C0QSET",27,0) + S A(3)="" +"RTN","C0QSET",28,0) + S B(3)="" +"RTN","C0QSET",29,0) + S B(4)="" +"RTN","C0QSET",30,0) + D UNITY("C","A","B") +"RTN","C0QSET",31,0) + D ZWRITE^C0QUTIL("C") +"RTN","C0QSET",32,0) + Q +"RTN","C0QSET",33,0) + ; +"RTN","C0QSET",34,0) +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? +"RTN","C0QSET",35,0) + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? +"RTN","C0QSET",36,0) + S PATS=$NA(^DPT) +"RTN","C0QSET",37,0) + S MEDS=$NA(^PS(55)) +"RTN","C0QSET",38,0) + D UNITY("DELTA",PATS,MEDS) +"RTN","C0QSET",39,0) + W !,"PATIENTS WITH NO MEDS",! +"RTN","C0QSET",40,0) + D ZWRITE^C0QUTIL("DELTA(0,*)") +"RTN","C0QSET",41,0) + W !,"BAD POINTERS IN THE MEDS FILE",! +"RTN","C0QSET",42,0) + D ZWRITE^C0QUTIL("DELTA(2,*)") +"RTN","C0QSET",43,0) + Q +"RTN","C0QSET",44,0) + ; +"RTN","C0QSET",45,0) +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",46,0) + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS +"RTN","C0QSET",47,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",48,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",49,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",50,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",51,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",52,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",53,0) + N ZN S ZN=0 ; COUNT +"RTN","C0QSET",54,0) + N ZI S ZI=0 +"RTN","C0QSET",55,0) + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",56,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",57,0) + . S ZN=ZN+1 +"RTN","C0QSET",58,0) + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT +"RTN","C0QSET",59,0) + S ZI=0 +"RTN","C0QSET",60,0) + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",61,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",62,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",63,0) + S ZI=0 +"RTN","C0QSET",64,0) + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM +"RTN","C0QSET",65,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",66,0) + Q +"RTN","C0QSET",67,0) + ; +"RTN","C0QSET",68,0) +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS +"RTN","C0QSET",69,0) + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST +"RTN","C0QSET",70,0) + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME +"RTN","C0QSET",71,0) + ; FORMAT OF RETURN ARRAY: +"RTN","C0QSET",72,0) + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD +"RTN","C0QSET",73,0) + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING +"RTN","C0QSET",74,0) + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY +"RTN","C0QSET",75,0) + N C0QD ; TEMP WORK ARRAY +"RTN","C0QSET",76,0) + N ZI S ZI="" +"RTN","C0QSET",77,0) + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW +"RTN","C0QSET",78,0) + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW +"RTN","C0QSET",79,0) + S ZI="" +"RTN","C0QSET",80,0) + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD +"RTN","C0QSET",81,0) + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD +"RTN","C0QSET",82,0) + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED +"RTN","C0QSET",83,0) + S ZI="" +"RTN","C0QSET",84,0) + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM +"RTN","C0QSET",85,0) + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY +"RTN","C0QSET",86,0) + Q +"RTN","C0QSET",87,0) + ; +"RTN","C0QSET",88,0) +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD +"RTN","C0QSET",89,0) + N ZD +"RTN","C0QSET",90,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",91,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",92,0) + Q +"RTN","C0QSET",93,0) + ; +"RTN","C0QSET",94,0) +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH +"RTN","C0QSET",95,0) + N ZD +"RTN","C0QSET",96,0) + D UNITY("ZD",ZNEW,ZOLD) +"RTN","C0QSET",97,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",98,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",99,0) + Q +"RTN","C0QSET",100,0) + ; +"RTN","C0QSET",101,0) +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT +"RTN","C0QSET",102,0) + N ZD +"RTN","C0QSET",103,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",104,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",105,0) + Q +"RTN","C0QSET",106,0) + ; +"RTN","C0QSET",107,0) +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH +"RTN","C0QSET",108,0) + N ZD +"RTN","C0QSET",109,0) + D UNITY("ZD",ZA,ZB) +"RTN","C0QSET",110,0) + M @ZRTN=ZD(0) +"RTN","C0QSET",111,0) + M @ZRTN=ZD(1) +"RTN","C0QSET",112,0) + M @ZRTN=ZD(2) +"RTN","C0QSET",113,0) + Q +"RTN","C0QSET",114,0) + ; +"RTN","C0QSET",115,0) +END ;end of C0QSET; +"RTN","C0QUPDT") +0^10^B52683124 +"RTN","C0QUPDT",1,0) +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 7/31/12 8:15am +"RTN","C0QUPDT",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QUPDT",3,0) + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU +"RTN","C0QUPDT",4,0) + ;General Public License See attached copy of the License. +"RTN","C0QUPDT",5,0) + ; +"RTN","C0QUPDT",6,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUPDT",7,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUPDT",8,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUPDT",9,0) + ;(at your option) any later version. +"RTN","C0QUPDT",10,0) + ; +"RTN","C0QUPDT",11,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUPDT",12,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUPDT",13,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUPDT",14,0) + ;GNU General Public License for more details. +"RTN","C0QUPDT",15,0) + ; +"RTN","C0QUPDT",16,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUPDT",17,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUPDT",18,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUPDT",19,0) + ; +"RTN","C0QUPDT",20,0) + Q +"RTN","C0QUPDT",21,0) + ; +"RTN","C0QUPDT",22,0) +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +"RTN","C0QUPDT",23,0) +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +"RTN","C0QUPDT",24,0) +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +"RTN","C0QUPDT",25,0) +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +"RTN","C0QUPDT",26,0) +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +"RTN","C0QUPDT",27,0) +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +"RTN","C0QUPDT",28,0) +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +"RTN","C0QUPDT",29,0) +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +"RTN","C0QUPDT",30,0) +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +"RTN","C0QUPDT",31,0) + ; +"RTN","C0QUPDT",32,0) +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT +"RTN","C0QUPDT",33,0) + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE +"RTN","C0QUPDT",34,0) + ; NUMERATOR AND DENOMINATOR COUNTS +"RTN","C0QUPDT",35,0) + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE +"RTN","C0QUPDT",36,0) + ; +"RTN","C0QUPDT",37,0) + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT +"RTN","C0QUPDT",38,0) + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING +"RTN","C0QUPDT",39,0) + ; +"RTN","C0QUPDT",40,0) + N ZI S ZI="" +"RTN","C0QUPDT",41,0) + N C0QM ; FOR HOLDING THE MEASURES IN THE SET +"RTN","C0QUPDT",42,0) + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? +"RTN","C0QUPDT",43,0) + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" +"RTN","C0QUPDT",44,0) + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES +"RTN","C0QUPDT",45,0) + D DELIST("C0QM") +"RTN","C0QUPDT",46,0) + N ZII S ZII="" +"RTN","C0QUPDT",47,0) + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE +"RTN","C0QUPDT",48,0) + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD +"RTN","C0QUPDT",49,0) + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST +"RTN","C0QUPDT",50,0) + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST +"RTN","C0QUPDT",51,0) + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE +"RTN","C0QUPDT",52,0) + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",53,0) + . I C0QNL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",54,0) + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER +"RTN","C0QUPDT",55,0) + . . I C0QNL'="" S C0QNALT=1 +"RTN","C0QUPDT",56,0) + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh +"RTN","C0QUPDT",57,0) + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",58,0) + . I C0QDL="" D ; CHECK ALTERNATE LIST +"RTN","C0QUPDT",59,0) + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER +"RTN","C0QUPDT",60,0) + . . I C0QDL'="" S C0QDALT=1 +"RTN","C0QUPDT",61,0) + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh +"RTN","C0QUPDT",62,0) + . ; +"RTN","C0QUPDT",63,0) + . ; FIRST PROCESS THE NUMERATOR +"RTN","C0QUPDT",64,0) + . ; +"RTN","C0QUPDT",65,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",66,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",67,0) + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",68,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",69,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",70,0) + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST +"RTN","C0QUPDT",71,0) + . . N ZNEW +"RTN","C0QUPDT",72,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",73,0) + . . K C0QFLTRD +"RTN","C0QUPDT",74,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",75,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",76,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",77,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET +"RTN","C0QUPDT",78,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",79,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",80,0) + . N C0QCNT +"RTN","C0QUPDT",81,0) + . S C0QNCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",82,0) + . I C0QNCNT="" D ; +"RTN","C0QUPDT",83,0) + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",84,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",85,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",86,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",87,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",88,0) + . . . S C0QNCNT=C0QNCNT+1 +"RTN","C0QUPDT",89,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",90,0) + . N C0QONCNT ; OLD COUNT +"RTN","C0QUPDT",91,0) + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) +"RTN","C0QUPDT",92,0) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",93,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT +"RTN","C0QUPDT",94,0) + . . D UPDIE ; UPDATE THE NUMERATOR COUNT +"RTN","C0QUPDT",95,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",96,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",97,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",98,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",99,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",100,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",101,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",102,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",103,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",104,0) + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",105,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",106,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",107,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",108,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",109,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",110,0) + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",111,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",112,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",113,0) + . ; +"RTN","C0QUPDT",114,0) + . ; PROCESS THE DENOMINATOR +"RTN","C0QUPDT",115,0) + . ; +"RTN","C0QUPDT",116,0) + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX +"RTN","C0QUPDT",117,0) + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR +"RTN","C0QUPDT",118,0) + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST +"RTN","C0QUPDT",119,0) + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS +"RTN","C0QUPDT",120,0) + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS +"RTN","C0QUPDT",121,0) + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST +"RTN","C0QUPDT",122,0) + . . N ZNEW +"RTN","C0QUPDT",123,0) + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST +"RTN","C0QUPDT",124,0) + . . K C0QFLTRD +"RTN","C0QUPDT",125,0) + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) +"RTN","C0QUPDT",126,0) + . . S C0QNEW="C0QFLTRD" +"RTN","C0QUPDT",127,0) + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST +"RTN","C0QUPDT",128,0) + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET +"RTN","C0QUPDT",129,0) + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES +"RTN","C0QUPDT",130,0) + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES +"RTN","C0QUPDT",131,0) + . N C0QDCNT +"RTN","C0QUPDT",132,0) + . S C0QDCNT=$G(C0QRSLT("COUNT")) +"RTN","C0QUPDT",133,0) + . I C0QDCNT="" D ; +"RTN","C0QUPDT",134,0) + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO +"RTN","C0QUPDT",135,0) + . . N GZZ S GZZ="" +"RTN","C0QUPDT",136,0) + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY +"RTN","C0QUPDT",137,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",138,0) + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY +"RTN","C0QUPDT",139,0) + . . . S C0QDCNT=C0QDCNT+1 +"RTN","C0QUPDT",140,0) + . K C0QFDA ; CLEAR THE FDA +"RTN","C0QUPDT",141,0) + . N C0QODCNT ; OLD COUNT +"RTN","C0QUPDT",142,0) + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) +"RTN","C0QUPDT",143,0) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED +"RTN","C0QUPDT",144,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT +"RTN","C0QUPDT",145,0) + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT +"RTN","C0QUPDT",146,0) + . I $D(C0QRSLT) D ;B ; +"RTN","C0QUPDT",147,0) + . . ;ZWR C0QRSLT +"RTN","C0QUPDT",148,0) + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE +"RTN","C0QUPDT",149,0) + . ; FIRST PROCESS DELETIONS +"RTN","C0QUPDT",150,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",151,0) + . N ZG,ZIEN S ZG="" +"RTN","C0QUPDT",152,0) + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION +"RTN","C0QUPDT",153,0) + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY +"RTN","C0QUPDT",154,0) + . . I ZIEN="" D Q ; OOPS +"RTN","C0QUPDT",155,0) + . . . W !,"ERROR DELETING ENTRY!! ",ZG +"RTN","C0QUPDT",156,0) + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE +"RTN","C0QUPDT",157,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",158,0) + . ; SECOND, PROCESS ADDITIONS +"RTN","C0QUPDT",159,0) + . K C0QFDA ; CLEAR OUT THE FDA +"RTN","C0QUPDT",160,0) + . N ZG,ZC S ZG="" S ZC=1 +"RTN","C0QUPDT",161,0) + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION +"RTN","C0QUPDT",162,0) + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY +"RTN","C0QUPDT",163,0) + . . S ZC=ZC+1 +"RTN","C0QUPDT",164,0) + . I $D(C0QFDA) D UPDIE ; PROCESS +"RTN","C0QUPDT",165,0) + . N C0QPCT ; PERCENT +"RTN","C0QUPDT",166,0) + . D ; +"RTN","C0QUPDT",167,0) + . . I C0QDCNT>0 D ; +"RTN","C0QUPDT",168,0) + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) +"RTN","C0QUPDT",169,0) + . . E S C0QPCT=0 +"RTN","C0QUPDT",170,0) + . . K C0QFDA +"RTN","C0QUPDT",171,0) + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT +"RTN","C0QUPDT",172,0) + . . D UPDIE +"RTN","C0QUPDT",173,0) + Q +"RTN","C0QUPDT",174,0) + ; +"RTN","C0QUPDT",175,0) +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO +"RTN","C0QUPDT",176,0) + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE +"RTN","C0QUPDT",177,0) + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE +"RTN","C0QUPDT",178,0) + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD +"RTN","C0QUPDT",179,0) + S ZI="" +"RTN","C0QUPDT",180,0) + S ZDI=$NA(^TMP("DILIST",$J)) +"RTN","C0QUPDT",181,0) + K @RTN +"RTN","C0QUPDT",182,0) + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; +"RTN","C0QUPDT",183,0) + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE +"RTN","C0QUPDT",184,0) + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE +"RTN","C0QUPDT",185,0) + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST +"RTN","C0QUPDT",186,0) + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST +"RTN","C0QUPDT",187,0) + . S ZIEN=@ZDI@(2,ZI) ; IEN +"RTN","C0QUPDT",188,0) + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD +"RTN","C0QUPDT",189,0) + . ;S @RTN@("B",IV,ZIEN)=EV +"RTN","C0QUPDT",190,0) + Q +"RTN","C0QUPDT",191,0) + ; +"RTN","C0QUPDT",192,0) +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS +"RTN","C0QUPDT",193,0) + K ZERR +"RTN","C0QUPDT",194,0) + D CLEAN^DILF +"RTN","C0QUPDT",195,0) + D ZWRITE^C0QUTIL("C0QFDA") +"RTN","C0QUPDT",196,0) + D UPDATE^DIE("","C0QFDA","","ZERR") +"RTN","C0QUPDT",197,0) + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED +"RTN","C0QUPDT",198,0) + ;. W "ERROR",! +"RTN","C0QUPDT",199,0) + ;. ZWR ZERR +"RTN","C0QUPDT",200,0) + ;. B +"RTN","C0QUPDT",201,0) + K C0QFDA +"RTN","C0QUPDT",202,0) + Q +"RTN","C0QUPDT",203,0) + ; +"RTN","C0QUTIL") +0^13^B21495692 +"RTN","C0QUTIL",1,0) +C0QUTIL ;JJOH/ZAG/GPL - Utilities for C0Q Package ; 7/31/12 7:42am +"RTN","C0QUTIL",2,0) + ;;1.0;C0Q;;May 21, 2012;Build 68 +"RTN","C0QUTIL",3,0) + ; +"RTN","C0QUTIL",4,0) + ;2011 Licensed under the terms of the GNU General Public License +"RTN","C0QUTIL",5,0) + ;See attached copy of the License. +"RTN","C0QUTIL",6,0) + ; +"RTN","C0QUTIL",7,0) + ;This program is free software; you can redistribute it and/or modify +"RTN","C0QUTIL",8,0) + ;it under the terms of the GNU General Public License as published by +"RTN","C0QUTIL",9,0) + ;the Free Software Foundation; either version 2 of the License, or +"RTN","C0QUTIL",10,0) + ;(at your option) any later version. +"RTN","C0QUTIL",11,0) + ; +"RTN","C0QUTIL",12,0) + ;This program is distributed in the hope that it will be useful, +"RTN","C0QUTIL",13,0) + ;but WITHOUT ANY WARRANTY; without even the implied warranty of +"RTN","C0QUTIL",14,0) + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +"RTN","C0QUTIL",15,0) + ;GNU General Public License for more details. +"RTN","C0QUTIL",16,0) + ; +"RTN","C0QUTIL",17,0) + ;You should have received a copy of the GNU General Public License along +"RTN","C0QUTIL",18,0) + ;with this program; if not, write to the Free Software Foundation, Inc., +"RTN","C0QUTIL",19,0) + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +"RTN","C0QUTIL",20,0) + ; +"RTN","C0QUTIL",21,0) +AGE(DFN) ; return current age in years and months +"RTN","C0QUTIL",22,0) + ; +"RTN","C0QUTIL",23,0) + Q:'$G(DFN) ;quit if no there is no patient +"RTN","C0QUTIL",24,0) + N DOB S DOB=$P(^DPT(+DFN,0),U,3) ;date of birth +"RTN","C0QUTIL",25,0) + N YRS +"RTN","C0QUTIL",26,0) + N DOD S DOD=+$G(^DPT(9,.35)) ;check for date of death +"RTN","C0QUTIL",27,0) + I 'DOD D +"RTN","C0QUTIL",28,0) + . N CDTE S CDTE=DT ;current date +"RTN","C0QUTIL",29,0) + . S YRS=$E(CDTE,1,3)-$E(DOB,1,3)-($E(CDTE,4,7)<$E(DOB,4,7)) +"RTN","C0QUTIL",30,0) + E D +"RTN","C0QUTIL",31,0) + . S YRS=$E(DOD,1,3)-$E(DOB,1,3)-($E(DOD,4,7)<$E(DOB,4,7)) +"RTN","C0QUTIL",32,0) + ; +"RTN","C0QUTIL",33,0) + ;Come back here and fix MONTHS and DAYS +"RTN","C0QUTIL",34,0) + ;N CM S CM=+$E(DT,4,5) ;current month +"RTN","C0QUTIL",35,0) + ;N CD S CD=+$E(DT,6,7) ;current day +"RTN","C0QUTIL",36,0) + ;N BM S BM=+$E(DOB,4,5) ;birth month +"RTN","C0QUTIL",37,0) + ;N BD S BD=+$E(DOB,6,7) ;birth day +"RTN","C0QUTIL",38,0) + ; +"RTN","C0QUTIL",39,0) + ;N DAYS S DAYS="" +"RTN","C0QUTIL",40,0) + ; +"RTN","C0QUTIL",41,0) + Q YRS ;_"y" gpl ..just want the number +"RTN","C0QUTIL",42,0) + ; +"RTN","C0QUTIL",43,0) + ; +"RTN","C0QUTIL",44,0) +DTDIFF(ZD1,ZT1,ZD2,ZT2,SHOW) ; extrinsic which returns the number of minutes +"RTN","C0QUTIL",45,0) + ; between 2 dates. ZD1 and ZD2 are fileman dates +"RTN","C0QUTIL",46,0) + ; ZT1 AND ZT2 are valid times (military time) ie 20:10 +"RTN","C0QUTIL",47,0) + ; IF SHOW=1 DEBUGGING INTERMEDIATE VALUES WILL BE DISPLAYED +"RTN","C0QUTIL",48,0) + I '$D(SHOW) S SHOW=0 +"RTN","C0QUTIL",49,0) + N GT1,GT2,GDT1,GDT2 +"RTN","C0QUTIL",50,0) + I ZT1[":" D ; +"RTN","C0QUTIL",51,0) + . S GT1=($P(ZT1,":",1)*3600)+($P(ZT1,":",2)*60) ; SECONDS +"RTN","C0QUTIL",52,0) + . S GT2=($P(ZT2,":",1)*3600)+($P(ZT2,":",2)*60) ; SECONDS +"RTN","C0QUTIL",53,0) + E D ; +"RTN","C0QUTIL",54,0) + . S GT1=($E(ZT1,1,2)*3600)+($E(ZT1,3,4)*60) +"RTN","C0QUTIL",55,0) + . S GT2=($E(ZT2,1,2)*3600)+($E(ZT2,3,4)*60) +"RTN","C0QUTIL",56,0) + ;W:SHOW !,"SECONDS: ",GT1," ",GT2 +"RTN","C0QUTIL",57,0) + ;S %=GT1 D S^%DTC ; FILEMAN TIME +"RTN","C0QUTIL",58,0) + ;S GDT1=ZD1_% ; FILEMAN DATE AND TIME +"RTN","C0QUTIL",59,0) + ;S %=GT2 D S^%DTC ; FILEMAN TIME +"RTN","C0QUTIL",60,0) + ;S GDT2=ZD2_% ; FILEMAN DATE AND TIME +"RTN","C0QUTIL",61,0) + S GDT1=ZD1_"."_ZT1 +"RTN","C0QUTIL",62,0) + S GDT2=ZD2_"."_ZT2 +"RTN","C0QUTIL",63,0) + W:SHOW !,"FILEMAN: ",GDT1," ",GDT2 +"RTN","C0QUTIL",64,0) + N ZH1,ZH2 +"RTN","C0QUTIL",65,0) + S ZH1=$$FMTH^XLFDT(GDT1) ; $H FORMAT +"RTN","C0QUTIL",66,0) + S ZH2=$$FMTH^XLFDT(GDT2) ; $H FORMAT +"RTN","C0QUTIL",67,0) + W:SHOW !,"$H: ",ZH1," ",ZH2 +"RTN","C0QUTIL",68,0) + N ZSECS,ZMIN +"RTN","C0QUTIL",69,0) + S ZSECS=$$HDIFF^XLFDT(ZH1,ZH2,2) ; DIFFERENCE IN $H +"RTN","C0QUTIL",70,0) + W:SHOW !,"DIFF: ",ZSECS +"RTN","C0QUTIL",71,0) + S ZMIN=ZSECS/60 ; DIFFERENCE IN MINUTES +"RTN","C0QUTIL",72,0) + W:SHOW !,"MIN: ",ZMIN +"RTN","C0QUTIL",73,0) + Q ZMIN +"RTN","C0QUTIL",74,0) + ; +"RTN","C0QUTIL",75,0) +DT(X) ; -- Returns FM date for X +"RTN","C0QUTIL",76,0) + N Y,%DT S %DT="T",Y="" D:X'="" ^%DT +"RTN","C0QUTIL",77,0) + Q Y +"RTN","C0QUTIL",78,0) + ; +"RTN","C0QUTIL",79,0) +ZWRITE(NAME) ; Replacement for ZWRITE ; Public Proc +"RTN","C0QUTIL",80,0) + ; Pass NAME by name as a closed reference. lvn and gvn are both supported. +"RTN","C0QUTIL",81,0) + ; : syntax is not supported (yet) +"RTN","C0QUTIL",82,0) + N L S L=$L(NAME) ; Name length +"RTN","C0QUTIL",83,0) + I $E(NAME,L-2,L)=",*)" S NAME=$E(NAME,1,L-3)_")" ; If last sub is *, remove it and close the ref +"RTN","C0QUTIL",84,0) + N ORIGLAST S ORIGLAST=$QS(NAME,$QL(NAME)) ; Get last subscript upon which we can't loop further +"RTN","C0QUTIL",85,0) + N ORIGQL S ORIGQL=$QL(NAME) ; Number of subscripts in the original name +"RTN","C0QUTIL",86,0) + I $D(@NAME)#2 W NAME,"=",$$FORMAT(@NAME),! ; Write base if it exists +"RTN","C0QUTIL",87,0) + ; $QUERY through the name. +"RTN","C0QUTIL",88,0) + ; Stop when we are out. +"RTN","C0QUTIL",89,0) + ; Stop when the last subscript of the original name isn't the same as +"RTN","C0QUTIL",90,0) + ; the last subscript of the Name. +"RTN","C0QUTIL",91,0) + F S NAME=$Q(@NAME) Q:NAME="" Q:$QS(NAME,ORIGQL)'=ORIGLAST W NAME,"=",$$FORMAT(@NAME),! +"RTN","C0QUTIL",92,0) + QUIT +"RTN","C0QUTIL",93,0) +FORMAT(V) ; Add quotes, replace control characters if necessary; Public $$ +"RTN","C0QUTIL",94,0) + ;If numeric, nothing to do. +"RTN","C0QUTIL",95,0) + ;If no encoding required, then return as quoted string. +"RTN","C0QUTIL",96,0) + ;Otherwise, return as an expression with $C()'s and strings. +"RTN","C0QUTIL",97,0) + I +V=V Q V ; If numeric, just return the value. +"RTN","C0QUTIL",98,0) + N QT S QT="""" ; Quote +"RTN","C0QUTIL",99,0) + I $F(V,QT) D ;chk if V contains any Quotes +"RTN","C0QUTIL",100,0) + . S P=0 ;position pointer into V +"RTN","C0QUTIL",101,0) + . F S P=$F(V,QT,P) Q:'P D ;find next " +"RTN","C0QUTIL",102,0) + . . S $E(V,P-1)=QT_QT ;double each " +"RTN","C0QUTIL",103,0) + . . S P=P+1 ;skip over new " +"RTN","C0QUTIL",104,0) + I $$CCC(V) D Q V ; If control character is present do this and quit +"RTN","C0QUTIL",105,0) + . S V=$$RCC(QT_V_QT) ; Replace control characters in "V" +"RTN","C0QUTIL",106,0) + . S:$E(V,1,3)="""""_" $E(V,1,3)="" ; Replace doubled up quotes at start +"RTN","C0QUTIL",107,0) + . S L=$L(V) S:$E(V,L-2,L)="_""""" $E(V,L-2,L)="" ; Replace doubled up quotes at end +"RTN","C0QUTIL",108,0) + Q QT_V_QT ; If no control charactrrs, quit with "V" +"RTN","C0QUTIL",109,0) + ; +"RTN","C0QUTIL",110,0) +CCC(S) ;test if S Contains a Control Character or $C(255); Public $$ +"RTN","C0QUTIL",111,0) + Q:S?.E1C.E 1 +"RTN","C0QUTIL",112,0) + Q:$F(S,$C(255)) 1 +"RTN","C0QUTIL",113,0) + Q 0 +"RTN","C0QUTIL",114,0) +RCC(NA) ;Replace control chars in NA with $C( ). Returns encoded string; Public $$ +"RTN","C0QUTIL",115,0) + Q:'$$CCC(NA) NA ;No embedded ctrl chars +"RTN","C0QUTIL",116,0) + N OUT S OUT="" ;holds output name +"RTN","C0QUTIL",117,0) + N CC S CC=0 ;count ctrl chars in $C( +"RTN","C0QUTIL",118,0) + N C ;temp hold each char +"RTN","C0QUTIL",119,0) + F I=1:1:$L(NA) S C=$E(NA,I) D ;for each char C in NA +"RTN","C0QUTIL",120,0) + . I C'?1C,C'=C255 D S OUT=OUT_C Q ;not a ctrl char +"RTN","C0QUTIL",121,0) + . . I CC S OUT=OUT_")_""",CC=0 ;close up $C(... if one is open +"RTN","C0QUTIL",122,0) + . I CC D +"RTN","C0QUTIL",123,0) + . . I CC=256 S OUT=OUT_")_$C("_$A(C),CC=0 ;max args in one $C( +"RTN","C0QUTIL",124,0) + . . E S OUT=OUT_","_$A(C) ;add next ctrl char to $C( +"RTN","C0QUTIL",125,0) + . E S OUT=OUT_"""_$C("_$A(C) +"RTN","C0QUTIL",126,0) + . S CC=CC+1 +"RTN","C0QUTIL",127,0) + . Q +"RTN","C0QUTIL",128,0) + Q OUT +"RTN","C0QUTIL",129,0) +END ;end of C0QUTIL +"SEC","^DD",1130580001.101,1130580001.101,3.1,9) + +"SEC","^DIC",178.301,178.301,0,"AUDIT") +@ +"SEC","^DIC",178.301,178.301,0,"DD") +@ +"SEC","^DIC",178.301,178.301,0,"DEL") +@ +"SEC","^DIC",178.301,178.301,0,"LAYGO") +@ +"SEC","^DIC",178.301,178.301,0,"RD") +@ +"SEC","^DIC",178.301,178.301,0,"WR") +@ +"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") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"AUDIT") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"DEL") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"LAYGO") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"RD") +@ +"SEC","^DIC",1130580001.301,1130580001.301,0,"WR") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"AUDIT") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DD") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"DEL") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"LAYGO") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"RD") +@ +"SEC","^DIC",1130580001.401,1130580001.401,0,"WR") +@ +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.01) +SAMPLE MEASURE SET +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.02) +JAN 1,2010 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.03) +DEC 31,2010 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.05) +NO +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.2) +YES +"TEMP","C0Q",1130580001.201,1130580001.201,"?+1,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.01) +HOS 2011 MEANINGFUL USE +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+5,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.01) +EP 2011 MEANINGFUL USE +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+6,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.01) +MU EP 2011 CERTIFICATION +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+7,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.01) +MU 2011 HOS CERTIFICATION +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.02) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.03) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+8,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.01) +MU 2011 INP ATTESTATION +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.02) +JUL 3,2011 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.03) +SEP 30,2011 +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.05) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.2) + +"TEMP","C0Q",1130580001.201,1130580001.201,"?+9,",.3) + +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+10,?+1,",.01) +MU EP NQF 0031 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+100,?+7,",.01) +MU EP NQF 0038 NUM7 PCV +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+101,?+7,",.01) +MU EP NQF 0038 NUM8 HEP A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+102,?+7,",.01) +MU EP NQF 0038 NUM9 RV +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+103,?+7,",.01) +MU EP NQF 0038 NUM10 FLU +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+104,?+7,",.01) +MU EP NQF 0038 NUM11 COMBO5 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+105,?+7,",.01) +MU EP NQF 0038 NUM12 COMBO6 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+106,?+7,",.01) +MU EP NQF 0013 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+107,?+7,",.01) +MU EP NQF 0024 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+108,?+8,",.01) +MU 2011 INP ADV DIRECTIVES +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+109,?+8,",.01) +MU 2011 INP ALLERGY LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+11,?+1,",.01) +PQRI MEASURE 124 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+110,?+8,",.01) +MU 2011 INP CPOE +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+111,?+8,",.01) +MU 2011 INP DEMOGRAPHICS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+112,?+8,",.01) +MU 2011 INP MED LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+113,?+8,",.01) +MU 2011 INP MED RECON +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+114,?+8,",.01) +MU 2011 INP PROBLEM LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+115,?+8,",.01) +MU 2011 INP SMOKING STATUS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+116,?+8,",.01) +MU 2011 INP VITAL SIGNS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+117,?+9,",.01) +MU 2011 INP ADV DIRECTIVES +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+118,?+9,",.01) +MU 2011 INP ALLERGY LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+119,?+9,",.01) +MU 2011 INP CPOE +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+12,?+1,",.01) +MU EP NQF 0421 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+120,?+9,",.01) +MU 2011 INP DEMOGRAPHICS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+121,?+9,",.01) +MU 2011 INP MED LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+122,?+9,",.01) +MU 2011 INP MED RECON +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+123,?+9,",.01) +MU 2011 INP PROBLEM LIST +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+124,?+9,",.01) +MU 2011 INP SMOKING STATUS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+125,?+9,",.01) +MU 2011 INP VITAL SIGNS +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+13,?+1,",.01) +PQRI MEASURE 47 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+14,?+1,",.01) +PQRI MEASURE 48 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+15,?+1,",.01) +MU EP NQF 0081 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+16,?+1,",.01) +MU EP NQF 0064 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+17,?+1,",.01) +MU EP NQF 0061 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+18,?+1,",.01) +MU EP NQF 0070 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+19,?+1,",.01) +PQRI MEASURE 173 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+20,?+1,",.01) +PQRI MEASURE 39 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+21,?+1,",.01) +MU EP NQF 0059 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+22,?+1,",.01) +MU EP NQF 0013 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+23,?+1,",.01) +MU EP NQF 0028A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+24,?+1,",.01) +MU EP NQF 0034 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+25,?+1,",.01) +MU EP NQF 0041 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+26,?+1,",.01) +MU EP NQF 0043 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+27,?+1,",.01) +MU EP NQF 0024 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+28,?+1,",.01) +MU EP NQF 0038 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+29,?+5,",.01) +MU HOS NQF 0495 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+30,?+5,",.01) +MU HOS NQF 0497 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+31,?+5,",.01) +MU HOS NQF 0371 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+32,?+5,",.01) +MU HOS NQF 0372 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+33,?+5,",.01) +MU HOS NQF 0373 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+34,?+5,",.01) +MU HOS NQF 0374 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+35,?+5,",.01) +MU HOS NQF 0375 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+36,?+5,",.01) +MU HOS NQF 0376 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+37,?+5,",.01) +MU HOS NQF 0435 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+38,?+5,",.01) +MU HOS NQF 0436 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+39,?+5,",.01) +MU HOS NQF 0437 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+40,?+5,",.01) +MU HOS NQF 0438 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+41,?+5,",.01) +MU HOS NQF 0441 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+42,?+5,",.01) +MU HOS NQF 0439 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+43,?+5,",.01) +MU HOS NQF 0440 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+44,?+6,",.01) +MU EP NQF 0001 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+45,?+6,",.01) +MU EP NQF 0002 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+46,?+6,",.01) +MU EP NQF 0004 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+47,?+6,",.01) +MU EP NQF 0012 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+48,?+6,",.01) +MU EP NQF 0013 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+49,?+6,",.01) +MU EP NQF 0014 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+50,?+6,",.01) +MU EP NQF 0018 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+51,?+6,",.01) +MU EP NQF 0024 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+52,?+6,",.01) +MU EP NQF 0027 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+53,?+6,",.01) +MU EP NQF 0028A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+54,?+6,",.01) +MU EP NQF 0031 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+55,?+6,",.01) +MU EP NQF 0032 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+56,?+6,",.01) +MU EP NQF 0033 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+57,?+6,",.01) +MU EP NQF 0034 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+58,?+6,",.01) +MU EP NQF 0036 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+59,?+6,",.01) +MU EP NQF 0038 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+60,?+6,",.01) +MU EP NQF 0041 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+61,?+6,",.01) +MU EP NQF 0047 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+62,?+6,",.01) +MU EP NQF 0052 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+63,?+6,",.01) +MU EP NQF 0055 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+64,?+6,",.01) +MU EP NQF 0056 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+65,?+6,",.01) +MU EP NQF 0059 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+66,?+6,",.01) +MU EP NQF 0061 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+67,?+6,",.01) +MU EP NQF 0062 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+68,?+6,",.01) +MU EP NQF 0064 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+69,?+6,",.01) +MU EP NQF 0067 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+70,?+6,",.01) +MU EP NQF 0068 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+71,?+6,",.01) +MU EP NQF 0070 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+72,?+6,",.01) +MU EP NQF 0073 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+73,?+6,",.01) +MU EP NQF 0074 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+74,?+6,",.01) +MU EP NQF 0075 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+75,?+6,",.01) +MU EP NQF 0081 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+76,?+6,",.01) +MU EP NQF 0083 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+77,?+6,",.01) +MU EP NQF 0084 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+78,?+6,",.01) +MU EP NQF 0086 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+79,?+6,",.01) +MU EP NQF 0088 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+80,?+6,",.01) +MU EP NQF 0089 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+81,?+6,",.01) +MU EP NQF 0105 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+82,?+6,",.01) +MU EP NQF 0385 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+83,?+6,",.01) +MU EP NQF 0421 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+84,?+6,",.01) +MU EP NQF 0575 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+85,?+6,",.01) +MU EP NQF 0389 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+86,?+6,",.01) +MU EP NQF 0028B +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+87,?+7,",.01) +MU EP NQF 0028A +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+88,?+7,",.01) +MU EP NQF 0038 NUM1 DPT +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+89,?+7,",.01) +MU EP NQF 0041 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+90,?+7,",.01) +MU EP NQF 0059 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+91,?+7,",.01) +MU EP NQF 0061 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+92,?+7,",.01) +MU EP NQF 0064 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+93,?+7,",.01) +MU EP NQF 0421 +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+94,?+7,",.01) +MU EP NQF 0028B +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+95,?+7,",.01) +MU EP NQF 0038 NUM2 IPV +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+96,?+7,",.01) +MU EP NQF 0038 NUM3 MMR +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+97,?+7,",.01) +MU EP NQF 0038 NUM4 HiB +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+98,?+7,",.01) +MU EP NQF 0038 NUM5 HEP B +"TEMP","C0Q",1130580001.201,1130580001.2011,"?+99,?+7,",.01) +MU EP NQF 0038 NUM6 VZV +"VER") +8.0^22.0 +"^DD",178.301,178.301,0) +FIELD^^2.2^11 +"^DD",178.301,178.301,0,"DDA") +N +"^DD",178.301,178.301,0,"DT") +3100226 +"^DD",178.301,178.301,0,"IX","B",178.301,.01) + +"^DD",178.301,178.301,0,"NM","C0C XML MISC") + +"^DD",178.301,178.301,0,"PT",178.301,.03) + +"^DD",178.301,178.301,0,"VRPK") +C0C +"^DD",178.301,178.301,.01,0) +TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X +"^DD",178.301,178.301,.01,.1) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,1,0) +^.1 +"^DD",178.301,178.301,.01,1,1,0) +178.301^B +"^DD",178.301,178.301,.01,1,1,1) +S ^C0CX(178.301,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.301,.01,1,1,2) +K ^C0CX(178.301,"B",$E(X,1,30),DA) +"^DD",178.301,178.301,.01,3) +NAME OF THE XML TEMPLATE +"^DD",178.301,178.301,.01,"DT") +3100224 +"^DD",178.301,178.301,.03,0) +REPLY TEMPLATE^P178.301^C0CX(178.301,^0;2^Q +"^DD",178.301,178.301,.03,.1) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,3) +TEMPLATE TO USE FOR WEB SERVICE REPLY +"^DD",178.301,178.301,.03,"DT") +3100224 +"^DD",178.301,178.301,1,0) +URL^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,1,.1) +WEB SERVICE URL +"^DD",178.301,178.301,1,3) +WEB SERVICE URL +"^DD",178.301,178.301,1,"DT") +3100224 +"^DD",178.301,178.301,2,0) +WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2,.1) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,3) +TEMPLATE DEFINITION URL - COULD BE WSDL +"^DD",178.301,178.301,2,"DT") +3100224 +"^DD",178.301,178.301,2.1,0) +XML^178.311^^3;0 +"^DD",178.301,178.301,2.2,0) +XML HEADER^178.321^^10;0 +"^DD",178.301,178.301,2.3,0) +MIME TYPE^F^^5;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.3,.1) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,3) +SOAP MIME TYPE +"^DD",178.301,178.301,2.3,"DT") +3100224 +"^DD",178.301,178.301,2.4,0) +PROXY SERVER^F^^6;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.4,.1) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,3) +OPTIONAL PROXY SERVER URL +"^DD",178.301,178.301,2.4,"DT") +3100224 +"^DD",178.301,178.301,2.5,0) +XPATH REDUCTION STRING^F^^7;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.301,2.5,.1) +PARTIAL XPATH TO BE REDACTED FROM GENERATED XPATHS +"^DD",178.301,178.301,2.5,3) +XPATH REDUCTION STRING +"^DD",178.301,178.301,2.5,"DT") +3100224 +"^DD",178.301,178.301,3,0) +TEMPLATE XML^178.3013^^8;0 +"^DD",178.301,178.301,4,0) +BINDING^178.3014^^9;0 +"^DD",178.301,178.3013,0) +TEMPLATE XML SUB-FIELD^^.01^1 +"^DD",178.301,178.3013,0,"DT") +3100224 +"^DD",178.301,178.3013,0,"NM","TEMPLATE XML") + +"^DD",178.301,178.3013,0,"UP") +178.301 +"^DD",178.301,178.3013,.01,0) +TEMPLATE XML^WLx^^0;1 +"^DD",178.301,178.3013,.01,.1) +XML TEMPLATE - USUALLY GENERATED +"^DD",178.301,178.3013,.01,3) +XML TEMPLATE - USUALLY PROGRAM GENERATED +"^DD",178.301,178.3013,.01,"DT") +3100224 +"^DD",178.301,178.3014,0) +BINDING SUB-FIELD^^4^8 +"^DD",178.301,178.3014,0,"DT") +3100224 +"^DD",178.301,178.3014,0,"IX","B",178.3014,.01) + +"^DD",178.301,178.3014,0,"NM","BINDING") + +"^DD",178.301,178.3014,0,"UP") +178.301 +"^DD",178.301,178.3014,.01,0) +XPATH^MF^^0;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,.01,.1) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,1,0) +^.1 +"^DD",178.301,178.3014,.01,1,1,0) +178.3014^B +"^DD",178.301,178.3014,.01,1,1,1) +S ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA)="" +"^DD",178.301,178.3014,.01,1,1,2) +K ^C0CX(178.301,DA(1),9,"B",$E(X,1,30),DA) +"^DD",178.301,178.3014,.01,3) +XPATH BINDINGS +"^DD",178.301,178.3014,.01,"DT") +3100225 +"^DD",178.301,178.3014,.05,0) +INDEXED BY^F^^1;1^K:$L(X)>80!($L(X)<1) X +"^DD",178.301,178.3014,.05,.1) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,3) +IEN VARIABLE FOR FILEMAN MAPPING +"^DD",178.301,178.3014,.05,"DT") +3100224 +"^DD",178.301,178.3014,1,0) +FILEMAN FIELD NAME^F^^1;2^K:$L(X)>60!($L(X)<3) X +"^DD",178.301,178.3014,1,.1) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,3) +NAME OF FILEMAN FIELD - OPTIONAL +"^DD",178.301,178.3014,1,"DT") +3100224 +"^DD",178.301,178.3014,1.1,0) +FILEMAN FILE POINTER^P1'^DIC(^1;3^Q +"^DD",178.301,178.3014,1.1,.1) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,3) +POINTER TO THE FILEMAN FILE +"^DD",178.301,178.3014,1.1,"DT") +3100224 +"^DD",178.301,178.3014,1.2,0) +FILEMAN FIELD NUMBER^NJ22,9^^1;4^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X +"^DD",178.301,178.3014,1.2,.1) +FIELD NUMBER IN FILEMAN +"^DD",178.301,178.3014,1.2,3) +Type a number between .000000001 and 999999999999, 9 Decimal Digits +"^DD",178.301,178.3014,1.2,"DT") +3100224 +"^DD",178.301,178.3014,2,0) +VARIABLE NAME^F^^2;1^K:$L(X)>240!($L(X)<1) X +"^DD",178.301,178.3014,2,.1) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,3) +NAME OF VARIABLE FOR BINDING +"^DD",178.301,178.3014,2,"DT") +3100224 +"^DD",178.301,178.3014,3,0) +SQLI FIELD NAME^F^^3;1^K:$L(X)>240!($L(X)<3) X +"^DD",178.301,178.3014,3,.1) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,3) +SQLI NAME FOR THIS FIELD +"^DD",178.301,178.3014,3,"DT") +3100224 +"^DD",178.301,178.3014,4,0) +CCR VARIABLE^P170^C0CDIC(170,^3;2^Q +"^DD",178.301,178.3014,4,.1) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,3) +CCR DICTIONARY POINTER +"^DD",178.301,178.3014,4,"DT") +3100224 +"^DD",178.301,178.311,0) +XML SUB-FIELD^^.01^1 +"^DD",178.301,178.311,0,"DT") +3100224 +"^DD",178.301,178.311,0,"NM","XML") + +"^DD",178.301,178.311,0,"UP") +178.301 +"^DD",178.301,178.311,.01,0) +XML^WLx^^0;1 +"^DD",178.301,178.311,.01,.1) +DEFINING XML +"^DD",178.301,178.311,.01,3) +DEFINING XML +"^DD",178.301,178.311,.01,"DT") +3100224 +"^DD",178.301,178.321,0) +XML HEADER SUB-FIELD^^.01^1 +"^DD",178.301,178.321,0,"DT") +3100226 +"^DD",178.301,178.321,0,"NM","XML HEADER") + +"^DD",178.301,178.321,0,"UP") +178.301 +"^DD",178.301,178.321,.01,0) +XML HEADER^WLx^^0;1 +"^DD",178.301,178.321,.01,.1) +XML SOAP HEADER +"^DD",178.301,178.321,.01,3) +XML SOAP HEADER +"^DD",178.301,178.321,.01,"DT") +3100226 +"^DD",1130580001.101,1130580001.101,0) +FIELD^^.3^15 +"^DD",1130580001.101,1130580001.101,0,"DDA") +N +"^DD",1130580001.101,1130580001.101,0,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,0,"ID",.7) +W:$D(^(5)) " ",$P(^(5),U,1) +"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY 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^^0 +"^DD",1130580001.101,1130580001.101,.01,3) +Answer must be 1-30 characters in length +"^DD",1130580001.101,1130580001.101,.01,"DT") +3120731 +"^DD",1130580001.101,1130580001.101,.3,0) +MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X +"^DD",1130580001.101,1130580001.101,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.101,1130580001.101,.3,3) +Answer must be 1-30 characters in length. +"^DD",1130580001.101,1130580001.101,.3,"DT") +3111201 +"^DD",1130580001.101,1130580001.101,.5,0) +TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.5,.1) +MEASURE TITLE +"^DD",1130580001.101,1130580001.101,.5,3) +Answer must be 3-240 characters in length +"^DD",1130580001.101,1130580001.101,.5,"DT") +3110430 +"^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,.8,0) +REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X +"^DD",1130580001.101,1130580001.101,.8,.1) +REPORTING MEASURE NAME +"^DD",1130580001.101,1130580001.101,.8,3) +Answer must be 3-30 characters in length +"^DD",1130580001.101,1130580001.101,.8,"DT") +3110615 +"^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,1.1,0) +ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q +"^DD",1130580001.101,1130580001.101,1.1,"DT") +3110805 +"^DD",1130580001.101,1130580001.101,1.5,0) +NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q +"^DD",1130580001.101,1130580001.101,1.5,.1) +LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS +"^DD",1130580001.101,1130580001.101,1.5,"DT") +3110809 +"^DD",1130580001.101,1130580001.101,1.51,0) +ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q +"^DD",1130580001.101,1130580001.101,1.51,.1) +NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE +"^DD",1130580001.101,1130580001.101,1.51,"DT") +3110809 +"^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,2.1,0) +ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q +"^DD",1130580001.101,1130580001.101,2.1,"DT") +3110805 +"^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^^.3^8 +"^DD",1130580001.201,1130580001.201,0,"DDA") +N +"^DD",1130580001.201,1130580001.201,0,"DT") +3111129 +"^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,0,"PT",1130580001.401,1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) + +"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) + +"^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,.3,0) +MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.201,1130580001.201,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.201,1130580001.201,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.201,1130580001.201,.3,"DT") +3111129 +"^DD",1130580001.201,1130580001.201,1,0) +MEASURE^1130580001.2011P^^5;0 +"^DD",1130580001.201,1130580001.2011,0) +MEASURE SUB-FIELD^^2.2^8 +"^DD",1130580001.201,1130580001.2011,0,"DT") +3111129 +"^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,1.2,0) +NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q +"^DD",1130580001.201,1130580001.2011,1.2,.1) +FILTER LIST FOR NUMERATOR +"^DD",1130580001.201,1130580001.2011,1.2,"DT") +3111129 +"^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,2.2,0) +DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q +"^DD",1130580001.201,1130580001.2011,2.2,.1) +FILTER LIST FOR DENOMINATOR +"^DD",1130580001.201,1130580001.2011,2.2,"DT") +3111129 +"^DD",1130580001.201,1130580001.2011,3,0) +PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X +"^DD",1130580001.201,1130580001.2011,3,.1) +MEASURE PERCENTAGE +"^DD",1130580001.201,1130580001.2011,3,3) +Type a number between 0 and 100, 2 Decimal Digits +"^DD",1130580001.201,1130580001.2011,3,"DT") +3110621 +"^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 +"^DD",1130580001.301,1130580001.301,0) +FIELD^^.3^9 +"^DD",1130580001.301,1130580001.301,0,"DDA") +N +"^DD",1130580001.301,1130580001.301,0,"DT") +3111201 +"^DD",1130580001.301,1130580001.301,0,"ID",999) +W:$D(^(3)) " ",$P(^(3),U,1) +"^DD",1130580001.301,1130580001.301,0,"IX","B",1130580001.301,.01) + +"^DD",1130580001.301,1130580001.301,0,"NM","C0Q PATIENT LIST") + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,1.51) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.101,2.1) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.2011,1.2) + +"^DD",1130580001.301,1130580001.301,0,"PT",1130580001.2011,2.2) + +"^DD",1130580001.301,1130580001.301,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.301,1130580001.301,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.301,.01,1,1,0) +1130580001.301^B +"^DD",1130580001.301,1130580001.301,.01,1,1,1) +S ^C0Q(301,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.301,.01,1,1,2) +K ^C0Q(301,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.301,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.301,1130580001.301,.02,0) +REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2011)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.02,3) +Type a number between 2011 and 2050, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.03,0) +REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"."1.N) X +"^DD",1130580001.301,1130580001.301,.03,3) +Type a number between 1 and 12, 0 decimal digits. +"^DD",1130580001.301,1130580001.301,.03,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.04,0) +ORIGINAL DATE CREATED^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X +"^DD",1130580001.301,1130580001.301,.04,3) +(No range limit on date) +"^DD",1130580001.301,1130580001.301,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.07,0) +CREATOR^P200'^VA(200,^0;5^Q +"^DD",1130580001.301,1130580001.301,.07,"DT") +3110805 +"^DD",1130580001.301,1130580001.301,.3,0) +MU YEAR KEY^F^^4;1^K:$L(X)>240!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,.3,.1) +MEANINGFUL USE YEAR KEY +"^DD",1130580001.301,1130580001.301,.3,3) +Answer must be 1-240 characters in length. +"^DD",1130580001.301,1130580001.301,.3,"DT") +3111201 +"^DD",1130580001.301,1130580001.301,30,0) +PATIENTS^1130580001.311P^^1;0 +"^DD",1130580001.301,1130580001.301,200,0) +CREATION DOCUMENTATION^1130580001.321^^2;0 +"^DD",1130580001.301,1130580001.301,999,0) +ATTRIBUTE^F^^3;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.301,999,3) +PATIENT LIST ATTRIBUTE +"^DD",1130580001.301,1130580001.301,999,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0) +PATIENTS SUB-FIELD^^.05^4 +"^DD",1130580001.301,1130580001.311,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,0,"IX","B",1130580001.311,.01) + +"^DD",1130580001.301,1130580001.311,0,"NM","PATIENTS") + +"^DD",1130580001.301,1130580001.311,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.311,.01,0) +PATIENTS^MP2'^DPT(^0;1^Q +"^DD",1130580001.301,1130580001.311,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.311,.01,1,1,0) +1130580001.311^B +"^DD",1130580001.301,1130580001.311,.01,1,1,1) +S ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.311,.01,1,1,2) +K ^C0Q(301,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.311,.01,3) +PATIENTS IN THE LIST +"^DD",1130580001.301,1130580001.311,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.04,0) +DESEASED^S^0:NO;1:YES;^2;1^Q +"^DD",1130580001.301,1130580001.311,.04,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,.05,0) +TEST PATIENT^S^0:NO;1:YES;^2;2^Q +"^DD",1130580001.301,1130580001.311,.05,"DT") +3110805 +"^DD",1130580001.301,1130580001.311,1,0) +DATA^1130580001.3111^^1;0 +"^DD",1130580001.301,1130580001.3111,0) +DATA SUB-FIELD^^.02^2 +"^DD",1130580001.301,1130580001.3111,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,0,"IX","B",1130580001.3111,.01) + +"^DD",1130580001.301,1130580001.3111,0,"NM","DATA") + +"^DD",1130580001.301,1130580001.3111,0,"UP") +1130580001.311 +"^DD",1130580001.301,1130580001.3111,.01,0) +DATA TYPE^MF^^0;1^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.01,1,0) +^.1 +"^DD",1130580001.301,1130580001.3111,.01,1,1,0) +1130580001.3111^B +"^DD",1130580001.301,1130580001.3111,.01,1,1,1) +S ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.301,1130580001.3111,.01,1,1,2) +K ^C0Q(301,DA(2),1,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.301,1130580001.3111,.01,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.01,"DT") +3110805 +"^DD",1130580001.301,1130580001.3111,.02,0) +VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X +"^DD",1130580001.301,1130580001.3111,.02,3) +Answer must be 1-64 characters in length. +"^DD",1130580001.301,1130580001.3111,.02,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0) +CREATION DOCUMENTATION SUB-FIELD^^.01^1 +"^DD",1130580001.301,1130580001.321,0,"DT") +3110805 +"^DD",1130580001.301,1130580001.321,0,"NM","CREATION DOCUMENTATION") + +"^DD",1130580001.301,1130580001.321,0,"UP") +1130580001.301 +"^DD",1130580001.301,1130580001.321,.01,0) +CREATION DOCUMENTATION^W^^0;1 +"^DD",1130580001.301,1130580001.321,.01,3) +DOCUMENTATION +"^DD",1130580001.301,1130580001.321,.01,"DT") +3110805 +"^DD",1130580001.401,1130580001.401,0) +FIELD^^1.015^11 +"^DD",1130580001.401,1130580001.401,0,"DDA") +N +"^DD",1130580001.401,1130580001.401,0,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,0,"IX","B",1130580001.401,.01) + +"^DD",1130580001.401,1130580001.401,0,"NM","C0Q PARAMETER") + +"^DD",1130580001.401,1130580001.401,.01,0) +NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X +"^DD",1130580001.401,1130580001.401,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.401,.01,1,1,0) +1130580001.401^B +"^DD",1130580001.401,1130580001.401,.01,1,1,1) +S ^C0Q(401,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.401,.01,1,1,2) +K ^C0Q(401,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.401,.01,3) +NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION +"^DD",1130580001.401,1130580001.401,.02,0) +MEASUREMENT PERIOD KEY^F^^0;2^K:$L(X)>60!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,.02,.1) +YEAR KEY FOR MEASUREMENT PERIOD IE MU12 +"^DD",1130580001.401,1130580001.401,.02,3) +Answer must be 1-60 characters in length. +"^DD",1130580001.401,1130580001.401,.02,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,.02,21,1,0) +Meaningful Use and Quality Measures are generally computed for a +"^DD",1130580001.401,1130580001.401,.02,21,2,0) +particular fiscal year. The Measurement Period Key changes every year +"^DD",1130580001.401,1130580001.401,.02,21,3,0) +when new parameters are set up to govern the computations for that year. +"^DD",1130580001.401,1130580001.401,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,.03,0) +PARAMETER TYPE^S^INP:INPATIENT;EP:OUTPATIENT;ALL:SUPERUSERS;^0;3^Q +"^DD",1130580001.401,1130580001.401,.03,.1) +C0Q PARAMETER TYPE +"^DD",1130580001.401,1130580001.401,.03,21,0) +^^6^6^3120103^ +"^DD",1130580001.401,1130580001.401,.03,21,1,0) +If the current parameter record is type INP it will define the processing +"^DD",1130580001.401,1130580001.401,.03,21,2,0) +for inpatient patients. Type EP defines the processing for one group of +"^DD",1130580001.401,1130580001.401,.03,21,3,0) +oupatient patients where a group is the patients with a visit at one or +"^DD",1130580001.401,1130580001.401,.03,21,4,0) +more clinics specified in the CLINIC multiple. Type ALL is used to +"^DD",1130580001.401,1130580001.401,.03,21,5,0) +specify a set of subscribers who have access to all Measurement Sets in +"^DD",1130580001.401,1130580001.401,.03,21,6,0) +the specifies Measurement Period. +"^DD",1130580001.401,1130580001.401,.03,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1,0) +INP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;4^Q +"^DD",1130580001.401,1130580001.401,1,.1) +INPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,1.015,0) +DIVISION REPORTING^P40.8'^DG(40.8,^4;1^Q +"^DD",1130580001.401,1130580001.401,1.015,.1) +MEDICAL CENTER DIVISION FOR THIS PARAMETER +"^DD",1130580001.401,1130580001.401,1.015,"DT") +3120207 +"^DD",1130580001.401,1130580001.401,1.1,0) +INP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;5^Q +"^DD",1130580001.401,1130580001.401,1.1,.1) +INPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,1.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2,0) +EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q +"^DD",1130580001.401,1130580001.401,2,.1) +OUTPATIENT MEANINGFUL USE MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.1,0) +EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q +"^DD",1130580001.401,1130580001.401,2.1,.1) +OUTPATIENT QUALITY MEASUREMENT SET +"^DD",1130580001.401,1130580001.401,2.1,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,2.2,0) +CLINIC^1130580001.411P^^1;0 +"^DD",1130580001.401,1130580001.401,2.3,0) +PATIENT LIST LABEL^F^^2;1^K:$L(X)>20!($L(X)<1) X +"^DD",1130580001.401,1130580001.401,2.3,.1) +MU PATIENT LIST LABEL +"^DD",1130580001.401,1130580001.401,2.3,3) +Answer must be 1-20 characters in length. +"^DD",1130580001.401,1130580001.401,2.3,21,0) +^^3^3^3120103^ +"^DD",1130580001.401,1130580001.401,2.3,21,1,0) +When there is more than one clinic in this reporting group, this field is +"^DD",1130580001.401,1130580001.401,2.3,21,2,0) +used to contain a label for the patient lists. If it is not defined, the +"^DD",1130580001.401,1130580001.401,2.3,21,3,0) +name of the first clinic defined is used as the label. +"^DD",1130580001.401,1130580001.401,2.3,"DT") +3120103 +"^DD",1130580001.401,1130580001.401,3,0) +SUBSCRIBER^1130580001.4013P^^3;0 +"^DD",1130580001.401,1130580001.4013,0) +SUBSCRIBER SUB-FIELD^^.02^2 +"^DD",1130580001.401,1130580001.4013,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,0,"IX","B",1130580001.4013,.01) + +"^DD",1130580001.401,1130580001.4013,0,"NM","SUBSCRIBER") + +"^DD",1130580001.401,1130580001.4013,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.4013,.01,0) +SUBSCRIBER^MP200'^VA(200,^0;1^Q +"^DD",1130580001.401,1130580001.4013,.01,.1) +SUBSCRIBERS TO THIS MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.4013,.01,1,1,0) +1130580001.4013^B +"^DD",1130580001.401,1130580001.4013,.01,1,1,1) +S ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.4013,.01,1,1,2) +K ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.4013,.01,"DT") +3120103 +"^DD",1130580001.401,1130580001.4013,.02,0) +DEFAULT^S^1:YES;0:NO;^0;2^Q +"^DD",1130580001.401,1130580001.4013,.02,.1) +DISPLAY AS SUBSCRIBER DEFAULT MEASUREMENT SET +"^DD",1130580001.401,1130580001.4013,.02,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0) +CLINIC SUB-FIELD^^.01^1 +"^DD",1130580001.401,1130580001.411,0,"DT") +3120103 +"^DD",1130580001.401,1130580001.411,0,"IX","B",1130580001.411,.01) + +"^DD",1130580001.401,1130580001.411,0,"NM","CLINIC") + +"^DD",1130580001.401,1130580001.411,0,"UP") +1130580001.401 +"^DD",1130580001.401,1130580001.411,.01,0) +CLINIC^MP44'^SC(^0;1^Q +"^DD",1130580001.401,1130580001.411,.01,.1) +OUTPATIENT CLINIC +"^DD",1130580001.401,1130580001.411,.01,1,0) +^.1 +"^DD",1130580001.401,1130580001.411,.01,1,1,0) +1130580001.411^B +"^DD",1130580001.401,1130580001.411,.01,1,1,1) +S ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA)="" +"^DD",1130580001.401,1130580001.411,.01,1,1,2) +K ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA) +"^DD",1130580001.401,1130580001.411,.01,"DT") +3120103 +"^DIC",178.301,178.301,0) +C0C XML MISC^178.301 +"^DIC",178.301,178.301,0,"GL") +^C0CX(178.301, +"^DIC",178.301,"B","C0C XML MISC",178.301) + +"^DIC",1130580001.101,1130580001.101,0) +C0Q QUALITY MEASURE^1130580001.101 +"^DIC",1130580001.101,1130580001.101,0,"GL") +^C0Q(101, +"^DIC",1130580001.101,"B","C0Q QUALITY 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) + +"^DIC",1130580001.301,1130580001.301,0) +C0Q PATIENT LIST^1130580001.301 +"^DIC",1130580001.301,1130580001.301,0,"GL") +^C0Q(301, +"^DIC",1130580001.301,1130580001.301,"%",0) +^1.005^^0 +"^DIC",1130580001.301,"B","C0Q PATIENT LIST",1130580001.301) + +"^DIC",1130580001.401,1130580001.401,0) +C0Q PARAMETER^1130580001.401 +"^DIC",1130580001.401,1130580001.401,0,"GL") +^C0Q(401, +"^DIC",1130580001.401,1130580001.401,"%",0) +^1.005^^0 +"^DIC",1130580001.401,1130580001.401,"%D",0) +^^7^7^3120103^ +"^DIC",1130580001.401,1130580001.401,"%D",1,0) +This parameter file was created by George Lilly 12/2011 for the C0Q +"^DIC",1130580001.401,1130580001.401,"%D",2,0) +Meaningful Use and Quality Measurement Project funded in part by Oroville +"^DIC",1130580001.401,1130580001.401,"%D",3,0) +Hospital. It controls the updating of Meaningful Use patient lists and +"^DIC",1130580001.401,1130580001.401,"%D",4,0) +C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this +"^DIC",1130580001.401,1130580001.401,"%D",5,0) +file should be updated using the C0Q SETUP options because the +"^DIC",1130580001.401,1130580001.401,"%D",6,0) +combiniation of fields in each record varies depending on the updating +"^DIC",1130580001.401,1130580001.401,"%D",7,0) +behavior that is desired. +"^DIC",1130580001.401,"B","C0Q PARAMETER",1130580001.401) + +**END** +**END** diff --git a/qrda/C0Q/trunk/kids/QUALITY_MEASURES_1.0.TXT b/qrda/C0Q/trunk/kids/QUALITY_MEASURES_1.0.TXT new file mode 100644 index 0000000..c427ae2 --- /dev/null +++ b/qrda/C0Q/trunk/kids/QUALITY_MEASURES_1.0.TXT @@ -0,0 +1,4 @@ +Documentation for the package as well as installation can be found in +Vistapedia. + +http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0 diff --git a/qrda/C0Q/trunk/p/C0Q1P2.m b/qrda/C0Q/trunk/p/C0Q1P2.m new file mode 100644 index 0000000..eb10607 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0Q1P2.m @@ -0,0 +1,169 @@ +C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 2 ; 8/3/12 11:13am + ;;1.0;QUALITY MEASURES;**2**;July 13, 2112; + ; Licensed under package license. See Documentation for license and + ; usage conditions. + ; + ; PEPs: PRE, POST + ; +PRE ; Unified Pre; PEP + D PREREM + QUIT +POST ; Unified Post; PEP + D POSTREM + QUIT + ; + ; Rest of entry points are private + ; + ; +ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install + ; + N LN S LN=1 + ; + ; NQF 0024-alt-core_wt-kids + S ARRAY(LN,1)="MU NQF0024-ALL" + I MODE S ARRAY(LN,2)="07/31/2012@17:49:03" + S LN=LN+1 + ; + ; NQF 0013-core-HTN + S ARRAY(LN,1)="MU NQF0013 HTN_MK" + I MODE S ARRAY(LN,2)="07/06/2011@15:08:53" + S LN=LN+1 + ; + ; NQF 0028a-core-tobacco-access + ; NQF 0028b-core-tobaocc-intervention + S ARRAY(LN,1)="MU NQF0028 TOBACCO_MK" + I MODE S ARRAY(LN,2)="07/06/2011@15:14:49" + S LN=LN+1 + ; + ; NQF 0041-alt-core-flu + S ARRAY(LN,1)="MU NQF0041 FLU_MK" + I MODE S ARRAY(LN,2)="07/06/2011@15:26:59" + S LN=LN+1 + ; + ; NQF 0059-option1-DM-Hbalc + ; NQF 0061-option3-DM-BP + ; NQF 0064-option2-DM-LDL + ; All are in One Reminder Exchange entry + S ARRAY(LN,1)="MU NQF0059_61_64_SMH" + I MODE S ARRAY(LN,2)="07/16/2012@10:46:17" + S LN=LN+1 + ; + ; Inpatient Education Reminders (popularly known as ED-1 and ED-2) + ; NQF 0495 + ; NQF 0497 + S ARRAY(LN,1)="MU NQF 0495 ED-1" + I MODE S ARRAY(LN,2)="07/17/2012@11:47:55" + S LN=LN+1 + S ARRAY(LN,1)="MU NQF 0497 ED-2" + I MODE S ARRAY(LN,2)="07/17/2012@11:50:23" + S LN=LN+1 + ; + ; MU Stroke Measures + ; NQF 0435 + ; NQF 0436 + ; NQF 0437 + ; NQF 0438 + ; NQF 0439 + ; NQF 0440 + ; NQF 0441 + ; NB: Contains two Labs! Must rematch if not on your system. + ; Installation will become talkative + S ARRAY(LN,1)="MU STROKE 2.3.4.5.6.8.10 SMH" + I MODE S ARRAY(LN,2)="07/18/2012@10:33:53" + S LN=LN+1 + ; + ; MU VTE Measures + ; NQF 0371 + ; NQF 0372 + ; NQF 0373 + ; NQF 0374 + ; NQF 0375 + ; NQF 0376 + ; NB: Contains several labs. Must rematch if not on your system. + ; Installation will become talkative + S ARRAY(LN,1)="MU VTE 1.2.3.4.5.6 SMH" + I MODE S ARRAY(LN,2)="07/20/2012@09:48:30" + S LN=LN+1 + ; + ; + ; NQF 0421-core-adult-weight + ; NB: B/c of the presence of patient lists, measures sent as part of + ; an extract. + S ARRAY(LN,1)="MU NQF0421 ADULT BMI SMH" + I MODE S ARRAY(LN,2)="07/26/2012@11:00:17" + S LN=LN+1 + ; + ; NQF 0038-alt-core-childImms + ; NB: Again because of Patient Lists, measures sent as part of an extract + S ARRAY(LN,1)="MU NQF0038 CHILD IMM SMH" + I MODE S ARRAY(LN,2)="07/27/2012@17:48:33" + S LN=LN+1 + ; + ; CPRS Management Dialogs for Outpatient Stuff + ; MU NQF0421 BMI DI + ; MU NQF0041 INFLUENZA MANAGEMENT DI + ; MU NQF0038 IMMUNE MANAGEMENT DI + ; MU NQF0028AB MANAGEMENT DI + ; MU SMOKING STATUS DI + S ARRAY(LN,1)="MU CPRS HELP DIS" + I MODE S ARRAY(LN,2)="08/01/2012@18:32:29" + S LN=LN+1 + ; + QUIT + ; + ; + ;=============================================================== +DELEI ;If the Exchange File entry already exists delete it. + N ARRAY,IC,IND,LIST,LUVALUE,NUM + D ARRAY(1,.ARRAY) + S IC=0 + F S IC=$O(ARRAY(IC)) Q:'IC D + .S LUVALUE(1)=ARRAY(IC,1) + .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST") + .I '$D(LIST) Q + .S NUM=$P(LIST("DILIST",0),U,1) + .I NUM'=0 D + ..F IND=1:1:NUM D + ... N DA,DIK + ... S DIK="^PXD(811.8," + ... S DA=LIST("DILIST",2,IND) + ... D ^DIK + Q + ; + ;=============================================================== +EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to + ;include in the build. This is used in the build to determine which + ;entries to include. + N ARRAY,FOUND,IEN,IC,LUVALUE + D ARRAY(1,.ARRAY) + S FOUND=0 + S IC=0 + F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D + . M LUVALUE=ARRAY(IC) + . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE) + . I IEN=Y S FOUND=1 Q + Q FOUND + ; +PREREM ; + D DELEI + Q +POSTREM ; + D SMEXINS + Q + ;=============================================================== +SMEXINS ;Silent mode install. + N ARRAY,IC,IEN,LUVALUE,PXRMINST + S PXRMINST=1 + D ARRAY(1,.ARRAY) + S IC=0 + F S IC=$O(ARRAY(IC)) Q:'IC D + .M LUVALUE=ARRAY(IC) + .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE) + .I IEN'=0 D + .. N TEXT + .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1) + .. E S TEXT="Installing reminder exchange entry "_LUVALUE(1) + .. D BMES^XPDUTL(TEXT) + .. D INSTALL^PXRMEXSI(IEN,"I",1) + Q + ; diff --git a/qrda/C0Q/trunk/p/C0Q1P4.m b/qrda/C0Q/trunk/p/C0Q1P4.m new file mode 100644 index 0000000..a68e537 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0Q1P4.m @@ -0,0 +1,63 @@ +C0Q1P4 ; GPL - Kids utilities for C0Q 1.0 patch 4 ; 8/2/12 2:46am + ;;1.0;QUALITY MEASURES;**4** +TRAN ; Unified Transport + D TRAN101 + D TRAN201 + QUIT + ; +TRAN101 ; Remove Untransportable pointers in C0Q QUALITY MEASURE; Private EP + ; NB: I am reaching into KIDS's data here. This may not work for future versions + ; of KIDS. However, I am exporting this only; once exported, it should work in + ; any version of KIDS. + N XPDIEN S XPDIEN=$QS(XPDGREF,2) ; Get IEN of KIDS Transport Global + N X S X=$NA(^XTMP("XPDT",XPDIEN,"DATA",1130580001.101)) ; KIDS transports our data here + N IEN S IEN=0 ; Looper + F S IEN=$O(@X@(IEN)) Q:'IEN D ; For each IEN, remove the following: + . S $P(@X@(IEN,0),U,2)="" ; Numerator Patient List + . S $P(@X@(IEN,0),U,3)="" ; Denominator Patient List + . S $P(@X@(IEN,7),U,4)="" ; Negative Numerator List + . S $P(@X@(IEN,7),U,2)="" ; Alternate Numerator List + . S $P(@X@(IEN,7),U,3)="" ; Alternate Denominator List + . S $P(@X@(IEN,7),U,5)="" ; Alternate Negative Numerator List + ; + ; Now oooo how fun I have to remove the pointer resolution data by hand. + ; D1 and D2 constitute the "address" of the origin data. + ; D1 is the IEN,node + ; D2 is the piece. + ; Depending on the combination of the node and the piece, we can decide to + ; remove the data (how fun). To make it clearer, I will use vars called + ; node and piece to be clear. Up above you have a reference of which nodes + ; and pieces we want to get rid of. This makes up the "TARGET LIST" + ; + ; TARGET LIST + N TARLIST + S TARLIST(0,2)="" + S TARLIST(0,3)="" + S TARLIST(7,4)="" + S TARLIST(7,2)="" + S TARLIST(7,3)="" + S TARLIST(7,5)="" + ; + N X,SUB + F SUB="FRV1","FRV1K" S X=$NA(^XTMP("XPDT",XPDIEN,SUB,1130580001.101)) D + . N D1,D2 S (D1,D2)=0 + . F S D1=$O(@X@(D1)) Q:'D1 F S D2=$O(@X@(D1,D2)) Q:'D2 D + . . N NODE,PIECE + . . S NODE=$P(D1,",",2) + . . S PIECE=D2 + . . I $D(TARLIST(NODE,PIECE)) K ^(D2) + QUIT + ; +TRAN201 ; Transport 201 (Measurement Sets file) + N XPDIEN S XPDIEN=$QS(XPDGREF,2) ; Get IEN of KIDS Transport Global + N X S X=$NA(^XTMP("XPDT",XPDIEN,"DATA",1130580001.201)) ; KIDS transports our data here + N IEN1 S IEN1=0 ; Looper + F S IEN1=$O(@X@(IEN1)) Q:'IEN1 D + . N IEN2 S IEN2=0 + . F S IEN2=$O(@X@(IEN1,5,IEN2)) Q:'IEN2 D + . . N Y S Y=$NA(^(IEN2)) ;Grab the reference + . . K @Y@(1),@Y@(2),@Y@(3),@Y@(4) ; nodes to kill off containing untransportable data + QUIT + ; +POST401 ; Post 401 + diff --git a/qrda/C0Q/trunk/p/C0Q1P5.m b/qrda/C0Q/trunk/p/C0Q1P5.m new file mode 100644 index 0000000..e933c34 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0Q1P5.m @@ -0,0 +1,18 @@ +C0Q1P5 ; VEN/SMH - KIDS not transporting Security Codes; workaround. ; 10/17/12 12:12pm + ;;1.0;QUALITY MEASURES;**5**;Oct 17, 2012 + ;; + ; PEPs: TRAN, POST + ; + ; ZEXCEPT: XPDGREF +TRAN ; Pre-transport hook + M @XPDGREF@(1130580001.101)=^DIC(1130580001.101) + M @XPDGREF@(1130580001.201)=^DIC(1130580001.201) + M @XPDGREF@(1130580001.401)=^DIC(1130580001.401) + QUIT + ; + ; ZEXCEPT: XPDGREF +POST ; Post-install hook + M ^DIC(1130580001.101)=@XPDGREF@(1130580001.101) + M ^DIC(1130580001.201)=@XPDGREF@(1130580001.201) + M ^DIC(1130580001.401)=@XPDGREF@(1130580001.401) + QUIT diff --git a/qrda/C0Q/trunk/p/C0QERTIM.m b/qrda/C0Q/trunk/p/C0QERTIM.m new file mode 100644 index 0000000..0c45468 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QERTIM.m @@ -0,0 +1,57 @@ +C0QERTIM ; Time from admission to leaving a hospital location ; 5/23/12 2:26pm + ;;1.0;C0Q;;May 21, 2012;Build 63 +EN ;Get Location + S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT + S LOCATION=+Y + ;Start date + S %DT="AE",%DT("A")="Start DATE: " D ^%DT G:Y=-1 EXIT S START=Y + ;End date + S %DT="AE",%DT("A")="Stop DATE: " D ^%DT G:Y=-1 EXIT S STOP=Y + ;select device: + S %ZIS="Q" D ^%ZIS G EXIT:POP + I $D(IO("Q")) D G EXIT + . S ZTRTN="DQ^C0QERTIM",ZTDESC="Time from admission to leaving a hospital location" + . S ZTSAVE("LOCATION")="",ZTSAVE("START")="",ZTSAVE("STOP")="" + . D ^%ZTLOAD D HOME^%ZIS K IO("Q") + . Q +DQ ; Get down to business + ;sort on admit date/time in file 45, screen on LOSING WARD in sub-file 535. + ;^DGPT("AF",date/time,DA) + S PATCOUNT=0,ADMITIME=START + F S ADMITIME=$O(^DGPT("AF",ADMITIME)) Q:ADMITIME'>0 D + . Q:ADMITIME>STOP + . ;FMIN from ADMISSION DATE piece 2 + . S X=ADMITIME D H^%DTC S FMINDAY=%H,FMINSEC=%T + . S D0="" F S D0=$O(^DGPT("AF",ADMITIME,D0)) Q:D0'>0 D + . . S D1=0 F S D1=$O(^DGPT(D0,535,D1)) Q:D1'>0 D + . . . ;Losing ward in piece 6 of ^DGPT(D0,535,D1,0) + . . . Q:$P($G(^DGPT(D0,535,D1,0)),U,6)'=LOCATION + . . . ;FMOUT from MOVEMENT DATE on leaving in piece 10 + . . . S X=$P($G(^DGPT(D0,535,D1,0)),U,10) D H^%DTC S FMOUTDAY=%H,FMOUTSEC=%T + . . . I FMINDAY=FMOUTDAY S MINUTES=$P((FMOUTSEC-FMINSEC)/60,".") + . . . I FMINDAY'=FMOUTDAY D + . . . . S DIFFDAY=FMOUTDAY-FMINDAY + . . . . S MINUTES=1440*(DIFFDAY-1)+$P((FMOUTSEC+86400-FMINSEC)/60,".") + . . . . Q + . . . S PATCOUNT=PATCOUNT+1 + . . . S ^TMP($J,"PATIENTS",$P(^DPT(+^DGPT(D0,0),0),U))=MINUTES + . . . S ^TMP($J,"MINUTES",MINUTES)=1+$G(^TMP($J,"MINUTES",MINUTES)) + . . . Q + . . Q + . Q + U IO W @IOF + ;list median time from Admission to leaving hospital LOCATION + S MID=$P(PATCOUNT/2,"."),SUM=0 + S MEDIAN=0 F S MEDIAN=$O(^TMP($J,"MINUTES",MEDIAN)) Q:MEDIAN'>0 D + . S SUM=SUM+^TMP($J,"MINUTES",MEDIAN) Q:SUM>MID + . Q + W "The median time spent in ",$P(^DIC(42,LOCATION,0),U)," is ",MEDIAN," minutes.",! + W !,"Patient",?40,"Minutes in ",$P(^DIC(42,LOCATION,0),U) + ;list patient and time from admission to leaving the location + S PATIENT="" F S PATIENT=$O(^TMP($J,"PATIENTS",PATIENT)) Q:PATIENT="" D + . W !,PATIENT,?40," ",^TMP($J,"PATIENTS",PATIENT) +EXIT ; DO CLEANUP + S:$D(ZTQUEUED) ZTREQ="@" + K DIC,START,STOP,LOCATION,PATCOUNT,ADMITIME,FMINDAY,FMINSEC,FMOUTDAY,FMOUTSEC + K POP,D0,D1,DIFFDAY,MINUTES,MID,MEDIAN,PATIENT,^TMP($J) + Q diff --git a/qrda/C0Q/trunk/p/C0QGEN.m b/qrda/C0Q/trunk/p/C0QGEN.m new file mode 100644 index 0000000..41ab1ad --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QGEN.m @@ -0,0 +1,94 @@ +C0QGEN ;GPL - Test Patient Reminder List Generator;7/5/11 8:50pm + ;;1.0;MU PACKAGE;;;Build 19 + ; + ;2011 George Lilly - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +EN ; generate random patient lists for C0Q testing + ; + ; -- here are the attributes in the C0Q PATIENT LIST file + ; + ;^C0Q(301,"CATTR","FailedDemographics",9)="" + ;^C0Q(301,"CATTR","HasAdvancedDirective",15)="" + ;^C0Q(301,"CATTR","HasAllergy",24)="" + ;^C0Q(301,"CATTR","HasDemographics",25)="" + ;^C0Q(301,"CATTR","HasMed",26)="" + ;^C0Q(301,"CATTR","HasMedOrders",10)="" + ;^C0Q(301,"CATTR","HasMedRecon",19)="" + ;^C0Q(301,"CATTR","HasProblem",27)="" + ;^C0Q(301,"CATTR","HasSmokingStatus",12)="" + ;^C0Q(301,"CATTR","HasVitalSigns",16)="" + ;^C0Q(301,"CATTR","NoAdvancedDirective",17)="" + ;^C0Q(301,"CATTR","NoAllergy",28)="" + ;^C0Q(301,"CATTR","NoMed",5)="" + ;^C0Q(301,"CATTR","NoMedOrders",11)="" + ;^C0Q(301,"CATTR","NoMedRecon",20)="" + ;^C0Q(301,"CATTR","NoProblem",29)="" + ;^C0Q(301,"CATTR","NoSmokingStatus",13)="" + ;^C0Q(301,"CATTR","NoVitalSigns",18)="" + ;^C0Q(301,"CATTR","Over65",14)="" + ;^C0Q(301,"CATTR","Patient",30)="" + ;^C0Q(301,"CATTR","XferOfCare",21)="" + N ZI S ZI=0 + N ZX,ZY + K C0QLIST ; variable to pass to update + F S ZI=$O(^DPT(ZI)) Q:+ZI=0 D ; for every patient in the database + . ; + . S C0QLIST("Patient",ZI)="" ; everyone is a patient + . ; + . I $$YN(90) S C0QLIST("HasDemographics",ZI)="" ; + . E S C0QLIST("FailedDemographics",ZI)="" ; + . ; + . I $$YN(40) S C0QLIST("HasAdvancedDirective",ZI)="" ; + . E S C0QLIST("NoAdvancedDirective",ZI)="" ; + . ; + . I $$YN(60) S C0QLIST("HasAllergy",ZI)="" ; + . E S C0QLIST("NoAllergy",ZI)="" ; + . ; + . I $$YN(65) S C0QLIST("HasMed",ZI)="" ; + . E S C0QLIST("NoMed",ZI)="" ; + . ; + . I $$YN(80) S C0QLIST("HasMedOrders",ZI)="" ; + . E S C0QLIST("NoMedOrders",ZI)="" ; + . ; + . I $$YN(35) S C0QLIST("HasMedRecon",ZI)="" ; + . E S C0QLIST("NoMedRecon",ZI)="" ; + . ; + . I $$YN(80) S C0QLIST("HasProblem",ZI)="" ; + . E S C0QLIST("NoProblem",ZI)="" ; + . ; + . I $$YN(70) S C0QLIST("HasSmokingStatus",ZI)="" ; + . E S C0QLIST("NoSmokingStatus",ZI)="" ; + . ; + . I $$YN(85) S C0QLIST("HasVitalSigns",ZI)="" ; + . E S C0QLIST("NoVitalSigns",ZI)="" ; + . ; + . I $$YN(20) S C0QLIST("Over65",ZI)="" ; + D FILE^C0QPRML ; update the patient list file + ; then update the measure set + D UPDATE^C0QUPDT(.G,8) ; the MU 2011 INP ATTESTATION measure set ien + Q + ; +YN(ZPCT) ; extrinsic which says yes or no based on a percent ZPCT + ; for example $$YN(70) will say "yes" 70% of the time + N ZN + S ZN=0 + I $R(100)0 S GMRANODE=$S($D(^GMR(120.8,GMRAREC,0)):^(0),1:"") D:GMRANODE SETAL + I GMRAL=1,+$O(GMRAL(0))'>0 S GMRAL=0 ;if flag is set to 1 (reactions exist), then make certain the reactions are passed in the GMRAL array + K GMRA,GMRANODE,GMRAOSOF,GMRAREC,GMRATCNT + Q +SETAL ; + N %,GMRAI,GMRASIGN + ;Q:'$P(GMRANODE,"^",12)&'$D(GMRAOSOF) ;IF NOT SIGNED OFF MARK IT + Q:+$G(^GMR(120.8,GMRAREC,"ER"))&'$D(GMRAERR) ;IF ENTERED IN ERROR QUIT + I GMRAL'=1 S GMRAL=1 ; PATIENT HAS ALLERGIES + S GMRAI=0 ; BEGIN CHECK FOR ADR/ALL CRITERIA + I $P(GMRA,"^",4),$P(GMRANODE,"^",6)="h" Q ;QUIT IF HISTORICAL EXCLUDED **LOCAL + I '$P(GMRA,"^") S GMRAI=1 + E I $P(GMRA,"^")=1 S:$F("AU",$P(GMRANODE,"^",14))>1 GMRAI=1 + E S:$F("P",$P(GMRANODE,"^",14))>1 GMRAI=1 + Q:'GMRAI ; QUIT IF ADR/ALL CRITERIA NOT MET + Q:2-$P(GMRA,"^",2)=(1-$P(GMRANODE,"^",16)) ;QUIT IF VER/NON VER CRITERIA NOT MET + S GMRAI=0 ; BEGIN CHECK FOR ALLERGY TYPE CRITERIA + F %=1:1:3 I $E($P(GMRA,"^",3),%),$P(GMRANODE,"^",20)[$E("OFD",%) S GMRAI=1 Q + Q:'GMRAI ; QUIT IF ALLERGY TYPE CRITERIA NOT MET + D PASS(GMRAREC,.GMRAL) + Q +PASS(GMRAREC,GMRAL) ; Data filer + ; This subroutine will store all the patient date for a reaction is an + ; array. + ; Input: + ; GMRAREC = The IEN for the entry in 120.8 + ;Output: + ; GMRAL(GMRAREC) the array entry for the record + ; + N GMRANODE + S GMRANODE=$G(^GMR(120.8,GMRAREC,0)) Q:GMRANODE="" + S %=$P(GMRANODE,"^",14) + S GMRAL(GMRAREC)=$P(GMRANODE,"^",1,2)_"^"_$E($P(GMRANODE,"^",20))_"^"_+$P(GMRANODE,"^",16)_"^"_$S(%="A"!(%="U"):0,1:1) + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$S(%="A":"ALLERGY;0",%="P":"PHARMACOLOGIC;2",%="U":"UNKNOWN;U",1:"")_"^"_$P(GMRANODE,"^",20)_"^"_$S(%="A":"ALLERGY;A",%="P":"PHARMACOLOGIC;P",%="U":"UNKNOWN;U",1:"") + S GMRAL(GMRAREC)=GMRAL(GMRAREC)_"^"_$P(GMRANODE,"^",3) + Q:'$O(^GMR(120.8,GMRAREC,10,0)) ;QUIT IF NO SIGNS/SYMPTOMS + S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0)) + S GMRAX=0,GMRAY=1 F S GMRAX=$O(^GMR(120.8,GMRAREC,10,GMRAX)) Q:GMRAX<1 D I GMRAZ'="" S GMRAL(GMRAREC,"S",GMRAY)=GMRAZ(1),GMRAY=GMRAY+1 + .S GMRAZ=$G(^GMR(120.8,GMRAREC,10,GMRAX,0)) + .S GMRAZ(1)=$S(+GMRAZ'=GMRAOTH:$P($G(^GMRD(120.83,+GMRAZ,0)),U)_";"_+GMRAZ,1:$P(GMRAZ,U,2)_";"_+GMRAZ) + .Q + K GMRAX,GMRAY,GMRAZ + Q diff --git a/qrda/C0Q/trunk/p/C0QGMTSA.m b/qrda/C0Q/trunk/p/C0QGMTSA.m new file mode 100644 index 0000000..7a63087 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QGMTSA.m @@ -0,0 +1,26 @@ +C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ; External References + ; DBIA 10096 ^%ZOSF("TEST" + ; DBIA 10099 EN1^GMRADPT **LOCAL NOW EN1^C0QGMRAD + ; +ALLRG ; Allergies + N I,Z,X,SEQ,GMTSA,ALLRG K GMTSA S (SEQ,ALLRG)=0 S X="C0QGMRAD" X ^%ZOSF("TEST") + I $T D Q:$D(GMTSQIT) + . D GETALLRG I ALLRG D + . . D CKP^GMTSUP Q:$D(GMTSQIT) W ?3,"Allergy/Reaction: " D ALLRGP + Q +ALLRGP ; Allergy Print + D CKP^GMTSUP Q:$D(GMTSQIT) W ?21 S X=0 + F I=0:0 S I=$O(GMTSA(I)) Q:I="" D Q:$D(GMTSQIT) + . S X=X+1 W:X>1 ", " W:(77)'>($X+$L(GMTSA(I))) ! + . D CKP^GMTSUP Q:$D(GMTSQIT) W GMTSA(I) + Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W ! Q +GETALLRG ; Get Allergies + N GMI,GMJ,GMRAL D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q + I GMRAL="0" S ALLRG=1,GMTSA(1)="No Known Allergies" Q + S ALLRG=1,GMI=0 F S GMI=$O(GMRAL(GMI)) Q:GMI'>0 D + . S GMTSA(GMI)=$P(GMRAL(GMI),U,2) + . S GMJ=0 F S GMJ=$O(GMTSA(GMJ)) Q:GMJ'>0 I GMI'=GMJ,(GMTSA(GMI)=$G(GMTSA(GMJ))) K GMTSA(GMI) Q + Q diff --git a/qrda/C0Q/trunk/p/C0QGMTSG.m b/qrda/C0Q/trunk/p/C0QGMTSG.m new file mode 100644 index 0000000..cb9c797 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QGMTSG.m @@ -0,0 +1,101 @@ +C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ; External References + ; DBIA 10096 ^%ZOSF("TEST" + ; DBIA 10035 ^DPT( + ; DBIA 905 ^GMR(120.8 + ; DBIA 2056 $$GET1^DIQ (file #120.86 and #200) + ; DBIA 10011 ^DIWP + ; DBIA 10099 EN1^GMRADPT **LOCAL changed to C0QGMRAD + ; DBIA 10060 ^VA(200, + ; DBIA 3449 ^GMR(120.86, + ; +ALLRG ; Allergies + N X,GMTSALAS,GMTSALAD,GMTSALAW,GMTSALAT,GMTSAV,GMTSAFN,GMRAL,GMTSAL + N GMTSALNM,GMTSCNT,GMTSEACT,GMTSLN,GMTSMECH,GMTSPRT,GMTSTY,CC,C,KK + N ALLRG,TITLE,JJ K GMTSA S (SEQ,ALLRG)=0,TITLE="ALLERGY/ADVERSE REACTION (AR)" + S X="C0QGMRAD" X ^%ZOSF("TEST") + I $T D Q:$D(GMTSQIT) + . D GETALLRG D:ALLRG TITLE,ALLRGP D:'ALLRG&($L($G(GMTSALAS))) TITLE,NKA + I 'ALLRG,'$L($G(GMTSALAS)) D + . I $D(GMTSPNF)&('ALLRG) D CKP^GMTSUP Q:$D(GMTSQIT) W "Unknown, please evaluate",! + K ALL,CC,CCC,CD,DIWF,DIWL,DIWR,GMTSALF,GMTSALNM,GMTSNODE,GMTSPRT,I,II,JJ,KK,L,M,MX,N,Z,X,SEQ,GMTSA,ALLRG,TITLE,GMRA,GMRAL,GMTSEACT,GMTSMECH,GMTSTY,GMTSPFN,GMTSAL,GMTSCNT,GMTSLN,ODT + Q +ALLRGP ; Allergy Print + S II="" F S II=$O(GMTSAL(II)) Q:II']"" I $O(GMTSAL(II,""))]"" D + . D CKP^GMTSUP Q:$D(GMTSQIT) W !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") + . S JJ="" F S JJ=$O(GMTSAL(II,JJ)) Q:JJ="" D + .. N WKK S KK="" F S KK=$O(GMTSAL(II,JJ,KK)) Q:KK="" D + ... S L=0 F S L=$O(GMTSAL(II,JJ,KK,L)) Q:'L D CKP^GMTSUP Q:$D(GMTSQIT) D AUTOV W !?5,JJ_": " S:$L(KK)>30 WKK=KK,WKK=$$WRAP^GMTSORC(WKK,30) W ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK) D + .... I GMTSAV=1 W " (AV" + .... E W $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") + .... W $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")") + .... I $L($P($G(WKK),"|",2)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,$P(WKK,"|",2) + .... S (M,MX,ALL)=0 F S M=$O(GMTSAL(II,JJ,KK,L,"S",M)) Q:M="" D Q:$D(GMTSQIT) + ..... I ALL=0 D CKP^GMTSUP Q:$D(GMTSQIT) W !?27 + ..... S MX=MX+1 + ..... W:MX>1 ", " + ..... S N=$P(GMTSAL(II,JJ,KK,L,"S",M),";") + ..... S ALL=1 I (74)'>($X+$L(N)) D CKP^GMTSUP Q:$D(GMTSQIT) W !,?27,N Q + ..... S ALL=1 W N + .... D SIGBLK($P(GMTSAFN,U,5)) + .... D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Date/Time: " S ODT=$P(GMTSAFN,U,4) S X=ODT D REGDTM4^GMTSU W X,! + ....S CC="" F S CC=$O(^GMR(120.8,GMTSALNM,26,"B",CC)) Q:CC="" D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,"Comments at: " S X=CC D REGDTM4^GMTSU S CD=X S CCC=0 F S CCC=$O(^GMR(120.8,GMTSALNM,26,"B",CC,CCC)) Q:'CCC D TEXT + Q +NKA ; No known allergies + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD))) ! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS)) ?22,$G(GMTSALAS),! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAS))!($L($G(GMTSALAD)))!($L($G(GMTSALAW))) ?24,"Assessment date: ",$G(GMTSALAD),! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW)) ?28,"Assessed by: ",GMTSALAW,! + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L($G(GMTSALAW))&($L($G(GMTSALAT))) ?34,"Title: ",GMTSALAT,! + Q +GETALLRG ; Get Allergies + S GMRA="0^0^111^1" D EN1^C0QGMRAD I GMRAL="" S ALLRG=0 Q + I +($G(DFN))>0,+($G(GMRAL))=0 D ALLAS S ALLRG=0 Q + I $D(GMRAL)>9 D + . S I=0 F GMTSCNT=1:1 S I=$O(GMRAL(I)) Q:'I D + .. S GMTSTY=$P(GMRAL(I),U,7) Q:GMTSTY']"" + .. S GMTSEACT=$P(GMRAL(I),U,2) Q:GMTSEACT']"" + .. S GMTSMECH=$P($P(GMRAL(I),U,8),";") + .. S:GMTSMECH']"" GMTSMECH="UNKNOWN" + .. S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT)=I_"^"_GMRAL(I) + .. S JJ=0 F S JJ=$O(GMRAL(I,"S",JJ)) Q:'JJ S GMTSAL(GMTSTY,GMTSMECH,GMTSEACT,GMTSCNT,"S",JJ)=GMRAL(I,"S",JJ) + .. S ALLRG=1 + Q +ALLAS ; Allergy Assessment + N X,GMTSALG1,GMTSALG2,GMTSALG3,GMTSAU S (GMTSALAS,GMTSALAD,GMTSALAW)="" S GMTSALAS="No known allergies" + S GMTSALAD=$$GET1^DIQ(120.86,+($G(DFN)),3,"I",,"GMTSALG2") S:$D(GMTSALG2) GMTSALAD="" S:+GMTSALAD=0 GMTSALAD="" + I +GMTSALAD>0 S X=GMTSALAD D REGDT4^GMTSU S GMTSALAD=X + S GMTSAU=$$GET1^DIQ(120.86,+($G(DFN)),2,"I") + S GMTSALAW=$$GET1^DIQ(200,(+GMTSAU_","),.01,"E",,"GMTSALG3") + S GMTSALAT=$$GET1^DIQ(200,(+GMTSAU_","),20.3) + S:$D(GMTSALG3) (GMTSALAW,GMTSALAT)="" + Q +AUTOV ; Autoverify + S GMTSAV=0,GMTSALNM=$P(GMTSAL(II,JJ,KK,L),U),GMTSAFN=$G(^GMR(120.8,GMTSALNM,0)) + I $P(GMTSAFN,U,18)="",$P(GMTSAFN,U,16)=1 S GMTSAV=1 + Q +TITLE ; Print title + D CKP^GMTSUP Q:$D(GMTSQIT) + I $D(GMTSPNF) W ?21,TITLE,! + E W ?21,"Title: ",TITLE,! + Q +TEXT ; Setup for print of allergy comments + W ?31,CD D CKP^GMTSUP Q:$D(GMTSQIT) + K ^UTILITY($J,"W") S GMTSLN=0 F S GMTSLN=$O(^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN)) Q:'GMTSLN S GMTSPRT=^GMR(120.8,GMTSALNM,26,CCC,2,GMTSLN,0) D FORMAT + I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT) + K ^UTILITY($J,"W") + Q:'GMTSLN + W ! Q +FORMAT ; Formats each line + S DIWL=3,DIWR=80,DIWF="C58",X=GMTSPRT D ^DIWP + Q +LINE ; Writes formatted lines of text + D CKP^GMTSUP Q:$D(GMTSQIT) W !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) + Q +SIGBLK(GMTSALF) ; Signature block + Q:+GMTSALF'>0 N GMTSSB,GMTSST,GMTSSN S GMTSSB=$$GET1^DIQ(200,(+GMTSALF_","),20.2),GMTSST=$$GET1^DIQ(200,(+GMTSALF_","),20.3),GMTSSN=$$GET1^DIQ(200,(+GMTSALF_","),.01) + D CKP^GMTSUP Q:$D(GMTSQIT) W !!,?24,"Originator: ",$S(GMTSSB'="":GMTSSB,1:GMTSSN) + D CKP^GMTSUP Q:$D(GMTSQIT) W:$L(GMTSST) !,?24,"Title: ",GMTSST + Q diff --git a/qrda/C0Q/trunk/p/C0QHF.m b/qrda/C0Q/trunk/p/C0QHF.m new file mode 100644 index 0000000..b81a43b --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QHF.m @@ -0,0 +1,91 @@ +C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 + ;;1.0;C0Q;;May 21, 2012;Build 63 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; + ; these routines are for quick lookups on HEALTH FACTOR and V HEALTH FACTOR + ; files... + ; + ; from the DD: + ;STANDARD DATA DICTIONARY #9000010.23 -- V HEALTH FACTORS FILE + ;STORED IN ^AUPNVHF( (6744 ENTRIES) + ;CROSS REFERENCED BY: PATIENT NAME(AATOO), HEALTH FACTOR(AATOO1), VISIT(AD), + ; VISIT(AV10), HEALTH FACTOR(B), PATIENT NAME(C) + ; + ;STANDARD DATA DICTIONARY #9999999.64 -- HEALTH FACTORS FILE + ;STORED IN ^AUTTHF( (8656 ENTRIES) + ;CROSS REFERENCED BY: CATEGORY(AC), ENTRY TYPE(AD), FACTOR(B), SYNONYM(D) + ; +HFYN(DFN,C0QHF) ; EXTRINSIC RETURNS 1 (YES) OR 0 (NO) IF A PATIENT + ; HAS A HEALTH FACTOR + N ZI,ZJ,ZR + S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN + I ZI="" D Q 0 ; + . W !,"BAD HEALTH FACTOR: ",C0QHF + I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1 + E S ZR=0 + Q ZR + ; +HFIEN(ZHF) ; EXTRINSIC RETURNS THE IEN OF THE HEALTHFACTOR + N ZI + S ZI=$O(^AUTTHF("B",ZHF,"")) ; HEALTH FACTOR IEN + Q ZI + ; +VHFIEN(DFN,ZHF) ; EXTRINSIC RETURNS THE LAST IEN OF THIS HEALTH FACTOR + ; FOR THE PATIENT + N ZG,ZJ,ZK + S ZG=$$HFIEN(ZHF) + I ZG="" Q ; OPPS HEALTH FACTOR NOT FOUND + S ZJ=$O(^AUPNVHF("AA",DFN,ZG,""),-1) ;DATE + S ZK=$O(^AUPNVHF("AA",DFN,ZG,ZJ,"")) ;IEN + Q ZK + ; +HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY + ; RTN IS PASSED BY REFERENCE AND RETURNS AN ARRAY OF HEALTH FACTORS + ; THAT THE PATIENT HAS IN THE CATEGORY. RETURNS NULL IF NONE + ; FORMAT RNT(HEALTH FACTOR IEN,HEALTH FACTOR NAME)="" + N ZI + S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN + N C0QN,C0QO,C0QR + S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS + S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; THE DIFFERENCE + K RTN ; CLEAR THE RETURN ARRAY + N ZJ S ZJ="" + F S ZJ=$O(C0QR(1,ZJ)) Q:ZJ="" D ; FOR ALL HEALTH FACTOR MATCHES + . S RTN(ZJ,$P(^AUTTHF(ZJ,0),"^",1))="" + Q + ; +HFLCAT(RTN,C0QHFCAT) ; RETURNS A LIST OF PATIENTS WHO HAVE A HEALTH FACTOR + ; IN THE C0QHFCAT CATEGORY. RTN IS PASSED BY REFERENCE + ; THIS WILL BE HARD TO DO WITHOUT SOME NEW INDEXES + Q + ; +HFLPAT(RTN,C0QHF) ; RETURNS A LIST OF PATIENTS WHO HAVE A SPECIFIC HEALTH + ; FACTOR. RTN IS PASSED BY REFERENCE + ; THIS ONE ALSO WILL BE HARD TO DO QUICKLY WITHOUT A NEW INDEX + Q + ; +INDEXES(DDREF) ;PRINT THE INDEXES ACTUALLY ON FILE DDREF + ; IE D INDEXES($NA(^DD)) + N ZI + S ZI="A" + F S ZI=$O(@DDREF@(ZI)) Q:ZI="" W !,ZI + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QIMMUN.m b/qrda/C0Q/trunk/p/C0QIMMUN.m new file mode 100644 index 0000000..8598dc8 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QIMMUN.m @@ -0,0 +1,57 @@ +C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; 5/23/12 5:40pm + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; ^XTMP("C0QIMMUN",0)=purge date^create date + ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value + ; ^XTMP("C0QIMMUN","LASTORDR")=last order processed + ; Changed by VEN/SMH to add timeout to the locks on May 23 2012 +FIND ; Find the next set of immunization orders + N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR + S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR")) + N C0QFAIL S C0QFAIL=0 ; Lock fail flag + W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR + S DIR("A")="Do you want to reset that value" + S DIR(0)="Y",DIR("B")="NO" D ^DIR D:Y=1 + . S DIR("A")="What value shall be used?" + . S DIR(0)="NO",DIR("B")=LASTORDR D ^DIR + . W:Y'>0 !,"We'll skip reseting it then." + . D:Y>0 + . . S LASTORDR=+Y + . . L +^XTMP("C0QIMMUN"):0 + . . E S C0QFAIL=1 QUIT + . . S X1=DT,X2=365 D C^%DTC + . . S ^XTMP("C0QIMMUN",0)=X_U_DT + . . S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR + . . L -^XTMP("C0QIMMUN") + . . Q + . Q + I C0QFAIL W !,"Failed to acquire lock, exiting..." QUIT + S DIR("A")="Ready to prep more immunization orders for HL7 messages" + S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1 + L +^XTMP("C0QIMMUN"):0 + E W !,"Failed to acquire lock; exiting..." QUIT + I '$D(^XTMP("C0QIMMUN",0)) D + . S X1=DT,X2=365 D C^%DTC + . S ^XTMP("C0QIMMUN",0)=X_U_DT + . S ^XTMP("C0QIMMUN","LASTORDR")=0 + S ORDER=^XTMP("C0QIMMUN","LASTORDR") + F S ORDER=$O(^OR(100,ORDER)) Q:ORDER'>0 D + . S LASTORDR=ORDER + . D:$D(^OR(100,ORDER,4.5,"ID","ORZ HL7")) GOTONE + . Q + S ^XTMP("C0QIMMUN","LASTORDR")=LASTORDR + W !,"Done",!,"Last Order processed: ",LASTORDR,! + L -^XTMP("C0QIMMUN") + Q +GOTONE ; Take the order number and move the relevant HL7 information into ^XTMP + S NOW=$P(^OR(100,ORDER,0),U,7) + S ^XTMP("C0QIMMUN",NOW,ORDER,"PATIENT")=$P(^OR(100,ORDER,0),U,2) + S ^XTMP("C0QIMMUN",NOW,ORDER,"LOCATION")=$P(^OR(100,ORDER,0),U,10) + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDEREDBY")=$P(^OR(100,ORDER,0),U,6) + S ENTRY=0 F S ENTRY=$O(^OR(100,ORDER,4.5,ENTRY)) Q:ENTRY'>0 D + . S SUBSC=$P($G(^OR(100,ORDER,4.5,ENTRY,0)),U,4) + . Q:'$L(SUBSC) + . I SUBSC'="TIME" S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=^OR(100,ORDER,4.5,ENTRY,1) + . E S X=^OR(100,ORDER,4.5,ENTRY,1),%DT="TS" D ^%DT S ^XTMP("C0QIMMUN",NOW,ORDER,SUBSC)=Y + . Q + S ^XTMP("C0QIMMUN",NOW,ORDER,"ORDERTEXT")=$G(^OR(100,ORDER,8,1,.1,1,0)) + Q diff --git a/qrda/C0Q/trunk/p/C0QINIT.m b/qrda/C0Q/trunk/p/C0QINIT.m new file mode 100644 index 0000000..6ef99f9 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QINIT.m @@ -0,0 +1,72 @@ +C0QINIT ; GPL - Quality Reporting Initialization Routines ; 7/31/12 8:16am + ;;1.0;C0Q;;May 21, 2012;Build 63 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; + ; +COPYQ ; INTERACTIVE COPY OF A QUALITY MEASURE + N FN + S FN=$$C0QQFN + S DIC=FN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QIEN=$P(Y,U) + ;N G,ZWP + D GETS^DIQ(FN,C0QIEN,"**","EI","G") + M ZWP=G(FN,C0QIEN_",",.61) + ; GET READY TO CREATE THE NEW COPY + ; FIRST FIND OUT THE NEW NAME + N QNAME + S QNAME=G(FN,C0QIEN_",",.01,"E") + S DIR(0)="F^3:240" + S DIR("A")="New Measure Name" + S DIR("B")=QNAME + D ^DIR + I Y="^" Q ; + N QNEW + S QNEW=Y + K C0QFDA + N ZI S ZI="" + F S ZI=$O(G(FN,C0QIEN_",",ZI)) Q:ZI="" D ; FOR EACH FIELD + . I ZI=.01 D Q ; THE NEW NAME + . . S C0QFDA(FN,"+1,",.01)=QNEW ; NEW MEASURE NAME + . I ZI=3.1 Q ; SKIP THE COMPUTED FIELD + . S C0QFDA(FN,"+1,",ZI)=G(FN,C0QIEN_",",ZI,"I") + D UPDIE ; CREATE THE NEW RECORD + S DIE=$$C0QQFN ; GET READY TO EDIT IT + D EN^DIB ; EDIT THE NEW RECORD + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D ZWRITE^C0QUTIL("C0QFDA") + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, + ; INVOKE THE ERROR TRAP IF TASKED + K C0QFDA + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QKIDS.m b/qrda/C0Q/trunk/p/C0QKIDS.m new file mode 100644 index 0000000..20bf77e --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QKIDS.m @@ -0,0 +1,214 @@ +C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/31/12 3:01pm + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; Licensed under package license. See Documentation. + ; + ; PEPs: TRAN, POST, PRE + ; +TRAN ; Unified Transport; PEP + ; D TRAN301 ; looks like I won't send that file over + D TRAN201 ; C0Q MEASUREMENT + D TRAN101 ; C0Q QUALITY MEASURE + QUIT +POST ; Unified Post; PEP + ; D POST301 ; looks like I won't send that file over + ; D POST101 ; C0Q QUALITY MEASURE ; As of T11, I won't do that anymore. --> + ; I discovered that it will do it on destination systems that are set-up. + ; So bad bad bad idea for me to do it in a post-init. + ; ... I wrote TRAN101 to do the function of POST101. + D POST201 ; C0Q MEASUREMENT + QUIT + ; +PRE ; Unified Pre; PEP + D PRE101 + QUIT + ; + ; << >> + ; +TRAN101 ; Remove Untransportable pointers in C0Q QUALITY MEASURE; Private EP + ; NB: I am reaching into KIDS's data here. This may not work for future versions + ; of KIDS. However, I am exporting this only; once exported, it should work in + ; any version of KIDS. + N XPDIEN S XPDIEN=$QS(XPDGREF,2) ; Get IEN of KIDS Transport Global + N X S X=$NA(^XTMP("XPDT",XPDIEN,"DATA",1130580001.101)) ; KIDS transports our data here + N IEN S IEN=0 ; Looper + F S IEN=$O(@X@(IEN)) Q:'IEN D ; For each IEN, remove the following: + . S $P(@X@(IEN,0),U,2)="" ; Numerator Patient List + . S $P(@X@(IEN,0),U,3)="" ; Denominator Patient List + . S $P(@X@(IEN,7),U,4)="" ; Negative Numerator List + . S $P(@X@(IEN,7),U,2)="" ; Alternate Numerator List + . S $P(@X@(IEN,7),U,3)="" ; Alternate Denominator List + . S $P(@X@(IEN,7),U,5)="" ; Alternate Negative Numerator List + QUIT + ; +TRAN301 ; Grab FDA for entire file C0Q PATIENT LIST and store in Transport Global; Private EP + ; Not used. Dead code. + N C0QIEN S C0QIEN=0 ; IEN walker + N C0QREF1 S C0QREF1=$NAME(^TMP("C0QOLD",$J)) ; Temporary Global Reference + N C0QREF2 S C0QREF2=$NAME(^TMP("C0QNEW",$J)) ; Temporary Global Reference + K @C0QREF1,@C0QREF2 ; Kill that + F S C0QIEN=$O(^C0Q(301,C0QIEN)) Q:'+C0QIEN D + . D GETS^DIQ(1130580001.301,C0QIEN_",","*","",C0QREF1) ; Load FDA's in there + . M @C0QREF2@(1130580001.301,"?+"_C0QIEN_",")=@C0QREF1@(1130580001.301,C0QIEN_",") ; Change IENs to ?+ IENs + M @XPDGREF@("C0Q","1130580001.301")=@C0QREF2 ; Put in Transport Global + K @C0QREF1,@C0QREF2 ; Remove + QUIT + ; +TRAN201 ; Grab FDA for 201 C0Q MEASUREMENTS selected fields; Private EP + N C0QIEN S C0QIEN=0 ; IEN walker + N C0QREF1 S C0QREF1=$NAME(^TMP("C0QOLD",$J)) ; Temporary Global Reference + N C0QREF2 S C0QREF2=$NAME(^TMP("C0QNEW",$J)) ; Temporary Global Reference + K @C0QREF1,@C0QREF2 ; Kill that + ; + ; We need C0QCOUNT so that it wouldn't reuse the numbers, b/c updater wants numbers for every different item + N C0QCOUNT S C0QCOUNT=$O(^C0Q(201," "),-1) ; Counter for SubIENs for destination array; init at highest IEN to prevent dups + F S C0QIEN=$O(^C0Q(201,C0QIEN)) Q:'+C0QIEN D ; Walk IENs + . W "Exporting "_C0QIEN,! + . ; Fields SET NAME, BEGIN DATE, END DATE, LOCKED, USE ALL MEASURES, MU YEAR KEY + . D GETS^DIQ(1130580001.201,C0QIEN_",",".01;.02;.03;.05;.2;.3","",C0QREF1) + . M @C0QREF2@(1130580001.201,"?+"_C0QIEN_",")=@C0QREF1@(1130580001.201,C0QIEN_",") ; Change IENs to ?+ IENs + . N C0QIEN2 S C0QIEN2=0 ; Subfile walker + . F S C0QIEN2=$O(^C0Q(201,C0QIEN,5,C0QIEN2)) Q:'+C0QIEN2 D ; MEASURE subfile + . . W "Exporting IENS "_C0QIEN2_","_C0QIEN_",",! + . . D GETS^DIQ(1130580001.2011,C0QIEN2_","_C0QIEN_",",".01","",C0QREF1) ; MEASURE (#.01) + . . S C0QCOUNT=C0QCOUNT+1 ; Increment the counter for SubIEN (can't reuse) + . . M @C0QREF2@(1130580001.2011,"?+"_C0QCOUNT_","_"?+"_C0QIEN_",")=@C0QREF1@(1130580001.2011,C0QIEN2_","_C0QIEN_",") ; as above + ; + M @XPDGREF@("C0Q","1130580001.201")=@C0QREF2 ; Put in transport global + K @C0QREF1,@C0QREF2 ; Remove temp + QUIT + ; +POST201 ; File FDA for 201; Private EP + ; + ; Clean-up data if it already exists! + ; ZWRITE ^C0Q(201,:,5,:,0) + ; ^C0Q(201,1,5,599,0)=50 + ; ^C0Q(201,1,5,600,0)=4 + ; ^C0Q(201,1,5,601,0)=39 + ; ^C0Q(201,1,5,602,0)=6 + ; ^C0Q(201,1,5,603,0)=7 + ; ^C0Q(201,1,5,604,0)=48 + ; ^C0Q(201,1,5,605,0)=46 + ; + IF $O(^C0Q(201,0)) DO QUIT ; Quit if data is already there. + . D MES^XPDUTL("Data exists in file C0Q MEASUREMENTS... Not adding new data") + . D MES^XPDUTL("Cleaning up broken pointers in C0Q MEASUREMENTS from deleted data in C0Q QUALITY MEASURE") + . ; This is very hairy code. Run through the 5 multiple in C0Q MEASUREMENT + . ; Grab the IEN in the .01, check if it exists; if not, kill. + . N DA,DIK ; DIK Variables; as well as our looper variables + . S (DA,DA(1))=0 ; Initial looper values + . F S DA(1)=$O(^C0Q(201,DA(1))) Q:'DA(1) D ; Loop through entries + . . D MES^XPDUTL("...Processing entry "_$P(^C0Q(201,DA(1),0),U)) ; msg + . . S DIK="^C0Q(201,"_DA(1)_",5," ; deletion root for the next loop + . . F S DA=$O(^C0Q(201,DA(1),5,DA)) Q:'DA D ; For each Measure + . . . N IEN S IEN=+^C0Q(201,DA(1),5,DA,0) ; Get IEN + . . . I IEN,'$D(^C0Q(101,IEN)) D ; If IEN is numeric, IEN exists in dest file + . . . . D MES^XPDUTL("......Deleting broken pointer "_IEN) ; msg + . . . . D ^DIK ; delete + ; + ; If new install, add data + ; + D MES^XPDUTL("Adding data to C0Q MEASUREMENTS") + N C0QFDA S C0QFDA=$NAME(@XPDGREF@("C0Q","1130580001.201")) ; Grab FDA from Transport Global + N C0QERR ; Error array for filer + D UPDATE^DIE("E",C0QFDA,"","C0QERR") ; File all + I $D(C0QERR) D ; if there's an error, print it out + . D MES^XPDUTL("Couldn't add data into C0Q MEASUREMENTS") + . S C0QERR=$Q(C0QERR) + . F S C0QERR=$Q(@C0QERR) Q:C0QERR="" D MES^XPDUTL(C0QERR_": "_@C0QERR) + QUIT + ; +POST301 ; Get FDA from Transport Global and install in destination system for C0Q PATIENT LIST; Private EP + ; Not used. Dead code. + N C0QFDA S C0QFDA=$NAME(@XPDGREF@("C0Q","1130580001.301")) ; FDA array name is the global reference + N C0QERR ; Error + D UPDATE^DIE("E",C0QFDA,"","C0QERR") ; File all + I $D(C0QERR) D ; if there's an error, print it out + . D MES^XPDUTL("Couldn't add data into C0Q PATIENT LIST file") + . S C0QERR=$Q(C0QERR) + . F S C0QERR=$Q(@C0QERR) Q:C0QERR="" D MES^XPDUTL(C0QERR_": "_@C0QERR) + QUIT + ; +PRE101 ; Clean existing data (from an earlier installation) from measures that are now merged to other measures + ; in C0Q QUALITY MEASURE in destination systems; Private EP + ; + ; Quit if C0Q Quality Measures isn't on the system. + Q:'$D(^C0Q(101)) + ; + D MES^XPDUTL("Removing subsumed entries in C0Q QUALITY MEASURE") + ; + ; .01 field values to for records to remove + N C0QLIST + S C0QLIST("TEST M0028A")="" + S C0QLIST("MU EP 0028B")="" + S C0QLIST("M0013")="" + S C0QLIST("M0024")="" + S C0QLIST("M1")="" + S C0QLIST("M3")="" + S C0QLIST("M2")="" + S C0QLIST("M0028")="" + S C0QLIST("M111")="" + S C0QLIST("M112")="" + S C0QLIST("M113")="" + S C0QLIST("M128")="" + S C0QLIST("M5")="" + S C0QLIST("M7")="" + S C0QLIST("M0022")="" + S C0QLIST("12")="" + S C0QLIST("M0038")="" + S C0QLIST("M110")="" + S C0QLIST("MU EP NQF 0070")="" + ; + ; Root for ^DIK + N DIK S DIK="^C0Q(101," + ; + ; Loop through list, find IEN for each one, kill off + N C0QITEM S C0QITEM="" ; Item + F S C0QITEM=$O(C0QLIST(C0QITEM)) Q:C0QITEM="" D ; Loop + . Q:'$DATA(^C0Q(101,"B",C0QITEM)) ; Quit if not present. + . N DA S DA=$O(^C0Q(101,"B",C0QITEM,"")) ; IEN + . ; The original software has MU EP NQF 0070 incorrectly. If the 1 node + . ; has Pneumonia, we want to remove that entry. + . I C0QITEM="MU EP NQF 0070",^C0Q(101,DA,1)'["Pneumonia" QUIT + . D MES^XPDUTL("...Removing "_C0QITEM) ; Message to user + . D ^DIK ; Delete + ; +REN ; Rename a bunch of entries + ; ("OLD NAME")="NEW NAME" + D MES^XPDUTL("Renaming Old entries in C0Q QUALITY MEASURE") + ; + N C0QLIST + S C0QLIST("NQF0038 NUM1 DPT")="MU EP NQF 0038 NUM1 DPT" + S C0QLIST("NQF0038 NUM10")="MU EP NQF 0038 NUM10 FLU" + S C0QLIST("NQF0038 NUM11 COMBO5")="MU EP NQF 0038 NUM11 COMBO5" + S C0QLIST("NQF0038 NUM12 COMBO6")="MU EP NQF 0038 NUM12 COMBO6" + S C0QLIST("NQF0038 NUM2 IPV")="MU EP NQF 0038 NUM2 IPV" + S C0QLIST("NQF0038 NUM3 MMR")="MU EP NQF 0038 NUM3 MMR" + S C0QLIST("NQF0038 NUM4 HiB")="MU EP NQF 0038 NUM4 HiB" + S C0QLIST("NQF0038 NUM5 HEP B")="MU EP NQF 0038 NUM5 HEP B" + S C0QLIST("NQF0038 NUM6 VZV")="MU EP NQF 0038 NUM6 VZV" + S C0QLIST("NQF0038 NUM7 PCV")="MU EP NQF 0038 NUM7 PCV" + S C0QLIST("NQF0038 NUM8 HEP A")="MU EP NQF 0038 NUM8 HEP A" + S C0QLIST("NQF0038 NUM9")="MU EP NQF 0038 NUM9 RV" + S C0QLIST("M124")="PQRI MEASURE 124" + S C0QLIST("M173")="PQRI MEASURE 173" + S C0QLIST("M39")="PQRI MEASURE 39" + S C0QLIST("M47")="PQRI MEASURE 47" + S C0QLIST("M48")="PQRI MEASURE 48" + ; + N C0QITEM S C0QITEM="" ; Item + N C0QFDA ; FDA + F S C0QITEM=$O(C0QLIST(C0QITEM)) Q:C0QITEM="" D ; Loop through + . N IEN S IEN=$O(^C0Q(101,"B",C0QITEM,"")) ; Get IEN from File using old name + . I IEN S C0QFDA(1130580001.101,IEN_",",.01)=C0QLIST(C0QITEM) ; If found, put new name in FDA for this IEN + . I IEN D MES^XPDUTL("...Renaming "_C0QITEM_" to "_C0QLIST(C0QITEM)) ; Print message to user + ; + N C0QERR ; Error for FILE^DIE + I $D(C0QFDA) D FILE^DIE("E",$NA(C0QFDA),$NA(C0QERR)) ; File if FDA has contents + E D MES^XPDUTL("No entries to rename") ; If nothing, tell user so + ; + D:$D(C0QERR) ; If Error, print it + . D MES^XPDUTL("Error Filing Data. FILE^DIE reported:") + . N REF S REF=$NA(C0QERR) ; $Q Reference + . F S REF=$Q(@REF) Q:REF="" D MES^XPDUTL(REF_"="_@REF) ; Loop and Print + ; + QUIT diff --git a/qrda/C0Q/trunk/p/C0QMAIN.m b/qrda/C0Q/trunk/p/C0QMAIN.m new file mode 100644 index 0000000..6b8a0f2 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMAIN.m @@ -0,0 +1,356 @@ +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 + ;;1.0;C0Q;;May 21, 2012;Build 63 + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; +EXPORT ; EXPORT ENTRY POINT FOR CCR + ; Select a patient. + N C0QMS,C0QM,C0QMIEN,C0QNA,C0QNORD + S C0QNORD=3 ; WE WANT DENOMINATORS USE 1 FOR NUMERATORS + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QMS=$P(Y,U,1) ; SET THE MEASURE SET + S DIC=$$C0QQFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + S C0QM=$P(Y,U,1) ; SET THE MEASURE IEN + N C0QMN S C0QMN=$P(Y,U,2) ; SET THE MEASURE NAME + S C0QMIEN=$O(^C0Q(201,C0QMS,5,"B",C0QM,"")) + S C0QNA=$NA(^C0Q(201,C0QMS,5,C0QMIEN,C0QNORD,"B")) + N ZI S ZI="" + F S ZI=$O(@C0QNA@(ZI)) Q:ZI="" D ; + . W !,ZI + . N ONAME S ONAME=C0QMN_"_"_ZI_"_CCR_V1_0_0.xml" + . D XPAT^C0CCCR(ZI,,,ONAME) ; EXPORT TO A FILE + Q + ; +NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + W !,"NUMERATOR PATIENT LIST",! + N C0QPAT + D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + Q + ; +DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + N C0QPAT + W !,"DENOMINATOR PATIENT LIST",! + D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + . ; + Q + ; +ENEXP ; EXTERNAL MENU ENTRY POINT FOR EXP + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + D EXP(MSIEN) + Q + ; +EXP(MSET,NOEX) ; EXPORT ALL PATIENTS FOR MEASURE SET IEN MSET + ; ALSO, WRITE OUT THE BY PATIENT MEASURE TEXT FILE + ; IF NOEX=1, THEN ONLY THE MEASURE TEXT FILE GETS WRITTEN, NO EXPORTS ARE + ; DONE + I '$D(NOEX) S NOEX=0 + N ZQI,ZARY,ZFN,ODIR + S ZQI="" + D PATS(.ZARY,MSET,"D",1) + S ZFN="MEASURES-BY-PATIENT.txt" + S ODIR=^TMP("C0CCCR","ODIR") ; OUTPUT DIRECTORY + S GARY=$NA(^TMP("C0Q",$J)) + K @GARY + M @GARY=ZARY + S GARY1=$NA(@GARY@(1)) + N ZY + S ZY=$$OUTPUT^C0CXPATH(GARY1,ZFN,ODIR) + W !,ZY + I NOEX=1 Q ; DO NOT EXPORT + F S ZQI=$O(ZARY(ZQI)) Q:ZQI="" D ; FOR EACH PATIENT + . D XPAT^C0CCCR(+ZARY(ZQI)) ; + Q + ; +PATS(ZRTN,MSIEN,NORD,QT) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES + ; FOR MEASURE SET MSET. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS + ; NORD="D" MEANS DENOMINATOR PATIENTS + ; QT=1 MEANS QUIET + I $G(QT)'=1 S QT=0 + N ZI,ZJ,ZK,ZIDX,ZN,ZM + S ZN=0 ; COUNT OF PATIENTS + S ZI="" + ; GOING TO USE THE NUMERATOR BY PATIENT INDEX + I '$D(NORD) S NORD="N" + I '((NORD="N")!(NORD="D")) S NORD="N" + I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP")) + E S ZIDX=$NA(^C0Q(201,"ADBYP")) + F S ZI=$O(@ZIDX@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . I $O(@ZIDX@(ZI,MSIEN,""))'="" D ; IF PATIENT IS IN THIS SET + . . I 'QT W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME + . . S ZN=ZN+1 ; INCREMENT PATIENT COUNT + . . S ZRTN(ZN)=ZI + . E Q ; NEXT PATIENT + . S (ZJ,ZK)="" + . F S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ="" D ; FOR EACH MEASURE + . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH + . . S ZK="" + . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I") + . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,! + . . S ZM=$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME + . . I 'QT W " ",ZM + . . S ZRTN(ZN)=ZRTN(ZN)_" "_ZM + Q + ; +EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + ;D C0QRPC(.G,MSIEN) + D UPDATE^C0QUPDT(.G,MSIEN) + Q + ; +EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + ; changed by gpl to call the new UPDATE^C0QUPDT routine instead + D UPDATE^C0QUPDT(.G,MSIEN) + Q + ; end gpl change + S C0QSUM=1 + D C0QRPC(.G,MSIEN) + ; iterate over the measures + S MEASURE=0 + F S MEASURE=$O(^C0Q(201,MSIEN,5,MEASURE)) Q:MEASURE'>0 D + . S NUMER=0,DENOM=0 + . ; now count the numerator patients + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,1,P)) Q:P'>0 S NUMER=NUMER+1 + . S $P(^C0Q(201,MSIEN,5,MEASURE,2),U)=NUMER + . ; and count the denominator patients + . S P=0 F S P=$O(^C0Q(201,MSIEN,5,MEASURE,3,P)) Q:P'>0 S DENOM=DENOM+1 + . Q:DENOM=0 + . ; and stuff the values + . S $P(^C0Q(201,MSIEN,5,MEASURE,4),U,1,2)=DENOM_U_$J(100*NUMER/DENOM,0,0) + . Q + Q + ; +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT + ; MSET IS THE NAME OR IEN OF THE MEASURE SET + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED + ;W !,"LOOKING FOR MEASURE SET ",MSET,! + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII=0 + F S ZII=$O(C0QM(ZII)) Q:+ZII=0 D ; FOR EACH MEASURE + . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE + K C0QM + D CLEAN^DILF + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN + D DELIST("C0QM") + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS + . ;W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME + . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . I C0QNL="" D ; CHECK ALTERNATE LIST + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER + . . I C0QNL'="" S C0QNALT=1 + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . I C0QDL="" D ; CHECK ALTERNATE LIST + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER + . . I C0QDL'="" S C0QDALT=1 + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE + . ;W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! + . ; FIRST PROCESS THE NUMERATOR + . K ^TMP("DILIST",$J) + . N C0QUFN ; FILE NUMBER TO USE + . I $G(C0QNALT)=1 S C0QUFN=$$C0QALFN() + . E S C0QUFN=$$RLSTPFN + . D LIST^DIC(C0QUFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") ; + . ;I $D(G) ZWR G + . K C0QNUMP + . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT + . N ZJ S ZJ="" + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QNUMP("N",ZJ,ZDFN)="" + . ;I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . D ADDPATS(MSET,ZII,"C0QNUMP") + . ; NEXT PROCESS THE DENOMINATOR + . ;W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! + . K ^TMP("DILIST",$J) + . I $G(C0QDALT)=1 S C0QUFN=$$C0QALFN() + . E S C0QUFN=$$RLSTPFN + . D LIST^DIC(C0QUFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") + . ;I $D(G) ZWR G + . ;S ZJ="" + . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT + . K C0QDEMP + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QDEMP("D",ZJ,ZDFN)="" + . D ADDPATS(MSET,ZII,"C0QDEMP") + . ;I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . ;E D ; + . ;. W "NUM CNT: ",NCNT + . ;. W " DEN CNT: ",DCNT,! + Q + ; +CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE + ; MEASURE MEAS IN MEASURE SET IEN MSET + ; + N C0QFDA,MFN,MEASURE + S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE + D CLEAN^DILF + S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER + D CLEAN^DILF + K ZERR + S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE + D UPDIE ; CREATE THE SUBFILE + Q + ; +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN + N C0QI,C0QJ + N C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) + ;W "ADDING NUMERATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + K C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) + ;W "ADDING DENOMINATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV + Q + ; +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) + ; MSET IS THE IEN OF THE MEASURE SET + ; MEAS IS THE IEN OF THE MEASURE + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED + N C0QI,C0QJ + D LIST^DIC($$C0QMMFN,","_MSET_",") + K C0QFDA + ;ZWR ^TMP("DILIST",$J,*) + ;ZWR ^TMP("DIERR",$J,*) + ;D + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; +QUE ;QUE THE RUN OF THE PATIENT LISTS AND THE BUILD THE LISTS OF THE PATIENTS + ;AND THEIR MEASURES + S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") + N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE + S ZTDESC="CREATE PATIENT LIST" + S ZTRTN="RUN^C0QMAIN" + S ZTSAVE("MSIEN")="" + S ZTIO="" + S ZTDTH=$$NOW^XLFDT + D ^%ZTLOAD + Q + ; +RUN ; DO THE REAL WORK + I '$D(MSIEN) S MSIEN=$$GET^XPAR("DIV."_$P($$SITE^VASITE(),U,2),"C0Q MEASUREMENT TO USE") + S BEG=$P(^C0Q(201,MSIEN,4),U,3) ;Begin date + S END=$P(^C0Q(201,MSIEN,4),U,4) ;End date + S PATCREAT="N" ;Secure list - N=No + S PLISTPUG="N" ;Purge list after 5 years - N=No + S PXRMDPAT=0 ;Include deceased patients - N=No + S PXRMTPAT=0 ;Include test patients - N=No + S PXRMNODE="PXRMRULE" ;Node in ^TMP($J,"PXRMRULE" + N ZI S ZI="" + F S ZI=$O(^C0Q(201,MSIEN,5,"B",ZI)) Q:ZI'>0 D ; LOOP THROUGH EACH QM + . S PXRMLSTN=+$P(^C0Q(101,ZI,0),U,2) ; NUMERATOR MEASURE + . S PXRMLSTD=+$P(^C0Q(101,ZI,0),U,3) ; DENOMINATOR MEASURE + . S PXRMRULN=+$P(^PXRMXP(810.5,PXRMLSTN,0),U,6) ; RULES FOR THE LIST + . S PXRMRULD=+$P(^PXRMXP(810.5,PXRMLSTD,0),U,6) + . D RUN^PXRMLCR(PXRMRULD,PXRMLSTD,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) + . D RUN^PXRMLCR(PXRMRULN,PXRMLSTN,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) + D C0QRPC(.G,MSIEN) + Q diff --git a/qrda/C0Q/trunk/p/C0QMAIN2.m b/qrda/C0Q/trunk/p/C0QMAIN2.m new file mode 100644 index 0000000..e00af3e --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMAIN2.m @@ -0,0 +1,210 @@ +C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 + ;;0.1;C0Q;nopatch;noreleasedate; + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE + ; +NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + W !,"NUMERATOR PATIENT LIST",! + N C0QPAT + D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . + . ; + Q + ; +DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + N C0QPAT + W !,"DENOMINATOR PATIENT LIST",! + D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST + I $D(C0QPAT) D ; LIST RETURNED + . ; + . ; + Q + ; +PATS(ZRTN,MSIEN,NORD,PAT,EFORM) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES + ; FOR MEASURE SET MSIEN. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS + ; NORD="D" MEANS DENOMINATOR PATIENTS + ; PAT IS THE IEN OF A SINGLE PATIENT FOR PROCESSING. IF PAT IS OMMITED OR "*", + ; ALL PATIENTS IN THE MEASURE SET NUM/DENOM WILL BE PROCESSED + ; EFORM=1 MEANS ZRTN IS IN "EXTERNAL FORMAT" - THIS IS FOR USE AS AN RPC + ; EXTERNAL FORMAT IS AN ARRAY OF STRINGS + ; ZRTN(x)=DFN^NAME^MEASURE IEN^MEASURE NAME + ; ONE FOR EACH MEASURE FOR EACH PATIENT IN THE NUMERATOR/DENOMINATOR + ; EFORM=0 (DEFAULT) MEANS "INTERNAL FORMAT" - THIS IS FOR MUMPS CALLS + ; ZRTN(DFN,MEASURE IEN)="" IT IS A PAIR OF POINTERS IN INDEX FORMAT + ; ONE FOR EACH MEASURE FOR EACH PATIENT IN THE NUMERATOR/DENOMINATOR + ; + N ZI,ZJ,ZK,ZIDX + S ZI="" + ; GOING TO USE THE NUMERATOR BY PATIENT INDEX + I '$D(NORD) S NORD="N" + I '((NORD="N")!(NORD="D")) S NORD="N" + I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP")) + E S ZIDX=$NA(^C0Q(201,"ADBYP")) + F S ZI=$O(@ZIDX@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . I $O(@ZIDX@(ZI,MSIEN,""))'="" D ; IF PATIENT IS IN THIS SET + . . W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME + . E Q ; NEXT PATIENT + . S (ZJ,ZK)="" + . F S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ="" D ; FOR EACH MEASURE + . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH + . . S ZK="" + . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I") + . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,! + . . W " ",$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME + Q + ; +EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC + ; + S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC + I Y<1 Q ; EXIT + N MSIEN S MSIEN=+Y + D C0QRPC(.G,MSIEN) + Q + ; +C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT + ; MSET IS THE NAME OR IEN OF THE MEASURE SET + ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE + ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML" + ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET + ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING + ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED + W !,"LOOKING FOR MEASURE SET ",MSET,! + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII="" + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),! + . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS + . W "MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME + . ; FOLLOW THE POINTERS TO THE C0Q QUALITY MEASURE FILE AND GET LIST PTRS + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE + . W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),! + . ; FIRST PROCESS THE NUMERATOR + . K ^TMP("DILIST",$J) + . D LIST^DIC($$RLSTPFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") ; + . ;I $D(G) ZWR G + . K C0QNUMP + . N ZJ S ZJ="" + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QNUMP("N",ZJ,ZDFN)="" + . ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + . D ADDPATS(MSET,ZII,"C0QNUMP") + . ; NEXT PROCESS THE DENOMINATOR + . W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),! + . K ^TMP("DILIST",$J) + . D LIST^DIC($$RLSTPFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS + . ;D DELIST("G") + . ;I $D(G) ZWR G + . ;S ZJ="" + . K C0QDEMP + . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ; + . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01) + . . S C0QDEMP("D",ZJ,ZDFN)="" + . D ADDPATS(MSET,ZII,"C0QDEMP") + . ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES + Q + ; +ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR + ; OF MEASURE SET IEN MSET MEASURE IEN MEAS + ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)="" + ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N + ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN + N C0QI,C0QJ + N C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,"")) + ;W "ADDING NUMERATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + K C0QFDA + S C0QI="" + F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT + . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,"")) + ;W "ADDING DENOMINATOR",! + ;I $D(C0QFDA) ZWR C0QFDA + I $D(C0QFDA) D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV + Q + ; +DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR + ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE) + ; MSET IS THE IEN OF THE MEASURE SET + ; MEAS IS THE IEN OF THE MEASURE + ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET) + ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS + ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS + ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE + ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS + ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED + N C0QI,C0QJ + D LIST^DIC($$C0QMMFN,","_MSET_",") + K C0QFDA + ZWR ^TMP("DILIST",$J,*) + ZWR ^TMP("DIERR",$J,*) + D + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) D ; + . W "ERROR",! + . ZWR ZERR + . B + K C0QFDA + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QMU12.m b/qrda/C0Q/trunk/p/C0QMU12.m new file mode 100644 index 0000000..911d794 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMU12.m @@ -0,0 +1,591 @@ +C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/22/12 4:29pm + ;;1.0;QUALITY MEASURES;**1,5,6**;May 21, 2012;Build 32 + ; + ;2011 Zach Gonzales - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED + ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL + ; +C0QPFN() Q 1130580001.401 ; PARAMETER FILE +C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT SET FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS + ; ZARY IS PASSED BY NAME + ; ZTYP IS "INP" OR "EP" + N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT + ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS + K @ZARY ; CLEAR RETURN ARRAY + N ZIEN,ZCNT,ZX + I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE + . W !,"ERROR, NO PARAMETERS AVAILABLE" + S ZIEN="" + S ZCNT=0 + F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; + . S ZCNT=ZCNT+1 + . S @ZARY@(ZCNT,"IEN")=ZIEN + . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) + . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) + . ; + . ; Inpatient + . S (ZX,@ZARY@(ZCNT,"InpatientMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") + . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") + . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") + . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") + . ; + . ; Outpatient + . S (ZX,@ZARY@(ZCNT,"EPMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") + . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") + . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") + . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") + . S @ZARY@(ZCNT,"EPModelPerfSet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.1,"I") + . S @ZARY@(ZCNT,"EPModelQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.2,"I") + . ; + . D CLEAN^DILF + . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") + . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST + . . W !,"ERROR READING CLINIC PARAMETER LIST" + . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) + ; + Q + ; +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + S ZYR="MU12-" + D INITCLST ; initialize C0QLIST + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + N C0QPARM + D INIT("C0QPARM","INP") ; initialize inpatient parms + I $O(C0QPARM(""))="" D Q ; no parms for inpatient + . W !,"No inpatient parameters" + N ZDIV S ZDIV="" + F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division + . D ALL ; all currently admitted patients in the hospital + . D DIS ; all patients discharged since the reporting period began + . I C0QSS D ZWRITE^C0QUTIL("GRSLT") + . ;D ICUPAT ; GENERATE ICU PATIENT LIST + . I C0QPL D ; + . . D FILE ; FILE THE PATIENT LISTS + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; + . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; + . K C0QLIST + Q + ; +INITCLST ; initialize C0QLIST + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!! + S C0QLIST(ZYR_"HasDemographics")="" + S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP. + S C0QLIST(ZYR_"HasProblem")="" + S C0QLIST(ZYR_"HasAllergy")="" + S C0QLIST(ZYR_"HasMed")="" + S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5 + S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5 + S C0QLIST(ZYR_"HasVitalSigns")="" + S C0QLIST(ZYR_"HasMedOrders")="" + S C0QLIST(ZYR_"HasSmokingStatus")="" + S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5 + Q + ; +ALL ;retrieve active inpatients + N WARD S WARD="" + F D Q:WARD="" + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name + . Q:WARD="" + . N WIEN S WIEN="" + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name + . . N DFN,RB S DFN="" + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward + . . . D DEMO^C0QMU122 + . . . D PROBLEM + . . . D ALLERGY + . . . D MEDS4 + . . . D RECON2 + . . . D ADVDIR + . . . D SMOKING + . . . D VITALS + . . . D VTE1 + . . . D COD + . . . D EDTIME + . . . I C0QPR D PRINT^C0QMU121 + . . . I C0QSS D SS^C0QMU121 + . . . I C0QPL D PATLIST^C0QMU121 + Q + ; +PROBLEM ; PATIENT PROBLEMS + D LIST^ORQQPL(.PROBL,DFN,"A") + S PBCNT="" + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" + E S C0QLIST(ZYR_"HasProblem",DFN)="" + K PROBL + Q + ; +ALLERGY ; ALLERGY LIST + ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL + D LIST^ORQQAL(.ALRGYL,DFN) + S ALCNT="" + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" + E S C0QLIST(ZYR_"HasAllergy",DFN)="" + K ALRGYL + Q + ; +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS + ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 + N BEG,END + S BEG=$$DT^C0QUTIL("JULY 3,2011") + S END=$$DT^C0QUTIL("NOW") + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 + N C0QMEDS + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL + N FOUND + N ZI + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS + . S C0QLIST(ZYR_"NoMed",DFN)="" + E D ; HAS MEDS + . S C0QLIST(ZYR_"HasMed",DFN)="" + S ZI="" S FOUND=0 + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED + . N ZM + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE + . . S FOUND=1 + I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE + E S C0QLIST(ZYR_"NoMedOrders",DFN)="" + Q + ; +RECON ; MEDICATIONS RECONCILIATION + ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL + ; + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient + N HASRECON S HASRECON=0 + N GT,G + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON + . S HASRECON=1 + ;N ZT + ;S ZT="MEDICATION RECONCILIATION COMPLET" + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; + ;. S HASRECON=1 + ;E D ; + ;. S ZT="Medication Reconcilation Complete" + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; + ;. . S HASRECON=1 + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 + I HASRECON D ; + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; + . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + E S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +ERX ; FOR EP, WE LOOK AT ERX MEDS + N ZI S ZI="" + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; + . ;B + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; + . . S C0QLIST(ZYR_"HasMed",DFN)="" + . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" + . . S C0QLIST(ZYR_"HasERX",DFN)="" + . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" + . E D ; + . . S C0QLIST(ZYR_"NoMed",DFN)="" + . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" + . . S C0QLIST(ZYR_"NoERX",DFN)="" + . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" + Q + ; +ADVDIR ; ADVANCE DIRECTIVE + ; + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER + . S C0QLIST(ZYR_"Over65",DFN)="" + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; + . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" + . E D ; + . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" + Q + ; +SMOKING G SMOKING^C0QMU121 +VITALS ; + ; + N C0QSDT,C0QEDT + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY + S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5 + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS + I $D(VITRSLT) D ;ZWR VITRSLT B ; + . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" + . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" + Q + ; +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL + ; + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; + . S C0QLIST(ZYR_"HasVTE24",DFN)="" + E S C0QLIST(ZYR_"NoVTE24",DFN)="" + Q + ; + ; + ; +COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE + I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; + . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" + Q + ; +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS + N FOUND + S FOUND=0 + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 + I FOUND D ; + . S C0QLIST(ZYR_"HasEDtime",DFN)="" + E S C0QLIST(ZYR_"NoEDtime",DFN)="" + Q + ; +ICUPAT ; CREATE LIST OF ICU PATIENTS + N ZICU + S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION + N ZI,ZJ,ZP + S ZI="" + F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE + . S ZJ="" + . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT + . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN + . . S C0QLIST(ZYR_"ICUPatient",ZP)="" + Q + ; +FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED + ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING + K C0QLIST + N ZPAT + S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted + ; during the reporting period. used to filter other lists + ; + ; filter ICU patients against ZPAT + N GN,GO,GF + S GN=ZPAT + S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient + S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE + ; + S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period + S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + S GN=ZPAT + S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR + S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL + D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation + ; + D FILE ; FILE ALL THE PATIENT LISTS + D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set + Q + ; +ED1 ; + S ZYR="MU12-" + D DOTIME^C0QMU121("ED DEPARTURE TIME") + Q + ; +ED2 ; + S ZYR="MU12-" + D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") + Q + ; +RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST + ; WHOSE NAME IS ZLST + N ZIEN,ZN + S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list + S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST + Q ZN + ; +PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH + ; THE ATTRIBUTE ZATTR + N ZIEN,ZN + S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list + S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST + Q ZN + ; +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST + N ZL,ZR + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE + I ZL="" Q 0 ; LIST DOES NOT EXIST + S ZR=0 ; ASSUME NOT IN LIST + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST + Q ZR + ; +LOCPAT(PREFIX,LOC) ;retrieve active outpatients + ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" + ; LOC IS HOSPITAL LOCATION + ; Initially, make an empty list (C0Q*1.0*6) + S C0QLIST(PREFIX_"Patient")="" + S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION + I ULOC="" D Q ; OOPS + . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC + S IDTE=9999999-DTE ; INVERSE DATE + N ZI + S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE + F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE + . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5 + . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5 + . I ZI="" Q ; + . N ZJ S ZJ="" + . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT + . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT + . . S C0QLIST(PREFIX_"Patient",DFN)="" + Q + ; +EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS + ; + S DTE=3111000 + S MUYR=ZYR + N ZC,ZN + S ZN=0 + N ZI S ZI=0 + F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION + . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC + . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC + . S ZCIEN=ZI ; IEN OF CLINIC + . S ZN=ZN+1 ; COUNT OF CLINICS + . S PRE=MUYR_"-EP-"_ZC_"-" + . D LOCPAT(PRE,ZC) + W !,"NUMBER OF CLINICS: ",ZN + D FILE ; CREATE ALL THE EP PATIENT LISTS + Q + ; +DOEP ; DO EP COMPUTATIONS + S ZYR="MU12-" + N C0QPARM,C0QCLNC + D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS + K C0QLIST ; CLEAR THE LIST + N ZI S ZI="" + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP + . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period + . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this + . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now + . S PRE=ZYR_"EP-"_C0QCLNC_"-" + . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS + . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") + . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") + . ; update parameter list with filter list (1.0*6) + . S C0QPARM(ZI,"FilterListName")=PRE_"Patient" + S DFN="" + S ZYR=ZYR_"EP-" + D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have + ; any. C0Q*1*5 + F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT + . D DEMO^C0QMU122 + . D PROBLEM + . D ALLERGY + . ;D MEDS + . D ERX + . D SMOKING + . D VITALS + D FILE ; FILE THE PATIENT LISTS + ; + ; Now process eRx MU measures for these patients + ; Check for eRx template and code first; if they exist, run the code + I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; + . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list + ; + N ZI S ZI="" + F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; + . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; + . I 'C0QPARM(ZI,"EPMeasurementSet"),C0QPARM(ZI,"EPModelPerfSet") D + . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) + . . N FLN S FLN=C0QPARM(ZI,"FilterListName") + . . ; + . . ; 1. BUILD New Measure Set from Model Performance Measure Set + . . ; Get IEN back of the newly created measure set. + . . N MSIEN ; Measure Set IEN that gets created + . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelPerfSet"),C0QCLNC,0,FLN) + . . ; + . . ; 2. File Measure Set + . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2)=MSIEN + . . N C0QERR + . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) + . . I $D(C0QERR) S $EC=",U1," + . . ; + . . ; 3. Set this IEN to be the one in EPMeasurementSet + . . S C0QPARM(ZI,"EPMeasurementSet")=MSIEN + . . ; DONE + . . ; + . I 'C0QPARM(ZI,"EPQualitySet"),C0QPARM(ZI,"EPModelQualitySet") D + . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) + . . N FLN S FLN=C0QPARM(ZI,"FilterListName") + . . ; + . . ; 1. BUILD New Measure Set from Model Performance Measure Set + . . ; Get IEN back of the newly created measure set. + . . N MSIEN ; Measure Set IEN that gets created + . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelQualitySet"),C0QCLNC,1,FLN) + . . ; + . . ; 2. File Measure Set + . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2.1)=MSIEN + . . N C0QERR + . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) + . . I $D(C0QERR) S $EC=",U1," + . . ; + . . ; 3. Set this IEN to be the one in EPMeasurementSet + . . S C0QPARM(ZI,"EPQualitySet")=MSIEN + . . ; DONE + . ; + . ; Quit if we still don't have measurement sets + . I 'C0QPARM(ZI,"EPMeasurementSet")&('C0QPARM(ZI,"EPQualitySet")) QUIT + . ; + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET + . ; VEN/SMH -- Quality Set missing for Outpatient -- adding + . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5 + Q + ; +DIS ; + N DFN,DTE,EXDTE S DTE="" + F D Q:DTE="" + . S DTE=$O(^DGPM("B",DTE)) + . Q:'DTE + . ;Q:$P(DTE,".")<3110703 + . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 + . S EXDTE=$$FMTE^XLFDT(DTE) + . N PTFM S PTFM="" + . D + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) + . . Q:'PTFM + . . S DFN=$P(^DGPM(PTFM,0),U,3) + . . S C0QLIST(ZYR_"Patient",DFN)="" + . . D DEMO^C0QMU122 + . . D PROBLEM + . . D ALLERGY + . . D MEDS4 + . . D RECON2 + . . D ADVDIR + . . D SMOKING + . . D VITALS + . . ;D:$P(DTE,".")>3110912 VTE1 + . . D VTE1 + . . D COD + . . D EDTIME + . . I C0QPR D PRINT^C0QMU121 + . . I C0QSS D SS^C0QMU121 + . . I C0QPL D PATLIST^C0QMU121 + Q + ; +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST + ; + I '$D(C0QLIST) Q ; + N LFN S LFN=$$C0QALFN() + N ZI,ZN + S ZI="" + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) + . I ZN="" D ; LIST NOT FOUND, CREATE IT + . . K C0QFDA + . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE + . . S C0QFDA(FN,"+1,",.01)=ZI + . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE + . . W !,"CREATING ",ZI + . . D UPDIE ; ADD THE RECORD + . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN + . ;I ZN="" D Q ; OOPS + . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN + . N C0QNEW,C0QOLD,C0QRSLT + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW + . N ZJ,ZK + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST + . K C0QFDA + . S ZJ="" + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" + . . . S $EC=",U1130580001," ; smh - instead of a BREAK + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS + . ; SECOND, PROCESS THE ADDITIONS + . K C0QFDA + . S ZJ="" S ZK=1 + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ + . . S ZK=ZK+1 + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS + ;. Q + ;. K C0QFDA + ;. N ZJ,ZC + ;. S ZJ="" S ZC=1 + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ + ;. . S ZC=ZC+1 + ;. D UPDIE + ;. W !,"FOUND:"_ZI + Q + ; +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE + ; + N C0QFDA,ZFN,LIST,ATTR + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE + D CLEAN^DILF + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE + D CLEAN^DILF + K ZERR + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE + D UPDIE ; CREATE THE SUBFILE + N ZR ; NEW IEN FOR THE RECORD + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) + ; + Q ZR + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + K C0QFDA + Q + ; +END ;end of C0QPRML; diff --git a/qrda/C0Q/trunk/p/C0QMU121.m b/qrda/C0Q/trunk/p/C0QMU121.m new file mode 100644 index 0000000..0c2f59c --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMU121.m @@ -0,0 +1,378 @@ +C0QMU121 ;VEN/SMH - Patient Reminder List, cont. ; 7/31/12 12:33pm + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ; Licensed under package license. + ; +SMOKING ; Smoking data collection + ; WANT TO CHANGE SMOKING STATUS CHECKING FOR 2012 TO A SIMPLE SET OF + ; HEALTH FACTORS. GPL + I $$INLIST^C0QMU12(ZYR_"HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STAT CHECK + . S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" + . S C0QLIST(ZYR_"Over12",DFN)="" + I $$INLIST^C0QMU12(ZYR_"NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" + . S C0QLIST(ZYR_"Over12",DFN)="" + N C0QSMOKE,C0QSYN + S C0QSYN=0 + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE + ; PATIENT IN THE CATEGORY OF TOBACCO + I $D(C0QSMOKE) S C0QSYN=1 + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - No") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Current Smoker - Yes") + S C0QLIST(ZYR_"Over12",DFN)="" + ;N GT + ;S GT(1,"HasSmokingStatus","SMOK")="" + ;S GT(2,"HasSmokingStatus","Smok")="" + ;S GT(3,"HasSmokingStatus","smok")="" + ;I 'C0QSYN D ; + ;. N G + ;. S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) + ;. I $D(G) S C0QSYN=1 + I C0QSYN S C0QLIST(ZYR_"HasSmokingStatus",DFN)="" + E S C0QLIST(ZYR_"NoSmokingStatus",DFN)="" + Q + ; +DOTIME(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME + N ZP + S ZP=$$PATLN^C0QMU12(ZYR_"HasEDtime") ; patient list name for patients to process + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS + S ZVFN=9000010 ; VISIT FILE NUMBER + K ZARY1,ZARY2 + N ZI S ZI="" + S COUNT=0 + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . S COUNT=COUNT+1 + . N ZA,ZD + . S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT + . ; THE COMMENT IS THE TIME XXYY + . N OK,TMP + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) + . S GTOT=G1-G2 + . W !,"TIME: ",GTOT," ESTIMATED" + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES + . W !,"COMPUTED MINUTES: ",ZT + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES + . . W !,"****EXCLUDED****" + . I ZT>400000 D Q ; THESE ARE ERRORS + . . W !,"****EXCLUDED****" + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS + N ZY,ZZ S ZY="" S ZZ="" + N ZCOUNT S ZCOUNT=0 + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME + . . S ZCOUNT=ZCOUNT+1 + . . S ZARY2(ZCOUNT,ZY,ZZ)="" + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY + N ZMID + S ZMID=$P(ZCOUNT/2,".") + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT + W !,"ED ARRIVAL TIME UNTIL ",ZHF + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) + Q + ; +DOTIME2(ZHF) ; COMPUTE THE MEAN TIME IN THE ED FROM ARRIVAL TO DEPARTURE + ; THIS IS A QUALITY MEASURE ED-1 FOR MEANINGFUL USE + ; IT PRINTS A REPORT OF EACH PATIENT WITH THE ED TIMES RECORDED + ; AND THEIR TIME. AT THE END IT PRINTS THE MEAN TIME + N ZP + S ZP=$$PATLN^C0QMU12(ZYR_"HasEDtime") ; patient list name for patients to process + S ZHFN=9000010.23 ; FILE NUMBER FOR V HEALTH FACTORS + S ZVFN=9000010 ; VISIT FILE NUMBER + K ZARY1,ZARY2 + N ZI S ZI="" + S COUNT=0 + F S ZI=$O(@ZP@(ZI)) Q:ZI="" D ; FOR EACH PATIENT + . S COUNT=COUNT+1 + . N ZA,ZD + . ;S ZA=$$VHFIEN^C0QHF(ZI,"ED ARRIVAL TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . ;S ZD=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . S ZA=$$VHFIEN^C0QHF(ZI,ZHF) ; IEN OF DEPART HEALTH FACTOR + . S ZD=$$VHFIEN^C0QHF(ZI,"ED DEPARTURE TIME") ; IEN OF ARRIVAL HEALTH FACTOR + . N ZAD,ZDD ; ARRIVAL DATE, DEPARTURE DATE + . N ZAC,ZDC ; ARRIVAL COMMENT, DEPARTURE COMMENT + . ; THE COMMENT IS THE TIME XXYY + . N OK,TMP + . S TMP=$$GET1^DIQ(ZHFN,ZA_",",.03,"I") ; VISIT POINTER + . S ZAD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZAD=$P(^AUPNVHF(ZA,0),U,3) ; DATE IS PIECE 3 + . S TMP=$$GET1^DIQ(ZHFN,ZD_",",.03,"I") ; VISIT POINTER + . S ZDD=$$GET1^DIQ(ZVFN,TMP_",",.01,"I") ; VISIT DATE + . ;S ZDD=$$GET1^DIQ(ZHFN,ZD_",",1201,"I") ; EVENT DATE FIELD + . ;S ZDD=$P(^AUPNVHF(ZD,0),U,3) ; DATE IS PIECE 3 + . ;S OK=$$GET1^DIQ(ZHFN,ZA_",",81101,"","ZAC") ; ARRIVAL TIME + . S ZAC=$G(^AUPNVHF(ZA,811)) ; THE TIME + . ;S OK=$$GET1^DIQ(ZHFN,ZD_",",81101,"","ZDC") ; DEPARTURE TIME + . S ZDC=$G(^AUPNVHF(ZD,811)) ; DEPARTURE TIME + . N ZT ; THE TIME DIFFERENCE BETWEEN THE DATES + . W !,!,"PATIENT: ",ZI," ",$P(^DPT(ZI,0),U,1) + . W !,"IN: ",$$FMTE^XLFDT(ZAD_"."_ZAC)," OUT: ",$$FMTE^XLFDT(ZDD_"."_ZDC) + . S G1=($E(ZDC,1,2)*60)+($E(ZDC,3,4)) + . S G2=($E(ZAC,1,2)*60)+($E(ZAC,3,4)) + . I (ZDD-ZAD)>0 S G1=G1+(((ZDD-ZAD)*24)*60) + . S GTOT=G1-G2 + . W !,"TIME: ",GTOT," ESTIMATED" + . S ZT=$$DTDIFF^C0QUTIL(ZDD,ZDC,ZAD,ZAC) ; COMPUTE THE DIFFERENCE IN MINUTES + . W !,"COMPUTED MINUTES: ",ZT + . ;I ZT'=GTOT B ; LET'S FIND OUT WHAT'S WRONG + . I ZT<0 D Q ; SKIP PATIENTS WITH NEGATIVE TIMES + . . W !,"****EXCLUDED****" + . I ZT>400000 D Q ; THESE ARE ERRORS + . . W !,"****EXCLUDED****" + . S ZARY1(ZT,ZI)="" ; ARRAY ORDERED BY MINUTES OF PATIENTS + N ZY,ZZ S ZY="" S ZZ="" + N ZCOUNT S ZCOUNT=0 + F S ZY=$O(ZARY1(ZY)) Q:ZY="" D ; FOR EACH TIME + . F S ZZ=$O(ZARY1(ZY,ZZ)) Q:ZZ="" D ; FOR EACH PATIENT WITH THIS TIME + . . S ZCOUNT=ZCOUNT+1 + . . S ZARY2(ZCOUNT,ZY,ZZ)="" + . . ;W !,ZCOUNT," PATIENT: ",ZZ," MINUTES: ",ZY + N ZMID + S ZMID=$P(ZCOUNT/2,".") + W !,"NUMBER OF PATIENTS IN REPORT: ",ZCOUNT + W !,"ED ARRIVAL TIME UNTIL ",ZHF + W !,"MEDIAN TIME: ",$O(ZARY2(ZMID,"")) + Q + ; + ; LOOK AT GETTING RID OF PRINT AND SS AS THEY ARE NOT BEING USED. GPL + ; VEN/SMH - Call is used in C0QMU12, perhaps not called. + ; +PRINT ; PRINT TO SCREEN + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " + I $D(EXDTE) D ; + . W !,"Discharge Date: ",EXDTE + . W !,DFN," ",PTNAME + W !,"DOB: ",PTDOB," HRN: ",PTHRN + W !,"Language Spoken: ",$G(PTLANG) + W !,"Race: ",RACEDSC + W !,"Ethnicity: ",$G(ETHNDSC) + W !,"Problems: " + W !,PBDESC + W !,"Allergies: " + W !,ALDESC + W !,"Medications: " + W ! + Q + ; +SS ; CREATE SPREADSHEET ARRAY + S G1("Patient")=DFN + I $D(WARD) D ; + . S G1("WardName")=WARDNAME + . S G1("RoomAndBed")=RB + I $D(EXDTE) D ; + . S G1("DischargeDate")=EXDTE + S G1("PatientName")=PTNAME + S G1("Gender")=PTSEX + S G1("DateOfBirth")=PTDOB + S G1("HealthRecordNumber")=PTHRN + S G1("LanguageSpoken")=$G(PTLANG) + S G1("Race")=RACEDSC + S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S G1("HasProblem")=0 + E S G1("HasProblem")=1 + S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S G1("HasAllergy")=0 + E S G1("HasAllergy")=1 + I $D(MDITEM) D ; + . S G1("HasMed")=1 + E S G1("HasMed")=0 + S G1("MedDescription")=$G(MDDESC) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC + D RNF1TO2B^C0CRNF("GRSLT","G1") + K G1 + Q ; DON'T WANT TO DO THE NHIN STUFF NOW + ; +PATLIST ; CREATE PATIENT LISTS + ; WANT TO GET RID OF PATLIST AND MOVE FUNCTION TO OTHER ROUTINES. GPL + ; VEN/SMH - Call is moved here. Seems to be used in C0QMU12. + ; Think about removing at another time. + S C0QLIST(ZYR_"Patient",DFN)="" ; THE PATIENT LIST + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" + ;E S C0QLIST("FailedDemographics",DFN)="" + ;S G1("Gender")=PTSEX + ;S G1("DateOfBirth")=PTDOB + ;S G1("HealthRecordNumber")=PTHRN + ;S G1("LanguageSpoken")=$G(PTLANG) + ;S G1("Race")=RACEDSC + ;S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" + E S C0QLIST(ZYR_"HasProblem",DFN)="" + ;S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" + E S C0QLIST(ZYR_"HasAllergy",DFN)="" + ;I $D(MDITEM) D ; + ;. S C0QLIST("HasMed",DFN)="" + ;E S G1("NoMed",DFN)="" + ;S G1("MedDescription")=$G(MDDESC) + Q + ; +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT + Q:DFN=137!(DFN=14) + D EN^C0CNHIN(.G,DFN,"") + D ZWRITE^C0QUTIL("G") + K G + ; + QUIT ;end of WARD + ; diff --git a/qrda/C0Q/trunk/p/C0QMU122.m b/qrda/C0Q/trunk/p/C0QMU122.m new file mode 100644 index 0000000..e24897f --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMU122.m @@ -0,0 +1,37 @@ +C0QMU122 ;VEN/SMH - Patient Reminder List, cont. again ; 7/31/12 12:33pm + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ; Licensed under package license. + ; +DEMO ; patient demographics + K PTDOB + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB + S PTNAME=$P(^DPT(DFN,0),U) ;patient name + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + S PTHRN=$P($G(VA("PID")),U) ;health record number + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + S RACE="" + F D Q:RACE="" + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN + . Q:'RACE + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description + S ETHN="" + F D Q:ETHN="" + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN + . Q:'ETHN + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + I DEMOYN S C0QLIST(ZYR_"HasDemographics",DFN)="" + E S C0QLIST(ZYR_"FailedDemographics",DFN)="" + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QMU123.m b/qrda/C0Q/trunk/p/C0QMU123.m new file mode 100644 index 0000000..540353b --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMU123.m @@ -0,0 +1,93 @@ +C0QMU123 ; VEN/SMH - Clone a Measure Set and give a new name and filter. ; 10/23/12 1:07pm + ;;1.0;QUALITY MEASURES;**6**; + ; (C) George Lilly. Licensed under AGPL. + QUIT + ; +CLONE(MSIEN,CLNNM,ISQM,FLNAME) ; Private $$ ; Clone a measure set into a new one + ; Input: + ; 1. Measurement Set IEN to clone + ; 2. Clinic Name for which this Measurement Set would apply (FT) + ; 3. Boolean: Is Quality Measure? + ; 4. Filter List Name + ; + ; Output: + ; IEN of Created measure set. + ; + ; Get data from Model Set + N C0QIENS S C0QIENS=MSIEN_"," ; Input to GETS call + N C0QOUT,C0QERR ; Output Variables in GETS call. + D GETS^DIQ(1130580001.201,C0QIENS,"**","",$NA(C0QOUT),$NA(C0QERR)) + ; + I $D(C0QERR) S $EC=",U1," ; Crash in case of error. Shouldn't happen. + ; + ; Deal with D0 stuff first. + ; Merge D0 level into a new FDA array. + N C0QNEW ; New FDA + M C0QNEW(1130580001.201,"?+1,")=C0QOUT(1130580001.201,C0QIENS) + ; + ; Change .01 + ; NOTE: Field name is 30 characters. But HL is max 30 chars too! + ; So we have to truncate it. + ; If Is Quality Measure, Use QM, otherwise, use Performance Report. + S C0QNEW(1130580001.201,"?+1,",.01)=$E(CLNNM,1,27)_" "_$S(ISQM:"QM",1:"PR") + ; + ; Deal with D1 level + N I S I=0 ; Looper + N CNT S CNT=1 ; IENS counter ; Will become 2 and larger. Not to collide with the initial 1. + ; + ; For each record in D1 level + F S I=$O(C0QOUT(1130580001.2011,I)) Q:'I D + . S CNT=CNT+1 + . ; Grab the Measure field + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",.01)=C0QOUT(1130580001.2011,I,.01) + . ; + . ; Put the Filter lists on + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",1.2)=FLNAME + . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",2.2)=FLNAME + ; + ; File Data. + N C0QIEN,C0QERR ; Returned IEN, Error array + D UPDATE^DIE("E",$NA(C0QNEW),$NA(C0QIEN),$NA(C0QERR)) + I $D(C0QERR) S $EC=",U1," + ; + Q C0QIEN(1) ; Quit with IEN for ?+1. + ; + ; SAM(1130580001.201,"17,",.01)="DR OFFICE QM REPORT" + ; SAM(1130580001.201,"17,",.02)="AUG 1,2012" + ; SAM(1130580001.201,"17,",.03)="OCT 31,2012" + ; SAM(1130580001.201,"17,",.04)="" + ; SAM(1130580001.201,"17,",.05)="" + ; SAM(1130580001.201,"17,",.2)="" + ; SAM(1130580001.201,"17,",.3)="" + ; SAM(1130580001.201,"17,",.4)="" + ; SAM(1130580001.2011,"1,17,",.01)="MU EP NQF 0013" + ; SAM(1130580001.2011,"1,17,",1.1)=1 + ; SAM(1130580001.2011,"1,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"1,17,",2.1)=1 + ; SAM(1130580001.2011,"1,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"1,17,",3)=100 + ; SAM(1130580001.2011,"2,17,",.01)="MU EP NQF 0028A" + ; SAM(1130580001.2011,"2,17,",1.1)=0 + ; SAM(1130580001.2011,"2,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"2,17,",2.1)=1 + ; SAM(1130580001.2011,"2,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"2,17,",3)=0 + ; SAM(1130580001.2011,"3,17,",.01)="MU EP NQF 0028B" + ; SAM(1130580001.2011,"3,17,",1.1)=0 + ; SAM(1130580001.2011,"3,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"3,17,",2.1)=1 + ; SAM(1130580001.2011,"3,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"3,17,",3)=0 + ; SAM(1130580001.2011,"4,17,",.01)="MU EP NQF 0421" + ; SAM(1130580001.2011,"4,17,",1.1)=1 + ; SAM(1130580001.2011,"4,17,",1.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"4,17,",2.1)=1 + ; SAM(1130580001.2011,"4,17,",2.2)="MU12-EP-DR OFFICE-Patient" + ; SAM(1130580001.2011,"4,17,",3)=100 + ; SAM(1130580001.20111,"1,1,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20111,"1,4,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,1,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,2,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,3,17,",.01)="MOUSE,MICKEY" + ; SAM(1130580001.20112,"1,4,17,",.01)="MOUSE,MICKEY" + ; diff --git a/qrda/C0Q/trunk/p/C0QMUERX.m b/qrda/C0Q/trunk/p/C0QMUERX.m new file mode 100644 index 0000000..10143f7 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QMUERX.m @@ -0,0 +1,327 @@ +C0QMUERX ; VEN - Analyze ERx Data for Patients ; 5/30/12 12:40pm + ;;1.0;C0Q;;May 21, 2012;Build 44 + QUIT ; No Entry from the top + ; +UT ; Unit Tests + N C0QDEBUG S C0QDEBUG=1 + W "Testing ^DPT B Index",! + D EN("^DPT(""B"")") + W !,"Testing B Index on a C0Q Patient List",! + D EN("^C0Q(301,4,1,""B"")") + W !,"Testing ^AUPNPAT B Index",! + D EN("^AUPNPAT(""B"")") + W !,"Testing Reminder Patient List B Index",! + D EN("^PXRMXP(810.5,80,30,""B"")") + W !,"Testing upright file ^DPT",! + D EN("^DPT") + W !,"Testing a file with no data",! + D EN("^ALKJSDF") + W !,"Testing a no valid parameters",! + D EN("") +UT2 ; Units Tests 2 + N C0QDEBUG S C0QDEBUG=1 + D EN("^C0Q(301,4,1,""B"")") + QUIT +UT3 ; More Unit Tests + N C0QDEBUG S C0QDEBUG=1 + D EN($$PATLN^C0QMU12("MU12-EP-HasERX")) + W $$COUNT($$PATLN^C0QMU12("MU12-EP-HasERX")) + QUIT +EN(C0QLIST) ; PEP - Analyze ERx Data and store + ; Parameters: + ; C0QLIST - Pass by Name. Global or Local Reference. + ; Can be: ^DPT("B") for all patients or ^C0Q(301,2,1,"B") for a specific patient list + ; Future: Can be a search template on file 2 or 9000001 + ; + ; Check if XML Soap Message is installed + I '$D(^C0PX("B","GETMEDS6")) WRITE "GETMEDS6 Soap Message not installed",! QUIT + ; + ; Check if SOAP^C0PWS2 exists + I '$L($T(SOAP^C0PWS2)) WRITE "C0PWS2 Doesn't exist",! QUIT + ; + ; Check C0QLIST for sanity. Must be a single node. + IF '($DATA(C0QLIST)#2)!(C0QLIST="") WRITE "You didn't pass the list",! QUIT + ; + ; Contents must be a Reference with Data + IF '$DATA(@C0QLIST) WRITE "Destination doesn't contain any data",! QUIT + ; + ; Is this a B index? + NEW C0QB + IF $QSUBSCRIPT(C0QLIST,$QLENGTH(C0QLIST))="B" DO + . SET C0QB=1 + . ; DEBUG + . W:$G(C0QDEBUG) "B index passed",! + . ; DEBUG + ELSE SET C0QB=0 + ; + ; Make sure our TMP is empty + K ^TMP($J) + ; + ; Walk the global + N C0QWALK S C0QWALK=$SELECT(C0QB:"",'C0QB:0) ; Walker, start of $ORDER? + N C0QDONE S C0QDONE=0 ; Finish Flag + FOR SET C0QWALK=$O(@C0QLIST@(C0QWALK)) QUIT:C0QDONE DO + . ; Are we done? + . I C0QB,C0QWALK="" S C0QDONE=1 QUIT ; If in index and we are out, done + . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT ; If not in index and we are not numeric, done + . ; + . N C0QDFN ; DFN of Patient + . ; If Walking B Index and Index not numeric, grab DFN (assuming ^DPT or ^AUPNPAT) + . ; TODO: Should I check that the global is ^DPT or ^AUPNPAT? + . I C0QB,'+C0QWALK S C0QDFN=$O(@C0QLIST@(C0QWALK,"")) + . ; Otherwise, we will assume the contents of the index are the DFNs + . E S C0QDFN=C0QWALK + . I $G(C0QDEBUG) W C0QDFN," " + . ; + . ; Now, check to see if the patient has e-Rx's + . I $$HASERX(C0QDFN) S ^TMP($J,C0QDFN)="" + ; + W:$G(C0QDEBUG) ! ; + ; + ; Loop through collected DFNs, send to WS, and get data back, store in ^TMP($J,DFN) + N C0QDFN S C0QDFN=0 + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO + . N C0POUT + . W:$G(C0QDEBUG) "Calling GETMEDS6 SOAP Web Service Call for "_C0QDFN,! + . D SOAP^C0PWS2("C0POUT","GETMEDS6",DUZ,C0QDFN) + . Q:$G(C0POUT(1,"RowCount"))=0 ; WS says no data + . M ^TMP($J,C0QDFN)=C0POUT + ; + ; From the New Crop Meaningful Use documentation: + ; Appendix G: Meaningful Use Certification FAQ Question 10 + ; + ; DENOMINATOR NUMERATOR + ; DeaClassCode = 0, 9 DeaClassCode = 0, 9 + ; PharmacyType = 1 PharmacyType = 1 + ; PharmacyDetailType = 1, 2 PharmacyDetailType = 1, 2 + ; FinalDestinationType = 1, 2, 3, 4 FinalDestinationType = 3, 4 + ; FinalStatusType = 1, 4, 5 FinalStatusType = 1, 5 + ; + ; DeMorgan's Law + ; NOT(A or B) = NOT(A) and NOT(B) + ; So to collect prescriptions for which DeaClassCode is 0 or 9 + ; We exclude all those who are not 0 AND not 9. + ; See: http://en.wikipedia.org/wiki/De_Morgan%27s_laws#Negation_of_a_disjunction + ; + ; The algorithms below use an Onion Peeling method. Any prescription which + ; fails makes you jump to the next prescription. + ; The "Onion levels" are: + ; DeaClassCode, PharamcyType, PharmacyDetailType, FinalDestinationType, FinalStatusType + ; + ; Now walk through collected DFNs and accumulate MU stats + ; + ; WARNING: Naked References below + ; + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 + N C0QD S C0QD=0 ; Denominator - Overall (cf C0QDP below) + ; + ; Calculate Denominator below + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO + . N C0QDP S C0QDP=0 ; Denominator - Patient Specific + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! + .. ; + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE + .. ; + .. N DEA S DEA=^("DeaClassCode") + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! + .. Q:((DEA'=0)&(DEA'=9)) + .. ; + .. N PT S PT=^("PharmacyType") + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! + .. Q:(PT'=1) + .. ; + .. N PDT S PDT=^("PharmacyDetailType") + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! + .. Q:((PDT'=1)&(PDT'=2)) + .. ; + .. N FDT S FDT=^("FinalDestinationType") + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! + .. Q:((FDT'=1)&(FDT'=2)&(FDT'=3)&(FDT'=4)) + .. ; + .. N FST S FST=^("FinalStatusType") + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! + .. Q:((FST'=1)&(FST'=4)&(FST'=5)) + .. ; + .. W:$G(C0QDEBUG) "Adding to Denominator",! + .. S C0QDP=C0QDP+1 + .. S C0QD=C0QD+1 + . ; + . ; SAVE C0QDP - while it lasts! + . D SAVE(C0QLIST,C0QDFN,"ERXDEN",C0QDP) + ; + ; Calculate Numerator below + N C0QDFN,C0QRXNO S (C0QDFN,C0QRXNO)=0 + N C0QN S C0QN=0 ; Numerator - Overall (cf C0QNP below) + F S C0QDFN=$O(^TMP($J,C0QDFN)) Q:C0QDFN="" DO + . N C0QNP S C0QNP=0 ; Numerator - Patient Specific + . F S C0QRXNO=$O(^TMP($J,C0QDFN,C0QRXNO)) Q:C0QRXNO="" DO + .. W:$G(C0QDEBUG) "Patient "_C0QDFN_" Rx "_C0QRXNO,! + .. ; + .. I ^(C0QRXNO,"DeaClassCode") ; Change $REFERENCE + .. ; + .. N DEA S DEA=^("DeaClassCode") + .. W:$G(C0QDEBUG) "DeaClassCode: "_DEA,! + .. Q:((DEA'=0)&(DEA'=9)) + .. ; + .. N PT S PT=^("PharmacyType") + .. W:$G(C0QDEBUG) "PharmacyType: "_PT,! + .. Q:(PT'=1) + .. ; + .. N PDT S PDT=^("PharmacyDetailType") + .. W:$G(C0QDEBUG) "PharmacyDetailType: "_PDT,! + .. Q:((PDT'=1)&(PDT'=2)) + .. ; + .. N FDT S FDT=^("FinalDestinationType") + .. W:$G(C0QDEBUG) "FinalDestinationType: "_FDT,! + .. Q:((FDT'=3)&(FDT'=4)) + .. ; + .. N FST S FST=^("FinalStatusType") + .. W:$G(C0QDEBUG) "FinalStatusType: "_FST,! + .. Q:((FST'=1)&(FST'=5)) + .. ; + .. W:$G(C0QDEBUG) "Adding to Numerator",! + .. S C0QNP=C0QNP+1 + .. S C0QN=C0QN+1 + . ; + . ; Save C0QNP while it lasts + . D SAVE(C0QLIST,C0QDFN,"ERXNUM",C0QNP) + ; + S ^TMP($J)=C0QN_U_C0QD + ; + ; TODO: Over here, do something with the numerator and denominator.. + ; Probably store them somewhere. + ; + I '$G(C0QDEBUG) K ^TMP($J) ; Empty out in production not testing + QUIT + ; +HASERX(DFN) ; $$ - Private; Has E-Prescriptions? + ; Parameters + ; - DFN by Value + ; Output + ; 0 or 1 (false or true) + N ZI S ZI="" + N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) + N DONE,HASERX + F S ZI=$O(@ZERX@(ZI)) Q:ZI="" Q:$G(DONE) D + . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" S (DONE,HASERX)=1 + Q +$G(HASERX) + ; +SAVE(C0QLIST,C0QDFN,TYPE,COUNT) ; Proc - Private; Save Count in C0Q(301, file + ; Layman's Explanation: Save the denominator or numerator for ePrescribing for + ; each of the patients in the Subfile for that patient in ^C0Q(301, + ; Still hard to understand though! Here's a demo: + ; ^C0Q(301,IEN has a subfile under node 1 which stores the patients. E.g. + ; ^C0Q(301,48,1,15,0)=91$ + ; ^C0Q(301,48,1,16,0)=93$ + ; ^C0Q(301,48,1,17,0)=173$ + ; + ; I store the numerator and denominator under each of the patients. The numerator + ; stands for the number of prescriptions that were electronically transmitted; + ; the denominator stands for the numbers of prescriptions that COULD HAVE BEEN + ; electronically transmitted. End result for Patient 173 is as follows: + ; ^C0Q(301,48,1,17,0)=173 + ; ^C0Q(301,48,1,17,1,0)="^1130580001.3111^2^2" + ; ^C0Q(301,48,1,17,1,1,0)="ERXDEN^0" + ; ^C0Q(301,48,1,17,1,2,0)="ERXNUM^0" + ; ^C0Q(301,48,1,17,1,"B","ERXDEN",1)="" + ; ^C0Q(301,48,1,17,1,"B","ERXNUM",2)="" + ; + ; Subroutine COUNT (below) goes and counts the data + ; + ; Params: + ; C0QLIST (by val): "B" x-ref where patients are located. Only supports ^C0Q(301, file. + ; C0QDFN (by val): Patient DFN for whom to file data. + ; TYPE (by val): Either ERXDEN or ERXNUM for eRx Denominator or eRx Numerator + ; COUNT (by val): The number to save + ; + ; First, QUIT if this isn't a Quality Measures List? + ; $QS(x,0) gets you the global name + ; + ; This should give you an idea of what I am dealing with! + ; + ; ^C0Q(301,48,1,15,0)=91 + ; ^C0Q(301,48,1,16,0)=93 + ; ^C0Q(301,48,1,17,0)=173 + ; ^C0Q(301,48,1,18,0)=174 + ; ^C0Q(301,48,1,"B",5,1)="" + ; ^C0Q(301,48,1,"B",10,2)="" + ; ^C0Q(301,48,1,"B",11,3)="" + ; ^C0Q(301,48,1,"B",14,4)="" + ; + I $QS(C0QLIST,0)'="^C0Q" W:$G(C0QDEBUG) "Not Saving Patient "_C0QDFN,! QUIT + ; + ; Otherwise, prepare to save + N C0QFDA ; Fileman Data Array + N C0QIENS ; IENS + N L1,L2 ; Top Level, Level 2 + S L1=$QS(C0QLIST,2) ; Top Level IEN + S L2=$O(^C0Q(301,L1,1,"B",C0QDFN,"")) ; Patient IEN + S C0QIENS="?+1"_C0QDFN_","_L2_","_L1_"," ; TODO: Here C0QDFN is a dummy for uniqueness in FDA, not meaningful! - DO BETTER! + W:$G(C0QDEBUG) "IENs "_C0QIENS_" ready to file",! + W:$G(C0QDEBUG) "Saving "_TYPE_" of "_COUNT_" for Patient "_$P(^DPT(C0QDFN,0),U)_" ("_C0QDFN_")",! + S C0QFDA(1130580001.3111,C0QIENS,.01)=TYPE + S C0QFDA(1130580001.3111,C0QIENS,.02)=COUNT + ; + W:$G(C0QDEBUG) "Fileman Data Array",! + I $G(C0QDEBUG) N % S %=$NA(C0QFDA) F S %=$Q(@%) Q:%="" W %_": "_@%,! + ; + N C0QERR ; Errors + D UPDATE^DIE("","C0QFDA","","C0QERR") + ; + I $D(C0QERR) DO + . W "Error in filing data",! + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! + ; + QUIT + ; +COUNT(C0QLIST) ; $$ - Private; Count Numerator and Denominator for a Patient List + ; Input: C0QLIST - Pass by Value - Patient Listing B index (only C0Q(301,IEN,1,"B", listing is supported) + ; Output: (as string) NUMERATOR/DENOMINATOR + ; + I $QS(C0QLIST,0)'="^C0Q" W:$G(C0QDEBUG) "Counting for files other than C0Q(301, not supported ",! QUIT "0/0" + ; MEASURE ----------- + ; IEN ----------- | + ; L1 ------| | | + ; V V V + ; ^C0Q(301,48,1,2,1,1,0)="ERXDEN^0" + ; ^C0Q(301,48,1,2,1,2,0)="ERXNUM^0" + ; ^C0Q(301,48,1,2,1,"B","ERXDEN",1)="" + ; ^C0Q(301,48,1,2,1,"B","ERXNUM",2)="" + ; ^C0Q(301,48,1,2,1,"B" + W:$G(C0QDEBUG) "DFN",?20,"Denominator",?40,"Numerator",! + ; + N L1 S L1=$QS(C0QLIST,2) ; Top Level IEN + ; + N DENTOT,NUMTOT S (DENTOT,NUMTOT)=0 ; Denominator Total, Numerator Total + ; + N C0QDFN S C0QDFN=0 ; Walker through B index + F S C0QDFN=$O(^C0Q(301,L1,1,"B",C0QDFN)) Q:C0QDFN="" DO + . N IEN S IEN=$O(^(C0QDFN,"")) ; naked naked - get IEN from B index + . W:$G(C0QDEBUG) C0QDFN + . ; + . ; Denom Processing + . N DENIEN S DENIEN=$O(^C0Q(301,L1,1,IEN,1,"B","ERXDEN","")) ; Denom IEN + . N DEN S DEN=$S(DENIEN:$P(^C0Q(301,L1,1,IEN,1,DENIEN,0),U,2),1:"N/A") ; Denominator + . W:$G(C0QDEBUG) ?20,DEN + . S DENTOT=DENTOT+DEN ; Total it up (N/A becomes zero) + . ; + . N NUMIEN S NUMIEN=$O(^C0Q(301,L1,1,IEN,1,"B","ERXNUM","")) ; Numerator IEN + . N NUM S NUM=$S(NUMIEN:$P(^C0Q(301,L1,1,IEN,1,NUMIEN,0),U,2),1:"N/A") ; Numerator + . W:$G(C0QDEBUG) ?40,NUM + . S NUMTOT=NUMTOT+NUM ; Total it up (N/A becomes zero) + . ; + . w:$G(C0QDEBUG) ! + ; + ; Write the totals + D:$G(C0QDEBUG) + . W ?20,"===" + . W ?40,"===" + . W ! + . ; + . W ?20,DENTOT + . W ?40,NUMTOT + . W ! + ; + ; Quit with Numeartor/Denominator + QUIT NUMTOT_"/"_DENTOT diff --git a/qrda/C0Q/trunk/p/C0QNOTES.m b/qrda/C0Q/trunk/p/C0QNOTES.m new file mode 100644 index 0000000..b9e85f0 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QNOTES.m @@ -0,0 +1,116 @@ +C0QNOTES ;GPL - Utility to look up patient notes ; 7/31/12 8:17am + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ;2011 George Lilly - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q +HASNTYN(ZNTYP,DFN) ; EXTRINSIC 1 YES 0 NO DOES THE PATIENT DFN HAVE + ; NOTE TYPE ZNTYP + N C0QN,C0QO + S C0QO=$NA(^TIU(8925.1,"B",ZNTYP)) ; ALL DOCUMENT DEFS FOR THIS NAME + S C0QN=$NA(^TIU(8925,"AA",DFN)) ; NOTES THE PATIENT HAS + N C0QR + D UNITY^C0QSET("C0QR",C0QN,C0QO) ; DOES PATIENT HAVE THE NOTE? + N ZR + I $D(C0QR(1)) S ZR=1 + E S ZR=0 + Q ZR + ; +TESTNT(DFN) ; TEST THE NTTXT ROUTINE + W !,"MEDICATION RECON IN ER NURSE NOTE" + I $$NTTXT("ER NURSE NOTE","MEDICATION RECONCILIATION COMPLET",DFN) W " FOUND" + E W " NOT FOUND" + W !,"Medication Recon in MED/SURG NURSING ADMISSION ASSESSMENT" + I $$NTTXT("MED/SURG NURSING ADMISSION ASSESSMENT","Medication Reconcilation complete",DFN) W "FOUND" + E W " NOT FOUND" + Q + ; +NTTXT(NTTITLE,NTTXT,DFN) ; EXTRINSIC 1 YES 0 NO DOES PATIENT HAVE + ; TEXT NTTXT IN NOTE TITLE NTTITLE + N C0QNTA,C0QTYP + S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN + S C0QNTA=$NA(^TIU(8925,"AA",DFN,C0QDFMT)) ; ARRAY OF NOTES OF THIS TYPE FOR + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" + N ZI,ZN,ZD,ZL + S ZD="" ; DATE OF THE THE NOTE + N FOUND S FOUND=0 + F S ZD=$O(@C0QNTA@(ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE + . S ZN="" + . F S ZN=$O(@C0QNTA@(ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE + . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) + . . S ZI=0 ; WANT TO STAR ON LINE 1 + . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) + . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; + . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; + . . . . W "**********",$G(@ZL@(ZI,0)),! + Q FOUND ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT + ; YOU SEARCH FOR...gpl ... for example is this is the note title: + ; MED/SURG NURSING ADMISSION ASSESSMENT + ;and this is the text you want: Medication Reconcilation completed. + ; search for: Medication Reconcilation complete + ; that will leave the "d." in piece two of the line + ; + ; or for this note: + ;ER NURSE NOTE + ; and this text: + ;MEDICATION RECONCILIATION COMPLETED + ; search for MEDICATION RECONCILIATION COMPLET + ; which will leave the "ED" in piece 2 +TXTALL(ZRTN,ZTARY,DFN) ; EXTRINSIC WHICH SEARCHES ALL OF A PATIENT'S NOTES + ; FOR AN ARRAY OF TEXT MATCHES. ZRTN IS PASSED BY REFERENCE AND IS LIKE + ; AN RPC RETURN. ZTARY IS PASSED BY REFERENCE AND HAS THE FORMAT + ; ZTARY(1,"TEXT1")="" ZTARY(2,"TEXT2")="" ETC + N C0QTYP,C0QDFMT + ;S C0QDFMT=$O(^TIU(8925.1,"B",NTTITLE,"")) ; DOCUMENT FORMAT IEN + S C0QNTA=$NA(^TIU(8925,"AA",DFN)) ; ARRAY OF NOTES FOR + ;^TIU(8925,"AA",15393,1808,6889171,375262)="" + N ZI,ZJ,ZN,ZD,ZL,ZT,NTTXT,ZC,ZTYP + S ZT="" + F S ZT=$O(@C0QNTA@(ZT)) Q:ZT="" D ; + . S ZTYP=$$GET1^DIQ(8925.1,ZT_",",.01) ; NAME OF NOTE TITLE + . S ZD="" ; DATE OF THE THE NOTE + . N FOUND S FOUND=0 + . F S ZD=$O(@C0QNTA@(ZT,ZD)) Q:FOUND Q:ZD="" D ; FOR EACH DATE + . . S ZN="" + . . F S ZN=$O(@C0QNTA@(ZT,ZD,ZN)) Q:FOUND Q:ZN="" D ; EACH NOTE + . . . W !,"NOTE ",ZN," ",$G(^TIU(8925,ZN,"TEXT",1,0)) + . . . S ZI=0 ; WANT TO STAR ON LINE 1 + . . . S ZL=$NA(^TIU(8925,ZN,"TEXT")) + . . . F S ZI=$O(@ZL@(ZI)) Q:+ZI=0 D ; + . . . . S ZJ="" ; INDEX FOR SEARCH TERMS + . . . . F S ZJ=$O(ZTARY(ZJ)) Q:ZJ="" D ; FOR EACH SEARCH TERM + . . . . . S ATTR=$O(ZTARY(ZJ,"")) + . . . . . S NTTXT=$O(ZTARY(ZJ,ATTR,"")) + . . . . . I $P($G(@ZL@(ZI,0)),NTTXT,2)'="" S FOUND=1 D ; + . . . . . . W "**********",$G(@ZL@(ZI,0)),! + . . . . . . S ZC=$O(ZRTN(""),-1) ; NEXT COUNT + . . . . . . I ZC="" S ZC=1 + . . . . . . E S ZC=ZC+1 + . . . . . . S ZRTN(ZC,ATTR,ZTYP,ZN,NTTXT)=$G(@ZL@(ZI,0)) + Q $G(FOUND) ; IT'S THAT SIMPLE... PLEASE LEAVE SOME TEXT AT THE END OF WHAT + ; +TESTALL ; + S GT(1,"HasSmokingStatus","SMOK")="" + S GT(2,"HasSmokingStatus","Smok")="" + S GT(3,"HasSmokingStatus","smok")="" + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + W $$TXTALL(.G,.GT,2) ; CHECK ALL PATIENT 2'S NOTEST FOR SMOKING + D ZWRITE^C0QUTIL("G") + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QP1.m b/qrda/C0Q/trunk/p/C0QP1.m new file mode 100644 index 0000000..9de6607 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QP1.m @@ -0,0 +1,9 @@ +C0QP1 ; VEN/SMH - Inits for Patch 1 ; 6/13/12 4:27pm + ;;1.0;C0Q;;May 21, 2012;Build 44 + ; +POST ; Post-Install hook for Patch 1; PEP + ; Fire off the new x-refs for entries in the parameter file + N C0QI S C0QI=0 ; Walk through starting with number 1 + F S C0QI=$O(^C0Q(401,C0QI)) Q:'C0QI D + . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2^AMMS",DA=C0QI D EN^DIK + . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2.1^AQMS",DA=C0QI D EN^DIK diff --git a/qrda/C0Q/trunk/p/C0QPQRI.m b/qrda/C0Q/trunk/p/C0QPQRI.m new file mode 100644 index 0000000..1144d25 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QPQRI.m @@ -0,0 +1,180 @@ +C0QPQRI ; GPL - GENERATES A PQRI XML FILE ; 5/23/12 2:42pm + ;;1.0;C0Q;;May 21, 2012;Build 63 + ;Copyright 2011 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE + ; +EN ; + ; lets try some hard coded values for now + N C0QVAR + ; + ; first, the values that occur only once for the file + ; + S C0QVAR("create-by")="RegistryA" + S C0QVAR("create-date")="12-10-2010" + S C0QVAR("create-time")="14:27" + S C0QVAR("file-number")=1 + S C0QVAR("number-of-files")=9 + S C0QVAR("version")="1.0" + ; + ; registry values + ; + S C0QVAR("registry-id")=125789123 + S C0QVAR("registry-name")="Model Registry" + S C0QVAR("submission-method")="C" + ; + ; values for each provider + ; + S C0QVAR("npi")=12011989 + S C0QVAR("tin")=387682321 + S C0QVAR("waiver-signed")="Y" + S C0QVAR("encounter-from-date")="06-13-2010" + S C0QVAR("encounter-to-date")="12-10-2010" + ; + ; values for each measure group + ; + S C0QVAR("ffs-patient-count")=2 + S C0QVAR("group-eligible-instances")=30 + S C0QVAR("group-reporting-rate")=66.67 + S C0QVAR("group-reporting-rate-numerator")=20 + ; + ; for each measure + ; + S C0QVAR("pqri-measure-number")=128 + S C0QVAR("eligible-instances")=100 + S C0QVAR("meets-performance-instances")=18 + S C0QVAR("performance-exclusion-instances")=0 + S C0QVAR("performance-not-met-instances")=10 + S C0QVAR("performance-rate")="90.00" + S C0QVAR("reporting-rate")="28.00" + ; + ; + N ZG,ZV + D GETTEMP^C0CMXP("ZG","PQRIXML") ; GET THE TEMPLATE + D BIND^C0CSOAP("ZV","C0QVAR","PQRIXML") ; GET BINDING VALUES + D MAP^C0CXPATH("ZG","ZV","ZO") ; MAP THE XML + D MEA("GG","GGG") ; GET THE MEASURES + N GB ; BUILD LIST + D QUEUE^C0CXPATH("GB","ZO",1,30) ; first part of pqri.xml + D QUEUE^C0CXPATH("GB","GG",2,$O(GG(""),-1)-1) ; the measures + D QUEUE^C0CXPATH("GB","ZO",$O(ZO(""),-1)-2,$O(ZO(""),-1)) ; LAST LINES + D BUILD^C0CXPATH("GB","GZO") ; BUILD THE XML + N ZI S ZI=0 + F S ZI=$O(ZO(ZI)) Q:ZI="" D ; FOR EACH LINE OF XML + . W !,GZO(ZI) ; WRITE OUT THE XML + N GN,GN1,GD S GN=$NA(^TMP("C0QXML",$J)) + K @GN + K ZO(0) ; GET RID OF LINE COUNT + M @GN=GZO + S GN1=$NA(@GN@(1)) + S GD=$G(^TMP("C0CCCR","ODIR")) ; CONVENIENT OUTPUT DIRECTORY + W $$OUTPUT^C0CXPATH(GN1,"pqri.xml",GD) + K @GN ; DONT NEED IT ANYMORE + Q + ; +INSERT(ZARY,ZONE) ; INSERT ONE MEASURE INTO THE ARRAY + ; + ;N GGG + S GGG="//submission/measure-group ID='C'/provider/pqri-measure" ;XPATH + D INSINNER^C0CXPATH(ZARY,GGG,ZONE) ; INSERT XML + Q + ; +PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE + ; + N ZG + S ZG=$NA(^TMP("PQRIXML",$J)) + K @ZG + D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML + N C0CDOCID + S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML + D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS + I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1 + Q + ; +PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML + ; ZRTN IS PASSED BY REFERENCE + ; ZXML IS PASSED BY NAME + ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED + ; + N ZG + S ZG=$NA(^TMP("C0CXML",$J)) + K @ZG + M @ZG=@ZXML + S C0CDOCID=$$PARSE^C0CDOM(ZG,"NHINARRAY") ; PARSE WITH MXML + D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS + I '$G(KEEP) K GIDX,GARY,@ZG ; GET RID OF THE ARRAYS UNLESS KEEP=1 + Q + ; +GETFM(RTN,ZREC) ; GET THE QUALITY MEASURES ARRAY + ; + I '$D(ZREC) S ZREC=7 ; OUTPATIENT CERTIFICATION SET + ;N GPL + D LIST^DIC($$C0QMMFN(),","_ZREC_",",".01;1.1;2.1;3;",,,,,,,,"GPL") + N ZI S ZI="" + F S ZI=$O(GPL("DILIST","ID",ZI)) Q:ZI="" D ; + . S @RTN@(ZI,"measure")=GPL("DILIST","ID",ZI,.01) + . N ZMIEN,ZMEAIEN,ZRNAME + . S ZMIEN=GPL("DILIST",2,ZI) ; IEN OF MEASURE IN MEASURE FILE + . ;S ZMEAIEN=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",.01,"I") ; MEASURE + . S ZRNAME=$$GET1^DIQ($$C0QMMFN(),ZMIEN_","_ZREC_",",".01:.8") ; MEASURE + . ;S @RTN@(ZI,"reportingName")=$$GET1^DIQ($$C0QQFN(),ZMEAIEN_",",.8) ; RNAME + . S @RTN@(ZI,"reportingName")=ZRNAME ; A SHORTCUT TO THE REPORTING NAME + . S @RTN@(ZI,"reportingNumber")=$P(ZRNAME,"NQF",2) ; NQF0001 -> 0001 + . S @RTN@(ZI,"denominator")=+GPL("DILIST","ID",ZI,2.1) + . S @RTN@(ZI,"numerator")=+GPL("DILIST","ID",ZI,1.1) + . N ZNUM,ZDEM,ZPCT + . S (ZNUM,ZDEM,ZPCT)=0 + . S ZDEM=+GPL("DILIST","ID",ZI,2.1) + . S ZNUM=+GPL("DILIST","ID",ZI,1.1) + . I ZDEM>0 S ZPCT=((ZNUM*100)/ZDEM) + . S @RTN@(ZI,"percent")=$P(ZPCT,".",1) + . S @RTN@(ZI,"ien")=ZI + ;ZWR GPL + Q + ; +MEA(ZOUT,ZIN) ; CREATE XML FROM THE MEASURES ARRAY + ; + D GETFM(ZIN) ; GET THE MEASURES + ;N G + ;N ZI,ZJ + S ZI="" + F S ZI=$O(@ZIN@(ZI)) Q:ZI="" D ; + . N ZDEN,ZNUM,ZPCT + . S ZDEN=$G(@ZIN@(ZI,"denominator")) + . S ZNUM=$G(@ZIN@(ZI,"numerator")) + . S ZPCT=$G(@ZIN@(ZI,"percent")) + . S G("pqri-measure",ZI,"eligible-instances")=ZDEN + . S G("pqri-measure",ZI,"meets-performance-instances")=ZNUM + . S G("pqri-measure",ZI,"performance-exclusion-instances")=0 + . S G("pqri-measure",ZI,"performance-not-met-instances")=ZDEN-ZNUM + . S G("pqri-measure",ZI,"performance-rate")=ZPCT + . S G("pqri-measure",ZI,"pqri-measure-number")="NQF "_@ZIN@(ZI,"reportingNumber") + . S G("pqri-measure",ZI,"reporting-rate")=ZPCT + K ^TMP("MXMLDOM",$J) + S C0CDOCID=$$DOMI^C0CDOM("G",1,"root") + D OUTXML^C0CDOM(ZOUT,C0CDOCID,1) + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QPRML.m b/qrda/C0Q/trunk/p/C0QPRML.m new file mode 100644 index 0000000..ff3748d --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QPRML.m @@ -0,0 +1,690 @@ +C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm + ;;1.0;C0Q;;May 21, 2012;Build 33 + ; + ;2011 Zach Gonzales - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; +BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create + ; patient lists + ;N GRSLT ; ARRAY FOR RESULTS + I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array + I '$D(C0QPR) S C0QPR=0 ;default don't print out results + I '$D(C0QPL) S C0QPL=1 ;default do create patient lists + N G1 ; ONE SET OF VALUES - RNF1 FORMAT + ; INITIALIZE LISTS + ; this is done so that if there are no matching patients, the patient list + ; will be zeroed out + S C0QLIST("HasDemographics")="" + S C0QLIST("Patient")="" + S C0QLIST("HasProblem")="" + S C0QLIST("HasAllergy")="" + S C0QLIST("HasMed")="" + S C0QLIST("HasVitalSigns")="" + S C0QLIST("HasMedOrders")="" + S C0QLIST("HasSmokingStatus")="" + D ALL ; all currently admitted patients in the hospital + D DIS ; all patients discharged since the reporting period began + I C0QSS ZWR GRSLT + I C0QPL D ; + . D FILE ; FILE THE PATIENT LISTS + . D UPDATE^C0QUPDT(.G,8) ; UPDATE THE MU MEASUREMENT SET + . D UPDATE^C0QUPDT(.G,9) ; UPDATE THE MU MEASUREMENT SET + Q + ; +ALL ;retrieve active inpatients + N WARD S WARD="" + F D Q:WARD="" + . S WARD=$O(^DIC(42,"B",WARD)) ;ward name + . Q:WARD="" + . N WIEN S WIEN="" + . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN + . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name + . . N DFN,RB S DFN="" + . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward + . . . D DEMO + . . . D PROBLEM + . . . D ALLERGY + . . . D MEDS4 + . . . D RECON2 + . . . D ADVDIR + . . . D SMOKING + . . . D VITALS + . . . D VTE1 + . . . D EDTIME + . . . I C0QPR D PRINT + . . . I C0QSS D SS + . . . I C0QPL D PATLIST + Q + ; +DEMO ; patient demographics + K PTDOB + N PTNAME,PTSEX,PTHRN,PTRLANG,PTLANG,RACE,RACEDSC,ETHN,ETHNDSC,RB + S PTNAME=$P(^DPT(DFN,0),U) ;patient name + S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + S PTHRN=$P($G(VA("PID")),U) ;health record number + S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + S RACE="" + F D Q:RACE="" + . S RACE=$O(^DPT(DFN,.02,"B",RACE)) ;race code IEN + . Q:'RACE + . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) ;race description + S ETHN="" + F D Q:ETHN="" + . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) ;ethnicity IEN + . Q:'ETHN + . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description + S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + I DEMOYN S C0QLIST("HasDemographics",DFN)="" + E S C0QLIST("FailedDemographics",DFN)="" + Q + ; +PROBLEM ; PATIENT PROBLEMS + D LIST^ORQQPL(.PROBL,DFN,"A") + S PBCNT="" + F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + K PROBL + Q + ; +ALLERGY ; ALLERGY LIST + D LIST^ORQQAL(.ALRGYL,DFN) + S ALCNT="" + F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + K ALRGYL + Q + ; +MEDS ; MEDICATIONS + ; + I DFN=97 D Q ; + . S MDCNT=271 + K MEDSL + D EN^C0CNHIN(.MEDSL,DFN,"MED;") ; GET THE MEDS FROM THE NHIN API + ; can't use COVER^ORWPS even though it's fast.. we need to detect + ; if the medications are Inpatient to compute the CPOE measure + ; we will use the NHINV routines for this purpose + ;D COVER^ORWPS(.MEDSL,DFN) + S MDCNT="" S HASINP=0 + F S MDCNT=$O(MEDSL("med",MDCNT)) Q:MDCNT="" D + . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + . Q:MEDSL("med",MDCNT,"status@value")'="active" + . ;S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + . S MDDESC=$G(MEDSL("med",MDCNT,"products.product@name")) + . ;S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + . S MDITEM=$G(MEDSL("med",MDCNT,"sig")) ; i think this is what meditem is + . I MEDSL("med",MDCNT,"vaType@value")="I" S HASINP=1 + I HASINP D ; THE PATIENT HAS AN INPATIENT MED + . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE + E S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient + K MEDSL + Q + ; +MEDS2 ; MEDICATIONS + ; + K MEDSL,MDDESC,MDITEM + D COVER^ORWPS(.MEDSL,DFN) ; CPRS MED LIST + I '$D(MEDSL) D ; + . S C0QLIST("NoMedOrders",DFN)="" + . I $$HFYN^C0QHF(DFN,"MEDS HAVE BEEN REVIEWED") D ; + . . S C0QLIST("HasMed",DFN)="" + . E S C0QLIST("NoMed",DFN)="" + S MDCNT="" S HASINP=0 + F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D ; + . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + . ;S C0QLIST("HasMedOrders",DFN)="" + . S C0QLIST("HasMed",DFN)="" + . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + . I $P($P(MEDSL(MDCNT),"^",1),";",2)="I" S HASINP=1 + I HASINP D ; THE PATIENT HAS AN INPATIENT MED + . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE + E S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient + K MEDSL + Q + ; +MEDS3 ; USE THE REMINDER INDEX ^PXRMINDX TO CHECK FOR MEDS + ; + S C0QPXRM=$NA(^PXRMINDX(55,"PI")) ; REMINDER INDEX FOR DRUGS + I $D(@C0QPXRM@(DFN)) D ; HAS MEDS + . S C0QLIST("HasMed",DFN)="" + . S C0QLIST("HasMedOrders",DFN)="" + E D ; NO MEDS + . S C0QLIST("NoMed",DFN)="" + . S C0QLIST("NoMedOrders",DFN)="" + Q + ; +MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS + N BEG,END + S BEG=$$DT^C0PCUR("JULY 3,2011") + S END=$$DT^C0PCUR("NOW") + D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 + N C0QMEDS + M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL + N FOUND + N ZI + I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS + . S C0QLIST("NoMed",DFN)="" + E D ; HAS MEDS + . S C0QLIST("HasMed",DFN)="" + S ZI="" S FOUND=0 + F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED + . N ZM + . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION + . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE + . . S FOUND=1 + I FOUND S C0QLIST("HasMedOrders",DFN)="" ; MET CPOE MEASURE + E S C0QLIST("NoMedOrders",DFN)="" + Q + ; +RECON ; MEDICATIONS RECONCILIATION + ; + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST("XferOfCare",DFN)="" ; transfer of care patient + N HASRECON S HASRECON=0 + N GT,G + S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" + S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" + I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON + . S HASRECON=1 + ;N ZT + ;S ZT="MEDICATION RECONCILIATION COMPLET" + ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; + ;. S HASRECON=1 + ;E D ; + ;. S ZT="Medication Reconcilation Complete" + ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; + ;. . S HASRECON=1 + ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 + I HASRECON D ; + . S C0QLIST("HasMedRecon",DFN)="" + E S C0QLIST("NoMedRecon",DFN)="" + Q + ; +RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION + I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; + . S C0QLIST("XferOfCare",DFN)="" ; transfer of care patient + I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; + . S C0QLIST("HasMedRecon",DFN)="" + E S C0QLIST("NoMedRecon",DFN)="" + Q + ; +ADVDIR ; ADVANCE DIRECTIVE + ; + I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER + . S C0QLIST("Over65",DFN)="" + . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; + . . S C0QLIST("HasAdvanceDirective",DFN)="" + . E D ; + . . S C0QLIST("NoAdvanceDirective",DFN)="" + Q + ; +SMOKING ; + I $$INLIST("HasSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST("HasSmokingStatus",DFN)="" + . S C0QLIST("Over12",DFN)="" + I $$INLIST("NoSmokingStatus",DFN) D Q ; ALREADY HAS SMOKING STATUS CHECK + . S C0QLIST("NoSmokingStatus",DFN)="" + . S C0QLIST("Over12",DFN)="" + N C0QSMOKE,C0QSYN + S C0QSYN=0 + I $$AGE^C0QUTIL(DFN)<13 Q ; DON'T CHECK UNDER AGE 13 + D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE + ; PATIENT IN THE CATEGORY OF TOBACCO + I $D(C0QSMOKE) S C0QSYN=1 + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco <1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smokeless Tobacco: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking < 1 Yr Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking > 20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 1-5 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 10-20 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Quit Smoking: 5-10 Yrs Ago") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS: > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 10-20 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER 20+ YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER < 1 YR AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER > 20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 1-5 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 10-20 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKER: 5-10 YRS AGO") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"PREVIOUS SMOKELESS TOBACCO USER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking Cessation (OPH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"LIFETIME NON-SMOKER") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Former Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoke Exposure/2nd Hand Exposure") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoked For > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Tobacco User") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 1-5 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 10-20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for 5-10 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for < 1 Yr") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smokeless Used for > 20 Yrs") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoker (HPI)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (FMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Smoking (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Smoker (PMH)") + S:'C0QSYN C0QSYN=$$HFYN^C0QHF(DFN,"Non-Tobacco User") + S C0QLIST("Over12",DFN)="" + N GT + S GT(1,"HasSmokingStatus","SMOK")="" + S GT(2,"HasSmokingStatus","Smok")="" + S GT(3,"HasSmokingStatus","smok")="" + ;N ZT + ;S ZT="Smok" + ;S:'C0QSYN C0QSYN=$$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) ; + I 'C0QSYN D ; + . N G + . S OK=$$TXTALL^C0QNOTES(.G,.GT,DFN) + . I $D(G) S C0QSYN=1 + I C0QSYN S C0QLIST("HasSmokingStatus",DFN)="" + E S C0QLIST("NoSmokingStatus",DFN)="" + Q + ; +VITALS ; + ; + N C0QSDT,C0QEDT + D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE + D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY + D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS + I $D(VITRSLT) D ;ZWR VITRSLT B ; + . I VITRSLT(1)["No vitals found." S C0QLIST("NoVitalSigns",DFN)="" + . E S C0QLIST("HasVitalSigns",DFN)="" + Q + ; +VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL + ; + I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; + . S C0QLIST("HasVTE24",DFN)="" + E S C0QLIST("NoVTE24",DFN)="" + Q + ; +EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS + N FOUND + S FOUND=0 + I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 + I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 + I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 + I FOUND D ; + . S C0QLIST("HasEDtime",DFN)="" + E S C0QLIST("NoEDtime",DFN)="" + Q + ; +INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST + N ZL,ZR + S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE + I ZL="" Q 0 ; LIST DOES NOT EXIST + S ZR=0 ; ASSUME NOT IN LIST + I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST + Q ZR + ; +PRINT ; PRINT TO SCREEN + + I $D(WARD) W !!,WARD_"-"_WARDNAME_" "_RB_": "_PTNAME_"("_PTSEX_") " + I $D(EXDTE) D ; + . W !,"Discharge Date: ",EXDTE + . W !,DFN," ",PTNAME + W !,"DOB: ",PTDOB," HRN: ",PTHRN + W !,"Language Spoken: ",$G(PTLANG) + W !,"Race: ",RACEDSC + W !,"Ethnicity: ",$G(ETHNDSC) + W !,"Problems: " + W !,PBDESC + W !,"Allergies: " + W !,ALDESC + W !,"Medications: " + W ! + Q + ; +SS ; CREATE SPREADSHEET ARRAY + S G1("Patient")=DFN + I $D(WARD) D ; + . S G1("WardName")=WARDNAME + . S G1("RoomAndBed")=RB + I $D(EXDTE) D ; + . S G1("DischargeDate")=EXDTE + S G1("PatientName")=PTNAME + S G1("Gender")=PTSEX + S G1("DateOfBirth")=PTDOB + S G1("HealthRecordNumber")=PTHRN + S G1("LanguageSpoken")=$G(PTLANG) + S G1("Race")=RACEDSC + S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S G1("HasProblem")=0 + E S G1("HasProblem")=1 + S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S G1("HasAllergy")=0 + E S G1("HasAllergy")=1 + I $D(MDITEM) D ; + . S G1("HasMed")=1 + E S G1("HasMed")=0 + S G1("MedDescription")=$G(MDDESC) + I $D(MDITEM) W !,"("_MDITEM_")"_MDDESC E W !,MDDESC + D RNF1TO2B^C0CRNF("GRSLT","G1") + K G1 + Q ; DON'T WANT TO DO THE NHIN STUFF NOW + ; +PATLIST ; CREATE PATIENT LISTS + S C0QLIST("Patient",DFN)="" ; THE PATIENT LIST + N DEMOYN S DEMOYN=1 + I $G(PTSEX)="" S DEMOYN=0 + I $G(PTDOB)="" S DEMOYN=0 + I $G(PTHRN)="" S DEMOYN=0 + I $G(PTLANG)="" S DEMOYN=0 + I $G(RACEDSC)="" S DEMOYN=0 + I $G(ETHNDSC)="" S DEMOYN=0 + ;I DEMOYN S C0QLIST("HasDemographics",DFN)="" + ;E S C0QLIST("FailedDemographics",DFN)="" + ;S G1("Gender")=PTSEX + ;S G1("DateOfBirth")=PTDOB + ;S G1("HealthRecordNumber")=PTHRN + ;S G1("LanguageSpoken")=$G(PTLANG) + ;S G1("Race")=RACEDSC + ;S G1("Ehtnicity")=$G(ETHNDSC) + S G1("Problem")=PBDESC + I PBDESC["No problems found" S C0QLIST("NoProblem",DFN)="" + E S C0QLIST("HasProblem",DFN)="" + ;S G1("Allergies")=ALDESC + I ALDESC["No Allergy" S C0QLIST("NoAllergy",DFN)="" + E S C0QLIST("HasAllergy",DFN)="" + ;I $D(MDITEM) D ; + ;. S C0QLIST("HasMed",DFN)="" + ;E S G1("NoMed",DFN)="" + ;S G1("MedDescription")=$G(MDDESC) + Q + ; +NHIN ; SHOW THE NHIN ARRAY FOR THIS PATIENT + Q:DFN=137!14 + D EN^C0CNHIN(.G,DFN,"") + ZWR G + K G + ; + QUIT ;end of WARD + ; + ; +DIS; + N DFN,DTE,EXDTE S DTE="" + F D Q:DTE="" + . S DTE=$O(^DGPM("B",DTE)) + . Q:'DTE + . Q:$P(DTE,".")<3110703 + . S EXDTE=$$FMTE^XLFDT(DTE) + . N PTFM S PTFM="" + . D + . . S PTFM=$O(^DGPM("B",DTE,PTFM)) + . . Q:'PTFM + . . S DFN=$P(^DGPM(PTFM,0),U,3) + . . S C0QLIST("Patient",DFN)="" + . . D DEMO + . . D PROBLEM + . . D ALLERGY + . . D MEDS4 + . . D RECON2 + . . D ADVDIR + . . D SMOKING + . . D VITALS + . . D VTE1 + . . D EDTIME + . . I C0QPR D PRINT + . . I C0QSS D SS + . . I C0QPL D PATLIST + Q + ; +C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE +FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST + ; + I '$D(C0QLIST) Q ; + N LFN S LFN=$$C0QALFN() + N ZI,ZN + S ZI="" + F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; + . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) + . I ZN="" D Q ; OOPS + . . W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI + . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN + . N C0QNEW,C0QOLD,C0QRSLT + . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST + . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW + . N ZJ,ZK + . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST + . K C0QFDA + . S ZJ="" + . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY + . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE + . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN + . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" + . . . B + . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" + . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS + . ; SECOND, PROCESS THE ADDITIONS + . K C0QFDA + . S ZJ="" S ZK=1 + . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 + . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ + . . S ZK=ZK+1 + . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS + ;. Q + ;. K C0QFDA + ;. N ZJ,ZC + ;. S ZJ="" S ZC=1 + ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST + ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ + ;. . S ZC=ZC+1 + ;. D UPDIE + ;. W !,"FOUND:"_ZI + Q + ; +KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE + ; + N C0QFDA,ZFN,LIST,ATTR + S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE + D CLEAN^DILF + S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME + S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE + D CLEAN^DILF + K ZERR + S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE + D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD + S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE + D UPDIE ; CREATE THE SUBFILE + N ZR ; NEW IEN FOR THE RECORD + S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) + ; + Q ZR + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; + ; WHAT FOLLOWS IS OLD CODE - DELETE WHEN THIS WORKS + ;. . N PTNAME S PTNAME=$P(^DPT(DFN,0),U,1) + ;. . S PTDOB=$$FMTE^XLFDT($P($G(^DPT(DFN,0)),U,3)) ;date of birth + ;. . S PTSEX=$P($G(^DPT(DFN,0)),U,2) ;patient sex + ;. . D PID^VADPT ;VADPT call to grab PISD based on PT Eligibility + ;. . S PTHRN=$P($G(VA("PID")),U) ;health record number + ;. . S PTRLANG=$P($G(^DPT(DFN,256000)),U) ;ptr to language file + ;. . I $G(PTRLANG)'="" S PTLANG=$P(^DI(.85,PTRLANG,0),U) ;PLS extrnl + ;. . S RACE="" + ;. . F D Q:RACE="" + ;. . . S RACE=$O(^DPT(DFN,.02,"B",RACE)) + ;. . . Q:'RACE + ;. . . S RACEDSC=$P($G(^DIC(10,RACE,0)),U) + ;. . N ETHNDSC + ;. . N ETHNDSC S ETHNDSC="" + ;. . S ETHN="" + ;. . F D Q:ETHN="" + ;. . . S ETHN=$O(^DPT(DFN,.06,"B",ETHN)) + ;. . . Q:'ETHN + ;. . . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) + ;. . D LIST^ORQQPL(.PROBL,DFN,"A") + ;. . S PBCNT="" + ;. . F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D + ;. . . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description + ;. . K PROBL + ;. . D LIST^ORQQAL(.ALRGYL,DFN) + ;. . S ALCNT="" + ;. . F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D + ;. . . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description + ;. . K ALRGYL + ;. . D COVER^ORWPS(.MEDSL,DFN) + ;. . S MDCNT="" + ;. . F S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT="" D + ;. . . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE" ;active medications only + ;. . . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description + ;. . . S MDITEM=$P($G(MEDSL(MDCNT)),U,3) + ;. . K MEDSL + ;. . W !,"Discharge Date: ",EXDTE + ;. . W !,DFN," ",PTNAME + ;. . W !,"DOB: ",PTDOB," HRN: ",PTHRN + ;. . W !,"Language Spoken: ",$G(PTLANG) + ;. . W !,"Race: ",RACEDSC + ;. . W !,"Ethnicity: ",ETHNDSC + ;. . W !,"Problems: " + ;. . W !,PBDESC + ;. . W !,"Allergies: " + ;. . W !,ALDESC + ;. . W !,"Medications: " + ;. . I $D(MDITEM) W !,"(",MDITEM,")",MDDESC E W !,MDDESC + ;. . W ! + ;Q + ; + ; + ; + ; +END ;end of C0QPRML; diff --git a/qrda/C0Q/trunk/p/C0QQRDA.m b/qrda/C0Q/trunk/p/C0QQRDA.m new file mode 100644 index 0000000..ac47502 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QQRDA.m @@ -0,0 +1,267 @@ +C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/2/12 10:15am + ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 + ;Copyright 2012 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; +EN ; Private to this Package; Main Entry Point for this routine + ; This EP is interactive or silent depending on params + ; + ; Check for config errors first; try to set-up. + N % S %=$$CHECKPAR() + I +%=1 D EN^DDIOL($P(%,U,2)) QUIT ; No inpatient pars found... QUIT + I +%=2 D ; No QRDA Measure Sets... try to set it up. + . D EN^DDIOL("Trying to automatically set-up measure sets in parameters") + . N % S %=$$SETUPPAR($$INPPARM()) + . I % D EN^DDIOL("Failed to set-up..."_$P(%,U,2)) + . E D EN^DDIOL("...Set-up complete") + ; + ; Print Intro + N % + S %(1)="This program collects patients from the denominators of the measures" + S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default" + S %(3)="directory (probably /tmp/)." + S %(4)="" + S %(5)="This will take some time to execute." + S %(6)="" + S %(6,"F")="!!!" + ; + D EN^DDIOL(.%) + ; + ; Ask user which measure set to run + N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables + S DIR(0)="SB^V:VTE;S:STK;E:ED;A:ALL" + S DIR("A")="Measure to calculate" + S DIR("A",1)="Which measure set would you like to produce QRDA documents for?" + S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or " + S DIR("A",3)="[E]D Measure Set. Or you can choose to run [A]ll of them." + D ^DIR + ; + I $G(DTOUT)!$G(DUOUT) QUIT ; Did user hit '^' or time out? + ; + ; Get the Measure Set IEN which the user has seleted. + ; NB: field names start with VTE, STK, or ED; so I can use the output + ; of DIR directly. + ; + N FLD S FLD=Y(0) ; Grab full text of user choice into var "FLD" for field. + N C0QMSIENS ; Measure set IENs (^ piece); (0) stores the identifier for file names + ;looks like this in the end + ; C0QMSIENS=1^3^5 + ; C0QMSIENS(0)="ED^VTE^STK" + ; + N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameter IEN in 401 + ; + ; If not all, grab the measure; else, grab all of them in ^ pieces + I FLD'="ALL" D + . S C0QMSIENS=$$GET1^DIQ(1130580001.401,INPPARM,FLD,"I") + . S C0QMSIENS(0)=FLD + ; + E D + . N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") + . N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") + . N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") + . S C0QMSIENS=C0QED_U_C0QVTE_U_C0QSTK + . S C0QMSIENS(0)="ED"_U_"VTE"_U_"STK" + ; + ; + S:'C0QMSIENS $EC=",U1," ; Debug.Assert that MSIEN is numeric. + ; + ; + ; Do the work + N C0QI ; Counter through the measures + F C0QI=1:1:$L(C0QMSIENS,U) D + . N MSIEN S MSIEN=$P(C0QMSIENS,U,C0QI) ; Measure Set IEN + . N MSNAME S MSNAME=$P(C0QMSIENS(0),U,C0QI) ; Measure Set Name + . N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection + . K @REF ; Clear global + . D WORK(REF,MSIEN) ; Process Measure Set, collect data in global + . D PRINTXML(REF,MSNAME) ; Generate XML; output to File. + . K @REF ; Clear global + QUIT + ; + ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked. + ; N % S %=$$CHECKPAR() + ; I % S RETURN(0)=% Q + ; + ; N DIQUIET S DIQUIET=1 + ; D EN + ; S RETURN(0)=0 + ; QUIT + ; +CHECKPAR() ; Private Proc; Check if environment is okay. + ; Output: 0 or +ve^message for error + ; 1 -> No Inpatient Parameters found + ; 2 -> Measurement Set(s) not found. + ; + N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN + I 'INPPARM Q 1_U_"No Inpatient Parameters found" + ; + ; Pointer fields to Measurement Set file, we grab the IENs + N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") + N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") + N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") + ; + N TXT S TXT="" ; Error text + I 'C0QED S TXT=TXT_"ED," + I 'C0QSTK S TXT=TXT_"STK," + I 'C0QVTE S TXT=TXT_"VTE" + I $E(TXT,$L(TXT))="," S TXT=$E(TXT,1,$L(TXT)-1) ; remove trailing comma + I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT + ; + QUIT 0 ; All okay + ; +SETUPPAR(INPPARM) ; Private Proc; Set-up QRDA lists if Inpatient Param is found. + ; Input: Inpatient Parameter IEN in C0Q(401, -> C0Q Parameters + ; Output: 0 if okay or 1^error description + N C0QFDA + ; + N VTEIEN S VTEIEN=$O(^C0Q(201,"B","VTE CMS REPORTING MEASURES","")) + I 'VTEIEN QUIT 1_U_"VTE not found" + N STKIEN S STKIEN=$O(^C0Q(201,"B","STK CMS REPORTING MEASURES","")) + I 'STKIEN QUIT 1_U_"STK not found" + N EDIEN S EDIEN=$O(^C0Q(201,"B","ED CMS REPORTING MEASURES","")) + I 'EDIEN QUIT 1_U_"ED not found" + ; + S C0QFDA(1130580001.401,INPPARM_",",5.1)=VTEIEN + S C0QFDA(1130580001.401,INPPARM_",",5.2)=STKIEN + S C0QFDA(1130580001.401,INPPARM_",",5.3)=EDIEN + ; + N C0QERR + D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) + I $D(C0QERR) Q 2_U_C0QERR("DIERR",1,"TEXT",1) + Q 0 + ; +WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data. + ; Input/Output: C0QREF -> Global for Output passed by Name + ; C0QMSIEN -> (Input): Measurement Set IEN to calculate + ; + ; Print + D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0)) + D EN^DDIOL("") + ; + ; Calculate totals and move patients over from individual measures + N A + D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used. + ; + ; Get QRDA code for Measure Set. + N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT") + ; + N C0QI S C0QI=0 ; Fileman IEN looper + F S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI D ; For each measure in Measure Set + . ; + . ; Get QRDA code using relational jump + . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT") + . ; + . ; Then collect patients in the denominator, and store in output global + . N C0QP S C0QP=0 + . F S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP D ; For each patient in denominator + . . N C0QDFN S C0QDFN=+^(C0QP,0) + . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)="" + QUIT + ; +INPPARM() ; $$ Private; Get Inpatient Parameters IEN + ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file + ; + ; Browse this tree of xrefs to get the IEN of INP type (last line here). + ; ^C0Q(401,"B","INPATIENT",2)="" + ; ^C0Q(401,"B","OUTPATIENT",1)="" + ; ^C0Q(401,"MU","MU12",1)="" + ; ^C0Q(401,"MU","MU12",2)="" + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" + ; + N MUID S MUID="" ; Looper for MU Year ID + N FOUND S FOUND=0 ; Found flag to get out of loop + N IEN ; Output variable + F S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID="" Q:FOUND D ; Loop backwards + . N TYP S TYP="" ; Type ("EP" or "INP") + . F S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP="" Q:FOUND D + . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q ; If found, get IEN, quit out of loops + QUIT +$G(IEN) + ; +PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc + ; Input: C0QREF -> Global By Name + ; C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames. + ; Output: modified CCRs are saved in /tmp/ + N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers + F S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN="" D ; For each patient + . ; + . N GREEN S GREEN=$C(27)_"[1;37;42m" + . N RESET S RESET=$C(27)_"[0m" + . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!") + . D EN^DDIOL("","","!") + . ; + . ; CCR Generatation is next; protected against crashes. + . ; ET set to new value then restored. + . N C0QCCRXML ; CCR XML + . N OLDTRAP S OLDTRAP=$ET + . ; ET: Rollback to this level, write the error in red , clear it, then quit + . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET + . N $ES,$ET + . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA" + . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC. + . S $ET=OLDTRAP + . ; + . ; + . ; Quality XML Section generated by hand next... + . N C0QXML ; Generated Quality XML + . D XMLSTORE(.C0QXML,$$OT("QUALITY")) ; Open Tag + . F S C0QMS=$O(@C0QREF@(C0QDFN,C0QMS)) Q:C0QMS="" D ; For each measure set + . . D XMLSTORE(.C0QXML,$$OT("MEASURE_SET")) ; Open tag + . . D XMLSTORE(.C0QXML,$$TAG("ID",C0QMS)) ; Write out set QRDA code + . . D XMLSTORE(.C0QXML,$$OT("MEASURES")) ; Open tag + . . F S C0QM=$O(@C0QREF@(C0QDFN,C0QMS,C0QM)) Q:C0QM="" D ; for each measure + . . . D XMLSTORE(.C0QXML,$$TAG("MEASURE",C0QM)) ; Write and qrda code + . . D XMLSTORE(.C0QXML,$$CT("MEASURES")) ; Close tag + . . D XMLSTORE(.C0QXML,$$CT("MEASURE_SET")) ; Close tag + . D XMLSTORE(.C0QXML,$$CT("QUALITY")) ; Close tag + . ; + . ; + . ; Insert Quality XML under the root of the CCR document + . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord") + . ; + . ; + . ; Get Kernel Default Directory + . N DEFDIR S DEFDIR=$$DEFDIR^%ZISH() + . ; + . ; + . ; Write out to a file. + . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name + . K C0QCCRXML(0) ; remove zero node; API doesn't support it. + . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR)) + QUIT + ; + ; Quick XML stuff ; All Private +OT(STR) Q "<"_STR_">" ; $$ Open Tag +CT(STR) Q "" ; $$ Close Tag +TAG(NM,CONTENT) Q "<"_NM_">"_CONTENT_"" ; $$ Whole tag + ; +XMLSTORE(REF,STR) ; Priv Proc - Store XML + ; REF -> Save Array. Pass by Reference. + ; STR -> What to store. Pass by Value. + ; Use like this: D XMLSTORE(.STORE,"") + ; Output: STORE(1)="" + N L ; Number Subscript to use + S L=$O(REF(" "),-1) S L=L+1 ; Get last number and increment + S REF(L)=STR,REF(0)=L ; Store string in numbered sub, store last number in 0 node (not used here) + QUIT + ; + ; Following is for formatting printed XML. L passed in Symbol Table and starts at 0. +L1 D WS S L=L+1 Q ; Write space and increment +L2 S L=L-1 D WS Q ; Decrement and Write space +WS X "F I=1:1:L W "" """ Q ; Write Space + ; This is for rolling down the stack to the $ES level +ROLLDOWN S $ET="Q:$ES S $EC=""""",$EC=",U99," QUIT diff --git a/qrda/C0Q/trunk/p/C0QRMBMI.m b/qrda/C0Q/trunk/p/C0QRMBMI.m new file mode 100644 index 0000000..0bb16b3 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QRMBMI.m @@ -0,0 +1,133 @@ +C0QRMBMI ; SLC/PKR - National BMI and BSA computed finding; 7/16/12 3:36pm + ;;1.0;QUALITY MEASURES;**1**; + ; + ; VEN/SMH - on July 16 2012 + ; Added PBMI as a new Computed Finding -- essentially the same as BMI + ; PBMI = Percentile BMI; + ; + ; Copy of Routine PXRMBMI stolen from Patrick Reddington + ; + ;================================ +BMI(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Multi-occurrence computed + ;finding for BMI. + N BMI,HDATE,HT,IND,TDATE,WHL,WT + ;Get the list of weight and height measurements. + D WANDHL(DFN,NGET,BDT,EDT,.NFOUND,.WHL) + F IND=1:1:NFOUND D + . S TDATE=$P(WHL(IND),U,1),WT=$P(WHL(IND),U,2) + . S HT=$P(WHL(IND),U,3),HDATE=$P(WHL(IND),U,4) + . S TEST(IND)=1,DATE(IND)=TDATE + . S TEXT(IND)="height measured "_$$EDATE^PXRMDATE(HDATE) + . S BMI=WT/(HT*HT) + . S BMI=$FN(BMI,"",1) + . S (DATA(IND,"VALUE"),DATA(IND,"BMI"))=BMI + Q + ; + ; VEN/SMH -> Begin addition to routine +PBMI(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ; Multi-occurrence computed + ; finding for BMI percentile + N BMI,HDATE,HT,IND,TDATE,WHL,WT,BMI + ;Get the list of weight and height measurements. + D WANDHL(DFN,NGET,BDT,EDT,.NFOUND,.WHL) + F IND=1:1:NFOUND D + . S TDATE=$P(WHL(IND),U,1),WT=$P(WHL(IND),U,2) + . S HT=$P(WHL(IND),U,3),HDATE=$P(WHL(IND),U,4) + . S TEST(IND)=1,DATE(IND)=TDATE + . S TEXT(IND)="height measured "_$$EDATE^PXRMDATE(HDATE) + . S BMI=WT/(HT*HT) + . N PBMI S PBMI=0 ; BMI Percentile + . N GENDER S GENDER=$P(^DPT(DFN,0),U,2) + . N DOB S DOB=$P(^DPT(DFN,0),U,3) + . N AGE S AGE=$$FMDIFF^XLFDT($$DT^XLFDT(),DOB,1)/365.24 ; Age in yrs + . I $T(BMIPCTL^TMGGRC1)]"" S PBMI=$$BMIPCTL^TMGGRC1(AGE,GENDER,BMI,"") + . S PBMI=+PBMI ; We get a textish result (e.g. 78th percentile) + . S (DATA(IND,"VALUE"),DATA(IND,"BMI%ILE"))=PBMI + Q + ; VEN/SMH <- End + ; + ;================================ +BSA(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Multi-occurrence computed + ;finding for BSA. The coefficients have been adjusted for heights + ;in cm and weights in kg expect for Boyd where the weight is grams. + ;The default is to use the Mosteller formula. + N BSA,FORMULA,HT,IND,TDATE,TYPE,WHL,WT + S TYPE=$S(TEST="":"M",TEST="M":"M",TEST="D":"D",TEST="H":"H",TEST="G":"G",TEST="B":"B",1:"M") + S FORMULA=$S(TYPE="M":"Mosteller",TYPE="B":"Boyd",TYPE="D":"DuBois and Dubois",TYPE="H":"Haycock",TYPE="G":"Gehan and George",1:"Mosteller")_" formula" + ;Get the list of weight and height measurements. + D WANDHL(DFN,NGET,BDT,EDT,.NFOUND,.WHL) + F IND=1:1:NFOUND D + . S TDATE=$P(WHL(IND),U,1),WT=$P(WHL(IND),U,2) + . S HT=$P(WHL(IND),U,3),HDATE=$P(WHL(IND),U,4) + . S TEST(IND)=1,DATE(IND)=TDATE + . I TYPE="M" S BSA=$$SQRT^XLFMTH((WT*HT)/36) + . I TYPE="D" S BSA=.20247*$$PWR^XLFMTH(HT,.725)*$$PWR^XLFMTH(WT,.425) + . I TYPE="H" S BSA=.15058*$$PWR^XLFMTH(HT,.3964)*$$PWR^XLFMTH(WT,.5378) + . I TYPE="G" S BSA=.164*$$PWR^XLFMTH(HT,.42246)*$$PWR^XLFMTH(WT,.51456) + . I TYPE="B" D + .. N WEXP + .. S WT=1000*WT + .. S WEXP=.7285-(.0188*$$LOG^XLFMTH(WT)) + .. S BSA=.001277*$$PWR^XLFMTH(HT,.3)*$$PWR^XLFMTH(WT,WEXP) + . S BSA=$FN(BSA,"",2) + . S (DATA(IND,"VALUE"),DATA(IND,"BSA"))=BSA + . S TEXT(IND)=FORMULA_", height measured "_$$EDATE^PXRMDATE(HDATE) + Q + ; + ;================================ +GHEIGHT(DFN,WDATE,HT,HDATE) ;Return the height measurement taken on the + ;date closest to WDATE (WDATE is the date of the weight measurement). If no height is + ;found return -1. + N BCKDATE,DAS,DIFFL,DIFFS,DONE,FWDDATE,TEMP + S (DONE,HDATE)=0,HT=-1 + ;Check for height measured on same date and time. + S DAS=$O(^PXRMINDX(120.5,"PI",DFN,8,WDATE,"")) + I DAS'="" D + . D GETDATA^PXRMVITL(DAS,.TEMP) + . I TEMP("RATE")'=+TEMP("RATE") Q + . S HT=+(TEMP("RATE")*0.0254),HDATE=WDATE,DONE=1 + I 'DONE S (BCKDATE,FWDDATE)=WDATE + F Q:DONE D + . S BCKDATE=+$O(^PXRMINDX(120.5,"PI",DFN,8,BCKDATE),-1) + . S FWDDATE=+$O(^PXRMINDX(120.5,"PI",DFN,8,FWDDATE)) + . I (BCKDATE=0),(FWDDATE=0) S DONE=1 Q + . S DIFFS=$$FMDIFF^XLFDT(WDATE,BCKDATE,2),DIFFL(DIFFS,BCKDATE)="" + . S DIFFS=$$FMDIFF^XLFDT(FWDDATE,WDATE,2) + . S DIFFS=$S(DIFFS<0:-DIFFS,1:DIFFS),DIFFL(DIFFS,FWDDATE)="" + . S DIFFS=$O(DIFFL("")),HDATE=$O(DIFFL(DIFFS,"")) + . I HDATE=0 Q + . S DAS=$O(^PXRMINDX(120.5,"PI",DFN,8,HDATE,"")) + . D GETDATA^PXRMVITL(DAS,.TEMP) + . I TEMP("RATE")'=+TEMP("RATE") K DIFFL(DIFFS,HDATE) Q + . S HT=+(TEMP("RATE")*0.0254) + . S DONE=1 + Q + ; + ;================================ +WANDHL(DFN,NGET,BDT,EDT,NFOUND,WHL) ;Return an ordered and + ;paired list of weight and height measurements. Weight is in kilograms + ;and height is in meters. + N DAS,DIFFL,DIFFS,DONE,HT,HDATE,NOCC + N SDIR,TDATE,TEMP,WLIST,WT + S SDIR=$S(NGET>0:-1,1:1) + S NOCC=$S(NGET>0:NGET,1:-NGET) + ;Get a list of weight measurements in the date range. + S TDATE=BDT-.000001 + F S TDATE=+$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE)) Q:(TDATE=0)!(TDATE>EDT) D + . S DAS=$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE,"")) + . S WLIST(TDATE)=DAS + ;Get up to NOCC BMI values. + S TDATE="",(DONE,NFOUND)=0 + F S TDATE=$O(WLIST(TDATE),SDIR) Q:(DONE)!(TDATE="") D + . S DAS=WLIST(TDATE) + . K TEMP + . D GETDATA^PXRMVITL(DAS,.TEMP) + . I TEMP("RATE")'=+TEMP("RATE") Q + . S WT=+TEMP("RATE")*0.4535924 + .;Find the closest height measurement. + . D GHEIGHT(DFN,TDATE,.HT,.HDATE) + . I HT=-1 Q + . S NFOUND=NFOUND+1 + . S WHL(NFOUND)=TDATE_U_WT_U_HT_U_HDATE + . I NFOUND=NOCC S DONE=1 + Q + ; diff --git a/qrda/C0Q/trunk/p/C0QSET.m b/qrda/C0Q/trunk/p/C0QSET.m new file mode 100644 index 0000000..36ebd36 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QSET.m @@ -0,0 +1,115 @@ +C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm ; 7/31/12 8:19am + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +TEST ; TEST OF UNITY ROUTINE + ; + S A(1)="" + S A(2)="" + S A(3)="" + S B(3)="" + S B(4)="" + D UNITY("C","A","B") + D ZWRITE^C0QUTIL("C") + Q + ; +TEST2 ; WHICH PATIENTS HAVE MEDICATIONS? WHICH DON'T? + ; WHAT BAD PATIENT POINTERS ARE IN THE MEDICATIONS FILE? + S PATS=$NA(^DPT) + S MEDS=$NA(^PS(55)) + D UNITY("DELTA",PATS,MEDS) + W !,"PATIENTS WITH NO MEDS",! + D ZWRITE^C0QUTIL("DELTA(0,*)") + W !,"BAD POINTERS IN THE MEDS FILE",! + D ZWRITE^C0QUTIL("DELTA(2,*)") + Q + ; +UNITY(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS + ; ONLY NUMERIC LISTS SUPPORTED. FOR LIST WITH STRINGS SEE UNITYS + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME + ; FORMAT OF RETURN ARRAY: + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY + N C0QD ; TEMP WORK ARRAY + N ZN S ZN=0 ; COUNT + N ZI S ZI=0 + F S ZI=$O(@ZNEW@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN NEW + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW + . S ZN=ZN+1 + S @ZRTN@("COUNT")=ZN ; NEW FILE COUNT + S ZI=0 + F S ZI=$O(@ZOLD@(ZI)) Q:+ZI=0 D ; FOR EACH ITEM IN OLD + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED + S ZI=0 + F S ZI=$O(C0QD(ZI)) Q:+ZI=0 D ; FOR EACH ITEM + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY + Q + ; +UNITYS(ZRTN,ZNEW,ZOLD) ; RETURNS THE DELTA BETWEEN THE NEW AND OLD LISTS + ; THIS VERSION HAS SUPPORT FOR NUMBERS AND STRINGS IN A LIST + ; ZRTN,ZNEW AND ZOLD ARE ALL PASSED BY NAME + ; FORMAT OF RETURN ARRAY: + ; @ZRTN@(0,X)="" ; X IS MISSING FROM OLD + ; @ZRTN@(1,Y)="" ; Y IS IN BOTH NEW AND OLD - NOT MISSING + ; @ZRTN@(2,Z)="" ; Z IS EXTRA IN OLD - WOULD BEED TO BE DELETED FOR UNITY + N C0QD ; TEMP WORK ARRAY + N ZI S ZI="" + F S ZI=$O(@ZNEW@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN NEW + . S C0QD(ZI)=0 ; SET THEM ALL AS 0 MEANING NEW + S ZI="" + F S ZI=$O(@ZOLD@(ZI)) Q:ZI="" D ; FOR EACH ITEM IN OLD + . I $D(C0QD(ZI)) S C0QD(ZI)=1 ; NOT NEW - PRESENT IN NEW AND OLD + . E S C0QD(ZI)=2 ; EXTRA IN OLD - WOULD NEED TO BE DELETED + S ZI="" + F S ZI=$O(C0QD(ZI)) Q:ZI="" D ; FOR EACH ITEM + . S @ZRTN@(C0QD(ZI),ZI)="" ; SET RESULTS IN RETURN ARRAY + Q + ; +AND(ZRTN,ZNEW,ZOLD) ; RETURNS A LIST OF WHAT IS COMMON TO BOTH NEW AND OLD + N ZD + D UNITY("ZD",ZNEW,ZOLD) + M @ZRTN=ZD(1) + Q + ; +NAND(ZRTN,ZNEW,ZOLD) ; RETURNS WHAT IS IN A OR B BUT NOT BOTH + N ZD + D UNITY("ZD",ZNEW,ZOLD) + M @ZRTN=ZD(0) + M @ZRTN=ZD(2) + Q + ; +AMINUSB(ZRTN,ZA,ZB) ; WHAT'S LEFT IN A AFTER REMOVING B FROM IT + N ZD + D UNITY("ZD",ZA,ZB) + M @ZRTN=ZD(0) + Q + ; +OR(ZRTN,ZA,ZB) ; WHAT'S IN A OR B OR BOTH + N ZD + D UNITY("ZD",ZA,ZB) + M @ZRTN=ZD(0) + M @ZRTN=ZD(1) + M @ZRTN=ZD(2) + Q + ; +END ;end of C0QSET; diff --git a/qrda/C0Q/trunk/p/C0QUPDT.m b/qrda/C0Q/trunk/p/C0QUPDT.m new file mode 100644 index 0000000..768458b --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QUPDT.m @@ -0,0 +1,283 @@ +C0QUPDT ; GPL - Quality Reporting List Update Routines ; 10/17/12 12:09pm + ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 32 + ;Copyright 2009 George Lilly. Licensed under the terms of the GNU + ;General Public License See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; + Q + ; +C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE +C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE +C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE +C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE +C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE +RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE +RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE +C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE +C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ; + ; +UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT + ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE + ; NUMERATOR AND DENOMINATOR COUNTS + ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE + ; + ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT + ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING + ; + N ZI S ZI="" + N C0QM ; FOR HOLDING THE MEASURES IN THE SET + I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED? + . W !,"ERROR MEASURE SET IS LOCKED, EXITING" + D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES + D DELIST("C0QM") + N ZII S ZII="" + F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE + . ; + . ; Special processing for eRx measure. + . I $$GET1^DIQ(1130580001.101,+C0QM(ZII)_",",4,"I")="E" D ERXCOUNT(MSET,ZII) Q + . ; + . ; Otherwise, we go on + . N C0QNL,C0QDL,C0QFLTN,C0QFLTD,C0QNALT ; VEN/SMH - line changed in *5 + . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST + . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST + . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE + . ; + . ; Numerator + . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER + . I C0QNL="" D ; CHECK ALTERNATE LIST + . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER + . . I C0QNL'="" S C0QNALT=1 + . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh + . ; + . ; Denominator + . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER + . I C0QDL="" D ; CHECK ALTERNATE LIST + . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER + . . I C0QDL'="" S C0QDALT=1 + . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh + . ; + . ; FIRST PROCESS THE NUMERATOR + . ; + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR + . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS + . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST + . . N ZNEW + . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST + . . K C0QFLTRD + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) + . . S C0QNEW="C0QFLTRD" + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES + . N C0QCNT + . S C0QNCNT=$G(C0QRSLT("COUNT")) + . I C0QNCNT="" D ; + . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO + . . N GZZ S GZZ="" + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY + . . . S C0QNCNT=C0QNCNT+1 + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY + . . . S C0QNCNT=C0QNCNT+1 + . K C0QFDA ; CLEAR THE FDA + . N C0QONCNT ; OLD COUNT + . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1) + . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT + . . D UPDIE ; UPDATE THE NUMERATOR COUNT + . I $D(C0QRSLT) D ;B ; + . . ;ZWR C0QRSLT + . ; FIRST PROCESS DELETIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZIEN S ZG="" + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY + . . I ZIEN="" D Q ; OOPS + . . . W !,"ERROR DELETING ENTRY!! ",ZG + . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; SECOND, PROCESS ADDITIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZC S ZG="" S ZC=1 + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION + . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY + . . S ZC=ZC+1 + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; + . ; PROCESS THE DENOMINATOR + . ; + . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX + . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR + . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST + . E D ; USE THE REMINDER PACKAGE PATIENT LISTS + . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS + . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST + . . N ZNEW + . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST + . . K C0QFLTRD + . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW) + . . S C0QNEW="C0QFLTRD" + . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST + . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET + . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES + . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES + . N C0QDCNT + . S C0QDCNT=$G(C0QRSLT("COUNT")) + . I C0QDCNT="" D ; + . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO + . . N GZZ S GZZ="" + . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY + . . . S C0QDCNT=C0QDCNT+1 + . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY + . . . S C0QDCNT=C0QDCNT+1 + . K C0QFDA ; CLEAR THE FDA + . N C0QODCNT ; OLD COUNT + . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1) + . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT + . . D UPDIE ; UPDATE THE DENOMINATOR COUNT + . I $D(C0QRSLT) D ;B ; + . . ;ZWR C0QRSLT + . I '$D(C0QRSLT) Q ; NO RESULTS TO USE + . ; FIRST PROCESS DELETIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZIEN S ZG="" + . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION + . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY + . . I ZIEN="" D Q ; OOPS + . . . W !,"ERROR DELETING ENTRY!! ",ZG + . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; SECOND, PROCESS ADDITIONS + . K C0QFDA ; CLEAR OUT THE FDA + . N ZG,ZC S ZG="" S ZC=1 + . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION + . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY + . . S ZC=ZC+1 + . I $D(C0QFDA) D UPDIE ; PROCESS + . ; + . ; File Percentage + . N C0QPCT ; PERCENT + . D ; + . . I C0QDCNT>0 D ; + . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0) + . . E S C0QPCT=0 + . . K C0QFDA + . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT + . . D UPDIE + Q + ; +DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO + ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE + ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE + N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD + S ZI="" + S ZDI=$NA(^TMP("DILIST",$J)) + K @RTN + F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ; + . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE + . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE + . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST + . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST + . S ZIEN=@ZDI@(2,ZI) ; IEN + . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD + . ;S @RTN@("B",IV,ZIEN)=EV + Q + ; +UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS + K ZERR + D CLEAN^DILF + D ZWRITE^C0QUTIL("C0QFDA") + D UPDATE^DIE("","C0QFDA","","ZERR") + I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED + ;. W "ERROR",! + ;. ZWR ZERR + ;. B + K C0QFDA + Q + ; +ERXCOUNT(MSETIEN,MIEN) ; Private Proc; Get eRx and file as Numerator, Denominator, and % + ; Inputs: + ; MSETIEN - Measurement Set IEN - By Value + ; MIEN - Measurement IEN inside the Measurement Set - By Value + ; + ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT. + ; ZEXCEPT: C0QDEBUG ; For Dr. Ivey's parser. + ; + ; No check is done to see if the caller is sending bad data. Measurement must be + ; in a subfile under Measurement Set. + ; + W:$G(C0QDEBUG) "Processing E-Prescribing Counts",! + ; Example of Data we go through in the C0Q Parameter File, so the code below + ; will make sense. + ; ^C0Q(401,"AMMS",2,1)="" + ; ^C0Q(401,"AMMS",2,2)="" + ; ^C0Q(401,"AQMS",6,2)="" + ; ^C0Q(401,"B","INPATIENT",2)="" + ; ^C0Q(401,"B","OUTPATIENT",1)="" + ; ^C0Q(401,"MU","MU12",1)="" + ; ^C0Q(401,"MU","MU12",2)="" + ; ^C0Q(401,"MUTYP","MU12","EP",1)="" + ; ^C0Q(401,"MUTYP","MU12","INP",2)="" + ; + ; Get Parameter year from the Parameters file. + ; 1. Get parameter associated with this measurement set from AMMS x-ref (new in C0Q*1*1). + N C0QPARAM + N % S %="" F S %=$O(^C0Q(401,"AMMS",MSETIEN,%)) Q:%="" S C0QPARAM(%)="" + ; + ; 2. Find the year for each of those--store as value of node; IEN still subscript. + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" S C0QPARAM(%)=$$GET1^DIQ(1130580001.401,%_",",.02) + ; + ; 3. Now make sure that this parameter that point to an Outpatient Parameters + ; WARNING: CONFUSING CODE WRITTEN BY ME AHEAD + ; The % loop will stop with a valid value if found; % is used in the lines immediately below + N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" Q:$D(^C0Q(401,"MUTYP",C0QPARAM(%),"EP",%)) + ; + ; 4. If % has a valid IEN (there can be multiple, we take the first), then off we go. + ; Otherwise, if it is back to "", we quit. + N MUYEAR + IF '% W "No suitable parameter found. Cannot determine Measurement Year.",! QUIT + ELSE S MUYEAR=C0QPARAM(%) + ; + ; Now, based on the MU year, construct the patient list name that has the eRx data. + N LISTNAME S LISTNAME=MUYEAR_"-"_"EP"_"-"_"HasERX" + ; + ; Call the API in C0QMUERX to get the counts already calculated + ; Data is returned NUM/DEN + N COUNTS S COUNTS=$$COUNT^C0QMUERX($$PATLN^C0QMU12(LISTNAME)) + ; + ; File the count + N NUM S NUM=$P(COUNTS,"/") ; Numerator + N DEN S DEN=$P(COUNTS,"/",2) ; Denominator + ; + ; Prepare FDA + N C0QFDA,C0QERR + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",1.1)=NUM ; Numerator + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",2.1)=DEN ; Denominator + S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",3)=$S(DEN=0:0,1:$J(100*NUM/DEN,0,0)) ; Percentage; avoid dividing by zero! + ; + ; File FDA using Filer not updater (editing existing entry only) + D FILE^DIE("ET",$NAME(C0QFDA),$NAME(C0QERR)) ; Flags: External, Transaction + ; + ; If error, print it out + I $D(C0QERR) DO + . W "Error filing data",! + . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,! + ; + QUIT diff --git a/qrda/C0Q/trunk/p/C0QUTIL.m b/qrda/C0Q/trunk/p/C0QUTIL.m new file mode 100644 index 0000000..6a72f09 --- /dev/null +++ b/qrda/C0Q/trunk/p/C0QUTIL.m @@ -0,0 +1,129 @@ +C0QUTIL ;JJOH/ZAG/GPL - Utilities for C0Q Package ; 7/31/12 7:42am + ;;1.0;C0Q;;May 21, 2012;Build 63 + ; + ;2011 Licensed under the terms of the GNU General Public License + ;See attached copy of the License. + ; + ;This program is free software; you can redistribute it and/or modify + ;it under the terms of the GNU General Public License as published by + ;the Free Software Foundation; either version 2 of the License, or + ;(at your option) any later version. + ; + ;This program is distributed in the hope that it will be useful, + ;but WITHOUT ANY WARRANTY; without even the implied warranty of + ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;GNU General Public License for more details. + ; + ;You should have received a copy of the GNU General Public License along + ;with this program; if not, write to the Free Software Foundation, Inc., + ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + ; +AGE(DFN) ; return current age in years and months + ; + Q:'$G(DFN) ;quit if no there is no patient + N DOB S DOB=$P(^DPT(+DFN,0),U,3) ;date of birth + N YRS + N DOD S DOD=+$G(^DPT(9,.35)) ;check for date of death + I 'DOD D + . N CDTE S CDTE=DT ;current date + . S YRS=$E(CDTE,1,3)-$E(DOB,1,3)-($E(CDTE,4,7)<$E(DOB,4,7)) + E D + . S YRS=$E(DOD,1,3)-$E(DOB,1,3)-($E(DOD,4,7)<$E(DOB,4,7)) + ; + ;Come back here and fix MONTHS and DAYS + ;N CM S CM=+$E(DT,4,5) ;current month + ;N CD S CD=+$E(DT,6,7) ;current day + ;N BM S BM=+$E(DOB,4,5) ;birth month + ;N BD S BD=+$E(DOB,6,7) ;birth day + ; + ;N DAYS S DAYS="" + ; + Q YRS ;_"y" gpl ..just want the number + ; + ; +DTDIFF(ZD1,ZT1,ZD2,ZT2,SHOW) ; extrinsic which returns the number of minutes + ; between 2 dates. ZD1 and ZD2 are fileman dates + ; ZT1 AND ZT2 are valid times (military time) ie 20:10 + ; IF SHOW=1 DEBUGGING INTERMEDIATE VALUES WILL BE DISPLAYED + I '$D(SHOW) S SHOW=0 + N GT1,GT2,GDT1,GDT2 + I ZT1[":" D ; + . S GT1=($P(ZT1,":",1)*3600)+($P(ZT1,":",2)*60) ; SECONDS + . S GT2=($P(ZT2,":",1)*3600)+($P(ZT2,":",2)*60) ; SECONDS + E D ; + . S GT1=($E(ZT1,1,2)*3600)+($E(ZT1,3,4)*60) + . S GT2=($E(ZT2,1,2)*3600)+($E(ZT2,3,4)*60) + ;W:SHOW !,"SECONDS: ",GT1," ",GT2 + ;S %=GT1 D S^%DTC ; FILEMAN TIME + ;S GDT1=ZD1_% ; FILEMAN DATE AND TIME + ;S %=GT2 D S^%DTC ; FILEMAN TIME + ;S GDT2=ZD2_% ; FILEMAN DATE AND TIME + S GDT1=ZD1_"."_ZT1 + S GDT2=ZD2_"."_ZT2 + W:SHOW !,"FILEMAN: ",GDT1," ",GDT2 + N ZH1,ZH2 + S ZH1=$$FMTH^XLFDT(GDT1) ; $H FORMAT + S ZH2=$$FMTH^XLFDT(GDT2) ; $H FORMAT + W:SHOW !,"$H: ",ZH1," ",ZH2 + N ZSECS,ZMIN + S ZSECS=$$HDIFF^XLFDT(ZH1,ZH2,2) ; DIFFERENCE IN $H + W:SHOW !,"DIFF: ",ZSECS + S ZMIN=ZSECS/60 ; DIFFERENCE IN MINUTES + W:SHOW !,"MIN: ",ZMIN + Q ZMIN + ; +DT(X) ; -- Returns FM date for X + N Y,%DT S %DT="T",Y="" D:X'="" ^%DT + Q Y + ; +ZWRITE(NAME) ; Replacement for ZWRITE ; Public Proc + ; Pass NAME by name as a closed reference. lvn and gvn are both supported. + ; : syntax is not supported (yet) + N L S L=$L(NAME) ; Name length + I $E(NAME,L-2,L)=",*)" S NAME=$E(NAME,1,L-3)_")" ; If last sub is *, remove it and close the ref + N ORIGLAST S ORIGLAST=$QS(NAME,$QL(NAME)) ; Get last subscript upon which we can't loop further + N ORIGQL S ORIGQL=$QL(NAME) ; Number of subscripts in the original name + I $D(@NAME)#2 W NAME,"=",$$FORMAT(@NAME),! ; Write base if it exists + ; $QUERY through the name. + ; Stop when we are out. + ; Stop when the last subscript of the original name isn't the same as + ; the last subscript of the Name. + F S NAME=$Q(@NAME) Q:NAME="" Q:$QS(NAME,ORIGQL)'=ORIGLAST W NAME,"=",$$FORMAT(@NAME),! + QUIT +FORMAT(V) ; Add quotes, replace control characters if necessary; Public $$ + ;If numeric, nothing to do. + ;If no encoding required, then return as quoted string. + ;Otherwise, return as an expression with $C()'s and strings. + I +V=V Q V ; If numeric, just return the value. + N QT S QT="""" ; Quote + I $F(V,QT) D ;chk if V contains any Quotes + . S P=0 ;position pointer into V + . F S P=$F(V,QT,P) Q:'P D ;find next " + . . S $E(V,P-1)=QT_QT ;double each " + . . S P=P+1 ;skip over new " + I $$CCC(V) D Q V ; If control character is present do this and quit + . S V=$$RCC(QT_V_QT) ; Replace control characters in "V" + . S:$E(V,1,3)="""""_" $E(V,1,3)="" ; Replace doubled up quotes at start + . S L=$L(V) S:$E(V,L-2,L)="_""""" $E(V,L-2,L)="" ; Replace doubled up quotes at end + Q QT_V_QT ; If no control charactrrs, quit with "V" + ; +CCC(S) ;test if S Contains a Control Character or $C(255); Public $$ + Q:S?.E1C.E 1 + Q:$F(S,$C(255)) 1 + Q 0 +RCC(NA) ;Replace control chars in NA with $C( ). Returns encoded string; Public $$ + Q:'$$CCC(NA) NA ;No embedded ctrl chars + N OUT S OUT="" ;holds output name + N CC S CC=0 ;count ctrl chars in $C( + N C ;temp hold each char + F I=1:1:$L(NA) S C=$E(NA,I) D ;for each char C in NA + . I C'?1C,C'=C255 D S OUT=OUT_C Q ;not a ctrl char + . . I CC S OUT=OUT_")_""",CC=0 ;close up $C(... if one is open + . I CC D + . . I CC=256 S OUT=OUT_")_$C("_$A(C),CC=0 ;max args in one $C( + . . E S OUT=OUT_","_$A(C) ;add next ctrl char to $C( + . E S OUT=OUT_"""_$C("_$A(C) + . S CC=CC+1 + . Q + Q OUT +END ;end of C0QUTIL diff --git a/qrda/C0Q/trunk/rdf/quality1.rdf b/qrda/C0Q/trunk/rdf/quality1.rdf new file mode 100644 index 0000000..ee5ab9a --- /dev/null +++ b/qrda/C0Q/trunk/rdf/quality1.rdf @@ -0,0 +1,24 @@ + + + + + CPOE for Meds (30%) + hasMed + noMed + + + + Advance Directives (50%) + hasAdvanceDirective + noAdvanceDirective + + + vmu:measureSet + Inpatient 2012 Meaningful Use Measures + vmu:measure#hasAdvanceDirective + vmu:measure#hasMedOrders + + diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100146_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100146_QRDA_V1_0_0.xml new file mode 100644 index 0000000..c543a33 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100146_QRDA_V1_0_0.xml @@ -0,0 +1,460 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + Any Street + Any Town + WEST VIRGINIA + + + + + + MALE-D + MEASURE-TWO + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+ 		250.02 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 04, 2010
+ 		250.00 (ICD9CM) + Diabetes MellitusActiveMATTHEW M KING
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99242 (CPT-4) + INTERMEDIATE (30min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 04, 2010
+ 		99213 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + + + + + CompletedMATTHEW M KING
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100146_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100146_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..7da6b30 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100146_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,378 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + Any Street + Any Town + WV + + + + + + MALE-D + MEASURE-TWO + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100676_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100676_QRDA_V1_0_0.xml new file mode 100644 index 0000000..a81404b --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100676_QRDA_V1_0_0.xml @@ -0,0 +1,391 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + Any Street + Any Town + + + + + + + OUTPATIENT + SIXTYNINE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Sep 16, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveMATTHEW M KING
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Sep 17, 2010
+ 		99213 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + + + + + CompletedMATTHEW M KING
+ + + + + + + +
Procedure Date: + Sep 16, 2010
+ 		99214 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + + + + + CompletedMATTHEW M KING
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100676_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100676_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..4e524b4 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100676_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,330 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + Any Street + Any Town + + + + + + + OUTPATIENT + SIXTYNINE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100839_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100839_QRDA_V1_0_0.xml new file mode 100644 index 0000000..ac67222 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100839_QRDA_V1_0_0.xml @@ -0,0 +1,1062 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + JODY + JEAN + JONES + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 16, 2010
+ 		401.9 (ICD9CM) + HTN (ICD-9-CM 401.9)ActiveMATTHEW M KING
Problem + + + + + + +
Oct 14, 2010
+ 		453.8 (ICD9CM) + ANY DEEP VEIN THROMBOSISActiveMATTHEW M KING
Problem + + + + + + +
Sep 04, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveEIGHT PROVIDER Scholar Extraordinaire
Problem + + + + + + +
Jul 05, 2010
+ 		428.0 (ICD9CM) + Congestive Heart Failure (ICD-9-CM 428.0)ActiveEIGHT PROVIDER Scholar Extraordinaire
Problem + + + + + + +
Jul 05, 2010
+ 		411.0 (ICD9CM) + Postmyocardial infarction syndrome (ICD-9-CM 411.0)ActiveEIGHT PROVIDER Scholar Extraordinaire
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 17, 2010
+ 		99213 (CPT-4) + INTERMEDIATE (15min) + + + + + CompletedMATTHEW M KING
+ + + + + + + +
Procedure Date: + Oct 16, 2010
+ 		99214 (CPT-4) + EXTENDED (25min) + + + + + CompletedMATTHEW M KING
+ + + + + + + +
Procedure Date: + Oct 15, 2010
+ 		99214 (CPT-4) + EXTENDED (25min) + + + + + CompletedMATTHEW M KING
+ + + + + + + +
Procedure Date: + Oct 06, 2010
+ 		99213 (CPT-4) + INTERMEDIATE (15min) + + + + + CompletedMATTHEW M KING
+ + + + + + + +
Procedure Date: + Sep 17, 2010
+ 		99214 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + + + + + CompletedMATTHEW M KING
+ + + + + + + +
Procedure Date: + Sep 04, 2010
+ 		99213 (CPT-4) + INTERMEDIATE (15min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Aug 28, 2010
+ 		99202 (CPT-4) + EXPANDED, HX & EXAM + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Jul 31, 2010
+ 		99213 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Jul 05, 2010
+ 		99214 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + + + + + CompletedEIGHT PROVIDER Scholar Extraordinaire
+ + + + + + + +
Procedure Date: + Jul 05, 2010
+ 		83036 (CPT-4) + Hemoglobin; Glycosylated (A1c) (CPT-4 83036) + + + + + CompletedEIGHT PROVIDER Scholar Extraordinaire
+ + + + + + + +
Procedure Date: + Jul 05, 2010
+ 		83704 (CPT-4) + Lipoprotein, Blood; Quantitation of Lipoprotein particle Numbers and Lipoprotein particle Subclasses (Eg, by Nuclear Magnetic Resonance Spectroscopy) (CPT-4 83704) + + + + + CompletedEIGHT PROVIDER Scholar Extraordinaire
+ + + + + + + +
Procedure Date: + Jul 05, 2010
+ 		78414 (CPT-4) + Determination of Central C-V Hemodynamics (Non-Imaging) (CPT-4 78414) + + + + + CompletedEIGHT PROVIDER Scholar Extraordinaire
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100839_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100839_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..31182cd --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100839_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,723 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + JODY + JEAN + JONES + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100846_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100846_QRDA_V1_0_0.xml new file mode 100644 index 0000000..ac864d1 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100846_QRDA_V1_0_0.xml @@ -0,0 +1,459 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-A + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 14, 2010
+ 		250.00 (ICD9CM) + Diabetes (ICD-9-CM 250.00)ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 13, 2010
+ 		362.03 (ICD9CM) + Nonproliferative Diabetic retinopathy NOS (ICD-9-CM 362.03)ActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99212 (CPT-4) + LIMITED (10min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99204 (CPT-4) + COMPREHENSIVE (45min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100846_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100846_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..275f0b8 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100846_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,377 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-A + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100847_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100847_QRDA_V1_0_0.xml new file mode 100644 index 0000000..54bf744 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100847_QRDA_V1_0_0.xml @@ -0,0 +1,390 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-B + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+ 		250.20 (ICD9CM) + Diabetes with Hyperosmolarity, type II or unspecified type, not stated as UncontActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99212 (CPT-4) + LIMITED (10min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99203 (CPT-4) + EXTENDED (30min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100847_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100847_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..7962f8f --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100847_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,329 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-B + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100848_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100848_QRDA_V1_0_0.xml new file mode 100644 index 0000000..c802e8d --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100848_QRDA_V1_0_0.xml @@ -0,0 +1,461 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + FEMALE-B + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveEIGHT PROVIDER Scholar Extraordinaire
Problem + + + + + + +
Oct 05, 2010
+ 		848.9 (ICD9CM) + Sprains (ICD-9-CM 848.9)ActiveMATTHEW M KING
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		84295 (CPT-4) + Sodium; serum, plasma or whole blood (CPT-4 84295) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 05, 2010
+ 		99213 (CPT-4) + INTERMEDIATE (15min) + + + + + CompletedMATTHEW M KING
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100848_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100848_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..15afdf8 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100848_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,351 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + FEMALE-B + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + Scholar Extraordinaire + EIGHT + PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + MATTHEW + M + KING + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100849_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100849_QRDA_V1_0_0.xml new file mode 100644 index 0000000..4623db6 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100849_QRDA_V1_0_0.xml @@ -0,0 +1,390 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-C + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+ 		250.02 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99202 (CPT-4) + INTERMEDIATE (20min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99202 (CPT-4) + INTERMEDIATE (20min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100849_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100849_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..f99188a --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100849_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,329 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-C + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100850_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100850_QRDA_V1_0_0.xml new file mode 100644 index 0000000..ac24be0 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100850_QRDA_V1_0_0.xml @@ -0,0 +1,528 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + FEMALE-D + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 14, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 14, 2010
+ 		250.00 (ICD9CM) + Diabetes (ICD-9-CM 250.00)ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 13, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99202 (CPT-4) + INTERMEDIATE (20min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99202 (CPT-4) + INTERMEDIATE (20min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100850_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100850_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..f7fb017 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100850_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,425 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + FEMALE-D + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100852_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100852_QRDA_V1_0_0.xml new file mode 100644 index 0000000..6b98216 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100852_QRDA_V1_0_0.xml @@ -0,0 +1,390 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-E + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99212 (CPT-4) + LIMITED (10min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99203 (CPT-4) + EXTENDED (30min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100852_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100852_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..55d822d --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100852_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,329 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-E + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100855_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100855_QRDA_V1_0_0.xml new file mode 100644 index 0000000..844f9e0 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100855_QRDA_V1_0_0.xml @@ -0,0 +1,528 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + FEMALE-E + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 14, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 14, 2010
+ 		250.00 (ICD9CM) + Diabetes (ICD-9-CM 250.00)ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 13, 2010
+ 		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99212 (CPT-4) + LIMITED (10min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99202 (CPT-4) + INTERMEDIATE (20min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100855_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100855_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..0b35dda --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100855_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,425 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + FEMALE-E + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100858_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/M1-PAT_100858_QRDA_V1_0_0.xml new file mode 100644 index 0000000..747ed95 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100858_QRDA_V1_0_0.xml @@ -0,0 +1,390 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-D + MEASURE-ONE + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+ 		250.02 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + Active + + + + + + + +
+ + +
+ + + Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+ 		99202 (CPT-4) + INTERMEDIATE (20min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+ 		99203 (CPT-4) + EXTENDED (30min) + + + + + CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/M1-PAT_100858_QRDA_V1_0_0Ver2.xml b/qrda/CCR/M1-QRDA/M1-PAT_100858_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..dfa3c89 --- /dev/null +++ b/qrda/CCR/M1-QRDA/M1-PAT_100858_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,329 @@ + + + + + + + + + QRDA Incidence Report + + + + + + + + + + + + + + + + + + MALE-D + MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + + World VistA Test Clinic + + + + + + + + WorldVistA Test Clinic + + + + + + + + + + + + Dr. + Nancy + Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + + Measure set: CMS EHR Measure Set + 2010 Measures Set Measures + +
+ + + Measure Section + + + CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + + Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ + Reporting Parameters + + + Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ + Patient Data +
+ + +
+ + + + + Problems + + + + + + + + + + + VA MEDICAL CENTER + ALBANY + NY + 12180 + + + + + NANCY + ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + \ No newline at end of file diff --git a/qrda/CCR/M1-QRDA/PAT_100146_CCR_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100146_CCR_V1_0_0.xml new file mode 100644 index 0000000..886c665 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100146_CCR_V1_0_0.xml @@ -0,0 +1,494 @@ + + + +d010c8bd-eda0-4e36-8a53-c7c677666b29 + +English + +V1.0 + +2010-10-18T15:33:12-05:00 + + +ACTORPATIENT_100146 + + + +ACTORPROVIDER_1 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100146 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-10-13T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.02 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + +PROBLEM2 + +2010-10-04T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000183 + + + + + + +PROCEDURE_4141_10 + + +Procedure Date + +2010-10-14T00:00:00-05:00 + + +INTERMEDIATE (30min) + +99242 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4092_7 + + +Procedure Date + +2010-10-04T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000183 + + + + + + +ENCOUNTER_4141 + +2010-10-14T00:00:00-05:00 + + +***NEW PATIENT*** INTERMEDIATE (30min) + +99242 +CPT-4 + + + +***NEW PATIENT*** INTERMEDIATE (30min) + +99242 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4092 + +2010-10-04T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4092 + + +ENCOUNTER_4091 + +2010-10-04T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4091 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100146 + + + +MALE-D +MEASURE-TWO + + + +1960-01-01 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000200 + + +ACTORPATIENT_100146 + + + +
+ +Home + +Any Street +Any Town +WEST VIRGINIA +
+ +222-555-8235 + +Residential Telephone + + + +222-555-7720 + +Work Telephone + + + + +ACTORPATIENT_100146 + + + + +ACTORPROVIDER_1 + + + +ONE +PROGRAMMER +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ +6655544 + +Office + + + + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000020 + + + +NANCY +ANTHRACITE + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000183 + + + +MATTHEW +M +KING + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4091 + +2010-10-04T00:00:00-05:00 + + + +PLACE DIABETIC ORDERS HERE. +PATIENT HBA1C RESULTS + PATIENTS HBA1C IS GREATER THAN 9% + HBA1C VALUE: 9.1 + *** No Outpatient measurements *** + + + + +ACTORPROVIDER_10000000183 + + + + +NOTE_4092 + +2010-10-04T00:00:00-05:00 + + + +PATIENT MAMMOGRAM INFORMATION: + PATIENT HAD A SCREENING MAMMOGRAM. + RESULT NEM (No Evidence of Malignancy) + DATE OF PROCEDURE: September 6, 2010 + + + + +ACTORPROVIDER_10000000183 + + + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100146_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100146_QRDA_V1_0_0.xml new file mode 100644 index 0000000..ce37d2e --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100146_QRDA_V1_0_0.xml @@ -0,0 +1,344 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + +Any Street +Any Town +WEST VIRGINIA + + + + + +MALE-D +MEASURE-TWO + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100146_QRDA_V1_0_0_M1.xml b/qrda/CCR/M1-QRDA/PAT_100146_QRDA_V1_0_0_M1.xml new file mode 100644 index 0000000..12d10d4 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100146_QRDA_V1_0_0_M1.xml @@ -0,0 +1,641 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + +Any Street +Any Town +WEST VIRGINIA + + + + + +MALE-D +MEASURE-TWO + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+		250.02 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 4, 2010
+		250.00 (ICD9CM) + Diabetes MellitusActiveMATTHEW M KING
+ + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +MATTHEW +M +KING + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+		99242 (CPT-4) + INTERMEDIATE (30min) + + + + +CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 4, 2010
+		99213 (CPT-4) + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + + + + +CompletedMATTHEW M KING
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100848_CCR_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100848_CCR_V1_0_0.xml new file mode 100644 index 0000000..5c3acac --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100848_CCR_V1_0_0.xml @@ -0,0 +1,471 @@ + + + +33f5b05b-e101-4530-9b91-97203c8b71e6 + +English + +V1.0 + +2010-10-18T15:37:06-05:00 + + +ACTORPATIENT_100848 + + + +ACTORPROVIDER_1 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100848 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-10-13T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_991 + + + + +PROBLEM2 + +2010-10-05T00:00:00-05:00 + + +Problem + + +Sprains (ICD-9-CM 848.9) + +848.9 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000183 + + + + + + +PROCEDURE_4108_8 + + +Procedure Date + +2010-10-13T00:00:00-05:00 + + +Sodium; serum, plasma or whole blood (CPT-4 84295) + +84295 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4093_5 + + +Procedure Date + +2010-10-05T00:00:00-05:00 + + +INTERMEDIATE (15min) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000183 + + + + + + +ENCOUNTER_4108 + +2010-10-13T00:00:00-05:00 + + + Sodium; serum, plasma or whole blood (CPT-4 84295) + + + Sodium; serum, plasma or whole blood (CPT-4 84295) + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4108 + + +ENCOUNTER_4093 + +2010-10-05T00:00:00-05:00 + + +***ESTABLISHED PATIENT*** INTERMEDIATE (15min) + +99213 +CPT-4 + + + +***ESTABLISHED PATIENT*** INTERMEDIATE (15min) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4093 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100848 + + + +FEMALE-B +MEASURE-ONE + + + +1960-01-01 + + +FEMALE + +F +HL7 AdministrativeGender + + + + + +SSN + +345097898 + + +ACTORPATIENT_100848 + + + +
+ +Home + +
+ + +ACTORPATIENT_100848 + + + + +ACTORPROVIDER_1 + + + +ONE +PROGRAMMER +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ +6655544 + +Office + + + + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000020 + + + +NANCY +ANTHRACITE + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000183 + + + +MATTHEW +M +KING + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_991 + + + +EIGHT +PROVIDER +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4093 + +2010-10-05T00:00:00-05:00 + + + +PATIENT MAMMOGRAM INFORMATION: + PATIENT HAD A SCREENING MAMMOGRAM. + RESULT NEM (No Evidence of Malignancy) + DATE OF PROCEDURE: September 9, 2010 + + + + +ACTORPROVIDER_10000000183 + + + + +NOTE_4108 + +2010-10-13T00:00:00-05:00 + + + +PATIENT HBA1C RESULTS + PATIENTS HBA1C IS GREATER THAN 9% + HBA1C VALUE: 9.2 + + Measurement DT BP PULSE WEIGHT + LB(KG)[BMI] + 10/05/2010 12:52 130/90 89 138(62.60)[23] + + + + +ACTORPROVIDER_10000000020 + + + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100848_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100848_QRDA_V1_0_0.xml new file mode 100644 index 0000000..ade31cb --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100848_QRDA_V1_0_0.xml @@ -0,0 +1,344 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-B +MEASURE-ONE + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100848_QRDA_V1_0_0_M1.xml b/qrda/CCR/M1-QRDA/PAT_100848_QRDA_V1_0_0_M1.xml new file mode 100644 index 0000000..b6df545 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100848_QRDA_V1_0_0_M1.xml @@ -0,0 +1,642 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-B +MEASURE-ONE + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveEIGHT PROVIDER Scholar Extraordinaire
Problem + + + + + + +
Oct 5, 2010
+		848.9 (ICD9CM) + Sprains (ICD-9-CM 848.9)ActiveMATTHEW M KING
+ + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +Scholar Extraordinaire +EIGHT +PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +MATTHEW +M +KING + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+		84295 (CPT-4) + Sodium; serum, plasma or whole blood (CPT-4 84295) + + + + +CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 5, 2010
+		99213 (CPT-4) + INTERMEDIATE (15min) + + + + +CompletedMATTHEW M KING
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100849_CCR_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100849_CCR_V1_0_0.xml new file mode 100644 index 0000000..2d5e368 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100849_CCR_V1_0_0.xml @@ -0,0 +1,384 @@ + + + +97354999-51b7-4bad-8909-7ddc1e5cda1f + +English + +V1.0 + +2010-10-18T15:37:03-05:00 + + +ACTORPATIENT_100849 + + + +ACTORPROVIDER_1 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100849 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-10-13T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.02 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + + + +PROCEDURE_4130_7 + + +Procedure Date + +2010-10-14T00:00:00-05:00 + + +INTERMEDIATE (20min) + +99202 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4113_4 + + +Procedure Date + +2010-10-13T00:00:00-05:00 + + +INTERMEDIATE (20min) + +99202 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + + + +ENCOUNTER_4130 + +2010-10-14T00:00:00-05:00 + + +***NEW PATIENT*** INTERMEDIATE (20min) + +99202 +CPT-4 + + + +***NEW PATIENT*** INTERMEDIATE (20min) + +99202 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4130 + + +ENCOUNTER_4113 + +2010-10-13T00:00:00-05:00 + + +***NEW PATIENT*** INTERMEDIATE (20min) + +99202 +CPT-4 + + + +***NEW PATIENT*** INTERMEDIATE (20min) + +99202 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4113 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100849 + + + +MALE-C +MEASURE-ONE + + + +1960-01-01 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +345980099 + + +ACTORPATIENT_100849 + + + +
+ +Home + +
+ + +ACTORPATIENT_100849 + + + + +ACTORPROVIDER_1 + + + +ONE +PROGRAMMER +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ +6655544 + +Office + + + + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000020 + + + +NANCY +ANTHRACITE + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4113 + +2010-10-13T00:00:00-05:00 + + + +PLACE DIABETIC ORDERS HERE. +PATIENT HBA1C RESULTS + PATIENTS HBA1C IS GREATER THAN 9% + HBA1C VALUE: 9.2 + *** No Outpatient measurements *** + + + + +ACTORPROVIDER_10000000020 + + + + +NOTE_4130 + +2010-10-14T00:00:00-05:00 + + + +test note + + + + +ACTORPROVIDER_10000000020 + + + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100849_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100849_QRDA_V1_0_0.xml new file mode 100644 index 0000000..e3963bf --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100849_QRDA_V1_0_0.xml @@ -0,0 +1,344 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-C +MEASURE-ONE + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100849_QRDA_V1_0_0_M1.xml b/qrda/CCR/M1-QRDA/PAT_100849_QRDA_V1_0_0_M1.xml new file mode 100644 index 0000000..49d6878 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100849_QRDA_V1_0_0_M1.xml @@ -0,0 +1,572 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-C +MEASURE-ONE + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 13, 2010
+		250.02 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+		99202 (CPT-4) + INTERMEDIATE (20min) + + + + +CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+		99202 (CPT-4) + INTERMEDIATE (20min) + + + + +CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100855_CCR_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100855_CCR_V1_0_0.xml new file mode 100644 index 0000000..dddfc5b --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100855_CCR_V1_0_0.xml @@ -0,0 +1,434 @@ + + + +b315d695-9575-425e-9e78-26475b38323e + +English + +V1.0 + +2010-10-18T15:37:59-05:00 + + +ACTORPATIENT_100855 + + + +ACTORPROVIDER_1 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100855 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-10-14T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + +PROBLEM2 + +2010-10-14T00:00:00-05:00 + + +Problem + + +Diabetes (ICD-9-CM 250.00) + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + +PROBLEM3 + +2010-10-13T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + + + +PROCEDURE_4127_7 + + +Procedure Date + +2010-10-14T00:00:00-05:00 + + +LIMITED (10min) + +99212 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4110_4 + + +Procedure Date + +2010-10-13T00:00:00-05:00 + + +INTERMEDIATE (20min) + +99202 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + + + +ENCOUNTER_4127 + +2010-10-14T00:00:00-05:00 + + +***ESTABLISHED PATIENT*** LIMITED (10min) + +99212 +CPT-4 + + + +***ESTABLISHED PATIENT*** LIMITED (10min) + +99212 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4127 + + +ENCOUNTER_4110 + +2010-10-13T00:00:00-05:00 + + +***NEW PATIENT*** INTERMEDIATE (20min) + +99202 +CPT-4 + + + +***NEW PATIENT*** INTERMEDIATE (20min) + +99202 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4110 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100855 + + + +FEMALE-E +MEASURE-ONE + + + +1960-01-01 + + +FEMALE + +F +HL7 AdministrativeGender + + + + + +SSN + +498212298 + + +ACTORPATIENT_100855 + + + +
+ +Home + +
+ + +ACTORPATIENT_100855 + + + + +ACTORPROVIDER_1 + + + +ONE +PROGRAMMER +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ +6655544 + +Office + + + + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000020 + + + +NANCY +ANTHRACITE + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4110 + +2010-10-13T00:00:00-05:00 + + + +PATIENT HBA1C RESULTS + PATIENTS HBA1C IS GREATER THAN 9% + HBA1C VALUE: 9.3 + *** No Outpatient measurements *** + + + + +ACTORPROVIDER_10000000020 + + + + +NOTE_4127 + +2010-10-14T00:00:00-05:00 + + + +PATIENT HBA1C RESULTS + PATIENTS HBA1C IS GREATER THAN 9% + HBA1C VALUE: 9.1 + *** No Outpatient measurements *** + + + + +ACTORPROVIDER_10000000020 + + + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100855_QRDA_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_100855_QRDA_V1_0_0.xml new file mode 100644 index 0000000..13d8fc3 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100855_QRDA_V1_0_0.xml @@ -0,0 +1,344 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-E +MEASURE-ONE + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_100855_QRDA_V1_0_0_M1.xml b/qrda/CCR/M1-QRDA/PAT_100855_QRDA_V1_0_0_M1.xml new file mode 100644 index 0000000..0403b7d --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_100855_QRDA_V1_0_0_M1.xml @@ -0,0 +1,708 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-E +MEASURE-ONE + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent LDL-C level in control (less than 100 mg./dL) + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent blood pressure in control (less than 140/80 mmHg) + + + + + + +Percentage of patients 18 years and older with a diagnosis of heart frilure and LVSD who were prescribed ACE inhibitor or ARB therapy + + + + + + +Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy + + + + + + +Percentage of patients aged 50 years and older who received an influenza immunization during the flu season (September through February) + + + + + + +Percentage of patients afed 65 years and older who have ever received a pneumoccal vaccine + + + + + + +Percentage of womaen aged 40 through 69 years who had a mammogram to screen for breast cancer within 24 months + + + + + + +Percentage of patients aged 50 through 80 who received the appropriate colorectal cancer screening + + + + + + +Documents whether provider has adopted and is using health information technology. To qualify, the provider must havea adopted and be using a certified/qualified electronic health record (EHR) + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + + + +Percentage of patients who had a DXA measurement ordered or performed at least once since age 60 or pharmacologic therapy prescribed within 12 months before the end of the measurement period + + + + + + +Percentage of patients age 65 and older who have an advanced care plan or surrogate decision maker documented in the medical record or documented in the medical record that an advance care plan was discussed but the patient did not wish or was not able to name a surrogate decision maker or provide an advance care plan. + + + + + + +Percentage of patients equal to or older than 65 years of age at the beginning of the measurement perion who were assesed for the presence or absence of urinary incontinence within 12 months. + + + + + + +Percentage of patients aged 18 yesrs and older with a calculate BMI in the past 6 months or during the current visit documented in the medical record and if the most recent BMI is ourtide parameters, a follow-up plan is documented. Ages 65 and older BMI equal to or greater than 30 or less than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5 + + + + + + +Percentage of patients aged 18 years and older who were screened for unhealthy alcohol use using a systematic method within 24 months + + + + + + +Percentage of patients aged 18 years and older with a diagnosis of hypertension in the beginning of the measurement period with a blood pressure recoreded. + + + + + + +Percentage of patients aged 65 years and older who received at least one drug to be acoided in the elderly and/or two different drugs to be avoided in the elderly in the measurement period + + + + + + +Percentage of children 2-18 years of age at the beginning of the measurement period whose weight is classified based on BMI percentile for age and gender. + + + + + + +Percentage of patients aged 18 years of older who were screened about tobacco use at least once during the two year measurement preoid AND who received cessation counseling if identified as a tobacco user. + + + + + + +Percentage of children who turn two years of age during the measurement period who have had four DTaP/DT, three IPV, one MMR and three H influenza type B, three hepatitis B, one chicken pox vaccine (VZV) and four pneumococcal conjugate vaccines by their second birthday + + + + + + +Documents whether provider has adopted and is using ePrescribing + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionStatusSource
Problem + + + + + + +
Oct 14, 2010
+		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 14, 2010
+		250.00 (ICD9CM) + Diabetes (ICD-9-CM 250.00)ActiveNANCY ANTHRACITE
Problem + + + + + + +
Oct 13, 2010
+		250.00 (ICD9CM) + Diabetes Mellitus without mention of Complication, type II or unspecified type,ActiveNANCY ANTHRACITE
+ + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Procedures + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeDateCodeDescriptionLocationSubstanceMethodPositionSiteStatusSource
+ + + + + + + +
Procedure Date: + Oct 14, 2010
+		99212 (CPT-4) + LIMITED (10min) + + + + +CompletedNANCY ANTHRACITE
+ + + + + + + +
Procedure Date: + Oct 13, 2010
+		99202 (CPT-4) + INTERMEDIATE (20min) + + + + +CompletedNANCY ANTHRACITE
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/M1-QRDA/PAT_140_CCR_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_140_CCR_V1_0_0.xml new file mode 100644 index 0000000..e272675 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_140_CCR_V1_0_0.xml @@ -0,0 +1,8313 @@ + + + +ac08ff2c-2d09-4a78-9a06-5f08155916c2 + +English + +V1.0 + +2010-06-22T19:59:57-05:00 + + +ACTORPATIENT_140 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_140 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2007-04-10T00:00:00-05:00 + + +Problem + + +Hypertension + +401.9 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_10000000031 + + + + +PROBLEM2 + +2007-04-10T00:00:00-05:00 + + +Problem + + +Hyperlipidemia + +272.4 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_10000000031 + + + + +PROBLEM3 + +2005-03-19T00:00:00-05:00 + + +Problem + + +Acute myocardial infarction, unspecified site, episode of care unspecified + +410.90 +ICD9CM + + + +Active + + + +ACTORPROVIDER_20029 + + + + +PROBLEM4 + +2004-03-09T00:00:00-05:00 + + +Problem + + +Chronic Systolic Heart failure + +428.22 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_11745 + + + + +PROBLEM5 + +2004-03-31T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus Type II or unspecified + +250.00 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_20029 + + + + + + +ALERT1 + +2005-03-19T10:15:00-05:00 + + +Adverse Reaction + + +Patient has an ADVERSE reaction to PENICILLIN. + +282100009 +SNOMED CT + + + + +ACTORPROVIDER_20029 + + + + + +PRODUCT_125 + + +ACTORPROVIDER_20029 + + + + +PENICILLIN + + + + + + + +ITCHING,WATERING EYES + + + + +ALERT2 + +2007-12-17T15:33:00-05:00 + + +Allergy + + +Patient has an ALLERGIC reaction to CHOCOLATE. + +418634005 +SNOMED CT + + + + +ACTORPROVIDER_983 + + + + + +PRODUCT_3 + + +ACTORPROVIDER_983 + + + + +CHOCOLATE + +4636681 +VUID + + + + + + + + +DIARRHEA + +4637011 +VUID + + + + + + + +VITAL1 + + +OBSERVED + +2007-04-24T08:00:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST1 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000053 + + + +175 + +lbs + + + + + +VITAL2 + + +OBSERVED + +2007-04-11T07:45:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST2 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000053 + + + +184 + +lbs + + + + + +VITAL3 + + +OBSERVED + +2007-03-15T08:00:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST3 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000053 + + + +196 + +lbs + + + + + +VITAL4 + + +OBSERVED + +2005-03-16T06:00:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST4 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +102.6 + +F + + + + + +VITAL5 + + +OBSERVED + +2005-03-16T06:00:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST5 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +21 + + + + +VITAL6 + + +OBSERVED + +2005-03-16T06:00:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST6 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +3 + + + + +VITAL7 + + +OBSERVED + +2005-03-16T01:00:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST7 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +99 + +F + + + + + +VITAL8 + + +OBSERVED + +2005-03-16T01:00:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST8 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +18 + + + + +VITAL9 + + +OBSERVED + +2005-03-16T01:00:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST9 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +1 + + + + +VITAL10 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST10 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +199 + +lbs + + + + + +VITAL11 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST11 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +98.2 + +F + + + + + +VITAL12 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST12 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +18 + + + + +VITAL13 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST13 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +3 + + + + +VITAL14 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST14 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +71 + +in + + + + + +VITAL15 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST15 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +185 + +lbs + + + + + +VITAL16 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST16 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +98.6 + +F + + + + + +VITAL17 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST17 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +18 + + + + +VITAL18 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST18 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +2 + + + + +VITAL19 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST19 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +70 + +in + + + + + +VITAL20 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST20 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +174 + +lbs + + + + + +VITAL21 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST21 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +98.7 + +F + + + + + +VITAL22 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST22 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +10 + + + + +VITAL23 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST23 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +5 + + + + +VITAL24 + + +OBSERVED + +2003-04-09T10:15:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST24 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +98.6 + +F + + + + + +VITAL25 + + +OBSERVED + +2003-04-09T10:15:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST25 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +18 + + + + +VITAL26 + + +OBSERVED + +2003-04-09T10:15:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST26 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +0 + + + + +VITAL27 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST27 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +172 + +lbs + + + + + +VITAL28 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST28 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +98.4 + +F + + + + + +VITAL29 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST29 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +12 + + + + +VITAL30 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST30 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +4 + + + + +VITAL31 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST31 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +70 + +in + + + + + +VITAL32 + + +OBSERVED + +2003-04-04T10:15:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST32 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +100.4 + +F + + + + + +VITAL33 + + +OBSERVED + +2003-04-04T10:15:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST33 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +20 + + + + +VITAL34 + + +OBSERVED + +2003-04-04T10:15:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST34 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +1 + + + + +VITAL35 + + +OBSERVED + +2003-04-03T10:14:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST35 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +102.6 + +F + + + + + +VITAL36 + + +OBSERVED + +2003-04-03T10:14:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST36 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +22 + + + + +VITAL37 + + +OBSERVED + +2003-04-03T10:14:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST37 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +2 + + + + +VITAL38 + + +OBSERVED + +2001-04-09T10:59:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST38 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +237 + +lbs + + + + + +VITAL39 + + +OBSERVED + +2001-04-09T10:59:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST39 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +99.5 + +F + + + + + +VITAL40 + + +OBSERVED + +2001-04-09T10:59:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST40 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +1 + + + + +VITAL41 + + +OBSERVED + +2000-05-21T10:39:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST41 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +240 + +lbs + + + + + +VITAL42 + + +OBSERVED + +2000-05-21T10:39:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST42 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +102 + +F + + + + + +VITAL43 + + +OBSERVED + +2000-05-21T10:39:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST43 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +40 + + + + +VITAL44 + + +OBSERVED + +2000-05-21T10:39:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST44 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +0 + + + + +VITAL45 + + +OBSERVED + +2000-05-21T10:39:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST45 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +70 + +in + + + + + +VITAL46 + + +OBSERVED + +2000-05-10T10:39:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST46 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +250 + +lbs + + + + + +VITAL47 + + +OBSERVED + +2000-05-10T10:39:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST47 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +101 + +F + + + + + +VITAL48 + + +OBSERVED + +2000-05-10T10:39:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST48 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +43 + + + + +VITAL49 + + +OBSERVED + +2000-05-10T10:39:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST49 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +0 + + + + +VITAL50 + + +OBSERVED + +2000-05-10T10:39:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST50 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +70 + +in + + + + + +VITAL51 + + +OBSERVED + +2000-05-03T10:39:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST51 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +240 + +lbs + + + + + +VITAL52 + + +OBSERVED + +2000-05-03T10:39:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST52 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +102 + +F + + + + + +VITAL53 + + +OBSERVED + +2000-05-03T10:39:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST53 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +30 + + + + +VITAL54 + + +OBSERVED + +2000-05-03T10:39:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST54 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +0 + + + + +VITAL55 + + +OBSERVED + +2000-05-03T10:39:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST55 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_20079 + + + +70 + +in + + + + + + + +RESULT_1 + + +Assessment Time + +2007-04-24T07:30:09-05:00 + + +Calculation + +82350.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_1_1 + + +Assessment Time + +2007-04-24T07:30:09-05:00 + + +LDL CHOLESTEROL + +CH291 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +129 + +MG/DL + + + + + +0-130 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_2 + + +Assessment Time + +2007-04-24T07:30:08-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_2_1 + + +Assessment Time + +2007-04-24T07:30:08-05:00 + + +TRIGLYCERIDE + +CH47 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +185 + +mg/dL + + + + + +0-249 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_3 + + +Assessment Time + +2007-04-24T07:30:07-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_3_1 + + +Assessment Time + +2007-04-24T07:30:07-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +44 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_4 + + +Assessment Time + +2007-04-24T07:30:06-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_4_1 + + +Assessment Time + +2007-04-24T07:30:06-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +188 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_5 + + +Assessment Time + +2007-04-24T07:30:05-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_5_1 + + +Assessment Time + +2007-04-24T07:30:05-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +95 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_6 + + +Assessment Time + +2007-04-24T07:30:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_6_1 + + +Assessment Time + +2007-04-24T07:30:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +26 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_7 + + +Assessment Time + +2007-04-24T07:30:03-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_7_1 + + +Assessment Time + +2007-04-24T07:30:03-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +100 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_8 + + +Assessment Time + +2007-04-24T07:30:02-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_8_1 + + +Assessment Time + +2007-04-24T07:30:02-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +3.8 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_9 + + +Assessment Time + +2007-04-24T07:30:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_9_1 + + +Assessment Time + +2007-04-24T07:30:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +135 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_10 + + +Assessment Time + +2007-04-24T07:03:00-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_10_1 + + +Assessment Time + +2007-04-24T07:03:00-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.1 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_11 + + +Assessment Time + +2007-04-11T08:00:09-05:00 + + +Calculation + +82350.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_11_1 + + +Assessment Time + +2007-04-11T08:00:09-05:00 + + +LDL CHOLESTEROL + +CH291 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +175 + +MG/DL + + + + + +0-130 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_12 + + +Assessment Time + +2007-04-11T08:00:08-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_12_1 + + +Assessment Time + +2007-04-11T08:00:08-05:00 + + +TRIGLYCERIDE + +CH47 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +261 + +mg/dL + + + + + +0-249 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_13 + + +Assessment Time + +2007-04-11T08:00:07-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_13_1 + + +Assessment Time + +2007-04-11T08:00:07-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +36 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + +L + + + + +RESULT_14 + + +Assessment Time + +2007-04-11T08:00:06-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_14_1 + + +Assessment Time + +2007-04-11T08:00:06-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +215 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_15 + + +Assessment Time + +2007-04-11T08:00:05-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_15_1 + + +Assessment Time + +2007-04-11T08:00:05-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +155 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_16 + + +Assessment Time + +2007-04-11T08:00:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_16_1 + + +Assessment Time + +2007-04-11T08:00:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +27 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_17 + + +Assessment Time + +2007-04-11T08:00:03-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_17_1 + + +Assessment Time + +2007-04-11T08:00:03-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +103 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_18 + + +Assessment Time + +2007-04-11T08:00:02-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_18_1 + + +Assessment Time + +2007-04-11T08:00:02-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.2 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_19 + + +Assessment Time + +2007-04-11T08:00:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_19_1 + + +Assessment Time + +2007-04-11T08:00:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +140 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_20 + + +Assessment Time + +2007-04-11T08:00:00-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_20_1 + + +Assessment Time + +2007-04-11T08:00:00-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.3 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_21 + + +Assessment Time + +2007-03-15T07:45:09-05:00 + + +Calculation + +82350.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_21_1 + + +Assessment Time + +2007-03-15T07:45:09-05:00 + + +LDL CHOLESTEROL + +CH291 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +168 + +MG/DL + + + + + +0-130 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_22 + + +Assessment Time + +2007-03-15T07:45:08-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_22_1 + + +Assessment Time + +2007-03-15T07:45:08-05:00 + + +TRIGLYCERIDE + +CH47 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +250 + +mg/dL + + + + + +0-249 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_23 + + +Assessment Time + +2007-03-15T07:45:07-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_23_1 + + +Assessment Time + +2007-03-15T07:45:07-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +38 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + +L + + + + +RESULT_24 + + +Assessment Time + +2007-03-15T07:45:06-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_24_1 + + +Assessment Time + +2007-03-15T07:45:06-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +205 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_25 + + +Assessment Time + +2007-03-15T07:45:05-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_25_1 + + +Assessment Time + +2007-03-15T07:45:05-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +135 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_26 + + +Assessment Time + +2007-03-15T07:45:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_26_1 + + +Assessment Time + +2007-03-15T07:45:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +24 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_27 + + +Assessment Time + +2007-03-15T07:45:03-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_27_1 + + +Assessment Time + +2007-03-15T07:45:03-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +99 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_28 + + +Assessment Time + +2007-03-15T07:45:02-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_28_1 + + +Assessment Time + +2007-03-15T07:45:02-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.1 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_29 + + +Assessment Time + +2007-03-15T07:45:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_29_1 + + +Assessment Time + +2007-03-15T07:45:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +137 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_30 + + +Assessment Time + +2007-03-15T07:45:00-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_30_1 + + +Assessment Time + +2007-03-15T07:45:00-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.2 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_31 + + +Assessment Time + +2006-06-02T00:09:00-05:00 + + +Prothrombin Time+PTT + +85613.0000 +99VA64 + + + + +ACTORPROVIDER_20029 + + + +RESULTTEST_31_1 + + +Assessment Time + +2006-06-02T00:09:00-05:00 + + +PROTHROMBIN TIME + +CH430 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +14 + +SEC. + + + + + +10-13 + + + +ACTORORGANIZATION_500 + + + + + +H + + + +RESULTTEST_31_2 + + +Assessment Time + +2006-06-02T00:09:00-05:00 + + +PARTIAL THROMBOPLASTIN TIME + +CH431 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +26 + +SEC. + + + + + +18-25 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_32 + + +Assessment Time + +2006-06-01T02:13:00-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20029 + + + +RESULTTEST_32_1 + + +Assessment Time + +2006-06-01T02:13:00-05:00 + + +HEMOGLOBIN A1C + +CH462 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +6.1 + +% + + + + + +3.5-6 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_33 + + +Assessment Time + +2005-07-07T10:04:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20029 + + + +RESULTTEST_33_1 + + +Assessment Time + +2005-07-07T10:04:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +350 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + +RESULT_34 + + +Assessment Time + +2005-03-17T02:56:53-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_34_1 + + +Assessment Time + +2005-03-17T02:56:53-05:00 + + +HEMOGLOBIN A1C + +CH462 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +8.2 + + + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_35 + + +Assessment Time + +2005-03-17T02:56:52-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_35_1 + + +Assessment Time + +2005-03-17T02:56:52-05:00 + + +INR + +CH500046 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +1.6 + + + + +1.0-1.4 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_36 + + +Assessment Time + +2005-03-17T02:56:52-05:00 + + +Prothrombin Time + +85610.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_36_1 + + +Assessment Time + +2005-03-17T02:56:52-05:00 + + +PROTHROMBIN TIME + +CH430 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +17.5 + +SEC. + + + + + +10-13 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_37 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_37_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CPKWNY + +CH500038 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +250 + +U/L + + + + + +21-235 + + + +ACTORORGANIZATION_500 + + + + + +H + + + +RESULTTEST_37_2 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CPK-MB + +CH132 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +17.5 + +U/L + + + + + +0-8.9 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + +RESULTTEST_37_3 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CPK-MB/CPK + +CH133 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +7 + +% + + + + + +0-6 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_38 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_38_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +100 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_39 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_39_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +245 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_40 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_40_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.1 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_41 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_41_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +30 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_42 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_42_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +41 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_43 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Troponin I + +83191.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_43_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +TROPONIN I.CARDIAC:MCNC:PT:SER/PLAS:QN + +10839-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.8 + +ug/mL + + + + + +0-0.5 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_44 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Lactate Dehydrogenase Isoenz + +83625.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_44_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +LDH + +CH18 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +190 + +U/L + + + + + +128-227 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_45 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_45_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.2 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_46 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_46_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +144 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_47 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_47_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +310 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + +RESULT_48 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +Urea Nitrogen + +84520.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_48_1 + + +Assessment Time + +2005-03-17T02:56:51-05:00 + + +UREA NITROGEN/CREATININE:MCRTO:PT:SER/PLAS:QN + +3097-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +15 + +mg/dL + + + + + +5-24 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_49 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_49_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +101 + +meq/L + + + + + +100-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_50 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_50_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.2 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_51 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_51_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +29 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_52 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_52_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +4 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_53 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_53_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +135 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_54 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_54_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +85 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_55 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +Urea Nitrogen + +84520.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_55_1 + + +Assessment Time + +2004-03-28T23:12:04-05:00 + + +UREA NITROGEN/CREATININE:MCRTO:PT:SER/PLAS:QN + +3097-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +19 + +mg/dL + + + + + +11-24 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_56 + + +Assessment Time + +2004-03-25T22:34:32-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_56_1 + + +Assessment Time + +2004-03-25T22:34:32-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +225 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_57 + + +Assessment Time + +2003-04-28T11:15:06-05:00 + + +Prothrombin Time + +85610.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_57_1 + + +Assessment Time + +2003-04-28T11:15:06-05:00 + + +PROTHROMBIN TIME + +CH430 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +11.9 + +SEC. + + + + + +10-15 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_58 + + +Assessment Time + +2003-04-28T11:15:05-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20008 + + + +RESULTTEST_58_1 + + +Assessment Time + +2003-04-28T11:15:05-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.1 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_59 + + +Assessment Time + +2000-05-21T08:00:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20029 + + + +RESULTTEST_59_1 + + +Assessment Time + +2000-05-21T08:00:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +200 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_60 + + +Assessment Time + +2000-05-20T08:00:01-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20029 + + + +RESULTTEST_60_1 + + +Assessment Time + +2000-05-20T08:00:01-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +45 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +LL + + + + +RESULT_61 + + +Assessment Time + +2000-05-20T08:00:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20029 + + + +RESULTTEST_61_1 + + +Assessment Time + +2000-05-20T08:00:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +123 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_62 + + +Assessment Time + +1999-02-10T09:05:01-05:00 + + +Micro Bacteriology Culture + +87993.0000 +99VA64 + + + + +ACTORPROVIDER_11531 + + + +RESULTTEST_62_1 + + +Assessment Time + +1999-02-10T09:05:01-05:00 + + +MICROSCOPIC OBSERVATION:PRID:PT:XXX:NOM:GRAM STAIN + +664-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +NEGATIVE + + + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_62_2 + + +Assessment Time + +1999-02-10T09:05:01-05:00 + + +MICROSCOPIC OBSERVATION:PRID:PT:XXX:NOM:GRAM STAIN + +664-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +***GRAM STAIN + + + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_63 + + +Assessment Time + +1999-02-09T14:48:58-05:00 + + +Calcium + +82310.0000 +99VA64 + + + + +ACTORPROVIDER_11531 + + + +RESULTTEST_63_1 + + +Assessment Time + +1999-02-09T14:48:58-05:00 + + +CALCIUM:SCNC:PT:SER/PLAS:QN + +2000-8 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +8.9 + +mg/dL + + + + + +9-11 + + + +ACTORORGANIZATION_500 + + + + + +L + + + + +RESULT_64 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +Chemistry Analysis Profile + +82400.0000 +99VA64 + + + + +ACTORPROVIDER_11531 + + + +RESULTTEST_64_1 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +GLUCOSE + +CH2 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +223 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +H + + + +RESULTTEST_64_2 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +UREA NITROGEN + +CH3 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +11 + +mg/dL + + + + + +11-24 + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_64_3 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +CREATININE + +CH4 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +1.2 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_64_4 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +SODIUM + +CH5 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +144 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_64_5 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +POTASSIUM + +CH6 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +4.5 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_64_6 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +CHLORIDE + +CH7 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +102 + +meq/L + + + + + +100-108 + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_64_7 + + +Assessment Time + +1999-02-09T11:08:44-05:00 + + +CO2 + +CH8 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +33 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_65 + + +Assessment Time + +1999-01-22T00:00:00-05:00 + + +Surgical Pathology Procedures NOS + +88515.0000 +99VA64 + + + + +ACTORPROVIDER_11531 + + + +RESULTTEST_65_1 + + +Assessment Time + +1700--T00:00:00-05:00 + + +PATH REPORT.SITE OF ORIGIN:ANAT:PT:SPECIMEN:NAR + +22633-2 +LOINC + + + +C + + + +ACTORORGANIZATION_500 + + + +LYMPH NODE\ + + + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_65_2 + + +Assessment Time + +1700--T00:00:00-05:00 + + +PATH REPORT.GROSS OBSERVATION:FIND:PT:SPECIMEN:NAR + +22634-0 +LOINC + + + +C + + + +ACTORORGANIZATION_500 + + + +This is the Gross description. + + + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_65_3 + + +Assessment Time + +1700--T00:00:00-05:00 + + +PATH REPORT.MICROSCOPIC OBSERVATION:PRID:PT:SPECIMEN:NAR:XXX STAIN + +22635-7 +LOINC + + + +C + + + +ACTORORGANIZATION_500 + + + + oRIGINAL LINE DELETED AND THIS LINE ADDED... + + + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_65_4 + + +Assessment Time + +1700--T00:00:00-05:00 + + +PATH REPORT.FINAL DIAGNOSIS:IMP:PT:SPECIMEN:NAR + +22637-3 +LOINC + + + +C + + + +ACTORORGANIZATION_500 + + + +Surgical path diagnosis + + + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_65_5 + + +Assessment Time + +1700--T00:00:00-05:00 + + +PATH REPORT.SUPPLEMENTAL REPORTS:FIND:PT:SPECIMEN:NAR + +22639-9 +LOINC + + + +C + + + +ACTORORGANIZATION_500 + + + +I am testing for nois. Not sure if this is correct. + + + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_66 + + +Assessment Time + +1999-01-19T09:55:31-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_11531 + + + +RESULTTEST_66_1 + + +Assessment Time + +1999-01-19T09:55:31-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +122 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_67 + + +Assessment Time + +1998-04-14T11:03:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_11531 + + + +RESULTTEST_67_1 + + +Assessment Time + +1998-04-14T11:03:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +222 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_68 + + +Assessment Time + +1997-12-18T09:37:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_10958 + + + +RESULTTEST_68_1 + + +Assessment Time + +1997-12-18T09:37:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +211 + +MG + + + + + +50-100 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + + + +PROCEDURE_1968_10 + + +Procedure Date + +2001-04-09T00:00:00-05:00 + + +Office/Outpatient Visit an Established Patient requiring (2 of 3) a History, an Exam and Medical Decision Making (CPT-4 99212) + +99212 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_11740 + + + + + + +ENCOUNTER_3877 + +2007-05-16T00:00:00-05:00 + + +ADVANCE DIRECTIVE + + +ADVANCE DIRECTIVE + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_3136 + +2004-04-02T00:00:00-05:00 + + + Office/Outpatient Visit for New Patient requiring a History, Exam and Medical Decision Making + + + Office/Outpatient Visit for New Patient requiring a History, Exam and Medical Decision Making + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11748 + + + + +ACTORPROVIDER_11748 + + +NOTE_3136 + + +ENCOUNTER_2920 + +2004-03-31T00:00:00-05:00 + + +PATIENT EDUCATION + + +PATIENT EDUCATION + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_2791 + +2004-03-31T00:00:00-05:00 + + +MEDICINE + + +MEDICINE + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_1968 + +2001-04-09T00:00:00-05:00 + + + Office/Outpatient Visit an Established Patient requiring (2 of 3) a History, an Exam and Medical Decision Making (CPT-4 99212) + +99212 +CPT-4 + + + + Office/Outpatient Visit an Established Patient requiring (2 of 3) a History, an Exam and Medical Decision Making (CPT-4 99212) + +99212 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11740 + + + + +ACTORPROVIDER_11740 + + +NOTE_1968 + + +ENCOUNTER_1805 + +2000-10-18T00:00:00-05:00 + + + Medical Conference to coordinate Patient Care (brief) + + + Medical Conference to coordinate Patient Care (brief) + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11278 + + + + +ACTORPROVIDER_11278 + + +NOTE_1805 + + +ENCOUNTER_1620 + +1999-01-26T00:00:00-05:00 + + + Visit for drug monitoring + + + Visit for drug monitoring + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11531 + + + + +ACTORPROVIDER_11531 + + +NOTE_1620 + + +ENCOUNTER_534 + +1998-01-21T00:00:00-05:00 + + +TIU TRAINING + + +TIU TRAINING + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_166 + +1995-08-22T00:00:00-05:00 + + +CRISIS NOTE + + +CRISIS NOTE + + + +ACTORORGANIZATION_1 + + + + + + + +ACTORORGANIZATION_1 + +ZZ ALBANY-PRRTP + +
+ +Office + +123 MAIN +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORORGANIZATION_500 + +ZZ ALBANY-PRRTP + +
+ +Office + +123 MAIN +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_140 + + + +PATIENT +THIRTYTWO + + + +1935-04-07 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000032 + + +ACTORPATIENT_140 + + + +
+ +Home + +1312 Ashton Place +Rowling +WEST VIRGINIA +99998 +
+ +222-555-8235 + +Residential Telephone + + + +222-555-7720 + +Work Telephone + + + + +ACTORPATIENT_140 + + + + +ACTORPROVIDER_10000000002 + + + +THIRTY +LABTECH + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ +509.989.3732 + +Office + + + + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000031 + + + +ONEHUNDRED +VEHU +Scholar Extraordinaire + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000053 + + + +TWO +LABTECH +COMPUTER SPECIALIST + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10958 + + + +FIFTYTHREE +WARDCLERK +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath-Critical Care Medicine: Anesthesiology + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11278 + + + +SIXTYEIGHT +WARDCLERK +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath-Internal Medicine + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11531 + + + +ONEHUNDREDNINETYONE +PROVIDER +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11740 + + + +TWENTYFOUR +RADTECH +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11745 + + + +SPECIAL +LABTECH +COMPUTER SPECIALIST + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11748 + + + +THRITYTWO +RADTECH +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20008 + + + +SEVEN +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20029 + + + +THIRTYTWO +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20079 + + + +SEVENTYNINE +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20364 + + + +SEVENTEEN +LABTECH + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20391 + + + +TWENTYFOUR +LABTECH +PHYSICIAN + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_983 + + + +ONE +PROVIDER +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_1620 + +1999-01-26T00:00:00-05:00 + + + +This is an example of a crisis note that displays within CWAD. + + + + +ACTORPROVIDER_11531 + + + + +NOTE_1805 + +2000-10-18T00:00:00-05:00 + + + +This is a new advance directive for this patient. THIRTYTWO,PATIENT has +requested that he not be resuscitated in the event that he goes into +respiratory distress. See attached scanned document for patient's +signature. + + + + +ACTORPROVIDER_11278 + + + + +NOTE_1968 + +2001-04-09T00:00:00-05:00 + + + +GASTROINTESTINAL: Denies. +GENITOURINARY: Denies nocturia. +HEMOPOIETIC: Denies anemia, or easy bruisability. +LYMPHATIC: Denies. +MUSCULOSKELETAL: chronic low back pain. +NEUROLOGIC: Denies history of coma, paralysis, epilepsy, or convulsions. +PSYCHIATRIC: Denies. + +PHYSICAL EXAMINATION: +GENERAL: This is a well-nourished, well-developed male in no apparent +Distress. He is alert and oriented to person, place, time and purpose. + + + + +ACTORPROVIDER_11740 + + + + +NOTE_3136 + +2004-04-02T00:00:00-05:00 + + + +HX: Patient was seen for hearing aid fitting and orientation. +The batteries supplied for this hearing aid were: za312. + +IMP: The veteran was seen for hearing aid fitting and orientation. A +complete orientation was performed, and the patient can insert the +aids(s), change the batteries, and adjust the volume. Response curves +were obtained using a real- ear probe microphone in-situ Measurement +System and indicated appropriate gain for the demonstrated hearing loss. +Care of the aid(s), warranty information and dangers of battery ingestion +were discussed with the veteran. + +REC: Continued use of present amplification is recommended + + + + +ACTORPROVIDER_11748 + + + + + diff --git a/qrda/CCR/M1-QRDA/PAT_3_CCR_V1_0_0.xml b/qrda/CCR/M1-QRDA/PAT_3_CCR_V1_0_0.xml new file mode 100644 index 0000000..f567400 --- /dev/null +++ b/qrda/CCR/M1-QRDA/PAT_3_CCR_V1_0_0.xml @@ -0,0 +1,7795 @@ + + + +f7e11811-2eca-4404-9716-0ff45787afd0 + +English + +V1.0 + +2010-06-22T19:59:12-05:00 + + +ACTORPATIENT_3 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_3 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-03-31T00:00:00-05:00 + + +Problem + + +SOCIAL HISTORY + +799.9 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_10000000020 + + + + +PROBLEM2 + +2008-11-20T00:00:00-05:00 + + +Problem + + +Chronic cholelithiasis + +574.20 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + +PROBLEM3 + +2007-04-10T00:00:00-05:00 + + +Problem + + +Hypertension + +401.9 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_10000000031 + + + + +PROBLEM4 + +2007-04-10T00:00:00-05:00 + + +Problem + + +Hyperlipidemia + +272.4 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_10000000031 + + + + +PROBLEM5 + +2005-03-17T00:00:00-05:00 + + +Problem + + +Acute myocardial infarction, unspecified site, episode of care unspecified + +410.90 +ICD9CM + + + +Active + + + +ACTORPROVIDER_20010 + + + + +PROBLEM6 + +2004-03-09T00:00:00-05:00 + + +Problem + + +Chronic Systolic Heart failure + +428.22 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_11745 + + + + +PROBLEM7 + +2004-03-30T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus Type II or unspecified + +250.00 +ICD9CM + + + +Active/Chronic + + + +ACTORPROVIDER_20010 + + + + + + +ALERT1 + +2005-03-17T20:09:00-05:00 + + +Adverse Reaction + + +Patient has an ADVERSE reaction to PENICILLIN. + +282100009 +SNOMED CT + + + + +ACTORPROVIDER_20010 + + + + + +PRODUCT_125 + + +ACTORPROVIDER_20010 + + + + +PENICILLIN + + + + + + + +ITCHING,WATERING EYES + + + + +ALERT2 + +2007-12-17T15:13:00-05:00 + + +Allergy + + +Patient has an ALLERGIC reaction to CHOCOLATE. + +418634005 +SNOMED CT + + + + +ACTORPROVIDER_983 + + + + + +PRODUCT_3 + + +ACTORPROVIDER_983 + + + + +CHOCOLATE + +4636681 +VUID + + + + + + + + +DIARRHEA + +4637011 +VUID + + + + + +ALERT3 + +2008-10-13T19:43:00-05:00 + + +Allergy + + +Patient has an ALLERGIC reaction to SULFA DRUGS. + +418634005 +SNOMED CT + + + + +ACTORPROVIDER_10000000020 + + + + + +PRODUCT_144 + + +ACTORPROVIDER_10000000020 + + + + +SULFA DRUGS + +4539068 +VUID + + + + + + + + +ITCHING,WATERING EYES + + + + +ALERT4 + +2008-10-14T14:04:00-05:00 + + +Allergy + + +Patient has an ALLERGIC reaction to PENICILLIN G BENZATHINE. + +418634005 +SNOMED CT + + + + +ACTORPROVIDER_10000000020 + + + + + +PRODUCT_16 + + +ACTORPROVIDER_10000000020 + + + + +PENICILLIN G BENZATHINE + +4019880 +VUID + + + + + + + + +NAUSEA,VOMITING + + + + + + +VITAL1 + + +OBSERVED + +2007-04-24T08:00:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST1 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000053 + + + +175 + +lbs + + + + + +VITAL2 + + +OBSERVED + +2007-04-11T07:45:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST2 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000053 + + + +184 + +lbs + + + + + +VITAL3 + + +OBSERVED + +2007-03-15T08:00:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST3 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000053 + + + +196 + +lbs + + + + + +VITAL4 + + +OBSERVED + +2005-03-16T06:00:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST4 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +102.6 + +F + + + + + +VITAL5 + + +OBSERVED + +2005-03-16T06:00:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST5 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +21 + + + + +VITAL6 + + +OBSERVED + +2005-03-16T06:00:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST6 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +3 + + + + +VITAL7 + + +OBSERVED + +2005-03-16T01:00:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST7 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +99 + +F + + + + + +VITAL8 + + +OBSERVED + +2005-03-16T01:00:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST8 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +18 + + + + +VITAL9 + + +OBSERVED + +2005-03-16T01:00:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST9 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +1 + + + + +VITAL10 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST10 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +199 + +lbs + + + + + +VITAL11 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST11 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +98.2 + +F + + + + + +VITAL12 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST12 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +18 + + + + +VITAL13 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST13 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +3 + + + + +VITAL14 + + +OBSERVED + +2005-03-15T11:03:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST14 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +71 + +in + + + + + +VITAL15 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST15 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +185 + +lbs + + + + + +VITAL16 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST16 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +98.6 + +F + + + + + +VITAL17 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST17 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +18 + + + + +VITAL18 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST18 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +2 + + + + +VITAL19 + + +OBSERVED + +2004-03-30T21:31:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST19 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_11745 + + + +70 + +in + + + + + +VITAL20 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST20 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +174 + +lbs + + + + + +VITAL21 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST21 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +98.7 + +F + + + + + +VITAL22 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST22 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +10 + + + + +VITAL23 + + +OBSERVED + +2003-04-15T16:05:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST23 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +5 + + + + +VITAL24 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST24 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +172 + +lbs + + + + + +VITAL25 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST25 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +98.4 + +F + + + + + +VITAL26 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST26 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +12 + + + + +VITAL27 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST27 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +4 + + + + +VITAL28 + + +OBSERVED + +2003-04-05T15:15:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST28 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_10000000002 + + + +70 + +in + + + + + +VITAL29 + + +OBSERVED + +2003-04-04T15:24:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST29 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +98.4 + +F + + + + + +VITAL30 + + +OBSERVED + +2003-04-04T15:24:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST30 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +19 + + + + +VITAL31 + + +OBSERVED + +2003-04-04T15:24:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST31 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_20391 + + + +0 + + + + +VITAL32 + + +OBSERVED + +2001-04-09T13:44:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST32 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +169 + +lbs + + + + + +VITAL33 + + +OBSERVED + +2001-04-09T13:44:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST33 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +98.7 + +F + + + + + +VITAL34 + + +OBSERVED + +2001-04-09T13:44:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST34 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +23 + + + + +VITAL35 + + +OBSERVED + +2001-04-09T13:44:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST35 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_11740 + + + +0 + + + + +VITAL36 + + +OBSERVED + +2000-05-21T09:57:00-05:00 + + +WEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST36 + +OBSERVED + + +WEIGHT + +107647005 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +160 + +lbs + + + + + +VITAL37 + + +OBSERVED + +2000-05-21T09:57:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST37 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +98.6 + +F + + + + + +VITAL38 + + +OBSERVED + +2000-05-21T09:57:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST38 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +14 + + + + +VITAL39 + + +OBSERVED + +2000-05-21T09:57:00-05:00 + + +PAIN + + + +ACTORSYSTEM_1 + + + +VITALTEST39 + +OBSERVED + + +PAIN + +22253000 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +0 + + + + +VITAL40 + + +OBSERVED + +2000-05-21T09:57:00-05:00 + + +HEIGHT + + + +ACTORSYSTEM_1 + + + +VITALTEST40 + +OBSERVED + + +HEIGHT + +248327008 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +70 + +in + + + + + +VITAL41 + + +OBSERVED + +2000-05-18T09:57:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST41 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +98.2 + +F + + + + + +VITAL42 + + +OBSERVED + +2000-05-18T09:57:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST42 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +16 + + + + +VITAL43 + + +OBSERVED + +2000-05-08T09:58:00-05:00 + + +TEMPERATURE + + + +ACTORSYSTEM_1 + + + +VITALTEST43 + +OBSERVED + + +TEMPERATURE + +309646008 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +99 + +F + + + + + +VITAL44 + + +OBSERVED + +2000-05-08T09:58:00-05:00 + + +RESPIRATION + + + +ACTORSYSTEM_1 + + + +VITALTEST44 + +OBSERVED + + +RESPIRATION + +366147009 +SNOMED + + + + +ACTORPROVIDER_1611 + + + +18 + + + + + + +RESULT_1 + + +Assessment Time + +2008-11-17T21:58:04-05:00 + + +Hepatitis Panel + +81130.0000 +99VA64 + + + + +ACTORPROVIDER_10000000020 + + + +RESULTTEST_1_1 + + +Assessment Time + +2008-11-17T21:58:04-05:00 + + +HEPATITIS B SURFACE ANTIBODY + +CH583 +99VA63 + + + + +ACTORORGANIZATION_500 + + + + + + +ACTORORGANIZATION_500 + + + + + + +RESULTTEST_1_2 + + +Assessment Time + +2008-11-17T21:58:04-05:00 + + +HEPATITIS B SURFACE ANTIGEN + +CH553 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +aldskfjadklalsdkjfklsfaldskjfdslkalksdjflalskdjf + + + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_2 + + +Assessment Time + +2007-04-24T07:30:09-05:00 + + +Calculation + +82350.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_2_1 + + +Assessment Time + +2007-04-24T07:30:09-05:00 + + +LDL CHOLESTEROL + +CH291 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +129 + +MG/DL + + + + + +0-130 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_3 + + +Assessment Time + +2007-04-24T07:30:08-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_3_1 + + +Assessment Time + +2007-04-24T07:30:08-05:00 + + +TRIGLYCERIDE + +CH47 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +185 + +mg/dL + + + + + +0-249 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_4 + + +Assessment Time + +2007-04-24T07:30:07-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_4_1 + + +Assessment Time + +2007-04-24T07:30:07-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +44 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_5 + + +Assessment Time + +2007-04-24T07:30:06-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_5_1 + + +Assessment Time + +2007-04-24T07:30:06-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +188 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_6 + + +Assessment Time + +2007-04-24T07:30:05-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_6_1 + + +Assessment Time + +2007-04-24T07:30:05-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +95 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_7 + + +Assessment Time + +2007-04-24T07:30:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_7_1 + + +Assessment Time + +2007-04-24T07:30:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +26 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_8 + + +Assessment Time + +2007-04-24T07:30:03-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_8_1 + + +Assessment Time + +2007-04-24T07:30:03-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +100 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_9 + + +Assessment Time + +2007-04-24T07:30:02-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_9_1 + + +Assessment Time + +2007-04-24T07:30:02-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +3.8 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_10 + + +Assessment Time + +2007-04-24T07:30:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_10_1 + + +Assessment Time + +2007-04-24T07:30:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +135 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_11 + + +Assessment Time + +2007-04-24T07:03:00-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_11_1 + + +Assessment Time + +2007-04-24T07:03:00-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.1 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_12 + + +Assessment Time + +2007-04-11T08:00:09-05:00 + + +Calculation + +82350.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_12_1 + + +Assessment Time + +2007-04-11T08:00:09-05:00 + + +LDL CHOLESTEROL + +CH291 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +175 + +MG/DL + + + + + +0-130 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_13 + + +Assessment Time + +2007-04-11T08:00:08-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_13_1 + + +Assessment Time + +2007-04-11T08:00:08-05:00 + + +TRIGLYCERIDE + +CH47 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +261 + +mg/dL + + + + + +0-249 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_14 + + +Assessment Time + +2007-04-11T08:00:07-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_14_1 + + +Assessment Time + +2007-04-11T08:00:07-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +36 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + +L + + + + +RESULT_15 + + +Assessment Time + +2007-04-11T08:00:06-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_15_1 + + +Assessment Time + +2007-04-11T08:00:06-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +215 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_16 + + +Assessment Time + +2007-04-11T08:00:05-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_16_1 + + +Assessment Time + +2007-04-11T08:00:05-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +155 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_17 + + +Assessment Time + +2007-04-11T08:00:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_17_1 + + +Assessment Time + +2007-04-11T08:00:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +27 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_18 + + +Assessment Time + +2007-04-11T08:00:03-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_18_1 + + +Assessment Time + +2007-04-11T08:00:03-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +103 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_19 + + +Assessment Time + +2007-04-11T08:00:02-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_19_1 + + +Assessment Time + +2007-04-11T08:00:02-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.2 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_20 + + +Assessment Time + +2007-04-11T08:00:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_20_1 + + +Assessment Time + +2007-04-11T08:00:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +140 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_21 + + +Assessment Time + +2007-04-11T08:00:00-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_21_1 + + +Assessment Time + +2007-04-11T08:00:00-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.3 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_22 + + +Assessment Time + +2007-03-15T07:45:09-05:00 + + +Calculation + +82350.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_22_1 + + +Assessment Time + +2007-03-15T07:45:09-05:00 + + +LDL CHOLESTEROL + +CH291 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +168 + +MG/DL + + + + + +0-130 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_23 + + +Assessment Time + +2007-03-15T07:45:08-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_23_1 + + +Assessment Time + +2007-03-15T07:45:08-05:00 + + +TRIGLYCERIDE + +CH47 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +250 + +mg/dL + + + + + +0-249 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_24 + + +Assessment Time + +2007-03-15T07:45:07-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_24_1 + + +Assessment Time + +2007-03-15T07:45:07-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +38 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + +L + + + + +RESULT_25 + + +Assessment Time + +2007-03-15T07:45:06-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_25_1 + + +Assessment Time + +2007-03-15T07:45:06-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +205 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_26 + + +Assessment Time + +2007-03-15T07:45:05-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_26_1 + + +Assessment Time + +2007-03-15T07:45:05-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +135 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_27 + + +Assessment Time + +2007-03-15T07:45:04-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_27_1 + + +Assessment Time + +2007-03-15T07:45:04-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +24 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_28 + + +Assessment Time + +2007-03-15T07:45:03-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_28_1 + + +Assessment Time + +2007-03-15T07:45:03-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +99 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_29 + + +Assessment Time + +2007-03-15T07:45:02-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_29_1 + + +Assessment Time + +2007-03-15T07:45:02-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.1 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_30 + + +Assessment Time + +2007-03-15T07:45:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_30_1 + + +Assessment Time + +2007-03-15T07:45:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +137 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_31 + + +Assessment Time + +2007-03-15T07:45:00-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20364 + + + +RESULTTEST_31_1 + + +Assessment Time + +2007-03-15T07:45:00-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.2 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_32 + + +Assessment Time + +2006-06-01T23:56:00-05:00 + + +Prothrombin Time+PTT + +85613.0000 +99VA64 + + + + +ACTORPROVIDER_20010 + + + +RESULTTEST_32_1 + + +Assessment Time + +2006-06-01T23:56:00-05:00 + + +PROTHROMBIN TIME + +CH430 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +14 + +SEC. + + + + + +10-13 + + + +ACTORORGANIZATION_500 + + + + + +H + + + +RESULTTEST_32_2 + + +Assessment Time + +2006-06-01T23:56:00-05:00 + + +PARTIAL THROMBOPLASTIN TIME + +CH431 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +26 + +SEC. + + + + + +18-25 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_33 + + +Assessment Time + +2006-06-01T01:57:00-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20010 + + + +RESULTTEST_33_1 + + +Assessment Time + +2006-06-01T01:57:00-05:00 + + +HEMOGLOBIN A1C + +CH462 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +6.1 + +% + + + + + +3.5-6 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_34 + + +Assessment Time + +2005-07-07T10:32:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20010 + + + +RESULTTEST_34_1 + + +Assessment Time + +2005-07-07T10:32:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +350 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + +RESULT_35 + + +Assessment Time + +2005-03-17T02:14:16-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_35_1 + + +Assessment Time + +2005-03-17T02:14:16-05:00 + + +HEMOGLOBIN A1C + +CH462 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +8.2 + + + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_36 + + +Assessment Time + +2005-03-17T02:14:15-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_36_1 + + +Assessment Time + +2005-03-17T02:14:15-05:00 + + +INR + +CH500046 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +1.6 + + + + +1.0-1.4 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_37 + + +Assessment Time + +2005-03-17T02:14:15-05:00 + + +Prothrombin Time + +85610.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_37_1 + + +Assessment Time + +2005-03-17T02:14:15-05:00 + + +PROTHROMBIN TIME + +CH430 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +17.5 + +SEC. + + + + + +10-13 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_38 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_38_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CPKWNY + +CH500038 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +250 + +U/L + + + + + +21-235 + + + +ACTORORGANIZATION_500 + + + + + +H + + + +RESULTTEST_38_2 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CPK-MB + +CH132 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +17.5 + +U/L + + + + + +0-8.9 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + +RESULTTEST_38_3 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CPK-MB/CPK + +CH133 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +7 + +% + + + + + +0-6 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_39 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_39_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +100 + +meq/L + + + + + +95-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_40 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Cholesterol Total + +82466.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_40_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CHOLESTEROL + +CH12 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +245 + +mg/dL + + + + + +0-199 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_41 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_41_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.1 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_42 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_42_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +30 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_43 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Cholesterol HDL + +83013.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_43_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +HDL + +CH80 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +41 + +MG/DL + + + + + +40-60 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_44 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Troponin I + +83191.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_44_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +TROPONIN I.CARDIAC:MCNC:PT:SER/PLAS:QN + +10839-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.8 + +ug/mL + + + + + +0-0.5 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_45 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Lactate Dehydrogenase Isoenz + +83625.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_45_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +LDH + +CH18 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +190 + +U/L + + + + + +128-227 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_46 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_46_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.2 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_47 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_47_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +144 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_48 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_48_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +310 + +mg/dL + + + + + +60-110 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + +RESULT_49 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +Urea Nitrogen + +84520.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_49_1 + + +Assessment Time + +2005-03-17T01:59:24-05:00 + + +UREA NITROGEN/CREATININE:MCRTO:PT:SER/PLAS:QN + +3097-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +15 + +mg/dL + + + + + +5-24 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_50 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_50_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +101 + +meq/L + + + + + +100-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_51 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_51_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.2 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_52 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_52_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +29 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_53 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_53_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +4 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_54 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_54_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +135 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_55 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_55_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +85 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_56 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +Urea Nitrogen + +84520.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_56_1 + + +Assessment Time + +2004-03-28T22:50:13-05:00 + + +UREA NITROGEN/CREATININE:MCRTO:PT:SER/PLAS:QN + +3097-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +19 + +mg/dL + + + + + +11-24 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_57 + + +Assessment Time + +2004-03-25T22:21:59-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_57_1 + + +Assessment Time + +2004-03-25T22:21:59-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +225 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_58 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Chloride + +82435.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_58_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +CHLORIDE:SCNC:PT:SER/PLAS:QN + +2075-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +102 + +meq/L + + + + + +100-108 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_59 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Creatinine + +82565.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_59_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +CREATININE:MCNC:PT:SER/PLAS:QN + +2160-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +1.2 + +mg/dL + + + + + +.9-1.4 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_60 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Carbon Dioxide Content + +82830.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_60_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +CARBON DIOXIDE:SCNC:PT:SER/PLAS:QN + +2028-9 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +29 + +meq/L + + + + + +23-31 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_61 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_61_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +5.3 + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_62 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Sodium + +84295.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_62_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +SODIUM:SCNC:PT:BLD:QN + +2947-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +140 + +meq/L + + + + + +135-145 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_63 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_63_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +321 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + +RESULT_64 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +Urea Nitrogen + +84520.0000 +99VA64 + + + + +ACTORPROVIDER_20354 + + + +RESULTTEST_64_1 + + +Assessment Time + +2003-04-28T10:50:01-05:00 + + +UREA NITROGEN/CREATININE:MCRTO:PT:SER/PLAS:QN + +3097-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +15 + +mg/dL + + + + + +11-24 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_65 + + +Assessment Time + +2003-04-28T10:38:17-05:00 + + +Prothrombin Time + +85610.0000 +99VA64 + + + + +ACTORPROVIDER_20355 + + + +RESULTTEST_65_1 + + +Assessment Time + +2003-04-28T10:38:17-05:00 + + +PROTHROMBIN TIME + +CH430 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +11.9 + +SEC. + + + + + +10-15 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_66 + + +Assessment Time + +2003-04-28T10:38:16-05:00 + + +Potassium + +84140.0000 +99VA64 + + + + +ACTORPROVIDER_20355 + + + +RESULTTEST_66_1 + + +Assessment Time + +2003-04-28T10:38:16-05:00 + + +POTASSIUM:SCNC:PT:SER/PLAS:QN + +2823-3 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +comment + +meq/L + + + + + +3.8-5.3 + + + +ACTORORGANIZATION_500 + + + + + + + +RESULT_67 + + +Assessment Time + +2000-05-21T08:00:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20010 + + + +RESULTTEST_67_1 + + +Assessment Time + +2000-05-21T08:00:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +400 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +HH + + + + +RESULT_68 + + +Assessment Time + +2000-05-21T04:00:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20010 + + + +RESULTTEST_68_1 + + +Assessment Time + +2000-05-21T04:00:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +140 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + +RESULT_69 + + +Assessment Time + +2000-05-20T04:00:00-05:00 + + +Glucose Quant + +84330.0000 +99VA64 + + + + +ACTORPROVIDER_20010 + + + +RESULTTEST_69_1 + + +Assessment Time + +2000-05-20T04:00:00-05:00 + + +GLUCOSE:MCNC:PT:FLU:QN + +2344-0 +LOINC + + + +F + + + +ACTORORGANIZATION_500 + + + +200 + +mg/dL + + + + + +60-123 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + + + +PROCEDURE_1992_14 + + +Procedure Date + +2001-04-09T00:00:00-05:00 + + +Office/Outpatient Visit an Established Patient requiring (2 of 3) a History, an Exam and Medical Decision Making (CPT-4 99212) + +99212 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_11740 + + + + + + +ENCOUNTER_4066 + +2010-03-31T00:00:00-05:00 + + +CRISIS NOTE + + +CRISIS NOTE + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_4065 + +2010-03-31T00:00:00-05:00 + + +C&P EXAMINATION REPORTS + + +C&P EXAMINATION REPORTS + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_4064 + +2010-03-31T00:00:00-05:00 + + +CRISIS NOTE + + +CRISIS NOTE + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_4063 + +2010-03-31T00:00:00-05:00 + + +C&P EXAMINATION REPORTS + + +C&P EXAMINATION REPORTS + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_4049 + +2010-03-30T00:00:00-05:00 + + +C&P EXAMINATION REPORTS + + +C&P EXAMINATION REPORTS + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4048 + +2010-03-30T00:00:00-05:00 + + +IMED TITLES + + +IMED TITLES + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_3853 + +2007-05-16T00:00:00-05:00 + + +ADVANCE DIRECTIVE + + +ADVANCE DIRECTIVE + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_3112 + +2004-04-01T00:00:00-05:00 + + +CONSULTS + + +CONSULTS + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_2888 + +2004-03-31T00:00:00-05:00 + + +PATIENT EDUCATION + + +PATIENT EDUCATION + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_2767 + +2004-03-31T00:00:00-05:00 + + +MEDICINE + + +MEDICINE + + + +ACTORORGANIZATION_1 + + + + +ENCOUNTER_1992 + +2001-04-09T00:00:00-05:00 + + + Office/Outpatient Visit an Established Patient requiring (2 of 3) a History, an Exam and Medical Decision Making (CPT-4 99212) + +99212 +CPT-4 + + + + Office/Outpatient Visit an Established Patient requiring (2 of 3) a History, an Exam and Medical Decision Making (CPT-4 99212) + +99212 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11740 + + + + +ACTORPROVIDER_11740 + + +NOTE_1992 + + +ENCOUNTER_1779 + +2000-10-18T00:00:00-05:00 + + + Medical Conference to coordinate Patient Care (brief) + + + Medical Conference to coordinate Patient Care (brief) + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11278 + + + + +ACTORPROVIDER_11278 + + +NOTE_1779 + + +ENCOUNTER_1748 + +2000-10-18T00:00:00-05:00 + + +ADVANCE DIRECTIVE + + +ADVANCE DIRECTIVE + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_11278 + + + + +ACTORPROVIDER_11278 + + + + +ENCOUNTER_1699 + +2000-05-21T00:00:00-05:00 + + +CRISIS NOTE + + +CRISIS NOTE + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_20023 + + + + +ACTORPROVIDER_20023 + + + + +ENCOUNTER_1685 + +2000-05-21T00:00:00-05:00 + + + Periodic oral evaluation + + + Periodic oral evaluation + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_20023 + + + + +ACTORPROVIDER_20023 + + +NOTE_1685 + + +ENCOUNTER_1601 + +2000-05-21T00:00:00-05:00 + + +CRISIS NOTE + + +CRISIS NOTE + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_20023 + + + + +ACTORPROVIDER_20023 + + + + +ENCOUNTER_1490 + +2000-05-21T00:00:00-05:00 + + +CRISIS NOTE + + +CRISIS NOTE + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_20023 + + + + +ACTORPROVIDER_20023 + + + + + + + +ACTORORGANIZATION_1 + +ZZ ALBANY-PRRTP + +
+ +Office + +123 MAIN +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORORGANIZATION_500 + +ZZ ALBANY-PRRTP + +
+ +Office + +123 MAIN +ALBANY +NEW YORK +12180 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_3 + + + +PATIENT +EIGHT + + + +1935-04-07 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000008 + + +ACTORPATIENT_3 + + + +
+ +Home + +1312 Ashton Place +Rowling +WEST VIRGINIA +99998 +
+ +222-555-8235 + +Residential Telephone + + + +222-555-7720 + +Work Telephone + + + + +ACTORPATIENT_3 + + + + +ACTORPROVIDER_10000000002 + + + +THIRTY +LABTECH + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ +509.989.3732 + +Office + + + + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000031 + + + +ONEHUNDRED +VEHU +Scholar Extraordinaire + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000053 + + + +TWO +LABTECH +COMPUTER SPECIALIST + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11278 + + + +SIXTYEIGHT +WARDCLERK +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath-Internal Medicine + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11740 + + + +TWENTYFOUR +RADTECH +COMPUTER SPECIALIST + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11745 + + + +SPECIAL +LABTECH +COMPUTER SPECIALIST + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_1611 + + + +SIXTYSIX +PROVIDER +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20010 + + + +EIGHT +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20023 + + + +TWENTYONE +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20354 + + + +TWO +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20355 + + + +THREE +VEHU +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20364 + + + +SEVENTEEN +LABTECH + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_20391 + + + +TWENTYFOUR +LABTECH +PHYSICIAN + + + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_983 + + + +ONE +PROVIDER +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +123 MAIN +ALBANY +NY +12180 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_1685 + +2000-05-21T00:00:00-05:00 + + + +Patient called Dr. Strange and reported suicidal thoughts. Family member +reported patient acting inappropriately in a subsequent call. + + + + +ACTORPROVIDER_20023 + + + + +NOTE_1779 + +2000-10-18T00:00:00-05:00 + + + +EIGHT,PATIENT has requested that he not be resuscitated in the event that +he goes into respiratory distress. See attached scanned document for +patient's signature. + + + + +ACTORPROVIDER_11278 + + + + +NOTE_1992 + +2001-04-09T00:00:00-05:00 + + + + +PHYSICAL EXAMINATION: +GENERAL: This is a well-nourished, well-developed male in no apparent +Distress. He is alert and oriented to person, place, time and purpose. + + + + +ACTORPROVIDER_11740 + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100095_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100095_CCR_V1_0_0.xml new file mode 100644 index 0000000..3ea5c8a --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100095_CCR_V1_0_0.xml @@ -0,0 +1,263 @@ + + + +133d3e0d-3a9d-4176-9573-c73fcef21651 + +English + +V1.0 + +2010-09-08T19:47:43-05:00 + + +ACTORPATIENT_100095 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100095 + +Patient + + + + + +CEND PHR + + + + + +ALERT1 + +2002-02-13T13:22:00-05:00 + + +Allergy + + +Patient has an ALLERGIC reaction to STRAWBERRIES. + +418634005 +SNOMED CT + + + + +ACTORPROVIDER_11733 + + + + + +PRODUCT_6 + + +ACTORPROVIDER_11733 + + + + +STRAWBERRIES + +4637360 +VUID + + + + + + + + +DRY MOUTH + +4538597 +VUID + + + + + + + +ENCOUNTER_4059 + +2002-02-07T00:00:00-05:00 + + +C&P EXAMINATION REPORTS + + +C&P EXAMINATION REPORTS + + + +ACTORORGANIZATION_1 + + + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100095 + + + +EIGHTY-PATIENT +BCMA + + + +1935-04-07 + + +FEMALE + +F +HL7 AdministrativeGender + + + + + +SSN + +666330080 + + +ACTORPATIENT_100095 + + + +
+ +Home + +
+ + +ACTORPATIENT_100095 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_11733 + + + +SEVENTEEN +RADTECH + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100616_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100616_CCR_V1_0_0.xml new file mode 100644 index 0000000..043f6d1 --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100616_CCR_V1_0_0.xml @@ -0,0 +1,267 @@ + + + +4a8c9703-b1a5-42f7-8683-a07ae30dc3e7 + +English + +V1.0 + +2010-09-08T19:47:34-05:00 + + +ACTORPATIENT_100616 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100616 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-09-05T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.02 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + + + +PROCEDURE_4057_4 + + +Procedure Date + +2010-09-05T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + + + +ENCOUNTER_4057 + +2010-09-05T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4057 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100616 + + + +OUTPATIENT +NINE + + + +1945-03-09 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000609 + + +ACTORPATIENT_100616 + + + +
+ +Home + +Any Street +Any Town +
+ + +ACTORPATIENT_100616 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4057 + +2010-09-05T00:00:00-05:00 + + + +PATIENT IS NOW DIABETIC + + + + +ACTORPROVIDER_10000000020 + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100622_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100622_CCR_V1_0_0.xml new file mode 100644 index 0000000..aa36d85 --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100622_CCR_V1_0_0.xml @@ -0,0 +1,404 @@ + + + +f8fb14e4-6437-4944-85dc-4010da72032b + +English + +V1.0 + +2010-09-14T16:27:58-05:00 + + +ACTORPATIENT_100622 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100622 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-09-13T00:00:00-05:00 + + +Problem + + +Sprains (ICD-9-CM 848.9) + +848.9 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000183 + + + + + + +MED1 + + +Issue Date + +2010-09-06 + + + +Last Fill Date + +2010-09-06 + + + +Prescription Number + +500605 + + +Medication + + +ACTIVE + + + +ACTORPROVIDER_10000000183 + + + + +GLIPIZIDE 5MG TAB + +310490 +RXNORM +09AA_091005F + + + +5 + +MG + + +
+TAB +
+ +5 + +MG + + + + +90 + +TAB + + + + +0 + + + + + +1 + + +TAKE + + +5 + +MG + + + +ORAL (BY MOUTH) + + +QD + + +1440 + +Minute + + + + +0 + + +1 + + + + + + +PROCEDURE_4062_4 + + +Procedure Date + +2010-09-05T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000183 + + + + + + +ENCOUNTER_4062 + +2010-09-05T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4062 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100622 + + + +OUTPATIENT +FIFTEEN + + + +1945-03-09 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000615 + + +ACTORPATIENT_100622 + + + +
+ +Home + +Any Street +Any Town +
+ + +ACTORPATIENT_100622 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000183 + + + +MATTHEW +M +KING + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4062 + +2010-09-05T00:00:00-05:00 + + + +JUST GIVING MEDICATIONS + + + + +ACTORPROVIDER_10000000183 + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100662_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100662_CCR_V1_0_0.xml new file mode 100644 index 0000000..bc0eb7d --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100662_CCR_V1_0_0.xml @@ -0,0 +1,270 @@ + + + +de7c3d33-e0e4-4e0d-9e2c-5dd3d8b831ab + +English + +V1.0 + +2010-09-08T19:47:27-05:00 + + +ACTORPATIENT_100662 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100662 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-09-05T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000020 + + + + + + +PROCEDURE_4060_4 + + +Procedure Date + +2010-09-05T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + + + +ENCOUNTER_4060 + +2010-09-05T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4060 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100662 + + + +OUTPATIENT +FIFTYFIVE + + + +1945-03-09 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000655 + + +ACTORPATIENT_100662 + + + +
+ +Home + +Any Street +Any Town +
+ + +ACTORPATIENT_100662 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4060 + +2010-09-05T00:00:00-05:00 + + + +DIABETIC TEST +PATIENT HBA1C RESULTS + PATIENTS HBA1C IS GREATER THAN 9% + HBA1C VALUE: 10.1 + + + + +ACTORPROVIDER_10000000020 + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100676_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100676_CCR_V1_0_0.xml new file mode 100644 index 0000000..73e9cfe --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100676_CCR_V1_0_0.xml @@ -0,0 +1,469 @@ + + + +39c741b2-2a16-4a90-8908-58ef8cfd300b + +English + +V1.0 + +2010-09-20T19:21:02-05:00 + + +ACTORPATIENT_100676 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100676 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-09-16T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000183 + + + + + + +RESULT_1 + + +Assessment Time + +2010-09-16T10:45:00-05:00 + + +Gen Chem Specimen + +81323.0000 +99VA64 + + + + +ACTORPROVIDER_10000000183 + + + +RESULTTEST_1_1 + + +Assessment Time + +2010-09-16T10:45:00-05:00 + + +HEMOGLOBIN A1C + +CH462 +99VA63 + + + +F + + + +ACTORORGANIZATION_500 + + + +9.6 + +% + + + + + +3.5-6 + + + +ACTORORGANIZATION_500 + + + + + +H + + + + + + +PROCEDURE_4067_7 + + +Procedure Date + +2010-09-17T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000183 + + + + +PROCEDURE_4066_4 + + +Procedure Date + +2010-09-16T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + +99214 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000183 + + + + + + +ENCOUNTER_4067 + +2010-09-17T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4067 + + +ENCOUNTER_4066 + +2010-09-16T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + +99214 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + +99214 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4066 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORORGANIZATION_500 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100676 + + + +OUTPATIENT +SIXTYNINE + + + +1945-03-09 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000669 + + +ACTORPATIENT_100676 + + + +
+ +Home + +Any Street +Any Town +
+ + +ACTORPATIENT_100676 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000183 + + + +MATTHEW +M +KING + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4066 + +2010-09-16T00:00:00-05:00 + + + +TEST FOR NUMERATOR DM HB>9 + + + + +ACTORPROVIDER_10000000183 + + + + +NOTE_4067 + +2010-09-17T00:00:00-05:00 + + + + DM HBA1C MANAGEMENT: + PATIENT HBA1C RESULTS + DOCUMENTED HBA1C IS LESS THAN OR EQUAL TO 9% + HBA1C VALUE: 9.1 + PATIENT HAS AN LDL <100. + LDL VALUE: 95 + + + + +ACTORPROVIDER_10000000183 + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100696_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100696_CCR_V1_0_0.xml new file mode 100644 index 0000000..947daa8 --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100696_CCR_V1_0_0.xml @@ -0,0 +1,357 @@ + + + +74895201-6da4-4972-b79b-441179c457ac + +English + +V1.0 + +2010-09-13T21:59:25-05:00 + + +ACTORPATIENT_100696 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100696 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-09-13T00:00:00-05:00 + + +Problem + + +Sprains (ICD-9-CM 848.9) + +848.9 +ICD9CM + + + +Active + + + +ACTORPROVIDER_10000000183 + + + + + + +MED_OUTSIDE1 + + +Documented Date + +2010-09-13T21:55:33-05:00 + + +Medication + + +ACTIVE + + + +ACTORPROVIDER_10000000183 + + + + +GLIPIZIDE + + +5 + +MG + + +
+TAB +
+ +5 + +MG + + + + + +TAB + + + + + +2.5MG MOUTH EVERY DAY + + +4 + + + + + + + +PROCEDURE_4064_4 + + +Procedure Date + +2010-09-13T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000183 + + + + + + +ENCOUNTER_4064 + +2010-09-13T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000183 + + + + +ACTORPROVIDER_10000000183 + + +NOTE_4064 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100696 + + + +OUTPATIENT +EIGHTYNINE + + + +1945-03-09 + + +MALE + +M +HL7 AdministrativeGender + + + + + +SSN + +666000689 + + +ACTORPATIENT_100696 + + + +
+ +Home + +Any Street +Any Town +
+ + +ACTORPATIENT_100696 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_10000000183 + + + +MATTHEW +M +KING + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4064 + +2010-09-13T00:00:00-05:00 + + + +MEDICATION NON-VA + + + + +ACTORPROVIDER_10000000183 + + + + + diff --git a/qrda/CCR/NQF-59-cohorts/PAT_100839_CCR_V1_0_0.xml b/qrda/CCR/NQF-59-cohorts/PAT_100839_CCR_V1_0_0.xml new file mode 100644 index 0000000..774cf01 --- /dev/null +++ b/qrda/CCR/NQF-59-cohorts/PAT_100839_CCR_V1_0_0.xml @@ -0,0 +1,843 @@ + + + +7c24c1e0-f73d-4160-9421-5f8b6cf8c7ea + +English + +V1.0 + +2010-09-13T16:17:26-05:00 + + +ACTORPATIENT_100839 + + + +ACTORPROVIDER_10000000020 + + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100839 + +Patient + + + + + +CEND PHR + + + + + +PROBLEM1 + +2010-09-04T00:00:00-05:00 + + +Problem + + +Diabetes Mellitus without mention of Complication, type II or unspecified type, + +250.00 +ICD9CM + + + +Active + + + +ACTORPROVIDER_991 + + + + +PROBLEM2 + +2010-07-05T00:00:00-05:00 + + +Problem + + +Congestive Heart Failure (ICD-9-CM 428.0) + +428.0 +ICD9CM + + + +Active + + + +ACTORPROVIDER_991 + + + + +PROBLEM3 + +2010-07-05T00:00:00-05:00 + + +Problem + + +Postmyocardial infarction syndrome (ICD-9-CM 411.0) + +411.0 +ICD9CM + + + +Active + + + +ACTORPROVIDER_991 + + + + + + +PROCEDURE_4056_27 + + +Procedure Date + +2010-09-04T00:00:00-05:00 + + +INTERMEDIATE (15min) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4055_24 + + +Procedure Date + +2010-08-28T00:00:00-05:00 + + +EXPANDED, HX & EXAM + +99202 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4047_14 + + +Procedure Date + +2010-07-31T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_10000000020 + + + + +PROCEDURE_4046_7 + + +Procedure Date + +2010-07-05T00:00:00-05:00 + + +Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + +99214 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_991 + + + + +PROCEDURE_4046_8 + + +Procedure Date + +2010-07-05T00:00:00-05:00 + + +Hemoglobin; Glycosylated (A1c) (CPT-4 83036) + +83036 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_991 + + + + +PROCEDURE_4046_9 + + +Procedure Date + +2010-07-05T00:00:00-05:00 + + +Lipoprotein, Blood; Quantitation of Lipoprotein particle Numbers and Lipoprotein particle Subclasses (Eg, by Nuclear Magnetic Resonance Spectroscopy) (CPT-4 83704) + +83704 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_991 + + + + +PROCEDURE_4046_10 + + +Procedure Date + +2010-07-05T00:00:00-05:00 + + +Determination of Central C-V Hemodynamics (Non-Imaging) (CPT-4 78414) + +78414 +CPT-4 + + + +Completed + + + +ACTORPROVIDER_991 + + + + + + +ENCOUNTER_4056 + +2010-09-04T00:00:00-05:00 + + +***ESTABLISHED PATIENT*** INTERMEDIATE (15min) + +99213 +CPT-4 + + + +***ESTABLISHED PATIENT*** INTERMEDIATE (15min) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4055 + +2010-08-28T00:00:00-05:00 + + +OFFICE VISIT - NEW PT EXPANDED, HX & EXAM + +99202 +CPT-4 + + + +OFFICE VISIT - NEW PT EXPANDED, HX & EXAM + +99202 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4055 + + +ENCOUNTER_4054 + +2010-08-27T00:00:00-05:00 + + +C&P EXAMINATION REPORTS + + +C&P EXAMINATION REPORTS + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4053 + +2010-08-27T00:00:00-05:00 + + +NURSING TITLES + + +NURSING TITLES + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4052 + +2010-08-14T00:00:00-05:00 + + +ADDENDUM + + +ADDENDUM + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4049 + +2010-08-25T00:00:00-05:00 + + +ADDICTION SEVERITY INDEX + + +ADDICTION SEVERITY INDEX + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4048 + +2010-08-14T00:00:00-05:00 + + +INTERDISCIPLINARY MEMBER + + +INTERDISCIPLINARY MEMBER + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + + + +ENCOUNTER_4047 + +2010-07-31T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) an Expanded History, an Exam and Medical Decision Making of Low Complexity (CPT-4 99213) + +99213 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_10000000020 + + + + +ACTORPROVIDER_10000000020 + + +NOTE_4047 + + +ENCOUNTER_4046 + +2010-07-05T00:00:00-05:00 + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + +99214 +CPT-4 + + + + Office/Outpatient Visit of an Established Patient requiring (2 of 3) a Detailed History, an Exam and Medical Decision Making of Moderate Complexity (CPT-4 99214) + +99214 +CPT-4 + + + + +ACTORORGANIZATION_1 + + + + +ACTORPROVIDER_991 + + + + +ACTORPROVIDER_991 + + +NOTE_4046 + + + + + +ACTORORGANIZATION_1 + +CAMP MASTER + +
+ +Office + +VA MEDICAL CENTER +ALBANY +NEW YORK +12180-0097 +
+ + +ACTORSYSTEM_1 + + + + +ACTORPATIENT_100839 + + + +JODY +JEAN +JONES + + + +1945-01-01 + + +FEMALE + +F +HL7 AdministrativeGender + + + + + +SSN + +002030004 + + +ACTORPATIENT_100839 + + + +
+ +Home + +
+ + +ACTORPATIENT_100839 + + + + +ACTORPROVIDER_10000000020 + + + +SYSTEM +MANAGER + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORPROVIDER_991 + + + +EIGHT +PROVIDER +Scholar Extraordinaire + + + + +Physicians (M.D. and D.O.)-Physician/Osteopath + +
+ +Work + +VA MEDICAL CENTER +ALBANY +NY +12180-0097 +
+ + +ACTORSYSTEM_1 + + + +ACTORORGANIZATION_1 +representedOrganization + + + +ACTORSYSTEM_1 + +WorldVistA EHR/VOE +1.0 + + + +ACTORSYSTEM_1 + + + + + + +@@COMMENTOBJECTID@@ + +@@CMTDATETIME@@ + + + +@@ACTORSOURCEID@@ + + + + +NOTE_4046 + +2010-07-05T00:00:00-05:00 + + + +ADDING CLINICAL MEASURES FOR TESTING +Measure 1 +Measure 2 +Measure 3 +Measure 5 +Measure 7 +Measure 124 +------------------------------------------Measure #1 +Data for Jones-- + ENCOUNTER CODE 99214 + DX CODE 250.00 + + NUMERATOR INCLUSION + A1C CODE 83036 + +DOCUMENTATION: + HBA1c > 9% PROBLEM (Our patient is less than 9.0%) +--------------------------------------------------- +Measure #2 +Data for Jones-- + ENCOUNTER CODE 99214 + DX CODE 250.00 + + NUMERATOR INCLUSION + LDL CODE 83704 + +DOCUMENTATION: + LDL < 100 mg/dl LDL from Lab Package +------------------------------------------------------- +Measure #3 +Data for Jones-- + ENCOUNTER CODE 99214 + DX CODE 250.00 + +NUMERATOR: + +DOCUMENTATION: + Systolic (SNOMED) CODE 271649006 or 72313002 + AND + Systolic BP <140 mmHg (from Vitals-Bottom number of BP) + + Diastolic (SNOMED) CODE 271650006 + AND + +Diastolic BP < 80 (From Vitals Package-Top number of BP) +NOTE: SNOMED CODES ARE NOT ACCESSIBLE IN VISTA +------------------------------------------------------- +Measure #5 +Data for Jones-- + ENCOUNTER CODE 99214 + DX CODE 428.0 +EJRC FRAC CODE 83704 + AND +Documentation of LVEF < 40% Need Health Factor for this + + NUMERATOR INCLUSION + TOPIC_DRUG_CODES = ACE/ARB (NOT AVAILABLE IN VISTA) + +------------------------------------------------------- + +Measure #7 +Data for Jones-- + ENCOUNTER CODE 99214 + dx 411.0, 412.00 +procedure: 78414 + + + NUMERATOR INCLUSION + TOPIC_DRUG_CODES = BETA BLOCKERS +------------------------------------------------------------- +Measure #124 +ENCOUNTER CODE 99214 +NUMERATOR CODE G8447 +------------------------------------------------------------- + + + + +ACTORPROVIDER_991 + + + + +NOTE_4047 + +2010-07-31T00:00:00-05:00 + + + +TESTING ENCOUNTERS + + + + +ACTORPROVIDER_10000000020 + + + + +NOTE_4055 + +2010-08-28T00:00:00-05:00 + + + +SMOKING PQRI CAT + CURRENT EVERY DAY SMOKER 07/31/2010 + CURRENT SMOKING STATUS UNKNOWN 08/25/2010 + CURRENT SOME DAY SMOKER 08/27/2010 + PPD +========================================= + + + + +ACTORPROVIDER_10000000020 + + + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100146_QRDA_V1_0_0Ver2-gpl.xml b/qrda/CCR/PQRI-101026/M1-PAT_100146_QRDA_V1_0_0Ver2-gpl.xml new file mode 100644 index 0000000..b8f764f --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100146_QRDA_V1_0_0Ver2-gpl.xml @@ -0,0 +1,272 @@ + + + + + + + + + +QRDA Incidence Report + + + + + + + + + +Any Street +Any Town +WV + + + + + +MALE-D +MEASURE-TWO + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus + + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100146_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100146_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..7c6e7aa --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100146_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,422 @@ + + + + + + + + + +QRDA Incidence Report + + + + + + + + + +Any Street +Any Town +WEST VIRGINIA + + + + + +MALE-D +MEASURE-TWO + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +MATTHEW +M +KING + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100839_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100839_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..45b1b10 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100839_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,775 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +JODY +JEAN +JONES + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +MATTHEW +M +KING + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +MATTHEW +M +KING + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +Scholar Extraordinaire +EIGHT +PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +Scholar Extraordinaire +EIGHT +PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +Scholar Extraordinaire +EIGHT +PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100846_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100846_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..50b2b8d --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100846_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,420 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-A +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100847_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100847_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..9c76751 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100847_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,369 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-B +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100848_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100848_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..24b3b23 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100848_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,394 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-B +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +Scholar Extraordinaire +EIGHT +PROVIDER + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +MATTHEW +M +KING + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100849_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100849_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..0132edf --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100849_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,369 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-C +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100850_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100850_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..60e7296 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100850_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,471 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-D +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100852_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100852_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..d2b6997 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100852_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,369 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-E +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100855_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100855_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..fae5314 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100855_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,471 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +FEMALE-E +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/M1-PAT_100858_QRDA_V1_0_0Ver2.xml b/qrda/CCR/PQRI-101026/M1-PAT_100858_QRDA_V1_0_0Ver2.xml new file mode 100644 index 0000000..783e496 --- /dev/null +++ b/qrda/CCR/PQRI-101026/M1-PAT_100858_QRDA_V1_0_0Ver2.xml @@ -0,0 +1,369 @@ + + + + + + + + +QRDA Incidence Report + + + + + + + + + + + + + + + + + +MALE-D +MEASURE-ONE + + + + + + + + + + WorldVistA Test Clinic + + + MD + 20877 + + + + + + + + + + + + + + + + + + + + +World VistA Test Clinic + + + + + + + +WorldVistA Test Clinic + + + + + + + + + + + +Dr. +Nancy +Anthracite + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + + + + + + + + + + + 123 Maple Ave + Gaithersburg + MD + 20877 + + + + Nancy + Anthracite + MD + + + + + + + + + +
+ + +Measure set: CMS EHR Measure Set +2010 Measures Set Measures + +
+ + + + + + + + + + + + + + + + + + + + + + +Measure Section + + +CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus +CMS Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus +CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus +CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD) +CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI) +CMS Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years +CMS Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older +CMS Measure #112: Preventive Care and Screening: Screening Mammography +CMS Measure #113: Preventive Care and Screening: Colorectal Cancer Screening +CMS Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records (EHR) +CMS Measure eRx:Adoption/Use of Medication Electronic Prescribing Measure +CMS Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older +CMS Measure #47: Advance Care Plan +CMS Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older +CMS Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up +CMS Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening +CMS Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template +CMS Measure #0022: Drugs to be avoided in the Elderly +CMS Measure #0024: Body Mass Index (BMI) 2 through 18 years of age +CMS Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention +CMS Measure #0038: Childhood Immunization Status - QRDA Cat I template + + + + + +Percentage of patients 18 through 75 years with diabetes mellitus who had most recent hemoglobin A1C greater than 9.0% + + + + +
+ +Reporting Parameters + + +Reporting Period Jan 1, 2010 to Dec 31, 2010 + + + + + + + + + + + +
+ + +
+ +Patient Data +
+ + +
+ + + + +Problems + + + + + + + + + + +VA MEDICAL CENTER +ALBANY +NY +12180 + + + + +NANCY +ANTHRACITE + + + + + + + + + + + + + + + + + + + + + + + + +Active + + + + + + + +
+ + +
+ + +Payers + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ + + + diff --git a/qrda/CCR/PQRI-101026/cda.xsl b/qrda/CCR/PQRI-101026/cda.xsl new file mode 100644 index 0000000..f5da667 --- /dev/null +++ b/qrda/CCR/PQRI-101026/cda.xsl @@ -0,0 +1,2011 @@ + + + + + + + + + + + + + + Clinical Document + + + + + + + + + + + + Do not edit this HTML directly, it was generated by an XSLT transformation from a source CDA document. + The stylesheet which produced this display of the CDA document was most recently updated by Jingdong Li, AALLC, on November 13, 2008. + The current version and documentation are always available at www.alschulerassociates.com/cda/?topic=cda-tools. We welcome feedback to jdli@alschulerassociates.com + The stylesheet is the cumulative work of several developers; the most significant prior milestones were the foundation work from HL7 Finland +(Tyylitiedosto) and HL7 US (Calvin Beebe), and the presentation approach from [[the Swiss]]. + + + Do NOT edit this HTML directly: it was generated via an XSLT transformation from a CDA Release 2 XML document. + + <xsl:value-of select="$title"/> + + + + + +

+ +

+ + + + + + + + +
+ + +
+
+
+ + + + + + + + + + + + + + + +

+ Table of Contents +

+ + + + + + + + + + + + + + + +
+ + Document Id + + + + + +
+ + Document Created: + + + + + +
+ + + + + + + + +
+ Confidentiality + + + + Normal + + + Restricted + + + Very restricted + + + + + + +
+ + + + + + + + + + + + + + + + + + +
+ + Author + + + + + + + + + , + + + + + + + + + + + + + + + + +
+ + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + + + + +
+ + Signed + + + + + + at + + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + +
+ + Legal authenticator + + + + + + + + + + + at + + + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + +
+ + Entered by + + + + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + Encounter Location + + + + + + + + + of + + + + + + + + + + + + + id: + + + + + + + + +
+ + Responsible party + + + + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + +
+ + Document maintained by + + + + + + + + + + + + +
+ + + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + ( + + + + ) + + + + + + + + + +
+ + + + + + + + + + + + +  at  + + + + + +  from  + + + + + to + + + + + + + +
+ + + + + + + + + +
+ + + + + + + + + + + + + + +
+ + In fulfillment of + + + + + + + +   + + + + + +   + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + Informant + + + + + + + + + + + + +
+ + Contact info + + + + + + + +
+ + Contact info + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + +
+ + Information recipient: + + + + + + + + + +
+ + + + + + + + + +
+ +
+ + + +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + + Participant + + + + + + + + + + + + + + + from + + + + + + to + + + + + + +
+ +
+ + Contact info + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + Patient + + + + + +
+ + Date of birth + + + + + + + + Sex + + + + + +
+ + Contact info + + + + + + + + Patient IDs + + + + +
+ +
+ + + + + + + + + + + + + +
+ + Related document + + + + + +
+ + +
+ + + + + + + + + + + + + + +
+ + Consent + + + + + + + + + + + + + + +
+
+ + + + + + + + + + + + +
+ SetId and Version + + SetId: + + + + Version: + +
+ + + + + + + + + + + + + +