Index: fmts/trunk/p/C0XF2N.m
===================================================================
--- fmts/trunk/p/C0XF2N.m (revision 1370)
+++ fmts/trunk/p/C0XF2N.m (revision 1371)
@@ -369,5 +369,5 @@
;
ANONS() ; RETURNS AN ANONOMOUS SUBJECT
- Q "_:S"_$$LKY9
+ Q "iDPsDPss"_$$LKY9
;
NEWG(NGRAPH,NMETA) ; CREATES A NEW META GRAPH, MARKS IT AS UNFINISHED
Index: fmts/trunk/p/C0XGET1.m
===================================================================
--- fmts/trunk/p/C0XGET1.m (revision 1370)
+++ fmts/trunk/p/C0XGET1.m (revision 1371)
@@ -237,2 +237,24 @@
q
;
+output(zwhat,zfname,zdir) ; function to write an array to a host file
+ ; if zdir is ommitted, will output to the CCR directory
+ ; ^TMP("C0CCCR","ODIR")
+ ; if fname is ommitted, will output yyyy-mm-dd-hh-mm-ss-C0XOUT.out
+ ; zwhat is passed by name
+ ;
+ i '$d(zdir) s zdir=$G(^TMP("C0CCCR","ODIR"))
+ i '$d(zfname) d ;
+ . s zfname=$$FMTE^XLFDT($$NOW^XLFDT,7)
+ . s zfname=$tr(zfname,"/","-")
+ . s zfname=$tr(zfname,"@","-")
+ . s zfname=$tr(zfname,":","-")
+ . s zfname=zfname_".out"
+ i $e(zwhat,1,1)'="^" d ; not a global
+ . k ^TMP("C0XOUT",$J)
+ . m ^TMP("C0XOUT",$J)=@zwhat
+ . s zwhat=$na(^TMP("C0XOUT",$J,1))
+ n zout s zout=""
+ s zout=$$OUTPUT^C0CXPATH(zwhat,zfname,zdir)
+ K ^TMP("C0XOUT",$J)
+ Q zout
+ ;
Index: fmts/trunk/p/C0XRDF.m
===================================================================
--- fmts/trunk/p/C0XRDF.m (revision 1370)
+++ fmts/trunk/p/C0XRDF.m (revision 1371)
@@ -39,5 +39,5 @@
I ZPRED[":" D Q ;
. I ZPRED="rdf:type" D Q ;
- . . D ADD(ZARY,"")
+ . . D ADD(ZARY,"")
. N ZA,ZB,ZC
. S ZA=$P(ZPRED,":",1)
Index: fmts/trunk/samples/smart-new/brian-brooks-meds.rdf
===================================================================
--- fmts/trunk/samples/smart-new/brian-brooks-meds.rdf (revision 1371)
+++ fmts/trunk/samples/smart-new/brian-brooks-meds.rdf (revision 1371)
@@ -0,0 +1,431 @@
+
+
+
+
+
+
+
+
+
+
+
+