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

changes for smart

This commit is contained in:
george 2012-08-02 15:08:30 +00:00
parent e548217546
commit 019dbf8daf
3 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0XF2N.m
View File

@ -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 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 ; 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 ; I '$D(FARY) D ;
. D INITFARY("C0XFARY") . D INITFARY("C0XFARY")
. S FARY="C0XFARY" . S FARY="C0XFARY"

7
p/C0XRDF.m
View File

@ -44,8 +44,7 @@ DASSERT(ZARY,ZPRED,ZOBJ)
. S ZB=$P(ZPRED,":",2) . S ZB=$P(ZPRED,":",2)
. I $E(ZB,1,1)="/" D ; . I $E(ZB,1,1)="/" D ;
. . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations . . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations
. S ZC=$G(C0XVOC(ZA)) . S ZC=C0XVOC(ZA)
. I ZC="" S ZC=ZA
. I ZOBJ["nodeID:" D Q ; . I ZOBJ["nodeID:" D Q ;
. . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>") . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
. S ZOBJ=$$EXT^C0XUTIL(ZOBJ) . S ZOBJ=$$EXT^C0XUTIL(ZOBJ)
@ -54,10 +53,6 @@ DASSERT(ZARY,ZPRED,ZOBJ)
. I $E(ZOBJ,1,1)="/" D Q ; . I $E(ZOBJ,1,1)="/" D Q ;
. . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>") . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
. D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">") . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">")
I ZPRED'[":" D Q ;
. I ZPRED["." S ZPRED=$TR(ZPRED,".","-")
. I ZPRED["@" S ZPRED=$TR(ZPRED,"@","_")
. D ADD(ZARY,"<"_ZPRED_">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZPRED_">")
Q Q
; ;
DICTEND(ZARY) DICTEND(ZARY)

2
p/C0XUTIL.m
View File

@ -56,7 +56,7 @@ VOCINIT ; INITIALIZE VOCABULARIES
S C0XVOC("cg")="http://datasets.caregraf.org/" S C0XVOC("cg")="http://datasets.caregraf.org/"
S C0XVOC("mv")="http://metavista.name/foundation#" S C0XVOC("mv")="http://metavista.name/foundation#"
S C0XVOC("rdfs")="http://www.w3.org/2000/01/rdf-schema#" 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("vmu")="http://vista.org/mu/"
S C0XVOC("vq")="http://vista.org/quality/" S C0XVOC("vq")="http://vista.org/quality/"
S C0XVOC("nodeID")="iDPsDPss" S C0XVOC("nodeID")="iDPsDPss"