Index: ccr/trunk/p/C0CRXNRD.m
===================================================================
--- ccr/trunk/p/C0CRXNRD.m	(revision 309)
+++ ccr/trunk/p/C0CRXNRD.m	(revision 310)
@@ -3,6 +3,6 @@
  W "No entry from top" Q
  ;
-READCON ; Open and read concepts file: RXNCONSO.RRF
- N PATH S PATH="/home/sakura/Desktop/RxNorm/rrf/"
+READCON(PATH) ; Open and read concepts file: RXNCONSO.RRF
+ I PATH="" QUIT
  N FILENAME S FILENAME="RXNCONSO.RRF"
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
@@ -28,13 +28,13 @@
  . ; Now, construct the FDA array
  . N RXNFDA
- . S RXNFDA(11310000.01,"+"_I_",",.01)=RXCUI
- . S RXNFDA(11310000.01,"+"_I_",",1)=RXAUI
- . S RXNFDA(11310000.01,"+"_I_",",2)=SAB
- . S RXNFDA(11310000.01,"+"_I_",",3)=TTY
- . S RXNFDA(11310000.01,"+"_I_",",4)=CODE
+ . S RXNFDA(176.001,"+"_I_",",.01)=RXCUI
+ . S RXNFDA(176.001,"+"_I_",",1)=RXAUI
+ . S RXNFDA(176.001,"+"_I_",",2)=SAB
+ . S RXNFDA(176.001,"+"_I_",",3)=TTY
+ . S RXNFDA(176.001,"+"_I_",",4)=CODE
  . D UPDATE^DIE("","RXNFDA")
  . I $D(^TMP("DIERR",$J)) U $P BREAK
  . ; Now, file WP field STR
- . D WP^DIE(11310000.01,I_",",5,,$NA(STR))
+ . D WP^DIE(176.001,I_",",5,,$NA(STR))
  D CLOSE^%ZISH("FILE")
  Q