Changeset 310 for ccr

Timestamp:

Dec 26, 2008, 5:58:42 PM (15 years ago)

Author:

Sam Habiel

Message:

good copy of C0CRXNRD

File:

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

ccr/trunk/p/C0CRXNRD.m

@@ -3 +3 @@
  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 +28 @@
  . ; 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