iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now C0CRXNRD works...

This commit is contained in:
sam 2009-11-04 03:45:09 +00:00
parent 9f5d20fc93
commit a2b9452c6e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
p/C0CRXNRD.m
View File

@ -60,11 +60,11 @@ READCON(PATH,INCRES) ; Open and read concepts file: RXNCONSO.RRF; EP
. 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,"+"_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
. S RXNFDA(176.001,"+1,",.01)=RXCUI
. S RXNFDA(176.001,"+1,",1)=RXAUI
. S RXNFDA(176.001,"+1,",2)=SAB
. S RXNFDA(176.001,"+1,",3)=TTY
. S RXNFDA(176.001,"+1,",4)=CODE
. N RXNIEN S RXNIEN(1)=C0CCOUNT
. D UPDATE^DIE("","RXNFDA","RXNIEN")
. I $D(^TMP("DIERR",$J)) D EN^DDIOL("ERROR") G EX