pears.MergeQuestionnaire

CREATE PROCEDURE "pears"."MergeQuestionnaire"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "slikelocation" CHAR(3),IN "ssourceid" CHAR(20),IN "stargetid" CHAR(20) ) 
BEGIN
  UPDATE "tagvalue" AS "tv" KEY JOIN "tag"
    SET "tv"."id" = "stargetid"
    WHERE "tag"."tagtype" IN( 'L','S','G' ) 
    AND "tv"."taglocation" LIKE "slikelocation" AND "tv"."id" = "ssourceid"
    AND NOT EXISTS(SELECT "id" FROM "tagvalue"
      WHERE "taglocation" = "tv"."taglocation" AND "tagid" = "tv"."tagid" AND "tagchoiceid" = "tv"."tagchoiceid"
      AND "id" = "stargetid");
  UPDATE "tagvalue" AS "tv" KEY JOIN "tag"
    SET "tv"."id" = "stargetid"
    WHERE "tag"."tagtype" NOT IN( 'L','S','G' ) 
    AND "tv"."taglocation" LIKE "slikelocation" AND "tv"."id" = "ssourceid"
    AND NOT EXISTS(SELECT "id" FROM "tagvalue"
      WHERE "taglocation" = "tv"."taglocation" AND "tagid" = "tv"."tagid"
      AND "id" = "stargetid");
  DELETE FROM "tagvalue" WHERE "taglocation" LIKE "slikelocation" AND "id" = "ssourceid"
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."MergeQuestionnaire" IS 
{CREATE PROCEDURE MergeQuestionnaire 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN slikelocation CHAR(3),IN ssourceid CHAR(20),IN stargetid CHAR(20))
BEGIN
  UPDATE tagvalue AS tv KEY JOIN tag SET
    tv.id=stargetid
    WHERE tag.tagtype IN('L','S','G')
    AND tv.taglocation LIKE slikelocation AND tv.id=ssourceid
    AND NOT EXISTS(SELECT id FROM tagvalue
      WHERE taglocation=tv.taglocation AND tagid=tv.tagid AND tagchoiceid=tv.tagchoiceid
      AND id=stargetid);
  UPDATE tagvalue AS tv KEY JOIN tag SET
    tv.id=stargetid
    WHERE tag.tagtype NOT IN('L','S','G')
    AND tv.taglocation LIKE slikelocation AND tv.id=ssourceid
    AND NOT EXISTS(SELECT id FROM tagvalue
      WHERE taglocation=tv.taglocation AND tagid=tv.tagid
      AND id=stargetid);
  DELETE FROM tagvalue WHERE taglocation LIKE slikelocation AND id=ssourceid
END
}