Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

C0Q_1_0_0_T1.KID@ 1015

Last change on this file since 1015 was 1014, checked in by George Lilly, 14 years ago
initial upload of C0Q Quality Reporting Package - used already for PQRI tests
File size: 49.6 KB

Line
1	KIDS Distribution saved on Nov 19, 2010@17:04:10
2	initial build of C0Q Quality Reporting Package
3	KIDS:C0Q1.00^
4
5	INSTALL NAME
6	C0Q1.00
7	"BLD",7338,0)
8	C0Q1.00^^0^3101119^n
9	"BLD",7338,4,0)
10	^9.64PA^1130580001.101^2
11	"BLD",7338,4,1130580001.101,0)
12	1130580001.101
13	"BLD",7338,4,1130580001.101,222)
14	y^y^f^^n^^y^o^n
15	"BLD",7338,4,1130580001.201,0)
16	1130580001.201
17	"BLD",7338,4,1130580001.201,222)
18	y^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)
24	1
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)
32	C0Q PRINT BY PATIENT FILE #1130580001.201^1130580001.201^0
33	"BLD",7338,"KRN",.4,"NM",2,0)
34	C0Q PRINT MEASUREMENT SET FILE #1130580001.201^1130580001.201^0
35	"BLD",7338,"KRN",.4,"NM",3,0)
36	C0Q 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)
50	C0Q MEASUREMENT SET DEFINE FILE #1130580001.201^1130580001.201^0
51	"BLD",7338,"KRN",.402,"NM",2,0)
52	C0Q 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)
64	3.6
65	"BLD",7338,"KRN",3.8,0)
66	3.8
67	"BLD",7338,"KRN",9.2,0)
68	9.2
69	"BLD",7338,"KRN",9.8,0)
70	9.8
71	"BLD",7338,"KRN",9.8,"NM",0)
72	^9.68A^1^1
73	"BLD",7338,"KRN",9.8,"NM",1,0)
74	C0QMAIN^^0^B69544556
75	"BLD",7338,"KRN",9.8,"NM","B","C0QMAIN",1)
76
77	"BLD",7338,"KRN",19,0)
78	19
79	"BLD",7338,"KRN",19,"NM",0)
80	^9.68A^11^11
81	"BLD",7338,"KRN",19,"NM",1,0)
82	C0Q BY PATIENT NUMERATOR^^0
83	"BLD",7338,"KRN",19,"NM",2,0)
84	C0Q DENOMINATOR PATIENT LIST^^0
85	"BLD",7338,"KRN",19,"NM",3,0)
86	C0Q DISPLAY MEASURE SET^^0
87	"BLD",7338,"KRN",19,"NM",4,0)
88	C0Q DISPLAY QUALITY MEASURES^^0
89	"BLD",7338,"KRN",19,"NM",5,0)
90	C0Q EXPORT CCR BY MEASURE^^0
91	"BLD",7338,"KRN",19,"NM",6,0)
92	C0Q EXPORT MEASURE SET^^0
93	"BLD",7338,"KRN",19,"NM",7,0)
94	C0Q LIST MEASURE SET^^0
95	"BLD",7338,"KRN",19,"NM",8,0)
96	C0Q MEASURE SET DEFINITION^^0
97	"BLD",7338,"KRN",19,"NM",9,0)
98	C0Q QUALITY MEASURE DEFINITION^^0
99	"BLD",7338,"KRN",19,"NM",10,0)
100	C0Q QUALITY MEASUREMENT MENU^^0
101	"BLD",7338,"KRN",19,"NM",11,0)
102	C0Q 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)
126	19.1
127	"BLD",7338,"KRN",101,0)
128	101
129	"BLD",7338,"KRN",409.61,0)
130	409.61
131	"BLD",7338,"KRN",771,0)
132	771
133	"BLD",7338,"KRN",779.2,0)
134	779.2
135	"BLD",7338,"KRN",870,0)
136	870
137	"BLD",7338,"KRN",8989.51,0)
138	8989.51
139	"BLD",7338,"KRN",8989.52,0)
140	8989.52
141	"BLD",7338,"KRN",8994,0)
142	8994
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)
184	M1^41^40^2.16.840.1.113883.3.249.11.2
185	"DATA",1130580001.101,1,1)
186	CMS Measure #1: Diabetes Mellitus: Hemoglobin A1c Poor Control in Diabetes Mellitus
187	"DATA",1130580001.101,1,4)
188	PQRI-1
189	"DATA",1130580001.101,1,5)
190	Hemoglobin 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)
194	Percentage of patients 18 through 75 years with diabetes melli
195	"DATA",1130580001.101,1,6,2,0)
196	tus who had most recent hemoglobin A1C greater than 9.0%
197	"DATA",1130580001.101,2,0)
198	M5^47^46^2.16.840.1.113883.3.249.11.5
199	"DATA",1130580001.101,2,1)
200	CMS 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)
202	PQRI-5
203	"DATA",1130580001.101,2,5)
204	Angiotensin-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)
208	Percentage of patients 18 years and older with a diagnosis of
209	"DATA",1130580001.101,2,6,2,0)
210	heart failure and LVSD who were prescribed an ACE inhbitor or ARB therapy
211	"DATA",1130580001.101,3,0)
212	M112^26^25^2.16.840.1.113883.3.249.11.9
213	"DATA",1130580001.101,3,1)
214	Measure #112: Preventive Care and Screening: Screening Mammography
215	"DATA",1130580001.101,3,4)
216	PQRI-112
217	"DATA",1130580001.101,3,5)
218	Screening Mammography
219	"DATA",1130580001.101,3,6,0)
220	^1130580001.111^2^2^3101014^^
221	"DATA",1130580001.101,3,6,1,0)
222	Percentage of womaen aged 40 through 69 years who had a mammog
223	"DATA",1130580001.101,3,6,2,0)
224	ram to screen for breast cancer within 24 months
225	"DATA",1130580001.101,4,0)
226	M124^33^33^2.16.840.1.113883.3.249.11.11
227	"DATA",1130580001.101,4,1)
228	Measure #124: Health Information Technology (HIT): Adoption/Use of Electronic Health Records
229	"DATA",1130580001.101,4,4)
230	PQRI-124
231	"DATA",1130580001.101,4,5)
232	Adoption/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)
236	Documents whether provider has adopted and is using health inf
237	"DATA",1130580001.101,4,6,2,0)
238	ormation technology. To qualify, the provider must havea adopted and be
239	"DATA",1130580001.101,4,6,3,0)
240	using a certified/qualified electronic health record (EHR)
241	"DATA",1130580001.101,5,0)
242	M128^58^31^2.16.840.1.113883.3.249.11.54
243	"DATA",1130580001.101,5,1)
244	Measure #128: Preventive Care and Screening: Body Mass Index (BMI) Screening and Follow-Up
245	"DATA",1130580001.101,5,4)
246	PQRI-128
247	"DATA",1130580001.101,5,5)
248	Body 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)
252	Percentage of patients aged 18 yesrs and older with a calculate BMI in
253	"DATA",1130580001.101,5,6,2,0)
254	the past 6 months or during the current visit documented in the medical
255	"DATA",1130580001.101,5,6,3,0)
256	record and if the most recent BMI is ourtide parameters, a follow-up plan
257	"DATA",1130580001.101,5,6,4,0)
258	is documented. Ages 65 and older BMI equal to or greater than 30 or less
259	"DATA",1130580001.101,5,6,5,0)
260	than 22 and ages 18-64, BMI greater than or equal to 25 or less than 18.5
261	"DATA",1130580001.101,6,0)
262	M47^20^48^2.16.840.1.113883.3.249.11.52
263	"DATA",1130580001.101,6,1)
264	Measure #47: Advance Care Plan
265	"DATA",1130580001.101,6,4)
266	PQRI-47
267	"DATA",1130580001.101,6,5)
268	Advance Care Plan
269	"DATA",1130580001.101,6,6,0)
270	^1130580001.111^5^5^3101014^^^
271	"DATA",1130580001.101,6,6,1,0)
272	Percentage of patients age 65 and older who have an advanced care plan or
273	"DATA",1130580001.101,6,6,2,0)
274	surrogate decision maker documented in the medical record or documented
275	"DATA",1130580001.101,6,6,3,0)
276	in the medical record that an advance care plan was discussed but the
277	"DATA",1130580001.101,6,6,4,0)
278	patient did not wish or was not able to name a surrogate decision maker
279	"DATA",1130580001.101,6,6,5,0)
280	or provide an advance care plan.
281	"DATA",1130580001.101,7,0)
282	M48^24^23^2.16.840.1.113883.3.249.11.53
283	"DATA",1130580001.101,7,1)
284	Measure #48: Urinary Incontinence: Assessment of Presence or Absence of Urinary Incontinence in Women Aged 65 Years and Older
285	"DATA",1130580001.101,7,4)
286	PQRI-48
287	"DATA",1130580001.101,7,5)
288	Assessment 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)
292	Percentage of patients equal to or older than 65 years of age at the
293	"DATA",1130580001.101,7,6,2,0)
294	beginning of the measurement perion who were assesed for the presence or
295	"DATA",1130580001.101,7,6,3,0)
296	absence of urinary incontinence within 12 months
297	"DATA",1130580001.101,8,0)
298	M2^43^42^2.16.840.1.113883.3.249.11.3
299	"DATA",1130580001.101,8,1)
300	Measure #2: Diabetes Mellitus: Low Density Lipoprotein (LDL-C) Control in Diabetes Mellitus
301	"DATA",1130580001.101,8,4)
302	PQRI-2
303	"DATA",1130580001.101,8,5)
304	Low 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)
308	Percentage of patients 18 through 75 years with diabetes melli
309	"DATA",1130580001.101,8,6,2,0)
310	tus who had most recent LDL-C level in control (less than 100 mg./dL)
311	"DATA",1130580001.101,9,0)
312	M3^45^44^2.16.840.1.113883.3.249.11.4
313	"DATA",1130580001.101,9,1)
314	CMS Measure #3: Diabetes Mellitus: High Blood Pressure Control in Diabetes Mellitus - QRDA Cat I template
315	"DATA",1130580001.101,9,4)
316	PQRI-3
317	"DATA",1130580001.101,9,5)
318	High 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)
322	Percentage of patients 18 through 75 years with diabetes melli
323	"DATA",1130580001.101,9,6,2,0)
324	tus who had most recent blood pressure in control (less than 140/80 mmHg)
325	"DATA",1130580001.101,10,0)
326	M7^35^34^2.16.840.1.113883.3.249.11.6
327	"DATA",1130580001.101,10,1)
328	CMS Measure #7: Coronary Artery Disease (CAD): Beta-Blocker Therapy for CAD Patients with Prior Myocardial Infarction (MI)
329	"DATA",1130580001.101,10,4)
330	PQRI-7
331	"DATA",1130580001.101,10,5)
332	Percentage 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)
336	Percentage of patients aged 18 years and older with a diagnosis of
337	"DATA",1130580001.101,10,6,2,0)
338	coronary artery disease and a prior MI who where prescribed beta-blocker
339	"DATA",1130580001.101,10,6,3,0)
340	therapy
341	"DATA",1130580001.101,11,0)
342	M110^81^80^2.16.840.1.113883.3.249.11.7
343	"DATA",1130580001.101,11,1)
344	Measure #110: Preventive Care and Screening: Influenza Immunization for Patients >= 50 Years
345	"DATA",1130580001.101,11,4)
346	PQRI-110
347	"DATA",1130580001.101,11,5)
348	Influenza 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)
352	Percentage 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)
356	M111^71^68^2.16.840.1.113883.3.249.11.8
357	"DATA",1130580001.101,12,1)
358	Measure #111: Preventive Care and Screening: Pneumonia Vaccination for Patients 65 Years and Older
359	"DATA",1130580001.101,12,4)
360	PQRI-111
361	"DATA",1130580001.101,12,5)
362	Pneumonia 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)
366	Percentage of patients afed 65 years and older who have ever r
367	"DATA",1130580001.101,12,6,2,0)
368	eceived a pneumoccal vaccine
369	"DATA",1130580001.101,13,0)
370	M113^67^66^2.16.840.1.113883.3.249.11.10
371	"DATA",1130580001.101,13,1)
372	Measure #113: Preventive Care and Screening: Colorectal Cancer Screening
373	"DATA",1130580001.101,13,4)
374	PQRI-113
375	"DATA",1130580001.101,13,5)
376	Colorectal Cancer Screening
377	"DATA",1130580001.101,13,6,0)
378	^^2^2^3101013^
379	"DATA",1130580001.101,13,6,1,0)
380	Percentage of patients aged 50 through 80 who received the app
381	"DATA",1130580001.101,13,6,2,0)
382	ropriate colorectal cancer screening
383	"DATA",1130580001.101,14,0)
384	M39^65^64^2.16.840.1.113883.3.249.11.51
385	"DATA",1130580001.101,14,1)
386	Measure #39: Screening or Therapy for Osteoporosis for Women Aged 65 Years and Older
387	"DATA",1130580001.101,14,4)
388	PQRI-39
389	"DATA",1130580001.101,14,5)
390	Screening 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)
394	Percentage of patients who had a DXA measurement ordered or pe
395	"DATA",1130580001.101,14,6,2,0)
396	rformed at least once since age 60 or pharmacologic therapy prescribed
397	"DATA",1130580001.101,14,6,3,0)
398	within 12 months before the end of the measurement period
399	"DATA",1130580001.101,16,0)
400	M173^50^49^2.16.840.1.113883.3.249.11.55
401	"DATA",1130580001.101,16,1)
402	Measure #173: Preventive Care and Screening: Unhealthy Alcohol Use - Screening
403	"DATA",1130580001.101,16,4)
404	PQRI-173
405	"DATA",1130580001.101,16,5)
406	Preventive 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)
410	Percentage of patients aged 18 years and older who were screen
411	"DATA",1130580001.101,16,6,2,0)
412	ed for unhealthy alcohol use using a systematic method within 24 months
413	"DATA",1130580001.101,17,0)
414	M0013^52^77^2.16.840.1.113883.3.249.11.56
415	"DATA",1130580001.101,17,1)
416	Measure #0013: Hypertension (HTN): Blood Pressure Measurement - QRDA Cat I template
417	"DATA",1130580001.101,17,4)
418	PQRI-13
419	"DATA",1130580001.101,17,5)
420	Hypertension (HTN): Blood Pressure Measurement
421	"DATA",1130580001.101,17,6,0)
422	^^3^3^3101013^
423	"DATA",1130580001.101,17,6,1,0)
424	Percentage of patients aged 18 years and older with a diagnosi
425	"DATA",1130580001.101,17,6,2,0)
426	s of hypertension in the beginning of the measurement period with a blood
427	"DATA",1130580001.101,17,6,3,0)
428	pressure recorded
429	"DATA",1130580001.101,18,0)
430	M0022^73^61^2.16.840.1.113883.3.249.11.57
431	"DATA",1130580001.101,18,1)
432	Measure #0022: Drugs to be avoided in the Elderly
433	"DATA",1130580001.101,18,4)
434	PQRI-22
435	"DATA",1130580001.101,18,5)
436	Drugs 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)
440	Percentage of patients aged 65 years and older who received at least one
441	"DATA",1130580001.101,18,6,2,0)
442	drug to be avoided in the elderly in the measurement period
443	"DATA",1130580001.101,19,0)
444	M0028^79^78^2.16.840.1.113883.3.249.11.59
445	"DATA",1130580001.101,19,1)
446	Measure #0028: Preventive Care and Screening: Tobacco Use: Screening and Cessation Intervention
447	"DATA",1130580001.101,19,4)
448	PQRI-28
449	"DATA",1130580001.101,19,5)
450	Preventive 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)
454	Percentage of patients aged 18 years of older who were screene
455	"DATA",1130580001.101,19,6,2,0)
456	d about tobacco use at least once during the two year measurement period
457	"DATA",1130580001.101,19,6,3,0)
458	AND who received smoking cessation counseling if identified as a tobacco
459	"DATA",1130580001.101,19,6,4,0)
460	user
461	"DATA",1130580001.101,20,0)
462	M0038^85^84^2.16.840.1.113883.3.249.11.60
463	"DATA",1130580001.101,20,1)
464	Measure #0038: Childhood Immunization Status
465	"DATA",1130580001.101,20,4)
466	PQRI-38
467	"DATA",1130580001.101,20,5)
468	Childhood immumnization status
469	"DATA",1130580001.101,20,6,0)
470	^^4^4^3101013^
471	"DATA",1130580001.101,20,6,1,0)
472	Percentage of children who turn two years of age during the me
473	"DATA",1130580001.101,20,6,2,0)
474	asurement period who have had 4 DTaP/DT, 3 IPV, 1 MMR and 3 H influenza
475	"DATA",1130580001.101,20,6,3,0)
476	type B, 3 hepatitis B, 1 chicken pox vaccine (VZV) and 4 pneumoccal
477	"DATA",1130580001.101,20,6,4,0)
478	conjugate vaccines by their second birthday
479	"DATA",1130580001.101,21,0)
480	M0024^72^70
481	"FIA",1130580001.101)
482	C0Q QUAILITY MEASURE
483	"FIA",1130580001.101,0)
484	^C0Q(101,
485	"FIA",1130580001.101,0,0)
486	1130580001.101
487	"FIA",1130580001.101,0,1)
488	y^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)
496	0
497	"FIA",1130580001.101,1130580001.111)
498	0
499	"FIA",1130580001.201)
500	C0Q MEASUREMENTS
501	"FIA",1130580001.201,0)
502	^C0Q(201,
503	"FIA",1130580001.201,0,0)
504	1130580001.201
505	"FIA",1130580001.201,0,1)
506	y^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)
514	0
515	"FIA",1130580001.201,1130580001.2011)
516	0
517	"FIA",1130580001.201,1130580001.20111)
518	0
519	"FIA",1130580001.201,1130580001.20112)
520	0
521	"KRN",.4,2540,-1)
522	0^3
523	"KRN",.4,2540,0)
524	C0Q PRINT QUALITY MEASURES^3101012.2017^@^1130580001.101^^@^3101015
525	"KRN",.4,2540,"F",2)
526	.01~.5~1~2~
527	"KRN",.4,2540,"H")
528	C0Q QUAILITY MEASURE LIST
529	"KRN",.4,2541,-1)
530	0^2
531	"KRN",.4,2541,0)
532	C0Q 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")
536	C0Q MEASUREMENTS LIST
537	"KRN",.4,2542,-1)
538	0^1
539	"KRN",.4,2542,0)
540	C0Q 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")
544	C0Q MEASUREMENTS LIST
545	"KRN",.402,2236,-1)
546	0^2
547	"KRN",.402,2236,0)
548	C0Q 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)
552	0^1
553	"KRN",.402,2237,0)
554	C0Q 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)
560	0^9
561	"KRN",19,13695,0)
562	C0Q QUALITY MEASURE DEFINITION^QUALITY MEASURE DEFINITION^^E^^^^^^^^
563	"KRN",19,13695,30)
564	C0Q(101,
565	"KRN",19,13695,31)
566	AEMQL
567	"KRN",19,13695,50)
568	C0Q(101,
569	"KRN",19,13695,51)
570	[C0Q QUALITY MEASURE DEFINITION]
571	"KRN",19,13695,"U")
572	QUALITY MEASURE DEFINITION
573	"KRN",19,13696,-1)
574	0^8
575	"KRN",19,13696,0)
576	C0Q MEASURE SET DEFINITION^MEASURE SET DEFINITION^^E^^^^^^^^
577	"KRN",19,13696,30)
578	C0Q(201,
579	"KRN",19,13696,31)
580	AEMQL
581	"KRN",19,13696,50)
582	C0Q(201,
583	"KRN",19,13696,51)
584	[C0Q MEASUREMENT SET DEFINE]
585	"KRN",19,13696,"U")
586	MEASURE SET DEFINITION
587	"KRN",19,13697,-1)
588	0^10
589	"KRN",19,13697,0)
590	C0Q 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)
594	13696
595	"KRN",19,13697,10,1,"^")
596	C0Q MEASURE SET DEFINITION
597	"KRN",19,13697,10,2,0)
598	13695
599	"KRN",19,13697,10,2,"^")
600	C0Q QUALITY MEASURE DEFINITION
601	"KRN",19,13697,10,5,0)
602	13700
603	"KRN",19,13697,10,5,"^")
604	C0Q LIST MEASURE SET
605	"KRN",19,13697,10,6,0)
606	13701
607	"KRN",19,13697,10,6,"^")
608	C0Q BY PATIENT NUMERATOR
609	"KRN",19,13697,10,7,0)
610	13702
611	"KRN",19,13697,10,7,"^")
612	C0Q DENOMINATOR PATIENT LIST
613	"KRN",19,13697,10,8,0)
614	13703
615	"KRN",19,13697,10,8,"^")
616	C0Q EXPORT CCR BY MEASURE
617	"KRN",19,13697,10,9,0)
618	13704
619	"KRN",19,13697,10,9,"^")
620	C0Q SUMMARY QUALITY MEASURES
621	"KRN",19,13697,10,10,0)
622	13705
623	"KRN",19,13697,10,10,"^")
624	C0Q EXPORT MEASURE SET
625	"KRN",19,13697,99)
626	62039,71770
627	"KRN",19,13697,"U")
628	QUALITY MEASUREMENT MENU
629	"KRN",19,13698,-1)
630	0^4
631	"KRN",19,13698,0)
632	C0Q DISPLAY QUALITY MEASURES^DISPLAY QUALITY MEASURES^^P^^^^^^^^
633	"KRN",19,13698,60)
634	C0Q(101,
635	"KRN",19,13698,62)
636	0
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")
646	DISPLAY QUALITY MEASURES
647	"KRN",19,13699,-1)
648	0^3
649	"KRN",19,13699,0)
650	C0Q DISPLAY MEASURE SET^DISPLAY MEASURE SET^^P^^^^^^^^
651	"KRN",19,13699,60)
652	C0Q(201,
653	"KRN",19,13699,62)
654	0
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")
664	DISPLAY MEASURE SET
665	"KRN",19,13700,-1)
666	0^7
667	"KRN",19,13700,0)
668	C0Q LIST MEASURE SET^LIST MEASURE SET^^R^^^^^^^^
669	"KRN",19,13700,25)
670	EN^C0QMAIN
671	"KRN",19,13700,"U")
672	LIST MEASURE SET
673	"KRN",19,13701,-1)
674	0^1
675	"KRN",19,13701,0)
676	C0Q BY PATIENT NUMERATOR^BY PATIENT NUMERATOR^^R^^^^^^^^
677	"KRN",19,13701,25)
678	NBYP^C0QMAIN
679	"KRN",19,13701,"U")
680	BY PATIENT NUMERATOR
681	"KRN",19,13702,-1)
682	0^2
683	"KRN",19,13702,0)
684	C0Q DENOMINATOR PATIENT LIST^DENOMINATOR PATIENT LIST^^R^^^^^^^^
685	"KRN",19,13702,25)
686	DBYP^C0QMAIN
687	"KRN",19,13702,"U")
688	DENOMINATOR PATIENT LIST
689	"KRN",19,13703,-1)
690	0^5
691	"KRN",19,13703,0)
692	C0Q EXPORT CCR BY MEASURE^EXPORT CCR BY MEASURE^^R^^^^^^^^
693	"KRN",19,13703,25)
694	EXPORT^C0QMAIN
695	"KRN",19,13703,"U")
696	EXPORT CCR BY MEASURE
697	"KRN",19,13704,-1)
698	0^11
699	"KRN",19,13704,0)
700	C0Q SUMMARY QUALITY MEASURES^SUMMARY QUALITY MEASURES^^R^^^^^^^^
701	"KRN",19,13704,25)
702	EN2^C0QMAIN
703	"KRN",19,13704,"U")
704	SUMMARY QUALITY MEASURES
705	"KRN",19,13705,-1)
706	0^6
707	"KRN",19,13705,0)
708	C0Q EXPORT MEASURE SET^ALL MEASURES EXPORT^^R^^^^^^^^
709	"KRN",19,13705,25)
710	ENEXP^C0QMAIN
711	"KRN",19,13705,"U")
712	ALL MEASURES EXPORT
713	"MBREQ")
714	0
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)
718	PRINT 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)
722	INPUT TEMPLATE
723	"ORD",18,19)
724	19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
725	"ORD",18,19,0)
726	OPTION
727	"QUES","XPF1",0)
728	Y
729	"QUES","XPF1","??")
730	^D REP^XPDH
731	"QUES","XPF1","A")
732	Shall I write over your \|FLAG\| File
733	"QUES","XPF1","B")
734	YES
735	"QUES","XPF1","M")
736	D XPF1^XPDIQ
737	"QUES","XPF2",0)
738	Y
739	"QUES","XPF2","??")
740	^D DTA^XPDH
741	"QUES","XPF2","A")
742	Want my data \|FLAG\| yours
743	"QUES","XPF2","B")
744	YES
745	"QUES","XPF2","M")
746	D XPF2^XPDIQ
747	"QUES","XPI1",0)
748	YO
749	"QUES","XPI1","??")
750	^D INHIBIT^XPDH
751	"QUES","XPI1","A")
752	Want KIDS to INHIBIT LOGONs during the install
753	"QUES","XPI1","B")
754	NO
755	"QUES","XPI1","M")
756	D XPI1^XPDIQ
757	"QUES","XPM1",0)
758	PO^VA(200,:EM
759	"QUES","XPM1","??")
760	^D MG^XPDH
761	"QUES","XPM1","A")
762	Enter the Coordinator for Mail Group '\|FLAG\|'
763	"QUES","XPM1","B")
764
765	"QUES","XPM1","M")
766	D XPM1^XPDIQ
767	"QUES","XPO1",0)
768	Y
769	"QUES","XPO1","??")
770	^D MENU^XPDH
771	"QUES","XPO1","A")
772	Want KIDS to Rebuild Menu Trees Upon Completion of Install
773	"QUES","XPO1","B")
774	NO
775	"QUES","XPO1","M")
776	D XPO1^XPDIQ
777	"QUES","XPZ1",0)
778	Y
779	"QUES","XPZ1","??")
780	^D OPT^XPDH
781	"QUES","XPZ1","A")
782	Want to DISABLE Scheduled Options, Menu Options, and Protocols
783	"QUES","XPZ1","B")
784	NO
785	"QUES","XPZ1","M")
786	D XPZ1^XPDIQ
787	"QUES","XPZ2",0)
788	Y
789	"QUES","XPZ2","??")
790	^D RTN^XPDH
791	"QUES","XPZ2","A")
792	Want to MOVE routines to other CPUs
793	"QUES","XPZ2","B")
794	NO
795	"QUES","XPZ2","M")
796	D XPZ2^XPDIQ
797	"RTN")
798	1
799	"RTN","C0QMAIN")
800	0^1^B69544556
801	"RTN","C0QMAIN",1,0)
802	C0QMAIN ; 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)
844	C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE
845	"RTN","C0QMAIN",23,0)
846	C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE
847	"RTN","C0QMAIN",24,0)
848	C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
849	"RTN","C0QMAIN",25,0)
850	C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE
851	"RTN","C0QMAIN",26,0)
852	C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE
853	"RTN","C0QMAIN",27,0)
854	RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE
855	"RTN","C0QMAIN",28,0)
856	RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE
857	"RTN","C0QMAIN",29,0)
858	;
859	"RTN","C0QMAIN",30,0)
860	EXPORT ; 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)
900	NBYP ; 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)
924	DBYP ; 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)
950	ENEXP ; 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)
966	EXP(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)
1010	PATS(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)
1070	EN ; 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)
1086	EN2 ; 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)
1104	C0QRPC(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)
1226	CLEARMEA(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)
1266	ADDPATS(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)
1310	DELIST(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)
1336	DELPATS(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)
1372	UPDIE ; 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")
1420	8.0^22.0
1421	"^DD",1130580001.101,1130580001.101,0)
1422	FIELD^^.61^9
1423	"^DD",1130580001.101,1130580001.101,0,"DDA")
1424	N
1425	"^DD",1130580001.101,1130580001.101,0,"DT")
1426	3101013
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)
1434	NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
1435	"^DD",1130580001.101,1130580001.101,.01,.1)
1436	MEASURE NAME
1437	"^DD",1130580001.101,1130580001.101,.01,1,0)
1438	^.1
1439	"^DD",1130580001.101,1130580001.101,.01,1,1,0)
1440	1130580001.101^B
1441	"^DD",1130580001.101,1130580001.101,.01,1,1,1)
1442	S ^C0Q(101,"B",$E(X,1,30),DA)=""
1443	"^DD",1130580001.101,1130580001.101,.01,1,1,2)
1444	K ^C0Q(101,"B",$E(X,1,30),DA)
1445	"^DD",1130580001.101,1130580001.101,.01,3)
1446	Answer must be 1-30 characters in length
1447	"^DD",1130580001.101,1130580001.101,.01,"DT")
1448	3101012
1449	"^DD",1130580001.101,1130580001.101,.5,0)
1450	SHORT DESCRIPTION^F^^1;1^K:$L(X)>240!($L(X)<3) X
1451	"^DD",1130580001.101,1130580001.101,.5,.1)
1452	MEASURE SHORT DESCRIPTION
1453	"^DD",1130580001.101,1130580001.101,.5,3)
1454	Answer must be 3-240 characters in length
1455	"^DD",1130580001.101,1130580001.101,.5,"DT")
1456	3101012
1457	"^DD",1130580001.101,1130580001.101,.61,0)
1458	VERY LONG DESCRIPTION^1130580001.111^^6;0
1459	"^DD",1130580001.101,1130580001.101,.7,0)
1460	DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X
1461	"^DD",1130580001.101,1130580001.101,.7,.1)
1462	QRDA DISPLAY NAME
1463	"^DD",1130580001.101,1130580001.101,.7,3)
1464	Answer must be 3-240 characters in length
1465	"^DD",1130580001.101,1130580001.101,.7,"DT")
1466	3101012
1467	"^DD",1130580001.101,1130580001.101,1,0)
1468	NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
1469	"^DD",1130580001.101,1130580001.101,1,.1)
1470	MEASURE NUMERATOR PATIENT LIST
1471	"^DD",1130580001.101,1130580001.101,1,"DT")
1472	3101012
1473	"^DD",1130580001.101,1130580001.101,2,0)
1474	DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
1475	"^DD",1130580001.101,1130580001.101,2,.1)
1476	MEASURE DENOMINATOR PATIENT LIST
1477	"^DD",1130580001.101,1130580001.101,2,"DT")
1478	3101012
1479	"^DD",1130580001.101,1130580001.101,3,0)
1480	QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X
1481	"^DD",1130580001.101,1130580001.101,3,.1)
1482	MEASURE TEMPLATE ROOT FOR QRDA DOCUMENT
1483	"^DD",1130580001.101,1130580001.101,3,3)
1484	Answer must be 3-120 characters in length
1485	"^DD",1130580001.101,1130580001.101,3,"DT")
1486	3101012
1487	"^DD",1130580001.101,1130580001.101,3.1,0)
1488	QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12"
1489	"^DD",1130580001.101,1130580001.101,3.1,.1)
1490	QRDA SYSTEM OID (FIXED)
1491	"^DD",1130580001.101,1130580001.101,3.1,9.01)
1492
1493	"^DD",1130580001.101,1130580001.101,3.1,9.1)
1494	S X="2.16.840.1.113883.3.249.12"
1495	"^DD",1130580001.101,1130580001.101,3.1,"DT")
1496	3101012
1497	"^DD",1130580001.101,1130580001.101,3.2,0)
1498	QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X
1499	"^DD",1130580001.101,1130580001.101,3.2,.1)
1500	QRDA MEASURE CODE
1501	"^DD",1130580001.101,1130580001.101,3.2,3)
1502	Answer must be 1-80 characters in length
1503	"^DD",1130580001.101,1130580001.101,3.2,"DT")
1504	3101012
1505	"^DD",1130580001.101,1130580001.111,0)
1506	VERY LONG DESCRIPTION SUB-FIELD^^.01^1
1507	"^DD",1130580001.101,1130580001.111,0,"DT")
1508	3101013
1509	"^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION")
1510
1511	"^DD",1130580001.101,1130580001.111,0,"UP")
1512	1130580001.101
1513	"^DD",1130580001.101,1130580001.111,.01,0)
1514	VERY LONG DESCRIPTION^Wx^^0;1
1515	"^DD",1130580001.101,1130580001.111,.01,.1)
1516	LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6
1517	"^DD",1130580001.101,1130580001.111,.01,3)
1518	LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION
1519	"^DD",1130580001.101,1130580001.111,.01,"DT")
1520	3101013
1521	"^DD",1130580001.201,1130580001.201,0)
1522	FIELD^^.2^9
1523	"^DD",1130580001.201,1130580001.201,0,"DDA")
1524	N
1525	"^DD",1130580001.201,1130580001.201,0,"DT")
1526	3101012
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)
1536	SET 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)
1538	MEASUREMENT SET NAME
1539	"^DD",1130580001.201,1130580001.201,.01,1,0)
1540	^.1
1541	"^DD",1130580001.201,1130580001.201,.01,1,1,0)
1542	1130580001.201^B
1543	"^DD",1130580001.201,1130580001.201,.01,1,1,1)
1544	S ^C0Q(201,"B",$E(X,1,30),DA)=""
1545	"^DD",1130580001.201,1130580001.201,.01,1,1,2)
1546	K ^C0Q(201,"B",$E(X,1,30),DA)
1547	"^DD",1130580001.201,1130580001.201,.01,3)
1548	NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
1549	"^DD",1130580001.201,1130580001.201,.01,"DT")
1550	3101012
1551	"^DD",1130580001.201,1130580001.201,.02,0)
1552	BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X
1553	"^DD",1130580001.201,1130580001.201,.02,.1)
1554	MEASUREMENT BEGIN DATE
1555	"^DD",1130580001.201,1130580001.201,.02,3)
1556	MEASUREMENT BEGIN DATE
1557	"^DD",1130580001.201,1130580001.201,.02,"DT")
1558	3101012
1559	"^DD",1130580001.201,1130580001.201,.03,0)
1560	END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X
1561	"^DD",1130580001.201,1130580001.201,.03,.1)
1562	MEASUREMENT END DATE
1563	"^DD",1130580001.201,1130580001.201,.03,3)
1564	MEASUREMENT END DATE
1565	"^DD",1130580001.201,1130580001.201,.03,"DT")
1566	3101012
1567	"^DD",1130580001.201,1130580001.201,.04,0)
1568	DATE 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)
1570	DATE LAST PROCESSED
1571	"^DD",1130580001.201,1130580001.201,.04,3)
1572	DATE LAST PROCESSED
1573	"^DD",1130580001.201,1130580001.201,.04,"DT")
1574	3101012
1575	"^DD",1130580001.201,1130580001.201,.05,0)
1576	LOCKED^S^Y:YES;N:NO;^6;2^Q
1577	"^DD",1130580001.201,1130580001.201,.05,.1)
1578	Y/N IS THIS RECORD SET LOCKED
1579	"^DD",1130580001.201,1130580001.201,.05,3)
1580	Y/N IS THIS RECORD SET LOCKED
1581	"^DD",1130580001.201,1130580001.201,.05,"DT")
1582	3101012
1583	"^DD",1130580001.201,1130580001.201,.2,0)
1584	USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q
1585	"^DD",1130580001.201,1130580001.201,.2,.1)
1586	INCLUDE ALL MEASURES IN THIS SET?
1587	"^DD",1130580001.201,1130580001.201,.2,3)
1588	INCLUDE ALL MEASURES IN THIS SET?
1589	"^DD",1130580001.201,1130580001.201,.2,"DT")
1590	3101012
1591	"^DD",1130580001.201,1130580001.201,1,0)
1592	MEASURE^1130580001.2011P^^5;0
1593	"^DD",1130580001.201,1130580001.2011,0)
1594	MEASURE SUB-FIELD^^3^6
1595	"^DD",1130580001.201,1130580001.2011,0,"DT")
1596	3101012
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")
1602	1130580001.201
1603	"^DD",1130580001.201,1130580001.2011,.01,0)
1604	MEASURE^MP1130580001.101^C0Q(101,^0;1^Q
1605	"^DD",1130580001.201,1130580001.2011,.01,.1)
1606	INCLUDED QUALITY MEASURES
1607	"^DD",1130580001.201,1130580001.2011,.01,1,0)
1608	^.1
1609	"^DD",1130580001.201,1130580001.2011,.01,1,1,0)
1610	1130580001.2011^B
1611	"^DD",1130580001.201,1130580001.2011,.01,1,1,1)
1612	S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)=""
1613	"^DD",1130580001.201,1130580001.2011,.01,1,1,2)
1614	K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)
1615	"^DD",1130580001.201,1130580001.2011,.01,3)
1616	INCLUDED QUALITY MEASURES
1617	"^DD",1130580001.201,1130580001.2011,.01,"DT")
1618	3101012
1619	"^DD",1130580001.201,1130580001.2011,1,0)
1620	NUMERATOR^1130580001.20111P^^1;0
1621	"^DD",1130580001.201,1130580001.2011,1.1,0)
1622	NUMERATOR 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)
1624	NUMBER OF PATIENTS IN NUMERATOR
1625	"^DD",1130580001.201,1130580001.2011,1.1,3)
1626	NUMBER OF PATIENTS IN NUMERATOR
1627	"^DD",1130580001.201,1130580001.2011,1.1,"DT")
1628	3101012
1629	"^DD",1130580001.201,1130580001.2011,2,0)
1630	DENOMINATOR^1130580001.20112P^^3;0
1631	"^DD",1130580001.201,1130580001.2011,2.1,0)
1632	DENOMINATOR 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)
1634	NUMBER OF PATIENTS IN DENOMINATOR
1635	"^DD",1130580001.201,1130580001.2011,2.1,3)
1636	NUMBER OF PATIENTS IN DENOMINATOR
1637	"^DD",1130580001.201,1130580001.2011,2.1,"DT")
1638	3101012
1639	"^DD",1130580001.201,1130580001.2011,3,0)
1640	PERCENTAGE^NJ3,0^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1.N) X
1641	"^DD",1130580001.201,1130580001.2011,3,.1)
1642	MEASURE PERCENTAGE
1643	"^DD",1130580001.201,1130580001.2011,3,3)
1644	MEASURE PERCENTAGE
1645	"^DD",1130580001.201,1130580001.2011,3,"DT")
1646	3101012
1647	"^DD",1130580001.201,1130580001.20111,0)
1648	NUMERATOR SUB-FIELD^^.01^1
1649	"^DD",1130580001.201,1130580001.20111,0,"DT")
1650	3101012
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")
1656	1130580001.2011
1657	"^DD",1130580001.201,1130580001.20111,.01,0)
1658	NUMERATOR^MP2'^DPT(^0;1^Q
1659	"^DD",1130580001.201,1130580001.20111,.01,.1)
1660	NUMERATOR PATIENTS
1661	"^DD",1130580001.201,1130580001.20111,.01,1,0)
1662	^.1
1663	"^DD",1130580001.201,1130580001.20111,.01,1,1,0)
1664	1130580001.20111^B
1665	"^DD",1130580001.201,1130580001.20111,.01,1,1,1)
1666	S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
1667	"^DD",1130580001.201,1130580001.20111,.01,1,1,2)
1668	K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
1669	"^DD",1130580001.201,1130580001.20111,.01,1,2,0)
1670	1130580001.201^ANBYP
1671	"^DD",1130580001.201,1130580001.20111,.01,1,2,1)
1672	S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)=""
1673	"^DD",1130580001.201,1130580001.20111,.01,1,2,2)
1674	K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)
1675	"^DD",1130580001.201,1130580001.20111,.01,1,2,"DT")
1676	3101014
1677	"^DD",1130580001.201,1130580001.20111,.01,3)
1678	NUMERATOR PATIENTS
1679	"^DD",1130580001.201,1130580001.20111,.01,"DT")
1680	3101014
1681	"^DD",1130580001.201,1130580001.20112,0)
1682	DENOMINATOR SUB-FIELD^^.01^1
1683	"^DD",1130580001.201,1130580001.20112,0,"DT")
1684	3101012
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")
1690	1130580001.2011
1691	"^DD",1130580001.201,1130580001.20112,.01,0)
1692	DENOMINATOR^MP2'^DPT(^0;1^Q
1693	"^DD",1130580001.201,1130580001.20112,.01,.1)
1694	DENOMINATOR PATIENTS
1695	"^DD",1130580001.201,1130580001.20112,.01,1,0)
1696	^.1
1697	"^DD",1130580001.201,1130580001.20112,.01,1,1,0)
1698	1130580001.20112^B
1699	"^DD",1130580001.201,1130580001.20112,.01,1,1,1)
1700	S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)=""
1701	"^DD",1130580001.201,1130580001.20112,.01,1,1,2)
1702	K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)
1703	"^DD",1130580001.201,1130580001.20112,.01,1,2,0)
1704	1130580001.201^ADBYP
1705	"^DD",1130580001.201,1130580001.20112,.01,1,2,1)
1706	S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)=""
1707	"^DD",1130580001.201,1130580001.20112,.01,1,2,2)
1708	K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)
1709	"^DD",1130580001.201,1130580001.20112,.01,1,2,"DT")
1710	3101014
1711	"^DD",1130580001.201,1130580001.20112,.01,3)
1712	DENOMINATOR PATIENTS
1713	"^DD",1130580001.201,1130580001.20112,.01,"DT")
1714	3101014
1715	"^DIC",1130580001.101,1130580001.101,0)
1716	C0Q 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)
1722	C0Q 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.

Download in other formats:

Original Format