[Home] [Help]
235: ELSE
236: --Bug#3726290 close the RPA, if p_result <> 'NOT EXISTS'
237: fnd_profile.get('USERNAME',l_user_name);
238: --bug#4896738
239: --hr_utility.set_location('Intial value of g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9876);
240: g_skip_grp_box := TRUE;
241: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9875);
242: BEGIN --Bug# 6753024, Since we r not able to reproduce the issue. Fixing the issue as suggested by the
243: --customers. ref: 37668_CustomizedFuturesCode.doc
237: fnd_profile.get('USERNAME',l_user_name);
238: --bug#4896738
239: --hr_utility.set_location('Intial value of g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9876);
240: g_skip_grp_box := TRUE;
241: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9875);
242: BEGIN --Bug# 6753024, Since we r not able to reproduce the issue. Fixing the issue as suggested by the
243: --customers. ref: 37668_CustomizedFuturesCode.doc
244: ghr_SF52_api.end_SF52
245: (p_validate => false
267: l_effective_date := l_c_futr_actions.effective_date;
268: l_batch_counter := l_batch_counter + 1;
269: --bug#4896738
270: g_skip_grp_box := FALSE;
271: -- hr_utility.set_location('value after resetting '||decode(g_skip_grp_box,TRUE,1,0),9874);
272: --Begin Bug# 6753024
273: EXCEPTION
274: WHEN OTHERS
275: THEN
342: ELSE
343: --Bug#3726290 close the RPA, if p_result <> 'NOT EXISTS'
344: fnd_profile.get('USERNAME',l_user_name);
345: --bug#4896738
346: --hr_utility.set_location('Intial value of g_skip_grp_box '||g_skip_grp_box,9873);
347: g_skip_grp_box := TRUE;
348: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||g_skip_grp_box,9872);
349: BEGIN --Bug# 6753024
350: ghr_SF52_api.end_SF52
344: fnd_profile.get('USERNAME',l_user_name);
345: --bug#4896738
346: --hr_utility.set_location('Intial value of g_skip_grp_box '||g_skip_grp_box,9873);
347: g_skip_grp_box := TRUE;
348: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||g_skip_grp_box,9872);
349: BEGIN --Bug# 6753024
350: ghr_SF52_api.end_SF52
351: (p_validate => false
352: ,p_pa_request_id => l_c_futr_actions.pa_request_id
372: l_person_id := l_c_futr_actions.person_id;
373: l_effective_date := l_c_futr_actions.effective_date;
374: --bug#4896738
375: g_skip_grp_box := FALSE;
376: -- hr_utility.set_location('value after resetting '||g_skip_grp_box,9871);
377: --Begin Bug# 6753024
378: EXCEPTION
379: WHEN OTHERS
380: THEN
443: IF g_request_ids.COUNT > 0 THEN
444: -- Wait for the child concurrent programs to get finished
445: FOR l_thread_count IN 1..l_batch_no LOOP
446: l_status := TRUE;
447: hr_utility.set_location('batch ' || l_thread_count,1000);
448: hr_utility.set_location('request id ' || g_request_ids(l_thread_count),1000);
449: WHILE l_status = TRUE LOOP
450: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(g_request_ids(l_thread_count),'','',rphase,rstatus,dphase,dstatus, message);
451: hr_utility.set_location('dphase ' || dphase,1000);
444: -- Wait for the child concurrent programs to get finished
445: FOR l_thread_count IN 1..l_batch_no LOOP
446: l_status := TRUE;
447: hr_utility.set_location('batch ' || l_thread_count,1000);
448: hr_utility.set_location('request id ' || g_request_ids(l_thread_count),1000);
449: WHILE l_status = TRUE LOOP
450: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(g_request_ids(l_thread_count),'','',rphase,rstatus,dphase,dstatus, message);
451: hr_utility.set_location('dphase ' || dphase,1000);
452: IF dphase = 'COMPLETE' THEN
447: hr_utility.set_location('batch ' || l_thread_count,1000);
448: hr_utility.set_location('request id ' || g_request_ids(l_thread_count),1000);
449: WHILE l_status = TRUE LOOP
450: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(g_request_ids(l_thread_count),'','',rphase,rstatus,dphase,dstatus, message);
451: hr_utility.set_location('dphase ' || dphase,1000);
452: IF dphase = 'COMPLETE' THEN
453: l_status := FALSE;
454: ELSE
455: dbms_lock.sleep(5);
461: FOR l_cur_compl_status IN c_completion_status(l_session_id) LOOP
462: l_completion_status := l_cur_compl_status.max_status;
463: END LOOP;
464:
465: --hr_utility.trace_off;
466: -- Assigning Return codes
467: IF l_completion_status = 2 THEN
468: p_retcode := 2;
469: p_errbuf := 'There were errors in SF52''s which could NOT be routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
618: 'Warning: The person has an existing retention allowance authorization. ' || l_new_line ||
619: 'Action: Please review the retention allowance amount for this employee,' || l_new_line ||
620: 'and process the action' ; -- Bug 3320086 Changed error message.
621:
622: hr_utility.set_location(l_log_text,1511);
623: create_ghr_errorlog(
624: p_program_name => g_futr_proc_name,
625: p_log_text => l_log_text,
626: p_message_name => 'SF52 Routed to Inbox',
650: 'decreased amount of Basic Pay. ' || l_new_line ||
651: 'Action: Please review the personnel action to verify the Grade and Step, Pay Table amounts,' || l_new_line ||
652: 'and Pay Rate Determinant code for this employee.' ; -- Bug 3320086 Changed error message.
653:
654: hr_utility.set_location(l_log_text,1511);
655: create_ghr_errorlog(
656: p_program_name => g_futr_proc_name,
657: p_log_text => l_log_text,
658: p_message_name => 'SF52 Routed to Inbox',
840: -- Set Concurrent program completion messages
841:
842: IF l_retcode = 2 THEN
843: p_retcode := 2;
844: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
845: p_errbuf := 'There were errors in SF52''s which could NOT be routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
846: ELSIF l_retcode = 5 THEN
847: p_retcode := 2;
848: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
844: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
845: p_errbuf := 'There were errors in SF52''s which could NOT be routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
846: ELSIF l_retcode = 5 THEN
847: p_retcode := 2;
848: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
849: p_errbuf := 'There were errors in SF52''s which were routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
850: ELSIF l_retcode IS NOT NULL THEN
851: -- Warning
852: p_retcode := 1;
884:
885: l_proc varchar2(30);
886: Begin
887: l_proc := 'create_ghr_errorlog';
888: hr_utility.set_location( 'Entering : ' || l_proc, 10);
889: insert into ghr_process_log
890: (process_log_id
891: ,program_name
892: ,log_text
899: ,p_log_text
900: ,p_message_name
901: ,p_log_date
902: );
903: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
904:
905: END create_ghr_errorlog;
906:
907:
924: l_proc := 'Route_Errerd_SF52';
925: l_new_line := substr('
926: ',1,1);
927: l_sf52 := p_sf52; --NOCOPY Changes
928: hr_utility.set_location( 'Entering : ' || l_proc, 10);
929: savepoint route_errored_sf52;
930: hr_utility.set_location( l_proc, 20);
931: --Bug # 9329643
932: l_employee_number := ghr_pa_requests_pkg2.get_employee_number
926: ',1,1);
927: l_sf52 := p_sf52; --NOCOPY Changes
928: hr_utility.set_location( 'Entering : ' || l_proc, 10);
929: savepoint route_errored_sf52;
930: hr_utility.set_location( l_proc, 20);
931: --Bug # 9329643
932: l_employee_number := ghr_pa_requests_pkg2.get_employee_number
933: (p_person_id => l_sf52.person_id,
934: p_effective_date => l_sf52.effective_date);
942: ghr_api.call_workflow(
943: p_pa_request_id => p_sf52.pa_request_id,
944: p_action_taken => 'CONTINUE',
945: p_error => p_error);
946: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
947: Exception
948: when others then
949: hr_utility.set_location(l_proc || ' workflow errored out', 30);
950: rollback to route_errored_sf52;
945: p_error => p_error);
946: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
947: Exception
948: when others then
949: hr_utility.set_location(l_proc || ' workflow errored out', 30);
950: rollback to route_errored_sf52;
951: p_result := '0';
952: --Bug # 9329643 Modified SSN to Emp No
953: l_log_text := substr(
964: p_log_text => l_log_text,
965: p_message_name => 'Routing Error',
966: p_log_date => sysdate
967: );
968: hr_utility.set_location(l_proc , 40);
969: p_result := '2';
970: p_sf52 := l_sf52; --Added for nocopy changes
971:
972: End Route_Errored_SF52;
1018: AND (NVL(first_noa_cancel_or_correct,'C') <> 'CANCEL' OR NVL(second_noa_cancel_or_correct,'C') <> 'CANCEL');
1019:
1020: BEGIN
1021: l_proc := 'verify_355_business_rule';
1022: hr_utility.set_location( 'Entering : ' || l_proc, 10);
1023: OPEN c_pending_action_exists(p_person_id,p_effective_date);
1024: FETCH c_pending_action_exists into l_dummy;
1025: IF c_pending_action_exists%NOTFOUND THEN
1026: close c_pending_action_exists;
1036: p_result := 'EXISTS';
1037: close c_pending_action_exists;
1038: END IF;
1039:
1040: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
1041: EXCEPTION
1042: WHEN OTHERS THEN
1043: p_result := NULL;
1044: raise;