- Timestamp:
- Oct 14, 2009, 11:58:34 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CCCR0.m
r508 r577 1 C0CCCR0 2 ;;1.0;C0C;;May 19, 2009; 1 C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08 2 ;;1.0;C0C;;May 19, 2009;Build 32 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. … … 23 23 Q 24 24 ; 25 ZT(ZARY,BAT,LINE) 25 ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array 26 26 ; ZARY IS PASSED BY NAME 27 27 ; BAT is a string identifying the section … … 38 38 Q 39 39 ; 40 ZLOAD(ZARY,ROUTINE) 40 ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference 41 41 ; ZARY IS PASSED BY NAME 42 42 ; ZARY = name of the root, closed array format (e.g., "^TMP($J)") … … 58 58 Q 59 59 ; 60 LOAD(ARY) 60 LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME 61 61 D ZLOAD(ARY,"C0CCCR0") 62 62 ; ZWR @ARY … … 103 103 ;;<Problem> 104 104 ;;<CCRDataObjectID>@@PROBLEMOBJECTID@@</CCRDataObjectID> 105 ;;<DateTime> 106 ;;<ExactDateTime>@@PROBLEMDATEMOD@@</ExactDateTime> 107 ;;</DateTime> 105 108 ;;<Type> 106 109 ;;<Text>Problem</Text> 107 110 ;;</Type> 111 ;;<Description> 112 ;;<Text>@@PROBLEMDESCRIPTION@@</Text> 113 ;;<Code> 114 ;;<Value>@@PROBLEMCODEVALUE@@</Value> 115 ;;<CodingSystem>ICD9CM</CodingSystem> 116 ;;<Version>@@PROBLEMCODINGVERSION@@</Version> 117 ;;</Code> 118 ;;</Description> 108 119 ;;<Status> 109 120 ;;<Text>@@PROBLEMSTATUS@@</Text> 110 121 ;;</Status> 111 ;;<Description>112 ;;<Text>@@PROBLEMDESCRIPTION@@</Text>113 ;;<Code>114 ;;<Value>@@PROBLEMCODEVALUE@@</Value>115 ;;<CodingSystem>ICD9CM</CodingSystem>116 ;;<Version>@@PROBLEMCODINGVERSION@@</Version>117 ;;</Code>118 ;;</Description>119 ;;<DateTime>120 ;;<ExactDateTime>@@PROBLEMDATEMOD@@</ExactDateTime>121 ;;</DateTime>122 122 ;;<Source> 123 123 ;;<Actor> … … 248 248 ;;<Alert> 249 249 ;;<CCRDataObjectID>@@ALERTOBJECTID@@</CCRDataObjectID> 250 ;;<DateTime> 251 ;;<ExactDateTime>@@ALERTDATETIME@@</ExactDateTime> 252 ;;</DateTime> 250 253 ;;<Type> 251 254 ;;<Text>@@ALERTTYPE@@</Text> 252 255 ;;</Type> 253 ;;<Description>254 ;;<Text>@@ALERTDESCRIPTIONTEXT@@</Text>255 ;;<Code>256 ;;<Value>@@ALERTCODEVALUE@@</Value>257 ;;<CodingSystem>@@ALERTCODESYSTEM@@</CodingSystem>258 ;;</Code>259 ;;</Description>260 256 ;;<Status> 261 257 ;;<Text>@@ALERTSTATUSTEXT@@</Text> 262 258 ;;</Status> 263 ;;<DateTime> 264 ;;<ExactDateTime>@@ALERTDATETIME@@</ExactDateTime> 265 ;;</DateTime> 259 ;;<Description> 260 ;;<Text>@@ALERTDESCRIPTIONTEXT@@</Text> 261 ;;<Code> 262 ;;<Value>@@ALERTCODEVALUE@@</Value> 263 ;;<CodingSystem>@@ALERTCODESYSTEM@@</CodingSystem> 264 ;;</Code> 265 ;;</Description> 266 266 ;;<Source> 267 267 ;;<Actor> … … 275 275 ;;<Source> 276 276 ;;<Actor> 277 ;;<ActorID>@@ALERTAGENTPRODUCTSOURCEID@@</ActorID> 278 ;;</Actor> 279 ;;</Source> 277 ;;<ActorID>@@ALERTSOURCEID@@</ActorID> 278 ;;</Actor> 279 ;;</Source> 280 ;;<Product> 280 281 ;;<ProductName> 281 282 ;;<Text>@@ALERTAGENTPRODUCTNAMETEXT@@</Text> … … 285 286 ;;</Code> 286 287 ;;</ProductName> 288 ;;</Product> 287 289 ;;</Product> 288 290 ;;</Products>
Note:
See TracChangeset
for help on using the changeset viewer.