Changeset 1205 for ccr/trunk/p/C0CNMED4.m

Timestamp:

Jul 8, 2011, 3:24:07 PM (13 years ago)

Author:

George Lilly

Message:

version for certification

File:

• ccr/trunk/p/C0CNMED4.m (modified) (3 diffs)

ccr/trunk/p/C0CNMED4.m

@@ -83 +83 @@
  . S @MAP@("MEDDETAILUNADORNED")=""  ; Leave blank, field has its uses
  . ;S @MAP@("MEDSTATUSTEXT")="ACTIVE" 
- . S @MAP@("MEDSTATUSTEXT")=$G(MED("vaStatus@value")) ; need to filter status
+ . N C0CMST S C0CMST=$G(MED("vaStatus@value")) ; need to filter status
+ . I C0CMST="EXPIRED" S C0CMST="Prior History No Longer Active"
+ . I C0CMST="ACTIVE" S C0CMST="Active" ;
+ . S @MAP@("MEDSTATUSTEXT")=C0CMST
  . ;S @MAP@("MEDSOURCEACTORID")="ACTORPROVIDER_"_$P(MED(1),U)
  . S @MAP@("MEDSOURCEACTORID")="ACTORPROVIDER_"_$G(MED("orderingProvider@code"))
@@ -112 +115 @@
  . ;I $L(MEDIEN) N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
  . ;S @MAP@("MEDSTRENGTHVALUE")=$S($L(MEDIEN):DOSEDATA(901),1:"")
- . S @MAP@("MEDSTRENGTHVALUE")=$G(MED("dose.dose@dose"))
+ . S @MAP@("MEDSTRENGTHVALUE")=$G(MED("doses.dose@dose"))
  . ;S @MAP@("MEDSTRENGTHUNIT")=$S($P(DOSEDATA(902),U,2),1:"")
- . S @MAP@("MEDSTRENGTHUNIT")=$G(MED("dose.dose@units"))
+ . S @MAP@("MEDSTRENGTHUNIT")=$G(MED("doses.dose@units"))
  . ; Units, concentration, etc, come from another call
  . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit
@@ -135 +138 @@
  . S @MAP@("MEDFORMTEXT")=$G(MED("form@value"))
  . ;S @MAP@("MEDCONCVALUE")=$S($L(MEDIEN):$P(CONCDATA,U,3),1:"")
- . S @MAP@("MEDCONCVALUE")=$G(MED("dose.dose@dose"))
+ . S @MAP@("MEDCONCVALUE")=$G(MED("doses.dose@dose"))
  . ;S @MAP@("MEDCONCUNIT")=$S($L(MEDIEN):$P(CONCDATA,U,4),1:"")
- . S @MAP@("MEDCONCUNIT")=$G(MED("dose.does@units"))
+ . S @MAP@("MEDCONCUNIT")=$G(MED("doses.does@units"))
  . ;S @MAP@("MEDQUANTITYVALUE")=""  ; not provided for in Non-VA meds.
- . S @MAP@("MEDQUANTITYVALUE")=""
+ . S @MAP@("MEDQUANTITYVALUE")=$G(MED("doses.dose@unitsPerDose")) ;
  . ; Oddly, there is no easy place to find the dispense unit.
  . ; It's not included in the original call, so we have to go to the drug file.