pears.rejectstate

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
}