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

misc updates

This commit is contained in:
george 2013-10-01 00:26:21 +00:00
parent 141188cca3
commit ca18ea621d
8 changed files with 718 additions and 701 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
p/C0XF2N.m
View File

@ -1,5 +1,5 @@
C0XF2N ; GPL - Fileman Triples entry point routine ;10/13/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
@ -242,6 +242,12 @@ PROCESS(ZRTN,ZRDF,ZGRF,ZMETA,FARY) ; PROCESS AN INCOMING RDF FILE
I @ZRDF@(1)'["<?xml" D Q ;
. K @ZRDF ; don't need the input buffer
. W !,"Not an XML file"
N ZZI S ZZI=""
F S ZZI=$O(@ZRDF@(ZZI)) Q:ZZI="" D ;
. N ZZX S ZZX=@ZRDF@(ZZI)
. I ZZX["Name >" S ZZX=$P(ZZX,"Name >",1)_"Name>"_$P(ZZX,"Name >",2)
. I ZZX["Device >" S ZZX=$P(ZZX,"Device >",1)_"Device>"_$P(ZZX,"Device >",2)
. S @ZRDF@(ZZI)=ZZX
S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W") ;
;B
K @ZRDF ; DON'T NEED INPUT BUFFER ANYMORE

11
p/C0XGET1.m
View File

@ -1,5 +1,5 @@
C0XGET1 ; GPL - Fileman Triples entry point routine ;1/12/12 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
@ -402,6 +402,15 @@ do3(dortn,zt,zi) ; have none, looking for three
. . . s dortn(zr)=""
q
;
ISSUB(STR) ; returns true if STR is a subject of some triples
N ZZIEN
S ZZIEN=$$IENOF(STR) ; string pointer value
N ZTN S ZTN=C0XFARY("C0XTN") ; location of triples
;N ZTN S ZTN=$NA(^C0X(101)) ; location of triples -- change this to use FARY --- gpl
I $O(@ZTN@("SPO",ZZIEN,""))'="" Q 1
E Q ""
Q
;
IENOF(ZSTRING,FARY) ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
I '$D(FARY) D ;
. D INITFARY^C0XF2N("C0XFARY")

2
p/C0XINIT.m
View File

@ -1,5 +1,5 @@
C0XINIT ; GPL - Fileman Triples initialization routine ;10/13/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;

2
p/C0XMAIN.m
View File

@ -1,5 +1,5 @@
C0XMAIN ; GPL - Fileman Triples entry point routine ;10/13/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;

2
p/C0XRDF.m
View File

@ -1,5 +1,5 @@
C0XRDF ; GPL - Fileman Triples RDF out ;11/07/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;

2
p/C0XTEST.m
View File

@ -1,5 +1,5 @@
C0XTEST ; GPL - Fileman Triples bulk load tester ;11/6/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;

2
p/C0XTKSB.m
View File

@ -1,5 +1,5 @@
C0XTESTKSB ; GPL - Fileman Triples bulk load tester ;11/6/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
; KSB - modified to fix a minor bug and to use;;;;;Build 10
; high resolution time if routines available ; 11/19/11 1410 EST
;;0.1;C0X;nopatch;noreleasedate;Build 1

10
p/C0XUTIL.m
View File

@ -1,5 +1,5 @@
C0XUTIL ; GPL - Fileman Triples utilities ;11/07/11 17:05
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 10
;;1.0;FILEMAN TRIPLE STORE;;Sep 26, 2012;Build 11
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
@ -41,6 +41,7 @@ NSP(ZX) ; OUTPUT TRANSFORM EXTRINSIC
Q ZR
;
VOCINIT ; INITIALIZE VOCABULARIES
S C0XVOC("xmlns")="http://www.w3.org/2001/XMLSchema-instance"
S C0XVOC("dcterms")="http://purl.org/dc/terms/"
S C0XVOC("rdf")="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
S C0XVOC("sp")="http://smartplatforms.org/terms#"
@ -65,9 +66,10 @@ VOCINIT ; INITIALIZE VOCABULARIES
S C0XVOC("oro")="http://oro.com/vista/sage" ;change to get URL from system
S C0XVOC("sage")="http://oro.com/sage/schema#"
S C0XVOC("v")="http://www.w3.org/2006/vcard/ns#"
S C0XVOC("cadrug")="http://drugbank.ca"
S C0XVOC("xmlns")="http://www.w3.org/"
S C0XVOC("xs")="http://www.w3.org/xs#"
S C0XVOC("sdtc")="urn:hl7-org:v3/sdtc"
S C0XVOC("voc")="urn:hl7-org:v3/voc"
S C0XVOC("xsi")="http://www.w3.org/2001/XMLSchema-instance"
S C0XVOC("qrda")="urn:hl7-org:v3/qrda#"
Q
;
EXT(C0XIN) ; EXTRINSIC WHICH EXPANDS NAMESPACES