[Home] [Help]
25: --
26: delete pay_action_interlocks
27: where locking_action_id in (
28: select assignment_action_id
29: from pay_assignment_actions
30: where payroll_action_id = p_payroll_action_id);
31: --
32: end remove_interlocks;
33: --
128: procedure assignment_action_code(
129: p_payroll_action_id in pay_payroll_actions.payroll_action_id%TYPE,
130: p_start_person_id in number,
131: p_end_person_id in number,
132: p_chunk_number in pay_assignment_actions.chunk_number%TYPE)
133: is
134: c_proc constant varchar2(61) := c_package || 'assignment_action_code';
135: l_locking_action_id number;
136: l_assignment_id number;
154: between p_start_person_id and p_end_person_id
155: and pds.business_group_id + 0 = p_business_group_id
156: and asg.period_of_service_id = pds.period_of_service_id
157: ) v,
158: pay_assignment_actions paa,
159: pay_payroll_actions ppa
160: where paa.assignment_id = v.assignment_id
161: and paa.action_status = 'C'
162: and ppa.payroll_action_id = paa.payroll_action_id
168: and not exists(
169: select /*+ ORDERED
170: USE_NL(PAAA PPAA)
171: INDEX(XPAI PAY_ACTION_INTERLOCKS_FK2)
172: INDEX(XPAA PAY_ASSIGNMENT_ACTIONS_PK)
173: INDEX(XPPA PAY_PAYROLL_ACTIONS_PK) */
174: null
175: from pay_action_interlocks xpai,
176: pay_assignment_actions xpaa,
172: INDEX(XPAA PAY_ASSIGNMENT_ACTIONS_PK)
173: INDEX(XPPA PAY_PAYROLL_ACTIONS_PK) */
174: null
175: from pay_action_interlocks xpai,
176: pay_assignment_actions xpaa,
177: pay_payroll_actions xppa
178: where xpai.locked_action_id = paa.assignment_action_id
179: and xpaa.assignment_action_id = xpai.locking_action_id
180: and xppa.payroll_action_id = xpaa.payroll_action_id
204: g_payroll_id) loop
205:
206: hr_utility.trace('assignment_id : ' || l_assact_rec.assignment_id);
207: --
208: select pay_assignment_actions_s.nextval
209: into l_locking_action_id
210: from dual;
211: --
212: hr_utility.trace('archive assignment_action_id : ' || l_locking_action_id);
234: -- |-------------------------------------------------------------------|
235: -- |-------------------------< archive_code >--------------------------|
236: -- |-------------------------------------------------------------------|
237: procedure archive_code(
238: p_assignment_action_id in pay_assignment_actions.assignment_action_id%TYPE,
239: p_effective_date in pay_payroll_actions.effective_date%TYPE)
240: is
241: c_proc constant varchar2(61) := c_package || 'archive_code';
242: l_errbuf varchar2(2000);
284: select 'Y'
285: from dual
286: where not exists(
287: select null
288: from pay_assignment_actions
289: where payroll_action_id = p_payroll_action_id
290: and action_status <> 'C');
291: begin
292: hr_utility.set_location('Entering: ' || c_proc, 10);