Changeset 785 for ccr/trunk/p/C0CXPATH.m

Timestamp:

May 25, 2010, 1:45:29 PM (14 years ago)

Author:

George Lilly

Message:

encoutners

File:

• ccr/trunk/p/C0CXPATH.m (modified) (1 diff)

ccr/trunk/p/C0CXPATH.m

@@ -324 +324 @@
  Q
  ;
-CLEAN(STR) ; extrinsic function; returns string
+CLEAN(STR,TR) ; extrinsic function; returns string
  ;; Removes all non printable characters from a string.
  ;; STR by Value
+ ;; TR IS OPTIONAL TO IMPROVE PERFORMANCE
  N TR,I
- F I=0:1:31 S TR=$G(TR)_$C(I)
- S TR=TR_$C(127)
+ I '$D(TR) D  ;
+ . F I=0:1:31 S TR=$G(TR)_$C(I)
+ . S TR=TR_$C(127)
  QUIT $TR(STR,TR)
  ;