source: ccr/trunk/p/GPLCCR0.m@ 66

Last change on this file since 66 was 66, checked in by Sam Habiel, 16 years ago

Updated to a working CCRVA200 file
File size: 25.3 KB
Line 
1GPLCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
2 ;;0.1;CCDCCR;nopatch;noreleasedate
3 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
4 ;General Public License See attached copy of the License.
5 ;
6 ;This program is free software; you can redistribute it and/or modify
7 ;it under the terms of the GNU General Public License as published by
8 ;the Free Software Foundation; either version 2 of the License, or
9 ;(at your option) any later version.
10 ;
11 ;This program is distributed in the hope that it will be useful,
12 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;GNU General Public License for more details.
15 ;
16 ;You should have received a copy of the GNU General Public License along
17 ;with this program; if not, write to the Free Software Foundation, Inc.,
18 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19 ;
20 W "This is a CCR TEMPLATE with processing routines",!
21 W !
22 Q
23 ;
24ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array
25 ; ZARY IS PASSED BY NAME
26 ; BAT is a string identifying the section
27 ; LINE is a test which will evaluate to true or false
28 ; I '$G(@ZARY) D
29 . S @ZARY@(0)=0 ; initially there are no elements
30 . W "GOT HERE LOADING "_LINE,!
31 N CNT ; count of array elements
32 S CNT=@ZARY@(0) ; contains array count
33 S CNT=CNT+1 ; increment count
34 S @ZARY@(CNT)=LINE ; put the line in the array
35 ; S @ZARY@(BAT,CNT)="" ; index the test by battery
36 S @ZARY@(0)=CNT ; update the array counter
37 Q
38 ;
39ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
40 ; ZARY IS PASSED BY NAME
41 ; ZARY = name of the root, closed array format (e.g., "^TMP($J)")
42 ; ROUTINE = NAME OF THE ROUTINE - PASSED BY VALUE
43 K @ZARY S @ZARY=""
44 S @ZARY@(0)=0 ; initialize array count
45 N LINE,LABEL,BODY
46 N INTEST S INTEST=0 ; switch for in the TEMPLATE section
47 N SECTION S SECTION="[anonymous]" ; NO section LABEL
48 ;
49 N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D
50 . I LINE?." "1";<TEMPLATE>".E S INTEST=1 ; entering section
51 . I LINE?." "1";</TEMPLATE>".E S INTEST=0 ; leaving section
52 . I INTEST D ; within the section
53 . . I LINE?." "1";><".E D ; sub-section name found
54 . . . S SECTION=$P($P(LINE,";><",2),">",1) ; pull out name
55 . . I LINE?." "1";;".E D ; line found
56 . . . D ZT(ZARY,SECTION,$P(LINE,";;",2)) ; put the line in the array
57 Q
58 ;
59LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
60 D ZLOAD(ARY,"GPLCCR0")
61 ; ZWR @ARY
62 Q
63 ;
64 ;<TEMPLATE>
65 ;;<?xml version="1.0" encoding="UTF-8"?>
66 ;;<?xml-stylesheet type="text/xsl" href="ccr.xsl"?>
67 ;;<ContinuityOfCareRecord xmlns="urn:astm-org:CCR">
68 ;;<CCRDocumentObjectID>871bd605-e8f8-4b80-9918-4b03f781129e</CCRDocumentObjectID>
69 ;;<Language>
70 ;;<Text>English</Text>
71 ;;</Language>
72 ;;<Version>V1.0</Version>
73 ;;<DateTime>
74 ;;<ExactDateTime>@@DATETIME@@</ExactDateTime>
75 ;;</DateTime>
76 ;;<Patient>
77 ;;<ActorID>@@ACTORPATIENT@@</ActorID>
78 ;;</Patient>
79 ;;<From>
80 ;;<ActorLink>
81 ;;<ActorID>@@ACTORFROM@@</ActorID>
82 ;;</ActorLink>
83 ;;<ActorLink>
84 ;;<ActorID>@@ACTORFROM2@@</ActorID>
85 ;;</ActorLink>
86 ;;</From>
87 ;;<To>
88 ;;<ActorLink>
89 ;;<ActorID>@@ACTORTO@@</ActorID>
90 ;;<ActorRole>
91 ;;<Text>@@ACTORTOTEXT@@</Text>
92 ;;</ActorRole>
93 ;;</ActorLink>
94 ;;</To>
95 ;;<Purpose>
96 ;;<Description>
97 ;;<Text>@@PURPOSEDESCRIPTION@@</Text>
98 ;;</Description>
99 ;;</Purpose>
100 ;;<Body>
101 ;;<Problems>
102 ;;<Problem>
103 ;;<CCRDataObjectID>@@PROBLEMOBJECTID@@</CCRDataObjectID>
104 ;;<Type>
105 ;;<Text>Problem</Text>
106 ;;</Type>
107 ;;<Description>
108 ;;<Text>@@PROBLEMDESCRIPTION@@</Text>
109 ;;<Code>
110 ;;<Value>@@PROBLEMCODEVALUE@@</Value>
111 ;;<CodingSystem>ICD9CM</CodingSystem>
112 ;;<Version>@@PROBLEMCODINGVERSION@@</Version>
113 ;;</Code>
114 ;;</Description>
115 ;;<Source>
116 ;;<Actor>
117 ;;<ActorID>@@PROBLEMSOURCEACTORID@@</ActorID>
118 ;;</Actor>
119 ;;</Source>
120 ;;</Problem>
121 ;;</Problems>
122 ;;<FamilyHistory>
123 ;;<FamilyProblemHistory>
124 ;;<CCRDataObjectID>@@FAMILYHISTORYOBJECTID@@</CCRDataObjectID>
125 ;;<Source>
126 ;;<Actor>
127 ;;<ActorID>@@FAMILYHISTORYACTORID@@</ActorID>
128 ;;</Actor>
129 ;;</Source>
130 ;;<FamilyMember>
131 ;;<ActorID>@@FAMILYMEMBERACTORID@@</ActorID>
132 ;;<ActorRole>
133 ;;<Text>@@FAMILYMEMBERACTORROLETEXT@@</Text>
134 ;;</ActorRole>
135 ;;<Source>
136 ;;<Actor>
137 ;;<ActorID>@@FAMILYMEMBERSOURCACTORID@@</ActorID>
138 ;;</Actor>
139 ;;</Source>
140 ;;</FamilyMember>
141 ;;<Problem>
142 ;;<Type>
143 ;;<Text>Problem</Text>
144 ;;</Type>
145 ;;<Description>
146 ;;<Text>Heart Disease</Text>
147 ;;<Code>
148 ;;<Value>C0018799</Value>
149 ;;<CodingSystem>UMLS Concept</CodingSystem>
150 ;;<Version>2006</Version>
151 ;;</Code>
152 ;;<Code>
153 ;;<Value>429.9</Value>
154 ;;<CodingSystem>ICD9CM</CodingSystem>
155 ;;<Version>2006</Version>
156 ;;</Code>
157 ;;<Code>
158 ;;<Value>56265001</Value>
159 ;;<CodingSystem>SNOMEDCT</CodingSystem>
160 ;;<Version>2006</Version>
161 ;;</Code>
162 ;;</Description>
163 ;;<Source>
164 ;;<Actor>
165 ;;<ActorID>AA0001</ActorID>
166 ;;</Actor>
167 ;;</Source>
168 ;;</Problem>
169 ;;</FamilyProblemHistory>
170 ;;<FamilyProblemHistory>
171 ;;<CCRDataObjectID>BB0003</CCRDataObjectID>
172 ;;<Source>
173 ;;<Actor>
174 ;;<ActorID>AA0001</ActorID>
175 ;;</Actor>
176 ;;</Source>
177 ;;<FamilyMember>
178 ;;<ActorID>AA0004</ActorID>
179 ;;<ActorRole>
180 ;;<Text>Grandparents</Text>
181 ;;</ActorRole>
182 ;;<Source>
183 ;;<Actor>
184 ;;<ActorID>AA0001</ActorID>
185 ;;</Actor>
186 ;;</Source>
187 ;;</FamilyMember>
188 ;;<Problem>
189 ;;<Type>
190 ;;<Text>Problem</Text>
191 ;;</Type>
192 ;;<Description>
193 ;;<Text>Arthritis</Text>
194 ;;<Code>
195 ;;<Value>C0003873</Value>
196 ;;<CodingSystem>UMLS Concept</CodingSystem>
197 ;;<Version>2006</Version>
198 ;;</Code>
199 ;;<Code>
200 ;;<Value>714.0</Value>
201 ;;<CodingSystem>ICD9CM</CodingSystem>
202 ;;<Version>2006</Version>
203 ;;</Code>
204 ;;<Code>
205 ;;<Value>69896004</Value>
206 ;;<CodingSystem>SNOMEDCT</CodingSystem>
207 ;;<Version>2006</Version>
208 ;;</Code>
209 ;;</Description>
210 ;;<Source>
211 ;;<Actor>
212 ;;<ActorID>AA0001</ActorID>
213 ;;</Actor>
214 ;;</Source>
215 ;;</Problem>
216 ;;<Problem>
217 ;;<Type>
218 ;;<Text>Problem</Text>
219 ;;</Type>
220 ;;<Description>
221 ;;<Text>Diabetes Mellitus</Text>
222 ;;<Code>
223 ;;<Value>C0375113</Value>
224 ;;<CodingSystem>UMLS Concept</CodingSystem>
225 ;;<Version>2006</Version>
226 ;;</Code>
227 ;;<Code>
228 ;;<Value>250.00</Value>
229 ;;<CodingSystem>ICD9CM</CodingSystem>
230 ;;<Version>2006</Version>
231 ;;</Code>
232 ;;</Description>
233 ;;<Source>
234 ;;<Actor>
235 ;;<ActorID>AA0001</ActorID>
236 ;;</Actor>
237 ;;</Source>
238 ;;</Problem>
239 ;;<Problem>
240 ;;<Type>
241 ;;<Text>Problem</Text>
242 ;;</Type>
243 ;;<Description>
244 ;;<Text>Parkinson's disease NOS</Text>
245 ;;<Code>
246 ;;<Value>332.0</Value>
247 ;;<CodingSystem>ICD9CM</CodingSystem>
248 ;;<Version>2007</Version>
249 ;;</Code>
250 ;;</Description>
251 ;;<Source>
252 ;;<Actor>
253 ;;<ActorID>AA0001</ActorID>
254 ;;</Actor>
255 ;;</Source>
256 ;;</Problem>
257 ;;</FamilyProblemHistory>
258 ;;</FamilyHistory>
259 ;;<SocialHistory>
260 ;;<SocialHistoryElement>
261 ;;<CCRDataObjectID>@@SOCIALHISTORYOBJECTID@@</CCRDataObjectID>
262 ;;<Type>
263 ;;<Text>@@SOCIALHISTORYTYPETEXT@@</Text>
264 ;;</Type>
265 ;;<Description>
266 ;;<Text>@@SOCIALHISTORYDESCRIPTIONTEXT@@</Text>
267 ;;</Description>
268 ;;<Source>
269 ;;<Actor>
270 ;;<ActorID>@@SOCIALHISTORYSOURCACTORID@@</ActorID>
271 ;;</Actor>
272 ;;</Source>
273 ;;</SocialHistoryElement>
274 ;;<SocialHistoryElement>
275 ;;<CCRDataObjectID>BB0005</CCRDataObjectID>
276 ;;<Type>
277 ;;<Text>Ethnic Origin</Text>
278 ;;</Type>
279 ;;<Description>
280 ;;<Text>Not Hispanic or Latino</Text>
281 ;;</Description>
282 ;;<Source>
283 ;;<Actor>
284 ;;<ActorID>AA0001</ActorID>
285 ;;</Actor>
286 ;;</Source>
287 ;;</SocialHistoryElement>
288 ;;<SocialHistoryElement>
289 ;;<CCRDataObjectID>BB0006</CCRDataObjectID>
290 ;;<Type>
291 ;;<Text>Race</Text>
292 ;;</Type>
293 ;;<Description>
294 ;;<Text>White</Text>
295 ;;</Description>
296 ;;<Source>
297 ;;<Actor>
298 ;;<ActorID>AA0001</ActorID>
299 ;;</Actor>
300 ;;</Source>
301 ;;</SocialHistoryElement>
302 ;;<SocialHistoryElement>
303 ;;<CCRDataObjectID>BB0007</CCRDataObjectID>
304 ;;<Type>
305 ;;<Text>Occupation</Text>
306 ;;</Type>
307 ;;<Description>
308 ;;<Text>Physician</Text>
309 ;;</Description>
310 ;;<Source>
311 ;;<Actor>
312 ;;<ActorID>AA0001</ActorID>
313 ;;</Actor>
314 ;;</Source>
315 ;;</SocialHistoryElement>
316 ;;</SocialHistory>
317 ;;<Medications>
318 ;;<Medication>
319 ;;<CCRDataObjectID>@@MEDICATIONOBJECTID@@</CCRDataObjectID>
320 ;;<DateTime>
321 ;;<Type>
322 ;;<Text>@@MEDICATIONDATETIMETEXT@@</Text>
323 ;;</Type>
324 ;;<Age>
325 ;;<Value>@@MEDICATIONDATETIMEAGE@@</Value>
326 ;;<Units>
327 ;;<Unit>@@MEDICATIONDATETIMEAGEUNITS@@</Unit>
328 ;;</Units>
329 ;;</Age>
330 ;;</DateTime>
331 ;;<Type>
332 ;;<Text>@@MEDICATIONTYPETEXT@@</Text>
333 ;;</Type>
334 ;;<Status>
335 ;;<Text>@@MEDICATIONSTATUSTEXT@@</Text>
336 ;;</Status>
337 ;;<Source>
338 ;;<Actor>
339 ;;<ActorID>@@MEDICATIONSOURCEACTORID@@</ActorID>
340 ;;</Actor>
341 ;;</Source>
342 ;;<Product>
343 ;;<ProductName>
344 ;;<Text>@@MEDICATIONPRODUCTNAMETEXT@@</Text>
345 ;;<Code>
346 ;;<Value>@@MEDICATIONPRODUCTNAMECODEVALUE@@</Value>
347 ;;<CodingSystem>@@MEDICATIONPRODUCTNAMECODINGINGSYSTEM@@</CodingSystem>
348 ;;<Version>@@MEDICATIONPRODUCTNAMECODEVERSION@@</Version>
349 ;;</Code>
350 ;;</ProductName>
351 ;;<BrandName>
352 ;;<Text>@@MEDICATIONBRANDNAMETEXT@@</Text>
353 ;;<Code>
354 ;;<Value>@@MEDICATIONBRANDNAMECODEVALUE@@</Value>
355 ;;<CodingSystem>@@MEDICATIONBRANDNAMECODINGSYSTEM@@</CodingSystem>
356 ;;<Version>@@MEDICATIONBRANDNAMECODEVERSION@@</Version>
357 ;;</Code>
358 ;;</BrandName>
359 ;;<Strength>
360 ;;<Value>@@MEDICATIONSTRENGTHVALUE@@</Value>
361 ;;<Units>
362 ;;<Unit>@@MEDICATIONSTRENGTHUNIT@@</Unit>
363 ;;</Units>
364 ;;</Strength>
365 ;;<Form>
366 ;;<Text>@@MEDICATIONFORMTEXT@@</Text>
367 ;;</Form>
368 ;;</Product>
369 ;;<Directions>
370 ;;<Direction>
371 ;;<Description>
372 ;;<Text>@@MEDICATIONDIRECTIONDESCRIPTIONTEXT@@</Text>
373 ;;</Description>
374 ;;<Dose>
375 ;;<Value>@@MEDICATIONDIRECTIONDOSEVALUE@@</Value>
376 ;;</Dose>
377 ;;<Route>
378 ;;<Text>@@MEDICATIONDIRECTIONROUTETEXT@@</Text>
379 ;;</Route>
380 ;;<Frequency>
381 ;;<Value>@@MEDICATIONDIRECTIONFREQUENCYVALUE@@</Value>
382 ;;</Frequency>
383 ;;</Direction>
384 ;;</Directions>
385 ;;</Medication>
386 ;;</Medications>
387 ;;<VitalSigns>
388 ;;<Result>
389 ;;<CCRDataObjectID>@@VITALSIGNSDATAOBJECTID@@</CCRDataObjectID>
390 ;;<DateTime>
391 ;;<Type>
392 ;;<Text>@@VITALSIGNSDATETIMETYPETEXT@@</Text>
393 ;;</Type>
394 ;;<ExactDateTime>@@VITALSIGNSEXACTDATETIME@@</ExactDateTime>
395 ;;</DateTime>
396 ;;<Description>
397 ;;<Text>@@VITALSIGNSDESCRIPTIONTEXT@@</Text>
398 ;;</Description>
399 ;;<Source>
400 ;;<Actor>
401 ;;<ActorID>@@VITALSIGNSSOURCEACTORID@@</ActorID>
402 ;;</Actor>
403 ;;</Source>
404 ;;<Test>
405 ;;<CCRDataObjectID>@@VITALSIGNSTESTOBJECTID@@</CCRDataObjectID>
406 ;;<Type>
407 ;;<Text>@@VITALSIGNSTESTTYPETEXT@@</Text>
408 ;;</Type>
409 ;;<Description>
410 ;;<Text>@@VITALSIGNSDESCRIPTIONTEXT@@</Text>
411 ;;<Code>
412 ;;<Value>@@VITALSIGNSDESCRIPTIONCODEVALUE@@</Value>
413 ;;<CodingSystem>@@VITALSIGNSDESCRIPTIONCODINGSYSTEM@@</CodingSystem>
414 ;;<Version>@@VITALSIGNSCODEVERSION@@</Version>
415 ;;</Code>
416 ;;</Description>
417 ;;<Source>
418 ;;<Actor>
419 ;;<ActorID>@@VITALSIGNSTESTSOURCEACTORID@@</ActorID>
420 ;;</Actor>
421 ;;</Source>
422 ;;<TestResult>
423 ;;<Value>@@VITALSIGNSTESTRESULTVALUE@@</Value>
424 ;;<Units>
425 ;;<Unit>@@VITALSIGNSTESTRESULTUNIT@@</Unit>
426 ;;</Units>
427 ;;</TestResult>
428 ;;</Test>
429 ;;</Result>
430 ;;</VitalSigns>
431 ;;<Results>
432 ;;<Result>
433 ;;<CCRDataObjectID>7d5a02b0-67a4-11db-bd13-0800200c9a66</CCRDataObjectID>
434 ;;<DateTime>
435 ;;<Type>
436 ;;<Text>Assessment Time</Text>
437 ;;</Type>
438 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
439 ;;</DateTime>
440 ;;<Description>
441 ;;<Text>CBC WO DIFFERENTIAL</Text>
442 ;;<Code>
443 ;;<Value>43789009</Value>
444 ;;<CodingSystem>SNOMED CT</CodingSystem>
445 ;;</Code>
446 ;;</Description>
447 ;;<Status>
448 ;;<Text>Final Results</Text>
449 ;;</Status>
450 ;;<Source>
451 ;;<Actor>
452 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
453 ;;</Actor>
454 ;;</Source>
455 ;;<Test>
456 ;;<CCRDataObjectID>107c2dc0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
457 ;;<DateTime>
458 ;;<Type>
459 ;;<Text>Assessment Time</Text>
460 ;;</Type>
461 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
462 ;;</DateTime>
463 ;;<Description>
464 ;;<Text>HGB</Text>
465 ;;<Code>
466 ;;<Value>30313-1</Value>
467 ;;<CodingSystem>LOINC</CodingSystem>
468 ;;</Code>
469 ;;</Description>
470 ;;<Status>
471 ;;<Text>Final Results</Text>
472 ;;</Status>
473 ;;<Source>
474 ;;<Actor>
475 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
476 ;;</Actor>
477 ;;</Source>
478 ;;<TestResult>
479 ;;<Value>13.2</Value>
480 ;;<Units>
481 ;;<Unit>g/dl</Unit>
482 ;;</Units>
483 ;;</TestResult>
484 ;;<NormalResult>
485 ;;<Normal>
486 ;;<Description>
487 ;;<Text>M 13-18 g/dl; F 12-16 g/dl</Text>
488 ;;</Description>
489 ;;<Source>
490 ;;<Actor>
491 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
492 ;;</Actor>
493 ;;</Source>
494 ;;</Normal>
495 ;;</NormalResult>
496 ;;</Test>
497 ;;<Test>
498 ;;<CCRDataObjectID>8b3fa370-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
499 ;;<DateTime>
500 ;;<Type>
501 ;;<Text>Assessment Time</Text>
502 ;;</Type>
503 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
504 ;;</DateTime>
505 ;;<Description>
506 ;;<Text>WBC</Text>
507 ;;<Code>
508 ;;<Value>33765-9</Value>
509 ;;<CodingSystem>LOINC</CodingSystem>
510 ;;</Code>
511 ;;</Description>
512 ;;<Status>
513 ;;<Text>Final Results</Text>
514 ;;</Status>
515 ;;<Source>
516 ;;<Actor>
517 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
518 ;;</Actor>
519 ;;</Source>
520 ;;<TestResult>
521 ;;<Value>6.7</Value>
522 ;;<Units>
523 ;;<Unit>10+3/ul</Unit>
524 ;;</Units>
525 ;;</TestResult>
526 ;;<NormalResult>
527 ;;<Normal>
528 ;;<Value>4.3</Value>
529 ;;<Units>
530 ;;<Unit>10+3/ul</Unit>
531 ;;</Units>
532 ;;<ValueSequencePosition>1</ValueSequencePosition>
533 ;;<Source>
534 ;;<Actor>
535 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
536 ;;</Actor>
537 ;;</Source>
538 ;;</Normal>
539 ;;<Normal>
540 ;;<Value>10.8</Value>
541 ;;<Units>
542 ;;<Unit>10+3/ul</Unit>
543 ;;</Units>
544 ;;<ValueSequencePosition>2</ValueSequencePosition>
545 ;;<VariableNomalModifier>
546 ;;<Text>TO</Text>
547 ;;</VariableNomalModifier>
548 ;;<Source>
549 ;;<Actor>
550 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
551 ;;</Actor>
552 ;;</Source>
553 ;;</Normal>
554 ;;</NormalResult>
555 ;;</Test>
556 ;;<Test>
557 ;;<CCRDataObjectID>80a6c740-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
558 ;;<DateTime>
559 ;;<Type>
560 ;;<Text>Assessment Time</Text>
561 ;;</Type>
562 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
563 ;;</DateTime>
564 ;;<Description>
565 ;;<Text>PLT</Text>
566 ;;<Code>
567 ;;<Value>123</Value>
568 ;;<CodingSystem>LOINC</CodingSystem>
569 ;;</Code>
570 ;;</Description>
571 ;;<Status>
572 ;;<Text>Final Results</Text>
573 ;;</Status>
574 ;;<Source>
575 ;;<Actor>
576 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
577 ;;</Actor>
578 ;;</Source>
579 ;;<TestResult>
580 ;;<Value>153</Value>
581 ;;<Units>
582 ;;<Unit>10+3/ul</Unit>
583 ;;</Units>
584 ;;</TestResult>
585 ;;<NormalResult>
586 ;;<Normal>
587 ;;<Value>150</Value>
588 ;;<Units>
589 ;;<Unit>10+3/ul</Unit>
590 ;;</Units>
591 ;;<ValueSequencePosition>1</ValueSequencePosition>
592 ;;<Source>
593 ;;<Actor>
594 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
595 ;;</Actor>
596 ;;</Source>
597 ;;</Normal>
598 ;;<Normal>
599 ;;<Value>350</Value>
600 ;;<Units>
601 ;;<Unit>10+3/ul</Unit>
602 ;;</Units>
603 ;;<ValueSequencePosition>2</ValueSequencePosition>
604 ;;<VariableNomalModifier>
605 ;;<Text>TO</Text>
606 ;;</VariableNomalModifier>
607 ;;<Source>
608 ;;<Actor>
609 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
610 ;;</Actor>
611 ;;</Source>
612 ;;</Normal>
613 ;;</NormalResult>
614 ;;<Flag>
615 ;;<Text>LOW</Text>
616 ;;</Flag>
617 ;;</Test>
618 ;;</Result>
619 ;;<Result>
620 ;;<CCRDataObjectID>a40027e0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
621 ;;<DateTime>
622 ;;<Type>
623 ;;<Text>Assessment Time</Text>
624 ;;</Type>
625 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
626 ;;</DateTime>
627 ;;<Description>
628 ;;<Text>LYTES</Text>
629 ;;<Code>
630 ;;<Value>20109005</Value>
631 ;;<CodingSystem>SNOMED CT</CodingSystem>
632 ;;</Code>
633 ;;</Description>
634 ;;<Status>
635 ;;<Text>Final Results</Text>
636 ;;</Status>
637 ;;<Source>
638 ;;<Actor>
639 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
640 ;;</Actor>
641 ;;</Source>
642 ;;<Test>
643 ;;<CCRDataObjectID>a40027e1-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
644 ;;<DateTime>
645 ;;<Type>
646 ;;<Text>Assessment Time</Text>
647 ;;</Type>
648 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
649 ;;</DateTime>
650 ;;<Description>
651 ;;<Text>NA</Text>
652 ;;<Code>
653 ;;<Value>2951-2</Value>
654 ;;<CodingSystem>LOINC</CodingSystem>
655 ;;</Code>
656 ;;</Description>
657 ;;<Status>
658 ;;<Text>Final Results</Text>
659 ;;</Status>
660 ;;<Source>
661 ;;<Actor>
662 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
663 ;;</Actor>
664 ;;</Source>
665 ;;<TestResult>
666 ;;<Value>140</Value>
667 ;;<Units>
668 ;;<Unit>meq/l</Unit>
669 ;;</Units>
670 ;;</TestResult>
671 ;;<NormalResult>
672 ;;<Normal>
673 ;;<Value>135</Value>
674 ;;<Units>
675 ;;<Unit>meq/l</Unit>
676 ;;</Units>
677 ;;<ValueSequencePosition>1</ValueSequencePosition>
678 ;;<Source>
679 ;;<Actor>
680 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
681 ;;</Actor>
682 ;;</Source>
683 ;;</Normal>
684 ;;<Normal>
685 ;;<Value>145</Value>
686 ;;<Units>
687 ;;<Unit>meq/l</Unit>
688 ;;</Units>
689 ;;<ValueSequencePosition>2</ValueSequencePosition>
690 ;;<VariableNomalModifier>
691 ;;<Text>TO</Text>
692 ;;</VariableNomalModifier>
693 ;;<Source>
694 ;;<Actor>
695 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
696 ;;</Actor>
697 ;;</Source>
698 ;;</Normal>
699 ;;</NormalResult>
700 ;;</Test>
701 ;;<Test>
702 ;;<CCRDataObjectID>a40027e2-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
703 ;;<DateTime>
704 ;;<Type>
705 ;;<Text>Assessment Time</Text>
706 ;;</Type>
707 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
708 ;;</DateTime>
709 ;;<Description>
710 ;;<Text>K</Text>
711 ;;<Code>
712 ;;<Value>2823-3</Value>
713 ;;<CodingSystem>LOINC</CodingSystem>
714 ;;</Code>
715 ;;</Description>
716 ;;<Status>
717 ;;<Text>Final Results</Text>
718 ;;</Status>
719 ;;<Source>
720 ;;<Actor>
721 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
722 ;;</Actor>
723 ;;</Source>
724 ;;<TestResult>
725 ;;<Value>4.0</Value>
726 ;;<Units>
727 ;;<Unit>meq/l</Unit>
728 ;;</Units>
729 ;;</TestResult>
730 ;;<NormalResult>
731 ;;<Normal>
732 ;;<Value>3.5</Value>
733 ;;<Units>
734 ;;<Unit>meq/l</Unit>
735 ;;</Units>
736 ;;<ValueSequencePosition>1</ValueSequencePosition>
737 ;;<Source>
738 ;;<Actor>
739 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
740 ;;</Actor>
741 ;;</Source>
742 ;;</Normal>
743 ;;<Normal>
744 ;;<Value>5.0</Value>
745 ;;<Units>
746 ;;<Unit>meq/l</Unit>
747 ;;</Units>
748 ;;<ValueSequencePosition>2</ValueSequencePosition>
749 ;;<VariableNomalModifier>
750 ;;<Text>TO</Text>
751 ;;</VariableNomalModifier>
752 ;;<Source>
753 ;;<Actor>
754 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
755 ;;</Actor>
756 ;;</Source>
757 ;;</Normal>
758 ;;</NormalResult>
759 ;;</Test>
760 ;;<Test>
761 ;;<CCRDataObjectID>a40027e3-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
762 ;;<DateTime>
763 ;;<Type>
764 ;;<Text>Assessment Time</Text>
765 ;;</Type>
766 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
767 ;;</DateTime>
768 ;;<Description>
769 ;;<Text>CL</Text>
770 ;;<Code>
771 ;;<Value>2075-0</Value>
772 ;;<CodingSystem>LOINC</CodingSystem>
773 ;;</Code>
774 ;;</Description>
775 ;;<Status>
776 ;;<Text>Final Results</Text>
777 ;;</Status>
778 ;;<Source>
779 ;;<Actor>
780 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
781 ;;</Actor>
782 ;;</Source>
783 ;;<TestResult>
784 ;;<Value>102</Value>
785 ;;<Units>
786 ;;<Unit>meq/l</Unit>
787 ;;</Units>
788 ;;</TestResult>
789 ;;<NormalResult>
790 ;;<Normal>
791 ;;<Value>98</Value>
792 ;;<Units>
793 ;;<Unit>meq/l</Unit>
794 ;;</Units>
795 ;;<ValueSequencePosition>1</ValueSequencePosition>
796 ;;<Source>
797 ;;<Actor>
798 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
799 ;;</Actor>
800 ;;</Source>
801 ;;</Normal>
802 ;;<Normal>
803 ;;<Value>106</Value>
804 ;;<Units>
805 ;;<Unit>meq/l</Unit>
806 ;;</Units>
807 ;;<ValueSequencePosition>2</ValueSequencePosition>
808 ;;<VariableNomalModifier>
809 ;;<Text>TO</Text>
810 ;;</VariableNomalModifier>
811 ;;<Source>
812 ;;<Actor>
813 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
814 ;;</Actor>
815 ;;</Source>
816 ;;</Normal>
817 ;;</NormalResult>
818 ;;</Test>
819 ;;<Test>
820 ;;<CCRDataObjectID>a40027e4-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
821 ;;<DateTime>
822 ;;<Type>
823 ;;<Text>Assessment Time</Text>
824 ;;</Type>
825 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
826 ;;</DateTime>
827 ;;<Description>
828 ;;<Text>HCO3</Text>
829 ;;<Code>
830 ;;<Value>1963-8</Value>
831 ;;<CodingSystem>LOINC</CodingSystem>
832 ;;</Code>
833 ;;</Description>
834 ;;<Status>
835 ;;<Text>Final Results</Text>
836 ;;</Status>
837 ;;<Source>
838 ;;<Actor>
839 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
840 ;;</Actor>
841 ;;</Source>
842 ;;<TestResult>
843 ;;<Value>35</Value>
844 ;;<Units>
845 ;;<Unit>meq/l</Unit>
846 ;;</Units>
847 ;;</TestResult>
848 ;;<NormalResult>
849 ;;<Normal>
850 ;;<Value>18</Value>
851 ;;<Units>
852 ;;<Unit>meq/l</Unit>
853 ;;</Units>
854 ;;<ValueSequencePosition>1</ValueSequencePosition>
855 ;;<Source>
856 ;;<Actor>
857 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
858 ;;</Actor>
859 ;;</Source>
860 ;;</Normal>
861 ;;<Normal>
862 ;;<Value>23</Value>
863 ;;<Units>
864 ;;<Unit>meq/l</Unit>
865 ;;</Units>
866 ;;<ValueSequencePosition>2</ValueSequencePosition>
867 ;;<VariableNomalModifier>
868 ;;<Text>TO</Text>
869 ;;</VariableNomalModifier>
870 ;;<Source>
871 ;;<Actor>
872 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
873 ;;</Actor>
874 ;;</Source>
875 ;;</Normal>
876 ;;</NormalResult>
877 ;;<Flag>
878 ;;<Text>HIGH</Text>
879 ;;</Flag>
880 ;;</Test>
881 ;;</Result>
882 ;;</Results>
883 ;;<HealthCareProviders>
884 ;;<Provider>
885 ;;<ActorID>AA0005</ActorID>
886 ;;<ActorRole>
887 ;;<Text>Primary Provider</Text>
888 ;;</ActorRole>
889 ;;</Provider>
890 ;;</HealthCareProviders>
891 ;;</Body>
892 ;;<Actors>
893 ;;<ACTOR-PATIENT>
894 ;;<Actor>
895 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
896 ;;<Person>
897 ;;<Name>
898 ;;<CurrentName>
899 ;;<Given>@@ACTORGIVENNAME@@</Given>
900 ;;<Middle>@@ACTORMIDDLENAME@@</Middle>
901 ;;<Family>@@ACTORFAMILYNAME@@</Family>
902 ;;</CurrentName>
903 ;;</Name>
904 ;;<DateOfBirth>
905 ;;<ExactDateTime>@@ACTORDATEOFBIRTH@@</ExactDateTime>
906 ;;</DateOfBirth>
907 ;;<Gender>
908 ;;<Code>
909 ;;<Text>@@ACTORGENDER@@</Text>
910 ;;<Value>@@ACTORGENDER@@</Value>
911 ;;<CodingSystem>2.16.840.1.113883.5.1</CodingSystem>
912 ;;</Code>
913 ;;</Gender>
914 ;;</Person>
915 ;;<IDs>
916 ;;<Type>
917 ;;<Text>SSN</Text>
918 ;;</Type>
919 ;;<ID>@@ACTORSSN@@</ID>
920 ;;<Source>
921 ;;<Actor>
922 ;;<ActorID>@@ACTORSSNSOURCEID@@</ActorID>
923 ;;</Actor>
924 ;;</Source>
925 ;;</IDs>
926 ;;<Address>
927 ;;<Type>
928 ;;<Text>@@ACTORADDRESSTYPE@@</Text>
929 ;;</Type>
930 ;;<Line1>@@ACTORADDRESSLINE1@@</Line1>
931 ;;<Line2>@@ACTORADDRESSLINE2@@</Line2>
932 ;;<City>@@ACTORADDRESSCITY@@</City>
933 ;;<State>@@ACTORADDRESSSTATE@@</State>
934 ;;<PostalCode>@@ACTORADDRESSZIPCODE@@</PostalCode>
935 ;;</Address>
936 ;;<Telephone>
937 ;;<Value>@@ACTORRESTEL@@</Value>
938 ;;<Type>
939 ;;<Text>Residential Telephone</Text>
940 ;;</Type>
941 ;;</Telephone>
942 ;;<Telephone>
943 ;;<Value>@@ACTORWORKTEL@@</Value>
944 ;;<Type>
945 ;;<Text>Work Telephone</Text>
946 ;;</Type>
947 ;;</Telephone>
948 ;;<Telephone>
949 ;;<Value>@@ACTORCELLTEL@@</Value>
950 ;;<Type>
951 ;;<Text>Cell phone</Text>
952 ;;</Type>
953 ;;</Telephone>
954 ;;<EMail>
955 ;;<Value>@@ACTOREMAIL@@</Value>
956 ;;</EMail>
957 ;;<Source>
958 ;;<Actor>
959 ;;<ActorID>@@ACTORADDRESSSOURCEID@@</ActorID>
960 ;;</Actor>
961 ;;</Source>
962 ;;</Actor>
963 ;;</ACTOR-PATIENT>
964 ;;<ACTOR-SYSTEM>
965 ;;<Actor>
966 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
967 ;;<InformationSystem>
968 ;;<Name>@@ACTORINFOSYSNAME@@</Name>
969 ;;<Version>@@ACTORINFOSYSVER@@</Version>
970 ;;</InformationSystem>
971 ;;<Source>
972 ;;<Actor>
973 ;;<ActorID>@@ACTORINFOSYSSOURCEID@@</ActorID>
974 ;;</Actor>
975 ;;</Source>
976 ;;</Actor>
977 ;;</ACTOR-SYSTEM>
978 ;;<ACTOR-NOK>
979 ;;<Actor>
980 ;;<ActorObjectID>AA0003</ActorObjectID>
981 ;;<Person>
982 ;;<Name>
983 ;;<DisplayName>@@ACTORDISPLAYNAME@@</DisplayName>
984 ;;</Name>
985 ;;</Person>
986 ;;<Relation>
987 ;;<Text>@@ACTORRELATION@@</Text>
988 ;;</Relation>
989 ;;<Source>
990 ;;<Actor>
991 ;;<ActorID>@@ACTORRELATIONSOURCEID@@</ActorID>
992 ;;</Actor>
993 ;;</Source>
994 ;;</Actor>
995 ;;</ACTOR-NOK>
996 ;;<ACTOR-PROVIDER>
997 ;;<Actor>
998 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
999 ;;<Person>
1000 ;;<Name>
1001 ;;<CurrentName>
1002 ;;<Given>@@ACTORGIVENNAME@@</Given>
1003 ;;<Middle>@@ACTORMIDDLENAME@@</Middle>
1004 ;;<Family>@@ACTORFAMILYNAME@@</Family>
1005 ;;<Title>@@ACTORTITLE@@</Title>
1006 ;;</CurrentName>
1007 ;;</Name>
1008 ;;</Person>
1009 ;;<IDs>
1010 ;;<Type>
1011 ;;<Text>@@IDTYPE@@</Text>
1012 ;;</Type>
1013 ;;<ID>@@ID@@</ID>
1014 ;;<IssuedBy>
1015 ;;<Description>
1016 ;;<Text>@@IDDESC@@</Text>
1017 ;;</Description>
1018 ;;</IssuedBy>
1019 ;;</IDs>
1020 ;;<Specialty>
1021 ;;<Text>@@ACTORSPECIALITY@@</Text>
1022 ;;</Specialty>
1023 ;;<Address>
1024 ;;<Type>
1025 ;;<Text>@@ACTORADDRESSTYPE@@</Text>
1026 ;;</Type>
1027 ;;<Line1>@@ACTORADDRESSLINE1@@</Line1>
1028 ;;<City>@@ACTORADDRESSCITY@@</City>
1029 ;;<State>@@ACTORADDRESSSTATE@@</State>
1030 ;;<PostalCode>@@ACTORPOSTALCODE@@</PostalCode>
1031 ;;</Address>
1032 ;;<Telephone>
1033 ;;<Value>@@ACTORTELEPHONE@@</Value>
1034 ;;<Type>
1035 ;;<Text>@@ACTORTELTYPE@@</Text>
1036 ;;</Type>
1037 ;;</Telephone>
1038 ;;<Email>
1039 ;;<Value>@@ACTOREMAIL@@</Value>
1040 ;;</Email>
1041 ;;<Source>
1042 ;;<Actor>
1043 ;;<ActorID>@@ACTORSOURCEID@@</ActorID>
1044 ;;</Actor>
1045 ;;</Source>
1046 ;;</Actor>
1047 ;;</ACTOR-PROVIDER>
1048 ;;<ACTOR-ORG>
1049 ;;<Actor>
1050 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
1051 ;;<Organization>
1052 ;;<Name>@@ORGANIZATIONNAME@@</Name>
1053 ;;</Organization>
1054 ;;<Source>
1055 ;;<Actor>
1056 ;;<ActorID>@@ACTORSOURCEID</ActorID>
1057 ;;</Actor>
1058 ;;</Source>
1059 ;;</Actor>
1060 ;;</ACTOR-ORG>
1061 ;;</Actors>
1062 ;;<Signatures>
1063 ;;<CCRSignature>
1064 ;;<SignatureObjectID>S0001</SignatureObjectID>
1065 ;;<ExactDateTime>2008-03-18T23:10:58Z</ExactDateTime>
1066 ;;<Source>
1067 ;;<ActorID>AA0001</ActorID>
1068 ;;</Source>
1069 ;;<Signature>
1070 ;;<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
1071 ;;<SignedInfo>
1072 ;;<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
1073 ;;<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
1074 ;;<Reference URI="">
1075 ;;<Transforms>
1076 ;;<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
1077 ;;</Transforms>
1078 ;;<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>
1079 ;;<DigestValue>YFveLLyo+75P7rSciv0/m1O6Ot4=</DigestValue>
1080 ;;</Reference>
1081 ;;</SignedInfo>
1082 ;;<SignatureValue>Bj6sACXl74hrlbUYnu8HqnRab5VGy69BOYjOH7dETxgppXMEd7AoVYaePZvgJft78JR4oQY76hbFyGcIslYauPpJxx2hCd5d56xFeaQg01R6AQOvGnhjlq63TbpFdUq0B4tYsmiibJPbQJhTQe+TcWTBvWaQt8Fkk5blO571YvI=</SignatureValue>
1083 ;;<KeyInfo>
1084 ;;<KeyValue>
1085 ;;<RSAKeyValue>
1086 ;;<Modulus>meH817QYol+/uUEg6j8Mg89s7GTlaN9B+/CGlzrtnQH+swMigZRnEPxHVO8PhEymP/W9nlhAjTScV/CUzA9yJ9WiaOn17c+KReKhfBqL24DX9BpbJ+kLYVz7mBO5Qydk5AzUT2hFwW93irD8iRKP+/t+2Mi2CjNfj8VTjJpHpm0=</Modulus>
1087 ;;<Exponent>AQAB</Exponent>
1088 ;;</RSAKeyValue>
1089 ;;</KeyValue>
1090 ;;</KeyInfo>
1091 ;;</Signature>
1092 ;;</Signature>
1093 ;;</CCRSignature>
1094 ;;</Signatures>
1095 ;;</ContinuityOfCareRecord>
1096 ;</TEMPLATE>
Note: See TracBrowser for help on using the repository browser.