pears.pay_weeklyemployerNI

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."pay_weeklyemployerNI" IS 
{CREATE FUNCTION pay_weeklyemployerNI 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN pay REAL,IN paydate DATE,IN pid CHAR(20))
RETURNS REAL
BEGIN
  DECLARE tmethod SMALLINT;
  SELECT isnull(taxmethod,1) INTO tmethod FROM pay_employee WHERE personid=pid;
  IF tmethod=1 THEN
    IF pay<=83 THEN
      RETURN(0)
    ELSE
      RETURN(pay*.122)
    END IF
  ELSE
    RETURN(0)
  END IF
END
}