source: ccr/trunk/archive/C0CE_1_0_1_T1.KID@ 1661

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