Changeset 269 for ccr/trunk/p/GPLRIMA.m


Ignore:
Timestamp:
Nov 9, 2008, 12:16:25 PM (16 years ago)
Author:
George Lilly
Message:

correct checking for LOINC code in RESULTS

File:
1 edited

Legend:

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

    r266 r269  
    128128    . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
    129129    . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D  ;
    130     . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES
     130    . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES
    131131    ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
    132132    W "ATTRIBUTES: ",SATTR,!
Note: See TracChangeset for help on using the changeset viewer.