pears.DBCleanupOrphanPhone

CREATE FUNCTION "pears"."DBCleanupOrphanPhone"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "countordo" CHAR(1) ) 
RETURNS INTEGER
BEGIN
  DECLARE @RC INTEGER;
  SET @RC = 0;
  IF "countordo" = 'C' THEN
    SELECT "count"() INTO @RC FROM "phone"
      WHERE((("who" = 'P') AND NOT EXISTS(SELECT * FROM "person" WHERE "personid" = "phone"."whoid"))
      OR(("who" = 'C') AND NOT EXISTS(SELECT * FROM "company" WHERE "companyid" = "phone"."whoid"))
      OR(("who" = 'CP') AND NOT EXISTS(SELECT * FROM "employment" WHERE "employmentid" = "phone"."whoid")));
    RETURN @RC
  END IF;
  DELETE FROM "phone" WHERE("who" = 'P')
    AND NOT EXISTS(SELECT * FROM "person" WHERE "personid" = "phone"."whoid");
  SET @RC = @RC+(SELECT @@rowcount);
  DELETE FROM "phone" WHERE "who" = 'CP'
    AND NOT EXISTS(SELECT * FROM "employment" WHERE "employmentid" = "phone"."whoid");
  SET @RC = @RC+(SELECT @@rowcount);
  DELETE FROM "phone" WHERE("who" = 'C')
    AND NOT EXISTS(SELECT * FROM "company" WHERE "companyid" = "phone"."whoid");
  SET @RC = @RC+(SELECT @@rowcount);
  CALL "AuditLog"('CLEANUP',NULL,"string"(@RC,' Unattached Phone Records deleted '),NULL,NULL);
  RETURN @RC
END