source: qrda/C0Q/trunk/kids/C0Q_1.0_4@ 1520

Last change on this file since 1520 was 1518, checked in by Sam Habiel, 12 years ago

latest iteration
File size: 62.7 KB
Line 
1KIDS Distribution saved on Aug 02, 2012@02:46:22
2fghjkl;
3**KIDS**:C0Q*1.0*4^
4
5**INSTALL NAME**
6C0Q*1.0*4
7"BLD",7936,0)
8C0Q*1.0*4^QUALITY MEASURES^0^3120802^y
9"BLD",7936,1,0)
10^^1^1^3120802^^
11"BLD",7936,1,1,0)
12QRDA Support.
13"BLD",7936,4,0)
14^9.64PA^1130580001.401^3
15"BLD",7936,4,1130580001.101,0)
161130580001.101
17"BLD",7936,4,1130580001.101,222)
18y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n
19"BLD",7936,4,1130580001.101,224)
20
21"BLD",7936,4,1130580001.201,0)
221130580001.201
23"BLD",7936,4,1130580001.201,222)
24y^y^f^^y^C0Q 1P0*4 MS^y^o^n
25"BLD",7936,4,1130580001.401,0)
261130580001.401
27"BLD",7936,4,1130580001.401,2,0)
28^9.641^1130580001.401^1
29"BLD",7936,4,1130580001.401,2,1130580001.401,0)
30C0Q PARAMETER (File-top level)
31"BLD",7936,4,1130580001.401,2,1130580001.401,1,0)
32^9.6411^5.3^3
33"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.1,0)
34VTE CMS MEASUREMENT SET
35"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.2,0)
36STK CMS MEASUREMENT SET
37"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.3,0)
38ED CMS MEASUREMENT SET
39"BLD",7936,4,1130580001.401,222)
40y^y^p^^^^n^^n
41"BLD",7936,4,1130580001.401,224)
42
43"BLD",7936,4,"APDD",1130580001.401,1130580001.401)
44
45"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.1)
46
47"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.2)
48
49"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.3)
50
51"BLD",7936,4,"B",1130580001.101,1130580001.101)
52
53"BLD",7936,4,"B",1130580001.201,1130580001.201)
54
55"BLD",7936,4,"B",1130580001.401,1130580001.401)
56
57"BLD",7936,6.3)
5823
59"BLD",7936,"KRN",0)
60^9.67PA^779.2^20
61"BLD",7936,"KRN",.4,0)
62.4
63"BLD",7936,"KRN",.401,0)
64.401
65"BLD",7936,"KRN",.402,0)
66.402
67"BLD",7936,"KRN",.402,"NM",0)
68^9.68A^2^2
69"BLD",7936,"KRN",.402,"NM",1,0)
70C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0
71"BLD",7936,"KRN",.402,"NM",2,0)
72C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0
73"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",1)
74
75"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",2)
76
77"BLD",7936,"KRN",.403,0)
78.403
79"BLD",7936,"KRN",.5,0)
80.5
81"BLD",7936,"KRN",.84,0)
82.84
83"BLD",7936,"KRN",3.6,0)
843.6
85"BLD",7936,"KRN",3.8,0)
863.8
87"BLD",7936,"KRN",9.2,0)
889.2
89"BLD",7936,"KRN",9.8,0)
909.8
91"BLD",7936,"KRN",9.8,"NM",0)
92^9.68A^1^1
93"BLD",7936,"KRN",9.8,"NM",1,0)
94C0QQRDA^^0^B59175834
95"BLD",7936,"KRN",9.8,"NM","B","C0QQRDA",1)
96
97"BLD",7936,"KRN",19,0)
9819
99"BLD",7936,"KRN",19,"NM",0)
100^9.68A^3^3
101"BLD",7936,"KRN",19,"NM",1,0)
102C0Q QRDA MENU^^0
103"BLD",7936,"KRN",19,"NM",2,0)
104C0Q EXPORT INPATIENT QRDA CCRS^^0
105"BLD",7936,"KRN",19,"NM",3,0)
106C0Q QUALITY MEASUREMENT MENU^^2
107"BLD",7936,"KRN",19,"NM","B","C0Q EXPORT INPATIENT QRDA CCRS",2)
108
109"BLD",7936,"KRN",19,"NM","B","C0Q QRDA MENU",1)
110
111"BLD",7936,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",3)
112
113"BLD",7936,"KRN",19.1,0)
11419.1
115"BLD",7936,"KRN",101,0)
116101
117"BLD",7936,"KRN",409.61,0)
118409.61
119"BLD",7936,"KRN",771,0)
120771
121"BLD",7936,"KRN",779.2,0)
122779.2
123"BLD",7936,"KRN",870,0)
124870
125"BLD",7936,"KRN",8989.51,0)
1268989.51
127"BLD",7936,"KRN",8989.52,0)
1288989.52
129"BLD",7936,"KRN",8994,0)
1308994
131"BLD",7936,"KRN","B",.4,.4)
132
133"BLD",7936,"KRN","B",.401,.401)
134
135"BLD",7936,"KRN","B",.402,.402)
136
137"BLD",7936,"KRN","B",.403,.403)
138
139"BLD",7936,"KRN","B",.5,.5)
140
141"BLD",7936,"KRN","B",.84,.84)
142
143"BLD",7936,"KRN","B",3.6,3.6)
144
145"BLD",7936,"KRN","B",3.8,3.8)
146
147"BLD",7936,"KRN","B",9.2,9.2)
148
149"BLD",7936,"KRN","B",9.8,9.8)
150
151"BLD",7936,"KRN","B",19,19)
152
153"BLD",7936,"KRN","B",19.1,19.1)
154
155"BLD",7936,"KRN","B",101,101)
156
157"BLD",7936,"KRN","B",409.61,409.61)
158
159"BLD",7936,"KRN","B",771,771)
160
161"BLD",7936,"KRN","B",779.2,779.2)
162
163"BLD",7936,"KRN","B",870,870)
164
165"BLD",7936,"KRN","B",8989.51,8989.51)
166
167"BLD",7936,"KRN","B",8989.52,8989.52)
168
169"BLD",7936,"KRN","B",8994,8994)
170
171"BLD",7936,"PRET")
172TRAN^C0Q1P4
173"BLD",7936,"QDEF")
174^^^^NO^^^^YES^^NO
175"BLD",7936,"QUES",0)
176^9.62^^
177"BLD",7936,"REQB",0)
178^9.611^2^2
179"BLD",7936,"REQB",1,0)
180CCD/CCR GENERATION UTILITIES 1.2^2
181"BLD",7936,"REQB",2,0)
182QUALITY MEASURES 1.0^2
183"BLD",7936,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1)
184
185"BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2)
186
187"DATA",1130580001.101,23,0)
188MU HOS NQF 0495^^^2.16.840.1.113883.3.249.11.14.2.1.2.2
189"DATA",1130580001.101,23,1)
190ED THROUGHPUT ARRIVAL TO DEPARTURE
191"DATA",1130580001.101,23,5)
192ED THROUGHPUT ARRIVAL TO DEPARTURE
193"DATA",1130580001.101,23,6,0)
194^1130580001.111^3^3^3110430^^^^
195"DATA",1130580001.101,23,6,1,0)
196Median time from emergency department arrival to time of departure from
197"DATA",1130580001.101,23,6,2,0)
198the emergency room for patients admitted to the facility from the
199"DATA",1130580001.101,23,6,3,0)
200emergency department
201"DATA",1130580001.101,23,7)
202NQF0495^^^^^^88^165
203"DATA",1130580001.101,24,0)
204MU HOS NQF 0497^^^2.16.840.1.113883.3.249.11.14.3.1.2.2
205"DATA",1130580001.101,24,1)
206ED THROUGHPUT ADMITTING DECISION TO DEPARTURE
207"DATA",1130580001.101,24,5)
208ED THROUGHPUT ADMITTING DECISION TO DEPARTURE
209"DATA",1130580001.101,24,6,0)
210^^3^3^3110430^
211"DATA",1130580001.101,24,6,1,0)
212Median time from admit decision time to time of departure from the
213"DATA",1130580001.101,24,6,2,0)
214emergency department of emergency department patients admitted to
215"DATA",1130580001.101,24,6,3,0)
216inpatient status
217"DATA",1130580001.101,24,7)
218NQF0497^^^^^^90^168
219"DATA",1130580001.101,25,0)
220MU HOS NQF 0435^^^1.3.6.1.4.1.33895.1.2.16001.1.2.2
221"DATA",1130580001.101,25,1)
222Ischemic stroke.Discharge on anti-thrombotics
223"DATA",1130580001.101,25,5)
224 Ischemic stroke.Discharge on anti-thrombotic
225"DATA",1130580001.101,25,6,0)
226^^2^2^3110430^
227"DATA",1130580001.101,25,6,1,0)
228Ischemic stroke patients prescribed antithrombotic therapy at hospital
229"DATA",1130580001.101,25,6,2,0)
230discharge
231"DATA",1130580001.101,25,7)
232NQF0435^^^^^^114^115
233"DATA",1130580001.101,26,0)
234MU HOS NQF 0436^^^1.3.6.1.4.1.33895.1.2.16002.1.2.2
235"DATA",1130580001.101,26,1)
236 Ischemic stroke.Anticoagulation for A-fib/flutter
237"DATA",1130580001.101,26,5)
238Ischemic stroke.Anticoagulation for A-fib/flutter
239"DATA",1130580001.101,26,6,0)
240^1130580001.111^2^2^3110430^^^
241"DATA",1130580001.101,26,6,1,0)
242 Ischemic stroke patients with atrial fibrillation/flutter who are
243"DATA",1130580001.101,26,6,2,0)
244prescribed anticoagulation therapy at hospital discharge
245"DATA",1130580001.101,26,7)
246NQF0436^^^^^^116^117
247"DATA",1130580001.101,27,0)
248MU HOS NQF 0437^^^1.3.6.1.4.1.33895.1.2.16003.1.2.2
249"DATA",1130580001.101,27,1)
250 Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset
251"DATA",1130580001.101,27,5)
252Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset
253"DATA",1130580001.101,27,6,0)
254^^3^3^3110430^
255"DATA",1130580001.101,27,6,1,0)
256Acute ischemic stroke patients who arrive at this hospital within 2
257"DATA",1130580001.101,27,6,2,0)
258hours of time last known well and for whom IV t-PA was initiated at this
259"DATA",1130580001.101,27,6,3,0)
260hospital within 3 hours of time last known well.
261"DATA",1130580001.101,27,7)
262NQF0437^^^^^^119^118
263"DATA",1130580001.101,28,0)
264MU HOS NQF 0438^^^1.3.6.1.4.1.33895.1.2.16004.1.2.2
265"DATA",1130580001.101,28,1)
266Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2
267"DATA",1130580001.101,28,5)
268Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2
269"DATA",1130580001.101,28,6,0)
270^^2^2^3110430^
271"DATA",1130580001.101,28,6,1,0)
272Ischemic stroke patients administered antithrombotic therapy by the
273"DATA",1130580001.101,28,6,2,0)
274end of hospital day 2.
275"DATA",1130580001.101,28,7)
276NQF0438^^^^^^120^121
277"DATA",1130580001.101,29,0)
278MU HOS NQF 0439^^^1.3.6.1.4.1.33895.1.2.16005.1.2.2
279"DATA",1130580001.101,29,1)
280Ischemic stroke.Discharge on statins
281"DATA",1130580001.101,29,5)
282Ischemic stroke.Discharge on statins
283"DATA",1130580001.101,29,6,0)
284^^3^3^3110430^
285"DATA",1130580001.101,29,6,1,0)
286Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or,
287"DATA",1130580001.101,29,6,2,0)
288who were on a lipid-lowering medication prior to hospital arrival are
289"DATA",1130580001.101,29,6,3,0)
290prescribed statin medication at hospital discharge
291"DATA",1130580001.101,29,7)
292NQF0439^^^^^^122^123
293"DATA",1130580001.101,30,0)
294MU HOS NQF 0440^^^1.3.6.1.4.1.33895.1.2.16007.1.2.2
295"DATA",1130580001.101,30,1)
296Ischemic or hemorrhagic stroke.Stroke education
297"DATA",1130580001.101,30,5)
298Ischemic or hemorrhagic stroke.Stroke education
299"DATA",1130580001.101,30,6,0)
300^^5^5^3110430^
301"DATA",1130580001.101,30,6,1,0)
302Ischemic or hemorrhagic stroke patients or their caregivers who were
303"DATA",1130580001.101,30,6,2,0)
304given educational materials during the hospital stay addressing all of the
305"DATA",1130580001.101,30,6,3,0)
306following: activation of emergency medical system, need for follow-up
307"DATA",1130580001.101,30,6,4,0)
308after discharge, medications prescribed at discharge, risk factors for
309"DATA",1130580001.101,30,6,5,0)
310stroke, and warning signs and symptoms of stroke.
311"DATA",1130580001.101,30,7)
312NQF0440^^^^^^124^125
313"DATA",1130580001.101,31,0)
314MU HOS NQF 0441^^^1.3.6.1.4.1.33895.1.2.16008.1.2.2
315"DATA",1130580001.101,31,1)
316Ischemic or hemorrhagic stroke.Rehabilitation assessment
317"DATA",1130580001.101,31,5)
318Ischemic or hemorrhagic stroke.Rehabilitation assessment
319"DATA",1130580001.101,31,6,0)
320^^2^2^3110430^
321"DATA",1130580001.101,31,6,1,0)
322Ischemic or hemorrhagic stroke patients who were assessed for
323"DATA",1130580001.101,31,6,2,0)
324rehabilitation services.
325"DATA",1130580001.101,31,7)
326NQF0441^^^^^^126^127
327"DATA",1130580001.101,32,0)
328MU HOS NQF 0371^^^1.3.6.1.4.1.33895.1.2.15971.1.2.2
329"DATA",1130580001.101,32,1)
330VTE prophylaxis within 24 hours of arrival
331"DATA",1130580001.101,32,5)
332VTE prophylaxis within 24 hours of arrival
333"DATA",1130580001.101,32,6,0)
334^^4^4^3110430^
335"DATA",1130580001.101,32,6,1,0)
336This measure assesses the number of patients who received VTE prophylaxis
337"DATA",1130580001.101,32,6,2,0)
338or have documentation why no VTE prophylaxis was given the day of or the
339"DATA",1130580001.101,32,6,3,0)
340day after hospital admission or surgery end date for surgeries that start
341"DATA",1130580001.101,32,6,4,0)
342the day of or the day after hospital admission.
343"DATA",1130580001.101,32,7)
344NQF0371^^^^^^69^67
345"DATA",1130580001.101,33,0)
346MU HOS NQF 0372^^^1.3.6.1.4.1.33895.1.2.15972.1.2.2
347"DATA",1130580001.101,33,1)
348ICU VTE prophylaxis
349"DATA",1130580001.101,33,5)
350ICU VTE prophylaxis
351"DATA",1130580001.101,33,6,0)
352^^5^5^3110430^
353"DATA",1130580001.101,33,6,1,0)
354This measure assesses the number of patients who received VTE prophylaxis
355"DATA",1130580001.101,33,6,2,0)
356or have documentation why no VTE prophylaxis was given the day of or the
357"DATA",1130580001.101,33,6,3,0)
358day after the initial admission (or transfer) to the Intensive Care Unit
359"DATA",1130580001.101,33,6,4,0)
360(ICU) or surgery end date for surgeries that start the day of or the day
361"DATA",1130580001.101,33,6,5,0)
362after ICU admission (or transfer).
363"DATA",1130580001.101,33,7)
364NQF0372^^^^^^128^71
365"DATA",1130580001.101,34,0)
366MU HOS NQF 0373^^^1.3.6.1.4.1.33895.1.2.15973.1.2.2
367"DATA",1130580001.101,34,1)
368Anticoagulation overlap therapy
369"DATA",1130580001.101,34,5)
370Anticoagulation overlap therapy
371"DATA",1130580001.101,34,6,0)
372^^8^8^3110430^
373"DATA",1130580001.101,34,6,1,0)
374This measure assesses the number of patients diagnosed with confirmed VTE
375"DATA",1130580001.101,34,6,2,0)
376who received an overlap of parenteral (intravenous [IV] or subcutaneous
377"DATA",1130580001.101,34,6,3,0)
378[subcu]) anticoagulation and warfarin therapy. For patients who received
379"DATA",1130580001.101,34,6,4,0)
380less than five days of overlap therapy, they must be discharged on both
381"DATA",1130580001.101,34,6,5,0)
382medications. Overlap therapy must be administered for at least five days
383"DATA",1130580001.101,34,6,6,0)
384with an international normalized ratio (INR) . 2 prior to discontinuation
385"DATA",1130580001.101,34,6,7,0)
386of the parenteral anticoagulation therapy or the patient must be
387"DATA",1130580001.101,34,6,8,0)
388discharged on both medications.
389"DATA",1130580001.101,34,7)
390NQF0373^^^^^^129^144
391"DATA",1130580001.101,35,0)
392MU HOS NQF 0374^^^1.3.6.1.4.1.33895.1.2.15974.1.2.2
393"DATA",1130580001.101,35,1)
394Platelet monitoring on unfractionated heparin
395"DATA",1130580001.101,35,5)
396Platelet monitoring on unfractionated heparin
397"DATA",1130580001.101,35,6,0)
398^^10^10^3110430^
399"DATA",1130580001.101,35,6,1,0)
400This measure assesses the number of patients diagnosed with confirmed VTE
401"DATA",1130580001.101,35,6,2,0)
402who received intravenous (IV) UFH therapy dosages AND had their platelet
403"DATA",1130580001.101,35,6,3,0)
404counts monitored using defined parameters such as a nomogram or
405"DATA",1130580001.101,35,6,4,0)
406protocol This measure assesses the number of patients diagnosed with
407"DATA",1130580001.101,35,6,5,0)
408confirmed VTE who received intravenous (IV) UFH therapy dosages AND had
409"DATA",1130580001.101,35,6,6,0)
410their platelet counts monitored using defined parameters such as a
411"DATA",1130580001.101,35,6,7,0)
412nomogram or protocol This measure assesses the number of patients
413"DATA",1130580001.101,35,6,8,0)
414diagnosed with confirmed VTE who received intravenous (IV) UFH therapy
415"DATA",1130580001.101,35,6,9,0)
416dosages AND had their platelet counts monitored using defined parameters
417"DATA",1130580001.101,35,6,10,0)
418such as a nomogram or protocol
419"DATA",1130580001.101,35,7)
420NQF0374^^^^^^145^146
421"DATA",1130580001.101,36,0)
422MU HOS NQF 0375^^^1.3.6.1.4.1.33895.1.2.15975.1.2.2
423"DATA",1130580001.101,36,1)
424VTE discharge instructions
425"DATA",1130580001.101,36,5)
426VTE discharge instructions
427"DATA",1130580001.101,36,6,0)
428^^11^11^3110430^
429"DATA",1130580001.101,36,6,1,0)
430This measure assesses the number of patients diagnosed with confirmed VTE
431"DATA",1130580001.101,36,6,2,0)
432that are discharged to home, to home with home health, home hospice or
433"DATA",1130580001.101,36,6,3,0)
434discharged/transferred to court/law enforcement on warfarin with written
435"DATA",1130580001.101,36,6,4,0)
436discharge instructions that address all four criteria: compliance issues,
437"DATA",1130580001.101,36,6,5,0)
438dietary advice, follow-up This measure assesses the number of patients
439"DATA",1130580001.101,36,6,6,0)
440diagnosed with confirmed VTE that are discharged to home, to home with
441"DATA",1130580001.101,36,6,7,0)
442home health, home hospice or discharged/transferred to court/law
443"DATA",1130580001.101,36,6,8,0)
444enforcement on warfarin with written discharge instructions that address
445"DATA",1130580001.101,36,6,9,0)
446all four criteria: compliance issues, dietary advice, follow-up
447"DATA",1130580001.101,36,6,10,0)
448monitoring, and information about the potential for adverse drug
449"DATA",1130580001.101,36,6,11,0)
450reactions/interactions.
451"DATA",1130580001.101,36,7)
452NQF0375^^^^^^147^156
453"DATA",1130580001.101,37,0)
454MU HOS NQF 0376^^^1.3.6.1.4.1.33895.1.2.15976.1.2.2
455"DATA",1130580001.101,37,1)
456Incidence of potentially preventable VTE
457"DATA",1130580001.101,37,5)
458Incidence of potentially preventable VTE
459"DATA",1130580001.101,37,6,0)
460^^4^4^3110430^
461"DATA",1130580001.101,37,6,1,0)
462This measure assesses the number of patients diagnosed with confirmed VTE
463"DATA",1130580001.101,37,6,2,0)
464during hospitalization (not present on arrival) who did not receive VTE
465"DATA",1130580001.101,37,6,3,0)
466prophylaxis between hospital admission and the day before the VTE
467"DATA",1130580001.101,37,6,4,0)
468diagnostic testing order date.
469"DATA",1130580001.101,37,7)
470NQF0376^^^^^^158^162
471"DATA",1130580001.201,10,0)
472VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1
473"DATA",1130580001.201,10,4)
474^^3120101^3121231
475"DATA",1130580001.201,10,5,0)
476^1130580001.2011P^6^6
477"DATA",1130580001.201,10,5,1,0)
47832
479"DATA",1130580001.201,10,5,2,0)
48033
481"DATA",1130580001.201,10,5,3,0)
48234
483"DATA",1130580001.201,10,5,4,0)
48435
485"DATA",1130580001.201,10,5,5,0)
48636
487"DATA",1130580001.201,10,5,6,0)
48837
489"DATA",1130580001.201,10,6)
490^
491"DATA",1130580001.201,10,7)
492MU12
493"DATA",1130580001.201,11,0)
494STK CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.31.1.2.1
495"DATA",1130580001.201,11,4)
496^^3120101^3121231
497"DATA",1130580001.201,11,5,0)
498^1130580001.2011P^7^7
499"DATA",1130580001.201,11,5,1,0)
50025
501"DATA",1130580001.201,11,5,2,0)
50226
503"DATA",1130580001.201,11,5,3,0)
50427
505"DATA",1130580001.201,11,5,4,0)
50628
507"DATA",1130580001.201,11,5,5,0)
50829
509"DATA",1130580001.201,11,5,6,0)
51030
511"DATA",1130580001.201,11,5,7,0)
51231
513"DATA",1130580001.201,11,6)
514^
515"DATA",1130580001.201,11,7)
516MU12
517"DATA",1130580001.201,12,0)
518ED CMS REPORTING MEASURES^2.16.840.1.113883.3.249.11.14.1.1.1
519"DATA",1130580001.201,12,4)
520^^3120101^3121213
521"DATA",1130580001.201,12,5,0)
522^1130580001.2011P^2^2
523"DATA",1130580001.201,12,5,1,0)
52423
525"DATA",1130580001.201,12,5,2,0)
52624
527"DATA",1130580001.201,12,6)
528^
529"DATA",1130580001.201,12,7)
530MU12
531"FIA",1130580001.101)
532C0Q QUALITY MEASURE
533"FIA",1130580001.101,0)
534^C0Q(101,
535"FIA",1130580001.101,0,0)
5361130580001.101I
537"FIA",1130580001.101,0,1)
538y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n
539"FIA",1130580001.101,0,10)
540
541"FIA",1130580001.101,0,11)
542
543"FIA",1130580001.101,0,"RLRO")
544^DIBT(920,1)
545"FIA",1130580001.101,0,"VR")
5461.0^C0Q
547"FIA",1130580001.101,1130580001.101)
5480
549"FIA",1130580001.101,1130580001.111)
5500
551"FIA",1130580001.201)
552C0Q MEASUREMENT SET
553"FIA",1130580001.201,0)
554^C0Q(201,
555"FIA",1130580001.201,0,0)
5561130580001.201
557"FIA",1130580001.201,0,1)
558y^y^f^^y^C0Q 1P0*4 MS^y^o^n
559"FIA",1130580001.201,0,10)
560
561"FIA",1130580001.201,0,11)
562
563"FIA",1130580001.201,0,"RLRO")
564^DIBT(921,1)
565"FIA",1130580001.201,0,"VR")
5661.0^C0Q
567"FIA",1130580001.201,1130580001.201)
5680
569"FIA",1130580001.201,1130580001.2011)
5700
571"FIA",1130580001.201,1130580001.20111)
5720
573"FIA",1130580001.201,1130580001.20112)
5740
575"FIA",1130580001.401)
576C0Q PARAMETER
577"FIA",1130580001.401,0)
578^C0Q(401,
579"FIA",1130580001.401,0,0)
5801130580001.401
581"FIA",1130580001.401,0,1)
582y^y^p^^^^n^^n
583"FIA",1130580001.401,0,10)
584
585"FIA",1130580001.401,0,11)
586
587"FIA",1130580001.401,0,"RLRO")
588
589"FIA",1130580001.401,0,"VR")
5901.0^C0Q
591"FIA",1130580001.401,1130580001.401)
5921
593"FIA",1130580001.401,1130580001.401,5.1)
594
595"FIA",1130580001.401,1130580001.401,5.2)
596
597"FIA",1130580001.401,1130580001.401,5.3)
598
599"FRV1",1130580001.101,"23,7",7)
600MU ED-1 NUMER RS
601"FRV1",1130580001.101,"23,7",7,"F")
602;PXRM(810.4,
603"FRV1",1130580001.101,"23,7",8)
604MU ED-1 DENOM RS
605"FRV1",1130580001.101,"23,7",8,"F")
606;PXRM(810.4,
607"FRV1",1130580001.101,"24,7",7)
608MU ED-2 NUMER RS
609"FRV1",1130580001.101,"24,7",7,"F")
610;PXRM(810.4,
611"FRV1",1130580001.101,"24,7",8)
612MU ED-2 DENOM RS
613"FRV1",1130580001.101,"24,7",8,"F")
614;PXRM(810.4,
615"FRV1",1130580001.101,"25,7",7)
616MU STK-2 NUMER RS
617"FRV1",1130580001.101,"25,7",7,"F")
618;PXRM(810.4,
619"FRV1",1130580001.101,"25,7",8)
620MU STK-2 DENOM RS
621"FRV1",1130580001.101,"25,7",8,"F")
622;PXRM(810.4,
623"FRV1",1130580001.101,"26,7",7)
624MU STK-3 NUMER RS
625"FRV1",1130580001.101,"26,7",7,"F")
626;PXRM(810.4,
627"FRV1",1130580001.101,"26,7",8)
628MU STK-3 DENOM RS
629"FRV1",1130580001.101,"26,7",8,"F")
630;PXRM(810.4,
631"FRV1",1130580001.101,"27,7",7)
632MU STK-4 NUMER RS
633"FRV1",1130580001.101,"27,7",7,"F")
634;PXRM(810.4,
635"FRV1",1130580001.101,"27,7",8)
636MU STK-4 DENOM RS
637"FRV1",1130580001.101,"27,7",8,"F")
638;PXRM(810.4,
639"FRV1",1130580001.101,"28,7",7)
640MU STK-5 NUMER RS
641"FRV1",1130580001.101,"28,7",7,"F")
642;PXRM(810.4,
643"FRV1",1130580001.101,"28,7",8)
644MU STK-5 DENOM RS
645"FRV1",1130580001.101,"28,7",8,"F")
646;PXRM(810.4,
647"FRV1",1130580001.101,"29,7",7)
648MU STK-6 NUMER RS
649"FRV1",1130580001.101,"29,7",7,"F")
650;PXRM(810.4,
651"FRV1",1130580001.101,"29,7",8)
652MU STK-6 DENOM RS
653"FRV1",1130580001.101,"29,7",8,"F")
654;PXRM(810.4,
655"FRV1",1130580001.101,"30,7",7)
656MU STK-8 NUMER RS
657"FRV1",1130580001.101,"30,7",7,"F")
658;PXRM(810.4,
659"FRV1",1130580001.101,"30,7",8)
660MU STK-8 DENOM RS
661"FRV1",1130580001.101,"30,7",8,"F")
662;PXRM(810.4,
663"FRV1",1130580001.101,"31,7",7)
664MU STK-10 NUMER RS
665"FRV1",1130580001.101,"31,7",7,"F")
666;PXRM(810.4,
667"FRV1",1130580001.101,"31,7",8)
668MU STK-10 DENOM RS
669"FRV1",1130580001.101,"31,7",8,"F")
670;PXRM(810.4,
671"FRV1",1130580001.101,"32,7",7)
672MU VTE-1 NUMER RS
673"FRV1",1130580001.101,"32,7",7,"F")
674;PXRM(810.4,
675"FRV1",1130580001.101,"32,7",8)
676MU VTE-1 DENOM RS
677"FRV1",1130580001.101,"32,7",8,"F")
678;PXRM(810.4,
679"FRV1",1130580001.101,"33,7",7)
680MU VTE-2 NUMER RS
681"FRV1",1130580001.101,"33,7",7,"F")
682;PXRM(810.4,
683"FRV1",1130580001.101,"33,7",8)
684MU VTE-2 DENOM RS
685"FRV1",1130580001.101,"33,7",8,"F")
686;PXRM(810.4,
687"FRV1",1130580001.101,"34,7",7)
688MU VTE-3 NUMER RS
689"FRV1",1130580001.101,"34,7",7,"F")
690;PXRM(810.4,
691"FRV1",1130580001.101,"34,7",8)
692MU VTE-3 DENOM RS
693"FRV1",1130580001.101,"34,7",8,"F")
694;PXRM(810.4,
695"FRV1",1130580001.101,"35,7",7)
696MU VTE-4 NUMER RS
697"FRV1",1130580001.101,"35,7",7,"F")
698;PXRM(810.4,
699"FRV1",1130580001.101,"35,7",8)
700MU VTE-4 DENOM RS
701"FRV1",1130580001.101,"35,7",8,"F")
702;PXRM(810.4,
703"FRV1",1130580001.101,"36,7",7)
704MU VTE-5 NUMER RS
705"FRV1",1130580001.101,"36,7",7,"F")
706;PXRM(810.4,
707"FRV1",1130580001.101,"36,7",8)
708MU VTE-5 DENOM RS
709"FRV1",1130580001.101,"36,7",8,"F")
710;PXRM(810.4,
711"FRV1",1130580001.101,"37,7",7)
712MU VTE-6 NUMER RS
713"FRV1",1130580001.101,"37,7",7,"F")
714;PXRM(810.4,
715"FRV1",1130580001.101,"37,7",8)
716MU VTE-6 DENOM RS
717"FRV1",1130580001.101,"37,7",8,"F")
718;PXRM(810.4,
719"FRV1K",1130580001.101,"23,7",7)
720B
721"FRV1K",1130580001.101,"23,7",7,1)
722MU ED-1 NUMER RS
723"FRV1K",1130580001.101,"23,7",8)
724B
725"FRV1K",1130580001.101,"23,7",8,1)
726MU ED-1 DENOM RS
727"FRV1K",1130580001.101,"24,7",7)
728B
729"FRV1K",1130580001.101,"24,7",7,1)
730MU ED-2 NUMER RS
731"FRV1K",1130580001.101,"24,7",8)
732B
733"FRV1K",1130580001.101,"24,7",8,1)
734MU ED-2 DENOM RS
735"FRV1K",1130580001.101,"25,7",7)
736B
737"FRV1K",1130580001.101,"25,7",7,1)
738MU STK-2 NUMER RS
739"FRV1K",1130580001.101,"25,7",8)
740B
741"FRV1K",1130580001.101,"25,7",8,1)
742MU STK-2 DENOM RS
743"FRV1K",1130580001.101,"26,7",7)
744B
745"FRV1K",1130580001.101,"26,7",7,1)
746MU STK-3 NUMER RS
747"FRV1K",1130580001.101,"26,7",8)
748B
749"FRV1K",1130580001.101,"26,7",8,1)
750MU STK-3 DENOM RS
751"FRV1K",1130580001.101,"27,7",7)
752B
753"FRV1K",1130580001.101,"27,7",7,1)
754MU STK-4 NUMER RS
755"FRV1K",1130580001.101,"27,7",8)
756B
757"FRV1K",1130580001.101,"27,7",8,1)
758MU STK-4 DENOM RS
759"FRV1K",1130580001.101,"28,7",7)
760B
761"FRV1K",1130580001.101,"28,7",7,1)
762MU STK-5 NUMER RS
763"FRV1K",1130580001.101,"28,7",8)
764B
765"FRV1K",1130580001.101,"28,7",8,1)
766MU STK-5 DENOM RS
767"FRV1K",1130580001.101,"29,7",7)
768B
769"FRV1K",1130580001.101,"29,7",7,1)
770MU STK-6 NUMER RS
771"FRV1K",1130580001.101,"29,7",8)
772B
773"FRV1K",1130580001.101,"29,7",8,1)
774MU STK-6 DENOM RS
775"FRV1K",1130580001.101,"30,7",7)
776B
777"FRV1K",1130580001.101,"30,7",7,1)
778MU STK-8 NUMER RS
779"FRV1K",1130580001.101,"30,7",8)
780B
781"FRV1K",1130580001.101,"30,7",8,1)
782MU STK-8 DENOM RS
783"FRV1K",1130580001.101,"31,7",7)
784B
785"FRV1K",1130580001.101,"31,7",7,1)
786MU STK-10 NUMER RS
787"FRV1K",1130580001.101,"31,7",8)
788B
789"FRV1K",1130580001.101,"31,7",8,1)
790MU STK-10 DENOM RS
791"FRV1K",1130580001.101,"32,7",7)
792B
793"FRV1K",1130580001.101,"32,7",7,1)
794MU VTE-1 NUMER RS
795"FRV1K",1130580001.101,"32,7",8)
796B
797"FRV1K",1130580001.101,"32,7",8,1)
798MU VTE-1 DENOM RS
799"FRV1K",1130580001.101,"33,7",7)
800B
801"FRV1K",1130580001.101,"33,7",7,1)
802MU VTE-2 NUMER RS
803"FRV1K",1130580001.101,"33,7",8)
804B
805"FRV1K",1130580001.101,"33,7",8,1)
806MU VTE-2 DENOM RS
807"FRV1K",1130580001.101,"34,7",7)
808B
809"FRV1K",1130580001.101,"34,7",7,1)
810MU VTE-3 NUMER RS
811"FRV1K",1130580001.101,"34,7",8)
812B
813"FRV1K",1130580001.101,"34,7",8,1)
814MU VTE-3 DENOM RS
815"FRV1K",1130580001.101,"35,7",7)
816B
817"FRV1K",1130580001.101,"35,7",7,1)
818MU VTE-4 NUMER RS
819"FRV1K",1130580001.101,"35,7",8)
820B
821"FRV1K",1130580001.101,"35,7",8,1)
822MU VTE-4 DENOM RS
823"FRV1K",1130580001.101,"36,7",7)
824B
825"FRV1K",1130580001.101,"36,7",7,1)
826MU VTE-5 NUMER RS
827"FRV1K",1130580001.101,"36,7",8)
828B
829"FRV1K",1130580001.101,"36,7",8,1)
830MU VTE-5 DENOM RS
831"FRV1K",1130580001.101,"37,7",7)
832B
833"FRV1K",1130580001.101,"37,7",7,1)
834MU VTE-6 NUMER RS
835"FRV1K",1130580001.101,"37,7",8)
836B
837"FRV1K",1130580001.101,"37,7",8,1)
838MU VTE-6 DENOM RS
839"IX",1130580001.101,1130580001.101,"B",0)
8401130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS
841"IX",1130580001.101,1130580001.101,"B",1)
842S ^C0Q(101,"B",$E(X,1,30),DA)=""
843"IX",1130580001.101,1130580001.101,"B",2)
844K ^C0Q(101,"B",$E(X,1,30),DA)
845"IX",1130580001.101,1130580001.101,"B",2.5)
846K ^C0Q(101,"B")
847"IX",1130580001.101,1130580001.101,"B",11.1,0)
848^.114IA^1^1
849"IX",1130580001.101,1130580001.101,"B",11.1,1,0)
8501^F^1130580001.101^.01^30^1^F
851"IX",1130580001.101,1130580001.101,"MU",0)
8521130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS
853"IX",1130580001.101,1130580001.101,"MU",1)
854S ^C0Q(101,"MU",$E(X,1,30),DA)=""
855"IX",1130580001.101,1130580001.101,"MU",2)
856K ^C0Q(101,"MU",$E(X,1,30),DA)
857"IX",1130580001.101,1130580001.101,"MU",2.5)
858K ^C0Q(101,"MU")
859"IX",1130580001.101,1130580001.101,"MU",11.1,0)
860^.114IA^1^1
861"IX",1130580001.101,1130580001.101,"MU",11.1,1,0)
8621^F^1130580001.101^.3^30^1^F
863"IX",1130580001.201,1130580001.201,"MU",0)
8641130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS
865"IX",1130580001.201,1130580001.201,"MU",1)
866S ^C0Q(201,"MU",$E(X,1,30),DA)=""
867"IX",1130580001.201,1130580001.201,"MU",2)
868K ^C0Q(201,"MU",$E(X,1,30),DA)
869"IX",1130580001.201,1130580001.201,"MU",2.5)
870K ^C0Q(201,"MU")
871"IX",1130580001.201,1130580001.201,"MU",11.1,0)
872^.114IA^1^1
873"IX",1130580001.201,1130580001.201,"MU",11.1,1,0)
8741^F^1130580001.201^.3^30^1^F
875"KEY",1130580001.101,1130580001.101,"A",0)
8761130580001.101^A^P^733
877"KEY",1130580001.101,1130580001.101,"A",2,0)
878^.312IA^1^1
879"KEY",1130580001.101,1130580001.101,"A",2,1,0)
880.01^1130580001.101^1
881"KEYPTR",1130580001.101,1130580001.101,"A")
8821130580001.101^B
883"KRN",.402,1742,-1)
8840^1
885"KRN",.402,1742,0)
886C0Q EDIT INPATIENT PARMS^3120801.1733^@^1130580001.401^^@^3120801
887"KRN",.402,1742,"DIAB",1,1,1130580001.4013,0)
888ALL
889"KRN",.402,1742,"DR",1,1130580001.401)
890.01;.02;.03;1;1.1;5.1;5.2;5.3;3;
891"KRN",.402,1742,"DR",2,1130580001.4013)
892.01:.02
893"KRN",.402,1747,-1)
8940^2
895"KRN",.402,1747,0)
896C0Q EDIT MEASURE SET^3120801.0011^@^1130580001.201^^@^3120801
897"KRN",.402,1747,"DR",1,1130580001.201)
898.01;.02;.03;.05;.3;.4;1;
899"KRN",.402,1747,"DR",2,1130580001.2011)
900.01;1.2;2.2;
901"KRN",19,11027,-1)
9022^3
903"KRN",19,11027,0)
904C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^8^^^^^^^^y
905"KRN",19,11027,10,0)
906^19.01IP^20^20
907"KRN",19,11027,10,20,0)
90811070
909"KRN",19,11027,10,20,"^")
910C0Q QRDA MENU
911"KRN",19,11027,"U")
912QUALITY MEASUREMENT MENU
913"KRN",19,11070,-1)
9140^1
915"KRN",19,11070,0)
916C0Q QRDA MENU^QRDA MENU^^M^^^^^^^^QUALITY MEASURES^y
917"KRN",19,11070,1,0)
918^^1^1^3120801^
919"KRN",19,11070,1,1,0)
920Contains QRDA generation releated menu options.
921"KRN",19,11070,10,0)
922^19.01IP^1^1
923"KRN",19,11070,10,1,0)
92411071
925"KRN",19,11070,10,1,"^")
926C0Q EXPORT INPATIENT QRDA CCRS
927"KRN",19,11070,99)
92862670,75392
929"KRN",19,11070,"U")
930QRDA MENU
931"KRN",19,11071,-1)
9320^2
933"KRN",19,11071,0)
934C0Q EXPORT INPATIENT QRDA CCRS^EXPORT INPATIENT QRDA MEASURES AS CCRS^^R^^^^^^^^QUALITY MEASURES^y
935"KRN",19,11071,1,0)
936^^2^2^3120801^
937"KRN",19,11071,1,1,0)
938This option updates the CMS Inpatient Reporting measures and then creates
939"KRN",19,11071,1,2,0)
940a CCR for each patient in these measures' denominators.
941"KRN",19,11071,25)
942EN^C0QQRDA
943"KRN",19,11071,"U")
944EXPORT INPATIENT QRDA MEASURES
945"MBREQ")
9460
947"ORD",7,.402)
948.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,"",%)
949"ORD",7,.402,0)
950INPUT TEMPLATE
951"ORD",18,19)
95219;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
953"ORD",18,19,0)
954OPTION
955"PGL",1130580001.101,0,2,1)
956NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
957"PGL",1130580001.101,0,3,2)
958DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
959"PGL",1130580001.101,7,2,1.1)
960ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q
961"PGL",1130580001.101,7,3,2.1)
962ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q
963"PGL",1130580001.101,7,4,1.5)
964NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q
965"PGL",1130580001.101,7,5,1.51)
966ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q
967"PGL",1130580001.101,7,7,1.2)
968NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
969"PGL",1130580001.101,7,8,2.2)
970DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
971"PGL",1130580001.101,7,9,2.5)
972EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q
973"PGL",1130580001.2011,4,3,1.2)
974NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q
975"PGL",1130580001.2011,4,4,2.2)
976DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q
977"PKG",212,-1)
9781^1
979"PKG",212,0)
980QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures
981"PKG",212,20,0)
982^9.402P^^
983"PKG",212,22,0)
984^9.49I^1^1
985"PKG",212,22,1,0)
9861.0^3120731
987"PKG",212,22,1,"PAH",1,0)
9884^3120802
989"PKG",212,22,1,"PAH",1,1,0)
990^^1^1^3120802
991"PKG",212,22,1,"PAH",1,1,1,0)
992QRDA Support.
993"QUES","XPF1",0)
994Y
995"QUES","XPF1","??")
996^D REP^XPDH
997"QUES","XPF1","A")
998Shall I write over your |FLAG| File
999"QUES","XPF1","B")
1000YES
1001"QUES","XPF1","M")
1002D XPF1^XPDIQ
1003"QUES","XPF2",0)
1004Y
1005"QUES","XPF2","??")
1006^D DTA^XPDH
1007"QUES","XPF2","A")
1008Want my data |FLAG| yours
1009"QUES","XPF2","B")
1010YES
1011"QUES","XPF2","M")
1012D XPF2^XPDIQ
1013"QUES","XPI1",0)
1014YO
1015"QUES","XPI1","??")
1016^D INHIBIT^XPDH
1017"QUES","XPI1","A")
1018Want KIDS to INHIBIT LOGONs during the install
1019"QUES","XPI1","B")
1020NO
1021"QUES","XPI1","M")
1022D XPI1^XPDIQ
1023"QUES","XPM1",0)
1024PO^VA(200,:EM
1025"QUES","XPM1","??")
1026^D MG^XPDH
1027"QUES","XPM1","A")
1028Enter the Coordinator for Mail Group '|FLAG|'
1029"QUES","XPM1","B")
1030
1031"QUES","XPM1","M")
1032D XPM1^XPDIQ
1033"QUES","XPO1",0)
1034Y
1035"QUES","XPO1","??")
1036^D MENU^XPDH
1037"QUES","XPO1","A")
1038Want KIDS to Rebuild Menu Trees Upon Completion of Install
1039"QUES","XPO1","B")
1040YES
1041"QUES","XPO1","M")
1042D XPO1^XPDIQ
1043"QUES","XPZ1",0)
1044Y
1045"QUES","XPZ1","??")
1046^D OPT^XPDH
1047"QUES","XPZ1","A")
1048Want to DISABLE Scheduled Options, Menu Options, and Protocols
1049"QUES","XPZ1","B")
1050NO
1051"QUES","XPZ1","M")
1052D XPZ1^XPDIQ
1053"QUES","XPZ2",0)
1054Y
1055"QUES","XPZ2","??")
1056^D RTN^XPDH
1057"QUES","XPZ2","A")
1058Want to MOVE routines to other CPUs
1059"QUES","XPZ2","B")
1060NO
1061"QUES","XPZ2","M")
1062D XPZ2^XPDIQ
1063"RTN")
10641
1065"RTN","C0QQRDA")
10660^1^B59175834
1067"RTN","C0QQRDA",1,0)
1068C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/2/12 12:42am
1069"RTN","C0QQRDA",2,0)
1070 ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 23
1071"RTN","C0QQRDA",3,0)
1072 ;Copyright 2012 George Lilly. Licensed under the terms of the GNU
1073"RTN","C0QQRDA",4,0)
1074 ;General Public License See attached copy of the License.
1075"RTN","C0QQRDA",5,0)
1076 ;
1077"RTN","C0QQRDA",6,0)
1078 ;This program is free software; you can redistribute it and/or modify
1079"RTN","C0QQRDA",7,0)
1080 ;it under the terms of the GNU General Public License as published by
1081"RTN","C0QQRDA",8,0)
1082 ;the Free Software Foundation; either version 2 of the License, or
1083"RTN","C0QQRDA",9,0)
1084 ;(at your option) any later version.
1085"RTN","C0QQRDA",10,0)
1086 ;
1087"RTN","C0QQRDA",11,0)
1088 ;This program is distributed in the hope that it will be useful,
1089"RTN","C0QQRDA",12,0)
1090 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
1091"RTN","C0QQRDA",13,0)
1092 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1093"RTN","C0QQRDA",14,0)
1094 ;GNU General Public License for more details.
1095"RTN","C0QQRDA",15,0)
1096 ;
1097"RTN","C0QQRDA",16,0)
1098 ;You should have received a copy of the GNU General Public License along
1099"RTN","C0QQRDA",17,0)
1100 ;with this program; if not, write to the Free Software Foundation, Inc.,
1101"RTN","C0QQRDA",18,0)
1102 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
1103"RTN","C0QQRDA",19,0)
1104 ;
1105"RTN","C0QQRDA",20,0)
1106EN ; Private to this Package; Main Entry Point for this routine
1107"RTN","C0QQRDA",21,0)
1108 ; This EP is interactive or silent depending on params
1109"RTN","C0QQRDA",22,0)
1110 ;
1111"RTN","C0QQRDA",23,0)
1112 ; Check for config errors first
1113"RTN","C0QQRDA",24,0)
1114 N % S %=$$CHECKERR()
1115"RTN","C0QQRDA",25,0)
1116 I % D EN^DDIOL($P(%,U,2)) QUIT
1117"RTN","C0QQRDA",26,0)
1118 ;
1119"RTN","C0QQRDA",27,0)
1120 ; Print Intro
1121"RTN","C0QQRDA",28,0)
1122 N %
1123"RTN","C0QQRDA",29,0)
1124 S %(1)="This program collects patients from the denominators of the measures"
1125"RTN","C0QQRDA",30,0)
1126 S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default"
1127"RTN","C0QQRDA",31,0)
1128 S %(3)="directory (probably /tmp/)."
1129"RTN","C0QQRDA",32,0)
1130 S %(4)=""
1131"RTN","C0QQRDA",33,0)
1132 S %(5)="This will take some time to execute."
1133"RTN","C0QQRDA",34,0)
1134 S %(6)=""
1135"RTN","C0QQRDA",35,0)
1136 S %(6,"F")="!!!"
1137"RTN","C0QQRDA",36,0)
1138 ;
1139"RTN","C0QQRDA",37,0)
1140 D EN^DDIOL(.%)
1141"RTN","C0QQRDA",38,0)
1142 ;
1143"RTN","C0QQRDA",39,0)
1144 ; Ask user which measure set to run
1145"RTN","C0QQRDA",40,0)
1146 N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables
1147"RTN","C0QQRDA",41,0)
1148 S DIR(0)="SB^V:VTE;S:STK;E:ED"
1149"RTN","C0QQRDA",42,0)
1150 S DIR("A")="Measure to calculate"
1151"RTN","C0QQRDA",43,0)
1152 S DIR("A",1)="Which measure set would you like to produce QRDA documents for?"
1153"RTN","C0QQRDA",44,0)
1154 S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or "
1155"RTN","C0QQRDA",45,0)
1156 S DIR("A",3)="[E]D Measure Set"
1157"RTN","C0QQRDA",46,0)
1158 D ^DIR
1159"RTN","C0QQRDA",47,0)
1160 ;
1161"RTN","C0QQRDA",48,0)
1162 I $G(DTOUT)!$G(DUOUT) QUIT ; Did user hit '^' or time out?
1163"RTN","C0QQRDA",49,0)
1164 ;
1165"RTN","C0QQRDA",50,0)
1166 ; Get the Measure Set IEN which the user has seleted.
1167"RTN","C0QQRDA",51,0)
1168 ; NB: field names start with VTE, STK, or ED; so I can use the output
1169"RTN","C0QQRDA",52,0)
1170 ; of DIR directly.
1171"RTN","C0QQRDA",53,0)
1172 ;
1173"RTN","C0QQRDA",54,0)
1174 N FLD S FLD=Y(0)
1175"RTN","C0QQRDA",55,0)
1176 N C0QMSIEN S C0QMSIEN=$$GET1^DIQ(1130580001.401,$$INPPARM(),FLD,"I")
1177"RTN","C0QQRDA",56,0)
1178 ;
1179"RTN","C0QQRDA",57,0)
1180 S:'C0QMSIEN $EC=",U1," ; Debug.Assert that MSIEN is numeric.
1181"RTN","C0QQRDA",58,0)
1182 ;
1183"RTN","C0QQRDA",59,0)
1184 ; Do the work
1185"RTN","C0QQRDA",60,0)
1186 N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection
1187"RTN","C0QQRDA",61,0)
1188 K @REF ; Clear global
1189"RTN","C0QQRDA",62,0)
1190 D WORK(REF,C0QMSIEN) ; Process Measure Set, collect data in global
1191"RTN","C0QQRDA",63,0)
1192 D PRINTXML(REF,FLD) ; Generate XML; output to File.
1193"RTN","C0QQRDA",64,0)
1194 K @REF ; Clear global
1195"RTN","C0QQRDA",65,0)
1196 QUIT
1197"RTN","C0QQRDA",66,0)
1198 ;
1199"RTN","C0QQRDA",67,0)
1200 ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked.
1201"RTN","C0QQRDA",68,0)
1202 ; N % S %=$$CHECKERR()
1203"RTN","C0QQRDA",69,0)
1204 ; I % S RETURN(0)=% Q
1205"RTN","C0QQRDA",70,0)
1206 ;
1207"RTN","C0QQRDA",71,0)
1208 ; N DIQUIET S DIQUIET=1
1209"RTN","C0QQRDA",72,0)
1210 ; D EN
1211"RTN","C0QQRDA",73,0)
1212 ; S RETURN(0)=0
1213"RTN","C0QQRDA",74,0)
1214 ; QUIT
1215"RTN","C0QQRDA",75,0)
1216 ;
1217"RTN","C0QQRDA",76,0)
1218CHECKERR() ; Private Proc; Check if environment is okay.
1219"RTN","C0QQRDA",77,0)
1220 ; Output: 0 -> Okay; +ve^message for error
1221"RTN","C0QQRDA",78,0)
1222 N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN
1223"RTN","C0QQRDA",79,0)
1224 I 'INPPARM Q 1_U_"No Inpatient Parameters found"
1225"RTN","C0QQRDA",80,0)
1226 ;
1227"RTN","C0QQRDA",81,0)
1228 ; Pointer fields to Measurement Set file, we grab the IENs
1229"RTN","C0QQRDA",82,0)
1230 N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I")
1231"RTN","C0QQRDA",83,0)
1232 N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I")
1233"RTN","C0QQRDA",84,0)
1234 N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I")
1235"RTN","C0QQRDA",85,0)
1236 ;
1237"RTN","C0QQRDA",86,0)
1238 N TXT S TXT="" ; Error text
1239"RTN","C0QQRDA",87,0)
1240 I 'C0QED S TXT=TXT_"ED,"
1241"RTN","C0QQRDA",88,0)
1242 I 'C0QSTK S TXT=TXT_"STK,"
1243"RTN","C0QQRDA",89,0)
1244 I 'C0QVTE S TXT=TXT_"VTE"
1245"RTN","C0QQRDA",90,0)
1246 I $E(TXT,$L(TXT)=",") S TXT=$E(TXT,1,$L(TXT)-1)
1247"RTN","C0QQRDA",91,0)
1248 I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT
1249"RTN","C0QQRDA",92,0)
1250 ;
1251"RTN","C0QQRDA",93,0)
1252 QUIT 0 ; All okay
1253"RTN","C0QQRDA",94,0)
1254 ;
1255"RTN","C0QQRDA",95,0)
1256WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data.
1257"RTN","C0QQRDA",96,0)
1258 ; Input/Output: C0QREF -> Global for Output passed by Name
1259"RTN","C0QQRDA",97,0)
1260 ; C0QMSIEN -> (Input): Measurement Set IEN to calculate
1261"RTN","C0QQRDA",98,0)
1262 ;
1263"RTN","C0QQRDA",99,0)
1264 ; Print
1265"RTN","C0QQRDA",100,0)
1266 D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0))
1267"RTN","C0QQRDA",101,0)
1268 D EN^DDIOL("")
1269"RTN","C0QQRDA",102,0)
1270 ;
1271"RTN","C0QQRDA",103,0)
1272 ; Calculate totals and move patients over from individual measures
1273"RTN","C0QQRDA",104,0)
1274 D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used.
1275"RTN","C0QQRDA",105,0)
1276 ;
1277"RTN","C0QQRDA",106,0)
1278 ; Get QRDA code for Measure Set.
1279"RTN","C0QQRDA",107,0)
1280 N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT")
1281"RTN","C0QQRDA",108,0)
1282 ;
1283"RTN","C0QQRDA",109,0)
1284 N C0QI S C0QI=0 ; Fileman IEN looper
1285"RTN","C0QQRDA",110,0)
1286 F S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI D ; For each measure in Measure Set
1287"RTN","C0QQRDA",111,0)
1288 . ;
1289"RTN","C0QQRDA",112,0)
1290 . ; Get QRDA code using relational jump
1291"RTN","C0QQRDA",113,0)
1292 . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT")
1293"RTN","C0QQRDA",114,0)
1294 . ;
1295"RTN","C0QQRDA",115,0)
1296 . ; Then collect patients in the denominator, and store in output global
1297"RTN","C0QQRDA",116,0)
1298 . N C0QP S C0QP=0
1299"RTN","C0QQRDA",117,0)
1300 . F S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP D ; For each patient in denominator
1301"RTN","C0QQRDA",118,0)
1302 . . N C0QDFN S C0QDFN=+^(C0QP,0)
1303"RTN","C0QQRDA",119,0)
1304 . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)=""
1305"RTN","C0QQRDA",120,0)
1306 QUIT
1307"RTN","C0QQRDA",121,0)
1308 ;
1309"RTN","C0QQRDA",122,0)
1310INPPARM() ; $$ Private; Get Inpatient Parameters IEN
1311"RTN","C0QQRDA",123,0)
1312 ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file
1313"RTN","C0QQRDA",124,0)
1314 ;
1315"RTN","C0QQRDA",125,0)
1316 ; Browse this tree of xrefs to get the IEN of INP type (last line here).
1317"RTN","C0QQRDA",126,0)
1318 ; ^C0Q(401,"B","INPATIENT",2)=""
1319"RTN","C0QQRDA",127,0)
1320 ; ^C0Q(401,"B","OUTPATIENT",1)=""
1321"RTN","C0QQRDA",128,0)
1322 ; ^C0Q(401,"MU","MU12",1)=""
1323"RTN","C0QQRDA",129,0)
1324 ; ^C0Q(401,"MU","MU12",2)=""
1325"RTN","C0QQRDA",130,0)
1326 ; ^C0Q(401,"MUTYP","MU12","EP",1)=""
1327"RTN","C0QQRDA",131,0)
1328 ; ^C0Q(401,"MUTYP","MU12","INP",2)=""
1329"RTN","C0QQRDA",132,0)
1330 ;
1331"RTN","C0QQRDA",133,0)
1332 N MUID S MUID="" ; Looper for MU Year ID
1333"RTN","C0QQRDA",134,0)
1334 N FOUND S FOUND=0 ; Found flag to get out of loop
1335"RTN","C0QQRDA",135,0)
1336 N IEN ; Output variable
1337"RTN","C0QQRDA",136,0)
1338 F S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID="" Q:FOUND D ; Loop backwards
1339"RTN","C0QQRDA",137,0)
1340 . N TYP S TYP="" ; Type ("EP" or "INP")
1341"RTN","C0QQRDA",138,0)
1342 . F S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP="" Q:FOUND D
1343"RTN","C0QQRDA",139,0)
1344 . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q ; If found, get IEN, quit out of loops
1345"RTN","C0QQRDA",140,0)
1346 QUIT +$G(IEN)
1347"RTN","C0QQRDA",141,0)
1348 ;
1349"RTN","C0QQRDA",142,0)
1350PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc
1351"RTN","C0QQRDA",143,0)
1352 ; Input: C0QREF -> Global By Name
1353"RTN","C0QQRDA",144,0)
1354 ; C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames.
1355"RTN","C0QQRDA",145,0)
1356 ; Output: modified CCRs are saved in /tmp/
1357"RTN","C0QQRDA",146,0)
1358 N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers
1359"RTN","C0QQRDA",147,0)
1360 F S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN="" D ; For each patient
1361"RTN","C0QQRDA",148,0)
1362 . ;
1363"RTN","C0QQRDA",149,0)
1364 . N GREEN S GREEN=$C(27)_"[1;37;42m"
1365"RTN","C0QQRDA",150,0)
1366 . N RESET S RESET=$C(27)_"[0m"
1367"RTN","C0QQRDA",151,0)
1368 . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!")
1369"RTN","C0QQRDA",152,0)
1370 . D EN^DDIOL("","","!")
1371"RTN","C0QQRDA",153,0)
1372 . ;
1373"RTN","C0QQRDA",154,0)
1374 . ; CCR Generatation is next; protected against crashes.
1375"RTN","C0QQRDA",155,0)
1376 . ; ET set to new value then restored.
1377"RTN","C0QQRDA",156,0)
1378 . N C0QCCRXML ; CCR XML
1379"RTN","C0QQRDA",157,0)
1380 . N OLDTRAP S OLDTRAP=$ET
1381"RTN","C0QQRDA",158,0)
1382 . ; ET: Rollback to this level, write the error in red , clear it, then quit
1383"RTN","C0QQRDA",159,0)
1384 . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET
1385"RTN","C0QQRDA",160,0)
1386 . N $ES,$ET
1387"RTN","C0QQRDA",161,0)
1388 . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA"
1389"RTN","C0QQRDA",162,0)
1390 . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC.
1391"RTN","C0QQRDA",163,0)
1392 . S $ET=OLDTRAP
1393"RTN","C0QQRDA",164,0)
1394 . ;
1395"RTN","C0QQRDA",165,0)
1396 . ;
1397"RTN","C0QQRDA",166,0)
1398 . ; Quality XML Section generated by hand next...
1399"RTN","C0QQRDA",167,0)
1400 . N C0QXML ; Generated Quality XML
1401"RTN","C0QQRDA",168,0)
1402 . D XMLSTORE(.C0QXML,$$OT("QUALITY")) ; Open Tag
1403"RTN","C0QQRDA",169,0)
1404 . F S C0QMS=$O(@C0QREF@(C0QDFN,C0QMS)) Q:C0QMS="" D ; For each measure set
1405"RTN","C0QQRDA",170,0)
1406 . . D XMLSTORE(.C0QXML,$$OT("MEASURE_SET")) ; Open tag
1407"RTN","C0QQRDA",171,0)
1408 . . D XMLSTORE(.C0QXML,$$TAG("ID",C0QMS)) ; Write out set QRDA code
1409"RTN","C0QQRDA",172,0)
1410 . . D XMLSTORE(.C0QXML,$$OT("MEASURES")) ; Open tag
1411"RTN","C0QQRDA",173,0)
1412 . . F S C0QM=$O(@C0QREF@(C0QDFN,C0QMS,C0QM)) Q:C0QM="" D ; for each measure
1413"RTN","C0QQRDA",174,0)
1414 . . . D XMLSTORE(.C0QXML,$$TAG("MEASURE",C0QM)) ; Write <measure> and qrda code
1415"RTN","C0QQRDA",175,0)
1416 . . D XMLSTORE(.C0QXML,$$CT("MEASURES")) ; Close tag
1417"RTN","C0QQRDA",176,0)
1418 . . D XMLSTORE(.C0QXML,$$CT("MEASURE_SET")) ; Close tag
1419"RTN","C0QQRDA",177,0)
1420 . D XMLSTORE(.C0QXML,$$CT("QUALITY")) ; Close tag
1421"RTN","C0QQRDA",178,0)
1422 . ;
1423"RTN","C0QQRDA",179,0)
1424 . ;
1425"RTN","C0QQRDA",180,0)
1426 . ; Insert Quality XML under the root of the CCR document
1427"RTN","C0QQRDA",181,0)
1428 . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord")
1429"RTN","C0QQRDA",182,0)
1430 . ;
1431"RTN","C0QQRDA",183,0)
1432 . ;
1433"RTN","C0QQRDA",184,0)
1434 . ; Get Kernel Default Directory
1435"RTN","C0QQRDA",185,0)
1436 . N DEFDIR S DEFDIR=$$DEFDIR^%ZISH()
1437"RTN","C0QQRDA",186,0)
1438 . ;
1439"RTN","C0QQRDA",187,0)
1440 . ;
1441"RTN","C0QQRDA",188,0)
1442 . ; Write out to a file.
1443"RTN","C0QQRDA",189,0)
1444 . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name
1445"RTN","C0QQRDA",190,0)
1446 . K C0QCCRXML(0) ; remove zero node; API doesn't support it.
1447"RTN","C0QQRDA",191,0)
1448 . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR))
1449"RTN","C0QQRDA",192,0)
1450 QUIT
1451"RTN","C0QQRDA",193,0)
1452 ;
1453"RTN","C0QQRDA",194,0)
1454 ; Quick XML stuff ; All Private
1455"RTN","C0QQRDA",195,0)
1456OT(STR) Q "<"_STR_">" ; $$ Open Tag
1457"RTN","C0QQRDA",196,0)
1458CT(STR) Q "</"_STR_">" ; $$ Close Tag
1459"RTN","C0QQRDA",197,0)
1460TAG(NM,CONTENT) Q "<"_NM_">"_CONTENT_"</"_NM_">" ; $$ Whole tag
1461"RTN","C0QQRDA",198,0)
1462 ;
1463"RTN","C0QQRDA",199,0)
1464XMLSTORE(REF,STR) ; Priv Proc - Store XML
1465"RTN","C0QQRDA",200,0)
1466 ; REF -> Save Array. Pass by Reference.
1467"RTN","C0QQRDA",201,0)
1468 ; STR -> What to store. Pass by Value.
1469"RTN","C0QQRDA",202,0)
1470 ; Use like this: D XMLSTORE(.STORE,"<tag>")
1471"RTN","C0QQRDA",203,0)
1472 ; Output: STORE(1)="<tag>"
1473"RTN","C0QQRDA",204,0)
1474 N L ; Number Subscript to use
1475"RTN","C0QQRDA",205,0)
1476 S L=$O(REF(" "),-1) S L=L+1 ; Get last number and increment
1477"RTN","C0QQRDA",206,0)
1478 S REF(L)=STR,REF(0)=L ; Store string in numbered sub, store last number in 0 node (not used here)
1479"RTN","C0QQRDA",207,0)
1480 QUIT
1481"RTN","C0QQRDA",208,0)
1482 ;
1483"RTN","C0QQRDA",209,0)
1484 ; Following is for formatting printed XML. L passed in Symbol Table and starts at 0.
1485"RTN","C0QQRDA",210,0)
1486L1 D WS S L=L+1 Q ; Write space and increment
1487"RTN","C0QQRDA",211,0)
1488L2 S L=L-1 D WS Q ; Decrement and Write space
1489"RTN","C0QQRDA",212,0)
1490WS X "F I=1:1:L W "" """ Q ; Write Space
1491"RTN","C0QQRDA",213,0)
1492 ; This is for rolling down the stack to the $ES level
1493"RTN","C0QQRDA",214,0)
1494ROLLDOWN S $ET="Q:$ES S $EC=""""",$EC=",U99," QUIT
1495"SEC","^DD",1130580001.101,1130580001.101,3.1,9)
1496
1497"SEC","^DIC",1130580001.101,1130580001.101,0,"AUDIT")
1498@
1499"SEC","^DIC",1130580001.101,1130580001.101,0,"DD")
1500@
1501"SEC","^DIC",1130580001.101,1130580001.101,0,"DEL")
1502@
1503"SEC","^DIC",1130580001.101,1130580001.101,0,"LAYGO")
1504@
1505"SEC","^DIC",1130580001.101,1130580001.101,0,"RD")
1506@
1507"SEC","^DIC",1130580001.101,1130580001.101,0,"WR")
1508@
1509"SEC","^DIC",1130580001.201,1130580001.201,0,"AUDIT")
1510@
1511"SEC","^DIC",1130580001.201,1130580001.201,0,"DD")
1512@
1513"SEC","^DIC",1130580001.201,1130580001.201,0,"DEL")
1514@
1515"SEC","^DIC",1130580001.201,1130580001.201,0,"LAYGO")
1516@
1517"SEC","^DIC",1130580001.201,1130580001.201,0,"RD")
1518@
1519"SEC","^DIC",1130580001.201,1130580001.201,0,"WR")
1520@
1521"VER")
15228.0^22.0
1523"^DD",1130580001.101,1130580001.101,0)
1524FIELD^^.3^18
1525"^DD",1130580001.101,1130580001.101,0,"DDA")
1526N
1527"^DD",1130580001.101,1130580001.101,0,"DT")
15283120731
1529"^DD",1130580001.101,1130580001.101,0,"ID",.7)
1530W:$D(^(5)) " ",$P(^(5),U,1)
1531"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01)
1532
1533"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE")
1534
1535"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01)
1536
1537"^DD",1130580001.101,1130580001.101,0,"VRPK")
1538C0Q
1539"^DD",1130580001.101,1130580001.101,.01,0)
1540NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
1541"^DD",1130580001.101,1130580001.101,.01,.1)
1542MEASURE NAME
1543"^DD",1130580001.101,1130580001.101,.01,1,0)
1544^.1
1545"^DD",1130580001.101,1130580001.101,.01,1,1,0)
15461130580001.101^B
1547"^DD",1130580001.101,1130580001.101,.01,1,1,1)
1548S ^C0Q(101,"B",$E(X,1,30),DA)=""
1549"^DD",1130580001.101,1130580001.101,.01,1,1,2)
1550K ^C0Q(101,"B",$E(X,1,30),DA)
1551"^DD",1130580001.101,1130580001.101,.01,3)
1552Answer must be 1-30 characters in length
1553"^DD",1130580001.101,1130580001.101,.01,"DT")
15543101012
1555"^DD",1130580001.101,1130580001.101,.3,0)
1556MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X
1557"^DD",1130580001.101,1130580001.101,.3,.1)
1558MEANINGFUL USE YEAR KEY
1559"^DD",1130580001.101,1130580001.101,.3,3)
1560Answer must be 1-30 characters in length.
1561"^DD",1130580001.101,1130580001.101,.3,"DT")
15623111201
1563"^DD",1130580001.101,1130580001.101,.5,0)
1564TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X
1565"^DD",1130580001.101,1130580001.101,.5,.1)
1566MEASURE TITLE
1567"^DD",1130580001.101,1130580001.101,.5,3)
1568Answer must be 3-240 characters in length
1569"^DD",1130580001.101,1130580001.101,.5,"DT")
15703110430
1571"^DD",1130580001.101,1130580001.101,.61,0)
1572VERY LONG DESCRIPTION^1130580001.111^^6;0
1573"^DD",1130580001.101,1130580001.101,.7,0)
1574DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X
1575"^DD",1130580001.101,1130580001.101,.7,.1)
1576QRDA DISPLAY NAME
1577"^DD",1130580001.101,1130580001.101,.7,3)
1578Answer must be 3-240 characters in length
1579"^DD",1130580001.101,1130580001.101,.7,"DT")
15803101012
1581"^DD",1130580001.101,1130580001.101,.8,0)
1582REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X
1583"^DD",1130580001.101,1130580001.101,.8,.1)
1584REPORTING MEASURE NAME
1585"^DD",1130580001.101,1130580001.101,.8,3)
1586Answer must be 3-30 characters in length
1587"^DD",1130580001.101,1130580001.101,.8,"DT")
15883110615
1589"^DD",1130580001.101,1130580001.101,1,0)
1590NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
1591"^DD",1130580001.101,1130580001.101,1,.1)
1592MEASURE NUMERATOR PATIENT LIST
1593"^DD",1130580001.101,1130580001.101,1,"DT")
15943101012
1595"^DD",1130580001.101,1130580001.101,1.1,0)
1596ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q
1597"^DD",1130580001.101,1130580001.101,1.1,"DT")
15983110805
1599"^DD",1130580001.101,1130580001.101,1.2,0)
1600NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
1601"^DD",1130580001.101,1130580001.101,1.2,3)
1602Enter the reminder rule set to use for this measure.
1603"^DD",1130580001.101,1130580001.101,1.2,12)
1604If the type of the reminder list rule is a Rule Set.
1605"^DD",1130580001.101,1130580001.101,1.2,12.1)
1606S DIC("S")="I $P(^(0),U,3)=3"
1607"^DD",1130580001.101,1130580001.101,1.2,21,0)
1608^^5^5^3120716^
1609"^DD",1130580001.101,1130580001.101,1.2,21,1,0)
1610This is the numerator reminder rule set to use for the quality measure.
1611"^DD",1130580001.101,1130580001.101,1.2,21,2,0)
1612
1613"^DD",1130580001.101,1130580001.101,1.2,21,3,0)
1614The rule set is used to generate a patient list, which this package
1615"^DD",1130580001.101,1130580001.101,1.2,21,4,0)
1616referneces. The contents of the patient list will produce the count for
1617"^DD",1130580001.101,1130580001.101,1.2,21,5,0)
1618the measure. This count is for the numerator.
1619"^DD",1130580001.101,1130580001.101,1.2,"DT")
16203120716
1621"^DD",1130580001.101,1130580001.101,1.5,0)
1622NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q
1623"^DD",1130580001.101,1130580001.101,1.5,.1)
1624LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS
1625"^DD",1130580001.101,1130580001.101,1.5,"DT")
16263110809
1627"^DD",1130580001.101,1130580001.101,1.51,0)
1628ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q
1629"^DD",1130580001.101,1130580001.101,1.51,.1)
1630NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE
1631"^DD",1130580001.101,1130580001.101,1.51,"DT")
16323110809
1633"^DD",1130580001.101,1130580001.101,2,0)
1634DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
1635"^DD",1130580001.101,1130580001.101,2,.1)
1636MEASURE DENOMINATOR PATIENT LIST
1637"^DD",1130580001.101,1130580001.101,2,"DT")
16383101012
1639"^DD",1130580001.101,1130580001.101,2.1,0)
1640ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q
1641"^DD",1130580001.101,1130580001.101,2.1,"DT")
16423110805
1643"^DD",1130580001.101,1130580001.101,2.2,0)
1644DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
1645"^DD",1130580001.101,1130580001.101,2.2,3)
1646Enter the reminder rule set to use for this measure.
1647"^DD",1130580001.101,1130580001.101,2.2,12)
1648If the type of the reminder list rule is a Rule Set.
1649"^DD",1130580001.101,1130580001.101,2.2,12.1)
1650S DIC("S")="I $P(^(0),U,3)=3"
1651"^DD",1130580001.101,1130580001.101,2.2,21,0)
1652^^5^5^3120716^
1653"^DD",1130580001.101,1130580001.101,2.2,21,1,0)
1654This is the denominator reminder rule set to use for the quality measure.
1655"^DD",1130580001.101,1130580001.101,2.2,21,2,0)
1656
1657"^DD",1130580001.101,1130580001.101,2.2,21,3,0)
1658The rule set is used to generate a patient list, which this package
1659"^DD",1130580001.101,1130580001.101,2.2,21,4,0)
1660referneces. The contents of the patient list will produce the count for
1661"^DD",1130580001.101,1130580001.101,2.2,21,5,0)
1662the measure. This count is for the denominator.
1663"^DD",1130580001.101,1130580001.101,2.2,"DT")
16643120716
1665"^DD",1130580001.101,1130580001.101,2.5,0)
1666EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q
1667"^DD",1130580001.101,1130580001.101,2.5,3)
1668Select a Reminder Extract Definition for this measure
1669"^DD",1130580001.101,1130580001.101,2.5,21,0)
1670^^4^4^3120726^
1671"^DD",1130580001.101,1130580001.101,2.5,21,1,0)
1672If this measure depends upon a reminder extract definition, you can add
1673"^DD",1130580001.101,1130580001.101,2.5,21,2,0)
1674this extract definition here. This will alter how the Quality Measures
1675"^DD",1130580001.101,1130580001.101,2.5,21,3,0)
1676package computes the measure to use the extract in addition and prior to
1677"^DD",1130580001.101,1130580001.101,2.5,21,4,0)
1678the rule sets.
1679"^DD",1130580001.101,1130580001.101,2.5,"DT")
16803120726
1681"^DD",1130580001.101,1130580001.101,3,0)
1682QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X
1683"^DD",1130580001.101,1130580001.101,3,.1)
1684
1685"^DD",1130580001.101,1130580001.101,3,3)
1686Answer must be 3-120 characters in length
1687"^DD",1130580001.101,1130580001.101,3,21,0)
1688^^2^2^3120731^^
1689"^DD",1130580001.101,1130580001.101,3,21,1,0)
1690Measure template root for the QRDA Document. A series of . delimited
1691"^DD",1130580001.101,1130580001.101,3,21,2,0)
1692numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1
1693"^DD",1130580001.101,1130580001.101,3,"DT")
16943120731
1695"^DD",1130580001.101,1130580001.101,3.1,0)
1696QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12"
1697"^DD",1130580001.101,1130580001.101,3.1,.1)
1698QRDA SYSTEM OID (FIXED)
1699"^DD",1130580001.101,1130580001.101,3.1,9.01)
1700
1701"^DD",1130580001.101,1130580001.101,3.1,9.1)
1702S X="2.16.840.1.113883.3.249.12"
1703"^DD",1130580001.101,1130580001.101,3.1,"DT")
17043101012
1705"^DD",1130580001.101,1130580001.101,3.2,0)
1706QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X
1707"^DD",1130580001.101,1130580001.101,3.2,.1)
1708QRDA MEASURE CODE
1709"^DD",1130580001.101,1130580001.101,3.2,3)
1710Answer must be 1-80 characters in length
1711"^DD",1130580001.101,1130580001.101,3.2,"DT")
17123101012
1713"^DD",1130580001.101,1130580001.111,0)
1714VERY LONG DESCRIPTION SUB-FIELD^^.01^1
1715"^DD",1130580001.101,1130580001.111,0,"DT")
17163101013
1717"^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION")
1718
1719"^DD",1130580001.101,1130580001.111,0,"UP")
17201130580001.101
1721"^DD",1130580001.101,1130580001.111,.01,0)
1722VERY LONG DESCRIPTION^Wx^^0;1
1723"^DD",1130580001.101,1130580001.111,.01,.1)
1724LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6
1725"^DD",1130580001.101,1130580001.111,.01,3)
1726LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION
1727"^DD",1130580001.101,1130580001.111,.01,"DT")
17283101013
1729"^DD",1130580001.201,1130580001.201,0)
1730FIELD^^.4^9
1731"^DD",1130580001.201,1130580001.201,0,"DDA")
1732N
1733"^DD",1130580001.201,1130580001.201,0,"DT")
17343120801
1735"^DD",1130580001.201,1130580001.201,0,"IX","ADBYP",1130580001.20112,.01)
1736
1737"^DD",1130580001.201,1130580001.201,0,"IX","ANBYP",1130580001.20111,.01)
1738
1739"^DD",1130580001.201,1130580001.201,0,"IX","B",1130580001.201,.01)
1740
1741"^DD",1130580001.201,1130580001.201,0,"NM","C0Q MEASUREMENT SET")
1742
1743"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1)
1744
1745"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1)
1746
1747"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2)
1748
1749"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1)
1750
1751"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1)
1752
1753"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2)
1754
1755"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3)
1756
1757"^DD",1130580001.201,1130580001.201,.01,0)
1758NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
1759"^DD",1130580001.201,1130580001.201,.01,.1)
1760
1761"^DD",1130580001.201,1130580001.201,.01,1,0)
1762^.1
1763"^DD",1130580001.201,1130580001.201,.01,1,1,0)
17641130580001.201^B
1765"^DD",1130580001.201,1130580001.201,.01,1,1,1)
1766S ^C0Q(201,"B",$E(X,1,30),DA)=""
1767"^DD",1130580001.201,1130580001.201,.01,1,1,2)
1768K ^C0Q(201,"B",$E(X,1,30),DA)
1769"^DD",1130580001.201,1130580001.201,.01,3)
1770Answer must be 3-30 characters in length.
1771"^DD",1130580001.201,1130580001.201,.01,21,0)
1772^^1^1^3120731^
1773"^DD",1130580001.201,1130580001.201,.01,21,1,0)
1774Measurement Set Name.
1775"^DD",1130580001.201,1130580001.201,.01,"DT")
17763120731
1777"^DD",1130580001.201,1130580001.201,.02,0)
1778BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X
1779"^DD",1130580001.201,1130580001.201,.02,.1)
1780MEASUREMENT BEGIN DATE
1781"^DD",1130580001.201,1130580001.201,.02,3)
1782MEASUREMENT BEGIN DATE
1783"^DD",1130580001.201,1130580001.201,.02,"DT")
17843101012
1785"^DD",1130580001.201,1130580001.201,.03,0)
1786END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X
1787"^DD",1130580001.201,1130580001.201,.03,.1)
1788MEASUREMENT END DATE
1789"^DD",1130580001.201,1130580001.201,.03,3)
1790MEASUREMENT END DATE
1791"^DD",1130580001.201,1130580001.201,.03,"DT")
17923101012
1793"^DD",1130580001.201,1130580001.201,.04,0)
1794DATE LAST CALCULATED^D^^6;1^S %DT="E" D ^%DT S X=Y K:X<1 X
1795"^DD",1130580001.201,1130580001.201,.04,.1)
1796DATE LAST PROCESSED
1797"^DD",1130580001.201,1130580001.201,.04,3)
1798DATE LAST PROCESSED
1799"^DD",1130580001.201,1130580001.201,.04,"DT")
18003101012
1801"^DD",1130580001.201,1130580001.201,.05,0)
1802LOCKED^S^Y:YES;N:NO;^6;2^Q
1803"^DD",1130580001.201,1130580001.201,.05,.1)
1804Y/N IS THIS RECORD SET LOCKED
1805"^DD",1130580001.201,1130580001.201,.05,3)
1806Y/N IS THIS RECORD SET LOCKED
1807"^DD",1130580001.201,1130580001.201,.05,"DT")
18083101012
1809"^DD",1130580001.201,1130580001.201,.2,0)
1810USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q
1811"^DD",1130580001.201,1130580001.201,.2,.1)
1812INCLUDE ALL MEASURES IN THIS SET?
1813"^DD",1130580001.201,1130580001.201,.2,3)
1814INCLUDE ALL MEASURES IN THIS SET?
1815"^DD",1130580001.201,1130580001.201,.2,"DT")
18163101012
1817"^DD",1130580001.201,1130580001.201,.3,0)
1818MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X
1819"^DD",1130580001.201,1130580001.201,.3,.1)
1820MEANINGFUL USE YEAR KEY
1821"^DD",1130580001.201,1130580001.201,.3,3)
1822Answer must be 1-240 characters in length.
1823"^DD",1130580001.201,1130580001.201,.3,"DT")
18243111129
1825"^DD",1130580001.201,1130580001.201,.4,0)
1826QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X
1827"^DD",1130580001.201,1130580001.201,.4,3)
1828Answer must be 3-120 characters in length.
1829"^DD",1130580001.201,1130580001.201,.4,21,0)
1830^^6^6^3120731^
1831"^DD",1130580001.201,1130580001.201,.4,21,1,0)
1832Measure template root for the Measurement Set. A series of . delimited
1833"^DD",1130580001.201,1130580001.201,.4,21,2,0)
1834numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1
1835"^DD",1130580001.201,1130580001.201,.4,21,3,0)
1836
1837"^DD",1130580001.201,1130580001.201,.4,21,4,0)
1838Most measurement sets don't have that. Only measurement sets reporable as
1839"^DD",1130580001.201,1130580001.201,.4,21,5,0)
1840a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled
1841"^DD",1130580001.201,1130580001.201,.4,21,6,0)
1842out as it is reported in the QRDA document.
1843"^DD",1130580001.201,1130580001.201,.4,"DT")
18443120731
1845"^DD",1130580001.201,1130580001.201,1,0)
1846MEASURE^1130580001.2011P^^5;0
1847"^DD",1130580001.201,1130580001.2011,0)
1848MEASURE SUB-FIELD^^2.2^8
1849"^DD",1130580001.201,1130580001.2011,0,"DT")
18503120801
1851"^DD",1130580001.201,1130580001.2011,0,"IX","B",1130580001.2011,.01)
1852
1853"^DD",1130580001.201,1130580001.2011,0,"NM","MEASURE")
1854
1855"^DD",1130580001.201,1130580001.2011,0,"UP")
18561130580001.201
1857"^DD",1130580001.201,1130580001.2011,.01,0)
1858MEASURE^MP1130580001.101'^C0Q(101,^0;1^Q
1859"^DD",1130580001.201,1130580001.2011,.01,.1)
1860
1861"^DD",1130580001.201,1130580001.2011,.01,1,0)
1862^.1
1863"^DD",1130580001.201,1130580001.2011,.01,1,1,0)
18641130580001.2011^B
1865"^DD",1130580001.201,1130580001.2011,.01,1,1,1)
1866S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)=""
1867"^DD",1130580001.201,1130580001.2011,.01,1,1,2)
1868K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)
1869"^DD",1130580001.201,1130580001.2011,.01,3)
1870Included Quality Measures
1871"^DD",1130580001.201,1130580001.2011,.01,"DT")
18723120801
1873"^DD",1130580001.201,1130580001.2011,1,0)
1874NUMERATOR^1130580001.20111P^^1;0
1875"^DD",1130580001.201,1130580001.2011,1.1,0)
1876NUMERATOR COUNT^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X
1877"^DD",1130580001.201,1130580001.2011,1.1,.1)
1878NUMBER OF PATIENTS IN NUMERATOR
1879"^DD",1130580001.201,1130580001.2011,1.1,3)
1880NUMBER OF PATIENTS IN NUMERATOR
1881"^DD",1130580001.201,1130580001.2011,1.1,"DT")
18823101012
1883"^DD",1130580001.201,1130580001.2011,1.2,0)
1884NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q
1885"^DD",1130580001.201,1130580001.2011,1.2,.1)
1886FILTER LIST FOR NUMERATOR
1887"^DD",1130580001.201,1130580001.2011,1.2,"DT")
18883111129
1889"^DD",1130580001.201,1130580001.2011,2,0)
1890DENOMINATOR^1130580001.20112P^^3;0
1891"^DD",1130580001.201,1130580001.2011,2.1,0)
1892DENOMINATOR COUNT^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1.N) X
1893"^DD",1130580001.201,1130580001.2011,2.1,.1)
1894NUMBER OF PATIENTS IN DENOMINATOR
1895"^DD",1130580001.201,1130580001.2011,2.1,3)
1896NUMBER OF PATIENTS IN DENOMINATOR
1897"^DD",1130580001.201,1130580001.2011,2.1,"DT")
18983101012
1899"^DD",1130580001.201,1130580001.2011,2.2,0)
1900DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q
1901"^DD",1130580001.201,1130580001.2011,2.2,.1)
1902FILTER LIST FOR DENOMINATOR
1903"^DD",1130580001.201,1130580001.2011,2.2,"DT")
19043111129
1905"^DD",1130580001.201,1130580001.2011,3,0)
1906PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X
1907"^DD",1130580001.201,1130580001.2011,3,.1)
1908MEASURE PERCENTAGE
1909"^DD",1130580001.201,1130580001.2011,3,3)
1910Type a number between 0 and 100, 2 Decimal Digits
1911"^DD",1130580001.201,1130580001.2011,3,"DT")
19123110621
1913"^DD",1130580001.201,1130580001.20111,0)
1914NUMERATOR SUB-FIELD^^.01^1
1915"^DD",1130580001.201,1130580001.20111,0,"DT")
19163101012
1917"^DD",1130580001.201,1130580001.20111,0,"IX","B",1130580001.20111,.01)
1918
1919"^DD",1130580001.201,1130580001.20111,0,"NM","NUMERATOR")
1920
1921"^DD",1130580001.201,1130580001.20111,0,"UP")
19221130580001.2011
1923"^DD",1130580001.201,1130580001.20111,.01,0)
1924NUMERATOR^MP2'^DPT(^0;1^Q
1925"^DD",1130580001.201,1130580001.20111,.01,.1)
1926NUMERATOR PATIENTS
1927"^DD",1130580001.201,1130580001.20111,.01,1,0)
1928^.1
1929"^DD",1130580001.201,1130580001.20111,.01,1,1,0)
19301130580001.20111^B
1931"^DD",1130580001.201,1130580001.20111,.01,1,1,1)
1932S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
1933"^DD",1130580001.201,1130580001.20111,.01,1,1,2)
1934K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
1935"^DD",1130580001.201,1130580001.20111,.01,1,2,0)
19361130580001.201^ANBYP
1937"^DD",1130580001.201,1130580001.20111,.01,1,2,1)
1938S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)=""
1939"^DD",1130580001.201,1130580001.20111,.01,1,2,2)
1940K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)
1941"^DD",1130580001.201,1130580001.20111,.01,1,2,"DT")
19423101014
1943"^DD",1130580001.201,1130580001.20111,.01,3)
1944NUMERATOR PATIENTS
1945"^DD",1130580001.201,1130580001.20111,.01,"DT")
19463101014
1947"^DD",1130580001.201,1130580001.20112,0)
1948DENOMINATOR SUB-FIELD^^.01^1
1949"^DD",1130580001.201,1130580001.20112,0,"DT")
19503101012
1951"^DD",1130580001.201,1130580001.20112,0,"IX","B",1130580001.20112,.01)
1952
1953"^DD",1130580001.201,1130580001.20112,0,"NM","DENOMINATOR")
1954
1955"^DD",1130580001.201,1130580001.20112,0,"UP")
19561130580001.2011
1957"^DD",1130580001.201,1130580001.20112,.01,0)
1958DENOMINATOR^MP2'^DPT(^0;1^Q
1959"^DD",1130580001.201,1130580001.20112,.01,.1)
1960DENOMINATOR PATIENTS
1961"^DD",1130580001.201,1130580001.20112,.01,1,0)
1962^.1
1963"^DD",1130580001.201,1130580001.20112,.01,1,1,0)
19641130580001.20112^B
1965"^DD",1130580001.201,1130580001.20112,.01,1,1,1)
1966S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)=""
1967"^DD",1130580001.201,1130580001.20112,.01,1,1,2)
1968K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)
1969"^DD",1130580001.201,1130580001.20112,.01,1,2,0)
19701130580001.201^ADBYP
1971"^DD",1130580001.201,1130580001.20112,.01,1,2,1)
1972S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)=""
1973"^DD",1130580001.201,1130580001.20112,.01,1,2,2)
1974K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)
1975"^DD",1130580001.201,1130580001.20112,.01,1,2,"DT")
19763101014
1977"^DD",1130580001.201,1130580001.20112,.01,3)
1978DENOMINATOR PATIENTS
1979"^DD",1130580001.201,1130580001.20112,.01,"DT")
19803101014
1981"^DD",1130580001.401,1130580001.401,5.1,0)
1982VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q
1983"^DD",1130580001.401,1130580001.401,5.1,3)
1984Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting
1985"^DD",1130580001.401,1130580001.401,5.1,21,0)
1986^^3^3^3120801^^^
1987"^DD",1130580001.401,1130580001.401,5.1,21,1,0)
1988This field holds the VTE measure set for reporting information to the
1989"^DD",1130580001.401,1130580001.401,5.1,21,2,0)
1990Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
1991"^DD",1130580001.401,1130580001.401,5.1,21,3,0)
19922012 EHR incentive pilot.
1993"^DD",1130580001.401,1130580001.401,5.1,23,0)
1994^^3^3^3120801^
1995"^DD",1130580001.401,1130580001.401,5.1,23,1,0)
1996See
1997"^DD",1130580001.401,1130580001.401,5.1,23,2,0)
1998http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
1999"^DD",1130580001.401,1130580001.401,5.1,23,3,0)
20002FQnetTier3&cid=1228772217179
2001"^DD",1130580001.401,1130580001.401,5.1,"DT")
20023120801
2003"^DD",1130580001.401,1130580001.401,5.2,0)
2004STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q
2005"^DD",1130580001.401,1130580001.401,5.2,3)
2006Enter STK Measure Set to use for Inpatient CMS QRDA Reporting
2007"^DD",1130580001.401,1130580001.401,5.2,21,0)
2008^^3^3^3120801^
2009"^DD",1130580001.401,1130580001.401,5.2,21,1,0)
2010This field holds the STK measure set for reporting information to the
2011"^DD",1130580001.401,1130580001.401,5.2,21,2,0)
2012Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
2013"^DD",1130580001.401,1130580001.401,5.2,21,3,0)
20142012 EHR incentive pilot.
2015"^DD",1130580001.401,1130580001.401,5.2,23,0)
2016^^3^3^3120801^
2017"^DD",1130580001.401,1130580001.401,5.2,23,1,0)
2018See
2019"^DD",1130580001.401,1130580001.401,5.2,23,2,0)
2020http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
2021"^DD",1130580001.401,1130580001.401,5.2,23,3,0)
20222FQnetTier3&cid=1228772217179
2023"^DD",1130580001.401,1130580001.401,5.2,"DT")
20243120801
2025"^DD",1130580001.401,1130580001.401,5.3,0)
2026ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q
2027"^DD",1130580001.401,1130580001.401,5.3,3)
2028Enter ED Measure Set to use for Inpatient CMS QRDA Reporting
2029"^DD",1130580001.401,1130580001.401,5.3,21,0)
2030^^3^3^3120801^
2031"^DD",1130580001.401,1130580001.401,5.3,21,1,0)
2032This field holds the ED measure set for reporting information to the
2033"^DD",1130580001.401,1130580001.401,5.3,21,2,0)
2034Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
2035"^DD",1130580001.401,1130580001.401,5.3,21,3,0)
20362012 EHR incentive pilot.
2037"^DD",1130580001.401,1130580001.401,5.3,23,0)
2038^^3^3^3120801^
2039"^DD",1130580001.401,1130580001.401,5.3,23,1,0)
2040See
2041"^DD",1130580001.401,1130580001.401,5.3,23,2,0)
2042http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
2043"^DD",1130580001.401,1130580001.401,5.3,23,3,0)
20442FQnetTier3&cid=1228772217179
2045"^DD",1130580001.401,1130580001.401,5.3,"DT")
20463120801
2047"^DIC",1130580001.101,1130580001.101,0)
2048C0Q QUALITY MEASURE^1130580001.101
2049"^DIC",1130580001.101,1130580001.101,0,"GL")
2050^C0Q(101,
2051"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101)
2052
2053"^DIC",1130580001.201,1130580001.201,0)
2054C0Q MEASUREMENT SET^1130580001.201
2055"^DIC",1130580001.201,1130580001.201,0,"GL")
2056^C0Q(201,
2057"^DIC",1130580001.201,1130580001.201,"%",0)
2058^1.005^^
2059"^DIC",1130580001.201,1130580001.201,"%D",0)
2060^^3^3^3120731^
2061"^DIC",1130580001.201,1130580001.201,"%D",1,0)
2062This file contains the groupings of Measurements found in the Quality
2063"^DIC",1130580001.201,1130580001.201,"%D",2,0)
2064Measures file. It is tied to the parameters file as the set of
2065"^DIC",1130580001.201,1130580001.201,"%D",3,0)
2066measurements to report for a site.
2067"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201)
2068
2069**END**
2070**END**
Note: See TracBrowser for help on using the repository browser.