Changeset 597 for ccr/trunk

Timestamp:

Nov 3, 2009, 10:45:09 PM (15 years ago)

Author:

Sam Habiel

Message:

Now C0CRXNRD works...

File:

• ccr/trunk/p/C0CRXNRD.m (modified) (1 diff)

ccr/trunk/p/C0CRXNRD.m

@@ -61 +61 @@
  . ; 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")