GPLCCD0 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
        ;;0.1;CCDCCR;nopatch;noreleasedate
        W "This is a CCD TEMPLATE with processing routines",!
        W !
        Q
        ;
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
        ; I '$G(@ZARY) D
        . S @ZARY@(0)=0 ; initially there are no elements
        . W "GOT HERE LOADING "_LINE,!
        N CNT ; count of array elements
        S CNT=@ZARY@(0) ; contains array count
        S CNT=CNT+1 ; increment count
        S @ZARY@(CNT)=LINE ; put the line in the array
        ; S @ZARY@(BAT,CNT)="" ; index the test by battery
        S @ZARY@(0)=CNT ; update the array counter
        Q
        ;
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
       K @ZARY S @ZARY=""
       S @ZARY@(0)=0 ; initialize array count
       N LINE,LABEL,BODY
       N INTEST S INTEST=0 ; switch for in the TEMPLATE section
       N SECTION S SECTION="[anonymous]" ; NO section LABEL
       ;
       N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE=""  D
       . I LINE?." "1";<TEMPLATE>".E S INTEST=1 ; entering section
       . I LINE?." "1";</TEMPLATE>".E S INTEST=0 ; leaving section
       . I INTEST  D  ; within the section
       . . I LINE?." "1";><".E  D  ; sub-section name found
       . . . S SECTION=$P($P(LINE,";><",2),">",1) ; pull out name
       . . I LINE?." "1";;".E  D  ; line found
       . . . 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
        D ZLOAD(ARY,"GPLCCD0")
        ; ZWR @ARY
        Q
        ;
