diff --git a/p/C0CRXNRD.m b/p/C0CRXNRD.m
index 8d98983..728b41f 100644
--- a/p/C0CRXNRD.m
+++ b/p/C0CRXNRD.m
@@ -60,11 +60,11 @@ READCON(PATH,INCRES) ; Open and read concepts file: RXNCONSO.RRF; EP
  . N J F J=1:1:STRLINE S STR(J)=$E(STR,1,80) S STR=$E(STR,81,$L(STR))
  . ; Now, construct the FDA array
  . N RXNFDA
- . S RXNFDA(176.001,"+"_C0CCOUNT_",",.01)=RXCUI
- . S RXNFDA(176.001,"+"_C0CCOUNT_",",1)=RXAUI
- . S RXNFDA(176.001,"+"_C0CCOUNT_",",2)=SAB
- . S RXNFDA(176.001,"+"_C0CCOUNT_",",3)=TTY
- . S RXNFDA(176.001,"+"_C0CCOUNT_",",4)=CODE
+ . S RXNFDA(176.001,"+1,",.01)=RXCUI
+ . S RXNFDA(176.001,"+1,",1)=RXAUI
+ . S RXNFDA(176.001,"+1,",2)=SAB
+ . S RXNFDA(176.001,"+1,",3)=TTY
+ . S RXNFDA(176.001,"+1,",4)=CODE
  . N RXNIEN S RXNIEN(1)=C0CCOUNT
  . D UPDATE^DIE("","RXNFDA","RXNIEN")
  . I $D(^TMP("DIERR",$J)) D EN^DDIOL("ERROR") G EX