[Home] [Help]
54: l_person_id ben_person_actions.person_id%type;
55: l_person_action_id ben_person_actions.person_action_id%type;
56: l_object_version_number ben_person_actions.object_version_number%type;
57: l_ler_id ben_person_actions.ler_id%type;
58: l_range_id ben_batch_ranges.range_id%type;
59: l_record_number number := 0;
60: l_start_person_action_id number := 0;
61: l_end_person_action_id number := 0;
62: l_actn varchar2(80);
71: Cursor c_range_thread is
72: Select ran.range_id
73: ,ran.starting_person_action_id
74: ,ran.ending_person_action_id
75: From ben_batch_ranges ran
76: Where ran.range_status_cd = 'U'
77: And ran.BENEFIT_ACTION_ID = P_BENEFIT_ACTION_ID
78: And rownum < 2
79: For update of ran.range_status_cd
193: exit when c_range_thread%notfound;
194: close c_range_thread;
195: If(l_range_id is not NULL) then
196: --
197: l_actn := 'Updating ben_batch_ranges row...';
198: --
199: update ben_batch_ranges ran set ran.range_status_cd = 'P'
200: where ran.range_id = l_range_id;
201: commit;
195: If(l_range_id is not NULL) then
196: --
197: l_actn := 'Updating ben_batch_ranges row...';
198: --
199: update ben_batch_ranges ran set ran.range_status_cd = 'P'
200: where ran.range_id = l_range_id;
201: commit;
202: End if;
203: --
344: l_benefit_action_id ben_benefit_actions.benefit_action_id%type;
345: l_object_version_number ben_benefit_actions.object_version_number%type;
346: l_person_action_id ben_person_actions.person_action_id%type;
347: l_ler_id ben_ler_f.ler_id%type;
348: l_range_id ben_batch_ranges.range_id%type;
349: l_start_person_action_id number := 0;
350: l_end_person_action_id number := 0;
351: l_prev_person_id number := 0;
352: rl_ret char(1);
488: If l_num_row = p_chunk_size then
489: --
490: -- Create a range of data to be multithreaded.
491: --
492: l_actn := 'Inserting Ben_batch_ranges.......';
493: hr_utility.set_location('Inserting Ben_batch_ranges',32);
494: -- Select next sequence number for the range
495: --
496: select ben_batch_ranges_s.nextval
489: --
490: -- Create a range of data to be multithreaded.
491: --
492: l_actn := 'Inserting Ben_batch_ranges.......';
493: hr_utility.set_location('Inserting Ben_batch_ranges',32);
494: -- Select next sequence number for the range
495: --
496: select ben_batch_ranges_s.nextval
497: into l_range_id
492: l_actn := 'Inserting Ben_batch_ranges.......';
493: hr_utility.set_location('Inserting Ben_batch_ranges',32);
494: -- Select next sequence number for the range
495: --
496: select ben_batch_ranges_s.nextval
497: into l_range_id
498: from sys.dual;
499:
500: insert into ben_batch_ranges
496: select ben_batch_ranges_s.nextval
497: into l_range_id
498: from sys.dual;
499:
500: insert into ben_batch_ranges
501: (range_id,
502: benefit_action_id,
503: range_status_cd,
504: starting_person_action_id,
521: End loop;
522: Close c_prems;
523: hr_utility.set_location('l_num_row='||to_char(l_num_row),34);
524: If (l_num_row <> 0) then
525: l_actn := 'Inserting Final Ben_batch_ranges...';
526: hr_utility.set_location('Inserting Final Ben_batch_ranges',38);
527:
528: select ben_batch_ranges_s.nextval
529: into l_range_id
522: Close c_prems;
523: hr_utility.set_location('l_num_row='||to_char(l_num_row),34);
524: If (l_num_row <> 0) then
525: l_actn := 'Inserting Final Ben_batch_ranges...';
526: hr_utility.set_location('Inserting Final Ben_batch_ranges',38);
527:
528: select ben_batch_ranges_s.nextval
529: into l_range_id
530: from sys.dual;
524: If (l_num_row <> 0) then
525: l_actn := 'Inserting Final Ben_batch_ranges...';
526: hr_utility.set_location('Inserting Final Ben_batch_ranges',38);
527:
528: select ben_batch_ranges_s.nextval
529: into l_range_id
530: from sys.dual;
531:
532: insert into ben_batch_ranges
528: select ben_batch_ranges_s.nextval
529: into l_range_id
530: from sys.dual;
531:
532: insert into ben_batch_ranges
533: (range_id,
534: benefit_action_id,
535: range_status_cd,
536: starting_person_action_id,