1 PACKAGE BODY hr_nz_per_pay_method_leg_hook AS
2 /* $Header: hrnzlhpp.pkb 115.3 2003/11/12 03:46:59 srrajago ship $ */
3 /*
4 ******************************************************************
5 * *
6 * Copyright (C) 1999 Oracle Corporation Australia Ltd., *
7 * Brisbane, Australia. *
8 * *
9 * All rights reserved. *
10 * *
11 * This material has been provided pursuant to an agreement *
12 * containing restrictions on its use. the material is also *
13 * protected by copyright law. no part of this material may *
14 * be copied or distributed, transmitted or transcribed, in *
15 * any form or by any means, electronic, mechanical, magnetic, *
16 * manual, or otherwise, or disclosed to third parties without *
17 * the express written permission of Oracle Corporation *
18 * Australia Ltd,. *
19 * *
20 ******************************************************************/
21
22 /*
23 Filename: hrnzlhas.pkb (BODY)
24 Author: Philip Macdonald
25 Description: Creates the user hook seed data for the HR_ASSIGNMENT_API package procedures.
26
27 File Information
28 ================
29
30 Note for Oracle HRMS Developers: The data defined in the
31 create API calls cannot be changed once this script has
32 been shipped to customers. Explicit update or delete API
33 calls will need to be added to the end of the script.
34
35
36 Change List
37 -----------
38
39 Version Date Author ER/CR No. Description of Change
40 -------+---------+-----------+---------+--------------------------
41 110.0 25-Jun-99 P.Macdonald Created
42 110.1 09-Jun-99 A. Di Vincenzo Added exit to end of script.
43 110.2 12-Nov-03 R.Sree Ranjani Bug No : 3241922 - Added an IF check before validation call.
44
45 ================================================================= */
46 --
47 -- Package Variables
48 --
49 g_package VARCHAR2(33) := 'hr_nz_per_pay_method_leg_hook.';
50
51 PROCEDURE validate_bank_acct (p_segment1 IN VARCHAR2
52 ,p_segment2 IN VARCHAR2
53 ,p_segment3 IN VARCHAR2) IS
54
55 l_proc VARCHAR2(72) := g_package||'validate_bank_acct';
56 l_validate VARCHAR2(5);
57
58 BEGIN
59 hr_utility.set_location('Entering:'|| l_proc, 10);
60
61 IF (((p_segment1 IS NULL) OR (p_segment1 = hr_api.g_varchar2)) OR
62 ((p_segment2 IS NULL) OR (p_segment2 = hr_api.g_varchar2)) OR
63 ((p_segment3 IS NULL) OR (p_segment3 = hr_api.g_varchar2))) THEN
64 hr_utility.trace('Invalid value passed for the segments. No validation');
65 ELSE
66 l_validate := hr_nz_bank_acct_validation.validate_acct(p_segment1, p_segment2, p_segment3);
67 IF (l_validate <> 'TRUE')
68 THEN
69 -- Bank/Acct Number is not valid
70 hr_utility.set_message(801, 'HR_NZ_INVALID_BANK_DETAILS');
71 hr_utility.raise_error;
72 END IF;
73 END IF;
74 hr_utility.set_location(' Leaving:'||l_proc, 20);
75 END validate_bank_acct;
76 END hr_nz_per_pay_method_leg_hook;