Changeset 1611 for fmts

Timestamp:

Feb 26, 2013, 8:40:36 PM (11 years ago)

Author:

George Lilly

Message:

moving on

Location:

fmts/trunk/p

Files:

• C0XCDA.m (modified) (2 diffs)
• C0XOTLN.m (modified) (1 diff)

fmts/trunk/p/C0XCDA.m

@@ -31 +31 @@
  ;       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 +66 @@
  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

fmts/trunk/p/C0XOTLN.m

@@ -114 +114 @@
  ;
 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