[Home] [Help]
3: --
4: -- Package Variables
5: --
6: g_package constant varchar2(33) := 'hr_applicant_internal.';
7: g_debug boolean := hr_utility.debug_enabled;
8: --
9: g_APL_person_type constant varchar2(10) := 'APL';
10: g_EX_APL_person_type constant varchar2(10) := 'EX_APL';
11: --
662: and ppt.system_person_type in ('APL','EX_APL');
663:
664: begin
665: if g_debug then
666: hr_utility.set_location(' Entering: '||l_proc,10);
667: end if;
668: --
669: l_effective_date := trunc(p_effective_date);
670: --
674: p_business_group_id => p_business_group_id,
675: p_expected_sys_type => 'EX_APL');
676: --
677: if g_debug then
678: hr_utility.set_location(' Entering: '||l_proc,10);
679: end if;
680: --
681: open csr_get_person_details(p_person_id, l_effective_date);
682: fetch csr_get_person_details into l_person_rec;
682: fetch csr_get_person_details into l_person_rec;
683: if csr_get_person_details%FOUND then
684:
685: if g_debug then
686: hr_utility.set_location(l_proc,15);
687: end if;
688:
689: open csr_get_person_type(l_person_rec.person_type_id);
690: fetch csr_get_person_type into l_system_person_type;
712: --
713: -- person is ex_applicant; do nothing
714: --
715: if g_debug then
716: hr_utility.set_location(l_proc,20);
717: end if;
718: --
719: else
720: --
724: --
725: -- Update current record, simulate 'CORRECTION' mode
726: --
727: if g_debug then
728: hr_utility.set_location(l_proc,25);
729: end if;
730: --
731: Update_Person_Rec
732: (p_person_id => l_person_rec.person_id
742: --
743: -- DT update: person becomes ex_applicant on effective date
744: --
745: if g_debug then
746: hr_utility.set_location(l_proc,30);
747: end if;
748:
749: l_new_effective_date := l_effective_date;
750: l_per_effective_end_date := l_person_rec.effective_end_date;
773: end if;
774: end if;
775: --
776: if g_debug then
777: hr_utility.set_location(l_proc,40);
778: end if;
779: --
780: -- process future person records using "CORRECTION" mode
781: --
818: end if; -- person type is different
819:
820: END LOOP;
821: if g_debug then
822: hr_utility.set_location(l_proc,45);
823: end if;
824:
825: else
826: -- person details not found: ABNORMAL condition
823: end if;
824:
825: else
826: -- person details not found: ABNORMAL condition
827: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
828: hr_utility.set_message_token('PROCEDURE',l_proc);
829: hr_utility.set_message_token('STEP',80);
830: hr_utility.raise_error;
831: end if;
824:
825: else
826: -- person details not found: ABNORMAL condition
827: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
828: hr_utility.set_message_token('PROCEDURE',l_proc);
829: hr_utility.set_message_token('STEP',80);
830: hr_utility.raise_error;
831: end if;
832: close csr_get_person_details;
825: else
826: -- person details not found: ABNORMAL condition
827: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
828: hr_utility.set_message_token('PROCEDURE',l_proc);
829: hr_utility.set_message_token('STEP',80);
830: hr_utility.raise_error;
831: end if;
832: close csr_get_person_details;
833:
826: -- person details not found: ABNORMAL condition
827: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
828: hr_utility.set_message_token('PROCEDURE',l_proc);
829: hr_utility.set_message_token('STEP',80);
830: hr_utility.raise_error;
831: end if;
832: close csr_get_person_details;
833:
834:
835: -- ---------------------------------------------------------------------- +
836: -- ------------------------ PTU UPDATES --------------------------------- |
837: -- ---------------------------------------------------------------------- +
838: if g_debug then
839: hr_utility.set_location(l_proc,50);
840: hr_utility.trace(' ==> person record became EX_APL on '||
841: to_char(l_new_effective_date));
842: end if;
843: --
836: -- ------------------------ PTU UPDATES --------------------------------- |
837: -- ---------------------------------------------------------------------- +
838: if g_debug then
839: hr_utility.set_location(l_proc,50);
840: hr_utility.trace(' ==> person record became EX_APL on '||
841: to_char(l_new_effective_date));
842: end if;
843: --
844: open csr_ptu_details(p_person_id, l_new_effective_date);
849: --
850: -- person is ex_applicant on new_effective_date
851: --
852: if g_debug then
853: hr_utility.set_location(l_proc,60);
854: end if;
855:
856: else -- person is APL
857: if g_debug then
854: end if;
855:
856: else -- person is APL
857: if g_debug then
858: hr_utility.set_location(l_proc,65);
859: end if;
860: --
861: if l_ptu_rec.effective_end_date <> hr_api.g_eot then
862: hr_per_type_usage_internal.maintain_person_type_usage
876: -- ER FPT
877: if (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') then
878: for apl_rec in fpt_apl loop
879: -- updating PTU with the future APL and EX-APL records
880: hr_utility.set_location('Creating APL record on '||apl_rec.date_received,70);
881: l_person_type_id1 := hr_person_type_usage_info.get_default_person_type_id(p_Business_Group_Id,'APL');
882:
883: open chk_ptu_exists(apl_rec.date_received);
884: fetch chk_ptu_exists into l_exists;
965: open per_row_exists(ptu_rec.effective_start_date);
966: fetch per_row_exists into l_exists;
967: if per_row_exists%found then
968: -- Updating the record on PER table
969: hr_utility.set_location('Updating person record on '||ptu_rec.effective_start_date,75);
970:
971: Update_Person_Rec
972: (p_person_id => l_person_rec.person_id
973: ,p_effective_start_date => ptu_rec.effective_start_date
980:
981: else
982:
983: -- Inserting the record into PER table
984: hr_utility.set_location('Inserting person record on '||ptu_rec.effective_start_date,75);
985: Insert_Person_Rec
986: (p_rec => l_person_rec
987: ,p_person_id => p_person_id
988: ,p_effective_start_date => ptu_rec.effective_start_date
1002: -- ER FPT
1003: --
1004: end if;
1005: ELSE -- APL ptu record not found
1006: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1007: hr_utility.set_message_token('PROCEDURE',l_proc);
1008: hr_utility.set_message_token('STEP',85);
1009: hr_utility.raise_error;
1010: END IF;
1003: --
1004: end if;
1005: ELSE -- APL ptu record not found
1006: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1007: hr_utility.set_message_token('PROCEDURE',l_proc);
1008: hr_utility.set_message_token('STEP',85);
1009: hr_utility.raise_error;
1010: END IF;
1011: if g_debug then
1004: end if;
1005: ELSE -- APL ptu record not found
1006: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1007: hr_utility.set_message_token('PROCEDURE',l_proc);
1008: hr_utility.set_message_token('STEP',85);
1009: hr_utility.raise_error;
1010: END IF;
1011: if g_debug then
1012: hr_utility.set_location(' Leaving: '||l_proc,1000);
1005: ELSE -- APL ptu record not found
1006: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1007: hr_utility.set_message_token('PROCEDURE',l_proc);
1008: hr_utility.set_message_token('STEP',85);
1009: hr_utility.raise_error;
1010: END IF;
1011: if g_debug then
1012: hr_utility.set_location(' Leaving: '||l_proc,1000);
1013: end if;
1008: hr_utility.set_message_token('STEP',85);
1009: hr_utility.raise_error;
1010: END IF;
1011: if g_debug then
1012: hr_utility.set_location(' Leaving: '||l_proc,1000);
1013: end if;
1014: --
1015: -- Setting OUT parameters
1016: --
1119: --
1120: begin
1121: --
1122: if g_debug then
1123: hr_utility.set_location(' Entering: '||l_proc,10);
1124: end if;
1125: --
1126: l_effective_date := trunc(p_effective_date);
1127: --
1135: fetch csr_get_person_details into l_person_rec;
1136: if csr_get_person_details%FOUND then
1137:
1138: if g_debug then
1139: hr_utility.set_location(l_proc,15);
1140: end if;
1141: --
1142: open csr_get_person_type(l_person_rec.person_type_id);
1143: fetch csr_get_person_type into l_system_person_type;
1152: --
1153: -- person becomes applicant before first created in the system
1154: --
1155: if g_debug then
1156: hr_utility.set_location(l_proc,16);
1157: end if;
1158: --
1159: l_ovn := l_person_rec.object_version_number;
1160:
1201: --
1202: -- person is applicant; do nothing
1203: --
1204: if g_debug then
1205: hr_utility.set_location(l_proc,20);
1206: end if;
1207: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
1208: else
1209: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
1213: --
1214: -- Update current record, simulate 'CORRECTION' mode
1215: --
1216: if g_debug then
1217: hr_utility.set_location(l_proc,25);
1218: end if;
1219: --
1220: Update_Person_Rec
1221: (p_person_id => l_person_rec.person_id
1231: -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1232: -- DT update: person becomes applicant on effective date
1233: --
1234: if g_debug then
1235: hr_utility.set_location(l_proc,30);
1236: end if;
1237:
1238: l_new_effective_date := l_effective_date;
1239: l_per_effective_end_date := l_person_rec.effective_end_date;
1264: end if; -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
1265: end if; -- person became applicant before first created?
1266: --
1267: if g_debug then
1268: hr_utility.set_location(l_proc,40);
1269: end if;
1270: --
1271: -- process future person records using "CORRECTION" mode
1272: --
1306: end if; -- person type is different
1307:
1308: END LOOP;
1309: if g_debug then
1310: hr_utility.set_location(l_proc,45);
1311: end if;
1312:
1313: else
1314: -- person details not found: ABNORMAL condition
1311: end if;
1312:
1313: else
1314: -- person details not found: ABNORMAL condition
1315: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1316: hr_utility.set_message_token('PROCEDURE',l_proc);
1317: hr_utility.set_message_token('STEP',50);
1318: hr_utility.raise_error;
1319: end if;
1312:
1313: else
1314: -- person details not found: ABNORMAL condition
1315: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1316: hr_utility.set_message_token('PROCEDURE',l_proc);
1317: hr_utility.set_message_token('STEP',50);
1318: hr_utility.raise_error;
1319: end if;
1320: close csr_get_person_details;
1313: else
1314: -- person details not found: ABNORMAL condition
1315: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1316: hr_utility.set_message_token('PROCEDURE',l_proc);
1317: hr_utility.set_message_token('STEP',50);
1318: hr_utility.raise_error;
1319: end if;
1320: close csr_get_person_details;
1321:
1314: -- person details not found: ABNORMAL condition
1315: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1316: hr_utility.set_message_token('PROCEDURE',l_proc);
1317: hr_utility.set_message_token('STEP',50);
1318: hr_utility.raise_error;
1319: end if;
1320: close csr_get_person_details;
1321:
1322: -- ---------------------------------------------------------------------- +
1322: -- ---------------------------------------------------------------------- +
1323: -- ------------------------ PTU UPDATES --------------------------------- |
1324: -- ---------------------------------------------------------------------- +
1325: if g_debug then
1326: hr_utility.set_location(l_proc,50);
1327: hr_utility.trace(' ==> person record became APL on '||
1328: to_char(l_new_effective_date));
1329: end if;
1330: -- get default APL person type for PTU updates
1323: -- ------------------------ PTU UPDATES --------------------------------- |
1324: -- ---------------------------------------------------------------------- +
1325: if g_debug then
1326: hr_utility.set_location(l_proc,50);
1327: hr_utility.trace(' ==> person record became APL on '||
1328: to_char(l_new_effective_date));
1329: end if;
1330: -- get default APL person type for PTU updates
1331: l_new_person_type_id := l_ptu_person_type_id;
1340: --
1341: if l_ptu_rec.system_person_type <> 'APL' then
1342: -- person should be an applicant otherwise it is an abnormal condition
1343: close csr_ptu_details;
1344: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1345: hr_utility.set_message_token('PROCEDURE',l_proc);
1346: hr_utility.set_message_token('STEP',60);
1347: hr_utility.raise_error;
1348: else
1341: if l_ptu_rec.system_person_type <> 'APL' then
1342: -- person should be an applicant otherwise it is an abnormal condition
1343: close csr_ptu_details;
1344: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1345: hr_utility.set_message_token('PROCEDURE',l_proc);
1346: hr_utility.set_message_token('STEP',60);
1347: hr_utility.raise_error;
1348: else
1349: --
1342: -- person should be an applicant otherwise it is an abnormal condition
1343: close csr_ptu_details;
1344: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1345: hr_utility.set_message_token('PROCEDURE',l_proc);
1346: hr_utility.set_message_token('STEP',60);
1347: hr_utility.raise_error;
1348: else
1349: --
1350: l_first_person_type_id := l_ptu_rec.person_type_id;
1343: close csr_ptu_details;
1344: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1345: hr_utility.set_message_token('PROCEDURE',l_proc);
1346: hr_utility.set_message_token('STEP',60);
1347: hr_utility.raise_error;
1348: else
1349: --
1350: l_first_person_type_id := l_ptu_rec.person_type_id;
1351:
1383: --
1384: -- person is applicant on new_effective_date
1385: --
1386: if g_debug then
1387: hr_utility.set_location(l_proc,60);
1388: end if;
1389: l_first_person_type_id := l_ptu_rec.person_type_id;
1390: --
1391: -- check whether future changes exist, if yes delete otherwise do nothing
1413: close csr_ptu_details;
1414: --
1415: else -- person is EX_APL
1416: if g_debug then
1417: hr_utility.set_location(l_proc,65);
1418: end if;
1419: --
1420: if l_ptu_rec.effective_start_date = l_new_effective_date then
1421: close csr_ptu_details;
1436: ,p_datetrack_update_mode => hr_api.g_update
1437: );
1438: else
1439: if g_debug then
1440: hr_utility.set_location(l_proc,75);
1441: end if;
1442: close csr_ptu_details;
1443: if l_ptu_rec.effective_end_date <> hr_api.g_eot then
1444: hr_per_type_usage_internal.maintain_person_type_usage
1463: ---
1464: -- person needs to be transformed into applicant on effective_date
1465: --
1466: if g_debug then
1467: hr_utility.set_location(l_proc,80);
1468: end if;
1469: hr_per_type_usage_internal.create_person_type_usage
1470: (p_person_id => p_person_id
1471: ,p_person_type_id => l_new_person_type_id
1483: fetch csr_get_per_ovn into l_ovn;
1484: close csr_get_per_ovn;
1485:
1486: if g_debug then
1487: hr_utility.trace(' l_ovn : '||l_ovn);
1488: hr_utility.set_location(' Leaving: '||l_proc,1000);
1489: end if;
1490: --
1491: -- Setting OUT parameters
1484: close csr_get_per_ovn;
1485:
1486: if g_debug then
1487: hr_utility.trace(' l_ovn : '||l_ovn);
1488: hr_utility.set_location(' Leaving: '||l_proc,1000);
1489: end if;
1490: --
1491: -- Setting OUT parameters
1492: --
1653: END Upd_person;
1654: --
1655: BEGIN
1656: if g_debug then
1657: hr_utility.set_location(' Entering: '||l_proc,10);
1658: end if;
1659: --
1660: open csr_get_person_details (p_person_id, p_ex_apl_effective_date, p_apl_effective_date);
1661: fetch csr_get_person_details into l_ex_per_rec;
1750: -- ---------------------------------------------------------------------- +
1751: -- ------------------------ PTU UPDATES --------------------------------- |
1752: -- ---------------------------------------------------------------------- +
1753: if g_debug then
1754: hr_utility.set_location(l_proc,50);
1755: hr_utility.trace(' ==> person record became EX_APL on '||
1756: to_char(l_new_effective_date));
1757: end if;
1758: --
1751: -- ------------------------ PTU UPDATES --------------------------------- |
1752: -- ---------------------------------------------------------------------- +
1753: if g_debug then
1754: hr_utility.set_location(l_proc,50);
1755: hr_utility.trace(' ==> person record became EX_APL on '||
1756: to_char(l_new_effective_date));
1757: end if;
1758: --
1759: l_ptu_person_type_id := hr_person_type_usage_info.get_default_person_type_id
1767: --
1768: -- person is ex_applicant on p_ex_apl_effective_date
1769: --
1770: if g_debug then
1771: hr_utility.set_location(l_proc,60);
1772: end if;
1773:
1774: else -- person is APL
1775: if g_debug then
1772: end if;
1773:
1774: else -- person is APL
1775: if g_debug then
1776: hr_utility.set_location(l_proc,65);
1777: end if;
1778: --
1779: if l_ptu_rec.effective_end_date <> hr_api.g_eot then
1780: hr_per_type_usage_internal.maintain_person_type_usage
1799: end if;
1800: --
1801: end if;
1802: ELSE -- APL ptu record not found
1803: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE',l_proc);
1805: hr_utility.set_message_token('STEP',95);
1806: hr_utility.raise_error;
1807: END IF;
1800: --
1801: end if;
1802: ELSE -- APL ptu record not found
1803: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE',l_proc);
1805: hr_utility.set_message_token('STEP',95);
1806: hr_utility.raise_error;
1807: END IF;
1808: if g_debug then
1801: end if;
1802: ELSE -- APL ptu record not found
1803: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE',l_proc);
1805: hr_utility.set_message_token('STEP',95);
1806: hr_utility.raise_error;
1807: END IF;
1808: if g_debug then
1809: hr_utility.set_location(' Leaving: '||l_proc,1000);
1802: ELSE -- APL ptu record not found
1803: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE',l_proc);
1805: hr_utility.set_message_token('STEP',95);
1806: hr_utility.raise_error;
1807: END IF;
1808: if g_debug then
1809: hr_utility.set_location(' Leaving: '||l_proc,1000);
1810: end if;
1805: hr_utility.set_message_token('STEP',95);
1806: hr_utility.raise_error;
1807: END IF;
1808: if g_debug then
1809: hr_utility.set_location(' Leaving: '||l_proc,1000);
1810: end if;
1811: --
1812: -- Setting OUT parameters
1813: --
1825: ,p_new_application_id IN number
1826: )
1827: IS
1828: BEGIN
1829: hr_utility.trace('Update APL asg belonging to future applications');
1830: hr_utility.trace('OLD appl id = '||p_old_application_id);
1831: hr_utility.trace('New appl id = '||p_new_application_id);
1832:
1833: UPDATE per_all_assignments_f
1826: )
1827: IS
1828: BEGIN
1829: hr_utility.trace('Update APL asg belonging to future applications');
1830: hr_utility.trace('OLD appl id = '||p_old_application_id);
1831: hr_utility.trace('New appl id = '||p_new_application_id);
1832:
1833: UPDATE per_all_assignments_f
1834: set application_id = p_new_application_id
1827: IS
1828: BEGIN
1829: hr_utility.trace('Update APL asg belonging to future applications');
1830: hr_utility.trace('OLD appl id = '||p_old_application_id);
1831: hr_utility.trace('New appl id = '||p_new_application_id);
1832:
1833: UPDATE per_all_assignments_f
1834: set application_id = p_new_application_id
1835: where business_group_id = p_business_group_id
1911: l_apl_ovn_OUT per_applications.object_version_number%TYPE;
1912:
1913: begin
1914: if g_debug then
1915: hr_utility.set_location(' Entering: '||l_proc,10);
1916: end if;
1917: --
1918: l_appl_override_warning := FALSE;
1919: l_rowcount := 0;
1925: ,l_fut_apl_ovn;
1926:
1927: if csr_fut_apl%notfound then --no future
1928:
1929: hr_utility.trace('NO FUTURE');
1930:
1931: open csr_current_apl(p_person_id, l_effective_date) ;
1932: fetch csr_current_apl into l_current_apl_id, l_date_received
1933: ,l_apl_object_version_number;
1933: ,l_apl_object_version_number;
1934:
1935: if csr_current_apl%notfound then --no future, no current
1936:
1937: hr_utility.trace('NO FUTURE, NO CURRENT');
1938: close csr_current_apl;
1939: open csr_apl_yesterday(p_person_id, l_effective_date);
1940: fetch csr_apl_yesterday into l_yesterday_apl_id, l_date_received
1941: ,l_apl_object_version_number;
1943: if csr_apl_yesterday%notfound then --no future, no current, no yesterday
1944: close csr_apl_yesterday;
1945:
1946: --insert brand new application
1947: hr_utility.trace('no future, no current, no yesterday');
1948: hr_utility.trace('Insert brand new application');
1949:
1950: per_apl_ins.ins
1951: (p_application_id => l_application_id
1944: close csr_apl_yesterday;
1945:
1946: --insert brand new application
1947: hr_utility.trace('no future, no current, no yesterday');
1948: hr_utility.trace('Insert brand new application');
1949:
1950: per_apl_ins.ins
1951: (p_application_id => l_application_id
1952: ,p_business_group_id => p_business_group_id
1972: open csr_chk_EMP_or_CWK(p_person_id, l_effective_date);
1973: fetch csr_chk_EMP_or_CWK into l_dummy;
1974: if csr_chk_EMP_or_CWK%found then
1975:
1976: hr_utility.trace('EMP or CWK on the same day');
1977: hr_utility.trace('Insert new application');
1978:
1979: CLOSE csr_chk_EMP_or_CWK;
1980:
1973: fetch csr_chk_EMP_or_CWK into l_dummy;
1974: if csr_chk_EMP_or_CWK%found then
1975:
1976: hr_utility.trace('EMP or CWK on the same day');
1977: hr_utility.trace('Insert new application');
1978:
1979: CLOSE csr_chk_EMP_or_CWK;
1980:
1981: per_apl_ins.ins
1993: l_apl_ovn_OUT := l_apl_object_version_number;
1994:
1995: else
1996:
1997: hr_utility.trace('No EMP or CWK on the same');
1998: CLOSE csr_chk_EMP_or_CWK;
1999: -- end changes for bug 8337406
2000:
2001: --
2019: end if; -- added for bug 8337406
2020: -- ----------------------------------------
2021: else --no future, yes current
2022: -- ----------------------------------------
2023: hr_utility.trace('no future, yes current');
2024:
2025: close csr_current_apl;
2026: --
2027: --set date_end to null where application_id=l_current_apl_id
2040: end if;
2041: -- -------------------------------------------------------------------
2042: else --yes future
2043: -- -------------------------------------------------------------------
2044: hr_utility.trace('YES future');
2045:
2046: open csr_current_apl(p_person_id, l_effective_date);
2047: fetch csr_current_apl into l_current_apl_id, l_date_received
2048: ,l_apl_object_version_number;
2085: l_apl_ovn_OUT := l_fut_apl_ovn;
2086: -- ----------------------------------------
2087: else --yes future, yes current
2088: -- ----------------------------------------
2089: hr_utility.trace('yes future, yes current');
2090:
2091: close csr_current_apl;
2092: --
2093: -- delete the first future apl we already fetched
2143: p_object_version_number := l_apl_ovn_OUT;
2144: p_appl_override_warning := l_appl_override_warning;
2145:
2146: if g_debug then
2147: hr_utility.set_location(' Leaving: '||l_proc,1000);
2148: end if;
2149:
2150: end Create_Application;
2151: --
2403: -- ------------------------------------------------------------------------ +
2404: BEGIN
2405: --
2406: if g_debug then
2407: hr_utility.set_location('Entering:'|| l_proc, 5);
2408: end if;
2409: --
2410: -- Truncate p_effective_date
2411: --
2411: --
2412: l_effective_date := trunc(p_effective_date);
2413: l_person_type_id := p_person_type_id;
2414: --
2415: hr_utility.trace(' l_effective_date = '||to_char(l_effective_date));
2416: --
2417: l_applicant_number := p_applicant_number;
2418: l_per_object_version_number := p_per_object_version_number;
2419: --
2426: ,p_argument => 'person id'
2427: ,p_argument_value => p_person_id);
2428: --
2429: if g_debug then
2430: hr_utility.set_location(' Leaving:'||l_proc, 10);
2431: end if;
2432: --
2433: -- Check that this person (p_person_id) exists as of l_effective_date
2434: -- the current person type (per_people_f.person_type_id) has a
2444: ,l_per_start_date
2445: ,l_system_person_type;
2446: if csr_chk_person_exists%notfound then
2447: close csr_chk_person_exists;
2448: hr_utility.set_message(800, 'HR_51011_PER_NOT_EXIST_DATE');
2449: hr_utility.raise_error;
2450: end if;
2451: close csr_chk_person_exists;
2452: --
2445: ,l_system_person_type;
2446: if csr_chk_person_exists%notfound then
2447: close csr_chk_person_exists;
2448: hr_utility.set_message(800, 'HR_51011_PER_NOT_EXIST_DATE');
2449: hr_utility.raise_error;
2450: end if;
2451: close csr_chk_person_exists;
2452: --
2453: if g_debug then
2450: end if;
2451: close csr_chk_person_exists;
2452: --
2453: if g_debug then
2454: hr_utility.set_location(l_proc, 15);
2455: end if;
2456: --
2457: per_per_bus.chk_person_type
2458: (p_person_type_id => l_person_type_id,
2459: p_business_group_id => l_business_group_id,
2460: p_expected_sys_type => 'APL');
2461: --
2462: if g_debug then
2463: hr_utility.set_location(l_proc, 20);
2464: end if;
2465: --
2466: -- Get organization id
2467: --
2474: ,l_normal_hours
2475: ,l_frequency;
2476: if csr_get_organization_id%notfound then
2477: close csr_get_organization_id;
2478: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2479: hr_utility.raise_error;
2480: end if;
2481: close csr_get_organization_id;
2482: --
2475: ,l_frequency;
2476: if csr_get_organization_id%notfound then
2477: close csr_get_organization_id;
2478: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2479: hr_utility.raise_error;
2480: end if;
2481: close csr_get_organization_id;
2482: --
2483: -- Get vacancy details.
2494: ,l_vac_organization_id
2495: ,l_vac_business_group_id;
2496: if csr_get_vacancy_details%notfound then
2497: close csr_get_vacancy_details;
2498: hr_utility.set_message(801, 'HR_51001_THE_VAC_NOT_FOUND');
2499: hr_utility.raise_error;
2500: end if;
2501: close csr_get_vacancy_details;
2502: --
2495: ,l_vac_business_group_id;
2496: if csr_get_vacancy_details%notfound then
2497: close csr_get_vacancy_details;
2498: hr_utility.set_message(801, 'HR_51001_THE_VAC_NOT_FOUND');
2499: hr_utility.raise_error;
2500: end if;
2501: close csr_get_vacancy_details;
2502: --
2503: if l_vac_organization_id is null then
2507: l_vac_organization_id := l_business_group_id;
2508: end if;
2509: --
2510: if g_debug then
2511: hr_utility.set_location(l_proc, 30);
2512: end if;
2513: --
2514: -- Validate applicant number
2515: -- Get number if one exists and parameter is NULL
2523: ,p_start_date => l_per_start_date
2524: ,p_applicant_number => l_applicant_number);
2525:
2526: if g_debug then
2527: hr_utility.set_location(l_proc, 33);
2528: end if;
2529: -- ------------------------------------------------------------------------ +
2530: -- ----------------------<< MAIN PROCESS >>-------------------------------- |
2531: -- ------------------------------------------------------------------------ +
2537: open csr_lock_ptu(p_person_id, l_effective_date);
2538: close csr_lock_ptu;
2539: --
2540: if g_debug then
2541: hr_utility.set_location(l_proc, 40);
2542: end if;
2543: --
2544: -- Update Person and PTU Records:
2545: --
2565: ,p_validate_df_flex => false --4689836
2566: );
2567: --
2568: if g_debug then
2569: hr_utility.set_location(l_proc, 50);
2570: end if;
2571: --
2572: -- create an applicant assignment
2573: --
2607: --
2608: );
2609:
2610: if g_debug then
2611: hr_utility.set_location(l_proc, 60);
2612: end if;
2613: --
2614: -- add to the security list
2615: --
2632: p_per_object_version_number := l_per_object_version_number; --BUG4081676
2633: --
2634: --
2635: if g_debug then
2636: hr_utility.set_location(' Leaving:'||l_proc, 50);
2637: end if;
2638:
2639: end create_applicant_anytime;
2640: --