From 019dbf8dafbcee31b9a8ade056782d42ec5ff624 Mon Sep 17 00:00:00 2001 From: george Date: Thu, 2 Aug 2012 15:08:30 +0000 Subject: [PATCH] changes for smart --- p/C0XF2N.m | 2 -- p/C0XRDF.m | 7 +------ p/C0XUTIL.m | 2 +- 3 files changed, 2 insertions(+), 9 deletions(-) diff --git a/p/C0XF2N.m b/p/C0XF2N.m index 57bca68..539ffe5 100644 --- a/p/C0XF2N.m +++ b/p/C0XF2N.m @@ -395,8 +395,6 @@ STARTADD ; INITIALIZE C0XFDA AND BATCNT ; ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT ; THE FDA IS SET UP BUT THE FILES ARE NOT UPDATED. CALL UPDIE TO COMPLETE - I $G(NOFMTS)'="" D Q ; just add the triples to C0XARY - . S C0XARY(ZS,ZP,ZO)="" I '$D(FARY) D ; . D INITFARY("C0XFARY") . S FARY="C0XFARY" diff --git a/p/C0XRDF.m b/p/C0XRDF.m index 6c474b1..7e8062f 100644 --- a/p/C0XRDF.m +++ b/p/C0XRDF.m @@ -44,8 +44,7 @@ DASSERT(ZARY,ZPRED,ZOBJ) . S ZB=$P(ZPRED,":",2) . I $E(ZB,1,1)="/" D ; . . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations - . S ZC=$G(C0XVOC(ZA)) - . I ZC="" S ZC=ZA + . S ZC=C0XVOC(ZA) . I ZOBJ["nodeID:" D Q ; . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>") . S ZOBJ=$$EXT^C0XUTIL(ZOBJ) @@ -54,10 +53,6 @@ DASSERT(ZARY,ZPRED,ZOBJ) . I $E(ZOBJ,1,1)="/" D Q ; . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>") . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"") - I ZPRED'[":" D Q ; - . I ZPRED["." S ZPRED=$TR(ZPRED,".","-") - . I ZPRED["@" S ZPRED=$TR(ZPRED,"@","_") - . D ADD(ZARY,"<"_ZPRED_">"_$$EXT^C0XUTIL(ZOBJ)_"") Q ; DICTEND(ZARY) diff --git a/p/C0XUTIL.m b/p/C0XUTIL.m index 848ff36..8a0d4ff 100644 --- a/p/C0XUTIL.m +++ b/p/C0XUTIL.m @@ -56,7 +56,7 @@ VOCINIT ; INITIALIZE VOCABULARIES 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("vista")="http://osehra.org/" + S C0XVOC("vistaSmart")="https://smart2.vistaewd.net/vista/smart/records/" S C0XVOC("vmu")="http://vista.org/mu/" S C0XVOC("vq")="http://vista.org/quality/" S C0XVOC("nodeID")="iDPsDPss"