[Home] [Help]
70: -- ---------------------------------------------------------------------------
71: --
72: -- Description:
73: -- Validates that the following business rules are met:
74: -- a) Must be <= LAST_STANDARD_PROCESS_DATE (U)
75: -- b) Must be >= DATE_START (U)
76: -- c) Must be null (I)
77: -- d) Cannot be changed from one not null value to another (U)
78: -- e) Must be after initial insert date of last assignment (U)
78: -- e) Must be after initial insert date of last assignment (U)
79: -- f) Must be after effective start date of last future change(s) (U)
80: --
81: -- Pre-conditions:
82: -- person_id, date_start, last_standard_process_date and period_of_service_id
83: -- have been successfully validated separately.
84: --
85: -- In Arguments:
86: -- p_actual_termination_date
84: --
85: -- In Arguments:
86: -- p_actual_termination_date
87: -- p_date_start
88: -- p_last_standard_process_date
89: -- p_object_version_number
90: -- p_period_of_service_id
91: -- p_person_id
92: --
106: --
107: (p_actual_termination_date in
108: per_periods_of_service.actual_termination_date%TYPE
109: ,p_date_start in per_periods_of_service.date_start%TYPE
110: ,p_last_standard_process_date in
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
114: ,p_period_of_service_id in
107: (p_actual_termination_date in
108: per_periods_of_service.actual_termination_date%TYPE
109: ,p_date_start in per_periods_of_service.date_start%TYPE
110: ,p_last_standard_process_date in
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
114: ,p_period_of_service_id in
115: per_periods_of_service.period_of_service_id%TYPE
184: hr_utility.raise_error;
185: end if;
186: hr_utility.set_location(l_proc, 60);
187: --
188: if p_actual_termination_date > p_last_standard_process_date and
189: p_last_standard_process_date is not null then
190: --
191: -- CHK_ACTUAL_TERMINATION_DATE / a
192: --
185: end if;
186: hr_utility.set_location(l_proc, 60);
187: --
188: if p_actual_termination_date > p_last_standard_process_date and
189: p_last_standard_process_date is not null then
190: --
191: -- CHK_ACTUAL_TERMINATION_DATE / a
192: --
193: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
341: -- must be equal to ACTUAL_TERMINATION_DATE (U)
342: -- b) If the person is assigned to a payroll then
343: -- must equal the maximum period end date of all Assignments
344: -- for the current Period of Service (U)
345: -- c) Must be >= LAST_STANDARD_PROCESS_DATE (U)
346: -- d) If ACTUAL_TERMINATION_DATE is null then must be null (U)
347: -- e) Must be null (I)
348: --
349: -- Pre-conditions:
346: -- d) If ACTUAL_TERMINATION_DATE is null then must be null (U)
347: -- e) Must be null (I)
348: --
349: -- Pre-conditions:
350: -- p_date_start, actual_termination_date, last_standard_process_date and
351: -- period_of_service_id have been successfully validated separately.
352: --
353: -- In Arguments:
354: -- p_actual_termination_date
353: -- In Arguments:
354: -- p_actual_termination_date
355: -- p_date_start
356: -- p_final_process_date
357: -- p_last_standard_process_date
358: -- p_object_version_number
359: -- p_period_of_service_id
360: --
361: -- Post Success:
376: per_periods_of_service.actual_termination_date%TYPE,
377: p_date_start in per_periods_of_service.date_start%TYPE,
378: p_final_process_date in
379: per_periods_of_service.final_process_date%TYPE,
380: p_last_standard_process_date in
381: per_periods_of_service.last_standard_process_date%TYPE,
382: p_object_version_number in
383: per_periods_of_service.object_version_number%TYPE,
384: p_period_of_service_id in
377: p_date_start in per_periods_of_service.date_start%TYPE,
378: p_final_process_date in
379: per_periods_of_service.final_process_date%TYPE,
380: p_last_standard_process_date in
381: per_periods_of_service.last_standard_process_date%TYPE,
382: p_object_version_number in
383: per_periods_of_service.object_version_number%TYPE,
384: p_period_of_service_id in
385: per_periods_of_service.period_of_service_id%TYPE) is
394: --
395: CURSOR csr_next_pds IS
396: SELECT pds2.date_start
397: ,pds2.actual_termination_date
398: ,pds2.last_standard_process_date
399: ,pds2.final_process_date
400: FROM per_periods_of_service pds1
401: ,per_periods_of_service pds2
402: WHERE pds1.period_of_service_id = p_period_of_service_id
536: THEN
537: --
538: hr_utility.set_location(l_proc, 22);
539: --
540: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
541: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
542: THEN
543: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
544: hr_utility.raise_error;
537: --
538: hr_utility.set_location(l_proc, 22);
539: --
540: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
541: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
542: THEN
543: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
544: hr_utility.raise_error;
545: END IF;
603: --
604: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
605: AND p_final_process_date IS NOT NULL
606: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
607: AND (p_final_process_date < NVL(p_last_standard_process_date, p_actual_termination_date)) -- ER 6981999 .
608: THEN
609: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
610: hr_utility.raise_error;
611: END IF;
671: end if;
672: --
673: hr_utility.set_location(l_proc, 7);
674: --
675: if p_last_standard_process_date is null
676: then
677: --
678: hr_utility.set_location(l_proc, 8);
679: --
689: --
690: -- 70.1 change a start.
691: --
692: if not (nvl(p_final_process_date, hr_api.g_eot) >=
693: p_last_standard_process_date)
694: --
695: -- 70.1 change a end.
696: --
697: then
729: hr_utility.set_location(' Leaving:'|| l_proc, 14);
730: end chk_final_process_date;
731: --
732: -- ---------------------------------------------------------------------------
733: -- |-------------------< chk_last_standard_process_date >--------------------|
734: -- ---------------------------------------------------------------------------
735: --
736: -- Description:
737: -- Validates that the following business rules are met:
749: --
750: -- In Arguments:
751: -- p_actual_termination_date
752: -- p_date_start
753: -- p_last_standard_process_date
754: -- p_object_version_number
755: -- p_period_of_service_id
756: --
757: -- Post Success:
768: -- ----------------------------------------------------------------------------
769: --
770: -- 70.3 change c start.
771: --
772: procedure chk_last_standard_process_date
773: --
774: (p_actual_termination_date in
775: per_periods_of_service.actual_termination_date%TYPE
776: ,p_business_group_id in
775: per_periods_of_service.actual_termination_date%TYPE
776: ,p_business_group_id in
777: per_periods_of_service.business_group_id%TYPE
778: ,p_date_start in per_periods_of_service.date_start%TYPE
779: ,p_last_standard_process_date in
780: per_periods_of_service.last_standard_process_date%TYPE
781: ,p_object_version_number in
782: per_periods_of_service.object_version_number%TYPE
783: ,p_period_of_service_id in
776: ,p_business_group_id in
777: per_periods_of_service.business_group_id%TYPE
778: ,p_date_start in per_periods_of_service.date_start%TYPE
779: ,p_last_standard_process_date in
780: per_periods_of_service.last_standard_process_date%TYPE
781: ,p_object_version_number in
782: per_periods_of_service.object_version_number%TYPE
783: ,p_period_of_service_id in
784: per_periods_of_service.period_of_service_id%TYPE
788: l_assigned_payroll boolean;
789: l_legislation_code per_business_groups.legislation_code%TYPE;
790: l_max_end_date per_periods_of_service.final_process_date%TYPE;
791: l_proc varchar2(72)
792: := g_package||'chk_last_standard_process_date';
793: --
794: cursor csr_get_legislation_code is
795: select bus.legislation_code
796: from per_business_groups bus
820: --
821: if l_api_updating
822: then
823: --
824: if nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
825: nvl(p_last_standard_process_date, hr_api.g_date)
826: then
827: --
828: hr_utility.set_location(l_proc, 30);
821: if l_api_updating
822: then
823: --
824: if nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
825: nvl(p_last_standard_process_date, hr_api.g_date)
826: then
827: --
828: hr_utility.set_location(l_proc, 30);
829: --
826: then
827: --
828: hr_utility.set_location(l_proc, 30);
829: --
830: if per_pds_shd.g_old_rec.last_standard_process_date is not null
831: and p_last_standard_process_date is not null
832: then
833: -- CHK_LAST_STANDARD_PROCESS_DATE / i
834: --
827: --
828: hr_utility.set_location(l_proc, 30);
829: --
830: if per_pds_shd.g_old_rec.last_standard_process_date is not null
831: and p_last_standard_process_date is not null
832: then
833: -- CHK_LAST_STANDARD_PROCESS_DATE / i
834: --
835: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
829: --
830: if per_pds_shd.g_old_rec.last_standard_process_date is not null
831: and p_last_standard_process_date is not null
832: then
833: -- CHK_LAST_STANDARD_PROCESS_DATE / i
834: --
835: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
836: hr_utility.raise_error;
837: end if;
857: --
858: hr_utility.set_location(l_proc, 50);
859: --
860: -- Bug 1711085. VS. 27-Mar-2001. Commented out the code that disables
861: -- last_standard_process for US legislature.
862: /* if l_legislation_code = 'US'
863: then
864: --
865: hr_utility.set_location(l_proc, 60);
863: then
864: --
865: hr_utility.set_location(l_proc, 60);
866: --
867: if not (p_last_standard_process_date is null)
868: then
869: -- CHK_LAST_STANDARD_PROCESS_DATE / g
870: --
871: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
865: hr_utility.set_location(l_proc, 60);
866: --
867: if not (p_last_standard_process_date is null)
868: then
869: -- CHK_LAST_STANDARD_PROCESS_DATE / g
870: --
871: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
872: hr_utility.raise_error;
873: end if;
876: --
877: if p_actual_termination_date is null
878: then
879: --
880: if not (p_last_standard_process_date is null)
881: then
882: -- CHK_LAST_STANDARD_PROCESS_DATE / f
883: --
884: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
878: then
879: --
880: if not (p_last_standard_process_date is null)
881: then
882: -- CHK_LAST_STANDARD_PROCESS_DATE / f
883: --
884: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
885: hr_utility.raise_error;
886: end if;
890: hr_utility.set_location(l_proc, 80);
891: --
892: -- 70.1 change a start.
893: --
894: if not (nvl(p_last_standard_process_date, hr_api.g_eot) >=
895: nvl(p_actual_termination_date, hr_api.g_eot))
896: --
897: -- 70.1 change a end.
898: --
896: --
897: -- 70.1 change a end.
898: --
899: then
900: -- CHK_LAST_STANDARD_PROCESS_DATE / c
901: --
902: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
903: hr_utility.raise_error;
904: end if;
916: --
917: then
918: hr_utility.set_location(l_proc, 100);
919: --
920: if p_last_standard_process_date is null
921: --
922: then
923: --
924: -- Must also be set to not null value if actual_termination_date
922: then
923: --
924: -- Must also be set to not null value if actual_termination_date
925: -- updated to not null value.
926: -- CHK_LAST_STANDARD_PROCESS_DATE / h
927: --
928: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
929: hr_utility.raise_error;
930: end if;
937: -- Not updating => inserting.
938: --
939: hr_utility.set_location(l_proc, 110);
940: --
941: if not (p_last_standard_process_date is null)
942: then
943: -- CHK_LAST_STANDARD_PROCESS_DATE / e
944: --
945: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
939: hr_utility.set_location(l_proc, 110);
940: --
941: if not (p_last_standard_process_date is null)
942: then
943: -- CHK_LAST_STANDARD_PROCESS_DATE / e
944: --
945: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
946: hr_utility.raise_error;
947: end if;
949: hr_utility.set_location(l_proc, 120);
950: end if;
951: --
952: hr_utility.set_location(' Leaving:'|| l_proc, 200);
953: end chk_last_standard_process_date;
954: --
955: -- 70.3 change c end.
956: --
957: -- ---------------------------------------------------------------------------
961: -- Description:
962: -- Validates the following business rule :
963: --
964: -- If actual_termination_date is changed from a NULL value to
965: -- a NOT NULL value then last_standard_process_date must also
966: -- be changed to a NOT NULL value.
967: --
968: -- Pre-conditions:
969: -- actual_termination_date, last_standard_process_date have been
965: -- a NOT NULL value then last_standard_process_date must also
966: -- be changed to a NOT NULL value.
967: --
968: -- Pre-conditions:
969: -- actual_termination_date, last_standard_process_date have been
970: -- successfully validated separately.
971: --
972: -- In Arguments:
973: -- p_period_of_service_id
971: --
972: -- In Arguments:
973: -- p_period_of_service_id
974: -- p_actual_termination_date
975: -- p_last_standard_process_date
976: -- p_object_version_number
977: --
978: -- Post Success:
979: -- If the above business rules are satisfied then processing continues.
990: -- commented out this routine for fix of bug#2784295
991: /* procedure chk_at_date_lsp_date
992: --
993: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
994: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
995: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
996: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
997: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
998: ) is
1020: hr_utility.set_location(l_proc, 20);
1021: --
1022: -- Only proceed with validation if :
1023: -- a) The current g_old_rec is current and
1024: -- b) The value for actual_termination_date or last_standard_process_date
1025: -- has changed
1026: --
1027: if (l_api_updating
1028: and ((nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date)
1027: if (l_api_updating
1028: and ((nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date)
1029: <> nvl(p_actual_termination_date, hr_api.g_date))
1030: or
1031: (nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date)
1032: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1033: or
1034: NOT l_api_updating then
1035: --
1028: and ((nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date)
1029: <> nvl(p_actual_termination_date, hr_api.g_date))
1030: or
1031: (nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date)
1032: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1033: or
1034: NOT l_api_updating then
1035: --
1036: hr_utility.set_location(l_proc, 30);
1056: --
1057: if l_legislation_code <> 'US' then
1058: --
1059: -- Check combination when either actual_termination_date or
1060: -- last_standard_process_date are set
1061: --
1062: if (per_pds_shd.g_old_rec.actual_termination_date is null
1063: and p_actual_termination_date is not null)
1064: and p_last_standard_process_date is null
1060: -- last_standard_process_date are set
1061: --
1062: if (per_pds_shd.g_old_rec.actual_termination_date is null
1063: and p_actual_termination_date is not null)
1064: and p_last_standard_process_date is null
1065: then
1066: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1067: hr_utility.raise_error;
1068: end if;
2297: --
2298: per_pds_bus.chk_actual_termination_date
2299: (p_actual_termination_date => p_rec.actual_termination_date
2300: ,p_date_start => p_rec.date_start
2301: ,p_last_standard_process_date => p_rec.last_standard_process_date
2302: ,p_object_version_number => p_rec.object_version_number
2303: ,p_period_of_service_id => p_rec.period_of_service_id
2304: ,p_person_id => p_rec.person_id);
2305: --
2307: --
2308: hr_utility.set_location(l_proc, 8);
2309: --
2310: --
2311: -- Validate last standard process date
2312: --
2313: -- Business Rule Mapping
2314: -- =====================
2315: -- CHK_LAST_STANDARD_PROCESS_DATE / e
2311: -- Validate last standard process date
2312: --
2313: -- Business Rule Mapping
2314: -- =====================
2315: -- CHK_LAST_STANDARD_PROCESS_DATE / e
2316: --
2317: -- 70.3 change c start.
2318: --
2319: per_pds_bus.chk_last_standard_process_date
2315: -- CHK_LAST_STANDARD_PROCESS_DATE / e
2316: --
2317: -- 70.3 change c start.
2318: --
2319: per_pds_bus.chk_last_standard_process_date
2320: (p_actual_termination_date => p_rec.actual_termination_date
2321: ,p_business_group_id => p_rec.business_group_id
2322: ,p_date_start => p_rec.date_start
2323: ,p_last_standard_process_date => p_rec.last_standard_process_date
2319: per_pds_bus.chk_last_standard_process_date
2320: (p_actual_termination_date => p_rec.actual_termination_date
2321: ,p_business_group_id => p_rec.business_group_id
2322: ,p_date_start => p_rec.date_start
2323: ,p_last_standard_process_date => p_rec.last_standard_process_date
2324: ,p_object_version_number => p_rec.object_version_number
2325: ,p_period_of_service_id => p_rec.period_of_service_id
2326: );
2327: hr_utility.set_location(l_proc, 9);
2336: per_pds_bus.chk_final_process_date
2337: (p_actual_termination_date => p_rec.actual_termination_date,
2338: p_date_start => p_rec.date_start,
2339: p_final_process_date => p_rec.final_process_date,
2340: p_last_standard_process_date => p_rec.last_standard_process_date,
2341: p_object_version_number => p_rec.object_version_number,
2342: p_period_of_service_id => p_rec.period_of_service_id);
2343: --
2344: --
2493: --
2494: per_pds_bus.chk_actual_termination_date
2495: (p_actual_termination_date => p_rec.actual_termination_date
2496: ,p_date_start => p_rec.date_start
2497: ,p_last_standard_process_date => p_rec.last_standard_process_date
2498: ,p_object_version_number => p_rec.object_version_number
2499: ,p_period_of_service_id => p_rec.period_of_service_id
2500: ,p_person_id => p_rec.person_id);
2501: --
2503: --
2504: hr_utility.set_location(l_proc, 6);
2505: --
2506: --
2507: -- Validate last standard process date
2508: --
2509: -- Business Rule Mapping
2510: -- =====================
2511: --
2510: -- =====================
2511: --
2512: -- 70.3 change c start.
2513: --
2514: -- CHK_LAST_STANDARD_PROCESS_DATE / a,b,c,f,g,i
2515: --
2516: per_pds_bus.chk_last_standard_process_date
2517: (p_actual_termination_date => p_rec.actual_termination_date
2518: ,p_business_group_id => p_rec.business_group_id
2512: -- 70.3 change c start.
2513: --
2514: -- CHK_LAST_STANDARD_PROCESS_DATE / a,b,c,f,g,i
2515: --
2516: per_pds_bus.chk_last_standard_process_date
2517: (p_actual_termination_date => p_rec.actual_termination_date
2518: ,p_business_group_id => p_rec.business_group_id
2519: ,p_date_start => p_rec.date_start
2520: ,p_last_standard_process_date => p_rec.last_standard_process_date
2516: per_pds_bus.chk_last_standard_process_date
2517: (p_actual_termination_date => p_rec.actual_termination_date
2518: ,p_business_group_id => p_rec.business_group_id
2519: ,p_date_start => p_rec.date_start
2520: ,p_last_standard_process_date => p_rec.last_standard_process_date
2521: ,p_object_version_number => p_rec.object_version_number
2522: ,p_period_of_service_id => p_rec.period_of_service_id
2523: );
2524: hr_utility.set_location(l_proc, 7);
2522: ,p_period_of_service_id => p_rec.period_of_service_id
2523: );
2524: hr_utility.set_location(l_proc, 7);
2525: --
2526: -- Validate actual termination date/last standard process date
2527: --
2528: -- Business Rule Mapping
2529: -- =====================
2530: -- Commenting out this routine for fix of bug# 2784295
2527: --
2528: -- Business Rule Mapping
2529: -- =====================
2530: -- Commenting out this routine for fix of bug# 2784295
2531: -- CHK_LAST_STANDARD_PROCESS_DATE / h
2532: --
2533: /* per_pds_bus.chk_at_date_lsp_date
2534: (p_actual_termination_date => p_rec.actual_termination_date
2535: ,p_last_standard_process_date => p_rec.last_standard_process_date
2531: -- CHK_LAST_STANDARD_PROCESS_DATE / h
2532: --
2533: /* per_pds_bus.chk_at_date_lsp_date
2534: (p_actual_termination_date => p_rec.actual_termination_date
2535: ,p_last_standard_process_date => p_rec.last_standard_process_date
2536: ,p_object_version_number => p_rec.object_version_number
2537: ,p_period_of_service_id => p_rec.period_of_service_id
2538: ,p_business_group_id => p_rec.business_group_id
2539: );
2553: per_pds_bus.chk_final_process_date
2554: (p_actual_termination_date => p_rec.actual_termination_date,
2555: p_date_start => p_rec.date_start,
2556: p_final_process_date => p_rec.final_process_date,
2557: p_last_standard_process_date => p_rec.last_standard_process_date,
2558: p_object_version_number => p_rec.object_version_number,
2559: p_period_of_service_id => p_rec.period_of_service_id);
2560: --
2561: --