Changeset 597
- Timestamp:
- Nov 3, 2009, 10:45:09 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CRXNRD.m
r594 r597 61 61 . ; Now, construct the FDA array 62 62 . N RXNFDA 63 . S RXNFDA(176.001,"+ "_C0CCOUNT_",",.01)=RXCUI64 . S RXNFDA(176.001,"+ "_C0CCOUNT_",",1)=RXAUI65 . S RXNFDA(176.001,"+ "_C0CCOUNT_",",2)=SAB66 . S RXNFDA(176.001,"+ "_C0CCOUNT_",",3)=TTY67 . S RXNFDA(176.001,"+ "_C0CCOUNT_",",4)=CODE63 . 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 68 68 . N RXNIEN S RXNIEN(1)=C0CCOUNT 69 69 . D UPDATE^DIE("","RXNFDA","RXNIEN")
Note:
See TracChangeset
for help on using the changeset viewer.