Index: /ccr/trunk/p/CCRMEDS3.m
===================================================================
--- /ccr/trunk/p/CCRMEDS3.m	(revision 232)
+++ /ccr/trunk/p/CCRMEDS3.m	(revision 233)
@@ -48,5 +48,5 @@
  I DEBUG ZWR MEDS
  N FDAIEN S FDAIEN=0 ; For use in $Order in the MEDS array.
- S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP")) 
+ S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
  N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
  F  S FDAIEN=$O(MEDS(FDAIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
@@ -84,5 +84,5 @@
  . I $L(MEDIEN) N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
  . S @MAP@("MEDSTRENGTHVALUE")=$S($L(MEDIEN):DOSEDATA(901),1:"")
- . S @MAP@("MEDSTRENGTHUNIT")=$S($P(DOSEDATA(902),U,2),1:"")
+ . ; S @MAP@("MEDSTRENGTHUNIT")=$S($P(DOSEDATA(902),U,2),1:"") SAM PLEASE FIX
  . ; Units, concentration, etc, come from another call
  . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit
@@ -127,7 +127,7 @@
  . S @MAP@("M","DIRECTIONS",1,"MEDDOSEVALUE")=""
  . S @MAP@("M","DIRECTIONS",1,"MEDDOSEUNIT")=""
- . S @MAP@("M","DIRECTIONS",1,"MEDRATEVALUE")=""  
- . S @MAP@("M","DIRECTIONS",1,"MEDRATEUNIT")=""  
- . S @MAP@("M","DIRECTIONS",1,"MEDVEHICLETEXT")=""  
+ . S @MAP@("M","DIRECTIONS",1,"MEDRATEVALUE")=""
+ . S @MAP@("M","DIRECTIONS",1,"MEDRATEUNIT")=""
+ . S @MAP@("M","DIRECTIONS",1,"MEDVEHICLETEXT")=""
  . S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONROUTETEXT")=""
  . S @MAP@("M","DIRECTIONS",1,"MEDFREQUENCYVALUE")=""
@@ -144,5 +144,5 @@
  . S @MAP@("M","DIRECTIONS",1,"MEDPROBLEMCODINGVERSION")=""
  . S @MAP@("M","DIRECTIONS",1,"MEDPROBLEMSOURCEACTORID")=""
- . S @MAP@("M","DIRECTIONS",1,"MEDSTOPINDICATOR")="" 
+ . S @MAP@("M","DIRECTIONS",1,"MEDSTOPINDICATOR")=""
  . S @MAP@("M","DIRECTIONS",1,"MEDDIRSEQ")=""
  . S @MAP@("M","DIRECTIONS",1,"MEDMULDIRMOD")=""