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

updates for demographics project

This commit is contained in:
george 2012-03-31 20:39:11 +00:00
parent 461f4697e6
commit 24f9415112
4 changed files with 489 additions and 493 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
p/C0XF2N.m
View File

@ -37,7 +37,7 @@ INITFARY(ZFARY) ; INITIALIZE FILE NUMBERS AND OTHER USEFUL THINGS
S @ZFARY@("C0XSFN")=172.201 ; TRIPLES STRINGS FILE NUMBER
S @ZFARY@("C0XTN")=$NA(^C0X(101)) ; TRIPLES GLOBAL NAME
S @ZFARY@("C0XSN")=$NA(^C0X(201)) ; STRING FILE GLOBAL NAME
S @ZFARY@("C0XDIR")="/home/glilly/sage/test/"
S @ZFARY@("C0XDIR")="/home/glilly/fmts/trunk/samples/smart-new/"
S @ZFARY@("BLKLOAD")=1 ; this file supports block load
S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
S @ZFARY@("REPLYFMT")="JSON"
@ -287,9 +287,11 @@ PROCESS(ZRTN,ZRDF,ZGRF,ZMETA,FARY) ; PROCESS AN INCOMING RDF FILE
S C0XTYPE("owl:Ontology")=1
S C0XTYPE("owl:Class")=1
S C0XTYPE("rdfs:subClassOf")=1
S C0XTYPE("rdf:RDF")=1
S ZI=$O(@ZDOM@(1,"C",""))
I '$G(C0XTYPE(@ZDOM@(1,"C",ZI))) D Q ; not an rdf file
. W !,"Error. Not an RDF file. Cannot process."
I '$G(C0XTYPE(@ZDOM@(1,"C",ZI))) D ;Q ; not an rdf file
. W !,"Unusual RDF file ",@ZDOM@(1,"C",ZI)
. ;W !,"Error. Not an RDF file. Cannot process."
. D SHOW(1)
;
; -- now process the rdf description children

1
p/C0XUTIL.m
View File

@ -63,6 +63,7 @@ VOCINIT ; INITIALIZE VOCABULARIES
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

7
samples/smart-new/Bob-Odenkirk.rdf
View File

@ -6,7 +6,6 @@
xmlns:v="http://www.w3.org/2006/vcard/ns#"
xmlns:foaf="http://xmlns.com/foaf/0.1/">
<sp:Demographics>
<v:n>
<v:Name>
<v:given-name>Bob</v:given-name>
@ -14,12 +13,10 @@
<v:family-name>Odenkirk</v:family-name>
</v:Name>
</v:n>
<v:adr>
<v:Address>
<rdf:type rdf:resource="http://www.w3.org/2006/vcard/ns#Home" />
<rdf:type rdf:resource="http://www.w3.org/2006/vcard/ns#Pref" />
<v:street-address>15 Main St</v:street-address>
<v:extended-address>Apt 2</v:extended-address>
<v:locality>Wonderland</v:locality>
@ -28,7 +25,6 @@
<v:country>USA</v:country>
</v:Address>
</v:adr>
<v:tel>
<v:Tel>
<rdf:type rdf:resource="http://www.w3.org/2006/vcard/ns#Home" />
@ -36,14 +32,12 @@
<rdf:value>800-555-1212</rdf:value>
</v:Tel>
</v:tel>
<v:tel>
<v:Tel>
<rdf:type rdf:resource="http://www.w3.org/2006/vcard/ns#Cell" />
<rdf:value>800-555-1515</rdf:value>
</v:Tel>
</v:tel>
<foaf:gender>male</foaf:gender>
<v:bday>1959-12-25</v:bday>
<v:email>bob.odenkirk@example.com</v:email>
@ -55,6 +49,5 @@
<sp:system>My Hospital Record</sp:system>
</sp:Code>
</sp:medicalRecordNumber>
</sp:Demographics>
</rdf:RDF>