fix
This commit is contained in:
parent
aeff2fb2f6
commit
ff107f1362
22
p/C0XXFRM.m
22
p/C0XXFRM.m
|
@ -21,14 +21,20 @@ C0XXFRM ; GPL - Fileman Triples utilities ;11/07/11 17:05
|
||||||
;
|
;
|
||||||
TEST1 ; test GRAPHY
|
TEST1 ; test GRAPHY
|
||||||
;
|
;
|
||||||
S G("positiveMatch",18262)=""
|
S G("possibleMatch",18262)=""
|
||||||
S G("positiveMatch",18262,"DOB")="19520606^19520606"
|
S G("possibleMatch",18262,"DOB")="19520606^19520606"
|
||||||
S G("positiveMatch",18262,"FNAME")="GEORGE^GEORGE PHILLIP"
|
S G("possibleMatch",18262,"FNAME")="GEORGE^GEORGE PHILLIP"
|
||||||
S G("positiveMatch",18262,"LNAME")="LILLY^LILLY"
|
S G("possibleMatch",18262,"LNAME")="LILLY^LILLY"
|
||||||
S G("positiveMatch",18262,"SSN")=310449999
|
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 GRAPH="/test/gpl/graph"
|
||||||
S SUBJECT="/test/gpl/match"
|
S SUBJECT="/test/gpl/match"
|
||||||
D GRAPHY("G2","G",GRAPH,SUBJECT) ; CONVERT TO GRAPH
|
D GRAPHY("G2","G",GRAPH,SUBJECT) ; CONVERT TO GRAPH
|
||||||
|
W !
|
||||||
ZWR G2
|
ZWR G2
|
||||||
;
|
;
|
||||||
Q
|
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
|
F S ZJ=$O(@ZIN@(ZP,ZJ)) Q:ZJ="" D ; for each object
|
||||||
. N ZO
|
. N ZO
|
||||||
. S ZO=$$ANONS^C0XF2N ; anonomous subject
|
. S ZO=$$ANONS^C0XF2N ; anonomous subject
|
||||||
. S @ZOUT@(ZSUB,ZP)=ZO
|
. S @ZOUT@(ZSUB,ZP,ZO)=""
|
||||||
. S @ZOUT@(ZO,"rdf:id")=ZJ
|
. S @ZOUT@(ZO,"rdf:id",ZJ)=""
|
||||||
. N ZK S ZK=""
|
. N ZK S ZK=""
|
||||||
. F S ZK=$O(@ZIN@(ZP,ZJ,ZK)) Q:ZK="" D ;
|
. 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)
|
. . D GRAPHY(ZOUT,$NA(@ZIN@(ZP,ZJ,ZK)),ZGRF,ZO)
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
|
|
Loading…
Reference in New Issue