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

experimenting with json out

This commit is contained in:
george 2012-02-01 05:50:16 +00:00
parent bd1f34aa6e
commit ea5fecedde
2 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/C0XF2N.m
View File

@ -40,6 +40,7 @@ INITFARY(ZFARY) ; INITIALIZE FILE NUMBERS AND OTHER USEFUL THINGS
S @ZFARY@("C0XDIR")="/home/glilly/snomed/"
S @ZFARY@("BLKLOAD")=1 ; this file supports block load
S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
S @ZFARY@("REPLYFMT")="JSON"
D USEFARY(ZFARY)
Q
;

33
p/C0XGET1.m
View File

@ -113,16 +113,41 @@ triples(triplertn,sub,pred,obj,graph,fary) ; returns triples
s zgraph=$$IENOF^C0XF2N($g(graph),fary) ; ien of graph
W !,"s:",zsub," p:",zpred," o:",zobj
d trip(.tmprtn,zsub,zpred,zobj,zgraph,fary)
n zzz,zrsub,zrpred,zrobj,zgraph,zcnt
s zcnt=1
n zzz,zrsub,zrpred,zrobj,zgraph,zcnt,zrary
s zzz=""
f s zzz=$o(tmprtn(zzz)) q:zzz="" d ;
. s zrsub=$$GET1^DIQ(C0XTFN,zzz_",",.03,"E")
. s zrpred=$$GET1^DIQ(C0XTFN,zzz_",",.04,"E")
. s zrobj=$$GET1^DIQ(C0XTFN,zzz_",",.05,"E")
. s zrgraph=$$GET1^DIQ(C0XTFN,zzz_",",.02,"E")
. s triplertn(zcnt)=zrsub_"^"_zrpred_"^"_zrobj ; _"^"_zrgraph
. s zcnt=zcnt+1
. s zrary(zrsub,zrpred_"^"_zrobj)=""
;b
;
i REPLYFMT="JSON" d jsonout(.triplertn,.zrary) q ; what follows is 'else'
;
; if no reply format is found we just output an array of triples
;
s zrsub=""
s zcnt=1
f s zrsub=$o(zrary(zrsub)) q:zrsub="" d ; organized by subject
. s zzz=""
. f s zzz=$o(zrary(zrsub,zzz)) q:zzz="" d ; pred and obj
. . s triplertn(zcnt)=zrsub_"^"_zzz
. . s zcnt=zcnt+1
q
;
jsonout(jout,zary) ;
d REPLYSTART^FMQLJSON("jout")
d LISTSTART^FMQLJSON("jout","results")
n zi s zi=""
f s zi=$o(zary(zi)) q:zi="" d ; for each subject
. n zii s zii=""
. D DICTSTART^FMQLJSON("jout",zi)
. f s zii=$o(zary(zi,zii)) q:zii="" d ; for each pred^obj pair
. . d DASSERT^FMQLJSON("jout",$p(zii,"^",1),$p(zii,"^",2))
. D DICTEND^FMQLJSON("jout")
d LISTEND^FMQLJSON("jout")
d REPLYEND^FMQLJSON("jout")
q
;
trip(triprtn,nsub,npred,nobj,ngraph,fary) ; returns triples iens