Changeset 1611 for fmts/trunk/p/C0XOTLN.m

Timestamp:

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

Author:

George Lilly

Message:

moving on

File:

• fmts/trunk/p/C0XOTLN.m (modified) (1 diff)

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