Changeset 1422 for fmts/trunk/p/C0XXFRM.m

Timestamp:

May 5, 2012, 4:17:58 PM (13 years ago)

Author:

George Lilly

Message:

fix

File:

• fmts/trunk/p/C0XXFRM.m (modified) (2 diffs)

fmts/trunk/p/C0XXFRM.m

@@ -22 +22 @@
 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
  ;
@@ -49 +55 @@
  . 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)
  ;