[Home] [Help]
133: order by pa_history_id desc;
134:
135: Begin
136:
137: hr_utility.set_location (' Entering : ' || l_proc, 10);
138:
139: for ghr_hist_ndt_canc3_rec in
140: ghr_hist_ndt_canc3 (cp_information1 => p_information1,
141: cp_max_date_effective => p_max_date_effective,
154: End loop;
155:
156: if not l_found then
157: p_result := FALSE;
158: hr_utility.set_location( 'NOT FOUND ' || l_proc, 50);
159: else
160: if l_root_pa_request_id is null then
161: -- ie core form change is the pre_record
162: -- so no need to traverse.
162: -- so no need to traverse.
163: p_hist_data := l_save_pa_history_data;
164: p_result := TRUE;
165: else
166: hr_utility.set_location('Selected Root Request Id ' || l_root_pa_request_id || l_proc, 60);
167: Traverse(
168: p_pa_history_id => NULL,
169: p_root_pa_request_id => l_root_pa_request_id,
170: p_noa_id => l_noa_id,
175:
176:
177: if not l_found then
178: p_result := FALSE;
179: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
180: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
181: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
182:
183: hr_utility.set_message(8301,'GHR_38496_TRAVERSE_FAILED');
176:
177: if not l_found then
178: p_result := FALSE;
179: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
180: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
181: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
182:
183: hr_utility.set_message(8301,'GHR_38496_TRAVERSE_FAILED');
184: hr_utility.raise_error;
177: if not l_found then
178: p_result := FALSE;
179: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
180: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
181: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
182:
183: hr_utility.set_message(8301,'GHR_38496_TRAVERSE_FAILED');
184: hr_utility.raise_error;
185: else
179: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
180: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
181: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
182:
183: hr_utility.set_message(8301,'GHR_38496_TRAVERSE_FAILED');
184: hr_utility.raise_error;
185: else
186: p_result := TRUE;
187: end if;
180: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
181: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
182:
183: hr_utility.set_message(8301,'GHR_38496_TRAVERSE_FAILED');
184: hr_utility.raise_error;
185: else
186: p_result := TRUE;
187: end if;
188: end if;
187: end if;
188: end if;
189: end if;
190:
191: hr_utility.set_location (' Leaving : ' || l_proc, 100);
192:
193: End;
194:
195: -- This procedure fetched most recent, prior to p_pa_history_id, on p_date_Effective
290: where pa_history_id = cp_pa_history_id;
291:
292: Begin
293:
294: hr_utility.set_location (' Entering : ' || l_proc, 10);
295:
296: open get_req_and_noa( p_pa_history_id);
297: fetch get_req_and_noa into
298: l_pa_request_id_for_hist,
309:
310: if get_root_hist_id%notfound then
311: -- error
312: close get_root_hist_id;
313: hr_utility.set_message(8301,'GHR_38352_ROOT_HISTID_NFND');
314: hr_utility.raise_error;
315: else
316: close get_root_hist_id;
317: hr_utility.set_location('l_root_pa_req_for_pa_req : ' || l_root_pa_req_for_pa_req || l_proc, 12);
310: if get_root_hist_id%notfound then
311: -- error
312: close get_root_hist_id;
313: hr_utility.set_message(8301,'GHR_38352_ROOT_HISTID_NFND');
314: hr_utility.raise_error;
315: else
316: close get_root_hist_id;
317: hr_utility.set_location('l_root_pa_req_for_pa_req : ' || l_root_pa_req_for_pa_req || l_proc, 12);
318: hr_utility.set_location('l_noa_id_for_pa_req : ' || l_noa_id_for_pa_req || l_proc, 12);
313: hr_utility.set_message(8301,'GHR_38352_ROOT_HISTID_NFND');
314: hr_utility.raise_error;
315: else
316: close get_root_hist_id;
317: hr_utility.set_location('l_root_pa_req_for_pa_req : ' || l_root_pa_req_for_pa_req || l_proc, 12);
318: hr_utility.set_location('l_noa_id_for_pa_req : ' || l_noa_id_for_pa_req || l_proc, 12);
319:
320: if l_root_pa_req_for_pa_req = l_pa_request_id_for_hist and
321: l_noa_id_for_pa_req = l_noa_id_for_hist then
314: hr_utility.raise_error;
315: else
316: close get_root_hist_id;
317: hr_utility.set_location('l_root_pa_req_for_pa_req : ' || l_root_pa_req_for_pa_req || l_proc, 12);
318: hr_utility.set_location('l_noa_id_for_pa_req : ' || l_noa_id_for_pa_req || l_proc, 12);
319:
320: if l_root_pa_req_for_pa_req = l_pa_request_id_for_hist and
321: l_noa_id_for_pa_req = l_noa_id_for_hist then
322: NULL;
320: if l_root_pa_req_for_pa_req = l_pa_request_id_for_hist and
321: l_noa_id_for_pa_req = l_noa_id_for_hist then
322: NULL;
323: else
324: hr_utility.set_location(' Skip settings NULLed' || l_proc, 12);
325: l_root_pa_req_for_pa_req := NULL;
326: l_noa_id_for_pa_req := NULL;
327: end if;
328: end if;
326: l_noa_id_for_pa_req := NULL;
327: end if;
328: end if;
329:
330: hr_utility.set_location( 'l_root_pa_history_id :' || l_root_pa_history_id || l_proc, 13);
331: hr_utility.set_location( 'p_pa_history_id : ' || p_pa_history_id || l_proc, 13);
332: hr_utility.set_location( 'p_information1 : ' || p_information1 || l_proc, 13);
333: hr_utility.set_location( 'p_p_table_name : ' || p_table_name || l_proc, 13);
334: hr_utility.set_location( 'p_date_Effective : ' || p_date_Effective || l_proc, 13);
327: end if;
328: end if;
329:
330: hr_utility.set_location( 'l_root_pa_history_id :' || l_root_pa_history_id || l_proc, 13);
331: hr_utility.set_location( 'p_pa_history_id : ' || p_pa_history_id || l_proc, 13);
332: hr_utility.set_location( 'p_information1 : ' || p_information1 || l_proc, 13);
333: hr_utility.set_location( 'p_p_table_name : ' || p_table_name || l_proc, 13);
334: hr_utility.set_location( 'p_date_Effective : ' || p_date_Effective || l_proc, 13);
335:
328: end if;
329:
330: hr_utility.set_location( 'l_root_pa_history_id :' || l_root_pa_history_id || l_proc, 13);
331: hr_utility.set_location( 'p_pa_history_id : ' || p_pa_history_id || l_proc, 13);
332: hr_utility.set_location( 'p_information1 : ' || p_information1 || l_proc, 13);
333: hr_utility.set_location( 'p_p_table_name : ' || p_table_name || l_proc, 13);
334: hr_utility.set_location( 'p_date_Effective : ' || p_date_Effective || l_proc, 13);
335:
336: for ghr_hist_ndt_canc_rec in
329:
330: hr_utility.set_location( 'l_root_pa_history_id :' || l_root_pa_history_id || l_proc, 13);
331: hr_utility.set_location( 'p_pa_history_id : ' || p_pa_history_id || l_proc, 13);
332: hr_utility.set_location( 'p_information1 : ' || p_information1 || l_proc, 13);
333: hr_utility.set_location( 'p_p_table_name : ' || p_table_name || l_proc, 13);
334: hr_utility.set_location( 'p_date_Effective : ' || p_date_Effective || l_proc, 13);
335:
336: for ghr_hist_ndt_canc_rec in
337: ghr_hist_ndt_canc(cp_root_pa_history_id => l_root_pa_history_id,
330: hr_utility.set_location( 'l_root_pa_history_id :' || l_root_pa_history_id || l_proc, 13);
331: hr_utility.set_location( 'p_pa_history_id : ' || p_pa_history_id || l_proc, 13);
332: hr_utility.set_location( 'p_information1 : ' || p_information1 || l_proc, 13);
333: hr_utility.set_location( 'p_p_table_name : ' || p_table_name || l_proc, 13);
334: hr_utility.set_location( 'p_date_Effective : ' || p_date_Effective || l_proc, 13);
335:
336: for ghr_hist_ndt_canc_rec in
337: ghr_hist_ndt_canc(cp_root_pa_history_id => l_root_pa_history_id,
338: cp_information1 => p_information1,
354: End loop;
355:
356: if not l_found then
357: p_result := FALSE;
358: hr_utility.set_location( 'NOT FOUND ' || l_proc, 50);
359: else
360: if l_root_pa_request_id is null then
361: -- ie core form change is the pre_record
362: -- so no need to traverse.
362: -- so no need to traverse.
363: p_hist_data := l_save_pa_history_data;
364: p_result := TRUE;
365: else
366: hr_utility.set_location('Selected Root Hist Id ' || l_root_pa_history_id || l_proc, 60);
367: hr_utility.set_location('Selected Root Request Id ' || l_root_pa_request_id || l_proc, 60);
368:
369: Traverse(
370: p_pa_history_id => p_pa_history_id,
363: p_hist_data := l_save_pa_history_data;
364: p_result := TRUE;
365: else
366: hr_utility.set_location('Selected Root Hist Id ' || l_root_pa_history_id || l_proc, 60);
367: hr_utility.set_location('Selected Root Request Id ' || l_root_pa_request_id || l_proc, 60);
368:
369: Traverse(
370: p_pa_history_id => p_pa_history_id,
371: p_root_pa_request_id => l_root_pa_request_id,
376: p_hist_data => p_hist_data);
377:
378: if not l_found then
379: p_result := FALSE;
380: hr_utility.set_location(' p_pa_history_id : ' || p_pa_history_id || l_proc, 65);
381: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
382: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
383:
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
377:
378: if not l_found then
379: p_result := FALSE;
380: hr_utility.set_location(' p_pa_history_id : ' || p_pa_history_id || l_proc, 65);
381: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
382: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
383:
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
378: if not l_found then
379: p_result := FALSE;
380: hr_utility.set_location(' p_pa_history_id : ' || p_pa_history_id || l_proc, 65);
381: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
382: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
383:
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
386: hr_utility.raise_error;
380: hr_utility.set_location(' p_pa_history_id : ' || p_pa_history_id || l_proc, 65);
381: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
382: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
383:
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
386: hr_utility.raise_error;
387: else
388: hr_utility.set_location('Selected Hist Id ' || p_hist_data.pa_history_id || l_proc, 61);
381: hr_utility.set_location(' l_root_pa_request_id : ' || l_root_pa_request_id || l_proc, 65);
382: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
383:
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
386: hr_utility.raise_error;
387: else
388: hr_utility.set_location('Selected Hist Id ' || p_hist_data.pa_history_id || l_proc, 61);
389: hr_utility.set_location('Selected PaRequest Id ' || p_hist_data.pa_request_id || l_proc, 62);
382: hr_utility.set_location(' l_noa_id : ' || l_noa_id || l_proc, 65);
383:
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
386: hr_utility.raise_error;
387: else
388: hr_utility.set_location('Selected Hist Id ' || p_hist_data.pa_history_id || l_proc, 61);
389: hr_utility.set_location('Selected PaRequest Id ' || p_hist_data.pa_request_id || l_proc, 62);
390: p_result := TRUE;
384: hr_utility.set_location('Traverse Failed ' || l_proc, 70);
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
386: hr_utility.raise_error;
387: else
388: hr_utility.set_location('Selected Hist Id ' || p_hist_data.pa_history_id || l_proc, 61);
389: hr_utility.set_location('Selected PaRequest Id ' || p_hist_data.pa_request_id || l_proc, 62);
390: p_result := TRUE;
391: end if;
392: end if;
385: hr_utility.set_message(8301,'GHR_38497_TRAVERSE_FAILED');
386: hr_utility.raise_error;
387: else
388: hr_utility.set_location('Selected Hist Id ' || p_hist_data.pa_history_id || l_proc, 61);
389: hr_utility.set_location('Selected PaRequest Id ' || p_hist_data.pa_request_id || l_proc, 62);
390: p_result := TRUE;
391: end if;
392: end if;
393: end if;
391: end if;
392: end if;
393: end if;
394:
395: hr_utility.set_location (' Leaving : ' || l_proc, 100);
396:
397: End get_hist_rec_ason_date;
398:
399: -- This procedure is called by get_hist_rec_ason_max_date and get_hist_rec_ason_date
455: l_proc varchar2(30):='filter_best_candidate_record';
456:
457: Begin
458: l_corr_record_found := FALSE;
459: hr_utility.set_location (' Entering : ' || l_proc, 10);
460: hr_utility.set_location (' p_hist_data.pa_history_id ' || p_hist_data.pa_history_id, 11);
461: hr_utility.set_location (' p_pa_req_id_skip ' || p_pa_req_id_skip, 11);
462: hr_utility.set_location (' p_noa_id_skip ' || p_noa_id_skip, 11);
463:
456:
457: Begin
458: l_corr_record_found := FALSE;
459: hr_utility.set_location (' Entering : ' || l_proc, 10);
460: hr_utility.set_location (' p_hist_data.pa_history_id ' || p_hist_data.pa_history_id, 11);
461: hr_utility.set_location (' p_pa_req_id_skip ' || p_pa_req_id_skip, 11);
462: hr_utility.set_location (' p_noa_id_skip ' || p_noa_id_skip, 11);
463:
464: if p_hist_data.pa_request_id is null then
457: Begin
458: l_corr_record_found := FALSE;
459: hr_utility.set_location (' Entering : ' || l_proc, 10);
460: hr_utility.set_location (' p_hist_data.pa_history_id ' || p_hist_data.pa_history_id, 11);
461: hr_utility.set_location (' p_pa_req_id_skip ' || p_pa_req_id_skip, 11);
462: hr_utility.set_location (' p_noa_id_skip ' || p_noa_id_skip, 11);
463:
464: if p_hist_data.pa_request_id is null then
465: -- Core Form change created this record.
458: l_corr_record_found := FALSE;
459: hr_utility.set_location (' Entering : ' || l_proc, 10);
460: hr_utility.set_location (' p_hist_data.pa_history_id ' || p_hist_data.pa_history_id, 11);
461: hr_utility.set_location (' p_pa_req_id_skip ' || p_pa_req_id_skip, 11);
462: hr_utility.set_location (' p_noa_id_skip ' || p_noa_id_skip, 11);
463:
464: if p_hist_data.pa_request_id is null then
465: -- Core Form change created this record.
466: hr_utility.set_location (' Core Form 1' || l_proc, 20);
462: hr_utility.set_location (' p_noa_id_skip ' || p_noa_id_skip, 11);
463:
464: if p_hist_data.pa_request_id is null then
465: -- Core Form change created this record.
466: hr_utility.set_location (' Core Form 1' || l_proc, 20);
467: if p_hist_data.pa_history_id > nvl(p_save_history_id, 0) then
468: hr_utility.set_location (' Accept Core Form 2' || l_proc, 21);
469: p_save_found := TRUE;
470: p_save_history_id := p_hist_data.pa_history_id;
464: if p_hist_data.pa_request_id is null then
465: -- Core Form change created this record.
466: hr_utility.set_location (' Core Form 1' || l_proc, 20);
467: if p_hist_data.pa_history_id > nvl(p_save_history_id, 0) then
468: hr_utility.set_location (' Accept Core Form 2' || l_proc, 21);
469: p_save_found := TRUE;
470: p_save_history_id := p_hist_data.pa_history_id;
471: p_save_pa_request_id := null;
472: p_save_noa_id := null;
473: p_save_pa_hist_data := p_hist_data;
474: end if;
475: elsif p_hist_data.altered_pa_request_id is NULL then
476: -- root pa_request_id record.
477: hr_utility.set_location (' Root pa req 1' || l_proc, 30);
478: if p_hist_data.pa_request_id = nvl(p_pa_req_id_skip, -1) and
479: p_hist_data.nature_of_action_id = nvl(p_noa_id_skip, -1) then
480: hr_utility.set_location('Skip this record : Hist ID ' || p_hist_data.pa_history_id, 35);
481: else
476: -- root pa_request_id record.
477: hr_utility.set_location (' Root pa req 1' || l_proc, 30);
478: if p_hist_data.pa_request_id = nvl(p_pa_req_id_skip, -1) and
479: p_hist_data.nature_of_action_id = nvl(p_noa_id_skip, -1) then
480: hr_utility.set_location('Skip this record : Hist ID ' || p_hist_data.pa_history_id, 35);
481: else
482: --Bug 6314442 added to check any corrections are available after manual changes
483: for cur_pa_corr_rec in cur_pa_corr
484: loop
485: l_corr_record_found := TRUE;
486: end loop;
487: --Bug 6314442 added l_corr_record_found
488: if p_hist_data.pa_history_id > nvl(p_save_history_id, 0) or l_corr_record_found then
489: hr_utility.set_location (' Accept Root pa req 2' || l_proc, 31);
490: p_save_found := TRUE;
491: p_save_history_id := p_hist_data.pa_history_id;
492: p_save_pa_request_id := p_hist_data.pa_request_id;
493: p_save_noa_id := p_hist_data.nature_of_action_id;
496: end if;
497: else
498: -- Borken chain root
499: -- get root pa_request_id
500: hr_utility.set_location (' Broken Chain 1' || l_proc, 40);
501: open c_get_root_req( p_hist_data.pa_request_id);
502: Fetch c_get_root_req into l_root_pa_req_id_broken;
503: if c_get_root_req%notfound then
504: close c_get_root_req;
501: open c_get_root_req( p_hist_data.pa_request_id);
502: Fetch c_get_root_req into l_root_pa_req_id_broken;
503: if c_get_root_req%notfound then
504: close c_get_root_req;
505: hr_utility.set_location (' Root for Broken Chain not found (Error) ' || l_proc, 41);
506: -- this must never happen
507: -- raise error;
508: else
509: close c_get_root_req;
514: p_hist_data.nature_of_action_id);
515: Fetch c_get_min_hist into l_root_hist_id_broken;
516: if c_get_min_hist%notfound then
517: close c_get_min_hist;
518: hr_utility.set_location (' Min Hist not found Broken Chain (Error) ' || l_proc, 42);
519: -- this must never happen
520: -- raise error;
521: else
522: close c_get_min_hist;
524:
525: if l_root_pa_req_id_broken = nvl(p_pa_req_id_skip, -1) and
526: p_hist_data.nature_of_action_id = nvl(p_noa_id_skip, -1) then
527:
528: hr_utility.set_location('Skip this record : Hist ID ' || p_hist_data.pa_history_id, 50);
529: else
530: if l_root_hist_id_broken > nvl(p_save_history_id, 0) then
531: hr_utility.set_location (' Accept Broken Chain 3' || l_proc, 43);
532: p_save_found := TRUE;
527:
528: hr_utility.set_location('Skip this record : Hist ID ' || p_hist_data.pa_history_id, 50);
529: else
530: if l_root_hist_id_broken > nvl(p_save_history_id, 0) then
531: hr_utility.set_location (' Accept Broken Chain 3' || l_proc, 43);
532: p_save_found := TRUE;
533: p_save_history_id := l_root_hist_id_broken;
534: p_save_pa_request_id := l_root_pa_req_id_broken;
535: p_save_noa_id := p_hist_data.nature_of_action_id;
537: end if;
538: end if;
539: end if;
540:
541: hr_utility.set_location (' p_save_noa_id ' || p_save_noa_id, 90);
542: hr_utility.set_location (' p_save_history_id ' || p_save_history_id, 90);
543: hr_utility.set_location (' p_save_pa_request_id ' || p_save_pa_request_id, 90);
544: hr_utility.set_location (' Leaving : ' || l_proc, 100);
545:
538: end if;
539: end if;
540:
541: hr_utility.set_location (' p_save_noa_id ' || p_save_noa_id, 90);
542: hr_utility.set_location (' p_save_history_id ' || p_save_history_id, 90);
543: hr_utility.set_location (' p_save_pa_request_id ' || p_save_pa_request_id, 90);
544: hr_utility.set_location (' Leaving : ' || l_proc, 100);
545:
546:
539: end if;
540:
541: hr_utility.set_location (' p_save_noa_id ' || p_save_noa_id, 90);
542: hr_utility.set_location (' p_save_history_id ' || p_save_history_id, 90);
543: hr_utility.set_location (' p_save_pa_request_id ' || p_save_pa_request_id, 90);
544: hr_utility.set_location (' Leaving : ' || l_proc, 100);
545:
546:
547: End;
540:
541: hr_utility.set_location (' p_save_noa_id ' || p_save_noa_id, 90);
542: hr_utility.set_location (' p_save_history_id ' || p_save_history_id, 90);
543: hr_utility.set_location (' p_save_pa_request_id ' || p_save_pa_request_id, 90);
544: hr_utility.set_location (' Leaving : ' || l_proc, 100);
545:
546:
547: End;
548:
656:
657: Begin
658:
659: /* get pre. */
660: hr_utility.set_location( 'Entering : ' || l_proc, 10);
661: hr_utility.set_location( ' Displaying parameters : ' || l_proc, 11);
662: hr_utility.set_location( ' p_table_name : ' || p_table_name || l_proc, 11);
663: hr_utility.set_location( ' p_information1 : ' || p_information1 || l_proc, 11);
664: hr_utility.set_location( ' p_pa_history_id : ' || p_pa_history_id || l_proc, 11);
657: Begin
658:
659: /* get pre. */
660: hr_utility.set_location( 'Entering : ' || l_proc, 10);
661: hr_utility.set_location( ' Displaying parameters : ' || l_proc, 11);
662: hr_utility.set_location( ' p_table_name : ' || p_table_name || l_proc, 11);
663: hr_utility.set_location( ' p_information1 : ' || p_information1 || l_proc, 11);
664: hr_utility.set_location( ' p_pa_history_id : ' || p_pa_history_id || l_proc, 11);
665:
658:
659: /* get pre. */
660: hr_utility.set_location( 'Entering : ' || l_proc, 10);
661: hr_utility.set_location( ' Displaying parameters : ' || l_proc, 11);
662: hr_utility.set_location( ' p_table_name : ' || p_table_name || l_proc, 11);
663: hr_utility.set_location( ' p_information1 : ' || p_information1 || l_proc, 11);
664: hr_utility.set_location( ' p_pa_history_id : ' || p_pa_history_id || l_proc, 11);
665:
666: get_hist_rec_ason_date(
659: /* get pre. */
660: hr_utility.set_location( 'Entering : ' || l_proc, 10);
661: hr_utility.set_location( ' Displaying parameters : ' || l_proc, 11);
662: hr_utility.set_location( ' p_table_name : ' || p_table_name || l_proc, 11);
663: hr_utility.set_location( ' p_information1 : ' || p_information1 || l_proc, 11);
664: hr_utility.set_location( ' p_pa_history_id : ' || p_pa_history_id || l_proc, 11);
665:
666: get_hist_rec_ason_date(
667: p_information1 => p_information1,
660: hr_utility.set_location( 'Entering : ' || l_proc, 10);
661: hr_utility.set_location( ' Displaying parameters : ' || l_proc, 11);
662: hr_utility.set_location( ' p_table_name : ' || p_table_name || l_proc, 11);
663: hr_utility.set_location( ' p_information1 : ' || p_information1 || l_proc, 11);
664: hr_utility.set_location( ' p_pa_history_id : ' || p_pa_history_id || l_proc, 11);
665:
666: get_hist_rec_ason_date(
667: p_information1 => p_information1,
668: p_date_effective => p_date_effective,
669: p_table_name => p_table_name,
670: p_pa_history_id => p_pa_history_id ,
671: p_hist_data => l_hist_data,
672: p_result => l_found);
673: hr_utility.set_location (' End Loop 1' || l_proc, 60);
674:
675: p_hist_data := l_hist_data;
676:
677: ---Bug 2413991 --AVR
694: end if;
695: ---Bug 2413991 --AVR
696:
697: if not l_found then
698: hr_utility.set_location( 'Loop1 not found ' || l_proc, 70);
699: open ghr_hist_ndt_canc2
700: (cp_information1 => p_information1,
701: cp_date_effective => p_date_effective,
702: cp_table_name => p_table_name);
713: cp_table_name => p_table_name,
714: cp_pa_history_id => p_pa_history_id);
715: fetch ghr_hist_ndt_canc3 into l_date_effective;
716: if ( l_date_effective is null ) then
717: hr_utility.set_location( 'NOT FOUND ' || l_proc, 80);
718: p_result_code := c_not_found;
719: close ghr_hist_ndt_canc3;
720: else
721: close ghr_hist_ndt_canc3;
728: p_hist_data := l_hist_data;
729: if not l_found then
730: /* handle case where there is no pre here. */
731: p_result_code := c_not_found;
732: hr_utility.set_location (' NOT Found ' || l_proc, 150);
733: else
734: hr_utility.set_location (' Found ' || l_proc, 160);
735: end if;
736: end if;
730: /* handle case where there is no pre here. */
731: p_result_code := c_not_found;
732: hr_utility.set_location (' NOT Found ' || l_proc, 150);
733: else
734: hr_utility.set_location (' Found ' || l_proc, 160);
735: end if;
736: end if;
737: else
738: close ghr_hist_ndt_canc2;
735: end if;
736: end if;
737: else
738: close ghr_hist_ndt_canc2;
739: hr_utility.set_location( 'l_max_date_effective : ' || l_max_date_effective || l_proc, 80);
740: get_hist_rec_ason_max_date(
741: p_information1 => p_information1,
742: p_max_date_effective => l_max_date_effective,
743: p_table_name => p_table_name,
746: p_hist_data := l_hist_data;
747: if not l_found then
748: /* handle case where there is no pre here. */
749: p_result_code := c_not_found;
750: hr_utility.set_location (' NOT Found ' || l_proc, 150);
751: else
752: hr_utility.set_location (' Found ' || l_proc, 160);
753: end if;
754: end if;
748: /* handle case where there is no pre here. */
749: p_result_code := c_not_found;
750: hr_utility.set_location (' NOT Found ' || l_proc, 150);
751: else
752: hr_utility.set_location (' Found ' || l_proc, 160);
753: end if;
754: end if;
755: End if;
756: hr_utility.set_location (' Leaving ' || l_proc, 112);
752: hr_utility.set_location (' Found ' || l_proc, 160);
753: end if;
754: end if;
755: End if;
756: hr_utility.set_location (' Leaving ' || l_proc, 112);
757: End;
758:
759: Procedure fetch_for_date_eff(
760: p_table_name in varchar2,
795: will return the post-update record. The session variable
796: pre-update-record will hold the values which can be used for
797: pre-record values
798: */
799: hr_utility.set_location( l_proc, 20);
800: open ghr_hist_post(
801: cp_information1 => p_information1,
802: cp_date_effective => p_date_effective,
803: cp_table_name => p_table_name);
806: if ( l_max_date_effective is null ) then
807: /* max function always returns a result, so checking for %NOTFOUND is always false.
808: date_effective is a mandatory column, so we can check if there were any rows by
809: checking if the max_date_effective is null. */
810: hr_utility.set_location( l_proc, 70);
811: /* handle case where there is no pre here. */
812: p_result_code := c_not_found;
813: close ghr_hist_post;
814: else
822:
823: if not l_found then
824: /* handle case where there is no pre here. */
825: p_result_code := c_not_found;
826: hr_utility.set_location (' NOT Found ' || l_proc, 80);
827: else
828: hr_utility.set_location (' Found ' || l_proc, 80);
829: p_hist_data := l_hist_data;
830: end if;
824: /* handle case where there is no pre here. */
825: p_result_code := c_not_found;
826: hr_utility.set_location (' NOT Found ' || l_proc, 80);
827: else
828: hr_utility.set_location (' Found ' || l_proc, 80);
829: p_hist_data := l_hist_data;
830: end if;
831: end if;
832:
829: p_hist_data := l_hist_data;
830: end if;
831: end if;
832:
833: hr_utility.set_location( ' Leaving : ' || l_proc, 100);
834:
835: End fetch_for_date_eff;
836:
837:
868: l_hist_data ghr_pA_history%rowtype;
869: l_proc varchar2(30):='Traverse';
870: Begin
871: -- traverse.
872: hr_utility.set_location (' Entering : ' || l_proc, 10);
873: hr_utility.set_location ('hist id ' || p_pa_history_id || l_proc, 20);
874: hr_utility.set_location ('pa req ' || p_root_pa_request_id || l_proc, 30);
875: hr_utility.set_location ('noa Id ' || p_noa_id || l_proc, 40);
876:
869: l_proc varchar2(30):='Traverse';
870: Begin
871: -- traverse.
872: hr_utility.set_location (' Entering : ' || l_proc, 10);
873: hr_utility.set_location ('hist id ' || p_pa_history_id || l_proc, 20);
874: hr_utility.set_location ('pa req ' || p_root_pa_request_id || l_proc, 30);
875: hr_utility.set_location ('noa Id ' || p_noa_id || l_proc, 40);
876:
877: open ghr_hist_ndt_traverse_corrs(
870: Begin
871: -- traverse.
872: hr_utility.set_location (' Entering : ' || l_proc, 10);
873: hr_utility.set_location ('hist id ' || p_pa_history_id || l_proc, 20);
874: hr_utility.set_location ('pa req ' || p_root_pa_request_id || l_proc, 30);
875: hr_utility.set_location ('noa Id ' || p_noa_id || l_proc, 40);
876:
877: open ghr_hist_ndt_traverse_corrs(
878: cp_pa_history_id => p_pa_history_id,
871: -- traverse.
872: hr_utility.set_location (' Entering : ' || l_proc, 10);
873: hr_utility.set_location ('hist id ' || p_pa_history_id || l_proc, 20);
874: hr_utility.set_location ('pa req ' || p_root_pa_request_id || l_proc, 30);
875: hr_utility.set_location ('noa Id ' || p_noa_id || l_proc, 40);
876:
877: open ghr_hist_ndt_traverse_corrs(
878: cp_pa_history_id => p_pa_history_id,
879: cp_pa_request_id => p_root_pa_request_id,
884: fetch ghr_hist_ndt_traverse_corrs into l_hist_data;
885: p_result:= ghr_hist_ndt_traverse_corrs%found;
886: close ghr_hist_ndt_traverse_corrs;
887: p_hist_data := l_hist_data;
888: hr_utility.set_location ('Hist ID : ' || l_hist_data.pa_history_id, 90);
889: hr_utility.set_location ('Leaving : ' || l_proc, 100);
890: End;
891:
892: Procedure Fetch_for_correction(
885: p_result:= ghr_hist_ndt_traverse_corrs%found;
886: close ghr_hist_ndt_traverse_corrs;
887: p_hist_data := l_hist_data;
888: hr_utility.set_location ('Hist ID : ' || l_hist_data.pa_history_id, 90);
889: hr_utility.set_location ('Leaving : ' || l_proc, 100);
890: End;
891:
892: Procedure Fetch_for_correction(
893: p_table_name in varchar2,
915: l_proc varchar2(30):='Fetch_for_correction';
916:
917: Begin
918:
919: hr_utility.set_location (' Entering ' || l_proc, 10);
920:
921: open ghr_hist_corr(
922: cp_information1 => p_information1,
923: cp_altered_pa_request_id => p_altered_pa_request_id,
925: cp_table_name => p_table_name) ;
926:
927: fetch ghr_hist_corr into p_hist_data;
928: if ( ghr_hist_corr%NOTFOUND ) then
929: hr_utility.set_location ( l_proc, 20);
930: get_min_hist_id(
931: p_pa_request_id => p_altered_pa_request_id,
932: p_noa_id => p_noa_id_corrected,
933: p_pa_history_id => l_pa_history_id,
940: p_pa_history_id => l_pa_history_id,
941: p_hist_data => p_hist_data,
942: p_result_code => p_result_code);
943: else
944: hr_utility.set_location (' NOT Found ' || l_proc, 40);
945: p_result_code := c_not_found;
946: end if;
947: end if;
948: close ghr_hist_corr;
945: p_result_code := c_not_found;
946: end if;
947: end if;
948: close ghr_hist_corr;
949: hr_utility.set_location( 'Leaving : ' || l_proc, 100);
950:
951: End Fetch_for_correction;
952:
953:
963:
964: l_proc varchar2(30):='Fetch_hist_data';
965: Begin
966:
967: hr_utility.set_location (' Entering ' || l_proc, 10);
968: if p_pa_history_id is not null then
969: fetch_for_histid (
970: p_table_name => p_table_name,
971: p_information1 => p_information1,
992: p_date_effective => p_date_effective,
993: p_hist_data => p_hist_data,
994: p_result_code => p_result_code);
995: end if;
996: hr_utility.set_location (' Leaving ' || l_proc, 100);
997:
998: End Fetch_hist_data;
999:
1000: --
1016:
1017: l_proc varchar2(30):='get_min_hist_id';
1018:
1019: Begin
1020: hr_utility.set_location('Entering:'|| l_proc, 5);
1021: open get_hist_id(
1022: cp_pa_request_id => p_pa_request_id,
1023: cp_noa_id => p_noa_id);
1024: fetch get_hist_id into p_pa_history_id;
1023: cp_noa_id => p_noa_id);
1024: fetch get_hist_id into p_pa_history_id;
1025: p_result := get_hist_id%found;
1026: close get_hist_id;
1027: hr_utility.set_location('Leaving:'|| l_proc, 10);
1028:
1029: End get_min_hist_id;
1030:
1031: /* Following pacakge is redundent
1044: where pa_request_id = p_pa_request_id
1045: and nature_of_action_id = p_noa_id;
1046: l_proc varchar2(30):='get_hist_id';
1047: Begin
1048: hr_utility.set_location('Entering:'|| l_proc, 5);
1049: open get_hist_id;
1050: fetch get_hist_id into p_pa_history_id;
1051: if get_hist_id%notfound then
1052: p_result := FALSE;
1086: select *
1087: from per_all_people_f
1088: where rowid = p_rowid;
1089: Begin
1090: hr_utility.set_location('Entering:'|| l_proc, 5);
1091: p_result_code := null;
1092: if ( p_rowid is not null ) then
1093: /* This part of the procedure is used to fetch the exact row
1094: which will be the post-update record. So if the procedure was
1094: which will be the post-update record. So if the procedure was
1095: passed with p_row_id parameter it'll always return the
1096: post-update record.
1097: */
1098: hr_utility.set_location( l_proc, 10);
1099: open per_people_f_rowid_cursor;
1100: fetch per_people_f_rowid_cursor into p_people_data;
1101: if ( per_people_f_rowid_cursor%NOTFOUND ) then
1102: p_result_code := c_not_found;
1101: if ( per_people_f_rowid_cursor%NOTFOUND ) then
1102: p_result_code := c_not_found;
1103: end if;
1104: close per_people_f_rowid_cursor;
1105: hr_utility.set_location( l_proc, 15);
1106: elsif ( p_pa_history_id is null and
1107: p_altered_pa_request_id is null and
1108: p_noa_id_corrected is null ) then
1109: /* This part of the procedure will fetch the Pre-record values
1112: will return the post-update record. The session variable
1113: pre-update-record will hold the values which can be used for
1114: pre-record values
1115: */
1116: hr_utility.set_location( l_proc, 20);
1117: open per_people_f_cursor;
1118: fetch per_people_f_cursor into p_people_data;
1119: if ( per_people_f_cursor%NOTFOUND ) then
1120: p_result_code := c_not_found;
1119: if ( per_people_f_cursor%NOTFOUND ) then
1120: p_result_code := c_not_found;
1121: end if;
1122: close per_people_f_cursor;
1123: hr_utility.set_location( l_proc, 25);
1124: else
1125: Fetch_hist_data(
1126: p_table_name => ghr_history_api.g_peop_table,
1127: p_information1 => p_person_id,
1140: p_people_data := l_people_data;
1141: end if;
1142:
1143: end if;
1144: hr_utility.set_location(' Leaving:'||l_proc, 45);
1145: exception
1146: when no_data_found then
1147: p_result_code := c_not_found;
1148: when others then
1175: l_hist_data ghr_pa_history%rowtype;
1176: l_proc varchar2(30):='fetch_asgei';
1177:
1178: Begin
1179: hr_utility.set_location('Entering:'|| l_proc, 5);
1180: p_result_code := null;
1181: if ( p_rowid is not null ) then
1182: hr_utility.set_location( l_proc, 10);
1183: open per_asgei_rowid_cursor;
1178: Begin
1179: hr_utility.set_location('Entering:'|| l_proc, 5);
1180: p_result_code := null;
1181: if ( p_rowid is not null ) then
1182: hr_utility.set_location( l_proc, 10);
1183: open per_asgei_rowid_cursor;
1184: fetch per_asgei_rowid_cursor into p_asgei_data;
1185: if ( per_asgei_rowid_cursor%NOTFOUND ) then
1186: p_result_code := c_not_found;
1185: if ( per_asgei_rowid_cursor%NOTFOUND ) then
1186: p_result_code := c_not_found;
1187: end if;
1188: close per_asgei_rowid_cursor;
1189: hr_utility.set_location( l_proc, 15);
1190: else
1191: Fetch_hist_data(
1192: p_table_name => ghr_history_api.g_asgnei_table,
1193: p_information1 => p_assignment_extra_info_id,
1243: l_hist_data ghr_pa_history%rowtype;
1244: l_proc varchar2(30):='fetch_positionei';
1245:
1246: Begin
1247: hr_utility.set_location('Entering:'|| l_proc, 5);
1248: p_result_code := null;
1249: if ( p_rowid is not null ) then
1250: hr_utility.set_location( l_proc, 10);
1251: open per_posei_rowid_cursor;
1246: Begin
1247: hr_utility.set_location('Entering:'|| l_proc, 5);
1248: p_result_code := null;
1249: if ( p_rowid is not null ) then
1250: hr_utility.set_location( l_proc, 10);
1251: open per_posei_rowid_cursor;
1252: fetch per_posei_rowid_cursor into p_posei_data;
1253: if ( per_posei_rowid_cursor%NOTFOUND ) then
1254: p_result_code := c_not_found;
1253: if ( per_posei_rowid_cursor%NOTFOUND ) then
1254: p_result_code := c_not_found;
1255: end if;
1256: close per_posei_rowid_cursor;
1257: hr_utility.set_location( l_proc, 15);
1258: else
1259: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
1260: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
1261: hr_utility.set_location( l_proc || 'position_extra_info_id: ' || p_position_extra_info_id, 215);
1255: end if;
1256: close per_posei_rowid_cursor;
1257: hr_utility.set_location( l_proc, 15);
1258: else
1259: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
1260: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
1261: hr_utility.set_location( l_proc || 'position_extra_info_id: ' || p_position_extra_info_id, 215);
1262:
1263: Fetch_hist_data(
1256: close per_posei_rowid_cursor;
1257: hr_utility.set_location( l_proc, 15);
1258: else
1259: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
1260: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
1261: hr_utility.set_location( l_proc || 'position_extra_info_id: ' || p_position_extra_info_id, 215);
1262:
1263: Fetch_hist_data(
1264: p_table_name => ghr_history_api.g_posnei_table,
1257: hr_utility.set_location( l_proc, 15);
1258: else
1259: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
1260: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
1261: hr_utility.set_location( l_proc || 'position_extra_info_id: ' || p_position_extra_info_id, 215);
1262:
1263: Fetch_hist_data(
1264: p_table_name => ghr_history_api.g_posnei_table,
1265: p_information1 => p_position_extra_info_id,
1271: p_result_code => l_result_code);
1272:
1273: p_result_code := l_result_code;
1274: if nvl(l_result_code, 'found') <> c_not_found then
1275: hr_utility.set_location (' NOT FOUND ' || l_result_code || l_proc, 90);
1276: ghr_history_conv_rg.conv_to_positionei_rg(
1277: p_history_data => l_hist_data,
1278: p_position_ei_data => l_posei_data);
1279: p_posei_data := l_posei_data;
1284: end loop;
1285: end if;
1286: end if;
1287: end if;
1288: hr_utility.set_location('poei_info5 ' || l_posei_data.poei_information5,1);
1289: hr_utility.set_location ('Leaving : ' || l_proc, 100);
1290:
1291: End fetch_positionei;
1292: --
1285: end if;
1286: end if;
1287: end if;
1288: hr_utility.set_location('poei_info5 ' || l_posei_data.poei_information5,1);
1289: hr_utility.set_location ('Leaving : ' || l_proc, 100);
1290:
1291: End fetch_positionei;
1292: --
1293: -- Procedure fetch_assignment fetches the last record from per_assignment or ghr_assignments_h_v
1314: select *
1315: from per_all_assignments_f
1316: where rowid = p_rowid;
1317: Begin
1318: hr_utility.set_location('Entering:'|| l_proc, 5);
1319: p_result_code := null;
1320: if ( p_rowid is not null ) then
1321: /* This part of the procedure is used to fetch the exact row
1322: which will be the post-update record. So if the procedure was
1322: which will be the post-update record. So if the procedure was
1323: passed with p_row_id parameter it'll always return the
1324: post-update record.
1325: */
1326: hr_utility.set_location( l_proc, 10);
1327: open per_assignment_f_rowid_cursor;
1328: fetch per_assignment_f_rowid_cursor into p_assignment_data;
1329: if ( per_assignment_f_rowid_cursor%NOTFOUND ) then
1330: p_result_code := c_not_found;
1329: if ( per_assignment_f_rowid_cursor%NOTFOUND ) then
1330: p_result_code := c_not_found;
1331: end if;
1332: close per_assignment_f_rowid_cursor;
1333: hr_utility.set_location( l_proc, 15);
1334: elsif ( p_pa_history_id is null and
1335: p_altered_pa_request_id is null and
1336: p_noa_id_corrected is null ) then
1337: /* This part of the procedure will fetch the Pre-record values
1340: will return the post-update record. The session variable
1341: pre-update-record will hold the values which can be used for
1342: pre-record values
1343: */
1344: hr_utility.set_location( l_proc, 20);
1345: open per_assignment_f_cursor;
1346: fetch per_assignment_f_cursor into p_assignment_data;
1347: if ( per_assignment_f_cursor%NOTFOUND ) then
1348: p_result_code := c_not_found;
1347: if ( per_assignment_f_cursor%NOTFOUND ) then
1348: p_result_code := c_not_found;
1349: end if;
1350: close per_assignment_f_cursor;
1351: hr_utility.set_location( l_proc, 25);
1352: else
1353: Fetch_hist_data(
1354: p_table_name => ghr_history_api.g_asgn_table,
1355: p_information1 => p_assignment_id,
1368: p_assignment_data := l_assignment_data;
1369: end if;
1370:
1371: end if;
1372: hr_utility.set_location(' Leaving:'||l_proc, 45);
1373: exception
1374: when no_data_found then
1375: p_result_code := c_not_found;
1376: when OTHERS then
1402: select *
1403: from pay_element_entries_f
1404: where rowid = p_rowid;
1405: Begin
1406: hr_utility.set_location('Entering:'|| l_proc, 5);
1407: p_result_code := null;
1408: if ( p_rowid is not null ) then
1409: /* This part of the procedure is used to fetch the exact row
1410: which will be the post-update record. So if the procedure was
1410: which will be the post-update record. So if the procedure was
1411: passed with p_row_id parameter it'll always return the
1412: post-update record.
1413: */
1414: hr_utility.set_location( l_proc, 10);
1415: open pay_e_entry_f_rowid_cursor;
1416: fetch pay_e_entry_f_rowid_cursor into p_element_entry_data;
1417: if ( pay_e_entry_f_rowid_cursor%NOTFOUND ) then
1418: p_result_code := c_not_found;
1417: if ( pay_e_entry_f_rowid_cursor%NOTFOUND ) then
1418: p_result_code := c_not_found;
1419: end if;
1420: close pay_e_entry_f_rowid_cursor;
1421: hr_utility.set_location( l_proc, 15);
1422: elsif ( p_pa_history_id is null and
1423: p_altered_pa_request_id is null and
1424: p_noa_id_corrected is null ) then
1425: /* This part of the procedure will fetch the Pre-record values
1428: will return the post-update record. The session variable
1429: pre-update-record will hold the values which can be used for
1430: pre-record values
1431: */
1432: hr_utility.set_location( l_proc, 20);
1433: open pay_e_entry_f_cursor;
1434: fetch pay_e_entry_f_cursor into p_element_entry_data;
1435: if ( pay_e_entry_f_cursor%NOTFOUND ) then
1436: p_result_code := c_not_found;
1436: p_result_code := c_not_found;
1437: end if;
1438: close pay_e_entry_f_cursor;
1439: else
1440: hr_utility.set_location( l_proc, 25);
1441: Fetch_hist_data(
1442: p_table_name => ghr_history_api.g_eleent_table,
1443: p_information1 => p_element_entry_id,
1444: p_date_effective => p_date_effective,
1455: p_element_entries_data => l_element_entry_data);
1456: p_element_entry_data := l_element_entry_data;
1457: end if;
1458: end if;
1459: hr_utility.set_location(' Leaving:'||l_proc, 45);
1460: exception
1461: when no_data_found then
1462: p_result_code := c_not_found;
1463: when OTHERS then
1489: select object_version_number
1490: from per_people_extra_info
1491: where person_extra_info_id = p_person_extra_info_id;
1492: Begin
1493: hr_utility.set_location('Entering:'|| l_proc, 5);
1494: hr_utility.set_location('extra info id:'|| to_char(p_person_extra_info_id) || l_proc, 6);
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1490: from per_people_extra_info
1491: where person_extra_info_id = p_person_extra_info_id;
1492: Begin
1493: hr_utility.set_location('Entering:'|| l_proc, 5);
1494: hr_utility.set_location('extra info id:'|| to_char(p_person_extra_info_id) || l_proc, 6);
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1491: where person_extra_info_id = p_person_extra_info_id;
1492: Begin
1493: hr_utility.set_location('Entering:'|| l_proc, 5);
1494: hr_utility.set_location('extra info id:'|| to_char(p_person_extra_info_id) || l_proc, 6);
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1492: Begin
1493: hr_utility.set_location('Entering:'|| l_proc, 5);
1494: hr_utility.set_location('extra info id:'|| to_char(p_person_extra_info_id) || l_proc, 6);
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1500: hr_utility.set_location(' p_pa_history_id:'||p_pa_history_id || l_proc, 51);
1493: hr_utility.set_location('Entering:'|| l_proc, 5);
1494: hr_utility.set_location('extra info id:'|| to_char(p_person_extra_info_id) || l_proc, 6);
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1500: hr_utility.set_location(' p_pa_history_id:'||p_pa_history_id || l_proc, 51);
1501: hr_utility.set_location(' p_person_extra_info_id:'||p_person_extra_info_id || l_proc, 52);
1494: hr_utility.set_location('extra info id:'|| to_char(p_person_extra_info_id) || l_proc, 6);
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1500: hr_utility.set_location(' p_pa_history_id:'||p_pa_history_id || l_proc, 51);
1501: hr_utility.set_location(' p_person_extra_info_id:'||p_person_extra_info_id || l_proc, 52);
1502: p_result_code := null;
1495: hr_utility.set_location('date_effective:'|| to_char(p_date_effective) || l_proc, 7);
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1500: hr_utility.set_location(' p_pa_history_id:'||p_pa_history_id || l_proc, 51);
1501: hr_utility.set_location(' p_person_extra_info_id:'||p_person_extra_info_id || l_proc, 52);
1502: p_result_code := null;
1503: if ( p_rowid is not null ) then
1496: hr_utility.set_location('noa_id_corrected:'|| to_char(p_noa_id_corrected) || l_proc, 8);
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1500: hr_utility.set_location(' p_pa_history_id:'||p_pa_history_id || l_proc, 51);
1501: hr_utility.set_location(' p_person_extra_info_id:'||p_person_extra_info_id || l_proc, 52);
1502: p_result_code := null;
1503: if ( p_rowid is not null ) then
1504: /* This part of the procedure is used to fetch the exact row
1497: hr_utility.set_location('altered_pa_request_id:'|| to_char(p_altered_pa_request_id) || l_proc, 9);
1498: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 48);
1499: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 49);
1500: hr_utility.set_location(' p_pa_history_id:'||p_pa_history_id || l_proc, 51);
1501: hr_utility.set_location(' p_person_extra_info_id:'||p_person_extra_info_id || l_proc, 52);
1502: p_result_code := null;
1503: if ( p_rowid is not null ) then
1504: /* This part of the procedure is used to fetch the exact row
1505: which will be the post-update record. So if the procedure was
1505: which will be the post-update record. So if the procedure was
1506: passed with p_row_id parameter it'll always return the
1507: post-update record.
1508: */
1509: hr_utility.set_location( l_proc, 10);
1510: open per_peopleei_rowid_cursor;
1511: fetch per_peopleei_rowid_cursor into p_peopleei_data;
1512: if ( per_peopleei_rowid_cursor%NOTFOUND ) then
1513: p_result_code := c_not_found;
1512: if ( per_peopleei_rowid_cursor%NOTFOUND ) then
1513: p_result_code := c_not_found;
1514: end if;
1515: close per_peopleei_rowid_cursor;
1516: hr_utility.set_location( l_proc, 15);
1517: else
1518: Fetch_hist_data(
1519: p_table_name => ghr_history_api.g_peopei_table,
1520: p_information1 => p_person_extra_info_id,
1526: p_result_code => l_result_code);
1527:
1528: p_result_code := l_result_code;
1529: if nvl(l_result_code, 'found') <> c_not_found then
1530: hr_utility.set_location (' NOT FOUND ' || l_result_code || l_proc, 90);
1531: ghr_history_conv_rg.conv_to_peopleei_rg(
1532: p_history_data => l_hist_data,
1533: p_people_ei_data => l_peopleei_data);
1534: p_peopleei_data := l_peopleei_data;
1540: end if;
1541: end if;
1542: end if;
1543:
1544: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 46);
1545: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 47);
1546: hr_utility.set_location(' Leaving:'||l_proc, 45);
1547: exception
1548: when no_data_found then
1541: end if;
1542: end if;
1543:
1544: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 46);
1545: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 47);
1546: hr_utility.set_location(' Leaving:'||l_proc, 45);
1547: exception
1548: when no_data_found then
1549: p_result_code := c_not_found;
1542: end if;
1543:
1544: hr_utility.set_location(' Information11:'|| p_peopleei_data.pei_information11 || l_proc, 46);
1545: hr_utility.set_location(' Information5:'||p_peopleei_data.pei_information5 || l_proc, 47);
1546: hr_utility.set_location(' Leaving:'||l_proc, 45);
1547: exception
1548: when no_data_found then
1549: p_result_code := c_not_found;
1550: when OTHERS then
1569: from per_assignment_extra_info aei
1570: where aei.assignment_id = p_assignment_id
1571: and aei.information_type = p_information_type;
1572: Begin
1573: hr_utility.set_location('Entering ' || l_proc,5);
1574: For extra_info in c_extra_info_id loop
1575: l_extra_info_id := extra_info.assignment_extra_info_id;
1576: End loop;
1577: If l_extra_info_id is not null then
1574: For extra_info in c_extra_info_id loop
1575: l_extra_info_id := extra_info.assignment_extra_info_id;
1576: End loop;
1577: If l_extra_info_id is not null then
1578: hr_utility.set_location(l_proc,10);
1579: ghr_history_api.get_g_session_var(l_session);
1580: ghr_history_fetch.fetch_asgei ( p_assignment_extra_info_id => l_extra_info_id,
1581: p_date_effective => p_date_effective,
1582: p_altered_pa_request_id => l_session.altered_pa_request_id,
1586: p_get_ovn_flag => 'Y',
1587: p_result_code => l_result
1588: );
1589: End if;
1590: hr_utility.set_location('Leaving ' ||l_proc,20);
1591: End fetch_asgei;
1592:
1593: Procedure fetch_peopleei(p_person_id in number,
1594: p_information_type in varchar2,
1608: from per_people_extra_info pei
1609: where pei.person_id = p_person_id
1610: and pei.information_type = p_information_type;
1611: Begin
1612: hr_utility.set_location('Entering ' || l_proc,5);
1613: For extra_info in c_extra_info_id loop
1614: l_extra_info_id := extra_info.person_extra_info_id;
1615: End loop;
1616: If l_extra_info_id is not null then
1613: For extra_info in c_extra_info_id loop
1614: l_extra_info_id := extra_info.person_extra_info_id;
1615: End loop;
1616: If l_extra_info_id is not null then
1617: hr_utility.set_location(l_proc,10);
1618: ghr_history_api.get_g_session_var(l_session);
1619: ghr_history_fetch.fetch_peopleei ( p_person_extra_info_id => l_extra_info_id,
1620: p_date_effective => p_date_effective,
1621: p_altered_pa_request_id => l_session.altered_pa_request_id,
1625: p_get_ovn_flag => 'Y',
1626: p_result_code => l_result
1627: );
1628: End if;
1629: hr_utility.set_location('Leaving ' ||l_proc,20);
1630: End fetch_peopleei;
1631:
1632: Procedure fetch_positionei(p_position_id in number,
1633: p_information_type in varchar2,
1651: and ghr_pos.information_type = p_information_type;
1652:
1653: Begin
1654: g_info_type := p_information_type;
1655: hr_utility.set_location('Entering ' || l_proc,5);
1656: hr_utility.set_location('FETCH: Position_id ' || p_position_id ||l_proc,6);
1657: hr_utility.set_location('FETCH: information_type ' || p_information_type || l_proc,7);
1658: for extra_info in c_extra_info_id loop
1659: l_extra_info_id := extra_info.position_extra_info_id;
1652:
1653: Begin
1654: g_info_type := p_information_type;
1655: hr_utility.set_location('Entering ' || l_proc,5);
1656: hr_utility.set_location('FETCH: Position_id ' || p_position_id ||l_proc,6);
1657: hr_utility.set_location('FETCH: information_type ' || p_information_type || l_proc,7);
1658: for extra_info in c_extra_info_id loop
1659: l_extra_info_id := extra_info.position_extra_info_id;
1660: end loop;
1653: Begin
1654: g_info_type := p_information_type;
1655: hr_utility.set_location('Entering ' || l_proc,5);
1656: hr_utility.set_location('FETCH: Position_id ' || p_position_id ||l_proc,6);
1657: hr_utility.set_location('FETCH: information_type ' || p_information_type || l_proc,7);
1658: for extra_info in c_extra_info_id loop
1659: l_extra_info_id := extra_info.position_extra_info_id;
1660: end loop;
1661: If l_extra_info_id is not null then
1658: for extra_info in c_extra_info_id loop
1659: l_extra_info_id := extra_info.position_extra_info_id;
1660: end loop;
1661: If l_extra_info_id is not null then
1662: hr_utility.set_location(l_proc,10);
1663: ghr_history_api.get_g_session_var(l_session);
1664: ghr_history_fetch.fetch_positionei(p_position_extra_info_id => l_extra_info_id,
1665: p_date_effective => p_date_effective,
1666: p_altered_pa_request_id => l_session.altered_pa_request_id,
1670: p_get_ovn_flag => 'Y',
1671: p_result_code => l_result
1672: );
1673: End if;
1674: hr_utility.set_location('Leaving ' ||l_proc,20);
1675: End fetch_positionei;
1676: -- The following procedure gets the date_effective row from the
1677: -- ghr_pa_history for the element_entry_values table.
1678: --VSM (What about this procedure) ??
1685: -- l_result Boolean;
1686: l_proc varchar2(30) := 'get_date_eff_eleevl';
1687: l_element_entval_data pay_element_entry_values_f%rowtype;
1688: BEGIN
1689: hr_utility.set_location( l_proc, 20);
1690: fetch_for_date_eff(
1691: p_table_name => ghr_history_api.g_eleevl_table,
1692: p_information1 => p_element_entry_value_id,
1693: p_date_effective => p_date_effective,
1693: p_date_effective => p_date_effective,
1694: p_hist_data => l_hist_data,
1695: p_result_code => p_result_code);
1696: p_pa_history_id := l_hist_data.pa_history_id;
1697: hr_utility.set_location( l_proc, 75);
1698: ghr_history_conv_rg.conv_to_element_entval_rg(
1699: p_history_data => l_hist_data,
1700: p_element_entval_data => l_element_entval_data );
1701: p_element_entry_data := l_element_entval_data;
1698: ghr_history_conv_rg.conv_to_element_entval_rg(
1699: p_history_data => l_hist_data,
1700: p_element_entval_data => l_element_entval_data );
1701: p_element_entry_data := l_element_entval_data;
1702: hr_utility.set_location( l_proc, 25);
1703: END get_date_eff_eleevl;
1704:
1705: Procedure fetch_element_entry_value (
1706: p_element_entry_value_id in number default null,
1725: from pay_element_entry_values_f
1726: where rowid = p_rowid;
1727:
1728: Begin
1729: hr_utility.set_location('Entering:'|| l_proc, 5);
1730: p_result_code := null;
1731: if ( p_rowid is not null ) then
1732: /* This part of the procedure is used to fetch the exact row
1733: which will be the post-update record. So if the procedure was
1733: which will be the post-update record. So if the procedure was
1734: passed with p_row_id parameter it'll always return the
1735: post-update record.
1736: */
1737: hr_utility.set_location( l_proc, 10);
1738: open pay_e_entry_val_f_rowid;
1739: fetch pay_e_entry_val_f_rowid into p_element_entry_data;
1740: if ( pay_e_entry_val_f_rowid%NOTFOUND ) then
1741: p_result_code := c_not_found;
1740: if ( pay_e_entry_val_f_rowid%NOTFOUND ) then
1741: p_result_code := c_not_found;
1742: end if;
1743: close pay_e_entry_val_f_rowid;
1744: hr_utility.set_location( l_proc, 15);
1745: elsif ( p_pa_history_id is null and
1746: p_altered_pa_request_id is null and
1747: p_noa_id_corrected is null ) then
1748: /* This part of the procedure will fetch the Pre-record values
1751: will return the post-update record. The session variable
1752: pre-update-record will hold the values which can be used for
1753: pre-record values
1754: */
1755: hr_utility.set_location( l_proc, 20);
1756: open pay_e_entry_value_f_cursor;
1757: fetch pay_e_entry_value_f_cursor into p_element_entry_data;
1758: if ( pay_e_entry_value_f_cursor%NOTFOUND ) then
1759: p_result_code := c_not_found;
1759: p_result_code := c_not_found;
1760: end if;
1761: close pay_e_entry_value_f_cursor;
1762: else
1763: hr_utility.set_location( l_proc, 25);
1764: Fetch_hist_data(
1765: p_table_name => ghr_history_api.g_eleevl_table,
1766: p_information1 => p_element_entry_value_id,
1767: p_date_effective => p_date_effective,
1778: p_element_entval_data => l_element_entval_data);
1779: p_element_entry_data := l_element_entval_data;
1780: end if;
1781: end if;
1782: hr_utility.set_location(' Leaving:'||l_proc, 45);
1783: exception
1784: when no_data_found then
1785: p_result_code := c_not_found;
1786: when OTHERS then
1849: l_new_element_name VARCHAR2(80);
1850: --
1851:
1852: begin
1853: hr_utility.set_location('Entering ' || l_proc,5);
1854: -- Initialization
1855: ghr_history_api.get_g_session_var(l_session);
1856: ll_effective_date := p_date_effective;
1857: -- Pick the business group id and also pay basis for later use
1871:
1872:
1873: IF (p_element_name = 'Basic Salary Rate'
1874: and (fnd_profile.value('HR_USER_TYPE') = 'INT')) THEN
1875: hr_utility.set_location('PAYROLL User -- BSR -- from asgid-- ' || l_proc, 5);
1876: l_new_element_name :=
1877: pqp_fedhr_uspay_int_utils.return_new_element_name(
1878: p_assignment_id => p_assignment_id,
1879: p_business_group_id => ll_bg_id,
1879: p_business_group_id => ll_bg_id,
1880: p_effective_date => ll_effective_date);
1881: ELSIF (fnd_profile.value('HR_USER_TYPE') <> 'INT'
1882: or (p_element_name <> 'Basic Salary Rate' and (fnd_profile.value('HR_USER_TYPE') = 'INT'))) THEN
1883: hr_utility.set_location('HR USER or PAYROLL User without BSR element -- from elt name -- ' || l_proc, 5);
1884: l_new_element_name :=
1885: pqp_fedhr_uspay_int_utils.return_new_element_name(
1886: p_fedhr_element_name => p_element_name,
1887: p_business_group_id => ll_bg_id,
1916: ll_bg_id)
1917: loop
1918: l_element_entry_value_id := fetch_elv_id.element_entry_value_id;
1919: If l_element_entry_value_id is not null then
1920: hr_utility.set_location(l_proc || 'inside cursor '|| to_char(l_element_entry_value_id) ,6);
1921: fetch_element_entry_value(
1922: p_element_entry_value_id => l_element_entry_value_id,
1923: p_date_effective => p_date_effective,
1924: p_altered_pa_request_id => l_session.altered_pa_request_id,
1927: p_element_entry_data => l_element_entry_data,
1928: p_result_code => l_result
1929: );
1930: Else
1931: hr_utility.set_location(l_proc || 'before exit',7);
1932: exit;
1933: End if;
1934: If nvl(lower(l_result),hr_api.g_varchar2) <> c_not_found then
1935: hr_utility.set_location(l_proc || 'l_result' || l_result,8);
1931: hr_utility.set_location(l_proc || 'before exit',7);
1932: exit;
1933: End if;
1934: If nvl(lower(l_result),hr_api.g_varchar2) <> c_not_found then
1935: hr_utility.set_location(l_proc || 'l_result' || l_result,8);
1936: p_screen_entry_value := l_element_entry_data.screen_entry_value;
1937: hr_utility.set_location(l_proc || 'Value' || l_element_entry_data.screen_entry_value,8);
1938: exit;
1939: End if;
1933: End if;
1934: If nvl(lower(l_result),hr_api.g_varchar2) <> c_not_found then
1935: hr_utility.set_location(l_proc || 'l_result' || l_result,8);
1936: p_screen_entry_value := l_element_entry_data.screen_entry_value;
1937: hr_utility.set_location(l_proc || 'Value' || l_element_entry_data.screen_entry_value,8);
1938: exit;
1939: End if;
1940: End loop;
1941: End if;
2064: ll_pay_basis VARCHAR2(80);
2065: l_new_element_name VARCHAR2(80);
2066: --
2067: begin
2068: hr_utility.set_location('Entering:'||l_proc, 1);
2069: ghr_history_api.get_g_session_var(l_session);
2070: -- Pick pay basis from PAR
2071:
2072: For BG_rec in Cur_BG(p_assignment_id,p_effective_date)
2084: ----
2085:
2086: IF (p_element_name = 'Basic Salary Rate'
2087: and (fnd_profile.value('HR_USER_TYPE') = 'INT')) THEN
2088: hr_utility.set_location('PAYROLL User -- BSR -- from asgid-- '||l_proc, 1);
2089: l_new_element_name :=
2090: pqp_fedhr_uspay_int_utils.return_new_element_name(
2091: p_assignment_id => p_assignment_id,
2092: p_business_group_id => ll_bg_id,
2092: p_business_group_id => ll_bg_id,
2093: p_effective_date => ll_effective_date);
2094: ELSIF (fnd_profile.value('HR_USER_TYPE') <> 'INT'
2095: or (p_element_name <> 'Basic Salary Rate' and (fnd_profile.value('HR_USER_TYPE') = 'INT'))) THEN
2096: hr_utility.set_location('HR USER or PAYROLL User without BSR element -- from elt name -- '||l_proc, 1);
2097: l_new_element_name :=
2098: pqp_fedhr_uspay_int_utils.return_new_element_name(
2099: p_fedhr_element_name => p_element_name,
2100: p_business_group_id => ll_bg_id,
2104: END IF;
2105:
2106: --
2107: --
2108: hr_utility.trace('NEW ELE NAME- ghhisfet.pkb is '||l_new_element_name);
2109: -- commenting this and using the same above
2110: -- ghr_history_api.get_g_session_var(l_session);
2111: l_input_value_id := Null;
2112: l_element_entry_id := Null;
2110: -- ghr_history_api.get_g_session_var(l_session);
2111: l_input_value_id := Null;
2112: l_element_entry_id := Null;
2113: --
2114: hr_utility.set_location('Element - CORRECTION ' ,1);
2115: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2111: l_input_value_id := Null;
2112: l_element_entry_id := Null;
2113: --
2114: hr_utility.set_location('Element - CORRECTION ' ,1);
2115: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2119: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2112: l_element_entry_id := Null;
2113: --
2114: hr_utility.set_location('Element - CORRECTION ' ,1);
2115: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2119: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2120: -- hr_utility.set_location('Eff. Date ' || p_effective_date,5);
2113: --
2114: hr_utility.set_location('Element - CORRECTION ' ,1);
2115: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2119: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2120: -- hr_utility.set_location('Eff. Date ' || p_effective_date,5);
2121:
2114: hr_utility.set_location('Element - CORRECTION ' ,1);
2115: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2119: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2120: -- hr_utility.set_location('Eff. Date ' || p_effective_date,5);
2121:
2122: for ele_type in c_ele_type(l_new_element_name
2115: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2119: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2120: -- hr_utility.set_location('Eff. Date ' || p_effective_date,5);
2121:
2122: for ele_type in c_ele_type(l_new_element_name
2123: ,ll_bg_id)
2116: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2117: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2118: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2119: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2120: -- hr_utility.set_location('Eff. Date ' || p_effective_date,5);
2121:
2122: for ele_type in c_ele_type(l_new_element_name
2123: ,ll_bg_id)
2124: loop
2121:
2122: for ele_type in c_ele_type(l_new_element_name
2123: ,ll_bg_id)
2124: loop
2125: hr_utility.set_location(l_proc ,20);
2126: l_element_type_id := ele_type.element_type_id;
2127: l_processing_type := ele_type.processing_type;
2128: hr_utility.set_location('proc type ' || l_processing_type,2);
2129: end loop;
2124: loop
2125: hr_utility.set_location(l_proc ,20);
2126: l_element_type_id := ele_type.element_type_id;
2127: l_processing_type := ele_type.processing_type;
2128: hr_utility.set_location('proc type ' || l_processing_type,2);
2129: end loop;
2130:
2131: If nvl(l_processing_type,hr_api.g_varchar2) = 'R' then
2132: For fetch_elv_id in fetch_element_entry_value_id(
2134: ,ll_bg_id)
2135: loop
2136: l_element_entry_value_id := fetch_elv_id.element_entry_value_id;
2137: If l_element_entry_value_id is not null then
2138: hr_utility.set_location(l_proc || 'inside cursor '|| to_char(l_element_entry_value_id) ,6);
2139:
2140: fetch_element_entry_value(p_element_entry_value_id => l_element_entry_value_id,
2141: p_date_effective => p_effective_date,
2142: p_altered_pa_request_id => l_session.altered_pa_request_id,
2152: p_element_entry_id := l_element_entry_id;
2153: p_value := l_element_entry_data.screen_entry_value;
2154:
2155: Else
2156: hr_utility.set_location(l_proc || 'before exit',7);
2157: exit;
2158: End if;
2159: If nvl(lower(l_result),hr_api.g_varchar2) <> c_not_found then
2160: hr_utility.set_location(l_proc || 'l_result' || l_result,8);
2156: hr_utility.set_location(l_proc || 'before exit',7);
2157: exit;
2158: End if;
2159: If nvl(lower(l_result),hr_api.g_varchar2) <> c_not_found then
2160: hr_utility.set_location(l_proc || 'l_result' || l_result,8);
2161: p_value := l_element_entry_data.screen_entry_value;
2162: hr_utility.set_location(l_proc || 'Value' || l_element_entry_data.screen_entry_value,8);
2163: exit;
2164: End if;
2158: End if;
2159: If nvl(lower(l_result),hr_api.g_varchar2) <> c_not_found then
2160: hr_utility.set_location(l_proc || 'l_result' || l_result,8);
2161: p_value := l_element_entry_data.screen_entry_value;
2162: hr_utility.set_location(l_proc || 'Value' || l_element_entry_data.screen_entry_value,8);
2163: exit;
2164: End if;
2165: End loop;
2166:
2164: End if;
2165: End loop;
2166:
2167: Elsif nvl(l_processing_type,hr_api.g_varchar2) = 'N' then
2168: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2169: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2165: End loop;
2166:
2167: Elsif nvl(l_processing_type,hr_api.g_varchar2) = 'N' then
2168: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2169: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2173: hr_utility.set_location('Eff. Date ' || (p_effective_date),5);
2166:
2167: Elsif nvl(l_processing_type,hr_api.g_varchar2) = 'N' then
2168: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2169: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2173: hr_utility.set_location('Eff. Date ' || (p_effective_date),5);
2174: hr_utility.set_location('Element type id ' || to_char(l_element_type_id),1);
2167: Elsif nvl(l_processing_type,hr_api.g_varchar2) = 'N' then
2168: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2169: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2173: hr_utility.set_location('Eff. Date ' || (p_effective_date),5);
2174: hr_utility.set_location('Element type id ' || to_char(l_element_type_id),1);
2175:
2168: hr_utility.set_location('NOA ID COR ' || to_char(l_session.noa_id_correct),1);
2169: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2173: hr_utility.set_location('Eff. Date ' || (p_effective_date),5);
2174: hr_utility.set_location('Element type id ' || to_char(l_element_type_id),1);
2175:
2176: /*
2169: hr_utility.set_location('PAR ID COR ' || to_char(l_session.altered_pa_request_id),1);
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2173: hr_utility.set_location('Eff. Date ' || (p_effective_date),5);
2174: hr_utility.set_location('Element type id ' || to_char(l_element_type_id),1);
2175:
2176: /*
2177: If it is a correction action, then we have to read the
2170: hr_utility.set_location('Element Name ' || l_new_element_name,2);
2171: hr_utility.set_location('IV Name ' || p_input_value_name,3);
2172: hr_utility.set_location('Asg id ' || to_char(p_assignment_id),4);
2173: hr_utility.set_location('Eff. Date ' || (p_effective_date),5);
2174: hr_utility.set_location('Element type id ' || to_char(l_element_type_id),1);
2175:
2176: /*
2177: If it is a correction action, then we have to read the
2178: element values from the history table to get the correct data
2184: ,p_input_value_name
2185: ,p_assignment_id
2186: ,p_effective_date
2187: ,ll_bg_id) loop
2188: hr_utility.set_location('Element In.Val. Id ' || ele_info_cor.input_value_id,3);
2189: hr_utility.set_location('Element entry Id ' || ele_info_cor.element_entry_id,3);
2190: l_input_value_id := ele_info_cor.input_value_id;
2191: p_element_link_id := ele_info_cor.element_link_id;
2192: l_element_entry_id := ele_info_cor.element_entry_id;
2185: ,p_assignment_id
2186: ,p_effective_date
2187: ,ll_bg_id) loop
2188: hr_utility.set_location('Element In.Val. Id ' || ele_info_cor.input_value_id,3);
2189: hr_utility.set_location('Element entry Id ' || ele_info_cor.element_entry_id,3);
2190: l_input_value_id := ele_info_cor.input_value_id;
2191: p_element_link_id := ele_info_cor.element_link_id;
2192: l_element_entry_id := ele_info_cor.element_entry_id;
2193: l_pa_request_id := ele_info_cor.pa_request_id;
2204: End if;
2205:
2206: if l_element_entry_id is not null then
2207: for ele_ovn in c_ele_ovn loop
2208: hr_utility.set_location(l_proc || 'retrieve_element_cor ',1);
2209: p_object_version_number := ele_ovn.object_version_number;
2210: end loop;
2211: if l_input_value_id is not null then -- l_input_value_id would anyway have a value only for Non Rec. Elements.
2212: hr_utility.set_location(l_proc || 'get eev',2);
2208: hr_utility.set_location(l_proc || 'retrieve_element_cor ',1);
2209: p_object_version_number := ele_ovn.object_version_number;
2210: end loop;
2211: if l_input_value_id is not null then -- l_input_value_id would anyway have a value only for Non Rec. Elements.
2212: hr_utility.set_location(l_proc || 'get eev',2);
2213: for screen_value in c_gev loop
2214: p_value := screen_value.screen_entry_value;
2215: hr_utility.set_location('Scr. value is ' || screen_value.screen_entry_value,1);
2216: end loop;
2211: if l_input_value_id is not null then -- l_input_value_id would anyway have a value only for Non Rec. Elements.
2212: hr_utility.set_location(l_proc || 'get eev',2);
2213: for screen_value in c_gev loop
2214: p_value := screen_value.screen_entry_value;
2215: hr_utility.set_location('Scr. value is ' || screen_value.screen_entry_value,1);
2216: end loop;
2217: end if;
2218: end if;
2219:
2239: from per_addresses
2240: where rowid = p_rowid;
2241:
2242: begin
2243: hr_utility.set_location('Entering:'|| l_proc, 5);
2244: p_result_code := null;
2245: if ( p_rowid is not null ) then
2246: /* This part of the procedure is used to fetch the exact row
2247: which will be the post-update record. So if the procedure was
2247: which will be the post-update record. So if the procedure was
2248: passed with p_row_id parameter it'll always return the
2249: post-update record.
2250: */
2251: hr_utility.set_location( l_proc, 10);
2252: open per_address_rowid_cursor;
2253: fetch per_address_rowid_cursor into p_address_data;
2254: if ( per_address_rowid_cursor%NOTFOUND ) then
2255: p_result_code := c_not_found;
2254: if ( per_address_rowid_cursor%NOTFOUND ) then
2255: p_result_code := c_not_found;
2256: end if;
2257: close per_address_rowid_cursor;
2258: hr_utility.set_location( l_proc, 15);
2259: else
2260:
2261: Fetch_hist_data(
2262: p_table_name => ghr_history_api.g_addres_table,
2275: p_addresses_data => l_address_data);
2276: p_address_data := l_address_data;
2277: end if;
2278: end if;
2279: hr_utility.set_location(' Leaving:'||l_proc, 45);
2280: exception
2281: when no_data_found then
2282: p_result_code := c_not_found;
2283: when OTHERS then
2304: select *
2305: from per_person_analyses
2306: where rowid = p_rowid;
2307: Begin
2308: hr_utility.set_location('Entering:'|| l_proc, 5);
2309: p_result_code := null;
2310: if ( p_rowid is not null ) then
2311: /* This part of the procedure is used to fetch the exact row
2312: which will be the post-update record. So if the procedure was
2312: which will be the post-update record. So if the procedure was
2313: passed with p_row_id parameter it'll always return the
2314: post-update record.
2315: */
2316: hr_utility.set_location( l_proc, 10);
2317: open per_peranalyses_rowid_cursor;
2318: fetch per_peranalyses_rowid_cursor into p_peranalyses_data;
2319: if ( per_peranalyses_rowid_cursor%NOTFOUND ) then
2320: p_result_code := c_not_found;
2319: if ( per_peranalyses_rowid_cursor%NOTFOUND ) then
2320: p_result_code := c_not_found;
2321: end if;
2322: close per_peranalyses_rowid_cursor;
2323: hr_utility.set_location( l_proc, 15);
2324: else
2325:
2326: Fetch_hist_data(
2327: p_table_name => ghr_history_api.g_perana_table,
2341: p_peranalyses_data := l_peranalyses_data;
2342: end if;
2343:
2344: end if;
2345: hr_utility.set_location(' Leaving:'||l_proc, 45);
2346: exception
2347: when no_data_found then
2348: p_result_code := c_not_found;
2349: when OTHERS then
2423: r_poi per_position_extra_info%rowtype;
2424: l_proc varchar2(30):='fetch_positionei (1)';
2425: l_result_code varchar2(30);
2426: Begin
2427: hr_utility.set_location('Entering :' || l_proc, 10);
2428: ghr_history_fetch.fetch_positionei(
2429: p_position_extra_info_id => p_position_extra_info_id
2430: , p_date_effective => p_date_effective
2431: , p_posei_data => r_poi
2429: p_position_extra_info_id => p_position_extra_info_id
2430: , p_date_effective => p_date_effective
2431: , p_posei_data => r_poi
2432: , p_result_code => p_result_code);
2433: hr_utility.set_location(l_proc, 20);
2434: p_position_extra_info_id := r_poi.position_extra_info_id;
2435: p_position_id := r_poi.position_id;
2436: p_information_type := r_poi.information_type;
2437: p_request_id := r_poi.request_id;
2495: p_last_updated_by := r_poi.last_updated_by;
2496: p_last_update_login := r_poi.last_update_login;
2497: p_created_by := r_poi.created_by;
2498: p_creation_date := r_poi.creation_date;
2499: hr_utility.set_location('Leaving :' || l_proc, 100);
2500: end fetch_positionei;
2501:
2502: --
2503: -- Procedure fetches the last record from per_positions or
2545: l_hist_data ghr_pa_history%rowtype;
2546: l_proc varchar2(30):='fetch_positionei';
2547:
2548: Begin
2549: hr_utility.set_location('Entering:'|| l_proc, 5);
2550: p_result_code := null;
2551: if ( p_rowid is not null ) then
2552: hr_utility.set_location( l_proc, 10);
2553: open per_posn_f_rowid_cursor;
2548: Begin
2549: hr_utility.set_location('Entering:'|| l_proc, 5);
2550: p_result_code := null;
2551: if ( p_rowid is not null ) then
2552: hr_utility.set_location( l_proc, 10);
2553: open per_posn_f_rowid_cursor;
2554: fetch per_posn_f_rowid_cursor into p_position_data;
2555: if ( per_posn_f_rowid_cursor%NOTFOUND ) then
2556: p_result_code := c_not_found;
2555: if ( per_posn_f_rowid_cursor%NOTFOUND ) then
2556: p_result_code := c_not_found;
2557: end if;
2558: close per_posn_f_rowid_cursor;
2559: hr_utility.set_location( l_proc, 15);
2560: else
2561: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
2562: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
2563: hr_utility.set_location( l_proc || 'position_id: ' || p_position_id, 215);
2557: end if;
2558: close per_posn_f_rowid_cursor;
2559: hr_utility.set_location( l_proc, 15);
2560: else
2561: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
2562: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
2563: hr_utility.set_location( l_proc || 'position_id: ' || p_position_id, 215);
2564:
2565: Fetch_hist_data(
2558: close per_posn_f_rowid_cursor;
2559: hr_utility.set_location( l_proc, 15);
2560: else
2561: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
2562: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
2563: hr_utility.set_location( l_proc || 'position_id: ' || p_position_id, 215);
2564:
2565: Fetch_hist_data(
2566: p_table_name => ghr_history_api.g_posn_table,
2559: hr_utility.set_location( l_proc, 15);
2560: else
2561: hr_utility.set_location( l_proc || 'altered_pa_request_id: ' || p_altered_pa_request_id, 115);
2562: hr_utility.set_location( l_proc || 'noa_id_corrected: ' || p_noa_id_corrected, 215);
2563: hr_utility.set_location( l_proc || 'position_id: ' || p_position_id, 215);
2564:
2565: Fetch_hist_data(
2566: p_table_name => ghr_history_api.g_posn_table,
2567: p_information1 => p_position_id,
2589: exit;
2590: end loop;
2591: end if;
2592: end if;
2593: hr_utility.set_location ('Leaving : ' || l_proc, 100);
2594:
2595: End fetch_position;
2596:
2597: procedure fetch_peopleei (
2667: r_pei per_people_extra_info%rowtype;
2668: l_proc varchar2(30):='fetch_peopleei (1)';
2669: l_result_code varchar2(30);
2670: Begin
2671: hr_utility.set_location(' Entering : ' || l_proc, 10);
2672: ghr_history_fetch.fetch_peopleei(
2673: p_person_extra_info_id => p_person_extra_info_id
2674: , p_date_effective => p_date_effective
2675: , p_peopleei_data => r_pei
2674: , p_date_effective => p_date_effective
2675: , p_peopleei_data => r_pei
2676: , p_result_code => p_result_code);
2677:
2678: hr_utility.set_location( l_proc, 20);
2679: p_person_extra_info_id := r_pei.person_extra_info_id;
2680: p_person_id := r_pei.person_id;
2681: p_information_type := r_pei.information_type;
2682: p_request_id := r_pei.request_id;
2740: p_last_updated_by := r_pei.last_updated_by;
2741: p_last_update_login := r_pei.last_update_login;
2742: p_created_by := r_pei.created_by;
2743: p_creation_date := r_pei.creation_date;
2744: hr_utility.set_location(' Leaving : ' || l_proc, 100);
2745: end fetch_peopleei ;
2746:
2747: procedure fetch_asgei (
2748: p_assignment_extra_info_id in out nocopy number
2817: r_aei per_assignment_extra_info%rowtype;
2818: l_proc varchar2(30):='fetch_asgei (1)';
2819: l_result_code varchar2(30);
2820: Begin
2821: hr_utility.set_location(' Entering : ' || l_proc, 10);
2822: ghr_history_fetch.fetch_asgei(
2823: p_assignment_extra_info_id => p_assignment_extra_info_id
2824: , p_date_effective => p_date_effective
2825: , p_asgei_data => r_aei
2824: , p_date_effective => p_date_effective
2825: , p_asgei_data => r_aei
2826: , p_result_code => p_result_code);
2827:
2828: hr_utility.set_location( l_proc, 20);
2829: p_assignment_extra_info_id := r_aei.assignment_extra_info_id;
2830: p_assignment_id := r_aei.assignment_id;
2831: p_information_type := r_aei.information_type;
2832: p_request_id := r_aei.request_id;
2890: p_last_updated_by := r_aei.last_updated_by;
2891: p_last_update_login := r_aei.last_update_login;
2892: p_created_by := r_aei.created_by;
2893: p_creation_date := r_aei.creation_date;
2894: hr_utility.set_location(' Leaving : ' || l_proc, 100);
2895: end fetch_asgei ;
2896:
2897:
2898: -- ---------------------------------------------------------------------------
2997: l_id_flex_num := flex_num.id_flex_num;
2998: END LOOP;
2999:
3000: IF l_id_flex_num IS NULL THEN
3001: hr_utility.set_message(8301,'GHR_38275_INV_SP_INFO_TYPE');
3002: hr_utility.raise_error;
3003: END IF;
3004:
3005: hr_utility.set_location('got here 1234', 4777);
2998: END LOOP;
2999:
3000: IF l_id_flex_num IS NULL THEN
3001: hr_utility.set_message(8301,'GHR_38275_INV_SP_INFO_TYPE');
3002: hr_utility.raise_error;
3003: END IF;
3004:
3005: hr_utility.set_location('got here 1234', 4777);
3006: hr_utility.set_location('p_person_id: ' || p_person_id, 4777);
3001: hr_utility.set_message(8301,'GHR_38275_INV_SP_INFO_TYPE');
3002: hr_utility.raise_error;
3003: END IF;
3004:
3005: hr_utility.set_location('got here 1234', 4777);
3006: hr_utility.set_location('p_person_id: ' || p_person_id, 4777);
3007: hr_utility.set_location('l_id_flex_num: ' || l_id_flex_num, 4777);
3008: hr_utility.set_location('l_session.noa_id_correct: ' || l_session.noa_id_correct, 4777);
3009: hr_utility.set_location('l_session.altered_pa_request_id: ' || l_session.altered_pa_request_id, 4777);
3002: hr_utility.raise_error;
3003: END IF;
3004:
3005: hr_utility.set_location('got here 1234', 4777);
3006: hr_utility.set_location('p_person_id: ' || p_person_id, 4777);
3007: hr_utility.set_location('l_id_flex_num: ' || l_id_flex_num, 4777);
3008: hr_utility.set_location('l_session.noa_id_correct: ' || l_session.noa_id_correct, 4777);
3009: hr_utility.set_location('l_session.altered_pa_request_id: ' || l_session.altered_pa_request_id, 4777);
3010:
3003: END IF;
3004:
3005: hr_utility.set_location('got here 1234', 4777);
3006: hr_utility.set_location('p_person_id: ' || p_person_id, 4777);
3007: hr_utility.set_location('l_id_flex_num: ' || l_id_flex_num, 4777);
3008: hr_utility.set_location('l_session.noa_id_correct: ' || l_session.noa_id_correct, 4777);
3009: hr_utility.set_location('l_session.altered_pa_request_id: ' || l_session.altered_pa_request_id, 4777);
3010:
3011: FOR per_analyses IN c_person_analyses LOOP
3004:
3005: hr_utility.set_location('got here 1234', 4777);
3006: hr_utility.set_location('p_person_id: ' || p_person_id, 4777);
3007: hr_utility.set_location('l_id_flex_num: ' || l_id_flex_num, 4777);
3008: hr_utility.set_location('l_session.noa_id_correct: ' || l_session.noa_id_correct, 4777);
3009: hr_utility.set_location('l_session.altered_pa_request_id: ' || l_session.altered_pa_request_id, 4777);
3010:
3011: FOR per_analyses IN c_person_analyses LOOP
3012: --Bug 3103339
3005: hr_utility.set_location('got here 1234', 4777);
3006: hr_utility.set_location('p_person_id: ' || p_person_id, 4777);
3007: hr_utility.set_location('l_id_flex_num: ' || l_id_flex_num, 4777);
3008: hr_utility.set_location('l_session.noa_id_correct: ' || l_session.noa_id_correct, 4777);
3009: hr_utility.set_location('l_session.altered_pa_request_id: ' || l_session.altered_pa_request_id, 4777);
3010:
3011: FOR per_analyses IN c_person_analyses LOOP
3012: --Bug 3103339
3013: l_pa_request_id := per_analyses.pa_request_id;
3024: END IF;
3025: --Bug 3103339
3026: END LOOP;
3027:
3028: hr_utility.set_location('got here 1235', 4778);
3029:
3030: -- get ovn
3031:
3032: FOR pan_ovn IN c_pan_ovn LOOP
3032: FOR pan_ovn IN c_pan_ovn LOOP
3033: p_special_info.object_version_number := pan_ovn.object_version_number;
3034: END LOOP;
3035:
3036: hr_utility.set_location('got here 1236', 4779);
3037:
3038: FOR special_info IN c_sit LOOP
3039: p_special_info.segment1 := special_info.segment1;
3040: p_special_info.segment2 := special_info.segment2;
3067: p_special_info.segment29 := special_info.segment29;
3068: p_special_info.segment30 := special_info.segment30;
3069: END LOOP;
3070:
3071: hr_utility.set_location('got here 1237', 4780);
3072: End return_special_information;
3073:
3074: Procedure Fetch_ASGEI_prior_root_sf50
3075: (
3106: l_result_code varchar2(30);
3107: l_proc varchar2(30):='Fetch_ASGEI_asof_root_sf50';
3108:
3109: Begin
3110: hr_utility.set_location('Entering ' || l_proc,5);
3111: For extra_info in c_extra_info_id loop
3112: l_extra_info_id := extra_info.assignment_extra_info_id;
3113: End loop;
3114: If l_extra_info_id is null then
3111: For extra_info in c_extra_info_id loop
3112: l_extra_info_id := extra_info.assignment_extra_info_id;
3113: End loop;
3114: If l_extra_info_id is null then
3115: hr_utility.set_location('EI Not Found ' || l_proc, 20);
3116: return;
3117: end if;
3118:
3119: open get_root_hist_id( p_altered_pa_request_id, p_noa_id_corrected);
3119: open get_root_hist_id( p_altered_pa_request_id, p_noa_id_corrected);
3120: fetch get_root_hist_id into l_pa_history_id;
3121: if get_root_hist_id%NotFound then
3122: close get_root_hist_id;
3123: hr_utility.set_location('Root History Not Found ' || l_proc, 30);
3124: return;
3125: else
3126: close get_root_hist_id;
3127: hr_utility.set_location('Calling Fetch_asgei ' || l_proc, 50);
3123: hr_utility.set_location('Root History Not Found ' || l_proc, 30);
3124: return;
3125: else
3126: close get_root_hist_id;
3127: hr_utility.set_location('Calling Fetch_asgei ' || l_proc, 50);
3128: fetch_asgei (
3129: p_assignment_extra_info_id => l_extra_info_id,
3130: p_date_effective => p_date_effective,
3131: p_pa_history_id => l_pa_history_id,
3132: p_get_ovn_flag => p_get_ovn_flag,
3133: p_asgei_data => p_asgei_data,
3134: p_result_code => l_result_code);
3135: end if;
3136: hr_utility.set_location('Leaving ' || l_proc, 100);
3137:
3138: End Fetch_ASGEI_prior_root_sf50;
3139:
3140:
3166: l_result_code varchar2(30);
3167: l_proc varchar2(30):='Fetch_asgn_prior_root_sf50';
3168:
3169: Begin
3170: hr_utility.set_location('Entering ' || l_proc,5);
3171:
3172: open get_root_hist_id( p_altered_pa_request_id, p_noa_id_corrected);
3173: fetch get_root_hist_id into l_pa_history_id;
3174: if get_root_hist_id%NotFound then
3172: open get_root_hist_id( p_altered_pa_request_id, p_noa_id_corrected);
3173: fetch get_root_hist_id into l_pa_history_id;
3174: if get_root_hist_id%NotFound then
3175: close get_root_hist_id;
3176: hr_utility.set_location('Root History Not Found ' || l_proc, 30);
3177: return;
3178: else
3179: close get_root_hist_id;
3180: hr_utility.set_location('Calling Fetch_asgn ' || l_proc, 50);
3176: hr_utility.set_location('Root History Not Found ' || l_proc, 30);
3177: return;
3178: else
3179: close get_root_hist_id;
3180: hr_utility.set_location('Calling Fetch_asgn ' || l_proc, 50);
3181: fetch_assignment (
3182: p_assignment_id => p_assignment_id,
3183: p_date_effective => p_date_effective,
3184: p_pa_history_id => l_pa_history_id,
3185: --p_get_ovn_flag => p_get_ovn_flag,
3186: p_assignment_data => p_assignment_data,
3187: p_result_code => l_result_code);
3188: end if;
3189: hr_utility.set_location('Leaving ' || l_proc, 100);
3190:
3191: End Fetch_asgn_prior_root_sf50;
3192:
3193: End GHR_HISTORY_FETCH;