90: -- MANY_PROCS_IN_PERIOD switches on RANGE_PERSON_ID for Core Interlocking
91: -- processes
92:
93: if (
94: p_action_type = pay_proc_environment_pkg.PYG_AT_MAG or
95: p_action_type = pay_proc_environment_pkg.PYG_AT_CHQ or
96: p_action_type = pay_proc_environment_pkg.PYG_AT_CSH or
97: p_action_type = pay_proc_environment_pkg.PYG_AT_PST
98: ) then
91: -- processes
92:
93: if (
94: p_action_type = pay_proc_environment_pkg.PYG_AT_MAG or
95: p_action_type = pay_proc_environment_pkg.PYG_AT_CHQ or
96: p_action_type = pay_proc_environment_pkg.PYG_AT_CSH or
97: p_action_type = pay_proc_environment_pkg.PYG_AT_PST
98: ) then
99: --
92:
93: if (
94: p_action_type = pay_proc_environment_pkg.PYG_AT_MAG or
95: p_action_type = pay_proc_environment_pkg.PYG_AT_CHQ or
96: p_action_type = pay_proc_environment_pkg.PYG_AT_CSH or
97: p_action_type = pay_proc_environment_pkg.PYG_AT_PST
98: ) then
99: --
100: g_use_person_id := TRUE;
93: if (
94: p_action_type = pay_proc_environment_pkg.PYG_AT_MAG or
95: p_action_type = pay_proc_environment_pkg.PYG_AT_CHQ or
96: p_action_type = pay_proc_environment_pkg.PYG_AT_CSH or
97: p_action_type = pay_proc_environment_pkg.PYG_AT_PST
98: ) then
99: --
100: g_use_person_id := TRUE;
101: pay_proc_logging.PY_LOG('Override RANGE_PERSON_ID set to Y');
99: --
100: g_use_person_id := TRUE;
101: pay_proc_logging.PY_LOG('Override RANGE_PERSON_ID set to Y');
102: --
103: elsif (p_action_type = pay_proc_environment_pkg.PYG_AT_PAY or
104: p_action_type = pay_proc_environment_pkg.PYG_AT_COS or
105: p_action_type = pay_proc_environment_pkg.PYG_AT_TGL) then
106:
107: pay_core_utils.get_action_parameter(p_para_name => 'MANY_PROCS_IN_PERIOD',
100: g_use_person_id := TRUE;
101: pay_proc_logging.PY_LOG('Override RANGE_PERSON_ID set to Y');
102: --
103: elsif (p_action_type = pay_proc_environment_pkg.PYG_AT_PAY or
104: p_action_type = pay_proc_environment_pkg.PYG_AT_COS or
105: p_action_type = pay_proc_environment_pkg.PYG_AT_TGL) then
106:
107: pay_core_utils.get_action_parameter(p_para_name => 'MANY_PROCS_IN_PERIOD',
108: p_para_value => l_max_pinp,
101: pay_proc_logging.PY_LOG('Override RANGE_PERSON_ID set to Y');
102: --
103: elsif (p_action_type = pay_proc_environment_pkg.PYG_AT_PAY or
104: p_action_type = pay_proc_environment_pkg.PYG_AT_COS or
105: p_action_type = pay_proc_environment_pkg.PYG_AT_TGL) then
106:
107: pay_core_utils.get_action_parameter(p_para_name => 'MANY_PROCS_IN_PERIOD',
108: p_para_value => l_max_pinp,
109: p_found => l_found);
117: end if;
118: --
119: end if;
120: --
121: if (p_action_type = pay_proc_environment_pkg.PYG_AT_ARC) then
122: --
123: pay_core_utils.get_report_f_parameter(
124: p_payroll_action_id =>p_payroll_action_id,
125: p_para_name => 'RANGE_PERSON_ID',
191: begin
192: --
193: pay_proc_logging.PY_ENTRY('pay_population_ranges_pkg.get_range_statement');
194: --
195: action := pay_proc_environment_pkg.action_type;
196: --
197: if (pay_proc_environment_pkg.action_type =
198: pay_proc_environment_pkg.PYG_AT_RET or
199: pay_proc_environment_pkg.action_type =
193: pay_proc_logging.PY_ENTRY('pay_population_ranges_pkg.get_range_statement');
194: --
195: action := pay_proc_environment_pkg.action_type;
196: --
197: if (pay_proc_environment_pkg.action_type =
198: pay_proc_environment_pkg.PYG_AT_RET or
199: pay_proc_environment_pkg.action_type =
200: pay_proc_environment_pkg.PYG_AT_RTA) then
201:
194: --
195: action := pay_proc_environment_pkg.action_type;
196: --
197: if (pay_proc_environment_pkg.action_type =
198: pay_proc_environment_pkg.PYG_AT_RET or
199: pay_proc_environment_pkg.action_type =
200: pay_proc_environment_pkg.PYG_AT_RTA) then
201:
202: sqlid := SQL_RUNRGE;
195: action := pay_proc_environment_pkg.action_type;
196: --
197: if (pay_proc_environment_pkg.action_type =
198: pay_proc_environment_pkg.PYG_AT_RET or
199: pay_proc_environment_pkg.action_type =
200: pay_proc_environment_pkg.PYG_AT_RTA) then
201:
202: sqlid := SQL_RUNRGE;
203:
196: --
197: if (pay_proc_environment_pkg.action_type =
198: pay_proc_environment_pkg.PYG_AT_RET or
199: pay_proc_environment_pkg.action_type =
200: pay_proc_environment_pkg.PYG_AT_RTA) then
201:
202: sqlid := SQL_RUNRGE;
203:
204: elsif (pay_proc_environment_pkg.action_type =
200: pay_proc_environment_pkg.PYG_AT_RTA) then
201:
202: sqlid := SQL_RUNRGE;
203:
204: elsif (pay_proc_environment_pkg.action_type =
205: pay_proc_environment_pkg.PYG_AT_RTE) then
206:
207: if (pay_proc_environment_pkg.retro_definition_id is null) then
208: sqlid := SQL_RUNRGE;
201:
202: sqlid := SQL_RUNRGE;
203:
204: elsif (pay_proc_environment_pkg.action_type =
205: pay_proc_environment_pkg.PYG_AT_RTE) then
206:
207: if (pay_proc_environment_pkg.retro_definition_id is null) then
208: sqlid := SQL_RUNRGE;
209: else
203:
204: elsif (pay_proc_environment_pkg.action_type =
205: pay_proc_environment_pkg.PYG_AT_RTE) then
206:
207: if (pay_proc_environment_pkg.retro_definition_id is null) then
208: sqlid := SQL_RUNRGE;
209: else
210: sqlid := SQL_RETRGE;
211: end if;
209: else
210: sqlid := SQL_RETRGE;
211: end if;
212:
213: elsif (pay_proc_environment_pkg.action_type =
214: pay_proc_environment_pkg.PYG_AT_RUN) then
215:
216: sqlid := SQL_RUNRGE;
217:
210: sqlid := SQL_RETRGE;
211: end if;
212:
213: elsif (pay_proc_environment_pkg.action_type =
214: pay_proc_environment_pkg.PYG_AT_RUN) then
215:
216: sqlid := SQL_RUNRGE;
217:
218: elsif (pay_proc_environment_pkg.action_type =
214: pay_proc_environment_pkg.PYG_AT_RUN) then
215:
216: sqlid := SQL_RUNRGE;
217:
218: elsif (pay_proc_environment_pkg.action_type =
219: pay_proc_environment_pkg.PYG_AT_ADV) then
220:
221: sqlid := SQL_RUNRGE;
222:
215:
216: sqlid := SQL_RUNRGE;
217:
218: elsif (pay_proc_environment_pkg.action_type =
219: pay_proc_environment_pkg.PYG_AT_ADV) then
220:
221: sqlid := SQL_RUNRGE;
222:
223: elsif (pay_proc_environment_pkg.action_type =
219: pay_proc_environment_pkg.PYG_AT_ADV) then
220:
221: sqlid := SQL_RUNRGE;
222:
223: elsif (pay_proc_environment_pkg.action_type =
224: pay_proc_environment_pkg.PYG_AT_ADE) then
225:
226: sqlid := SQL_RUNRGE;
227:
220:
221: sqlid := SQL_RUNRGE;
222:
223: elsif (pay_proc_environment_pkg.action_type =
224: pay_proc_environment_pkg.PYG_AT_ADE) then
225:
226: sqlid := SQL_RUNRGE;
227:
228: elsif (pay_proc_environment_pkg.action_type =
224: pay_proc_environment_pkg.PYG_AT_ADE) then
225:
226: sqlid := SQL_RUNRGE;
227:
228: elsif (pay_proc_environment_pkg.action_type =
229: pay_proc_environment_pkg.PYG_AT_ARC) then
230:
231: sqlid := SQL_RUNRGE;
232:
225:
226: sqlid := SQL_RUNRGE;
227:
228: elsif (pay_proc_environment_pkg.action_type =
229: pay_proc_environment_pkg.PYG_AT_ARC) then
230:
231: sqlid := SQL_RUNRGE;
232:
233: elsif (pay_proc_environment_pkg.action_type =
229: pay_proc_environment_pkg.PYG_AT_ARC) then
230:
231: sqlid := SQL_RUNRGE;
232:
233: elsif (pay_proc_environment_pkg.action_type =
234: pay_proc_environment_pkg.PYG_AT_PUR) then
235:
236: sqlid := SQL_PURRGE;
237:
230:
231: sqlid := SQL_RUNRGE;
232:
233: elsif (pay_proc_environment_pkg.action_type =
234: pay_proc_environment_pkg.PYG_AT_PUR) then
235:
236: sqlid := SQL_PURRGE;
237:
238: elsif (pay_proc_environment_pkg.action_type =
234: pay_proc_environment_pkg.PYG_AT_PUR) then
235:
236: sqlid := SQL_PURRGE;
237:
238: elsif (pay_proc_environment_pkg.action_type =
239: pay_proc_environment_pkg.PYG_AT_BEE) then
240:
241: sqlid := SQL_RUNRGE;
242:
235:
236: sqlid := SQL_PURRGE;
237:
238: elsif (pay_proc_environment_pkg.action_type =
239: pay_proc_environment_pkg.PYG_AT_BEE) then
240:
241: sqlid := SQL_RUNRGE;
242:
243: elsif (pay_proc_environment_pkg.action_type =
239: pay_proc_environment_pkg.PYG_AT_BEE) then
240:
241: sqlid := SQL_RUNRGE;
242:
243: elsif (pay_proc_environment_pkg.action_type =
244: pay_proc_environment_pkg.PYG_AT_BAL) then
245:
246: sqlid := SQL_RUNRGE;
247:
240:
241: sqlid := SQL_RUNRGE;
242:
243: elsif (pay_proc_environment_pkg.action_type =
244: pay_proc_environment_pkg.PYG_AT_BAL) then
245:
246: sqlid := SQL_RUNRGE;
247:
248: elsif (pay_proc_environment_pkg.action_type =
244: pay_proc_environment_pkg.PYG_AT_BAL) then
245:
246: sqlid := SQL_RUNRGE;
247:
248: elsif (pay_proc_environment_pkg.action_type =
249: pay_proc_environment_pkg.PYG_AT_REV) then
250:
251: sqlid := SQL_RUNRGE;
252:
245:
246: sqlid := SQL_RUNRGE;
247:
248: elsif (pay_proc_environment_pkg.action_type =
249: pay_proc_environment_pkg.PYG_AT_REV) then
250:
251: sqlid := SQL_RUNRGE;
252:
253: elsif (pay_proc_environment_pkg.action_type =
249: pay_proc_environment_pkg.PYG_AT_REV) then
250:
251: sqlid := SQL_RUNRGE;
252:
253: elsif (pay_proc_environment_pkg.action_type =
254: pay_proc_environment_pkg.PYG_AT_RCS or
255: pay_proc_environment_pkg.action_type =
256: pay_proc_environment_pkg.PYG_AT_ECS) then
257:
250:
251: sqlid := SQL_RUNRGE;
252:
253: elsif (pay_proc_environment_pkg.action_type =
254: pay_proc_environment_pkg.PYG_AT_RCS or
255: pay_proc_environment_pkg.action_type =
256: pay_proc_environment_pkg.PYG_AT_ECS) then
257:
258: if (pay_proc_environment_pkg.payroll_id is null) then
251: sqlid := SQL_RUNRGE;
252:
253: elsif (pay_proc_environment_pkg.action_type =
254: pay_proc_environment_pkg.PYG_AT_RCS or
255: pay_proc_environment_pkg.action_type =
256: pay_proc_environment_pkg.PYG_AT_ECS) then
257:
258: if (pay_proc_environment_pkg.payroll_id is null) then
259: sqlid := SQL_NONRGE;
252:
253: elsif (pay_proc_environment_pkg.action_type =
254: pay_proc_environment_pkg.PYG_AT_RCS or
255: pay_proc_environment_pkg.action_type =
256: pay_proc_environment_pkg.PYG_AT_ECS) then
257:
258: if (pay_proc_environment_pkg.payroll_id is null) then
259: sqlid := SQL_NONRGE;
260: else
254: pay_proc_environment_pkg.PYG_AT_RCS or
255: pay_proc_environment_pkg.action_type =
256: pay_proc_environment_pkg.PYG_AT_ECS) then
257:
258: if (pay_proc_environment_pkg.payroll_id is null) then
259: sqlid := SQL_NONRGE;
260: else
261: sqlid := SQL_RESRGE;
262: end if;
261: sqlid := SQL_RESRGE;
262: end if;
263:
264: else
265: if (pay_proc_environment_pkg.action_type <>
266: pay_proc_environment_pkg.PYG_AT_CHQ and
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
262: end if;
263:
264: else
265: if (pay_proc_environment_pkg.action_type <>
266: pay_proc_environment_pkg.PYG_AT_CHQ and
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
263:
264: else
265: if (pay_proc_environment_pkg.action_type <>
266: pay_proc_environment_pkg.PYG_AT_CHQ and
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
264: else
265: if (pay_proc_environment_pkg.action_type <>
266: pay_proc_environment_pkg.PYG_AT_CHQ and
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
265: if (pay_proc_environment_pkg.action_type <>
266: pay_proc_environment_pkg.PYG_AT_CHQ and
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
273: pay_proc_environment_pkg.action_type <>
266: pay_proc_environment_pkg.PYG_AT_CHQ and
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
273: pay_proc_environment_pkg.action_type <>
274: pay_proc_environment_pkg.PYG_AT_PRU) then
267: pay_proc_environment_pkg.action_type <>
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
273: pay_proc_environment_pkg.action_type <>
274: pay_proc_environment_pkg.PYG_AT_PRU) then
275: --
268: pay_proc_environment_pkg.PYG_AT_MAG and
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
273: pay_proc_environment_pkg.action_type <>
274: pay_proc_environment_pkg.PYG_AT_PRU) then
275: --
276: action := 'R';
269: pay_proc_environment_pkg.action_type <>
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
273: pay_proc_environment_pkg.action_type <>
274: pay_proc_environment_pkg.PYG_AT_PRU) then
275: --
276: action := 'R';
277: --
270: pay_proc_environment_pkg.PYG_AT_PST and
271: pay_proc_environment_pkg.action_type <>
272: pay_proc_environment_pkg.PYG_AT_CSH and
273: pay_proc_environment_pkg.action_type <>
274: pay_proc_environment_pkg.PYG_AT_PRU) then
275: --
276: action := 'R';
277: --
278: end if;
276: action := 'R';
277: --
278: end if;
279: --
280: if (pay_proc_environment_pkg.payroll_id is null) then
281: sqlid := SQL_NONRGE;
282: else
283: sqlid := SQL_RESRGE;
284: end if;
467: if (g_multi_object = TRUE) then
468: fetch actioncur bulk collect into l_person_id_tab,
469: l_source_id_tab,
470: l_source_type_tab
471: limit pay_proc_environment_pkg.chunk_size;
472: else
473: fetch actioncur bulk collect into l_person_id_tab
474: limit pay_proc_environment_pkg.chunk_size;
475: end if;
470: l_source_type_tab
471: limit pay_proc_environment_pkg.chunk_size;
472: else
473: fetch actioncur bulk collect into l_person_id_tab
474: limit pay_proc_environment_pkg.chunk_size;
475: end if;
476: --
477: hr_utility.trace('l_person_id_tab ' || l_person_id_tab.count);
478: hr_utility.trace('l_source_id_tab ' || l_source_id_tab.count);
559: chunk_number);
560: --
561: end if;
562: --
563: if (pay_proc_environment_pkg.chunk_method = 'ORIGINAL') then
564: insert_chunk_statii(p_payroll_action_id);
565: end if;
566: --
567: pay_proc_logging.PY_EXIT('pay_population_ranges_pkg.insert_ranges');
580: --
581: pay_proc_logging.PY_ENTRY('pay_population_ranges_pkg.perform_range_creation');
582: --
583: set_range_globals(p_payroll_action_id,
584: pay_proc_environment_pkg.action_type
585: );
586: --
587: remove_existing_ranges(p_payroll_action_id);
588: --
585: );
586: --
587: remove_existing_ranges(p_payroll_action_id);
588: --
589: pay_proc_environment_pkg.update_pop_action_status(
590: p_payroll_action_id,
591: APS_POP_RANGES );
592: --
593: get_range_statement(p_payroll_action_id,
598: --
599: insert_ranges(p_payroll_action_id,
600: l_statement);
601: --
602: pay_proc_environment_pkg.update_pop_action_status(
603: p_payroll_action_id,
604: APS_POP_ACTIONS );
605: --
606: pay_proc_logging.PY_EXIT('pay_population_ranges_pkg.perform_range_creation');
645: l_chunk_num_tab.delete;
646:
647: fetch get_err_chunks bulk collect into l_pay_act_tab,
648: l_chunk_num_tab
649: limit pay_proc_environment_pkg.chunk_size;
650: --
651: forall i in 1..l_pay_act_tab.count
652: delete from pay_action_interlocks pai
653: where pai.locking_action_id in
671: set range_status = 'U'
672: where ppr.payroll_action_id = l_pay_act_tab(i)
673: and ppr.chunk_number = l_chunk_num_tab(i);
674: --
675: if (pay_proc_environment_pkg.chunk_method = 'ORIGINAL') then
676: --
677: forall i in 1..l_pay_act_tab.count
678: update pay_chunk_status
679: set population_status = 'U'
687: exit when get_err_chunks%notfound;
688: --
689: end loop;
690: --
691: pay_proc_environment_pkg.update_pop_action_status(
692: p_payroll_action_id,
693: APS_POP_ACTIONS );
694: --
695: pay_proc_logging.PY_EXIT('pay_population_ranges_pkg.reset_errored_ranges');