[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
176: hr_utility.raise_error;
177: end if;
178: hr_utility.set_location(l_proc, 60);
179: --
180: if p_actual_termination_date > p_last_standard_process_date and
181: p_last_standard_process_date is not null then
182: --
183: -- CHK_ACTUAL_TERMINATION_DATE / a
184: --
177: end if;
178: hr_utility.set_location(l_proc, 60);
179: --
180: if p_actual_termination_date > p_last_standard_process_date and
181: p_last_standard_process_date is not null then
182: --
183: -- CHK_ACTUAL_TERMINATION_DATE / a
184: --
185: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
322: -- must be equal to ACTUAL_TERMINATION_DATE (U)
323: -- b) If the person is assigned to a payroll then
324: -- must equal the maximum period end date of all Assignments
325: -- for the current Period of Service (U)
326: -- c) Must be >= LAST_STANDARD_PROCESS_DATE (U)
327: -- d) If ACTUAL_TERMINATION_DATE is null then must be null (U)
328: -- e) Must be null (I)
329: --
330: -- Pre-conditions:
327: -- d) If ACTUAL_TERMINATION_DATE is null then must be null (U)
328: -- e) Must be null (I)
329: --
330: -- Pre-conditions:
331: -- p_date_start, actual_termination_date, last_standard_process_date and
332: -- period_of_service_id have been successfully validated separately.
333: --
334: -- In Arguments:
335: -- p_actual_termination_date
334: -- In Arguments:
335: -- p_actual_termination_date
336: -- p_date_start
337: -- p_final_process_date
338: -- p_last_standard_process_date
339: -- p_object_version_number
340: -- p_period_of_service_id
341: --
342: -- Post Success:
357: per_periods_of_service.actual_termination_date%TYPE,
358: p_date_start in per_periods_of_service.date_start%TYPE,
359: p_final_process_date in
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
362: per_periods_of_service.last_standard_process_date%TYPE,
363: p_object_version_number in
364: per_periods_of_service.object_version_number%TYPE,
365: p_period_of_service_id in
358: p_date_start in per_periods_of_service.date_start%TYPE,
359: p_final_process_date in
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
362: per_periods_of_service.last_standard_process_date%TYPE,
363: p_object_version_number in
364: per_periods_of_service.object_version_number%TYPE,
365: p_period_of_service_id in
366: per_periods_of_service.period_of_service_id%TYPE) is
375: --
376: CURSOR csr_next_pds IS
377: SELECT pds2.date_start
378: ,pds2.actual_termination_date
379: ,pds2.last_standard_process_date
380: ,pds2.final_process_date
381: FROM per_periods_of_service pds1
382: ,per_periods_of_service pds2
383: WHERE pds1.period_of_service_id = p_period_of_service_id
515: THEN
516: --
517: hr_utility.set_location(l_proc, 22);
518: --
519: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
520: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
521: THEN
522: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
523: hr_utility.raise_error;
516: --
517: hr_utility.set_location(l_proc, 22);
518: --
519: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
520: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
521: THEN
522: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
523: hr_utility.raise_error;
524: END IF;
582: --
583: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
584: AND p_final_process_date IS NOT NULL
585: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
586: AND (p_final_process_date <= NVL(p_last_standard_process_date, p_actual_termination_date))
587: THEN
588: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
589: hr_utility.raise_error;
590: END IF;
650: end if;
651: --
652: hr_utility.set_location(l_proc, 7);
653: --
654: if p_last_standard_process_date is null
655: then
656: --
657: hr_utility.set_location(l_proc, 8);
658: --
668: --
669: -- 70.1 change a start.
670: --
671: if not (nvl(p_final_process_date, hr_api.g_eot) >=
672: p_last_standard_process_date)
673: --
674: -- 70.1 change a end.
675: --
676: then
708: hr_utility.set_location(' Leaving:'|| l_proc, 14);
709: end chk_final_process_date;
710: --
711: -- ---------------------------------------------------------------------------
712: -- |-------------------< chk_last_standard_process_date >--------------------|
713: -- ---------------------------------------------------------------------------
714: --
715: -- Description:
716: -- Validates that the following business rules are met:
728: --
729: -- In Arguments:
730: -- p_actual_termination_date
731: -- p_date_start
732: -- p_last_standard_process_date
733: -- p_object_version_number
734: -- p_period_of_service_id
735: --
736: -- Post Success:
747: -- ----------------------------------------------------------------------------
748: --
749: -- 70.3 change c start.
750: --
751: procedure chk_last_standard_process_date
752: --
753: (p_actual_termination_date in
754: per_periods_of_service.actual_termination_date%TYPE
755: ,p_business_group_id in
754: per_periods_of_service.actual_termination_date%TYPE
755: ,p_business_group_id in
756: per_periods_of_service.business_group_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
761: per_periods_of_service.object_version_number%TYPE
762: ,p_period_of_service_id in
755: ,p_business_group_id in
756: per_periods_of_service.business_group_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
761: per_periods_of_service.object_version_number%TYPE
762: ,p_period_of_service_id in
763: per_periods_of_service.period_of_service_id%TYPE
767: l_assigned_payroll boolean;
768: l_legislation_code per_business_groups.legislation_code%TYPE;
769: l_max_end_date per_periods_of_service.final_process_date%TYPE;
770: l_proc varchar2(72)
771: := g_package||'chk_last_standard_process_date';
772: --
773: cursor csr_get_legislation_code is
774: select bus.legislation_code
775: from per_business_groups bus
799: --
800: if l_api_updating
801: then
802: --
803: if nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
804: nvl(p_last_standard_process_date, hr_api.g_date)
805: then
806: --
807: hr_utility.set_location(l_proc, 30);
800: if l_api_updating
801: then
802: --
803: if nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
804: nvl(p_last_standard_process_date, hr_api.g_date)
805: then
806: --
807: hr_utility.set_location(l_proc, 30);
808: --
805: then
806: --
807: hr_utility.set_location(l_proc, 30);
808: --
809: if per_pds_shd.g_old_rec.last_standard_process_date is not null
810: and p_last_standard_process_date is not null
811: then
812: -- CHK_LAST_STANDARD_PROCESS_DATE / i
813: --
806: --
807: hr_utility.set_location(l_proc, 30);
808: --
809: if per_pds_shd.g_old_rec.last_standard_process_date is not null
810: and p_last_standard_process_date is not null
811: then
812: -- CHK_LAST_STANDARD_PROCESS_DATE / i
813: --
814: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
808: --
809: if per_pds_shd.g_old_rec.last_standard_process_date is not null
810: and p_last_standard_process_date is not null
811: then
812: -- CHK_LAST_STANDARD_PROCESS_DATE / i
813: --
814: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
815: hr_utility.raise_error;
816: end if;
836: --
837: hr_utility.set_location(l_proc, 50);
838: --
839: -- Bug 1711085. VS. 27-Mar-2001. Commented out the code that disables
840: -- last_standard_process for US legislature.
841: /* if l_legislation_code = 'US'
842: then
843: --
844: hr_utility.set_location(l_proc, 60);
842: then
843: --
844: hr_utility.set_location(l_proc, 60);
845: --
846: if not (p_last_standard_process_date is null)
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / g
849: --
850: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
844: hr_utility.set_location(l_proc, 60);
845: --
846: if not (p_last_standard_process_date is null)
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / g
849: --
850: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
851: hr_utility.raise_error;
852: end if;
855: --
856: if p_actual_termination_date is null
857: then
858: --
859: if not (p_last_standard_process_date is null)
860: then
861: -- CHK_LAST_STANDARD_PROCESS_DATE / f
862: --
863: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
857: then
858: --
859: if not (p_last_standard_process_date is null)
860: then
861: -- CHK_LAST_STANDARD_PROCESS_DATE / f
862: --
863: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
864: hr_utility.raise_error;
865: end if;
869: hr_utility.set_location(l_proc, 80);
870: --
871: -- 70.1 change a start.
872: --
873: if not (nvl(p_last_standard_process_date, hr_api.g_eot) >=
874: nvl(p_actual_termination_date, hr_api.g_eot))
875: --
876: -- 70.1 change a end.
877: --
875: --
876: -- 70.1 change a end.
877: --
878: then
879: -- CHK_LAST_STANDARD_PROCESS_DATE / c
880: --
881: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
882: hr_utility.raise_error;
883: end if;
895: --
896: then
897: hr_utility.set_location(l_proc, 100);
898: --
899: if p_last_standard_process_date is null
900: --
901: then
902: --
903: -- Must also be set to not null value if actual_termination_date
901: then
902: --
903: -- Must also be set to not null value if actual_termination_date
904: -- updated to not null value.
905: -- CHK_LAST_STANDARD_PROCESS_DATE / h
906: --
907: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
908: hr_utility.raise_error;
909: end if;
916: -- Not updating => inserting.
917: --
918: hr_utility.set_location(l_proc, 110);
919: --
920: if not (p_last_standard_process_date is null)
921: then
922: -- CHK_LAST_STANDARD_PROCESS_DATE / e
923: --
924: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
918: hr_utility.set_location(l_proc, 110);
919: --
920: if not (p_last_standard_process_date is null)
921: then
922: -- CHK_LAST_STANDARD_PROCESS_DATE / e
923: --
924: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
925: hr_utility.raise_error;
926: end if;
928: hr_utility.set_location(l_proc, 120);
929: end if;
930: --
931: hr_utility.set_location(' Leaving:'|| l_proc, 200);
932: end chk_last_standard_process_date;
933: --
934: -- 70.3 change c end.
935: --
936: -- ---------------------------------------------------------------------------
940: -- Description:
941: -- Validates the following business rule :
942: --
943: -- If actual_termination_date is changed from a NULL value to
944: -- a NOT NULL value then last_standard_process_date must also
945: -- be changed to a NOT NULL value.
946: --
947: -- Pre-conditions:
948: -- actual_termination_date, last_standard_process_date have been
944: -- a NOT NULL value then last_standard_process_date must also
945: -- be changed to a NOT NULL value.
946: --
947: -- Pre-conditions:
948: -- actual_termination_date, last_standard_process_date have been
949: -- successfully validated separately.
950: --
951: -- In Arguments:
952: -- p_period_of_service_id
950: --
951: -- In Arguments:
952: -- p_period_of_service_id
953: -- p_actual_termination_date
954: -- p_last_standard_process_date
955: -- p_object_version_number
956: --
957: -- Post Success:
958: -- If the above business rules are satisfied then processing continues.
969: -- commented out this routine for fix of bug#2784295
970: /* procedure chk_at_date_lsp_date
971: --
972: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
973: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
974: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
975: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
976: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
977: ) is
999: hr_utility.set_location(l_proc, 20);
1000: --
1001: -- Only proceed with validation if :
1002: -- a) The current g_old_rec is current and
1003: -- b) The value for actual_termination_date or last_standard_process_date
1004: -- has changed
1005: --
1006: if (l_api_updating
1007: and ((nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date)
1006: if (l_api_updating
1007: and ((nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date)
1008: <> nvl(p_actual_termination_date, hr_api.g_date))
1009: or
1010: (nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date)
1011: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1012: or
1013: NOT l_api_updating then
1014: --
1007: and ((nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date)
1008: <> nvl(p_actual_termination_date, hr_api.g_date))
1009: or
1010: (nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date)
1011: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1012: or
1013: NOT l_api_updating then
1014: --
1015: hr_utility.set_location(l_proc, 30);
1035: --
1036: if l_legislation_code <> 'US' then
1037: --
1038: -- Check combination when either actual_termination_date or
1039: -- last_standard_process_date are set
1040: --
1041: if (per_pds_shd.g_old_rec.actual_termination_date is null
1042: and p_actual_termination_date is not null)
1043: and p_last_standard_process_date is null
1039: -- last_standard_process_date are set
1040: --
1041: if (per_pds_shd.g_old_rec.actual_termination_date is null
1042: and p_actual_termination_date is not null)
1043: and p_last_standard_process_date is null
1044: then
1045: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1046: hr_utility.raise_error;
1047: end if;
2276: --
2277: per_pds_bus.chk_actual_termination_date
2278: (p_actual_termination_date => p_rec.actual_termination_date
2279: ,p_date_start => p_rec.date_start
2280: ,p_last_standard_process_date => p_rec.last_standard_process_date
2281: ,p_object_version_number => p_rec.object_version_number
2282: ,p_period_of_service_id => p_rec.period_of_service_id
2283: ,p_person_id => p_rec.person_id);
2284: --
2286: --
2287: hr_utility.set_location(l_proc, 8);
2288: --
2289: --
2290: -- Validate last standard process date
2291: --
2292: -- Business Rule Mapping
2293: -- =====================
2294: -- CHK_LAST_STANDARD_PROCESS_DATE / e
2290: -- Validate last standard process date
2291: --
2292: -- Business Rule Mapping
2293: -- =====================
2294: -- CHK_LAST_STANDARD_PROCESS_DATE / e
2295: --
2296: -- 70.3 change c start.
2297: --
2298: per_pds_bus.chk_last_standard_process_date
2294: -- CHK_LAST_STANDARD_PROCESS_DATE / e
2295: --
2296: -- 70.3 change c start.
2297: --
2298: per_pds_bus.chk_last_standard_process_date
2299: (p_actual_termination_date => p_rec.actual_termination_date
2300: ,p_business_group_id => p_rec.business_group_id
2301: ,p_date_start => p_rec.date_start
2302: ,p_last_standard_process_date => p_rec.last_standard_process_date
2298: per_pds_bus.chk_last_standard_process_date
2299: (p_actual_termination_date => p_rec.actual_termination_date
2300: ,p_business_group_id => p_rec.business_group_id
2301: ,p_date_start => p_rec.date_start
2302: ,p_last_standard_process_date => p_rec.last_standard_process_date
2303: ,p_object_version_number => p_rec.object_version_number
2304: ,p_period_of_service_id => p_rec.period_of_service_id
2305: );
2306: hr_utility.set_location(l_proc, 9);
2315: per_pds_bus.chk_final_process_date
2316: (p_actual_termination_date => p_rec.actual_termination_date,
2317: p_date_start => p_rec.date_start,
2318: p_final_process_date => p_rec.final_process_date,
2319: p_last_standard_process_date => p_rec.last_standard_process_date,
2320: p_object_version_number => p_rec.object_version_number,
2321: p_period_of_service_id => p_rec.period_of_service_id);
2322: --
2323: --
2472: --
2473: per_pds_bus.chk_actual_termination_date
2474: (p_actual_termination_date => p_rec.actual_termination_date
2475: ,p_date_start => p_rec.date_start
2476: ,p_last_standard_process_date => p_rec.last_standard_process_date
2477: ,p_object_version_number => p_rec.object_version_number
2478: ,p_period_of_service_id => p_rec.period_of_service_id
2479: ,p_person_id => p_rec.person_id);
2480: --
2482: --
2483: hr_utility.set_location(l_proc, 6);
2484: --
2485: --
2486: -- Validate last standard process date
2487: --
2488: -- Business Rule Mapping
2489: -- =====================
2490: --
2489: -- =====================
2490: --
2491: -- 70.3 change c start.
2492: --
2493: -- CHK_LAST_STANDARD_PROCESS_DATE / a,b,c,f,g,i
2494: --
2495: per_pds_bus.chk_last_standard_process_date
2496: (p_actual_termination_date => p_rec.actual_termination_date
2497: ,p_business_group_id => p_rec.business_group_id
2491: -- 70.3 change c start.
2492: --
2493: -- CHK_LAST_STANDARD_PROCESS_DATE / a,b,c,f,g,i
2494: --
2495: per_pds_bus.chk_last_standard_process_date
2496: (p_actual_termination_date => p_rec.actual_termination_date
2497: ,p_business_group_id => p_rec.business_group_id
2498: ,p_date_start => p_rec.date_start
2499: ,p_last_standard_process_date => p_rec.last_standard_process_date
2495: per_pds_bus.chk_last_standard_process_date
2496: (p_actual_termination_date => p_rec.actual_termination_date
2497: ,p_business_group_id => p_rec.business_group_id
2498: ,p_date_start => p_rec.date_start
2499: ,p_last_standard_process_date => p_rec.last_standard_process_date
2500: ,p_object_version_number => p_rec.object_version_number
2501: ,p_period_of_service_id => p_rec.period_of_service_id
2502: );
2503: hr_utility.set_location(l_proc, 7);
2501: ,p_period_of_service_id => p_rec.period_of_service_id
2502: );
2503: hr_utility.set_location(l_proc, 7);
2504: --
2505: -- Validate actual termination date/last standard process date
2506: --
2507: -- Business Rule Mapping
2508: -- =====================
2509: -- Commenting out this routine for fix of bug# 2784295
2506: --
2507: -- Business Rule Mapping
2508: -- =====================
2509: -- Commenting out this routine for fix of bug# 2784295
2510: -- CHK_LAST_STANDARD_PROCESS_DATE / h
2511: --
2512: /* per_pds_bus.chk_at_date_lsp_date
2513: (p_actual_termination_date => p_rec.actual_termination_date
2514: ,p_last_standard_process_date => p_rec.last_standard_process_date
2510: -- CHK_LAST_STANDARD_PROCESS_DATE / h
2511: --
2512: /* per_pds_bus.chk_at_date_lsp_date
2513: (p_actual_termination_date => p_rec.actual_termination_date
2514: ,p_last_standard_process_date => p_rec.last_standard_process_date
2515: ,p_object_version_number => p_rec.object_version_number
2516: ,p_period_of_service_id => p_rec.period_of_service_id
2517: ,p_business_group_id => p_rec.business_group_id
2518: );
2532: per_pds_bus.chk_final_process_date
2533: (p_actual_termination_date => p_rec.actual_termination_date,
2534: p_date_start => p_rec.date_start,
2535: p_final_process_date => p_rec.final_process_date,
2536: p_last_standard_process_date => p_rec.last_standard_process_date,
2537: p_object_version_number => p_rec.object_version_number,
2538: p_period_of_service_id => p_rec.period_of_service_id);
2539: --
2540: --