Changeset 311 for ccr

Timestamp:

Dec 26, 2008, 7:35:54 PM (16 years ago)

Author:

Sam Habiel

Message:

more fixes on C0CRXNRD

File:

• ccr/trunk/p/C0CRXNRD.m (modified) (3 diffs)

ccr/trunk/p/C0CRXNRD.m

@@ -40 +40 @@
  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 +60 @@
  . 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 +67 @@
  . D ^DIE 
  D CLOSE^%ZISH("FILE")
+ U $P ; reset back to principle device