diff --git a/p/GPLRIMA.m b/p/GPLRIMA.m
index 6c6cb6b..4161ec8 100644
--- a/p/GPLRIMA.m
+++ b/p/GPLRIMA.m
@@ -128,8 +128,8 @@ SETATTR(SDFN) ; SET ATTRIBUTES BASED ON VARS
     . ; D PARY^GPLXPATH("ZR") ;
     . I ZR(0)>0 D  ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN
     . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
-    . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D  ;
-    . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","LABLN") ;CODES
+    . . . I $P(ZR(ZI),"^",2)="RESULTTESTCODINGSYSTEM" D  ; LOINC CODE CHECK
+    . . . . I $P(ZR(ZI),"^",3)="LOINC" D APOST("SATTR","RIMTBL","RESULTSLN") ;
     ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
     W "ATTRIBUTES: ",SATTR,!
     Q SATTR
@@ -311,7 +311,7 @@ AINIT ; INITIALIZE ATTRIBUTE TABLE
       D APUSH(RIMTBL,"ALERTS")
       D APUSH(RIMTBL,"ALERTSCODE")
       D APUSH(RIMTBL,"RESULTS")
-      D APUSH(RIMTBL,"LABSLN")
+      D APUSH(RIMTBL,"RESULTSLN")
       Q
       ;
 APOST(PRSLT,PTBL,PVAL) ; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL