69:
70: --
71: -- Only Update ce bank tables if both ce and pay are installed
72: --
73: hr_utility.set_location('Entering : '||l_proc, 10);
74: if pay_ce_support_pkg.pay_and_ce_licensed then
75:
76: if p_bank_account_id is not null then
77:
78: open csr_chk_payroll_bank_acct;
79: fetch csr_chk_payroll_bank_acct into l_payroll_bank_account_id;
80: if (csr_chk_payroll_bank_acct% NOTFOUND) THEN
81:
82: hr_utility.set_location(l_proc||'Stamping has to be done', 20);
83: hr_utility.set_location(l_proc||'Stamping ....',30);
84: update ce_bank_acct_uses_all
85: set payroll_bank_account_id = p_external_account_id
86: where Bank_account_id = p_bank_account_id;
79: fetch csr_chk_payroll_bank_acct into l_payroll_bank_account_id;
80: if (csr_chk_payroll_bank_acct% NOTFOUND) THEN
81:
82: hr_utility.set_location(l_proc||'Stamping has to be done', 20);
83: hr_utility.set_location(l_proc||'Stamping ....',30);
84: update ce_bank_acct_uses_all
85: set payroll_bank_account_id = p_external_account_id
86: where Bank_account_id = p_bank_account_id;
87: close csr_chk_payroll_bank_acct;
85: set payroll_bank_account_id = p_external_account_id
86: where Bank_account_id = p_bank_account_id;
87: close csr_chk_payroll_bank_acct;
88:
89: hr_utility.set_location(l_proc||'Nullifying earlier stamping ....',40);
90: update ce_bank_acct_uses_all
91: set payroll_bank_account_id = null
92: where payroll_bank_account_id = p_external_account_id
93: AND Bank_account_id <> p_bank_account_id;
92: where payroll_bank_account_id = p_external_account_id
93: AND Bank_account_id <> p_bank_account_id;
94:
95: else
96: hr_utility.set_location(l_proc||'No need of stamping ....',50);
97: close csr_chk_payroll_bank_acct;
98: -- Raising error, if the requested updation is going to break the one-to-one relationship
99: if (nvl(l_payroll_bank_account_id, -1) <> p_external_account_id) THEN
100: hr_utility.set_location(l_proc||'Raising an error ....',60);
96: hr_utility.set_location(l_proc||'No need of stamping ....',50);
97: close csr_chk_payroll_bank_acct;
98: -- Raising error, if the requested updation is going to break the one-to-one relationship
99: if (nvl(l_payroll_bank_account_id, -1) <> p_external_account_id) THEN
100: hr_utility.set_location(l_proc||'Raising an error ....',60);
101: fnd_message.set_name('PAY', 'PAY_34070_PAY_CE_MAP_ERR');
102: fnd_message.raise_error;
103: end if;
104: END if;
123:
124: -- anything else, we want to know about.
125:
126: raise;
127: hr_utility.set_location('Leaving : '||l_proc, 10);
128: end;
129:
130: procedure remove_redundant_bank_detail
131: is