Changeset 582 for ccr/trunk

Timestamp:

Oct 21, 2009, 7:59:28 PM (15 years ago)

Author:

Sam Habiel

Message:

More updated to C0CRXNRD. Now it deletes the RxNorm files priors to building them again

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
+ ; 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!!!!
+ ;
+ 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
+ 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!
+ QUIT
+GETLINES(PATH,FILENAME) ; Get number of lines in a file
+ D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
+ U IO
+ N I
+ F I=1:1 R LINE Q:$$STATUS^%ZISH
+ D CLOSE^%ZISH("FILE")
+ Q I-1
 READCON(PATH) ; Open and read concepts file: RXNCONSO.RRF
  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
+ N LINES S LINES=$$GETLINES(PATH,FILENAME)
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
- IF POP W "Error reading file..., Please check...",! BREAK
- F I=1:1 Q:$$STATUS^%ZISH  D
+ IF POP D EN^DDIOL("Error reading file..., Please check...") G EX
+ N C0CCOUNT
+ F C0CCOUNT=1:1 D  Q:$$STATUS^%ZISH
  . U IO
  . N LINE R LINE
  . IF $$STATUS^%ZISH QUIT
- . U $P W I,! U IO  ; Write I to the screen, then go back to reading the file
+ . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
  . N RXCUI,RXAUI,SAB,TTY,CODE,STR  ; Fileman fields numbers below
  . S RXCUI=$P(LINE,"|",1)       ; .01
@@ -25 +55 @@
  . N STRLINE S STRLINE=$L(STR)\80+1
  . ; In each line, chop 80 characters off, reset STR to be the rest
- . F J=1:1:STRLINE S STR(J)=$E(STR,1,80) S STR=$E(STR,81,$L(STR))
+ . N J F J=1:1:STRLINE S STR(J)=$E(STR,1,80) S STR=$E(STR,81,$L(STR))
  . ; Now, construct the FDA array
  . N RXNFDA
- . 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
+ . S RXNFDA(176.001,"+"_C0CCOUNT_",",.01)=RXCUI
+ . S RXNFDA(176.001,"+"_C0CCOUNT_",",1)=RXAUI
+ . S RXNFDA(176.001,"+"_C0CCOUNT_",",2)=SAB
+ . S RXNFDA(176.001,"+"_C0CCOUNT_",",3)=TTY
+ . S RXNFDA(176.001,"+"_C0CCOUNT_",",4)=CODE
  . D UPDATE^DIE("","RXNFDA")
- . I $D(^TMP("DIERR",$J)) U $P BREAK
+ . I $D(^TMP("DIERR",$J)) D EN^DDIOL("ERROR") G EX
  . ; Now, file WP field STR
- . D WP^DIE(176.001,I_",",5,,$NA(STR))
- D CLOSE^%ZISH("FILE")
- Q
- ;
+ . D WP^DIE(176.001,C0CCOUNT_",",5,,$NA(STR))
+EX D CLOSE^%ZISH("FILE")
+ QUIT
 READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
  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
+ N LINES S LINES=$$GETLINES(PATH,FILENAME)
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
- IF POP W "Error reading file..., Please check...",! BREAK
- F I=1:1 Q:$$STATUS^%ZISH  D
+ IF POP W "Error reading file..., Please check...",! G EX2
+ F C0CCOUNT=1:1 Q:$$STATUS^%ZISH  D
  . U IO
  . N LINE R LINE
  . IF $$STATUS^%ZISH QUIT
- . U $P W I U IO
- . IF LINE'["NDC|RXNORM" U $P W ?20,"No NDC Here :-)",! U IO QUIT
+ . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
+ . IF LINE'["NDC|RXNORM"  QUIT
  . ; Otherwise, we are good to go
- . U $P W ?20,"Found RXNORM/NDC Set",! U IO
  . N RXCUI,NDC ; Fileman fields below
  . S RXCUI=$P(LINE,"|",1)       ; .01
@@ -59 +91 @@
  . N DIC,X,DA,DR
  . K DO
- . S DIC="^C0CRXN(176.002,",DIC(0)="F",X=RXCUI
+ . S DIC="^C0CRXN(176.002,",DIC(0)="F",X=RXCUI,DIC("DR")="2////"_NDC
  . D FILE^DICN
- . I Y<1 U $P W !,"THERE IS TROUBLE IN RIVER CITY",! BREAK
- . S DIE=DIC,DA=$P(Y,"^")
- . S DR="2////^S X=NDC"
- . D ^DIE 
- D CLOSE^%ZISH("FILE")
- U $P ; reset back to principle device
+ . I Y<1 U $P W !,"THERE IS TROUBLE IN RIVER CITY",! G EX2
+EX2 D CLOSE^%ZISH("FILE")
  QUIT
 READSRC(PATH) ; Open the read RxNorm Sources file: RXNSAB.RRF
  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 OPEN^%ZISH("FILE",PATH,FILENAME,"R")
- IF POP W "Error reading file..., Please check...",! BREAK
+ IF POP W "Error reading file..., Please check...",! G EX3
  F I=1:1 Q:$$STATUS^%ZISH  D
  . U IO
@@ -103 +134 @@
  . S RXNFDA(176.003,"+"_I_",",7)=SVER
  . D UPDATE^DIE("","RXNFDA")
- . I $D(^TMP("DIERR",$J)) U $P BREAK
+ . I $D(^TMP("DIERR",$J)) U $P W "ERR" G EX
  . ; Now, file WP field SCIT
  . D WP^DIE(176.003,I_",",25,,$NA(SCIT))
- D CLOSE^%ZISH("FILE")
+EX3 D CLOSE^%ZISH("FILE")
  Q