pears.DBCleanupOldRecentObjects

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."DBCleanupOldRecentObjects" IS 
{CREATE FUNCTION 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
}