Changeset 243

Timestamp:

Oct 27, 2008, 8:50:18 PM (16 years ago)

Author:

George Lilly

Message:

taking out debuging code

Location:

ccr/trunk/p

Files:

• CCRMEDS3.m (modified) (1 diff)
• GPLCCR.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS3.m

@@ -85 +85 @@
  . 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:"") SAM PLEASE FIX
+ . ; S @MAP@("MEDSTRENGTHUNIT")=$S($L(DOSEDATA(902))>0:$P(DOSEDATA(902),U,2),1:"") SAM PLEASE CHECK
  . ; Units, concentration, etc, come from another call
  . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit

ccr/trunk/p/GPLCCR.m

@@ -109 +109 @@
     . ; W OXML,!
     . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
-    . W "RUNNING ",CALL,!
+    . I DEBUG W "RUNNING ",CALL,!
     . X CALL
     . ; NOW INSERT THE RESULTS IN THE CCR BUFFER