Changeset 233 for ccr/trunk/p/CCRMEDS3.m

Timestamp:

Oct 27, 2008, 12:45:46 AM (16 years ago)

Author:

George Lilly

Message:

temporary fix to EXTRACT+29^CCRMEDS3

File:

• ccr/trunk/p/CCRMEDS3.m (modified) (4 diffs)

ccr/trunk/p/CCRMEDS3.m

@@ -48 +48 @@
  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 +84 @@
  . 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 +127 @@
  . 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 +144 @@
  . 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")=""