source: qrda/C0Q/trunk/kids/C0Q_1_0_0_T1.KID@ 1485

Last change on this file since 1485 was 1222, checked in by George Lilly, 13 years ago

setting up for enhancements to C0Q Quality Reporting

File size: 49.6 KB
Line 
1KIDS Distribution saved on Nov 19, 2010@17:04:10
2initial build of C0Q Quality Reporting Package
3**KIDS**:C0Q*1.0*0^
4
5**INSTALL NAME**
6C0Q*1.0*0
7"BLD",7338,0)
8C0Q*1.0*0^^0^3101119^n
9"BLD",7338,4,0)
10^9.64PA^1130580001.101^2
11"BLD",7338,4,1130580001.101,0)
121130580001.101
13"BLD",7338,4,1130580001.101,222)
14y^y^f^^n^^y^o^n
15"BLD",7338,4,1130580001.201,0)
161130580001.201
17"BLD",7338,4,1130580001.201,222)
18y^y^f^^^^n
19"BLD",7338,4,"B",1130580001.101,1130580001.101)
20
21"BLD",7338,4,"B",1130580001.201,1130580001.201)
22
23"BLD",7338,6.3)
241
25"BLD",7338,"KRN",0)
26^9.67PA^779.2^20
27"BLD",7338,"KRN",.4,0)
28.4
29"BLD",7338,"KRN",.4,"NM",0)
30^9.68A^3^3
31"BLD",7338,"KRN",.4,"NM",1,0)
32C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0
33"BLD",7338,"KRN",.4,"NM",2,0)
34C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0
35"BLD",7338,"KRN",.4,"NM",3,0)
36C0Q PRINT QUALITY MEASURES FILE #1130580001.101^1130580001.101^0
37"BLD",7338,"KRN",.4,"NM","B","C0Q PRINT BY PATIENT FILE #1130580001.201",1)
38
39"BLD",7338,"KRN",.4,"NM","B","C0Q PRINT MEASUREMENT SET FILE #1130580001.201",2)
40
41"BLD",7338,"KRN",.4,"NM","B","C0Q PRINT QUALITY MEASURES FILE #1130580001.101",3)
42
43"BLD",7338,"KRN",.401,0)
44.401
45"BLD",7338,"KRN",.402,0)
46.402
47"BLD",7338,"KRN",.402,"NM",0)
48^9.68A^2^2
49"BLD",7338,"KRN",.402,"NM",1,0)
50C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0
51"BLD",7338,"KRN",.402,"NM",2,0)
52C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101^1130580001.101^0
53"BLD",7338,"KRN",.402,"NM","B","C0Q MEASUREMENT SET DEFINE FILE #1130580001.201",1)
54
55"BLD",7338,"KRN",.402,"NM","B","C0Q QUALITY MEASURE DEFINITION FILE #1130580001.101",2)
56
57"BLD",7338,"KRN",.403,0)
58.403
59"BLD",7338,"KRN",.5,0)
60.5
61"BLD",7338,"KRN",.84,0)
62.84
63"BLD",7338,"KRN",3.6,0)
643.6
65"BLD",7338,"KRN",3.8,0)
663.8
67"BLD",7338,"KRN",9.2,0)
689.2
69"BLD",7338,"KRN",9.8,0)
709.8
71"BLD",7338,"KRN",9.8,"NM",0)
72^9.68A^1^1
73"BLD",7338,"KRN",9.8,"NM",1,0)
74C0QMAIN^^0^B69544556
75"BLD",7338,"KRN",9.8,"NM","B","C0QMAIN",1)
76
77"BLD",7338,"KRN",19,0)
7819
79"BLD",7338,"KRN",19,"NM",0)
80^9.68A^11^11
81"BLD",7338,"KRN",19,"NM",1,0)
82C0Q BY PATIENT NUMERATOR^^0
83"BLD",7338,"KRN",19,"NM",2,0)
84C0Q DENOMINATOR PATIENT LIST^^0
85"BLD",7338,"KRN",19,"NM",3,0)
86C0Q DISPLAY MEASURE SET^^0
87"BLD",7338,"KRN",19,"NM",4,0)
88C0Q DISPLAY QUALITY MEASURES^^0
89"BLD",7338,"KRN",19,"NM",5,0)
90C0Q EXPORT CCR BY MEASURE^^0
91"BLD",7338,"KRN",19,"NM",6,0)
92C0Q EXPORT MEASURE SET^^0
93"BLD",7338,"KRN",19,"NM",7,0)
94C0Q LIST MEASURE SET^^0
95"BLD",7338,"KRN",19,"NM",8,0)
96C0Q MEASURE SET DEFINITION^^0
97"BLD",7338,"KRN",19,"NM",9,0)
98C0Q QUALITY MEASURE DEFINITION^^0
99"BLD",7338,"KRN",19,"NM",10,0)
100C0Q QUALITY MEASUREMENT MENU^^0
101"BLD",7338,"KRN",19,"NM",11,0)
102C0Q SUMMARY QUALITY MEASURES^^0
103"BLD",7338,"KRN",19,"NM","B","C0Q BY PATIENT NUMERATOR",1)
104
105"BLD",7338,"KRN",19,"NM","B","C0Q DENOMINATOR PATIENT LIST",2)
106
107"BLD",7338,"KRN",19,"NM","B","C0Q DISPLAY MEASURE SET",3)
108
109"BLD",7338,"KRN",19,"NM","B","C0Q DISPLAY QUALITY MEASURES",4)
110
111"BLD",7338,"KRN",19,"NM","B","C0Q EXPORT CCR BY MEASURE",5)
112
113"BLD",7338,"KRN",19,"NM","B","C0Q EXPORT MEASURE SET",6)
114
115"BLD",7338,"KRN",19,"NM","B","C0Q LIST MEASURE SET",7)
116
117"BLD",7338,"KRN",19,"NM","B","C0Q MEASURE SET DEFINITION",8)
118
119"BLD",7338,"KRN",19,"NM","B","C0Q QUALITY MEASURE DEFINITION",9)
120
121"BLD",7338,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",10)
122
123"BLD",7338,"KRN",19,"NM","B","C0Q SUMMARY QUALITY MEASURES",11)
124
125"BLD",7338,"KRN",19.1,0)
12619.1
127"BLD",7338,"KRN",101,0)
128101
129"BLD",7338,"KRN",409.61,0)
130409.61
131"BLD",7338,"KRN",771,0)
132771
133"BLD",7338,"KRN",779.2,0)
134779.2
135"BLD",7338,"KRN",870,0)
136870
137"BLD",7338,"KRN",8989.51,0)
1388989.51
139"BLD",7338,"KRN",8989.52,0)
1408989.52
141"BLD",7338,"KRN",8994,0)
1428994
143"BLD",7338,"KRN","B",.4,.4)
144
145"BLD",7338,"KRN","B",.401,.401)
146
147"BLD",7338,"KRN","B",.402,.402)
148
149"BLD",7338,"KRN","B",.403,.403)
150
151"BLD",7338,"KRN","B",.5,.5)
152
153"BLD",7338,"KRN","B",.84,.84)
154
155"BLD",7338,"KRN","B",3.6,3.6)
156
157"BLD",7338,"KRN","B",3.8,3.8)
158
159"BLD",7338,"KRN","B",9.2,9.2)
160
161"BLD",7338,"KRN","B",9.8,9.8)
162
163"BLD",7338,"KRN","B",19,19)
164
165"BLD",7338,"KRN","B",19.1,19.1)
166
167"BLD",7338,"KRN","B",101,101)
168
169"BLD",7338,"KRN","B",409.61,409.61)
170
171"BLD",7338,"KRN","B",771,771)
172
173"BLD",7338,"KRN","B",779.2,779.2)
174
175"BLD",7338,"KRN","B",870,870)
176
177"BLD",7338,"KRN","B",8989.51,8989.51)
178
179"BLD",7338,"KRN","B",8989.52,8989.52)
180
181"BLD",7338,"KRN","B",8994,8994)
182
183"DATA",1130580001.101,1,0)
184M1^41^40^2.16.840.1.113883.3.249.11.2
185"DATA",1130580001.101,1,1)
186CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus
187"DATA",1130580001.101,1,4)
188PQRI-1
189"DATA",1130580001.101,1,5)
190Hemoglobin A1c Poor Control in Diabetes Mellitus
191"DATA",1130580001.101,1,6,0)
192^^2^2^3101013^
193"DATA",1130580001.101,1,6,1,0)
194Percentage of patients 18 through 75 years with diabetes melli
195"DATA",1130580001.101,1,6,2,0)
196tus who had most recent hemoglobin A1C greater than 9.0%
197"DATA",1130580001.101,2,0)
198M5^47^46^2.16.840.1.113883.3.249.11.5
199"DATA",1130580001.101,2,1)
200CMS Measure #5: Heart Failure: Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD)
201"DATA",1130580001.101,2,4)
202PQRI-5
203"DATA",1130580001.101,2,5)
204Angiotensin-Converting Enzyme (ACE) Inhibitor or Angiotensin Receptor Blocker (ARB) Therapy for Left Ventricular Systolic Dysfunction (LVSD)
205"DATA",1130580001.101,2,6,0)
206^^2^2^3101013^
207"DATA",1130580001.101,2,6,1,0)
208Percentage of patients 18 years and older with a diagnosis of
209"DATA",1130580001.101,2,6,2,0)
210heart failure and LVSD who were prescribed an ACE inhbitor or ARB therapy
211"DATA",1130580001.101,3,0)
212M112^26^25^2.16.840.1.113883.3.249.11.9
213"DATA",1130580001.101,3,1)
214Measure #112: Preventive Care and Screening: Screening Mammography
215"DATA",1130580001.101,3,4)
216PQRI-112
217"DATA",1130580001.101,3,5)
218Screening Mammography
219"DATA",1130580001.101,3,6,0)
220^1130580001.111^2^2^3101014^^
221"DATA",1130580001.101,3,6,1,0)
222Percentage of womaen aged 40 through 69 years who had a mammog
223"DATA",1130580001.101,3,6,2,0)
224ram to screen for breast cancer within 24 months
225"DATA",1130580001.101,4,0)
226M124^33^33^2.16.840.1.113883.3.249.11.11
227"DATA",1130580001.101,4,1)
228Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records
229"DATA",1130580001.101,4,4)
230PQRI-124
231"DATA",1130580001.101,4,5)
232Adoption/Use of Electronic Health Records (EHR)
233"DATA",1130580001.101,4,6,0)
234^^3^3^3101013^
235"DATA",1130580001.101,4,6,1,0)
236Documents whether provider has adopted and is using health inf
237"DATA",1130580001.101,4,6,2,0)
238ormation technology. To qualify, the provider must havea adopted and be
239"DATA",1130580001.101,4,6,3,0)
240using a certified/qualified electronic health record (EHR)
241"DATA",1130580001.101,5,0)
242M128^58^31^2.16.840.1.113883.3.249.11.54
243"DATA",1130580001.101,5,1)
244Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up
245"DATA",1130580001.101,5,4)
246PQRI-128
247"DATA",1130580001.101,5,5)
248Body Mass Index (BMI) Screening and Follow-Up
249"DATA",1130580001.101,5,6,0)
250^1130580001.111^5^5^3101014^^
251"DATA",1130580001.101,5,6,1,0)
252Percentage of patients aged 18 yesrs and older with a calculate BMI in
253"DATA",1130580001.101,5,6,2,0)
254the past 6 months or during the current visit documented in the medical
255"DATA",1130580001.101,5,6,3,0)
256record and if the most recent BMI is ourtide parameters, a follow-up plan
257"DATA",1130580001.101,5,6,4,0)
258is documented. Ages 65 and older BMI equal to or greater than 30 or less
259"DATA",1130580001.101,5,6,5,0)
260than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5
261"DATA",1130580001.101,6,0)
262M47^20^48^2.16.840.1.113883.3.249.11.52
263"DATA",1130580001.101,6,1)
264Measure #47: Advance Care Plan
265"DATA",1130580001.101,6,4)
266PQRI-47
267"DATA",1130580001.101,6,5)
268Advance Care Plan
269"DATA",1130580001.101,6,6,0)
270^1130580001.111^5^5^3101014^^^
271"DATA",1130580001.101,6,6,1,0)
272Percentage of patients age 65 and older who have an advanced care plan or
273"DATA",1130580001.101,6,6,2,0)
274surrogate decision maker documented in the medical record or documented
275"DATA",1130580001.101,6,6,3,0)
276in the medical record that an advance care plan was discussed but the
277"DATA",1130580001.101,6,6,4,0)
278patient did not wish or was not able to name a surrogate decision maker
279"DATA",1130580001.101,6,6,5,0)
280or provide an advance care plan.
281"DATA",1130580001.101,7,0)
282M48^24^23^2.16.840.1.113883.3.249.11.53
283"DATA",1130580001.101,7,1)
284Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older
285"DATA",1130580001.101,7,4)
286PQRI-48
287"DATA",1130580001.101,7,5)
288Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older
289"DATA",1130580001.101,7,6,0)
290^^3^3^3101013^
291"DATA",1130580001.101,7,6,1,0)
292Percentage of patients equal to or older than 65 years of age at the
293"DATA",1130580001.101,7,6,2,0)
294beginning of the measurement perion who were assesed for the presence or
295"DATA",1130580001.101,7,6,3,0)
296absence of urinary incontinence within 12 months
297"DATA",1130580001.101,8,0)
298M2^43^42^2.16.840.1.113883.3.249.11.3
299"DATA",1130580001.101,8,1)
300Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus
301"DATA",1130580001.101,8,4)
302PQRI-2
303"DATA",1130580001.101,8,5)
304Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus
305"DATA",1130580001.101,8,6,0)
306^^2^2^3101013^
307"DATA",1130580001.101,8,6,1,0)
308Percentage of patients 18 through 75 years with diabetes melli
309"DATA",1130580001.101,8,6,2,0)
310tus who had most recent LDL-C level in control (less than 100 mg./dL)
311"DATA",1130580001.101,9,0)
312M3^45^44^2.16.840.1.113883.3.249.11.4
313"DATA",1130580001.101,9,1)
314CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus - QRDA Cat I template
315"DATA",1130580001.101,9,4)
316PQRI-3
317"DATA",1130580001.101,9,5)
318High Blood Pressure Control in Diabetes Mellitus
319"DATA",1130580001.101,9,6,0)
320^^2^2^3101013^
321"DATA",1130580001.101,9,6,1,0)
322Percentage of patients 18 through 75 years with diabetes melli
323"DATA",1130580001.101,9,6,2,0)
324tus who had most recent blood pressure in control (less than 140/80 mmHg)
325"DATA",1130580001.101,10,0)
326M7^35^34^2.16.840.1.113883.3.249.11.6
327"DATA",1130580001.101,10,1)
328CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI)
329"DATA",1130580001.101,10,4)
330PQRI-7
331"DATA",1130580001.101,10,5)
332Percentage of patients 18 aged 18 years and older wit a diagnosis of CAD and prior MI who were prescribed beta-blocker therapy
333"DATA",1130580001.101,10,6,0)
334^^3^3^3101013^
335"DATA",1130580001.101,10,6,1,0)
336Percentage of patients aged 18 years and older with a diagnosis of
337"DATA",1130580001.101,10,6,2,0)
338coronary artery disease and a prior MI who where prescribed beta-blocker
339"DATA",1130580001.101,10,6,3,0)
340therapy
341"DATA",1130580001.101,11,0)
342M110^81^80^2.16.840.1.113883.3.249.11.7
343"DATA",1130580001.101,11,1)
344Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years
345"DATA",1130580001.101,11,4)
346PQRI-110
347"DATA",1130580001.101,11,5)
348Influenza Immunization for Patients >= 50 Years
349"DATA",1130580001.101,11,6,0)
350^1130580001.111^2^2^3101014^^
351"DATA",1130580001.101,11,6,1,0)
352Percentage of patients aged 50 years and older who received an
353"DATA",1130580001.101,11,6,2,0)
354 influenza immunization during the flu season (September through February)
355"DATA",1130580001.101,12,0)
356M111^71^68^2.16.840.1.113883.3.249.11.8
357"DATA",1130580001.101,12,1)
358Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older
359"DATA",1130580001.101,12,4)
360PQRI-111
361"DATA",1130580001.101,12,5)
362Pneumonia Vaccination for Patients 65 Years and Older
363"DATA",1130580001.101,12,6,0)
364^^2^2^3101013^
365"DATA",1130580001.101,12,6,1,0)
366Percentage of patients afed 65 years and older who have ever r
367"DATA",1130580001.101,12,6,2,0)
368eceived a pneumoccal vaccine
369"DATA",1130580001.101,13,0)
370M113^67^66^2.16.840.1.113883.3.249.11.10
371"DATA",1130580001.101,13,1)
372Measure #113: Preventive Care and Screening: Colorectal Cancer Screening
373"DATA",1130580001.101,13,4)
374PQRI-113
375"DATA",1130580001.101,13,5)
376Colorectal Cancer Screening
377"DATA",1130580001.101,13,6,0)
378^^2^2^3101013^
379"DATA",1130580001.101,13,6,1,0)
380Percentage of patients aged 50 through 80 who received the app
381"DATA",1130580001.101,13,6,2,0)
382ropriate colorectal cancer screening
383"DATA",1130580001.101,14,0)
384M39^65^64^2.16.840.1.113883.3.249.11.51
385"DATA",1130580001.101,14,1)
386Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older
387"DATA",1130580001.101,14,4)
388PQRI-39
389"DATA",1130580001.101,14,5)
390Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older
391"DATA",1130580001.101,14,6,0)
392^^3^3^3101013^
393"DATA",1130580001.101,14,6,1,0)
394Percentage of patients who had a DXA measurement ordered or pe
395"DATA",1130580001.101,14,6,2,0)
396rformed at least once since age 60 or pharmacologic therapy prescribed
397"DATA",1130580001.101,14,6,3,0)
398within 12 months before the end of the measurement period
399"DATA",1130580001.101,16,0)
400M173^50^49^2.16.840.1.113883.3.249.11.55
401"DATA",1130580001.101,16,1)
402Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening
403"DATA",1130580001.101,16,4)
404PQRI-173
405"DATA",1130580001.101,16,5)
406Preventive Care and Screening: Unhealthy Alcohol Use - Screening
407"DATA",1130580001.101,16,6,0)
408^^2^2^3101013^
409"DATA",1130580001.101,16,6,1,0)
410Percentage of patients aged 18 years and older who were screen
411"DATA",1130580001.101,16,6,2,0)
412ed for unhealthy alcohol use using a systematic method within 24 months
413"DATA",1130580001.101,17,0)
414M0013^52^77^2.16.840.1.113883.3.249.11.56
415"DATA",1130580001.101,17,1)
416Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template
417"DATA",1130580001.101,17,4)
418PQRI-13
419"DATA",1130580001.101,17,5)
420Hypertension (HTN): Blood Pressure Measurement
421"DATA",1130580001.101,17,6,0)
422^^3^3^3101013^
423"DATA",1130580001.101,17,6,1,0)
424Percentage of patients aged 18 years and older with a diagnosi
425"DATA",1130580001.101,17,6,2,0)
426s of hypertension in the beginning of the measurement period with a blood
427"DATA",1130580001.101,17,6,3,0)
428pressure recorded
429"DATA",1130580001.101,18,0)
430M0022^73^61^2.16.840.1.113883.3.249.11.57
431"DATA",1130580001.101,18,1)
432Measure #0022: Drugs to be avoided in the Elderly
433"DATA",1130580001.101,18,4)
434PQRI-22
435"DATA",1130580001.101,18,5)
436Drugs to be avoided in the elderly
437"DATA",1130580001.101,18,6,0)
438^^2^2^3101013^
439"DATA",1130580001.101,18,6,1,0)
440Percentage of patients aged 65 years and older who received at least one
441"DATA",1130580001.101,18,6,2,0)
442drug to be avoided in the elderly in the measurement period
443"DATA",1130580001.101,19,0)
444M0028^79^78^2.16.840.1.113883.3.249.11.59
445"DATA",1130580001.101,19,1)
446Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention
447"DATA",1130580001.101,19,4)
448PQRI-28
449"DATA",1130580001.101,19,5)
450Preventive care and Screening: Tobacco Use: Screening and Cessation Intervention
451"DATA",1130580001.101,19,6,0)
452^^4^4^3101013^
453"DATA",1130580001.101,19,6,1,0)
454Percentage of patients aged 18 years of older who were screene
455"DATA",1130580001.101,19,6,2,0)
456d about tobacco use at least once during the two year measurement period
457"DATA",1130580001.101,19,6,3,0)
458AND who received smoking cessation counseling if identified as a tobacco
459"DATA",1130580001.101,19,6,4,0)
460user
461"DATA",1130580001.101,20,0)
462M0038^85^84^2.16.840.1.113883.3.249.11.60
463"DATA",1130580001.101,20,1)
464Measure #0038: Childhood Immunization Status
465"DATA",1130580001.101,20,4)
466PQRI-38
467"DATA",1130580001.101,20,5)
468Childhood immumnization status
469"DATA",1130580001.101,20,6,0)
470^^4^4^3101013^
471"DATA",1130580001.101,20,6,1,0)
472Percentage of children who turn two years of age during the me
473"DATA",1130580001.101,20,6,2,0)
474asurement period who have had 4 DTaP/DT, 3 IPV, 1 MMR and 3 H influenza
475"DATA",1130580001.101,20,6,3,0)
476type B, 3 hepatitis B, 1 chicken pox vaccine (VZV) and 4 pneumoccal
477"DATA",1130580001.101,20,6,4,0)
478conjugate vaccines by their second birthday
479"DATA",1130580001.101,21,0)
480M0024^72^70
481"FIA",1130580001.101)
482C0Q QUAILITY MEASURE
483"FIA",1130580001.101,0)
484^C0Q(101,
485"FIA",1130580001.101,0,0)
4861130580001.101
487"FIA",1130580001.101,0,1)
488y^y^f^^n^^y^o^n
489"FIA",1130580001.101,0,10)
490
491"FIA",1130580001.101,0,11)
492
493"FIA",1130580001.101,0,"RLRO")
494
495"FIA",1130580001.101,1130580001.101)
4960
497"FIA",1130580001.101,1130580001.111)
4980
499"FIA",1130580001.201)
500C0Q MEASUREMENTS
501"FIA",1130580001.201,0)
502^C0Q(201,
503"FIA",1130580001.201,0,0)
5041130580001.201
505"FIA",1130580001.201,0,1)
506y^y^f^^^^n
507"FIA",1130580001.201,0,10)
508
509"FIA",1130580001.201,0,11)
510
511"FIA",1130580001.201,0,"RLRO")
512
513"FIA",1130580001.201,1130580001.201)
5140
515"FIA",1130580001.201,1130580001.2011)
5160
517"FIA",1130580001.201,1130580001.20111)
5180
519"FIA",1130580001.201,1130580001.20112)
5200
521"KRN",.4,2540,-1)
5220^3
523"KRN",.4,2540,0)
524C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3101015
525"KRN",.4,2540,"F",2)
526.01~.5~1~2~
527"KRN",.4,2540,"H")
528C0Q QUAILITY MEASURE LIST
529"KRN",.4,2541,-1)
5300^2
531"KRN",.4,2541,0)
532C0Q PRINT MEASUREMENT SET^3101012.2337^@^1130580001.201^^@^3101102
533"KRN",.4,2541,"F",2)
534.01~.02~.03~.05~.2~1,.01~1,1,.01~1,1.1~1,2,.01~1,2.1~1,3~
535"KRN",.4,2541,"H")
536C0Q MEASUREMENTS LIST
537"KRN",.4,2542,-1)
5380^1
539"KRN",.4,2542,0)
540C0Q PRINT BY PATIENT^3101014.2342^@^1130580001.201^^@^3101014
541"KRN",.4,2542,"F",2)
542.01~1,.01~1,2,.01~
543"KRN",.4,2542,"H")
544C0Q MEASUREMENTS LIST
545"KRN",.402,2236,-1)
5460^2
547"KRN",.402,2236,0)
548C0Q QUALITY MEASURE DEFINITION^3101012.1927^@^1130580001.101^^@^3101108
549"KRN",.402,2236,"DR",1,1130580001.101)
550.01;.5;1;2;
551"KRN",.402,2237,-1)
5520^1
553"KRN",.402,2237,0)
554C0Q MEASUREMENT SET DEFINE^3101012.1929^@^1130580001.201^^@^3101108
555"KRN",.402,2237,"DR",1,1130580001.201)
556.01;1;
557"KRN",.402,2237,"DR",2,1130580001.2011)
558.01;
559"KRN",19,13695,-1)
5600^9
561"KRN",19,13695,0)
562C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^
563"KRN",19,13695,30)
564C0Q(101,
565"KRN",19,13695,31)
566AEMQL
567"KRN",19,13695,50)
568C0Q(101,
569"KRN",19,13695,51)
570[C0Q QUALITY MEASURE DEFINITION]
571"KRN",19,13695,"U")
572QUALITY MEASURE DEFINITION
573"KRN",19,13696,-1)
5740^8
575"KRN",19,13696,0)
576C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^
577"KRN",19,13696,30)
578C0Q(201,
579"KRN",19,13696,31)
580AEMQL
581"KRN",19,13696,50)
582C0Q(201,
583"KRN",19,13696,51)
584[C0Q MEASUREMENT SET DEFINE]
585"KRN",19,13696,"U")
586MEASURE SET DEFINITION
587"KRN",19,13697,-1)
5880^10
589"KRN",19,13697,0)
590C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^^^^^^^^
591"KRN",19,13697,10,0)
592^19.01IP^10^8
593"KRN",19,13697,10,1,0)
59413696
595"KRN",19,13697,10,1,"^")
596C0Q MEASURE SET DEFINITION
597"KRN",19,13697,10,2,0)
59813695
599"KRN",19,13697,10,2,"^")
600C0Q QUALITY MEASURE DEFINITION
601"KRN",19,13697,10,5,0)
60213700
603"KRN",19,13697,10,5,"^")
604C0Q LIST MEASURE SET
605"KRN",19,13697,10,6,0)
60613701
607"KRN",19,13697,10,6,"^")
608C0Q BY PATIENT NUMERATOR
609"KRN",19,13697,10,7,0)
61013702
611"KRN",19,13697,10,7,"^")
612C0Q DENOMINATOR PATIENT LIST
613"KRN",19,13697,10,8,0)
61413703
615"KRN",19,13697,10,8,"^")
616C0Q EXPORT CCR BY MEASURE
617"KRN",19,13697,10,9,0)
61813704
619"KRN",19,13697,10,9,"^")
620C0Q SUMMARY QUALITY MEASURES
621"KRN",19,13697,10,10,0)
62213705
623"KRN",19,13697,10,10,"^")
624C0Q EXPORT MEASURE SET
625"KRN",19,13697,99)
62662039,71770
627"KRN",19,13697,"U")
628QUALITY MEASUREMENT MENU
629"KRN",19,13698,-1)
6300^4
631"KRN",19,13698,0)
632C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^
633"KRN",19,13698,60)
634C0Q(101,
635"KRN",19,13698,62)
6360
637"KRN",19,13698,63)
638[C0Q PRINT QUALITY MEASURES]
639"KRN",19,13698,64)
640
641"KRN",19,13698,65)
642
643"KRN",19,13698,66)
644
645"KRN",19,13698,"U")
646DISPLAY QUALITY MEASURES
647"KRN",19,13699,-1)
6480^3
649"KRN",19,13699,0)
650C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^
651"KRN",19,13699,60)
652C0Q(201,
653"KRN",19,13699,62)
6540
655"KRN",19,13699,63)
656[C0Q PRINT MEASUREMENT SET]
657"KRN",19,13699,64)
658
659"KRN",19,13699,65)
660
661"KRN",19,13699,66)
662
663"KRN",19,13699,"U")
664DISPLAY MEASURE SET
665"KRN",19,13700,-1)
6660^7
667"KRN",19,13700,0)
668C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^
669"KRN",19,13700,25)
670EN^C0QMAIN
671"KRN",19,13700,"U")
672LIST MEASURE SET
673"KRN",19,13701,-1)
6740^1
675"KRN",19,13701,0)
676C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^
677"KRN",19,13701,25)
678NBYP^C0QMAIN
679"KRN",19,13701,"U")
680BY PATIENT NUMERATOR
681"KRN",19,13702,-1)
6820^2
683"KRN",19,13702,0)
684C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^
685"KRN",19,13702,25)
686DBYP^C0QMAIN
687"KRN",19,13702,"U")
688DENOMINATOR PATIENT LIST
689"KRN",19,13703,-1)
6900^5
691"KRN",19,13703,0)
692C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^
693"KRN",19,13703,25)
694EXPORT^C0QMAIN
695"KRN",19,13703,"U")
696EXPORT CCR BY MEASURE
697"KRN",19,13704,-1)
6980^11
699"KRN",19,13704,0)
700C0Q SUMMARY QUALITY MEASURES^SUMMARY QUALITY MEASURES^^R^^^^^^^^
701"KRN",19,13704,25)
702EN2^C0QMAIN
703"KRN",19,13704,"U")
704SUMMARY QUALITY MEASURES
705"KRN",19,13705,-1)
7060^6
707"KRN",19,13705,0)
708C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^
709"KRN",19,13705,25)
710ENEXP^C0QMAIN
711"KRN",19,13705,"U")
712ALL MEASURES EXPORT
713"MBREQ")
7140
715"ORD",5,.4)
716.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,"",%)
717"ORD",5,.4,0)
718PRINT TEMPLATE
719"ORD",7,.402)
720.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,"",%)
721"ORD",7,.402,0)
722INPUT TEMPLATE
723"ORD",18,19)
72419;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
725"ORD",18,19,0)
726OPTION
727"QUES","XPF1",0)
728Y
729"QUES","XPF1","??")
730^D REP^XPDH
731"QUES","XPF1","A")
732Shall I write over your |FLAG| File
733"QUES","XPF1","B")
734YES
735"QUES","XPF1","M")
736D XPF1^XPDIQ
737"QUES","XPF2",0)
738Y
739"QUES","XPF2","??")
740^D DTA^XPDH
741"QUES","XPF2","A")
742Want my data |FLAG| yours
743"QUES","XPF2","B")
744YES
745"QUES","XPF2","M")
746D XPF2^XPDIQ
747"QUES","XPI1",0)
748YO
749"QUES","XPI1","??")
750^D INHIBIT^XPDH
751"QUES","XPI1","A")
752Want KIDS to INHIBIT LOGONs during the install
753"QUES","XPI1","B")
754NO
755"QUES","XPI1","M")
756D XPI1^XPDIQ
757"QUES","XPM1",0)
758PO^VA(200,:EM
759"QUES","XPM1","??")
760^D MG^XPDH
761"QUES","XPM1","A")
762Enter the Coordinator for Mail Group '|FLAG|'
763"QUES","XPM1","B")
764
765"QUES","XPM1","M")
766D XPM1^XPDIQ
767"QUES","XPO1",0)
768Y
769"QUES","XPO1","??")
770^D MENU^XPDH
771"QUES","XPO1","A")
772Want KIDS to Rebuild Menu Trees Upon Completion of Install
773"QUES","XPO1","B")
774NO
775"QUES","XPO1","M")
776D XPO1^XPDIQ
777"QUES","XPZ1",0)
778Y
779"QUES","XPZ1","??")
780^D OPT^XPDH
781"QUES","XPZ1","A")
782Want to DISABLE Scheduled Options, Menu Options, and Protocols
783"QUES","XPZ1","B")
784NO
785"QUES","XPZ1","M")
786D XPZ1^XPDIQ
787"QUES","XPZ2",0)
788Y
789"QUES","XPZ2","??")
790^D RTN^XPDH
791"QUES","XPZ2","A")
792Want to MOVE routines to other CPUs
793"QUES","XPZ2","B")
794NO
795"QUES","XPZ2","M")
796D XPZ2^XPDIQ
797"RTN")
7981
799"RTN","C0QMAIN")
8000^1^B69544556
801"RTN","C0QMAIN",1,0)
802C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05
803"RTN","C0QMAIN",2,0)
804 ;;0.1;C0Q;nopatch;noreleasedate;Build 1
805"RTN","C0QMAIN",3,0)
806 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU
807"RTN","C0QMAIN",4,0)
808 ;General Public License See attached copy of the License.
809"RTN","C0QMAIN",5,0)
810 ;
811"RTN","C0QMAIN",6,0)
812 ;This program is free software; you can redistribute it and/or modify
813"RTN","C0QMAIN",7,0)
814 ;it under the terms of the GNU General Public License as published by
815"RTN","C0QMAIN",8,0)
816 ;the Free Software Foundation; either version 2 of the License, or
817"RTN","C0QMAIN",9,0)
818 ;(at your option) any later version.
819"RTN","C0QMAIN",10,0)
820 ;
821"RTN","C0QMAIN",11,0)
822 ;This program is distributed in the hope that it will be useful,
823"RTN","C0QMAIN",12,0)
824 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
825"RTN","C0QMAIN",13,0)
826 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
827"RTN","C0QMAIN",14,0)
828 ;GNU General Public License for more details.
829"RTN","C0QMAIN",15,0)
830 ;
831"RTN","C0QMAIN",16,0)
832 ;You should have received a copy of the GNU General Public License along
833"RTN","C0QMAIN",17,0)
834 ;with this program; if not, write to the Free Software Foundation, Inc.,
835"RTN","C0QMAIN",18,0)
836 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
837"RTN","C0QMAIN",19,0)
838 ;
839"RTN","C0QMAIN",20,0)
840 Q
841"RTN","C0QMAIN",21,0)
842 ;
843"RTN","C0QMAIN",22,0)
844C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE
845"RTN","C0QMAIN",23,0)
846C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE
847"RTN","C0QMAIN",24,0)
848C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
849"RTN","C0QMAIN",25,0)
850C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE
851"RTN","C0QMAIN",26,0)
852C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE
853"RTN","C0QMAIN",27,0)
854RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE
855"RTN","C0QMAIN",28,0)
856RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE
857"RTN","C0QMAIN",29,0)
858 ;
859"RTN","C0QMAIN",30,0)
860EXPORT ; EXPORT ENTRY POINT FOR CCR
861"RTN","C0QMAIN",31,0)
862 ; Select a patient.
863"RTN","C0QMAIN",32,0)
864 N C0QMS,C0QM,C0QMIEN,C0QNA,C0QNORD
865"RTN","C0QMAIN",33,0)
866 S C0QNORD=3 ; WE WANT DENOMINATORS USE 1 FOR NUMERATORS
867"RTN","C0QMAIN",34,0)
868 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
869"RTN","C0QMAIN",35,0)
870 I Y<1 Q ; EXIT
871"RTN","C0QMAIN",36,0)
872 S C0QMS=$P(Y,U,1) ; SET THE MEASURE SET
873"RTN","C0QMAIN",37,0)
874 S DIC=$$C0QQFN,DIC(0)="AEMQ" D ^DIC
875"RTN","C0QMAIN",38,0)
876 I Y<1 Q ; EXIT
877"RTN","C0QMAIN",39,0)
878 S C0QM=$P(Y,U,1) ; SET THE MEASURE IEN
879"RTN","C0QMAIN",40,0)
880 N C0QMN S C0QMN=$P(Y,U,2) ; SET THE MEASURE NAME
881"RTN","C0QMAIN",41,0)
882 S C0QMIEN=$O(^C0Q(201,C0QMS,5,"B",C0QM,""))
883"RTN","C0QMAIN",42,0)
884 S C0QNA=$NA(^C0Q(201,C0QMS,5,C0QMIEN,C0QNORD,"B"))
885"RTN","C0QMAIN",43,0)
886 N ZI S ZI=""
887"RTN","C0QMAIN",44,0)
888 F S ZI=$O(@C0QNA@(ZI)) Q:ZI="" D ;
889"RTN","C0QMAIN",45,0)
890 . W !,ZI
891"RTN","C0QMAIN",46,0)
892 . N ONAME S ONAME=C0QMN_"_"_ZI_"_CCR_V1_0_0.xml"
893"RTN","C0QMAIN",47,0)
894 . D XPAT^C0CCCR(ZI,,,ONAME) ; EXPORT TO A FILE
895"RTN","C0QMAIN",48,0)
896 Q
897"RTN","C0QMAIN",49,0)
898 ;
899"RTN","C0QMAIN",50,0)
900NBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING
901"RTN","C0QMAIN",51,0)
902 ;
903"RTN","C0QMAIN",52,0)
904 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
905"RTN","C0QMAIN",53,0)
906 I Y<1 Q ; EXIT
907"RTN","C0QMAIN",54,0)
908 N MSIEN S MSIEN=+Y
909"RTN","C0QMAIN",55,0)
910 W !,"NUMERATOR PATIENT LIST",!
911"RTN","C0QMAIN",56,0)
912 N C0QPAT
913"RTN","C0QMAIN",57,0)
914 D PATS(.C0QPAT,MSIEN,"N") ; GET THE NUMERATOR PATIENT LIST
915"RTN","C0QMAIN",58,0)
916 I $D(C0QPAT) D ; LIST RETURNED
917"RTN","C0QMAIN",59,0)
918 . ;
919"RTN","C0QMAIN",60,0)
920 Q
921"RTN","C0QMAIN",61,0)
922 ;
923"RTN","C0QMAIN",62,0)
924DBYP ; ENTRY POINT FOR COMMAND LINE BY PATIENT MEASURE LISTING
925"RTN","C0QMAIN",63,0)
926 ;
927"RTN","C0QMAIN",64,0)
928 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
929"RTN","C0QMAIN",65,0)
930 I Y<1 Q ; EXIT
931"RTN","C0QMAIN",66,0)
932 N MSIEN S MSIEN=+Y
933"RTN","C0QMAIN",67,0)
934 N C0QPAT
935"RTN","C0QMAIN",68,0)
936 W !,"DENOMINATOR PATIENT LIST",!
937"RTN","C0QMAIN",69,0)
938 D PATS(.C0QPAT,MSIEN,"D") ; GET THE NUMERATOR PATIENT LIST
939"RTN","C0QMAIN",70,0)
940 I $D(C0QPAT) D ; LIST RETURNED
941"RTN","C0QMAIN",71,0)
942 . ;
943"RTN","C0QMAIN",72,0)
944 . ;
945"RTN","C0QMAIN",73,0)
946 Q
947"RTN","C0QMAIN",74,0)
948 ;
949"RTN","C0QMAIN",75,0)
950ENEXP ; EXTERNAL MENU ENTRY POINT FOR EXP
951"RTN","C0QMAIN",76,0)
952 ;
953"RTN","C0QMAIN",77,0)
954 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
955"RTN","C0QMAIN",78,0)
956 I Y<1 Q ; EXIT
957"RTN","C0QMAIN",79,0)
958 N MSIEN S MSIEN=+Y
959"RTN","C0QMAIN",80,0)
960 D EXP(MSIEN)
961"RTN","C0QMAIN",81,0)
962 Q
963"RTN","C0QMAIN",82,0)
964 ;
965"RTN","C0QMAIN",83,0)
966EXP(MSET,NOEX) ; EXPORT ALL PATIENTS FOR MEASURE SET IEN MSET
967"RTN","C0QMAIN",84,0)
968 ; ALSO, WRITE OUT THE BY PATIENT MEASURE TEXT FILE
969"RTN","C0QMAIN",85,0)
970 ; IF NOEX=1, THEN ONLY THE MEASURE TEXT FILE GETS WRITTEN, NO EXPORTS ARE
971"RTN","C0QMAIN",86,0)
972 ; DONE
973"RTN","C0QMAIN",87,0)
974 I '$D(NOEX) S NOEX=0
975"RTN","C0QMAIN",88,0)
976 N ZQI,ZARY,ZFN,ODIR
977"RTN","C0QMAIN",89,0)
978 S ZQI=""
979"RTN","C0QMAIN",90,0)
980 D PATS(.ZARY,MSET,"D",1)
981"RTN","C0QMAIN",91,0)
982 S ZFN="MEASURES-BY-PATIENT.txt"
983"RTN","C0QMAIN",92,0)
984 S ODIR=^TMP("C0CCCR","ODIR") ; OUTPUT DIRECTORY
985"RTN","C0QMAIN",93,0)
986 S GARY=$NA(^TMP("C0Q",$J))
987"RTN","C0QMAIN",94,0)
988 K @GARY
989"RTN","C0QMAIN",95,0)
990 M @GARY=ZARY
991"RTN","C0QMAIN",96,0)
992 S GARY1=$NA(@GARY@(1))
993"RTN","C0QMAIN",97,0)
994 N ZY
995"RTN","C0QMAIN",98,0)
996 S ZY=$$OUTPUT^C0CXPATH(GARY1,ZFN,ODIR)
997"RTN","C0QMAIN",99,0)
998 W !,ZY
999"RTN","C0QMAIN",100,0)
1000 I NOEX=1 Q ; DO NOT EXPORT
1001"RTN","C0QMAIN",101,0)
1002 F S ZQI=$O(ZARY(ZQI)) Q:ZQI="" D ; FOR EACH PATIENT
1003"RTN","C0QMAIN",102,0)
1004 . D XPAT^C0CCCR(+ZARY(ZQI)) ;
1005"RTN","C0QMAIN",103,0)
1006 Q
1007"RTN","C0QMAIN",104,0)
1008 ;
1009"RTN","C0QMAIN",105,0)
1010PATS(ZRTN,MSIEN,NORD,QT) ; BUILDS A LIST OF PATIENTS AND THEIR MEASURES
1011"RTN","C0QMAIN",106,0)
1012 ; FOR MEASURE SET MSET. NORD="N" (DEFAULT) MEANS NUMERATOR PATIENTS
1013"RTN","C0QMAIN",107,0)
1014 ; NORD="D" MEANS DENOMINATOR PATIENTS
1015"RTN","C0QMAIN",108,0)
1016 ; QT=1 MEANS QUIET
1017"RTN","C0QMAIN",109,0)
1018 I $G(QT)'=1 S QT=0
1019"RTN","C0QMAIN",110,0)
1020 N ZI,ZJ,ZK,ZIDX,ZN,ZM
1021"RTN","C0QMAIN",111,0)
1022 S ZN=0 ; COUNT OF PATIENTS
1023"RTN","C0QMAIN",112,0)
1024 S ZI=""
1025"RTN","C0QMAIN",113,0)
1026 ; GOING TO USE THE NUMERATOR BY PATIENT INDEX
1027"RTN","C0QMAIN",114,0)
1028 I '$D(NORD) S NORD="N"
1029"RTN","C0QMAIN",115,0)
1030 I '((NORD="N")!(NORD="D")) S NORD="N"
1031"RTN","C0QMAIN",116,0)
1032 I NORD="N" S ZIDX=$NA(^C0Q(201,"ANBYP"))
1033"RTN","C0QMAIN",117,0)
1034 E S ZIDX=$NA(^C0Q(201,"ADBYP"))
1035"RTN","C0QMAIN",118,0)
1036 F S ZI=$O(@ZIDX@(ZI)) Q:ZI="" D ; FOR EACH PATIENT
1037"RTN","C0QMAIN",119,0)
1038 . I $O(@ZIDX@(ZI,MSIEN,""))'="" D ; IF PATIENT IS IN THIS SET
1039"RTN","C0QMAIN",120,0)
1040 . . I 'QT W !,$$GET1^DIQ(2,ZI_",",.01) ;PATIENT NAME
1041"RTN","C0QMAIN",121,0)
1042 . . S ZN=ZN+1 ; INCREMENT PATIENT COUNT
1043"RTN","C0QMAIN",122,0)
1044 . . S ZRTN(ZN)=ZI
1045"RTN","C0QMAIN",123,0)
1046 . E Q ; NEXT PATIENT
1047"RTN","C0QMAIN",124,0)
1048 . S (ZJ,ZK)=""
1049"RTN","C0QMAIN",125,0)
1050 . F S ZJ=$O(@ZIDX@(ZI,MSIEN,ZJ)) Q:ZJ="" D ; FOR EACH MEASURE
1051"RTN","C0QMAIN",126,0)
1052 . . ;S ZL=$O(@ZIDX@(ZI,MSIEN,ZJ,"")) ; MEASURE IS FOURTH
1053"RTN","C0QMAIN",127,0)
1054 . . S ZK=""
1055"RTN","C0QMAIN",128,0)
1056 . . S ZK=$$GET1^DIQ($$C0QMMFN,ZJ_","_MSIEN_",",.01,"I")
1057"RTN","C0QMAIN",129,0)
1058 . . ;W !,"ZK:",ZK," ZJ:",ZJ," ZI",ZI,!
1059"RTN","C0QMAIN",130,0)
1060 . . S ZM=$$GET1^DIQ($$C0QQFN,ZK_",",.01) ; MEASURE NAME
1061"RTN","C0QMAIN",131,0)
1062 . . I 'QT W " ",ZM
1063"RTN","C0QMAIN",132,0)
1064 . . S ZRTN(ZN)=ZRTN(ZN)_" "_ZM
1065"RTN","C0QMAIN",133,0)
1066 Q
1067"RTN","C0QMAIN",134,0)
1068 ;
1069"RTN","C0QMAIN",135,0)
1070EN ; ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC
1071"RTN","C0QMAIN",136,0)
1072 ;
1073"RTN","C0QMAIN",137,0)
1074 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
1075"RTN","C0QMAIN",138,0)
1076 I Y<1 Q ; EXIT
1077"RTN","C0QMAIN",139,0)
1078 N MSIEN S MSIEN=+Y
1079"RTN","C0QMAIN",140,0)
1080 D C0QRPC(.G,MSIEN)
1081"RTN","C0QMAIN",141,0)
1082 Q
1083"RTN","C0QMAIN",142,0)
1084 ;
1085"RTN","C0QMAIN",143,0)
1086EN2 ; SUMMARY ENTRY POINT FOR COMMAND LINE AND MENU ACCESS TO C0QRPC
1087"RTN","C0QMAIN",144,0)
1088 ;
1089"RTN","C0QMAIN",145,0)
1090 S DIC=$$C0QMFN,DIC(0)="AEMQ" D ^DIC
1091"RTN","C0QMAIN",146,0)
1092 I Y<1 Q ; EXIT
1093"RTN","C0QMAIN",147,0)
1094 N MSIEN S MSIEN=+Y
1095"RTN","C0QMAIN",148,0)
1096 S C0QSUM=1
1097"RTN","C0QMAIN",149,0)
1098 D C0QRPC(.G,MSIEN)
1099"RTN","C0QMAIN",150,0)
1100 Q
1101"RTN","C0QMAIN",151,0)
1102 ;
1103"RTN","C0QMAIN",152,0)
1104C0QRPC(RTN,MSET,FMT,NOPURGE) ; RPC FORMAT
1105"RTN","C0QMAIN",153,0)
1106 ; MSET IS THE NAME OR IEN OF THE MEASURE SET
1107"RTN","C0QMAIN",154,0)
1108 ; RTN IS THE RETURN ARRAY OF THE RESULTS PASSED BY REFERENCE
1109"RTN","C0QMAIN",155,0)
1110 ; FMT IS THE FORMAT OF THE OUTPUT - "ARRAY" OR "HTML" OR "XML"
1111"RTN","C0QMAIN",156,0)
1112 ; NOTE: ARRAY IS DEFAULT AND THE OTHERS ARE NOT IMPLEMENTED YET
1113"RTN","C0QMAIN",157,0)
1114 ; IF NOPURGE IS 1, PATIENT LISTS WILL NOT BE DELETED BEFORE ADDING
1115"RTN","C0QMAIN",158,0)
1116 ; IF NOPURGE IS 0 OR OMITTED, PATIENT LISTS WILL BE DELETED THEN ADDED
1117"RTN","C0QMAIN",159,0)
1118 W !,"LOOKING FOR MEASURE SET ",MSET,!
1119"RTN","C0QMAIN",160,0)
1120 N ZI S ZI=""
1121"RTN","C0QMAIN",161,0)
1122 N C0QM ; FOR HOLDING THE MEASURES IN THE SET
1123"RTN","C0QMAIN",162,0)
1124 D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES
1125"RTN","C0QMAIN",163,0)
1126 D DELIST("C0QM")
1127"RTN","C0QMAIN",164,0)
1128 N ZII S ZII=""
1129"RTN","C0QMAIN",165,0)
1130 F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE
1131"RTN","C0QMAIN",166,0)
1132 . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE
1133"RTN","C0QMAIN",167,0)
1134 K C0QM
1135"RTN","C0QMAIN",168,0)
1136 D CLEAN^DILF
1137"RTN","C0QMAIN",169,0)
1138 D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES AGAIN
1139"RTN","C0QMAIN",170,0)
1140 D DELIST("C0QM")
1141"RTN","C0QMAIN",171,0)
1142 F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE
1143"RTN","C0QMAIN",172,0)
1144 . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE
1145"RTN","C0QMAIN",173,0)
1146 . ;W $$GET1^DIQ($$C0QQFN,ZI_",","DISPLAY NAME"),!
1147"RTN","C0QMAIN",174,0)
1148 . ;N C0QNL,C0QDL ;NUMERATOR AND DENOMINATOR LIST POINTERS
1149"RTN","C0QMAIN",175,0)
1150 . W !,"MEASURE: ",$$GET1^DIQ($$C0QQFN,ZI_",",.01),! ; PRINT THE MEASURE NAME
1151"RTN","C0QMAIN",176,0)
1152 . ; FOLLOW THE POINTERS TO THE C0Q QUALITYM MEASURE FILE AND GET LIST PTRS
1153"RTN","C0QMAIN",177,0)
1154 . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER
1155"RTN","C0QMAIN",178,0)
1156 . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER
1157"RTN","C0QMAIN",179,0)
1158 . ; NOW FOLLOW THE LIST POINTERS TO THE REMINDER PATIENT LIST FILE
1159"RTN","C0QMAIN",180,0)
1160 . W "NUMERATOR: ",$$GET1^DIQ($$RLSTFN,C0QNL_",","NAME"),!
1161"RTN","C0QMAIN",181,0)
1162 . ; FIRST PROCESS THE NUMERATOR
1163"RTN","C0QMAIN",182,0)
1164 . K ^TMP("DILIST",$J)
1165"RTN","C0QMAIN",183,0)
1166 . D LIST^DIC($$RLSTPFN,","_C0QNL_",",".01I") ; GET THE LIST OF PATIENTS
1167"RTN","C0QMAIN",184,0)
1168 . ;D DELIST("G") ;
1169"RTN","C0QMAIN",185,0)
1170 . ;I $D(G) ZWR G
1171"RTN","C0QMAIN",186,0)
1172 . K C0QNUMP
1173"RTN","C0QMAIN",187,0)
1174 . S NCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; NUMERATOR COUNT
1175"RTN","C0QMAIN",188,0)
1176 . N ZJ S ZJ=""
1177"RTN","C0QMAIN",189,0)
1178 . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ;
1179"RTN","C0QMAIN",190,0)
1180 . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01)
1181"RTN","C0QMAIN",191,0)
1182 . . S C0QNUMP("N",ZJ,ZDFN)=""
1183"RTN","C0QMAIN",192,0)
1184 . I '$G(C0QSUM) ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES
1185"RTN","C0QMAIN",193,0)
1186 . D ADDPATS(MSET,ZII,"C0QNUMP")
1187"RTN","C0QMAIN",194,0)
1188 . ; NEXT PROCESS THE DENOMINATOR
1189"RTN","C0QMAIN",195,0)
1190 . W "DENOMINATOR: ",$$GET1^DIQ($$RLSTFN,C0QDL_",","NAME"),!
1191"RTN","C0QMAIN",196,0)
1192 . K ^TMP("DILIST",$J)
1193"RTN","C0QMAIN",197,0)
1194 . D LIST^DIC($$RLSTPFN,","_C0QDL_",",".01I") ; GET THE LIST OF PATIENTS
1195"RTN","C0QMAIN",198,0)
1196 . ;D DELIST("G")
1197"RTN","C0QMAIN",199,0)
1198 . ;I $D(G) ZWR G
1199"RTN","C0QMAIN",200,0)
1200 . ;S ZJ=""
1201"RTN","C0QMAIN",201,0)
1202 . S DCNT=$O(^TMP("DILIST",$J,"ID",""),-1) ; DENOMONIATOR COUNT
1203"RTN","C0QMAIN",202,0)
1204 . K C0QDEMP
1205"RTN","C0QMAIN",203,0)
1206 . F S ZJ=$O(^TMP("DILIST",$J,"ID",ZJ)) Q:ZJ="" D ;
1207"RTN","C0QMAIN",204,0)
1208 . . S ZDFN=^TMP("DILIST",$J,"ID",ZJ,.01)
1209"RTN","C0QMAIN",205,0)
1210 . . S C0QDEMP("D",ZJ,ZDFN)=""
1211"RTN","C0QMAIN",206,0)
1212 . D ADDPATS(MSET,ZII,"C0QDEMP")
1213"RTN","C0QMAIN",207,0)
1214 . I $G(C0QSUM)'=1 ZWR ^TMP("DILIST",$J,1,*) ; LIST THE PATIENT NAMES
1215"RTN","C0QMAIN",208,0)
1216 . E D ;
1217"RTN","C0QMAIN",209,0)
1218 . . W "NUM CNT: ",NCNT
1219"RTN","C0QMAIN",210,0)
1220 . . W " DEN CNT: ",DCNT,!
1221"RTN","C0QMAIN",211,0)
1222 Q
1223"RTN","C0QMAIN",212,0)
1224 ;
1225"RTN","C0QMAIN",213,0)
1226CLEARMEA(MSET,MEAS) ; DELETE AND THEN RECREATE AS EMPTY THE
1227"RTN","C0QMAIN",214,0)
1228 ; MEASURE MEAS IN MEASURE SET IEN MSET
1229"RTN","C0QMAIN",215,0)
1230 ;
1231"RTN","C0QMAIN",216,0)
1232 N C0QFDA,MFN,MEASURE
1233"RTN","C0QMAIN",217,0)
1234 S MFN=$$C0QMMFN() ; FILE NUMBER FOR MEASURE SUBFILE
1235"RTN","C0QMAIN",218,0)
1236 D CLEAN^DILF
1237"RTN","C0QMAIN",219,0)
1238 S MEASURE=$$GET1^DIQ(MFN,MEAS_","_MSET_",",.01,"I") ; MEASURE POINTER
1239"RTN","C0QMAIN",220,0)
1240 D CLEAN^DILF
1241"RTN","C0QMAIN",221,0)
1242 K ZERR
1243"RTN","C0QMAIN",222,0)
1244 S C0QFDA(MFN,MEAS_","_MSET_",",.01)="@" ; GET READY TO DELETE THE MEASURE
1245"RTN","C0QMAIN",223,0)
1246 D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE
1247"RTN","C0QMAIN",224,0)
1248 I $D(ZERR) D ;
1249"RTN","C0QMAIN",225,0)
1250 . W "ERROR",!
1251"RTN","C0QMAIN",226,0)
1252 . ZWR ZERR
1253"RTN","C0QMAIN",227,0)
1254 . B
1255"RTN","C0QMAIN",228,0)
1256 K C0QFDA
1257"RTN","C0QMAIN",229,0)
1258 S C0QFDA(MFN,"+1,"_MSET_",",.01)=MEASURE ; GET READY TO RECREATE THE SUBFILE
1259"RTN","C0QMAIN",230,0)
1260 D UPDIE ; CREATE THE SUBFILE
1261"RTN","C0QMAIN",231,0)
1262 Q
1263"RTN","C0QMAIN",232,0)
1264 ;
1265"RTN","C0QMAIN",233,0)
1266ADDPATS(MSET,MEAS,PATS) ;ADD PATIENTS TO NUMERATOR AND DENOMINATOR
1267"RTN","C0QMAIN",234,0)
1268 ; OF MEASURE SET IEN MSET MEASURE IEN MEAS
1269"RTN","C0QMAIN",235,0)
1270 ; PATS IS OF THE FORM @PATS@("N",X,DFN)="" AND @PATS@("D",X,DFN)=""
1271"RTN","C0QMAIN",236,0)
1272 ; WHERE N IS FOR NUMERATOR AND D IS FOR DENOMINATOR AND X 1..N
1273"RTN","C0QMAIN",237,0)
1274 ; IF PATIENTS ARE ALREADY THERE, THEY WILL NOT BE ADDED AGAIN
1275"RTN","C0QMAIN",238,0)
1276 N C0QI,C0QJ
1277"RTN","C0QMAIN",239,0)
1278 N C0QFDA
1279"RTN","C0QMAIN",240,0)
1280 S C0QI=""
1281"RTN","C0QMAIN",241,0)
1282 F S C0QI=$O(@PATS@("N",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT
1283"RTN","C0QMAIN",242,0)
1284 . S C0QFDA($$C0QMMNFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("N",C0QI,""))
1285"RTN","C0QMAIN",243,0)
1286 ;W "ADDING NUMERATOR",!
1287"RTN","C0QMAIN",244,0)
1288 ;I $D(C0QFDA) ZWR C0QFDA
1289"RTN","C0QMAIN",245,0)
1290 I $D(C0QFDA) D UPDIE
1291"RTN","C0QMAIN",246,0)
1292 K C0QFDA
1293"RTN","C0QMAIN",247,0)
1294 S C0QI=""
1295"RTN","C0QMAIN",248,0)
1296 F S C0QI=$O(@PATS@("D",C0QI)) Q:C0QI="" D ; FOR EACH NUMERATOR PATIENT
1297"RTN","C0QMAIN",249,0)
1298 . S C0QFDA($$C0QMMDFN,"?+"_C0QI_","_MEAS_","_MSET_",",.01)=$O(@PATS@("D",C0QI,""))
1299"RTN","C0QMAIN",250,0)
1300 ;W "ADDING DENOMINATOR",!
1301"RTN","C0QMAIN",251,0)
1302 ;I $D(C0QFDA) ZWR C0QFDA
1303"RTN","C0QMAIN",252,0)
1304 I $D(C0QFDA) D UPDIE
1305"RTN","C0QMAIN",253,0)
1306 Q
1307"RTN","C0QMAIN",254,0)
1308 ;
1309"RTN","C0QMAIN",255,0)
1310DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO
1311"RTN","C0QMAIN",256,0)
1312 ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE
1313"RTN","C0QMAIN",257,0)
1314 N ZI,IV,EV,ZDI,ZIEN
1315"RTN","C0QMAIN",258,0)
1316 S ZI=""
1317"RTN","C0QMAIN",259,0)
1318 S ZDI=$NA(^TMP("DILIST",$J))
1319"RTN","C0QMAIN",260,0)
1320 K @RTN
1321"RTN","C0QMAIN",261,0)
1322 F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ;
1323"RTN","C0QMAIN",262,0)
1324 . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE
1325"RTN","C0QMAIN",263,0)
1326 . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE
1327"RTN","C0QMAIN",264,0)
1328 . S ZIEN=@ZDI@(2,ZI) ; IEN
1329"RTN","C0QMAIN",265,0)
1330 . S @RTN@(ZIEN)=IV_"^"_EV
1331"RTN","C0QMAIN",266,0)
1332 Q
1333"RTN","C0QMAIN",267,0)
1334 ;
1335"RTN","C0QMAIN",268,0)
1336DELPATS(MSET,MEAS,NDEL) ; DELETE PATIENTS FROM NUMERATOR AND DENOMINATOR
1337"RTN","C0QMAIN",269,0)
1338 ; FOR A MEASURE (ONLY AFFECTS THE C0Q MEASURES FILE)
1339"RTN","C0QMAIN",270,0)
1340 ; MSET IS THE IEN OF THE MEASURE SET
1341"RTN","C0QMAIN",271,0)
1342 ; MEAS IS THE IEN OF THE MEASURE
1343"RTN","C0QMAIN",272,0)
1344 ; NDEL IS A LIST OF PATIENTS TO NOT DELETE (NOT IMPLEMENTED YET)
1345"RTN","C0QMAIN",273,0)
1346 ; IN THE FORM @NDEL@("N",IEN,DFN)="" FOR NUMERATOR PATIENTS
1347"RTN","C0QMAIN",274,0)
1348 ; AND @NDEL@("D",IEN,DFN)="" FOR DENOMINATOR PATIENTS WHERE IEN IS
1349"RTN","C0QMAIN",275,0)
1350 ; THE IEN OF THE PATIENT RECORD IN THE SUBFILE
1351"RTN","C0QMAIN",276,0)
1352 ; THIS FEATURE WILL ALLOW EFFICIENCIES FOR LONG PATIENT LISTS
1353"RTN","C0QMAIN",277,0)
1354 ; IN THAT PATIENTS THAT ARE GOING TO BE ADDED ARE NOT FIRST DELETED
1355"RTN","C0QMAIN",278,0)
1356 N C0QI,C0QJ
1357"RTN","C0QMAIN",279,0)
1358 D LIST^DIC($$C0QMMFN,","_MSET_",")
1359"RTN","C0QMAIN",280,0)
1360 K C0QFDA
1361"RTN","C0QMAIN",281,0)
1362 ZWR ^TMP("DILIST",$J,*)
1363"RTN","C0QMAIN",282,0)
1364 ZWR ^TMP("DIERR",$J,*)
1365"RTN","C0QMAIN",283,0)
1366 D
1367"RTN","C0QMAIN",284,0)
1368 Q
1369"RTN","C0QMAIN",285,0)
1370 ;
1371"RTN","C0QMAIN",286,0)
1372UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
1373"RTN","C0QMAIN",287,0)
1374 K ZERR
1375"RTN","C0QMAIN",288,0)
1376 D CLEAN^DILF
1377"RTN","C0QMAIN",289,0)
1378 D UPDATE^DIE("","C0QFDA","","ZERR")
1379"RTN","C0QMAIN",290,0)
1380 I $D(ZERR) D ;
1381"RTN","C0QMAIN",291,0)
1382 . W "ERROR",!
1383"RTN","C0QMAIN",292,0)
1384 . ZWR ZERR
1385"RTN","C0QMAIN",293,0)
1386 . B
1387"RTN","C0QMAIN",294,0)
1388 K C0QFDA
1389"RTN","C0QMAIN",295,0)
1390 Q
1391"RTN","C0QMAIN",296,0)
1392 ;
1393"SEC","^DD",1130580001.101,1130580001.101,3.1,9)
1394
1395"SEC","^DIC",1130580001.101,1130580001.101,0,"AUDIT")
1396@
1397"SEC","^DIC",1130580001.101,1130580001.101,0,"DD")
1398@
1399"SEC","^DIC",1130580001.101,1130580001.101,0,"DEL")
1400@
1401"SEC","^DIC",1130580001.101,1130580001.101,0,"LAYGO")
1402@
1403"SEC","^DIC",1130580001.101,1130580001.101,0,"RD")
1404@
1405"SEC","^DIC",1130580001.101,1130580001.101,0,"WR")
1406@
1407"SEC","^DIC",1130580001.201,1130580001.201,0,"AUDIT")
1408@
1409"SEC","^DIC",1130580001.201,1130580001.201,0,"DD")
1410@
1411"SEC","^DIC",1130580001.201,1130580001.201,0,"DEL")
1412@
1413"SEC","^DIC",1130580001.201,1130580001.201,0,"LAYGO")
1414@
1415"SEC","^DIC",1130580001.201,1130580001.201,0,"RD")
1416@
1417"SEC","^DIC",1130580001.201,1130580001.201,0,"WR")
1418@
1419"VER")
14208.0^22.0
1421"^DD",1130580001.101,1130580001.101,0)
1422FIELD^^.61^9
1423"^DD",1130580001.101,1130580001.101,0,"DDA")
1424N
1425"^DD",1130580001.101,1130580001.101,0,"DT")
14263101013
1427"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01)
1428
1429"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUAILITY MEASURE")
1430
1431"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01)
1432
1433"^DD",1130580001.101,1130580001.101,.01,0)
1434NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
1435"^DD",1130580001.101,1130580001.101,.01,.1)
1436MEASURE NAME
1437"^DD",1130580001.101,1130580001.101,.01,1,0)
1438^.1
1439"^DD",1130580001.101,1130580001.101,.01,1,1,0)
14401130580001.101^B
1441"^DD",1130580001.101,1130580001.101,.01,1,1,1)
1442S ^C0Q(101,"B",$E(X,1,30),DA)=""
1443"^DD",1130580001.101,1130580001.101,.01,1,1,2)
1444K ^C0Q(101,"B",$E(X,1,30),DA)
1445"^DD",1130580001.101,1130580001.101,.01,3)
1446Answer must be 1-30 characters in length
1447"^DD",1130580001.101,1130580001.101,.01,"DT")
14483101012
1449"^DD",1130580001.101,1130580001.101,.5,0)
1450SHORT DESCRIPTION^F^^1;1^K:$L(X)>240!($L(X)<3) X
1451"^DD",1130580001.101,1130580001.101,.5,.1)
1452MEASURE SHORT DESCRIPTION
1453"^DD",1130580001.101,1130580001.101,.5,3)
1454Answer must be 3-240 characters in length
1455"^DD",1130580001.101,1130580001.101,.5,"DT")
14563101012
1457"^DD",1130580001.101,1130580001.101,.61,0)
1458VERY LONG DESCRIPTION^1130580001.111^^6;0
1459"^DD",1130580001.101,1130580001.101,.7,0)
1460DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X
1461"^DD",1130580001.101,1130580001.101,.7,.1)
1462QRDA DISPLAY NAME
1463"^DD",1130580001.101,1130580001.101,.7,3)
1464Answer must be 3-240 characters in length
1465"^DD",1130580001.101,1130580001.101,.7,"DT")
14663101012
1467"^DD",1130580001.101,1130580001.101,1,0)
1468NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
1469"^DD",1130580001.101,1130580001.101,1,.1)
1470MEASURE NUMERATOR PATIENT LIST
1471"^DD",1130580001.101,1130580001.101,1,"DT")
14723101012
1473"^DD",1130580001.101,1130580001.101,2,0)
1474DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
1475"^DD",1130580001.101,1130580001.101,2,.1)
1476MEASURE DENOMINATOR PATIENT LIST
1477"^DD",1130580001.101,1130580001.101,2,"DT")
14783101012
1479"^DD",1130580001.101,1130580001.101,3,0)
1480QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X
1481"^DD",1130580001.101,1130580001.101,3,.1)
1482MEASURE TEMPLATE ROOT FOR QRDA DOCUMENT
1483"^DD",1130580001.101,1130580001.101,3,3)
1484Answer must be 3-120 characters in length
1485"^DD",1130580001.101,1130580001.101,3,"DT")
14863101012
1487"^DD",1130580001.101,1130580001.101,3.1,0)
1488QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12"
1489"^DD",1130580001.101,1130580001.101,3.1,.1)
1490QRDA SYSTEM OID (FIXED)
1491"^DD",1130580001.101,1130580001.101,3.1,9.01)
1492
1493"^DD",1130580001.101,1130580001.101,3.1,9.1)
1494S X="2.16.840.1.113883.3.249.12"
1495"^DD",1130580001.101,1130580001.101,3.1,"DT")
14963101012
1497"^DD",1130580001.101,1130580001.101,3.2,0)
1498QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X
1499"^DD",1130580001.101,1130580001.101,3.2,.1)
1500QRDA MEASURE CODE
1501"^DD",1130580001.101,1130580001.101,3.2,3)
1502Answer must be 1-80 characters in length
1503"^DD",1130580001.101,1130580001.101,3.2,"DT")
15043101012
1505"^DD",1130580001.101,1130580001.111,0)
1506VERY LONG DESCRIPTION SUB-FIELD^^.01^1
1507"^DD",1130580001.101,1130580001.111,0,"DT")
15083101013
1509"^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION")
1510
1511"^DD",1130580001.101,1130580001.111,0,"UP")
15121130580001.101
1513"^DD",1130580001.101,1130580001.111,.01,0)
1514VERY LONG DESCRIPTION^Wx^^0;1
1515"^DD",1130580001.101,1130580001.111,.01,.1)
1516LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6
1517"^DD",1130580001.101,1130580001.111,.01,3)
1518LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION
1519"^DD",1130580001.101,1130580001.111,.01,"DT")
15203101013
1521"^DD",1130580001.201,1130580001.201,0)
1522FIELD^^.2^9
1523"^DD",1130580001.201,1130580001.201,0,"DDA")
1524N
1525"^DD",1130580001.201,1130580001.201,0,"DT")
15263101012
1527"^DD",1130580001.201,1130580001.201,0,"IX","ADBYP",1130580001.20112,.01)
1528
1529"^DD",1130580001.201,1130580001.201,0,"IX","ANBYP",1130580001.20111,.01)
1530
1531"^DD",1130580001.201,1130580001.201,0,"IX","B",1130580001.201,.01)
1532
1533"^DD",1130580001.201,1130580001.201,0,"NM","C0Q MEASUREMENTS")
1534
1535"^DD",1130580001.201,1130580001.201,.01,0)
1536SET NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
1537"^DD",1130580001.201,1130580001.201,.01,.1)
1538MEASUREMENT SET NAME
1539"^DD",1130580001.201,1130580001.201,.01,1,0)
1540^.1
1541"^DD",1130580001.201,1130580001.201,.01,1,1,0)
15421130580001.201^B
1543"^DD",1130580001.201,1130580001.201,.01,1,1,1)
1544S ^C0Q(201,"B",$E(X,1,30),DA)=""
1545"^DD",1130580001.201,1130580001.201,.01,1,1,2)
1546K ^C0Q(201,"B",$E(X,1,30),DA)
1547"^DD",1130580001.201,1130580001.201,.01,3)
1548NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
1549"^DD",1130580001.201,1130580001.201,.01,"DT")
15503101012
1551"^DD",1130580001.201,1130580001.201,.02,0)
1552BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X
1553"^DD",1130580001.201,1130580001.201,.02,.1)
1554MEASUREMENT BEGIN DATE
1555"^DD",1130580001.201,1130580001.201,.02,3)
1556MEASUREMENT BEGIN DATE
1557"^DD",1130580001.201,1130580001.201,.02,"DT")
15583101012
1559"^DD",1130580001.201,1130580001.201,.03,0)
1560END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X
1561"^DD",1130580001.201,1130580001.201,.03,.1)
1562MEASUREMENT END DATE
1563"^DD",1130580001.201,1130580001.201,.03,3)
1564MEASUREMENT END DATE
1565"^DD",1130580001.201,1130580001.201,.03,"DT")
15663101012
1567"^DD",1130580001.201,1130580001.201,.04,0)
1568DATE LAST CALCULATED^D^^6;1^S %DT="E" D ^%DT S X=Y K:X<1 X
1569"^DD",1130580001.201,1130580001.201,.04,.1)
1570DATE LAST PROCESSED
1571"^DD",1130580001.201,1130580001.201,.04,3)
1572DATE LAST PROCESSED
1573"^DD",1130580001.201,1130580001.201,.04,"DT")
15743101012
1575"^DD",1130580001.201,1130580001.201,.05,0)
1576LOCKED^S^Y:YES;N:NO;^6;2^Q
1577"^DD",1130580001.201,1130580001.201,.05,.1)
1578Y/N IS THIS RECORD SET LOCKED
1579"^DD",1130580001.201,1130580001.201,.05,3)
1580Y/N IS THIS RECORD SET LOCKED
1581"^DD",1130580001.201,1130580001.201,.05,"DT")
15823101012
1583"^DD",1130580001.201,1130580001.201,.2,0)
1584USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q
1585"^DD",1130580001.201,1130580001.201,.2,.1)
1586INCLUDE ALL MEASURES IN THIS SET?
1587"^DD",1130580001.201,1130580001.201,.2,3)
1588INCLUDE ALL MEASURES IN THIS SET?
1589"^DD",1130580001.201,1130580001.201,.2,"DT")
15903101012
1591"^DD",1130580001.201,1130580001.201,1,0)
1592MEASURE^1130580001.2011P^^5;0
1593"^DD",1130580001.201,1130580001.2011,0)
1594MEASURE SUB-FIELD^^3^6
1595"^DD",1130580001.201,1130580001.2011,0,"DT")
15963101012
1597"^DD",1130580001.201,1130580001.2011,0,"IX","B",1130580001.2011,.01)
1598
1599"^DD",1130580001.201,1130580001.2011,0,"NM","MEASURE")
1600
1601"^DD",1130580001.201,1130580001.2011,0,"UP")
16021130580001.201
1603"^DD",1130580001.201,1130580001.2011,.01,0)
1604MEASURE^MP1130580001.101^C0Q(101,^0;1^Q
1605"^DD",1130580001.201,1130580001.2011,.01,.1)
1606INCLUDED QUALITY MEASURES
1607"^DD",1130580001.201,1130580001.2011,.01,1,0)
1608^.1
1609"^DD",1130580001.201,1130580001.2011,.01,1,1,0)
16101130580001.2011^B
1611"^DD",1130580001.201,1130580001.2011,.01,1,1,1)
1612S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)=""
1613"^DD",1130580001.201,1130580001.2011,.01,1,1,2)
1614K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)
1615"^DD",1130580001.201,1130580001.2011,.01,3)
1616INCLUDED QUALITY MEASURES
1617"^DD",1130580001.201,1130580001.2011,.01,"DT")
16183101012
1619"^DD",1130580001.201,1130580001.2011,1,0)
1620NUMERATOR^1130580001.20111P^^1;0
1621"^DD",1130580001.201,1130580001.2011,1.1,0)
1622NUMERATOR COUNT^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X
1623"^DD",1130580001.201,1130580001.2011,1.1,.1)
1624NUMBER OF PATIENTS IN NUMERATOR
1625"^DD",1130580001.201,1130580001.2011,1.1,3)
1626NUMBER OF PATIENTS IN NUMERATOR
1627"^DD",1130580001.201,1130580001.2011,1.1,"DT")
16283101012
1629"^DD",1130580001.201,1130580001.2011,2,0)
1630DENOMINATOR^1130580001.20112P^^3;0
1631"^DD",1130580001.201,1130580001.2011,2.1,0)
1632DENOMINATOR COUNT^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1.N) X
1633"^DD",1130580001.201,1130580001.2011,2.1,.1)
1634NUMBER OF PATIENTS IN DENOMINATOR
1635"^DD",1130580001.201,1130580001.2011,2.1,3)
1636NUMBER OF PATIENTS IN DENOMINATOR
1637"^DD",1130580001.201,1130580001.2011,2.1,"DT")
16383101012
1639"^DD",1130580001.201,1130580001.2011,3,0)
1640PERCENTAGE^NJ3,0^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1.N) X
1641"^DD",1130580001.201,1130580001.2011,3,.1)
1642MEASURE PERCENTAGE
1643"^DD",1130580001.201,1130580001.2011,3,3)
1644MEASURE PERCENTAGE
1645"^DD",1130580001.201,1130580001.2011,3,"DT")
16463101012
1647"^DD",1130580001.201,1130580001.20111,0)
1648NUMERATOR SUB-FIELD^^.01^1
1649"^DD",1130580001.201,1130580001.20111,0,"DT")
16503101012
1651"^DD",1130580001.201,1130580001.20111,0,"IX","B",1130580001.20111,.01)
1652
1653"^DD",1130580001.201,1130580001.20111,0,"NM","NUMERATOR")
1654
1655"^DD",1130580001.201,1130580001.20111,0,"UP")
16561130580001.2011
1657"^DD",1130580001.201,1130580001.20111,.01,0)
1658NUMERATOR^MP2'^DPT(^0;1^Q
1659"^DD",1130580001.201,1130580001.20111,.01,.1)
1660NUMERATOR PATIENTS
1661"^DD",1130580001.201,1130580001.20111,.01,1,0)
1662^.1
1663"^DD",1130580001.201,1130580001.20111,.01,1,1,0)
16641130580001.20111^B
1665"^DD",1130580001.201,1130580001.20111,.01,1,1,1)
1666S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
1667"^DD",1130580001.201,1130580001.20111,.01,1,1,2)
1668K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
1669"^DD",1130580001.201,1130580001.20111,.01,1,2,0)
16701130580001.201^ANBYP
1671"^DD",1130580001.201,1130580001.20111,.01,1,2,1)
1672S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)=""
1673"^DD",1130580001.201,1130580001.20111,.01,1,2,2)
1674K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)
1675"^DD",1130580001.201,1130580001.20111,.01,1,2,"DT")
16763101014
1677"^DD",1130580001.201,1130580001.20111,.01,3)
1678NUMERATOR PATIENTS
1679"^DD",1130580001.201,1130580001.20111,.01,"DT")
16803101014
1681"^DD",1130580001.201,1130580001.20112,0)
1682DENOMINATOR SUB-FIELD^^.01^1
1683"^DD",1130580001.201,1130580001.20112,0,"DT")
16843101012
1685"^DD",1130580001.201,1130580001.20112,0,"IX","B",1130580001.20112,.01)
1686
1687"^DD",1130580001.201,1130580001.20112,0,"NM","DENOMINATOR")
1688
1689"^DD",1130580001.201,1130580001.20112,0,"UP")
16901130580001.2011
1691"^DD",1130580001.201,1130580001.20112,.01,0)
1692DENOMINATOR^MP2'^DPT(^0;1^Q
1693"^DD",1130580001.201,1130580001.20112,.01,.1)
1694DENOMINATOR PATIENTS
1695"^DD",1130580001.201,1130580001.20112,.01,1,0)
1696^.1
1697"^DD",1130580001.201,1130580001.20112,.01,1,1,0)
16981130580001.20112^B
1699"^DD",1130580001.201,1130580001.20112,.01,1,1,1)
1700S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)=""
1701"^DD",1130580001.201,1130580001.20112,.01,1,1,2)
1702K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)
1703"^DD",1130580001.201,1130580001.20112,.01,1,2,0)
17041130580001.201^ADBYP
1705"^DD",1130580001.201,1130580001.20112,.01,1,2,1)
1706S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)=""
1707"^DD",1130580001.201,1130580001.20112,.01,1,2,2)
1708K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)
1709"^DD",1130580001.201,1130580001.20112,.01,1,2,"DT")
17103101014
1711"^DD",1130580001.201,1130580001.20112,.01,3)
1712DENOMINATOR PATIENTS
1713"^DD",1130580001.201,1130580001.20112,.01,"DT")
17143101014
1715"^DIC",1130580001.101,1130580001.101,0)
1716C0Q QUAILITY MEASURE^1130580001.101
1717"^DIC",1130580001.101,1130580001.101,0,"GL")
1718^C0Q(101,
1719"^DIC",1130580001.101,"B","C0Q QUAILITY MEASURE",1130580001.101)
1720
1721"^DIC",1130580001.201,1130580001.201,0)
1722C0Q MEASUREMENTS^1130580001.201
1723"^DIC",1130580001.201,1130580001.201,0,"GL")
1724^C0Q(201,
1725"^DIC",1130580001.201,"B","C0Q MEASUREMENTS",1130580001.201)
1726
1727**END**
1728**END**
Note: See TracBrowser for help on using the repository browser.