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

fix

This commit is contained in:
george 2012-05-05 20:17:58 +00:00
parent aeff2fb2f6
commit ff107f1362
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
p/C0XXFRM.m
View File

@ -21,14 +21,20 @@ C0XXFRM ; GPL - Fileman Triples utilities ;11/07/11 17:05
;
TEST1 ; test GRAPHY
;
S G("positiveMatch",18262)=""
S G("positiveMatch",18262,"DOB")="19520606^19520606"
S G("positiveMatch",18262,"FNAME")="GEORGE^GEORGE PHILLIP"
S G("positiveMatch",18262,"LNAME")="LILLY^LILLY"
S G("positiveMatch",18262,"SSN")=310449999
S G("possibleMatch",18262)=""
S G("possibleMatch",18262,"DOB")="19520606^19520606"
S G("possibleMatch",18262,"FNAME")="GEORGE^GEORGE PHILLIP"
S G("possibleMatch",18262,"LNAME")="LILLY^LILLY"
S G("possibleMatch",18262,"SSN")=310449999
S G("possibleMatch",18263)=""
S G("possibleMatch",18263,"DOB")="19520606^19531031"
S G("possibleMatch",18263,"FNAME")="GEORGE^FRANCIS JAMES"
S G("possibleMatch",18263,"LNAME")="LILLY^LILLY"
S G("possibleMatch",18263,"SSN")=3232221111
S GRAPH="/test/gpl/graph"
S SUBJECT="/test/gpl/match"
D GRAPHY("G2","G",GRAPH,SUBJECT) ; CONVERT TO GRAPH
W !
ZWR G2
;
Q
@ -48,11 +54,11 @@ GRAPHY(ZOUT,ZIN,ZGRF,ZSUB,ZWHICH) ; turn a mumps array into triples
F S ZJ=$O(@ZIN@(ZP,ZJ)) Q:ZJ="" D ; for each object
. N ZO
. S ZO=$$ANONS^C0XF2N ; anonomous subject
. S @ZOUT@(ZSUB,ZP)=ZO
. S @ZOUT@(ZO,"rdf:id")=ZJ
. S @ZOUT@(ZSUB,ZP,ZO)=""
. S @ZOUT@(ZO,"rdf:id",ZJ)=""
. N ZK S ZK=""
. F S ZK=$O(@ZIN@(ZP,ZJ,ZK)) Q:ZK="" D ;
. . S @ZOUT@(ZO,ZK)=$G(@ZIN@(ZP,ZJ,ZK))
. . S @ZOUT@(ZO,ZK,$G(@ZIN@(ZP,ZJ,ZK)))=""
. . D GRAPHY(ZOUT,$NA(@ZIN@(ZP,ZJ,ZK)),ZGRF,ZO)
;
Q