source: ccr/trunk/archive/C0CE_1_0_2_T1.KID@ 765

Last change on this file since 765 was 554, checked in by George Lilly, 15 years ago

move to archive

File size: 80.9 KB
Line 
1KIDS Distribution saved on Feb 23, 2009@12:11:02
2prototype CCR E3 AND CCR E4
3**KIDS**:C0CE*1.0*2^
4
5**INSTALL NAME**
6C0CE*1.0*2
7"BLD",7407,0)
8C0CE*1.0*2^^0^3090223^y
9"BLD",7407,4,0)
10^9.64PA^171.201^7
11"BLD",7407,4,170,0)
12170
13"BLD",7407,4,170,222)
14y^y^f^^n^^y^o^n
15"BLD",7407,4,170.101,0)
16170.101
17"BLD",7407,4,170.101,222)
18y^y^f^^n^^y^o^n
19"BLD",7407,4,171.101,0)
20171.101
21"BLD",7407,4,171.101,222)
22y^y^f^^^^n
23"BLD",7407,4,171.201,0)
24171.201
25"BLD",7407,4,171.201,222)
26y^y^f^^n^^y^o^n
27"BLD",7407,4,171.401,0)
28171.401
29"BLD",7407,4,171.401,222)
30y^y^f^^^^n
31"BLD",7407,4,171.501,0)
32171.501
33"BLD",7407,4,171.501,222)
34y^y^f^^n^^y^o^n
35"BLD",7407,4,171.601,0)
36171.601
37"BLD",7407,4,171.601,222)
38y^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)
542
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)
703.6
71"BLD",7407,"KRN",3.8,0)
723.8
73"BLD",7407,"KRN",9.2,0)
749.2
75"BLD",7407,"KRN",9.8,0)
769.8
77"BLD",7407,"KRN",9.8,"NM",0)
78^9.68A^^
79"BLD",7407,"KRN",19,0)
8019
81"BLD",7407,"KRN",19.1,0)
8219.1
83"BLD",7407,"KRN",101,0)
84101
85"BLD",7407,"KRN",409.61,0)
86409.61
87"BLD",7407,"KRN",771,0)
88771
89"BLD",7407,"KRN",870,0)
90870
91"BLD",7407,"KRN",8989.51,0)
928989.51
93"BLD",7407,"KRN",8989.52,0)
948989.52
95"BLD",7407,"KRN",8994,0)
968994
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)
138DATETIME
139"DATA",170,1,1)
140//ContinuityOfCareRecord/DateTime/ExactDateTime
141"DATA",170,1,4)
142^DT
143"DATA",170,1,7)
144N^HEADER^^1
145"DATA",170,2,0)
146ACTORPATIENT
147"DATA",170,2,1)
148//ContinuityOfCareRecord/Patient/ActorID
149"DATA",170,2,4)
150^ID
151"DATA",170,2,7)
152N^ACTORS^^6
153"DATA",170,3,0)
154ACTORFROM
155"DATA",170,3,4)
156^ID
157"DATA",170,3,7)
158N^ACTORS^^6
159"DATA",170,4,0)
160ACTORFROM2
161"DATA",170,4,4)
162^ID
163"DATA",170,4,7)
164N^ACTORS^^6
165"DATA",170,5,0)
166ACTORTO
167"DATA",170,5,1)
168//ContinuityOfCareRecord/To/ActorLink/ActorID
169"DATA",170,5,4)
170^ID
171"DATA",170,5,7)
172N^ACTORS^^6
173"DATA",170,6,0)
174ACTORTOTEXT
175"DATA",170,6,1)
176//ContinuityOfCareRecord/To/ActorLink/ActorRole/Text
177"DATA",170,6,4)
178^V
179"DATA",170,6,7)
180N^ACTORS^^6
181"DATA",170,7,0)
182PURPOSEDESCRIPTION
183"DATA",170,7,1)
184//ContinuityOfCareRecord/Purpose/Description/Text
185"DATA",170,7,4)
186^V
187"DATA",170,7,7)
188N^HEADER^^1
189"DATA",170,8,0)
190PROBLEMOBJECTID
191"DATA",170,8,1)
192//ContinuityOfCareRecord/Body/Problems/Problem/CCRDataObjectID
193"DATA",170,8,4)
194^ID
195"DATA",170,8,7)
196N^PROBLEMS^PROBLEMS^5
197"DATA",170,9,0)
198PROBLEMDESCRIPTION
199"DATA",170,9,1)
200//ContinuityOfCareRecord/Body/Problems/Problem/Description/Text
201"DATA",170,9,4)
202^V
203"DATA",170,9,7)
204N^PROBLEMS^^5
205"DATA",170,10,0)
206PROBLEMCODEVALUE
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)
214ICD
215"DATA",170,10,6,1,1,0)
216^^3^3^3081123^
217"DATA",170,10,6,1,1,1,0)
218The ICD9 code for the problem is retrieved from the patient's record by a
219"DATA",170,10,6,1,1,2,0)
220call 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)
224N^PROBLEMS^^5
225"DATA",170,11,0)
226PROBLEMCODINGVERSION
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)
234ICD
235"DATA",170,11,6,1,1,0)
236^170.81^5^5^3081123^^
237"DATA",170,11,6,1,1,1,0)
238The ICD9 codes for problems are retrieved from the patient record by
239"DATA",170,11,6,1,1,2,0)
240using the remote procedure call LIST^ORQQPL3. The value is in the 4th
241"DATA",170,11,6,1,1,3,0)
242piece 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)
248N^PROBLEMS^^5
249"DATA",170,12,0)
250PROBLEMSOURCEACTORID
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)
256N^PROBLEMS^^5
257"DATA",170,13,0)
258FAMILYHISTORYOBJECTID
259"DATA",170,13,1)
260//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/CCRDataObjectID
261"DATA",170,13,4)
262^ID
263"DATA",170,13,7)
264X^FAM^^12
265"DATA",170,14,0)
266FAMILYHISTORYACTORID
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)
272X^FAM^^12
273"DATA",170,15,0)
274FAMILYMEMBERACTORID
275"DATA",170,15,1)
276//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/ActorID
277"DATA",170,15,4)
278^ID
279"DATA",170,15,7)
280X^FAM^^12
281"DATA",170,16,0)
282FAMILYMEMBERACTORROLETEXT
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)
288X^FAM^^12
289"DATA",170,17,0)
290FAMILYMEMBERSOURCACTORID
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)
296X^FAM^^12
297"DATA",170,18,0)
298FAMILYMEMBERPROBLEMDESCRIPTION
299"DATA",170,18,1)
300//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Text
301"DATA",170,18,4)
302^
303"DATA",170,18,7)
304X^FAM^^12
305"DATA",170,19,0)
306FAMILYMEMBERPROBLEMCODE
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)
312X^FAM^^12
313"DATA",170,20,0)
314FAMILYMEMBERCODESYSTEM
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)
320X^FAM^^12
321"DATA",170,21,0)
322FAMILYMEMBERCODEVERSION
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)
328X^FAM^^12
329"DATA",170,22,0)
330FAMILYMEMBERPROBLEMSOURCEID
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)
336X^FAM^^12
337"DATA",170,23,0)
338SOCIALHISTORYOBJECTID
339"DATA",170,23,4)
340^ID
341"DATA",170,23,7)
342X^SOC^^13
343"DATA",170,24,0)
344SOCIALHISTORYTYPETEXT
345"DATA",170,24,4)
346^
347"DATA",170,24,7)
348X^SOC^^13
349"DATA",170,25,0)
350SOCIALHISTORYDESCRIPTIONTEXT
351"DATA",170,25,4)
352^
353"DATA",170,25,7)
354X^SOC^^13
355"DATA",170,26,0)
356SOCIALHISTORYSOURCACTORID
357"DATA",170,26,4)
358^ID
359"DATA",170,26,7)
360X^SOC^^13
361"DATA",170,27,0)
362ALERTOBJECTID
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)
370Unique (in the document) ObjectID for the Alert
371"DATA",170,27,7)
372N^ALERTS^ALERTS^4
373"DATA",170,28,0)
374ALERTDESCRIPTIONTEXT
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)
382An instance of CodedDescriptionType that
383"DATA",170,28,5,2,0)
384supports a free text string, a structured text
385"DATA",170,28,5,3,0)
386string or strings, or a structured and coded
387"DATA",170,28,5,4,0)
388text string or strings. It is recommended
389"DATA",170,28,5,5,0)
390that, when possible, all instances of <Alert>
391"DATA",170,28,5,6,0)
392be coded with SNOMED CT
393"DATA",170,28,7)
394I^ALERTS^^4
395"DATA",170,29,0)
396ALERTCODEVALUE^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)
404Code Value for the Alert Reaction
405"DATA",170,29,7)
406N^ALERTS^^4
407"DATA",170,30,0)
408ALERTCODESYSTEM^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)
416Coding System for the Alert Reaction Code
417"DATA",170,30,6,0)
418^170.08S^1^1
419"DATA",170,30,6,1,0)
420SNO
421"DATA",170,30,6,1,1,0)
422^^17^17^3081121^
423"DATA",170,30,6,1,1,1,0)
424The Alerts Reaction SNOMED CT code
425"DATA",170,30,6,1,1,2,0)
426is assigned by the extraction as one of two
427"DATA",170,30,6,1,1,3,0)
428values 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)
432The codes are
433"DATA",170,30,6,1,1,6,0)
434
435"DATA",170,30,6,1,1,7,0)
436282100009 for Adverse Reaction to a Substance
437"DATA",170,30,6,1,1,8,0)
438418634005 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)
454In a future patch, it is planned to retrieve these codes from a C0CCODES
455"DATA",170,30,6,1,1,17,0)
456file for easier maintenance.
457"DATA",170,30,7)
458N^ALERTS^^4
459"DATA",170,31,0)
460ALERTSTATUSTEXT
461"DATA",170,31,1)
462//ContinuityOfCareRecord/Body/Alerts/Alert/Status/Text
463"DATA",170,31,4)
464^
465"DATA",170,31,7)
466N^ALERTS^^4
467"DATA",170,32,0)
468ALERTSOURCEID
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)
476Source Actor for the Alert
477"DATA",170,32,7)
478N^ALERTS^^4
479"DATA",170,33,0)
480ALERTAGENTPRODUCTOBJECTID
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)
488Object ID for the Alert Agent Product
489"DATA",170,33,7)
490N^ALERTS^^4
491"DATA",170,34,0)
492ALERTAGENTPRODUCTSOURCEID
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)
500Source Object ID for the Alert Agent Product
501"DATA",170,34,7)
502N^ALERTS^^4
503"DATA",170,35,0)
504ALERTAGENTPRODUCTNAMETEXT^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)
510N^ALERTS^^4
511"DATA",170,36,0)
512ALERTAGENTPRODUCTCODEVALUE^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)
518N^ALERTS^ALERTSCODE^4
519"DATA",170,37,0)
520ALERTAGENTPRODUCTCODESYSTEM
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)
528VUI
529"DATA",170,37,6,1,1,0)
530^^22^22^3081121^
531"DATA",170,37,6,1,1,1,0)
532The VUID code for Alerts Agent Product (Reactant) is
533"DATA",170,37,6,1,1,2,0)
534retrieved from the PATIENT ALLERGY file where
535"DATA",170,37,6,1,1,3,0)
536it is found using a variable pointer to several files which have a VUID
537"DATA",170,37,6,1,1,4,0)
538index.
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)
554ALLERGY of the PATIENT ALLERGY file]
555"DATA",170,37,6,1,1,13,0)
556This field is a variable pointer to help relate this allergy to some
557"DATA",170,37,6,1,1,14,0)
558record in one of the files to which this field points. The files that are
559"DATA",170,37,6,1,1,15,0)
560pointed to are the GMR Allergies (120.82) file, National Drug (50.6) file,
561"DATA",170,37,6,1,1,16,0)
562Drug (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)
568In a future patch, the resulting VUID code will be used to retrieve a
569"DATA",170,37,6,1,1,20,0)
570RXNORM code from the C0CCODES file. The RXNORM mapping
571"DATA",170,37,6,1,1,21,0)
572has been done by the
573"DATA",170,37,6,1,1,22,0)
574VA for 10,449 VUID code values.
575"DATA",170,37,7)
576N^ALERTS^^4
577"DATA",170,38,0)
578ALERTREACTIOINDESCRIPTIONTEXT^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)
586Alert Reaction Description Text - derived from the code
587"DATA",170,38,7)
588I^ALERTS^^4
589"DATA",170,39,0)
590ALERTREACTIONCODEVALUE
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)
596N^ALERTS^^4
597"DATA",170,40,0)
598ALERTREACTIONCODESYSTEM
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)
604N^ALERTS^^4
605"DATA",170,41,0)
606MEDOBJECTID
607"DATA",170,41,1)
608//ContinuityOfCareRecord/Body/Medications/Medication/CCRDataObjectID
609"DATA",170,41,4)
610^ID
611"DATA",170,41,7)
612N^MEDS^MEDS^7
613"DATA",170,42,0)
614MEDISSUEDATETXT
615"DATA",170,42,4)
616^
617"DATA",170,42,7)
618N
619"DATA",170,43,0)
620MEDISSUEDATE
621"DATA",170,43,4)
622^
623"DATA",170,43,7)
624N
625"DATA",170,44,0)
626MEDLASTFILLDATETXT
627"DATA",170,44,4)
628^
629"DATA",170,44,7)
630N
631"DATA",170,45,0)
632MEDLASTFILLDATE
633"DATA",170,45,4)
634^
635"DATA",170,45,7)
636N
637"DATA",170,46,0)
638MEDRXNOTXT
639"DATA",170,46,1)
640//ContinuityOfCareRecord/Body/Medications/Medication/IDs/Type/Text
641"DATA",170,46,4)
642^
643"DATA",170,46,7)
644N^MEDS^^7
645"DATA",170,47,0)
646MEDRXNO
647"DATA",170,47,1)
648//ContinuityOfCareRecord/Body/Medications/Medication/IDs/ID
649"DATA",170,47,4)
650^
651"DATA",170,47,7)
652N^MEDS^^7
653"DATA",170,48,0)
654MEDTYPETEXT
655"DATA",170,48,1)
656//ContinuityOfCareRecord/Body/Medications/Medication/Type/Text
657"DATA",170,48,4)
658^
659"DATA",170,48,7)
660N^MEDS^^7
661"DATA",170,49,0)
662MEDDETAILUNADORNED
663"DATA",170,49,1)
664//ContinuityOfCareRecord/Body/Medications/Medication/Description/Text
665"DATA",170,49,4)
666^
667"DATA",170,49,7)
668N^MEDS^^7
669"DATA",170,50,0)
670MEDSTATUSTEXT
671"DATA",170,50,1)
672//ContinuityOfCareRecord/Body/Medications/Medication/Status/Text
673"DATA",170,50,4)
674^
675"DATA",170,50,7)
676N^MEDS^^7
677"DATA",170,51,0)
678MEDSOURCEACTORID
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)
684N^MEDS^^7
685"DATA",170,52,0)
686MEDPRODUCTNAMETEXT
687"DATA",170,52,1)
688//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Text
689"DATA",170,52,4)
690^
691"DATA",170,52,7)
692N^MEDS^^7
693"DATA",170,53,0)
694MEDPRODUCTNAMECODEVALUE
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)
700N^MEDS^MEDSCODE^7
701"DATA",170,54,0)
702MEDPRODUCTNAMECODINGINGSYSTEM
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)
708N^MEDS^^7
709"DATA",170,55,0)
710MEDPRODUCTNAMECODEVERSION
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)
716N^MEDS^^7
717"DATA",170,56,0)
718MEDBRANDNAMETEXT
719"DATA",170,56,1)
720//ContinuityOfCareRecord/Body/Medications/Medication/Product/BrandName/Text
721"DATA",170,56,4)
722^
723"DATA",170,56,7)
724N^MEDS^^7
725"DATA",170,57,0)
726MEDSTRENGTHVALUE
727"DATA",170,57,1)
728//ContinuityOfCareRecord/Body/Medications/Medication/Product/Strength/Value
729"DATA",170,57,4)
730^
731"DATA",170,57,7)
732N^MEDS^^7
733"DATA",170,58,0)
734MEDSTRENGTHUNIT
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)
740N^MEDS^^7
741"DATA",170,59,0)
742MEDFORMTEXT
743"DATA",170,59,1)
744//ContinuityOfCareRecord/Body/Medications/Medication/Product/Form/Text
745"DATA",170,59,4)
746^
747"DATA",170,59,7)
748N^MEDS^^7
749"DATA",170,60,0)
750MEDCONCVALUE
751"DATA",170,60,1)
752//ContinuityOfCareRecord/Body/Medications/Medication/Product/Concentration/Value
753"DATA",170,60,4)
754^
755"DATA",170,60,7)
756N^MEDS^^7
757"DATA",170,61,0)
758MEDCONCUNIT
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)
764N^MEDS^^7
765"DATA",170,62,0)
766MEDSIZETEXT
767"DATA",170,62,1)
768//ContinuityOfCareRecord/Body/Medications/Medication/Product/Size/Text
769"DATA",170,62,4)
770^
771"DATA",170,62,7)
772N^MEDS^^7
773"DATA",170,63,0)
774MEDQUANTITYVALUE
775"DATA",170,63,1)
776//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Value
777"DATA",170,63,4)
778^
779"DATA",170,63,7)
780N^MEDS^^7
781"DATA",170,64,0)
782MEDQUANTITYUNIT
783"DATA",170,64,1)
784//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Units/Unit
785"DATA",170,64,4)
786^
787"DATA",170,64,7)
788N^MEDS^^7
789"DATA",170,65,0)
790MEDDIRECTIONDESCRIPTIONTEXT
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)
796N^DIR^^8
797"DATA",170,66,0)
798MEDDOSEINDICATOR
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)
804N^DIR^^8
805"DATA",170,67,0)
806MEDDELIVERYMETHOD
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)
812N^DIR^^8
813"DATA",170,68,0)
814MEDDOSEVALUE
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)
820N^DIR^^8
821"DATA",170,69,0)
822MEDDOSEUNIT
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)
828N^DIR^^8
829"DATA",170,70,0)
830MEDRATEVALUE
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)
836N^DIR^^8
837"DATA",170,71,0)
838MEDRATEUNIT
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)
844N^DIR^^8
845"DATA",170,72,0)
846MEDVEHICLETEXT
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)
852N^DIR^^8
853"DATA",170,73,0)
854MEDDIRECTIONROUTETEXT
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)
860N^DIR^^8
861"DATA",170,74,0)
862MEDFREQUENCYVALUE
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)
868N^DIR^^8
869"DATA",170,75,0)
870MEDINTERVALVALUE
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)
876N^DIR^^8
877"DATA",170,76,0)
878MEDINTERVALUNIT
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)
884N^DIR^^8
885"DATA",170,77,0)
886MEDDURATIONVALUE
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)
892N^DIR^^8
893"DATA",170,78,0)
894MEDDURATIONUNIT
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)
900N^DIR^^8
901"DATA",170,79,0)
902MEDPRNFLAG
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)
908N^DIR^^8
909"DATA",170,80,0)
910MEDPROBLEMOBJECTID
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)
916N^DIR^^8
917"DATA",170,81,0)
918MEDPROBLEMTYPETXT
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)
924N^DIR^^8
925"DATA",170,82,0)
926MEDPROBLEMDESCRIPTION
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)
932N^DIR^^8
933"DATA",170,83,0)
934MEDPROBLEMCODEVALUE
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)
940N^DIR^^8
941"DATA",170,84,0)
942MEDPROBLEMCODINGSYSTEM
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)
948N^DIR^^8
949"DATA",170,85,0)
950MEDPROBLEMCODINGVERSION
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)
956N^DIR^^8
957"DATA",170,86,0)
958MEDPROBLEMSOURCEACTORID
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)
964N^DIR^^8
965"DATA",170,87,0)
966MEDSTOPINDICATOR
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)
972N^DIR^^8
973"DATA",170,88,0)
974MEDDIRSEQ
975"DATA",170,88,1)
976//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DirectionSequenceModifier
977"DATA",170,88,4)
978^
979"DATA",170,88,7)
980N^DIR^^8
981"DATA",170,89,0)
982MEDMULDIRMOD
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)
988N^DIR^^8
989"DATA",170,90,0)
990MEDPTINSTRUCTIONS
991"DATA",170,90,1)
992//ContinuityOfCareRecord/Body/Medications/Medication/PatientInstructions/Instruction
993"DATA",170,90,4)
994^
995"DATA",170,90,7)
996N^MEDS^^7
997"DATA",170,91,0)
998MEDFULLFILLMENTINSTRUCTIONS
999"DATA",170,91,1)
1000//ContinuityOfCareRecord/Body/Medications/Medication/FullfillmentInstructions/Text
1001"DATA",170,91,4)
1002^
1003"DATA",170,91,7)
1004N^MEDS^^7
1005"DATA",170,92,0)
1006MEDRFNO
1007"DATA",170,92,1)
1008//ContinuityOfCareRecord/Body/Medications/Medication/Refills/Refill/Number
1009"DATA",170,92,4)
1010^
1011"DATA",170,92,7)
1012N^MEDS^^7
1013"DATA",170,93,0)
1014VITALSIGNSDATAOBJECTID
1015"DATA",170,93,1)
1016//ContinuityOfCareRecord/Body/VitalSigns/Result/CCRDataObjectID
1017"DATA",170,93,4)
1018^ID
1019"DATA",170,93,7)
1020N^VITALS^VITALS^11
1021"DATA",170,94,0)
1022VITALSIGNSDATETIMETYPETEXT
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)
1028N^VITALS^^11
1029"DATA",170,95,0)
1030VITALSIGNSEXACTDATETIME
1031"DATA",170,95,1)
1032//ContinuityOfCareRecord/Body/VitalSigns/Result/DateTime/ExactDateTime
1033"DATA",170,95,4)
1034^DT
1035"DATA",170,95,7)
1036N^VITALS^^11
1037"DATA",170,96,0)
1038VITALSIGNSSOURCEACTORID
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)
1044N^VITALS^^11
1045"DATA",170,97,0)
1046VITALSIGNSTESTOBJECTID
1047"DATA",170,97,1)
1048//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/CCRDataObjectID
1049"DATA",170,97,4)
1050^ID
1051"DATA",170,97,7)
1052N^VITALS^^11
1053"DATA",170,98,0)
1054VITALSIGNSTESTTYPETEXT
1055"DATA",170,98,1)
1056//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Type/Text
1057"DATA",170,98,4)
1058^
1059"DATA",170,98,7)
1060N^VITALS^^11
1061"DATA",170,99,0)
1062VITALSIGNSDESCRIPTIONTEXT
1063"DATA",170,99,1)
1064//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Text
1065"DATA",170,99,4)
1066^
1067"DATA",170,99,7)
1068N^VITALS^^11
1069"DATA",170,100,0)
1070VITALSIGNSDESCRIPTIONCODEVALUE
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)
1078SNO
1079"DATA",170,100,6,1,1,0)
1080^^26^26^3081121^
1081"DATA",170,100,6,1,1,1,0)
1082The SNOMED CT codes for Vitals are assigned by the extraction according
1083"DATA",170,100,6,1,1,2,0)
1084to 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)
1130It is planned that these codes be retrieved from a C0CCODES FILE in a
1131"DATA",170,100,6,1,1,26,0)
1132future patch for easier maintenance.
1133"DATA",170,100,7)
1134N^VITALS^^11
1135"DATA",170,101,0)
1136VITALSIGNSDESCRIPTIONCODINGSYSTEM
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)
1144SNO
1145"DATA",170,101,6,1,1,0)
1146^^26^26^3081121^
1147"DATA",170,101,6,1,1,1,0)
1148The SNOMED CT codes for Vitals are assigned by the extraction according
1149"DATA",170,101,6,1,1,2,0)
1150to 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)
1196It is planned that these codes be retrieved from a C0CCODES FILE in a
1197"DATA",170,101,6,1,1,26,0)
1198future patch for easier maintenance.
1199"DATA",170,101,7)
1200N^VITALS
1201"DATA",170,102,0)
1202VITALSIGNSCODEVERSION
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)
1210SNO
1211"DATA",170,102,6,1,1,0)
1212^^26^26^3081121^
1213"DATA",170,102,6,1,1,1,0)
1214The SNOMED CT codes for Vitals are assigned by the extraction according
1215"DATA",170,102,6,1,1,2,0)
1216to 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)
1262It is planned that these codes be retrieved from a C0CCODES FILE in a
1263"DATA",170,102,6,1,1,26,0)
1264future patch for easier maintenance.
1265"DATA",170,102,7)
1266N^VITALS^^11
1267"DATA",170,103,0)
1268VITALSIGNSTESTSOURCEACTORID
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)
1274N^VITALS^^11
1275"DATA",170,104,0)
1276VITALSIGNSTESTRESULTVALUE
1277"DATA",170,104,1)
1278//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/TestResult/Value
1279"DATA",170,104,4)
1280^
1281"DATA",170,104,7)
1282N^VITALS^^11
1283"DATA",170,105,0)
1284VITALSIGNSTESTRESULTUNIT
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)
1290N^VITALS^^11
1291"DATA",170,106,0)
1292RESULTOBJECTID
1293"DATA",170,106,1)
1294//ContinuityOfCareRecord/Body/Results/Result/CCRDataObjectID
1295"DATA",170,106,4)
1296^ID
1297"DATA",170,106,7)
1298N^LABS^RESULTS^14
1299"DATA",170,107,0)
1300RESULTASSESSMENTDATETIME
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)
1306The 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)
1312Date/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)
1318The 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)
1324Date/Time^RESULTASSESSMENTDATETIME"
1325"DATA",170,107,7)
1326I^LABS^^14
1327"DATA",170,108,0)
1328RESULTDESCRIPTIONTEXT
1329"DATA",170,108,1)
1330//ContinuityOfCareRecord/Body/Results/Result/Description/Text
1331"DATA",170,108,4)
1332^
1333"DATA",170,108,7)
1334N^LABS^^14
1335"DATA",170,109,0)
1336RESULTCODE
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)
1342The 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)
1350LOINC^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)
1356LN
1357"DATA",170,109,6,1,1,0)
1358^170.81^4^4^3081122^^^
1359"DATA",170,109,6,1,1,1,0)
1360The 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)
1366LOINC^RESULTCODE"
1367"DATA",170,109,7)
1368I^LABS^^14
1369"DATA",170,110,0)
1370RESULTCODINGSYSTEM
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)
1376N^LABS^^14
1377"DATA",170,111,0)
1378RESULTSTATUS
1379"DATA",170,111,1)
1380//ContinuityOfCareRecord/Body/Results/Result/Status/Text
1381"DATA",170,111,4)
1382^
1383"DATA",170,111,7)
1384N^LABS^^14
1385"DATA",170,112,0)
1386RESULTSOURCEACTORID
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)
1392N^LABS^^14
1393"DATA",170,113,0)
1394RESULTTESTOBJECTID
1395"DATA",170,113,1)
1396//ContinuityOfCareRecord/Body/Results/Result/Test/CCRDataObjectID
1397"DATA",170,113,4)
1398^ID
1399"DATA",170,113,7)
1400N^TEST^^10
1401"DATA",170,114,0)
1402RESULTTESTDATETIME
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)
1408N^TEST^^10
1409"DATA",170,115,0)
1410RESULTTESTDESCRIPTIONTEXT
1411"DATA",170,115,1)
1412//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Text
1413"DATA",170,115,4)
1414^
1415"DATA",170,115,7)
1416N^TEST^^10
1417"DATA",170,116,0)
1418RESULTTESTCODEVALUE
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)
1424N^TEST^^10
1425"DATA",170,117,0)
1426RESULTTESTCODINGSYSTEM
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)
1432N^TEST^RESULTSLN^10
1433"DATA",170,118,0)
1434RESULTTESTSTATUSTEXT
1435"DATA",170,118,1)
1436//ContinuityOfCareRecord/Body/Results/Result/Test/Status/Text
1437"DATA",170,118,4)
1438^
1439"DATA",170,118,7)
1440N^TEST^^10
1441"DATA",170,119,0)
1442RESULTTESTSOURCEACTORID
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)
1448N^TEST^^10
1449"DATA",170,120,0)
1450RESULTTESTVALUE
1451"DATA",170,120,1)
1452//ContinuityOfCareRecord/Body/Results/Result/Test/TestResult/Value
1453"DATA",170,120,4)
1454^
1455"DATA",170,120,7)
1456N^TEST^^10
1457"DATA",170,121,0)
1458RESULTTESTUNITS
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)
1464N^TEST^^10
1465"DATA",170,122,0)
1466RESULTTESTNORMALDESCRIPTIONTEXT
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)
1472N^TEST
1473"DATA",170,123,0)
1474RESULTTESTNORMALSOURCEACTORID
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)
1480N^TEST^^10
1481"DATA",170,124,0)
1482RESULTTESTFLAG
1483"DATA",170,124,1)
1484//ContinuityOfCareRecord/Body/Results/Result/Test/Flag/Text
1485"DATA",170,124,4)
1486^
1487"DATA",170,124,7)
1488N^TEST^^10
1489"DATA",170,125,0)
1490ACTORDATEOFBIRTH
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)
1496N^ACTORS^^6
1497"DATA",170,126,0)
1498ACTORGENDER
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)
1504N^ACTORS^^6
1505"DATA",170,127,0)
1506ACTORSSNTEXT
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)
1512N^ACTORS^^6
1513"DATA",170,128,0)
1514ACTORSSN
1515"DATA",170,128,1)
1516//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/ID
1517"DATA",170,128,4)
1518^
1519"DATA",170,128,7)
1520N^ACTORS^^6
1521"DATA",170,129,0)
1522ACTORSSNSOURCEID
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)
1528N^ACTORS^^6
1529"DATA",170,130,0)
1530ACTORADDRESSLINE2
1531"DATA",170,130,1)
1532//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/Line2
1533"DATA",170,130,4)
1534^
1535"DATA",170,130,7)
1536N^ACTORS^^6
1537"DATA",170,131,0)
1538ACTORADDRESSZIPCODE
1539"DATA",170,131,1)
1540//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/PostalCode
1541"DATA",170,131,4)
1542^
1543"DATA",170,131,7)
1544N^ACTORS^^6
1545"DATA",170,132,0)
1546ACTORRESTEL
1547"DATA",170,132,4)
1548^
1549"DATA",170,132,7)
1550N^ACTORS^^6
1551"DATA",170,133,0)
1552ACTORRESTELTEXT
1553"DATA",170,133,4)
1554^
1555"DATA",170,133,7)
1556N^ACTORS^^6
1557"DATA",170,134,0)
1558ACTORWORKTEL
1559"DATA",170,134,4)
1560^
1561"DATA",170,134,7)
1562N^ACTORS^^6
1563"DATA",170,135,0)
1564ACTORWORKTELTEXT
1565"DATA",170,135,4)
1566^
1567"DATA",170,135,7)
1568N^ACTORS^^6
1569"DATA",170,136,0)
1570ACTORCELLTEL
1571"DATA",170,136,4)
1572^
1573"DATA",170,136,7)
1574N^ACTORS^^6
1575"DATA",170,137,0)
1576ACTORCELLTELTEXT
1577"DATA",170,137,4)
1578^
1579"DATA",170,137,7)
1580N^ACTORS^^6
1581"DATA",170,138,0)
1582ACTORADDRESSSOURCEID
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)
1588N^ACTORS^^6
1589"DATA",170,139,0)
1590ACTORINFOSYSNAME
1591"DATA",170,139,1)
1592//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Name
1593"DATA",170,139,4)
1594^
1595"DATA",170,139,7)
1596N^ACTORS^^6
1597"DATA",170,140,0)
1598ACTORINFOSYSVER
1599"DATA",170,140,1)
1600//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Version
1601"DATA",170,140,4)
1602^
1603"DATA",170,140,7)
1604N^ACTORS^^6
1605"DATA",170,141,0)
1606ACTORINFOSYSSOURCEID
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)
1612N^ACTORS^^6
1613"DATA",170,142,0)
1614ACTORDISPLAYNAME
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)
1620N^ACTORS^^6
1621"DATA",170,143,0)
1622ACTORRELATION
1623"DATA",170,143,1)
1624//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Relation/Text
1625"DATA",170,143,4)
1626^
1627"DATA",170,143,7)
1628N^ACTORS^^6
1629"DATA",170,144,0)
1630ACTORRELATIONSOURCEID
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)
1636N^ACTORS^^6
1637"DATA",170,145,0)
1638ACTORGIVENNAME
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)
1644N^ACTORS^^6
1645"DATA",170,146,0)
1646ACTORMIDDLENAME
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)
1652N^ACTORS^^6
1653"DATA",170,147,0)
1654ACTORFAMILYNAME
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)
1660N^ACTORS^^6
1661"DATA",170,148,0)
1662ACTORTITLE
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)
1668N^ACTORS^^6
1669"DATA",170,149,0)
1670IDTYPE
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)
1676N
1677"DATA",170,150,0)
1678ID
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)
1684N
1685"DATA",170,151,0)
1686IDDESC
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)
1692N
1693"DATA",170,152,0)
1694ACTORSPECIALITY
1695"DATA",170,152,1)
1696//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Specialty/Text
1697"DATA",170,152,4)
1698^
1699"DATA",170,152,7)
1700N^ACTORS^^6
1701"DATA",170,153,0)
1702ACTORADDRESSTYPE
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)
1708N^ACTORS^^6
1709"DATA",170,154,0)
1710ACTORADDRESSLINE1
1711"DATA",170,154,1)
1712//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/Line1
1713"DATA",170,154,4)
1714^
1715"DATA",170,154,7)
1716N^ACTORS^^6
1717"DATA",170,155,0)
1718ACTORADDRESSCITY
1719"DATA",170,155,1)
1720//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/City
1721"DATA",170,155,4)
1722^
1723"DATA",170,155,7)
1724N^ACTORS^^6
1725"DATA",170,156,0)
1726ACTORADDRESSSTATE
1727"DATA",170,156,1)
1728//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/State
1729"DATA",170,156,4)
1730^
1731"DATA",170,156,7)
1732N^ACTORS^^6
1733"DATA",170,157,0)
1734ACTORPOSTALCODE
1735"DATA",170,157,1)
1736//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/PostalCode
1737"DATA",170,157,4)
1738^
1739"DATA",170,157,7)
1740N^ACTORS^^6
1741"DATA",170,158,0)
1742ACTORTELEPHONE
1743"DATA",170,158,1)
1744//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Telephone/Value
1745"DATA",170,158,4)
1746^
1747"DATA",170,158,7)
1748N^ACTORS^^6
1749"DATA",170,159,0)
1750ACTORTELEPHONETYPE
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)
1756N^ACTORS^^6
1757"DATA",170,160,0)
1758ACTOREMAIL
1759"DATA",170,160,1)
1760//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Email/Value
1761"DATA",170,160,4)
1762^
1763"DATA",170,160,7)
1764N^ACTORS^^6
1765"DATA",170,161,0)
1766ACTOROBJECTID
1767"DATA",170,161,1)
1768//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/ActorObjectID
1769"DATA",170,161,4)
1770^ID
1771"DATA",170,161,7)
1772N^ACTORS^^6
1773"DATA",170,162,0)
1774ORGANIZATIONNAME
1775"DATA",170,162,1)
1776//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/Organization/Name
1777"DATA",170,162,4)
1778^
1779"DATA",170,162,7)
1780N
1781"DATA",170,163,0)
1782ACTORSOURCEID
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)
1788N^ACTORS^^6
1789"DATA",170,164,0)
1790VITALSIGNSDESCCODEVALUE
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)
1798SNO
1799"DATA",170,164,6,1,1,0)
1800^^26^26^3081121^
1801"DATA",170,164,6,1,1,1,0)
1802The SNOMED CT codes for Vitals are assigned by the extraction according
1803"DATA",170,164,6,1,1,2,0)
1804to 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)
1850It is planned that these codes be retrieved from a C0CCODES FILE in a
1851"DATA",170,164,6,1,1,26,0)
1852future patch for easier maintenance.
1853"DATA",170,164,7)
1854N^VITALS^^11
1855"DATA",170,165,0)
1856VITALSIGNSDESCCODINGSYSTEM
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)
1864SNO
1865"DATA",170,165,6,1,1,0)
1866^^26^26^3081121^
1867"DATA",170,165,6,1,1,1,0)
1868The SNOMED CT codes for Vitals are assigned by the extraction according
1869"DATA",170,165,6,1,1,2,0)
1870to 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)
1916It is planned that these codes be retrieved from a C0CCODES FILE in a
1917"DATA",170,165,6,1,1,26,0)
1918future patch for easier maintenance.
1919"DATA",170,165,7)
1920I^VITALS^^11
1921"DATA",170,166,0)
1922RESULTTESTNORMALDESCTEXT
1923"DATA",170,166,1)
1924//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Description/Text
1925"DATA",170,166,7)
1926N^TEST^^10
1927"DATA",170,167,0)
1928PROBLEMCONDITION
1929"DATA",170,167,7)
1930^^^5
1931"DATA",170,168,0)
1932PROBLEMDATEMOD
1933"DATA",170,168,7)
1934^^^5
1935"DATA",170,169,0)
1936PROBLEMDATEOFONSET
1937"DATA",170,169,7)
1938^^^5
1939"DATA",170,170,0)
1940PROBLEMDTREC
1941"DATA",170,170,7)
1942^^^5
1943"DATA",170,171,0)
1944PROBLEMHASCMT
1945"DATA",170,171,7)
1946^^^5
1947"DATA",170,172,0)
1948PROBLEMIEN
1949"DATA",170,172,7)
1950^^^5
1951"DATA",170,173,0)
1952PROBLEMINACT
1953"DATA",170,173,7)
1954^^^5
1955"DATA",170,174,0)
1956PROBLEMLOC
1957"DATA",170,174,7)
1958^^^5
1959"DATA",170,175,0)
1960PROBLEMLOCTYPE
1961"DATA",170,175,7)
1962^^^5
1963"DATA",170,176,0)
1964PROBLEMPROVIDER
1965"DATA",170,176,7)
1966^^^5
1967"DATA",170,177,0)
1968PROBLEMSC
1969"DATA",170,177,7)
1970^^^5
1971"DATA",170,178,0)
1972PROBLEMSE
1973"DATA",170,178,7)
1974^^^5
1975"DATA",170,179,0)
1976PROBLEMSERVICE
1977"DATA",170,179,7)
1978^^^5
1979"DATA",170,180,0)
1980PROBLEMSTATUS
1981"DATA",170,180,7)
1982^^^5
1983"DATA",170,181,0)
1984ALERTCODESYSTEMVERSION
1985"DATA",170,181,7)
1986^^^4
1987"DATA",170,182,0)
1988VITALSIGNSDESCODEVALUE
1989"DATA",170,182,7)
1990^^^11
1991"DATA",170,183,0)
1992IMMUNEDATETIME
1993"DATA",170,183,7)
1994^^^15
1995"DATA",170,184,0)
1996IMMUNEDATETIMETYPETEXT
1997"DATA",170,184,7)
1998^^^15
1999"DATA",170,185,0)
2000IMMUNEOBJECTID
2001"DATA",170,185,7)
2002^^^15
2003"DATA",170,186,0)
2004IMMUNEPRODUCTCODE
2005"DATA",170,186,7)
2006^^^15
2007"DATA",170,187,0)
2008IMMUNEPRODUCTCODESYSTEM
2009"DATA",170,187,7)
2010^^^15
2011"DATA",170,188,0)
2012IMMUNEPRODUCTNAMETEXT
2013"DATA",170,188,7)
2014^^^15
2015"DATA",170,189,0)
2016IMMUNESOURCEACTORID
2017"DATA",170,189,7)
2018^^^15
2019"DATA",170,190,0)
2020C1
2021"DATA",170,190,7)
2022^^^10
2023"DATA",170,191,0)
2024C2
2025"DATA",170,191,7)
2026^^^10
2027"DATA",170,192,0)
2028C3
2029"DATA",170,192,7)
2030^^^10
2031"DATA",170,193,0)
2032C4
2033"DATA",170,193,7)
2034^^^10
2035"DATA",170,194,0)
2036C5
2037"DATA",170,194,7)
2038^^^10
2039"DATA",170,195,0)
2040C6
2041"DATA",170,195,7)
2042^^^10
2043"DATA",170,196,0)
2044ALERTDATETIME
2045"DATA",170,196,7)
2046^^^4
2047"DATA",170,197,0)
2048ALERTTYPE
2049"DATA",170,197,7)
2050^^^4
2051"DATA",170.101,1,0)
2052HEADER^2
2053"DATA",170.101,1,1,0)
2054^170.1012P^3^3
2055"DATA",170.101,1,1,1,0)
20563
2057"DATA",170.101,1,1,2,0)
20585
2059"DATA",170.101,1,1,3,0)
20607
2061"DATA",170.101,2,0)
2062ROOT
2063"DATA",170.101,2,2,0)
2064^170.1013P^1^1
2065"DATA",170.101,2,2,1,0)
20661
2067"DATA",170.101,3,0)
2068BODY^2
2069"DATA",170.101,4,0)
2070ALERTS^3
2071"DATA",170.101,4,1,0)
2072^170.1012P^3^3
2073"DATA",170.101,4,1,1,0)
207437
2075"DATA",170.101,4,1,2,0)
207635
2077"DATA",170.101,4,1,3,0)
207836
2079"DATA",170.101,5,0)
2080PROBLEMS^3
2081"DATA",170.101,5,1,0)
2082^170.1012P^4^4
2083"DATA",170.101,5,1,1,0)
208410
2085"DATA",170.101,5,1,2,0)
208611
2087"DATA",170.101,5,1,3,0)
20889
2089"DATA",170.101,5,1,4,0)
20908
2091"DATA",170.101,6,0)
2092ACTORS^2
2093"DATA",170.101,6,1,0)
2094^170.1012P^1^1
2095"DATA",170.101,6,1,1,0)
2096155
2097"DATA",170.101,7,0)
2098MEDS^3
2099"DATA",170.101,7,1,0)
2100^170.1012P^2^2
2101"DATA",170.101,7,1,1,0)
210256
2103"DATA",170.101,7,1,2,0)
210461
2105"DATA",170.101,7,2,0)
2106^170.1013P^1^1
2107"DATA",170.101,7,2,1,0)
21088
2109"DATA",170.101,8,0)
2110DIRECTIONS^7
2111"DATA",170.101,8,1,0)
2112^170.1012P^2^2
2113"DATA",170.101,8,1,1,0)
211465
2115"DATA",170.101,8,1,2,0)
211688
2117"DATA",170.101,9,0)
2118RESULTS^3
2119"DATA",170.101,9,1,0)
2120^170.1012P^2^2
2121"DATA",170.101,9,1,1,0)
2122109
2123"DATA",170.101,9,1,2,0)
2124110
2125"DATA",170.101,9,2,0)
2126^170.1013P^1^1
2127"DATA",170.101,9,2,1,0)
212810
2129"DATA",170.101,10,0)
2130TEST^14
2131"DATA",170.101,10,1,0)
2132^170.1012P^1^1
2133"DATA",170.101,10,1,1,0)
2134116
2135"DATA",170.101,11,0)
2136VITALS^3
2137"DATA",170.101,11,1,0)
2138^170.1012P^5^5
2139"DATA",170.101,11,1,1,0)
2140100
2141"DATA",170.101,11,1,2,0)
214299
2143"DATA",170.101,11,1,3,0)
2144102
2145"DATA",170.101,11,1,4,0)
214693
2147"DATA",170.101,11,1,5,0)
214894
2149"DATA",170.101,12,0)
2150FAM^3
2151"DATA",170.101,12,1,0)
2152^170.1012P^1^1
2153"DATA",170.101,12,1,1,0)
215414
2155"DATA",170.101,13,0)
2156SOC^3
2157"DATA",170.101,13,1,0)
2158^170.1012P^1^1
2159"DATA",170.101,13,1,1,0)
216025
2161"DATA",170.101,14,0)
2162LABS^3
2163"DATA",170.101,14,1,0)
2164^170.1012P^1^1
2165"DATA",170.101,14,1,1,0)
2166109
2167"DATA",170.101,14,2,0)
2168^170.1013P^1^1
2169"DATA",170.101,14,2,1,0)
217010
2171"DATA",170.101,15,0)
2172IMMUNE^3
2173"DATA",171.501,1,0)
217410^2^1^5^" 1"
2175"DATA",171.501,1,2)
2176TEST VALUE ONE
2177"DATA",171.501,2,0)
217810^2^1^5^" 2"
2179"DATA",171.501,2,2)
2180TEST VALUE TWO
2181"DATA",171.601,1,0)
21825^2^1^" 1"
2183"DATA",171.601,1,1,0)
2184^171.6011P^2^2
2185"DATA",171.601,1,1,1,0)
218610
2187"DATA",171.601,1,1,1,1)
2188FIRST PROBLEM CODE
2189"DATA",171.601,1,1,2,0)
21909
2191"DATA",171.601,1,1,2,1)
2192FIRST PROBLEM DESCRIPTION
2193"DATA",171.601,1,2)
21943090221^DOCTOR 1^^^^
2195"DATA",171.601,2,0)
21965^2^1^" 2"
2197"DATA",171.601,2,1,0)
2198^171.6011P^2^2
2199"DATA",171.601,2,1,1,0)
220010
2201"DATA",171.601,2,1,1,1)
2202SECOND PROBLEM CODE
2203"DATA",171.601,2,1,2,0)
22049
2205"DATA",171.601,2,1,2,1)
2206SECOND PROBLEM DESCRIPTION
2207"DATA",171.601,2,2)
22083090216^DOCTOR 2^^^^
2209"DATA",171.601,3,0)
22105^2^2^" 1"
2211"DATA",171.601,3,1,0)
2212^171.6011P^2^2
2213"DATA",171.601,3,1,1,0)
221410
2215"DATA",171.601,3,1,1,1)
2216SECOND SOURCE PROBLEM ONE CODE
2217"DATA",171.601,3,1,2,0)
22189
2219"DATA",171.601,3,1,2,1)
2220SECOND SOURCE PROBLEM ONE DESCRIPTION
2221"DATA",171.601,3,2)
22223090220^DOCTOR ELSEWHERE^^^^PROBLEM_1
2223"FIA",170)
2224CCR DICTIONARY
2225"FIA",170,0)
2226^C0CDIC(170,
2227"FIA",170,0,0)
2228170
2229"FIA",170,0,1)
2230y^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)
22380
2239"FIA",170,170.01)
22400
2241"FIA",170,170.04)
22420
2243"FIA",170,170.08)
22440
2245"FIA",170,170.81)
22460
2247"FIA",170.101)
2248CCR NODE TYPE
2249"FIA",170.101,0)
2250^C0CDIC(170.101,
2251"FIA",170.101,0,0)
2252170.101
2253"FIA",170.101,0,1)
2254y^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)
22620
2263"FIA",170.101,170.1012)
22640
2265"FIA",170.101,170.1013)
22660
2267"FIA",171.101)
2268CCR E2
2269"FIA",171.101,0)
2270^C0CE(
2271"FIA",171.101,0,0)
2272171.101P
2273"FIA",171.101,0,1)
2274y^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)
22820
2283"FIA",171.101,171.111)
22840
2285"FIA",171.101,171.121)
22860
2287"FIA",171.101,171.131)
22880
2289"FIA",171.101,171.1311)
22900
2291"FIA",171.201)
2292CCR VOCABULARIES
2293"FIA",171.201,0)
2294^C0CC(
2295"FIA",171.201,0,0)
2296171.201
2297"FIA",171.201,0,1)
2298y^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)
23060
2307"FIA",171.401)
2308CCR SOURCE
2309"FIA",171.401,0)
2310^C0C(171.401,
2311"FIA",171.401,0,0)
2312171.401
2313"FIA",171.401,0,1)
2314y^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)
23220
2323"FIA",171.401,171.4011)
23240
2325"FIA",171.401,171.4012)
23260
2327"FIA",171.501)
2328CCR E3
2329"FIA",171.501,0)
2330^C0CE3(
2331"FIA",171.501,0,0)
2332171.501P
2333"FIA",171.501,0,1)
2334y^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)
23420
2343"FIA",171.601)
2344CCR E4
2345"FIA",171.601,0)
2346^C0CE4(
2347"FIA",171.601,0,0)
2348171.601P
2349"FIA",171.601,0,1)
2350y^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)
23580
2359"FIA",171.601,171.6011)
23600
2361"FIA",171.601,171.6014)
23620
2363"IX",170,170,"C",0)
2364170^C^A whole file cross reference of Variables by Coding System^R^^F^IR^W^170.08^^^^^LS
2365"IX",170,170,"C",1)
2366S ^C0CDIC(170,"C",X,DA(1),DA)=""
2367"IX",170,170,"C",2)
2368K ^C0CDIC(170,"C",X,DA(1),DA)
2369"IX",170,170,"C",2.5)
2370K ^C0CDIC(170,"C")
2371"IX",170,170,"C",11.1,0)
2372^.114IA^1^1
2373"IX",170,170,"C",11.1,1,0)
23741^F^170.08^.01^^1^F
2375"IX",170,170,"D",0)
2376170^D^Regular whole file cross index by section^R^^F^IR^I^170^^^^^LS
2377"IX",170,170,"D",1)
2378S ^C0CDIC(170,"D",X,DA)=""
2379"IX",170,170,"D",2)
2380K ^C0CDIC(170,"D",X,DA)
2381"IX",170,170,"D",2.5)
2382K ^C0CDIC(170,"D")
2383"IX",170,170,"D",11.1,0)
2384^.114IA^1^1
2385"IX",170,170,"D",11.1,1,0)
23861^F^170^10^^1^F
2387"IX",170,170,"D",11.1,1,3)
2388
2389"IX",170,170,"SECTION",0)
2390170^SECTION^Regular cross reference on the section field^R^^F^IR^I^170^^^^^LS
2391"IX",170,170,"SECTION",1)
2392S ^C0CDIC(170,"SECTION",X,DA)=""
2393"IX",170,170,"SECTION",2)
2394K ^C0CDIC(170,"SECTION",X,DA)
2395"IX",170,170,"SECTION",2.5)
2396K ^C0CDIC(170,"SECTION")
2397"IX",170,170,"SECTION",11.1,0)
2398^.114IA^1^1
2399"IX",170,170,"SECTION",11.1,1,0)
24001^F^170^12^^1^
2401"IX",171.501,171.501,"C",0)
2402171.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)
2404S ^C0CE3("C",X(1),X(2),X(3),X(4),X(5),DA)=""
2405"IX",171.501,171.501,"C",2)
2406K ^C0CE3("C",X(1),X(2),X(3),X(4),X(5),DA)
2407"IX",171.501,171.501,"C",2.5)
2408K ^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)
24121^F^171.501^.02^^1
2413"IX",171.501,171.501,"C",11.1,2,0)
24142^F^171.501^.03^^2
2415"IX",171.501,171.501,"C",11.1,3,0)
24163^F^171.501^.04^^3
2417"IX",171.501,171.501,"C",11.1,4,0)
24184^F^171.501^.05^^4
2419"IX",171.501,171.501,"C",11.1,5,0)
24205^F^171.501^.01^^5
2421"IX",171.601,171.601,"C",0)
2422171.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)
2424S ^C0CE4("C",X(1),X(2),X(3),X(4),DA)=""
2425"IX",171.601,171.601,"C",2)
2426K ^C0CE4("C",X(1),X(2),X(3),X(4),DA)
2427"IX",171.601,171.601,"C",2.5)
2428K ^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)
24321^F^171.601^.02^^1
2433"IX",171.601,171.601,"C",11.1,2,0)
24342^F^171.601^.03^^2
2435"IX",171.601,171.601,"C",11.1,3,0)
24363^F^171.601^.01^^3
2437"IX",171.601,171.601,"C",11.1,4,0)
24384^F^171.601^.04^^4
2439"IX",171.601,171.601,"D1",0)
2440171.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)
2442S ^C0CE4("D1",X(5),X(3),X(6),X(4),DA)=""
2443"IX",171.601,171.601,"D1",2)
2444K ^C0CE4("D1",X(5),X(3),X(6),X(4),DA)
2445"IX",171.601,171.601,"D1",2.5)
2446K ^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)
24501^F^171.601^2^^^F
2451"IX",171.601,171.601,"D1",11.1,2,0)
24522^C
2453"IX",171.601,171.601,"D1",11.1,2,1.5)
2454S X=9999999-X(1)
2455"IX",171.601,171.601,"D1",11.1,3,0)
24563^F^171.601^.03^^2^F
2457"IX",171.601,171.601,"D1",11.1,4,0)
24584^C^^^^4
2459"IX",171.601,171.601,"D1",11.1,4,1.5)
2460S X=X(2)
2461"IX",171.601,171.601,"D1",11.1,5,0)
24625^F^171.601^.02^^1^F
2463"IX",171.601,171.601,"D1",11.1,6,0)
24646^F^171.601^.01^^3^F
2465"IX",171.601,171.601,"D2",0)
2466171.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)
2468S ^C0CE4("D2",X(1),X(5),X(4),DA)=""
2469"IX",171.601,171.601,"D2",2)
2470K ^C0CE4("D2",X(1),X(5),X(4),DA)
2471"IX",171.601,171.601,"D2",2.5)
2472K ^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)
24761^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)
24802^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)
24843^C
2485"IX",171.601,171.601,"D2",11.1,3,1.5)
2486S X=9999999-X(2)
2487"IX",171.601,171.601,"D2",11.1,4,0)
24884^C^^^^3
2489"IX",171.601,171.601,"D2",11.1,4,1.5)
2490S X=X(3)
2491"IX",171.601,171.601,"D2",11.1,5,0)
24925^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)
2496171.601^P^REGULAR INDEX OF THE PATIENT^R^^F^IR^I^171.601^^^^^LS
2497"IX",171.601,171.601,"P",1)
2498S ^C0CE4("P",X,DA)=""
2499"IX",171.601,171.601,"P",2)
2500K ^C0CE4("P",X,DA)
2501"IX",171.601,171.601,"P",2.5)
2502K ^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)
25061^F^171.601^.02^^1^F
2507"KEY",171.501,171.501,"A",0)
2508171.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)
2522171.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")
2534171.501^C
2535"KEYPTR",171.601,171.601,"A")
2536171.601^C
2537"MBREQ")
25380
2539"QUES","XPF1",0)
2540Y
2541"QUES","XPF1","??")
2542^D REP^XPDH
2543"QUES","XPF1","A")
2544Shall I write over your |FLAG| File
2545"QUES","XPF1","B")
2546YES
2547"QUES","XPF1","M")
2548D XPF1^XPDIQ
2549"QUES","XPF2",0)
2550Y
2551"QUES","XPF2","??")
2552^D DTA^XPDH
2553"QUES","XPF2","A")
2554Want my data |FLAG| yours
2555"QUES","XPF2","B")
2556YES
2557"QUES","XPF2","M")
2558D XPF2^XPDIQ
2559"QUES","XPI1",0)
2560YO
2561"QUES","XPI1","??")
2562^D INHIBIT^XPDH
2563"QUES","XPI1","A")
2564Want KIDS to INHIBIT LOGONs during the install
2565"QUES","XPI1","B")
2566NO
2567"QUES","XPI1","M")
2568D XPI1^XPDIQ
2569"QUES","XPM1",0)
2570PO^VA(200,:EM
2571"QUES","XPM1","??")
2572^D MG^XPDH
2573"QUES","XPM1","A")
2574Enter the Coordinator for Mail Group '|FLAG|'
2575"QUES","XPM1","B")
2576
2577"QUES","XPM1","M")
2578D XPM1^XPDIQ
2579"QUES","XPO1",0)
2580Y
2581"QUES","XPO1","??")
2582^D MENU^XPDH
2583"QUES","XPO1","A")
2584Want KIDS to Rebuild Menu Trees Upon Completion of Install
2585"QUES","XPO1","B")
2586NO
2587"QUES","XPO1","M")
2588D XPO1^XPDIQ
2589"QUES","XPZ1",0)
2590Y
2591"QUES","XPZ1","??")
2592^D OPT^XPDH
2593"QUES","XPZ1","A")
2594Want to DISABLE Scheduled Options, Menu Options, and Protocols
2595"QUES","XPZ1","B")
2596NO
2597"QUES","XPZ1","M")
2598D XPZ1^XPDIQ
2599"QUES","XPZ2",0)
2600Y
2601"QUES","XPZ2","??")
2602^D RTN^XPDH
2603"QUES","XPZ2","A")
2604Want to MOVE routines to other CPUs
2605"QUES","XPZ2","B")
2606NO
2607"QUES","XPZ2","M")
2608D 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")
26948.0^22.0
2695"^DD",170,170,0)
2696FIELD^^12^12
2697"^DD",170,170,0,"DDA")
2698N
2699"^DD",170,170,0,"DT")
27003090214
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)
2718AVARIABLE^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
2719"^DD",170,170,.01,.1)
2720CCR/CCD/RIM VARIABLE NAME
2721"^DD",170,170,.01,1,0)
2722^.1
2723"^DD",170,170,.01,1,1,0)
2724170^B
2725"^DD",170,170,.01,1,1,1)
2726S ^C0CDIC(170,"B",$E(X,1,30),DA)=""
2727"^DD",170,170,.01,1,1,2)
2728K ^C0CDIC(170,"B",$E(X,1,30),DA)
2729"^DD",170,170,.01,3)
2730Answer must be 2-30 characters in length
2731"^DD",170,170,.01,"DT")
27323090214
2733"^DD",170,170,1,0)
2734ID^NJ6,3^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."4.N) X
2735"^DD",170,170,1,.1)
2736ELEMENT ID IN THE CCD C32 SPECIFICATION
2737"^DD",170,170,1,3)
2738Type a number between 0 and 99, 3 Decimal Digits
2739"^DD",170,170,1,"DT")
27403081120
2741"^DD",170,170,2,0)
2742XPATH^F^^1;1^K:$L(X)>250!($L(X)<2) X
2743"^DD",170,170,2,.1)
2744XPATH INDEX INTO THE CCR
2745"^DD",170,170,2,3)
2746Answer must be 2-250 characters in length
2747"^DD",170,170,2,"DT")
27483081120
2749"^DD",170,170,3,0)
2750DESCRIPTION^170.01^^5;0
2751"^DD",170,170,4,0)
2752SOURCE^170.04^^3;0
2753"^DD",170,170,6,0)
2754TYPE^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)
2756TYPE OF VARIABLE
2757"^DD",170,170,6,"DT")
27583081120
2759"^DD",170,170,7,0)
2760DATA ELEMENT^F^^4;3^K:$L(X)>60!($L(X)<2) X
2761"^DD",170,170,7,.1)
2762CCR/CCD Data Element Name
2763"^DD",170,170,7,3)
2764Answer must be 2-60 characters in length
2765"^DD",170,170,7,"DT")
27663081120
2767"^DD",170,170,8,0)
2768CODING^170.08S^^6;0
2769"^DD",170,170,9,0)
2770STATUS^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)
2772STATUS OF THE DICTIONARY ENTRY FOR THIS VARIABLE
2773"^DD",170,170,9,3)
2774STATUS OF THIS DICTIONARY ENTRY
2775"^DD",170,170,9,"DT")
27763081121
2777"^DD",170,170,10,0)
2778SECTION^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)
2780SECTION OF THE CCR/CCD IN WHICH THIS VARIABLE IS USED
2781"^DD",170,170,10,"DT")
27823081206
2783"^DD",170,170,11,0)
2784RIM COHERENCE^F^^7;3^K:$L(X)>30!($L(X)<2) X
2785"^DD",170,170,11,.1)
2786RIM Coherence attribute for this variable
2787"^DD",170,170,11,3)
2788Answer must be 2-30 characters in length
2789"^DD",170,170,11,"DT")
27903081216
2791"^DD",170,170,12,0)
2792ELEMENT TYPE^P170.101^C0CDIC(170.101,^7;4^Q
2793"^DD",170,170,12,.1)
2794NODE TYPE OF THE VARIABLE
2795"^DD",170,170,12,"DT")
27963090208
2797"^DD",170,170.01,0)
2798DESCRIPTION SUB-FIELD^^.01^1
2799"^DD",170,170.01,0,"DT")
28003081120
2801"^DD",170,170.01,0,"NM","DESCRIPTION")
2802
2803"^DD",170,170.01,0,"UP")
2804170
2805"^DD",170,170.01,.01,0)
2806DESCRIPTION^W^^0;1
2807"^DD",170,170.01,.01,3)
2808Describe this Variable
2809"^DD",170,170.01,.01,"DT")
28103081120
2811"^DD",170,170.04,0)
2812SOURCE SUB-FIELD^^.01^1
2813"^DD",170,170.04,0,"DT")
28143081120
2815"^DD",170,170.04,0,"NM","SOURCE")
2816
2817"^DD",170,170.04,0,"UP")
2818170
2819"^DD",170,170.04,.01,0)
2820SOURCE^W^^0;1
2821"^DD",170,170.04,.01,3)
2822Source in VistA for this Variable
2823"^DD",170,170.04,.01,"DT")
28243081120
2825"^DD",170,170.08,0)
2826CODING SUB-FIELD^^1^2
2827"^DD",170,170.08,0,"DT")
28283081121
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")
2834170
2835"^DD",170,170.08,.01,0)
2836CODING^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)
2838CODING SYSTEMS USED FOR THIS VARIABLE
2839"^DD",170,170.08,.01,1,0)
2840^.1
2841"^DD",170,170.08,.01,1,1,0)
2842170.08^B
2843"^DD",170,170.08,.01,1,1,1)
2844S ^C0CDIC(170,DA(1),6,"B",$E(X,1,30),DA)=""
2845"^DD",170,170.08,.01,1,1,2)
2846K ^C0CDIC(170,DA(1),6,"B",$E(X,1,30),DA)
2847"^DD",170,170.08,.01,"DT")
28483081121
2849"^DD",170,170.08,1,0)
2850MAPPING METHOD^170.81^^1;0
2851"^DD",170,170.81,0)
2852MAPPING METHOD SUB-FIELD^^.01^1
2853"^DD",170,170.81,0,"DT")
28543081121
2855"^DD",170,170.81,0,"NM","MAPPING METHOD")
2856
2857"^DD",170,170.81,0,"UP")
2858170.08
2859"^DD",170,170.81,.01,0)
2860MAPPING METHOD^W^^0;1
2861"^DD",170,170.81,.01,3)
2862HOW IS THIS CODE PRODUCED FOR THIS VARIABLE?
2863"^DD",170,170.81,.01,"DT")
28643081121
2865"^DD",170.101,170.101,0)
2866FIELD^^3^4
2867"^DD",170.101,170.101,0,"DDA")
2868N
2869"^DD",170.101,170.101,0,"DT")
28703090208
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)
2890NODE TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
2891"^DD",170.101,170.101,.01,.1)
2892CCR NODE TYPE
2893"^DD",170.101,170.101,.01,1,0)
2894^.1
2895"^DD",170.101,170.101,.01,1,1,0)
2896170.101^B
2897"^DD",170.101,170.101,.01,1,1,1)
2898S ^C0CDIC(170.101,"B",$E(X,1,30),DA)=""
2899"^DD",170.101,170.101,.01,1,1,2)
2900K ^C0CDIC(170.101,"B",$E(X,1,30),DA)
2901"^DD",170.101,170.101,.01,3)
2902NODE TYPE
2903"^DD",170.101,170.101,.01,"DT")
29043090206
2905"^DD",170.101,170.101,1,0)
2906PARENT^P170.101'^C0CDIC(170.101,^0;2^Q
2907"^DD",170.101,170.101,1,.1)
2908NODE TYPE PARENT
2909"^DD",170.101,170.101,1,3)
2910NODE TYPE PARENT
2911"^DD",170.101,170.101,1,"DT")
29123090206
2913"^DD",170.101,170.101,2,0)
2914CONTENTS^170.1012P^^1;0
2915"^DD",170.101,170.101,3,0)
2916CHILDREN^170.1013P^^2;0
2917"^DD",170.101,170.1012,0)
2918CONTENTS SUB-FIELD^^.01^1
2919"^DD",170.101,170.1012,0,"DT")
29203090208
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")
2926170.101
2927"^DD",170.101,170.1012,.01,0)
2928CONTENTS^P170'^C0CDIC(170,^0;1^Q
2929"^DD",170.101,170.1012,.01,.1)
2930CCR 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)
2934170.1012^B
2935"^DD",170.101,170.1012,.01,1,1,1)
2936S ^C0CDIC(170.101,DA(1),1,"B",$E(X,1,30),DA)=""
2937"^DD",170.101,170.1012,.01,1,1,2)
2938K ^C0CDIC(170.101,DA(1),1,"B",$E(X,1,30),DA)
2939"^DD",170.101,170.1012,.01,3)
2940VARIABLES THAT THIS TYPE CONTAINS
2941"^DD",170.101,170.1012,.01,"DT")
29423090208
2943"^DD",170.101,170.1013,0)
2944CHILDREN SUB-FIELD^^.01^1
2945"^DD",170.101,170.1013,0,"DT")
29463090206
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")
2952170.101
2953"^DD",170.101,170.1013,.01,0)
2954CHILDREN^P170.101'^C0CDIC(170.101,^0;1^Q
2955"^DD",170.101,170.1013,.01,.1)
2956CHILDREN NODE TYPES
2957"^DD",170.101,170.1013,.01,1,0)
2958^.1
2959"^DD",170.101,170.1013,.01,1,1,0)
2960170.1013^B
2961"^DD",170.101,170.1013,.01,1,1,1)
2962S ^C0CDIC(170.101,DA(1),2,"B",$E(X,1,30),DA)=""
2963"^DD",170.101,170.1013,.01,1,1,2)
2964K ^C0CDIC(170.101,DA(1),2,"B",$E(X,1,30),DA)
2965"^DD",170.101,170.1013,.01,3)
2966CHILDREN NODE TYPES
2967"^DD",170.101,170.1013,.01,"DT")
29683090206
2969"^DD",171.101,171.101,0)
2970FIELD^^.02^2
2971"^DD",171.101,171.101,0,"DDA")
2972N
2973"^DD",171.101,171.101,0,"DT")
29743090214
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)
2980PATIENT^RP2'^DPT(^0;1^Q
2981"^DD",171.101,171.101,.01,.1)
2982POINTER TO PATIENT FILE
2983"^DD",171.101,171.101,.01,1,0)
2984^.1
2985"^DD",171.101,171.101,.01,1,1,0)
2986171.101^B
2987"^DD",171.101,171.101,.01,1,1,1)
2988S ^C0CE("B",$E(X,1,30),DA)=""
2989"^DD",171.101,171.101,.01,1,1,2)
2990K ^C0CE("B",$E(X,1,30),DA)
2991"^DD",171.101,171.101,.01,3)
2992PATIENT
2993"^DD",171.101,171.101,.01,"DT")
29943090214
2995"^DD",171.101,171.101,.02,0)
2996CCR SOURCE^171.111P^^1;0
2997"^DD",171.101,171.111,0)
2998CCR SOURCE SUB-FIELD^^.03^2
2999"^DD",171.101,171.111,0,"DT")
30003090214
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")
3006171.101
3007"^DD",171.101,171.111,.01,0)
3008CCR SOURCE^P171.401^C0C(171.401,^0;1^Q
3009"^DD",171.101,171.111,.01,.1)
3010POINTER 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)
3014171.111^B
3015"^DD",171.101,171.111,.01,1,1,1)
3016S ^C0CE(DA(1),1,"B",$E(X,1,30),DA)=""
3017"^DD",171.101,171.111,.01,1,1,2)
3018K ^C0CE(DA(1),1,"B",$E(X,1,30),DA)
3019"^DD",171.101,171.111,.01,3)
3020CCR SOURCE
3021"^DD",171.101,171.111,.01,"DT")
30223090214
3023"^DD",171.101,171.111,.03,0)
3024ELEMENT TYPE^171.121P^^1;0
3025"^DD",171.101,171.121,0)
3026ELEMENT TYPE SUB-FIELD^^.04^2
3027"^DD",171.101,171.121,0,"DT")
30283090214
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")
3034171.111
3035"^DD",171.101,171.121,.01,0)
3036ELEMENT TYPE^MP170.101'^C0CDIC(170.101,^0;1^Q
3037"^DD",171.101,171.121,.01,.1)
3038POINTER 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)
3042171.121^B
3043"^DD",171.101,171.121,.01,1,1,1)
3044S ^C0CE(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
3045"^DD",171.101,171.121,.01,1,1,2)
3046K ^C0CE(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
3047"^DD",171.101,171.121,.01,3)
3048CCR ELEMENT TYPE
3049"^DD",171.101,171.121,.01,"DT")
30503090214
3051"^DD",171.101,171.121,.04,0)
3052OCCURANCE^171.131^^1;0
3053"^DD",171.101,171.131,0)
3054OCCURANCE SUB-FIELD^^1^2
3055"^DD",171.101,171.131,0,"DT")
30563090214
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")
3062171.121
3063"^DD",171.101,171.131,.01,0)
3064OCCURANCE^MF^^0;1^K:$L(X)>30!($L(X)<1) X
3065"^DD",171.101,171.131,.01,.1)
3066OCCURANCE 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)
3070171.131^B
3071"^DD",171.101,171.131,.01,1,1,1)
3072S ^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)
3074K ^C0CE(DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
3075"^DD",171.101,171.131,.01,3)
3076OCCURANCE OF THE ELEMENT TYPE " NN" WITH LEADING SPACE
3077"^DD",171.101,171.131,.01,"DT")
30783090214
3079"^DD",171.101,171.131,1,0)
3080VARIABLE^171.1311P^^1;0
3081"^DD",171.101,171.1311,0)
3082VARIABLE SUB-FIELD^^1^2
3083"^DD",171.101,171.1311,0,"DT")
30843090214
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")
3090171.131
3091"^DD",171.101,171.1311,.01,0)
3092VARIABLE^MP170^C0CDIC(170,^0;1^Q
3093"^DD",171.101,171.1311,.01,.1)
3094POINTER TO CCR DICTIONARY
3095"^DD",171.101,171.1311,.01,1,0)
3096^.1
3097"^DD",171.101,171.1311,.01,1,1,0)
3098171.1311^B
3099"^DD",171.101,171.1311,.01,1,1,1)
3100S ^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)
3102K ^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)
3104CCR VARIABLE
3105"^DD",171.101,171.1311,.01,"DT")
31063090214
3107"^DD",171.101,171.1311,1,0)
3108VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X
3109"^DD",171.101,171.1311,1,.1)
3110VALUE OF THE VARIABLE
3111"^DD",171.101,171.1311,1,3)
3112VALUE OF THE VARIABLE
3113"^DD",171.101,171.1311,1,"DT")
31143090214
3115"^DD",171.201,171.201,0)
3116FIELD^^1^2
3117"^DD",171.201,171.201,0,"DDA")
3118N
3119"^DD",171.201,171.201,0,"DT")
31203090221
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)
3128CODING SYSTEM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
3129"^DD",171.201,171.201,.01,.1)
3130CODING SYSTEM - VOCABULARY
3131"^DD",171.201,171.201,.01,1,0)
3132^.1
3133"^DD",171.201,171.201,.01,1,1,0)
3134171.201^B
3135"^DD",171.201,171.201,.01,1,1,1)
3136S ^C0CC("B",$E(X,1,30),DA)=""
3137"^DD",171.201,171.201,.01,1,1,2)
3138K ^C0CC("B",$E(X,1,30),DA)
3139"^DD",171.201,171.201,.01,3)
3140CODING SYSTEM
3141"^DD",171.201,171.201,.01,"DT")
31423090221
3143"^DD",171.201,171.201,1,0)
3144VERSION^F^^0;2^K:$L(X)>30!($L(X)<3) X
3145"^DD",171.201,171.201,1,.1)
3146CODING SYSTEM VERSION
3147"^DD",171.201,171.201,1,3)
3148CODING SYSTEM VERSION
3149"^DD",171.201,171.201,1,"DT")
31503090221
3151"^DD",171.401,171.401,0)
3152FIELD^^2^3
3153"^DD",171.401,171.401,0,"DDA")
3154N
3155"^DD",171.401,171.401,0,"DT")
31563090206
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)
3170NAME^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)
3174171.401^B
3175"^DD",171.401,171.401,.01,1,1,1)
3176S ^C0C(171.401,"B",$E(X,1,30),DA)=""
3177"^DD",171.401,171.401,.01,1,1,2)
3178K ^C0C(171.401,"B",$E(X,1,30),DA)
3179"^DD",171.401,171.401,.01,3)
3180NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
3181"^DD",171.401,171.401,1,0)
3182LOCAL SOURCE^171.4011P^^1;0
3183"^DD",171.401,171.401,2,0)
3184NON LOCAL SOURCE^171.4012P^^2;0
3185"^DD",171.401,171.4011,0)
3186LOCAL SOURCE SUB-FIELD^^.01^1
3187"^DD",171.401,171.4011,0,"DT")
31883090206
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")
3194171.401
3195"^DD",171.401,171.4011,.01,0)
3196LOCAL SOURCE^P4'^DIC(4,^0;1^Q
3197"^DD",171.401,171.4011,.01,.1)
3198LOCALLY DEFINED INSTITUTION
3199"^DD",171.401,171.4011,.01,1,0)
3200^.1
3201"^DD",171.401,171.4011,.01,1,1,0)
3202171.4011^B
3203"^DD",171.401,171.4011,.01,1,1,1)
3204S ^C0C(171.401,DA(1),1,"B",$E(X,1,30),DA)=""
3205"^DD",171.401,171.4011,.01,1,1,2)
3206K ^C0C(171.401,DA(1),1,"B",$E(X,1,30),DA)
3207"^DD",171.401,171.4011,.01,3)
3208DEFINED INSTITUTION
3209"^DD",171.401,171.4011,.01,"DT")
32103090206
3211"^DD",171.401,171.4012,0)
3212NON LOCAL SOURCE SUB-FIELD^^.01^1
3213"^DD",171.401,171.4012,0,"DT")
32143090206
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")
3220171.401
3221"^DD",171.401,171.4012,.01,0)
3222NON LOCAL SOURCE^P171.201'^C0C(171.201,^0;1^Q
3223"^DD",171.401,171.4012,.01,.1)
3224CCR NON LOCAL SOURCE
3225"^DD",171.401,171.4012,.01,1,0)
3226^.1
3227"^DD",171.401,171.4012,.01,1,1,0)
3228171.4012^B
3229"^DD",171.401,171.4012,.01,1,1,1)
3230S ^C0C(171.401,DA(1),2,"B",$E(X,1,30),DA)=""
3231"^DD",171.401,171.4012,.01,1,1,2)
3232K ^C0C(171.401,DA(1),2,"B",$E(X,1,30),DA)
3233"^DD",171.401,171.4012,.01,3)
3234NON LOCAL SOURCE OF THE CCR
3235"^DD",171.401,171.4012,.01,"DT")
32363090206
3237"^DD",171.501,171.501,0)
3238FIELD^^1^6
3239"^DD",171.501,171.501,0,"DDA")
3240N
3241"^DD",171.501,171.501,0,"DT")
32423090221
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)
3248VARIABLE^RP170^C0CDIC(170,^0;1^Q
3249"^DD",171.501,171.501,.01,.1)
3250POINTER TO CCR DICTIONARY
3251"^DD",171.501,171.501,.01,1,0)
3252^.1
3253"^DD",171.501,171.501,.01,1,1,0)
3254171.501^B
3255"^DD",171.501,171.501,.01,1,1,1)
3256S ^C0CE3("B",$E(X,1,30),DA)=""
3257"^DD",171.501,171.501,.01,1,1,2)
3258K ^C0CE3("B",$E(X,1,30),DA)
3259"^DD",171.501,171.501,.01,3)
3260POINTER TO CCR DICTIONARY
3261"^DD",171.501,171.501,.01,"DT")
32623090221
3263"^DD",171.501,171.501,.02,0)
3264PATIENT^P2'^DPT(^0;2^Q
3265"^DD",171.501,171.501,.02,.1)
3266POINTER TO PATIENT FILE
3267"^DD",171.501,171.501,.02,3)
3268POINTER TO PATIENT FILE
3269"^DD",171.501,171.501,.02,"DT")
32703090221
3271"^DD",171.501,171.501,.03,0)
3272CCR SOURCE^P171.401'^C0C(171.401,^0;3^Q
3273"^DD",171.501,171.501,.03,.1)
3274POINTER TO CCR SOURCE FILE
3275"^DD",171.501,171.501,.03,3)
3276POINTER TO CCR SOURCE FILE
3277"^DD",171.501,171.501,.03,"DT")
32783090221
3279"^DD",171.501,171.501,.04,0)
3280DOMAIN^P170.101'^C0CDIC(170.101,^0;4^Q
3281"^DD",171.501,171.501,.04,.1)
3282POINTER TO CCR NODE TYPE FILE
3283"^DD",171.501,171.501,.04,3)
3284POINTER TO CCR NODE TYPE FILE
3285"^DD",171.501,171.501,.04,"DT")
32863090221
3287"^DD",171.501,171.501,.05,0)
3288OCCURRANCE^F^^0;5^K:$L(X)>30!($L(X)<3) X
3289"^DD",171.501,171.501,.05,.1)
3290OCCURRANCE INDEX
3291"^DD",171.501,171.501,.05,3)
3292OCCURRANCE INDEX
3293"^DD",171.501,171.501,.05,"DT")
32943090221
3295"^DD",171.501,171.501,1,0)
3296VALUE^F^^2;E1,200^K:$L(X)>200!($L(X)<1) X
3297"^DD",171.501,171.501,1,.1)
3298VALUE OF THE VARIABLE
3299"^DD",171.501,171.501,1,3)
3300VALUE OF THE VARIABLE
3301"^DD",171.501,171.501,1,"DT")
33023090221
3303"^DD",171.601,171.601,0)
3304FIELD^^4^9
3305"^DD",171.601,171.601,0,"DDA")
3306N
3307"^DD",171.601,171.601,0,"DT")
33083090221
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)
3314ELEMENT^RP170.101'^C0CDIC(170.101,^0;1^Q
3315"^DD",171.601,171.601,.01,.1)
3316DOMAIN 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)
3320171.601^B
3321"^DD",171.601,171.601,.01,1,1,1)
3322S ^C0CE4("B",$E(X,1,30),DA)=""
3323"^DD",171.601,171.601,.01,1,1,2)
3324K ^C0CE4("B",$E(X,1,30),DA)
3325"^DD",171.601,171.601,.01,3)
3326DOMAIN POINTER TO CCR NODE TYPE FILE
3327"^DD",171.601,171.601,.01,"DT")
33283090221
3329"^DD",171.601,171.601,.02,0)
3330PATIENT^P2'^DPT(^0;2^Q
3331"^DD",171.601,171.601,.02,.1)
3332POINTER TO PATIENT FILE
3333"^DD",171.601,171.601,.02,3)
3334POINTER TO PATIENT FILE
3335"^DD",171.601,171.601,.02,"DT")
33363090221
3337"^DD",171.601,171.601,.03,0)
3338CCR SOURCE^P171.401'^C0C(171.401,^0;3^Q
3339"^DD",171.601,171.601,.03,.1)
3340POINTER TO CCR SOURCE FILE
3341"^DD",171.601,171.601,.03,3)
3342POINTER TO CCR SOURCE FILE
3343"^DD",171.601,171.601,.03,"DT")
33443090221
3345"^DD",171.601,171.601,.04,0)
3346OCCURRENCE^F^^0;4^K:$L(X)>30!($L(X)<1) X
3347"^DD",171.601,171.601,.04,.1)
3348OCCURRENCE INDEX " NN"
3349"^DD",171.601,171.601,.04,3)
3350OCCURRENCE INDEX " NN"
3351"^DD",171.601,171.601,.04,"DT")
33523090221
3353"^DD",171.601,171.601,.05,0)
3354OBJECT ID^F^^2;6^K:$L(X)>30!($L(X)<1) X
3355"^DD",171.601,171.601,.05,.1)
3356ELEMENT OBJECT ID
3357"^DD",171.601,171.601,.05,3)
3358ELEMENT 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)
3362This ObjectID is here at the element level as a placeholder for when we
3363"^DD",171.601,171.601,.05,23,2,0)
3364can 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)
3368Every CCR element has an objecid variable, which must be unique to the
3369"^DD",171.601,171.601,.05,23,5,0)
3370CCR in which it appears. However, what about the case of the cummulative
3371"^DD",171.601,171.601,.05,23,6,0)
3372CCR where elements are combined for a patient from multiple sources ie
3373"^DD",171.601,171.601,.05,23,7,0)
3374multiple separate CCRs. How can we insure that the Object IDs will be
3375"^DD",171.601,171.601,.05,23,8,0)
3376unique 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)
3380One thought is to prepend the source to the ObjectID variable
3381"^DD",171.601,171.601,.05,23,11,0)
3382S1_ObjectID. Of course, the source pointer is local to the system, so
3383"^DD",171.601,171.601,.05,23,12,0)
3384these object ids won't be of much use to a recieving system (who might
3385"^DD",171.601,171.601,.05,23,13,0)
3386just prepend our ids with thier internal source identifier ie
3387"^DD",171.601,171.601,.05,23,14,0)
3388S2_S1_ObjectID). However, this might be used by the CCR stylesheet to
3389"^DD",171.601,171.601,.05,23,15,0)
3390give a visual colorcoding to elements from different sources without
3391"^DD",171.601,171.601,.05,23,16,0)
3392adding 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)
3396This field should be populated by a fileman exit triggered on
3397"^DD",171.601,171.601,.05,23,19,0)
3398insert of the objectid variable. Perhaps a Mumps Cross-Reference with a
3399"^DD",171.601,171.601,.05,23,20,0)
3400screen for an objectid variable (objectid is a Node type in the CCR NODE
3401"^DD",171.601,171.601,.05,23,21,0)
3402TYPE file)
3403"^DD",171.601,171.601,.05,23,22,0)
3404
3405"^DD",171.601,171.601,.05,23,23,0)
3406variable of the element.
3407"^DD",171.601,171.601,.05,"DT")
34083090221
3409"^DD",171.601,171.601,1,0)
3410VARIABLE^171.6011P^^1;0
3411"^DD",171.601,171.601,2,0)
3412CLINICAL DATE^D^^2;1^S %DT="EST" D ^%DT S X=Y K:X<1 X
3413"^DD",171.601,171.601,2,.1)
3414CLINICAL DATE OF THE ELEMENT
3415"^DD",171.601,171.601,2,3)
3416CLINICAL DATE OF THE ELEMENT
3417"^DD",171.601,171.601,2,"DT")
34183090221
3419"^DD",171.601,171.601,3,0)
3420CLINICAL SOURCE^F^^2;2^K:$L(X)>30!($L(X)<1) X
3421"^DD",171.601,171.601,3,.1)
3422CLINICAL SOURCE OF THE ELEMENT
3423"^DD",171.601,171.601,3,3)
3424CLINICAL 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)
3428This field should point to to clinical source of the element. The
3429"^DD",171.601,171.601,3,23,2,0)
3430difficulty is that for elements that are from an external CCR, the
3431"^DD",171.601,171.601,3,23,3,0)
3432clinical source may not be in the New Person file. So, this might be a
3433"^DD",171.601,171.601,3,23,4,0)
3434variable pointer to the either the new person file or to a new external
3435"^DD",171.601,171.601,3,23,5,0)
3436provider file.
3437"^DD",171.601,171.601,3,23,6,0)
3438
3439"^DD",171.601,171.601,3,23,7,0)
3440The new external provider file is not yet designed, and it is a difficult
3441"^DD",171.601,171.601,3,23,8,0)
3442file to do...
3443"^DD",171.601,171.601,3,23,9,0)
3444
3445"^DD",171.601,171.601,3,23,10,0)
3446So, as a place holder, this field is Free Text and will contain the
3447"^DD",171.601,171.601,3,23,11,0)
3448ObjectID stored in the Source variable of the element.
3449"^DD",171.601,171.601,3,"DT")
34503090221
3451"^DD",171.601,171.601,4,0)
3452CODING^171.6014P^^3;0
3453"^DD",171.601,171.6011,0)
3454VARIABLE SUB-FIELD^^1^2
3455"^DD",171.601,171.6011,0,"DT")
34563090221
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")
3462171.601
3463"^DD",171.601,171.6011,.01,0)
3464VARIABLE^MP170^C0CDIC(170,^0;1^Q
3465"^DD",171.601,171.6011,.01,.1)
3466POINTER TO CCR DICTIONARY
3467"^DD",171.601,171.6011,.01,1,0)
3468^.1
3469"^DD",171.601,171.6011,.01,1,1,0)
3470171.6011^B
3471"^DD",171.601,171.6011,.01,1,1,1)
3472S ^C0CE4(DA(1),1,"B",$E(X,1,30),DA)=""
3473"^DD",171.601,171.6011,.01,1,1,2)
3474K ^C0CE4(DA(1),1,"B",$E(X,1,30),DA)
3475"^DD",171.601,171.6011,.01,3)
3476POINTER TO CCR DICTIONARY
3477"^DD",171.601,171.6011,.01,"DT")
34783090221
3479"^DD",171.601,171.6011,1,0)
3480VALUE^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X
3481"^DD",171.601,171.6011,1,.1)
3482VALUE OF THE VARIABLE
3483"^DD",171.601,171.6011,1,3)
3484VALUE OF THE VARIABLE
3485"^DD",171.601,171.6011,1,"DT")
34863090221
3487"^DD",171.601,171.6014,0)
3488CODING SUB-FIELD^^1^2
3489"^DD",171.601,171.6014,0,"DT")
34903090221
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")
3496171.601
3497"^DD",171.601,171.6014,.01,0)
3498CODING^MP171.201^C0CC(^0;1^Q
3499"^DD",171.601,171.6014,.01,.1)
3500CODING 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)
3504171.6014^B
3505"^DD",171.601,171.6014,.01,1,1,1)
3506S ^C0CE4(DA(1),3,"B",$E(X,1,30),DA)=""
3507"^DD",171.601,171.6014,.01,1,1,2)
3508K ^C0CE4(DA(1),3,"B",$E(X,1,30),DA)
3509"^DD",171.601,171.6014,.01,3)
3510CODING SYSTEM FOR THIS ELEMENT
3511"^DD",171.601,171.6014,.01,"DT")
35123090221
3513"^DD",171.601,171.6014,1,0)
3514CODE VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X
3515"^DD",171.601,171.6014,1,.1)
3516CODE VALUE FOR THIS ELEMENT
3517"^DD",171.601,171.6014,1,3)
3518CODE VALUE IN THIS CODING SYSTEM FOR THIS ELEMENT
3519"^DD",171.601,171.6014,1,"DT")
35203090221
3521"^DIC",170,170,0)
3522CCR 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)
3528CCR 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)
3534CCR 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)
3540CCR 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)
3546CCR 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)
3552CCR 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)
3558CCR 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.