Index: ccr/trunk/p/C0CE_1_0_1_T1.KID
===================================================================
--- ccr/trunk/p/C0CE_1_0_1_T1.KID	(revision 368)
+++ ccr/trunk/p/C0CE_1_0_1_T1.KID	(revision 368)
@@ -0,0 +1,2622 @@
+KIDS Distribution saved on Feb 14, 2009@21:01:03
+CCR ELEMENTS FILE
+**KIDS**:C0CE*1.0*1^
+
+**INSTALL NAME**
+C0CE*1.0*1
+"BLD",7148,0)
+C0CE*1.0*1^^0^3090214^y
+"BLD",7148,4,0)
+^9.64PA^171.401^4
+"BLD",7148,4,170,0)
+170
+"BLD",7148,4,170,222)
+y^y^f^^n^^y^o^n
+"BLD",7148,4,170.101,0)
+170.101
+"BLD",7148,4,170.101,222)
+y^y^f^^n^^y^o^n
+"BLD",7148,4,171.101,0)
+171.101
+"BLD",7148,4,171.101,222)
+y^y^f^^^^n
+"BLD",7148,4,171.401,0)
+171.401
+"BLD",7148,4,171.401,222)
+y^y^f^^^^n
+"BLD",7148,4,"B",170,170)
+
+"BLD",7148,4,"B",170.101,170.101)
+
+"BLD",7148,4,"B",171.101,171.101)
+
+"BLD",7148,4,"B",171.401,171.401)
+
+"BLD",7148,6.3)
+1
+"BLD",7148,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",7148,"KRN",.4,0)
+.4
+"BLD",7148,"KRN",.401,0)
+.401
+"BLD",7148,"KRN",.402,0)
+.402
+"BLD",7148,"KRN",.403,0)
+.403
+"BLD",7148,"KRN",.5,0)
+.5
+"BLD",7148,"KRN",.84,0)
+.84
+"BLD",7148,"KRN",3.6,0)
+3.6
+"BLD",7148,"KRN",3.8,0)
+3.8
+"BLD",7148,"KRN",9.2,0)
+9.2
+"BLD",7148,"KRN",9.8,0)
+9.8
+"BLD",7148,"KRN",19,0)
+19
+"BLD",7148,"KRN",19.1,0)
+19.1
+"BLD",7148,"KRN",101,0)
+101
+"BLD",7148,"KRN",409.61,0)
+409.61
+"BLD",7148,"KRN",771,0)
+771
+"BLD",7148,"KRN",870,0)
+870
+"BLD",7148,"KRN",8989.51,0)
+8989.51
+"BLD",7148,"KRN",8989.52,0)
+8989.52
+"BLD",7148,"KRN",8994,0)
+8994
+"BLD",7148,"KRN","B",.4,.4)
+
+"BLD",7148,"KRN","B",.401,.401)
+
+"BLD",7148,"KRN","B",.402,.402)
+
+"BLD",7148,"KRN","B",.403,.403)
+
+"BLD",7148,"KRN","B",.5,.5)
+
+"BLD",7148,"KRN","B",.84,.84)
+
+"BLD",7148,"KRN","B",3.6,3.6)
+
+"BLD",7148,"KRN","B",3.8,3.8)
+
+"BLD",7148,"KRN","B",9.2,9.2)
+
+"BLD",7148,"KRN","B",9.8,9.8)
+
+"BLD",7148,"KRN","B",19,19)
+
+"BLD",7148,"KRN","B",19.1,19.1)
+
+"BLD",7148,"KRN","B",101,101)
+
+"BLD",7148,"KRN","B",409.61,409.61)
+
+"BLD",7148,"KRN","B",771,771)
+
+"BLD",7148,"KRN","B",870,870)
+
+"BLD",7148,"KRN","B",8989.51,8989.51)
+
+"BLD",7148,"KRN","B",8989.52,8989.52)
+
+"BLD",7148,"KRN","B",8994,8994)
+
+"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,1)
+
+"DATA",170,3,4)
+^ID
+"DATA",170,3,7)
+N^ACTORS^^6
+"DATA",170,4,0)
+ACTORFROM2
+"DATA",170,4,1)
+
+"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,7)
+X^FAM^^12
+"DATA",170,19,0)
+FAMILYMEMBERPROBLEMCODE
+"DATA",170,19,1)
+//ContinuityOfCareRecord/Body/FamilyHistory/FamilyProblemHistory/Problem/Description/Code/Value
+"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,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,1)
+
+"DATA",170,23,4)
+^ID
+"DATA",170,23,7)
+X^SOC^^13
+"DATA",170,24,0)
+SOCIALHISTORYTYPETEXT
+"DATA",170,24,1)
+
+"DATA",170,24,7)
+X^SOC^^13
+"DATA",170,25,0)
+SOCIALHISTORYDESCRIPTIONTEXT
+"DATA",170,25,1)
+
+"DATA",170,25,7)
+X^SOC^^13
+"DATA",170,26,0)
+SOCIALHISTORYSOURCACTORID
+"DATA",170,26,1)
+
+"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,6,0)
+^170.08S^^
+"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,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,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,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,1)
+
+"DATA",170,42,7)
+N
+"DATA",170,43,0)
+MEDISSUEDATE
+"DATA",170,43,1)
+
+"DATA",170,43,7)
+N
+"DATA",170,44,0)
+MEDLASTFILLDATETXT
+"DATA",170,44,1)
+
+"DATA",170,44,7)
+N
+"DATA",170,45,0)
+MEDLASTFILLDATE
+"DATA",170,45,1)
+
+"DATA",170,45,7)
+N
+"DATA",170,46,0)
+MEDRXNOTXT
+"DATA",170,46,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/IDs/Type/Text
+"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,7)
+N^MEDS^^7
+"DATA",170,48,0)
+MEDTYPETEXT
+"DATA",170,48,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Type/Text
+"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,7)
+N^MEDS^^7
+"DATA",170,50,0)
+MEDSTATUSTEXT
+"DATA",170,50,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Status/Text
+"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,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,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,7)
+N^MEDS^^7
+"DATA",170,57,0)
+MEDSTRENGTHVALUE
+"DATA",170,57,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Strength/Value
+"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,7)
+N^MEDS^^7
+"DATA",170,59,0)
+MEDFORMTEXT
+"DATA",170,59,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Form/Text
+"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,7)
+N^MEDS^^7
+"DATA",170,61,0)
+MEDCONCUNIT
+"DATA",170,61,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Product/Concentration/Units/Unit
+"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,7)
+N^MEDS^^7
+"DATA",170,63,0)
+MEDQUANTITYVALUE
+"DATA",170,63,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Quantity/Value
+"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,7)
+N^MEDS^^7
+"DATA",170,65,0)
+MEDDIRECTIONDESCRIPTIONTEXT
+"DATA",170,65,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Description/Text
+"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,7)
+N^DIR^^8
+"DATA",170,67,0)
+MEDDELIVERYMETHOD
+"DATA",170,67,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DeliveryMethod/Text
+"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,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,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,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,7)
+N^DIR^^8
+"DATA",170,72,0)
+MEDVEHICLETEXT
+"DATA",170,72,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Vehicle/Text
+"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,7)
+N^DIR^^8
+"DATA",170,74,0)
+MEDFREQUENCYVALUE
+"DATA",170,74,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Frequency/Value
+"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,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,7)
+N^DIR^^8
+"DATA",170,77,0)
+MEDDURATIONVALUE
+"DATA",170,77,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/Duration/Value
+"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,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,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,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,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,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,7)
+N^DIR^^8
+"DATA",170,88,0)
+MEDDIRSEQ
+"DATA",170,88,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Directions/Direction/DirectionSequenceModifier
+"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,7)
+N^DIR^^8
+"DATA",170,90,0)
+MEDPTINSTRUCTIONS
+"DATA",170,90,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/PatientInstructions/Instruction
+"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,7)
+N^MEDS^^7
+"DATA",170,92,0)
+MEDRFNO
+"DATA",170,92,1)
+//ContinuityOfCareRecord/Body/Medications/Medication/Refills/Refill/Number
+"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,7)
+N^VITALS^^11
+"DATA",170,99,0)
+VITALSIGNSDESCRIPTIONTEXT
+"DATA",170,99,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/Description/Text
+"DATA",170,99,7)
+N^VITALS^^11
+"DATA",170,100,0)
+VITALSIGNSDESCCODEVALUE
+"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)
+VITALSIGNSDESCCODINGSYSTEM
+"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)
+I^VITALS^^11
+"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,7)
+N^VITALS^^11
+"DATA",170,105,0)
+VITALSIGNSTESTRESULTUNIT
+"DATA",170,105,1)
+//ContinuityOfCareRecord/Body/VitalSigns/Result/Test/TestResult/Units/Unit
+"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,6,0)
+^170.08S^^
+"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,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,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,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,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,7)
+N^TEST^^10
+"DATA",170,121,0)
+RESULTTESTUNITS
+"DATA",170,121,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/TestResult/Units/Unit
+"DATA",170,121,7)
+N^TEST^^10
+"DATA",170,122,0)
+RESULTTESTNORMALDESCTEXT
+"DATA",170,122,1)
+//ContinuityOfCareRecord/Body/Results/Result/Test/NormalResult/Normal/Description/Text
+"DATA",170,122,7)
+N^TEST^^10
+"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,7)
+N^TEST^^10
+"DATA",170,125,0)
+ACTORDATEOFBIRTH
+"DATA",170,125,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Person/DateOfBirth/ExactDateTime
+"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,7)
+N^ACTORS^^6
+"DATA",170,127,0)
+ACTORSSNTEXT
+"DATA",170,127,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/IDs/Type/Text
+"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,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,7)
+N^ACTORS^^6
+"DATA",170,131,0)
+ACTORADDRESSZIPCODE
+"DATA",170,131,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PATIENT/Actor/Address/PostalCode
+"DATA",170,131,7)
+N^ACTORS^^6
+"DATA",170,132,0)
+ACTORRESTEL
+"DATA",170,132,1)
+
+"DATA",170,132,7)
+N^ACTORS^^6
+"DATA",170,133,0)
+ACTORRESTELTEXT
+"DATA",170,133,1)
+
+"DATA",170,133,7)
+N^ACTORS^^6
+"DATA",170,134,0)
+ACTORWORKTEL
+"DATA",170,134,1)
+
+"DATA",170,134,7)
+N^ACTORS^^6
+"DATA",170,135,0)
+ACTORWORKTELTEXT
+"DATA",170,135,1)
+
+"DATA",170,135,7)
+N^ACTORS^^6
+"DATA",170,136,0)
+ACTORCELLTEL
+"DATA",170,136,1)
+
+"DATA",170,136,7)
+N^ACTORS^^6
+"DATA",170,137,0)
+ACTORCELLTELTEXT
+"DATA",170,137,1)
+
+"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,7)
+N^ACTORS^^6
+"DATA",170,140,0)
+ACTORINFOSYSVER
+"DATA",170,140,1)
+//ContinuityOfCareRecord/Actors/ACTOR-SYSTEM/Actor/InformationSystem/Version
+"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,7)
+N^ACTORS^^6
+"DATA",170,143,0)
+ACTORRELATION
+"DATA",170,143,1)
+//ContinuityOfCareRecord/Actors/ACTOR-NOK/Actor/Relation/Text
+"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,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,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,7)
+N^ACTORS^^6
+"DATA",170,149,0)
+IDTYPE
+"DATA",170,149,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/IDs/Type/Text
+"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,7)
+N
+"DATA",170,152,0)
+ACTORSPECIALITY
+"DATA",170,152,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Specialty/Text
+"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,7)
+N^ACTORS^^6
+"DATA",170,154,0)
+ACTORADDRESSLINE1
+"DATA",170,154,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/Line1
+"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,7)
+N^ACTORS^^6
+"DATA",170,156,0)
+ACTORADDRESSSTATE
+"DATA",170,156,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Address/State
+"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,7)
+N^ACTORS^^6
+"DATA",170,158,0)
+ACTORTELEPHONE
+"DATA",170,158,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Telephone/Value
+"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,7)
+N^ACTORS^^6
+"DATA",170,160,0)
+ACTOREMAIL
+"DATA",170,160,1)
+//ContinuityOfCareRecord/Actors/ACTOR-PROVIDER/Actor/Email/Value
+"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,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)
+PROBLEMCONDITION
+"DATA",170,164,7)
+^^^5
+"DATA",170,165,0)
+PROBLEMDATEMOD
+"DATA",170,165,7)
+^^^5
+"DATA",170,166,0)
+PROBLEMDATEOFONSET
+"DATA",170,166,7)
+^^^5
+"DATA",170,167,0)
+PROBLEMDTREC
+"DATA",170,167,7)
+^^^5
+"DATA",170,168,0)
+PROBLEMHASCMT
+"DATA",170,168,7)
+^^^5
+"DATA",170,169,0)
+PROBLEMIEN
+"DATA",170,169,7)
+^^^5
+"DATA",170,170,0)
+PROBLEMINACT
+"DATA",170,170,7)
+^^^5
+"DATA",170,171,0)
+PROBLEMLOC
+"DATA",170,171,7)
+^^^5
+"DATA",170,172,0)
+PROBLEMLOCTYPE
+"DATA",170,172,7)
+^^^5
+"DATA",170,173,0)
+PROBLEMPROVIDER
+"DATA",170,173,7)
+^^^5
+"DATA",170,174,0)
+PROBLEMSC
+"DATA",170,174,7)
+^^^5
+"DATA",170,175,0)
+PROBLEMSE
+"DATA",170,175,7)
+^^^5
+"DATA",170,176,0)
+PROBLEMSERVICE
+"DATA",170,176,7)
+^^^5
+"DATA",170,177,0)
+PROBLEMSTATUS
+"DATA",170,177,7)
+^^^5
+"DATA",170,178,0)
+ALERTCODESYSTEMVERSION
+"DATA",170,178,7)
+^^^4
+"DATA",170,179,0)
+VITALSIGNSDESCRIPTIONCODEVALUE
+"DATA",170,179,7)
+^^^11
+"DATA",170,180,0)
+VITALSIGNSDESCODEVALUE
+"DATA",170,180,7)
+^^^11
+"DATA",170,181,0)
+IMMUNEDATETIME
+"DATA",170,181,7)
+^^^15
+"DATA",170,182,0)
+IMMUNEDATETIMETYPETEXT
+"DATA",170,182,7)
+^^^15
+"DATA",170,183,0)
+IMMUNEOBJECTID
+"DATA",170,183,7)
+^^^15
+"DATA",170,184,0)
+IMMUNEPRODUCTCODE
+"DATA",170,184,7)
+^^^15
+"DATA",170,185,0)
+IMMUNEPRODUCTCODESYSTEM
+"DATA",170,185,7)
+^^^15
+"DATA",170,186,0)
+IMMUNEPRODUCTNAMETEXT
+"DATA",170,186,7)
+^^^15
+"DATA",170,187,0)
+IMMUNESOURCEACTORID
+"DATA",170,187,7)
+^^^15
+"DATA",170,188,0)
+C1
+"DATA",170,188,7)
+^^^10
+"DATA",170,189,0)
+C2
+"DATA",170,189,7)
+^^^10
+"DATA",170,190,0)
+C3
+"DATA",170,190,7)
+^^^10
+"DATA",170,191,0)
+C4
+"DATA",170,191,7)
+^^^10
+"DATA",170,192,0)
+C5
+"DATA",170,192,7)
+^^^10
+"DATA",170,193,0)
+C6
+"DATA",170,193,7)
+^^^10
+"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
+"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.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
+"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^
+"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")
+YES
+"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")
+YES
+"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")
+YES
+"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.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")
+@
+"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,.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,.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.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,.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
+"^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.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)
+
+**END**
+**END**
Index: ccr/trunk/p/C0CFM2.m
===================================================================
--- ccr/trunk/p/C0CFM2.m	(revision 368)
+++ ccr/trunk/p/C0CFM2.m	(revision 368)
@@ -0,0 +1,278 @@
+C0CFM2   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
+ ;;0.1;CCDCCR;nopatch;noreleasedate
+ ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ ;
+ W "This is the CCR FILEMAN Utility Library ",!
+ ; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
+ ; CCR ELEMENTS (^C0C(179.201, 
+ ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE 
+ ; AT THE TOP LEVEL. OCCURANCE, THE 4TH PART OF THE KEY IS NOW FREE TEXT
+ ; AND HAS THE FORM X;Y FOR SUB-ELEMENTS
+ ; ALL SUB-VARIABLES HAVE BEEN REMOVED
+ W !
+ Q
+ ;
+SHOWBUG ;
+ M C0CFDA=^KBAI("C0CFDA",1)
+ D CLEAN^DILF
+ D UPDATE^DIE("","C0CFDA","","ZERR")
+ ZWR C0CFDA
+ ZWR ZERR
+ Q
+ ;
+PUTRIM(DFN,ZWHICH) ;DFN IS PATIENT , WHICH IS ELEMENT TYPE
+ ;
+ S C0CGLB=$NA(^TMP("GPLRIM","VARS",DFN))
+ I '$D(ZWHICH) S ZWHICH="ALL"
+ I ZWHICH'="ALL" D  ; SINGLE SECTION REQUESTED
+ . S C0CVARS=$NA(@C0CGLB@(ZWHICH))
+ . D PUTRIM1(DFN,ZWHICH,C0CVARS) ; IF ONE SECTION
+ E  D  ; MULTIPLE SECTIONS
+ . S C0CVARS=$NA(@C0CGLB)
+ . S C0CI=""
+ . F  S C0CI=$O(@C0CVARS@(C0CI)) Q:C0CI=""  D  ;FOR EACH SECTION
+ . . S C0CVARSN=$NA(@C0CVARS@(C0CI)) ; GRAB ONE SECTION
+ . . D PUTRIM1(DFN,C0CI,C0CVARSN)
+ Q
+ ;
+PUTRIM1(DFN,ZZTYP,ZVARS) ; PUT ONE SECTION OF VARIABLES INTO CCR ELEMENTS
+ ; ZVARS IS PASSED BY NAME AN HAS THE FORM @ZVARS@(1,"VAR1")="VAL1"
+ S C0CX=0
+ F  S C0CX=$O(@ZVARS@(C0CX)) Q:C0CX=""  D  ; FOR EACH OCCURANCE
+ . W "ZOCC=",C0CX,!
+ . S C0CV=$NA(@ZVARS@(C0CX)) ; VARIABLES FOR THIS OCCURANCE
+ . D PUTELS(DFN,ZZTYP,C0CX,C0CV) ; PUT THEM TO THE CCR ELEMENTS FILE
+ Q
+ ;
+PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
+ ; 171.101, ^C0CE  DFN IS THE PATIENT IEN PASSED BY VALUE
+ ; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE
+ ; ZOCC IS THE OCCURANCE NUMBER IE PROBLEM NUMBER 1,2,3 ETC
+ ; ZVALS ARE THE VARIABLES AND VALUES PASSED BY NAME AND IN THE FORM
+ ; @ZVALS@("VAR1")="VALUE1" FOR ALL VARIABLES IN THIS ELEMENT
+ ; AND @ZVALS@("M",SUBOCCUR,"VAR2")="VALUE2" FOR SUB VARIABLES
+ ;
+ N ZSRC
+ S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
+ ; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
+ N C0CFPAT S C0CFPAT=171.101 ; FILE AT PATIENT LEVEL
+ N C0CFSRC S C0CFSRC=171.111 ; FILE AT CCR SOURCE LVL
+ N C0CFTYP S C0CFTYP=171.121 ; FILE AT ELEMENT TYPE LVL
+ N C0CFOCC S C0CFOCC=171.131 ; FILE AT OCCURANCE LVL
+ N C0CFVAR S C0CFVAR=171.1311 ; FILE AT VARIABLE LVL
+ ;FILE IS ^C0CE(PAT,1,SCR,1,TYP,1,OCC,1,VAR,1, ...
+ ; AND WE HAVE TO ADD THEM LEVEL AT A TIME I THINK
+ K C0CFDA
+ S C0CFDA(C0CFPAT,"?+1,",.01)=DFN
+ D UPDIE ; ADD THE PATIENT
+ S PATN=$O(^C0CE("B",DFN,"")) ; IEN FOR THE PATIENT
+ S C0CFDA(C0CFSRC,"?+1,"_PATN_",",.01)=ZSRC
+ D UPDIE ; ADD THE CCR SOURCE
+ N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,"")) ; FIND THE ELE TYPE
+ S C0CFDA(C0CFTYP,"?+1,"_ZSRC_","_PATN_",",.01)=ZTYPN
+ D UPDIE ; ADD THE ELEMENT TYPE 
+ S ZTYP=$O(^C0CE(PATN,1,ZSRC,1,"B",ZTYPN,"")) ; IEN OF ELEMENT TYPE
+ S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=" "_ZOCC ; STRING OCC
+ ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE 
+ ; STRING COLLATION ON THE INDEX
+ D UPDIE ; ADD THE OCCURANCE
+ S ZD0=$O(^C0CE(PATN,1,ZSRC,1,ZTYP,1,"B"," "_ZOCC,""))
+ W "RECORD NUMBER: ",ZD0,!
+ ;B
+ N ZCNT,ZC0CI,ZVARN,C0CZ1
+ S ZCNT=0
+ S ZC0CI="" ;
+ F  S ZC0CI=$O(@ZVALS@(ZC0CI)) Q:ZC0CI=""  D  ;
+ . I ZC0CI'="M" D  ; NOT A SUBVARIABLE
+ . . S ZCNT=ZCNT+1 ;INCREMENT COUNT
+ . . S ZVARN=$$VARPTR(ZC0CI,ZTYPE) ;GET THE POINTER TO THE VAR IN THE CCR DICT
+ . . ; WILL ALLOW FOR LAYGO IF THE VARIABLE IS NOT FOUND
+ . . S C0CZ1=ZTYP_","_ZSRC_","_PATN_","
+ . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,.01)=ZVARN
+ . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,1)=@ZVALS@(ZC0CI)
+ . E  D  ; THIS IS A SUBELEMENT
+ . . N ZZCNT,ZZC0CI,ZZVALS,ZZVALS,ZT
+ . . S ZZCNT=0
+ . . S ZZC0CI=0
+ . . S ZZVALS=$NA(@ZVALS@("M")) ; LOCATION OF THIS MULTILPE
+ . . S ZT=$O(@ZZVALS@("")) ; ELEMENT TYPE OF MULTIPLE
+ . . S ZZVALS=$NA(@ZZVALS@(ZT)) ; PAST MULTIPLE TYPE INDICATOR
+ . . W "MULTIPLE:",ZZVALS,!
+ . . ;B
+ . . F  S ZZC0CI=$O(@ZZVALS@(ZZC0CI)) Q:ZZC0CI=""  D  ; EACH MULTIPLE
+ . . . S ZZCNT=ZZCNT+1 ;INCREMENT COUNT
+ . . . W "COUNT:",ZZCNT,!
+ . . . S ZV=$NA(@ZZVALS@(ZZC0CI))
+ . . . D PUTELS(DFN,ZT,ZOCC_";"_ZZCNT,ZV)
+ D CLEAN^DILF
+ D UPDATE^DIE("","C0CFDA","","ZERR")
+ I $D(ZERR) D  ;
+ . W "ERROR",!
+ . ZWR ZERR
+ . B
+ K C0CFDA
+ Q
+ ;
+UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
+ K ZERR
+ D CLEAN^DILF
+ D UPDATE^DIE("","C0CFDA","","ZERR")
+ I $D(ZERR) D  ;
+ . W "ERROR",!
+ . ZWR ZERR
+ . B
+ K C0CFDA
+ Q
+ ; 
+PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
+ ; 171.101, ^C0CE  DFN IS THE PATIENT IEN PASSED BY VALUE
+ ; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE
+ ; ZOCC IS THE OCCURANCE NUMBER IE PROBLEM NUMBER 1,2,3 ETC
+ ; ZVALS ARE THE VARIABLES AND VALUES PASSED BY NAME AND IN THE FORM
+ ; @ZVALS@("VAR1")="VALUE1" FOR ALL VARIABLES IN THIS ELEMENT
+ ; AND @ZVALS@("M",SUBOCCUR,"VAR2")="VALUE2" FOR SUB VARIABLES
+ ;
+ S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
+ ; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
+ N ZF,ZFV S ZF=171.101 S ZFV=171.1011 
+ ;S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
+ ;N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
+ N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,""))
+ W "ZTYPE: ",ZTYPE," ",ZTYPN,!
+ N ZVARN ; IEN OF VARIABLE BEING PROCESSED
+ ;N C0CFDA ; FDA FOR CCR ELEMENT UPDATE
+ K C0CFDA
+ S C0CFDA(ZF,"?+1,",.01)=DFN
+ S C0CFDA(ZF,"?+1,",.02)=ZSRC
+ S C0CFDA(ZF,"?+1,",.03)=ZTYPN
+ S C0CFDA(ZF,"?+1,",.04)=" "_ZOCC ;CREATE OCCURANCE
+ K ZERR
+ ;B
+ D UPDATE^DIE("","C0CFDA","","ZERR") ;ASSIGN RECORD NUMBER
+ I $D(ZERR) B  ;OOPS
+ K C0CFDA
+ S ZD0=$O(^C0CE("C",DFN,ZSRC,ZTYPN,ZOCC,""))
+ W "RECORD NUMBER: ",ZD0,!
+ ;B
+ S ZCNT=0
+ S ZC0CI="" ;
+ F  S ZC0CI=$O(@ZVALS@(ZC0CI)) Q:ZC0CI=""  D  ;
+ . I ZC0CI'="M" D  ; NOT A SUBVARIABLE
+ . . S ZCNT=ZCNT+1 ;INCREMENT COUNT
+ . . S ZVARN=$$VARPTR(ZC0CI,ZTYPE) ;GET THE POINTER TO THE VAR IN THE CCR DICT
+ . . ; WILL ALLOW FOR LAYGO IF THE VARIABLE IS NOT FOUND
+ . . S C0CFDA(ZFV,"?+"_ZCNT_","_ZD0_",",.01)=ZVARN
+ . . S C0CFDA(ZFV,"?+"_ZCNT_","_ZD0_",",1)=@ZVALS@(ZC0CI)
+ . . ;S C0CFDA(ZSFV,"+1,"_DFN_","_ZSRC_","_ZTYPN_","_ZOCC_",",.01)=ZVARN
+ . . ;S C0CFDA(ZSFV,"+1,"_DFN_","_ZSRC_","_ZTYPN_","_ZOCC_",",1)=@ZVALS@(ZC0CI)
+ ;S GT1(170,"?+1,",.01)="ZZZ NEW MEDVEHICLETEXT"
+ ;S GT1(170,"?+1,",12)="DIR"
+ ;S GT1(171.201221,"?+1,1,5,1,",.01)="ZZZ NEW MEDVEHICLETEXT"
+ ;S GT1(171.201221,"+1,1,5,1,",1)="THIRD NEW MED DIRECTION TEXT"
+ D CLEAN^DILF
+ D UPDATE^DIE("","C0CFDA","","ZERR")
+ I $D(ZERR) D  ;
+ . W "ERROR",!
+ . ZWR ZERR
+ . B
+ K C0CFDA
+ Q
+ ;
+VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
+ ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO 
+ ; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
+ ;
+ N ZCCRD,ZVARN,C0CFDA2
+ S ZCCRD=170 ; FILE NUMBER FOR CCR DICTIONARY
+ S ZVARN=$O(^C0CDIC(170,"B",ZVAR,"")) ;FIND IEN OF VARIABLE
+ I ZVARN="" D  ; VARIABLE NOT IN CCR DICTIONARY - ADD IT
+ . I '$D(ZTYP) D  Q  ; WON'T ADD A VARIABLE WITHOUT A TYPE
+ . . W "CANNOT ADD VARIABLE WITHOUT A TYPE: ",ZVAR,!
+ . S C0CFDA2(ZCCRD,"?+1,",.01)=ZVAR ; NAME OF NEW VARIABLE
+ . S C0CFDA2(ZCCRD,"?+1,",12)=ZTYP ; TYPE EXTERNAL OF NEW VARIABLE
+ . D CLEAN^DILF ;MAKE SURE ERRORS ARE CLEAN
+ . D UPDATE^DIE("E","C0CFDA2","","ZERR") ;ADD VAR TO CCR DICTIONARY
+ . I $D(ZERR) D  ; LAYGO ERROR
+ . . W "ERROR ADDING "_ZC0CI_" TO CCR DICTIONARY",!
+ . E  D  ;
+ . . D CLEAN^DILF ; CLEAN UP
+ . . S ZVARN=$O(^C0CDIC(170,"B",ZVAR,"")) ;FIND IEN OF VARIABLE
+ . . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
+ Q ZVARN
+ ; 
+BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
+ ; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
+ ; 
+ N C0CDIC,C0CNODE ;
+ S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
+ S C0CNODE=$$FILEREF^C0CRNF(170.101) ; CLOSED REF TO CCR NODE TYPE FILE
+ Q
+ ;
+FIXSEC ;FIX THE SECTION FIELD OF THE CCR DICTIONARY.. IT HAS BEEN REDEFINED
+ ; AS A POINTER TO CCR NODE TYPE INSTEAD OF BEING A SET
+ ; THE SET VALUES ARE PRESERVED IN ^KBAI("SECTION") TO FACILITATE THIS
+ ; CONVERSION
+ ;N C0CC,C0CI,C0CJ,C0CN,C0CZX
+ D FIELDS^C0CRNF("C0CC",170)
+ S C0CI=""
+ F  S C0CI=$O(^KBAI("SECTION",C0CI)) Q:C0CI=""  D  ; EACH SECTION
+ . S C0CZX=""
+ . F  S C0CZX=$O(^KBAI("SECTION",C0CI,C0CZX)) Q:C0CZX=""  D  ; EACH VARIABLE
+ . . W "SECTION ",C0CI," VAR ",C0CZX
+ . . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
+ . . W " TYPE: ",C0CV,! 
+ . . D SETFDA("SECTION",C0CV)
+ . . ;ZWR C0CFDA
+ Q
+ ;
+SETFDA(C0CSN,C0CSV) ; INTERNAL ROUTINE TO MAKE AN FDA ENTRY FOR FIELD C0CSN
+ ; TO SET TO VALUE C0CSV.
+ ; C0CFDA,C0CC,C0CZX ARE ASSUMED FROM THE CALLING ROUTINE
+ ; C0CSN,C0CSV ARE PASSED BY VALUE
+ ;
+ N C0CSI,C0CSJ
+ S C0CSI=$$ZFILE(C0CSN,"C0CC") ; FILE NUMBER
+ S C0CSJ=$$ZFIELD(C0CSN,"C0CC") ; FIELD NUMBER
+ S C0CFDA(C0CSI,C0CZX_",",C0CSJ)=C0CSV
+ Q
+ZFILE(ZFN,ZTAB) ; EXTRINSIC TO RETURN FILE NUMBER FOR FIELD NAME PASSED
+ ; BY VALUE IN ZFN. FILE NUMBER IS PIECE 1 OF C0CA(ZFN)
+ ; IF ZTAB IS NULL, IT DEFAULTS TO C0CA
+ I '$D(ZTAB) S ZTAB="C0CA"
+ N ZR
+ I $D(@ZTAB@(ZFN)) S ZR=$P(@ZTAB@(ZFN),"^",1)
+ E  S ZR=""
+ Q ZR
+ZFIELD(ZFN,ZTAB) ;EXTRINSIC TO RETURN FIELD NUMBER FOR FIELD NAME PASSED
+ ; BY VALUE IN ZFN. FILE NUMBER IS PIECE 2 OF C0CA(ZFN)
+ ; IF ZTAB IS NULL, IT DEFAULTS TO C0CA
+ I '$D(ZTAB) S ZTAB="C0CA"
+ N ZR
+ I $D(@ZTAB@(ZFN)) S ZR=$P(@ZTAB@(ZFN),"^",2)
+ E  S ZR=""
+ Q ZR
+ ;
+ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
+ ; BY VALUE IN ZFN. FILE NUMBER IS PIECE 3 OF C0CA(ZFN)
+ ; IF ZTAB IS NULL, IT DEFAULTS TO C0CA
+ I '$D(ZTAB) S ZTAB="C0CA"
+ N ZR
+ I $D(@ZTAB@(ZFN)) S ZR=$P(@ZTAB@(ZFN),"^",3)
+ E  S ZR=""
+ Q ZR
+ ;
Index: ccr/trunk/p/GPLLABS.m
===================================================================
--- ccr/trunk/p/GPLLABS.m	(revision 367)
+++ ccr/trunk/p/GPLLABS.m	(revision 368)
@@ -84,11 +84,11 @@
  . ;D QOPEN^GPLXPATH("C0CRBLD",C0CRTMP,C0CIS) ;1ST PART OF XML
  . D QUEUE^GPLXPATH("C0CRBLD",C0CRTMP,2,@C0CRTMP@(0)-4) ;UP TO <Test>
