C0XUTIL ; GPL - Fileman Triples utilities ;11/07/11  17:05
 ;;0.1;C0X;nopatch;noreleasedate;Build 7
 ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
 ;General Public License See attached copy of the License.
 ;
 ;This program is free software; you can redistribute it and/or modify
 ;it under the terms of the GNU General Public License as published by
 ;the Free Software Foundation; either version 2 of the License, or
 ;(at your option) any later version.
 ;
 ;This program is distributed in the hope that it will be useful,
 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;GNU General Public License for more details.
 ;
 ;You should have received a copy of the GNU General Public License along
 ;with this program; if not, write to the Free Software Foundation, Inc.,
 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 ;
 Q
 ;
NSP(ZX) ; OUTPUT TRANSFORM EXTRINSIC
 ;
 N ZR
 ; I WOULD REALLY LIKE TO NOT HAVE THE FILE NUMBER HARD CODED HERE
 ; ANYONE KNOW HOW I COULD DO THAT?  :) GPL
 S ZR=$$GET1^DIQ(172.201,ZX_",",.01)
 I '$D(C0XNSP) S C0XNSP=1 ; DEFAULT ON
 I C0XNSP=0 Q ZR ; SWITCHED OFF
 I '$D(C0XVOC) D VOCINIT ; INITIALIZE THE VOCABULARIES
 N ZI,ZJ,ZK S ZI=""
 N DONE S DONE=0
 F  S ZI=$O(C0XVOC(ZI)) Q:(DONE=1)!(ZI="")  D  ;
 . ;W !,ZI
 . S ZJ=C0XVOC(ZI)
 . S ZK=$P(ZR,ZJ,2)
 . ;W !,"ZK=",ZK
 . I ZK'="" D  ; BINGO
 . . S ZR=ZI_":"_ZK
 . . S DONE=1
 Q ZR
 ;
VOCINIT ; INITIALIZE VOCABULARIES
 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#"
 S C0XVOC("qds")="http://cms.gov/pqri/qds/"
 S C0XVOC("smart")="http://sandbox-api.smartplatforms.org/records/"
 S C0XVOC("snomed")="http://purl.bioontology.org/ontology/SNOMEDCT/"
 S C0XVOC("icd9")="http://purl.bioontology.org/ontology/ICD9/"
 S C0XVOC("rxnorm")="http://purl.bioontology.org/ontology/RXNORM/"
 S C0XVOC("loinc")="http://purl.bioontology.org/ontology/LNC/"
 S C0XVOC("file")="/home/glilly/fmts/trunk/samples/"
 S C0XVOC("foaf")="http://xmlns.com/foaf/0.1/"
 S C0XVOC("skos")="http://www.w3.org/2004/02/skos/core#"
 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("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"
 S C0XVOC("fmts")="http://glilly.net/fmts#"
 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#"
 Q
 ;
EXT(C0XIN) ; EXTRINSIC WHICH EXPANDS NAMESPACES
 ; SO skos:xxx would return http://www.w3.org/2004/02/skos/core#xxx
 N C0XPRE
 S C0XPRE=C0XIN
 I '$D(C0XVOC) D VOCINIT ; INITIALIZE NAME SPACE TABLE
 I C0XPRE[":" D  ; expand using vocabulary
 . N ZB,ZA
 . S ZB=$P(C0XPRE,":",1)
 . S ZA=$P(C0XPRE,":",2)
 . I $G(C0XVOC(ZB))'="" D  ;
 . . S C0XPRE=C0XVOC(ZB)_ZA ; expanded 
 Q C0XPRE
 ;