Changeset 678 for ccr

Timestamp:

Jan 22, 2010, 5:55:01 PM (15 years ago)

Author:

George Lilly

Message:

added PROCEDURES ENCOUNTERS and NOTES to RIM Analysis

File:

• ccr/trunk/p/C0CRIMA.m (modified) (2 diffs)

ccr/trunk/p/C0CRIMA.m

@@ -147 +147 @@
     . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
     ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
+    I $D(@SBASE@("PROCEDURES",1)) D  ;
+    . D APOST("SATTR","RIMTBL","PROCEDURES")
     W "ATTRIBUTES: ",SATTR,!
     Q SATTR
@@ -356 +358 @@
       D APUSH(RIMTBL,"RESULTS")
       D APUSH(RIMTBL,"RESULTSLN")
+      D APUSH(RIMTBL,"PROCEDURES")
+      D APUSH(RIMTBL,"ENCOUNTERS")
+      D APUSH(RIMTBL,"NOTES")
       Q
       ;