[Home] [Help]
229: ELSE
230: --Bug#3726290 close the RPA, if p_result <> 'NOT EXISTS'
231: fnd_profile.get('USERNAME',l_user_name);
232: --bug#4896738
233: --hr_utility.set_location('Intial value of g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9876);
234: g_skip_grp_box := TRUE;
235: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9875);
236: BEGIN --Bug# 6753024, Since we r not able to reproduce the issue. Fixing the issue as suggested by the
237: --customers. ref: 37668_CustomizedFuturesCode.doc
231: fnd_profile.get('USERNAME',l_user_name);
232: --bug#4896738
233: --hr_utility.set_location('Intial value of g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9876);
234: g_skip_grp_box := TRUE;
235: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||decode(g_skip_grp_box,TRUE,1,0),9875);
236: BEGIN --Bug# 6753024, Since we r not able to reproduce the issue. Fixing the issue as suggested by the
237: --customers. ref: 37668_CustomizedFuturesCode.doc
238: ghr_SF52_api.end_SF52
239: (p_validate => false
260: l_effective_date := l_c_futr_actions.effective_date;
261: l_batch_counter := l_batch_counter + 1;
262: --bug#4896738
263: g_skip_grp_box := FALSE;
264: -- hr_utility.set_location('value after resetting '||decode(g_skip_grp_box,TRUE,1,0),9874);
265: --Begin Bug# 6753024
266: EXCEPTION
267: WHEN OTHERS
268: THEN
330: ELSE
331: --Bug#3726290 close the RPA, if p_result <> 'NOT EXISTS'
332: fnd_profile.get('USERNAME',l_user_name);
333: --bug#4896738
334: --hr_utility.set_location('Intial value of g_skip_grp_box '||g_skip_grp_box,9873);
335: g_skip_grp_box := TRUE;
336: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||g_skip_grp_box,9872);
337: BEGIN --Bug# 6753024
338: ghr_SF52_api.end_SF52
332: fnd_profile.get('USERNAME',l_user_name);
333: --bug#4896738
334: --hr_utility.set_location('Intial value of g_skip_grp_box '||g_skip_grp_box,9873);
335: g_skip_grp_box := TRUE;
336: --hr_utility.set_location('value before calling end sf52 g_skip_grp_box '||g_skip_grp_box,9872);
337: BEGIN --Bug# 6753024
338: ghr_SF52_api.end_SF52
339: (p_validate => false
340: ,p_pa_request_id => l_c_futr_actions.pa_request_id
359: l_person_id := l_c_futr_actions.person_id;
360: l_effective_date := l_c_futr_actions.effective_date;
361: --bug#4896738
362: g_skip_grp_box := FALSE;
363: -- hr_utility.set_location('value after resetting '||g_skip_grp_box,9871);
364: --Begin Bug# 6753024
365: EXCEPTION
366: WHEN OTHERS
367: THEN
429: IF g_request_ids.COUNT > 0 THEN
430: -- Wait for the child concurrent programs to get finished
431: FOR l_thread_count IN 1..l_batch_no LOOP
432: l_status := TRUE;
433: hr_utility.set_location('batch ' || l_thread_count,1000);
434: hr_utility.set_location('request id ' || g_request_ids(l_thread_count),1000);
435: WHILE l_status = TRUE LOOP
436: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(g_request_ids(l_thread_count),'','',rphase,rstatus,dphase,dstatus, message);
437: hr_utility.set_location('dphase ' || dphase,1000);
430: -- Wait for the child concurrent programs to get finished
431: FOR l_thread_count IN 1..l_batch_no LOOP
432: l_status := TRUE;
433: hr_utility.set_location('batch ' || l_thread_count,1000);
434: hr_utility.set_location('request id ' || g_request_ids(l_thread_count),1000);
435: WHILE l_status = TRUE LOOP
436: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(g_request_ids(l_thread_count),'','',rphase,rstatus,dphase,dstatus, message);
437: hr_utility.set_location('dphase ' || dphase,1000);
438: IF dphase = 'COMPLETE' THEN
433: hr_utility.set_location('batch ' || l_thread_count,1000);
434: hr_utility.set_location('request id ' || g_request_ids(l_thread_count),1000);
435: WHILE l_status = TRUE LOOP
436: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(g_request_ids(l_thread_count),'','',rphase,rstatus,dphase,dstatus, message);
437: hr_utility.set_location('dphase ' || dphase,1000);
438: IF dphase = 'COMPLETE' THEN
439: l_status := FALSE;
440: ELSE
441: dbms_lock.sleep(5);
447: FOR l_cur_compl_status IN c_completion_status(l_session_id) LOOP
448: l_completion_status := l_cur_compl_status.max_status;
449: END LOOP;
450:
451: --hr_utility.trace_off;
452: -- Assigning Return codes
453: IF l_completion_status = 2 THEN
454: p_retcode := 2;
455: p_errbuf := 'There were errors in SF52''s which could NOT be routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
598: 'Warning: The person has an existing retention allowance authorization. ' || l_new_line ||
599: 'Action: Please review the retention allowance amount for this employee,' || l_new_line ||
600: 'and process the action' ; -- Bug 3320086 Changed error message.
601:
602: hr_utility.set_location(l_log_text,1511);
603: create_ghr_errorlog(
604: p_program_name => g_futr_proc_name,
605: p_log_text => l_log_text,
606: p_message_name => 'SF52 Routed to Inbox',
630: 'decreased amount of Basic Pay. ' || l_new_line ||
631: 'Action: Please review the personnel action to verify the Grade and Step, Pay Table amounts,' || l_new_line ||
632: 'and Pay Rate Determinant code for this employee.' ; -- Bug 3320086 Changed error message.
633:
634: hr_utility.set_location(l_log_text,1511);
635: create_ghr_errorlog(
636: p_program_name => g_futr_proc_name,
637: p_log_text => l_log_text,
638: p_message_name => 'SF52 Routed to Inbox',
818: -- Set Concurrent program completion messages
819:
820: IF l_retcode = 2 THEN
821: p_retcode := 2;
822: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
823: p_errbuf := 'There were errors in SF52''s which could NOT be routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
824: ELSIF l_retcode = 5 THEN
825: p_retcode := 2;
826: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
822: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
823: p_errbuf := 'There were errors in SF52''s which could NOT be routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
824: ELSIF l_retcode = 5 THEN
825: p_retcode := 2;
826: hr_utility.set_location('Ret code ' || to_char(l_retcode),1);
827: p_errbuf := 'There were errors in SF52''s which were routed to approver''s Inbox. Detail in GHR_PROCESS_LOG';
828: ELSIF l_retcode IS NOT NULL THEN
829: -- Warning
830: p_retcode := 1;
862:
863: l_proc varchar2(30);
864: Begin
865: l_proc := 'create_ghr_errorlog';
866: hr_utility.set_location( 'Entering : ' || l_proc, 10);
867: insert into ghr_process_log
868: (process_log_id
869: ,program_name
870: ,log_text
877: ,p_log_text
878: ,p_message_name
879: ,p_log_date
880: );
881: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
882:
883: END create_ghr_errorlog;
884:
885:
900: l_proc := 'Route_Errerd_SF52';
901: l_new_line := substr('
902: ',1,1);
903: l_sf52 := p_sf52; --NOCOPY Changes
904: hr_utility.set_location( 'Entering : ' || l_proc, 10);
905: savepoint route_errored_sf52;
906: hr_utility.set_location( l_proc, 20);
907: l_log_text := 'Request Number : ' || p_sf52.request_number || l_new_line ||
908: 'PA_REQUEST_ID : ' || to_char(p_sf52.pa_request_id) ||
902: ',1,1);
903: l_sf52 := p_sf52; --NOCOPY Changes
904: hr_utility.set_location( 'Entering : ' || l_proc, 10);
905: savepoint route_errored_sf52;
906: hr_utility.set_location( l_proc, 20);
907: l_log_text := 'Request Number : ' || p_sf52.request_number || l_new_line ||
908: 'PA_REQUEST_ID : ' || to_char(p_sf52.pa_request_id) ||
909: ' has errors.' || l_new_line ||
910: 'Error : ' || p_error || l_new_line ||
913: ghr_api.call_workflow(
914: p_pa_request_id => p_sf52.pa_request_id,
915: p_action_taken => 'CONTINUE',
916: p_error => p_error);
917: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
918: Exception
919: when others then
920: hr_utility.set_location(l_proc || ' workflow errored out', 30);
921: rollback to route_errored_sf52;
916: p_error => p_error);
917: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
918: Exception
919: when others then
920: hr_utility.set_location(l_proc || ' workflow errored out', 30);
921: rollback to route_errored_sf52;
922: p_result := '0';
923: l_log_text := substr(
924: 'Request Number : ' || p_sf52.request_number || l_new_line ||
934: p_log_text => l_log_text,
935: p_message_name => 'Routing Error',
936: p_log_date => sysdate
937: );
938: hr_utility.set_location(l_proc , 40);
939: p_result := '2';
940: p_sf52 := l_sf52; --Added for nocopy changes
941:
942: End Route_Errored_SF52;
988: AND (NVL(first_noa_cancel_or_correct,'C') <> 'CANCEL' OR NVL(second_noa_cancel_or_correct,'C') <> 'CANCEL');
989:
990: BEGIN
991: l_proc := 'verify_355_business_rule';
992: hr_utility.set_location( 'Entering : ' || l_proc, 10);
993: OPEN c_pending_action_exists(p_person_id,p_effective_date);
994: FETCH c_pending_action_exists into l_dummy;
995: IF c_pending_action_exists%NOTFOUND THEN
996: close c_pending_action_exists;
1006: p_result := 'EXISTS';
1007: close c_pending_action_exists;
1008: END IF;
1009:
1010: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
1011: EXCEPTION
1012: WHEN OTHERS THEN
1013: p_result := NULL;
1014: raise;