Changeset 243 for ccr/trunk/p


Ignore:
Timestamp:
Oct 27, 2008, 8:50:18 PM (16 years ago)
Author:
George Lilly
Message:

taking out debuging code

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/CCRMEDS3.m

    r242 r243  
    8585 . I $L(MEDIEN) N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
    8686 . S @MAP@("MEDSTRENGTHVALUE")=$S($L(MEDIEN):DOSEDATA(901),1:"")
    87  . ; S @MAP@("MEDSTRENGTHUNIT")=$S($P(DOSEDATA(902),U,2),1:"") SAM PLEASE FIX
     87 . ; S @MAP@("MEDSTRENGTHUNIT")=$S($L(DOSEDATA(902))>0:$P(DOSEDATA(902),U,2),1:"") SAM PLEASE CHECK
    8888 . ; Units, concentration, etc, come from another call
    8989 . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit

  • ccr/trunk/p/GPLCCR.m

    r239 r243  
    109109    . ; W OXML,!
    110110    . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
    111     . W "RUNNING ",CALL,!
     111    . I DEBUG W "RUNNING ",CALL,!
    112112    . X CALL
    113113    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
Note: See TracChangeset for help on using the changeset viewer.