Changeset 233 for ccr


Ignore:
Timestamp:
Oct 27, 2008, 12:45:46 AM (16 years ago)
Author:
George Lilly
Message:

temporary fix to EXTRACT+29CCRMEDS3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRMEDS3.m

    r227 r233  
    4848 I DEBUG ZWR MEDS
    4949 N FDAIEN S FDAIEN=0 ; For use in $Order in the MEDS array.
    50  S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP")) 
     50 S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
    5151 N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
    5252 F  S FDAIEN=$O(MEDS(FDAIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
     
    8484 . I $L(MEDIEN) N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
    8585 . S @MAP@("MEDSTRENGTHVALUE")=$S($L(MEDIEN):DOSEDATA(901),1:"")
    86  . S @MAP@("MEDSTRENGTHUNIT")=$S($P(DOSEDATA(902),U,2),1:"")
     86 . ; S @MAP@("MEDSTRENGTHUNIT")=$S($P(DOSEDATA(902),U,2),1:"") SAM PLEASE FIX
    8787 . ; Units, concentration, etc, come from another call
    8888 . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit
     
    127127 . S @MAP@("M","DIRECTIONS",1,"MEDDOSEVALUE")=""
    128128 . S @MAP@("M","DIRECTIONS",1,"MEDDOSEUNIT")=""
    129  . S @MAP@("M","DIRECTIONS",1,"MEDRATEVALUE")="" 
    130  . S @MAP@("M","DIRECTIONS",1,"MEDRATEUNIT")="" 
    131  . S @MAP@("M","DIRECTIONS",1,"MEDVEHICLETEXT")="" 
     129 . S @MAP@("M","DIRECTIONS",1,"MEDRATEVALUE")=""
     130 . S @MAP@("M","DIRECTIONS",1,"MEDRATEUNIT")=""
     131 . S @MAP@("M","DIRECTIONS",1,"MEDVEHICLETEXT")=""
    132132 . S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONROUTETEXT")=""
    133133 . S @MAP@("M","DIRECTIONS",1,"MEDFREQUENCYVALUE")=""
     
    144144 . S @MAP@("M","DIRECTIONS",1,"MEDPROBLEMCODINGVERSION")=""
    145145 . S @MAP@("M","DIRECTIONS",1,"MEDPROBLEMSOURCEACTORID")=""
    146  . S @MAP@("M","DIRECTIONS",1,"MEDSTOPINDICATOR")="" 
     146 . S @MAP@("M","DIRECTIONS",1,"MEDSTOPINDICATOR")=""
    147147 . S @MAP@("M","DIRECTIONS",1,"MEDDIRSEQ")=""
    148148 . S @MAP@("M","DIRECTIONS",1,"MEDMULDIRMOD")=""
Note: See TracChangeset for help on using the changeset viewer.