PACKAGE BODY: APPS.PAY_PL_PERSONAL_PAY_METHOD

Source

1 package body PAY_PL_PERSONAL_PAY_METHOD as
2 /* $Header: pyplppmp.pkb 120.2 2006/09/18 05:48:26 mseshadr noship $ */
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 ) is
11 p_var number;
12 begin
13   /* Added for GSI Bug 5472781 */
14 IF NOT hr_utility.chk_product_install('Oracle Payroll', 'PL') THEN
15    hr_utility.trace('PL not installed.Leaving CREATE_PL_PERSONAL_PAY_METHOD');
16    return;
17 END IF;
18 p_var:=hr_pl_utility.validate_bank_id(p_segment2);
19 
20 if p_var=0 then
21 fnd_message.set_name('PAY','HR_PL_INVALID_BANK_ID');
22 fnd_message.raise_error;
23 end if;
24 
25 p_var:=hr_pl_utility.validate_account_no(p_segment1,p_segment2,p_segment3);
26 if p_var=0 then
27 fnd_message.set_name('PAY','HR_PL_INVALID_ACC_NO');
28 fnd_message.raise_error;
29 end if;
30 
31 end CREATE_PL_PERSONAL_PAY_METHOD;
32 
33 PROCEDURE UPDATE_PL_PERSONAL_PAY_METHOD
34 (p_segment1 varchar2
35 ,p_segment2 varchar2
36 ,p_segment3 varchar2
37 ,p_personal_payment_method_id number
38 ) is
39 p_var number;
40 l_seg1 varchar2(20);
41 l_seg2 varchar2(20);
42 l_seg3 varchar2(20);
43 l_var1 varchar2(20);
44 l_var2 varchar2(20);
45 l_var3 varchar2(20);
46 cursor p_cur1 is select segment1,segment2,segment3  from pay_external_accounts where external_account_id =
47 (select external_Account_id from pay_personal_payment_methods_f where personal_payment_method_id = p_personal_payment_method_id );
48 
49 begin
50 
51   /* Added for GSI Bug 5472781 */
52 IF NOT hr_utility.chk_product_install('Oracle Payroll', 'PL') THEN
53    hr_utility.trace('PL not installed.Leaving UPDATE_PL_PERSONAL_PAY_METHOD');
54    return;
55 END IF;
56 
57    l_var1:=p_segment1;
58    l_var2:=p_segment2;
59    l_var3:=p_segment3;
60 
61    if p_segment2 <> hr_api.g_varchar2 then
62       p_var:=hr_pl_utility.validate_bank_id(p_segment2);
63    end if;
64 
65    if p_var=0 then
66      fnd_message.set_name('PAY','HR_PL_INVALID_BANK_ID');
67      fnd_message.raise_error;
68    end if;
69 
70 open p_cur1;
71 fetch p_cur1 into l_seg1,l_seg2,l_seg3;
72 
73 
74 if p_segment1 = hr_api.g_varchar2 then
75  l_var1 := l_seg1;
76 end if;
77 
78 if p_segment2 = hr_api.g_varchar2 then
79  l_var2 := l_seg2;
80 end if;
81 
82 if p_segment3 = hr_api.g_varchar2 then
83  l_var3 := l_seg3;
84 end if;
85 
86 
87 p_var:=hr_pl_utility.validate_account_no(l_var1,l_var2,l_var3);
88 if p_var=0 then
89 fnd_message.set_name('PAY','HR_PL_INVALID_ACC_NO');
90 fnd_message.raise_error;
91 end if;
92 
93 close p_cur1;
94 end UPDATE_PL_PERSONAL_PAY_METHOD;
95 end PAY_PL_PERSONAL_PAY_METHOD;