Changeset 321 for ccr/trunk/p/CCRMEDS4.m
- Timestamp:
- Jan 11, 2009, 2:02:28 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS4.m
r227 r321 105 105 . S @MAP@("MEDCONCVALUE")=$S($L(MEDIEN):$P(CONCDATA,U,3),1:"") 106 106 . S @MAP@("MEDCONCUNIT")=$S($L(MEDIEN):$P(CONCDATA,U,4),1:"") 107 . S @MAP@("MEDSIZETEXT")=$S($L(MEDIEN):$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2),1:"")108 107 . S @MAP@("MEDQUANTITYVALUE")="" ; not provided for in Non-VA meds. 109 108 . ; Oddly, there is no easy place to find the dispense unit.
Note:
See TracChangeset
for help on using the changeset viewer.