iSharkFly-Open
/
VistA-fmts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

moving on

This commit is contained in:
george 2013-02-27 01:40:36 +00:00
parent 341aab14f7
commit 7e3234c101
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
p/C0XCDA.m
View File

@ -30,7 +30,7 @@ C0XCDA ; GPL - Fileman Triples CDA Processing ;2/20/13 17:05
; for child in node:
; 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
i '$d(C0XJOB) s C0XJOB=$J
@ -65,14 +65,22 @@ CLEAN(STR) ; extrinsic function; returns string - gpl borrowed from the CCR pack
F I=0:1:31 S TR=$G(TR)_$C(I)
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
s C0XJOB=14921
q

5
p/C0XOTLN.m
View File

@ -113,9 +113,8 @@ CLEAN(STR) ; extrinsic function; returns string - gpl borrowed from the CCR pack
QUIT ZR
;
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
s C0XJOB=14921