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

fixed spacing issues

This commit is contained in:
cje 2008-07-04 01:02:47 +00:00
parent 6eab22cb4e
commit a1e7ca5d0a
9 changed files with 1069 additions and 1068 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/CCRDPT.m
View File

@ -198,7 +198,7 @@ DISPNAME() ; Display Name; PUBLIC; Extrinsic
N NAME S NAME=$P(PT(0),"^",1) N NAME S NAME=$P(PT(0),"^",1)
Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc") Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc")
; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma ; "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 ; PREREQ: PT Defined
Q:$G(PT(0))="" "" Q:$G(PT(0))="" ""
N DOB S DOB=$P(PT(0),"^",3) N DOB S DOB=$P(PT(0),"^",3)

2
p/CCRDPTT.m
View File

@ -1,4 +1,4 @@
CCRDPTT; Unit Tester... CCRDPTT ; Unit Tester...
; Get the functions in the routine using Rick's routine ; Get the functions in the routine using Rick's routine
; STATS(0)="CCRDPT^3080626.190908^396^14094^6414499860" ; STATS(0)="CCRDPT^3080626.190908^396^14094^6414499860"

328
p/GPLCCD0.m
View File

@ -48,176 +48,176 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;<?xml version="1.0"?> ;;<?xml version="1.0"?>
;;<?xml-stylesheet type="text/xsl" href="CCD.xsl"?> ;;<?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"> ;;<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"/> ;;<typeId root="2.16.840.1.113883.1.3" extension="POCD_HD000040"/>
;; <templateId root="2.16.840.1.113883.10.20.1"/> ;;<templateId root="2.16.840.1.113883.10.20.1"/>
;; <id root="db734647-fc99-424c-a864-7e3cda82e703"/> ;;<id root="db734647-fc99-424c-a864-7e3cda82e703"/>
;; <code code="34133-9" codeSystem="2.16.840.1.113883.6.1" displayName="Summarization of episode note"/> ;;<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> ;;<title>< value="DOCTITLE"/>@@DOCTITLE@@Good Health Clinic Continuity of Care Document</title>
;; <effectiveTime value="@@EFFECTIVETIME@@20000407130000+0500"/> ;;<effectiveTime value="@@EFFECTIVETIME@@20000407130000+0500"/>
;; <confidentialityCode code="N" codeSystem="2.16.840.1.113883.5.25"/> ;;<confidentialityCode code="N" codeSystem="2.16.840.1.113883.5.25"/>
;; <languageCode code="en-US"/> ;;<languageCode code="en-US"/>
;; <recordTarget> ;;<recordTarget>
;; <patientRole> ;;<patientRole>
;; <id extension="996-756-495" root="2.16.840.1.113883.19.5"/> ;;<id extension="996-756-495" root="2.16.840.1.113883.19.5"/>
;; <patient> ;;<patient>
;; <name> ;;<name>
;; <given>@@PATIENTGIVENNAME@@</given> ;;<given>@@PATIENTGIVENNAME@@</given>
;; <family>@@PATIENTFAMILYNAME@@</family> ;;<family>@@PATIENTFAMILYNAME@@</family>
;; <suffix>@@PATIENTNAMESUFFIX@@</suffix> ;;<suffix>@@PATIENTNAMESUFFIX@@</suffix>
;; </name> ;;</name>
;; <administrativeGenderCode code="@@PATIENTGENDER@@M" codeSystem="2.16.840.1.113883.5.1"/> ;;<administrativeGenderCode code="@@PATIENTGENDER@@M" codeSystem="2.16.840.1.113883.5.1"/>
;; <birthTime value="@@PATIENTDATEOFBIRTH@@19320924"/> ;;<birthTime value="@@PATIENTDATEOFBIRTH@@19320924"/>
;; </patient> ;;</patient>
;; <providerOrganization> ;;<providerOrganization>
;; <id root="2.16.840.1.113883.19.5"/> ;;<id root="2.16.840.1.113883.19.5"/>
;; <name>@@SITENAME@@Good Health Clinic</name> ;;<name>@@SITENAME@@Good Health Clinic</name>
;; </providerOrganization> ;;</providerOrganization>
;; </patientRole> ;;</patientRole>
;; </recordTarget> ;;</recordTarget>
;; <author> ;;<author>
;; <time value="20000407130000+0500"/> ;;<time value="20000407130000+0500"/>
;; <assignedAuthor> ;;<assignedAuthor>
;; <id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/> ;;<id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/>
;; <assignedPerson> ;;<assignedPerson>
;; <name><prefix>Dr.</prefix><given>@@AUTHORGIVENNAME@@Robert</given><family>@@AUTHORFAMILYNAME@@Dolin</family></name> ;;<name><prefix>Dr.</prefix><given>@@AUTHORGIVENNAME@@Robert</given><family>@@AUTHORFAMILYNAME@@Dolin</family></name>
;; </assignedPerson> ;;</assignedPerson>
;; <representedOrganization> ;;<representedOrganization>
;; <id root="2.16.840.1.113883.19.5"/> ;;<id root="2.16.840.1.113883.19.5"/>
;; <name>@@AUTHORSITE@@Good Health Clinic</name> ;;<name>@@AUTHORSITE@@Good Health Clinic</name>
;; </representedOrganization> ;;</representedOrganization>
;; </assignedAuthor> ;;</assignedAuthor>
;; </author> ;;</author>
;; <informant> ;;<informant>
;; <assignedEntity> ;;<assignedEntity>
;; <id nullFlavor="NI"/> ;;<id nullFlavor="NI"/>
;; <representedOrganization> ;;<representedOrganization>
;; <id root="2.16.840.1.113883.19.5"/> ;;<id root="2.16.840.1.113883.19.5"/>
;; <name>@@INFORMANTORG@@Good Health Clinic</name> ;;<name>@@INFORMANTORG@@Good Health Clinic</name>
;; </representedOrganization> ;;</representedOrganization>
;; </assignedEntity> ;;</assignedEntity>
;; </informant> ;;</informant>
;; <custodian> ;;<custodian>
;; <assignedCustodian> ;;<assignedCustodian>
;; <representedCustodianOrganization> ;;<representedCustodianOrganization>
;; <id root="2.16.840.1.113883.19.5"/> ;;<id root="2.16.840.1.113883.19.5"/>
;; <name>@@CUSTODIANORG@@Good Health Clinic</name> ;;<name>@@CUSTODIANORG@@Good Health Clinic</name>
;; </representedCustodianOrganization> ;;</representedCustodianOrganization>
;; </assignedCustodian> ;;</assignedCustodian>
;; </custodian> ;;</custodian>
;; <legalAuthenticator> ;;<legalAuthenticator>
;; <time value="20000407130000+0500"/> ;;<time value="20000407130000+0500"/>
;; <signatureCode code="S"/> ;;<signatureCode code="S"/>
;; <assignedEntity> ;;<assignedEntity>
;; <id nullFlavor="NI"/> ;;<id nullFlavor="NI"/>
;; <representedOrganization> ;;<representedOrganization>
;; <id root="2.16.840.1.113883.19.5"/> ;;<id root="2.16.840.1.113883.19.5"/>
;; <name>@@LEGALORG@@Good Health Clinic</name> ;;<name>@@LEGALORG@@Good Health Clinic</name>
;; </representedOrganization> ;;</representedOrganization>
;; </assignedEntity> ;;</assignedEntity>
;; </legalAuthenticator> ;;</legalAuthenticator>
;; <participant typeCode="IND"> ;;<participant typeCode="IND">
;; <associatedEntity classCode="GUAR"> ;;<associatedEntity classCode="GUAR">
;; <id root="4ff51570-83a9-47b7-91f2-93ba30373141"/> ;;<id root="4ff51570-83a9-47b7-91f2-93ba30373141"/>
;; <addr> ;;<addr>
;; <streetAddressLine>@@GUARSTREET@@17 Daws Rd.</streetAddressLine> ;;<streetAddressLine>@@GUARSTREET@@17 Daws Rd.</streetAddressLine>
;; <city>@@GUARCITY@@Blue Bell</city> ;;<city>@@GUARCITY@@Blue Bell</city>
;; <state>@@GUARSTATE@@MA</state> ;;<state>@@GUARSTATE@@MA</state>
;; <postalCode>@@GUARZIP@@02368</postalCode> ;;<postalCode>@@GUARZIP@@02368</postalCode>
;; </addr> ;;</addr>
;; <telecom value="tel:@@GUARTELE@@(888)555-1212"/> ;;<telecom value="tel:@@GUARTELE@@(888)555-1212"/>
;; <associatedPerson> ;;<associatedPerson>
;; <name> ;;<name>
;; <given>@@GUARGIVENNAME@@Kenneth</given> ;;<given>@@GUARGIVENNAME@@Kenneth</given>
;; <family>@@GUARFAMILYNAME@@Ross</family> ;;<family>@@GUARFAMILYNAME@@Ross</family>
;; </name> ;;</name>
;; </associatedPerson> ;;</associatedPerson>
;; </associatedEntity> ;;</associatedEntity>
;; </participant> ;;</participant>
;; <participant typeCode="IND"> ;;<participant typeCode="IND">
;; <associatedEntity classCode="NOK"> ;;<associatedEntity classCode="NOK">
;; <id root="4ac71514-6a10-4164-9715-f8d96af48e6d"/> ;;<id root="4ac71514-6a10-4164-9715-f8d96af48e6d"/>
;; <code code="65656005" codeSystem="2.16.840.1.113883.6.96" displayName="@@NOKRELATION@@Biiological mother"/> ;;<code code="65656005" codeSystem="2.16.840.1.113883.6.96" displayName="@@NOKRELATION@@Biiological mother"/>
;; <telecom value="tel:@@NOKTELE@@(999)555-1212"/> ;;<telecom value="tel:@@NOKTELE@@(999)555-1212"/>
;; <associatedPerson> ;;<associatedPerson>
;; <name> ;;<name>
;; <given>@@NOKGIVENNAME@@Henrietta</given> ;;<given>@@NOKGIVENNAME@@Henrietta</given>
;; <family>@@NOKFAMILYNAME@@Levin</family> ;;<family>@@NOKFAMILYNAME@@Levin</family>
;; </name> ;;</name>
;; </associatedPerson> ;;</associatedPerson>
;; </associatedEntity> ;;</associatedEntity>
;; </participant> ;;</participant>
;; <documentationOf> ;;<documentationOf>
;; <serviceEvent classCode="PCPR"> ;;<serviceEvent classCode="PCPR">
;; <effectiveTime><low value="@@DOCPERIODLOW@@19320924"/><high value="@@DOCPERIODHIGH@@20000407"/></effectiveTime> ;;<effectiveTime><low value="@@DOCPERIODLOW@@19320924"/><high value="@@DOCPERIODHIGH@@20000407"/></effectiveTime>
;; <performer typeCode="PRF"> ;;<performer typeCode="PRF">
;; <functionCode code="PCP" codeSystem="2.16.840.1.113883.5.88"/> ;;<functionCode code="PCP" codeSystem="2.16.840.1.113883.5.88"/>
;; <time><low value="@@PCPPERIODLOW@@1990"/><high value='@@PCPPERIODHIGH@@20000407'/></time> ;;<time><low value="@@PCPPERIODLOW@@1990"/><high value='@@PCPPERIODHIGH@@20000407'/></time>
;; <assignedEntity> ;;<assignedEntity>
;; <id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/> ;;<id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/>
;; <assignedPerson> ;;<assignedPerson>
;; <name><prefix>@@PCPNAMEPREFIX@@Dr.</prefix><given>@@PCPNAMEGIVEN@@Robert</given><family>@@PCPNAMEFAMILY@@Dolin</family></name> ;;<name><prefix>@@PCPNAMEPREFIX@@Dr.</prefix><given>@@PCPNAMEGIVEN@@Robert</given><family>@@PCPNAMEFAMILY@@Dolin</family></name>
;; </assignedPerson> ;;</assignedPerson>
;; <representedOrganization> ;;<representedOrganization>
;; <id root="2.16.840.1.113883.19.5"/> ;;<id root="2.16.840.1.113883.19.5"/>
;; <name>@@PCPORG@@Good Health Clinic</name> ;;<name>@@PCPORG@@Good Health Clinic</name>
;; </representedOrganization> ;;</representedOrganization>
;; </assignedEntity> ;;</assignedEntity>
;; </performer> ;;</performer>
;; </serviceEvent> ;;</serviceEvent>
;; </documentationOf> ;;</documentationOf>
;; <component> ;;<component>
;; <structuredBody> ;;<structuredBody>
;;<component> ;;<component>
;;<section> ;;<section>
;; <templateId root='2.16.840.1.113883.10.20.1.13'/> ;;<templateId root='2.16.840.1.113883.10.20.1.13'/>
;; <code code="48764-5" codeSystem="2.16.840.1.113883.6.1"/> ;;<code code="48764-5" codeSystem="2.16.840.1.113883.6.1"/>
;; <title>Summary Purpose</title> ;;<title>Summary Purpose</title>
;; <text>Transfer of care</text> ;;<text>Transfer of care</text>
;; <entry typeCode="DRIV"> ;;<entry typeCode="DRIV">
;; <act classCode="ACT" moodCode="EVN"> ;;<act classCode="ACT" moodCode="EVN">
;; <templateId root='2.16.840.1.113883.10.20.1.30'/> ;;<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"/> ;;<code code="23745001" codeSystem="2.16.840.1.113883.6.96" displayName="Documentation procedure"/>
;; <statusCode code="completed"/> ;;<statusCode code="completed"/>
;; <entryRelationship typeCode="RSON"> ;;<entryRelationship typeCode="RSON">
;; <act classCode="ACT" moodCode="EVN"> ;;<act classCode="ACT" moodCode="EVN">
;; <code code="308292007" codeSystem="2.16.840.1.113883.6.96" displayName="@@DOCPURPOSE@@Transfer of care"/> ;;<code code="308292007" codeSystem="2.16.840.1.113883.6.96" displayName="@@DOCPURPOSE@@Transfer of care"/>
;; <statusCode code="completed"/> ;;<statusCode code="completed"/>
;; </act> ;;</act>
;; </entryRelationship> ;;</entryRelationship>
;; </act> ;;</act>
;; </entry> ;;</entry>
;;</section> ;;</section>
;;</component> ;;</component>
;;<component> ;;<component>
;;<section> ;;<section>
;; <templateId root="2.16.840.1.113883.10.20.1.14"/> ;;<templateId root="2.16.840.1.113883.10.20.1.14"/>
;; <code code="30954-2" codeSystem="2.16.840.1.113883.6.1"/> ;;<code code="30954-2" codeSystem="2.16.840.1.113883.6.1"/>
;; <entry typeCode="DRIV"> ;;<entry typeCode="DRIV">
;; <organizer classCode="BATTERY" moodCode="EVN"> ;;<organizer classCode="BATTERY" moodCode="EVN">
;; <templateId root="2.16.840.1.113883.10.20.1.32"/> ;;<templateId root="2.16.840.1.113883.10.20.1.32"/>
;; <id root="7d5a02b0-67a4-11db-bd13-0800200c9a66"/> ;;<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"/> ;;<code code="@@BATTERYCODE@@43789009" codeSystem="@@BATTERYSYSTEM@@2.16.840.1.113883.6.96" displayName="@@BATTERYNAME@@CBC WO DIFFERENTIAL"/>
;; <statusCode code="completed"/> ;;<statusCode code="completed"/>
;; <effectiveTime value="@@BATTERYTIME@@200003231430"/> ;;<effectiveTime value="@@BATTERYTIME@@200003231430"/>
;; <component> ;;<component>
;; <observation classCode="OBS" moodCode="EVN"> ;;<observation classCode="OBS" moodCode="EVN">
;; <templateId root="2.16.840.1.113883.10.20.1.31"/> ;;<templateId root="2.16.840.1.113883.10.20.1.31"/>
;; <id root="107c2dc0-67a5-11db-bd13-0800200c9a66"/> ;;<id root="107c2dc0-67a5-11db-bd13-0800200c9a66"/>
;; <code code="@@COMPONENTCODE@@30313-1" codeSystem="@@COMPONENTSYSTEM@@2.16.840.1.113883.6.1" displayName="@@COMPONENTNAME@@HGB"/> ;;<code code="@@COMPONENTCODE@@30313-1" codeSystem="@@COMPONENTSYSTEM@@2.16.840.1.113883.6.1" displayName="@@COMPONENTNAME@@HGB"/>
;; <statusCode code="completed"/> ;;<statusCode code="completed"/>
;; <effectiveTime value="@@COMPONENTTIME@@200003231430"/> ;;<effectiveTime value="@@COMPONENTTIME@@200003231430"/>
;; <value xsi:type="@@COMPONENTTYPE@@PQ" value="@@COMPONENTVALUE@13.2" unit="@@COMPONENTUNIT@@g/dl"/> ;;<value xsi:type="@@COMPONENTTYPE@@PQ" value="@@COMPONENTVALUE@13.2" unit="@@COMPONENTUNIT@@g/dl"/>
;; <interpretationCode code="N" codeSystem="2.16.840.1.113883.5.83"/> ;;<interpretationCode code="N" codeSystem="2.16.840.1.113883.5.83"/>
;; <referenceRange> ;;<referenceRange>
;; < value="OBSERVATIONRANGE"/> ;;<value="OBSERVATIONRANGE"/>
;; <observationRange> ;;<observationRange>
;; <text>@@OBSRANGETEXT@@M 13-18 g/dl; F 12-16 g/dl</text> ;;<text>@@OBSRANGETEXT@@M 13-18 g/dl; F 12-16 g/dl</text>
;; </observationRange> ;;</observationRange>
;; </referenceRange> ;;</referenceRange>
;; </observation> ;;</observation>
;; </component> ;;</component>
;; </organizer> ;;</organizer>
;; </entry> ;;</entry>
;;</section> ;;</section>
;;</component> ;;</component>
;;</structuredBody> ;;</structuredBody>

1
p/GPLPROBS.m
View File

@ -61,3 +61,4 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
. W "PROBLEMS Missing list: ",! . W "PROBLEMS Missing list: ",!
. F I=1:1:PROBSTMP(0) W PROBSTMP(I),! . F I=1:1:PROBSTMP(0) W PROBSTMP(I),!
Q Q
;