pears.MergePhones

CREATE PROCEDURE "pears"."MergePhones"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "sphonewho" CHAR(2),IN "ssourceid" CHAR(20),IN "stargetid" CHAR(20) ) 
BEGIN
  UPDATE "phone" AS "pq" SET "whoid" = "stargetid" WHERE "who" = "sphonewho" AND "whoid" = "ssourceid"
    AND NOT EXISTS(SELECT * FROM "phone" WHERE "who" = "sphonewho" AND "whoid" = "stargetid"
      AND "phonetypeid" = "pq"."phonetypeid" AND "number" = "pq"."number");
  DELETE FROM "phone" WHERE "whoid" = "ssourceid" AND "who" = "sphonewho"
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."MergePhones" IS 
{CREATE PROCEDURE MergePhones 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN sphonewho CHAR(2),IN ssourceid CHAR(20),IN stargetid CHAR(20))
BEGIN
  UPDATE phone AS pq SET whoid=stargetid WHERE who=sphonewho AND whoid=ssourceid
    AND NOT EXISTS(SELECT* FROM phone WHERE who=sphonewho AND whoid=stargetid
      AND phonetypeid=pq.phonetypeid AND NUMBER=pq.number);
  DELETE FROM phone WHERE whoid=ssourceid AND who=sphonewho
END
}