Changeset 678 for ccr


Ignore:
Timestamp:
Jan 22, 2010, 5:55:01 PM (15 years ago)
Author:
George Lilly
Message:

added PROCEDURES ENCOUNTERS and NOTES to RIM Analysis

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CRIMA.m

    r665 r678  
    147147    . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
    148148    ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
     149    I $D(@SBASE@("PROCEDURES",1)) D  ;
     150    . D APOST("SATTR","RIMTBL","PROCEDURES")
    149151    W "ATTRIBUTES: ",SATTR,!
    150152    Q SATTR
     
    356358      D APUSH(RIMTBL,"RESULTS")
    357359      D APUSH(RIMTBL,"RESULTSLN")
     360      D APUSH(RIMTBL,"PROCEDURES")
     361      D APUSH(RIMTBL,"ENCOUNTERS")
     362      D APUSH(RIMTBL,"NOTES")
    358363      Q
    359364      ;
Note: See TracChangeset for help on using the changeset viewer.