Index: fmts/trunk/p/C0XF2N.m
===================================================================
--- fmts/trunk/p/C0XF2N.m	(revision 1356)
+++ fmts/trunk/p/C0XF2N.m	(revision 1359)
@@ -206,4 +206,16 @@
  Q
  ;
+VISTAOWL ;
+ S ZRDF=$NA(^TMP("C0X",542,"FILEIN"))
+ S ZNAME="/home/glilly/vistaowl/VistAOWL.owl"
+ S ZGRAPH="_:G431590209"
+ S FARY="C0XFARY"
+ D INITFARY(FARY)
+ S C0XDOCID=1
+ S BATCNT=0
+ S BATMAX=10000
+ D PROCESS(.G,ZRDF,ZGRAPH,ZNAME,FARY)
+ Q
+ ;
 PROCESS(ZRTN,ZRDF,ZGRF,ZMETA,FARY) ; PROCESS AN INCOMING RDF FILE
  ; ZRTN IS PASS BY REFERENCE AND RETURNS MESSAGES ABOUT THE PROCESSING
@@ -221,9 +233,10 @@
  ;S C0XDOCID=$$PARSE^C0CNHIN(ZRDF,"C0XARRAY") ; PARSE WITH MXML
  S C0XDLC2=$$NOW^XLFDT ; START OF PARSE
- S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W")
+ ;S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W") ; DON'T PARSE JUST NOW
  ;B
  K @ZRDF ; DON'T NEED INPUT BUFFER ANYMORE
  ; -- assign the MXLM dom global name to ZDOM
- S ZDOM=$NA(^TMP("MXMLDOM",$J,C0XDOCID))
+ ;S ZDOM=$NA(^TMP("MXMLDOM",$J,C0XDOCID))
+ S ZDOM=$NA(^TMP("MXMLDOM",16850,C0XDOCID)) ;VISTAOWL DOM
  S C0XNODE=$O(@ZDOM@(""),-1)
  W !,C0XNODE," XML NODES PARSED"
@@ -260,8 +273,9 @@
  S C0XTYPE("rdf:Description")=1
  S C0XTYPE("owl:ObjectProperty")=1
+ S C0XTYPE("owl:Ontology")=1
  S ZI=$O(@ZDOM@(1,"C",""))
  I '$G(C0XTYPE(@ZDOM@(1,"C",ZI))) D  Q  ; not an rdf file
  . W !,"Error. Not an RDF file. Cannot process."
- . zwr ^TMP("MXMLDOM",$J,*)
+ . ;zwr ^TMP("MXMLDOM",$J,*)
  ;
  ; -- now process the rdf description children
@@ -339,5 +353,6 @@
  ;
 SHOW(ZN) ;
- ZWR ^TMP("MXMLDOM",$J,1,ZN,*)
+ ;ZWR ^TMP("MXMLDOM",$J,1,ZN,*)
+ ZWR ^TMP("MXMLDOM",16850,1,ZN,*)
  Q
  ;
@@ -384,5 +399,5 @@
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.02)=$O(ZIENS("IEN","ZG",""))
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.03)=$O(ZIENS("IEN","ZS",""))
- . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.04)=$O(ZIENS("IEN","ZP",""))
+ . S C0XFDA(C0XTFN,"?+"_ATCNT_",",.04)=$O(ZIENS("IEN","ZP",""))
  . S C0XFDA(C0XTFN,"?+"_BATCNT_",",.05)=$O(ZIENS("IEN","ZO",""))
  I BATCNT=BATMAX D  ; BATCH IS DONE
@@ -441,4 +456,5 @@
  F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; LOOK FOR MISSING STRINGS
  . S ZV=$O(ZINARY(ZI,""))
+ . I ZV["^" S ZV=$TR(ZV,"^","|")
  . I $O(@C0XSN@("B",ZV,""))="" D  ;
  . . S ZCNT=ZCNT+1
@@ -449,4 +465,5 @@
  F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; NOT GET ALL IENS
  . S ZV=$O(ZINARY(ZI,""))
+ . I ZV["^" S ZV=$TR(ZV,"^","|")
  . S ZIEN=$O(@C0XSN@("B",ZV,"")) ; THEY SHOULD BE THERE NOW
  . I ZIEN="" D  ;
Index: fmts/trunk/p/C0XUTIL.m
===================================================================
--- fmts/trunk/p/C0XUTIL.m	(revision 1356)
+++ fmts/trunk/p/C0XUTIL.m	(revision 1359)
@@ -55,4 +55,7 @@
  S C0XVOC("gpl")="http://georgetriples.org/"
  S C0XVOC("cg")="http://datasets.caregraf.org/"
+ S C0XVOC("mv")="http://metavista.name/foundation#"
+ S C0XVOC("rdfs")="http://www.w3.org/2000/01/rdf-schema#"
+ S C0XVOC("os")="http://osehra.org/ns#"
  Q
  ;