- Timestamp:
- Jul 4, 2008, 9:49:05 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCR0.m
r40 r42 5 5 Q 6 6 ; 7 ZT(ZARY,BAT,LINE) 7 ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array 8 8 ; ZARY IS PASSED BY NAME 9 9 ; BAT is a string identifying the section … … 20 20 Q 21 21 ; 22 ZLOAD(ZARY,ROUTINE) 22 ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference 23 23 ; ZARY IS PASSED BY NAME 24 24 ; ZARY = name of the root, closed array format (e.g., "^TMP($J)") … … 40 40 Q 41 41 ; 42 LOAD(ARY) 42 LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME 43 43 D ZLOAD(ARY,"GPLCCR0") 44 44 ; ZWR @ARY … … 46 46 ; 47 47 ;<TEMPLATE> 48 ;;<?xml 48 ;;<?xml version="1.0" encoding="UTF-8"?> 49 49 ;;<?xml-stylesheet type="text/xsl" href="ccr_20060420.xsl"?> 50 50 ;;<ContinuityOfCareRecord xmlns="urn:astm-org:CCR"> … … 422 422 ;;</Body> 423 423 ;;<Actors> 424 ;;<ACTOR-PATIENT> 424 425 ;;<Actor> 425 426 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID> … … 475 476 ;;</Source> 476 477 ;;</Actor> 478 ;;</ACTOR-PATIENT> 479 ;;<ACTOR-SYSTEM> 477 480 ;;<Actor> 478 481 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID> … … 487 490 ;;</Source> 488 491 ;;</Actor> 492 ;;</ACTOR-SYSTEM> 493 ;;<ACTOR-NOK> 489 494 ;;<Actor> 490 495 ;;<ActorObjectID>AA0003</ActorObjectID> … … 503 508 ;;</Source> 504 509 ;;</Actor> 510 ;;</ACTOR-NOK> 511 ;;<ACTOR-PROVIDER> 505 512 ;;<Actor> 506 513 ;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID> … … 530 537 ;;</Source> 531 538 ;;</Actor> 539 ;;</ACTOR-PROVIDER> 532 540 ;;</Actors> 533 541 ;;<Signatures>
Note:
See TracChangeset
for help on using the changeset viewer.