iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changes to template for types of actors

This commit is contained in:
george 2008-07-05 01:49:05 +00:00
parent eb910c53bc
commit 1274bd8d14
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
p/GPLCCR0.m
View File

@ -4,7 +4,7 @@ GPLCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
W !
Q
;
ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array
ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array
; ZARY IS PASSED BY NAME
; BAT is a string identifying the section
; LINE is a test which will evaluate to true or false
@ -19,7 +19,7 @@ ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array
S @ZARY@(0)=CNT ; update the array counter
Q
;
ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
; ZARY IS PASSED BY NAME
; ZARY = name of the root, closed array format (e.g., "^TMP($J)")
; ROUTINE = NAME OF THE ROUTINE - PASSED BY VALUE
@ -39,13 +39,13 @@ ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
. . . D ZT(ZARY,SECTION,$P(LINE,";;",2)) ; put the line in the array
Q
;
LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
D ZLOAD(ARY,"GPLCCR0")
; ZWR @ARY
Q
;
;<TEMPLATE>
;;<?xml version="1.0" encoding="UTF-8"?>
;;<?xml version="1.0" encoding="UTF-8"?>
;;<?xml-stylesheet type="text/xsl" href="ccr_20060420.xsl"?>
;;<ContinuityOfCareRecord xmlns="urn:astm-org:CCR">
;;<CCRDocumentObjectID>871bd605-e8f8-4b80-9918-4b03f781129e</CCRDocumentObjectID>
@ -421,6 +421,7 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</HealthCareProviders>
;;</Body>
;;<Actors>
;;<ACTOR-PATIENT>
;;<Actor>
;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
;;<Person>
@ -474,6 +475,8 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</Actor>
;;</Source>
;;</Actor>
;;</ACTOR-PATIENT>
;;<ACTOR-SYSTEM>
;;<Actor>
;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
;;<InformationSystem>
@ -486,6 +489,8 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</Actor>
;;</Source>
;;</Actor>
;;</ACTOR-SYSTEM>
;;<ACTOR-NOK>
;;<Actor>
;;<ActorObjectID>AA0003</ActorObjectID>
;;<Person>
@ -502,6 +507,8 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</Actor>
;;</Source>
;;</Actor>
;;</ACTOR-NOK>
;;<ACTOR-PROVIDER>
;;<Actor>
;;<ActorObjectID>@@ACTOROBJECTID@@</ActorObjectID>
;;<Person>
@ -529,6 +536,7 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</Actor>
;;</Source>
;;</Actor>
;;</ACTOR-PROVIDER>
;;</Actors>
;;<Signatures>
;;<CCRSignature>