Changeset 40 for ccr/trunk/p/GPLCCD0.m
- Timestamp:
- Jul 3, 2008, 9:02:47 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCD0.m
r3 r40 1 1 GPLCCD0 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08 2 ;;0.1;CCDCCR;nopatch;noreleasedate3 W "This is a CCD TEMPLATE with processing routines",!4 W !5 Q6 ;2 ;;0.1;CCDCCR;nopatch;noreleasedate 3 W "This is a CCD TEMPLATE with processing routines",! 4 W ! 5 Q 6 ; 7 7 ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array 8 ; ZARY IS PASSED BY NAME9 ; BAT is a string identifying the section10 ; LINE is a test which will evaluate to true or false11 ; I '$G(@ZARY) D12 . S @ZARY@(0)=0 ; initially there are no elements13 . W "GOT HERE LOADING "_LINE,!14 N CNT ; count of array elements15 S CNT=@ZARY@(0) ; contains array count16 S CNT=CNT+1 ; increment count17 S @ZARY@(CNT)=LINE ; put the line in the array18 ; S @ZARY@(BAT,CNT)="" ; index the test by battery19 S @ZARY@(0)=CNT ; update the array counter20 Q21 ;22 ZLOAD(ZARY,ROUTINE) 23 ; ZARY IS PASSED BY NAME24 ; ZARY = name of the root, closed array format (e.g., "^TMP($J)")25 ; ROUTINE = NAME OF THE ROUTINE - PASSED BY VALUE26 K @ZARY S @ZARY=""27 S @ZARY@(0)=0 ; initialize array count28 N LINE,LABEL,BODY29 N INTEST S INTEST=0 ; switch for in the TEMPLATE section30 N SECTION S SECTION="[anonymous]" ; NO section LABEL31 ;32 N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D33 . I LINE?." "1";<TEMPLATE>".E S INTEST=1 ; entering section34 . I LINE?." "1";</TEMPLATE>".E S INTEST=0 ; leaving section35 . I INTEST D ; within the section36 . . I LINE?." "1";><".E D ; sub-section name found37 . . . S SECTION=$P($P(LINE,";><",2),">",1) ; pull out name38 . . I LINE?." "1";;".E D ; line found39 . . . D ZT(ZARY,SECTION,$P(LINE,";;",2)) ; put the line in the array40 Q41 ;8 ; ZARY IS PASSED BY NAME 9 ; BAT is a string identifying the section 10 ; LINE is a test which will evaluate to true or false 11 ; I '$G(@ZARY) D 12 . S @ZARY@(0)=0 ; initially there are no elements 13 . W "GOT HERE LOADING "_LINE,! 14 N CNT ; count of array elements 15 S CNT=@ZARY@(0) ; contains array count 16 S CNT=CNT+1 ; increment count 17 S @ZARY@(CNT)=LINE ; put the line in the array 18 ; S @ZARY@(BAT,CNT)="" ; index the test by battery 19 S @ZARY@(0)=CNT ; update the array counter 20 Q 21 ; 22 ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference 23 ; ZARY IS PASSED BY NAME 24 ; ZARY = name of the root, closed array format (e.g., "^TMP($J)") 25 ; ROUTINE = NAME OF THE ROUTINE - PASSED BY VALUE 26 K @ZARY S @ZARY="" 27 S @ZARY@(0)=0 ; initialize array count 28 N LINE,LABEL,BODY 29 N INTEST S INTEST=0 ; switch for in the TEMPLATE section 30 N SECTION S SECTION="[anonymous]" ; NO section LABEL 31 ; 32 N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D 33 . I LINE?." "1";<TEMPLATE>".E S INTEST=1 ; entering section 34 . I LINE?." "1";</TEMPLATE>".E S INTEST=0 ; leaving section 35 . I INTEST D ; within the section 36 . . I LINE?." "1";><".E D ; sub-section name found 37 . . . S SECTION=$P($P(LINE,";><",2),">",1) ; pull out name 38 . . I LINE?." "1";;".E D ; line found 39 . . . D ZT(ZARY,SECTION,$P(LINE,";;",2)) ; put the line in the array 40 Q 41 ; 42 42 LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME 43 D ZLOAD(ARY,"GPLCCD0")44 ; ZWR @ARY45 Q46 ;43 D ZLOAD(ARY,"GPLCCD0") 44 ; ZWR @ARY 45 Q 46 ; 47 47 ;<TEMPLATE> 48 48 ;;<?xml version="1.0"?> 49 49 ;;<?xml-stylesheet type="text/xsl" href="CCD.xsl"?> 50 50 ;;<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"> 51 ;; 52 ;; 53 ;; 54 ;; 55 ;; 56 ;; 57 ;; 58 ;; 59 ;; 60 ;; 61 ;; 62 ;; 63 ;; 64 ;; 65 ;; 66 ;; 67 ;; 68 ;; 69 ;; 70 ;; 71 ;; 72 ;; 73 ;; 74 ;; 75 ;; 76 ;; 77 ;; 78 ;; 79 ;; 80 ;; 81 ;; 82 ;; 83 ;; 84 ;; 85 ;; 86 ;; 87 ;; 88 ;; 89 ;; 90 ;; 91 ;; 92 ;; 93 ;; 94 ;; 95 ;; 96 ;; 97 ;; 98 ;; 99 ;; 100 ;; 101 ;; 102 ;; 103 ;; 104 ;; 105 ;; 106 ;; 107 ;; 108 ;; 109 ;; 110 ;; 111 ;; 112 ;; 113 ;; 114 ;; 115 ;; 116 ;; 117 ;; 118 ;; 119 ;; 120 ;; 121 ;; 122 ;; 123 ;; 124 ;; 125 ;; 126 ;; 127 ;; 128 ;; 129 ;; 130 ;; 131 ;; 132 ;; 133 ;; 134 ;; 135 ;; 136 ;; 137 ;; 138 ;; 139 ;; 140 ;; 141 ;; 142 ;; 143 ;; 144 ;; 145 ;; 146 ;; 147 ;; 148 ;; 149 ;; 150 ;; 151 ;; 152 ;; 153 ;; 154 ;; 155 ;; 156 ;; 157 ;; 158 ;; 159 ;; 160 ;; 161 ;; 162 ;; 163 ;; 164 ;; 165 ;; 166 ;; 167 ;; 168 ;; 169 ;; 51 ;;<typeId root="2.16.840.1.113883.1.3" extension="POCD_HD000040"/> 52 ;;<templateId root="2.16.840.1.113883.10.20.1"/> 53 ;;<id root="db734647-fc99-424c-a864-7e3cda82e703"/> 54 ;;<code code="34133-9" codeSystem="2.16.840.1.113883.6.1" displayName="Summarization of episode note"/> 55 ;;<title>< value="DOCTITLE"/>@@DOCTITLE@@Good Health Clinic Continuity of Care Document</title> 56 ;;<effectiveTime value="@@EFFECTIVETIME@@20000407130000+0500"/> 57 ;;<confidentialityCode code="N" codeSystem="2.16.840.1.113883.5.25"/> 58 ;;<languageCode code="en-US"/> 59 ;;<recordTarget> 60 ;;<patientRole> 61 ;;<id extension="996-756-495" root="2.16.840.1.113883.19.5"/> 62 ;;<patient> 63 ;;<name> 64 ;;<given>@@PATIENTGIVENNAME@@</given> 65 ;;<family>@@PATIENTFAMILYNAME@@</family> 66 ;;<suffix>@@PATIENTNAMESUFFIX@@</suffix> 67 ;;</name> 68 ;;<administrativeGenderCode code="@@PATIENTGENDER@@M" codeSystem="2.16.840.1.113883.5.1"/> 69 ;;<birthTime value="@@PATIENTDATEOFBIRTH@@19320924"/> 70 ;;</patient> 71 ;;<providerOrganization> 72 ;;<id root="2.16.840.1.113883.19.5"/> 73 ;;<name>@@SITENAME@@Good Health Clinic</name> 74 ;;</providerOrganization> 75 ;;</patientRole> 76 ;;</recordTarget> 77 ;;<author> 78 ;;<time value="20000407130000+0500"/> 79 ;;<assignedAuthor> 80 ;;<id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/> 81 ;;<assignedPerson> 82 ;;<name><prefix>Dr.</prefix><given>@@AUTHORGIVENNAME@@Robert</given><family>@@AUTHORFAMILYNAME@@Dolin</family></name> 83 ;;</assignedPerson> 84 ;;<representedOrganization> 85 ;;<id root="2.16.840.1.113883.19.5"/> 86 ;;<name>@@AUTHORSITE@@Good Health Clinic</name> 87 ;;</representedOrganization> 88 ;;</assignedAuthor> 89 ;;</author> 90 ;;<informant> 91 ;;<assignedEntity> 92 ;;<id nullFlavor="NI"/> 93 ;;<representedOrganization> 94 ;;<id root="2.16.840.1.113883.19.5"/> 95 ;;<name>@@INFORMANTORG@@Good Health Clinic</name> 96 ;;</representedOrganization> 97 ;;</assignedEntity> 98 ;;</informant> 99 ;;<custodian> 100 ;;<assignedCustodian> 101 ;;<representedCustodianOrganization> 102 ;;<id root="2.16.840.1.113883.19.5"/> 103 ;;<name>@@CUSTODIANORG@@Good Health Clinic</name> 104 ;;</representedCustodianOrganization> 105 ;;</assignedCustodian> 106 ;;</custodian> 107 ;;<legalAuthenticator> 108 ;;<time value="20000407130000+0500"/> 109 ;;<signatureCode code="S"/> 110 ;;<assignedEntity> 111 ;;<id nullFlavor="NI"/> 112 ;;<representedOrganization> 113 ;;<id root="2.16.840.1.113883.19.5"/> 114 ;;<name>@@LEGALORG@@Good Health Clinic</name> 115 ;;</representedOrganization> 116 ;;</assignedEntity> 117 ;;</legalAuthenticator> 118 ;;<participant typeCode="IND"> 119 ;;<associatedEntity classCode="GUAR"> 120 ;;<id root="4ff51570-83a9-47b7-91f2-93ba30373141"/> 121 ;;<addr> 122 ;;<streetAddressLine>@@GUARSTREET@@17 Daws Rd.</streetAddressLine> 123 ;;<city>@@GUARCITY@@Blue Bell</city> 124 ;;<state>@@GUARSTATE@@MA</state> 125 ;;<postalCode>@@GUARZIP@@02368</postalCode> 126 ;;</addr> 127 ;;<telecom value="tel:@@GUARTELE@@(888)555-1212"/> 128 ;;<associatedPerson> 129 ;;<name> 130 ;;<given>@@GUARGIVENNAME@@Kenneth</given> 131 ;;<family>@@GUARFAMILYNAME@@Ross</family> 132 ;;</name> 133 ;;</associatedPerson> 134 ;;</associatedEntity> 135 ;;</participant> 136 ;;<participant typeCode="IND"> 137 ;;<associatedEntity classCode="NOK"> 138 ;;<id root="4ac71514-6a10-4164-9715-f8d96af48e6d"/> 139 ;;<code code="65656005" codeSystem="2.16.840.1.113883.6.96" displayName="@@NOKRELATION@@Biiological mother"/> 140 ;;<telecom value="tel:@@NOKTELE@@(999)555-1212"/> 141 ;;<associatedPerson> 142 ;;<name> 143 ;;<given>@@NOKGIVENNAME@@Henrietta</given> 144 ;;<family>@@NOKFAMILYNAME@@Levin</family> 145 ;;</name> 146 ;;</associatedPerson> 147 ;;</associatedEntity> 148 ;;</participant> 149 ;;<documentationOf> 150 ;;<serviceEvent classCode="PCPR"> 151 ;;<effectiveTime><low value="@@DOCPERIODLOW@@19320924"/><high value="@@DOCPERIODHIGH@@20000407"/></effectiveTime> 152 ;;<performer typeCode="PRF"> 153 ;;<functionCode code="PCP" codeSystem="2.16.840.1.113883.5.88"/> 154 ;;<time><low value="@@PCPPERIODLOW@@1990"/><high value='@@PCPPERIODHIGH@@20000407'/></time> 155 ;;<assignedEntity> 156 ;;<id root="20cf14fb-b65c-4c8c-a54d-b0cca834c18c"/> 157 ;;<assignedPerson> 158 ;;<name><prefix>@@PCPNAMEPREFIX@@Dr.</prefix><given>@@PCPNAMEGIVEN@@Robert</given><family>@@PCPNAMEFAMILY@@Dolin</family></name> 159 ;;</assignedPerson> 160 ;;<representedOrganization> 161 ;;<id root="2.16.840.1.113883.19.5"/> 162 ;;<name>@@PCPORG@@Good Health Clinic</name> 163 ;;</representedOrganization> 164 ;;</assignedEntity> 165 ;;</performer> 166 ;;</serviceEvent> 167 ;;</documentationOf> 168 ;;<component> 169 ;;<structuredBody> 170 170 ;;<component> 171 171 ;;<section> 172 ;; 173 ;; 174 ;; 175 ;; 176 ;; 177 ;; 178 ;; 179 ;; 180 ;; 181 ;; 182 ;; 183 ;; 184 ;; 185 ;; 186 ;; 187 ;; 188 ;; 172 ;;<templateId root='2.16.840.1.113883.10.20.1.13'/> 173 ;;<code code="48764-5" codeSystem="2.16.840.1.113883.6.1"/> 174 ;;<title>Summary Purpose</title> 175 ;;<text>Transfer of care</text> 176 ;;<entry typeCode="DRIV"> 177 ;;<act classCode="ACT" moodCode="EVN"> 178 ;;<templateId root='2.16.840.1.113883.10.20.1.30'/> 179 ;;<code code="23745001" codeSystem="2.16.840.1.113883.6.96" displayName="Documentation procedure"/> 180 ;;<statusCode code="completed"/> 181 ;;<entryRelationship typeCode="RSON"> 182 ;;<act classCode="ACT" moodCode="EVN"> 183 ;;<code code="308292007" codeSystem="2.16.840.1.113883.6.96" displayName="@@DOCPURPOSE@@Transfer of care"/> 184 ;;<statusCode code="completed"/> 185 ;;</act> 186 ;;</entryRelationship> 187 ;;</act> 188 ;;</entry> 189 189 ;;</section> 190 190 ;;</component> 191 191 ;;<component> 192 192 ;;<section> 193 ;; 194 ;; 195 ;; 196 ;; 197 ;; 198 ;; 199 ;; 200 ;; 201 ;; 202 ;; 203 ;; 204 ;; 205 ;; 206 ;; 207 ;; 208 ;; 209 ;; 210 ;; 211 ;; 212 ;; <value="OBSERVATIONRANGE"/>213 ;; 214 ;; 215 ;; 216 ;; 217 ;; 218 ;; 219 ;; 220 ;; 193 ;;<templateId root="2.16.840.1.113883.10.20.1.14"/> 194 ;;<code code="30954-2" codeSystem="2.16.840.1.113883.6.1"/> 195 ;;<entry typeCode="DRIV"> 196 ;;<organizer classCode="BATTERY" moodCode="EVN"> 197 ;;<templateId root="2.16.840.1.113883.10.20.1.32"/> 198 ;;<id root="7d5a02b0-67a4-11db-bd13-0800200c9a66"/> 199 ;;<code code="@@BATTERYCODE@@43789009" codeSystem="@@BATTERYSYSTEM@@2.16.840.1.113883.6.96" displayName="@@BATTERYNAME@@CBC WO DIFFERENTIAL"/> 200 ;;<statusCode code="completed"/> 201 ;;<effectiveTime value="@@BATTERYTIME@@200003231430"/> 202 ;;<component> 203 ;;<observation classCode="OBS" moodCode="EVN"> 204 ;;<templateId root="2.16.840.1.113883.10.20.1.31"/> 205 ;;<id root="107c2dc0-67a5-11db-bd13-0800200c9a66"/> 206 ;;<code code="@@COMPONENTCODE@@30313-1" codeSystem="@@COMPONENTSYSTEM@@2.16.840.1.113883.6.1" displayName="@@COMPONENTNAME@@HGB"/> 207 ;;<statusCode code="completed"/> 208 ;;<effectiveTime value="@@COMPONENTTIME@@200003231430"/> 209 ;;<value xsi:type="@@COMPONENTTYPE@@PQ" value="@@COMPONENTVALUE@13.2" unit="@@COMPONENTUNIT@@g/dl"/> 210 ;;<interpretationCode code="N" codeSystem="2.16.840.1.113883.5.83"/> 211 ;;<referenceRange> 212 ;;<value="OBSERVATIONRANGE"/> 213 ;;<observationRange> 214 ;;<text>@@OBSRANGETEXT@@M 13-18 g/dl; F 12-16 g/dl</text> 215 ;;</observationRange> 216 ;;</referenceRange> 217 ;;</observation> 218 ;;</component> 219 ;;</organizer> 220 ;;</entry> 221 221 ;;</section> 222 222 ;;</component>
Note:
See TracChangeset
for help on using the changeset viewer.