pears.DBCleanupOldRecentObjects

CREATE FUNCTION "pears"."DBCleanupOldRecentObjects"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "age" INTEGER,IN "sid" CHAR(20),IN "countordo" CHAR(1) ) 
RETURNS INTEGER
BEGIN
  DECLARE @RC INTEGER;
  DECLARE @Staff CHAR(20);
  SELECT "count"() INTO @RC FROM "RecentObjects" WHERE "staffid" LIKE "sid"
    AND "LastViewed" <= CURRENT date-"age";
  IF "countordo" = 'C' THEN
    RETURN @RC
  END IF;
  DELETE FROM "RecentObjects" WHERE "staffid" LIKE "sid"
    AND "LastViewed" <= CURRENT date-"age";
  IF "sid" = '%' THEN
    SET @staff = 'All'
  ELSE SELECT "name" INTO @staff FROM "staff" WHERE "staffid" = "sid"
  END IF;
  CALL "AuditLog"('CLEANUP',"sid","string"(@RC,' Old Recent Objects deleted ',"age",' days old for ',@staff),NULL,NULL);
  RETURN @RC
END