Changeset 593 for ccr/trunk/p/C0CRXNRD.m

Timestamp:

Nov 3, 2009, 2:29:36 PM (15 years ago)

Author:

Sam Habiel

Message:

updated RPMS Meds...; still working on RxNorm

File:

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

ccr/trunk/p/C0CRXNRD.m

@@ -3 +3 @@
  W "No entry from top" Q
  ;
-DELFILED(FN,ERR) ; Delete file data; PEP procedure; READ WARNING
+DELFILED(FN) ; Delete file data; PEP procedure; only for RxNorm files
  ; FN is Filenumber passed by Value
- ; ERR is error info, passed by reference
- ; If ERR is 1, then the operation failed.
- ; WARNING: THIS IS VERY DANGEROUS OPERATION
- ; I DON'T EVEN CHECK THE DEL NODE ON THE FILE!!!!
- ;
+ QUIT:$E(FN,1,3)'=176  ; Quit if not RxNorm files
  D CLEAN^DILF ; Clean FM variables
- N C0CFINFO ; File info
- D FILE^DID(FN,"","GLOBAL NAME","C0CROOT") ; Get file info
- I $D(DIERR) D EN^DDIOL("Error...") S ERR=1 QUIT
- N ROOT2 S ROOT2=C0CROOT("GLOBAL NAME") ; Open global root
- N CLROOT S CLROOT=$$CREF^DILF(ROOT2) ; Closed Root
- N ZERO S ZERO=@CLROOT@(0) ; Save zero node
+ N ROOT S ROOT=$$ROOT^DILFD(FN,"",1) ; global root
+ N ZERO S ZERO=@ROOT@(0) ; Save zero node
  S $P(ZERO,U,3,9999)="" ; Remove entry # and last edited
- K @CLROOT ; Kill the file -- so sad!
- S @CLROOT@(0)=ZERO ; It riseth again!
+ K @ROOT ; Kill the file -- so sad!
+ S @ROOT@(0)=ZERO ; It riseth again!
  QUIT
 GETLINES(PATH,FILENAME) ; Get number of lines in a file
@@ -31 +23 @@
  I PATH="" QUIT
  N FILENAME S FILENAME="RXNCONSO.RRF"
- N ERR
- D DELFILED(176.001,.ERR) ; delete data
- IF $G(ERR) D EN^DDIOL("Couldn't delete file") G EX
+ D DELFILED(176.001) ; delete data
  N LINES S LINES=$$GETLINES(PATH,FILENAME)
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
@@ -72 +62 @@
  I PATH="" QUIT
  N FILENAME S FILENAME="RXNSAT.RRF"
- N ERR
- D DELFILED(176.002,.ERR) ; delete data
- IF $G(ERR) D EN^DDIOL("Couldn't delete file") G EX2
+ D DELFILED(176.002) ; delete data
  N LINES S LINES=$$GETLINES(PATH,FILENAME)
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
@@ -99 +87 @@
  I PATH="" QUIT
  N FILENAME S FILENAME="RXNSAB.RRF"
- N ERR
- D DELFILED(176.003,.ERR) ; delete data
- IF $G(ERR) D EN^DDIOL("Couldn't delete file") G EX2
+ D DELFILED(176.003) ; delete data
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
  IF POP W "Error reading file..., Please check...",! G EX3