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

227 lines
8.5 KiB
Mathematica
Raw Blame History

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>
Reference in New Issue View Git Blame Copy Permalink