Index: /fmts/trunk/p/C0XCDA.m
===================================================================
--- /fmts/trunk/p/C0XCDA.m	(revision 1610)
+++ /fmts/trunk/p/C0XCDA.m	(revision 1611)
@@ -31,5 +31,5 @@
  ;       tree(child,'|  '+prefix );
  ;
-tree(where,prefix) ; show a tree starting at a node in MXML. node is passed by name
+tree(where,prefix) ; show a tree starting at a node in MXML. where is passed by value
  ; 
  i $g(prefix)="" s prefix="|--" ; starting prefix
@@ -66,11 +66,19 @@
  S TR=TR_$C(127)
  N ZR S ZR=$TR(STR,TR)
- S ZR=$$LDBLNKS(ZR) ; get rid of leading blanks
+ S ZR=$$LTRIM(ZR) ; get rid of leading blanks
  QUIT ZR
  ;
-LDBLNKS(st) ; extrinsic which removes leading blanks from a string
+LDBLNKS(st) ; extrinsic which removes leading blanks from a string - deprecated see LTRIM
  n zr s zr=st
  f  q:$e(zr,1)'=" "  s zr=$e(zr,2,$l(zr))
  q zr
+ ;
+ ; copied from VPRJT - thanks.
+UP(X) ; return uppercase for X
+ Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+ ;
+LTRIM(X) ; remove spaces from left side
+ N POS F POS=1:1:$L(X) Q:$E(X,POS)'=" "
+ Q $E(X,POS,$L(X))
  ;
 VACCD ; set C0XJOB to the VA CCD
Index: /fmts/trunk/p/C0XOTLN.m
===================================================================
--- /fmts/trunk/p/C0XOTLN.m	(revision 1610)
+++ /fmts/trunk/p/C0XOTLN.m	(revision 1611)
@@ -114,7 +114,6 @@
  ;
 LDBLNKS(st) ; extrinsic which removes leading blanks from a string
- n zr s zr=st
- f  q:$e(zr,1)'=" "  s zr=$e(zr,2,$l(zr))
- q zr
+ n pos f pos=1:1:$l(st)  q:$e(st,pos)'=" "
+ q $e(st,pos,$l(st))
  ;
 VACCD ; set C0XJOB to the VA CCD