Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

C0Q_1_0_0_T1.KID@ 1053

Last change on this file since 1053 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

Rev	Line
[1014]	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