Changeset 244
- Timestamp:
- Oct 27, 2008, 8:53:44 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS3.m
r243 r244 85 85 . I $L(MEDIEN) N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN) 86 86 . S @MAP@("MEDSTRENGTHVALUE")=$S($L(MEDIEN):DOSEDATA(901),1:"") 87 . ;S @MAP@("MEDSTRENGTHUNIT")=$S($L(DOSEDATA(902))>0:$P(DOSEDATA(902),U,2),1:"") SAM PLEASE CHECK87 . S @MAP@("MEDSTRENGTHUNIT")=$S($L(DOSEDATA(902))>0:$P(DOSEDATA(902),U,2),1:"") SAM PLEASE CHECK 88 88 . ; Units, concentration, etc, come from another call 89 89 . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit
Note:
See TracChangeset
for help on using the changeset viewer.