pears.HideFromCombo

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."HideFromCombo" IS 
{CREATE FUNCTION HideFromCombo 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN combovis CHAR(25))
RETURNS INTEGER
BEGIN
  DECLARE staffcombovis CHAR(25);
  DECLARE i INTEGER;
  DECLARE c CHAR(1);
  SET combovis=TRIM(combovis);
  IF isnull(combovis,'') = '' THEN
    RETURN 0
  END IF;
  SELECT TRIM(combovisibility) INTO staffcombovis FROM staff WHERE staffid = userstaffid;
  IF isnull(staffcombovis,'') = '' THEN
    RETURN 0
  END IF;
  SET i=1;
  loop
    SET c=SUBSTRING(combovis,i,1);
    IF c = '' THEN
      RETURN 1
    END IF;
    IF staffcombovis LIKE '%'+c+'%' THEN
      RETURN 0
    END IF;
    SET i=i+1
  END loop
END
}