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


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

checking for LOINC codes

File:
1 edited

Legend:

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

    r270 r271  
    129129    . I ZR(0)>0 D  ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN
    130130    . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
    131     . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D  ;
    132     . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES
     131    . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D  ; LOINC CODE CHECK
     132    . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
    133133    ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
    134134    W "ATTRIBUTES: ",SATTR,!
     
    312312      D APUSH(RIMTBL,"ALERTSCODE")
    313313      D APUSH(RIMTBL,"RESULTS")
    314       D APUSH(RIMTBL,"LABSLN")
     314      D APUSH(RIMTBL,"RESULTSLN")
    315315      Q
    316316      ;
Note: See TracChangeset for help on using the changeset viewer.