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

Last change on this file since 71 was 71, checked in by George Lilly, 16 years ago

call $$SITEVASITE for INSTITUTION NAME
File size: 23.5 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>@@FAMILYMEMBERPROBLEMDESCRIPTION@@</Text>
147 ;;<Code>
148 ;;<Value>@@FAMILYMEMBERPROBLEMCODE@@</Value>
149 ;;<CodingSystem>@@FAMILYMEMBERCODESYSTEM@@</CodingSystem>
150 ;;<Version>@@FAMILYMEMBERCODEVERSION@@</Version>
151 ;;</Code>
152 ;;</Description>
153 ;;<Source>
154 ;;<Actor>
155 ;;<ActorID>@@FAMILYMEMBERPROBLEMSOURCEID@@</ActorID>
156 ;;</Actor>
157 ;;</Source>
158 ;;</Problem>
159 ;;</FamilyProblemHistory>
160 ;;</FamilyHistory>
161 ;;<SocialHistory>
162 ;;<SocialHistoryElement>
163 ;;<CCRDataObjectID>@@SOCIALHISTORYOBJECTID@@</CCRDataObjectID>
164 ;;<Type>
165 ;;<Text>@@SOCIALHISTORYTYPETEXT@@</Text>
166 ;;</Type>
167 ;;<Description>
168 ;;<Text>@@SOCIALHISTORYDESCRIPTIONTEXT@@</Text>
169 ;;</Description>
170 ;;<Source>
171 ;;<Actor>
172 ;;<ActorID>@@SOCIALHISTORYSOURCACTORID@@</ActorID>
173 ;;</Actor>
174 ;;</Source>
175 ;;</SocialHistoryElement>
176 ;;<SocialHistoryElement>
177 ;;<CCRDataObjectID>BB0005</CCRDataObjectID>
178 ;;<Type>
179 ;;<Text>Ethnic Origin</Text>
180 ;;</Type>
181 ;;<Description>
182 ;;<Text>Not Hispanic or Latino</Text>
183 ;;</Description>
184 ;;<Source>
185 ;;<Actor>
186 ;;<ActorID>AA0001</ActorID>
187 ;;</Actor>
188 ;;</Source>
189 ;;</SocialHistoryElement>
190 ;;<SocialHistoryElement>
191 ;;<CCRDataObjectID>BB0006</CCRDataObjectID>
192 ;;<Type>
193 ;;<Text>Race</Text>
194 ;;</Type>
195 ;;<Description>
196 ;;<Text>White</Text>
197 ;;</Description>
198 ;;<Source>
199 ;;<Actor>
200 ;;<ActorID>AA0001</ActorID>
201 ;;</Actor>
202 ;;</Source>
203 ;;</SocialHistoryElement>
204 ;;<SocialHistoryElement>
205 ;;<CCRDataObjectID>BB0007</CCRDataObjectID>
206 ;;<Type>
207 ;;<Text>Occupation</Text>
208 ;;</Type>
209 ;;<Description>
210 ;;<Text>Physician</Text>
211 ;;</Description>
212 ;;<Source>
213 ;;<Actor>
214 ;;<ActorID>AA0001</ActorID>
215 ;;</Actor>
216 ;;</Source>
217 ;;</SocialHistoryElement>
218 ;;</SocialHistory>
219 ;;<Medications>
220 ;;<Medication>
221 ;;<CCRDataObjectID>@@MEDICATIONOBJECTID@@</CCRDataObjectID>
222 ;;<DateTime>
223 ;;<Type>
224 ;;<Text>@@MEDICATIONDATETIMETEXT@@</Text>
225 ;;</Type>
226 ;;<Age>
227 ;;<Value>@@MEDICATIONDATETIMEAGE@@</Value>
228 ;;<Units>
229 ;;<Unit>@@MEDICATIONDATETIMEAGEUNITS@@</Unit>
230 ;;</Units>
231 ;;</Age>
232 ;;</DateTime>
233 ;;<Type>
234 ;;<Text>@@MEDICATIONTYPETEXT@@</Text>
235 ;;</Type>
236 ;;<Status>
237 ;;<Text>@@MEDICATIONSTATUSTEXT@@</Text>
238 ;;</Status>
239 ;;<Source>
240 ;;<Actor>
241 ;;<ActorID>@@MEDICATIONSOURCEACTORID@@</ActorID>
242 ;;</Actor>
243 ;;</Source>
244 ;;<Product>
245 ;;<ProductName>
246 ;;<Text>@@MEDICATIONPRODUCTNAMETEXT@@</Text>
247 ;;<Code>
248 ;;<Value>@@MEDICATIONPRODUCTNAMECODEVALUE@@</Value>
249 ;;<CodingSystem>@@MEDICATIONPRODUCTNAMECODINGINGSYSTEM@@</CodingSystem>
250 ;;<Version>@@MEDICATIONPRODUCTNAMECODEVERSION@@</Version>
251 ;;</Code>
252 ;;</ProductName>
253 ;;<BrandName>
254 ;;<Text>@@MEDICATIONBRANDNAMETEXT@@</Text>
255 ;;<Code>
256 ;;<Value>@@MEDICATIONBRANDNAMECODEVALUE@@</Value>
257 ;;<CodingSystem>@@MEDICATIONBRANDNAMECODINGSYSTEM@@</CodingSystem>
258 ;;<Version>@@MEDICATIONBRANDNAMECODEVERSION@@</Version>
259 ;;</Code>
260 ;;</BrandName>
261 ;;<Strength>
262 ;;<Value>@@MEDICATIONSTRENGTHVALUE@@</Value>
263 ;;<Units>
264 ;;<Unit>@@MEDICATIONSTRENGTHUNIT@@</Unit>
265 ;;</Units>
266 ;;</Strength>
267 ;;<Form>
268 ;;<Text>@@MEDICATIONFORMTEXT@@</Text>
269 ;;</Form>
270 ;;</Product>
271 ;;<Directions>
272 ;;<Direction>
273 ;;<Description>
274 ;;<Text>@@MEDICATIONDIRECTIONDESCRIPTIONTEXT@@</Text>
275 ;;</Description>
276 ;;<Dose>
277 ;;<Value>@@MEDICATIONDIRECTIONDOSEVALUE@@</Value>
278 ;;</Dose>
279 ;;<Route>
280 ;;<Text>@@MEDICATIONDIRECTIONROUTETEXT@@</Text>
281 ;;</Route>
282 ;;<Frequency>
283 ;;<Value>@@MEDICATIONDIRECTIONFREQUENCYVALUE@@</Value>
284 ;;</Frequency>
285 ;;</Direction>
286 ;;</Directions>
287 ;;</Medication>
288 ;;</Medications>
289 ;;<VitalSigns>
290 ;;<Result>
291 ;;<CCRDataObjectID>@@VITALSIGNSDATAOBJECTID@@</CCRDataObjectID>
292 ;;<DateTime>
293 ;;<Type>
294 ;;<Text>@@VITALSIGNSDATETIMETYPETEXT@@</Text>
295 ;;</Type>
296 ;;<ExactDateTime>@@VITALSIGNSEXACTDATETIME@@</ExactDateTime>
297 ;;</DateTime>
298 ;;<Description>
299 ;;<Text>@@VITALSIGNSDESCRIPTIONTEXT@@</Text>
300 ;;</Description>
301 ;;<Source>
302 ;;<Actor>
303 ;;<ActorID>@@VITALSIGNSSOURCEACTORID@@</ActorID>
304 ;;</Actor>
305 ;;</Source>
306 ;;<Test>
307 ;;<CCRDataObjectID>@@VITALSIGNSTESTOBJECTID@@</CCRDataObjectID>
308 ;;<Type>
309 ;;<Text>@@VITALSIGNSTESTTYPETEXT@@</Text>
310 ;;</Type>
311 ;;<Description>
312 ;;<Text>@@VITALSIGNSDESCRIPTIONTEXT@@</Text>
313 ;;<Code>
314 ;;<Value>@@VITALSIGNSDESCRIPTIONCODEVALUE@@</Value>
315 ;;<CodingSystem>@@VITALSIGNSDESCRIPTIONCODINGSYSTEM@@</CodingSystem>
316 ;;<Version>@@VITALSIGNSCODEVERSION@@</Version>
317 ;;</Code>
318 ;;</Description>
319 ;;<Source>
320 ;;<Actor>
321 ;;<ActorID>@@VITALSIGNSTESTSOURCEACTORID@@</ActorID>
322 ;;</Actor>
323 ;;</Source>
324 ;;<TestResult>
325 ;;<Value>@@VITALSIGNSTESTRESULTVALUE@@</Value>
326 ;;<Units>
327 ;;<Unit>@@VITALSIGNSTESTRESULTUNIT@@</Unit>
328 ;;</Units>
329 ;;</TestResult>
330 ;;</Test>
331 ;;</Result>
332 ;;</VitalSigns>
333 ;;<Results>
334 ;;<Result>
335 ;;<CCRDataObjectID>7d5a02b0-67a4-11db-bd13-0800200c9a66</CCRDataObjectID>
336 ;;<DateTime>
337 ;;<Type>
338 ;;<Text>Assessment Time</Text>
339 ;;</Type>
340 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
341 ;;</DateTime>
342 ;;<Description>
343 ;;<Text>CBC WO DIFFERENTIAL</Text>
344 ;;<Code>
345 ;;<Value>43789009</Value>
346 ;;<CodingSystem>SNOMED CT</CodingSystem>
347 ;;</Code>
348 ;;</Description>
349 ;;<Status>
350 ;;<Text>Final Results</Text>
351 ;;</Status>
352 ;;<Source>
353 ;;<Actor>
354 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
355 ;;</Actor>
356 ;;</Source>
357 ;;<Test_1>
358 ;;<CCRDataObjectID>107c2dc0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
359 ;;<DateTime>
360 ;;<Type>
361 ;;<Text>Assessment Time</Text>
362 ;;</Type>
363 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
364 ;;</DateTime>
365 ;;<Description>
366 ;;<Text>HGB</Text>
367 ;;<Code>
368 ;;<Value>30313-1</Value>
369 ;;<CodingSystem>LOINC</CodingSystem>
370 ;;</Code>
371 ;;</Description>
372 ;;<Status>
373 ;;<Text>Final Results</Text>
374 ;;</Status>
375 ;;<Source>
376 ;;<Actor>
377 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
378 ;;</Actor>
379 ;;</Source>
380 ;;<TestResult>
381 ;;<Value>13.2</Value>
382 ;;<Units>
383 ;;<Unit>g/dl</Unit>
384 ;;</Units>
385 ;;</TestResult>
386 ;;<NormalResult>
387 ;;<Normal>
388 ;;<Description>
389 ;;<Text>M 13-18 g/dl; F 12-16 g/dl</Text>
390 ;;</Description>
391 ;;<Source>
392 ;;<Actor>
393 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
394 ;;</Actor>
395 ;;</Source>
396 ;;</Normal>
397 ;;</NormalResult>
398 ;;</Test_1>
399 ;;<Test_2>
400 ;;<CCRDataObjectID>8b3fa370-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
401 ;;<DateTime>
402 ;;<Type>
403 ;;<Text>Assessment Time</Text>
404 ;;</Type>
405 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
406 ;;</DateTime>
407 ;;<Description>
408 ;;<Text>WBC</Text>
409 ;;<Code>
410 ;;<Value>33765-9</Value>
411 ;;<CodingSystem>LOINC</CodingSystem>
412 ;;</Code>
413 ;;</Description>
414 ;;<Status>
415 ;;<Text>Final Results</Text>
416 ;;</Status>
417 ;;<Source>
418 ;;<Actor>
419 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
420 ;;</Actor>
421 ;;</Source>
422 ;;<TestResult>
423 ;;<Value>6.7</Value>
424 ;;<Units>
425 ;;<Unit>10+3/ul</Unit>
426 ;;</Units>
427 ;;</TestResult>
428 ;;<NormalResult>
429 ;;<Normal>
430 ;;<Value>4.3</Value>
431 ;;<Units>
432 ;;<Unit>10+3/ul</Unit>
433 ;;</Units>
434 ;;<ValueSequencePosition>1</ValueSequencePosition>
435 ;;<Source>
436 ;;<Actor>
437 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
438 ;;</Actor>
439 ;;</Source>
440 ;;</Normal>
441 ;;<Normal>
442 ;;<Value>10.8</Value>
443 ;;<Units>
444 ;;<Unit>10+3/ul</Unit>
445 ;;</Units>
446 ;;<ValueSequencePosition>2</ValueSequencePosition>
447 ;;<VariableNomalModifier>
448 ;;<Text>TO</Text>
449 ;;</VariableNomalModifier>
450 ;;<Source>
451 ;;<Actor>
452 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
453 ;;</Actor>
454 ;;</Source>
455 ;;</Normal>
456 ;;</NormalResult>
457 ;;</Test_2>
458 ;;<Test_3>
459 ;;<CCRDataObjectID>80a6c740-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
460 ;;<DateTime>
461 ;;<Type>
462 ;;<Text>Assessment Time</Text>
463 ;;</Type>
464 ;;<ExactDateTime>2000-04-07T14:30Z</ExactDateTime>
465 ;;</DateTime>
466 ;;<Description>
467 ;;<Text>PLT</Text>
468 ;;<Code>
469 ;;<Value>123</Value>
470 ;;<CodingSystem>LOINC</CodingSystem>
471 ;;</Code>
472 ;;</Description>
473 ;;<Status>
474 ;;<Text>Final Results</Text>
475 ;;</Status>
476 ;;<Source>
477 ;;<Actor>
478 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
479 ;;</Actor>
480 ;;</Source>
481 ;;<TestResult>
482 ;;<Value>153</Value>
483 ;;<Units>
484 ;;<Unit>10+3/ul</Unit>
485 ;;</Units>
486 ;;</TestResult>
487 ;;<NormalResult>
488 ;;<Normal>
489 ;;<Value>150</Value>
490 ;;<Units>
491 ;;<Unit>10+3/ul</Unit>
492 ;;</Units>
493 ;;<ValueSequencePosition>1</ValueSequencePosition>
494 ;;<Source>
495 ;;<Actor>
496 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
497 ;;</Actor>
498 ;;</Source>
499 ;;</Normal>
500 ;;<Normal>
501 ;;<Value>350</Value>
502 ;;<Units>
503 ;;<Unit>10+3/ul</Unit>
504 ;;</Units>
505 ;;<ValueSequencePosition>2</ValueSequencePosition>
506 ;;<VariableNomalModifier>
507 ;;<Text>TO</Text>
508 ;;</VariableNomalModifier>
509 ;;<Source>
510 ;;<Actor>
511 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
512 ;;</Actor>
513 ;;</Source>
514 ;;</Normal>
515 ;;</NormalResult>
516 ;;<Flag>
517 ;;<Text>LOW</Text>
518 ;;</Flag>
519 ;;</Test_3>
520 ;;</Result>
521 ;;<Result>
522 ;;<CCRDataObjectID>a40027e0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
523 ;;<DateTime>
524 ;;<Type>
525 ;;<Text>Assessment Time</Text>
526 ;;</Type>
527 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
528 ;;</DateTime>
529 ;;<Description>
530 ;;<Text>LYTES</Text>
531 ;;<Code>
532 ;;<Value>20109005</Value>
533 ;;<CodingSystem>SNOMED CT</CodingSystem>
534 ;;</Code>
535 ;;</Description>
536 ;;<Status>
537 ;;<Text>Final Results</Text>
538 ;;</Status>
539 ;;<Source>
540 ;;<Actor>
541 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
542 ;;</Actor>
543 ;;</Source>
544 ;;<Test>
545 ;;<CCRDataObjectID>a40027e1-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
546 ;;<DateTime>
547 ;;<Type>
548 ;;<Text>Assessment Time</Text>
549 ;;</Type>
550 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
551 ;;</DateTime>
552 ;;<Description>
553 ;;<Text>NA</Text>
554 ;;<Code>
555 ;;<Value>2951-2</Value>
556 ;;<CodingSystem>LOINC</CodingSystem>
557 ;;</Code>
558 ;;</Description>
559 ;;<Status>
560 ;;<Text>Final Results</Text>
561 ;;</Status>
562 ;;<Source>
563 ;;<Actor>
564 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
565 ;;</Actor>
566 ;;</Source>
567 ;;<TestResult>
568 ;;<Value>140</Value>
569 ;;<Units>
570 ;;<Unit>meq/l</Unit>
571 ;;</Units>
572 ;;</TestResult>
573 ;;<NormalResult>
574 ;;<Normal>
575 ;;<Value>135</Value>
576 ;;<Units>
577 ;;<Unit>meq/l</Unit>
578 ;;</Units>
579 ;;<ValueSequencePosition>1</ValueSequencePosition>
580 ;;<Source>
581 ;;<Actor>
582 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
583 ;;</Actor>
584 ;;</Source>
585 ;;</Normal>
586 ;;<Normal>
587 ;;<Value>145</Value>
588 ;;<Units>
589 ;;<Unit>meq/l</Unit>
590 ;;</Units>
591 ;;<ValueSequencePosition>2</ValueSequencePosition>
592 ;;<VariableNomalModifier>
593 ;;<Text>TO</Text>
594 ;;</VariableNomalModifier>
595 ;;<Source>
596 ;;<Actor>
597 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
598 ;;</Actor>
599 ;;</Source>
600 ;;</Normal>
601 ;;</NormalResult>
602 ;;</Test>
603 ;;<Test>
604 ;;<CCRDataObjectID>a40027e2-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
605 ;;<DateTime>
606 ;;<Type>
607 ;;<Text>Assessment Time</Text>
608 ;;</Type>
609 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
610 ;;</DateTime>
611 ;;<Description>
612 ;;<Text>K</Text>
613 ;;<Code>
614 ;;<Value>2823-3</Value>
615 ;;<CodingSystem>LOINC</CodingSystem>
616 ;;</Code>
617 ;;</Description>
618 ;;<Status>
619 ;;<Text>Final Results</Text>
620 ;;</Status>
621 ;;<Source>
622 ;;<Actor>
623 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
624 ;;</Actor>
625 ;;</Source>
626 ;;<TestResult>
627 ;;<Value>4.0</Value>
628 ;;<Units>
629 ;;<Unit>meq/l</Unit>
630 ;;</Units>
631 ;;</TestResult>
632 ;;<NormalResult>
633 ;;<Normal>
634 ;;<Value>3.5</Value>
635 ;;<Units>
636 ;;<Unit>meq/l</Unit>
637 ;;</Units>
638 ;;<ValueSequencePosition>1</ValueSequencePosition>
639 ;;<Source>
640 ;;<Actor>
641 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
642 ;;</Actor>
643 ;;</Source>
644 ;;</Normal>
645 ;;<Normal>
646 ;;<Value>5.0</Value>
647 ;;<Units>
648 ;;<Unit>meq/l</Unit>
649 ;;</Units>
650 ;;<ValueSequencePosition>2</ValueSequencePosition>
651 ;;<VariableNomalModifier>
652 ;;<Text>TO</Text>
653 ;;</VariableNomalModifier>
654 ;;<Source>
655 ;;<Actor>
656 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
657 ;;</Actor>
658 ;;</Source>
659 ;;</Normal>
660 ;;</NormalResult>
661 ;;</Test>
662 ;;<Test>
663 ;;<CCRDataObjectID>a40027e3-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
664 ;;<DateTime>
665 ;;<Type>
666 ;;<Text>Assessment Time</Text>
667 ;;</Type>
668 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
669 ;;</DateTime>
670 ;;<Description>
671 ;;<Text>CL</Text>
672 ;;<Code>
673 ;;<Value>2075-0</Value>
674 ;;<CodingSystem>LOINC</CodingSystem>
675 ;;</Code>
676 ;;</Description>
677 ;;<Status>
678 ;;<Text>Final Results</Text>
679 ;;</Status>
680 ;;<Source>
681 ;;<Actor>
682 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
683 ;;</Actor>
684 ;;</Source>
685 ;;<TestResult>
686 ;;<Value>102</Value>
687 ;;<Units>
688 ;;<Unit>meq/l</Unit>
689 ;;</Units>
690 ;;</TestResult>
691 ;;<NormalResult>
692 ;;<Normal>
693 ;;<Value>98</Value>
694 ;;<Units>
695 ;;<Unit>meq/l</Unit>
696 ;;</Units>
697 ;;<ValueSequencePosition>1</ValueSequencePosition>
698 ;;<Source>
699 ;;<Actor>
700 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
701 ;;</Actor>
702 ;;</Source>
703 ;;</Normal>
704 ;;<Normal>
705 ;;<Value>106</Value>
706 ;;<Units>
707 ;;<Unit>meq/l</Unit>
708 ;;</Units>
709 ;;<ValueSequencePosition>2</ValueSequencePosition>
710 ;;<VariableNomalModifier>
711 ;;<Text>TO</Text>
712 ;;</VariableNomalModifier>
713 ;;<Source>
714 ;;<Actor>
715 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
716 ;;</Actor>
717 ;;</Source>
718 ;;</Normal>
719 ;;</NormalResult>
720 ;;</Test>
721 ;;<Test>
722 ;;<CCRDataObjectID>a40027e4-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
723 ;;<DateTime>
724 ;;<Type>
725 ;;<Text>Assessment Time</Text>
726 ;;</Type>
727 ;;<ExactDateTime>2000-03-23T14:30Z</ExactDateTime>
728 ;;</DateTime>
729 ;;<Description>
730 ;;<Text>HCO3</Text>
731 ;;<Code>
732 ;;<Value>1963-8</Value>
733 ;;<CodingSystem>LOINC</CodingSystem>
734 ;;</Code>
735 ;;</Description>
736 ;;<Status>
737 ;;<Text>Final Results</Text>
738 ;;</Status>
739 ;;<Source>
740 ;;<Actor>
741 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
742 ;;</Actor>
743 ;;</Source>
744 ;;<TestResult>
745 ;;<Value>35</Value>
746 ;;<Units>
747 ;;<Unit>meq/l</Unit>
748 ;;</Units>
749 ;;</TestResult>
750 ;;<NormalResult>
751 ;;<Normal>
752 ;;<Value>18</Value>
753 ;;<Units>
754 ;;<Unit>meq/l</Unit>
755 ;;</Units>
756 ;;<ValueSequencePosition>1</ValueSequencePosition>
757 ;;<Source>
758 ;;<Actor>
759 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
760 ;;</Actor>
761 ;;</Source>
762 ;;</Normal>
763 ;;<Normal>
764 ;;<Value>23</Value>
765 ;;<Units>
766 ;;<Unit>meq/l</Unit>
767 ;;</Units>
768 ;;<ValueSequencePosition>2</ValueSequencePosition>
769 ;;<VariableNomalModifier>
770 ;;<Text>TO</Text>
771 ;;</VariableNomalModifier>
772 ;;<Source>
773 ;;<Actor>
774 ;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
775 ;;</Actor>
776 ;;</Source>
777 ;;</Normal>
778 ;;</NormalResult>
779 ;;<Flag>
780 ;;<Text>HIGH</Text>
781 ;;</Flag>
782 ;;</Test>
783 ;;</Result>
784 ;;</Results>
785 ;;<HealthCareProviders>
786 ;;<Provider>
787 ;;<ActorID>AA0005</ActorID>
788 ;;<ActorRole>
789 ;;<Text>Primary Provider</Text>
790 ;;</ActorRole>
791 ;;</Provider>
792 ;;</HealthCareProviders>
793 ;;</Body>
794 ;;<Actors>
795 ;;<ACTOR-PATIENT>
796 ;;<Actor>
797 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
798 ;;<Person>
799 ;;<Name>
800 ;;<CurrentName>
801 ;;<Given>@@ACTORGIVENNAME@@</Given>
802 ;;<Middle>@@ACTORMIDDLENAME@@</Middle>
803 ;;<Family>@@ACTORFAMILYNAME@@</Family>
804 ;;</CurrentName>
805 ;;</Name>
806 ;;<DateOfBirth>
807 ;;<ExactDateTime>@@ACTORDATEOFBIRTH@@</ExactDateTime>
808 ;;</DateOfBirth>
809 ;;<Gender>
810 ;;<Text>@@ACTORGENDER@@</Text>
811 ;;<Code>
812 ;;<Value>@@ACTORGENDER@@</Value>
813 ;;<CodingSystem>2.16.840.1.113883.5.1</CodingSystem>
814 ;;</Code>
815 ;;</Gender>
816 ;;</Person>
817 ;;<IDs>
818 ;;<Type>
819 ;;<Text>SSN</Text>
820 ;;</Type>
821 ;;<ID>@@ACTORSSN@@</ID>
822 ;;<Source>
823 ;;<Actor>
824 ;;<ActorID>@@ACTORSSNSOURCEID@@</ActorID>
825 ;;</Actor>
826 ;;</Source>
827 ;;</IDs>
828 ;;<Address>
829 ;;<Type>
830 ;;<Text>@@ACTORADDRESSTYPE@@</Text>
831 ;;</Type>
832 ;;<Line1>@@ACTORADDRESSLINE1@@</Line1>
833 ;;<Line2>@@ACTORADDRESSLINE2@@</Line2>
834 ;;<City>@@ACTORADDRESSCITY@@</City>
835 ;;<State>@@ACTORADDRESSSTATE@@</State>
836 ;;<PostalCode>@@ACTORADDRESSZIPCODE@@</PostalCode>
837 ;;</Address>
838 ;;<Telephone>
839 ;;<Value>@@ACTORRESTEL@@</Value>
840 ;;<Type>
841 ;;<Text>Residential Telephone</Text>
842 ;;</Type>
843 ;;</Telephone>
844 ;;<Telephone>
845 ;;<Value>@@ACTORWORKTEL@@</Value>
846 ;;<Type>
847 ;;<Text>Work Telephone</Text>
848 ;;</Type>
849 ;;</Telephone>
850 ;;<Telephone>
851 ;;<Value>@@ACTORCELLTEL@@</Value>
852 ;;<Type>
853 ;;<Text>Cell phone</Text>
854 ;;</Type>
855 ;;</Telephone>
856 ;;<EMail>
857 ;;<Value>@@ACTOREMAIL@@</Value>
858 ;;</EMail>
859 ;;<Source>
860 ;;<Actor>
861 ;;<ActorID>@@ACTORADDRESSSOURCEID@@</ActorID>
862 ;;</Actor>
863 ;;</Source>
864 ;;</Actor>
865 ;;</ACTOR-PATIENT>
866 ;;<ACTOR-SYSTEM>
867 ;;<Actor>
868 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
869 ;;<InformationSystem>
870 ;;<Name>@@ACTORINFOSYSNAME@@</Name>
871 ;;<Version>@@ACTORINFOSYSVER@@</Version>
872 ;;</InformationSystem>
873 ;;<Source>
874 ;;<Actor>
875 ;;<ActorID>@@ACTORINFOSYSSOURCEID@@</ActorID>
876 ;;</Actor>
877 ;;</Source>
878 ;;</Actor>
879 ;;</ACTOR-SYSTEM>
880 ;;<ACTOR-NOK>
881 ;;<Actor>
882 ;;<ActorObjectID>AA0003</ActorObjectID>
883 ;;<Person>
884 ;;<Name>
885 ;;<DisplayName>@@ACTORDISPLAYNAME@@</DisplayName>
886 ;;</Name>
887 ;;</Person>
888 ;;<Relation>
889 ;;<Text>@@ACTORRELATION@@</Text>
890 ;;</Relation>
891 ;;<Source>
892 ;;<Actor>
893 ;;<ActorID>@@ACTORRELATIONSOURCEID@@</ActorID>
894 ;;</Actor>
895 ;;</Source>
896 ;;</Actor>
897 ;;</ACTOR-NOK>
898 ;;<ACTOR-PROVIDER>
899 ;;<Actor>
900 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
901 ;;<Person>
902 ;;<Name>
903 ;;<CurrentName>
904 ;;<Given>@@ACTORGIVENNAME@@</Given>
905 ;;<Middle>@@ACTORMIDDLENAME@@</Middle>
906 ;;<Family>@@ACTORFAMILYNAME@@</Family>
907 ;;<Title>@@ACTORTITLE@@</Title>
908 ;;</CurrentName>
909 ;;</Name>
910 ;;</Person>
911 ;;<IDs>
912 ;;<Type>
913 ;;<Text>@@IDTYPE@@</Text>
914 ;;</Type>
915 ;;<ID>@@ID@@</ID>
916 ;;<IssuedBy>
917 ;;<Description>
918 ;;<Text>@@IDDESC@@</Text>
919 ;;</Description>
920 ;;</IssuedBy>
921 ;;</IDs>
922 ;;<Specialty>
923 ;;<Text>@@ACTORSPECIALITY@@</Text>
924 ;;</Specialty>
925 ;;<Address>
926 ;;<Type>
927 ;;<Text>@@ACTORADDRESSTYPE@@</Text>
928 ;;</Type>
929 ;;<Line1>@@ACTORADDRESSLINE1@@</Line1>
930 ;;<City>@@ACTORADDRESSCITY@@</City>
931 ;;<State>@@ACTORADDRESSSTATE@@</State>
932 ;;<PostalCode>@@ACTORPOSTALCODE@@</PostalCode>
933 ;;</Address>
934 ;;<Telephone>
935 ;;<Value>@@ACTORTELEPHONE@@</Value>
936 ;;<Type>
937 ;;<Text>@@ACTORTELEPHONETYPE@@</Text>
938 ;;</Type>
939 ;;</Telephone>
940 ;;<Email>
941 ;;<Value>@@ACTOREMAIL@@</Value>
942 ;;</Email>
943 ;;<Source>
944 ;;<Actor>
945 ;;<ActorID>@@ACTORSOURCEID@@</ActorID>
946 ;;</Actor>
947 ;;</Source>
948 ;;</Actor>
949 ;;</ACTOR-PROVIDER>
950 ;;<ACTOR-ORG>
951 ;;<Actor>
952 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
953 ;;<Organization>
954 ;;<Name>@@ORGANIZATIONNAME@@</Name>
955 ;;</Organization>
956 ;;<Source>
957 ;;<Actor>
958 ;;<ActorID>@@ACTORSOURCEID</ActorID>
959 ;;</Actor>
960 ;;</Source>
961 ;;</Actor>
962 ;;</ACTOR-ORG>
963 ;;</Actors>
964 ;;<Signatures>
965 ;;<CCRSignature>
966 ;;<SignatureObjectID>S0001</SignatureObjectID>
967 ;;<ExactDateTime>2008-03-18T23:10:58Z</ExactDateTime>
968 ;;<Source>
969 ;;<ActorID>AA0001</ActorID>
970 ;;</Source>
971 ;;<Signature>
972 ;;<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
973 ;;<SignedInfo>
974 ;;<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
975 ;;<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
976 ;;<Reference URI="">
977 ;;<Transforms>
978 ;;<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
979 ;;</Transforms>
980 ;;<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>
981 ;;<DigestValue>YFveLLyo+75P7rSciv0/m1O6Ot4=</DigestValue>
982 ;;</Reference>
983 ;;</SignedInfo>
984 ;;<SignatureValue>Bj6sACXl74hrlbUYnu8HqnRab5VGy69BOYjOH7dETxgppXMEd7AoVYaePZvgJft78JR4oQY76hbFyGcIslYauPpJxx2hCd5d56xFeaQg01R6AQOvGnhjlq63TbpFdUq0B4tYsmiibJPbQJhTQe+TcWTBvWaQt8Fkk5blO571YvI=</SignatureValue>
985 ;;<KeyInfo>
986 ;;<KeyValue>
987 ;;<RSAKeyValue>
988 ;;<Modulus>meH817QYol+/uUEg6j8Mg89s7GTlaN9B+/CGlzrtnQH+swMigZRnEPxHVO8PhEymP/W9nlhAjTScV/CUzA9yJ9WiaOn17c+KReKhfBqL24DX9BpbJ+kLYVz7mBO5Qydk5AzUT2hFwW93irD8iRKP+/t+2Mi2CjNfj8VTjJpHpm0=</Modulus>
989 ;;<Exponent>AQAB</Exponent>
990 ;;</RSAKeyValue>
991 ;;</KeyValue>
992 ;;</KeyInfo>
993 ;;</Signature>
994 ;;</Signature>
995 ;;</CCRSignature>
996 ;;</Signatures>
997 ;;</ContinuityOfCareRecord>
998 ;</TEMPLATE>
Note: See TracBrowser for help on using the repository browser.