====== pears.SecAgencyStatusChangeAllowed ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>