Index: ccr/trunk/p/C0CE_1_0_2_T1.KID
===================================================================
--- ccr/trunk/p/C0CE_1_0_2_T1.KID	(revision 375)
+++ ccr/trunk/p/C0CE_1_0_2_T1.KID	(revision 375)
@@ -0,0 +1,3564 @@
+KIDS Distribution saved on Feb 23, 2009@12:11:02
+prototype CCR E3 AND CCR E4
+**KIDS**:C0CE*1.0*2^
+
+**INSTALL NAME**
+C0CE*1.0*2
+"BLD",7407,0)
+C0CE*1.0*2^^0^3090223^y
+"BLD",7407,4,0)
+^9.64PA^171.201^7
+"BLD",7407,4,170,0)
+170
+"BLD",7407,4,170,222)
+y^y^f^^n^^y^o^n
+"BLD",7407,4,170.101,0)
+170.101
+"BLD",7407,4,170.101,222)
+y^y^f^^n^^y^o^n
+"BLD",7407,4,171.101,0)
+171.101
+"BLD",7407,4,171.101,222)
+y^y^f^^^^n
+"BLD",7407,4,171.201,0)
+171.201
+"BLD",7407,4,171.201,222)
+y^y^f^^n^^y^o^n
+"BLD",7407,4,171.401,0)
+171.401
+"BLD",7407,4,171.401,222)
+y^y^f^^^^n
+"BLD",7407,4,171.501,0)
+171.501
+"BLD",7407,4,171.501,222)
+y^y^f^^n^^y^o^n
+"BLD",7407,4,171.601,0)
+171.601
+"BLD",7407,4,171.601,222)
+y^y^f^^n^^y^o^n
+"BLD",7407,4,"B",170,170)
+
+"BLD",7407,4,"B",170.101,170.101)
+
+"BLD",7407,4,"B",171.101,171.101)
+
+"BLD",7407,4,"B",171.201,171.201)
+
+"BLD",7407,4,"B",171.401,171.401)
+
+"BLD",7407,4,"B",171.501,171.501)
+
+"BLD",7407,4,"B",171.601,171.601)
+
+"BLD",7407,6.3)
+2
+"BLD",7407,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",7407,"KRN",.4,0)
+.4
+"BLD",7407,"KRN",.401,0)
+.401
+"BLD",7407,"KRN",.402,0)
+.402
+"BLD",7407,"KRN",.403,0)
+.403
+"BLD",7407,"KRN",.5,0)
+.5
+"BLD",7407,"KRN",.84,0)
+.84
+"BLD",7407,"KRN",3.6,0)
+3.6
+"BLD",7407,"KRN",3.8,0)
+3.8
+"BLD",7407,"KRN",9.2,0)
+9.2
+"BLD",7407,"KRN",9.8,0)
+9.8
+"BLD",7407,"KRN",9.8,"NM",0)
+^9.68A^^
+"BLD",7407,"KRN",19,0)
+19
+"BLD",7407,"KRN",19.1,0)
+19.1
+"BLD",7407,"KRN",101,0)
+101
+"BLD",7407,"KRN",409.61,0)
+409.61
+"BLD",7407,"KRN",771,0)
+771
+"BLD",7407,"KRN",870,0)
+870
+"BLD",7407,"KRN",8989.51,0)
+8989.51
+"BLD",7407,"KRN",8989.52,0)
+8989.52
+"BLD",7407,"KRN",8994,0)
+8994
+"BLD",7407,"KRN","B",.4,.4)
+
+"BLD",7407,"KRN","B",.401,.401)
+
+"BLD",7407,"KRN","B",.402,.402)
+
+"BLD",7407,"KRN","B",.403,.403)
+
+"BLD",7407,"KRN","B",.5,.5)
+
+"BLD",7407,"KRN","B",.84,.84)
+
+"BLD",7407,"KRN","B",3.6,3.6)
+
+"BLD",7407,"KRN","B",3.8,3.8)
+
+"BLD",7407,"KRN","B",9.2,9.2)
+
+"BLD",7407,"KRN","B",9.8,9.8)
+
+"BLD",7407,"KRN","B",19,19)
+
+"BLD",7407,"KRN","B",19.1,19.1)
+
+"BLD",7407,"KRN","B",101,101)
+
+"BLD",7407,"KRN","B",409.61,409.61)
+
+"BLD",7407,"KRN","B",771,771)
+
+"BLD",7407,"KRN","B",870,870)
+
+"BLD",7407,"KRN","B",8989.51,8989.51)
+
+"BLD",7407,"KRN","B",8989.52,8989.52)
+
+"BLD",7407,"KRN","B",8994,8994)
+
+"BLD",7407,"QUES",0)
+^9.62^^
+"DATA",170,1,0)
+DATETIME
+"DATA",170,1,1)
+//ContinuityOfCareRecord/DateTime/ExactDateTime
+"DATA",170,1,4)
+^DT
+"DATA",170,1,7)
+N^HEADER^^1
+"DATA",170,2,0)
+ACTORPATIENT
+"DATA",170,2,1)
+//ContinuityOfCareRecord/Patient/ActorID
+"DATA",170,2,4)
+^ID
+"DATA",170,2,7)
+N^ACTORS^^6
+"DATA",170,3,0)
+ACTORFROM
+"DATA",170,3,4)
+^ID
+"DATA",170,3,7)
+N^ACTORS^^6
+"DATA",170,4,0)
+ACTORFROM2
+"DATA",170,4,4)
+^ID
+"DATA",170,4,7)
+N^ACTORS^^6
+"DATA",170,5,0)
+ACTORTO
+"DATA",170,5,1)
+//ContinuityOfCareRecord/To/ActorLink/ActorID
+"DATA",170,5,4)
+^ID
+"DATA",170,5,7)
+N^ACTORS^^6
+"DATA",170,6,0)
+ACTORTOTEXT
+"DATA",170,6,1)
+//ContinuityOfCareRecord/To/ActorLink/ActorRole/Text
+"DATA",170,6,4)
+^V
+"DATA",170,6,7)
+N^ACTORS^^6
+"DATA",170,7,0)
+PURPOSEDESCRIPTION
+"DATA",170,7,1)
+//ContinuityOfCareRecord/Purpose/Description/Text
+"DATA",170,7,4)
+^V
+"DATA",170,7,7)
+N^HEADER^^1
+"DATA",170,8,0)
+PROBLEMOBJECTID
+"DATA",170,8,1)
+//ContinuityOfCareRecord/Body/Problems/Problem/CCRDataObjectID
+"DATA",170,8,4)
+^ID
+"DATA",170,8,7)
+N^PROBLEMS^PROBLEMS^5
+"DATA",170,9,0)
+PROBLEMDESCRIPTION
+"DATA",170,9,1)
+//ContinuityOfCareRecord/Body/Problems/Problem/Description/Text
+"DATA",170,9,4)
+^V
+"DATA",170,9,7)
+N^PROBLEMS^^5
+"DATA",170,10,0)
+PROBLEMCODEVALUE
+"DATA",170,10,1)
+//ContinuityOfCareRecord/Body/Problems/Problem/Description/Code/Value
+"DATA",170,10,4)
+^CD
+"DATA",170,10,6,0)
+^170.08S^1^1
+"DATA",170,10,6,1,0)
+ICD
+"DATA",170,10,6,1,1,0)
+^^3^3^3081123^
+"DATA",170,10,6,1,1,1,0)
+The ICD9 code for the problem is retrieved from the patient's record by a 
+"DATA",170,10,6,1,1,2,0)
+call to LIST^ORQQPL3. It is piece 4 in the return array.
+"DATA",170,10,6,1,1,3,0)
+. S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
+"DATA",170,10,7)
+N^PROBLEMS^^5
+"DATA",170,11,0)
+PROBLEMCODINGVERSION
+"DATA",170,11,1)
+//ContinuityOfCareRecord/Body/Problems/Problem/Description/Code/Version
+"DATA",170,11,4)
+^CV
+"DATA",170,11,6,0)
+^170.08S^1^1
+"DATA",170,11,6,1,0)
+ICD
+"DATA",170,11,6,1,1,0)
+^170.81^5^5^3081123^^
+"DATA",170,11,6,1,1,1,0)
+The ICD9 codes for problems are retrieved from the patient record by 
+"DATA",170,11,6,1,1,2,0)
+using the remote procedure call LIST^ORQQPL3. The value is in the 4th 
+"DATA",170,11,6,1,1,3,0)
+piece of the return array for the problem.
+"DATA",170,11,6,1,1,4,0)
+ 
+"DATA",170,11,6,1,1,5,0)
+          . S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
+"DATA",170,11,7)
+N^PROBLEMS^^5
+"DATA",170,12,0)
+PROBLEMSOURCEACTORID
+"DATA",170,12,1)
+//ContinuityOfCareRecord/Body/Problems/Problem/Source/Actor/ActorID
+"DATA",170,12,4)
+^ID
+"DATA",170,12,7)
+N^PROBLEMS^^5
+"DATA",170,13,0)
+FAMILYHISTORYOBJECTID
+"DATA",170,13,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/CCRDataObjectID
+"DATA",170,13,4)
+^ID
+"DATA",170,13,7)
+X^FAM^^12
+"DATA",170,14,0)
+FAMILYHISTORYACTORID
+"DATA",170,14,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Source/Actor/ActorID
+"DATA",170,14,4)
+^ID
+"DATA",170,14,7)
+X^FAM^^12
+"DATA",170,15,0)
+FAMILYMEMBERACTORID
+"DATA",170,15,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/ActorID
+"DATA",170,15,4)
+^ID
+"DATA",170,15,7)
+X^FAM^^12
+"DATA",170,16,0)
+FAMILYMEMBERACTORROLETEXT
+"DATA",170,16,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/ActorRole/Text
+"DATA",170,16,4)
+^V
+"DATA",170,16,7)
+X^FAM^^12
+"DATA",170,17,0)
+FAMILYMEMBERSOURCACTORID
+"DATA",170,17,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/FamilyMember/Source/Actor/ActorID
+"DATA",170,17,4)
+^ID
+"DATA",170,17,7)
+X^FAM^^12
+"DATA",170,18,0)
+FAMILYMEMBERPROBLEMDESCRIPTION
+"DATA",170,18,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Text
+"DATA",170,18,4)
+^
+"DATA",170,18,7)
+X^FAM^^12
+"DATA",170,19,0)
+FAMILYMEMBERPROBLEMCODE
+"DATA",170,19,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/Value
+"DATA",170,19,4)
+^
+"DATA",170,19,7)
+X^FAM^^12
+"DATA",170,20,0)
+FAMILYMEMBERCODESYSTEM
+"DATA",170,20,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/CodingSystem
+"DATA",170,20,4)
+^
+"DATA",170,20,7)
+X^FAM^^12
+"DATA",170,21,0)
+FAMILYMEMBERCODEVERSION
+"DATA",170,21,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/Version
+"DATA",170,21,4)
+^CV
+"DATA",170,21,7)
+X^FAM^^12
+"DATA",170,22,0)
+FAMILYMEMBERPROBLEMSOURCEID
+"DATA",170,22,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Source/Actor/ActorID
+"DATA",170,22,4)
+^ID
+"DATA",170,22,7)
+X^FAM^^12
+"DATA",170,23,0)
+SOCIALHISTORYOBJECTID
+"DATA",170,23,4)
+^ID
+"DATA",170,23,7)
+X^SOC^^13
+"DATA",170,24,0)
+SOCIALHISTORYTYPETEXT
+"DATA",170,24,4)
+^
+"DATA",170,24,7)
+X^SOC^^13
+"DATA",170,25,0)
+SOCIALHISTORYDESCRIPTIONTEXT
+"DATA",170,25,4)
+^
+"DATA",170,25,7)
+X^SOC^^13
+"DATA",170,26,0)
+SOCIALHISTORYSOURCACTORID
+"DATA",170,26,4)
+^ID
+"DATA",170,26,7)
+X^SOC^^13
+"DATA",170,27,0)
+ALERTOBJECTID
+"DATA",170,27,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/CCRDataObjectID
+"DATA",170,27,4)
+^ID
+"DATA",170,27,5,0)
+^^1^1^3081120^
+"DATA",170,27,5,1,0)
+Unique (in the document) ObjectID for the Alert
+"DATA",170,27,7)
+N^ALERTS^ALERTS^4
+"DATA",170,28,0)
+ALERTDESCRIPTIONTEXT
+"DATA",170,28,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Description/Text
+"DATA",170,28,4)
+^V
+"DATA",170,28,5,0)
+^170.01^6^6^3081122^^
+"DATA",170,28,5,1,0)
+An instance of CodedDescriptionType that
+"DATA",170,28,5,2,0)
+supports a free text string, a structured text
+"DATA",170,28,5,3,0)
+string or strings, or a structured and coded
+"DATA",170,28,5,4,0)
+text string or strings. It is recommended
+"DATA",170,28,5,5,0)
+that, when possible, all instances of <Alert>
+"DATA",170,28,5,6,0)
+be coded with SNOMED CT
+"DATA",170,28,7)
+I^ALERTS^^4
+"DATA",170,29,0)
+ALERTCODEVALUE^6.06
+"DATA",170,29,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Description/Code/Value
+"DATA",170,29,4)
+^CD^Reaction Coded
+"DATA",170,29,5,0)
+^^1^1^3081120^
+"DATA",170,29,5,1,0)
+Code Value for the Alert Reaction
+"DATA",170,29,7)
+N^ALERTS^^4
+"DATA",170,30,0)
+ALERTCODESYSTEM^6.06
+"DATA",170,30,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Description/Code/CodingSystem
+"DATA",170,30,4)
+^CS^Reaction Coded
+"DATA",170,30,5,0)
+^170.01^1^1^3081120^^
+"DATA",170,30,5,1,0)
+Coding System for the Alert Reaction Code
+"DATA",170,30,6,0)
+^170.08S^1^1
+"DATA",170,30,6,1,0)
+SNO
+"DATA",170,30,6,1,1,0)
+^^17^17^3081121^
+"DATA",170,30,6,1,1,1,0)
+The Alerts Reaction SNOMED CT code
+"DATA",170,30,6,1,1,2,0)
+is assigned by the extraction as one of two
+"DATA",170,30,6,1,1,3,0)
+values based on the MECHANISM field in the PATIENT ALLERGY file 120.8.
+"DATA",170,30,6,1,1,4,0)
+ 
+"DATA",170,30,6,1,1,5,0)
+The codes are 
+"DATA",170,30,6,1,1,6,0)
+ 
+"DATA",170,30,6,1,1,7,0)
+282100009 for Adverse Reaction to a Substance
+"DATA",170,30,6,1,1,8,0)
+418634005 for Allergic Reaction to a substance
+"DATA",170,30,6,1,1,9,0)
+ 
+"DATA",170,30,6,1,1,10,0)
+ . N A2 S A2=$$GET1^DIQ(120.8,ALTTMP,"MECHANISM","I") ; MECHANISM
+"DATA",170,30,6,1,1,11,0)
+ 
+"DATA",170,30,6,1,1,12,0)
+ . S ADT=ADT_$S(A2="P":"ADVERSE",A2="A":"ALLERGIC",1:"UNKNOWN")
+"DATA",170,30,6,1,1,13,0)
+ 
+"DATA",170,30,6,1,1,14,0)
+ . S ALTCDE=$S(A2="P":"282100009",A2="A":"418634005",1:"") ;
+"DATA",170,30,6,1,1,15,0)
+ 
+"DATA",170,30,6,1,1,16,0)
+In a future patch, it is planned to retrieve these codes from a C0CCODES 
+"DATA",170,30,6,1,1,17,0)
+file for easier maintenance.
+"DATA",170,30,7)
+N^ALERTS^^4
+"DATA",170,31,0)
+ALERTSTATUSTEXT
+"DATA",170,31,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Status/Text
+"DATA",170,31,4)
+^
+"DATA",170,31,7)
+N^ALERTS^^4
+"DATA",170,32,0)
+ALERTSOURCEID
+"DATA",170,32,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Source/Actor/ActorID
+"DATA",170,32,4)
+^ID
+"DATA",170,32,5,0)
+^^1^1^3081120^
+"DATA",170,32,5,1,0)
+Source Actor for the Alert
+"DATA",170,32,7)
+N^ALERTS^^4
+"DATA",170,33,0)
+ALERTAGENTPRODUCTOBJECTID
+"DATA",170,33,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/CCRDataObjectID
+"DATA",170,33,4)
+^ID
+"DATA",170,33,5,0)
+^170.01^1^1^3081120^^
+"DATA",170,33,5,1,0)
+Object ID for the Alert Agent Product
+"DATA",170,33,7)
+N^ALERTS^^4
+"DATA",170,34,0)
+ALERTAGENTPRODUCTSOURCEID
+"DATA",170,34,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/Source/Actor/ActorID
+"DATA",170,34,4)
+^ID
+"DATA",170,34,5,0)
+^^1^1^3081120^
+"DATA",170,34,5,1,0)
+Source Object ID for the Alert Agent Product
+"DATA",170,34,7)
+N^ALERTS^^4
+"DATA",170,35,0)
+ALERTAGENTPRODUCTNAMETEXT^6.03
+"DATA",170,35,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/ProductName/Text
+"DATA",170,35,4)
+^V^Product Free-Text
+"DATA",170,35,7)
+N^ALERTS^^4
+"DATA",170,36,0)
+ALERTAGENTPRODUCTCODEVALUE^6.04
+"DATA",170,36,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/ProductName/Code/Value
+"DATA",170,36,4)
+^CD^Product Coded
+"DATA",170,36,7)
+N^ALERTS^ALERTSCODE^4
+"DATA",170,37,0)
+ALERTAGENTPRODUCTCODESYSTEM
+"DATA",170,37,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Agent/Products/Product/ProductName/Code/CodingSystem
+"DATA",170,37,4)
+^
+"DATA",170,37,6,0)
+^170.08S^1^1
+"DATA",170,37,6,1,0)
+VUI
+"DATA",170,37,6,1,1,0)
+^^22^22^3081121^
+"DATA",170,37,6,1,1,1,0)
+The VUID code for Alerts Agent Product (Reactant) is 
+"DATA",170,37,6,1,1,2,0)
+retrieved from the PATIENT ALLERGY file where
+"DATA",170,37,6,1,1,3,0)
+it is found using a variable pointer to several files which have a VUID 
+"DATA",170,37,6,1,1,4,0)
+index. 
+"DATA",170,37,6,1,1,5,0)
+ 
+"DATA",170,37,6,1,1,6,0)
+ . S ACGL1=$P(@ALTG@(ALTTMP),U,9) ; ADDRESS OF THE REACTANT XX;GLB(YY.Z,
+"DATA",170,37,6,1,1,7,0)
+ . S ACGFI=$$PRSGLB($P(ACGL1,";",2)) ; FILE NUMBER
+"DATA",170,37,6,1,1,8,0)
+ . S ACIEN=$P(ACGL1,";",1) ; IEN OF REACTANT
+"DATA",170,37,6,1,1,9,0)
+ . S ACVUID=$$GET1^DIQ(ACGFI,ACIEN,"VUID") ; VUID OF THE REACTANT
+"DATA",170,37,6,1,1,10,0)
+ 
+"DATA",170,37,6,1,1,11,0)
+[the following is copied from the Technical Description of field 1 GMR 
+"DATA",170,37,6,1,1,12,0)
+ALLERGY of the PATIENT ALLERGY file]
+"DATA",170,37,6,1,1,13,0)
+This field is a variable pointer to help relate this allergy to some
+"DATA",170,37,6,1,1,14,0)
+record in one of the files to which this field points.  The files that are
+"DATA",170,37,6,1,1,15,0)
+pointed to are the GMR Allergies (120.82) file, National Drug (50.6) file,
+"DATA",170,37,6,1,1,16,0)
+Drug (50) file, Drug Ingredients (50.416) file and VA Drug Class
+"DATA",170,37,6,1,1,17,0)
+(50.605) file.
+"DATA",170,37,6,1,1,18,0)
+ 
+"DATA",170,37,6,1,1,19,0)
+In a future patch, the resulting VUID code will be used to retrieve a 
+"DATA",170,37,6,1,1,20,0)
+RXNORM code from the C0CCODES file. The RXNORM mapping
+"DATA",170,37,6,1,1,21,0)
+has been done by the
+"DATA",170,37,6,1,1,22,0)
+VA for 10,449 VUID code values.
+"DATA",170,37,7)
+N^ALERTS^^4
+"DATA",170,38,0)
+ALERTREACTIOINDESCRIPTIONTEXT^6.05
+"DATA",170,38,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Reaction/Description/Text
+"DATA",170,38,4)
+^V^Reaction Free-Text
+"DATA",170,38,5,0)
+^170.01^1^1^3081122^^
+"DATA",170,38,5,1,0)
+Alert Reaction Description Text - derived from the code
+"DATA",170,38,7)
+I^ALERTS^^4
+"DATA",170,39,0)
+ALERTREACTIONCODEVALUE
+"DATA",170,39,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Reaction/Description/Code/Value
+"DATA",170,39,4)
+^CD
+"DATA",170,39,7)
+N^ALERTS^^4
+"DATA",170,40,0)
+ALERTREACTIONCODESYSTEM
+"DATA",170,40,1)
+//ContinuityOfCareRecord/Body/Alerts/Alert/Reaction/Description/Code/CodingSystem
+"DATA",170,40,4)
+^
+"DATA",170,40,7)
+N^ALERTS^^4
+"DATA",170,41,0)
+MEDOBJECTID
+"DATA",170,41,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/CCRDataObjectID
+"DATA",170,41,4)
+^ID
+"DATA",170,41,7)
+N^MEDS^MEDS^7
+"DATA",170,42,0)
+MEDISSUEDATETXT
+"DATA",170,42,4)
+^
+"DATA",170,42,7)
+N
+"DATA",170,43,0)
+MEDISSUEDATE
+"DATA",170,43,4)
+^
+"DATA",170,43,7)
+N
+"DATA",170,44,0)
+MEDLASTFILLDATETXT
+"DATA",170,44,4)
+^
+"DATA",170,44,7)
+N
+"DATA",170,45,0)
+MEDLASTFILLDATE
+"DATA",170,45,4)
+^
+"DATA",170,45,7)
+N
+"DATA",170,46,0)
+MEDRXNOTXT
+"DATA",170,46,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/IDs/Type/Text
+"DATA",170,46,4)
+^
+"DATA",170,46,7)
+N^MEDS^^7
+"DATA",170,47,0)
+MEDRXNO
+"DATA",170,47,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/IDs/ID
+"DATA",170,47,4)
+^
+"DATA",170,47,7)
+N^MEDS^^7
+"DATA",170,48,0)
+MEDTYPETEXT
+"DATA",170,48,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Type/Text
+"DATA",170,48,4)
+^
+"DATA",170,48,7)
+N^MEDS^^7
+"DATA",170,49,0)
+MEDDETAILUNADORNED
+"DATA",170,49,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Description/Text
+"DATA",170,49,4)
+^
+"DATA",170,49,7)
+N^MEDS^^7
+"DATA",170,50,0)
+MEDSTATUSTEXT
+"DATA",170,50,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Status/Text
+"DATA",170,50,4)
+^
+"DATA",170,50,7)
+N^MEDS^^7
+"DATA",170,51,0)
+MEDSOURCEACTORID
+"DATA",170,51,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Source/Actor/ActorID
+"DATA",170,51,4)
+^ID
+"DATA",170,51,7)
+N^MEDS^^7
+"DATA",170,52,0)
+MEDPRODUCTNAMETEXT
+"DATA",170,52,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Text
+"DATA",170,52,4)
+^
+"DATA",170,52,7)
+N^MEDS^^7
+"DATA",170,53,0)
+MEDPRODUCTNAMECODEVALUE
+"DATA",170,53,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Code/Value
+"DATA",170,53,4)
+^CD
+"DATA",170,53,7)
+N^MEDS^MEDSCODE^7
+"DATA",170,54,0)
+MEDPRODUCTNAMECODINGINGSYSTEM
+"DATA",170,54,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Code/CodingSystem
+"DATA",170,54,4)
+^
+"DATA",170,54,7)
+N^MEDS^^7
+"DATA",170,55,0)
+MEDPRODUCTNAMECODEVERSION
+"DATA",170,55,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/ProductName/Code/Version
+"DATA",170,55,4)
+^CV
+"DATA",170,55,7)
+N^MEDS^^7
+"DATA",170,56,0)
+MEDBRANDNAMETEXT
+"DATA",170,56,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/BrandName/Text
+"DATA",170,56,4)
+^
+"DATA",170,56,7)
+N^MEDS^^7
+"DATA",170,57,0)
+MEDSTRENGTHVALUE
+"DATA",170,57,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Strength/Value
+"DATA",170,57,4)
+^
+"DATA",170,57,7)
+N^MEDS^^7
+"DATA",170,58,0)
+MEDSTRENGTHUNIT
+"DATA",170,58,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Strength/Units/Unit
+"DATA",170,58,4)
+^
+"DATA",170,58,7)
+N^MEDS^^7
+"DATA",170,59,0)
+MEDFORMTEXT
+"DATA",170,59,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Form/Text
+"DATA",170,59,4)
+^
+"DATA",170,59,7)
+N^MEDS^^7
+"DATA",170,60,0)
+MEDCONCVALUE
+"DATA",170,60,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Concentration/Value
+"DATA",170,60,4)
+^
+"DATA",170,60,7)
+N^MEDS^^7
+"DATA",170,61,0)
+MEDCONCUNIT
+"DATA",170,61,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Concentration/Units/Unit
+"DATA",170,61,4)
+^
+"DATA",170,61,7)
+N^MEDS^^7
+"DATA",170,62,0)
+MEDSIZETEXT
+"DATA",170,62,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Size/Text
+"DATA",170,62,4)
+^
+"DATA",170,62,7)
+N^MEDS^^7
+"DATA",170,63,0)
+MEDQUANTITYVALUE
+"DATA",170,63,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Value
+"DATA",170,63,4)
+^
+"DATA",170,63,7)
+N^MEDS^^7
+"DATA",170,64,0)
+MEDQUANTITYUNIT
+"DATA",170,64,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Units/Unit
+"DATA",170,64,4)
+^
+"DATA",170,64,7)
+N^MEDS^^7
+"DATA",170,65,0)
+MEDDIRECTIONDESCRIPTIONTEXT
+"DATA",170,65,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Description/Text
+"DATA",170,65,4)
+^
+"DATA",170,65,7)
+N^DIR^^8
+"DATA",170,66,0)
+MEDDOSEINDICATOR
+"DATA",170,66,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DoseIndicator/Text
+"DATA",170,66,4)
+^
+"DATA",170,66,7)
+N^DIR^^8
+"DATA",170,67,0)
+MEDDELIVERYMETHOD
+"DATA",170,67,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DeliveryMethod/Text
+"DATA",170,67,4)
+^
+"DATA",170,67,7)
+N^DIR^^8
+"DATA",170,68,0)
+MEDDOSEVALUE
+"DATA",170,68,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Value
+"DATA",170,68,4)
+^
+"DATA",170,68,7)
+N^DIR^^8
+"DATA",170,69,0)
+MEDDOSEUNIT
+"DATA",170,69,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Units/Unit
+"DATA",170,69,4)
+^
+"DATA",170,69,7)
+N^DIR^^8
+"DATA",170,70,0)
+MEDRATEVALUE
+"DATA",170,70,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Rate/Value
+"DATA",170,70,4)
+^
+"DATA",170,70,7)
+N^DIR^^8
+"DATA",170,71,0)
+MEDRATEUNIT
+"DATA",170,71,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Dose/Rate/Units/Unit
+"DATA",170,71,4)
+^
+"DATA",170,71,7)
+N^DIR^^8
+"DATA",170,72,0)
+MEDVEHICLETEXT
+"DATA",170,72,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Vehicle/Text
+"DATA",170,72,4)
+^
+"DATA",170,72,7)
+N^DIR^^8
+"DATA",170,73,0)
+MEDDIRECTIONROUTETEXT
+"DATA",170,73,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Route/Text
+"DATA",170,73,4)
+^
+"DATA",170,73,7)
+N^DIR^^8
+"DATA",170,74,0)
+MEDFREQUENCYVALUE
+"DATA",170,74,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Frequency/Value
+"DATA",170,74,4)
+^
+"DATA",170,74,7)
+N^DIR^^8
+"DATA",170,75,0)
+MEDINTERVALVALUE
+"DATA",170,75,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Interval/Value
+"DATA",170,75,4)
+^
+"DATA",170,75,7)
+N^DIR^^8
+"DATA",170,76,0)
+MEDINTERVALUNIT
+"DATA",170,76,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Interval/Units/Unit
+"DATA",170,76,4)
+^
+"DATA",170,76,7)
+N^DIR^^8
+"DATA",170,77,0)
+MEDDURATIONVALUE
+"DATA",170,77,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Duration/Value
+"DATA",170,77,4)
+^
+"DATA",170,77,7)
+N^DIR^^8
+"DATA",170,78,0)
+MEDDURATIONUNIT
+"DATA",170,78,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Duration/Units/Unit
+"DATA",170,78,4)
+^
+"DATA",170,78,7)
+N^DIR^^8
+"DATA",170,79,0)
+MEDPRNFLAG
+"DATA",170,79,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/PRNFlag/Text
+"DATA",170,79,4)
+^
+"DATA",170,79,7)
+N^DIR^^8
+"DATA",170,80,0)
+MEDPROBLEMOBJECTID
+"DATA",170,80,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/CCRDataObjectID
+"DATA",170,80,4)
+^ID
+"DATA",170,80,7)
+N^DIR^^8
+"DATA",170,81,0)
+MEDPROBLEMTYPETXT
+"DATA",170,81,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Type/Text
+"DATA",170,81,4)
+^
+"DATA",170,81,7)
+N^DIR^^8
+"DATA",170,82,0)
+MEDPROBLEMDESCRIPTION
+"DATA",170,82,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Text
+"DATA",170,82,4)
+^
+"DATA",170,82,7)
+N^DIR^^8
+"DATA",170,83,0)
+MEDPROBLEMCODEVALUE
+"DATA",170,83,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Code/Value
+"DATA",170,83,4)
+^CD
+"DATA",170,83,7)
+N^DIR^^8
+"DATA",170,84,0)
+MEDPROBLEMCODINGSYSTEM
+"DATA",170,84,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Code/CodingSystem
+"DATA",170,84,4)
+^CS
+"DATA",170,84,7)
+N^DIR^^8
+"DATA",170,85,0)
+MEDPROBLEMCODINGVERSION
+"DATA",170,85,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Description/Code/Version
+"DATA",170,85,4)
+^
+"DATA",170,85,7)
+N^DIR^^8
+"DATA",170,86,0)
+MEDPROBLEMSOURCEACTORID
+"DATA",170,86,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Indication/Problem/Source/Actor/ActorID
+"DATA",170,86,4)
+^ID
+"DATA",170,86,7)
+N^DIR^^8
+"DATA",170,87,0)
+MEDSTOPINDICATOR
+"DATA",170,87,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/StopIndicator/Text
+"DATA",170,87,4)
+^
+"DATA",170,87,7)
+N^DIR^^8
+"DATA",170,88,0)
+MEDDIRSEQ
+"DATA",170,88,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DirectionSequenceModifier
+"DATA",170,88,4)
+^
+"DATA",170,88,7)
+N^DIR^^8
+"DATA",170,89,0)
+MEDMULDIRMOD
+"DATA",170,89,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/MultipleDirectionModifier/Text
+"DATA",170,89,4)
+^
+"DATA",170,89,7)
+N^DIR^^8
+"DATA",170,90,0)
+MEDPTINSTRUCTIONS
+"DATA",170,90,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/PatientInstructions/Instruction
+"DATA",170,90,4)
+^
+"DATA",170,90,7)
+N^MEDS^^7
+"DATA",170,91,0)
+MEDFULLFILLMENTINSTRUCTIONS
+"DATA",170,91,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/FullfillmentInstructions/Text
+"DATA",170,91,4)
+^
+"DATA",170,91,7)
+N^MEDS^^7
+"DATA",170,92,0)
+MEDRFNO
+"DATA",170,92,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Refills/Refill/Number
+"DATA",170,92,4)
+^
+"DATA",170,92,7)
+N^MEDS^^7
+"DATA",170,93,0)
+VITALSIGNSDATAOBJECTID
+"DATA",170,93,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/CCRDataObjectID
+"DATA",170,93,4)
+^ID
+"DATA",170,93,7)
+N^VITALS^VITALS^11
+"DATA",170,94,0)
+VITALSIGNSDATETIMETYPETEXT
+"DATA",170,94,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/DateTime/Type/Text
+"DATA",170,94,4)
+^DT
+"DATA",170,94,7)
+N^VITALS^^11
+"DATA",170,95,0)
+VITALSIGNSEXACTDATETIME
+"DATA",170,95,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/DateTime/ExactDateTime
+"DATA",170,95,4)
+^DT
+"DATA",170,95,7)
+N^VITALS^^11
+"DATA",170,96,0)
+VITALSIGNSSOURCEACTORID
+"DATA",170,96,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Source/Actor/ActorID
+"DATA",170,96,4)
+^ID
+"DATA",170,96,7)
+N^VITALS^^11
+"DATA",170,97,0)
+VITALSIGNSTESTOBJECTID
+"DATA",170,97,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/CCRDataObjectID
+"DATA",170,97,4)
+^ID
+"DATA",170,97,7)
+N^VITALS^^11
+"DATA",170,98,0)
+VITALSIGNSTESTTYPETEXT
+"DATA",170,98,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Type/Text
+"DATA",170,98,4)
+^
+"DATA",170,98,7)
+N^VITALS^^11
+"DATA",170,99,0)
+VITALSIGNSDESCRIPTIONTEXT
+"DATA",170,99,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Text
+"DATA",170,99,4)
+^
+"DATA",170,99,7)
+N^VITALS^^11
+"DATA",170,100,0)
+VITALSIGNSDESCRIPTIONCODEVALUE
+"DATA",170,100,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/Value
+"DATA",170,100,4)
+^CD
+"DATA",170,100,6,0)
+^170.08S^1^1
+"DATA",170,100,6,1,0)
+SNO
+"DATA",170,100,6,1,1,0)
+^^26^26^3081121^
+"DATA",170,100,6,1,1,1,0)
+The SNOMED CT codes for Vitals are assigned by the extraction according 
+"DATA",170,100,6,1,1,2,0)
+to the vital signs supported in VistA as follows:
+"DATA",170,100,6,1,1,3,0)
+ 
+"DATA",170,100,6,1,1,4,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
+"DATA",170,100,6,1,1,5,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
+"DATA",170,100,6,1,1,6,0)
+ 
+"DATA",170,100,6,1,1,7,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
+"DATA",170,100,6,1,1,8,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
+"DATA",170,100,6,1,1,9,0)
+ 
+"DATA",170,100,6,1,1,10,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
+"DATA",170,100,6,1,1,11,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
+"DATA",170,100,6,1,1,12,0)
+ 
+"DATA",170,100,6,1,1,13,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
+"DATA",170,100,6,1,1,14,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
+"DATA",170,100,6,1,1,15,0)
+ 
+"DATA",170,100,6,1,1,16,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
+"DATA",170,100,6,1,1,17,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
+"DATA",170,100,6,1,1,18,0)
+ 
+"DATA",170,100,6,1,1,19,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
+"DATA",170,100,6,1,1,20,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
+"DATA",170,100,6,1,1,21,0)
+ 
+"DATA",170,100,6,1,1,22,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
+"DATA",170,100,6,1,1,23,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
+"DATA",170,100,6,1,1,24,0)
+ 
+"DATA",170,100,6,1,1,25,0)
+It is planned that these codes be retrieved from a C0CCODES FILE in a 
+"DATA",170,100,6,1,1,26,0)
+future patch for easier maintenance.
+"DATA",170,100,7)
+N^VITALS^^11
+"DATA",170,101,0)
+VITALSIGNSDESCRIPTIONCODINGSYSTEM
+"DATA",170,101,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/CodingSystem
+"DATA",170,101,4)
+^CS
+"DATA",170,101,6,0)
+^170.08S^1^1
+"DATA",170,101,6,1,0)
+SNO
+"DATA",170,101,6,1,1,0)
+^^26^26^3081121^
+"DATA",170,101,6,1,1,1,0)
+The SNOMED CT codes for Vitals are assigned by the extraction according 
+"DATA",170,101,6,1,1,2,0)
+to the vital signs supported in VistA as follows:
+"DATA",170,101,6,1,1,3,0)
+ 
+"DATA",170,101,6,1,1,4,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
+"DATA",170,101,6,1,1,5,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
+"DATA",170,101,6,1,1,6,0)
+ 
+"DATA",170,101,6,1,1,7,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
+"DATA",170,101,6,1,1,8,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
+"DATA",170,101,6,1,1,9,0)
+ 
+"DATA",170,101,6,1,1,10,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
+"DATA",170,101,6,1,1,11,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
+"DATA",170,101,6,1,1,12,0)
+ 
+"DATA",170,101,6,1,1,13,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
+"DATA",170,101,6,1,1,14,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
+"DATA",170,101,6,1,1,15,0)
+ 
+"DATA",170,101,6,1,1,16,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
+"DATA",170,101,6,1,1,17,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
+"DATA",170,101,6,1,1,18,0)
+ 
+"DATA",170,101,6,1,1,19,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
+"DATA",170,101,6,1,1,20,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
+"DATA",170,101,6,1,1,21,0)
+ 
+"DATA",170,101,6,1,1,22,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
+"DATA",170,101,6,1,1,23,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
+"DATA",170,101,6,1,1,24,0)
+ 
+"DATA",170,101,6,1,1,25,0)
+It is planned that these codes be retrieved from a C0CCODES FILE in a 
+"DATA",170,101,6,1,1,26,0)
+future patch for easier maintenance.
+"DATA",170,101,7)
+N^VITALS
+"DATA",170,102,0)
+VITALSIGNSCODEVERSION
+"DATA",170,102,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/Version
+"DATA",170,102,4)
+^CV
+"DATA",170,102,6,0)
+^170.08S^1^1
+"DATA",170,102,6,1,0)
+SNO
+"DATA",170,102,6,1,1,0)
+^^26^26^3081121^
+"DATA",170,102,6,1,1,1,0)
+The SNOMED CT codes for Vitals are assigned by the extraction according 
+"DATA",170,102,6,1,1,2,0)
+to the vital signs supported in VistA as follows:
+"DATA",170,102,6,1,1,3,0)
+ 
+"DATA",170,102,6,1,1,4,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
+"DATA",170,102,6,1,1,5,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
+"DATA",170,102,6,1,1,6,0)
+ 
+"DATA",170,102,6,1,1,7,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
+"DATA",170,102,6,1,1,8,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
+"DATA",170,102,6,1,1,9,0)
+ 
+"DATA",170,102,6,1,1,10,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
+"DATA",170,102,6,1,1,11,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
+"DATA",170,102,6,1,1,12,0)
+ 
+"DATA",170,102,6,1,1,13,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
+"DATA",170,102,6,1,1,14,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
+"DATA",170,102,6,1,1,15,0)
+ 
+"DATA",170,102,6,1,1,16,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
+"DATA",170,102,6,1,1,17,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
+"DATA",170,102,6,1,1,18,0)
+ 
+"DATA",170,102,6,1,1,19,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
+"DATA",170,102,6,1,1,20,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
+"DATA",170,102,6,1,1,21,0)
+ 
+"DATA",170,102,6,1,1,22,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
+"DATA",170,102,6,1,1,23,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
+"DATA",170,102,6,1,1,24,0)
+ 
+"DATA",170,102,6,1,1,25,0)
+It is planned that these codes be retrieved from a C0CCODES FILE in a 
+"DATA",170,102,6,1,1,26,0)
+future patch for easier maintenance.
+"DATA",170,102,7)
+N^VITALS^^11
+"DATA",170,103,0)
+VITALSIGNSTESTSOURCEACTORID
+"DATA",170,103,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Source/Actor/ActorID
+"DATA",170,103,4)
+^ID
+"DATA",170,103,7)
+N^VITALS^^11
+"DATA",170,104,0)
+VITALSIGNSTESTRESULTVALUE
+"DATA",170,104,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/TestResult/Value
+"DATA",170,104,4)
+^
+"DATA",170,104,7)
+N^VITALS^^11
+"DATA",170,105,0)
+VITALSIGNSTESTRESULTUNIT
+"DATA",170,105,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/TestResult/Units/Unit
+"DATA",170,105,4)
+^
+"DATA",170,105,7)
+N^VITALS^^11
+"DATA",170,106,0)
+RESULTOBJECTID
+"DATA",170,106,1)
+//ContinuityOfCareRecord/Body/Results/Result/CCRDataObjectID
+"DATA",170,106,4)
+^ID
+"DATA",170,106,7)
+N^LABS^RESULTS^14
+"DATA",170,107,0)
+RESULTASSESSMENTDATETIME
+"DATA",170,107,1)
+//ContinuityOfCareRecord/Body/Results/Result/DateTime/ExactDateTime
+"DATA",170,107,3,0)
+^^4^4^3081122^
+"DATA",170,107,3,1,0)
+The result assessment time is pulled from OBR7 of the HL7 message for LABS
+"DATA",170,107,3,2,0)
+ 
+"DATA",170,107,3,3,0)
+ S X("OBR","OBR7")="7^00241^Observation 
+"DATA",170,107,3,4,0)
+Date/Time^RESULTASSESSMENTDATETIME"
+"DATA",170,107,4)
+^DT
+"DATA",170,107,5,0)
+^^4^4^3081122^
+"DATA",170,107,5,1,0)
+The result assessment date is pulled from OB7 of the HL7 message for LABS.
+"DATA",170,107,5,2,0)
+ 
+"DATA",170,107,5,3,0)
+ S X("OBR","OBR7")="7^00241^Observation 
+"DATA",170,107,5,4,0)
+Date/Time^RESULTASSESSMENTDATETIME"
+"DATA",170,107,7)
+I^LABS^^14
+"DATA",170,108,0)
+RESULTDESCRIPTIONTEXT
+"DATA",170,108,1)
+//ContinuityOfCareRecord/Body/Results/Result/Description/Text
+"DATA",170,108,4)
+^
+"DATA",170,108,7)
+N^LABS^^14
+"DATA",170,109,0)
+RESULTCODE
+"DATA",170,109,1)
+//ContinuityOfCareRecord/Body/Results/Result/Description/Code/Value
+"DATA",170,109,3,0)
+^^5^5^3081122^
+"DATA",170,109,3,1,0)
+The result code is pulled from OBR4 piece 1 of the HL7 message for LABS. 
+"DATA",170,109,3,2,0)
+ 
+"DATA",170,109,3,3,0)
+ 
+"DATA",170,109,3,4,0)
+ S X("OBR","OBR4;LOINC")="4;1^00238^Universal Service ID - 
+"DATA",170,109,3,5,0)
+LOINC^RESULTCODE"
+"DATA",170,109,4)
+^CD
+"DATA",170,109,6,0)
+^170.08S^1^1
+"DATA",170,109,6,1,0)
+LN
+"DATA",170,109,6,1,1,0)
+^170.81^4^4^3081122^^^
+"DATA",170,109,6,1,1,1,0)
+The result code is a LOINC passed in OBR4 piece 1 of the HL7 message.
+"DATA",170,109,6,1,1,2,0)
+ 
+"DATA",170,109,6,1,1,3,0)
+ S X("OBR","OBR4;LOINC")="4;1^00238^Universal Service ID - 
+"DATA",170,109,6,1,1,4,0)
+LOINC^RESULTCODE"
+"DATA",170,109,7)
+I^LABS^^14
+"DATA",170,110,0)
+RESULTCODINGSYSTEM
+"DATA",170,110,1)
+//ContinuityOfCareRecord/Body/Results/Result/Description/Code/CodingSystem
+"DATA",170,110,4)
+^CS
+"DATA",170,110,7)
+N^LABS^^14
+"DATA",170,111,0)
+RESULTSTATUS
+"DATA",170,111,1)
+//ContinuityOfCareRecord/Body/Results/Result/Status/Text
+"DATA",170,111,4)
+^
+"DATA",170,111,7)
+N^LABS^^14
+"DATA",170,112,0)
+RESULTSOURCEACTORID
+"DATA",170,112,1)
+//ContinuityOfCareRecord/Body/Results/Result/Source/Actor/ActorID
+"DATA",170,112,4)
+^ID
+"DATA",170,112,7)
+N^LABS^^14
+"DATA",170,113,0)
+RESULTTESTOBJECTID
+"DATA",170,113,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/CCRDataObjectID
+"DATA",170,113,4)
+^ID
+"DATA",170,113,7)
+N^TEST^^10
+"DATA",170,114,0)
+RESULTTESTDATETIME
+"DATA",170,114,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/DateTime/ExactDateTime
+"DATA",170,114,4)
+^DT
+"DATA",170,114,7)
+N^TEST^^10
+"DATA",170,115,0)
+RESULTTESTDESCRIPTIONTEXT
+"DATA",170,115,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Text
+"DATA",170,115,4)
+^
+"DATA",170,115,7)
+N^TEST^^10
+"DATA",170,116,0)
+RESULTTESTCODEVALUE
+"DATA",170,116,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Code/Value
+"DATA",170,116,4)
+^CD
+"DATA",170,116,7)
+N^TEST^^10
+"DATA",170,117,0)
+RESULTTESTCODINGSYSTEM
+"DATA",170,117,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/Description/Code/CodingSystem
+"DATA",170,117,4)
+^CS
+"DATA",170,117,7)
+N^TEST^RESULTSLN^10
+"DATA",170,118,0)
+RESULTTESTSTATUSTEXT
+"DATA",170,118,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/Status/Text
+"DATA",170,118,4)
+^
+"DATA",170,118,7)
+N^TEST^^10
+"DATA",170,119,0)
+RESULTTESTSOURCEACTORID
+"DATA",170,119,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/Source/Actor/ActorID
+"DATA",170,119,4)
+^ID
+"DATA",170,119,7)
+N^TEST^^10
+"DATA",170,120,0)
+RESULTTESTVALUE
+"DATA",170,120,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/TestResult/Value
+"DATA",170,120,4)
+^
+"DATA",170,120,7)
+N^TEST^^10
+"DATA",170,121,0)
+RESULTTESTUNITS
+"DATA",170,121,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/TestResult/Units/Unit
+"DATA",170,121,4)
+^
+"DATA",170,121,7)
+N^TEST^^10
+"DATA",170,122,0)
+RESULTTESTNORMALDESCRIPTIONTEXT
+"DATA",170,122,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Description/Text
+"DATA",170,122,4)
+^
+"DATA",170,122,7)
+N^TEST
+"DATA",170,123,0)
+RESULTTESTNORMALSOURCEACTORID
+"DATA",170,123,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Source/Actor/ActorID
+"DATA",170,123,4)
+^ID
+"DATA",170,123,7)
+N^TEST^^10
+"DATA",170,124,0)
+RESULTTESTFLAG
+"DATA",170,124,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/Flag/Text
+"DATA",170,124,4)
+^
+"DATA",170,124,7)
+N^TEST^^10
+"DATA",170,125,0)
+ACTORDATEOFBIRTH
+"DATA",170,125,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Person/DateOfBirth/ExactDateTime
+"DATA",170,125,4)
+^
+"DATA",170,125,7)
+N^ACTORS^^6
+"DATA",170,126,0)
+ACTORGENDER
+"DATA",170,126,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Person/Gender/Code/Value
+"DATA",170,126,4)
+^
+"DATA",170,126,7)
+N^ACTORS^^6
+"DATA",170,127,0)
+ACTORSSNTEXT
+"DATA",170,127,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/Type/Text
+"DATA",170,127,4)
+^
+"DATA",170,127,7)
+N^ACTORS^^6
+"DATA",170,128,0)
+ACTORSSN
+"DATA",170,128,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/ID
+"DATA",170,128,4)
+^
+"DATA",170,128,7)
+N^ACTORS^^6
+"DATA",170,129,0)
+ACTORSSNSOURCEID
+"DATA",170,129,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/Source/Actor/ActorID
+"DATA",170,129,4)
+^ID
+"DATA",170,129,7)
+N^ACTORS^^6
+"DATA",170,130,0)
+ACTORADDRESSLINE2
+"DATA",170,130,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/Line2
+"DATA",170,130,4)
+^
+"DATA",170,130,7)
+N^ACTORS^^6
+"DATA",170,131,0)
+ACTORADDRESSZIPCODE
+"DATA",170,131,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/PostalCode
+"DATA",170,131,4)
+^
+"DATA",170,131,7)
+N^ACTORS^^6
+"DATA",170,132,0)
+ACTORRESTEL
+"DATA",170,132,4)
+^
+"DATA",170,132,7)
+N^ACTORS^^6
+"DATA",170,133,0)
+ACTORRESTELTEXT
+"DATA",170,133,4)
+^
+"DATA",170,133,7)
+N^ACTORS^^6
+"DATA",170,134,0)
+ACTORWORKTEL
+"DATA",170,134,4)
+^
+"DATA",170,134,7)
+N^ACTORS^^6
+"DATA",170,135,0)
+ACTORWORKTELTEXT
+"DATA",170,135,4)
+^
+"DATA",170,135,7)
+N^ACTORS^^6
+"DATA",170,136,0)
+ACTORCELLTEL
+"DATA",170,136,4)
+^
+"DATA",170,136,7)
+N^ACTORS^^6
+"DATA",170,137,0)
+ACTORCELLTELTEXT
+"DATA",170,137,4)
+^
+"DATA",170,137,7)
+N^ACTORS^^6
+"DATA",170,138,0)
+ACTORADDRESSSOURCEID
+"DATA",170,138,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Source/Actor/ActorID
+"DATA",170,138,4)
+^ID
+"DATA",170,138,7)
+N^ACTORS^^6
+"DATA",170,139,0)
+ACTORINFOSYSNAME
+"DATA",170,139,1)
+//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Name
+"DATA",170,139,4)
+^
+"DATA",170,139,7)
+N^ACTORS^^6
+"DATA",170,140,0)
+ACTORINFOSYSVER
+"DATA",170,140,1)
+//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Version
+"DATA",170,140,4)
+^
+"DATA",170,140,7)
+N^ACTORS^^6
+"DATA",170,141,0)
+ACTORINFOSYSSOURCEID
+"DATA",170,141,1)
+//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/Source/Actor/ActorID
+"DATA",170,141,4)
+^ID
+"DATA",170,141,7)
+N^ACTORS^^6
+"DATA",170,142,0)
+ACTORDISPLAYNAME
+"DATA",170,142,1)
+//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Person/Name/DisplayName
+"DATA",170,142,4)
+^
+"DATA",170,142,7)
+N^ACTORS^^6
+"DATA",170,143,0)
+ACTORRELATION
+"DATA",170,143,1)
+//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Relation/Text
+"DATA",170,143,4)
+^
+"DATA",170,143,7)
+N^ACTORS^^6
+"DATA",170,144,0)
+ACTORRELATIONSOURCEID
+"DATA",170,144,1)
+//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Source/Actor/ActorID
+"DATA",170,144,4)
+^ID
+"DATA",170,144,7)
+N^ACTORS^^6
+"DATA",170,145,0)
+ACTORGIVENNAME
+"DATA",170,145,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Given
+"DATA",170,145,4)
+^
+"DATA",170,145,7)
+N^ACTORS^^6
+"DATA",170,146,0)
+ACTORMIDDLENAME
+"DATA",170,146,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Middle
+"DATA",170,146,4)
+^
+"DATA",170,146,7)
+N^ACTORS^^6
+"DATA",170,147,0)
+ACTORFAMILYNAME
+"DATA",170,147,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Family
+"DATA",170,147,4)
+^V
+"DATA",170,147,7)
+N^ACTORS^^6
+"DATA",170,148,0)
+ACTORTITLE
+"DATA",170,148,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Person/Name/CurrentName/Title
+"DATA",170,148,4)
+^
+"DATA",170,148,7)
+N^ACTORS^^6
+"DATA",170,149,0)
+IDTYPE
+"DATA",170,149,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/Type/Text
+"DATA",170,149,4)
+^
+"DATA",170,149,7)
+N
+"DATA",170,150,0)
+ID
+"DATA",170,150,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/ID
+"DATA",170,150,4)
+^ID
+"DATA",170,150,7)
+N
+"DATA",170,151,0)
+IDDESC
+"DATA",170,151,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/IssuedBy/Description/Text
+"DATA",170,151,4)
+^
+"DATA",170,151,7)
+N
+"DATA",170,152,0)
+ACTORSPECIALITY
+"DATA",170,152,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Specialty/Text
+"DATA",170,152,4)
+^
+"DATA",170,152,7)
+N^ACTORS^^6
+"DATA",170,153,0)
+ACTORADDRESSTYPE
+"DATA",170,153,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/Type/Text
+"DATA",170,153,4)
+^
+"DATA",170,153,7)
+N^ACTORS^^6
+"DATA",170,154,0)
+ACTORADDRESSLINE1
+"DATA",170,154,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/Line1
+"DATA",170,154,4)
+^
+"DATA",170,154,7)
+N^ACTORS^^6
+"DATA",170,155,0)
+ACTORADDRESSCITY
+"DATA",170,155,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/City
+"DATA",170,155,4)
+^
+"DATA",170,155,7)
+N^ACTORS^^6
+"DATA",170,156,0)
+ACTORADDRESSSTATE
+"DATA",170,156,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/State
+"DATA",170,156,4)
+^
+"DATA",170,156,7)
+N^ACTORS^^6
+"DATA",170,157,0)
+ACTORPOSTALCODE
+"DATA",170,157,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/PostalCode
+"DATA",170,157,4)
+^
+"DATA",170,157,7)
+N^ACTORS^^6
+"DATA",170,158,0)
+ACTORTELEPHONE
+"DATA",170,158,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Telephone/Value
+"DATA",170,158,4)
+^
+"DATA",170,158,7)
+N^ACTORS^^6
+"DATA",170,159,0)
+ACTORTELEPHONETYPE
+"DATA",170,159,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Telephone/Type/Text
+"DATA",170,159,4)
+^
+"DATA",170,159,7)
+N^ACTORS^^6
+"DATA",170,160,0)
+ACTOREMAIL
+"DATA",170,160,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Email/Value
+"DATA",170,160,4)
+^
+"DATA",170,160,7)
+N^ACTORS^^6
+"DATA",170,161,0)
+ACTOROBJECTID
+"DATA",170,161,1)
+//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/ActorObjectID
+"DATA",170,161,4)
+^ID
+"DATA",170,161,7)
+N^ACTORS^^6
+"DATA",170,162,0)
+ORGANIZATIONNAME
+"DATA",170,162,1)
+//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/Organization/Name
+"DATA",170,162,4)
+^
+"DATA",170,162,7)
+N
+"DATA",170,163,0)
+ACTORSOURCEID
+"DATA",170,163,1)
+//ContinuityOfCareRecord/Actors/ACTOR-ORG/Actor/Source/Actor/ActorID
+"DATA",170,163,4)
+^ID
+"DATA",170,163,7)
+N^ACTORS^^6
+"DATA",170,164,0)
+VITALSIGNSDESCCODEVALUE
+"DATA",170,164,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/Value
+"DATA",170,164,4)
+^CD
+"DATA",170,164,6,0)
+^170.08S^1^1
+"DATA",170,164,6,1,0)
+SNO
+"DATA",170,164,6,1,1,0)
+^^26^26^3081121^
+"DATA",170,164,6,1,1,1,0)
+The SNOMED CT codes for Vitals are assigned by the extraction according 
+"DATA",170,164,6,1,1,2,0)
+to the vital signs supported in VistA as follows:
+"DATA",170,164,6,1,1,3,0)
+ 
+"DATA",170,164,6,1,1,4,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
+"DATA",170,164,6,1,1,5,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
+"DATA",170,164,6,1,1,6,0)
+ 
+"DATA",170,164,6,1,1,7,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
+"DATA",170,164,6,1,1,8,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
+"DATA",170,164,6,1,1,9,0)
+ 
+"DATA",170,164,6,1,1,10,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
+"DATA",170,164,6,1,1,11,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
+"DATA",170,164,6,1,1,12,0)
+ 
+"DATA",170,164,6,1,1,13,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
+"DATA",170,164,6,1,1,14,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
+"DATA",170,164,6,1,1,15,0)
+ 
+"DATA",170,164,6,1,1,16,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
+"DATA",170,164,6,1,1,17,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
+"DATA",170,164,6,1,1,18,0)
+ 
+"DATA",170,164,6,1,1,19,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
+"DATA",170,164,6,1,1,20,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
+"DATA",170,164,6,1,1,21,0)
+ 
+"DATA",170,164,6,1,1,22,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
+"DATA",170,164,6,1,1,23,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
+"DATA",170,164,6,1,1,24,0)
+ 
+"DATA",170,164,6,1,1,25,0)
+It is planned that these codes be retrieved from a C0CCODES FILE in a 
+"DATA",170,164,6,1,1,26,0)
+future patch for easier maintenance.
+"DATA",170,164,7)
+N^VITALS^^11
+"DATA",170,165,0)
+VITALSIGNSDESCCODINGSYSTEM
+"DATA",170,165,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Code/CodingSystem
+"DATA",170,165,4)
+^CS
+"DATA",170,165,6,0)
+^170.08S^1^1
+"DATA",170,165,6,1,0)
+SNO
+"DATA",170,165,6,1,1,0)
+^^26^26^3081121^
+"DATA",170,165,6,1,1,1,0)
+The SNOMED CT codes for Vitals are assigned by the extraction according 
+"DATA",170,165,6,1,1,2,0)
+to the vital signs supported in VistA as follows:
+"DATA",170,165,6,1,1,3,0)
+ 
+"DATA",170,165,6,1,1,4,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
+"DATA",170,165,6,1,1,5,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
+"DATA",170,165,6,1,1,6,0)
+ 
+"DATA",170,165,6,1,1,7,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
+"DATA",170,165,6,1,1,8,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
+"DATA",170,165,6,1,1,9,0)
+ 
+"DATA",170,165,6,1,1,10,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
+"DATA",170,165,6,1,1,11,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
+"DATA",170,165,6,1,1,12,0)
+ 
+"DATA",170,165,6,1,1,13,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
+"DATA",170,165,6,1,1,14,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
+"DATA",170,165,6,1,1,15,0)
+ 
+"DATA",170,165,6,1,1,16,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
+"DATA",170,165,6,1,1,17,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
+"DATA",170,165,6,1,1,18,0)
+ 
+"DATA",170,165,6,1,1,19,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
+"DATA",170,165,6,1,1,20,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
+"DATA",170,165,6,1,1,21,0)
+ 
+"DATA",170,165,6,1,1,22,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
+"DATA",170,165,6,1,1,23,0)
+ . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
+"DATA",170,165,6,1,1,24,0)
+ 
+"DATA",170,165,6,1,1,25,0)
+It is planned that these codes be retrieved from a C0CCODES FILE in a 
+"DATA",170,165,6,1,1,26,0)
+future patch for easier maintenance.
+"DATA",170,165,7)
+I^VITALS^^11
+"DATA",170,166,0)
+RESULTTESTNORMALDESCTEXT
+"DATA",170,166,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Description/Text
+"DATA",170,166,7)
+N^TEST^^10
+"DATA",170,167,0)
+PROBLEMCONDITION
+"DATA",170,167,7)
+^^^5
+"DATA",170,168,0)
+PROBLEMDATEMOD
+"DATA",170,168,7)
+^^^5
+"DATA",170,169,0)
+PROBLEMDATEOFONSET
+"DATA",170,169,7)
+^^^5
+"DATA",170,170,0)
+PROBLEMDTREC
+"DATA",170,170,7)
+^^^5
+"DATA",170,171,0)
+PROBLEMHASCMT
+"DATA",170,171,7)
+^^^5
+"DATA",170,172,0)
+PROBLEMIEN
+"DATA",170,172,7)
+^^^5
+"DATA",170,173,0)
+PROBLEMINACT
+"DATA",170,173,7)
+^^^5
+"DATA",170,174,0)
+PROBLEMLOC
+"DATA",170,174,7)
+^^^5
+"DATA",170,175,0)
+PROBLEMLOCTYPE
+"DATA",170,175,7)
+^^^5
+"DATA",170,176,0)
+PROBLEMPROVIDER
+"DATA",170,176,7)
+^^^5
+"DATA",170,177,0)
+PROBLEMSC
+"DATA",170,177,7)
+^^^5
+"DATA",170,178,0)
+PROBLEMSE
+"DATA",170,178,7)
+^^^5
+"DATA",170,179,0)
+PROBLEMSERVICE
+"DATA",170,179,7)
+^^^5
+"DATA",170,180,0)
+PROBLEMSTATUS
+"DATA",170,180,7)
+^^^5
+"DATA",170,181,0)
+ALERTCODESYSTEMVERSION
+"DATA",170,181,7)
+^^^4
+"DATA",170,182,0)
+VITALSIGNSDESCODEVALUE
+"DATA",170,182,7)
+^^^11
+"DATA",170,183,0)
+IMMUNEDATETIME
+"DATA",170,183,7)
+^^^15
+"DATA",170,184,0)
+IMMUNEDATETIMETYPETEXT
+"DATA",170,184,7)
+^^^15
+"DATA",170,185,0)
+IMMUNEOBJECTID
+"DATA",170,185,7)
+^^^15
+"DATA",170,186,0)
+IMMUNEPRODUCTCODE
+"DATA",170,186,7)
+^^^15
+"DATA",170,187,0)
+IMMUNEPRODUCTCODESYSTEM
+"DATA",170,187,7)
+^^^15
+"DATA",170,188,0)
+IMMUNEPRODUCTNAMETEXT
+"DATA",170,188,7)
+^^^15
+"DATA",170,189,0)
+IMMUNESOURCEACTORID
+"DATA",170,189,7)
+^^^15
+"DATA",170,190,0)
+C1
+"DATA",170,190,7)
+^^^10
+"DATA",170,191,0)
+C2
+"DATA",170,191,7)
+^^^10
+"DATA",170,192,0)
+C3
+"DATA",170,192,7)
+^^^10
+"DATA",170,193,0)
+C4
+"DATA",170,193,7)
+^^^10
+"DATA",170,194,0)
+C5
+"DATA",170,194,7)
+^^^10
+"DATA",170,195,0)
+C6
+"DATA",170,195,7)
+^^^10
+"DATA",170,196,0)
+ALERTDATETIME
+"DATA",170,196,7)
+^^^4
+"DATA",170,197,0)
+ALERTTYPE
+"DATA",170,197,7)
+^^^4
+"DATA",170.101,1,0)
+HEADER^2
+"DATA",170.101,1,1,0)
+^170.1012P^3^3
+"DATA",170.101,1,1,1,0)
+3
+"DATA",170.101,1,1,2,0)
+5
+"DATA",170.101,1,1,3,0)
+7
+"DATA",170.101,2,0)
+ROOT
+"DATA",170.101,2,2,0)
+^170.1013P^1^1
+"DATA",170.101,2,2,1,0)
+1
+"DATA",170.101,3,0)
+BODY^2
+"DATA",170.101,4,0)
+ALERTS^3
+"DATA",170.101,4,1,0)
+^170.1012P^3^3
+"DATA",170.101,4,1,1,0)
+37
+"DATA",170.101,4,1,2,0)
+35
+"DATA",170.101,4,1,3,0)
+36
+"DATA",170.101,5,0)
+PROBLEMS^3
+"DATA",170.101,5,1,0)
+^170.1012P^4^4
+"DATA",170.101,5,1,1,0)
+10
+"DATA",170.101,5,1,2,0)
+11
+"DATA",170.101,5,1,3,0)
+9
+"DATA",170.101,5,1,4,0)
+8
+"DATA",170.101,6,0)
+ACTORS^2
+"DATA",170.101,6,1,0)
+^170.1012P^1^1
+"DATA",170.101,6,1,1,0)
+155
+"DATA",170.101,7,0)
+MEDS^3
+"DATA",170.101,7,1,0)
+^170.1012P^2^2
+"DATA",170.101,7,1,1,0)
+56
+"DATA",170.101,7,1,2,0)
+61
+"DATA",170.101,7,2,0)
+^170.1013P^1^1
+"DATA",170.101,7,2,1,0)
+8
+"DATA",170.101,8,0)
+DIRECTIONS^7
+"DATA",170.101,8,1,0)
+^170.1012P^2^2
+"DATA",170.101,8,1,1,0)
+65
+"DATA",170.101,8,1,2,0)
+88
+"DATA",170.101,9,0)
+RESULTS^3
+"DATA",170.101,9,1,0)
+^170.1012P^2^2
+"DATA",170.101,9,1,1,0)
+109
+"DATA",170.101,9,1,2,0)
+110
+"DATA",170.101,9,2,0)
+^170.1013P^1^1
+"DATA",170.101,9,2,1,0)
+10
+"DATA",170.101,10,0)
+TEST^14
+"DATA",170.101,10,1,0)
+^170.1012P^1^1
+"DATA",170.101,10,1,1,0)
+116
+"DATA",170.101,11,0)
+VITALS^3
+"DATA",170.101,11,1,0)
+^170.1012P^5^5
+"DATA",170.101,11,1,1,0)
+100
+"DATA",170.101,11,1,2,0)
+99
+"DATA",170.101,11,1,3,0)
+102
+"DATA",170.101,11,1,4,0)
+93
+"DATA",170.101,11,1,5,0)
+94
+"DATA",170.101,12,0)
+FAM^3
+"DATA",170.101,12,1,0)
+^170.1012P^1^1
+"DATA",170.101,12,1,1,0)
+14
+"DATA",170.101,13,0)
+SOC^3
+"DATA",170.101,13,1,0)
+^170.1012P^1^1
+"DATA",170.101,13,1,1,0)
+25
+"DATA",170.101,14,0)
+LABS^3
+"DATA",170.101,14,1,0)
+^170.1012P^1^1
+"DATA",170.101,14,1,1,0)
+109
+"DATA",170.101,14,2,0)
+^170.1013P^1^1
+"DATA",170.101,14,2,1,0)
+10
+"DATA",170.101,15,0)
+IMMUNE^3
+"DATA",171.501,1,0)
+10^2^1^5^" 1"
+"DATA",171.501,1,2)
+TEST VALUE ONE
+"DATA",171.501,2,0)
+10^2^1^5^" 2"
+"DATA",171.501,2,2)
+TEST VALUE TWO
+"DATA",171.601,1,0)
+5^2^1^" 1"
+"DATA",171.601,1,1,0)
+^171.6011P^2^2
+"DATA",171.601,1,1,1,0)
+10
+"DATA",171.601,1,1,1,1)
+FIRST PROBLEM CODE
+"DATA",171.601,1,1,2,0)
+9
+"DATA",171.601,1,1,2,1)
+FIRST PROBLEM DESCRIPTION
+"DATA",171.601,1,2)
+3090221^DOCTOR 1^^^^
+"DATA",171.601,2,0)
+5^2^1^" 2"
+"DATA",171.601,2,1,0)
+^171.6011P^2^2
+"DATA",171.601,2,1,1,0)
+10
+"DATA",171.601,2,1,1,1)
+SECOND PROBLEM CODE
+"DATA",171.601,2,1,2,0)
+9
+"DATA",171.601,2,1,2,1)
+SECOND PROBLEM DESCRIPTION
+"DATA",171.601,2,2)
+3090216^DOCTOR 2^^^^
+"DATA",171.601,3,0)
+5^2^2^" 1"
+"DATA",171.601,3,1,0)
+^171.6011P^2^2
+"DATA",171.601,3,1,1,0)
+10
+"DATA",171.601,3,1,1,1)
+SECOND SOURCE PROBLEM ONE CODE
+"DATA",171.601,3,1,2,0)
+9
+"DATA",171.601,3,1,2,1)
+SECOND SOURCE PROBLEM ONE DESCRIPTION
+"DATA",171.601,3,2)
+3090220^DOCTOR ELSEWHERE^^^^PROBLEM_1
+"FIA",170)
+CCR DICTIONARY
+"FIA",170,0)
+^C0CDIC(170,
+"FIA",170,0,0)
+170
+"FIA",170,0,1)
+y^y^f^^n^^y^o^n
+"FIA",170,0,10)
+
+"FIA",170,0,11)
+
+"FIA",170,0,"RLRO")
+
+"FIA",170,170)
+0
+"FIA",170,170.01)
+0
+"FIA",170,170.04)
+0
+"FIA",170,170.08)
+0
+"FIA",170,170.81)
+0
+"FIA",170.101)
+CCR NODE TYPE
+"FIA",170.101,0)
+^C0CDIC(170.101,
+"FIA",170.101,0,0)
+170.101
+"FIA",170.101,0,1)
+y^y^f^^n^^y^o^n
+"FIA",170.101,0,10)
+
+"FIA",170.101,0,11)
+
+"FIA",170.101,0,"RLRO")
+
+"FIA",170.101,170.101)
+0
+"FIA",170.101,170.1012)
+0
+"FIA",170.101,170.1013)
+0
+"FIA",171.101)
+CCR E2
+"FIA",171.101,0)
+^C0CE(
+"FIA",171.101,0,0)
+171.101P
+"FIA",171.101,0,1)
+y^y^f^^^^n
+"FIA",171.101,0,10)
+
+"FIA",171.101,0,11)
+
+"FIA",171.101,0,"RLRO")
+
+"FIA",171.101,171.101)
+0
+"FIA",171.101,171.111)
+0
+"FIA",171.101,171.121)
+0
+"FIA",171.101,171.131)
+0
+"FIA",171.101,171.1311)
+0
+"FIA",171.201)
+CCR VOCABULARIES
+"FIA",171.201,0)
+^C0CC(
+"FIA",171.201,0,0)
+171.201
+"FIA",171.201,0,1)
+y^y^f^^n^^y^o^n
+"FIA",171.201,0,10)
+
+"FIA",171.201,0,11)
+
+"FIA",171.201,0,"RLRO")
+
+"FIA",171.201,171.201)
+0
+"FIA",171.401)
+CCR SOURCE
+"FIA",171.401,0)
+^C0C(171.401,
+"FIA",171.401,0,0)
+171.401
+"FIA",171.401,0,1)
+y^y^f^^^^n
+"FIA",171.401,0,10)
+
+"FIA",171.401,0,11)
+
+"FIA",171.401,0,"RLRO")
+
+"FIA",171.401,171.401)
+0
+"FIA",171.401,171.4011)
+0
+"FIA",171.401,171.4012)
+0
+"FIA",171.501)
+CCR E3
+"FIA",171.501,0)
+^C0CE3(
+"FIA",171.501,0,0)
+171.501P
+"FIA",171.501,0,1)
+y^y^f^^n^^y^o^n
+"FIA",171.501,0,10)
+
+"FIA",171.501,0,11)
+
+"FIA",171.501,0,"RLRO")
+
+"FIA",171.501,171.501)
+0
+"FIA",171.601)
+CCR E4
+"FIA",171.601,0)
+^C0CE4(
+"FIA",171.601,0,0)
+171.601P
+"FIA",171.601,0,1)
+y^y^f^^n^^y^o^n
+"FIA",171.601,0,10)
+
+"FIA",171.601,0,11)
+
+"FIA",171.601,0,"RLRO")
+
+"FIA",171.601,171.601)
+0
+"FIA",171.601,171.6011)
+0
+"FIA",171.601,171.6014)
+0
+"IX",170,170,"C",0)
+170^C^A whole file cross reference of Variables by Coding System^R^^F^IR^W^170.08^^^^^LS
+"IX",170,170,"C",1)
+S ^C0CDIC(170,"C",X,DA(1),DA)=""
+"IX",170,170,"C",2)
+K ^C0CDIC(170,"C",X,DA(1),DA)
+"IX",170,170,"C",2.5)
+K ^C0CDIC(170,"C")
+"IX",170,170,"C",11.1,0)
+^.114IA^1^1
+"IX",170,170,"C",11.1,1,0)
+1^F^170.08^.01^^1^F
+"IX",170,170,"D",0)
+170^D^Regular whole file cross index by section^R^^F^IR^I^170^^^^^LS
+"IX",170,170,"D",1)
+S ^C0CDIC(170,"D",X,DA)=""
+"IX",170,170,"D",2)
+K ^C0CDIC(170,"D",X,DA)
+"IX",170,170,"D",2.5)
+K ^C0CDIC(170,"D")
+"IX",170,170,"D",11.1,0)
+^.114IA^1^1
+"IX",170,170,"D",11.1,1,0)
+1^F^170^10^^1^F
+"IX",170,170,"D",11.1,1,3)
+
+"IX",170,170,"SECTION",0)
+170^SECTION^Regular cross reference on the section field^R^^F^IR^I^170^^^^^LS
+"IX",170,170,"SECTION",1)
+S ^C0CDIC(170,"SECTION",X,DA)=""
+"IX",170,170,"SECTION",2)
+K ^C0CDIC(170,"SECTION",X,DA)
+"IX",170,170,"SECTION",2.5)
+K ^C0CDIC(170,"SECTION")
+"IX",170,170,"SECTION",11.1,0)
+^.114IA^1^1
+"IX",170,170,"SECTION",11.1,1,0)
+1^F^170^12^^1^
+"IX",171.501,171.501,"C",0)
+171.501^C^Uniqueness Index for Key 'A' of File #171.501^R^^R^IR^I^171.501^^^^^LS
+"IX",171.501,171.501,"C",1)
+S ^C0CE3("C",X(1),X(2),X(3),X(4),X(5),DA)=""
+"IX",171.501,171.501,"C",2)
+K ^C0CE3("C",X(1),X(2),X(3),X(4),X(5),DA)
+"IX",171.501,171.501,"C",2.5)
+K ^C0CE3("C")
+"IX",171.501,171.501,"C",11.1,0)
+^.114IA^5^5
+"IX",171.501,171.501,"C",11.1,1,0)
+1^F^171.501^.02^^1
+"IX",171.501,171.501,"C",11.1,2,0)
+2^F^171.501^.03^^2
+"IX",171.501,171.501,"C",11.1,3,0)
+3^F^171.501^.04^^3
+"IX",171.501,171.501,"C",11.1,4,0)
+4^F^171.501^.05^^4
+"IX",171.501,171.501,"C",11.1,5,0)
+5^F^171.501^.01^^5
+"IX",171.601,171.601,"C",0)
+171.601^C^Uniqueness Index for Key 'A' of File #171.601^R^^R^IR^I^171.601^^^^^LS
+"IX",171.601,171.601,"C",1)
+S ^C0CE4("C",X(1),X(2),X(3),X(4),DA)=""
+"IX",171.601,171.601,"C",2)
+K ^C0CE4("C",X(1),X(2),X(3),X(4),DA)
+"IX",171.601,171.601,"C",2.5)
+K ^C0CE4("C")
+"IX",171.601,171.601,"C",11.1,0)
+^.114IA^4^4
+"IX",171.601,171.601,"C",11.1,1,0)
+1^F^171.601^.02^^1
+"IX",171.601,171.601,"C",11.1,2,0)
+2^F^171.601^.03^^2
+"IX",171.601,171.601,"C",11.1,3,0)
+3^F^171.601^.01^^3
+"IX",171.601,171.601,"C",11.1,4,0)
+4^F^171.601^.04^^4
+"IX",171.601,171.601,"D1",0)
+171.601^D1^REVERSE DATE INDEX BY SOURCE FOR CLINICAL DATE^R^^R^IR^I^171.601^^^^^LS
+"IX",171.601,171.601,"D1",1)
+S ^C0CE4("D1",X(5),X(3),X(6),X(4),DA)=""
+"IX",171.601,171.601,"D1",2)
+K ^C0CE4("D1",X(5),X(3),X(6),X(4),DA)
+"IX",171.601,171.601,"D1",2.5)
+K ^C0CE4("D1")
+"IX",171.601,171.601,"D1",11.1,0)
+^.114IA^6^6
+"IX",171.601,171.601,"D1",11.1,1,0)
+1^F^171.601^2^^^F
+"IX",171.601,171.601,"D1",11.1,2,0)
+2^C
+"IX",171.601,171.601,"D1",11.1,2,1.5)
+S X=9999999-X(1)
+"IX",171.601,171.601,"D1",11.1,3,0)
+3^F^171.601^.03^^2^F
+"IX",171.601,171.601,"D1",11.1,4,0)
+4^C^^^^4
+"IX",171.601,171.601,"D1",11.1,4,1.5)
+S X=X(2)
+"IX",171.601,171.601,"D1",11.1,5,0)
+5^F^171.601^.02^^1^F
+"IX",171.601,171.601,"D1",11.1,6,0)
+6^F^171.601^.01^^3^F
+"IX",171.601,171.601,"D2",0)
+171.601^D2^REVERSE DATE INDEX ACROSS ALL SOURCES FOR THE PATIENT^R^^R^IR^I^171.601^^^^^LS
+"IX",171.601,171.601,"D2",1)
+S ^C0CE4("D2",X(1),X(5),X(4),DA)=""
+"IX",171.601,171.601,"D2",2)
+K ^C0CE4("D2",X(1),X(5),X(4),DA)
+"IX",171.601,171.601,"D2",2.5)
+K ^C0CE4("D2")
+"IX",171.601,171.601,"D2",11.1,0)
+^.114IA^5^5
+"IX",171.601,171.601,"D2",11.1,1,0)
+1^F^171.601^.02^^1^F
+"IX",171.601,171.601,"D2",11.1,1,3)
+
+"IX",171.601,171.601,"D2",11.1,2,0)
+2^F^171.601^2^^^F
+"IX",171.601,171.601,"D2",11.1,2,3)
+
+"IX",171.601,171.601,"D2",11.1,3,0)
+3^C
+"IX",171.601,171.601,"D2",11.1,3,1.5)
+S X=9999999-X(2)
+"IX",171.601,171.601,"D2",11.1,4,0)
+4^C^^^^3
+"IX",171.601,171.601,"D2",11.1,4,1.5)
+S X=X(3)
+"IX",171.601,171.601,"D2",11.1,5,0)
+5^F^171.601^.01^^2^F
+"IX",171.601,171.601,"D2",11.1,5,3)
+
+"IX",171.601,171.601,"P",0)
+171.601^P^REGULAR INDEX OF THE PATIENT^R^^F^IR^I^171.601^^^^^LS
+"IX",171.601,171.601,"P",1)
+S ^C0CE4("P",X,DA)=""
+"IX",171.601,171.601,"P",2)
+K ^C0CE4("P",X,DA)
+"IX",171.601,171.601,"P",2.5)
+K ^C0CE4("P")
+"IX",171.601,171.601,"P",11.1,0)
+^.114IA^1^1
+"IX",171.601,171.601,"P",11.1,1,0)
+1^F^171.601^.02^^1^F
+"KEY",171.501,171.501,"A",0)
+171.501^A^P^727
+"KEY",171.501,171.501,"A",2,0)
+^.312IA^5^5
+"KEY",171.501,171.501,"A",2,1,0)
+.02^171.501^1
+"KEY",171.501,171.501,"A",2,2,0)
+.03^171.501^2
+"KEY",171.501,171.501,"A",2,3,0)
+.04^171.501^3
+"KEY",171.501,171.501,"A",2,4,0)
+.05^171.501^4
+"KEY",171.501,171.501,"A",2,5,0)
+.01^171.501^5
+"KEY",171.601,171.601,"A",0)
+171.601^A^P^728
+"KEY",171.601,171.601,"A",2,0)
+^.312IA^4^4
+"KEY",171.601,171.601,"A",2,1,0)
+.02^171.601^1
+"KEY",171.601,171.601,"A",2,2,0)
+.03^171.601^2
+"KEY",171.601,171.601,"A",2,3,0)
+.01^171.601^3
+"KEY",171.601,171.601,"A",2,4,0)
+.04^171.601^4
+"KEYPTR",171.501,171.501,"A")
+171.501^C
+"KEYPTR",171.601,171.601,"A")
+171.601^C
+"MBREQ")
+0
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"SEC","^DIC",170,170,0,"AUDIT")
+@
+"SEC","^DIC",170,170,0,"DD")
+@
+"SEC","^DIC",170,170,0,"DEL")
+@
+"SEC","^DIC",170,170,0,"LAYGO")
+@
+"SEC","^DIC",170,170,0,"RD")
+@
+"SEC","^DIC",170,170,0,"WR")
+@
+"SEC","^DIC",170.101,170.101,0,"AUDIT")
+@
+"SEC","^DIC",170.101,170.101,0,"DD")
+@
+"SEC","^DIC",170.101,170.101,0,"DEL")
+@
+"SEC","^DIC",170.101,170.101,0,"LAYGO")
+@
+"SEC","^DIC",170.101,170.101,0,"RD")
+@
+"SEC","^DIC",170.101,170.101,0,"WR")
+@
+"SEC","^DIC",171.101,171.101,0,"AUDIT")
+@
+"SEC","^DIC",171.101,171.101,0,"DD")
+@
+"SEC","^DIC",171.101,171.101,0,"DEL")
+@
+"SEC","^DIC",171.101,171.101,0,"LAYGO")
+@
+"SEC","^DIC",171.101,171.101,0,"RD")
+@
+"SEC","^DIC",171.101,171.101,0,"WR")
+@
+"SEC","^DIC",171.201,171.201,0,"AUDIT")
+@
+"SEC","^DIC",171.201,171.201,0,"DD")
+@
+"SEC","^DIC",171.201,171.201,0,"DEL")
+@
+"SEC","^DIC",171.201,171.201,0,"LAYGO")
+@
+"SEC","^DIC",171.201,171.201,0,"RD")
+@
+"SEC","^DIC",171.201,171.201,0,"WR")
+@
+"SEC","^DIC",171.401,171.401,0,"AUDIT")
+@
+"SEC","^DIC",171.401,171.401,0,"DD")
+@
+"SEC","^DIC",171.401,171.401,0,"DEL")
+@
+"SEC","^DIC",171.401,171.401,0,"LAYGO")
+@
+"SEC","^DIC",171.401,171.401,0,"RD")
+@
+"SEC","^DIC",171.401,171.401,0,"WR")
+@
+"SEC","^DIC",171.501,171.501,0,"AUDIT")
+@
+"SEC","^DIC",171.501,171.501,0,"DD")
+@
+"SEC","^DIC",171.501,171.501,0,"DEL")
+@
+"SEC","^DIC",171.501,171.501,0,"LAYGO")
+@
+"SEC","^DIC",171.501,171.501,0,"RD")
+@
+"SEC","^DIC",171.501,171.501,0,"WR")
+@
+"SEC","^DIC",171.601,171.601,0,"AUDIT")
+@
+"SEC","^DIC",171.601,171.601,0,"DD")
+@
+"SEC","^DIC",171.601,171.601,0,"DEL")
+@
+"SEC","^DIC",171.601,171.601,0,"LAYGO")
+@
+"SEC","^DIC",171.601,171.601,0,"RD")
+@
+"SEC","^DIC",171.601,171.601,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",170,170,0)
+FIELD^^12^12
+"^DD",170,170,0,"DDA")
+N
+"^DD",170,170,0,"DT")
+3090214
+"^DD",170,170,0,"IX","B",170,.01)
+
+"^DD",170,170,0,"NM","CCR DICTIONARY")
+
+"^DD",170,170,0,"PT",170.1012,.01)
+
+"^DD",170,170,0,"PT",171.1311,.01)
+
+"^DD",170,170,0,"PT",171.2012,.01)
+
+"^DD",170,170,0,"PT",171.201221,.01)
+
+"^DD",170,170,0,"PT",171.501,.01)
+
+"^DD",170,170,0,"PT",171.6011,.01)
+
+"^DD",170,170,.01,0)
+AVARIABLE^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
+"^DD",170,170,.01,.1)
+CCR/CCD/RIM VARIABLE NAME
+"^DD",170,170,.01,1,0)
+^.1
+"^DD",170,170,.01,1,1,0)
+170^B
+"^DD",170,170,.01,1,1,1)
+S ^C0CDIC(170,"B",$E(X,1,30),DA)=""
+"^DD",170,170,.01,1,1,2)
+K ^C0CDIC(170,"B",$E(X,1,30),DA)
+"^DD",170,170,.01,3)
+Answer must be 2-30 characters in length
+"^DD",170,170,.01,"DT")
+3090214
+"^DD",170,170,1,0)
+ID^NJ6,3^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."4.N) X
+"^DD",170,170,1,.1)
+ELEMENT ID IN THE CCD C32 SPECIFICATION
+"^DD",170,170,1,3)
+Type a number between 0 and 99, 3 Decimal Digits
+"^DD",170,170,1,"DT")
+3081120
+"^DD",170,170,2,0)
+XPATH^F^^1;1^K:$L(X)>250!($L(X)<2) X
+"^DD",170,170,2,.1)
+XPATH INDEX INTO THE CCR
+"^DD",170,170,2,3)
+Answer must be 2-250 characters in length
+"^DD",170,170,2,"DT")
+3081120
+"^DD",170,170,3,0)
+DESCRIPTION^170.01^^5;0
+"^DD",170,170,4,0)
+SOURCE^170.04^^3;0
+"^DD",170,170,6,0)
+TYPE^S^DT:DATE/TIME UNIVERAL FORMAT;CD:CODE;CS:CODE SYSTEM;CV:CODE SYSTEM VERSION;ID:CCR/CCD/XML OBJECT ID;V:VALUE;^4;2^Q
+"^DD",170,170,6,.1)
+TYPE OF VARIABLE
+"^DD",170,170,6,"DT")
+3081120
+"^DD",170,170,7,0)
+DATA ELEMENT^F^^4;3^K:$L(X)>60!($L(X)<2) X
+"^DD",170,170,7,.1)
+CCR/CCD Data Element Name
+"^DD",170,170,7,3)
+Answer must be 2-60 characters in length
+"^DD",170,170,7,"DT")
+3081120
+"^DD",170,170,8,0)
+CODING^170.08S^^6;0
+"^DD",170,170,9,0)
+STATUS^S^X:NOT IMPLEMENTED YET;I:INCOMPLETE ENTRIES;C:COMPLETE BUT NOT REVIEWD;R:REVIEWED BUT NOT VERIFIED;V:VERIFIED - DONE;N:NEEDS WORK;^7;1^Q
+"^DD",170,170,9,.1)
+STATUS OF THE DICTIONARY ENTRY FOR THIS VARIABLE
+"^DD",170,170,9,3)
+STATUS OF THIS DICTIONARY ENTRY
+"^DD",170,170,9,"DT")
+3081121
+"^DD",170,170,10,0)
+SECTION^S^HEADER:HEADER;PROBLEMS:PROBLEMS;VITALS:VITALS;ALERTS:ALERTS;MEDS:MEDICATIONS;LABS:RESULTS;ACTORS:ACTORS;SOC:SOCIAL HISTORY;FAM:FAMILY HISTORY;IMM:IMMUNIZATIONS;ENC:ENCOUNTERS;TEST:RESULTS TEST;DIR:MEDS DIRECTIONS;^7;2^Q
+"^DD",170,170,10,.1)
+SECTION OF THE CCR/CCD IN WHICH THIS VARIABLE IS USED
+"^DD",170,170,10,"DT")
+3081206
+"^DD",170,170,11,0)
+RIM COHERENCE^F^^7;3^K:$L(X)>30!($L(X)<2) X
+"^DD",170,170,11,.1)
+RIM Coherence attribute for this variable
+"^DD",170,170,11,3)
+Answer must be 2-30 characters in length
+"^DD",170,170,11,"DT")
+3081216
+"^DD",170,170,12,0)
+ELEMENT TYPE^P170.101^C0CDIC(170.101,^7;4^Q
+"^DD",170,170,12,.1)
+NODE TYPE OF THE VARIABLE
+"^DD",170,170,12,"DT")
+3090208
+"^DD",170,170.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",170,170.01,0,"DT")
+3081120
+"^DD",170,170.01,0,"NM","DESCRIPTION")
+
+"^DD",170,170.01,0,"UP")
+170
+"^DD",170,170.01,.01,0)
+DESCRIPTION^W^^0;1
+"^DD",170,170.01,.01,3)
+Describe this Variable
+"^DD",170,170.01,.01,"DT")
+3081120
+"^DD",170,170.04,0)
+SOURCE SUB-FIELD^^.01^1
+"^DD",170,170.04,0,"DT")
+3081120
+"^DD",170,170.04,0,"NM","SOURCE")
+
+"^DD",170,170.04,0,"UP")
+170
+"^DD",170,170.04,.01,0)
+SOURCE^W^^0;1
+"^DD",170,170.04,.01,3)
+Source in VistA for this Variable
+"^DD",170,170.04,.01,"DT")
+3081120
+"^DD",170,170.08,0)
+CODING SUB-FIELD^^1^2
+"^DD",170,170.08,0,"DT")
+3081121
+"^DD",170,170.08,0,"IX","B",170.08,.01)
+
+"^DD",170,170.08,0,"NM","CODING")
+
+"^DD",170,170.08,0,"UP")
+170
+"^DD",170,170.08,.01,0)
+CODING^MS^SNO:SNOMED CT;LN:LOINC;ICD:ICD9;VA:VA INTERNAL CODE;VUI:VUID VA CODE;RXN:RXNORM;NCD:NDC NATIONAL DRUG CODE;^0;1^Q
+"^DD",170,170.08,.01,.1)
+CODING SYSTEMS USED FOR THIS VARIABLE
+"^DD",170,170.08,.01,1,0)
+^.1
+"^DD",170,170.08,.01,1,1,0)
+170.08^B
+"^DD",170,170.08,.01,1,1,1)
+S ^C0CDIC(170,DA(1),6,"B",$E(X,1,30),DA)=""
+"^DD",170,170.08,.01,1,1,2)
+K ^C0CDIC(170,DA(1),6,"B",$E(X,1,30),DA)
+"^DD",170,170.08,.01,"DT")
+3081121
+"^DD",170,170.08,1,0)
+MAPPING METHOD^170.81^^1;0
+"^DD",170,170.81,0)
+MAPPING METHOD SUB-FIELD^^.01^1
+"^DD",170,170.81,0,"DT")
+3081121
+"^DD",170,170.81,0,"NM","MAPPING METHOD")
+
+"^DD",170,170.81,0,"UP")
+170.08
+"^DD",170,170.81,.01,0)
+MAPPING METHOD^W^^0;1
+"^DD",170,170.81,.01,3)
+HOW IS THIS CODE PRODUCED FOR THIS VARIABLE?
+"^DD",170,170.81,.01,"DT")
+3081121
+"^DD",170.101,170.101,0)
+FIELD^^3^4
+"^DD",170.101,170.101,0,"DDA")
+N
+"^DD",170.101,170.101,0,"DT")
+3090208
+"^DD",170.101,170.101,0,"IX","B",170.101,.01)
+
+"^DD",170.101,170.101,0,"NM","CCR NODE TYPE")
+
+"^DD",170.101,170.101,0,"PT",170,12)
+
+"^DD",170.101,170.101,0,"PT",170.101,1)
+
+"^DD",170.101,170.101,0,"PT",170.1013,.01)
+
+"^DD",170.101,170.101,0,"PT",171.121,.01)
+
+"^DD",170.101,170.101,0,"PT",171.201,.03)
+
+"^DD",170.101,170.101,0,"PT",171.501,.04)
+
+"^DD",170.101,170.101,0,"PT",171.601,.01)
+
+"^DD",170.101,170.101,.01,0)
+NODE TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
+"^DD",170.101,170.101,.01,.1)
+CCR NODE TYPE
+"^DD",170.101,170.101,.01,1,0)
+^.1
+"^DD",170.101,170.101,.01,1,1,0)
+170.101^B
+"^DD",170.101,170.101,.01,1,1,1)
+S ^C0CDIC(170.101,"B",$E(X,1,30),DA)=""
+"^DD",170.101,170.101,.01,1,1,2)
+K ^C0CDIC(170.101,"B",$E(X,1,30),DA)
+"^DD",170.101,170.101,.01,3)
+NODE TYPE
+"^DD",170.101,170.101,.01,"DT")
+3090206
+"^DD",170.101,170.101,1,0)
+PARENT^P170.101'^C0CDIC(170.101,^0;2^Q
+"^DD",170.101,170.101,1,.1)
+NODE TYPE PARENT
+"^DD",170.101,170.101,1,3)
+NODE TYPE PARENT
+"^DD",170.101,170.101,1,"DT")
+3090206
+"^DD",170.101,170.101,2,0)
+CONTENTS^170.1012P^^1;0
+"^DD",170.101,170.101,3,0)
+CHILDREN^170.1013P^^2;0
+"^DD",170.101,170.1012,0)
+CONTENTS SUB-FIELD^^.01^1
+"^DD",170.101,170.1012,0,"DT")
+3090208
+"^DD",170.101,170.1012,0,"IX","B",170.1012,.01)
+
+"^DD",170.101,170.1012,0,"NM","CONTENTS")
+
+"^DD",170.101,170.1012,0,"UP")
+170.101
+"^DD",170.101,170.1012,.01,0)
+CONTENTS^P170'^C0CDIC(170,^0;1^Q
+"^DD",170.101,170.1012,.01,.1)
+CCR VARIABLES THAT THIS NODE CONTAINS
+"^DD",170.101,170.1012,.01,1,0)
+^.1
+"^DD",170.101,170.1012,.01,1,1,0)
+170.1012^B
+"^DD",170.101,170.1012,.01,1,1,1)
+S ^C0CDIC(170.101,DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",170.101,170.1012,.01,1,1,2)
+K ^C0CDIC(170.101,DA(1),1,"B",$E(X,1,30),DA)
+"^DD",170.101,170.1012,.01,3)
+VARIABLES THAT THIS TYPE CONTAINS
+"^DD",170.101,170.1012,.01,"DT")
+3090208
+"^DD",170.101,170.1013,0)
+CHILDREN SUB-FIELD^^.01^1
+"^DD",170.101,170.1013,0,"DT")
+3090206
+"^DD",170.101,170.1013,0,"IX","B",170.1013,.01)
+
+"^DD",170.101,170.1013,0,"NM","CHILDREN")
+
+"^DD",170.101,170.1013,0,"UP")
+170.101
+"^DD",170.101,170.1013,.01,0)
+CHILDREN^P170.101'^C0CDIC(170.101,^0;1^Q
+"^DD",170.101,170.1013,.01,.1)
+CHILDREN NODE TYPES
+"^DD",170.101,170.1013,.01,1,0)
+^.1
+"^DD",170.101,170.1013,.01,1,1,0)
+170.1013^B
+"^DD",170.101,170.1013,.01,1,1,1)
+S ^C0CDIC(170.101,DA(1),2,"B",$E(X,1,30),DA)=""
+"^DD",170.101,170.1013,.01,1,1,2)
+K ^C0CDIC(170.101,DA(1),2,"B",$E(X,1,30),DA)
+"^DD",170.101,170.1013,.01,3)
+CHILDREN NODE TYPES
+"^DD",170.101,170.1013,.01,"DT")
+3090206
+"^DD",171.101,171.101,0)
+FIELD^^.02^2
+"^DD",171.101,171.101,0,"DDA")
+N
+"^DD",171.101,171.101,0,"DT")
+3090214
+"^DD",171.101,171.101,0,"IX","B",171.101,.01)
+
+"^DD",171.101,171.101,0,"NM","CCR E2")
+
+"^DD",171.101,171.101,.01,0)
+PATIENT^RP2'^DPT(^0;1^Q
+"^DD",171.101,171.101,.01,.1)
+POINTER TO PATIENT FILE
+"^DD",171.101,171.101,.01,1,0)
+^.1
+"^DD",171.101,171.101,.01,1,1,0)
+171.101^B
+"^DD",171.101,171.101,.01,1,1,1)
+S ^C0CE("B",$E(X,1,30),DA)=""
+"^DD",171.101,171.101,.01,1,1,2)
+K ^C0CE("B",$E(X,1,30),DA)
+"^DD",171.101,171.101,.01,3)
+PATIENT
+"^DD",171.101,171.101,.01,"DT")
+3090214
+"^DD",171.101,171.101,.02,0)
+CCR SOURCE^171.111P^^1;0
+"^DD",171.101,171.111,0)
+CCR SOURCE SUB-FIELD^^.03^2
+"^DD",171.101,171.111,0,"DT")
+3090214
+"^DD",171.101,171.111,0,"IX","B",171.111,.01)
+
+"^DD",171.101,171.111,0,"NM","CCR SOURCE")
+
+"^DD",171.101,171.111,0,"UP")
+171.101
+"^DD",171.101,171.111,.01,0)
+CCR SOURCE^P171.401^C0C(171.401,^0;1^Q
+"^DD",171.101,171.111,.01,.1)
+POINTER TO CCR SOURCE FILE
+"^DD",171.101,171.111,.01,1,0)
+^.1
+"^DD",171.101,171.111,.01,1,1,0)
+171.111^B
+"^DD",171.101,171.111,.01,1,1,1)
+S ^C0CE(DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",171.101,171.111,.01,1,1,2)
+K ^C0CE(DA(1),1,"B",$E(X,1,30),DA)
+"^DD",171.101,171.111,.01,3)
+CCR SOURCE
+"^DD",171.101,171.111,.01,"DT")
+3090214
+"^DD",171.101,171.111,.03,0)
+ELEMENT TYPE^171.121P^^1;0
+"^DD",171.101,171.121,0)
+ELEMENT TYPE SUB-FIELD^^.04^2
+"^DD",171.101,171.121,0,"DT")
+3090214
+"^DD",171.101,171.121,0,"IX","B",171.121,.01)
+
+"^DD",171.101,171.121,0,"NM","ELEMENT TYPE")
+
+"^DD",171.101,171.121,0,"UP")
+171.111
+"^DD",171.101,171.121,.01,0)
+ELEMENT TYPE^MP170.101'^C0CDIC(170.101,^0;1^Q
+"^DD",171.101,171.121,.01,.1)
+POINTER TO CCR NODE TYPE FILE
+"^DD",171.101,171.121,.01,1,0)
+^.1
+"^DD",171.101,171.121,.01,1,1,0)
+171.121^B
+"^DD",171.101,171.121,.01,1,1,1)
+S ^C0CE(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",171.101,171.121,.01,1,1,2)
+K ^C0CE(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
+"^DD",171.101,171.121,.01,3)
+CCR ELEMENT TYPE
+"^DD",171.101,171.121,.01,"DT")
+3090214
+"^DD",171.101,171.121,.04,0)
+OCCURANCE^171.131^^1;0
+"^DD",171.101,171.131,0)
+OCCURANCE SUB-FIELD^^1^2
+"^DD",171.101,171.131,0,"DT")
+3090214
+"^DD",171.101,171.131,0,"IX","B",171.131,.01)
+
+"^DD",171.101,171.131,0,"NM","OCCURANCE")
+
+"^DD",171.101,171.131,0,"UP")
+171.121
+"^DD",171.101,171.131,.01,0)
+OCCURANCE^MF^^0;1^K:$L(X)>30!($L(X)<1) X
+"^DD",171.101,171.131,.01,.1)
+OCCURANCE OF THIS ELEMENT TYPE " NN" WITH LEADING SPACE
+"^DD",171.101,171.131,.01,1,0)
+^.1
+"^DD",171.101,171.131,.01,1,1,0)
+171.131^B
+"^DD",171.101,171.131,.01,1,1,1)
+S ^C0CE(DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",171.101,171.131,.01,1,1,2)
+K ^C0CE(DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
+"^DD",171.101,171.131,.01,3)
+OCCURANCE OF THE ELEMENT TYPE " NN" WITH LEADING SPACE
+"^DD",171.101,171.131,.01,"DT")
+3090214
+"^DD",171.101,171.131,1,0)
+VARIABLE^171.1311P^^1;0
+"^DD",171.101,171.1311,0)
+VARIABLE SUB-FIELD^^1^2
+"^DD",171.101,171.1311,0,"DT")
+3090214
+"^DD",171.101,171.1311,0,"IX","B",171.1311,.01)
+
+"^DD",171.101,171.1311,0,"NM","VARIABLE")
+
+"^DD",171.101,171.1311,0,"UP")
+171.131
+"^DD",171.101,171.1311,.01,0)
+VARIABLE^MP170^C0CDIC(170,^0;1^Q
+"^DD",171.101,171.1311,.01,.1)
+POINTER TO CCR DICTIONARY
+"^DD",171.101,171.1311,.01,1,0)
+^.1
+"^DD",171.101,171.1311,.01,1,1,0)
+171.1311^B
+"^DD",171.101,171.1311,.01,1,1,1)
+S ^C0CE(DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",171.101,171.1311,.01,1,1,2)
+K ^C0CE(DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
+"^DD",171.101,171.1311,.01,3)
+CCR VARIABLE
+"^DD",171.101,171.1311,.01,"DT")
+3090214
+"^DD",171.101,171.1311,1,0)
+VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X
+"^DD",171.101,171.1311,1,.1)
+VALUE OF THE VARIABLE
+"^DD",171.101,171.1311,1,3)
+VALUE OF THE VARIABLE
+"^DD",171.101,171.1311,1,"DT")
+3090214
+"^DD",171.201,171.201,0)
+FIELD^^1^2
+"^DD",171.201,171.201,0,"DDA")
+N
+"^DD",171.201,171.201,0,"DT")
+3090221
+"^DD",171.201,171.201,0,"IX","B",171.201,.01)
+
+"^DD",171.201,171.201,0,"NM","CCR VOCABULARIES")
+
+"^DD",171.201,171.201,0,"PT",171.6014,.01)
+
+"^DD",171.201,171.201,.01,0)
+CODING SYSTEM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
+"^DD",171.201,171.201,.01,.1)
+CODING SYSTEM - VOCABULARY
+"^DD",171.201,171.201,.01,1,0)
+^.1
+"^DD",171.201,171.201,.01,1,1,0)
+171.201^B
+"^DD",171.201,171.201,.01,1,1,1)
+S ^C0CC("B",$E(X,1,30),DA)=""
+"^DD",171.201,171.201,.01,1,1,2)
+K ^C0CC("B",$E(X,1,30),DA)
+"^DD",171.201,171.201,.01,3)
+CODING SYSTEM
+"^DD",171.201,171.201,.01,"DT")
+3090221
+"^DD",171.201,171.201,1,0)
+VERSION^F^^0;2^K:$L(X)>30!($L(X)<3) X
+"^DD",171.201,171.201,1,.1)
+CODING SYSTEM VERSION
+"^DD",171.201,171.201,1,3)
+CODING SYSTEM VERSION
+"^DD",171.201,171.201,1,"DT")
+3090221
+"^DD",171.401,171.401,0)
+FIELD^^2^3
+"^DD",171.401,171.401,0,"DDA")
+N
+"^DD",171.401,171.401,0,"DT")
+3090206
+"^DD",171.401,171.401,0,"IX","B",171.401,.01)
+
+"^DD",171.401,171.401,0,"NM","CCR SOURCE")
+
+"^DD",171.401,171.401,0,"PT",171.111,.01)
+
+"^DD",171.401,171.401,0,"PT",171.201,.02)
+
+"^DD",171.401,171.401,0,"PT",171.501,.03)
+
+"^DD",171.401,171.401,0,"PT",171.601,.03)
+
+"^DD",171.401,171.401,.01,0)
+NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
+"^DD",171.401,171.401,.01,1,0)
+^.1
+"^DD",171.401,171.401,.01,1,1,0)
+171.401^B
+"^DD",171.401,171.401,.01,1,1,1)
+S ^C0C(171.401,"B",$E(X,1,30),DA)=""
+"^DD",171.401,171.401,.01,1,1,2)
+K ^C0C(171.401,"B",$E(X,1,30),DA)
+"^DD",171.401,171.401,.01,3)
+NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
+"^DD",171.401,171.401,1,0)
+LOCAL SOURCE^171.4011P^^1;0
+"^DD",171.401,171.401,2,0)
+NON LOCAL SOURCE^171.4012P^^2;0
+"^DD",171.401,171.4011,0)
+LOCAL SOURCE SUB-FIELD^^.01^1
+"^DD",171.401,171.4011,0,"DT")
+3090206
+"^DD",171.401,171.4011,0,"IX","B",171.4011,.01)
+
+"^DD",171.401,171.4011,0,"NM","LOCAL SOURCE")
+
+"^DD",171.401,171.4011,0,"UP")
+171.401
+"^DD",171.401,171.4011,.01,0)
+LOCAL SOURCE^P4'^DIC(4,^0;1^Q
+"^DD",171.401,171.4011,.01,.1)
+LOCALLY DEFINED INSTITUTION
+"^DD",171.401,171.4011,.01,1,0)
+^.1
+"^DD",171.401,171.4011,.01,1,1,0)
+171.4011^B
+"^DD",171.401,171.4011,.01,1,1,1)
+S ^C0C(171.401,DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",171.401,171.4011,.01,1,1,2)
+K ^C0C(171.401,DA(1),1,"B",$E(X,1,30),DA)
+"^DD",171.401,171.4011,.01,3)
+DEFINED INSTITUTION
+"^DD",171.401,171.4011,.01,"DT")
+3090206
+"^DD",171.401,171.4012,0)
+NON LOCAL SOURCE SUB-FIELD^^.01^1
+"^DD",171.401,171.4012,0,"DT")
+3090206
+"^DD",171.401,171.4012,0,"IX","B",171.4012,.01)
+
+"^DD",171.401,171.4012,0,"NM","NON LOCAL SOURCE")
+
+"^DD",171.401,171.4012,0,"UP")
+171.401
+"^DD",171.401,171.4012,.01,0)
+NON LOCAL SOURCE^P171.201'^C0C(171.201,^0;1^Q
+"^DD",171.401,171.4012,.01,.1)
+CCR NON LOCAL SOURCE
+"^DD",171.401,171.4012,.01,1,0)
+^.1
+"^DD",171.401,171.4012,.01,1,1,0)
+171.4012^B
+"^DD",171.401,171.4012,.01,1,1,1)
+S ^C0C(171.401,DA(1),2,"B",$E(X,1,30),DA)=""
+"^DD",171.401,171.4012,.01,1,1,2)
+K ^C0C(171.401,DA(1),2,"B",$E(X,1,30),DA)
+"^DD",171.401,171.4012,.01,3)
+NON LOCAL SOURCE OF THE CCR
+"^DD",171.401,171.4012,.01,"DT")
+3090206
+"^DD",171.501,171.501,0)
+FIELD^^1^6
+"^DD",171.501,171.501,0,"DDA")
+N
+"^DD",171.501,171.501,0,"DT")
+3090221
+"^DD",171.501,171.501,0,"IX","B",171.501,.01)
+
+"^DD",171.501,171.501,0,"NM","CCR E3")
+
+"^DD",171.501,171.501,.01,0)
+VARIABLE^RP170^C0CDIC(170,^0;1^Q
+"^DD",171.501,171.501,.01,.1)
+POINTER TO CCR DICTIONARY
+"^DD",171.501,171.501,.01,1,0)
+^.1
+"^DD",171.501,171.501,.01,1,1,0)
+171.501^B
+"^DD",171.501,171.501,.01,1,1,1)
+S ^C0CE3("B",$E(X,1,30),DA)=""
+"^DD",171.501,171.501,.01,1,1,2)
+K ^C0CE3("B",$E(X,1,30),DA)
+"^DD",171.501,171.501,.01,3)
+POINTER TO CCR DICTIONARY
+"^DD",171.501,171.501,.01,"DT")
+3090221
+"^DD",171.501,171.501,.02,0)
+PATIENT^P2'^DPT(^0;2^Q
+"^DD",171.501,171.501,.02,.1)
+POINTER TO PATIENT FILE
+"^DD",171.501,171.501,.02,3)
+POINTER TO PATIENT FILE
+"^DD",171.501,171.501,.02,"DT")
+3090221
+"^DD",171.501,171.501,.03,0)
+CCR SOURCE^P171.401'^C0C(171.401,^0;3^Q
+"^DD",171.501,171.501,.03,.1)
+POINTER TO CCR SOURCE FILE
+"^DD",171.501,171.501,.03,3)
+POINTER TO CCR SOURCE FILE
+"^DD",171.501,171.501,.03,"DT")
+3090221
+"^DD",171.501,171.501,.04,0)
+DOMAIN^P170.101'^C0CDIC(170.101,^0;4^Q
+"^DD",171.501,171.501,.04,.1)
+POINTER TO CCR NODE TYPE FILE
+"^DD",171.501,171.501,.04,3)
+POINTER TO CCR NODE TYPE FILE
+"^DD",171.501,171.501,.04,"DT")
+3090221
+"^DD",171.501,171.501,.05,0)
+OCCURRANCE^F^^0;5^K:$L(X)>30!($L(X)<3) X
+"^DD",171.501,171.501,.05,.1)
+OCCURRANCE INDEX
+"^DD",171.501,171.501,.05,3)
+OCCURRANCE INDEX
+"^DD",171.501,171.501,.05,"DT")
+3090221
+"^DD",171.501,171.501,1,0)
+VALUE^F^^2;E1,200^K:$L(X)>200!($L(X)<1) X
+"^DD",171.501,171.501,1,.1)
+VALUE OF THE VARIABLE
+"^DD",171.501,171.501,1,3)
+VALUE OF THE VARIABLE
+"^DD",171.501,171.501,1,"DT")
+3090221
+"^DD",171.601,171.601,0)
+FIELD^^4^9
+"^DD",171.601,171.601,0,"DDA")
+N
+"^DD",171.601,171.601,0,"DT")
+3090221
+"^DD",171.601,171.601,0,"IX","B",171.601,.01)
+
+"^DD",171.601,171.601,0,"NM","CCR E4")
+
+"^DD",171.601,171.601,.01,0)
+ELEMENT^RP170.101'^C0CDIC(170.101,^0;1^Q
+"^DD",171.601,171.601,.01,.1)
+DOMAIN POINTER TO CCR NODE TYPE FILE
+"^DD",171.601,171.601,.01,1,0)
+^.1
+"^DD",171.601,171.601,.01,1,1,0)
+171.601^B
+"^DD",171.601,171.601,.01,1,1,1)
+S ^C0CE4("B",$E(X,1,30),DA)=""
+"^DD",171.601,171.601,.01,1,1,2)
+K ^C0CE4("B",$E(X,1,30),DA)
+"^DD",171.601,171.601,.01,3)
+DOMAIN POINTER TO CCR NODE TYPE FILE
+"^DD",171.601,171.601,.01,"DT")
+3090221
+"^DD",171.601,171.601,.02,0)
+PATIENT^P2'^DPT(^0;2^Q
+"^DD",171.601,171.601,.02,.1)
+POINTER TO PATIENT FILE
+"^DD",171.601,171.601,.02,3)
+POINTER TO PATIENT FILE
+"^DD",171.601,171.601,.02,"DT")
+3090221
+"^DD",171.601,171.601,.03,0)
+CCR SOURCE^P171.401'^C0C(171.401,^0;3^Q
+"^DD",171.601,171.601,.03,.1)
+POINTER TO CCR SOURCE FILE
+"^DD",171.601,171.601,.03,3)
+POINTER TO CCR SOURCE FILE
+"^DD",171.601,171.601,.03,"DT")
+3090221
+"^DD",171.601,171.601,.04,0)
+OCCURRENCE^F^^0;4^K:$L(X)>30!($L(X)<1) X
+"^DD",171.601,171.601,.04,.1)
+OCCURRENCE INDEX " NN"
+"^DD",171.601,171.601,.04,3)
+OCCURRENCE INDEX " NN"
+"^DD",171.601,171.601,.04,"DT")
+3090221
+"^DD",171.601,171.601,.05,0)
+OBJECT ID^F^^2;6^K:$L(X)>30!($L(X)<1) X
+"^DD",171.601,171.601,.05,.1)
+ELEMENT OBJECT ID
+"^DD",171.601,171.601,.05,3)
+ELEMENT OBJECT ID
+"^DD",171.601,171.601,.05,23,0)
+^^23^23^3090221^
+"^DD",171.601,171.601,.05,23,1,0)
+This ObjectID is here at the element level as a placeholder for when we 
+"^DD",171.601,171.601,.05,23,2,0)
+can resolve how to form it and when to use it. 
+"^DD",171.601,171.601,.05,23,3,0)
+ 
+"^DD",171.601,171.601,.05,23,4,0)
+Every CCR element has an objecid variable, which must be unique to the 
+"^DD",171.601,171.601,.05,23,5,0)
+CCR in which it appears. However, what about the case of the cummulative 
+"^DD",171.601,171.601,.05,23,6,0)
+CCR where elements are combined for a patient from multiple sources ie 
+"^DD",171.601,171.601,.05,23,7,0)
+multiple separate CCRs. How can we insure that the Object IDs will be 
+"^DD",171.601,171.601,.05,23,8,0)
+unique to the cummulative CCR? 
+"^DD",171.601,171.601,.05,23,9,0)
+ 
+"^DD",171.601,171.601,.05,23,10,0)
+One thought is to prepend the source to the ObjectID variable 
+"^DD",171.601,171.601,.05,23,11,0)
+S1_ObjectID. Of course, the source pointer is local to the system, so 
+"^DD",171.601,171.601,.05,23,12,0)
+these object ids won't be of much use to a recieving system (who might 
+"^DD",171.601,171.601,.05,23,13,0)
+just prepend our ids with thier internal source identifier ie 
+"^DD",171.601,171.601,.05,23,14,0)
+S2_S1_ObjectID). However, this might be used by the CCR stylesheet to 
+"^DD",171.601,171.601,.05,23,15,0)
+give a visual colorcoding to elements from different sources without 
+"^DD",171.601,171.601,.05,23,16,0)
+adding to the CCR tags (and having a malformed CCR). 
+"^DD",171.601,171.601,.05,23,17,0)
+ 
+"^DD",171.601,171.601,.05,23,18,0)
+This field should be populated by a fileman exit triggered on 
+"^DD",171.601,171.601,.05,23,19,0)
+insert of the objectid variable. Perhaps a Mumps Cross-Reference with a 
+"^DD",171.601,171.601,.05,23,20,0)
+screen for an objectid variable (objectid is a Node type in the CCR NODE 
+"^DD",171.601,171.601,.05,23,21,0)
+TYPE file)
+"^DD",171.601,171.601,.05,23,22,0)
+ 
+"^DD",171.601,171.601,.05,23,23,0)
+variable of the element.
+"^DD",171.601,171.601,.05,"DT")
+3090221
+"^DD",171.601,171.601,1,0)
+VARIABLE^171.6011P^^1;0
+"^DD",171.601,171.601,2,0)
+CLINICAL DATE^D^^2;1^S %DT="EST" D ^%DT S X=Y K:X<1 X
+"^DD",171.601,171.601,2,.1)
+CLINICAL DATE OF THE ELEMENT
+"^DD",171.601,171.601,2,3)
+CLINICAL DATE OF THE ELEMENT
+"^DD",171.601,171.601,2,"DT")
+3090221
+"^DD",171.601,171.601,3,0)
+CLINICAL SOURCE^F^^2;2^K:$L(X)>30!($L(X)<1) X
+"^DD",171.601,171.601,3,.1)
+CLINICAL SOURCE OF THE ELEMENT
+"^DD",171.601,171.601,3,3)
+CLINICAL SOURCE OF THE ELEMENT
+"^DD",171.601,171.601,3,23,0)
+^^11^11^3090221^
+"^DD",171.601,171.601,3,23,1,0)
+This field should point to to clinical source of the element. The 
+"^DD",171.601,171.601,3,23,2,0)
+difficulty is that for elements that are from an external CCR, the 
+"^DD",171.601,171.601,3,23,3,0)
+clinical source may not be in the New Person file. So, this might be a 
+"^DD",171.601,171.601,3,23,4,0)
+variable pointer to the either the new person file or to a new external 
+"^DD",171.601,171.601,3,23,5,0)
+provider file. 
+"^DD",171.601,171.601,3,23,6,0)
+ 
+"^DD",171.601,171.601,3,23,7,0)
+The new external provider file is not yet designed, and it is a difficult 
+"^DD",171.601,171.601,3,23,8,0)
+file to do... 
+"^DD",171.601,171.601,3,23,9,0)
+ 
+"^DD",171.601,171.601,3,23,10,0)
+So, as a place holder, this field is Free Text and will contain the 
+"^DD",171.601,171.601,3,23,11,0)
+ObjectID stored in the Source variable of the element.
+"^DD",171.601,171.601,3,"DT")
+3090221
+"^DD",171.601,171.601,4,0)
+CODING^171.6014P^^3;0
+"^DD",171.601,171.6011,0)
+VARIABLE SUB-FIELD^^1^2
+"^DD",171.601,171.6011,0,"DT")
+3090221
+"^DD",171.601,171.6011,0,"IX","B",171.6011,.01)
+
+"^DD",171.601,171.6011,0,"NM","VARIABLE")
+
+"^DD",171.601,171.6011,0,"UP")
+171.601
+"^DD",171.601,171.6011,.01,0)
+VARIABLE^MP170^C0CDIC(170,^0;1^Q
+"^DD",171.601,171.6011,.01,.1)
+POINTER TO CCR DICTIONARY
+"^DD",171.601,171.6011,.01,1,0)
+^.1
+"^DD",171.601,171.6011,.01,1,1,0)
+171.6011^B
+"^DD",171.601,171.6011,.01,1,1,1)
+S ^C0CE4(DA(1),1,"B",$E(X,1,30),DA)=""
+"^DD",171.601,171.6011,.01,1,1,2)
+K ^C0CE4(DA(1),1,"B",$E(X,1,30),DA)
+"^DD",171.601,171.6011,.01,3)
+POINTER TO CCR DICTIONARY
+"^DD",171.601,171.6011,.01,"DT")
+3090221
+"^DD",171.601,171.6011,1,0)
+VALUE^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X
+"^DD",171.601,171.6011,1,.1)
+VALUE OF THE VARIABLE
+"^DD",171.601,171.6011,1,3)
+VALUE OF THE VARIABLE
+"^DD",171.601,171.6011,1,"DT")
+3090221
+"^DD",171.601,171.6014,0)
+CODING SUB-FIELD^^1^2
+"^DD",171.601,171.6014,0,"DT")
+3090221
+"^DD",171.601,171.6014,0,"IX","B",171.6014,.01)
+
+"^DD",171.601,171.6014,0,"NM","CODING")
+
+"^DD",171.601,171.6014,0,"UP")
+171.601
+"^DD",171.601,171.6014,.01,0)
+CODING^MP171.201^C0CC(^0;1^Q
+"^DD",171.601,171.6014,.01,.1)
+CODING SYSTEM FOR THIS ELEMENT
+"^DD",171.601,171.6014,.01,1,0)
+^.1
+"^DD",171.601,171.6014,.01,1,1,0)
+171.6014^B
+"^DD",171.601,171.6014,.01,1,1,1)
+S ^C0CE4(DA(1),3,"B",$E(X,1,30),DA)=""
+"^DD",171.601,171.6014,.01,1,1,2)
+K ^C0CE4(DA(1),3,"B",$E(X,1,30),DA)
+"^DD",171.601,171.6014,.01,3)
+CODING SYSTEM FOR THIS ELEMENT
+"^DD",171.601,171.6014,.01,"DT")
+3090221
+"^DD",171.601,171.6014,1,0)
+CODE VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X
+"^DD",171.601,171.6014,1,.1)
+CODE VALUE FOR THIS ELEMENT
+"^DD",171.601,171.6014,1,3)
+CODE VALUE IN THIS CODING SYSTEM FOR THIS ELEMENT
+"^DD",171.601,171.6014,1,"DT")
+3090221
+"^DIC",170,170,0)
+CCR DICTIONARY^170
+"^DIC",170,170,0,"GL")
+^C0CDIC(170,
+"^DIC",170,"B","CCR DICTIONARY",170)
+
+"^DIC",170.101,170.101,0)
+CCR NODE TYPE^170.101
+"^DIC",170.101,170.101,0,"GL")
+^C0CDIC(170.101,
+"^DIC",170.101,"B","CCR NODE TYPE",170.101)
+
+"^DIC",171.101,171.101,0)
+CCR E2^171.101
+"^DIC",171.101,171.101,0,"GL")
+^C0CE(
+"^DIC",171.101,"B","CCR E2",171.101)
+
+"^DIC",171.201,171.201,0)
+CCR VOCABULARIES^171.201
+"^DIC",171.201,171.201,0,"GL")
+^C0CC(
+"^DIC",171.201,"B","CCR VOCABULARIES",171.201)
+
+"^DIC",171.401,171.401,0)
+CCR SOURCE^171.401
+"^DIC",171.401,171.401,0,"GL")
+^C0C(171.401,
+"^DIC",171.401,"B","CCR SOURCE",171.401)
+
+"^DIC",171.501,171.501,0)
+CCR E3^171.501
+"^DIC",171.501,171.501,0,"GL")
+^C0CE3(
+"^DIC",171.501,"B","CCR E3",171.501)
+
+"^DIC",171.601,171.601,0)
+CCR E4^171.601
+"^DIC",171.601,171.601,0,"GL")
+^C0CE4(
+"^DIC",171.601,"B","CCR E4",171.601)
+
+**END**
+**END**