[Home] [Help]
271: --
272:
273: Begin
274:
275: hr_utility.set_location( 'entering : ' || l_proc, 10);
276: l_sf52_data_rec := p_sf52_data;
277: --
278: --
279: -- reinitialise session variables
497: p_date_effective => p_sf52_data.effective_date,
498: p_result_code => l_return_status);
499: if (l_return_status is not null) then
500: -- there were no prevalues for this record
501: hr_utility.set_location('no pre-values'|| l_proc,15);
502: -- only delete application table if there are no following records.
503: open c_follow_rec( c_table_name => l_hist_rec.table_name,
504: c_pk_id => l_hist_rec.information1,
505: c_pa_history_id => l_hist_rec.pa_history_id);
504: c_pk_id => l_hist_rec.information1,
505: c_pa_history_id => l_hist_rec.pa_history_id);
506: fetch c_follow_rec into l_buf;
507: if c_follow_rec%NOTFOUND then
508: hr_utility.set_location('no following records. Deleting appl table. '|| l_proc,915);
509: delete_appl_row(
510: p_table_name => ghr_history_api.g_peopei_table,
511: p_table_pk_id => l_hist_rec.information1,
512: p_dt_mode => null,
552: p_cannot_cancel => l_cannot_cancel_sevpay);
553:
554: if l_cannot_cancel_sevpay then
555: -- raise error
556: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
557: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
558: hr_utility.raise_error;
559: else
560: hr_utility.set_location('Delete rows.'|| l_proc,40);
553:
554: if l_cannot_cancel_sevpay then
555: -- raise error
556: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
557: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
558: hr_utility.raise_error;
559: else
560: hr_utility.set_location('Delete rows.'|| l_proc,40);
561: delete_hist_row ( l_hist_sevpay.pa_history_id);
554: if l_cannot_cancel_sevpay then
555: -- raise error
556: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
557: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
558: hr_utility.raise_error;
559: else
560: hr_utility.set_location('Delete rows.'|| l_proc,40);
561: delete_hist_row ( l_hist_sevpay.pa_history_id);
562: delete_eleentval( l_hist_sevpay);
556: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
557: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
558: hr_utility.raise_error;
559: else
560: hr_utility.set_location('Delete rows.'|| l_proc,40);
561: delete_hist_row ( l_hist_sevpay.pa_history_id);
562: delete_eleentval( l_hist_sevpay);
563: end if;
564: close c_hist_sevpay;
568:
569: -- delete all history records for the termination that is being cancelled.
570: -- if an address table record is encountered, then set application
571: -- table to what it currently should be according to history.
572: hr_utility.set_location( l_proc, 20);
573: for l_hist in c_hist( p_sf52_data.altered_pa_request_id,
574: l_session_var.noa_id_correct)
575: loop
576: hr_utility.set_location(' LOOP history_id(' || l_hist.pa_history_id || ')', 25);
572: hr_utility.set_location( l_proc, 20);
573: for l_hist in c_hist( p_sf52_data.altered_pa_request_id,
574: l_session_var.noa_id_correct)
575: loop
576: hr_utility.set_location(' LOOP history_id(' || l_hist.pa_history_id || ')', 25);
577: exit when c_hist%notfound;
578: -- Bug#3780671 Added the Assignment Extra Info condition as
579: -- the EIT "GHR_US_ASG_NTE_DATES" requires the process similar to
580: -- Address table.
586: INTO l_hist_rec
587: FROM ghr_pa_history
588: WHERE pa_history_id = l_hist.pa_history_id;
589:
590: hr_utility.set_location('Non 352 and Address '||l_hist.table_name,26);
591: -- Bug#3780671 Passed the parameter l_hist.table_name instead of Address table
592: -- to handle PER_ASSIGNMENT_EXTRA_INFO table.
593: ghr_history_api.fetch_history_info(
594: p_table_name => l_hist.table_name,
599: p_date_effective => p_sf52_data.effective_date,
600: p_result_code => l_return_status);
601: if (l_return_status is not null) then
602: -- there were no prevalues for this record
603: hr_utility.set_location('no pre-values'|| l_proc,15);
604: -- only delete application table if there are no following records.
605: open c_follow_rec( c_table_name => l_hist_rec.table_name,
606: c_pk_id => l_hist_rec.information1,
607: c_pa_history_id => l_hist_rec.pa_history_id);
639: p_hist_data_as_of_date => l_hist_data_as_of_date);
640: end if;
641:
642: -- else
643: hr_utility.set_location('Non 352 and delete_hist_row '||l_proc,27);
644: -- delete_hist_row( l_hist.row_id);
645: end if;
646: end loop;
647:
647:
648: -- delete all history records for the termination that is being cancelled.
649: -- if an address table record is encountered, then set application
650: -- table to what it currently should be according to history.
651: hr_utility.set_location( l_proc, 20);
652: for l_hist in c_hist( p_sf52_data.altered_pa_request_id,
653: l_session_var.noa_id_correct)
654: loop
655: exit when c_hist%notfound;
726: p_per_benefit_info => l_imm_per_benefit_info,
727: p_imm_retirement_info => l_imm_retirement_info); --Bug# 7131104
728:
729: -- call post_sf52_cancel to handle notifications, marking pa_requests cancelled, etc.
730: hr_utility.set_location( l_proc, 30);
731: ghr_sf52_post_update.post_sf52_cancel(
732: p_pa_request_id => p_sf52_data.pa_request_id,
733: p_effective_date => l_session_var.date_effective,
734: p_object_version_number => p_sf52_data.object_version_number,
735: p_from_position_id => p_sf52_data.from_position_id,
736: p_to_position_id => p_sf52_data.to_position_id,
737: p_agency_code => p_sf52_data.agency_code);
738:
739: hr_utility.set_location( 'leaving : ' || l_proc, 40);
740: exception when others then
741: --
742: -- Reset IN OUT parameters and set OUT parameters
743: --
919: l_proc varchar2(30):='cancel_appt_sf52';
920:
921: Begin
922:
923: hr_utility.set_location(' Entering : ' || l_proc, 10);
924: l_sf52_data_rec := p_sf52_data;
925:
926:
927: -- reinitialise session variables
1095: p_imm_retirement_info => l_imm_retirement_info); --Bug# 7131104
1096:
1097: -- Segment which calls do_cancel_hire moved after history handling. Bug# 1295751.
1098:
1099: hr_utility.set_location( l_proc, 40);
1100: for l_hist in c_hist( p_sf52_data.person_id,
1101: p_sf52_data.effective_date)
1102: loop
1103: hr_utility.set_location( 'GOT HERE!!!!: ' || l_proc, 59);
1099: hr_utility.set_location( l_proc, 40);
1100: for l_hist in c_hist( p_sf52_data.person_id,
1101: p_sf52_data.effective_date)
1102: loop
1103: hr_utility.set_location( 'GOT HERE!!!!: ' || l_proc, 59);
1104: exit when c_hist%notfound;
1105: delete_hist_row( l_hist.row_id);
1106: hr_utility.set_location( 'checking if table needs deleting: ' || l_hist.table_name|| l_proc, 58);
1107: -- Delete all extraInfo table records which were created by the SF52.
1102: loop
1103: hr_utility.set_location( 'GOT HERE!!!!: ' || l_proc, 59);
1104: exit when c_hist%notfound;
1105: delete_hist_row( l_hist.row_id);
1106: hr_utility.set_location( 'checking if table needs deleting: ' || l_hist.table_name|| l_proc, 58);
1107: -- Delete all extraInfo table records which were created by the SF52.
1108: if upper(l_hist.table_name) in (upper(ghr_history_api.g_peopei_table),
1109: upper(ghr_history_api.g_posnei_table),
1110: upper(ghr_history_api.g_asgnei_table),
1109: upper(ghr_history_api.g_posnei_table),
1110: upper(ghr_history_api.g_asgnei_table),
1111: upper(ghr_history_api.g_addres_table),
1112: upper(ghr_history_api.g_perana_table)) then
1113: hr_utility.set_location( 'table_name qualifies: ' || l_hist.table_name|| l_proc, 57);
1114: if l_hist.DML_operation = ghr_history_api.g_ins_operation then
1115: hr_utility.set_location( 'delete appl row table_name: ' || l_hist.table_name|| l_proc, 51);
1116: hr_utility.set_location( 'delete appl row information1: ' || l_hist.information1|| l_proc, 52);
1117: hr_utility.set_location( 'delete appl row effective_date: ' || l_hist.effective_date|| l_proc, 53);
1111: upper(ghr_history_api.g_addres_table),
1112: upper(ghr_history_api.g_perana_table)) then
1113: hr_utility.set_location( 'table_name qualifies: ' || l_hist.table_name|| l_proc, 57);
1114: if l_hist.DML_operation = ghr_history_api.g_ins_operation then
1115: hr_utility.set_location( 'delete appl row table_name: ' || l_hist.table_name|| l_proc, 51);
1116: hr_utility.set_location( 'delete appl row information1: ' || l_hist.information1|| l_proc, 52);
1117: hr_utility.set_location( 'delete appl row effective_date: ' || l_hist.effective_date|| l_proc, 53);
1118: delete_appl_row(
1119: p_table_name => l_hist.table_name,
1112: upper(ghr_history_api.g_perana_table)) then
1113: hr_utility.set_location( 'table_name qualifies: ' || l_hist.table_name|| l_proc, 57);
1114: if l_hist.DML_operation = ghr_history_api.g_ins_operation then
1115: hr_utility.set_location( 'delete appl row table_name: ' || l_hist.table_name|| l_proc, 51);
1116: hr_utility.set_location( 'delete appl row information1: ' || l_hist.information1|| l_proc, 52);
1117: hr_utility.set_location( 'delete appl row effective_date: ' || l_hist.effective_date|| l_proc, 53);
1118: delete_appl_row(
1119: p_table_name => l_hist.table_name,
1120: p_table_pk_id => l_hist.information1,
1113: hr_utility.set_location( 'table_name qualifies: ' || l_hist.table_name|| l_proc, 57);
1114: if l_hist.DML_operation = ghr_history_api.g_ins_operation then
1115: hr_utility.set_location( 'delete appl row table_name: ' || l_hist.table_name|| l_proc, 51);
1116: hr_utility.set_location( 'delete appl row information1: ' || l_hist.information1|| l_proc, 52);
1117: hr_utility.set_location( 'delete appl row effective_date: ' || l_hist.effective_date|| l_proc, 53);
1118: delete_appl_row(
1119: p_table_name => l_hist.table_name,
1120: p_table_pk_id => l_hist.information1,
1121: p_dt_mode => null,
1122: p_date_effective => l_hist.effective_date);
1123: elsif l_hist.DML_operation = ghr_history_api.g_upd_operation then
1124: l_hist_post.information1 := l_hist.information1;
1125: l_hist_post.person_id := l_hist.person_id;
1126: hr_utility.set_location(l_proc || 'l_hist.information1: ' || l_hist.information1, 1200);
1127: hr_utility.set_location(l_proc || 'l_hist.table_name: ' || l_hist.table_name, 1210);
1128: hr_utility.set_location(l_proc || 'l_hist.person_id: ' || l_hist.person_id, 1220);
1129: ghr_history_cascade.cascade_appl_table_data(
1130: p_table_name => l_hist.table_name,
1123: elsif l_hist.DML_operation = ghr_history_api.g_upd_operation then
1124: l_hist_post.information1 := l_hist.information1;
1125: l_hist_post.person_id := l_hist.person_id;
1126: hr_utility.set_location(l_proc || 'l_hist.information1: ' || l_hist.information1, 1200);
1127: hr_utility.set_location(l_proc || 'l_hist.table_name: ' || l_hist.table_name, 1210);
1128: hr_utility.set_location(l_proc || 'l_hist.person_id: ' || l_hist.person_id, 1220);
1129: ghr_history_cascade.cascade_appl_table_data(
1130: p_table_name => l_hist.table_name,
1131: p_person_id => l_hist.person_id,
1124: l_hist_post.information1 := l_hist.information1;
1125: l_hist_post.person_id := l_hist.person_id;
1126: hr_utility.set_location(l_proc || 'l_hist.information1: ' || l_hist.information1, 1200);
1127: hr_utility.set_location(l_proc || 'l_hist.table_name: ' || l_hist.table_name, 1210);
1128: hr_utility.set_location(l_proc || 'l_hist.person_id: ' || l_hist.person_id, 1220);
1129: ghr_history_cascade.cascade_appl_table_data(
1130: p_table_name => l_hist.table_name,
1131: p_person_id => l_hist.person_id,
1132: p_pre_record => null,
1140: end loop;
1141:
1142: -- Moved this segment to be executed after history deletion handling.
1143: -- Bug# 1295751.
1144: hr_utility.set_location( l_proc, 20);
1145: open c_bg (p_sf52_data.person_id, p_sf52_data.effective_date);
1146: fetch c_bg into l_business_group_id;
1147: if c_bg%notfound then
1148: close c_bg;
1145: open c_bg (p_sf52_data.person_id, p_sf52_data.effective_date);
1146: fetch c_bg into l_business_group_id;
1147: if c_bg%notfound then
1148: close c_bg;
1149: hr_utility.set_message(8301,'GHR_38210_BUSINESS_GROUP_NFND');
1150: hr_utility.raise_error;
1151: --raise error
1152: end if;
1153: hr_utility.set_location( l_proc, 30);
1146: fetch c_bg into l_business_group_id;
1147: if c_bg%notfound then
1148: close c_bg;
1149: hr_utility.set_message(8301,'GHR_38210_BUSINESS_GROUP_NFND');
1150: hr_utility.raise_error;
1151: --raise error
1152: end if;
1153: hr_utility.set_location( l_proc, 30);
1154: -- Check if need to call cancel_hire_or_apl.lock_per_row ???
1149: hr_utility.set_message(8301,'GHR_38210_BUSINESS_GROUP_NFND');
1150: hr_utility.raise_error;
1151: --raise error
1152: end if;
1153: hr_utility.set_location( l_proc, 30);
1154: -- Check if need to call cancel_hire_or_apl.lock_per_row ???
1155: -- call core HR api to cancel the hire.
1156: --*****************************************************************************
1157: -- Added as per Rohini's suggestion to fix bug#3106101
1289: p_health_ben_pre_tax => l_imm_health_ben_pre_tax,
1290: p_per_benefit_info => l_imm_per_benefit_info,
1291: p_imm_retirement_info => l_imm_retirement_info); --Bug# 7131104
1292:
1293: hr_utility.set_location( l_proc, 50);
1294: ghr_sf52_post_update.post_sf52_cancel(
1295: p_pa_request_id => p_sf52_data.pa_request_id,
1296: p_effective_date => l_session_var.date_effective,
1297: p_object_version_number => p_sf52_data.object_version_number,
1301:
1302: --
1303: -- Mark all the SF52s cancelled which were created after Appt. SF52
1304: --
1305: hr_utility.set_location( l_proc, 110);
1306: for l_par in c_par( p_sf52_data.person_id,
1307: p_sf52_data.effective_date)
1308: loop
1309: hr_utility.set_location( l_proc, 111);
1305: hr_utility.set_location( l_proc, 110);
1306: for l_par in c_par( p_sf52_data.person_id,
1307: p_sf52_data.effective_date)
1308: loop
1309: hr_utility.set_location( l_proc, 111);
1310: exit when c_par%notfound;
1311: -- mark delete
1312: if l_par.first_noa_code not in ('001' , '002') then
1313: -- no need to do anything with cancellation/correction actions as they
1363: p_u_action_taken => 'NONE'
1364: );
1365: End loop;
1366:
1367: hr_utility.set_location( l_proc, 80);
1368:
1369: hr_utility.set_location(' Leaving ' || l_proc, 100);
1370: Exception when others then
1371: --
1365: End loop;
1366:
1367: hr_utility.set_location( l_proc, 80);
1368:
1369: hr_utility.set_location(' Leaving ' || l_proc, 100);
1370: Exception when others then
1371: --
1372: -- Reset IN OUT parameters and set OUT parameters
1373: --
1408: Procedure Cancel_Correction_SF52 ( p_sf52_data in out nocopy ghr_pa_requests%rowtype) is
1409: l_proc varchar2(30):='Cancel_Correction_SF52';
1410: l_sf52_data ghr_pa_requests%rowtype;
1411: Begin
1412: hr_utility.set_location('entering : ' || l_proc, 10);
1413: l_sf52_data := p_sf52_data;
1414: Cancel_Other_Family_Sf52 (p_sf52_data);
1415: hr_utility.set_location('leaving : ' || l_proc, 20);
1416: exception when others then
1411: Begin
1412: hr_utility.set_location('entering : ' || l_proc, 10);
1413: l_sf52_data := p_sf52_data;
1414: Cancel_Other_Family_Sf52 (p_sf52_data);
1415: hr_utility.set_location('leaving : ' || l_proc, 20);
1416: exception when others then
1417: --
1418: -- Reset IN OUT parameters and set OUT parameters
1419: --
1669: AND ele.element_entry_id = p_element_entry_id;
1670: -- end of 2521744;
1671: --
1672: BEGIN
1673: -- hr_utility.trace_on(null,'venkat');
1674: hr_utility.set_location('Entering '|| l_proc,5);
1675: l_sf52_data_rec := p_sf52_data;
1676: -- Initialization
1677: --
1670: -- end of 2521744;
1671: --
1672: BEGIN
1673: -- hr_utility.trace_on(null,'venkat');
1674: hr_utility.set_location('Entering '|| l_proc,5);
1675: l_sf52_data_rec := p_sf52_data;
1676: -- Initialization
1677: --
1678: l_sf52_data_rec := p_sf52_data;
1688: for noa_family_rec in c_noa_family(p_sf52_data.second_noa_id) loop
1689: l_noa_family_code := noa_family_rec.noa_family_code;
1690: end loop;
1691: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'CONV_APP' then
1692: hr_utility.set_location('CAncel of conversion',1);
1693: -- check to see if the person was an EX_EMP prior to the effective
1694: -- date of this action.
1695: for prior_person_type in c_prior_person_type loop
1696: l_prior_asg_id := prior_person_type.assignment_id; --Bug# 5442674
1699: for prior_noa_code in c_prior_noa_code loop
1700: l_prior_noa_code := prior_noa_code.first_noa_code;
1701: end loop;
1702: End if;
1703: hr_utility.set_location('Family Code' || l_noa_family_code,1000);
1704: hr_utility.set_location('Second NOA Code' || p_sf52_data.second_noa_code,1000);
1705: hr_utility.set_location('Prior Assignment Id' || l_prior_asg_id,1001);
1706: hr_utility.set_location('Assignment Id' || l_sf52_data_rec.employee_assignment_id,1002);
1707: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'CONV_APP' and
1700: l_prior_noa_code := prior_noa_code.first_noa_code;
1701: end loop;
1702: End if;
1703: hr_utility.set_location('Family Code' || l_noa_family_code,1000);
1704: hr_utility.set_location('Second NOA Code' || p_sf52_data.second_noa_code,1000);
1705: hr_utility.set_location('Prior Assignment Id' || l_prior_asg_id,1001);
1706: hr_utility.set_location('Assignment Id' || l_sf52_data_rec.employee_assignment_id,1002);
1707: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'CONV_APP' and
1708: nvl(l_prior_asg_id,hr_api.g_number) <> l_sf52_data_rec.employee_assignment_id and --Bug# 5442674
1701: end loop;
1702: End if;
1703: hr_utility.set_location('Family Code' || l_noa_family_code,1000);
1704: hr_utility.set_location('Second NOA Code' || p_sf52_data.second_noa_code,1000);
1705: hr_utility.set_location('Prior Assignment Id' || l_prior_asg_id,1001);
1706: hr_utility.set_location('Assignment Id' || l_sf52_data_rec.employee_assignment_id,1002);
1707: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'CONV_APP' and
1708: nvl(l_prior_asg_id,hr_api.g_number) <> l_sf52_data_rec.employee_assignment_id and --Bug# 5442674
1709: nvl(l_prior_noa_code,hr_api.g_varchar2) <> '002' then
1702: End if;
1703: hr_utility.set_location('Family Code' || l_noa_family_code,1000);
1704: hr_utility.set_location('Second NOA Code' || p_sf52_data.second_noa_code,1000);
1705: hr_utility.set_location('Prior Assignment Id' || l_prior_asg_id,1001);
1706: hr_utility.set_location('Assignment Id' || l_sf52_data_rec.employee_assignment_id,1002);
1707: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'CONV_APP' and
1708: nvl(l_prior_asg_id,hr_api.g_number) <> l_sf52_data_rec.employee_assignment_id and --Bug# 5442674
1709: nvl(l_prior_noa_code,hr_api.g_varchar2) <> '002' then
1710:
1707: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'CONV_APP' and
1708: nvl(l_prior_asg_id,hr_api.g_number) <> l_sf52_data_rec.employee_assignment_id and --Bug# 5442674
1709: nvl(l_prior_noa_code,hr_api.g_varchar2) <> '002' then
1710:
1711: hr_utility.set_location('Cancel of Ex_EMP conversion',1);
1712: ghr_corr_canc_sf52.cancel_appt_sf52(p_sf52_data);
1713: Else
1714: -- reinitialise session variables
1715: ghr_history_api.reinit_g_session_var;
1937: -- Bug#2347658 (End of fix)
1938:
1939: -- loop thru all history records for the NOA that is being cancelled.
1940: FOR l_hist_rec in c_history_info(p_sf52_data.altered_pa_request_id, p_sf52_data.second_noa_id) LOOP
1941: hr_utility.set_location('Entering LOOP'|| l_proc,10);
1942: l_pre_record := TRUE;
1943: l_datetrack_table := TRUE;
1944: -- initialize pre-record to all nulls
1945: l_hist_pre := l_hist_dummy;
1943: l_datetrack_table := TRUE;
1944: -- initialize pre-record to all nulls
1945: l_hist_pre := l_hist_dummy;
1946: -- get pre-record for the record fetched
1947: hr_utility.set_location('before fetch history info',12345);
1948: ghr_history_api.fetch_history_info(
1949: p_table_name => l_hist_rec.table_name,
1950: p_hist_data => l_hist_pre,
1951: p_pa_history_id => l_hist_rec.pa_history_id,
1952: p_table_pk_id => l_hist_rec.information1,
1953: p_person_id => l_hist_rec.person_id,
1954: p_date_effective => l_hist_rec.effective_date,
1955: p_result_code => l_return_status);
1956: hr_utility.set_location('after fetch history info',12345);
1957: hr_utility.set_location('status is'||l_return_status,12345);
1958: hr_utility.set_location('hist id'||l_hist_rec.pa_history_id,12345);
1959: hr_utility.set_location('person id'||l_hist_rec.person_id,12345);
1960: hr_utility.set_location('eff_date is '||l_hist_rec.effective_date,12345);
1953: p_person_id => l_hist_rec.person_id,
1954: p_date_effective => l_hist_rec.effective_date,
1955: p_result_code => l_return_status);
1956: hr_utility.set_location('after fetch history info',12345);
1957: hr_utility.set_location('status is'||l_return_status,12345);
1958: hr_utility.set_location('hist id'||l_hist_rec.pa_history_id,12345);
1959: hr_utility.set_location('person id'||l_hist_rec.person_id,12345);
1960: hr_utility.set_location('eff_date is '||l_hist_rec.effective_date,12345);
1961:
1954: p_date_effective => l_hist_rec.effective_date,
1955: p_result_code => l_return_status);
1956: hr_utility.set_location('after fetch history info',12345);
1957: hr_utility.set_location('status is'||l_return_status,12345);
1958: hr_utility.set_location('hist id'||l_hist_rec.pa_history_id,12345);
1959: hr_utility.set_location('person id'||l_hist_rec.person_id,12345);
1960: hr_utility.set_location('eff_date is '||l_hist_rec.effective_date,12345);
1961:
1962: if (l_return_status is not null) then
1955: p_result_code => l_return_status);
1956: hr_utility.set_location('after fetch history info',12345);
1957: hr_utility.set_location('status is'||l_return_status,12345);
1958: hr_utility.set_location('hist id'||l_hist_rec.pa_history_id,12345);
1959: hr_utility.set_location('person id'||l_hist_rec.person_id,12345);
1960: hr_utility.set_location('eff_date is '||l_hist_rec.effective_date,12345);
1961:
1962: if (l_return_status is not null) then
1963: -- there were no prevalues for this record
1956: hr_utility.set_location('after fetch history info',12345);
1957: hr_utility.set_location('status is'||l_return_status,12345);
1958: hr_utility.set_location('hist id'||l_hist_rec.pa_history_id,12345);
1959: hr_utility.set_location('person id'||l_hist_rec.person_id,12345);
1960: hr_utility.set_location('eff_date is '||l_hist_rec.effective_date,12345);
1961:
1962: if (l_return_status is not null) then
1963: -- there were no prevalues for this record
1964: hr_utility.set_location('no pre-values'|| l_proc,15);
1960: hr_utility.set_location('eff_date is '||l_hist_rec.effective_date,12345);
1961:
1962: if (l_return_status is not null) then
1963: -- there were no prevalues for this record
1964: hr_utility.set_location('no pre-values'|| l_proc,15);
1965: l_pre_record := FALSE;
1966: else
1967: -- Debug statements
1968: hr_utility.set_location('Pre Value - pa_history_id ' || l_hist_pre.pa_history_id, 16);
1964: hr_utility.set_location('no pre-values'|| l_proc,15);
1965: l_pre_record := FALSE;
1966: else
1967: -- Debug statements
1968: hr_utility.set_location('Pre Value - pa_history_id ' || l_hist_pre.pa_history_id, 16);
1969: hr_utility.set_location('Pre Value - effective_date ' || l_hist_pre.effective_date, 17);
1970: hr_utility.set_location('Information1 : ' || l_hist_pre.information1, 18);
1971: hr_utility.set_location('Information2 : ' || l_hist_pre.information2, 19);
1972:
1965: l_pre_record := FALSE;
1966: else
1967: -- Debug statements
1968: hr_utility.set_location('Pre Value - pa_history_id ' || l_hist_pre.pa_history_id, 16);
1969: hr_utility.set_location('Pre Value - effective_date ' || l_hist_pre.effective_date, 17);
1970: hr_utility.set_location('Information1 : ' || l_hist_pre.information1, 18);
1971: hr_utility.set_location('Information2 : ' || l_hist_pre.information2, 19);
1972:
1973: end if;
1966: else
1967: -- Debug statements
1968: hr_utility.set_location('Pre Value - pa_history_id ' || l_hist_pre.pa_history_id, 16);
1969: hr_utility.set_location('Pre Value - effective_date ' || l_hist_pre.effective_date, 17);
1970: hr_utility.set_location('Information1 : ' || l_hist_pre.information1, 18);
1971: hr_utility.set_location('Information2 : ' || l_hist_pre.information2, 19);
1972:
1973: end if;
1974: -- all mappings are such that information2 always corresponds to effective_start_date. If this
1967: -- Debug statements
1968: hr_utility.set_location('Pre Value - pa_history_id ' || l_hist_pre.pa_history_id, 16);
1969: hr_utility.set_location('Pre Value - effective_date ' || l_hist_pre.effective_date, 17);
1970: hr_utility.set_location('Information1 : ' || l_hist_pre.information1, 18);
1971: hr_utility.set_location('Information2 : ' || l_hist_pre.information2, 19);
1972:
1973: end if;
1974: -- all mappings are such that information2 always corresponds to effective_start_date. If this
1975: -- column is null, then the row concerns a non-datetrack table. If it is not null, then this row
1974: -- all mappings are such that information2 always corresponds to effective_start_date. If this
1975: -- column is null, then the row concerns a non-datetrack table. If it is not null, then this row
1976: -- concerns a datetrack table.
1977: if (l_hist_rec.information2 is null) then
1978: hr_utility.set_location('datetrack table'|| l_proc,20);
1979: l_datetrack_table := FALSE;
1980: end if;
1981: -- PAY_ELEMENT_ENTRY needs to be handled differently
1982: if lower(l_hist_rec.table_name) = lower(ghr_history_api.g_eleent_table) then
1979: l_datetrack_table := FALSE;
1980: end if;
1981: -- PAY_ELEMENT_ENTRY needs to be handled differently
1982: if lower(l_hist_rec.table_name) = lower(ghr_history_api.g_eleent_table) then
1983: hr_utility.set_location('Processing element entry record'|| l_proc,25);
1984: if l_hist_rec.DML_operation = ghr_history_api.g_ins_operation then
1985: hr_utility.set_location('Record was created'|| l_proc,30);
1986: -- Call Delete_element_entry;
1987: -- delete all entry values from history;
1981: -- PAY_ELEMENT_ENTRY needs to be handled differently
1982: if lower(l_hist_rec.table_name) = lower(ghr_history_api.g_eleent_table) then
1983: hr_utility.set_location('Processing element entry record'|| l_proc,25);
1984: if l_hist_rec.DML_operation = ghr_history_api.g_ins_operation then
1985: hr_utility.set_location('Record was created'|| l_proc,30);
1986: -- Call Delete_element_entry;
1987: -- delete all entry values from history;
1988: -- VSM Changes made for BUG # 611161
1989: -- To be able to delete this entry we have to pass previous record and
1992: -- the entry.
1993: l_result := FALSE;
1994: l_del_mode := hr_api.g_delete_next_change;
1995: if l_return_status is not null then
1996: hr_utility.set_location(' Call IF_ZAP_ELE_ENT' || l_proc, 31);
1997: If l_session_var.noa_id_correct is not null and l_sf52_data.first_noa_code = '866' then
1998: IF_ZAP_ELE_ENT(
1999: p_element_entry_id => l_hist_rec.information1,
2000: p_effective_start_date => l_hist_rec.effective_date + 1,
2002: p_result => l_result);
2003: if l_result then
2004: -- ie can zap the element;
2005:
2006: hr_utility.set_location(' ZAP Mode set ' || l_proc, 32);
2007: l_del_mode := hr_api.g_zap;
2008: -- As there is no pre record. copy current row in pre record
2009: l_hist_pre := l_hist_rec;
2010: end if;
2016: p_result => l_result);
2017: if l_result then
2018: -- ie can zap the element;
2019:
2020: hr_utility.set_location(' ZAP Mode set ' || l_proc, 32);
2021: l_del_mode := hr_api.g_zap;
2022: -- As there is no pre record. copy current row in pre record
2023: l_hist_pre := l_hist_rec;
2024: end if;
2031: p_del_mode => l_del_mode,
2032: p_cannot_cancel => l_cannot_cancel);
2033: if l_cannot_cancel then
2034: -- raise error
2035: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2036: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2037: hr_utility.raise_error;
2038: else
2039: hr_utility.set_location('Delete rows.'|| l_proc,40);
2032: p_cannot_cancel => l_cannot_cancel);
2033: if l_cannot_cancel then
2034: -- raise error
2035: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2036: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2037: hr_utility.raise_error;
2038: else
2039: hr_utility.set_location('Delete rows.'|| l_proc,40);
2040: delete_hist_row ( l_hist_rec.pa_history_id);
2033: if l_cannot_cancel then
2034: -- raise error
2035: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2036: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2037: hr_utility.raise_error;
2038: else
2039: hr_utility.set_location('Delete rows.'|| l_proc,40);
2040: delete_hist_row ( l_hist_rec.pa_history_id);
2041: delete_eleentval( l_hist_rec);
2035: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2036: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2037: hr_utility.raise_error;
2038: else
2039: hr_utility.set_location('Delete rows.'|| l_proc,40);
2040: delete_hist_row ( l_hist_rec.pa_history_id);
2041: delete_eleentval( l_hist_rec);
2042: end if;
2043: else
2046: loop
2047: l_element_name := element_name_rec.element_name;
2048: exit;
2049: end loop;
2050: hr_utility.set_location('element_name '||l_element_name,10);
2051: delete_other_pay_entries(p_hist_rec => l_hist_rec,
2052: p_element_name => l_element_name);
2053: --Bug#2521744 testing
2054: end if;
2052: p_element_name => l_element_name);
2053: --Bug#2521744 testing
2054: end if;
2055: else
2056: hr_utility.set_location('Record was not created.'|| l_proc,45);
2057: null;
2058: end if;
2059: -- Delete history record
2060: delete_hist_row ( l_hist_rec.pa_history_id);
2060: delete_hist_row ( l_hist_rec.pa_history_id);
2061:
2062: -- PAY_ELEMENT_ENTRY_VALUE needs to be handled differently
2063: elsif lower(l_hist_rec.table_name) = lower (ghr_history_api.g_eleevl_table) then
2064: hr_utility.set_location('Processing element entry value record'|| l_proc,47);
2065: if l_hist_rec.DML_operation = ghr_history_api.g_upd_operation then
2066: hr_utility.set_location('Record was updated' || l_proc,48);
2067: if (l_pre_record = FALSE) then
2068: -- Bug#2521744 Added if condition
2062: -- PAY_ELEMENT_ENTRY_VALUE needs to be handled differently
2063: elsif lower(l_hist_rec.table_name) = lower (ghr_history_api.g_eleevl_table) then
2064: hr_utility.set_location('Processing element entry value record'|| l_proc,47);
2065: if l_hist_rec.DML_operation = ghr_history_api.g_upd_operation then
2066: hr_utility.set_location('Record was updated' || l_proc,48);
2067: if (l_pre_record = FALSE) then
2068: -- Bug#2521744 Added if condition
2069: for element_name_rec1 in c_element_name1(l_hist_rec.information5)
2070: loop
2074: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_bus_group_id);
2075: l_element_name1 := pqp_fedhr_uspay_int_utils.return_old_element_name
2076: (l_element_name1,l_bus_group_id,l_hist_rec.effective_date);
2077:
2078: hr_utility.set_location('element_name '||l_element_name1,10);
2079: IF l_element_name1 IN ('Retention Allowance','Supervisory Differential',
2080: 'AUO','Availability Pay','Other Pay') then
2081: hr_utility.set_location('Inside Oth pay elt val condition',15);
2082: NULL;
2077:
2078: hr_utility.set_location('element_name '||l_element_name1,10);
2079: IF l_element_name1 IN ('Retention Allowance','Supervisory Differential',
2080: 'AUO','Availability Pay','Other Pay') then
2081: hr_utility.set_location('Inside Oth pay elt val condition',15);
2082: NULL;
2083: Else
2084: -- raise error. Must have a pre in order to cancel.
2085: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2081: hr_utility.set_location('Inside Oth pay elt val condition',15);
2082: NULL;
2083: Else
2084: -- raise error. Must have a pre in order to cancel.
2085: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2086: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2087: hr_utility.raise_error;
2088: End IF;
2089: -- End of Bug#2521744
2082: NULL;
2083: Else
2084: -- raise error. Must have a pre in order to cancel.
2085: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2086: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2087: hr_utility.raise_error;
2088: End IF;
2089: -- End of Bug#2521744
2090: else
2083: Else
2084: -- raise error. Must have a pre in order to cancel.
2085: hr_utility.set_location('ERROR: Cannot Cancel'|| l_proc,35);
2086: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2087: hr_utility.raise_error;
2088: End IF;
2089: -- End of Bug#2521744
2090: else
2091: -- get date_effective row from table. See if it is different than the value of the
2100: p_pa_history_id => l_pa_history_id);
2101: if l_result_code is not null then
2102: -- this should never be the case
2103: -- raise error.
2104: hr_utility.set_location( l_proc, 50);
2105: hr_utility.set_message(8301,'GHR_38361_ELEMENT_ROW_NFND');
2106: hr_utility.raise_error;
2107: end if;
2108: hr_utility.set_location( 'l_hist_rec.pa_history_id: ' || l_hist_rec.pa_history_id || l_proc, 1150);
2101: if l_result_code is not null then
2102: -- this should never be the case
2103: -- raise error.
2104: hr_utility.set_location( l_proc, 50);
2105: hr_utility.set_message(8301,'GHR_38361_ELEMENT_ROW_NFND');
2106: hr_utility.raise_error;
2107: end if;
2108: hr_utility.set_location( 'l_hist_rec.pa_history_id: ' || l_hist_rec.pa_history_id || l_proc, 1150);
2109: hr_utility.set_location( 'l_pa_history_id: ' || l_pa_history_id || l_proc, 1250);
2102: -- this should never be the case
2103: -- raise error.
2104: hr_utility.set_location( l_proc, 50);
2105: hr_utility.set_message(8301,'GHR_38361_ELEMENT_ROW_NFND');
2106: hr_utility.raise_error;
2107: end if;
2108: hr_utility.set_location( 'l_hist_rec.pa_history_id: ' || l_hist_rec.pa_history_id || l_proc, 1150);
2109: hr_utility.set_location( 'l_pa_history_id: ' || l_pa_history_id || l_proc, 1250);
2110: if (l_hist_rec.pa_history_id = l_pa_history_id) then
2104: hr_utility.set_location( l_proc, 50);
2105: hr_utility.set_message(8301,'GHR_38361_ELEMENT_ROW_NFND');
2106: hr_utility.raise_error;
2107: end if;
2108: hr_utility.set_location( 'l_hist_rec.pa_history_id: ' || l_hist_rec.pa_history_id || l_proc, 1150);
2109: hr_utility.set_location( 'l_pa_history_id: ' || l_pa_history_id || l_proc, 1250);
2110: if (l_hist_rec.pa_history_id = l_pa_history_id) then
2111:
2112: -- update element_entry_value here.
2105: hr_utility.set_message(8301,'GHR_38361_ELEMENT_ROW_NFND');
2106: hr_utility.raise_error;
2107: end if;
2108: hr_utility.set_location( 'l_hist_rec.pa_history_id: ' || l_hist_rec.pa_history_id || l_proc, 1150);
2109: hr_utility.set_location( 'l_pa_history_id: ' || l_pa_history_id || l_proc, 1250);
2110: if (l_hist_rec.pa_history_id = l_pa_history_id) then
2111:
2112: -- update element_entry_value here.
2113: -- update application table with pre-values
2117: end if;
2118: -- Delete history record
2119: delete_hist_row ( l_hist_rec.pa_history_id);
2120: else
2121: hr_utility.set_location('Processing non element entry table'|| l_proc,50);
2122: -- cascade changes thru history table
2123: ghr_history_cascade.cascade_history_data (
2124: p_table_name => l_hist_rec.table_name,
2125: p_person_id => l_hist_rec.person_id,
2131: p_hist_data_as_of_date => l_hist_data_as_of_date);
2132:
2133: -- Determine if this record was created or updated.
2134: if l_datetrack_table then
2135: hr_utility.set_location('In Cancel - Date track table' ,1);
2136: if l_hist_rec.DML_operation = ghr_history_api.g_ins_operation then
2137: hr_utility.set_location('in Cancel - DML - Ins' ,1);
2138: l_rec_created_flag := TRUE;
2139:
2133: -- Determine if this record was created or updated.
2134: if l_datetrack_table then
2135: hr_utility.set_location('In Cancel - Date track table' ,1);
2136: if l_hist_rec.DML_operation = ghr_history_api.g_ins_operation then
2137: hr_utility.set_location('in Cancel - DML - Ins' ,1);
2138: l_rec_created_flag := TRUE;
2139:
2140: -- if this sf50 updated the row, then the pre must have the same date.
2141: -- The triggers work such that we will only have update from sf50 operation
2145: -- by the sf52. So, we must set the rec_created_flag to true for this row. Note
2146: -- this stands true with date tracked tables only as with non-date tracked tables there
2147: -- is only one row in a record, so this case will never occur.
2148: elsif l_hist_rec.DML_operation = ghr_history_api.g_upd_operation then
2149: hr_utility.set_location('in Cancel - DML - Upd' ,1);
2150: if l_hist_rec.effective_date <> l_hist_pre.effective_date then
2151: l_rec_created_flag := TRUE;
2152: hr_utility.set_location('in Cancel - Created' ,1);
2153: else
2148: elsif l_hist_rec.DML_operation = ghr_history_api.g_upd_operation then
2149: hr_utility.set_location('in Cancel - DML - Upd' ,1);
2150: if l_hist_rec.effective_date <> l_hist_pre.effective_date then
2151: l_rec_created_flag := TRUE;
2152: hr_utility.set_location('in Cancel - Created' ,1);
2153: else
2154: l_rec_created_flag := FALSE;
2155: hr_utility.set_location('in Cancel - Not Created' ,1);
2156: end if;
2151: l_rec_created_flag := TRUE;
2152: hr_utility.set_location('in Cancel - Created' ,1);
2153: else
2154: l_rec_created_flag := FALSE;
2155: hr_utility.set_location('in Cancel - Not Created' ,1);
2156: end if;
2157: end if;
2158: else
2159: hr_utility.set_location('In Cancel - Not a Date track table' ,1);
2155: hr_utility.set_location('in Cancel - Not Created' ,1);
2156: end if;
2157: end if;
2158: else
2159: hr_utility.set_location('In Cancel - Not a Date track table' ,1);
2160: l_rec_created_flag := (l_hist_rec.DML_operation = ghr_history_api.g_ins_operation);
2161: end if;
2162:
2163: what_to_do(
2169: p_can_delete => l_can_delete,
2170: p_last_row => l_last_row,
2171: p_cannot_cancel => l_cannot_cancel);
2172: If l_interv_on_table then
2173: hr_utility.set_location('what to do' || ' interv on table',1);
2174: else
2175: hr_utility.set_location('what to do ' || 'no interv on table',1);
2176: end if;
2177: If l_interv_on_eff_date then
2171: p_cannot_cancel => l_cannot_cancel);
2172: If l_interv_on_table then
2173: hr_utility.set_location('what to do' || ' interv on table',1);
2174: else
2175: hr_utility.set_location('what to do ' || 'no interv on table',1);
2176: end if;
2177: If l_interv_on_eff_date then
2178: hr_utility.set_location('what to do' || ' interv on eff',1);
2179: else
2174: else
2175: hr_utility.set_location('what to do ' || 'no interv on table',1);
2176: end if;
2177: If l_interv_on_eff_date then
2178: hr_utility.set_location('what to do' || ' interv on eff',1);
2179: else
2180: hr_utility.set_location('what to do ' || 'no interv on eff' ,1);
2181: end if;
2182:
2176: end if;
2177: If l_interv_on_eff_date then
2178: hr_utility.set_location('what to do' || ' interv on eff',1);
2179: else
2180: hr_utility.set_location('what to do ' || 'no interv on eff' ,1);
2181: end if;
2182:
2183: if (l_cannot_cancel = TRUE) then
2184: hr_utility.set_location('ERROR: Cannot cancel'|| l_proc,55);
2180: hr_utility.set_location('what to do ' || 'no interv on eff' ,1);
2181: end if;
2182:
2183: if (l_cannot_cancel = TRUE) then
2184: hr_utility.set_location('ERROR: Cannot cancel'|| l_proc,55);
2185: -- error, cannot cancel
2186: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2187: hr_utility.raise_error;
2188: end if;
2182:
2183: if (l_cannot_cancel = TRUE) then
2184: hr_utility.set_location('ERROR: Cannot cancel'|| l_proc,55);
2185: -- error, cannot cancel
2186: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2187: hr_utility.raise_error;
2188: end if;
2189:
2190: -- use flags to determine datetrack_mode, if needed.
2183: if (l_cannot_cancel = TRUE) then
2184: hr_utility.set_location('ERROR: Cannot cancel'|| l_proc,55);
2185: -- error, cannot cancel
2186: hr_utility.set_message(8301,'GHR_38212_CANNOT_CANCEL');
2187: hr_utility.raise_error;
2188: end if;
2189:
2190: -- use flags to determine datetrack_mode, if needed.
2191: -- delete row under conditions outlined below.
2191: -- delete row under conditions outlined below.
2192: l_deleted := FALSE;
2193: l_datetrack_mode := null;
2194: if (l_can_delete = TRUE) then
2195: hr_utility.set_location('CAN delete'|| l_proc,60);
2196: if (l_datetrack_table = TRUE) then
2197: hr_utility.set_location('Datetrack table'|| l_proc,65);
2198: if (l_pre_record = FALSE and l_last_row = TRUE) then
2199: hr_utility.set_location('Only Row'|| l_proc,70);
2193: l_datetrack_mode := null;
2194: if (l_can_delete = TRUE) then
2195: hr_utility.set_location('CAN delete'|| l_proc,60);
2196: if (l_datetrack_table = TRUE) then
2197: hr_utility.set_location('Datetrack table'|| l_proc,65);
2198: if (l_pre_record = FALSE and l_last_row = TRUE) then
2199: hr_utility.set_location('Only Row'|| l_proc,70);
2200: l_datetrack_mode := hr_api.g_zap;
2201: else
2195: hr_utility.set_location('CAN delete'|| l_proc,60);
2196: if (l_datetrack_table = TRUE) then
2197: hr_utility.set_location('Datetrack table'|| l_proc,65);
2198: if (l_pre_record = FALSE and l_last_row = TRUE) then
2199: hr_utility.set_location('Only Row'|| l_proc,70);
2200: l_datetrack_mode := hr_api.g_zap;
2201: else
2202: hr_utility.set_location('Not Only Row'|| l_proc,75);
2203: l_datetrack_mode := hr_api.g_delete_next_change;
2198: if (l_pre_record = FALSE and l_last_row = TRUE) then
2199: hr_utility.set_location('Only Row'|| l_proc,70);
2200: l_datetrack_mode := hr_api.g_zap;
2201: else
2202: hr_utility.set_location('Not Only Row'|| l_proc,75);
2203: l_datetrack_mode := hr_api.g_delete_next_change;
2204:
2205: end if;
2206: end if;
2203: l_datetrack_mode := hr_api.g_delete_next_change;
2204:
2205: end if;
2206: end if;
2207: hr_utility.set_location('after what to do Del Mode ' || l_datetrack_mode,1);
2208: -- only do the delete if this is a datetrack table or if it is the only row of a
2209: -- non datetrack table. In all other cases, cascade will properly handle it.
2210:
2211: if (l_datetrack_table = TRUE or (l_last_row = TRUE and l_pre_record = FALSE)) then
2208: -- only do the delete if this is a datetrack table or if it is the only row of a
2209: -- non datetrack table. In all other cases, cascade will properly handle it.
2210:
2211: if (l_datetrack_table = TRUE or (l_last_row = TRUE and l_pre_record = FALSE)) then
2212: hr_utility.set_location('Deleting Application row'|| l_proc,80);
2213: l_deleted := TRUE;
2214: delete_appl_row( p_table_name => l_hist_rec.table_name,
2215: p_table_pk_id => l_hist_rec.information1,
2216: p_dt_mode => l_datetrack_mode,
2214: delete_appl_row( p_table_name => l_hist_rec.table_name,
2215: p_table_pk_id => l_hist_rec.information1,
2216: p_dt_mode => l_datetrack_mode,
2217: p_date_effective => l_hist_rec.effective_date);
2218: hr_utility.set_location('Hist Rec Eff . Date ' || l_hist_rec.effective_date,1);
2219:
2220: end if;
2221: end if;
2222: -- Delete history record
2224: -- cascade changes thru application table, if the application table record was not already deleted above.
2225: if (l_deleted = FALSE)
2226: or (l_datetrack_mode = hr_api.g_delete_next_change) then
2227: if (l_deleted = FALSE) then
2228: hr_utility.set_location('deleted is false : Bef cascade appl_table',1);
2229: else
2230:
2231: hr_utility.set_location('delete next change : Bef cascade appl_table',1);
2232: end if;
2227: if (l_deleted = FALSE) then
2228: hr_utility.set_location('deleted is false : Bef cascade appl_table',1);
2229: else
2230:
2231: hr_utility.set_location('delete next change : Bef cascade appl_table',1);
2232: end if;
2233: -- Sundar Bug#2872298 Cascade should not occur if records are already deleted and
2234: -- delete mode in DELETE_NEXT_CHANGE
2235: IF (l_deleted = TRUE) AND (l_datetrack_mode = hr_api.g_delete_next_change) --AND (p_sf52_data.second_noa_code = '790')
2238: ELSE
2239: --5900178
2240: l_rec_exists := TRUE;
2241: IF l_hist_rec.table_name = 'PER_PERSON_ANALYSES' THEN
2242: hr_utility.set_location('In per_person_analyses record checking',997);
2243: OPEN chk_perana_exists(p_person_analysis_id => l_hist_rec.information1);
2244: FETCH chk_perana_exists into m_perana;
2245: IF chk_perana_exists%NOTFOUND THEN
2246: hr_utility.set_location('In per_person_analyses record checking--notfound',996);
2242: hr_utility.set_location('In per_person_analyses record checking',997);
2243: OPEN chk_perana_exists(p_person_analysis_id => l_hist_rec.information1);
2244: FETCH chk_perana_exists into m_perana;
2245: IF chk_perana_exists%NOTFOUND THEN
2246: hr_utility.set_location('In per_person_analyses record checking--notfound',996);
2247: l_rec_exists := FALSE;
2248: END IF;
2249: CLOSE chk_perana_exists;
2250: END IF;
2264:
2265: end if;
2266: end if;
2267: END LOOP;
2268: hr_utility.set_location('Exited Loop'|| l_proc,85);
2269:
2270: ghr_agency_update.ghr_agency_upd(
2271: p_pa_request_rec => l_sf52_data,
2272: p_asg_sf52 => l_imm_asg_sf52,
2329: p_from_position_id => p_sf52_data.from_position_id,
2330: p_to_position_id => p_sf52_data.to_position_id,
2331: p_agency_code => p_sf52_data.agency_code);
2332:
2333: hr_utility.set_location( l_proc, 90);
2334: Undo_Mark_Cancel ( p_sf52_data => p_sf52_data);
2335: hr_utility.set_location( 'Leaving ' || l_proc, 100);
2336: End if;
2337: Exception when others then
2331: p_agency_code => p_sf52_data.agency_code);
2332:
2333: hr_utility.set_location( l_proc, 90);
2334: Undo_Mark_Cancel ( p_sf52_data => p_sf52_data);
2335: hr_utility.set_location( 'Leaving ' || l_proc, 100);
2336: End if;
2337: Exception when others then
2338: --
2339: -- Reset IN OUT parameters and set OUT parameters
2442: l_sf52_rec ghr_pa_requests%rowtype;
2443: l_shadow_rec ghr_pa_request_shadow%rowtype;
2444: Begin
2445:
2446: hr_utility.set_location( 'Entering ' || l_proc, 10);
2447: l_sf52_rec := p_sf52_rec;
2448: l_shadow_rec := p_shadow_rec;
2449:
2450: open get_hist;
2449:
2450: open get_hist;
2451: fetch get_hist into l_hist_id;
2452: close get_hist;
2453: hr_utility.set_location( 'Fetched Hist id' || l_proc, 15);
2454:
2455: ghr_history_fetch.fetch_people(
2456: p_person_id => p_sf52_data.person_id,
2457: p_date_effective => p_sf52_data.effective_date,
2462: p_result_code => l_result_code
2463: );
2464:
2465: if l_result_code is NULL then
2466: hr_utility.set_location( 'People Data Found' || l_proc, 20);
2467:
2468: if nvl(p_sf52_rec.employee_first_name, hr_api.g_varchar2) = nvl(p_shadow_rec.employee_first_name , hr_api.g_varchar2) and
2469: nvl(p_sf52_rec.employee_last_name , hr_api.g_varchar2) = nvl(p_shadow_rec.employee_last_name , hr_api.g_varchar2) and
2470: nvl(p_sf52_rec.employee_middle_names,hr_api.g_varchar2) = nvl(p_shadow_rec.employee_middle_names, hr_api.g_varchar2) then
2468: if nvl(p_sf52_rec.employee_first_name, hr_api.g_varchar2) = nvl(p_shadow_rec.employee_first_name , hr_api.g_varchar2) and
2469: nvl(p_sf52_rec.employee_last_name , hr_api.g_varchar2) = nvl(p_shadow_rec.employee_last_name , hr_api.g_varchar2) and
2470: nvl(p_sf52_rec.employee_middle_names,hr_api.g_varchar2) = nvl(p_shadow_rec.employee_middle_names, hr_api.g_varchar2) then
2471:
2472: hr_utility.set_location( 'Refresh Name ' || l_proc, 30);
2473: p_sf52_rec.employee_first_name := l_people_data.first_name;
2474: p_sf52_rec.employee_last_name := l_people_data.last_name;
2475: p_sf52_rec.employee_middle_names := l_people_data.middle_names;
2476:
2478: p_shadow_rec.employee_last_name := l_people_data.last_name;
2479: p_shadow_rec.employee_middle_names := l_people_data.middle_names;
2480: end if;
2481:
2482: hr_utility.set_location( 'Check SSN ' || l_proc, 35);
2483: if nvl(p_sf52_rec.employee_national_identifier, hr_api.g_varchar2) = nvl(p_shadow_rec.employee_national_identifier, hr_api.g_varchar2) then
2484: hr_utility.set_location( 'Refresh SSN ' || l_proc, 40);
2485: p_sf52_rec.employee_national_identifier := l_people_data.national_identifier;
2486: hr_utility.set_location( 'Refresh SSN ' || l_proc, 41);
2480: end if;
2481:
2482: hr_utility.set_location( 'Check SSN ' || l_proc, 35);
2483: if nvl(p_sf52_rec.employee_national_identifier, hr_api.g_varchar2) = nvl(p_shadow_rec.employee_national_identifier, hr_api.g_varchar2) then
2484: hr_utility.set_location( 'Refresh SSN ' || l_proc, 40);
2485: p_sf52_rec.employee_national_identifier := l_people_data.national_identifier;
2486: hr_utility.set_location( 'Refresh SSN ' || l_proc, 41);
2487: p_shadow_rec.employee_national_identifier := l_people_data.national_identifier;
2488: end if;
2482: hr_utility.set_location( 'Check SSN ' || l_proc, 35);
2483: if nvl(p_sf52_rec.employee_national_identifier, hr_api.g_varchar2) = nvl(p_shadow_rec.employee_national_identifier, hr_api.g_varchar2) then
2484: hr_utility.set_location( 'Refresh SSN ' || l_proc, 40);
2485: p_sf52_rec.employee_national_identifier := l_people_data.national_identifier;
2486: hr_utility.set_location( 'Refresh SSN ' || l_proc, 41);
2487: p_shadow_rec.employee_national_identifier := l_people_data.national_identifier;
2488: end if;
2489:
2490: hr_utility.set_location( 'check DOB ' || l_proc, 45);
2486: hr_utility.set_location( 'Refresh SSN ' || l_proc, 41);
2487: p_shadow_rec.employee_national_identifier := l_people_data.national_identifier;
2488: end if;
2489:
2490: hr_utility.set_location( 'check DOB ' || l_proc, 45);
2491: if nvl(p_sf52_rec.employee_date_of_birth, hr_api.g_date) = nvl(p_shadow_rec.employee_date_of_birth, hr_api.g_date) then
2492: hr_utility.set_location( 'Refresh DOB ' || l_proc, 50);
2493: p_sf52_rec.employee_date_of_birth := l_people_data.date_of_birth;
2494: hr_utility.set_location( 'Refresh DOB ' || l_proc, 51);
2488: end if;
2489:
2490: hr_utility.set_location( 'check DOB ' || l_proc, 45);
2491: if nvl(p_sf52_rec.employee_date_of_birth, hr_api.g_date) = nvl(p_shadow_rec.employee_date_of_birth, hr_api.g_date) then
2492: hr_utility.set_location( 'Refresh DOB ' || l_proc, 50);
2493: p_sf52_rec.employee_date_of_birth := l_people_data.date_of_birth;
2494: hr_utility.set_location( 'Refresh DOB ' || l_proc, 51);
2495: p_shadow_rec.employee_date_of_birth := l_people_data.date_of_birth;
2496: end if;
2490: hr_utility.set_location( 'check DOB ' || l_proc, 45);
2491: if nvl(p_sf52_rec.employee_date_of_birth, hr_api.g_date) = nvl(p_shadow_rec.employee_date_of_birth, hr_api.g_date) then
2492: hr_utility.set_location( 'Refresh DOB ' || l_proc, 50);
2493: p_sf52_rec.employee_date_of_birth := l_people_data.date_of_birth;
2494: hr_utility.set_location( 'Refresh DOB ' || l_proc, 51);
2495: p_shadow_rec.employee_date_of_birth := l_people_data.date_of_birth;
2496: end if;
2497:
2498: end if;
2495: p_shadow_rec.employee_date_of_birth := l_people_data.date_of_birth;
2496: end if;
2497:
2498: end if;
2499: hr_utility.set_location( 'Leaving ' || l_proc, 100);
2500: Exception when others then
2501: --
2502: -- Reset IN OUT parameters and set OUT parameters
2503: --
2508: End;
2509:
2510: begin
2511:
2512: hr_utility.set_location('Entering:'|| l_proc, 5);
2513: -- reinitialise session variables
2514: ghr_history_api.reinit_g_session_var;
2515:
2516: -- set values of session variables
2546: -- .47
2547:
2548: /* .47
2549: -- get root sf52 for this correction
2550: hr_utility.set_location(l_proc, 102);
2551: open c_get_root (p_sf52_data.altered_pa_request_id);
2552: fetch c_get_root into l_root_sf52;
2553: if c_get_root%notfound then
2554: hr_utility.set_location(l_proc, 103);
2550: hr_utility.set_location(l_proc, 102);
2551: open c_get_root (p_sf52_data.altered_pa_request_id);
2552: fetch c_get_root into l_root_sf52;
2553: if c_get_root%notfound then
2554: hr_utility.set_location(l_proc, 103);
2555: close c_get_root ;
2556: hr_utility.set_message(8301,'GHR_38493_ROOT_SF52_NFND');
2557: hr_utility.raise_error;
2558: else
2552: fetch c_get_root into l_root_sf52;
2553: if c_get_root%notfound then
2554: hr_utility.set_location(l_proc, 103);
2555: close c_get_root ;
2556: hr_utility.set_message(8301,'GHR_38493_ROOT_SF52_NFND');
2557: hr_utility.raise_error;
2558: else
2559: close c_get_root ;
2560: end if;
2553: if c_get_root%notfound then
2554: hr_utility.set_location(l_proc, 103);
2555: close c_get_root ;
2556: hr_utility.set_message(8301,'GHR_38493_ROOT_SF52_NFND');
2557: hr_utility.raise_error;
2558: else
2559: close c_get_root ;
2560: end if;
2561:
2593: open c_fam(l_sf52_data.second_noa_id);
2594: fetch c_fam into l_sf52_data.noa_family_code;
2595: if c_fam%NOTFOUND then
2596: close c_fam;
2597: hr_utility.set_message(8301,'GHR_38211_NOA_FAMILY_NOTFOUND');
2598: hr_utility.raise_error;
2599: end if;
2600: close c_fam;
2601:
2594: fetch c_fam into l_sf52_data.noa_family_code;
2595: if c_fam%NOTFOUND then
2596: close c_fam;
2597: hr_utility.set_message(8301,'GHR_38211_NOA_FAMILY_NOTFOUND');
2598: hr_utility.raise_error;
2599: end if;
2600: close c_fam;
2601:
2602:
2603: -- build up the sf52_data record by calling apply_noa_corrections.
2604: -- when this completes, l_sf52_data_result will contain the data of the original
2605: -- sf52, with all corrections in the correction chain applied onto it.
2606: -- apply_noa_corrections ensures that name/dob/ssn are retained from the last correction ie the one being processed.
2607: hr_utility.set_location('from_step_or_rate right before apply_noa_corrections: '|| l_sf52_data.from_step_or_rate || l_proc, 915);
2608: ghr_process_sf52.print_sf52(' l_sf52_data before apply_noa ',l_sf52_data);
2609: ghr_process_sf52.print_sf52(' l_sf52_data_result before apply_noa ',l_sf52_data_result);
2610: apply_noa_corrections( l_sf52_data, l_sf52_data_result );
2611: ghr_process_sf52.print_sf52(' l_sf52_data after apply_noa ',l_sf52_data);
2624: p_sf52_ei_data => l_agency_ei_data,
2625: p_result => l_result);
2626:
2627: -- check for future action
2628: hr_utility.set_location('national_identifier right before update sf52: '|| l_sf52_data_result.employee_national_identifier || l_proc, 915);
2629: hr_utility.set_location('from_step_or_rate right before update sf52: '|| l_sf52_data_result.from_step_or_rate || l_proc, 915);
2630: hr_utility.set_location('to_step_or_rate right before update sf52: '|| l_sf52_data_result.to_step_or_rate || l_proc, 915);
2631:
2632: ghr_history_api.display_g_session_var;
2625: p_result => l_result);
2626:
2627: -- check for future action
2628: hr_utility.set_location('national_identifier right before update sf52: '|| l_sf52_data_result.employee_national_identifier || l_proc, 915);
2629: hr_utility.set_location('from_step_or_rate right before update sf52: '|| l_sf52_data_result.from_step_or_rate || l_proc, 915);
2630: hr_utility.set_location('to_step_or_rate right before update sf52: '|| l_sf52_data_result.to_step_or_rate || l_proc, 915);
2631:
2632: ghr_history_api.display_g_session_var;
2633: -- Check if atleast the min. required items exist in the pa_request
2626:
2627: -- check for future action
2628: hr_utility.set_location('national_identifier right before update sf52: '|| l_sf52_data_result.employee_national_identifier || l_proc, 915);
2629: hr_utility.set_location('from_step_or_rate right before update sf52: '|| l_sf52_data_result.from_step_or_rate || l_proc, 915);
2630: hr_utility.set_location('to_step_or_rate right before update sf52: '|| l_sf52_data_result.to_step_or_rate || l_proc, 915);
2631:
2632: ghr_history_api.display_g_session_var;
2633: -- Check if atleast the min. required items exist in the pa_request
2634: ghr_sf52_validn_pkg.prelim_req_chk_for_update_hr(p_pa_request_rec => l_sf52_data_result);
2647: ghr_sf52_update.main( p_pa_request_rec => l_sf52_data_result,
2648: p_pa_request_ei_rec => l_sf52_ei_data,
2649: p_generic_ei_rec => l_agency_ei_data,
2650: p_capped_other_pay => p_capped_other_pay);
2651: hr_utility.set_location('to_position_id right before update sf52: '|| l_sf52_data_result.to_position_id || l_proc, 915);
2652: hr_utility.set_location('After main update :'|| l_proc, 20);
2653: ghr_sf52_post_update.Post_sf52_process(
2654: p_pa_request_id => p_sf52_data.pa_request_id,
2655: p_effective_date => l_session_var.date_effective,
2648: p_pa_request_ei_rec => l_sf52_ei_data,
2649: p_generic_ei_rec => l_agency_ei_data,
2650: p_capped_other_pay => p_capped_other_pay);
2651: hr_utility.set_location('to_position_id right before update sf52: '|| l_sf52_data_result.to_position_id || l_proc, 915);
2652: hr_utility.set_location('After main update :'|| l_proc, 20);
2653: ghr_sf52_post_update.Post_sf52_process(
2654: p_pa_request_id => p_sf52_data.pa_request_id,
2655: p_effective_date => l_session_var.date_effective,
2656: p_object_version_number => l_sf52_data1.object_version_number,
2661: p_called_from => 'CORRECTION_SF52'
2662: );
2663:
2664: end if;
2665: hr_utility.set_location(' Leaving:'||l_proc, 10);
2666: end correction_sf52;
2667:
2668: -- ---------------------------------------------------------------------------
2669: -- |--------------------------< delete_hist_row>------------------------------|
2696:
2697: Procedure delete_hist_row ( p_row_id in rowid) is
2698: l_proc varchar2(30):='delete_hist_row';
2699: Begin
2700: hr_utility.set_location( 'Entering : ' || l_proc, 10);
2701: delete ghr_pa_history
2702: where rowid = p_row_id;
2703: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
2704: End delete_hist_row;
2699: Begin
2700: hr_utility.set_location( 'Entering : ' || l_proc, 10);
2701: delete ghr_pa_history
2702: where rowid = p_row_id;
2703: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
2704: End delete_hist_row;
2705:
2706: -- ---------------------------------------------------------------------------
2707: -- |--------------------------< delete_hist_row>------------------------------|
2734:
2735: Procedure delete_hist_row ( p_pa_history_id in ghr_pa_history.pa_history_id%type) is
2736: l_proc varchar2(30):='delete_hist_row';
2737: Begin
2738: hr_utility.set_location( 'Entering : ' || l_proc, 30);
2739: delete ghr_pa_history
2740: where pa_history_id = p_pa_history_id;
2741: hr_utility.set_location( 'Leaving : ' || l_proc, 40);
2742: End delete_hist_row;
2737: Begin
2738: hr_utility.set_location( 'Entering : ' || l_proc, 30);
2739: delete ghr_pa_history
2740: where pa_history_id = p_pa_history_id;
2741: hr_utility.set_location( 'Leaving : ' || l_proc, 40);
2742: End delete_hist_row;
2743:
2744: -- ---------------------------------------------------------------------------
2745: -- |--------------------------< apply_correction>-----------------------------|
2793: l_award_salary number;
2794: l_temp_award_amount number;
2795: -- End Bug# 5014663
2796: BEGIN
2797: hr_utility.set_location('Entering:'|| l_proc, 5);
2798: l_sf52rec := p_sf52rec;
2799: hr_utility.set_location('pre par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2800: hr_utility.set_location('pre par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2801: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_request_id , p_sf52rec.pa_request_id );
2795: -- End Bug# 5014663
2796: BEGIN
2797: hr_utility.set_location('Entering:'|| l_proc, 5);
2798: l_sf52rec := p_sf52rec;
2799: hr_utility.set_location('pre par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2800: hr_utility.set_location('pre par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2801: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_request_id , p_sf52rec.pa_request_id );
2802: hr_utility.set_location('post par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2803: hr_utility.set_location('post par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2796: BEGIN
2797: hr_utility.set_location('Entering:'|| l_proc, 5);
2798: l_sf52rec := p_sf52rec;
2799: hr_utility.set_location('pre par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2800: hr_utility.set_location('pre par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2801: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_request_id , p_sf52rec.pa_request_id );
2802: hr_utility.set_location('post par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2803: hr_utility.set_location('post par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2804: -- the following two fields are not filled in because they are derived.
2798: l_sf52rec := p_sf52rec;
2799: hr_utility.set_location('pre par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2800: hr_utility.set_location('pre par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2801: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_request_id , p_sf52rec.pa_request_id );
2802: hr_utility.set_location('post par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2803: hr_utility.set_location('post par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2804: -- the following two fields are not filled in because they are derived.
2805: -- ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_notification_id , p_sf52rec.pa_notification_id );
2806: -- ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.noa_family_code , p_sf52rec.noa_family_code );
2799: hr_utility.set_location('pre par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2800: hr_utility.set_location('pre par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2801: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_request_id , p_sf52rec.pa_request_id );
2802: hr_utility.set_location('post par: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2803: hr_utility.set_location('post par: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2804: -- the following two fields are not filled in because they are derived.
2805: -- ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.pa_notification_id , p_sf52rec.pa_notification_id );
2806: -- ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.noa_family_code , p_sf52rec.noa_family_code );
2807: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.academic_discipline , p_sf52rec.academic_discipline );
2821: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.duty_station_id , p_sf52rec.duty_station_id );
2822: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.duty_station_location_id , p_sf52rec.duty_station_location_id );
2823: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.education_level , p_sf52rec.education_level );
2824: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.effective_date , p_sf52rec.effective_date );
2825: hr_utility.set_location('pre: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,6);
2826: hr_utility.set_location('pre: rec assignment id=' || p_sf52rec.employee_assignment_id,7);
2827: hr_utility.set_location('pre: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2822: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.duty_station_location_id , p_sf52rec.duty_station_location_id );
2823: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.education_level , p_sf52rec.education_level );
2824: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.effective_date , p_sf52rec.effective_date );
2825: hr_utility.set_location('pre: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,6);
2826: hr_utility.set_location('pre: rec assignment id=' || p_sf52rec.employee_assignment_id,7);
2827: hr_utility.set_location('pre: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2823: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.education_level , p_sf52rec.education_level );
2824: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.effective_date , p_sf52rec.effective_date );
2825: hr_utility.set_location('pre: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,6);
2826: hr_utility.set_location('pre: rec assignment id=' || p_sf52rec.employee_assignment_id,7);
2827: hr_utility.set_location('pre: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2824: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.effective_date , p_sf52rec.effective_date );
2825: hr_utility.set_location('pre: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,6);
2826: hr_utility.set_location('pre: rec assignment id=' || p_sf52rec.employee_assignment_id,7);
2827: hr_utility.set_location('pre: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2826: hr_utility.set_location('pre: rec assignment id=' || p_sf52rec.employee_assignment_id,7);
2827: hr_utility.set_location('pre: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2833: hr_utility.set_location('post: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2834: hr_utility.set_location('post: national_identifier=' || p_sf52rec.employee_national_identifier,7);
2827: hr_utility.set_location('pre: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2833: hr_utility.set_location('post: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2834: hr_utility.set_location('post: national_identifier=' || p_sf52rec.employee_national_identifier,7);
2835: hr_utility.set_location('post: reccorrect national_identifier =' || p_sf52rec_correct.employee_national_identifier,7);
2828: hr_utility.set_location('pre: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2833: hr_utility.set_location('post: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2834: hr_utility.set_location('post: national_identifier=' || p_sf52rec.employee_national_identifier,7);
2835: hr_utility.set_location('post: reccorrect national_identifier =' || p_sf52rec_correct.employee_national_identifier,7);
2836: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_date_of_birth , p_sf52rec.employee_date_of_birth );
2829: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_assignment_id , p_sf52rec.employee_assignment_id );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2833: hr_utility.set_location('post: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2834: hr_utility.set_location('post: national_identifier=' || p_sf52rec.employee_national_identifier,7);
2835: hr_utility.set_location('post: reccorrect national_identifier =' || p_sf52rec_correct.employee_national_identifier,7);
2836: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_date_of_birth , p_sf52rec.employee_date_of_birth );
2837: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_dept_or_agency , p_sf52rec.employee_dept_or_agency );
2830: hr_utility.set_location('post: rec_correct assignment id=' || p_sf52rec_correct.employee_assignment_id,8);
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2833: hr_utility.set_location('post: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2834: hr_utility.set_location('post: national_identifier=' || p_sf52rec.employee_national_identifier,7);
2835: hr_utility.set_location('post: reccorrect national_identifier =' || p_sf52rec_correct.employee_national_identifier,7);
2836: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_date_of_birth , p_sf52rec.employee_date_of_birth );
2837: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_dept_or_agency , p_sf52rec.employee_dept_or_agency );
2838: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_first_name , p_sf52rec.employee_first_name );
2831: hr_utility.set_location('post: rec assignment id=' || p_sf52rec.employee_assignment_id,9);
2832: hr_utility.set_location('post: rec_correct pa_request id=' || p_sf52rec_correct.pa_request_id,6);
2833: hr_utility.set_location('post: rec pa_request id=' || p_sf52rec.pa_request_id,7);
2834: hr_utility.set_location('post: national_identifier=' || p_sf52rec.employee_national_identifier,7);
2835: hr_utility.set_location('post: reccorrect national_identifier =' || p_sf52rec_correct.employee_national_identifier,7);
2836: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_date_of_birth , p_sf52rec.employee_date_of_birth );
2837: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_dept_or_agency , p_sf52rec.employee_dept_or_agency );
2838: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_first_name , p_sf52rec.employee_first_name );
2839: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.employee_last_name , p_sf52rec.employee_last_name );
2868: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_occ_code , p_sf52rec.from_occ_code );
2869: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_office_symbol , p_sf52rec.from_office_symbol );
2870: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_other_pay_amount , p_sf52rec.from_other_pay_amount );
2871: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_pay_basis , p_sf52rec.from_pay_basis );
2872: hr_utility.set_location('correct ' || p_sf52rec_correct.from_pay_plan,1);
2873: hr_utility.set_location('sf52rec ' || p_sf52rec.from_pay_plan,1);
2874: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_pay_plan , p_sf52rec.from_pay_plan );
2875: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_position_id , p_sf52rec.from_position_id );
2876: -- this is informational only and is not needed
2869: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_office_symbol , p_sf52rec.from_office_symbol );
2870: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_other_pay_amount , p_sf52rec.from_other_pay_amount );
2871: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_pay_basis , p_sf52rec.from_pay_basis );
2872: hr_utility.set_location('correct ' || p_sf52rec_correct.from_pay_plan,1);
2873: hr_utility.set_location('sf52rec ' || p_sf52rec.from_pay_plan,1);
2874: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_pay_plan , p_sf52rec.from_pay_plan );
2875: ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_position_id , p_sf52rec.from_position_id );
2876: -- this is informational only and is not needed
2877: -- ghr_history_conv_rg.copy_field_value( p_sf52rec_correct.from_position_name , p_sf52rec.from_position_name );
2967:
2968: -- the following fields should only be copied if the position_id changed, otherwise original values should be
2969: -- retained.
2970: if ( p_sf52rec_correct.to_position_id is not null ) then
2971: hr_utility.set_location(' Position id changed :'||l_proc, 20);
2972: p_sf52rec.to_position_id := p_sf52rec_correct.to_position_id ;
2973: p_sf52rec.to_organization_id := p_sf52rec_correct.to_organization_id ;
2974: p_sf52rec.to_pay_plan := p_sf52rec_correct.to_pay_plan ;
2975: p_sf52rec.to_position_title := p_sf52rec_correct.to_position_title ;
3014: -- work_schedule and part_time_hours are interdependent, part_time_hours should also
3015: -- be copied when work_schedule changes.
3016: if ( p_sf52rec_correct.work_schedule <> p_sf52rec.work_schedule
3017: AND p_sf52rec_correct.work_schedule is not null ) then
3018: hr_utility.set_location(' Work Schedule changed :'||l_proc, 30);
3019: p_sf52rec.work_schedule := p_sf52rec_correct.work_schedule ;
3020: p_sf52rec.part_time_hours := p_sf52rec_correct.part_time_hours ;
3021: elsif (p_sf52rec_correct.part_time_hours <> p_sf52rec.part_time_hours) then
3022: hr_utility.set_location(' Part Time hours changed :'||l_proc, 30);
3018: hr_utility.set_location(' Work Schedule changed :'||l_proc, 30);
3019: p_sf52rec.work_schedule := p_sf52rec_correct.work_schedule ;
3020: p_sf52rec.part_time_hours := p_sf52rec_correct.part_time_hours ;
3021: elsif (p_sf52rec_correct.part_time_hours <> p_sf52rec.part_time_hours) then
3022: hr_utility.set_location(' Part Time hours changed :'||l_proc, 30);
3023: p_sf52rec.part_time_hours := p_sf52rec_correct.part_time_hours ;
3024: end if;
3025:
3026: if (p_corr_pa_request_id = p_sf52rec_correct.pa_request_id) then
3025:
3026: if (p_corr_pa_request_id = p_sf52rec_correct.pa_request_id) then
3027: -- these fields should retain value of correction currently being processed. Any values from previous
3028: -- corrections are ignored.
3029: hr_utility.set_location(' Last correction :'||l_proc, 35);
3030: p_sf52rec.routing_group_id := p_sf52rec_correct.routing_group_id ;
3031: p_sf52rec.proposed_effective_asap_flag := p_sf52rec_correct.proposed_effective_asap_flag ;
3032: p_sf52rec.additional_info_person_id := p_sf52rec_correct.additional_info_person_id ;
3033: p_sf52rec.additional_info_tel_number := p_sf52rec_correct.additional_info_tel_number ;
3119: ghr_history_conv_rg.copy_field_value(p_sf52rec_correct.to_staffing_diff_percentage,
3120: p_sf52rec.to_staffing_diff_percentage);
3121: end if;
3122:
3123: hr_utility.set_location(' Leaving:'||l_proc, 40);
3124: Exception when others then
3125: --
3126: -- Reset IN OUT parameters and set OUT parameters
3127: --
3242:
3243: l_shadow_data ghr_pa_request_shadow%rowtype;
3244: l_proc varchar2(30):='apply_noa_corrections';
3245: begin
3246: hr_utility.set_location('Entering:'|| l_proc, 5);
3247: l_sf52_data_result := p_sf52_data_result;
3248: ghr_history_api.get_g_session_var(l_session_var);
3249: -- loop through all corrections in the correction chain, incrementally applying them by
3250: -- calling apply_corrections procedure.
3261: if ( l_sf52_cursor_step_indx = 1) then
3262: --Bug # 6356058 start
3263: l_prev_request_id := l_sf52_data_step.pa_request_id;
3264: --Bug # 6356058 end
3265: hr_utility.set_location('Fetch l_sf52_data_step original :'|| l_proc, 10);
3266: l_sf52_data_orig := l_sf52_data_step;
3267: p_sf52_data_result := l_sf52_data_step;
3268: hr_utility.set_location('assignment_id of original =' || l_sf52_data_step.employee_assignment_id, 14);
3269: hr_utility.set_location('from grd or leveloriginal =' || l_sf52_data_step.from_grade_or_level, 14);
3264: --Bug # 6356058 end
3265: hr_utility.set_location('Fetch l_sf52_data_step original :'|| l_proc, 10);
3266: l_sf52_data_orig := l_sf52_data_step;
3267: p_sf52_data_result := l_sf52_data_step;
3268: hr_utility.set_location('assignment_id of original =' || l_sf52_data_step.employee_assignment_id, 14);
3269: hr_utility.set_location('from grd or leveloriginal =' || l_sf52_data_step.from_grade_or_level, 14);
3270:
3271: hr_utility.set_location(l_proc || 'pa_request_id of original= ' || l_sf52_data_step.pa_request_id,26);
3272: -- .47
3265: hr_utility.set_location('Fetch l_sf52_data_step original :'|| l_proc, 10);
3266: l_sf52_data_orig := l_sf52_data_step;
3267: p_sf52_data_result := l_sf52_data_step;
3268: hr_utility.set_location('assignment_id of original =' || l_sf52_data_step.employee_assignment_id, 14);
3269: hr_utility.set_location('from grd or leveloriginal =' || l_sf52_data_step.from_grade_or_level, 14);
3270:
3271: hr_utility.set_location(l_proc || 'pa_request_id of original= ' || l_sf52_data_step.pa_request_id,26);
3272: -- .47
3273: -- refresh root sf52 and its correction
3267: p_sf52_data_result := l_sf52_data_step;
3268: hr_utility.set_location('assignment_id of original =' || l_sf52_data_step.employee_assignment_id, 14);
3269: hr_utility.set_location('from grd or leveloriginal =' || l_sf52_data_step.from_grade_or_level, 14);
3270:
3271: hr_utility.set_location(l_proc || 'pa_request_id of original= ' || l_sf52_data_step.pa_request_id,26);
3272: -- .47
3273: -- refresh root sf52 and its correction
3274: -- get pa_history_id for the root pa_request_id
3275: open c_get_hist_id( l_sf52_data_step.pa_request_id);
3311: -- check if original action in correction chain was a dual action. If so, determine which of
3312: -- the two actions this correction is for and call ghr_process_sf52.assign_new_rg to null out columns not having
3313: -- to do with the noa we are correcting.
3314: if (p_sf52_data_result.second_noa_id is not null) then
3315: hr_utility.set_location('original sf52 is dual action :'|| l_proc, 11);
3316: if (p_sf52_data.second_noa_id = p_sf52_data_result.second_noa_id) then
3317: hr_utility.set_location('Correcting second action in dual action:'|| l_proc, 12);
3318: ghr_process_sf52.assign_new_rg(p_action_num => 2,
3319: p_pa_req => p_sf52_data_result);
3313: -- to do with the noa we are correcting.
3314: if (p_sf52_data_result.second_noa_id is not null) then
3315: hr_utility.set_location('original sf52 is dual action :'|| l_proc, 11);
3316: if (p_sf52_data.second_noa_id = p_sf52_data_result.second_noa_id) then
3317: hr_utility.set_location('Correcting second action in dual action:'|| l_proc, 12);
3318: ghr_process_sf52.assign_new_rg(p_action_num => 2,
3319: p_pa_req => p_sf52_data_result);
3320: else
3321: hr_utility.set_location('Correcting first action in dual action:'|| l_proc, 13);
3317: hr_utility.set_location('Correcting second action in dual action:'|| l_proc, 12);
3318: ghr_process_sf52.assign_new_rg(p_action_num => 2,
3319: p_pa_req => p_sf52_data_result);
3320: else
3321: hr_utility.set_location('Correcting first action in dual action:'|| l_proc, 13);
3322: ghr_process_sf52.assign_new_rg(p_action_num => 1,
3323: p_pa_req => p_sf52_data_result);
3324: -- if first action is 893, then we need to derive to_columns as both actions of
3325: -- the dual action potentially could have changed the to fields (in particular,
3341: p_sf52_data_result.personnel_office_id := NULL;
3342: p_sf52_data_result.to_office_symbol := NULL;
3343: else
3344: l_retro_pa_request_id := NULL;
3345: hr_utility.set_location('Fetch l_sf52_data_step loop :'|| l_proc, 15);
3346: -- all corrections will have the original sf52 information in the 2nd noa columns, so
3347: -- copy that information to 1st noa columns.
3348: hr_utility.set_location('from grd or levelbefcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3349: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
3344: l_retro_pa_request_id := NULL;
3345: hr_utility.set_location('Fetch l_sf52_data_step loop :'|| l_proc, 15);
3346: -- all corrections will have the original sf52 information in the 2nd noa columns, so
3347: -- copy that information to 1st noa columns.
3348: hr_utility.set_location('from grd or levelbefcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3349: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
3350: -- null the second noa columns since we don't want anything to be done with these now.
3351: hr_utility.set_location('from grd or levelaftcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3352: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
3347: -- copy that information to 1st noa columns.
3348: hr_utility.set_location('from grd or levelbefcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3349: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
3350: -- null the second noa columns since we don't want anything to be done with these now.
3351: hr_utility.set_location('from grd or levelaftcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3352: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
3353: hr_utility.set_location('from grd or levelaftnull2noa =' || l_sf52_data_step.from_grade_or_level, 14);
3354: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
3355: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
3349: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
3350: -- null the second noa columns since we don't want anything to be done with these now.
3351: hr_utility.set_location('from grd or levelaftcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3352: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
3353: hr_utility.set_location('from grd or levelaftnull2noa =' || l_sf52_data_step.from_grade_or_level, 14);
3354: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
3355: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
3356: hr_utility.set_location('from grd or levelbef appcorr =' || l_sf52_data_step.from_grade_or_level, 14);
3357: ghr_process_sf52.print_sf52('l_sf52_step bef apply_correction',
3350: -- null the second noa columns since we don't want anything to be done with these now.
3351: hr_utility.set_location('from grd or levelaftcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3352: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
3353: hr_utility.set_location('from grd or levelaftnull2noa =' || l_sf52_data_step.from_grade_or_level, 14);
3354: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
3355: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
3356: hr_utility.set_location('from grd or levelbef appcorr =' || l_sf52_data_step.from_grade_or_level, 14);
3357: ghr_process_sf52.print_sf52('l_sf52_step bef apply_correction',
3358: l_sf52_data_step );
3351: hr_utility.set_location('from grd or levelaftcp2to1 =' || l_sf52_data_step.from_grade_or_level, 14);
3352: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
3353: hr_utility.set_location('from grd or levelaftnull2noa =' || l_sf52_data_step.from_grade_or_level, 14);
3354: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
3355: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
3356: hr_utility.set_location('from grd or levelbef appcorr =' || l_sf52_data_step.from_grade_or_level, 14);
3357: ghr_process_sf52.print_sf52('l_sf52_step bef apply_correction',
3358: l_sf52_data_step );
3359: ghr_process_sf52.print_sf52('result bef copy_ia_rec_on_result',
3352: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
3353: hr_utility.set_location('from grd or levelaftnull2noa =' || l_sf52_data_step.from_grade_or_level, 14);
3354: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
3355: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
3356: hr_utility.set_location('from grd or levelbef appcorr =' || l_sf52_data_step.from_grade_or_level, 14);
3357: ghr_process_sf52.print_sf52('l_sf52_step bef apply_correction',
3358: l_sf52_data_step );
3359: ghr_process_sf52.print_sf52('result bef copy_ia_rec_on_result',
3360: p_sf52_data_result );
3364: -- Original action from position_id = to position id
3365: -- Fetch the original action details
3366: FOR c_orig_det_rec in c_orig_details_for_ia
3367: LOOP
3368: hr_utility.set_location('Inside the orig_details for loop' ,15);
3369: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3365: -- Fetch the original action details
3366: FOR c_orig_det_rec in c_orig_details_for_ia
3367: LOOP
3368: hr_utility.set_location('Inside the orig_details for loop' ,15);
3369: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3373: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
3366: FOR c_orig_det_rec in c_orig_details_for_ia
3367: LOOP
3368: hr_utility.set_location('Inside the orig_details for loop' ,15);
3369: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3373: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
3374: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
3367: LOOP
3368: hr_utility.set_location('Inside the orig_details for loop' ,15);
3369: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3373: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
3374: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
3375: --BUG #7216635 added the parameter p_noa_id_correct
3368: hr_utility.set_location('Inside the orig_details for loop' ,15);
3369: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3373: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
3374: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
3375: --BUG #7216635 added the parameter p_noa_id_correct
3376: GHR_APPROVED_PA_REQUESTS.determine_ia(
3369: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3373: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
3374: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
3375: --BUG #7216635 added the parameter p_noa_id_correct
3376: GHR_APPROVED_PA_REQUESTS.determine_ia(
3377: p_pa_request_id => c_orig_det_rec.pa_request_id,
3370: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
3371: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
3372: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
3373: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
3374: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
3375: --BUG #7216635 added the parameter p_noa_id_correct
3376: GHR_APPROVED_PA_REQUESTS.determine_ia(
3377: p_pa_request_id => c_orig_det_rec.pa_request_id,
3378: p_pa_notification_id => c_orig_det_rec.pa_notification_id,
3382: p_retro_pa_request_id => l_retro_pa_request_id,
3383: p_retro_eff_date => l_retro_eff_date,
3384: p_retro_first_noa => l_retro_first_noa,
3385: p_retro_second_noa => l_retro_second_noa);
3386: hr_utility.set_location('retro effective_date is '||l_retro_eff_date ,16);
3387: -- Bug#2521744 Splitting the single if condition into 2 separate if conditions.
3388: IF l_retro_eff_date is NOT NULL THEN
3389: IF c_orig_det_rec.from_position_id
3390: = c_orig_det_rec.to_position_id THEN
3388: IF l_retro_eff_date is NOT NULL THEN
3389: IF c_orig_det_rec.from_position_id
3390: = c_orig_det_rec.to_position_id THEN
3391: -- copy the from details
3392: hr_utility.set_location('Its a Intervening Action ' ,16);
3393: hr_utility.set_location('pa_request_id passed to get_sf52_to_det '||p_sf52_data.pa_request_id ,17);
3394:
3395: get_sf52_to_details_for_ia
3396: (p_pa_request_id => p_sf52_data.pa_request_id,
3389: IF c_orig_det_rec.from_position_id
3390: = c_orig_det_rec.to_position_id THEN
3391: -- copy the from details
3392: hr_utility.set_location('Its a Intervening Action ' ,16);
3393: hr_utility.set_location('pa_request_id passed to get_sf52_to_det '||p_sf52_data.pa_request_id ,17);
3394:
3395: get_sf52_to_details_for_ia
3396: (p_pa_request_id => p_sf52_data.pa_request_id,
3397: p_retro_eff_date => l_retro_eff_date,
3448: --bug #6356058 end
3449: END LOOP;
3450: --bug #6356058
3451: l_prev_request_id := l_sf52_data_step.pa_request_id;
3452: hr_utility.set_location('Out side the orig_details for loop' ,17);
3453: -- End Intervening Actions Processing
3454:
3455: apply_correction( p_sf52rec_correct => l_sf52_data_step,
3456: p_corr_pa_request_id => p_sf52_data.pa_request_id,
3482: if p_sf52_data_result.to_other_pay_amount = 0 then
3483: p_sf52_data_result.to_other_pay_amount := null;
3484: end if;
3485: end if;
3486: hr_utility.set_location( l_proc || 'assignment_id after correction=' || p_sf52_data_result.employee_assignment_id ,18);
3487: hr_utility.set_location('Applied corrections :'|| l_proc, 20);
3488: end if;
3489: end loop;
3490: close l_sf52_cursor;
3483: p_sf52_data_result.to_other_pay_amount := null;
3484: end if;
3485: end if;
3486: hr_utility.set_location( l_proc || 'assignment_id after correction=' || p_sf52_data_result.employee_assignment_id ,18);
3487: hr_utility.set_location('Applied corrections :'|| l_proc, 20);
3488: end if;
3489: end loop;
3490: close l_sf52_cursor;
3491:
3515: ghr_history_api.reinit_g_session_var;
3516: ghr_history_api.set_g_session_var(l_session_var);
3517:
3518: IF l_pos_ei_grade_data.position_extra_info_id IS NOT NULL THEN
3519: hr_utility.set_location('GL: to grd id:'||p_sf52_data_result.to_grade_id,30);
3520: hr_utility.set_location('GL: pos ei grd:'||l_pos_ei_grade_data.poei_information3,40);
3521: IF l_pos_ei_grade_data.poei_information3 <> p_sf52_data_result.to_grade_id THEN
3522: --Bug# 5638869
3523: --p_sf52_data_result.to_grade_id := l_pos_ei_grade_data.poei_information3;
3516: ghr_history_api.set_g_session_var(l_session_var);
3517:
3518: IF l_pos_ei_grade_data.position_extra_info_id IS NOT NULL THEN
3519: hr_utility.set_location('GL: to grd id:'||p_sf52_data_result.to_grade_id,30);
3520: hr_utility.set_location('GL: pos ei grd:'||l_pos_ei_grade_data.poei_information3,40);
3521: IF l_pos_ei_grade_data.poei_information3 <> p_sf52_data_result.to_grade_id THEN
3522: --Bug# 5638869
3523: --p_sf52_data_result.to_grade_id := l_pos_ei_grade_data.poei_information3;
3524: l_pos_ei_grade_data.poei_information3 := p_sf52_data_result.to_grade_id;
3524: l_pos_ei_grade_data.poei_information3 := p_sf52_data_result.to_grade_id;
3525: --Bug# 5638869
3526: FOR c_grade_kff_rec IN c_grade_kff (p_sf52_data_result.to_grade_id)
3527: LOOP
3528: hr_utility.set_location('GL: Inside setting pay plan grade',60);
3529: p_sf52_data_result.to_pay_plan := c_grade_kff_rec.segment1 ;
3530: p_sf52_data_result.to_grade_or_level := c_grade_kff_rec.segment2;
3531: EXIT;
3532: END LOOP;
3534: END IF;
3535: END IF;
3536: -- Bug#5435374 End of the fix.
3537:
3538: hr_utility.set_location(' Leaving:'||l_proc, 25);
3539: Exception when others then
3540: --
3541: -- Reset IN OUT parameters and set OUT parameters
3542: --
3592: p_last_row out nocopy boolean,
3593: p_cannot_cancel out nocopy boolean) IS
3594: l_proc varchar2(72) := 'what_to_do?';
3595: BEGIN
3596: hr_utility.set_location('Entering '|| l_proc,5);
3597: -- initialize output parms.
3598: p_can_delete := FALSE;
3599: p_last_row := FALSE;
3600: p_cannot_cancel := FALSE;
3598: p_can_delete := FALSE;
3599: p_last_row := FALSE;
3600: p_cannot_cancel := FALSE;
3601: if (p_datetrack_table = TRUE) then
3602: hr_utility.set_location('Datetrack table '|| l_proc,10);
3603: -- this is a datetrack table
3604: if (p_pre_record_exists = FALSE) then
3605: hr_utility.set_location('no pre'|| l_proc,15);
3606: if (p_interv_on_eff_date = FALSE) then
3601: if (p_datetrack_table = TRUE) then
3602: hr_utility.set_location('Datetrack table '|| l_proc,10);
3603: -- this is a datetrack table
3604: if (p_pre_record_exists = FALSE) then
3605: hr_utility.set_location('no pre'|| l_proc,15);
3606: if (p_interv_on_eff_date = FALSE) then
3607: hr_utility.set_location('no following records on same date'|| l_proc,20);
3608: if (p_interv_on_table = TRUE) then
3609: -- datetrack tables with no pre cannot be cancelled if they have following records in history.
3603: -- this is a datetrack table
3604: if (p_pre_record_exists = FALSE) then
3605: hr_utility.set_location('no pre'|| l_proc,15);
3606: if (p_interv_on_eff_date = FALSE) then
3607: hr_utility.set_location('no following records on same date'|| l_proc,20);
3608: if (p_interv_on_table = TRUE) then
3609: -- datetrack tables with no pre cannot be cancelled if they have following records in history.
3610: hr_utility.set_location(' Following records on later date'|| l_proc,45);
3611: p_cannot_cancel := TRUE;
3606: if (p_interv_on_eff_date = FALSE) then
3607: hr_utility.set_location('no following records on same date'|| l_proc,20);
3608: if (p_interv_on_table = TRUE) then
3609: -- datetrack tables with no pre cannot be cancelled if they have following records in history.
3610: hr_utility.set_location(' Following records on later date'|| l_proc,45);
3611: p_cannot_cancel := TRUE;
3612: else
3613: hr_utility.set_location('NO Following records on later date'|| l_proc,70);
3614: -- there is no pre and no following records, so we CAN cancel and we CAN delete. And this is
3609: -- datetrack tables with no pre cannot be cancelled if they have following records in history.
3610: hr_utility.set_location(' Following records on later date'|| l_proc,45);
3611: p_cannot_cancel := TRUE;
3612: else
3613: hr_utility.set_location('NO Following records on later date'|| l_proc,70);
3614: -- there is no pre and no following records, so we CAN cancel and we CAN delete. And this is
3615: -- the last row in history.
3616: p_can_delete := TRUE;
3617: p_last_row := TRUE;
3616: p_can_delete := TRUE;
3617: p_last_row := TRUE;
3618: end if;
3619: else
3620: hr_utility.set_location('Following records on same date'|| l_proc,75);
3621: -- datetrack tables with no pre cannot be cancelled if they have following records in history.
3622: p_cannot_cancel := TRUE;
3623: end if;
3624: else
3622: p_cannot_cancel := TRUE;
3623: end if;
3624: else
3625: -- there is a pre_record
3626: hr_utility.set_location('has pre'|| l_proc,25);
3627: if (p_interv_on_eff_date = FALSE) then
3628: hr_utility.set_location(' no following recs on same date'|| l_proc,30);
3629: if (p_rec_created_flag = TRUE) then
3630: hr_utility.set_location('record created = TRUE'|| l_proc,35);
3624: else
3625: -- there is a pre_record
3626: hr_utility.set_location('has pre'|| l_proc,25);
3627: if (p_interv_on_eff_date = FALSE) then
3628: hr_utility.set_location(' no following recs on same date'|| l_proc,30);
3629: if (p_rec_created_flag = TRUE) then
3630: hr_utility.set_location('record created = TRUE'|| l_proc,35);
3631: p_can_delete := TRUE;
3632: end if;
3626: hr_utility.set_location('has pre'|| l_proc,25);
3627: if (p_interv_on_eff_date = FALSE) then
3628: hr_utility.set_location(' no following recs on same date'|| l_proc,30);
3629: if (p_rec_created_flag = TRUE) then
3630: hr_utility.set_location('record created = TRUE'|| l_proc,35);
3631: p_can_delete := TRUE;
3632: end if;
3633: if (p_interv_on_table = FALSE) then
3634: hr_utility.set_location(' no following recs at all'|| l_proc,40);
3630: hr_utility.set_location('record created = TRUE'|| l_proc,35);
3631: p_can_delete := TRUE;
3632: end if;
3633: if (p_interv_on_table = FALSE) then
3634: hr_utility.set_location(' no following recs at all'|| l_proc,40);
3635: p_last_row := TRUE;
3636: end if;
3637: end if;
3638: end if;
3637: end if;
3638: end if;
3639: else
3640: -- this is a non datetrack table
3641: hr_utility.set_location(' non datetrack table'|| l_proc,50);
3642: -- assume there is always a pre-record for datetrack tables. It is just all nulls.
3643: if (p_interv_on_table = FALSE) then
3644: hr_utility.set_location('no following recs '|| l_proc,60);
3645: if (p_rec_created_flag = TRUE) then
3640: -- this is a non datetrack table
3641: hr_utility.set_location(' non datetrack table'|| l_proc,50);
3642: -- assume there is always a pre-record for datetrack tables. It is just all nulls.
3643: if (p_interv_on_table = FALSE) then
3644: hr_utility.set_location('no following recs '|| l_proc,60);
3645: if (p_rec_created_flag = TRUE) then
3646: hr_utility.set_location('record created = Y '|| l_proc,65);
3647: p_can_delete := TRUE;
3648: p_last_row := TRUE;
3642: -- assume there is always a pre-record for datetrack tables. It is just all nulls.
3643: if (p_interv_on_table = FALSE) then
3644: hr_utility.set_location('no following recs '|| l_proc,60);
3645: if (p_rec_created_flag = TRUE) then
3646: hr_utility.set_location('record created = Y '|| l_proc,65);
3647: p_can_delete := TRUE;
3648: p_last_row := TRUE;
3649: end if;
3650: end if;
3707: l_eff_start_date date;
3708: l_eff_end_date date;
3709: l_proc varchar2(30):='delete_element_entry';
3710: Begin
3711: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3712: hr_utility.set_location( ' info 1 : ' || p_hist_rec.information1 || l_proc, 11);
3713: hr_utility.set_location( ' info 2 : ' || p_hist_rec.information2 || l_proc, 12);
3714:
3715: p_cannot_cancel := FALSE;
3708: l_eff_end_date date;
3709: l_proc varchar2(30):='delete_element_entry';
3710: Begin
3711: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3712: hr_utility.set_location( ' info 1 : ' || p_hist_rec.information1 || l_proc, 11);
3713: hr_utility.set_location( ' info 2 : ' || p_hist_rec.information2 || l_proc, 12);
3714:
3715: p_cannot_cancel := FALSE;
3716: open c_elmt (p_hist_rec.information1,
3709: l_proc varchar2(30):='delete_element_entry';
3710: Begin
3711: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3712: hr_utility.set_location( ' info 1 : ' || p_hist_rec.information1 || l_proc, 11);
3713: hr_utility.set_location( ' info 2 : ' || p_hist_rec.information2 || l_proc, 12);
3714:
3715: p_cannot_cancel := FALSE;
3716: open c_elmt (p_hist_rec.information1,
3717: to_date(p_hist_rec.information2, ghr_history_conv_rg.g_hist_date_format));
3716: open c_elmt (p_hist_rec.information1,
3717: to_date(p_hist_rec.information2, ghr_history_conv_rg.g_hist_date_format));
3718: fetch c_elmt into l_c_elmt;
3719: if c_elmt%notfound then
3720: hr_utility.set_location( l_proc, 20);
3721: close c_elmt;
3722: p_cannot_cancel := TRUE;
3723: else
3724: close c_elmt;
3721: close c_elmt;
3722: p_cannot_cancel := TRUE;
3723: else
3724: close c_elmt;
3725: hr_utility.set_location( l_proc, 30);
3726:
3727: hr_utility.set_location( 'effective date ' || p_hist_rec.information2, 31);
3728: hr_utility.set_location( 'element entry id ' || l_c_elmt.element_entry_id, 32);
3729: hr_utility.set_location( 'ovn ' || l_c_elmt.object_version_number, 33);
3723: else
3724: close c_elmt;
3725: hr_utility.set_location( l_proc, 30);
3726:
3727: hr_utility.set_location( 'effective date ' || p_hist_rec.information2, 31);
3728: hr_utility.set_location( 'element entry id ' || l_c_elmt.element_entry_id, 32);
3729: hr_utility.set_location( 'ovn ' || l_c_elmt.object_version_number, 33);
3730:
3731: PY_element_entry_api.delete_element_entry(
3724: close c_elmt;
3725: hr_utility.set_location( l_proc, 30);
3726:
3727: hr_utility.set_location( 'effective date ' || p_hist_rec.information2, 31);
3728: hr_utility.set_location( 'element entry id ' || l_c_elmt.element_entry_id, 32);
3729: hr_utility.set_location( 'ovn ' || l_c_elmt.object_version_number, 33);
3730:
3731: PY_element_entry_api.delete_element_entry(
3732: p_datetrack_delete_mode => nvl(p_del_mode, hr_api.g_delete_next_change),
3725: hr_utility.set_location( l_proc, 30);
3726:
3727: hr_utility.set_location( 'effective date ' || p_hist_rec.information2, 31);
3728: hr_utility.set_location( 'element entry id ' || l_c_elmt.element_entry_id, 32);
3729: hr_utility.set_location( 'ovn ' || l_c_elmt.object_version_number, 33);
3730:
3731: PY_element_entry_api.delete_element_entry(
3732: p_datetrack_delete_mode => nvl(p_del_mode, hr_api.g_delete_next_change),
3733: p_effective_date => to_date(p_hist_rec.information2, ghr_history_conv_rg.g_hist_date_format),
3736: p_effective_start_date => l_eff_start_date,
3737: p_effective_end_date => l_eff_end_date,
3738: p_delete_warning => l_del_warning);
3739: if l_del_warning then
3740: hr_utility.set_location( 'Warning ' || l_proc, 39);
3741: end if;
3742:
3743: --added
3744: end if;
3741: end if;
3742:
3743: --added
3744: end if;
3745: hr_utility.set_location( 'Leaving : ' || l_proc, 40);
3746: exception when others then
3747: --
3748: -- Reset IN OUT parameters and set OUT parameters
3749: --
3882: --*****************************************************************************
3883: --
3884: BEGIN
3885: --
3886: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3887: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3888: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3889: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3890: --
3883: --
3884: BEGIN
3885: --
3886: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3887: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3888: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3889: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3890: --
3891: --Payroll Integration Changes
3884: BEGIN
3885: --
3886: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3887: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3888: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3889: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3890: --
3891: --Payroll Integration Changes
3892: --
3885: --
3886: hr_utility.set_location( 'Entering : ' || l_proc, 10);
3887: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3888: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3889: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3890: --
3891: --Payroll Integration Changes
3892: --
3893: FOR bg_rec IN Cur_bg(p_hist_pre.person_id,
3900: ll_bg_id := fnd_profile.value('PER_BUSINESS_GROUP_ID');
3901: END IF;
3902:
3903:
3904: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3905: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3906: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3907:
3908: l_eff_date := to_date(p_hist_pre.information2, ghr_history_api.g_hist_date_format);
3901: END IF;
3902:
3903:
3904: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3905: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3906: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3907:
3908: l_eff_date := to_date(p_hist_pre.information2, ghr_history_api.g_hist_date_format);
3909: hr_utility.set_location('Converted eff Date: ' || l_eff_date || l_proc,18);
3902:
3903:
3904: hr_utility.set_location( 'information4 : ' || p_hist_pre.information4 || l_proc, 11);
3905: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3906: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3907:
3908: l_eff_date := to_date(p_hist_pre.information2, ghr_history_api.g_hist_date_format);
3909: hr_utility.set_location('Converted eff Date: ' || l_eff_date || l_proc,18);
3910: -- get input value name.
3905: hr_utility.set_location( 'Effective Date : ' || p_hist_pre.information2 || l_proc, 12);
3906: hr_utility.set_location( 'Business Group id : ' || ll_bg_id, 100000002);
3907:
3908: l_eff_date := to_date(p_hist_pre.information2, ghr_history_api.g_hist_date_format);
3909: hr_utility.set_location('Converted eff Date: ' || l_eff_date || l_proc,18);
3910: -- get input value name.
3911: open c_input_value( cp_input_value_id => p_hist_pre.information4,
3912: cp_eff_date => l_eff_date,
3913: p_bg_id => ll_bg_id);
3910: -- get input value name.
3911: open c_input_value( cp_input_value_id => p_hist_pre.information4,
3912: cp_eff_date => l_eff_date,
3913: p_bg_id => ll_bg_id);
3914: hr_utility.set_location('After open cursor: ' || l_proc,19);
3915: fetch c_input_value into l_ipv_name;
3916: hr_utility.set_location('After fetch cursor: ' || l_proc,21);
3917: if c_input_value%NOTFOUND then
3918: hr_utility.set_location( 'input_value_name notfound : ' || l_proc, 20);
3912: cp_eff_date => l_eff_date,
3913: p_bg_id => ll_bg_id);
3914: hr_utility.set_location('After open cursor: ' || l_proc,19);
3915: fetch c_input_value into l_ipv_name;
3916: hr_utility.set_location('After fetch cursor: ' || l_proc,21);
3917: if c_input_value%NOTFOUND then
3918: hr_utility.set_location( 'input_value_name notfound : ' || l_proc, 20);
3919: close c_input_value;
3920: hr_utility.set_message(8301,'GHR_38270_INPUT_VALUE_NAME_NF');
3914: hr_utility.set_location('After open cursor: ' || l_proc,19);
3915: fetch c_input_value into l_ipv_name;
3916: hr_utility.set_location('After fetch cursor: ' || l_proc,21);
3917: if c_input_value%NOTFOUND then
3918: hr_utility.set_location( 'input_value_name notfound : ' || l_proc, 20);
3919: close c_input_value;
3920: hr_utility.set_message(8301,'GHR_38270_INPUT_VALUE_NAME_NF');
3921: hr_utility.raise_error;
3922: end if;
3916: hr_utility.set_location('After fetch cursor: ' || l_proc,21);
3917: if c_input_value%NOTFOUND then
3918: hr_utility.set_location( 'input_value_name notfound : ' || l_proc, 20);
3919: close c_input_value;
3920: hr_utility.set_message(8301,'GHR_38270_INPUT_VALUE_NAME_NF');
3921: hr_utility.raise_error;
3922: end if;
3923: close c_input_value;
3924: hr_utility.set_location( 'Open element name cursor: ' || l_proc, 30);
3917: if c_input_value%NOTFOUND then
3918: hr_utility.set_location( 'input_value_name notfound : ' || l_proc, 20);
3919: close c_input_value;
3920: hr_utility.set_message(8301,'GHR_38270_INPUT_VALUE_NAME_NF');
3921: hr_utility.raise_error;
3922: end if;
3923: close c_input_value;
3924: hr_utility.set_location( 'Open element name cursor: ' || l_proc, 30);
3925: -- get element name.
3920: hr_utility.set_message(8301,'GHR_38270_INPUT_VALUE_NAME_NF');
3921: hr_utility.raise_error;
3922: end if;
3923: close c_input_value;
3924: hr_utility.set_location( 'Open element name cursor: ' || l_proc, 30);
3925: -- get element name.
3926: open c_element_name( cp_element_entry_id => p_hist_pre.information5,
3927: cp_eff_date => l_eff_date,
3928: p_bg_id => ll_bg_id);
3925: -- get element name.
3926: open c_element_name( cp_element_entry_id => p_hist_pre.information5,
3927: cp_eff_date => l_eff_date,
3928: p_bg_id => ll_bg_id);
3929: hr_utility.set_location('Fetch element name cursor: ' || l_proc, 31);
3930: fetch c_element_name into l_element_name;
3931: hr_utility.set_location('After Fetch element name cursor: ' || l_proc, 32);
3932: if c_element_name%NOTFOUND then
3933: hr_utility.set_location( 'element_name notfound : ' || l_proc, 40);
3927: cp_eff_date => l_eff_date,
3928: p_bg_id => ll_bg_id);
3929: hr_utility.set_location('Fetch element name cursor: ' || l_proc, 31);
3930: fetch c_element_name into l_element_name;
3931: hr_utility.set_location('After Fetch element name cursor: ' || l_proc, 32);
3932: if c_element_name%NOTFOUND then
3933: hr_utility.set_location( 'element_name notfound : ' || l_proc, 40);
3934: close c_element_name;
3935: hr_utility.set_message(8301,'GHR_38271_ELEMENT_NAME_NOTFND');
3929: hr_utility.set_location('Fetch element name cursor: ' || l_proc, 31);
3930: fetch c_element_name into l_element_name;
3931: hr_utility.set_location('After Fetch element name cursor: ' || l_proc, 32);
3932: if c_element_name%NOTFOUND then
3933: hr_utility.set_location( 'element_name notfound : ' || l_proc, 40);
3934: close c_element_name;
3935: hr_utility.set_message(8301,'GHR_38271_ELEMENT_NAME_NOTFND');
3936: hr_utility.raise_error;
3937: end if;
3931: hr_utility.set_location('After Fetch element name cursor: ' || l_proc, 32);
3932: if c_element_name%NOTFOUND then
3933: hr_utility.set_location( 'element_name notfound : ' || l_proc, 40);
3934: close c_element_name;
3935: hr_utility.set_message(8301,'GHR_38271_ELEMENT_NAME_NOTFND');
3936: hr_utility.raise_error;
3937: end if;
3938: close c_element_name;
3939: -- get assignment id.
3932: if c_element_name%NOTFOUND then
3933: hr_utility.set_location( 'element_name notfound : ' || l_proc, 40);
3934: close c_element_name;
3935: hr_utility.set_message(8301,'GHR_38271_ELEMENT_NAME_NOTFND');
3936: hr_utility.raise_error;
3937: end if;
3938: close c_element_name;
3939: -- get assignment id.
3940: open c_asgmt_id (cp_information1 => p_hist_pre.information1,
3942: cp_information3 => p_hist_pre.information3,
3943: cp_table_name => ghr_history_api.g_eleevl_table);
3944: fetch c_asgmt_id into l_asg_id;
3945: if c_asgmt_id%NOTFOUND then
3946: hr_utility.set_location( 'assignment_id notfound : ' || l_proc, 41);
3947: close c_asgmt_id;
3948: hr_utility.set_message(8301,'GHR_38362_ASGMT_ID_NOTFND');
3949: hr_utility.raise_error;
3950: end if;
3944: fetch c_asgmt_id into l_asg_id;
3945: if c_asgmt_id%NOTFOUND then
3946: hr_utility.set_location( 'assignment_id notfound : ' || l_proc, 41);
3947: close c_asgmt_id;
3948: hr_utility.set_message(8301,'GHR_38362_ASGMT_ID_NOTFND');
3949: hr_utility.raise_error;
3950: end if;
3951:
3952: hr_utility.set_location('Element Assignment ID: ' || p_hist_pre.assignment_id || l_proc, 36);
3945: if c_asgmt_id%NOTFOUND then
3946: hr_utility.set_location( 'assignment_id notfound : ' || l_proc, 41);
3947: close c_asgmt_id;
3948: hr_utility.set_message(8301,'GHR_38362_ASGMT_ID_NOTFND');
3949: hr_utility.raise_error;
3950: end if;
3951:
3952: hr_utility.set_location('Element Assignment ID: ' || p_hist_pre.assignment_id || l_proc, 36);
3953: hr_utility.set_location('Element name: ' || l_element_name || l_proc, 37);
3948: hr_utility.set_message(8301,'GHR_38362_ASGMT_ID_NOTFND');
3949: hr_utility.raise_error;
3950: end if;
3951:
3952: hr_utility.set_location('Element Assignment ID: ' || p_hist_pre.assignment_id || l_proc, 36);
3953: hr_utility.set_location('Element name: ' || l_element_name || l_proc, 37);
3954: hr_utility.set_location('IPV Name: ' || l_ipv_name || l_proc, 38);
3955: -- UOM error for date input values
3956: hr_utility.set_location('p_hist_pre.information6: '
3949: hr_utility.raise_error;
3950: end if;
3951:
3952: hr_utility.set_location('Element Assignment ID: ' || p_hist_pre.assignment_id || l_proc, 36);
3953: hr_utility.set_location('Element name: ' || l_element_name || l_proc, 37);
3954: hr_utility.set_location('IPV Name: ' || l_ipv_name || l_proc, 38);
3955: -- UOM error for date input values
3956: hr_utility.set_location('p_hist_pre.information6: '
3957: || p_hist_pre.information6 || l_proc, 38);
3950: end if;
3951:
3952: hr_utility.set_location('Element Assignment ID: ' || p_hist_pre.assignment_id || l_proc, 36);
3953: hr_utility.set_location('Element name: ' || l_element_name || l_proc, 37);
3954: hr_utility.set_location('IPV Name: ' || l_ipv_name || l_proc, 38);
3955: -- UOM error for date input values
3956: hr_utility.set_location('p_hist_pre.information6: '
3957: || p_hist_pre.information6 || l_proc, 38);
3958: l_value1 := p_hist_pre.information6;
3952: hr_utility.set_location('Element Assignment ID: ' || p_hist_pre.assignment_id || l_proc, 36);
3953: hr_utility.set_location('Element name: ' || l_element_name || l_proc, 37);
3954: hr_utility.set_location('IPV Name: ' || l_ipv_name || l_proc, 38);
3955: -- UOM error for date input values
3956: hr_utility.set_location('p_hist_pre.information6: '
3957: || p_hist_pre.information6 || l_proc, 38);
3958: l_value1 := p_hist_pre.information6;
3959: hr_utility.set_location('l_value1: ' || l_value1 || l_proc, 38);
3960: FOR c_ipv_rec IN c_ipv(l_element_name,l_ipv_name,l_eff_date,ll_bg_id) LOOP
3955: -- UOM error for date input values
3956: hr_utility.set_location('p_hist_pre.information6: '
3957: || p_hist_pre.information6 || l_proc, 38);
3958: l_value1 := p_hist_pre.information6;
3959: hr_utility.set_location('l_value1: ' || l_value1 || l_proc, 38);
3960: FOR c_ipv_rec IN c_ipv(l_element_name,l_ipv_name,l_eff_date,ll_bg_id) LOOP
3961: IF c_ipv_rec.uom = 'D' THEN
3962: l_value1 := fnd_date.date_to_displaydate(fnd_date.canonical_to_date(l_value1));
3963: hr_utility.set_location('l_value1: ' || l_value1 || l_proc, 38);
3959: hr_utility.set_location('l_value1: ' || l_value1 || l_proc, 38);
3960: FOR c_ipv_rec IN c_ipv(l_element_name,l_ipv_name,l_eff_date,ll_bg_id) LOOP
3961: IF c_ipv_rec.uom = 'D' THEN
3962: l_value1 := fnd_date.date_to_displaydate(fnd_date.canonical_to_date(l_value1));
3963: hr_utility.set_location('l_value1: ' || l_value1 || l_proc, 38);
3964: END IF;
3965: END LOOP;
3966: ---*****************************************************************************
3967: --- Check if the element name is new element name or hard coded ele name
3990: ,p_process_warning => l_proc_warn
3991: );
3992: /*To be included after Martin Reid's element api handles the create and update warning
3993: if l_proc_warn = FALSE then
3994: hr_utility.set_message(8301,'GHR_99999_FL_TO_UPD_ELEMENT_FOR_CANC');
3995: hr_utility.raise_error;
3996: end if;
3997: */
3998: hr_utility.set_location( 'Leaving : ' || l_proc, 50);
3991: );
3992: /*To be included after Martin Reid's element api handles the create and update warning
3993: if l_proc_warn = FALSE then
3994: hr_utility.set_message(8301,'GHR_99999_FL_TO_UPD_ELEMENT_FOR_CANC');
3995: hr_utility.raise_error;
3996: end if;
3997: */
3998: hr_utility.set_location( 'Leaving : ' || l_proc, 50);
3999: END update_eleentval;
3994: hr_utility.set_message(8301,'GHR_99999_FL_TO_UPD_ELEMENT_FOR_CANC');
3995: hr_utility.raise_error;
3996: end if;
3997: */
3998: hr_utility.set_location( 'Leaving : ' || l_proc, 50);
3999: END update_eleentval;
4000:
4001: -- ---------------------------------------------------------------------------
4002: -- |--------------------------< delete_eleentval>-----------------------------|
4038: nature_of_action_id = p_hist_rec.nature_of_action_id
4039: for update of table_name;
4040: l_proc varchar2(30):='delete_eleentval';
4041: Begin
4042: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4043: for c_data in c_hist
4044: loop
4045: delete_hist_row( c_data.row_id);
4046: end loop;
4043: for c_data in c_hist
4044: loop
4045: delete_hist_row( c_data.row_id);
4046: end loop;
4047: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4048: end delete_eleentval;
4049:
4050: -- ---------------------------------------------------------------------------
4051: -- |--------------------------< delete_peop_row>------------------------------|
4091: FROM PER_PEOPLE_F
4092: WHERE person_id = cp_person_id
4093: AND cp_date_effective between effective_start_date and effective_end_date;
4094: BEGIN
4095: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4096: if (p_dt_mode = hr_api.g_delete_next_change) then
4097: open c_get_ovn(p_person_id, p_date_effective -1);
4098: fetch c_get_ovn into l_ovn;
4099: if c_get_ovn%NOTFOUND then
4098: fetch c_get_ovn into l_ovn;
4099: if c_get_ovn%NOTFOUND then
4100: -- can't delete without object_version_number.
4101: close c_get_ovn;
4102: hr_utility.set_message(8301,'GHR_38213_PEOPLE_OVN_NOTFOUND');
4103: hr_utility.raise_error;
4104: -- raise error;
4105: end if;
4106: per_per_del.del(
4099: if c_get_ovn%NOTFOUND then
4100: -- can't delete without object_version_number.
4101: close c_get_ovn;
4102: hr_utility.set_message(8301,'GHR_38213_PEOPLE_OVN_NOTFOUND');
4103: hr_utility.raise_error;
4104: -- raise error;
4105: end if;
4106: per_per_del.del(
4107: p_person_id => p_person_id,
4116: if c_get_ovn%NOTFOUND then
4117: -- raise error;
4118: -- can't delete without object_version_number.
4119: close c_get_ovn;
4120: hr_utility.set_message(8301,'GHR_38213_PEOPLE_OVN_NOTFOUND');
4121: hr_utility.raise_error;
4122: end if;
4123: per_per_del.del(
4124: p_person_id => p_person_id,
4117: -- raise error;
4118: -- can't delete without object_version_number.
4119: close c_get_ovn;
4120: hr_utility.set_message(8301,'GHR_38213_PEOPLE_OVN_NOTFOUND');
4121: hr_utility.raise_error;
4122: end if;
4123: per_per_del.del(
4124: p_person_id => p_person_id,
4125: p_effective_start_date => l_effective_start_date,
4128: p_effective_date => p_date_effective,
4129: p_datetrack_mode => p_dt_mode );
4130: else
4131: -- raise error, unacceptable datetrack mode
4132: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4133: hr_utility.raise_error;
4134: end if;
4135: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4136: END delete_peop_row;
4129: p_datetrack_mode => p_dt_mode );
4130: else
4131: -- raise error, unacceptable datetrack mode
4132: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4133: hr_utility.raise_error;
4134: end if;
4135: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4136: END delete_peop_row;
4137:
4131: -- raise error, unacceptable datetrack mode
4132: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4133: hr_utility.raise_error;
4134: end if;
4135: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4136: END delete_peop_row;
4137:
4138: -- Added Procedure delete_posn_row. ENUNEZ 11-MAY-2000, it didnt exist before as position used to
4139: -- be a non datetracked table. Bug# 1252481
4182: --
4183: END IF;
4184: END ghr_regenerate_position_name;
4185: BEGIN
4186: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4187: if (p_dt_mode = hr_api.g_delete_next_change) then
4188: open c_get_ovn(p_position_id, p_date_effective -1);
4189: fetch c_get_ovn into l_ovn;
4190: if c_get_ovn%NOTFOUND then
4189: fetch c_get_ovn into l_ovn;
4190: if c_get_ovn%NOTFOUND then
4191: -- can't delete without object_version_number.
4192: close c_get_ovn;
4193: hr_utility.set_message(8301,'GHR_38504_POS_OVN_NOTFOUND');
4194: hr_utility.raise_error;
4195: -- raise error;
4196: end if;
4197: hr_psf_del.del(
4190: if c_get_ovn%NOTFOUND then
4191: -- can't delete without object_version_number.
4192: close c_get_ovn;
4193: hr_utility.set_message(8301,'GHR_38504_POS_OVN_NOTFOUND');
4194: hr_utility.raise_error;
4195: -- raise error;
4196: end if;
4197: hr_psf_del.del(
4198: p_position_id => p_position_id,
4201: p_object_version_number => l_ovn,
4202: p_effective_date => p_date_effective -1,
4203: p_datetrack_mode => p_dt_mode);
4204: -- Regenerate Position Bug 3786467.
4205: hr_utility.set_location('Entered ghr regenerate position',15);
4206: ghr_regenerate_position_name(p_position_id);
4207: elsif (p_dt_mode = hr_api.g_zap) then
4208: open c_get_ovn(p_position_id, p_date_effective );
4209: fetch c_get_ovn into l_ovn;
4210: if c_get_ovn%NOTFOUND then
4211: -- raise error;
4212: -- can't delete without object_version_number.
4213: close c_get_ovn;
4214: hr_utility.set_message(8301,'GHR_38504_POS_OVN_NOTFOUND');
4215: hr_utility.raise_error;
4216: end if;
4217: hr_psf_del.del(
4218: p_position_id => p_position_id,
4211: -- raise error;
4212: -- can't delete without object_version_number.
4213: close c_get_ovn;
4214: hr_utility.set_message(8301,'GHR_38504_POS_OVN_NOTFOUND');
4215: hr_utility.raise_error;
4216: end if;
4217: hr_psf_del.del(
4218: p_position_id => p_position_id,
4219: p_effective_start_date => l_effective_start_date,
4221: p_object_version_number => l_ovn,
4222: p_effective_date => p_date_effective,
4223: p_datetrack_mode => p_dt_mode );
4224: -- Regenerate Position Bug 3786467
4225: hr_utility.set_location('Entered ghr regenerate position',15);
4226: ghr_regenerate_position_name(p_position_id);
4227: else
4228: -- raise error, unacceptable datetrack mode
4229: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4225: hr_utility.set_location('Entered ghr regenerate position',15);
4226: ghr_regenerate_position_name(p_position_id);
4227: else
4228: -- raise error, unacceptable datetrack mode
4229: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4230: hr_utility.raise_error;
4231: end if;
4232: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4233: END delete_posn_row;
4226: ghr_regenerate_position_name(p_position_id);
4227: else
4228: -- raise error, unacceptable datetrack mode
4229: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4230: hr_utility.raise_error;
4231: end if;
4232: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4233: END delete_posn_row;
4234:
4228: -- raise error, unacceptable datetrack mode
4229: hr_utility.set_message(8301,'GHR_38216_INVALID_DT_MODE_PPL');
4230: hr_utility.raise_error;
4231: end if;
4232: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4233: END delete_posn_row;
4234:
4235: -- ---------------------------------------------------------------------------
4236: -- |--------------------------< delete_asgn_row>------------------------------|
4307: ll_value NUMBER;
4308: l_pay_intg BOOLEAN:=FALSE;
4309:
4310: BEGIN
4311: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4312: if (p_dt_mode = hr_api.g_delete_next_change) then
4313: open c_get_ovn(p_assignment_id, p_date_effective -1);
4314: fetch c_get_ovn into l_ovn;
4315: if c_get_ovn%NOTFOUND then
4315: if c_get_ovn%NOTFOUND then
4316: -- can't delete without object_version_number.
4317: -- raise error;
4318: close c_get_ovn;
4319: hr_utility.set_message(8301,'GHR_38215_ASSG_OVN_NOTFOUND');
4320: hr_utility.raise_error;
4321: end if;
4322: per_asg_del.del(
4323: p_assignment_id => p_assignment_id,
4316: -- can't delete without object_version_number.
4317: -- raise error;
4318: close c_get_ovn;
4319: hr_utility.set_message(8301,'GHR_38215_ASSG_OVN_NOTFOUND');
4320: hr_utility.raise_error;
4321: end if;
4322: per_asg_del.del(
4323: p_assignment_id => p_assignment_id,
4324: p_effective_start_date => l_effective_start_date,
4336: if c_get_ovn%NOTFOUND then
4337: -- can't delete without object_version_number.
4338: -- raise error;
4339: close c_get_ovn;
4340: hr_utility.set_message(8301,'GHR_38215_ASSG_OVN_NOTFOUND');
4341: hr_utility.raise_error;
4342: end if;
4343: -- Payroll Integration Changes
4344: ----**********************************************************************
4337: -- can't delete without object_version_number.
4338: -- raise error;
4339: close c_get_ovn;
4340: hr_utility.set_message(8301,'GHR_38215_ASSG_OVN_NOTFOUND');
4341: hr_utility.raise_error;
4342: end if;
4343: -- Payroll Integration Changes
4344: ----**********************************************************************
4345: -- CHECK # :- Existence of PAYROLL Product
4343: -- Payroll Integration Changes
4344: ----**********************************************************************
4345: -- CHECK # :- Existence of PAYROLL Product
4346: ----**********************************************************************
4347: IF (hr_utility.chk_product_install('GHR','US') = TRUE
4348: and hr_utility.chk_product_install('PAY', 'US') = TRUE
4349: and fnd_profile.value('HR_USER_TYPE')='INT')
4350: THEN
4351: l_pay_intg:=TRUE;
4344: ----**********************************************************************
4345: -- CHECK # :- Existence of PAYROLL Product
4346: ----**********************************************************************
4347: IF (hr_utility.chk_product_install('GHR','US') = TRUE
4348: and hr_utility.chk_product_install('PAY', 'US') = TRUE
4349: and fnd_profile.value('HR_USER_TYPE')='INT')
4350: THEN
4351: l_pay_intg:=TRUE;
4352: ELSE
4361: l_pay_proposal_id := proposal_rec.proposal_id;
4362: l_sal_admin_ovn := proposal_rec.ovn;
4363: End Loop;
4364:
4365: hr_utility.set_location('l_hist basic value not null '||ll_value,100000);
4366:
4367: per_asg_del.del(
4368: p_assignment_id => p_assignment_id,
4369: p_effective_start_date => l_effective_start_date,
4391: p_change_date => p_date_effective -1,
4392: p_payroll_value => l_payroll_value,
4393: p_element_entry_id => l_ele_entry_id );
4394:
4395: hr_utility.set_location(' The Entry value '||ll_payroll_value,12345);
4396: hr_utility.set_location(' The Entry id '||l_ele_entry_id,12345);
4397:
4398: hr_entry_api.delete_element_entry
4399: ('DELETE_NEXT_CHANGE',
4392: p_payroll_value => l_payroll_value,
4393: p_element_entry_id => l_ele_entry_id );
4394:
4395: hr_utility.set_location(' The Entry value '||ll_payroll_value,12345);
4396: hr_utility.set_location(' The Entry id '||l_ele_entry_id,12345);
4397:
4398: hr_entry_api.delete_element_entry
4399: ('DELETE_NEXT_CHANGE',
4400: p_date_effective - 1,
4414: p_org_now_no_manager_warning => l_org_now_no_manager_warning );
4415: END IF;
4416: else
4417: -- raise error, unacceptable datetrack mode
4418: hr_utility.set_message(8301,'GHR_38214_INVALID_DT_MODE_ASSG');
4419: hr_utility.raise_error;
4420: end if;
4421: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4422: END delete_asgn_row;
4415: END IF;
4416: else
4417: -- raise error, unacceptable datetrack mode
4418: hr_utility.set_message(8301,'GHR_38214_INVALID_DT_MODE_ASSG');
4419: hr_utility.raise_error;
4420: end if;
4421: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4422: END delete_asgn_row;
4423:
4417: -- raise error, unacceptable datetrack mode
4418: hr_utility.set_message(8301,'GHR_38214_INVALID_DT_MODE_ASSG');
4419: hr_utility.raise_error;
4420: end if;
4421: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4422: END delete_asgn_row;
4423:
4424: -- ---------------------------------------------------------------------------
4425: -- |--------------------------< delete_peopei_row>----------------------------|
4457: SELECT object_version_number
4458: FROM PER_PEOPLE_EXTRA_INFO
4459: WHERE person_extra_info_id = cp_person_extra_info_id ;
4460: BEGIN
4461: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4462: open c_get_ovn(p_person_extra_info_id);
4463: fetch c_get_ovn into l_ovn;
4464: if c_get_ovn%NOTFOUND then
4465: -- can't do delete without object_version_number.
4465: -- can't do delete without object_version_number.
4466: close c_get_ovn;
4467: return;
4468: -- if record is not there means it has already been deleted thru core form.
4469: -- hr_utility.set_message(8301,'GHR_38217_PEI_OVN_NOTFOUND');
4470: -- hr_utility.raise_error;
4471: end if;
4472: pe_pei_del.del(
4473: p_person_extra_info_id => p_person_extra_info_id,
4466: close c_get_ovn;
4467: return;
4468: -- if record is not there means it has already been deleted thru core form.
4469: -- hr_utility.set_message(8301,'GHR_38217_PEI_OVN_NOTFOUND');
4470: -- hr_utility.raise_error;
4471: end if;
4472: pe_pei_del.del(
4473: p_person_extra_info_id => p_person_extra_info_id,
4474: p_object_version_number => l_ovn);
4471: end if;
4472: pe_pei_del.del(
4473: p_person_extra_info_id => p_person_extra_info_id,
4474: p_object_version_number => l_ovn);
4475: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4476: END delete_peopei_row;
4477:
4478: -- ---------------------------------------------------------------------------
4479: -- |--------------------------< delete_asgnei_row>----------------------------|
4512: SELECT object_version_number
4513: FROM PER_ASSIGNMENT_EXTRA_INFO
4514: WHERE assignment_extra_info_id = cp_assignment_extra_info_id ;
4515: BEGIN
4516: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4517: open c_get_ovn(p_assignment_extra_info_id);
4518: fetch c_get_ovn into l_ovn;
4519: if c_get_ovn%NOTFOUND then
4520: -- can't do delete without object_version_number.
4520: -- can't do delete without object_version_number.
4521: close c_get_ovn;
4522: return;
4523: -- if record is not there means it has already been deleted thru core form.
4524: -- hr_utility.set_message(8301,'GHR_38218_ASGEI_OVN_NOTFOUND');
4525: -- hr_utility.raise_error;
4526: end if;
4527: pe_aei_del.del(
4528: p_assignment_extra_info_id => p_assignment_extra_info_id,
4521: close c_get_ovn;
4522: return;
4523: -- if record is not there means it has already been deleted thru core form.
4524: -- hr_utility.set_message(8301,'GHR_38218_ASGEI_OVN_NOTFOUND');
4525: -- hr_utility.raise_error;
4526: end if;
4527: pe_aei_del.del(
4528: p_assignment_extra_info_id => p_assignment_extra_info_id,
4529: p_object_version_number => l_ovn);
4526: end if;
4527: pe_aei_del.del(
4528: p_assignment_extra_info_id => p_assignment_extra_info_id,
4529: p_object_version_number => l_ovn);
4530: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4531: END delete_asgnei_row;
4532:
4533: -- ---------------------------------------------------------------------------
4534: -- |--------------------------< delete_posnei_row>----------------------------|
4566: SELECT object_version_number
4567: FROM PER_POSITION_EXTRA_INFO
4568: WHERE position_extra_info_id = cp_position_extra_info_id ;
4569: BEGIN
4570: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4571: open c_get_ovn(p_position_extra_info_id);
4572: fetch c_get_ovn into l_ovn;
4573: if c_get_ovn%NOTFOUND then
4574: -- can't do delete without object_version_number.
4574: -- can't do delete without object_version_number.
4575: close c_get_ovn;
4576: return;
4577: -- if record is not there means it has already been deleted thru core form.
4578: -- hr_utility.set_message(8301,'GHR_38218_ASGEI_OVN_NOTFOUND');
4579: -- hr_utility.raise_error;
4580: end if;
4581: pe_poi_del.del(
4582: p_position_extra_info_id => p_position_extra_info_id,
4575: close c_get_ovn;
4576: return;
4577: -- if record is not there means it has already been deleted thru core form.
4578: -- hr_utility.set_message(8301,'GHR_38218_ASGEI_OVN_NOTFOUND');
4579: -- hr_utility.raise_error;
4580: end if;
4581: pe_poi_del.del(
4582: p_position_extra_info_id => p_position_extra_info_id,
4583: p_object_version_number => l_ovn);
4580: end if;
4581: pe_poi_del.del(
4582: p_position_extra_info_id => p_position_extra_info_id,
4583: p_object_version_number => l_ovn);
4584: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4585: END delete_posnei_row;
4586:
4587: -- ---------------------------------------------------------------------------
4588: -- |--------------------------< delete_address_row>----------------------------|
4622: FROM PER_ADDRESSES
4623: WHERE address_id = cp_address_id ;
4624:
4625: BEGIN
4626: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4627: open c_get_ovn(p_address_id);
4628: fetch c_get_ovn into l_ovn;
4629: if c_get_ovn%NOTFOUND then
4630: -- can't do delete without object_version_number.
4630: -- can't do delete without object_version_number.
4631: close c_get_ovn;
4632: return;
4633: -- if record is not there means it has already been deleted thru core form.
4634: -- hr_utility.set_message(8301,'GHR_38220_ADDRESS_OVN_NOTFOUND');
4635: -- hr_utility.raise_error;
4636: end if;
4637: hr_utility.set_location('*Deleting p_address_id:' || p_address_id, 12);
4638: per_add_del.del(
4631: close c_get_ovn;
4632: return;
4633: -- if record is not there means it has already been deleted thru core form.
4634: -- hr_utility.set_message(8301,'GHR_38220_ADDRESS_OVN_NOTFOUND');
4635: -- hr_utility.raise_error;
4636: end if;
4637: hr_utility.set_location('*Deleting p_address_id:' || p_address_id, 12);
4638: per_add_del.del(
4639: p_address_id => p_address_id,
4633: -- if record is not there means it has already been deleted thru core form.
4634: -- hr_utility.set_message(8301,'GHR_38220_ADDRESS_OVN_NOTFOUND');
4635: -- hr_utility.raise_error;
4636: end if;
4637: hr_utility.set_location('*Deleting p_address_id:' || p_address_id, 12);
4638: per_add_del.del(
4639: p_address_id => p_address_id,
4640: p_object_version_number => l_ovn);
4641: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4637: hr_utility.set_location('*Deleting p_address_id:' || p_address_id, 12);
4638: per_add_del.del(
4639: p_address_id => p_address_id,
4640: p_object_version_number => l_ovn);
4641: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4642: END delete_address_row;
4643:
4644: -- ---------------------------------------------------------------------------
4645: -- |--------------------------< delete_person_analyses_row>-------------------|
4679: FROM PER_PERSON_ANALYSES
4680: WHERE person_analysis_id = cp_person_analysis_id ;
4681:
4682: Begin
4683: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4684: open c_get_ovn(p_person_analysis_id);
4685: fetch c_get_ovn into l_ovn;
4686: if c_get_ovn%NOTFOUND then
4687: -- can't do delete without object_version_number.
4688: -- raise error;
4689: close c_get_ovn;
4690: return;
4691: -- if record is not there means it has already been deleted thru core form.
4692: -- hr_utility.set_message(8301,'GHR_38272_PERSON_ANALYSE_OV_NF');
4693: -- hr_utility.raise_error;
4694: end if;
4695:
4696: per_pea_del.del(
4689: close c_get_ovn;
4690: return;
4691: -- if record is not there means it has already been deleted thru core form.
4692: -- hr_utility.set_message(8301,'GHR_38272_PERSON_ANALYSE_OV_NF');
4693: -- hr_utility.raise_error;
4694: end if;
4695:
4696: per_pea_del.del(
4697: p_person_analysis_id => p_person_analysis_id,
4735: p_dt_mode in varchar2,
4736: p_date_effective in date) IS
4737: l_proc varchar2(72) := 'delete_appl_row';
4738: BEGIN
4739: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4740: hr_utility.set_location(' P_TABLE_NAME:' || p_table_name, 15);
4741: if (lower(p_table_name) = lower(ghr_history_api.g_peop_table)) then
4742: delete_peop_row( p_person_id => p_table_pk_id,
4743: p_dt_mode => p_dt_mode,
4736: p_date_effective in date) IS
4737: l_proc varchar2(72) := 'delete_appl_row';
4738: BEGIN
4739: hr_utility.set_location( 'Entering : ' || l_proc, 10);
4740: hr_utility.set_location(' P_TABLE_NAME:' || p_table_name, 15);
4741: if (lower(p_table_name) = lower(ghr_history_api.g_peop_table)) then
4742: delete_peop_row( p_person_id => p_table_pk_id,
4743: p_dt_mode => p_dt_mode,
4744: p_date_effective => p_date_effective);
4761: delete_address_row( p_address_id => p_table_pk_id);
4762: elsif (lower(p_table_name) = lower(ghr_history_api.g_perana_table)) then
4763: delete_person_analyses_row( p_person_analysis_id => p_table_pk_id);
4764: end if;
4765: hr_utility.set_location( 'Leaving : ' || l_proc, 20);
4766: END delete_appl_row;
4767:
4768: -- ---------------------------------------------------------------------------
4769: -- |--------------------------< undo_mark_cancel>------------------------------|
4810: where pa_request_id = cp_pa_request_id;
4811: l_proc varchar2(30):='Undo_Mark_Cancel';
4812: l_sf52_data get_req%rowtype;
4813: Begin
4814: hr_utility.set_location( 'Entering ' || l_proc, 10);
4815: if p_sf52_data.altered_pa_request_id is not null then
4816: -- if it is a correction/cancellation it'll have altered_pa_request_id
4817: hr_utility.set_location( l_proc, 20);
4818: -- fetch cancelled/corrected pa_request record
4813: Begin
4814: hr_utility.set_location( 'Entering ' || l_proc, 10);
4815: if p_sf52_data.altered_pa_request_id is not null then
4816: -- if it is a correction/cancellation it'll have altered_pa_request_id
4817: hr_utility.set_location( l_proc, 20);
4818: -- fetch cancelled/corrected pa_request record
4819: open get_req( p_sf52_data.altered_pa_request_id);
4820: fetch get_req into l_sf52_data;
4821: if get_req%notfound then
4819: open get_req( p_sf52_data.altered_pa_request_id);
4820: fetch get_req into l_sf52_data;
4821: if get_req%notfound then
4822: -- this must never happen until data has been corrupted.
4823: hr_utility.set_location( 'Error ' || l_proc, 30);
4824: hr_utility.set_message(8301 , 'GHR_38278_PARENT_SF52_NOT_FND');
4825: hr_utility.raise_error;
4826: end if;
4827: close get_req;
4820: fetch get_req into l_sf52_data;
4821: if get_req%notfound then
4822: -- this must never happen until data has been corrupted.
4823: hr_utility.set_location( 'Error ' || l_proc, 30);
4824: hr_utility.set_message(8301 , 'GHR_38278_PARENT_SF52_NOT_FND');
4825: hr_utility.raise_error;
4826: end if;
4827: close get_req;
4828: -- Only if a correction is canceled following logic must be executed to mark
4821: if get_req%notfound then
4822: -- this must never happen until data has been corrupted.
4823: hr_utility.set_location( 'Error ' || l_proc, 30);
4824: hr_utility.set_message(8301 , 'GHR_38278_PARENT_SF52_NOT_FND');
4825: hr_utility.raise_error;
4826: end if;
4827: close get_req;
4828: -- Only if a correction is canceled following logic must be executed to mark
4829: -- parent SF52 available for cancellation/correction.
4827: close get_req;
4828: -- Only if a correction is canceled following logic must be executed to mark
4829: -- parent SF52 available for cancellation/correction.
4830: if l_sf52_data.altered_pa_request_id is not null then
4831: hr_utility.set_location( l_proc, 40);
4832: open get_req(l_sf52_data.altered_pa_request_id);
4833: fetch get_req into l_sf52_data;
4834: if get_req%notfound then
4835: hr_utility.set_location( 'Error ' || l_proc , 50);
4831: hr_utility.set_location( l_proc, 40);
4832: open get_req(l_sf52_data.altered_pa_request_id);
4833: fetch get_req into l_sf52_data;
4834: if get_req%notfound then
4835: hr_utility.set_location( 'Error ' || l_proc , 50);
4836: hr_utility.set_message(8301 , 'GHR_38278_PARENT_SF52_NOT_FND');
4837: hr_utility.raise_error;
4838: end if;
4839: close get_req;
4832: open get_req(l_sf52_data.altered_pa_request_id);
4833: fetch get_req into l_sf52_data;
4834: if get_req%notfound then
4835: hr_utility.set_location( 'Error ' || l_proc , 50);
4836: hr_utility.set_message(8301 , 'GHR_38278_PARENT_SF52_NOT_FND');
4837: hr_utility.raise_error;
4838: end if;
4839: close get_req;
4840: if l_sf52_data.first_noa_id = p_sf52_data.second_noa_id then
4833: fetch get_req into l_sf52_data;
4834: if get_req%notfound then
4835: hr_utility.set_location( 'Error ' || l_proc , 50);
4836: hr_utility.set_message(8301 , 'GHR_38278_PARENT_SF52_NOT_FND');
4837: hr_utility.raise_error;
4838: end if;
4839: close get_req;
4840: if l_sf52_data.first_noa_id = p_sf52_data.second_noa_id then
4841: hr_utility.set_location( l_proc, 60);
4837: hr_utility.raise_error;
4838: end if;
4839: close get_req;
4840: if l_sf52_data.first_noa_id = p_sf52_data.second_noa_id then
4841: hr_utility.set_location( l_proc, 60);
4842: ghr_par_upd.upd
4843: (p_pa_request_id => l_sf52_data.pa_request_id,
4844: p_object_version_number => l_sf52_data.ovn,
4845: p_first_noa_cancel_or_correct => NULL,
4845: p_first_noa_cancel_or_correct => NULL,
4846: p_first_noa_pa_request_id => NULL
4847: );
4848: elsif l_sf52_data.second_noa_id = p_sf52_data.second_noa_id then
4849: hr_utility.set_location( l_proc, 70);
4850: ghr_par_upd.upd
4851: (p_pa_request_id => l_sf52_data.pa_request_id,
4852: p_object_version_number => l_sf52_data.ovn,
4853: p_second_noa_cancel_or_correct => NULL,
4855: );
4856: else
4857: -- This must never be the case where parent SF52 has different
4858: -- NOACs then the correction/cancellation.
4859: hr_utility.set_location( l_proc, 80);
4860: hr_utility.set_message(8301 , 'GHR_38279_PARENT_NOA_IS_DIFF');
4861: hr_utility.raise_error;
4862: null;
4863: end if;
4856: else
4857: -- This must never be the case where parent SF52 has different
4858: -- NOACs then the correction/cancellation.
4859: hr_utility.set_location( l_proc, 80);
4860: hr_utility.set_message(8301 , 'GHR_38279_PARENT_NOA_IS_DIFF');
4861: hr_utility.raise_error;
4862: null;
4863: end if;
4864: end if;
4857: -- This must never be the case where parent SF52 has different
4858: -- NOACs then the correction/cancellation.
4859: hr_utility.set_location( l_proc, 80);
4860: hr_utility.set_message(8301 , 'GHR_38279_PARENT_NOA_IS_DIFF');
4861: hr_utility.raise_error;
4862: null;
4863: end if;
4864: end if;
4865: hr_utility.set_location( l_proc, 90);
4861: hr_utility.raise_error;
4862: null;
4863: end if;
4864: end if;
4865: hr_utility.set_location( l_proc, 90);
4866: end if;
4867: hr_utility.set_location( 'Leaving ' || l_proc, 100);
4868:
4869: End Undo_Mark_Cancel;
4863: end if;
4864: end if;
4865: hr_utility.set_location( l_proc, 90);
4866: end if;
4867: hr_utility.set_location( 'Leaving ' || l_proc, 100);
4868:
4869: End Undo_Mark_Cancel;
4870:
4871: Procedure convert_shadow_to_sf52 (
5054: l_sf52_ia_rec ghr_pa_requests%rowtype;
5055:
5056:
5057: begin
5058: hr_utility.set_location('Entering:'|| l_proc, 5);
5059: l_sf52_data_result_rec := p_sf52_data_result;
5060: -- ghr_history_api.get_g_session_var(l_session_var);
5061: --Bug 2141522
5062: -- set values of session variables
5088: fetch l_sf52_cursor into l_sf52_data_step;
5089: exit when l_sf52_cursor%notfound;
5090: l_sf52_cursor_step_indx := l_sf52_cursor_step_indx +1;
5091: if ( l_sf52_cursor_step_indx = 1) then
5092: hr_utility.set_location('Fetch l_sf52_data_step original :'|| l_proc, 10);
5093: l_sf52_data_orig := l_sf52_data_step;
5094: p_sf52_data_result := l_sf52_data_step;
5095: -- Bug 3228557 Added the following IF condition. In case of NPA Printing
5096: -- Pass parameter 'NPA' to the procedure call to refresh_req_shadow.
5094: p_sf52_data_result := l_sf52_data_step;
5095: -- Bug 3228557 Added the following IF condition. In case of NPA Printing
5096: -- Pass parameter 'NPA' to the procedure call to refresh_req_shadow.
5097: IF NVL(p_called_from,hr_api.g_varchar2) = 'NPA' THEN
5098: hr_utility.set_location('Inside NPA printing',10);
5099: ghr_process_sf52.refresh_req_shadow(p_sf52_data=>p_sf52_data_result,
5100: p_shadow_data=>l_shadow_data,
5101: p_process_type => 'NPA');
5102: ELSE
5099: ghr_process_sf52.refresh_req_shadow(p_sf52_data=>p_sf52_data_result,
5100: p_shadow_data=>l_shadow_data,
5101: p_process_type => 'NPA');
5102: ELSE
5103: hr_utility.set_location('Calling Refresh_req_shadow ',10);
5104: ghr_process_sf52.refresh_req_shadow(p_sf52_data=>p_sf52_data_result,
5105: p_shadow_data=>l_shadow_data);
5106: END IF;
5107: -- Bug 3228557 Skip Pay Calculation in case of NPA report printing.
5108: IF nvl(p_called_from,hr_api.g_varchar2) NOT IN ('FROM_PAYCAL','NPA') THEN
5109: ghr_process_sf52.redo_pay_calc( p_sf52_rec => p_sf52_data_result,
5110: p_capped_other_pay => l_capped_other_pay);
5111: END IF;
5112: hr_utility.set_location('assignment_id of original =' || l_sf52_data_step.employee_assignment_id, 14);
5113: hr_utility.set_location(l_proc || 'pa_request_id of original= ' || l_sf52_data_step.pa_request_id,26);
5114: -- check if original action in correction chain was a dual action. If so, determine which of
5115: -- the two actions this correction is for and call ghr_process_sf52.assign_new_rg to null out columns not having
5116: -- to do with the noa we are correcting.
5109: ghr_process_sf52.redo_pay_calc( p_sf52_rec => p_sf52_data_result,
5110: p_capped_other_pay => l_capped_other_pay);
5111: END IF;
5112: hr_utility.set_location('assignment_id of original =' || l_sf52_data_step.employee_assignment_id, 14);
5113: hr_utility.set_location(l_proc || 'pa_request_id of original= ' || l_sf52_data_step.pa_request_id,26);
5114: -- check if original action in correction chain was a dual action. If so, determine which of
5115: -- the two actions this correction is for and call ghr_process_sf52.assign_new_rg to null out columns not having
5116: -- to do with the noa we are correcting.
5117: if (p_sf52_data_result.second_noa_id is not null) then
5114: -- check if original action in correction chain was a dual action. If so, determine which of
5115: -- the two actions this correction is for and call ghr_process_sf52.assign_new_rg to null out columns not having
5116: -- to do with the noa we are correcting.
5117: if (p_sf52_data_result.second_noa_id is not null) then
5118: hr_utility.set_location('original sf52 is dual action :'|| l_proc, 11);
5119: ---- commented the below if condition because is is compared against NOAC Code
5120: ---- Dual action correction need to be tested.
5121: ---- if (p_noa_code_correct = p_sf52_data_result.second_noa_id) then
5122: if (p_noa_code_correct = p_sf52_data_result.second_noa_code) then
5119: ---- commented the below if condition because is is compared against NOAC Code
5120: ---- Dual action correction need to be tested.
5121: ---- if (p_noa_code_correct = p_sf52_data_result.second_noa_id) then
5122: if (p_noa_code_correct = p_sf52_data_result.second_noa_code) then
5123: hr_utility.set_location('Correcting second action in dual action:'|| l_proc, 12);
5124: ghr_process_sf52.assign_new_rg(p_action_num => 2,
5125: p_pa_req => p_sf52_data_result);
5126: else
5127: hr_utility.set_location('Correcting first action in dual action:'|| l_proc, 13);
5123: hr_utility.set_location('Correcting second action in dual action:'|| l_proc, 12);
5124: ghr_process_sf52.assign_new_rg(p_action_num => 2,
5125: p_pa_req => p_sf52_data_result);
5126: else
5127: hr_utility.set_location('Correcting first action in dual action:'|| l_proc, 13);
5128: ghr_process_sf52.assign_new_rg(p_action_num => 1,
5129: p_pa_req => p_sf52_data_result);
5130: -- if first action is 893, then we need to derive to_columns as both actions of
5131: -- the dual action potentially could have changed the to fields (in particular,
5146: p_sf52_data_result.from_office_symbol := NULL;
5147: p_sf52_data_result.personnel_office_id := NULL;
5148: p_sf52_data_result.to_office_symbol := NULL;
5149: else
5150: hr_utility.set_location('Fetch l_sf52_data_step loop :'|| l_proc, 15);
5151: -- all corrections will have the original sf52 information in the 2nd noa columns, so
5152: -- copy that information to 1st noa columns.
5153: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
5154: -- null the second noa columns since we don't want anything to be done with these now.
5152: -- copy that information to 1st noa columns.
5153: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
5154: -- null the second noa columns since we don't want anything to be done with these now.
5155: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
5156: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
5157: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
5158: -- Start Intervening Actions Processing
5159: -- Processing added to assign the From side details to
5160: -- To side if it is a Intervening action and
5153: ghr_process_sf52.copy_2ndNoa_to_1stNoa(l_sf52_data_step);
5154: -- null the second noa columns since we don't want anything to be done with these now.
5155: ghr_process_sf52.null_2ndNoa_cols(l_sf52_data_step);
5156: hr_utility.set_location(l_proc || 'pa_request_id before correction= ' || l_sf52_data_step.pa_request_id,16);
5157: hr_utility.set_location(l_proc || 'assignment id before correction= ' || l_sf52_data_step.employee_assignment_id,17);
5158: -- Start Intervening Actions Processing
5159: -- Processing added to assign the From side details to
5160: -- To side if it is a Intervening action and
5161: -- Original action from position_id = to position id
5161: -- Original action from position_id = to position id
5162: -- Fetch the original action details
5163: FOR c_orig_det_rec in c_orig_details_for_ia
5164: LOOP
5165: hr_utility.set_location('Inside the orig_details for loop' ,15);
5166: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5162: -- Fetch the original action details
5163: FOR c_orig_det_rec in c_orig_details_for_ia
5164: LOOP
5165: hr_utility.set_location('Inside the orig_details for loop' ,15);
5166: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5170: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
5163: FOR c_orig_det_rec in c_orig_details_for_ia
5164: LOOP
5165: hr_utility.set_location('Inside the orig_details for loop' ,15);
5166: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5170: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
5171: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
5164: LOOP
5165: hr_utility.set_location('Inside the orig_details for loop' ,15);
5166: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5170: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
5171: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
5172: --BUG #7216635 added the parameter p_noa_id_correct
5165: hr_utility.set_location('Inside the orig_details for loop' ,15);
5166: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5170: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
5171: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
5172: --BUG #7216635 added the parameter p_noa_id_correct
5173: GHR_APPROVED_PA_REQUESTS.determine_ia(
5166: hr_utility.set_location('orig pa_request_id'||c_orig_det_rec.pa_request_id ,15);
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5170: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
5171: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
5172: --BUG #7216635 added the parameter p_noa_id_correct
5173: GHR_APPROVED_PA_REQUESTS.determine_ia(
5174: p_pa_request_id => c_orig_det_rec.pa_request_id,
5167: hr_utility.set_location('orig pa_notification_id'||c_orig_det_rec.pa_notification_id ,15);
5168: hr_utility.set_location('orig person_id'||c_orig_det_rec.person_id ,15);
5169: hr_utility.set_location('orig from_position_id'||c_orig_det_rec.from_position_id ,15);
5170: hr_utility.set_location('orig to_position_id'||c_orig_det_rec.to_position_id ,15);
5171: hr_utility.set_location('orig effective_date'||c_orig_det_rec.effective_date ,15);
5172: --BUG #7216635 added the parameter p_noa_id_correct
5173: GHR_APPROVED_PA_REQUESTS.determine_ia(
5174: p_pa_request_id => c_orig_det_rec.pa_request_id,
5175: p_pa_notification_id => c_orig_det_rec.pa_notification_id,
5179: p_retro_pa_request_id => l_retro_pa_request_id,
5180: p_retro_eff_date => l_retro_eff_date,
5181: p_retro_first_noa => l_retro_first_noa,
5182: p_retro_second_noa => l_retro_second_noa);
5183: hr_utility.set_location('retro effective_date is '||l_retro_eff_date ,16);
5184: -- Bug#2521744 Splitting the single if condition into 2 separate if conditions.
5185: IF l_retro_eff_date is NOT NULL THEN
5186: IF c_orig_det_rec.from_position_id
5187: = c_orig_det_rec.to_position_id THEN
5186: IF c_orig_det_rec.from_position_id
5187: = c_orig_det_rec.to_position_id THEN
5188: -- copy the from details
5189: -- copy the from details
5190: hr_utility.set_location('Its a Intervening Action ' ,16);
5191: hr_utility.set_location('pa_request_id passed to get_sf52_to_det '||p_pa_request_id ,17);
5192:
5193: get_sf52_to_details_for_ia
5194: (p_pa_request_id => p_pa_request_id,
5187: = c_orig_det_rec.to_position_id THEN
5188: -- copy the from details
5189: -- copy the from details
5190: hr_utility.set_location('Its a Intervening Action ' ,16);
5191: hr_utility.set_location('pa_request_id passed to get_sf52_to_det '||p_pa_request_id ,17);
5192:
5193: get_sf52_to_details_for_ia
5194: (p_pa_request_id => p_pa_request_id,
5195: p_retro_eff_date => l_retro_eff_date,
5258: if p_sf52_data_result.to_other_pay_amount = 0 then
5259: p_sf52_data_result.to_other_pay_amount := null;
5260: end if;
5261: end if;
5262: hr_utility.set_location( l_proc || 'assignment_id after correction=' || p_sf52_data_result.employee_assignment_id ,18);
5263: hr_utility.set_location('Applied corrections :'|| l_proc, 20);
5264: end if;
5265: end loop;
5266: close l_sf52_cursor;
5259: p_sf52_data_result.to_other_pay_amount := null;
5260: end if;
5261: end if;
5262: hr_utility.set_location( l_proc || 'assignment_id after correction=' || p_sf52_data_result.employee_assignment_id ,18);
5263: hr_utility.set_location('Applied corrections :'|| l_proc, 20);
5264: end if;
5265: end loop;
5266: close l_sf52_cursor;
5267:
5290: ghr_history_api.reinit_g_session_var;
5291: ghr_history_api.set_g_session_var(l_session_var);
5292:
5293: IF l_pos_ei_grade_data.position_extra_info_id IS NOT NULL THEN
5294: hr_utility.set_location('GL: to grd id:'||p_sf52_data_result.to_grade_id,30);
5295: hr_utility.set_location('GL: pos ei grd:'||l_pos_ei_grade_data.poei_information3,40);
5296: IF l_pos_ei_grade_data.poei_information3 <> p_sf52_data_result.to_grade_id THEN
5297: --Bug# 5638869
5298: --p_sf52_data_result.to_grade_id := l_pos_ei_grade_data.poei_information3;
5291: ghr_history_api.set_g_session_var(l_session_var);
5292:
5293: IF l_pos_ei_grade_data.position_extra_info_id IS NOT NULL THEN
5294: hr_utility.set_location('GL: to grd id:'||p_sf52_data_result.to_grade_id,30);
5295: hr_utility.set_location('GL: pos ei grd:'||l_pos_ei_grade_data.poei_information3,40);
5296: IF l_pos_ei_grade_data.poei_information3 <> p_sf52_data_result.to_grade_id THEN
5297: --Bug# 5638869
5298: --p_sf52_data_result.to_grade_id := l_pos_ei_grade_data.poei_information3;
5299: l_pos_ei_grade_data.poei_information3 := p_sf52_data_result.to_grade_id;
5310: -- Bug#5435374 End of bug fix.
5311:
5312: ghr_process_sf52.print_sf52('Result after apply_correction ' , p_sf52_data_result);
5313:
5314: hr_utility.set_location(' Leaving:'||l_proc, 25);
5315: exception when others then
5316: --
5317: -- Reset IN OUT parameters and set OUT parameters
5318: --
5341: l_found VARCHAR2(10) := 'FALSE';
5342: l_proc VARCHAR2(30) := 'get_record_category';
5343:
5344: BEGIN
5345: hr_utility.set_location('Entering: '||l_proc,0);
5346: IF p_sf52_record.from_position_id IS NOT NULL AND
5347: p_sf52_record.from_position_title IS NOT NULL AND
5348: p_sf52_record.from_position_number IS NOT NULL AND
5349: -- p_sf52_record.from_position_seq_no IS NOT NULL AND
5366: p_sf52_record.to_basic_pay IS NOT NULL AND
5367: p_sf52_record.to_adj_basic_pay IS NOT NULL AND
5368: p_sf52_record.to_locality_adj IS NOT NULL AND
5369: p_sf52_record.to_total_salary IS NOT NULL THEN
5370: hr_utility.set_location('Leaving: '||l_proc,10);
5371: -- Added the following code as there are some 2 category corr. to Other Pay
5372: -- actions where all the above fields are not null. but, still the record belongs
5373: -- to 2nd category if the correction is dummy correction. In this case,
5374: -- to_au_overtime/to_availability pay is null.
5373: -- to 2nd category if the correction is dummy correction. In this case,
5374: -- to_au_overtime/to_availability pay is null.
5375: FOR noa_fam_rec IN c_noa_fam_code(p_sf52_record.second_noa_id)
5376: LOOP
5377: hr_utility.set_location(' OTHER PAY Family Code = '||noa_fam_rec.family_code,15);
5378: IF noa_fam_rec.family_code IN ('OTHER_PAY') THEN
5379: l_found := 'TRUE';
5380: EXIT;
5381: END IF;
5420: p_sf52_record.to_locality_adj IS NULL AND
5421: p_sf52_record.to_total_salary IS NULL THEN
5422: FOR noa_fam_rec IN c_noa_fam_code(p_sf52_record.second_noa_id)
5423: LOOP
5424: hr_utility.set_location(' SEP Family Code = '||noa_fam_rec.family_code,15);
5425: IF noa_fam_rec.family_code IN ('SEPARATION','NON_PAY_DUTY_STATUS',
5426: 'AWARD','GHR_INCENTIVE') THEN
5427: l_found := 'TRUE';
5428: EXIT;
5428: EXIT;
5429: END IF;
5430: END LOOP;
5431: IF l_found = 'TRUE' THEN
5432: hr_utility.set_location('Leaving: '||l_proc,20);
5433: Return 3;
5434: ELSE
5435: hr_utility.set_location('Leaving: '||l_proc,30);
5436: Return 2;
5431: IF l_found = 'TRUE' THEN
5432: hr_utility.set_location('Leaving: '||l_proc,20);
5433: Return 3;
5434: ELSE
5435: hr_utility.set_location('Leaving: '||l_proc,30);
5436: Return 2;
5437: END IF;
5438: ELSE
5439: hr_utility.set_location('Leaving: '||l_proc,40);
5435: hr_utility.set_location('Leaving: '||l_proc,30);
5436: Return 2;
5437: END IF;
5438: ELSE
5439: hr_utility.set_location('Leaving: '||l_proc,40);
5440: Return 2;
5441: END IF;
5442: ELSE
5443: -- For correction to Appointment actions also, from side data is
5466: p_sf52_record.to_basic_pay IS NOT NULL AND
5467: p_sf52_record.to_adj_basic_pay IS NOT NULL AND
5468: p_sf52_record.to_locality_adj IS NOT NULL AND
5469: p_sf52_record.to_total_salary IS NOT NULL THEN
5470: hr_utility.set_location('Leaving: '||l_proc,40);
5471: Return 3;
5472: ELSE
5473: hr_utility.set_location('Leaving: '||l_proc,50);
5474: Return 1;
5469: p_sf52_record.to_total_salary IS NOT NULL THEN
5470: hr_utility.set_location('Leaving: '||l_proc,40);
5471: Return 3;
5472: ELSE
5473: hr_utility.set_location('Leaving: '||l_proc,50);
5474: Return 1;
5475: END IF;
5476: END IF;
5477: END get_record_category;
5511: ELSE
5512: sf52_corr_rec := l_sf52_data;
5513: END IF;
5514: ELSE
5515: hr_utility.set_location('assinging the original record',20);
5516: sf52_corr_rec := l_sf52_data;
5517: END IF;
5518: end populate_corrected_sf52;
5519:
5645: l_ret_val Boolean:=FALSE;
5646: l_proc varchar2(30):='IF_ZAP_ELE_ENT';
5647: Begin
5648:
5649: hr_utility.set_location('Entering : ' || l_proc, 5);
5650: -- Find Element Type
5651: open c_get_ele_ent(
5652: p_element_entry_id,
5653: p_effective_start_date);
5655: if c_get_ele_ent%notfound then
5656: close c_get_ele_ent;
5657: -- This case must not happen.
5658: -- Not raising error. As it must be handled in calling routine
5659: hr_utility.set_location(' Could not find Element Type. Must not happen !!' || l_proc, 10);
5660: l_ret_val := FALSE;
5661: else
5662: if l_ele.processing_type = 'N' then
5663: -- Non-recurring elemnt can be zapped.
5662: if l_ele.processing_type = 'N' then
5663: -- Non-recurring elemnt can be zapped.
5664: close c_get_ele_ent;
5665: l_ret_val := TRUE;
5666: hr_utility.set_location('Non recurring CAN ZAP' || l_proc, 20);
5667: else
5668: -- For recurring
5669: close c_get_ele_ent;
5670: open get_root_min_hist_id (p_pa_history_id);
5670: open get_root_min_hist_id (p_pa_history_id);
5671: fetch get_root_min_hist_id into l_root_hist_id;
5672: if get_root_min_hist_id%notfound then
5673: close get_root_min_hist_id;
5674: hr_utility.set_location(' Root Hist ID Not found!! Must not happen' || l_proc, 30);
5675: l_ret_val := FALSE;
5676: else
5677: close get_root_min_hist_id;
5678: hr_utility.set_location(' Fetching successor,if any, from history' || l_proc, 40);
5674: hr_utility.set_location(' Root Hist ID Not found!! Must not happen' || l_proc, 30);
5675: l_ret_val := FALSE;
5676: else
5677: close get_root_min_hist_id;
5678: hr_utility.set_location(' Fetching successor,if any, from history' || l_proc, 40);
5679: open c_history(
5680: c_information1 => p_element_entry_id,
5681: c_effective_date => p_effective_start_date,
5682: c_root_hist_id => l_root_hist_id);
5685: end if;
5686: end if;
5687: end if;
5688: p_result := l_ret_val;
5689: hr_utility.set_location(' Leaving : ' || l_proc, 100);
5690: Exception when others then
5691: --
5692: -- Reset IN OUT parameters and set OUT parameters
5693: --
5735: l_ovn number;
5736: l_which_noa number;
5737: --
5738: Begin
5739: hr_utility.set_location( 'Entering : ' || l_proc, 10);
5740: hr_utility.set_location( 'PA_Request_id : ' || p_sf52_data.pa_request_id || ' ' || l_proc, 15);
5741: l_sf52_data_rec := p_sf52_data;
5742:
5743: -- Fetch Original SF50 being cancelled
5736: l_which_noa number;
5737: --
5738: Begin
5739: hr_utility.set_location( 'Entering : ' || l_proc, 10);
5740: hr_utility.set_location( 'PA_Request_id : ' || p_sf52_data.pa_request_id || ' ' || l_proc, 15);
5741: l_sf52_data_rec := p_sf52_data;
5742:
5743: -- Fetch Original SF50 being cancelled
5744: for v_get_sf52 in c_get_sf52 ( p_sf52_data.altered_pa_request_id)
5754:
5755: -- >> Build array of subsequent corrections;
5756: for v_pa_req in c_get_subs_corr ( p_sf52_data.altered_pa_request_id, p_sf52_data.second_noa_id)
5757: loop
5758: hr_utility.set_location( 'Sub Pa_request_id : ' || v_pa_req.pa_request_id || ' ' || l_proc, 20);
5759: l_count := l_count + 1;
5760: l_subsequent_pa_req(l_count).pa_request_id := v_pa_req.pa_request_id;
5761: l_subsequent_pa_req(l_count).object_version_number := v_pa_req.object_version_number;
5762: l_subsequent_pa_req(l_count).status := v_pa_req.status;
5766:
5767: l_rev_count := l_count;
5768:
5769: if l_count = 0 then
5770: hr_utility.set_location('Subsequent SF52 Tree is blank. Error !!!! ' || l_proc, 40);
5771: hr_utility.set_message(8301 , 'GHR_99999_CANC_SF52_NOT_FOUND');
5772: hr_utility.raise_error;
5773: end if;
5774:
5767: l_rev_count := l_count;
5768:
5769: if l_count = 0 then
5770: hr_utility.set_location('Subsequent SF52 Tree is blank. Error !!!! ' || l_proc, 40);
5771: hr_utility.set_message(8301 , 'GHR_99999_CANC_SF52_NOT_FOUND');
5772: hr_utility.raise_error;
5773: end if;
5774:
5775:
5768:
5769: if l_count = 0 then
5770: hr_utility.set_location('Subsequent SF52 Tree is blank. Error !!!! ' || l_proc, 40);
5771: hr_utility.set_message(8301 , 'GHR_99999_CANC_SF52_NOT_FOUND');
5772: hr_utility.raise_error;
5773: end if;
5774:
5775:
5776: hr_utility.set_location(' Start Process Subsequent SF52 ' || l_proc , 60);
5772: hr_utility.raise_error;
5773: end if;
5774:
5775:
5776: hr_utility.set_location(' Start Process Subsequent SF52 ' || l_proc , 60);
5777: while l_rev_count > 0
5778: loop
5779: l_sf52_canc := l_null_sf52;
5780: if l_rev_count = 1 then
5778: loop
5779: l_sf52_canc := l_null_sf52;
5780: if l_rev_count = 1 then
5781: -- original SF52;
5782: hr_utility.set_location('Processing Original SF52 ' || l_proc , 70);
5783: l_sf52_canc := p_sf52_data;
5784: -- Cancel SF52
5785: Process_Cancel( p_sf52_Data => l_sf52_canc);
5786: elsif nvl(l_subsequent_pa_req(l_rev_count).status, 'CANCELED') = 'CANCELED' then
5784: -- Cancel SF52
5785: Process_Cancel( p_sf52_Data => l_sf52_canc);
5786: elsif nvl(l_subsequent_pa_req(l_rev_count).status, 'CANCELED') = 'CANCELED' then
5787: -- No Action required
5788: hr_utility.set_location('No Action Req. for SF52 : ' ||
5789: l_subsequent_pa_req(l_rev_count).pa_request_id || ' ' || l_proc , 80);
5790: elsif nvl(l_subsequent_pa_req(l_rev_count).status, 'CANCELED') <> 'UPDATE_HR_COMPLETE' then
5791: -- SF52 has not been processed
5792: -- Soft Cancel this SF52
5791: -- SF52 has not been processed
5792: -- Soft Cancel this SF52
5793: -- No need to re-fetch object_version_number. As this must be last SF52 in the chain and
5794: -- OVN must not change since last fetch
5795: hr_utility.set_location('Soft Cancelling SF52 : ' ||
5796: l_subsequent_pa_req(l_rev_count).pa_request_id || ' ' || l_proc , 90);
5797: ghr_sf52_api.end_sf52(
5798: p_pa_request_id => l_sf52.pa_request_id
5799: ,p_user_name => l_username
5801: ,p_action_taken => 'CANCELED'
5802: );
5803: else
5804: -- Call Cancel_correction
5805: hr_utility.set_location('Calling Cancel_subs_correction for SF52 : ' ||
5806: l_subsequent_pa_req(l_rev_count).pa_request_id || ' ' || l_proc , 100);
5807: if l_sf52_canc.first_noa_code = p_sf52_data.second_noa_code then
5808: hr_utility.set_location('Ist NOA CODE '|| l_proc , 105);
5809: l_which_noa := 1;
5804: -- Call Cancel_correction
5805: hr_utility.set_location('Calling Cancel_subs_correction for SF52 : ' ||
5806: l_subsequent_pa_req(l_rev_count).pa_request_id || ' ' || l_proc , 100);
5807: if l_sf52_canc.first_noa_code = p_sf52_data.second_noa_code then
5808: hr_utility.set_location('Ist NOA CODE '|| l_proc , 105);
5809: l_which_noa := 1;
5810: else
5811: hr_utility.set_location('2nd NOA CODE '|| l_proc , 105);
5812: l_which_noa := 2;
5807: if l_sf52_canc.first_noa_code = p_sf52_data.second_noa_code then
5808: hr_utility.set_location('Ist NOA CODE '|| l_proc , 105);
5809: l_which_noa := 1;
5810: else
5811: hr_utility.set_location('2nd NOA CODE '|| l_proc , 105);
5812: l_which_noa := 2;
5813: end if;
5814:
5815: Cancel_subs_correction (
5818: end if;
5819: l_rev_count := l_rev_count - 1;
5820: end loop;
5821:
5822: hr_utility.set_location('Fetching original SF52 ' || l_proc , 110);
5823:
5824: -- Set column values in the SF50 being Cancelled;
5825: -- copy first/second_noa_canc_pa_request_id to first/second_noa_pa_request_id
5826: -- set first/second_noa_canel_correct_flag = 'ghr_history_api.g_cancel
5828: l_sf52.object_version_number := get_sf52_ovn ( p_pa_request_id => l_sf52.pa_request_id);
5829:
5830: if l_sf52.first_noa_code = p_sf52_data.second_noa_code then
5831: if l_sf52.first_noa_canc_pa_request_id is not null then
5832: hr_utility.set_location('Reset First_noa_canel_or_correct ' || l_proc , 120);
5833: ghr_par_upd.upd(
5834: p_pa_request_id => l_sf52.pa_request_id
5835: ,p_object_version_number => l_sf52.object_version_number
5836: ,p_first_noa_pa_request_id => l_sf52.first_noa_canc_pa_request_id
5839:
5840: end if;
5841: else
5842: if l_sf52.second_noa_canc_pa_request_id is not null then
5843: hr_utility.set_location('Reset Second_noa_canel_or_correct ' || l_proc , 120);
5844: ghr_par_upd.upd(
5845: p_pa_request_id => l_sf52.pa_request_id
5846: ,p_object_version_number => l_sf52.object_version_number
5847: ,p_second_noa_pa_request_id => l_sf52.second_noa_canc_pa_request_id
5849: );
5850: end if;
5851: end if;
5852:
5853: hr_utility.set_location(' Leaving ' || l_proc , 200);
5854: Exception when others then
5855: --
5856: -- Reset IN OUT parameters and set OUT parameters
5857: --
5993: --End of Bug# 5195518
5994: Begin
5995:
5996: -- Cancellation
5997: hr_utility.set_location( 'Entering ' || l_proc, 10);
5998: l_sf52_data := p_sf52_data;
5999: -- get first_noa_code and second_noa_code for the pa_request that this cancellation is being
6000: -- applied to.
6001: open c_sf52( p_sf52_data.altered_pa_request_id);
6002: fetch c_sf52 into l_prev_sf52_data;
6003: if not c_sf52%found then
6004: close c_sf52;
6005: -- original SF52 not found
6006: hr_utility.set_location(' Parent of pa_request_id : ' ||
6007: p_sf52_data.pa_request_id || ' Not Found. !! ERROR !! ' || l_proc , 20);
6008: hr_utility.set_message(8301 , 'GHR_38221_CORR_SF50_NOT_FOUND');
6009: ghr_api.g_api_dml := FALSE;
6010: hr_utility.raise_error;
6004: close c_sf52;
6005: -- original SF52 not found
6006: hr_utility.set_location(' Parent of pa_request_id : ' ||
6007: p_sf52_data.pa_request_id || ' Not Found. !! ERROR !! ' || l_proc , 20);
6008: hr_utility.set_message(8301 , 'GHR_38221_CORR_SF50_NOT_FOUND');
6009: ghr_api.g_api_dml := FALSE;
6010: hr_utility.raise_error;
6011: -- raise error
6012: else
6006: hr_utility.set_location(' Parent of pa_request_id : ' ||
6007: p_sf52_data.pa_request_id || ' Not Found. !! ERROR !! ' || l_proc , 20);
6008: hr_utility.set_message(8301 , 'GHR_38221_CORR_SF50_NOT_FOUND');
6009: ghr_api.g_api_dml := FALSE;
6010: hr_utility.raise_error;
6011: -- raise error
6012: else
6013: hr_utility.set_location( l_proc, 30);
6014: if l_prev_sf52_data.first_noa_code = '002' then
6009: ghr_api.g_api_dml := FALSE;
6010: hr_utility.raise_error;
6011: -- raise error
6012: else
6013: hr_utility.set_location( l_proc, 30);
6014: if l_prev_sf52_data.first_noa_code = '002' then
6015: -- Cancellation of the correction
6016: hr_utility.set_location( l_proc, 40);
6017: ghr_corr_canc_sf52.Cancel_Correction_SF52( p_sf52_data);
6012: else
6013: hr_utility.set_location( l_proc, 30);
6014: if l_prev_sf52_data.first_noa_code = '002' then
6015: -- Cancellation of the correction
6016: hr_utility.set_location( l_proc, 40);
6017: ghr_corr_canc_sf52.Cancel_Correction_SF52( p_sf52_data);
6018: else
6019: -------------------------------------------------
6020: -- JH Bug 2983738 Position Hiring Status Changes Generic to All Cancellations.
6022: --l_posn_eff_start_date date;
6023: --l_posn_eff_end_date date;
6024: --l_prior_posn_ovn number;
6025:
6026: hr_utility.set_location('JH Hiring Status Start'|| l_proc,45);
6027: hr_utility.set_location('First NOA code = '||l_sf52_data.first_noa_code || l_proc,45);
6028:
6029: IF l_sf52_data.first_noa_code = '001' THEN
6030: hr_utility.set_location('From Posn ID = '||to_char(l_sf52_data.from_position_id)|| l_proc,45);
6023: --l_posn_eff_end_date date;
6024: --l_prior_posn_ovn number;
6025:
6026: hr_utility.set_location('JH Hiring Status Start'|| l_proc,45);
6027: hr_utility.set_location('First NOA code = '||l_sf52_data.first_noa_code || l_proc,45);
6028:
6029: IF l_sf52_data.first_noa_code = '001' THEN
6030: hr_utility.set_location('From Posn ID = '||to_char(l_sf52_data.from_position_id)|| l_proc,45);
6031: hr_utility.set_location('Effective Date = '||l_sf52_data.effective_date|| l_proc,45);
6026: hr_utility.set_location('JH Hiring Status Start'|| l_proc,45);
6027: hr_utility.set_location('First NOA code = '||l_sf52_data.first_noa_code || l_proc,45);
6028:
6029: IF l_sf52_data.first_noa_code = '001' THEN
6030: hr_utility.set_location('From Posn ID = '||to_char(l_sf52_data.from_position_id)|| l_proc,45);
6031: hr_utility.set_location('Effective Date = '||l_sf52_data.effective_date|| l_proc,45);
6032: -- Tests for Position in Non-Active status ON the effective Date.
6033: posn_not_active(p_position_id => l_sf52_data.from_position_id
6034: ,p_effective_date => l_sf52_data.effective_date
6027: hr_utility.set_location('First NOA code = '||l_sf52_data.first_noa_code || l_proc,45);
6028:
6029: IF l_sf52_data.first_noa_code = '001' THEN
6030: hr_utility.set_location('From Posn ID = '||to_char(l_sf52_data.from_position_id)|| l_proc,45);
6031: hr_utility.set_location('Effective Date = '||l_sf52_data.effective_date|| l_proc,45);
6032: -- Tests for Position in Non-Active status ON the effective Date.
6033: posn_not_active(p_position_id => l_sf52_data.from_position_id
6034: ,p_effective_date => l_sf52_data.effective_date
6035: ,p_posn_eff_start_date => l_posn_eff_start_date
6044: ,p_posn_eff_end_date => l_posn_eff_end_date
6045: ,p_prior_posn_ovn => l_prior_posn_ovn);
6046: END IF;
6047:
6048: hr_utility.set_location('Hiring Status Start/End : '||l_posn_eff_start_date||'/'||l_posn_eff_end_date,45);
6049:
6050: IF l_posn_eff_start_date IS NOT NULL THEN
6051: hr_utility.set_location('Hiring Status - Calling Delete API',45);
6052: hr_position_api.delete_position(p_validate => FALSE
6047:
6048: hr_utility.set_location('Hiring Status Start/End : '||l_posn_eff_start_date||'/'||l_posn_eff_end_date,45);
6049:
6050: IF l_posn_eff_start_date IS NOT NULL THEN
6051: hr_utility.set_location('Hiring Status - Calling Delete API',45);
6052: hr_position_api.delete_position(p_validate => FALSE
6053: ,p_position_id => to_number(l_sf52_data.from_position_id)
6054: ,p_effective_date => l_posn_eff_start_date-1
6055: ,p_effective_start_date => l_posn_eff_start_date
6056: ,p_effective_end_date => l_posn_eff_end_date
6057: ,p_object_version_number => l_prior_posn_ovn
6058: ,p_datetrack_mode => 'DELETE_NEXT_CHANGE');
6059: END IF;
6060: hr_utility.set_location('Hiring Status - Exiting',45);
6061: END IF; -- Cancellations Bug 2983738
6062:
6063:
6064:
6061: END IF; -- Cancellations Bug 2983738
6062:
6063:
6064:
6065: hr_utility.set_location( l_proc, 50);
6066: open c_fam( p_sf52_data.second_noa_id);
6067: fetch c_fam into
6068: l_noa_family_code;
6069: if c_fam%notfound then
6068: l_noa_family_code;
6069: if c_fam%notfound then
6070: -- error
6071: close c_fam;
6072: hr_utility.set_message(8301,'GHR_38211_NOA_FAMILY_NOTFOUND');
6073: hr_utility.raise_error;
6074: else
6075: close c_fam;
6076: end if;
6069: if c_fam%notfound then
6070: -- error
6071: close c_fam;
6072: hr_utility.set_message(8301,'GHR_38211_NOA_FAMILY_NOTFOUND');
6073: hr_utility.raise_error;
6074: else
6075: close c_fam;
6076: end if;
6077: -- Bug # 5195518
6079: FOR l_cur_bg_id IN c_bg_id(p_sf52_data.person_id, p_sf52_data.effective_date)
6080: LOOP
6081: l_bg_id := l_cur_bg_id.bg_id;
6082: END LOOP;
6083: IF ghr_utility.is_ghr_ben_fehb = 'TRUE' THEN
6084: For rec_le in get_fehb_life_events(p_person_id => p_sf52_data.person_id,
6085: p_business_group_id => l_bg_id,
6086: p_effective_date => p_sf52_data.effective_date)
6087: loop
6109: l_datetrack_mode := hr_api.g_zap;
6110: END IF; */
6111:
6112:
6113: hr_utility.set_location('p_sf52_data.effective_date'||p_sf52_data.effective_date,1000);
6114: IF l_noa_family_code in ('APP','CONV_APP') THEN
6115: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
6116: For rec_le in get_tsp_life_events(p_person_id => p_sf52_data.person_id,
6117: p_business_group_id => l_bg_id,
6111:
6112:
6113: hr_utility.set_location('p_sf52_data.effective_date'||p_sf52_data.effective_date,1000);
6114: IF l_noa_family_code in ('APP','CONV_APP') THEN
6115: IF ghr_utility.is_ghr_ben_tsp = 'TRUE' THEN
6116: For rec_le in get_tsp_life_events(p_person_id => p_sf52_data.person_id,
6117: p_business_group_id => l_bg_id,
6118: p_effective_date => p_sf52_data.effective_date)
6119: loop
6153: -- End of Bug # 5195518
6154: if l_noa_family_code = 'APP' then
6155: -- must be checked for the appt. family
6156: -- Cancellation of an appointment
6157: hr_utility.set_location( l_proc, 60);
6158: ghr_corr_canc_sf52.Cancel_Appt_SF52( p_sf52_data);
6159: null;
6160: elsif l_noa_family_code = 'SEPARATION' then
6161: -- cancellation of termination
6158: ghr_corr_canc_sf52.Cancel_Appt_SF52( p_sf52_data);
6159: null;
6160: elsif l_noa_family_code = 'SEPARATION' then
6161: -- cancellation of termination
6162: hr_utility.set_location( l_proc, 70);
6163: ghr_corr_canc_sf52.cancel_term_sf52( p_sf52_data);
6164: -- elsif l_noa_code like '9%' then
6165: -- -- user defined families not supported by update to database
6166: -- -- should generate a message and raise_error here.
6163: ghr_corr_canc_sf52.cancel_term_sf52( p_sf52_data);
6164: -- elsif l_noa_code like '9%' then
6165: -- -- user defined families not supported by update to database
6166: -- -- should generate a message and raise_error here.
6167: -- hr_utility.set_location( l_proc, 80);
6168: -- NULL;
6169: -- user defined NOA would be treated as any other family in cancel_other_family_sf52
6170: -- if these don't belong to special families (APP/SEPARATION)
6171: else
6168: -- NULL;
6169: -- user defined NOA would be treated as any other family in cancel_other_family_sf52
6170: -- if these don't belong to special families (APP/SEPARATION)
6171: else
6172: hr_utility.set_location( l_proc, 90);
6173: ghr_corr_canc_sf52.Cancel_Other_Family_Sf52( p_sf52_data);
6174: end if;
6175:
6176:
6212:
6213: Begin
6214:
6215: -- create cancellation;
6216: hr_utility.set_location(' Call ghr_cancel_sf52 ' || p_corr_sf52_detail.pa_request_id ||
6217: l_proc , 80);
6218: l_corr_sf52_detail := p_corr_sf52_detail;
6219: -- Start Bug 2542417
6220: -- Fetching employee_assignment_id to pass in ghr_sf52_api.update_sf52
6224: for c_get_asg_rec in c_get_asg_id LOOP
6225: l_asg_id := c_get_asg_rec.employee_assignment_id;
6226: exit;
6227: END LOOP;
6228: hr_utility.set_location(' l_asg_id is ' || l_asg_id || ' ' || l_proc , 90);
6229: -- End Bug 2542417
6230:
6231:
6232: -- l_username := fnd_global.user_name;
6245: exit;
6246: end loop;
6247:
6248: if l_ovn is NULL then
6249: hr_utility.set_message(8301 , 'GHR_99999_SF52_NOT_FOUND');
6250: hr_utility.raise_error;
6251: end if;
6252:
6253: hr_utility.set_location(' User name ' || l_username || ' ' || l_proc , 90);
6246: end loop;
6247:
6248: if l_ovn is NULL then
6249: hr_utility.set_message(8301 , 'GHR_99999_SF52_NOT_FOUND');
6250: hr_utility.raise_error;
6251: end if;
6252:
6253: hr_utility.set_location(' User name ' || l_username || ' ' || l_proc , 90);
6254:
6249: hr_utility.set_message(8301 , 'GHR_99999_SF52_NOT_FOUND');
6250: hr_utility.raise_error;
6251: end if;
6252:
6253: hr_utility.set_location(' User name ' || l_username || ' ' || l_proc , 90);
6254:
6255: l_canc_pa_request_id := ghr_approved_pa_requests.ghr_cancel_sf52(
6256: p_pa_request_id => p_corr_sf52_detail.pa_request_id
6257: ,p_par_object_version_number => l_ovn
6262: ,p_cancel_legal_authority => p_corr_sf52_detail.cancel_legal_authority);
6263:
6264: -- fetch cancel sf52;
6265: if nvl(l_canc_pa_request_id, 0 ) = 0 then
6266: hr_utility.set_location(' Cancellation SF52 not created!! ERROR !! ' || l_proc , 90);
6267: hr_utility.set_message(8301 , 'GHR_99999_CREA_CANC_52_FAIL');
6268: hr_utility.raise_error;
6269: end if;
6270: for v_get_sf52 in c_get_sf52(l_canc_pa_request_id)
6263:
6264: -- fetch cancel sf52;
6265: if nvl(l_canc_pa_request_id, 0 ) = 0 then
6266: hr_utility.set_location(' Cancellation SF52 not created!! ERROR !! ' || l_proc , 90);
6267: hr_utility.set_message(8301 , 'GHR_99999_CREA_CANC_52_FAIL');
6268: hr_utility.raise_error;
6269: end if;
6270: for v_get_sf52 in c_get_sf52(l_canc_pa_request_id)
6271: loop
6264: -- fetch cancel sf52;
6265: if nvl(l_canc_pa_request_id, 0 ) = 0 then
6266: hr_utility.set_location(' Cancellation SF52 not created!! ERROR !! ' || l_proc , 90);
6267: hr_utility.set_message(8301 , 'GHR_99999_CREA_CANC_52_FAIL');
6268: hr_utility.raise_error;
6269: end if;
6270: for v_get_sf52 in c_get_sf52(l_canc_pa_request_id)
6271: loop
6272: l_sf52_canc := v_get_sf52;
6272: l_sf52_canc := v_get_sf52;
6273: exit;
6274: end loop;
6275: if l_sf52_canc.pa_request_id is NULL then
6276: hr_utility.set_location(' Fetch Cancel SF52 failed. ERROR !! ' || l_proc , 100);
6277: hr_utility.set_message(8301 , 'GHR_99999_SF52_NOT_FOUND');
6278: hr_utility.raise_error;
6279: end if;
6280:
6273: exit;
6274: end loop;
6275: if l_sf52_canc.pa_request_id is NULL then
6276: hr_utility.set_location(' Fetch Cancel SF52 failed. ERROR !! ' || l_proc , 100);
6277: hr_utility.set_message(8301 , 'GHR_99999_SF52_NOT_FOUND');
6278: hr_utility.raise_error;
6279: end if;
6280:
6281: -- Call update_sf52
6274: end loop;
6275: if l_sf52_canc.pa_request_id is NULL then
6276: hr_utility.set_location(' Fetch Cancel SF52 failed. ERROR !! ' || l_proc , 100);
6277: hr_utility.set_message(8301 , 'GHR_99999_SF52_NOT_FOUND');
6278: hr_utility.raise_error;
6279: end if;
6280:
6281: -- Call update_sf52
6282: -- This is a recursive call as Process_SF52 is called from ghr_sf52_api.update_sf52
6279: end if;
6280:
6281: -- Call update_sf52
6282: -- This is a recursive call as Process_SF52 is called from ghr_sf52_api.update_sf52
6283: hr_utility.set_location(' BEGIN Update_SF52 for pa_request_id : ' ||
6284: l_sf52_canc.pa_request_id || ' ' || l_proc , 110);
6285: hr_utility.set_location('l_dummy_number '||to_char(l_dummy_number),120);
6286: hr_utility.set_location('l_OVN '||to_char(l_sf52_canc.object_version_number),130);
6287: hr_utility.set_location('l_ASG '||to_char(l_asg_id),140);
6281: -- Call update_sf52
6282: -- This is a recursive call as Process_SF52 is called from ghr_sf52_api.update_sf52
6283: hr_utility.set_location(' BEGIN Update_SF52 for pa_request_id : ' ||
6284: l_sf52_canc.pa_request_id || ' ' || l_proc , 110);
6285: hr_utility.set_location('l_dummy_number '||to_char(l_dummy_number),120);
6286: hr_utility.set_location('l_OVN '||to_char(l_sf52_canc.object_version_number),130);
6287: hr_utility.set_location('l_ASG '||to_char(l_asg_id),140);
6288: ghr_sf52_api.update_sf52(
6289: p_pa_request_id => l_sf52_canc.pa_request_id
6282: -- This is a recursive call as Process_SF52 is called from ghr_sf52_api.update_sf52
6283: hr_utility.set_location(' BEGIN Update_SF52 for pa_request_id : ' ||
6284: l_sf52_canc.pa_request_id || ' ' || l_proc , 110);
6285: hr_utility.set_location('l_dummy_number '||to_char(l_dummy_number),120);
6286: hr_utility.set_location('l_OVN '||to_char(l_sf52_canc.object_version_number),130);
6287: hr_utility.set_location('l_ASG '||to_char(l_asg_id),140);
6288: ghr_sf52_api.update_sf52(
6289: p_pa_request_id => l_sf52_canc.pa_request_id
6290: ,p_employee_assignment_id => l_asg_id
6283: hr_utility.set_location(' BEGIN Update_SF52 for pa_request_id : ' ||
6284: l_sf52_canc.pa_request_id || ' ' || l_proc , 110);
6285: hr_utility.set_location('l_dummy_number '||to_char(l_dummy_number),120);
6286: hr_utility.set_location('l_OVN '||to_char(l_sf52_canc.object_version_number),130);
6287: hr_utility.set_location('l_ASG '||to_char(l_asg_id),140);
6288: ghr_sf52_api.update_sf52(
6289: p_pa_request_id => l_sf52_canc.pa_request_id
6290: ,p_employee_assignment_id => l_asg_id
6291: -- OUT parameters
6296: ,p_u_action_taken => 'UPDATE_HR'
6297: ,p_u_approval_status => 'APPROVE'
6298: );
6299:
6300: hr_utility.set_location(' END Update_SF52 for pa_request_id : ' ||
6301: l_sf52_canc.pa_request_id || ' ' || l_proc , 120);
6302:
6303: -- Nullify Second_noa_pa_request_id from Correction SF52 beinf cancelled
6304: ghr_par_upd.upd(
6314: delete ghr_pa_request_ei_shadow
6315: where pa_request_id = l_sf52_canc.pa_request_id;
6316:
6317: -- Delete Cancelation SF50 Shadow row
6318: hr_utility.set_location(' Deleting Shadow ' || l_sf52_canc.pa_request_id || ' ' || l_proc , 130);
6319: Delete from ghr_pa_request_shadow
6320: where pa_request_id = l_sf52_canc.pa_request_id;
6321:
6322: -- Delete Pa_request_EI data
6326:
6327: -- Delete pa_reques row
6328: l_sf52_canc.object_version_number := get_sf52_ovn( l_sf52_canc.pa_request_id);
6329:
6330: hr_utility.set_location(' Deleting Pa Request ' || l_sf52_canc.pa_request_id || ' ' || l_proc , 140);
6331: ghr_par_del.del(
6332: p_pa_request_id => l_sf52_canc.pa_request_id,
6333: p_object_version_number => l_sf52_canc.object_version_number);
6334:
6331: ghr_par_del.del(
6332: p_pa_request_id => l_sf52_canc.pa_request_id,
6333: p_object_version_number => l_sf52_canc.object_version_number);
6334:
6335: hr_utility.set_location(' Leaving ' || l_proc , 200);
6336: Exception when others then
6337: --
6338: -- Reset IN OUT parameters and set OUT parameters
6339: --
6390: and NVL(first_noa_cancel_or_correct,'C') <> 'CANCEL';
6391:
6392:
6393: BEGIN
6394: hr_utility.set_location('Entering Delete Oth Pay Entr '||p_element_name,0);
6395:
6396: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_bus_group_id);
6397: l_element_name := pqp_fedhr_uspay_int_utils.return_old_element_name
6398: (p_element_name,l_bus_group_id,p_hist_rec.effective_date);
6395:
6396: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_bus_group_id);
6397: l_element_name := pqp_fedhr_uspay_int_utils.return_old_element_name
6398: (p_element_name,l_bus_group_id,p_hist_rec.effective_date);
6399: hr_utility.set_location('l_element_name IS '||l_element_name,10);
6400: IF l_element_name = 'Other Pay' THEN
6401: Open c_history_record;
6402: Fetch c_history_record into l_hist_rec;
6403: IF c_history_record%NOTFOUND THEN
6408: Close c_history_record;
6409:
6410:
6411: IF l_history_exists THEN
6412: hr_utility.set_location('Same day action',70);
6413: ELSE
6414: -- Check whether any future dated OTHER PAY Actions exists or not
6415: FOR future_other_pay IN c_future_other_pay_exists(p_hist_rec.information5,p_hist_rec.effective_date)
6416: LOOP
6422: -- Else
6423: -- Delete the Other Pay element with this element entry ID.
6424: -- End If;
6425: IF l_future_othpay_effective_date IS NOT NULL THEN
6426: hr_utility.set_location(' Inside Future Other Pay Exists',20);
6427: -- DELETE THE RECORD FROM PAY_ELEMENT_ENTRY_VALUES_F;
6428: DELETE pay_element_entry_values_f
6429: where element_entry_id = p_hist_rec.information1
6430: AND effective_start_date BETWEEN fnd_date.canonical_to_date(p_hist_rec.information2)
6429: where element_entry_id = p_hist_rec.information1
6430: AND effective_start_date BETWEEN fnd_date.canonical_to_date(p_hist_rec.information2)
6431: AND (l_future_othpay_effective_date - 1) ;
6432:
6433: hr_utility.set_location(' After deleting Other pay element entries',30);
6434: -- DELETE THE RECORD FROM PAY_ELEMENT_ENTRIES_F;
6435: DELETE PAY_ELEMENT_ENTRIES_F
6436: where element_entry_id = p_hist_rec.information1
6437: AND effective_start_date BETWEEN fnd_date.canonical_to_date(p_hist_rec.information2)
6445: AND effective_date BETWEEN (fnd_date.canonical_to_date(p_hist_rec.information2) + 1)
6446: AND (l_future_othpay_effective_date - 1);
6447:
6448: ELSE
6449: hr_utility.set_location(' No Future Other Pay Action exists.',40);
6450: -- DELETE THE RECORD FROM PAY_ELEMENT_ENTRY_VALUES_F;
6451: DELETE pay_element_entry_values_f
6452: where element_entry_id = p_hist_rec.information1;
6453:
6477: DELETE PAY_ELEMENT_ENTRIES_F
6478: where element_entry_id = p_hist_rec.information1;
6479: -- AND effective_start_date = fnd_date.canonical_to_date(p_hist_rec.information2);
6480:
6481: hr_utility.set_location('Leaving delete_other_pay_entries',170);
6482: ELSE
6483: hr_utility.set_location('Elements Other than OTHER PAY '||p_element_name,110);
6484:
6485: -- DELETE THE RECORD FROM PAY_ELEMENT_ENTRY_VALUES_F;
6479: -- AND effective_start_date = fnd_date.canonical_to_date(p_hist_rec.information2);
6480:
6481: hr_utility.set_location('Leaving delete_other_pay_entries',170);
6482: ELSE
6483: hr_utility.set_location('Elements Other than OTHER PAY '||p_element_name,110);
6484:
6485: -- DELETE THE RECORD FROM PAY_ELEMENT_ENTRY_VALUES_F;
6486:
6487: DELETE pay_element_entry_values_f
6493: DELETE PAY_ELEMENT_ENTRIES_F
6494: where element_entry_id = p_hist_rec.information1
6495: AND effective_start_date = fnd_date.canonical_to_date(p_hist_rec.information2);
6496:
6497: hr_utility.set_location('Leaving delete_other_pay_entries',70);
6498: END IF;
6499:
6500: EXCEPTION
6501: WHEN OTHERS THEN
6498: END IF;
6499:
6500: EXCEPTION
6501: WHEN OTHERS THEN
6502: hr_utility.set_location('ERROR: '||sqlerrm,80);
6503: hr_utility.set_location('Leaving delete_other_pay_entries',90);
6504: END delete_other_pay_entries;
6505: --
6506: -- Bug#2521744 Added the above procedure
6499:
6500: EXCEPTION
6501: WHEN OTHERS THEN
6502: hr_utility.set_location('ERROR: '||sqlerrm,80);
6503: hr_utility.set_location('Leaving delete_other_pay_entries',90);
6504: END delete_other_pay_entries;
6505: --
6506: -- Bug#2521744 Added the above procedure
6507:
6516:
6517: l_ovn number;
6518: l_proc varchar2(30):='get_sf52_ovn';
6519: Begin
6520: hr_utility.set_location( 'Entering ' || l_proc, 10);
6521: for v_get_sf52 in c_get_sf52 (p_pa_request_id)
6522: loop
6523: l_ovn := v_get_sf52.object_version_number;
6524: end loop;
6521: for v_get_sf52 in c_get_sf52 (p_pa_request_id)
6522: loop
6523: l_ovn := v_get_sf52.object_version_number;
6524: end loop;
6525: hr_utility.set_location( 'Leaving ' || l_proc, 20);
6526:
6527: return l_ovn;
6528: End get_sf52_ovn;
6529:
6554: l_business_group_id per_grades.business_group_id%type;
6555:
6556: BEGIN
6557: -- First assign the current From pos items to To pos items
6558: hr_utility.set_location( 'Entering ' || l_proc, 5);
6559: l_sf52_ia_rec := p_sf52_ia_rec;
6560: FOR c_sf52_data IN c_from_data LOOP
6561: hr_utility.set_location( 'Assigning the from side to sf52_ia_rec ' || l_proc, 5);
6562: p_sf52_ia_rec.to_position_id := c_sf52_data.from_position_id;
6557: -- First assign the current From pos items to To pos items
6558: hr_utility.set_location( 'Entering ' || l_proc, 5);
6559: l_sf52_ia_rec := p_sf52_ia_rec;
6560: FOR c_sf52_data IN c_from_data LOOP
6561: hr_utility.set_location( 'Assigning the from side to sf52_ia_rec ' || l_proc, 5);
6562: p_sf52_ia_rec.to_position_id := c_sf52_data.from_position_id;
6563: p_sf52_ia_rec.to_position_title := c_sf52_data.from_position_title;
6564: p_sf52_ia_rec.to_position_number := c_sf52_data.from_position_number;
6565: p_sf52_ia_rec.TO_POSITION_SEQ_NO := c_sf52_data.FROM_POSITION_SEQ_NO;
6584: p_sf52_ia_rec.to_grade_or_level IS NOT NULL THEN
6585: FOR l_get_grade_id IN c_grade_id(l_business_group_id,p_sf52_ia_rec.to_pay_plan,
6586: p_sf52_ia_rec.to_grade_or_level,c_sf52_data.effective_date) LOOP
6587: p_sf52_ia_rec.to_grade_id := l_get_grade_id.grade_id;
6588: hr_utility.set_location( 'Grade ID ' || p_sf52_ia_rec.to_grade_id, 6);
6589: END LOOP;
6590: END IF;
6591: -- End Bug 4086845
6592:
6623: ,p_office_symbol => l_dummy_varchar
6624: ,p_part_time_hours => p_sf52_ia_rec.part_time_hours);
6625: EXIT;
6626: END LOOP;
6627: hr_utility.set_location( 'Leaving' || l_proc, 20);
6628: Exception when others then
6629: --
6630: -- Reset IN OUT parameters and set OUT parameters
6631: --
6667: l_noa_fam_code ghr_noa_families.noa_family_code%type;
6668:
6669: BEGIN
6670: -- First assign the current From pos items to To pos items
6671: hr_utility.set_location( 'Entering ' || l_proc, 5);
6672: l_sf52_ia_rec := p_sf52_ia_rec;
6673: -- Bug#2521744 Added by VVL for testing the correction process.
6674: -- for Other pay Elements update nulls as nulls.
6675: -- Added the following code to check whether the Family is Salary change family or not
6685: IF l_noa_fam_code like 'GHR_SAL%' THEN
6686: EXIT;
6687: END IF;
6688: END LOOP;
6689: hr_utility.set_location('NOA Family Code '||l_noa_fam_code,10000);
6690: IF (p_sf52_ia_rec.first_noa_code IN ('810','818','819') OR
6691: p_sf52_ia_rec.second_noa_code IN ('810','818','819') OR
6692: l_noa_fam_code like 'GHR_SAL%'
6693: ) THEN
6727: END IF;
6728: close c_element_exists;
6729: END IF;
6730: -- End of Bug#2521744 Changes.
6731: hr_utility.set_location( 'Leaving' || l_proc, 20);
6732:
6733: EXCEPTION
6734: WHEN OTHERS THEN
6735: --