source: fmts/trunk/p/C0XUTIL.m@ 1684

C0XUTIL ; GPL - Fileman Triples utilities ;11/07/11  17:05
        ;;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.
        ;
        ;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("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#"
        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#"
        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
        ; 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
        ;