Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

C0CE_1_0_2_T1.KID@ 1432

Last change on this file since 1432 was 554, checked in by George Lilly, 15 years ago
move to archive
File size: 80.9 KB

Line
1	KIDS Distribution saved on Feb 23, 2009@12:11:02
2	prototype CCR E3 AND CCR E4
3	KIDS:C0CE1.02^
4
5	INSTALL NAME
6	C0CE1.02
7	"BLD",7407,0)
8	C0CE1.02^^0^3090223^y
9	"BLD",7407,4,0)
10	^9.64PA^171.201^7
11	"BLD",7407,4,170,0)
12	170
13	"BLD",7407,4,170,222)
14	y^y^f^^n^^y^o^n
15	"BLD",7407,4,170.101,0)
16	170.101
17	"BLD",7407,4,170.101,222)
18	y^y^f^^n^^y^o^n
19	"BLD",7407,4,171.101,0)
20	171.101
21	"BLD",7407,4,171.101,222)
22	y^y^f^^^^n
23	"BLD",7407,4,171.201,0)
24	171.201
25	"BLD",7407,4,171.201,222)
26	y^y^f^^n^^y^o^n
27	"BLD",7407,4,171.401,0)
28	171.401
29	"BLD",7407,4,171.401,222)
30	y^y^f^^^^n
31	"BLD",7407,4,171.501,0)
32	171.501
33	"BLD",7407,4,171.501,222)
34	y^y^f^^n^^y^o^n
35	"BLD",7407,4,171.601,0)
36	171.601
37	"BLD",7407,4,171.601,222)
38	y^y^f^^n^^y^o^n
39	"BLD",7407,4,"B",170,170)
40
41	"BLD",7407,4,"B",170.101,170.101)
42
43	"BLD",7407,4,"B",171.101,171.101)
44
45	"BLD",7407,4,"B",171.201,171.201)
46
47	"BLD",7407,4,"B",171.401,171.401)
48
49	"BLD",7407,4,"B",171.501,171.501)
50
51	"BLD",7407,4,"B",171.601,171.601)
52
53	"BLD",7407,6.3)
54	2
55	"BLD",7407,"KRN",0)
56	^9.67PA^8989.52^19
57	"BLD",7407,"KRN",.4,0)
58	.4
59	"BLD",7407,"KRN",.401,0)
60	.401
61	"BLD",7407,"KRN",.402,0)
62	.402
63	"BLD",7407,"KRN",.403,0)
64	.403
65	"BLD",7407,"KRN",.5,0)
66	.5
67	"BLD",7407,"KRN",.84,0)
68	.84
69	"BLD",7407,"KRN",3.6,0)
70	3.6
71	"BLD",7407,"KRN",3.8,0)
72	3.8
73	"BLD",7407,"KRN",9.2,0)
74	9.2
75	"BLD",7407,"KRN",9.8,0)
76	9.8
77	"BLD",7407,"KRN",9.8,"NM",0)
78	^9.68A^^
79	"BLD",7407,"KRN",19,0)
80	19
81	"BLD",7407,"KRN",19.1,0)
82	19.1
83	"BLD",7407,"KRN",101,0)
84	101
85	"BLD",7407,"KRN",409.61,0)
86	409.61
87	"BLD",7407,"KRN",771,0)
88	771
89	"BLD",7407,"KRN",870,0)
90	870
91	"BLD",7407,"KRN",8989.51,0)
92	8989.51
93	"BLD",7407,"KRN",8989.52,0)
94	8989.52
95	"BLD",7407,"KRN",8994,0)
96	8994
97	"BLD",7407,"KRN","B",.4,.4)
98
99	"BLD",7407,"KRN","B",.401,.401)
100
101	"BLD",7407,"KRN","B",.402,.402)
102
103	"BLD",7407,"KRN","B",.403,.403)
104
105	"BLD",7407,"KRN","B",.5,.5)
106
107	"BLD",7407,"KRN","B",.84,.84)
108
109	"BLD",7407,"KRN","B",3.6,3.6)
110
111	"BLD",7407,"KRN","B",3.8,3.8)
112
113	"BLD",7407,"KRN","B",9.2,9.2)
114
115	"BLD",7407,"KRN","B",9.8,9.8)
116
117	"BLD",7407,"KRN","B",19,19)
118
119	"BLD",7407,"KRN","B",19.1,19.1)
120
121	"BLD",7407,"KRN","B",101,101)
122
123	"BLD",7407,"KRN","B",409.61,409.61)
124
125	"BLD",7407,"KRN","B",771,771)
126
127	"BLD",7407,"KRN","B",870,870)
128
129	"BLD",7407,"KRN","B",8989.51,8989.51)
130
131	"BLD",7407,"KRN","B",8989.52,8989.52)
132
133	"BLD",7407,"KRN","B",8994,8994)
134
135	"BLD",7407,"QUES",0)
136	^9.62^^
137	"DATA",170,1,0)
138	DATETIME
139	"DATA",170,1,1)
140	//ContinuityOfCareRecord/DateTime/ExactDateTime
141	"DATA",170,1,4)
142	^DT
143	"DATA",170,1,7)
144	N^HEADER^^1
145	"DATA",170,2,0)
146	ACTORPATIENT
147	"DATA",170,2,1)
148	//ContinuityOfCareRecord/Patient/ActorID
149	"DATA",170,2,4)
150	^ID
151	"DATA",170,2,7)
152	N^ACTORS^^6
153	"DATA",170,3,0)
154	ACTORFROM
155	"DATA",170,3,4)
156	^ID
157	"DATA",170,3,7)
158	N^ACTORS^^6
159	"DATA",170,4,0)
160	ACTORFROM2
161	"DATA",170,4,4)
162	^ID
163	"DATA",170,4,7)
164	N^ACTORS^^6
165	"DATA",170,5,0)
166	ACTORTO
167	"DATA",170,5,1)
168	//ContinuityOfCareRecord/To/ActorLink/ActorID
169	"DATA",170,5,4)
170	^ID
171	"DATA",170,5,7)
172	N^ACTORS^^6
173	"DATA",170,6,0)
174	ACTORTOTEXT
175	"DATA",170,6,1)
176	//ContinuityOfCareRecord/To/ActorLink/ActorRole/Text
177	"DATA",170,6,4)
178	^V
179	"DATA",170,6,7)
180	N^ACTORS^^6
181	"DATA",170,7,0)
182	PURPOSEDESCRIPTION
183	"DATA",170,7,1)
184	//ContinuityOfCareRecord/Purpose/Description/Text
185	"DATA",170,7,4)
186	^V
187	"DATA",170,7,7)
188	N^HEADER^^1
189	"DATA",170,8,0)
190	PROBLEMOBJECTID
191	"DATA",170,8,1)
192	//ContinuityOfCareRecord/Body/Problems/Problem/CCRDataObjectID
193	"DATA",170,8,4)
194	^ID
195	"DATA",170,8,7)
196	N^PROBLEMS^PROBLEMS^5
197	"DATA",170,9,0)
198	PROBLEMDESCRIPTION
199	"DATA",170,9,1)
200	//ContinuityOfCareRecord/Body/Problems/Problem/Description/Text
201	"DATA",170,9,4)
202	^V
203	"DATA",170,9,7)
204	N^PROBLEMS^^5
205	"DATA",170,10,0)
206	PROBLEMCODEVALUE
207	"DATA",170,10,1)
208	//ContinuityOfCareRecord/Body/Problems/Problem/Description/Code/Value
209	"DATA",170,10,4)
210	^CD
211	"DATA",170,10,6,0)
212	^170.08S^1^1
213	"DATA",170,10,6,1,0)
214	ICD
215	"DATA",170,10,6,1,1,0)
216	^^3^3^3081123^
217	"DATA",170,10,6,1,1,1,0)
218	The ICD9 code for the problem is retrieved from the patient's record by a
219	"DATA",170,10,6,1,1,2,0)
220	call to LIST^ORQQPL3. It is piece 4 in the return array.
221	"DATA",170,10,6,1,1,3,0)
222	. S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
223	"DATA",170,10,7)
224	N^PROBLEMS^^5
225	"DATA",170,11,0)
226	PROBLEMCODINGVERSION
227	"DATA",170,11,1)
228	//ContinuityOfCareRecord/Body/Problems/Problem/Description/Code/Version
229	"DATA",170,11,4)
230	^CV
231	"DATA",170,11,6,0)
232	^170.08S^1^1
233	"DATA",170,11,6,1,0)
234	ICD
235	"DATA",170,11,6,1,1,0)
236	^170.81^5^5^3081123^^
237	"DATA",170,11,6,1,1,1,0)
238	The ICD9 codes for problems are retrieved from the patient record by
239	"DATA",170,11,6,1,1,2,0)
240	using the remote procedure call LIST^ORQQPL3. The value is in the 4th
241	"DATA",170,11,6,1,1,3,0)
242	piece of the return array for the problem.
243	"DATA",170,11,6,1,1,4,0)
244
245	"DATA",170,11,6,1,1,5,0)
246	. S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
247	"DATA",170,11,7)
248	N^PROBLEMS^^5
249	"DATA",170,12,0)
250	PROBLEMSOURCEACTORID
251	"DATA",170,12,1)
252	//ContinuityOfCareRecord/Body/Problems/Problem/Source/Actor/ActorID
253	"DATA",170,12,4)
254	^ID
255	"DATA",170,12,7)
256	N^PROBLEMS^^5
257	"DATA",170,13,0)
258	FAMILYHISTORYOBJECTID
259	"DATA",170,13,1)
260	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/CCRDataObjectID
261	"DATA",170,13,4)
262	^ID
263	"DATA",170,13,7)
264	X^FAM^^12
265	"DATA",170,14,0)
266	FAMILYHISTORYACTORID
267	"DATA",170,14,1)
268	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Source/Actor/ActorID
269	"DATA",170,14,4)
270	^ID
271	"DATA",170,14,7)
272	X^FAM^^12
273	"DATA",170,15,0)
274	FAMILYMEMBERACTORID
275	"DATA",170,15,1)
276	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/ActorID
277	"DATA",170,15,4)
278	^ID
279	"DATA",170,15,7)
280	X^FAM^^12
281	"DATA",170,16,0)
282	FAMILYMEMBERACTORROLETEXT
283	"DATA",170,16,1)
284	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/ActorRole/Text
285	"DATA",170,16,4)
286	^V
287	"DATA",170,16,7)
288	X^FAM^^12
289	"DATA",170,17,0)
290	FAMILYMEMBERSOURCACTORID
291	"DATA",170,17,1)
292	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/Source/Actor/ActorID
293	"DATA",170,17,4)
294	^ID
295	"DATA",170,17,7)
296	X^FAM^^12
297	"DATA",170,18,0)
298	FAMILYMEMBERPROBLEMDESCRIPTION
299	"DATA",170,18,1)
300	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Text
301	"DATA",170,18,4)
302	^
303	"DATA",170,18,7)
304	X^FAM^^12
305	"DATA",170,19,0)
306	FAMILYMEMBERPROBLEMCODE
307	"DATA",170,19,1)
308	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/Value
309	"DATA",170,19,4)
310	^
311	"DATA",170,19,7)
312	X^FAM^^12
313	"DATA",170,20,0)
314	FAMILYMEMBERCODESYSTEM
315	"DATA",170,20,1)
316	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/CodingSystem
317	"DATA",170,20,4)
318	^
319	"DATA",170,20,7)
320	X^FAM^^12
321	"DATA",170,21,0)
322	FAMILYMEMBERCODEVERSION
323	"DATA",170,21,1)
324	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/Version
325	"DATA",170,21,4)
326	^CV
327	"DATA",170,21,7)
328	X^FAM^^12
329	"DATA",170,22,0)
330	FAMILYMEMBERPROBLEMSOURCEID
331	"DATA",170,22,1)
332	//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Source/Actor/ActorID
333	"DATA",170,22,4)
334	^ID
335	"DATA",170,22,7)
336	X^FAM^^12
337	"DATA",170,23,0)
338	SOCIALHISTORYOBJECTID
339	"DATA",170,23,4)
340	^ID
341	"DATA",170,23,7)
342	X^SOC^^13
343	"DATA",170,24,0)
344	SOCIALHISTORYTYPETEXT
345	"DATA",170,24,4)
346	^
347	"DATA",170,24,7)
348	X^SOC^^13
349	"DATA",170,25,0)
350	SOCIALHISTORYDESCRIPTIONTEXT
351	"DATA",170,25,4)
352	^
353	"DATA",170,25,7)
354	X^SOC^^13
355	"DATA",170,26,0)
356	SOCIALHISTORYSOURCACTORID
357	"DATA",170,26,4)
358	^ID
359	"DATA",170,26,7)
360	X^SOC^^13
361	"DATA",170,27,0)
362	ALERTOBJECTID
363	"DATA",170,27,1)
364	//ContinuityOfCareRecord/Body/Alerts/Alert/CCRDataObjectID
365	"DATA",170,27,4)
366	^ID
367	"DATA",170,27,5,0)
368	^^1^1^3081120^
369	"DATA",170,27,5,1,0)
370	Unique (in the document) ObjectID for the Alert
371	"DATA",170,27,7)
372	N^ALERTS^ALERTS^4
373	"DATA",170,28,0)
374	ALERTDESCRIPTIONTEXT
375	"DATA",170,28,1)
376	//ContinuityOfCareRecord/Body/Alerts/Alert/Description/Text
377	"DATA",170,28,4)
378	^V
379	"DATA",170,28,5,0)
380	^170.01^6^6^3081122^^
381	"DATA",170,28,5,1,0)
382	An instance of CodedDescriptionType that
383	"DATA",170,28,5,2,0)
384	supports a free text string, a structured text
385	"DATA",170,28,5,3,0)
386	string or strings, or a structured and coded
387	"DATA",170,28,5,4,0)
388	text string or strings. It is recommended
389	"DATA",170,28,5,5,0)
390	that, when possible, all instances of <Alert>
391	"DATA",170,28,5,6,0)
392	be coded with SNOMED CT
393	"DATA",170,28,7)
394	I^ALERTS^^4
395	"DATA",170,29,0)
396	ALERTCODEVALUE^6.06
397	"DATA",170,29,1)
398	//ContinuityOfCareRecord/Body/Alerts/Alert/Description/Code/Value
399	"DATA",170,29,4)
400	^CD^Reaction Coded
401	"DATA",170,29,5,0)
402	^^1^1^3081120^
403	"DATA",170,29,5,1,0)
404	Code Value for the Alert Reaction
405	"DATA",170,29,7)
406	N^ALERTS^^4
407	"DATA",170,30,0)
408	ALERTCODESYSTEM^6.06
409	"DATA",170,30,1)
410	//ContinuityOfCareRecord/Body/Alerts/Alert/Description/Code/CodingSystem
411	"DATA",170,30,4)
412	^CS^Reaction Coded
413	"DATA",170,30,5,0)
414	^170.01^1^1^3081120^^
415	"DATA",170,30,5,1,0)
416	Coding System for the Alert Reaction Code
417	"DATA",170,30,6,0)
418	^170.08S^1^1
419	"DATA",170,30,6,1,0)
420	SNO
421	"DATA",170,30,6,1,1,0)
422	^^17^17^3081121^
423	"DATA",170,30,6,1,1,1,0)
424	The Alerts Reaction SNOMED CT code
425	"DATA",170,30,6,1,1,2,0)
426	is assigned by the extraction as one of two
427	"DATA",170,30,6,1,1,3,0)
428	values based on the MECHANISM field in the PATIENT ALLERGY file 120.8.
429	"DATA",170,30,6,1,1,4,0)
430
431	"DATA",170,30,6,1,1,5,0)
432	The codes are
433	"DATA",170,30,6,1,1,6,0)
434
435	"DATA",170,30,6,1,1,7,0)
436	282100009 for Adverse Reaction to a Substance
437	"DATA",170,30,6,1,1,8,0)
438	418634005 for Allergic Reaction to a substance
439	"DATA",170,30,6,1,1,9,0)
440
441	"DATA",170,30,6,1,1,10,0)
442	. N A2 S A2=$$GET1^DIQ(120.8,ALTTMP,"MECHANISM","I") ; MECHANISM
443	"DATA",170,30,6,1,1,11,0)
444
445	"DATA",170,30,6,1,1,12,0)
446	. S ADT=ADT_$S(A2="P":"ADVERSE",A2="A":"ALLERGIC",1:"UNKNOWN")
447	"DATA",170,30,6,1,1,13,0)
448
449	"DATA",170,30,6,1,1,14,0)
450	. S ALTCDE=$S(A2="P":"282100009",A2="A":"418634005",1:"") ;
451	"DATA",170,30,6,1,1,15,0)
452
453	"DATA",170,30,6,1,1,16,0)
454	In a future patch, it is planned to retrieve these codes from a C0CCODES
455	"DATA",170,30,6,1,1,17,0)
456	file for easier maintenance.
457	"DATA",170,30,7)
458	N^ALERTS^^4
459	"DATA",170,31,0)
460	ALERTSTATUSTEXT
461	"DATA",170,31,1)
462	//ContinuityOfCareRecord/Body/Alerts/Alert/Status/Text
463	"DATA",170,31,4)
464	^
465	"DATA",170,31,7)
466	N^ALERTS^^4
467	"DATA",170,32,0)
468	ALERTSOURCEID
469	"DATA",170,32,1)
470	//ContinuityOfCareRecord/Body/Alerts/Alert/Source/Actor/ActorID
471	"DATA",170,32,4)
472	^ID
473	"DATA",170,32,5,0)
474	^^1^1^3081120^
475	"DATA",170,32,5,1,0)
476	Source Actor for the Alert
477	"DATA",170,32,7)
478	N^ALERTS^^4
479	"DATA",170,33,0)
480	ALERTAGENTPRODUCTOBJECTID
481	"DATA",170,33,1)
482	//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/CCRDataObjectID
483	"DATA",170,33,4)
484	^ID
485	"DATA",170,33,5,0)
486	^170.01^1^1^3081120^^
487	"DATA",170,33,5,1,0)
488	Object ID for the Alert Agent Product
489	"DATA",170,33,7)
490	N^ALERTS^^4
491	"DATA",170,34,0)
492	ALERTAGENTPRODUCTSOURCEID
493	"DATA",170,34,1)
494	//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/Source/Actor/ActorID
495	"DATA",170,34,4)
496	^ID
497	"DATA",170,34,5,0)
498	^^1^1^3081120^
499	"DATA",170,34,5,1,0)
500	Source Object ID for the Alert Agent Product
501	"DATA",170,34,7)
502	N^ALERTS^^4
503	"DATA",170,35,0)
504	ALERTAGENTPRODUCTNAMETEXT^6.03
505	"DATA",170,35,1)
506	//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/ProductName/Text
507	"DATA",170,35,4)
508	^V^Product Free-Text
509	"DATA",170,35,7)
510	N^ALERTS^^4
511	"DATA",170,36,0)
512	ALERTAGENTPRODUCTCODEVALUE^6.04
513	"DATA",170,36,1)
514	//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/ProductName/Code/Value
515	"DATA",170,36,4)
516	^CD^Product Coded
517	"DATA",170,36,7)
518	N^ALERTS^ALERTSCODE^4
519	"DATA",170,37,0)
520	ALERTAGENTPRODUCTCODESYSTEM
521	"DATA",170,37,1)
522	//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/ProductName/Code/CodingSystem
523	"DATA",170,37,4)
524	^
525	"DATA",170,37,6,0)
526	^170.08S^1^1
527	"DATA",170,37,6,1,0)
528	VUI
529	"DATA",170,37,6,1,1,0)
530	^^22^22^3081121^
531	"DATA",170,37,6,1,1,1,0)
532	The VUID code for Alerts Agent Product (Reactant) is
533	"DATA",170,37,6,1,1,2,0)
534	retrieved from the PATIENT ALLERGY file where
535	"DATA",170,37,6,1,1,3,0)
536	it is found using a variable pointer to several files which have a VUID
537	"DATA",170,37,6,1,1,4,0)
538	index.
539	"DATA",170,37,6,1,1,5,0)
540
541	"DATA",170,37,6,1,1,6,0)
542	. S ACGL1=$P(@ALTG@(ALTTMP),U,9) ; ADDRESS OF THE REACTANT XX;GLB(YY.Z,
543	"DATA",170,37,6,1,1,7,0)
544	. S ACGFI=$$PRSGLB($P(ACGL1,";",2)) ; FILE NUMBER
545	"DATA",170,37,6,1,1,8,0)
546	. S ACIEN=$P(ACGL1,";",1) ; IEN OF REACTANT
547	"DATA",170,37,6,1,1,9,0)
548	. S ACVUID=$$GET1^DIQ(ACGFI,ACIEN,"VUID") ; VUID OF THE REACTANT
549	"DATA",170,37,6,1,1,10,0)
550
551	"DATA",170,37,6,1,1,11,0)
552	[the following is copied from the Technical Description of field 1 GMR
553	"DATA",170,37,6,1,1,12,0)
554	ALLERGY of the PATIENT ALLERGY file]
555	"DATA",170,37,6,1,1,13,0)
556	This field is a variable pointer to help relate this allergy to some
557	"DATA",170,37,6,1,1,14,0)
558	record in one of the files to which this field points. The files that are
559	"DATA",170,37,6,1,1,15,0)
560	pointed to are the GMR Allergies (120.82) file, National Drug (50.6) file,
561	"DATA",170,37,6,1,1,16,0)
562	Drug (50) file, Drug Ingredients (50.416) file and VA Drug Class
563	"DATA",170,37,6,1,1,17,0)
564	(50.605) file.
565	"DATA",170,37,6,1,1,18,0)
566
567	"DATA",170,37,6,1,1,19,0)
568	In a future patch, the resulting VUID code will be used to retrieve a
569	"DATA",170,37,6,1,1,20,0)
570	RXNORM code from the C0CCODES file. The RXNORM mapping
571	"DATA",170,37,6,1,1,21,0)
572	has been done by the
573	"DATA",170,37,6,1,1,22,0)
574	VA for 10,449 VUID code values.
575	"DATA",170,37,7)
576	N^ALERTS^^4
577	"DATA",170,38,0)
578	ALERTREACTIOINDESCRIPTIONTEXT^6.05
579	"DATA",170,38,1)
580	//ContinuityOfCareRecord/Body/Alerts/Alert/Reaction/Description/Text
581	"DATA",170,38,4)
582	^V^Reaction Free-Text
583	"DATA",170,38,5,0)
584	^170.01^1^1^3081122^^
585	"DATA",170,38,5,1,0)
586	Alert Reaction Description Text - derived from the code
587	"DATA",170,38,7)
588	I^ALERTS^^4
589	"DATA",170,39,0)
590	ALERTREACTIONCODEVALUE
591	"DATA",170,39,1)
592	//ContinuityOfCareRecord/Body/Alerts/Alert/Reaction/Description/Code/Value
593	"DATA",170,39,4)
594	^CD
595	"DATA",170,39,7)
596	N^ALERTS^^4
597	"DATA",170,40,0)
598	ALERTREACTIONCODESYSTEM
599	"DATA",170,40,1)
600	//ContinuityOfCareRecord/Body/Alerts/Alert/Reaction/Description/Code/CodingSystem
601	"DATA",170,40,4)
602	^
603	"DATA",170,40,7)
604	N^ALERTS^^4
605	"DATA",170,41,0)
606	MEDOBJECTID
607	"DATA",170,41,1)
608	//ContinuityOfCareRecord/Body/Medications/Medication/CCRDataObjectID
609	"DATA",170,41,4)
610	^ID
611	"DATA",170,41,7)
612	N^MEDS^MEDS^7
613	"DATA",170,42,0)
614	MEDISSUEDATETXT
615	"DATA",170,42,4)
616	^
617	"DATA",170,42,7)
618	N
619	"DATA",170,43,0)
620	MEDISSUEDATE
621	"DATA",170,43,4)
622	^
623	"DATA",170,43,7)
624	N
625	"DATA",170,44,0)
626	MEDLASTFILLDATETXT
627	"DATA",170,44,4)
628	^
629	"DATA",170,44,7)
630	N
631	"DATA",170,45,0)
632	MEDLASTFILLDATE
633	"DATA",170,45,4)
634	^
635	"DATA",170,45,7)
636	N
637	"DATA",170,46,0)
638	MEDRXNOTXT
639	"DATA",170,46,1)
640	//ContinuityOfCareRecord/Body/Medications/Medication/IDs/Type/Text
641	"DATA",170,46,4)
642	^
643	"DATA",170,46,7)
644	N^MEDS^^7
645	"DATA",170,47,0)
646	MEDRXNO
647	"DATA",170,47,1)
648	//ContinuityOfCareRecord/Body/Medications/Medication/IDs/ID
649	"DATA",170,47,4)
650	^
651	"DATA",170,47,7)
652	N^MEDS^^7
653	"DATA",170,48,0)
654	MEDTYPETEXT
655	"DATA",170,48,1)
656	//ContinuityOfCareRecord/Body/Medications/Medication/Type/Text
657	"DATA",170,48,4)
658	^
659	"DATA",170,48,7)
660	N^MEDS^^7
661	"DATA",170,49,0)
662	MEDDETAILUNADORNED
663	"DATA",170,49,1)
664	//ContinuityOfCareRecord/Body/Medications/Medication/Description/Text
665	"DATA",170,49,4)
666	^
667	"DATA",170,49,7)
668	N^MEDS^^7
669	"DATA",170,50,0)
670	MEDSTATUSTEXT
671	"DATA",170,50,1)
672	//ContinuityOfCareRecord/Body/Medications/Medication/Status/Text
673	"DATA",170,50,4)
674	^
675	"DATA",170,50,7)
676	N^MEDS^^7
677	"DATA",170,51,0)
678	MEDSOURCEACTORID
679	"DATA",170,51,1)
680	//ContinuityOfCareRecord/Body/Medications/Medication/Source/Actor/ActorID
681	"DATA",170,51,4)
682	^ID
683	"DATA",170,51,7)
684	N^MEDS^^7
685	"DATA",170,52,0)
686	MEDPRODUCTNAMETEXT
687	"DATA",170,52,1)
688	//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Text
689	"DATA",170,52,4)
690	^
691	"DATA",170,52,7)
692	N^MEDS^^7
693	"DATA",170,53,0)
694	MEDPRODUCTNAMECODEVALUE
695	"DATA",170,53,1)
696	//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Code/Value
697	"DATA",170,53,4)
698	^CD
699	"DATA",170,53,7)
700	N^MEDS^MEDSCODE^7
701	"DATA",170,54,0)
702	MEDPRODUCTNAMECODINGINGSYSTEM
703	"DATA",170,54,1)
704	//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Code/CodingSystem
705	"DATA",170,54,4)
706	^
707	"DATA",170,54,7)
708	N^MEDS^^7
709	"DATA",170,55,0)
710	MEDPRODUCTNAMECODEVERSION
711	"DATA",170,55,1)
712	//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Code/Version
713	"DATA",170,55,4)
714	^CV
715	"DATA",170,55,7)
716	N^MEDS^^7
717	"DATA",170,56,0)
718	MEDBRANDNAMETEXT
719	"DATA",170,56,1)
720	//ContinuityOfCareRecord/Body/Medications/Medication/Product/BrandName/Text
721	"DATA",170,56,4)
722	^
723	"DATA",170,56,7)
724	N^MEDS^^7
725	"DATA",170,57,0)
726	MEDSTRENGTHVALUE
727	"DATA",170,57,1)
728	//ContinuityOfCareRecord/Body/Medications/Medication/Product/Strength/Value
729	"DATA",170,57,4)
730	^
731	"DATA",170,57,7)
732	N^MEDS^^7
733	"DATA",170,58,0)
734	MEDSTRENGTHUNIT
735	"DATA",170,58,1)
736	//ContinuityOfCareRecord/Body/Medications/Medication/Product/Strength/Units/Unit
737	"DATA",170,58,4)
738	^
739	"DATA",170,58,7)
740	N^MEDS^^7
741	"DATA",170,59,0)
742	MEDFORMTEXT
743	"DATA",170,59,1)
744	//ContinuityOfCareRecord/Body/Medications/Medication/Product/Form/Text
745	"DATA",170,59,4)
746	^
747	"DATA",170,59,7)
748	N^MEDS^^7
749	"DATA",170,60,0)
750	MEDCONCVALUE
751	"DATA",170,60,1)
752	//ContinuityOfCareRecord/Body/Medications/Medication/Product/Concentration/Value
753	"DATA",170,60,4)
754	^
755	"DATA",170,60,7)
756	N^MEDS^^7
757	"DATA",170,61,0)
758	MEDCONCUNIT
759	"DATA",170,61,1)
760	//ContinuityOfCareRecord/Body/Medications/Medication/Product/Concentration/Units/Unit
761	"DATA",170,61,4)
762	^
763	"DATA",170,61,7)
764	N^MEDS^^7
765	"DATA",170,62,0)
766	MEDSIZETEXT
767	"DATA",170,62,1)
768	//ContinuityOfCareRecord/Body/Medications/Medication/Product/Size/Text
769	"DATA",170,62,4)
770	^
771	"DATA",170,62,7)
772	N^MEDS^^7
773	"DATA",170,63,0)
774	MEDQUANTITYVALUE
775	"DATA",170,63,1)
776	//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Value
777	"DATA",170,63,4)
778	^
779	"DATA",170,63,7)
780	N^MEDS^^7
781	"DATA",170,64,0)
782	MEDQUANTITYUNIT
783	"DATA",170,64,1)
784	//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Units/Unit
785	"DATA",170,64,4)
786	^
787	"DATA",170,64,7)
788	N^MEDS^^7
789	"DATA",170,65,0)
790	MEDDIRECTIONDESCRIPTIONTEXT
791	"DATA",170,65,1)
792	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Description/Text
793	"DATA",170,65,4)
794	^
795	"DATA",170,65,7)
796	N^DIR^^8
797	"DATA",170,66,0)
798	MEDDOSEINDICATOR
799	"DATA",170,66,1)
800	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DoseIndicator/Text
801	"DATA",170,66,4)
802	^
803	"DATA",170,66,7)
804	N^DIR^^8
805	"DATA",170,67,0)
806	MEDDELIVERYMETHOD
807	"DATA",170,67,1)
808	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DeliveryMethod/Text
809	"DATA",170,67,4)
810	^
811	"DATA",170,67,7)
812	N^DIR^^8
813	"DATA",170,68,0)
814	MEDDOSEVALUE
815	"DATA",170,68,1)
816	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Value
817	"DATA",170,68,4)
818	^
819	"DATA",170,68,7)
820	N^DIR^^8
821	"DATA",170,69,0)
822	MEDDOSEUNIT
823	"DATA",170,69,1)
824	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Units/Unit
825	"DATA",170,69,4)
826	^
827	"DATA",170,69,7)
828	N^DIR^^8
829	"DATA",170,70,0)
830	MEDRATEVALUE
831	"DATA",170,70,1)
832	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Rate/Value
833	"DATA",170,70,4)
834	^
835	"DATA",170,70,7)
836	N^DIR^^8
837	"DATA",170,71,0)
838	MEDRATEUNIT
839	"DATA",170,71,1)
840	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Rate/Units/Unit
841	"DATA",170,71,4)
842	^
843	"DATA",170,71,7)
844	N^DIR^^8
845	"DATA",170,72,0)
846	MEDVEHICLETEXT
847	"DATA",170,72,1)
848	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Vehicle/Text
849	"DATA",170,72,4)
850	^
851	"DATA",170,72,7)
852	N^DIR^^8
853	"DATA",170,73,0)
854	MEDDIRECTIONROUTETEXT
855	"DATA",170,73,1)
856	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Route/Text
857	"DATA",170,73,4)
858	^
859	"DATA",170,73,7)
860	N^DIR^^8
861	"DATA",170,74,0)
862	MEDFREQUENCYVALUE
863	"DATA",170,74,1)
864	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Frequency/Value
865	"DATA",170,74,4)
866	^
867	"DATA",170,74,7)
868	N^DIR^^8
869	"DATA",170,75,0)
870	MEDINTERVALVALUE
871	"DATA",170,75,1)
872	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Interval/Value
873	"DATA",170,75,4)
874	^
875	"DATA",170,75,7)
876	N^DIR^^8
877	"DATA",170,76,0)
878	MEDINTERVALUNIT
879	"DATA",170,76,1)
880	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Interval/Units/Unit
881	"DATA",170,76,4)
882	^
883	"DATA",170,76,7)
884	N^DIR^^8
885	"DATA",170,77,0)
886	MEDDURATIONVALUE
887	"DATA",170,77,1)
888	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Duration/Value
889	"DATA",170,77,4)
890	^
891	"DATA",170,77,7)
892	N^DIR^^8
893	"DATA",170,78,0)
894	MEDDURATIONUNIT
895	"DATA",170,78,1)
896	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Duration/Units/Unit
897	"DATA",170,78,4)
898	^
899	"DATA",170,78,7)
900	N^DIR^^8
901	"DATA",170,79,0)
902	MEDPRNFLAG
903	"DATA",170,79,1)
904	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/PRNFlag/Text
905	"DATA",170,79,4)
906	^
907	"DATA",170,79,7)
908	N^DIR^^8
909	"DATA",170,80,0)
910	MEDPROBLEMOBJECTID
911	"DATA",170,80,1)
912	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/CCRDataObjectID
913	"DATA",170,80,4)
914	^ID
915	"DATA",170,80,7)
916	N^DIR^^8
917	"DATA",170,81,0)
918	MEDPROBLEMTYPETXT
919	"DATA",170,81,1)
920	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Type/Text
921	"DATA",170,81,4)
922	^
923	"DATA",170,81,7)
924	N^DIR^^8
925	"DATA",170,82,0)
926	MEDPROBLEMDESCRIPTION
927	"DATA",170,82,1)
928	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Text
929	"DATA",170,82,4)
930	^
931	"DATA",170,82,7)
932	N^DIR^^8
933	"DATA",170,83,0)
934	MEDPROBLEMCODEVALUE
935	"DATA",170,83,1)
936	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Code/Value
937	"DATA",170,83,4)
938	^CD
939	"DATA",170,83,7)
940	N^DIR^^8
941	"DATA",170,84,0)
942	MEDPROBLEMCODINGSYSTEM
943	"DATA",170,84,1)
944	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Code/CodingSystem
945	"DATA",170,84,4)
946	^CS
947	"DATA",170,84,7)
948	N^DIR^^8
949	"DATA",170,85,0)
950	MEDPROBLEMCODINGVERSION
951	"DATA",170,85,1)
952	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Code/Version
953	"DATA",170,85,4)
954	^
955	"DATA",170,85,7)
956	N^DIR^^8
957	"DATA",170,86,0)
958	MEDPROBLEMSOURCEACTORID
959	"DATA",170,86,1)
960	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Source/Actor/ActorID
961	"DATA",170,86,4)
962	^ID
963	"DATA",170,86,7)
964	N^DIR^^8
965	"DATA",170,87,0)
966	MEDSTOPINDICATOR
967	"DATA",170,87,1)
968	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/StopIndicator/Text
969	"DATA",170,87,4)
970	^
971	"DATA",170,87,7)
972	N^DIR^^8
973	"DATA",170,88,0)
974	MEDDIRSEQ
975	"DATA",170,88,1)
976	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DirectionSequenceModifier
977	"DATA",170,88,4)
978	^
979	"DATA",170,88,7)
980	N^DIR^^8
981	"DATA",170,89,0)
982	MEDMULDIRMOD
983	"DATA",170,89,1)
984	//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/MultipleDirectionModifier/Text
985	"DATA",170,89,4)
986	^
987	"DATA",170,89,7)
988	N^DIR^^8
989	"DATA",170,90,0)
990	MEDPTINSTRUCTIONS
991	"DATA",170,90,1)
992	//ContinuityOfCareRecord/Body/Medications/Medication/PatientInstructions/Instruction
993	"DATA",170,90,4)
994	^
995	"DATA",170,90,7)
996	N^MEDS^^7
997	"DATA",170,91,0)
998	MEDFULLFILLMENTINSTRUCTIONS
999	"DATA",170,91,1)
1000	//ContinuityOfCareRecord/Body/Medications/Medication/FullfillmentInstructions/Text
1001	"DATA",170,91,4)
1002	^
1003	"DATA",170,91,7)
1004	N^MEDS^^7
1005	"DATA",170,92,0)
1006	MEDRFNO
1007	"DATA",170,92,1)
1008	//ContinuityOfCareRecord/Body/Medications/Medication/Refills/Refill/Number
1009	"DATA",170,92,4)
1010	^
1011	"DATA",170,92,7)
1012	N^MEDS^^7
1013	"DATA",170,93,0)
1014	VITALSIGNSDATAOBJECTID
1015	"DATA",170,93,1)
1016	//ContinuityOfCareRecord/Body/VitalSigns/Result/CCRDataObjectID
1017	"DATA",170,93,4)
1018	^ID
1019	"DATA",170,93,7)
1020	N^VITALS^VITALS^11
1021	"DATA",170,94,0)
1022	VITALSIGNSDATETIMETYPETEXT
1023	"DATA",170,94,1)
1024	//ContinuityOfCareRecord/Body/VitalSigns/Result/DateTime/Type/Text
1025	"DATA",170,94,4)
1026	^DT
1027	"DATA",170,94,7)
1028	N^VITALS^^11
1029	"DATA",170,95,0)
1030	VITALSIGNSEXACTDATETIME
1031	"DATA",170,95,1)
1032	//ContinuityOfCareRecord/Body/VitalSigns/Result/DateTime/ExactDateTime
1033	"DATA",170,95,4)
1034	^DT
1035	"DATA",170,95,7)
1036	N^VITALS^^11
1037	"DATA",170,96,0)
1038	VITALSIGNSSOURCEACTORID
1039	"DATA",170,96,1)
1040	//ContinuityOfCareRecord/Body/VitalSigns/Result/Source/Actor/ActorID
1041	"DATA",170,96,4)
1042	^ID
1043	"DATA",170,96,7)
1044	N^VITALS^^11
1045	"DATA",170,97,0)
1046	VITALSIGNSTESTOBJECTID
1047	"DATA",170,97,1)
1048	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/CCRDataObjectID
1049	"DATA",170,97,4)
1050	^ID
1051	"DATA",170,97,7)
1052	N^VITALS^^11
1053	"DATA",170,98,0)
1054	VITALSIGNSTESTTYPETEXT
1055	"DATA",170,98,1)
1056	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Type/Text
1057	"DATA",170,98,4)
1058	^
1059	"DATA",170,98,7)
1060	N^VITALS^^11
1061	"DATA",170,99,0)
1062	VITALSIGNSDESCRIPTIONTEXT
1063	"DATA",170,99,1)
1064	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Text
1065	"DATA",170,99,4)
1066	^
1067	"DATA",170,99,7)
1068	N^VITALS^^11
1069	"DATA",170,100,0)
1070	VITALSIGNSDESCRIPTIONCODEVALUE
1071	"DATA",170,100,1)
1072	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/Value
1073	"DATA",170,100,4)
1074	^CD
1075	"DATA",170,100,6,0)
1076	^170.08S^1^1
1077	"DATA",170,100,6,1,0)
1078	SNO
1079	"DATA",170,100,6,1,1,0)
1080	^^26^26^3081121^
1081	"DATA",170,100,6,1,1,1,0)
1082	The SNOMED CT codes for Vitals are assigned by the extraction according
1083	"DATA",170,100,6,1,1,2,0)
1084	to the vital signs supported in VistA as follows:
1085	"DATA",170,100,6,1,1,3,0)
1086
1087	"DATA",170,100,6,1,1,4,0)
1088	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
1089	"DATA",170,100,6,1,1,5,0)
1090	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
1091	"DATA",170,100,6,1,1,6,0)
1092
1093	"DATA",170,100,6,1,1,7,0)
1094	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
1095	"DATA",170,100,6,1,1,8,0)
1096	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
1097	"DATA",170,100,6,1,1,9,0)
1098
1099	"DATA",170,100,6,1,1,10,0)
1100	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
1101	"DATA",170,100,6,1,1,11,0)
1102	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
1103	"DATA",170,100,6,1,1,12,0)
1104
1105	"DATA",170,100,6,1,1,13,0)
1106	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
1107	"DATA",170,100,6,1,1,14,0)
1108	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
1109	"DATA",170,100,6,1,1,15,0)
1110
1111	"DATA",170,100,6,1,1,16,0)
1112	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
1113	"DATA",170,100,6,1,1,17,0)
1114	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
1115	"DATA",170,100,6,1,1,18,0)
1116
1117	"DATA",170,100,6,1,1,19,0)
1118	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
1119	"DATA",170,100,6,1,1,20,0)
1120	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
1121	"DATA",170,100,6,1,1,21,0)
1122
1123	"DATA",170,100,6,1,1,22,0)
1124	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
1125	"DATA",170,100,6,1,1,23,0)
1126	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
1127	"DATA",170,100,6,1,1,24,0)
1128
1129	"DATA",170,100,6,1,1,25,0)
1130	It is planned that these codes be retrieved from a C0CCODES FILE in a
1131	"DATA",170,100,6,1,1,26,0)
1132	future patch for easier maintenance.
1133	"DATA",170,100,7)
1134	N^VITALS^^11
1135	"DATA",170,101,0)
1136	VITALSIGNSDESCRIPTIONCODINGSYSTEM
1137	"DATA",170,101,1)
1138	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/CodingSystem
1139	"DATA",170,101,4)
1140	^CS
1141	"DATA",170,101,6,0)
1142	^170.08S^1^1
1143	"DATA",170,101,6,1,0)
1144	SNO
1145	"DATA",170,101,6,1,1,0)
1146	^^26^26^3081121^
1147	"DATA",170,101,6,1,1,1,0)
1148	The SNOMED CT codes for Vitals are assigned by the extraction according
1149	"DATA",170,101,6,1,1,2,0)
1150	to the vital signs supported in VistA as follows:
1151	"DATA",170,101,6,1,1,3,0)
1152
1153	"DATA",170,101,6,1,1,4,0)
1154	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
1155	"DATA",170,101,6,1,1,5,0)
1156	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
1157	"DATA",170,101,6,1,1,6,0)
1158
1159	"DATA",170,101,6,1,1,7,0)
1160	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
1161	"DATA",170,101,6,1,1,8,0)
1162	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
1163	"DATA",170,101,6,1,1,9,0)
1164
1165	"DATA",170,101,6,1,1,10,0)
1166	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
1167	"DATA",170,101,6,1,1,11,0)
1168	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
1169	"DATA",170,101,6,1,1,12,0)
1170
1171	"DATA",170,101,6,1,1,13,0)
1172	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
1173	"DATA",170,101,6,1,1,14,0)
1174	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
1175	"DATA",170,101,6,1,1,15,0)
1176
1177	"DATA",170,101,6,1,1,16,0)
1178	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
1179	"DATA",170,101,6,1,1,17,0)
1180	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
1181	"DATA",170,101,6,1,1,18,0)
1182
1183	"DATA",170,101,6,1,1,19,0)
1184	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
1185	"DATA",170,101,6,1,1,20,0)
1186	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
1187	"DATA",170,101,6,1,1,21,0)
1188
1189	"DATA",170,101,6,1,1,22,0)
1190	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
1191	"DATA",170,101,6,1,1,23,0)
1192	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
1193	"DATA",170,101,6,1,1,24,0)
1194
1195	"DATA",170,101,6,1,1,25,0)
1196	It is planned that these codes be retrieved from a C0CCODES FILE in a
1197	"DATA",170,101,6,1,1,26,0)
1198	future patch for easier maintenance.
1199	"DATA",170,101,7)
1200	N^VITALS
1201	"DATA",170,102,0)
1202	VITALSIGNSCODEVERSION
1203	"DATA",170,102,1)
1204	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/Version
1205	"DATA",170,102,4)
1206	^CV
1207	"DATA",170,102,6,0)
1208	^170.08S^1^1
1209	"DATA",170,102,6,1,0)
1210	SNO
1211	"DATA",170,102,6,1,1,0)
1212	^^26^26^3081121^
1213	"DATA",170,102,6,1,1,1,0)
1214	The SNOMED CT codes for Vitals are assigned by the extraction according
1215	"DATA",170,102,6,1,1,2,0)
1216	to the vital signs supported in VistA as follows:
1217	"DATA",170,102,6,1,1,3,0)
1218
1219	"DATA",170,102,6,1,1,4,0)
1220	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
1221	"DATA",170,102,6,1,1,5,0)
1222	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
1223	"DATA",170,102,6,1,1,6,0)
1224
1225	"DATA",170,102,6,1,1,7,0)
1226	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
1227	"DATA",170,102,6,1,1,8,0)
1228	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
1229	"DATA",170,102,6,1,1,9,0)
1230
1231	"DATA",170,102,6,1,1,10,0)
1232	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
1233	"DATA",170,102,6,1,1,11,0)
1234	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
1235	"DATA",170,102,6,1,1,12,0)
1236
1237	"DATA",170,102,6,1,1,13,0)
1238	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
1239	"DATA",170,102,6,1,1,14,0)
1240	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
1241	"DATA",170,102,6,1,1,15,0)
1242
1243	"DATA",170,102,6,1,1,16,0)
1244	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
1245	"DATA",170,102,6,1,1,17,0)
1246	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
1247	"DATA",170,102,6,1,1,18,0)
1248
1249	"DATA",170,102,6,1,1,19,0)
1250	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
1251	"DATA",170,102,6,1,1,20,0)
1252	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
1253	"DATA",170,102,6,1,1,21,0)
1254
1255	"DATA",170,102,6,1,1,22,0)
1256	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
1257	"DATA",170,102,6,1,1,23,0)
1258	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
1259	"DATA",170,102,6,1,1,24,0)
1260
1261	"DATA",170,102,6,1,1,25,0)
1262	It is planned that these codes be retrieved from a C0CCODES FILE in a
1263	"DATA",170,102,6,1,1,26,0)
1264	future patch for easier maintenance.
1265	"DATA",170,102,7)
1266	N^VITALS^^11
1267	"DATA",170,103,0)
1268	VITALSIGNSTESTSOURCEACTORID
1269	"DATA",170,103,1)
1270	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Source/Actor/ActorID
1271	"DATA",170,103,4)
1272	^ID
1273	"DATA",170,103,7)
1274	N^VITALS^^11
1275	"DATA",170,104,0)
1276	VITALSIGNSTESTRESULTVALUE
1277	"DATA",170,104,1)
1278	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/TestResult/Value
1279	"DATA",170,104,4)
1280	^
1281	"DATA",170,104,7)
1282	N^VITALS^^11
1283	"DATA",170,105,0)
1284	VITALSIGNSTESTRESULTUNIT
1285	"DATA",170,105,1)
1286	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/TestResult/Units/Unit
1287	"DATA",170,105,4)
1288	^
1289	"DATA",170,105,7)
1290	N^VITALS^^11
1291	"DATA",170,106,0)
1292	RESULTOBJECTID
1293	"DATA",170,106,1)
1294	//ContinuityOfCareRecord/Body/Results/Result/CCRDataObjectID
1295	"DATA",170,106,4)
1296	^ID
1297	"DATA",170,106,7)
1298	N^LABS^RESULTS^14
1299	"DATA",170,107,0)
1300	RESULTASSESSMENTDATETIME
1301	"DATA",170,107,1)
1302	//ContinuityOfCareRecord/Body/Results/Result/DateTime/ExactDateTime
1303	"DATA",170,107,3,0)
1304	^^4^4^3081122^
1305	"DATA",170,107,3,1,0)
1306	The result assessment time is pulled from OBR7 of the HL7 message for LABS
1307	"DATA",170,107,3,2,0)
1308
1309	"DATA",170,107,3,3,0)
1310	S X("OBR","OBR7")="7^00241^Observation
1311	"DATA",170,107,3,4,0)
1312	Date/Time^RESULTASSESSMENTDATETIME"
1313	"DATA",170,107,4)
1314	^DT
1315	"DATA",170,107,5,0)
1316	^^4^4^3081122^
1317	"DATA",170,107,5,1,0)
1318	The result assessment date is pulled from OB7 of the HL7 message for LABS.
1319	"DATA",170,107,5,2,0)
1320
1321	"DATA",170,107,5,3,0)
1322	S X("OBR","OBR7")="7^00241^Observation
1323	"DATA",170,107,5,4,0)
1324	Date/Time^RESULTASSESSMENTDATETIME"
1325	"DATA",170,107,7)
1326	I^LABS^^14
1327	"DATA",170,108,0)
1328	RESULTDESCRIPTIONTEXT
1329	"DATA",170,108,1)
1330	//ContinuityOfCareRecord/Body/Results/Result/Description/Text
1331	"DATA",170,108,4)
1332	^
1333	"DATA",170,108,7)
1334	N^LABS^^14
1335	"DATA",170,109,0)
1336	RESULTCODE
1337	"DATA",170,109,1)
1338	//ContinuityOfCareRecord/Body/Results/Result/Description/Code/Value
1339	"DATA",170,109,3,0)
1340	^^5^5^3081122^
1341	"DATA",170,109,3,1,0)
1342	The result code is pulled from OBR4 piece 1 of the HL7 message for LABS.
1343	"DATA",170,109,3,2,0)
1344
1345	"DATA",170,109,3,3,0)
1346
1347	"DATA",170,109,3,4,0)
1348	S X("OBR","OBR4;LOINC")="4;1^00238^Universal Service ID -
1349	"DATA",170,109,3,5,0)
1350	LOINC^RESULTCODE"
1351	"DATA",170,109,4)
1352	^CD
1353	"DATA",170,109,6,0)
1354	^170.08S^1^1
1355	"DATA",170,109,6,1,0)
1356	LN
1357	"DATA",170,109,6,1,1,0)
1358	^170.81^4^4^3081122^^^
1359	"DATA",170,109,6,1,1,1,0)
1360	The result code is a LOINC passed in OBR4 piece 1 of the HL7 message.
1361	"DATA",170,109,6,1,1,2,0)
1362
1363	"DATA",170,109,6,1,1,3,0)
1364	S X("OBR","OBR4;LOINC")="4;1^00238^Universal Service ID -
1365	"DATA",170,109,6,1,1,4,0)
1366	LOINC^RESULTCODE"
1367	"DATA",170,109,7)
1368	I^LABS^^14
1369	"DATA",170,110,0)
1370	RESULTCODINGSYSTEM
1371	"DATA",170,110,1)
1372	//ContinuityOfCareRecord/Body/Results/Result/Description/Code/CodingSystem
1373	"DATA",170,110,4)
1374	^CS
1375	"DATA",170,110,7)
1376	N^LABS^^14
1377	"DATA",170,111,0)
1378	RESULTSTATUS
1379	"DATA",170,111,1)
1380	//ContinuityOfCareRecord/Body/Results/Result/Status/Text
1381	"DATA",170,111,4)
1382	^
1383	"DATA",170,111,7)
1384	N^LABS^^14
1385	"DATA",170,112,0)
1386	RESULTSOURCEACTORID
1387	"DATA",170,112,1)
1388	//ContinuityOfCareRecord/Body/Results/Result/Source/Actor/ActorID
1389	"DATA",170,112,4)
1390	^ID
1391	"DATA",170,112,7)
1392	N^LABS^^14
1393	"DATA",170,113,0)
1394	RESULTTESTOBJECTID
1395	"DATA",170,113,1)
1396	//ContinuityOfCareRecord/Body/Results/Result/Test/CCRDataObjectID
1397	"DATA",170,113,4)
1398	^ID
1399	"DATA",170,113,7)
1400	N^TEST^^10
1401	"DATA",170,114,0)
1402	RESULTTESTDATETIME
1403	"DATA",170,114,1)
1404	//ContinuityOfCareRecord/Body/Results/Result/Test/DateTime/ExactDateTime
1405	"DATA",170,114,4)
1406	^DT
1407	"DATA",170,114,7)
1408	N^TEST^^10
1409	"DATA",170,115,0)
1410	RESULTTESTDESCRIPTIONTEXT
1411	"DATA",170,115,1)
1412	//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Text
1413	"DATA",170,115,4)
1414	^
1415	"DATA",170,115,7)
1416	N^TEST^^10
1417	"DATA",170,116,0)
1418	RESULTTESTCODEVALUE
1419	"DATA",170,116,1)
1420	//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Code/Value
1421	"DATA",170,116,4)
1422	^CD
1423	"DATA",170,116,7)
1424	N^TEST^^10
1425	"DATA",170,117,0)
1426	RESULTTESTCODINGSYSTEM
1427	"DATA",170,117,1)
1428	//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Code/CodingSystem
1429	"DATA",170,117,4)
1430	^CS
1431	"DATA",170,117,7)
1432	N^TEST^RESULTSLN^10
1433	"DATA",170,118,0)
1434	RESULTTESTSTATUSTEXT
1435	"DATA",170,118,1)
1436	//ContinuityOfCareRecord/Body/Results/Result/Test/Status/Text
1437	"DATA",170,118,4)
1438	^
1439	"DATA",170,118,7)
1440	N^TEST^^10
1441	"DATA",170,119,0)
1442	RESULTTESTSOURCEACTORID
1443	"DATA",170,119,1)
1444	//ContinuityOfCareRecord/Body/Results/Result/Test/Source/Actor/ActorID
1445	"DATA",170,119,4)
1446	^ID
1447	"DATA",170,119,7)
1448	N^TEST^^10
1449	"DATA",170,120,0)
1450	RESULTTESTVALUE
1451	"DATA",170,120,1)
1452	//ContinuityOfCareRecord/Body/Results/Result/Test/TestResult/Value
1453	"DATA",170,120,4)
1454	^
1455	"DATA",170,120,7)
1456	N^TEST^^10
1457	"DATA",170,121,0)
1458	RESULTTESTUNITS
1459	"DATA",170,121,1)
1460	//ContinuityOfCareRecord/Body/Results/Result/Test/TestResult/Units/Unit
1461	"DATA",170,121,4)
1462	^
1463	"DATA",170,121,7)
1464	N^TEST^^10
1465	"DATA",170,122,0)
1466	RESULTTESTNORMALDESCRIPTIONTEXT
1467	"DATA",170,122,1)
1468	//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Description/Text
1469	"DATA",170,122,4)
1470	^
1471	"DATA",170,122,7)
1472	N^TEST
1473	"DATA",170,123,0)
1474	RESULTTESTNORMALSOURCEACTORID
1475	"DATA",170,123,1)
1476	//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Source/Actor/ActorID
1477	"DATA",170,123,4)
1478	^ID
1479	"DATA",170,123,7)
1480	N^TEST^^10
1481	"DATA",170,124,0)
1482	RESULTTESTFLAG
1483	"DATA",170,124,1)
1484	//ContinuityOfCareRecord/Body/Results/Result/Test/Flag/Text
1485	"DATA",170,124,4)
1486	^
1487	"DATA",170,124,7)
1488	N^TEST^^10
1489	"DATA",170,125,0)
1490	ACTORDATEOFBIRTH
1491	"DATA",170,125,1)
1492	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Person/DateOfBirth/ExactDateTime
1493	"DATA",170,125,4)
1494	^
1495	"DATA",170,125,7)
1496	N^ACTORS^^6
1497	"DATA",170,126,0)
1498	ACTORGENDER
1499	"DATA",170,126,1)
1500	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Person/Gender/Code/Value
1501	"DATA",170,126,4)
1502	^
1503	"DATA",170,126,7)
1504	N^ACTORS^^6
1505	"DATA",170,127,0)
1506	ACTORSSNTEXT
1507	"DATA",170,127,1)
1508	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/Type/Text
1509	"DATA",170,127,4)
1510	^
1511	"DATA",170,127,7)
1512	N^ACTORS^^6
1513	"DATA",170,128,0)
1514	ACTORSSN
1515	"DATA",170,128,1)
1516	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/ID
1517	"DATA",170,128,4)
1518	^
1519	"DATA",170,128,7)
1520	N^ACTORS^^6
1521	"DATA",170,129,0)
1522	ACTORSSNSOURCEID
1523	"DATA",170,129,1)
1524	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/Source/Actor/ActorID
1525	"DATA",170,129,4)
1526	^ID
1527	"DATA",170,129,7)
1528	N^ACTORS^^6
1529	"DATA",170,130,0)
1530	ACTORADDRESSLINE2
1531	"DATA",170,130,1)
1532	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/Line2
1533	"DATA",170,130,4)
1534	^
1535	"DATA",170,130,7)
1536	N^ACTORS^^6
1537	"DATA",170,131,0)
1538	ACTORADDRESSZIPCODE
1539	"DATA",170,131,1)
1540	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/PostalCode
1541	"DATA",170,131,4)
1542	^
1543	"DATA",170,131,7)
1544	N^ACTORS^^6
1545	"DATA",170,132,0)
1546	ACTORRESTEL
1547	"DATA",170,132,4)
1548	^
1549	"DATA",170,132,7)
1550	N^ACTORS^^6
1551	"DATA",170,133,0)
1552	ACTORRESTELTEXT
1553	"DATA",170,133,4)
1554	^
1555	"DATA",170,133,7)
1556	N^ACTORS^^6
1557	"DATA",170,134,0)
1558	ACTORWORKTEL
1559	"DATA",170,134,4)
1560	^
1561	"DATA",170,134,7)
1562	N^ACTORS^^6
1563	"DATA",170,135,0)
1564	ACTORWORKTELTEXT
1565	"DATA",170,135,4)
1566	^
1567	"DATA",170,135,7)
1568	N^ACTORS^^6
1569	"DATA",170,136,0)
1570	ACTORCELLTEL
1571	"DATA",170,136,4)
1572	^
1573	"DATA",170,136,7)
1574	N^ACTORS^^6
1575	"DATA",170,137,0)
1576	ACTORCELLTELTEXT
1577	"DATA",170,137,4)
1578	^
1579	"DATA",170,137,7)
1580	N^ACTORS^^6
1581	"DATA",170,138,0)
1582	ACTORADDRESSSOURCEID
1583	"DATA",170,138,1)
1584	//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Source/Actor/ActorID
1585	"DATA",170,138,4)
1586	^ID
1587	"DATA",170,138,7)
1588	N^ACTORS^^6
1589	"DATA",170,139,0)
1590	ACTORINFOSYSNAME
1591	"DATA",170,139,1)
1592	//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Name
1593	"DATA",170,139,4)
1594	^
1595	"DATA",170,139,7)
1596	N^ACTORS^^6
1597	"DATA",170,140,0)
1598	ACTORINFOSYSVER
1599	"DATA",170,140,1)
1600	//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Version
1601	"DATA",170,140,4)
1602	^
1603	"DATA",170,140,7)
1604	N^ACTORS^^6
1605	"DATA",170,141,0)
1606	ACTORINFOSYSSOURCEID
1607	"DATA",170,141,1)
1608	//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/Source/Actor/ActorID
1609	"DATA",170,141,4)
1610	^ID
1611	"DATA",170,141,7)
1612	N^ACTORS^^6
1613	"DATA",170,142,0)
1614	ACTORDISPLAYNAME
1615	"DATA",170,142,1)
1616	//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Person/Name/DisplayName
1617	"DATA",170,142,4)
1618	^
1619	"DATA",170,142,7)
1620	N^ACTORS^^6
1621	"DATA",170,143,0)
1622	ACTORRELATION
1623	"DATA",170,143,1)
1624	//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Relation/Text
1625	"DATA",170,143,4)
1626	^
1627	"DATA",170,143,7)
1628	N^ACTORS^^6
1629	"DATA",170,144,0)
1630	ACTORRELATIONSOURCEID
1631	"DATA",170,144,1)
1632	//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Source/Actor/ActorID
1633	"DATA",170,144,4)
1634	^ID
1635	"DATA",170,144,7)
1636	N^ACTORS^^6
1637	"DATA",170,145,0)
1638	ACTORGIVENNAME
1639	"DATA",170,145,1)
1640	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Given
1641	"DATA",170,145,4)
1642	^
1643	"DATA",170,145,7)
1644	N^ACTORS^^6
1645	"DATA",170,146,0)
1646	ACTORMIDDLENAME
1647	"DATA",170,146,1)
1648	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Middle
1649	"DATA",170,146,4)
1650	^
1651	"DATA",170,146,7)
1652	N^ACTORS^^6
1653	"DATA",170,147,0)
1654	ACTORFAMILYNAME
1655	"DATA",170,147,1)
1656	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Family
1657	"DATA",170,147,4)
1658	^V
1659	"DATA",170,147,7)
1660	N^ACTORS^^6
1661	"DATA",170,148,0)
1662	ACTORTITLE
1663	"DATA",170,148,1)
1664	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Title
1665	"DATA",170,148,4)
1666	^
1667	"DATA",170,148,7)
1668	N^ACTORS^^6
1669	"DATA",170,149,0)
1670	IDTYPE
1671	"DATA",170,149,1)
1672	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/Type/Text
1673	"DATA",170,149,4)
1674	^
1675	"DATA",170,149,7)
1676	N
1677	"DATA",170,150,0)
1678	ID
1679	"DATA",170,150,1)
1680	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/ID
1681	"DATA",170,150,4)
1682	^ID
1683	"DATA",170,150,7)
1684	N
1685	"DATA",170,151,0)
1686	IDDESC
1687	"DATA",170,151,1)
1688	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/IssuedBy/Description/Text
1689	"DATA",170,151,4)
1690	^
1691	"DATA",170,151,7)
1692	N
1693	"DATA",170,152,0)
1694	ACTORSPECIALITY
1695	"DATA",170,152,1)
1696	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Specialty/Text
1697	"DATA",170,152,4)
1698	^
1699	"DATA",170,152,7)
1700	N^ACTORS^^6
1701	"DATA",170,153,0)
1702	ACTORADDRESSTYPE
1703	"DATA",170,153,1)
1704	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/Type/Text
1705	"DATA",170,153,4)
1706	^
1707	"DATA",170,153,7)
1708	N^ACTORS^^6
1709	"DATA",170,154,0)
1710	ACTORADDRESSLINE1
1711	"DATA",170,154,1)
1712	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/Line1
1713	"DATA",170,154,4)
1714	^
1715	"DATA",170,154,7)
1716	N^ACTORS^^6
1717	"DATA",170,155,0)
1718	ACTORADDRESSCITY
1719	"DATA",170,155,1)
1720	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/City
1721	"DATA",170,155,4)
1722	^
1723	"DATA",170,155,7)
1724	N^ACTORS^^6
1725	"DATA",170,156,0)
1726	ACTORADDRESSSTATE
1727	"DATA",170,156,1)
1728	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/State
1729	"DATA",170,156,4)
1730	^
1731	"DATA",170,156,7)
1732	N^ACTORS^^6
1733	"DATA",170,157,0)
1734	ACTORPOSTALCODE
1735	"DATA",170,157,1)
1736	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/PostalCode
1737	"DATA",170,157,4)
1738	^
1739	"DATA",170,157,7)
1740	N^ACTORS^^6
1741	"DATA",170,158,0)
1742	ACTORTELEPHONE
1743	"DATA",170,158,1)
1744	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Telephone/Value
1745	"DATA",170,158,4)
1746	^
1747	"DATA",170,158,7)
1748	N^ACTORS^^6
1749	"DATA",170,159,0)
1750	ACTORTELEPHONETYPE
1751	"DATA",170,159,1)
1752	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Telephone/Type/Text
1753	"DATA",170,159,4)
1754	^
1755	"DATA",170,159,7)
1756	N^ACTORS^^6
1757	"DATA",170,160,0)
1758	ACTOREMAIL
1759	"DATA",170,160,1)
1760	//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Email/Value
1761	"DATA",170,160,4)
1762	^
1763	"DATA",170,160,7)
1764	N^ACTORS^^6
1765	"DATA",170,161,0)
1766	ACTOROBJECTID
1767	"DATA",170,161,1)
1768	//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/ActorObjectID
1769	"DATA",170,161,4)
1770	^ID
1771	"DATA",170,161,7)
1772	N^ACTORS^^6
1773	"DATA",170,162,0)
1774	ORGANIZATIONNAME
1775	"DATA",170,162,1)
1776	//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/Organization/Name
1777	"DATA",170,162,4)
1778	^
1779	"DATA",170,162,7)
1780	N
1781	"DATA",170,163,0)
1782	ACTORSOURCEID
1783	"DATA",170,163,1)
1784	//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/Source/Actor/ActorID
1785	"DATA",170,163,4)
1786	^ID
1787	"DATA",170,163,7)
1788	N^ACTORS^^6
1789	"DATA",170,164,0)
1790	VITALSIGNSDESCCODEVALUE
1791	"DATA",170,164,1)
1792	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/Value
1793	"DATA",170,164,4)
1794	^CD
1795	"DATA",170,164,6,0)
1796	^170.08S^1^1
1797	"DATA",170,164,6,1,0)
1798	SNO
1799	"DATA",170,164,6,1,1,0)
1800	^^26^26^3081121^
1801	"DATA",170,164,6,1,1,1,0)
1802	The SNOMED CT codes for Vitals are assigned by the extraction according
1803	"DATA",170,164,6,1,1,2,0)
1804	to the vital signs supported in VistA as follows:
1805	"DATA",170,164,6,1,1,3,0)
1806
1807	"DATA",170,164,6,1,1,4,0)
1808	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
1809	"DATA",170,164,6,1,1,5,0)
1810	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
1811	"DATA",170,164,6,1,1,6,0)
1812
1813	"DATA",170,164,6,1,1,7,0)
1814	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
1815	"DATA",170,164,6,1,1,8,0)
1816	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
1817	"DATA",170,164,6,1,1,9,0)
1818
1819	"DATA",170,164,6,1,1,10,0)
1820	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
1821	"DATA",170,164,6,1,1,11,0)
1822	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
1823	"DATA",170,164,6,1,1,12,0)
1824
1825	"DATA",170,164,6,1,1,13,0)
1826	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
1827	"DATA",170,164,6,1,1,14,0)
1828	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
1829	"DATA",170,164,6,1,1,15,0)
1830
1831	"DATA",170,164,6,1,1,16,0)
1832	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
1833	"DATA",170,164,6,1,1,17,0)
1834	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
1835	"DATA",170,164,6,1,1,18,0)
1836
1837	"DATA",170,164,6,1,1,19,0)
1838	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
1839	"DATA",170,164,6,1,1,20,0)
1840	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
1841	"DATA",170,164,6,1,1,21,0)
1842
1843	"DATA",170,164,6,1,1,22,0)
1844	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
1845	"DATA",170,164,6,1,1,23,0)
1846	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
1847	"DATA",170,164,6,1,1,24,0)
1848
1849	"DATA",170,164,6,1,1,25,0)
1850	It is planned that these codes be retrieved from a C0CCODES FILE in a
1851	"DATA",170,164,6,1,1,26,0)
1852	future patch for easier maintenance.
1853	"DATA",170,164,7)
1854	N^VITALS^^11
1855	"DATA",170,165,0)
1856	VITALSIGNSDESCCODINGSYSTEM
1857	"DATA",170,165,1)
1858	//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/CodingSystem
1859	"DATA",170,165,4)
1860	^CS
1861	"DATA",170,165,6,0)
1862	^170.08S^1^1
1863	"DATA",170,165,6,1,0)
1864	SNO
1865	"DATA",170,165,6,1,1,0)
1866	^^26^26^3081121^
1867	"DATA",170,165,6,1,1,1,0)
1868	The SNOMED CT codes for Vitals are assigned by the extraction according
1869	"DATA",170,165,6,1,1,2,0)
1870	to the vital signs supported in VistA as follows:
1871	"DATA",170,165,6,1,1,3,0)
1872
1873	"DATA",170,165,6,1,1,4,0)
1874	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
1875	"DATA",170,165,6,1,1,5,0)
1876	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
1877	"DATA",170,165,6,1,1,6,0)
1878
1879	"DATA",170,165,6,1,1,7,0)
1880	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
1881	"DATA",170,165,6,1,1,8,0)
1882	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
1883	"DATA",170,165,6,1,1,9,0)
1884
1885	"DATA",170,165,6,1,1,10,0)
1886	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
1887	"DATA",170,165,6,1,1,11,0)
1888	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
1889	"DATA",170,165,6,1,1,12,0)
1890
1891	"DATA",170,165,6,1,1,13,0)
1892	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
1893	"DATA",170,165,6,1,1,14,0)
1894	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
1895	"DATA",170,165,6,1,1,15,0)
1896
1897	"DATA",170,165,6,1,1,16,0)
1898	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
1899	"DATA",170,165,6,1,1,17,0)
1900	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
1901	"DATA",170,165,6,1,1,18,0)
1902
1903	"DATA",170,165,6,1,1,19,0)
1904	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
1905	"DATA",170,165,6,1,1,20,0)
1906	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
1907	"DATA",170,165,6,1,1,21,0)
1908
1909	"DATA",170,165,6,1,1,22,0)
1910	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
1911	"DATA",170,165,6,1,1,23,0)
1912	. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
1913	"DATA",170,165,6,1,1,24,0)
1914
1915	"DATA",170,165,6,1,1,25,0)
1916	It is planned that these codes be retrieved from a C0CCODES FILE in a
1917	"DATA",170,165,6,1,1,26,0)
1918	future patch for easier maintenance.
1919	"DATA",170,165,7)
1920	I^VITALS^^11
1921	"DATA",170,166,0)
1922	RESULTTESTNORMALDESCTEXT
1923	"DATA",170,166,1)
1924	//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Description/Text
1925	"DATA",170,166,7)
1926	N^TEST^^10
1927	"DATA",170,167,0)
1928	PROBLEMCONDITION
1929	"DATA",170,167,7)
1930	^^^5
1931	"DATA",170,168,0)
1932	PROBLEMDATEMOD
1933	"DATA",170,168,7)
1934	^^^5
1935	"DATA",170,169,0)
1936	PROBLEMDATEOFONSET
1937	"DATA",170,169,7)
1938	^^^5
1939	"DATA",170,170,0)
1940	PROBLEMDTREC
1941	"DATA",170,170,7)
1942	^^^5
1943	"DATA",170,171,0)
1944	PROBLEMHASCMT
1945	"DATA",170,171,7)
1946	^^^5
1947	"DATA",170,172,0)
1948	PROBLEMIEN
1949	"DATA",170,172,7)
1950	^^^5
1951	"DATA",170,173,0)
1952	PROBLEMINACT
1953	"DATA",170,173,7)
1954	^^^5
1955	"DATA",170,174,0)
1956	PROBLEMLOC
1957	"DATA",170,174,7)
1958	^^^5
1959	"DATA",170,175,0)
1960	PROBLEMLOCTYPE
1961	"DATA",170,175,7)
1962	^^^5
1963	"DATA",170,176,0)
1964	PROBLEMPROVIDER
1965	"DATA",170,176,7)
1966	^^^5
1967	"DATA",170,177,0)
1968	PROBLEMSC
1969	"DATA",170,177,7)
1970	^^^5
1971	"DATA",170,178,0)
1972	PROBLEMSE
1973	"DATA",170,178,7)
1974	^^^5
1975	"DATA",170,179,0)
1976	PROBLEMSERVICE
1977	"DATA",170,179,7)
1978	^^^5
1979	"DATA",170,180,0)
1980	PROBLEMSTATUS
1981	"DATA",170,180,7)
1982	^^^5
1983	"DATA",170,181,0)
1984	ALERTCODESYSTEMVERSION
1985	"DATA",170,181,7)
1986	^^^4
1987	"DATA",170,182,0)
1988	VITALSIGNSDESCODEVALUE
1989	"DATA",170,182,7)
1990	^^^11
1991	"DATA",170,183,0)
1992	IMMUNEDATETIME
1993	"DATA",170,183,7)
1994	^^^15
1995	"DATA",170,184,0)
1996	IMMUNEDATETIMETYPETEXT
1997	"DATA",170,184,7)
1998	^^^15
1999	"DATA",170,185,0)
2000	IMMUNEOBJECTID
2001	"DATA",170,185,7)
2002	^^^15
2003	"DATA",170,186,0)
2004	IMMUNEPRODUCTCODE
2005	"DATA",170,186,7)
2006	^^^15
2007	"DATA",170,187,0)
2008	IMMUNEPRODUCTCODESYSTEM
2009	"DATA",170,187,7)
2010	^^^15
2011	"DATA",170,188,0)
2012	IMMUNEPRODUCTNAMETEXT
2013	"DATA",170,188,7)
2014	^^^15
2015	"DATA",170,189,0)
2016	IMMUNESOURCEACTORID
2017	"DATA",170,189,7)
2018	^^^15
2019	"DATA",170,190,0)
2020	C1
2021	"DATA",170,190,7)
2022	^^^10
2023	"DATA",170,191,0)
2024	C2
2025	"DATA",170,191,7)
2026	^^^10
2027	"DATA",170,192,0)
2028	C3
2029	"DATA",170,192,7)
2030	^^^10
2031	"DATA",170,193,0)
2032	C4
2033	"DATA",170,193,7)
2034	^^^10
2035	"DATA",170,194,0)
2036	C5
2037	"DATA",170,194,7)
2038	^^^10
2039	"DATA",170,195,0)
2040	C6
2041	"DATA",170,195,7)
2042	^^^10
2043	"DATA",170,196,0)
2044	ALERTDATETIME
2045	"DATA",170,196,7)
2046	^^^4
2047	"DATA",170,197,0)
2048	ALERTTYPE
2049	"DATA",170,197,7)
2050	^^^4
2051	"DATA",170.101,1,0)
2052	HEADER^2
2053	"DATA",170.101,1,1,0)
2054	^170.1012P^3^3
2055	"DATA",170.101,1,1,1,0)
2056	3
2057	"DATA",170.101,1,1,2,0)
2058	5
2059	"DATA",170.101,1,1,3,0)
2060	7
2061	"DATA",170.101,2,0)
2062	ROOT
2063	"DATA",170.101,2,2,0)
2064	^170.1013P^1^1
2065	"DATA",170.101,2,2,1,0)
2066	1
2067	"DATA",170.101,3,0)
2068	BODY^2
2069	"DATA",170.101,4,0)
2070	ALERTS^3
2071	"DATA",170.101,4,1,0)
2072	^170.1012P^3^3
2073	"DATA",170.101,4,1,1,0)
2074	37
2075	"DATA",170.101,4,1,2,0)
2076	35
2077	"DATA",170.101,4,1,3,0)
2078	36
2079	"DATA",170.101,5,0)
2080	PROBLEMS^3
2081	"DATA",170.101,5,1,0)
2082	^170.1012P^4^4
2083	"DATA",170.101,5,1,1,0)
2084	10
2085	"DATA",170.101,5,1,2,0)
2086	11
2087	"DATA",170.101,5,1,3,0)
2088	9
2089	"DATA",170.101,5,1,4,0)
2090	8
2091	"DATA",170.101,6,0)
2092	ACTORS^2
2093	"DATA",170.101,6,1,0)
2094	^170.1012P^1^1
2095	"DATA",170.101,6,1,1,0)
2096	155
2097	"DATA",170.101,7,0)
2098	MEDS^3
2099	"DATA",170.101,7,1,0)
2100	^170.1012P^2^2
2101	"DATA",170.101,7,1,1,0)
2102	56
2103	"DATA",170.101,7,1,2,0)
2104	61
2105	"DATA",170.101,7,2,0)
2106	^170.1013P^1^1
2107	"DATA",170.101,7,2,1,0)
2108	8
2109	"DATA",170.101,8,0)
2110	DIRECTIONS^7
2111	"DATA",170.101,8,1,0)
2112	^170.1012P^2^2
2113	"DATA",170.101,8,1,1,0)
2114	65
2115	"DATA",170.101,8,1,2,0)
2116	88
2117	"DATA",170.101,9,0)
2118	RESULTS^3
2119	"DATA",170.101,9,1,0)
2120	^170.1012P^2^2
2121	"DATA",170.101,9,1,1,0)
2122	109
2123	"DATA",170.101,9,1,2,0)
2124	110
2125	"DATA",170.101,9,2,0)
2126	^170.1013P^1^1
2127	"DATA",170.101,9,2,1,0)
2128	10
2129	"DATA",170.101,10,0)
2130	TEST^14
2131	"DATA",170.101,10,1,0)
2132	^170.1012P^1^1
2133	"DATA",170.101,10,1,1,0)
2134	116
2135	"DATA",170.101,11,0)
2136	VITALS^3
2137	"DATA",170.101,11,1,0)
2138	^170.1012P^5^5
2139	"DATA",170.101,11,1,1,0)
2140	100
2141	"DATA",170.101,11,1,2,0)
2142	99
2143	"DATA",170.101,11,1,3,0)
2144	102
2145	"DATA",170.101,11,1,4,0)
2146	93
2147	"DATA",170.101,11,1,5,0)
2148	94
2149	"DATA",170.101,12,0)
2150	FAM^3
2151	"DATA",170.101,12,1,0)
2152	^170.1012P^1^1
2153	"DATA",170.101,12,1,1,0)
2154	14
2155	"DATA",170.101,13,0)
2156	SOC^3
2157	"DATA",170.101,13,1,0)
2158	^170.1012P^1^1
2159	"DATA",170.101,13,1,1,0)
2160	25
2161	"DATA",170.101,14,0)
2162	LABS^3
2163	"DATA",170.101,14,1,0)
2164	^170.1012P^1^1
2165	"DATA",170.101,14,1,1,0)
2166	109
2167	"DATA",170.101,14,2,0)
2168	^170.1013P^1^1
2169	"DATA",170.101,14,2,1,0)
2170	10
2171	"DATA",170.101,15,0)
2172	IMMUNE^3
2173	"DATA",171.501,1,0)
2174	10^2^1^5^" 1"
2175	"DATA",171.501,1,2)
2176	TEST VALUE ONE
2177	"DATA",171.501,2,0)
2178	10^2^1^5^" 2"
2179	"DATA",171.501,2,2)
2180	TEST VALUE TWO
2181	"DATA",171.601,1,0)
2182	5^2^1^" 1"
2183	"DATA",171.601,1,1,0)
2184	^171.6011P^2^2
2185	"DATA",171.601,1,1,1,0)
2186	10
2187	"DATA",171.601,1,1,1,1)
2188	FIRST PROBLEM CODE
2189	"DATA",171.601,1,1,2,0)
2190	9
2191	"DATA",171.601,1,1,2,1)
2192	FIRST PROBLEM DESCRIPTION
2193	"DATA",171.601,1,2)
2194	3090221^DOCTOR 1^^^^
2195	"DATA",171.601,2,0)
2196	5^2^1^" 2"
2197	"DATA",171.601,2,1,0)
2198	^171.6011P^2^2
2199	"DATA",171.601,2,1,1,0)
2200	10
2201	"DATA",171.601,2,1,1,1)
2202	SECOND PROBLEM CODE
2203	"DATA",171.601,2,1,2,0)
2204	9
2205	"DATA",171.601,2,1,2,1)
2206	SECOND PROBLEM DESCRIPTION
2207	"DATA",171.601,2,2)
2208	3090216^DOCTOR 2^^^^
2209	"DATA",171.601,3,0)
2210	5^2^2^" 1"
2211	"DATA",171.601,3,1,0)
2212	^171.6011P^2^2
2213	"DATA",171.601,3,1,1,0)
2214	10
2215	"DATA",171.601,3,1,1,1)
2216	SECOND SOURCE PROBLEM ONE CODE
2217	"DATA",171.601,3,1,2,0)
2218	9
2219	"DATA",171.601,3,1,2,1)
2220	SECOND SOURCE PROBLEM ONE DESCRIPTION
2221	"DATA",171.601,3,2)
2222	3090220^DOCTOR ELSEWHERE^^^^PROBLEM_1
2223	"FIA",170)
2224	CCR DICTIONARY
2225	"FIA",170,0)
2226	^C0CDIC(170,
2227	"FIA",170,0,0)
2228	170
2229	"FIA",170,0,1)
2230	y^y^f^^n^^y^o^n
2231	"FIA",170,0,10)
2232
2233	"FIA",170,0,11)
2234
2235	"FIA",170,0,"RLRO")
2236
2237	"FIA",170,170)
2238	0
2239	"FIA",170,170.01)
2240	0
2241	"FIA",170,170.04)
2242	0
2243	"FIA",170,170.08)
2244	0
2245	"FIA",170,170.81)
2246	0
2247	"FIA",170.101)
2248	CCR NODE TYPE
2249	"FIA",170.101,0)
2250	^C0CDIC(170.101,
2251	"FIA",170.101,0,0)
2252	170.101
2253	"FIA",170.101,0,1)
2254	y^y^f^^n^^y^o^n
2255	"FIA",170.101,0,10)
2256
2257	"FIA",170.101,0,11)
2258
2259	"FIA",170.101,0,"RLRO")
2260
2261	"FIA",170.101,170.101)
2262	0
2263	"FIA",170.101,170.1012)
2264	0
2265	"FIA",170.101,170.1013)
2266	0
2267	"FIA",171.101)
2268	CCR E2
2269	"FIA",171.101,0)
2270	^C0CE(
2271	"FIA",171.101,0,0)
2272	171.101P
2273	"FIA",171.101,0,1)
2274	y^y^f^^^^n
2275	"FIA",171.101,0,10)
2276
2277	"FIA",171.101,0,11)
2278
2279	"FIA",171.101,0,"RLRO")
2280
2281	"FIA",171.101,171.101)
2282	0
2283	"FIA",171.101,171.111)
2284	0
2285	"FIA",171.101,171.121)
2286	0
2287	"FIA",171.101,171.131)
2288	0
2289	"FIA",171.101,171.1311)
2290	0
2291	"FIA",171.201)
2292	CCR VOCABULARIES
2293	"FIA",171.201,0)
2294	^C0CC(
2295	"FIA",171.201,0,0)
2296	171.201
2297	"FIA",171.201,0,1)
2298	y^y^f^^n^^y^o^n
2299	"FIA",171.201,0,10)
2300
2301	"FIA",171.201,0,11)
2302
2303	"FIA",171.201,0,"RLRO")
2304
2305	"FIA",171.201,171.201)
2306	0
2307	"FIA",171.401)
2308	CCR SOURCE
2309	"FIA",171.401,0)
2310	^C0C(171.401,
2311	"FIA",171.401,0,0)
2312	171.401
2313	"FIA",171.401,0,1)
2314	y^y^f^^^^n
2315	"FIA",171.401,0,10)
2316
2317	"FIA",171.401,0,11)
2318
2319	"FIA",171.401,0,"RLRO")
2320
2321	"FIA",171.401,171.401)
2322	0
2323	"FIA",171.401,171.4011)
2324	0
2325	"FIA",171.401,171.4012)
2326	0
2327	"FIA",171.501)
2328	CCR E3
2329	"FIA",171.501,0)
2330	^C0CE3(
2331	"FIA",171.501,0,0)
2332	171.501P
2333	"FIA",171.501,0,1)
2334	y^y^f^^n^^y^o^n
2335	"FIA",171.501,0,10)
2336
2337	"FIA",171.501,0,11)
2338
2339	"FIA",171.501,0,"RLRO")
2340
2341	"FIA",171.501,171.501)
2342	0
2343	"FIA",171.601)
2344	CCR E4
2345	"FIA",171.601,0)
2346	^C0CE4(
2347	"FIA",171.601,0,0)
2348	171.601P
2349	"FIA",171.601,0,1)
2350	y^y^f^^n^^y^o^n
2351	"FIA",171.601,0,10)
2352
2353	"FIA",171.601,0,11)
2354
2355	"FIA",171.601,0,"RLRO")
2356
2357	"FIA",171.601,171.601)
2358	0
2359	"FIA",171.601,171.6011)
2360	0
2361	"FIA",171.601,171.6014)
2362	0
2363	"IX",170,170,"C",0)
2364	170^C^A whole file cross reference of Variables by Coding System^R^^F^IR^W^170.08^^^^^LS
2365	"IX",170,170,"C",1)
2366	S ^C0CDIC(170,"C",X,DA(1),DA)=""
2367	"IX",170,170,"C",2)
2368	K ^C0CDIC(170,"C",X,DA(1),DA)
2369	"IX",170,170,"C",2.5)
2370	K ^C0CDIC(170,"C")
2371	"IX",170,170,"C",11.1,0)
2372	^.114IA^1^1
2373	"IX",170,170,"C",11.1,1,0)
2374	1^F^170.08^.01^^1^F
2375	"IX",170,170,"D",0)
2376	170^D^Regular whole file cross index by section^R^^F^IR^I^170^^^^^LS
2377	"IX",170,170,"D",1)
2378	S ^C0CDIC(170,"D",X,DA)=""
2379	"IX",170,170,"D",2)
2380	K ^C0CDIC(170,"D",X,DA)
2381	"IX",170,170,"D",2.5)
2382	K ^C0CDIC(170,"D")
2383	"IX",170,170,"D",11.1,0)
2384	^.114IA^1^1
2385	"IX",170,170,"D",11.1,1,0)
2386	1^F^170^10^^1^F
2387	"IX",170,170,"D",11.1,1,3)
2388
2389	"IX",170,170,"SECTION",0)
2390	170^SECTION^Regular cross reference on the section field^R^^F^IR^I^170^^^^^LS
2391	"IX",170,170,"SECTION",1)
2392	S ^C0CDIC(170,"SECTION",X,DA)=""
2393	"IX",170,170,"SECTION",2)
2394	K ^C0CDIC(170,"SECTION",X,DA)
2395	"IX",170,170,"SECTION",2.5)
2396	K ^C0CDIC(170,"SECTION")
2397	"IX",170,170,"SECTION",11.1,0)
2398	^.114IA^1^1
2399	"IX",170,170,"SECTION",11.1,1,0)
2400	1^F^170^12^^1^
2401	"IX",171.501,171.501,"C",0)
2402	171.501^C^Uniqueness Index for Key 'A' of File #171.501^R^^R^IR^I^171.501^^^^^LS
2403	"IX",171.501,171.501,"C",1)
2404	S ^C0CE3("C",X(1),X(2),X(3),X(4),X(5),DA)=""
2405	"IX",171.501,171.501,"C",2)
2406	K ^C0CE3("C",X(1),X(2),X(3),X(4),X(5),DA)
2407	"IX",171.501,171.501,"C",2.5)
2408	K ^C0CE3("C")
2409	"IX",171.501,171.501,"C",11.1,0)
2410	^.114IA^5^5
2411	"IX",171.501,171.501,"C",11.1,1,0)
2412	1^F^171.501^.02^^1
2413	"IX",171.501,171.501,"C",11.1,2,0)
2414	2^F^171.501^.03^^2
2415	"IX",171.501,171.501,"C",11.1,3,0)
2416	3^F^171.501^.04^^3
2417	"IX",171.501,171.501,"C",11.1,4,0)
2418	4^F^171.501^.05^^4
2419	"IX",171.501,171.501,"C",11.1,5,0)
2420	5^F^171.501^.01^^5
2421	"IX",171.601,171.601,"C",0)
2422	171.601^C^Uniqueness Index for Key 'A' of File #171.601^R^^R^IR^I^171.601^^^^^LS
2423	"IX",171.601,171.601,"C",1)
2424	S ^C0CE4("C",X(1),X(2),X(3),X(4),DA)=""
2425	"IX",171.601,171.601,"C",2)
2426	K ^C0CE4("C",X(1),X(2),X(3),X(4),DA)
2427	"IX",171.601,171.601,"C",2.5)
2428	K ^C0CE4("C")
2429	"IX",171.601,171.601,"C",11.1,0)
2430	^.114IA^4^4
2431	"IX",171.601,171.601,"C",11.1,1,0)
2432	1^F^171.601^.02^^1
2433	"IX",171.601,171.601,"C",11.1,2,0)
2434	2^F^171.601^.03^^2
2435	"IX",171.601,171.601,"C",11.1,3,0)
2436	3^F^171.601^.01^^3
2437	"IX",171.601,171.601,"C",11.1,4,0)
2438	4^F^171.601^.04^^4
2439	"IX",171.601,171.601,"D1",0)
2440	171.601^D1^REVERSE DATE INDEX BY SOURCE FOR CLINICAL DATE^R^^R^IR^I^171.601^^^^^LS
2441	"IX",171.601,171.601,"D1",1)
2442	S ^C0CE4("D1",X(5),X(3),X(6),X(4),DA)=""
2443	"IX",171.601,171.601,"D1",2)
2444	K ^C0CE4("D1",X(5),X(3),X(6),X(4),DA)
2445	"IX",171.601,171.601,"D1",2.5)
2446	K ^C0CE4("D1")
2447	"IX",171.601,171.601,"D1",11.1,0)
2448	^.114IA^6^6
2449	"IX",171.601,171.601,"D1",11.1,1,0)
2450	1^F^171.601^2^^^F
2451	"IX",171.601,171.601,"D1",11.1,2,0)
2452	2^C
2453	"IX",171.601,171.601,"D1",11.1,2,1.5)
2454	S X=9999999-X(1)
2455	"IX",171.601,171.601,"D1",11.1,3,0)
2456	3^F^171.601^.03^^2^F
2457	"IX",171.601,171.601,"D1",11.1,4,0)
2458	4^C^^^^4
2459	"IX",171.601,171.601,"D1",11.1,4,1.5)
2460	S X=X(2)
2461	"IX",171.601,171.601,"D1",11.1,5,0)
2462	5^F^171.601^.02^^1^F
2463	"IX",171.601,171.601,"D1",11.1,6,0)
2464	6^F^171.601^.01^^3^F
2465	"IX",171.601,171.601,"D2",0)
2466	171.601^D2^REVERSE DATE INDEX ACROSS ALL SOURCES FOR THE PATIENT^R^^R^IR^I^171.601^^^^^LS
2467	"IX",171.601,171.601,"D2",1)
2468	S ^C0CE4("D2",X(1),X(5),X(4),DA)=""
2469	"IX",171.601,171.601,"D2",2)
2470	K ^C0CE4("D2",X(1),X(5),X(4),DA)
2471	"IX",171.601,171.601,"D2",2.5)
2472	K ^C0CE4("D2")
2473	"IX",171.601,171.601,"D2",11.1,0)
2474	^.114IA^5^5
2475	"IX",171.601,171.601,"D2",11.1,1,0)
2476	1^F^171.601^.02^^1^F
2477	"IX",171.601,171.601,"D2",11.1,1,3)
2478
2479	"IX",171.601,171.601,"D2",11.1,2,0)
2480	2^F^171.601^2^^^F
2481	"IX",171.601,171.601,"D2",11.1,2,3)
2482
2483	"IX",171.601,171.601,"D2",11.1,3,0)
2484	3^C
2485	"IX",171.601,171.601,"D2",11.1,3,1.5)
2486	S X=9999999-X(2)
2487	"IX",171.601,171.601,"D2",11.1,4,0)
2488	4^C^^^^3
2489	"IX",171.601,171.601,"D2",11.1,4,1.5)
2490	S X=X(3)
2491	"IX",171.601,171.601,"D2",11.1,5,0)
2492	5^F^171.601^.01^^2^F
2493	"IX",171.601,171.601,"D2",11.1,5,3)
2494
2495	"IX",171.601,171.601,"P",0)
2496	171.601^P^REGULAR INDEX OF THE PATIENT^R^^F^IR^I^171.601^^^^^LS
2497	"IX",171.601,171.601,"P",1)
2498	S ^C0CE4("P",X,DA)=""
2499	"IX",171.601,171.601,"P",2)
2500	K ^C0CE4("P",X,DA)
2501	"IX",171.601,171.601,"P",2.5)
2502	K ^C0CE4("P")
2503	"IX",171.601,171.601,"P",11.1,0)
2504	^.114IA^1^1
2505	"IX",171.601,171.601,"P",11.1,1,0)
2506	1^F^171.601^.02^^1^F
2507	"KEY",171.501,171.501,"A",0)
2508	171.501^A^P^727
2509	"KEY",171.501,171.501,"A",2,0)
2510	^.312IA^5^5
2511	"KEY",171.501,171.501,"A",2,1,0)
2512	.02^171.501^1
2513	"KEY",171.501,171.501,"A",2,2,0)
2514	.03^171.501^2
2515	"KEY",171.501,171.501,"A",2,3,0)
2516	.04^171.501^3
2517	"KEY",171.501,171.501,"A",2,4,0)
2518	.05^171.501^4
2519	"KEY",171.501,171.501,"A",2,5,0)
2520	.01^171.501^5
2521	"KEY",171.601,171.601,"A",0)
2522	171.601^A^P^728
2523	"KEY",171.601,171.601,"A",2,0)
2524	^.312IA^4^4
2525	"KEY",171.601,171.601,"A",2,1,0)
2526	.02^171.601^1
2527	"KEY",171.601,171.601,"A",2,2,0)
2528	.03^171.601^2
2529	"KEY",171.601,171.601,"A",2,3,0)
2530	.01^171.601^3
2531	"KEY",171.601,171.601,"A",2,4,0)
2532	.04^171.601^4
2533	"KEYPTR",171.501,171.501,"A")
2534	171.501^C
2535	"KEYPTR",171.601,171.601,"A")
2536	171.601^C
2537	"MBREQ")
2538	0
2539	"QUES","XPF1",0)
2540	Y
2541	"QUES","XPF1","??")
2542	^D REP^XPDH
2543	"QUES","XPF1","A")
2544	Shall I write over your \|FLAG\| File
2545	"QUES","XPF1","B")
2546	YES
2547	"QUES","XPF1","M")
2548	D XPF1^XPDIQ
2549	"QUES","XPF2",0)
2550	Y
2551	"QUES","XPF2","??")
2552	^D DTA^XPDH
2553	"QUES","XPF2","A")
2554	Want my data \|FLAG\| yours
2555	"QUES","XPF2","B")
2556	YES
2557	"QUES","XPF2","M")
2558	D XPF2^XPDIQ
2559	"QUES","XPI1",0)
2560	YO
2561	"QUES","XPI1","??")
2562	^D INHIBIT^XPDH
2563	"QUES","XPI1","A")
2564	Want KIDS to INHIBIT LOGONs during the install
2565	"QUES","XPI1","B")
2566	NO
2567	"QUES","XPI1","M")
2568	D XPI1^XPDIQ
2569	"QUES","XPM1",0)
2570	PO^VA(200,:EM
2571	"QUES","XPM1","??")
2572	^D MG^XPDH
2573	"QUES","XPM1","A")
2574	Enter the Coordinator for Mail Group '\|FLAG\|'
2575	"QUES","XPM1","B")
2576
2577	"QUES","XPM1","M")
2578	D XPM1^XPDIQ
2579	"QUES","XPO1",0)
2580	Y
2581	"QUES","XPO1","??")
2582	^D MENU^XPDH
2583	"QUES","XPO1","A")
2584	Want KIDS to Rebuild Menu Trees Upon Completion of Install
2585	"QUES","XPO1","B")
2586	NO
2587	"QUES","XPO1","M")
2588	D XPO1^XPDIQ
2589	"QUES","XPZ1",0)
2590	Y
2591	"QUES","XPZ1","??")
2592	^D OPT^XPDH
2593	"QUES","XPZ1","A")
2594	Want to DISABLE Scheduled Options, Menu Options, and Protocols
2595	"QUES","XPZ1","B")
2596	NO
2597	"QUES","XPZ1","M")
2598	D XPZ1^XPDIQ
2599	"QUES","XPZ2",0)
2600	Y
2601	"QUES","XPZ2","??")
2602	^D RTN^XPDH
2603	"QUES","XPZ2","A")
2604	Want to MOVE routines to other CPUs
2605	"QUES","XPZ2","B")
2606	NO
2607	"QUES","XPZ2","M")
2608	D XPZ2^XPDIQ
2609	"SEC","^DIC",170,170,0,"AUDIT")
2610	@
2611	"SEC","^DIC",170,170,0,"DD")
2612	@
2613	"SEC","^DIC",170,170,0,"DEL")
2614	@
2615	"SEC","^DIC",170,170,0,"LAYGO")
2616	@
2617	"SEC","^DIC",170,170,0,"RD")
2618	@
2619	"SEC","^DIC",170,170,0,"WR")
2620	@
2621	"SEC","^DIC",170.101,170.101,0,"AUDIT")
2622	@
2623	"SEC","^DIC",170.101,170.101,0,"DD")
2624	@
2625	"SEC","^DIC",170.101,170.101,0,"DEL")
2626	@
2627	"SEC","^DIC",170.101,170.101,0,"LAYGO")
2628	@
2629	"SEC","^DIC",170.101,170.101,0,"RD")
2630	@
2631	"SEC","^DIC",170.101,170.101,0,"WR")
2632	@
2633	"SEC","^DIC",171.101,171.101,0,"AUDIT")
2634	@
2635	"SEC","^DIC",171.101,171.101,0,"DD")
2636	@
2637	"SEC","^DIC",171.101,171.101,0,"DEL")
2638	@
2639	"SEC","^DIC",171.101,171.101,0,"LAYGO")
2640	@
2641	"SEC","^DIC",171.101,171.101,0,"RD")
2642	@
2643	"SEC","^DIC",171.101,171.101,0,"WR")
2644	@
2645	"SEC","^DIC",171.201,171.201,0,"AUDIT")
2646	@
2647	"SEC","^DIC",171.201,171.201,0,"DD")
2648	@
2649	"SEC","^DIC",171.201,171.201,0,"DEL")
2650	@
2651	"SEC","^DIC",171.201,171.201,0,"LAYGO")
2652	@
2653	"SEC","^DIC",171.201,171.201,0,"RD")
2654	@
2655	"SEC","^DIC",171.201,171.201,0,"WR")
2656	@
2657	"SEC","^DIC",171.401,171.401,0,"AUDIT")
2658	@
2659	"SEC","^DIC",171.401,171.401,0,"DD")
2660	@
2661	"SEC","^DIC",171.401,171.401,0,"DEL")
2662	@
2663	"SEC","^DIC",171.401,171.401,0,"LAYGO")
2664	@
2665	"SEC","^DIC",171.401,171.401,0,"RD")
2666	@
2667	"SEC","^DIC",171.401,171.401,0,"WR")
2668	@
2669	"SEC","^DIC",171.501,171.501,0,"AUDIT")
2670	@
2671	"SEC","^DIC",171.501,171.501,0,"DD")
2672	@
2673	"SEC","^DIC",171.501,171.501,0,"DEL")
2674	@
2675	"SEC","^DIC",171.501,171.501,0,"LAYGO")
2676	@
2677	"SEC","^DIC",171.501,171.501,0,"RD")
2678	@
2679	"SEC","^DIC",171.501,171.501,0,"WR")
2680	@
2681	"SEC","^DIC",171.601,171.601,0,"AUDIT")
2682	@
2683	"SEC","^DIC",171.601,171.601,0,"DD")
2684	@
2685	"SEC","^DIC",171.601,171.601,0,"DEL")
2686	@
2687	"SEC","^DIC",171.601,171.601,0,"LAYGO")
2688	@
2689	"SEC","^DIC",171.601,171.601,0,"RD")
2690	@
2691	"SEC","^DIC",171.601,171.601,0,"WR")
2692	@
2693	"VER")
2694	8.0^22.0
2695	"^DD",170,170,0)
2696	FIELD^^12^12
2697	"^DD",170,170,0,"DDA")
2698	N
2699	"^DD",170,170,0,"DT")
2700	3090214
2701	"^DD",170,170,0,"IX","B",170,.01)
2702
2703	"^DD",170,170,0,"NM","CCR DICTIONARY")
2704
2705	"^DD",170,170,0,"PT",170.1012,.01)
2706
2707	"^DD",170,170,0,"PT",171.1311,.01)
2708
2709	"^DD",170,170,0,"PT",171.2012,.01)
2710
2711	"^DD",170,170,0,"PT",171.201221,.01)
2712
2713	"^DD",170,170,0,"PT",171.501,.01)
2714
2715	"^DD",170,170,0,"PT",171.6011,.01)
2716
2717	"^DD",170,170,.01,0)
2718	AVARIABLE^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
2719	"^DD",170,170,.01,.1)
2720	CCR/CCD/RIM VARIABLE NAME
2721	"^DD",170,170,.01,1,0)
2722	^.1
2723	"^DD",170,170,.01,1,1,0)
2724	170^B
2725	"^DD",170,170,.01,1,1,1)
2726	S ^C0CDIC(170,"B",$E(X,1,30),DA)=""
2727	"^DD",170,170,.01,1,1,2)
2728	K ^C0CDIC(170,"B",$E(X,1,30),DA)
2729	"^DD",170,170,.01,3)
2730	Answer must be 2-30 characters in length
2731	"^DD",170,170,.01,"DT")
2732	3090214
2733	"^DD",170,170,1,0)
2734	ID^NJ6,3^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."4.N) X
2735	"^DD",170,170,1,.1)
2736	ELEMENT ID IN THE CCD C32 SPECIFICATION
2737	"^DD",170,170,1,3)
2738	Type a number between 0 and 99, 3 Decimal Digits
2739	"^DD",170,170,1,"DT")
2740	3081120
2741	"^DD",170,170,2,0)
2742	XPATH^F^^1;1^K:$L(X)>250!($L(X)<2) X
2743	"^DD",170,170,2,.1)
2744	XPATH INDEX INTO THE CCR
2745	"^DD",170,170,2,3)
2746	Answer must be 2-250 characters in length
2747	"^DD",170,170,2,"DT")
2748	3081120
2749	"^DD",170,170,3,0)
2750	DESCRIPTION^170.01^^5;0
2751	"^DD",170,170,4,0)
2752	SOURCE^170.04^^3;0
2753	"^DD",170,170,6,0)
2754	TYPE^S^DT:DATE/TIME UNIVERAL FORMAT;CD:CODE;CS:CODE SYSTEM;CV:CODE SYSTEM VERSION;ID:CCR/CCD/XML OBJECT ID;V:VALUE;^4;2^Q
2755	"^DD",170,170,6,.1)
2756	TYPE OF VARIABLE
2757	"^DD",170,170,6,"DT")
2758	3081120
2759	"^DD",170,170,7,0)
2760	DATA ELEMENT^F^^4;3^K:$L(X)>60!($L(X)<2) X
2761	"^DD",170,170,7,.1)
2762	CCR/CCD Data Element Name
2763	"^DD",170,170,7,3)
2764	Answer must be 2-60 characters in length
2765	"^DD",170,170,7,"DT")
2766	3081120
2767	"^DD",170,170,8,0)
2768	CODING^170.08S^^6;0
2769	"^DD",170,170,9,0)
2770	STATUS^S^X:NOT IMPLEMENTED YET;I:INCOMPLETE ENTRIES;C:COMPLETE BUT NOT REVIEWD;R:REVIEWED BUT NOT VERIFIED;V:VERIFIED - DONE;N:NEEDS WORK;^7;1^Q
2771	"^DD",170,170,9,.1)
2772	STATUS OF THE DICTIONARY ENTRY FOR THIS VARIABLE
2773	"^DD",170,170,9,3)
2774	STATUS OF THIS DICTIONARY ENTRY
2775	"^DD",170,170,9,"DT")
2776	3081121
2777	"^DD",170,170,10,0)
2778	SECTION^S^HEADER:HEADER;PROBLEMS:PROBLEMS;VITALS:VITALS;ALERTS:ALERTS;MEDS:MEDICATIONS;LABS:RESULTS;ACTORS:ACTORS;SOC:SOCIAL HISTORY;FAM:FAMILY HISTORY;IMM:IMMUNIZATIONS;ENC:ENCOUNTERS;TEST:RESULTS TEST;DIR:MEDS DIRECTIONS;^7;2^Q
2779	"^DD",170,170,10,.1)
2780	SECTION OF THE CCR/CCD IN WHICH THIS VARIABLE IS USED
2781	"^DD",170,170,10,"DT")
2782	3081206
2783	"^DD",170,170,11,0)
2784	RIM COHERENCE^F^^7;3^K:$L(X)>30!($L(X)<2) X
2785	"^DD",170,170,11,.1)
2786	RIM Coherence attribute for this variable
2787	"^DD",170,170,11,3)
2788	Answer must be 2-30 characters in length
2789	"^DD",170,170,11,"DT")
2790	3081216
2791	"^DD",170,170,12,0)
2792	ELEMENT TYPE^P170.101^C0CDIC(170.101,^7;4^Q
2793	"^DD",170,170,12,.1)
2794	NODE TYPE OF THE VARIABLE
2795	"^DD",170,170,12,"DT")
2796	3090208
2797	"^DD",170,170.01,0)
2798	DESCRIPTION SUB-FIELD^^.01^1
2799	"^DD",170,170.01,0,"DT")
2800	3081120
2801	"^DD",170,170.01,0,"NM","DESCRIPTION")
2802
2803	"^DD",170,170.01,0,"UP")
2804	170
2805	"^DD",170,170.01,.01,0)
2806	DESCRIPTION^W^^0;1
2807	"^DD",170,170.01,.01,3)
2808	Describe this Variable
2809	"^DD",170,170.01,.01,"DT")
2810	3081120
2811	"^DD",170,170.04,0)
2812	SOURCE SUB-FIELD^^.01^1
2813	"^DD",170,170.04,0,"DT")
2814	3081120
2815	"^DD",170,170.04,0,"NM","SOURCE")
2816
2817	"^DD",170,170.04,0,"UP")
2818	170
2819	"^DD",170,170.04,.01,0)
2820	SOURCE^W^^0;1
2821	"^DD",170,170.04,.01,3)
2822	Source in VistA for this Variable
2823	"^DD",170,170.04,.01,"DT")
2824	3081120
2825	"^DD",170,170.08,0)
2826	CODING SUB-FIELD^^1^2
2827	"^DD",170,170.08,0,"DT")
2828	3081121
2829	"^DD",170,170.08,0,"IX","B",170.08,.01)
2830
2831	"^DD",170,170.08,0,"NM","CODING")
2832
2833	"^DD",170,170.08,0,"UP")
2834	170
2835	"^DD",170,170.08,.01,0)
2836	CODING^MS^SNO:SNOMED CT;LN:LOINC;ICD:ICD9;VA:VA INTERNAL CODE;VUI:VUID VA CODE;RXN:RXNORM;NCD:NDC NATIONAL DRUG CODE;^0;1^Q
2837	"^DD",170,170.08,.01,.1)
2838	CODING SYSTEMS USED FOR THIS VARIABLE
2839	"^DD",170,170.08,.01,1,0)
2840	^.1
2841	"^DD",170,170.08,.01,1,1,0)
2842	170.08^B
2843	"^DD",170,170.08,.01,1,1,1)
2844	S ^C0CDIC(170,DA(1),6,"B",$E(X,1,30),DA)=""
2845	"^DD",170,170.08,.01,1,1,2)
2846	K ^C0CDIC(170,DA(1),6,"B",$E(X,1,30),DA)
2847	"^DD",170,170.08,.01,"DT")
2848	3081121
2849	"^DD",170,170.08,1,0)
2850	MAPPING METHOD^170.81^^1;0
2851	"^DD",170,170.81,0)
2852	MAPPING METHOD SUB-FIELD^^.01^1
2853	"^DD",170,170.81,0,"DT")
2854	3081121
2855	"^DD",170,170.81,0,"NM","MAPPING METHOD")
2856
2857	"^DD",170,170.81,0,"UP")
2858	170.08
2859	"^DD",170,170.81,.01,0)
2860	MAPPING METHOD^W^^0;1
2861	"^DD",170,170.81,.01,3)
2862	HOW IS THIS CODE PRODUCED FOR THIS VARIABLE?
2863	"^DD",170,170.81,.01,"DT")
2864	3081121
2865	"^DD",170.101,170.101,0)
2866	FIELD^^3^4
2867	"^DD",170.101,170.101,0,"DDA")
2868	N
2869	"^DD",170.101,170.101,0,"DT")
2870	3090208
2871	"^DD",170.101,170.101,0,"IX","B",170.101,.01)
2872
2873	"^DD",170.101,170.101,0,"NM","CCR NODE TYPE")
2874
2875	"^DD",170.101,170.101,0,"PT",170,12)
2876
2877	"^DD",170.101,170.101,0,"PT",170.101,1)
2878
2879	"^DD",170.101,170.101,0,"PT",170.1013,.01)
2880
2881	"^DD",170.101,170.101,0,"PT",171.121,.01)
2882
2883	"^DD",170.101,170.101,0,"PT",171.201,.03)
2884
2885	"^DD",170.101,170.101,0,"PT",171.501,.04)
2886
2887	"^DD",170.101,170.101,0,"PT",171.601,.01)
2888
2889	"^DD",170.101,170.101,.01,0)
2890	NODE TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
2891	"^DD",170.101,170.101,.01,.1)
2892	CCR NODE TYPE
2893	"^DD",170.101,170.101,.01,1,0)
2894	^.1
2895	"^DD",170.101,170.101,.01,1,1,0)
2896	170.101^B
2897	"^DD",170.101,170.101,.01,1,1,1)
2898	S ^C0CDIC(170.101,"B",$E(X,1,30),DA)=""
2899	"^DD",170.101,170.101,.01,1,1,2)
2900	K ^C0CDIC(170.101,"B",$E(X,1,30),DA)
2901	"^DD",170.101,170.101,.01,3)
2902	NODE TYPE
2903	"^DD",170.101,170.101,.01,"DT")
2904	3090206
2905	"^DD",170.101,170.101,1,0)
2906	PARENT^P170.101'^C0CDIC(170.101,^0;2^Q
2907	"^DD",170.101,170.101,1,.1)
2908	NODE TYPE PARENT
2909	"^DD",170.101,170.101,1,3)
2910	NODE TYPE PARENT
2911	"^DD",170.101,170.101,1,"DT")
2912	3090206
2913	"^DD",170.101,170.101,2,0)
2914	CONTENTS^170.1012P^^1;0
2915	"^DD",170.101,170.101,3,0)
2916	CHILDREN^170.1013P^^2;0
2917	"^DD",170.101,170.1012,0)
2918	CONTENTS SUB-FIELD^^.01^1
2919	"^DD",170.101,170.1012,0,"DT")
2920	3090208
2921	"^DD",170.101,170.1012,0,"IX","B",170.1012,.01)
2922
2923	"^DD",170.101,170.1012,0,"NM","CONTENTS")
2924
2925	"^DD",170.101,170.1012,0,"UP")
2926	170.101
2927	"^DD",170.101,170.1012,.01,0)
2928	CONTENTS^P170'^C0CDIC(170,^0;1^Q
2929	"^DD",170.101,170.1012,.01,.1)
2930	CCR VARIABLES THAT THIS NODE CONTAINS
2931	"^DD",170.101,170.1012,.01,1,0)
2932	^.1
2933	"^DD",170.101,170.1012,.01,1,1,0)
2934	170.1012^B
2935	"^DD",170.101,170.1012,.01,1,1,1)
2936	S ^C0CDIC(170.101,DA(1),1,"B",$E(X,1,30),DA)=""
2937	"^DD",170.101,170.1012,.01,1,1,2)
2938	K ^C0CDIC(170.101,DA(1),1,"B",$E(X,1,30),DA)
2939	"^DD",170.101,170.1012,.01,3)
2940	VARIABLES THAT THIS TYPE CONTAINS
2941	"^DD",170.101,170.1012,.01,"DT")
2942	3090208
2943	"^DD",170.101,170.1013,0)
2944	CHILDREN SUB-FIELD^^.01^1
2945	"^DD",170.101,170.1013,0,"DT")
2946	3090206
2947	"^DD",170.101,170.1013,0,"IX","B",170.1013,.01)
2948
2949	"^DD",170.101,170.1013,0,"NM","CHILDREN")
2950
2951	"^DD",170.101,170.1013,0,"UP")
2952	170.101
2953	"^DD",170.101,170.1013,.01,0)
2954	CHILDREN^P170.101'^C0CDIC(170.101,^0;1^Q
2955	"^DD",170.101,170.1013,.01,.1)
2956	CHILDREN NODE TYPES
2957	"^DD",170.101,170.1013,.01,1,0)
2958	^.1
2959	"^DD",170.101,170.1013,.01,1,1,0)
2960	170.1013^B
2961	"^DD",170.101,170.1013,.01,1,1,1)
2962	S ^C0CDIC(170.101,DA(1),2,"B",$E(X,1,30),DA)=""
2963	"^DD",170.101,170.1013,.01,1,1,2)
2964	K ^C0CDIC(170.101,DA(1),2,"B",$E(X,1,30),DA)
2965	"^DD",170.101,170.1013,.01,3)
2966	CHILDREN NODE TYPES
2967	"^DD",170.101,170.1013,.01,"DT")
2968	3090206
2969	"^DD",171.101,171.101,0)
2970	FIELD^^.02^2
2971	"^DD",171.101,171.101,0,"DDA")
2972	N
2973	"^DD",171.101,171.101,0,"DT")
2974	3090214
2975	"^DD",171.101,171.101,0,"IX","B",171.101,.01)
2976
2977	"^DD",171.101,171.101,0,"NM","CCR E2")
2978
2979	"^DD",171.101,171.101,.01,0)
2980	PATIENT^RP2'^DPT(^0;1^Q
2981	"^DD",171.101,171.101,.01,.1)
2982	POINTER TO PATIENT FILE
2983	"^DD",171.101,171.101,.01,1,0)
2984	^.1
2985	"^DD",171.101,171.101,.01,1,1,0)
2986	171.101^B
2987	"^DD",171.101,171.101,.01,1,1,1)
2988	S ^C0CE("B",$E(X,1,30),DA)=""
2989	"^DD",171.101,171.101,.01,1,1,2)
2990	K ^C0CE("B",$E(X,1,30),DA)
2991	"^DD",171.101,171.101,.01,3)
2992	PATIENT
2993	"^DD",171.101,171.101,.01,"DT")
2994	3090214
2995	"^DD",171.101,171.101,.02,0)
2996	CCR SOURCE^171.111P^^1;0
2997	"^DD",171.101,171.111,0)
2998	CCR SOURCE SUB-FIELD^^.03^2
2999	"^DD",171.101,171.111,0,"DT")
3000	3090214
3001	"^DD",171.101,171.111,0,"IX","B",171.111,.01)
3002
3003	"^DD",171.101,171.111,0,"NM","CCR SOURCE")
3004
3005	"^DD",171.101,171.111,0,"UP")
3006	171.101
3007	"^DD",171.101,171.111,.01,0)
3008	CCR SOURCE^P171.401^C0C(171.401,^0;1^Q
3009	"^DD",171.101,171.111,.01,.1)
3010	POINTER TO CCR SOURCE FILE
3011	"^DD",171.101,171.111,.01,1,0)
3012	^.1
3013	"^DD",171.101,171.111,.01,1,1,0)
3014	171.111^B
3015	"^DD",171.101,171.111,.01,1,1,1)
3016	S ^C0CE(DA(1),1,"B",$E(X,1,30),DA)=""
3017	"^DD",171.101,171.111,.01,1,1,2)
3018	K ^C0CE(DA(1),1,"B",$E(X,1,30),DA)
3019	"^DD",171.101,171.111,.01,3)
3020	CCR SOURCE
3021	"^DD",171.101,171.111,.01,"DT")
3022	3090214
3023	"^DD",171.101,171.111,.03,0)
3024	ELEMENT TYPE^171.121P^^1;0
3025	"^DD",171.101,171.121,0)
3026	ELEMENT TYPE SUB-FIELD^^.04^2
3027	"^DD",171.101,171.121,0,"DT")
3028	3090214
3029	"^DD",171.101,171.121,0,"IX","B",171.121,.01)
3030
3031	"^DD",171.101,171.121,0,"NM","ELEMENT TYPE")
3032
3033	"^DD",171.101,171.121,0,"UP")
3034	171.111
3035	"^DD",171.101,171.121,.01,0)
3036	ELEMENT TYPE^MP170.101'^C0CDIC(170.101,^0;1^Q
3037	"^DD",171.101,171.121,.01,.1)
3038	POINTER TO CCR NODE TYPE FILE
3039	"^DD",171.101,171.121,.01,1,0)
3040	^.1
3041	"^DD",171.101,171.121,.01,1,1,0)
3042	171.121^B
3043	"^DD",171.101,171.121,.01,1,1,1)
3044	S ^C0CE(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
3045	"^DD",171.101,171.121,.01,1,1,2)
3046	K ^C0CE(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
3047	"^DD",171.101,171.121,.01,3)
3048	CCR ELEMENT TYPE
3049	"^DD",171.101,171.121,.01,"DT")
3050	3090214
3051	"^DD",171.101,171.121,.04,0)
3052	OCCURANCE^171.131^^1;0
3053	"^DD",171.101,171.131,0)
3054	OCCURANCE SUB-FIELD^^1^2
3055	"^DD",171.101,171.131,0,"DT")
3056	3090214
3057	"^DD",171.101,171.131,0,"IX","B",171.131,.01)
3058
3059	"^DD",171.101,171.131,0,"NM","OCCURANCE")
3060
3061	"^DD",171.101,171.131,0,"UP")
3062	171.121
3063	"^DD",171.101,171.131,.01,0)
3064	OCCURANCE^MF^^0;1^K:$L(X)>30!($L(X)<1) X
3065	"^DD",171.101,171.131,.01,.1)
3066	OCCURANCE OF THIS ELEMENT TYPE " NN" WITH LEADING SPACE
3067	"^DD",171.101,171.131,.01,1,0)
3068	^.1
3069	"^DD",171.101,171.131,.01,1,1,0)
3070	171.131^B
3071	"^DD",171.101,171.131,.01,1,1,1)
3072	S ^C0CE(DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
3073	"^DD",171.101,171.131,.01,1,1,2)
3074	K ^C0CE(DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
3075	"^DD",171.101,171.131,.01,3)
3076	OCCURANCE OF THE ELEMENT TYPE " NN" WITH LEADING SPACE
3077	"^DD",171.101,171.131,.01,"DT")
3078	3090214
3079	"^DD",171.101,171.131,1,0)
3080	VARIABLE^171.1311P^^1;0
3081	"^DD",171.101,171.1311,0)
3082	VARIABLE SUB-FIELD^^1^2
3083	"^DD",171.101,171.1311,0,"DT")
3084	3090214
3085	"^DD",171.101,171.1311,0,"IX","B",171.1311,.01)
3086
3087	"^DD",171.101,171.1311,0,"NM","VARIABLE")
3088
3089	"^DD",171.101,171.1311,0,"UP")
3090	171.131
3091	"^DD",171.101,171.1311,.01,0)
3092	VARIABLE^MP170^C0CDIC(170,^0;1^Q
3093	"^DD",171.101,171.1311,.01,.1)
3094	POINTER TO CCR DICTIONARY
3095	"^DD",171.101,171.1311,.01,1,0)
3096	^.1
3097	"^DD",171.101,171.1311,.01,1,1,0)
3098	171.1311^B
3099	"^DD",171.101,171.1311,.01,1,1,1)
3100	S ^C0CE(DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
3101	"^DD",171.101,171.1311,.01,1,1,2)
3102	K ^C0CE(DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
3103	"^DD",171.101,171.1311,.01,3)
3104	CCR VARIABLE
3105	"^DD",171.101,171.1311,.01,"DT")
3106	3090214
3107	"^DD",171.101,171.1311,1,0)
3108	VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X
3109	"^DD",171.101,171.1311,1,.1)
3110	VALUE OF THE VARIABLE
3111	"^DD",171.101,171.1311,1,3)
3112	VALUE OF THE VARIABLE
3113	"^DD",171.101,171.1311,1,"DT")
3114	3090214
3115	"^DD",171.201,171.201,0)
3116	FIELD^^1^2
3117	"^DD",171.201,171.201,0,"DDA")
3118	N
3119	"^DD",171.201,171.201,0,"DT")
3120	3090221
3121	"^DD",171.201,171.201,0,"IX","B",171.201,.01)
3122
3123	"^DD",171.201,171.201,0,"NM","CCR VOCABULARIES")
3124
3125	"^DD",171.201,171.201,0,"PT",171.6014,.01)
3126
3127	"^DD",171.201,171.201,.01,0)
3128	CODING SYSTEM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
3129	"^DD",171.201,171.201,.01,.1)
3130	CODING SYSTEM - VOCABULARY
3131	"^DD",171.201,171.201,.01,1,0)
3132	^.1
3133	"^DD",171.201,171.201,.01,1,1,0)
3134	171.201^B
3135	"^DD",171.201,171.201,.01,1,1,1)
3136	S ^C0CC("B",$E(X,1,30),DA)=""
3137	"^DD",171.201,171.201,.01,1,1,2)
3138	K ^C0CC("B",$E(X,1,30),DA)
3139	"^DD",171.201,171.201,.01,3)
3140	CODING SYSTEM
3141	"^DD",171.201,171.201,.01,"DT")
3142	3090221
3143	"^DD",171.201,171.201,1,0)
3144	VERSION^F^^0;2^K:$L(X)>30!($L(X)<3) X
3145	"^DD",171.201,171.201,1,.1)
3146	CODING SYSTEM VERSION
3147	"^DD",171.201,171.201,1,3)
3148	CODING SYSTEM VERSION
3149	"^DD",171.201,171.201,1,"DT")
3150	3090221
3151	"^DD",171.401,171.401,0)
3152	FIELD^^2^3
3153	"^DD",171.401,171.401,0,"DDA")
3154	N
3155	"^DD",171.401,171.401,0,"DT")
3156	3090206
3157	"^DD",171.401,171.401,0,"IX","B",171.401,.01)
3158
3159	"^DD",171.401,171.401,0,"NM","CCR SOURCE")
3160
3161	"^DD",171.401,171.401,0,"PT",171.111,.01)
3162
3163	"^DD",171.401,171.401,0,"PT",171.201,.02)
3164
3165	"^DD",171.401,171.401,0,"PT",171.501,.03)
3166
3167	"^DD",171.401,171.401,0,"PT",171.601,.03)
3168
3169	"^DD",171.401,171.401,.01,0)
3170	NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
3171	"^DD",171.401,171.401,.01,1,0)
3172	^.1
3173	"^DD",171.401,171.401,.01,1,1,0)
3174	171.401^B
3175	"^DD",171.401,171.401,.01,1,1,1)
3176	S ^C0C(171.401,"B",$E(X,1,30),DA)=""
3177	"^DD",171.401,171.401,.01,1,1,2)
3178	K ^C0C(171.401,"B",$E(X,1,30),DA)
3179	"^DD",171.401,171.401,.01,3)
3180	NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
3181	"^DD",171.401,171.401,1,0)
3182	LOCAL SOURCE^171.4011P^^1;0
3183	"^DD",171.401,171.401,2,0)
3184	NON LOCAL SOURCE^171.4012P^^2;0
3185	"^DD",171.401,171.4011,0)
3186	LOCAL SOURCE SUB-FIELD^^.01^1
3187	"^DD",171.401,171.4011,0,"DT")
3188	3090206
3189	"^DD",171.401,171.4011,0,"IX","B",171.4011,.01)
3190
3191	"^DD",171.401,171.4011,0,"NM","LOCAL SOURCE")
3192
3193	"^DD",171.401,171.4011,0,"UP")
3194	171.401
3195	"^DD",171.401,171.4011,.01,0)
3196	LOCAL SOURCE^P4'^DIC(4,^0;1^Q
3197	"^DD",171.401,171.4011,.01,.1)
3198	LOCALLY DEFINED INSTITUTION
3199	"^DD",171.401,171.4011,.01,1,0)
3200	^.1
3201	"^DD",171.401,171.4011,.01,1,1,0)
3202	171.4011^B
3203	"^DD",171.401,171.4011,.01,1,1,1)
3204	S ^C0C(171.401,DA(1),1,"B",$E(X,1,30),DA)=""
3205	"^DD",171.401,171.4011,.01,1,1,2)
3206	K ^C0C(171.401,DA(1),1,"B",$E(X,1,30),DA)
3207	"^DD",171.401,171.4011,.01,3)
3208	DEFINED INSTITUTION
3209	"^DD",171.401,171.4011,.01,"DT")
3210	3090206
3211	"^DD",171.401,171.4012,0)
3212	NON LOCAL SOURCE SUB-FIELD^^.01^1
3213	"^DD",171.401,171.4012,0,"DT")
3214	3090206
3215	"^DD",171.401,171.4012,0,"IX","B",171.4012,.01)
3216
3217	"^DD",171.401,171.4012,0,"NM","NON LOCAL SOURCE")
3218
3219	"^DD",171.401,171.4012,0,"UP")
3220	171.401
3221	"^DD",171.401,171.4012,.01,0)
3222	NON LOCAL SOURCE^P171.201'^C0C(171.201,^0;1^Q
3223	"^DD",171.401,171.4012,.01,.1)
3224	CCR NON LOCAL SOURCE
3225	"^DD",171.401,171.4012,.01,1,0)
3226	^.1
3227	"^DD",171.401,171.4012,.01,1,1,0)
3228	171.4012^B
3229	"^DD",171.401,171.4012,.01,1,1,1)
3230	S ^C0C(171.401,DA(1),2,"B",$E(X,1,30),DA)=""
3231	"^DD",171.401,171.4012,.01,1,1,2)
3232	K ^C0C(171.401,DA(1),2,"B",$E(X,1,30),DA)
3233	"^DD",171.401,171.4012,.01,3)
3234	NON LOCAL SOURCE OF THE CCR
3235	"^DD",171.401,171.4012,.01,"DT")
3236	3090206
3237	"^DD",171.501,171.501,0)
3238	FIELD^^1^6
3239	"^DD",171.501,171.501,0,"DDA")
3240	N
3241	"^DD",171.501,171.501,0,"DT")
3242	3090221
3243	"^DD",171.501,171.501,0,"IX","B",171.501,.01)
3244
3245	"^DD",171.501,171.501,0,"NM","CCR E3")
3246
3247	"^DD",171.501,171.501,.01,0)
3248	VARIABLE^RP170^C0CDIC(170,^0;1^Q
3249	"^DD",171.501,171.501,.01,.1)
3250	POINTER TO CCR DICTIONARY
3251	"^DD",171.501,171.501,.01,1,0)
3252	^.1
3253	"^DD",171.501,171.501,.01,1,1,0)
3254	171.501^B
3255	"^DD",171.501,171.501,.01,1,1,1)
3256	S ^C0CE3("B",$E(X,1,30),DA)=""
3257	"^DD",171.501,171.501,.01,1,1,2)
3258	K ^C0CE3("B",$E(X,1,30),DA)
3259	"^DD",171.501,171.501,.01,3)
3260	POINTER TO CCR DICTIONARY
3261	"^DD",171.501,171.501,.01,"DT")
3262	3090221
3263	"^DD",171.501,171.501,.02,0)
3264	PATIENT^P2'^DPT(^0;2^Q
3265	"^DD",171.501,171.501,.02,.1)
3266	POINTER TO PATIENT FILE
3267	"^DD",171.501,171.501,.02,3)
3268	POINTER TO PATIENT FILE
3269	"^DD",171.501,171.501,.02,"DT")
3270	3090221
3271	"^DD",171.501,171.501,.03,0)
3272	CCR SOURCE^P171.401'^C0C(171.401,^0;3^Q
3273	"^DD",171.501,171.501,.03,.1)
3274	POINTER TO CCR SOURCE FILE
3275	"^DD",171.501,171.501,.03,3)
3276	POINTER TO CCR SOURCE FILE
3277	"^DD",171.501,171.501,.03,"DT")
3278	3090221
3279	"^DD",171.501,171.501,.04,0)
3280	DOMAIN^P170.101'^C0CDIC(170.101,^0;4^Q
3281	"^DD",171.501,171.501,.04,.1)
3282	POINTER TO CCR NODE TYPE FILE
3283	"^DD",171.501,171.501,.04,3)
3284	POINTER TO CCR NODE TYPE FILE
3285	"^DD",171.501,171.501,.04,"DT")
3286	3090221
3287	"^DD",171.501,171.501,.05,0)
3288	OCCURRANCE^F^^0;5^K:$L(X)>30!($L(X)<3) X
3289	"^DD",171.501,171.501,.05,.1)
3290	OCCURRANCE INDEX
3291	"^DD",171.501,171.501,.05,3)
3292	OCCURRANCE INDEX
3293	"^DD",171.501,171.501,.05,"DT")
3294	3090221
3295	"^DD",171.501,171.501,1,0)
3296	VALUE^F^^2;E1,200^K:$L(X)>200!($L(X)<1) X
3297	"^DD",171.501,171.501,1,.1)
3298	VALUE OF THE VARIABLE
3299	"^DD",171.501,171.501,1,3)
3300	VALUE OF THE VARIABLE
3301	"^DD",171.501,171.501,1,"DT")
3302	3090221
3303	"^DD",171.601,171.601,0)
3304	FIELD^^4^9
3305	"^DD",171.601,171.601,0,"DDA")
3306	N
3307	"^DD",171.601,171.601,0,"DT")
3308	3090221
3309	"^DD",171.601,171.601,0,"IX","B",171.601,.01)
3310
3311	"^DD",171.601,171.601,0,"NM","CCR E4")
3312
3313	"^DD",171.601,171.601,.01,0)
3314	ELEMENT^RP170.101'^C0CDIC(170.101,^0;1^Q
3315	"^DD",171.601,171.601,.01,.1)
3316	DOMAIN POINTER TO CCR NODE TYPE FILE
3317	"^DD",171.601,171.601,.01,1,0)
3318	^.1
3319	"^DD",171.601,171.601,.01,1,1,0)
3320	171.601^B
3321	"^DD",171.601,171.601,.01,1,1,1)
3322	S ^C0CE4("B",$E(X,1,30),DA)=""
3323	"^DD",171.601,171.601,.01,1,1,2)
3324	K ^C0CE4("B",$E(X,1,30),DA)
3325	"^DD",171.601,171.601,.01,3)
3326	DOMAIN POINTER TO CCR NODE TYPE FILE
3327	"^DD",171.601,171.601,.01,"DT")
3328	3090221
3329	"^DD",171.601,171.601,.02,0)
3330	PATIENT^P2'^DPT(^0;2^Q
3331	"^DD",171.601,171.601,.02,.1)
3332	POINTER TO PATIENT FILE
3333	"^DD",171.601,171.601,.02,3)
3334	POINTER TO PATIENT FILE
3335	"^DD",171.601,171.601,.02,"DT")
3336	3090221
3337	"^DD",171.601,171.601,.03,0)
3338	CCR SOURCE^P171.401'^C0C(171.401,^0;3^Q
3339	"^DD",171.601,171.601,.03,.1)
3340	POINTER TO CCR SOURCE FILE
3341	"^DD",171.601,171.601,.03,3)
3342	POINTER TO CCR SOURCE FILE
3343	"^DD",171.601,171.601,.03,"DT")
3344	3090221
3345	"^DD",171.601,171.601,.04,0)
3346	OCCURRENCE^F^^0;4^K:$L(X)>30!($L(X)<1) X
3347	"^DD",171.601,171.601,.04,.1)
3348	OCCURRENCE INDEX " NN"
3349	"^DD",171.601,171.601,.04,3)
3350	OCCURRENCE INDEX " NN"
3351	"^DD",171.601,171.601,.04,"DT")
3352	3090221
3353	"^DD",171.601,171.601,.05,0)
3354	OBJECT ID^F^^2;6^K:$L(X)>30!($L(X)<1) X
3355	"^DD",171.601,171.601,.05,.1)
3356	ELEMENT OBJECT ID
3357	"^DD",171.601,171.601,.05,3)
3358	ELEMENT OBJECT ID
3359	"^DD",171.601,171.601,.05,23,0)
3360	^^23^23^3090221^
3361	"^DD",171.601,171.601,.05,23,1,0)
3362	This ObjectID is here at the element level as a placeholder for when we
3363	"^DD",171.601,171.601,.05,23,2,0)
3364	can resolve how to form it and when to use it.
3365	"^DD",171.601,171.601,.05,23,3,0)
3366
3367	"^DD",171.601,171.601,.05,23,4,0)
3368	Every CCR element has an objecid variable, which must be unique to the
3369	"^DD",171.601,171.601,.05,23,5,0)
3370	CCR in which it appears. However, what about the case of the cummulative
3371	"^DD",171.601,171.601,.05,23,6,0)
3372	CCR where elements are combined for a patient from multiple sources ie
3373	"^DD",171.601,171.601,.05,23,7,0)
3374	multiple separate CCRs. How can we insure that the Object IDs will be
3375	"^DD",171.601,171.601,.05,23,8,0)
3376	unique to the cummulative CCR?
3377	"^DD",171.601,171.601,.05,23,9,0)
3378
3379	"^DD",171.601,171.601,.05,23,10,0)
3380	One thought is to prepend the source to the ObjectID variable
3381	"^DD",171.601,171.601,.05,23,11,0)
3382	S1_ObjectID. Of course, the source pointer is local to the system, so
3383	"^DD",171.601,171.601,.05,23,12,0)
3384	these object ids won't be of much use to a recieving system (who might
3385	"^DD",171.601,171.601,.05,23,13,0)
3386	just prepend our ids with thier internal source identifier ie
3387	"^DD",171.601,171.601,.05,23,14,0)
3388	S2_S1_ObjectID). However, this might be used by the CCR stylesheet to
3389	"^DD",171.601,171.601,.05,23,15,0)
3390	give a visual colorcoding to elements from different sources without
3391	"^DD",171.601,171.601,.05,23,16,0)
3392	adding to the CCR tags (and having a malformed CCR).
3393	"^DD",171.601,171.601,.05,23,17,0)
3394
3395	"^DD",171.601,171.601,.05,23,18,0)
3396	This field should be populated by a fileman exit triggered on
3397	"^DD",171.601,171.601,.05,23,19,0)
3398	insert of the objectid variable. Perhaps a Mumps Cross-Reference with a
3399	"^DD",171.601,171.601,.05,23,20,0)
3400	screen for an objectid variable (objectid is a Node type in the CCR NODE
3401	"^DD",171.601,171.601,.05,23,21,0)
3402	TYPE file)
3403	"^DD",171.601,171.601,.05,23,22,0)
3404
3405	"^DD",171.601,171.601,.05,23,23,0)
3406	variable of the element.
3407	"^DD",171.601,171.601,.05,"DT")
3408	3090221
3409	"^DD",171.601,171.601,1,0)
3410	VARIABLE^171.6011P^^1;0
3411	"^DD",171.601,171.601,2,0)
3412	CLINICAL DATE^D^^2;1^S %DT="EST" D ^%DT S X=Y K:X<1 X
3413	"^DD",171.601,171.601,2,.1)
3414	CLINICAL DATE OF THE ELEMENT
3415	"^DD",171.601,171.601,2,3)
3416	CLINICAL DATE OF THE ELEMENT
3417	"^DD",171.601,171.601,2,"DT")
3418	3090221
3419	"^DD",171.601,171.601,3,0)
3420	CLINICAL SOURCE^F^^2;2^K:$L(X)>30!($L(X)<1) X
3421	"^DD",171.601,171.601,3,.1)
3422	CLINICAL SOURCE OF THE ELEMENT
3423	"^DD",171.601,171.601,3,3)
3424	CLINICAL SOURCE OF THE ELEMENT
3425	"^DD",171.601,171.601,3,23,0)
3426	^^11^11^3090221^
3427	"^DD",171.601,171.601,3,23,1,0)
3428	This field should point to to clinical source of the element. The
3429	"^DD",171.601,171.601,3,23,2,0)
3430	difficulty is that for elements that are from an external CCR, the
3431	"^DD",171.601,171.601,3,23,3,0)
3432	clinical source may not be in the New Person file. So, this might be a
3433	"^DD",171.601,171.601,3,23,4,0)
3434	variable pointer to the either the new person file or to a new external
3435	"^DD",171.601,171.601,3,23,5,0)
3436	provider file.
3437	"^DD",171.601,171.601,3,23,6,0)
3438
3439	"^DD",171.601,171.601,3,23,7,0)
3440	The new external provider file is not yet designed, and it is a difficult
3441	"^DD",171.601,171.601,3,23,8,0)
3442	file to do...
3443	"^DD",171.601,171.601,3,23,9,0)
3444
3445	"^DD",171.601,171.601,3,23,10,0)
3446	So, as a place holder, this field is Free Text and will contain the
3447	"^DD",171.601,171.601,3,23,11,0)
3448	ObjectID stored in the Source variable of the element.
3449	"^DD",171.601,171.601,3,"DT")
3450	3090221
3451	"^DD",171.601,171.601,4,0)
3452	CODING^171.6014P^^3;0
3453	"^DD",171.601,171.6011,0)
3454	VARIABLE SUB-FIELD^^1^2
3455	"^DD",171.601,171.6011,0,"DT")
3456	3090221
3457	"^DD",171.601,171.6011,0,"IX","B",171.6011,.01)
3458
3459	"^DD",171.601,171.6011,0,"NM","VARIABLE")
3460
3461	"^DD",171.601,171.6011,0,"UP")
3462	171.601
3463	"^DD",171.601,171.6011,.01,0)
3464	VARIABLE^MP170^C0CDIC(170,^0;1^Q
3465	"^DD",171.601,171.6011,.01,.1)
3466	POINTER TO CCR DICTIONARY
3467	"^DD",171.601,171.6011,.01,1,0)
3468	^.1
3469	"^DD",171.601,171.6011,.01,1,1,0)
3470	171.6011^B
3471	"^DD",171.601,171.6011,.01,1,1,1)
3472	S ^C0CE4(DA(1),1,"B",$E(X,1,30),DA)=""
3473	"^DD",171.601,171.6011,.01,1,1,2)
3474	K ^C0CE4(DA(1),1,"B",$E(X,1,30),DA)
3475	"^DD",171.601,171.6011,.01,3)
3476	POINTER TO CCR DICTIONARY
3477	"^DD",171.601,171.6011,.01,"DT")
3478	3090221
3479	"^DD",171.601,171.6011,1,0)
3480	VALUE^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X
3481	"^DD",171.601,171.6011,1,.1)
3482	VALUE OF THE VARIABLE
3483	"^DD",171.601,171.6011,1,3)
3484	VALUE OF THE VARIABLE
3485	"^DD",171.601,171.6011,1,"DT")
3486	3090221
3487	"^DD",171.601,171.6014,0)
3488	CODING SUB-FIELD^^1^2
3489	"^DD",171.601,171.6014,0,"DT")
3490	3090221
3491	"^DD",171.601,171.6014,0,"IX","B",171.6014,.01)
3492
3493	"^DD",171.601,171.6014,0,"NM","CODING")
3494
3495	"^DD",171.601,171.6014,0,"UP")
3496	171.601
3497	"^DD",171.601,171.6014,.01,0)
3498	CODING^MP171.201^C0CC(^0;1^Q
3499	"^DD",171.601,171.6014,.01,.1)
3500	CODING SYSTEM FOR THIS ELEMENT
3501	"^DD",171.601,171.6014,.01,1,0)
3502	^.1
3503	"^DD",171.601,171.6014,.01,1,1,0)
3504	171.6014^B
3505	"^DD",171.601,171.6014,.01,1,1,1)
3506	S ^C0CE4(DA(1),3,"B",$E(X,1,30),DA)=""
3507	"^DD",171.601,171.6014,.01,1,1,2)
3508	K ^C0CE4(DA(1),3,"B",$E(X,1,30),DA)
3509	"^DD",171.601,171.6014,.01,3)
3510	CODING SYSTEM FOR THIS ELEMENT
3511	"^DD",171.601,171.6014,.01,"DT")
3512	3090221
3513	"^DD",171.601,171.6014,1,0)
3514	CODE VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X
3515	"^DD",171.601,171.6014,1,.1)
3516	CODE VALUE FOR THIS ELEMENT
3517	"^DD",171.601,171.6014,1,3)
3518	CODE VALUE IN THIS CODING SYSTEM FOR THIS ELEMENT
3519	"^DD",171.601,171.6014,1,"DT")
3520	3090221
3521	"^DIC",170,170,0)
3522	CCR DICTIONARY^170
3523	"^DIC",170,170,0,"GL")
3524	^C0CDIC(170,
3525	"^DIC",170,"B","CCR DICTIONARY",170)
3526
3527	"^DIC",170.101,170.101,0)
3528	CCR NODE TYPE^170.101
3529	"^DIC",170.101,170.101,0,"GL")
3530	^C0CDIC(170.101,
3531	"^DIC",170.101,"B","CCR NODE TYPE",170.101)
3532
3533	"^DIC",171.101,171.101,0)
3534	CCR E2^171.101
3535	"^DIC",171.101,171.101,0,"GL")
3536	^C0CE(
3537	"^DIC",171.101,"B","CCR E2",171.101)
3538
3539	"^DIC",171.201,171.201,0)
3540	CCR VOCABULARIES^171.201
3541	"^DIC",171.201,171.201,0,"GL")
3542	^C0CC(
3543	"^DIC",171.201,"B","CCR VOCABULARIES",171.201)
3544
3545	"^DIC",171.401,171.401,0)
3546	CCR SOURCE^171.401
3547	"^DIC",171.401,171.401,0,"GL")
3548	^C0C(171.401,
3549	"^DIC",171.401,"B","CCR SOURCE",171.401)
3550
3551	"^DIC",171.501,171.501,0)
3552	CCR E3^171.501
3553	"^DIC",171.501,171.501,0,"GL")
3554	^C0CE3(
3555	"^DIC",171.501,"B","CCR E3",171.501)
3556
3557	"^DIC",171.601,171.601,0)
3558	CCR E4^171.601
3559	"^DIC",171.601,171.601,0,"GL")
3560	^C0CE4(
3561	"^DIC",171.601,"B","CCR E4",171.601)
3562
3563	END
3564	END

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format