Changeset 243 for ccr/trunk/p/CCRMEDS3.m
- Timestamp:
- Oct 27, 2008, 8:50:18 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS3.m
r242 r243 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($ P(DOSEDATA(902),U,2),1:"") SAM PLEASE FIX87 . ; 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.