[Home] [Help]
PACKAGE BODY: APPS.PAY_PL_PERSONAL_PAY_METHOD
Source
1 package body PAY_PL_PERSONAL_PAY_METHOD as
2 /* $Header: pyplppmp.pkb 120.2.12010000.2 2009/12/18 10:44:16 bkeshary ship $ */
3
4 g_package VARCHAR2(30);
5
6 PROCEDURE CREATE_PL_PERSONAL_PAY_METHOD
7 (p_segment1 varchar2
8 ,p_segment2 varchar2
9 ,p_segment3 varchar2
10 ,p_segment12 varchar2
11 ) is
12 p_var number;
13 begin
14 /* Added for GSI Bug 5472781 */
15 IF NOT hr_utility.chk_product_install('Oracle Payroll', 'PL') THEN
16 hr_utility.trace('PL not installed.Leaving CREATE_PL_PERSONAL_PAY_METHOD');
17 return;
18 END IF;
19 p_var:=hr_pl_utility.validate_bank_id(p_segment2);
20
21 if p_var=0 then
22 fnd_message.set_name('PAY','HR_PL_INVALID_BANK_ID');
23 fnd_message.raise_error;
24 end if;
25
26 IF p_segment3 is NOT NULL THEN -- 9226630
27 p_var:=hr_pl_utility.validate_account_no(p_segment1,p_segment2,p_segment3);
28 if p_var=0 then
29 fnd_message.set_name('PAY','HR_PL_INVALID_ACC_NO');
30 fnd_message.raise_error;
31 end if;
32 end if;
33
34 /* 9226630 */
35 IF p_segment12 is NOT NULL THEN -- 9226630
36 p_var:=hr_pl_utility.validate_iban_acc(p_segment12);
37 hr_utility.set_location('p_var :'|| p_var,1);
38 --hr_utility.trace_off;
39 if p_var=1 then
40 hr_utility.set_location('p_var :'|| p_var,2);
41 fnd_message.set_name('PAY','HR_PL_INVALID_IBAN_NO');
42 fnd_message.raise_error;
43 end if;
44 end if;
45
46 /* end 9226630 */
47
48 end CREATE_PL_PERSONAL_PAY_METHOD;
49
50 PROCEDURE UPDATE_PL_PERSONAL_PAY_METHOD
51 (p_segment1 varchar2
52 ,p_segment2 varchar2
53 ,p_segment3 varchar2
54 ,p_segment12 varchar2
55 ,p_personal_payment_method_id number
56 ) is
57 p_var number;
58 l_seg1 varchar2(20);
59 l_seg2 varchar2(20);
60 l_seg3 varchar2(20);
61 l_seg12 varchar2(30); --9226630
62 l_var1 varchar2(20);
63 l_var2 varchar2(20);
64 l_var3 varchar2(20);
65 l_var12 varchar2(30); -- 9226630
66
67 cursor p_cur1 is select segment1,segment2,segment3,segment12 from pay_external_accounts where external_account_id =
68 (select external_Account_id from pay_personal_payment_methods_f where personal_payment_method_id = p_personal_payment_method_id );
69
70 begin
71
72 /* Added for GSI Bug 5472781 */
73 IF NOT hr_utility.chk_product_install('Oracle Payroll', 'PL') THEN
74 hr_utility.trace('PL not installed.Leaving UPDATE_PL_PERSONAL_PAY_METHOD');
75 return;
76 END IF;
77
78 l_var1:=p_segment1;
79 l_var2:=p_segment2;
80 l_var3:=p_segment3;
81 l_var12:=p_segment12; --9226630
82
83 if p_segment2 <> hr_api.g_varchar2 then
84 p_var:=hr_pl_utility.validate_bank_id(p_segment2);
85 end if;
86
87 if p_var=0 then
88 fnd_message.set_name('PAY','HR_PL_INVALID_BANK_ID');
89 fnd_message.raise_error;
90 end if;
91
92 open p_cur1;
93 fetch p_cur1 into l_seg1,l_seg2,l_seg3,l_seg12; --9226630
94
95
96 if p_segment1 = hr_api.g_varchar2 then
97 l_var1 := l_seg1;
98 end if;
99
100 if p_segment2 = hr_api.g_varchar2 then
101 l_var2 := l_seg2;
102 end if;
103
104 if p_segment3 = hr_api.g_varchar2 then
105 l_var3 := l_seg3;
106 end if;
107
108 /* added by 9226630 */
109 if p_segment12 = hr_api.g_varchar2 then
110 l_var12 := l_seg12;
111 hr_utility.set_location('l_var12 :'|| l_var12,2);
112 end if;
113 /* end */
114
115 if l_var3 is NOT NULL then --9226630
116 p_var:=hr_pl_utility.validate_account_no(l_var1,l_var2,l_var3);
117 if p_var=0 then
118 fnd_message.set_name('PAY','HR_PL_INVALID_ACC_NO');
119 fnd_message.raise_error;
120 end if;
121 end if;
122
123 /* 9226630 */
124 if l_var12 is NOT NULL then
125 p_var:=hr_pl_utility.validate_iban_acc(l_var12);
126
127 if p_var=1 then
128 fnd_message.set_name('PAY','HR_PL_INVALID_IBAN_NO');
129 fnd_message.raise_error;
130 end if;
131 end if;
132
133 /* end 9226630 */
134
135 close p_cur1;
136 end UPDATE_PL_PERSONAL_PAY_METHOD;
137 end PAY_PL_PERSONAL_PAY_METHOD;