====== pears.rejectstate ======
<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"."rejectstate" IS 
{create function rejectstate 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in sstatuscode char(1))
returns char(1)
begin
  declare rejcode char(1);
  select rejectstatus into rejcode from status
    where status=sstatuscode and "type"='R';
  if isnull(rejcode,'')='' then
    set rejcode='Y'
  end if
  ;
  return(rejcode)
end
}
</code>