pears.SecAgencyStatusChangeAllowed

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."SecAgencyStatusChangeAllowed" IS 
{CREATE FUNCTION SecAgencyStatusChangeAllowed 
(IN persid CHAR(20),IN oldstatus CHAR(1),IN newstatus CHAR(1))
RETURNS long VARCHAR
-- If disallowed status change is blocked
BEGIN
  DECLARE rv long VARCHAR;
  SET rv='';
  RETURN(rv)
END
}