[Home] [Help]
36: l_proc varchar2(72) := g_package||'set_security_group_id';
37: --
38: begin
39: --
40: hr_utility.set_location('Entering:'|| l_proc, 10);
41: --
42: -- Ensure that all the mandatory parameter are not null
43: --
44: hr_api.mandatory_arg_error
67: hr_api.set_security_group_id
68: (p_security_group_id => l_security_group_id
69: );
70: --
71: hr_utility.set_location(' Leaving:'|| l_proc, 20);
72: --
73: end set_security_group_id;
74: --
75: -- --------------------------------------------------------------------------+
96: l_proc varchar2(72) := g_package||'return_legislation_code';
97: --
98: Begin
99: --
100: hr_utility.set_location('Entering:'|| l_proc, 10);
101: --
102: -- Ensure that all the mandatory parameter are not null
103: --
104: hr_api.mandatory_arg_error
114: -- call to this function. Just return the value in the global
115: -- variable.
116: --
117: l_legislation_code := pqp_aat_bus.g_legislation_code;
118: hr_utility.set_location(l_proc, 20);
119: else
120: --
121: -- The ID is different to the last call to this function
122: -- or this is the first call to this function.
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
137: -- Set the global variables so the values are
138: -- available for the next call to this function.
139: --
140: close csr_leg_code;
141: pqp_aat_bus.g_assignment_attribute_id:= p_assignment_attribute_id;
142: pqp_aat_bus.g_legislation_code := l_legislation_code;
143: end if;
144: hr_utility.set_location(' Leaving:'|| l_proc, 40);
145: return l_legislation_code;
146: end return_legislation_code;
147: --
148: -- ---------------------------------------------------------------------------+
179: --
180: l_proc varchar2(72) := g_package || 'chk_ddf';
181: --
182: begin
183: hr_utility.set_location('Entering:'||l_proc,10);
184: --
185: if ((p_rec.assignment_attribute_id is not null) and (
186: nvl(pqp_aat_shd.g_old_rec.aat_information_category, hr_api.g_varchar2) <>
187: nvl(p_rec.aat_information_category, hr_api.g_varchar2) or
278: ,p_attribute20_value => p_rec.aat_information20
279: );
280: end if;
281: --
282: hr_utility.set_location(' Leaving:'||l_proc,20);
283: end chk_ddf;
284: --
285: -- ---------------------------------------------------------------------------+
286: -- |------------------------------< chk_df >----------------------------------|
316: --
317: l_proc varchar2(72) := g_package || 'chk_df';
318: --
319: begin
320: hr_utility.set_location('Entering:'||l_proc,10);
321: --
322: if ((p_rec.assignment_attribute_id is not null) and (
323: nvl(pqp_aat_shd.g_old_rec.assignment_attribute_id, hr_api.g_number) <>
324: nvl(p_rec.assignment_attribute_id, hr_api.g_number) or
417: ,p_attribute20_value => p_rec.aat_attribute20
418: );
419: end if;
420: --
421: hr_utility.set_location(' Leaving:'||l_proc,20);
422: end chk_df;
423: --
424: -- ---------------------------------------------------------------------------+
425: -- |-----------------------< chk_non_updateable_args >------------------------|
503: l_proc varchar2(72) := g_package || 'chk_work_pattern_cols';
504: --
505: Begin
506: --
507: hr_utility.set_location(' Entering: '|| l_proc, 5);
508:
509: if p_work_pattern is not null
510: or
511: p_start_day is not null then
523: );
524: --
525: end if;
526:
527: hr_utility.set_location(' Leaving:'|| l_proc, 10);
528: --
529: end chk_work_pattern_cols;
530: --
531: -- ---------------------------------------------------------------------------+
548: l_proc varchar2(72) := g_package || 'chk_private_company_car';
549: --
550: Begin
551: --
552: hr_utility.set_location(' Entering: '|| l_proc, 5);
553:
554: if (p_private_car is not null) and
555: (p_primary_company_car is not null or
556: p_secondary_company_car is not null) then
554: if (p_private_car is not null) and
555: (p_primary_company_car is not null or
556: p_secondary_company_car is not null) then
557: --
558: hr_utility.set_message(8303, 'PQP_230519_INVALID_OWNERSHIPS');
559: hr_utility.raise_error;
560: --
561: end if;
562:
555: (p_primary_company_car is not null or
556: p_secondary_company_car is not null) then
557: --
558: hr_utility.set_message(8303, 'PQP_230519_INVALID_OWNERSHIPS');
559: hr_utility.raise_error;
560: --
561: end if;
562:
563: hr_utility.set_location(' Leaving:'|| l_proc, 10);
559: hr_utility.raise_error;
560: --
561: end if;
562:
563: hr_utility.set_location(' Leaving:'|| l_proc, 10);
564: --
565: end chk_private_company_car;
566: --
567: -- ---------------------------------------------------------------------------+
583: l_proc varchar2(72) := g_package || 'chk_primary_exists';
584: --
585: Begin
586: --
587: hr_utility.set_location(' Entering: '|| l_proc, 5);
588:
589: if p_primary_company_car is null and
590: p_secondary_company_car is not null then
591: --
588:
589: if p_primary_company_car is null and
590: p_secondary_company_car is not null then
591: --
592: hr_utility.set_message(8303, 'PQP_230525_PRIMARY_CAR_NULL');
593: hr_utility.raise_error;
594: --
595: end if;
596:
589: if p_primary_company_car is null and
590: p_secondary_company_car is not null then
591: --
592: hr_utility.set_message(8303, 'PQP_230525_PRIMARY_CAR_NULL');
593: hr_utility.raise_error;
594: --
595: end if;
596:
597: hr_utility.set_location(' Leaving: '|| l_proc, 10);
593: hr_utility.raise_error;
594: --
595: end if;
596:
597: hr_utility.set_location(' Leaving: '|| l_proc, 10);
598: --
599: end chk_primary_exists;
600: --
601: -- ---------------------------------------------------------------------------+
617: l_proc varchar2(72) := g_package || 'chk_prim_sec_duplicate';
618: --
619: Begin
620: --
621: hr_utility.set_location(' Entering: '|| l_proc, 5);
622:
623: if p_primary_company_car = p_secondary_company_car then
624: --
625: hr_utility.set_message(8303, 'PQP_230524_PRI_SEC_CAR_MATCH');
621: hr_utility.set_location(' Entering: '|| l_proc, 5);
622:
623: if p_primary_company_car = p_secondary_company_car then
624: --
625: hr_utility.set_message(8303, 'PQP_230524_PRI_SEC_CAR_MATCH');
626: hr_utility.raise_error;
627: --
628: end if;
629:
622:
623: if p_primary_company_car = p_secondary_company_car then
624: --
625: hr_utility.set_message(8303, 'PQP_230524_PRI_SEC_CAR_MATCH');
626: hr_utility.raise_error;
627: --
628: end if;
629:
630: hr_utility.set_location(' Leaving: '|| l_proc, 10);
626: hr_utility.raise_error;
627: --
628: end if;
629:
630: hr_utility.set_location(' Leaving: '|| l_proc, 10);
631: --
632: end chk_prim_sec_duplicate;
633: --
634: -- ---------------------------------------------------------------------------+
664:
665: --
666: Begin
667: --
668: hr_utility.set_location(' Entering: '|| l_proc, 5);
669:
670: open csr_asg_duplicate;
671: fetch csr_asg_duplicate into l_result;
672:
673: if csr_asg_duplicate%found then
674: --
675: close csr_asg_duplicate;
676:
677: hr_utility.set_message(8303, 'PQP_230526_VEH_ASG_DUP');
678: hr_utility.raise_error;
679: --
680: else
681: --
674: --
675: close csr_asg_duplicate;
676:
677: hr_utility.set_message(8303, 'PQP_230526_VEH_ASG_DUP');
678: hr_utility.raise_error;
679: --
680: else
681: --
682: close csr_asg_duplicate;
682: close csr_asg_duplicate;
683: --
684: end if;
685:
686: hr_utility.set_location(' Leaving: '|| l_proc, 10);
687: --
688: end chk_company_car_duplicate_asg;
689: --
690: --
718: and p_validation_end_date >= effective_start_date;
719:
720: Begin
721: --
722: hr_utility.set_location(' Entering: '|| l_proc, 5);
723:
724: open csr_asg_duplicate;
725: fetch csr_asg_duplicate into l_result;
726:
727: if csr_asg_duplicate%found then
728: --
729: close csr_asg_duplicate;
730:
731: hr_utility.set_message(8303, 'PQP_230528_ASG_ATTR_DUP');
732: hr_utility.raise_error;
733: --
734: else
735: --
728: --
729: close csr_asg_duplicate;
730:
731: hr_utility.set_message(8303, 'PQP_230528_ASG_ATTR_DUP');
732: hr_utility.raise_error;
733: --
734: else
735: --
736: close csr_asg_duplicate;
736: close csr_asg_duplicate;
737: --
738: end if;
739:
740: hr_utility.set_location(' Leaving: '|| l_proc, 10);
741: --
742: end chk_asg_overlap;
743: --
744: --
768: AND business_group_id = p_business_group_id;
769: --
770: Begin
771: --
772: hr_utility.set_location(' Entering: '|| l_proc, 5);
773:
774: OPEN cur_tbl;
775: FETCH cur_tbl INTO l_dummy;
776: IF cur_tbl%NOTFOUND THEN
781: END IF;
782:
783: CLOSE cur_tbl;
784:
785: hr_utility.set_location(' Leaving: '|| l_proc, 10);
786: --
787: end chk_table_exists;
788:
789: --
822: l_proc varchar2(72) := g_package || 'chk_tp_is_teacher';
823: --
824: Begin
825: --
826: hr_utility.set_location(' Entering: '|| l_proc, 10);
827:
828: if (((p_assignment_attribute_id is not null) and
829: nvl(pqp_aat_shd.g_old_rec.tp_is_teacher,
830: hr_api.g_varchar2) <> nvl(p_tp_is_teacher,
831: hr_api.g_varchar2))
832: or
833: (p_assignment_attribute_id is null)) then
834:
835: hr_utility.set_location(l_proc, 20);
836: --
837: if p_tp_is_teacher is not null then
838: if hr_api.not_exists_in_dt_hr_lookups
839: (p_effective_date => p_effective_date
847: fnd_message.set_name('PAY', 'HR_7462_PLK_INVLD_VALUE');
848: fnd_message.set_token('COLUMN_NAME', 'TP_IS_TEACHER');
849: fnd_message.raise_error;
850: end if;
851: hr_utility.set_location(l_proc, 30);
852: end if;
853: end if;
854: hr_utility.set_location(' Leaving: '|| l_proc, 40);
855: --
850: end if;
851: hr_utility.set_location(l_proc, 30);
852: end if;
853: end if;
854: hr_utility.set_location(' Leaving: '|| l_proc, 40);
855: --
856: end chk_tp_is_teacher;
857: --
858: -- ---------------------------------------------------------------------------+
890: l_proc varchar2(72) := g_package || 'chk_tp_headteacher_grp_code';
891: --
892: Begin
893: --
894: hr_utility.set_location(' Entering: '|| l_proc, 10);
895:
896: if (((p_assignment_attribute_id is not null) and
897: nvl(pqp_aat_shd.g_old_rec.tp_is_teacher,
898: hr_api.g_varchar2) <> nvl(p_tp_is_teacher,
899: hr_api.g_varchar2))
900: or
901: (p_assignment_attribute_id is null)) then
902:
903: hr_utility.set_location(l_proc, 20);
904: --
905: --115.19 changed the range from 0 to 99 to 1 to 99
906: --for the HeadTeacher Group Code as length of the numeric code is 2
907: -- and it cannot be possibly '00'
911: fnd_message.set_name( 'PQP','PQP_230204_TP_INVALID_GRP_CODE');
912: fnd_message.set_token('COLUMN_NAME', 'TP_HEADTEACHER_GRP_CODE' );
913: fnd_message.raise_error;
914: end if;
915: hr_utility.set_location(l_proc, 30);
916: end if;
917: end if;
918: hr_utility.set_location(' Leaving: '|| l_proc, 40);
919: --
914: end if;
915: hr_utility.set_location(l_proc, 30);
916: end if;
917: end if;
918: hr_utility.set_location(' Leaving: '|| l_proc, 40);
919: --
920: end chk_tp_headteacher_grp_code;
921: --
922:
956: l_proc varchar2(72) := g_package || 'chk_tp_elected_pension';
957: --
958: Begin
959: --
960: hr_utility.set_location(' Entering: '|| l_proc, 10);
961:
962: if (((p_assignment_attribute_id is not null) and
963: nvl(pqp_aat_shd.g_old_rec.tp_elected_pension,
964: hr_api.g_varchar2) <> nvl(p_tp_elected_pension,
965: hr_api.g_varchar2))
966: or
967: (p_assignment_attribute_id is null)) then
968:
969: hr_utility.set_location(l_proc, 20);
970: --
971: if p_tp_elected_pension is not null then
972: if hr_api.not_exists_in_dt_hr_lookups
973: (p_effective_date => p_effective_date
981: fnd_message.set_token('COLUMN_NAME', 'TP_ELECTED_PENSION');
982: fnd_message.raise_error;
983:
984: end if;
985: hr_utility.set_location(l_proc, 30);
986: end if;
987: end if;
988:
989: hr_utility.set_location(' Leaving: '|| l_proc, 40);
985: hr_utility.set_location(l_proc, 30);
986: end if;
987: end if;
988:
989: hr_utility.set_location(' Leaving: '|| l_proc, 40);
990: --
991: end chk_tp_elected_pension;
992: --
993: -- ---------------------------------------------------------------------------+
1050: l_GradeValid char(1) := 'N';
1051: --
1052: Begin
1053: --
1054: hr_utility.set_location(' Entering: '|| l_proc, 10);
1055:
1056: if (((p_assignment_attribute_id is not null) and
1057: nvl(pqp_aat_shd.g_old_rec.tp_safeguarded_grade,
1058: hr_api.g_varchar2) <> nvl(p_tp_safeguarded_grade,
1059: hr_api.g_varchar2))
1060: or
1061: (p_assignment_attribute_id is null)) then
1062:
1063: hr_utility.set_location(l_proc, 20);
1064: --
1065: if p_tp_safeguarded_grade is not null then
1066: --
1067: begin
1092: fnd_message.set_name('PAY', 'PQP_230573_INVALID_GRADE');
1093: fnd_message.raise_error;
1094: end if;
1095: end if; -- l_FormatValid = 'N'
1096: hr_utility.set_location(l_proc, 30);
1097: end if; -- p_tp_safeguarded_grade is not null
1098: end if; -- (((p_assignment_attribute_id is not null) and
1099:
1100: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1096: hr_utility.set_location(l_proc, 30);
1097: end if; -- p_tp_safeguarded_grade is not null
1098: end if; -- (((p_assignment_attribute_id is not null) and
1099:
1100: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1101: --
1102: end chk_tp_safeguarded_grade;
1103: --
1104: -- ---------------------------------------------------------------------------+
1163: l_TTR6_future boolean := FALSE;
1164: --
1165: Begin
1166: --
1167: hr_utility.set_location(' Entering: '|| l_proc, 5);
1168: --
1169:
1170: -- Check only if tp_is_teacher has changed and is not null
1171: if (nvl(p_old_job_status,hr_api.g_varchar2) <>
1278: end if; -- If 11
1279:
1280: end if; -- 0
1281: --
1282: hr_utility.set_location(' Leaving: '|| l_proc, 10);
1283: --
1284: end chk_job_status_change;
1285: --
1286: -- ---------------------------------------------------------------------------+
1323:
1324: --
1325: Begin
1326: --
1327: hr_utility.set_location(' Entering: '|| l_proc, 10);
1328: --
1329: -- Rule 1
1330: if p_tp_is_teacher is not null then
1331: if p_tp_elected_pension is null then
1332: fnd_message.set_name('PQP', 'PQP_230563_PENSION_FLAG_NULL');
1333: fnd_message.raise_error;
1334: end if;
1335: end if;
1336: hr_utility.set_location(l_proc, 20);
1337:
1338: -- Rule 2
1339: /* BUG # 2215296 :
1340: Removed following condition from if statement below as
1354: fnd_message.raise_error;
1355: end if;
1356:
1357:
1358: hr_utility.set_location(' Leaving: '|| l_proc, 30);
1359: --
1360: end chk_tp_col_dependencies;
1361: --
1362: -- ---------------------------------------------------------------------------+
1400: l_RateValid char(1) := 'N';
1401: --
1402: Begin
1403: --
1404: hr_utility.set_location(' Entering: '|| l_proc, 10);
1405:
1406:
1407: if (((p_assignment_attribute_id is not null) and
1408: (nvl(pqp_aat_shd.g_old_rec.tp_safeguarded_rate_type,hr_api.g_varchar2)
1420: or
1421: (p_assignment_attribute_id is null)
1422: ) then
1423:
1424: hr_utility.set_location(l_proc, 20);
1425: --
1426:
1427: if ((p_tp_safeguarded_rate_type = 'G' and p_tp_safeguarded_grade IS NULL ) or
1428: (p_tp_safeguarded_rate_type = 'SP' and p_tp_safeguarded_grade IS NULL ) or
1464: fnd_message.set_name('PQP', 'PQP_230569_INVALID_PAY_RATE');
1465: fnd_message.raise_error;
1466:
1467: end if;
1468: hr_utility.set_location(l_proc, 30);
1469: -- the else part is commented out as it is no longer required to check if the rate id is null
1470: --even if the p_safeguarded_rate_type is null because p_safeguarded_rate_type can now be null even if the rate id is null.i.e.
1471: --salary not safeguarded at all.If the salary is safeguarded the Default value for the p_safeguarded_rate_type is SN in which
1472: --case there will not be any value for grade or rate name.
1483: end if; -- p_tp_safeguarded_rate_type is not null ...
1484: end if;
1485:
1486:
1487: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1488: --
1489: end chk_tp_safeguarded_rate;
1490: --
1491: -- ---------------------------------------------------------------------------+
1527: l_SPValid char(1) := 'N';
1528: --
1529: Begin
1530: --
1531: hr_utility.set_location(' Entering: '|| l_proc, 10);
1532:
1533: if (((p_assignment_attribute_id is not null) and
1534: nvl(pqp_aat_shd.g_old_rec.tp_safeguarded_spinal_point_id,hr_api.g_number)
1535: <> nvl(p_tp_spinal_point_id,hr_api.g_number))
1536: or
1537: (p_assignment_attribute_id is null)
1538: ) then
1539:
1540: hr_utility.set_location(l_proc, 20);
1541: --
1542: if p_tp_spinal_point_id is not null then
1543:
1544: begin
1557: fnd_message.raise_error;
1558:
1559: end if; -- l_SPValid = 'N'
1560:
1561: hr_utility.set_location(l_proc, 30);
1562:
1563: else -- p_tp_spinal_point_id is null
1564: if nvl(p_tp_safeguarded_rate_type,'AbXy') = 'SP' and
1565: p_tp_safeguarded_grade is not null then
1571: end if; -- tp_safeguarded_rate_type = 'SP'
1572: end if; -- p_tp_spinal_point_id is not null
1573: end if; -- (((p_assignment_attribute_id is not null) and...
1574:
1575: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1576: --
1577: end chk_tp_spinal_point;
1578: --
1579: -- ---------------------------------------------------------------------------+
1633: l_GSValid char(1) := 'N';
1634: --
1635: Begin
1636: --
1637: hr_utility.set_location(' Entering: '|| l_proc, 10);
1638:
1639: if (((p_assignment_attribute_id is not null)
1640: and
1641: (nvl(pqp_aat_shd.g_old_rec.tp_safeguarded_spinal_point_id,hr_api.g_number)
1654: or
1655: (p_assignment_attribute_id is null)
1656: ) then
1657:
1658: hr_utility.set_location(l_proc, 20);
1659: --
1660: if ((p_tp_spinal_point_id is not null) or
1661: (p_tp_safeguarded_rate_id is not null) or
1662: (p_tp_safeguarded_grade is not null)
1680: fnd_message.set_name('PQP', 'PQP_230572_INVALID_GRADE_SPINE');
1681: fnd_message.raise_error;
1682: end if;
1683:
1684: hr_utility.set_location(l_proc, 30);
1685: end if; -- (p_tp_spinal_point_id is not null) or
1686: end if; -- (((p_assignment_attribute_id is not null) and...
1687:
1688: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1684: hr_utility.set_location(l_proc, 30);
1685: end if; -- (p_tp_spinal_point_id is not null) or
1686: end if; -- (((p_assignment_attribute_id is not null) and...
1687:
1688: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1689: --
1690: end chk_tp_grade_spine;
1691: --
1692: -- ---------------------------------------------------------------------------+
1724: l_proc varchar2(72) := g_package || 'chk_tp_fast_track';
1725: --
1726: Begin
1727: --
1728: hr_utility.set_location(' Entering: '|| l_proc, 10);
1729:
1730: if (((p_assignment_attribute_id is not null) and
1731: nvl(pqp_aat_shd.g_old_rec.tp_fast_track,
1732: hr_api.g_varchar2) <> nvl(p_tp_fast_track,
1733: hr_api.g_varchar2))
1734: or
1735: (p_assignment_attribute_id is null)) then
1736:
1737: hr_utility.set_location(l_proc, 20);
1738: --
1739: if p_tp_fast_track is not null then
1740: if hr_api.not_exists_in_dt_hr_lookups
1741: (p_effective_date => p_effective_date
1749: fnd_message.set_token('COLUMN_NAME', 'TP_FAST_TRACK');
1750: fnd_message.raise_error;
1751:
1752: end if;
1753: hr_utility.set_location(l_proc, 30);
1754: end if;
1755: end if;
1756:
1757: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1753: hr_utility.set_location(l_proc, 30);
1754: end if;
1755: end if;
1756:
1757: hr_utility.set_location(' Leaving: '|| l_proc, 40);
1758: --
1759: end chk_tp_fast_track;
1760: --
1761: --
1967: --
1968: l_proc varchar2(72) := g_package||'insert_validate';
1969: --
1970: Begin
1971: hr_utility.set_location('Entering:'||l_proc, 5);
1972: --
1973: -- Call all supporting business operations
1974: --
1975: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
2143: ,p_validation_start_date => p_validation_start_date
2144: ,p_validation_end_date => p_validation_end_date
2145: );
2146: --
2147: hr_utility.set_location(' Leaving:'||l_proc, 10);
2148: End insert_validate;
2149: --
2150: -- ---------------------------------------------------------------------------+
2151: -- |---------------------------< update_validate >----------------------------|
2160: --
2161: l_proc varchar2(72) := g_package||'update_validate';
2162: --
2163: Begin
2164: hr_utility.set_location('Entering:'||l_proc, 5);
2165: --
2166: -- Call all supporting business operations
2167: --
2168: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
2362: ,p_validation_start_date => p_validation_start_date
2363: ,p_validation_end_date => p_validation_end_date
2364: );
2365: --
2366: hr_utility.set_location(' Leaving:'||l_proc, 10);
2367: End update_validate;
2368: --
2369: -- ---------------------------------------------------------------------------+
2370: -- |---------------------------< delete_validate >----------------------------|
2388: and effective_end_date;
2389:
2390: --
2391: Begin
2392: hr_utility.set_location('Entering:'||l_proc, 5);
2393: --
2394: -- Call all supporting business operations
2395: --
2396: dt_delete_validate
2420: );
2421: --
2422: end if;
2423:
2424: hr_utility.set_location(' Leaving:'||l_proc, 10);
2425: End delete_validate;
2426: --
2427: end pqp_aat_bus;