Changeset 597


Ignore:
Timestamp:
Nov 3, 2009, 10:45:09 PM (15 years ago)
Author:
Sam Habiel
Message:

Now C0CRXNRD works...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CRXNRD.m

    r594 r597  
    6161 . ; Now, construct the FDA array
    6262 . N RXNFDA
    63  . S RXNFDA(176.001,"+"_C0CCOUNT_",",.01)=RXCUI
    64  . S RXNFDA(176.001,"+"_C0CCOUNT_",",1)=RXAUI
    65  . S RXNFDA(176.001,"+"_C0CCOUNT_",",2)=SAB
    66  . S RXNFDA(176.001,"+"_C0CCOUNT_",",3)=TTY
    67  . S RXNFDA(176.001,"+"_C0CCOUNT_",",4)=CODE
     63 . S RXNFDA(176.001,"+1,",.01)=RXCUI
     64 . S RXNFDA(176.001,"+1,",1)=RXAUI
     65 . S RXNFDA(176.001,"+1,",2)=SAB
     66 . S RXNFDA(176.001,"+1,",3)=TTY
     67 . S RXNFDA(176.001,"+1,",4)=CODE
    6868 . N RXNIEN S RXNIEN(1)=C0CCOUNT
    6969 . D UPDATE^DIE("","RXNFDA","RXNIEN")
Note: See TracChangeset for help on using the changeset viewer.