fixed spacing issues
This commit is contained in:
cje
parent
6eab22cb4e
commit
a1e7ca5d0a
|
|
@ -198,7 +198,7 @@ DISPNAME() ; Display Name; PUBLIC; Extrinsic
|
|||
N NAME S NAME=$P(PT(0),"^",1)
|
||||
Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc")
|
||||
; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
|
||||
DOB() ; Date of Birth; PUBLIC; Extrinsic
|
||||
OB() ; Date of Birth; PUBLIC; Extrinsic
|
||||
; PREREQ: PT Defined
|
||||
Q:$G(PT(0))="" ""
|
||||
N DOB S DOB=$P(PT(0),"^",3)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
CCRDPTT; Unit Tester...
|
||||
CCRDPTT ; Unit Tester...
|
||||
|
||||
; Get the functions in the routine using Rick's routine
|
||||
; STATS(0)="CCRDPT^3080626.190908^396^14094^6414499860"
|
||||
|
|
|
|||
328
p/GPLCCD0.m
328
p/GPLCCD0.m
|
|
@ -48,176 +48,176 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;<?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>
|
||||
;;<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>
|
||||
;;<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>
|
||||
;;<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>
|
||||
|
|
|
|||
|
|
@ -61,3 +61,4 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
|
|||
. W "PROBLEMS Missing list: ",!
|
||||
. F I=1:1:PROBSTMP(0) W PROBSTMP(I),!
|
||||
Q
|
||||
;
|
||||
|
|
|
|||
Loading…
Reference in New Issue