- . I $D(@C0CMAP@("M","TESTS",0)) D  ; TESTS EXIST
- . . S C0CJN=@C0CMAP@("M","TESTS",0) ; NUMBER OF TESTS
+ . I $D(@C0CMAP@("M","TEST",0)) D  ; TESTS EXIST
+ . . S C0CJN=@C0CMAP@("M","TEST",0) ; NUMBER OF TESTS
  . . K C0CTO ; CLEAR OUTPUT VARIABLE
  . . F C0CJ=1:1:C0CJN D   ;FOR EACH TEST RESULT
  . . . K C0CTMAP ; EMPTY MAPS FOR TEST RESULTS
  . . . S C0CTMP=$NA(@C0CRBASE@(C0CI,C0CJ)) ;WORK AREA FOR TEST RESULTS
- . . . S C0CTMAP=$NA(@C0CMAP@("M","TESTS",C0CJ)) ;
+ . . . S C0CTMAP=$NA(@C0CMAP@("M","TEST",C0CJ)) ;
  . . . I 'C0CQT W "MAPOBX:",C0CTMAP,!
  . . . D MAP^GPLXPATH("C0CTT",C0CTMAP,C0CTMP) ; MAP TO TMP
@@ -142,13 +142,9 @@
  . W "LAB LOOKUP FAILED, NO SSN",!
  . S C0CNSSN=1 ; SET NO SSN FLAG
