[Home] [Help]
340: l_in_pay_plan := p_pay_plan;
341: l_in_personnel_office_id := p_personnel_office_id;
342: l_exists := FALSE;
343:
344: -- hr_utility.trace_on(null,'sundar');
345: -- Replacing the insert dml with a call to the dt_fndate.change_ses_date procedure .
346:
347: dt_fndate.change_ses_date (p_ses_date => TRUNC (SYSDATE),
348: p_commit => l_commit
349: );
350: -- The previous code did not perform a commit after writing to fnd_sessions
351: -- Hence not issuing a Commit based on the value of the l_commit out variable
352:
353: hr_utility.set_location('Before Check if Personnel Office ID is having group box',1234);
354: -- Bug 3649933. Check if Personnel Office ID is having group box
355: IF l_in_personnel_office_id IS NOT NULL THEN
356: FOR l_check_group_box IN c_check_group_box(l_in_personnel_office_id) LOOP
357: l_grp_box_id := l_check_group_box.groupbox_id;
385: --
386: EXIT WHEN per_assign_cursor%NOTFOUND;
387: -- Initialize the PA Request ID
388: l_pa_request_id := NULL;
389: hr_utility.set_location('After fetch Person ID: ' || l_person_id,1234);
390: --
391: -- Bug 3941877
392: l_in_pay_plan := p_pay_plan;
393: l_in_personnel_office_id := p_personnel_office_id;
399: )
400: )
401: THEN
402:
403: hr_utility.set_location('Checking POI',1234);
404:
405: FOR wgi_no_payplan_rec IN cur_wgi_no_payplan (l_grade_id)
406: LOOP
407: l_per_pay_plan := wgi_no_payplan_rec.pay_plan;
409:
410: IF check_pay_plan (l_per_pay_plan) THEN
411: -- If the assignment ID is not present then do not process this employee
412: --
413: hr_utility.set_location('Checking Pay plan',1234);
414: IF p_log_flag = 'Y'
415: THEN
416: create_ghr_errorlog (p_program_name => l_proc,
417: p_log_text => 'Fetched Full Name : '
503: -- For non-retained employees
504: /*Start Bug: 9255822: rest of the code should not run for PRD Y*/
505: IF l_pay_rate_determinant <> 'Y' THEN
506:
507: hr_utility.set_location('After fetching from assignments',1234);
508:
509: l_check_pay_plan := l_from_pay_plan;
510: l_check_step_or_rate := l_from_step_or_rate;
511: --- Sundar 3386203
559: p_from_pay_plan => l_check_pay_plan
560: )
561: )
562: THEN
563: hr_utility.set_location('After checkpayplanparm',1234);
564: hr_utility.set_location ('Pay Plan criteria satisfied ',
565: 1000
566: );
567:
560: )
561: )
562: THEN
563: hr_utility.set_location('After checkpayplanparm',1234);
564: hr_utility.set_location ('Pay Plan criteria satisfied ',
565: 1000
566: );
567:
568: IF p_log_flag = 'Y'
597: )
598: )
599: THEN*/
600: -- Set the tmp pay plan for checking purposes
601: hr_utility.set_location ('POI criteria satisfied ' || l_in_personnel_office_id,
602: 1000
603: );
604: -- Bug 3649933. Check if Personnel Office ID is having group box
605: IF l_in_personnel_office_id IS NOT NULL THEN
605: IF l_in_personnel_office_id IS NOT NULL THEN
606: FOR l_check_group_box IN c_check_group_box(l_in_personnel_office_id) LOOP
607: l_grp_box_id := l_check_group_box.groupbox_id;
608: END LOOP;
609: hr_utility.set_location ('l_grp_box_id ' || l_grp_box_id,
610: 1000);
611: IF l_grp_box_id IS NULL THEN
612: -- If No group box is assigned, then throw an error
613: l_errbuf := 'Group Box does not exist for this Personnel office id ' || l_in_personnel_office_id;
610: 1000);
611: IF l_grp_box_id IS NULL THEN
612: -- If No group box is assigned, then throw an error
613: l_errbuf := 'Group Box does not exist for this Personnel office id ' || l_in_personnel_office_id;
614: hr_utility.set_location ('Error buff set',1000);
615: RAISE l_no_groupbox_exception;
616: END IF;
617: END IF; -- If PO ID is not null
618: -- End Bug 3649933.
809: IF l_check_pay_plan IN ('GM','GR') THEN --Bug# 6603968
810: -- Bug#5482191 Process 893 for GM Employees after 07-JAN-2007
811: IF l_effective_date < to_date('07/01/2007','DD/MM/YYYY') THEN
812: l_first_noa_code := '891';
813: hr_utility.set_location ('WGI noa code 891 ', 1 );
814: ELSE
815: l_first_noa_code := '893';
816: END IF;
817: -- bug# 5725910 code commented as this is not necessary..891 should not be assigned to first noa code irrespective of the effective date.
842: END IF;
843:
844: --
845: -- Check in PA Reqest table if there is a NOA of this person is existing already
846: hr_utility.set_location ('Check in PA Reqest table if there is a NOA of this person ',
847: 1000
848: );
849:
850: IF (person_in_pa_requests (p_person_id => l_person_id,
931: IF (check_pay_plan (p_pay_plan => l_tmp_from_pay_plan
932: )
933: )
934: THEN -- 6th If for Check Pay Plan
935: hr_utility.set_location ( 'Pay Plan valid l_person_id'
936: || l_person_id,
937: 1000
938: );
939:
1165: COMMIT;
1166: --
1167: -- set the start wgi flag
1168: --
1169: hr_utility.set_location ( 'Create SF52 l_person_id'
1170: || l_person_id,
1171: 1000
1172: );
1173: l_start_wgi_wf_flag := 'Y';
1453: l_to_step_or_rate :=
1454: l_pay_calc_out_rec_type.out_step_or_rate;
1455: l_to_retention_allowance :=
1456: l_pay_calc_out_rec_type.retention_allowance;
1457: hr_utility.set_location ( 'retention_allowance = '
1458: || TO_CHAR (l_to_retention_allowance
1459: ),
1460: 10
1461: );
1458: || TO_CHAR (l_to_retention_allowance
1459: ),
1460: 10
1461: );
1462: hr_utility.set_location ( 'Supervisory Diff Amount = '
1463: || TO_CHAR (l_to_supervisory_differential
1464: ),
1465: 10
1466: );
1469: ------Other Pay new requirement
1470: l_new_retention_allowance := NULL;
1471: l_ret_calc_perc := 0;
1472:
1473: hr_utility.set_location('retention_allowance = ' || to_char(l_to_retention_allowance),10);
1474: hr_utility.set_location('Supervisory Diff Amount = ' || to_char(l_to_supervisory_differential),10);
1475:
1476: if l_to_retention_allowance is not null then
1477: if l_from_basic_pay <> l_to_basic_pay then
1470: l_new_retention_allowance := NULL;
1471: l_ret_calc_perc := 0;
1472:
1473: hr_utility.set_location('retention_allowance = ' || to_char(l_to_retention_allowance),10);
1474: hr_utility.set_location('Supervisory Diff Amount = ' || to_char(l_to_supervisory_differential),10);
1475:
1476: if l_to_retention_allowance is not null then
1477: if l_from_basic_pay <> l_to_basic_pay then
1478: if l_retention_allow_percentage is null then
1491: end if;
1492:
1493: l_to_retention_allowance := l_new_retention_allowance;
1494:
1495: hr_utility.set_location('retention_allowance = ' || to_char(l_to_retention_allowance),12);
1496: hr_utility.set_location('Supervisory Diff Amount = ' || to_char(l_to_supervisory_differential),12);
1497:
1498: l_to_other_pay_amount := nvl(l_to_au_overtime,0)
1499: + nvl(l_to_availability_pay,0)
1492:
1493: l_to_retention_allowance := l_new_retention_allowance;
1494:
1495: hr_utility.set_location('retention_allowance = ' || to_char(l_to_retention_allowance),12);
1496: hr_utility.set_location('Supervisory Diff Amount = ' || to_char(l_to_supervisory_differential),12);
1497:
1498: l_to_other_pay_amount := nvl(l_to_au_overtime,0)
1499: + nvl(l_to_availability_pay,0)
1500: + nvl(l_to_retention_allowance,0)
1925: RAISE l_max_step_exception;
1926: END IF; -- (IF checkIfMaxPayPlan)
1927: END IF; -- IF ( p_effective_date >= (l_wgi_pay_dat
1928: ELSE -- Add for Bug 3035967 fix.
1929: hr_utility.set_location('error in pay date',2500) ;
1930: IF l_wgi_due_date IS NOT NULL THEN
1931: -- Check if max step is reached. If it has, then ignore this employee
1932: IF (checkifmaxpayplan (p_from_pay_plan => l_from_pay_plan,
1933: p_from_step_or_rate => l_from_step_or_rate
1973: EXCEPTION
1974: -- Bug 3649933 To raise error when group box does not exist.
1975:
1976: WHEN l_no_groupbox_exception THEN
1977: hr_utility.set_location('error in group box',2500) ;
1978: create_ghr_errorlog (p_program_name => l_proc,
1979: p_log_text => 'ERROR encountered in processing Auto WGI for : '
1980: || l_full_name
1981: || ' ** Error Message ** : '
1988: p_log_date => SYSDATE
1989: );
1990: l_retcode := 1;
1991: WHEN l_from_asg_exception THEN
1992: hr_utility.set_location('error in fetch from asg',2500) ;
1993: create_ghr_errorlog (p_program_name => l_proc,
1994: p_log_text => 'ERROR encountered in processing Auto WGI for : '
1995: || l_full_name
1996: || ' ** Error Message ** : '
2009: );
2010:
2011: l_retcode := 1;
2012: WHEN l_retained_grade_exception THEN
2013: hr_utility.set_location('error in l_retained_grade_exception',2500) ;
2014: create_ghr_errorlog (p_program_name => l_proc,
2015: p_log_text => 'ERROR encountered in processing Auto WGI for : '
2016: || l_full_name
2017: || ' ** Error Message ** : '
2030: );
2031:
2032: l_retcode := 1;
2033: WHEN l_max_step_exception THEN
2034: hr_utility.set_location('error in l_retained_grade_exception',2500) ;
2035: create_ghr_errorlog (p_program_name => l_proc,
2036: p_log_text => 'ERROR encountered in processing Auto WGI for : '
2037: || l_full_name
2038: || ' Error Message :'
2054: THEN
2055: --bug# 5685874 reassigning l_errbuf to null so that buffer overflow does not occur.
2056: l_errbuf := NULL;
2057:
2058: hr_utility.set_location('error in OTHERS' || SQLCODE ,2500) ;
2059: create_ghr_errorlog (p_program_name => l_proc,
2060: p_log_text => 'ERROR encountered in processing Auto WGI for : '
2061: || l_full_name
2062: || ' ** Error Message ** : '
2128: END;
2129: END LOOP;
2130: p_retcode := l_retcode;
2131: p_errbuf := l_errbuf;
2132: -- hr_utility.trace_off;
2133: CLOSE per_assign_cursor;
2134: EXCEPTION
2135: -- Bug 3649933 To raise error when group box does not exist.
2136: WHEN l_no_groupbox_exception THEN