VistA-ccr/archive/C0CE_1_0_2_T1.KID

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**