Index: ccr/trunk/p/C0CRXNRD.m
===================================================================
--- ccr/trunk/p/C0CRXNRD.m	(revision 310)
+++ ccr/trunk/p/C0CRXNRD.m	(revision 311)
@@ -40,10 +40,11 @@
  Q
  ;
-READNDC ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
- N PATH S PATH="/home/sakura/Desktop/RxNorm/rrf/"
- N FILENAME S FILENAME="RXNSAB.RRF"
+READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
+ I PATH="" QUIT
+ N FILENAME S FILENAME="RXNSAT.RRF"
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
  IF POP W "Error reading file..., Please check...",! BREAK
  F I=1:1 Q:$$STATUS^%ZISH  D
+ . U IO
  . N LINE R LINE
  . IF $$STATUS^%ZISH QUIT
@@ -59,5 +60,5 @@
  . N DIC,X,DA,DR
  . K DO
- . S DIC="^C0CRXN(""RXN"",""NDC"",",DIC(0)="F",X=RXCUI
+ . S DIC="^C0CRXN(176.002,",DIC(0)="F",X=RXCUI
  . D FILE^DICN
  . I Y<1 U $P W !,"THERE IS TROUBLE IN RIVER CITY",! BREAK
@@ -66,4 +67,5 @@
  . D ^DIE 
  D CLOSE^%ZISH("FILE")
+ U $P ; reset back to principle device