Index: /fmts/trunk/p/C0XCDA.m
===================================================================
--- /fmts/trunk/p/C0XCDA.m	(revision 1610)
+++ /fmts/trunk/p/C0XCDA.m	(revision 1610)
@@ -0,0 +1,99 @@
+C0XCDA ; GPL - Fileman Triples CDA Processing ;2/20/13  17:05
+ ;;0.1;C0X;nopatch;noreleasedate;Build 7
+ ;Copyright 2013 George Lilly.  Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ ;
+ Q
+ ;
+ ;
+ ; -- some python that does a tree
+ ;def tree(node, prefix='|--'):
+ ;   txt=('' if (node.text is None) or (len(node.text) == 0) else node.text);
+ ;   txt2 = txt.replace('\n','');
+ ;   print prefix+cdautil.clean(node.tag)+'  '+txt2;
+ ;   for att in node.attrib:
+ ;       print prefix+'  : '+cdautil.clean2(att)+'^'+node.attrib[att];
+ ;   for child in node:
+ ;       tree(child,'|  '+prefix );
+ ;
+tree(where,prefix) ; show a tree starting at a node in MXML. node is passed by name
+ ; 
+ i $g(prefix)="" s prefix="|--" ; starting prefix
+ i '$d(C0XJOB) s C0XJOB=$J
+ n node s node=$na(^TMP("MXMLDOM",C0XJOB,1,where))
+ n txt s txt=$$CLEAN($$ALLTXT(node))
+ w !,prefix_@node_" "_txt
+ n zi s zi=""
+ f  s zi=$o(@node@("A",zi)) q:zi=""  d  ;
+ . w !,prefix_"  : "_zi_"^"_$g(@node@("A",zi))
+ f  s zi=$o(@node@("C",zi)) q:zi=""  d  ;
+ . d tree(zi,"|  "_prefix)
+ q
+ ;
+show(what) ;
+ ;S C0XJOB=26295
+ I '$D(C0XJOB) S C0XJOB=$J
+ d tree(what)
+ q
+ ; 
+ALLTXT(where) ; extrinsic which returns all text lines from the node .. concatinated 
+ ; together
+ n zti s zti=""
+ n ztr s ztr=""
+ f  s zti=$o(@where@("T",zti)) q:zti=""  d  ;
+ . s ztr=ztr_$g(@where@("T",zti))
+ q ztr
+ ;
+CLEAN(STR)	; extrinsic function; returns string - gpl borrowed from the CCR package
+ ;; Removes all non printable characters from a string.
+ ;; STR by Value
+ N TR,I
+ 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
+ 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
+ ;
+VACCD ; set C0XJOB to the VA CCD
+ s C0XJOB=14921
+ q
+ ;
+NLMVS ; set C0XJOB to the NLM Values Set xml
+ s C0XJOB=26295
+ Q
+ ;
+agenda(zrtn,docId) ; produce an agenda for the docId in the MXML dom
+ ; generally, a first level index to the document
+ ; set C0XJOB if you want to use a different $J to locate the dom
+ ; zrtn passed by name
+ ;
+ ;s C0XJOB=26295
+ n zi s zi=""
+ i '$d(docId) s docId=1
+ i '$D(C0XJOB) s C0XJOB=$J
+ n dom s dom=$na(^TMP("MXMLDOM",C0XJOB,docId))
+ f  s zi=$o(@dom@(1,"C",zi)) q:zi=""  d  ;
+ . n zn s zn=@dom@(1,"C",zi)
+ . s zn=zn_" "_$g(@dom@(zi,"A","displayName"))
+ . s @zrtn@(zn,zi)=""
+ q
+ ;
Index: /fmts/trunk/p/C0XOTLN.m
===================================================================
--- /fmts/trunk/p/C0XOTLN.m	(revision 1610)
+++ /fmts/trunk/p/C0XOTLN.m	(revision 1610)
@@ -0,0 +1,143 @@
+C0XOTLN ; GPL - Fileman Triples Outline Processing ;2/20/13  17:05
+ ;;0.1;C0X;nopatch;noreleasedate;Build 7
+ ;Copyright 2013 George Lilly.  Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ ;
+ Q
+ ;
+roots(rtn) ; return the root subjects - defined by subjects with no parents 
+ ; but with children
+ n sn,on,zi
+ s sn=$na(^C0X(101,"SOP")) ; subject index
+ S on=$na(^C0X(101,"OSP")) ; object index
+ s zi=""
+ f  s zi=$o(@sn@(zi)) q:zi=""  d  ; for each subject
+ . i $d(@on@(zi)) q  ; it is a child 
+ . n zj s zj=""
+ . n hasChild s hasChild=0
+ . f  s zj=$o(@sn@(zi,zj)) q:zj=""  d  ; for each object in this subject
+ . . i $d(@sn@(zj)) s hasChild=1
+ . s:hasChild rtn($$STR^C0XGET1(zi))=""
+ q
+ ;
+showorg ;
+ d roots(.g)
+ ;s DEBUG=1
+ d showlist(.g2,"g","*")
+ q
+ ;
+showlist(zrtn,lst,prefix) ;
+ n zi,zj,zk
+ w:$g(DEBUG) !,"entering showlist "_prefix_" ",$o(@lst@(""))
+ s zi=""
+ f  s zi=$o(@lst@(zi)) q:zi=""  d  ;
+ . n zs s zs=$$NSP2^C0XUTIL(zi)
+ . ;w !,prefix_" ",zs
+ . n tr
+ . d triples^C0XGET1(.tr,zs,,,,"array")
+ . i '$d(tr) q  ;
+ . s zj=""
+ . f  s zj=$o(tr(zj)) q:zj=""  d  ;
+ . . w !,prefix_"* "_$$NSP2^C0XUTIL($p(tr(zj),"^",2))_" "
+ . . n isub s isub=$$isSubject($p(tr(zj),"^",3))
+ . . i isub d  ;
+ . . . n tr2 s tr2($p(tr(zj),"^",3))=""
+ . . . d showlist(.zrtn,"tr2",prefix_"*")
+ . . i 'isub w $p(tr(zj),"^",3)
+ q
+ ;
+isSubject(zy) ; extrinsic which returns true if zy is a pointer to a subject
+ n zr s zr=0
+ i $d(^C0X(101,"SPO",$$IENOF^C0XF2N(zy))) s zr=1
+ q zr
+ ;
+ ; -- some python that does a tree
+ ;def tree(node, prefix='|--'):
+ ;   txt=('' if (node.text is None) or (len(node.text) == 0) else node.text);
+ ;   txt2 = txt.replace('\n','');
+ ;   print prefix+cdautil.clean(node.tag)+'  '+txt2;
+ ;   for att in node.attrib:
+ ;       print prefix+'  : '+cdautil.clean2(att)+'^'+node.attrib[att];
+ ;   for child in node:
+ ;       tree(child,'|  '+prefix );
+tree(where,prefix) ; show a tree starting at a node in MXML. node is passed by name
+ ; 
+ i $g(prefix)="" s prefix="|--" ; starting prefix
+ i '$d(C0XJOB) s C0XJOB=$J
+ n node s node=$na(^TMP("MXMLDOM",C0XJOB,1,where))
+ n txt s txt=$$CLEAN($$ALLTXT(node))
+ w !,prefix_@node_" "_txt
+ n zi s zi=""
+ f  s zi=$o(@node@("A",zi)) q:zi=""  d  ;
+ . w !,prefix_"  : "_zi_"^"_$g(@node@("A",zi))
+ f  s zi=$o(@node@("C",zi)) q:zi=""  d  ;
+ . d tree(zi,"|  "_prefix)
+ q
+ ;
+show(what) ;
+ ;S C0XJOB=26295
+ I '$D(C0XJOB) S C0XJOB=$J
+ d tree(what)
+ q
+ ; 
+ALLTXT(where) ; extrinsic which returns all text lines from the node .. concatinated 
+ ; together
+ n zti s zti=""
+ n ztr s ztr=""
+ f  s zti=$o(@where@("T",zti)) q:zti=""  d  ;
+ . s ztr=ztr_$g(@where@("T",zti))
+ q ztr
+ ;
+CLEAN(STR)	; extrinsic function; returns string - gpl borrowed from the CCR package
+ ;; Removes all non printable characters from a string.
+ ;; STR by Value
+ N TR,I
+ 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
+ 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
+ ;
+VACCD ; set C0XJOB to the VA CCD
+ s C0XJOB=14921
+ q
+ ;
+NLMVS ; set C0XJOB to the NLM Values Set xml
+ s C0XJOB=26295
+ Q
+ ;
+agenda(zrtn,docId) ; produce an agenda for the docId in the MXML dom
+ ; generally, a first level index to the document
+ ; set C0XJOB if you want to use a different $J to locate the dom
+ ; zrtn passed by name
+ ;
+ ;s C0XJOB=26295
+ n zi s zi=""
+ i '$d(docId) s docId=1
+ i '$D(C0XJOB) s C0XJOB=$J
+ n dom s dom=$na(^TMP("MXMLDOM",C0XJOB,docId))
+ f  s zi=$o(@dom@(1,"C",zi)) q:zi=""  d  ;
+ . n zn s zn=@dom@(1,"C",zi)
+ . s zn=zn_" "_$g(@dom@(zi,"A","displayName"))
+ . s @zrtn@(zn,zi)=""
+ q
+ ;