;<TEMPLATE>
;;<?xml version="1.0"?>
;;<?xml-stylesheet type="text/xsl" href="CCD.xsl"?>
;;<ClinicalDocument xmlns="urn:hl7-org:v3" xmlns:voc="urn:hl7-org:v3/voc" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:hl7-org:v3 CDA.xsd">
;;      <typeId root="2.16.840.1.113883.1.3" extension="POCD_HD000040"/>
;;      <templateId root="2.16.840.1.113883.10.20.1"/>
;;      <id root="db734647-fc99-424c-a864-7e3cda82e703"/>
;;      <code code="34133-9" codeSystem="2.16.840.1.113883.6.1" displayName="Summarization of episode note"/>
;;      <title>< value="DOCTITLE"/>@@DOCTITLE@@Good Health Clinic Continuity of Care Document</title>
;;      <effectiveTime value="@@EFFECTIVETIME@@20000407130000+0500"/>
;;      <confidentialityCode code="N" codeSystem="2.16.840.1.113883.5.25"/>
;;      <languageCode code="en-US"/>
;;      <recordTarget>
;;              <patientRole>
;;                      <id extension="996-756-495" root="2.16.840.1.113883.19.5"/>
;;                      <patient>
;;                              <name>
;;                                      <given>@@PATIENTGIVENNAME@@</given>
;;                                      <family>@@PATIENTFAMILYNAME@@</family>
;;                                      <suffix>@@PATIENTNAMESUFFIX@@</suffix>
;;                              </name>
;;                              <administrativeGenderCode code="@@PATIENTGENDER@@M" codeSystem="2.16.840.1.113883.5.1"/>
;;                              <birthTime value="@@PATIENTDATEOFBIRTH@@19320924"/>
;;                      </patient>
;;                      <providerOrganization>
;;                              <id root="2.16.840.1.113883.19.5"/>
;;                              <name>@@SITENAME@@Good Health Clinic</name>
;;                      </providerOrganization>
;;              </patientRole>
;;      </recordTarget>
;;      <author>
;;              <time value="20000407130000+0500"/>
;;              <assignedAuthor>
;;                      <id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/>
;;                      <assignedPerson>
;;                              <name><prefix>Dr.</prefix><given>@@AUTHORGIVENNAME@@Robert</given><family>@@AUTHORFAMILYNAME@@Dolin</family></name>
;;                      </assignedPerson>
;;                      <representedOrganization>
;;                              <id root="2.16.840.1.113883.19.5"/>
;;                              <name>@@AUTHORSITE@@Good Health Clinic</name>
;;                      </representedOrganization>
;;              </assignedAuthor>
;;      </author>
;;      <informant>
;;              <assignedEntity>
;;                      <id nullFlavor="NI"/>
;;                      <representedOrganization>
;;                              <id root="2.16.840.1.113883.19.5"/>
;;                              <name>@@INFORMANTORG@@Good Health Clinic</name>
;;                      </representedOrganization>
;;              </assignedEntity>
;;      </informant>
;;      <custodian>
;;              <assignedCustodian>
;;                      <representedCustodianOrganization>
;;                              <id root="2.16.840.1.113883.19.5"/>
;;                              <name>@@CUSTODIANORG@@Good Health Clinic</name>
;;                      </representedCustodianOrganization>
;;              </assignedCustodian>
;;      </custodian>
;;      <legalAuthenticator>
;;              <time value="20000407130000+0500"/>
;;              <signatureCode code="S"/>
;;              <assignedEntity>
;;                      <id nullFlavor="NI"/>
;;                      <representedOrganization>
;;                              <id root="2.16.840.1.113883.19.5"/>
;;                              <name>@@LEGALORG@@Good Health Clinic</name>
;;                      </representedOrganization>
;;              </assignedEntity>
;;      </legalAuthenticator>
;;      <participant typeCode="IND">
;;              <associatedEntity classCode="GUAR">
;;                      <id root="4ff51570-83a9-47b7-91f2-93ba30373141"/>
;;                      <addr>
;;                              <streetAddressLine>@@GUARSTREET@@17 Daws Rd.</streetAddressLine>
;;                              <city>@@GUARCITY@@Blue Bell</city>
;;                              <state>@@GUARSTATE@@MA</state>
;;                              <postalCode>@@GUARZIP@@02368</postalCode>
;;                      </addr>
;;                      <telecom value="tel:@@GUARTELE@@(888)555-1212"/>
;;                      <associatedPerson>
;;                              <name>
;;                                      <given>@@GUARGIVENNAME@@Kenneth</given>
;;                                      <family>@@GUARFAMILYNAME@@Ross</family>
;;                              </name>
;;                      </associatedPerson>
;;              </associatedEntity>
;;      </participant>
;;      <participant typeCode="IND">
;;              <associatedEntity classCode="NOK">
;;                      <id root="4ac71514-6a10-4164-9715-f8d96af48e6d"/>
;;                      <code code="65656005" codeSystem="2.16.840.1.113883.6.96" displayName="@@NOKRELATION@@Biiological mother"/>
;;                      <telecom value="tel:@@NOKTELE@@(999)555-1212"/>
;;                      <associatedPerson>
;;                              <name>
;;                                      <given>@@NOKGIVENNAME@@Henrietta</given>
;;                                      <family>@@NOKFAMILYNAME@@Levin</family>
;;                              </name>
;;                      </associatedPerson>
;;              </associatedEntity>
;;      </participant>
;;      <documentationOf>
;;              <serviceEvent classCode="PCPR">
;;                      <effectiveTime><low value="@@DOCPERIODLOW@@19320924"/><high value="@@DOCPERIODHIGH@@20000407"/></effectiveTime>
;;                      <performer typeCode="PRF">
;;                              <functionCode code="PCP" codeSystem="2.16.840.1.113883.5.88"/>
;;                              <time><low value="@@PCPPERIODLOW@@1990"/><high value='@@PCPPERIODHIGH@@20000407'/></time>
;;                              <assignedEntity>
;;                                      <id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/>
;;                                      <assignedPerson>
;;                                              <name><prefix>@@PCPNAMEPREFIX@@Dr.</prefix><given>@@PCPNAMEGIVEN@@Robert</given><family>@@PCPNAMEFAMILY@@Dolin</family></name>
;;                                      </assignedPerson>
;;                                      <representedOrganization>
;;                                              <id root="2.16.840.1.113883.19.5"/>
;;                                              <name>@@PCPORG@@Good Health Clinic</name>
;;                                      </representedOrganization>
;;                              </assignedEntity>
;;                      </performer>
;;              </serviceEvent>
;;      </documentationOf>
;;      <component>
;;              <structuredBody>
;;<component>
;;<section>
;;      <templateId root='2.16.840.1.113883.10.20.1.13'/>
;;      <code code="48764-5" codeSystem="2.16.840.1.113883.6.1"/>
;;      <title>Summary Purpose</title>
;;      <text>Transfer of care</text>
;;      <entry typeCode="DRIV">
;;              <act classCode="ACT" moodCode="EVN">
;;                      <templateId root='2.16.840.1.113883.10.20.1.30'/>
;;                      <code code="23745001" codeSystem="2.16.840.1.113883.6.96" displayName="Documentation procedure"/>
;;                      <statusCode code="completed"/>
;;                      <entryRelationship typeCode="RSON">
;;                              <act classCode="ACT" moodCode="EVN">
;;                                      <code code="308292007" codeSystem="2.16.840.1.113883.6.96" displayName="@@DOCPURPOSE@@Transfer of care"/>
;;                                      <statusCode code="completed"/>
;;                              </act>
;;                      </entryRelationship>
;;              </act>
;;      </entry>
;;</section>
;;</component>
;;<component>
;;<section>
;;      <templateId root="2.16.840.1.113883.10.20.1.14"/>
;;      <code code="30954-2" codeSystem="2.16.840.1.113883.6.1"/>
;;      <entry typeCode="DRIV">
;;              <organizer classCode="BATTERY" moodCode="EVN">
;;                      <templateId root="2.16.840.1.113883.10.20.1.32"/>
;;                      <id root="7d5a02b0-67a4-11db-bd13-0800200c9a66"/>
;;                      <code code="@@BATTERYCODE@@43789009" codeSystem="@@BATTERYSYSTEM@@2.16.840.1.113883.6.96" displayName="@@BATTERYNAME@@CBC WO DIFFERENTIAL"/>
;;                      <statusCode code="completed"/>
;;                      <effectiveTime value="@@BATTERYTIME@@200003231430"/>
;;                      <component>
;;                              <observation classCode="OBS" moodCode="EVN">
;;                                      <templateId root="2.16.840.1.113883.10.20.1.31"/>
;;                                      <id root="107c2dc0-67a5-11db-bd13-0800200c9a66"/>
;;                                      <code code="@@COMPONENTCODE@@30313-1" codeSystem="@@COMPONENTSYSTEM@@2.16.840.1.113883.6.1" displayName="@@COMPONENTNAME@@HGB"/>
;;                                      <statusCode code="completed"/>
;;                                      <effectiveTime value="@@COMPONENTTIME@@200003231430"/>
;;                                      <value xsi:type="@@COMPONENTTYPE@@PQ" value="@@COMPONENTVALUE@13.2" unit="@@COMPONENTUNIT@@g/dl"/>
;;                                      <interpretationCode code="N" codeSystem="2.16.840.1.113883.5.83"/>
;;                                      <referenceRange>
;;                                              < value="OBSERVATIONRANGE"/>
;;                                              <observationRange>
;;                                                      <text>@@OBSRANGETEXT@@M 13-18 g/dl; F 12-16 g/dl</text>
;;                                              </observationRange>
;;                                      </referenceRange>
;;                              </observation>
;;                      </component>
;;              </organizer>
;;      </entry>
;;</section>
;;</component>
;;</structuredBody>
;;</component>
;;</ClinicalDocument>
;</TEMPLATE>