PACKAGE BODY: APPS.AE_BANK_DETAILS_PKG

Source

1 PACKAGE BODY ae_bank_details_pkg AS
2  -- $Header: peaebank.pkb 120.0 2011/12/14 12:28:12 abdash noship $
3  --
4  --
5  -- Validates the AE International bank account number.
6  --
7  -- The format is AE123456789012345678901
8  --
9 
10 
11 FUNCTION validate_account
12          (p_iban_account_number IN VARCHAR2,
13           p_account_number      IN VARCHAR2
14 	 )
15 
16 RETURN NUMBER
17 
18 IS
19 
20 BEGIN
21 
22  IF (p_iban_account_number is not null) THEN
23 
24     IF length(p_iban_account_number) <> 23 THEN
25              return 1;
26     END IF;
27  ELSIF (p_iban_account_number is null and p_account_number is null) then
28     return 2;
29  END IF;
30 
31 return 0;
32 
33 END validate_account;
34 
35 END ae_bank_details_pkg;