- S C0CSPC="*" ; LOOKING FOR ALL LAB TYPES
- ;I $D(^TMP("GPLCCR","LABLIMIT")) D  ; IS LAB LIMIT SET? MOVE THIS TO PARMS
- ;. S C0CLLMT=^TMP("GPLCCR","LABLIMIT") ;USE THE LAB LIMIT PARAMATER
- ;E  S C0CLLMT="T-360" ;START DATE LONG AGO TO GET EVERYTHING
- S C0CLLMT=$$GET^C0CPARMS("LABLIMIT") ; GET THE LIMIT PARM
- S C0CLSTRT=$$GET^C0CPARMS("LABSTART") ; GET START PARM
- D DT^DILF(,C0CLLMT,.C0CSDT) ;
- W "LAB LIMIT: ",C0CLLMT,!
- D DT^DILF(,C0CLSTRT,.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
+ S C0CSPC="*" ; LOOKING FOR ALL LABS
+ I $D(^TMP("GPLCCR","RPMS")) D  ; RUNNING RPMS
+ . D DT^DILF(,"T-365",.C0CSDT) ; START DATE ONE YEAR AGO TO LIMIT VOLUME
+ E  D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING
+ D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY 
  S C0CR=$$GCPR^LA7QRY(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
  Q
@@ -161,7 +157,7 @@
  I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
  I '$D(^KVAI(0)) D SETTBL ; INITIALIZE LAB TABLE
- I ^TMP("GPLCCR","LABTBL",0)'="V2" D SETTBL ; NEED NEWEST VERSION
+ I ^KBAI(0)'="V2" D SETTBL ; NEED NEWEST VERSION
  I '$D(^TMP("HLS",$J,1)) D GHL7 ; GET HL7 MGS IF NOT ALREADY DONE
- S C0CTAB=$NA(^TMP("GPLCCR","LABTBL")) ; BASE OF OBX TABLE
+ S C0CTAB=$NA(^KBAI) ; BASE OF OBX TABLE
  S C0CHB=$NA(^TMP("HLS",$J))
  S C0CI=""
@@ -203,11 +199,11 @@
  . . . S XV("RESULTTESTCODINGSYSTEM")=C0CVAR("C3") ; PRIMARY DISPLAY NAME
  . . . S XV("RESULTTESTDESCRIPTIONTEXT")=C0CVAR("C2") ; USE PRIMARY TEXT
- . . N C0CZG S C0CZG=XV("RESULTTESTNORMALDESCRIPTIONTEXT") ;
- . . S XV("RESULTTESTNORMALDESCRIPTIONTEXT")=$$SYMENC^MXMLUTL(C0CZG) ;ESCAPE
+ . . N C0CZG S C0CZG=XV("RESULTTESTNORMALDESCTEXT") ;
+ . . S XV("RESULTTESTNORMALDESCTEXT")=$$SYMENC^MXMLUTL(C0CZG) ;ESCAPE
  . . S C0CZG=XV("RESULTTESTVALUE")
  . . S XV("RESULTTESTVALUE")=$$SYMENC^MXMLUTL(C0CZG) ;ESCAPE
  . I C0CTYP="OBX" D  ; PROCESS TEST RESULTS
  . . I C0CLOBX=0 D  ; FIRST TEST RESULT FOR THIS SECTION
- . . . S C0CLB2=$NA(@C0CLB@(C0CLI,"M","TESTS")) ; INDENT FOR TEST RESULTS
+ . . . S C0CLB2=$NA(@C0CLB@(C0CLI,"M","TEST")) ; INDENT FOR TEST RESULTS
  . . S C0CLOBX=C0CLOBX+1 ; INCREMENT TEST COUNT
  . . S @C0CLB2@(0)=C0CLOBX ; STORE THE TEST COUNT
@@ -368,5 +364,5 @@
  S X("OBX","OBX5")="5^00561^Observation Results^RESULTTESTVALUE"
  S X("OBX","OBX6")="6^00562^Units^RESULTTESTUNITS"
- S X("OBX","OBX7")="7^00563^Reference Range^RESULTTESTNORMALDESCRIPTIONTEXT"
+ S X("OBX","OBX7")="7^00563^Reference Range^RESULTTESTNORMALDESCTEXT"
  S X("OBX","OBX8")="8^00564^Abnormal Flags^RESULTTESTFLAG"
  S X("OBX","OBX9")="9^00639^Probability"
@@ -379,6 +375,6 @@
  S X("OBX","OBX16")="16^00584^Responsible Observer"
  S X("OBX","OBX17")="17^00936^Observation Method"
- M ^TMP("GPLCCR","LABTBL")=X ; SET VALUES IN ^TMP("GPLCCR","LABTBL")
- S ^TMP("GPLCCR","LABTBL",0)="V2"
- Q
- ;
+ M ^KBAI=X ; SET VALUES IN ^KBAI
+ S ^KBAI(0)="V2"
+ Q
+ ;