pears.ValidatePayroll

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."ValidatePayroll" IS 
{CREATE FUNCTION pears."ValidatePayroll"                              (IN recordid VARCHAR(20),  IN @BankName VARCHAR(30),  IN @BankAddr1 VARCHAR(30),  IN @BankAddr2 VARCHAR(30),  IN @BankSortCode VARCHAR(8),  IN @BankAcName VARCHAR(50),  IN @BankAcNo VARCHAR(15),  IN @BankRef VARCHAR(20), IN @PayMethod tinyint,  IN @PayFrequency tinyint,  IN @TaxMethod tinyint,  IN @CompanyName VARCHAR(50), IN @RegNo VARCHAR(20),  IN @VATRegistered tinyint,  IN @VATNumber VARCHAR(20),  IN @TaxCode VARCHAR(5), IN @NILetter VARCHAR(1),  IN @UniqueTaxReference VARCHAR(20), IN @Payrollnumber VARCHAR(15), IN @HMRCEngagementDetail CHAR(1) )                                                                                           
RETURNS long VARCHAR
BEGIN
  DECLARE "RV" long VARCHAR;
  DECLARE "pcount" INTEGER;
  IF "isnull"(@payrollnumber,'') <> '' THEN
    SELECT "count"() INTO "pcount" FROM "person" WHERE "personid" <> "recordid" AND "isnull"("payrollnumber",'') = @payrollnumber;
    IF "pcount" > 0 THEN
      RETURN('Payroll number already used')
    END IF END IF;
  RETURN("RV")
END
}