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

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

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