[Home] [Help]
29: l_api_updating boolean;
30: l_lookup_type varchar2(50); -- added for UK
31: --
32: begin
33: hr_utility.set_location('Entering:'|| l_proc, 10);
34: --
35: -- Check mandatory parameters have been set
36: --
37: hr_api.mandatory_arg_error
69: fnd_message.raise_error;
70: end if;
71: end if;
72: end if;
73: hr_utility.set_location(' Leaving:'|| l_proc, 20);
74: exception
75: when app_exception.application_exception then
76: if hr_multi_message.exception_add
77: (p_associated_column1 => 'PQP_PENSION_TYPES_F.CONTRIBUTION_CONVERSION_RULE'
75: when app_exception.application_exception then
76: if hr_multi_message.exception_add
77: (p_associated_column1 => 'PQP_PENSION_TYPES_F.CONTRIBUTION_CONVERSION_RULE'
78: ) then
79: hr_utility.set_location(' Leaving:'|| l_proc, 30);
80: raise;
81: end if;
82: hr_utility.set_location(' Leaving:'|| l_proc, 40);
83: end chk_contribution_conv_rule;
78: ) then
79: hr_utility.set_location(' Leaving:'|| l_proc, 30);
80: raise;
81: end if;
82: hr_utility.set_location(' Leaving:'|| l_proc, 40);
83: end chk_contribution_conv_rule;
84:
85: --
86: -- ---------------------------------------------------------------------------------
98: l_proc varchar2(72) := g_package||'chk_threshold_conv_rule';
99: l_api_updating boolean;
100: --
101: begin
102: hr_utility.set_location('Entering:'|| l_proc, 10);
103: --
104: -- Check mandatory parameters have been set
105: --
106: hr_api.mandatory_arg_error
138: fnd_message.raise_error;
139: end if;
140: end if;
141: end if;
142: hr_utility.set_location(' Leaving:'|| l_proc, 20);
143: exception
144: when app_exception.application_exception then
145: if hr_multi_message.exception_add
146: (p_associated_column1 => 'PQP_PENSION_TYPES_F.THRESHOLD_CONVERSION_RULE'
144: when app_exception.application_exception then
145: if hr_multi_message.exception_add
146: (p_associated_column1 => 'PQP_PENSION_TYPES_F.THRESHOLD_CONVERSION_RULE'
147: ) then
148: hr_utility.set_location(' Leaving:'|| l_proc, 30);
149: raise;
150: end if;
151: hr_utility.set_location(' Leaving:'|| l_proc, 40);
152: end chk_threshold_conv_rule;
147: ) then
148: hr_utility.set_location(' Leaving:'|| l_proc, 30);
149: raise;
150: end if;
151: hr_utility.set_location(' Leaving:'|| l_proc, 40);
152: end chk_threshold_conv_rule;
153:
154: --
155: -- ----------------------------------------------------------------------------
168: l_api_updating boolean;
169:
170: --
171: begin
172: hr_utility.set_location('Entering:'|| l_proc, 10);
173: --
174: -- Check mandatory parameters have been set
175: --
176: hr_api.mandatory_arg_error
210: end if;
211: end if;
212:
213: end if;
214: hr_utility.set_location(' Leaving:'|| l_proc, 20);
215: exception
216: when app_exception.application_exception then
217: if hr_multi_message.exception_add
218: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_CATEGORY'
216: when app_exception.application_exception then
217: if hr_multi_message.exception_add
218: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_CATEGORY'
219: ) then
220: hr_utility.set_location(' Leaving:'|| l_proc, 30);
221: raise;
222: end if;
223: hr_utility.set_location(' Leaving:'|| l_proc, 40);
224: end chk_pension_category;
219: ) then
220: hr_utility.set_location(' Leaving:'|| l_proc, 30);
221: raise;
222: end if;
223: hr_utility.set_location(' Leaving:'|| l_proc, 40);
224: end chk_pension_category;
225:
226: --
227: -- ------------------------------------------------------------------------------
239: l_proc varchar2(72) := g_package||'chk_pension_provider';
240: l_api_updating boolean;
241: --
242: begin
243: hr_utility.set_location('Entering:'|| l_proc, 10);
244: --
245: -- Check mandatory parameters have been set
246: --
247: hr_api.mandatory_arg_error
279: fnd_message.raise_error;
280: end if;
281: end if;
282: end if;
283: hr_utility.set_location(' Leaving:'|| l_proc, 20);
284: exception
285: when app_exception.application_exception then
286: if hr_multi_message.exception_add
287: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_PROVIDER_TYPE'
285: when app_exception.application_exception then
286: if hr_multi_message.exception_add
287: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_PROVIDER_TYPE'
288: ) then
289: hr_utility.set_location(' Leaving:'|| l_proc, 30);
290: raise;
291: end if;
292: hr_utility.set_location(' Leaving:'|| l_proc, 40);
293: end chk_pension_provider;
288: ) then
289: hr_utility.set_location(' Leaving:'|| l_proc, 30);
290: raise;
291: end if;
292: hr_utility.set_location(' Leaving:'|| l_proc, 40);
293: end chk_pension_provider;
294: --
295: -- ------------------------------------------------------------------------------
296: -- |-------------------------< chk_salary_calc_method >--------------------------|
307: l_proc varchar2(72) := g_package||'chk_salary_calc_method';
308: l_api_updating boolean;
309: --
310: begin
311: hr_utility.set_location('Entering:'|| l_proc, 10);
312: --
313: -- Check mandatory parameters have been set
314: --
315: hr_api.mandatory_arg_error
347: fnd_message.raise_error;
348: end if;
349: end if;
350: end if;
351: hr_utility.set_location(' Leaving:'|| l_proc, 20);
352: exception
353: when app_exception.application_exception then
354: if hr_multi_message.exception_add
355: (p_associated_column1 => 'PQP_PENSION_TYPES_F.SALARY_CALCULATION_METHOD'
353: when app_exception.application_exception then
354: if hr_multi_message.exception_add
355: (p_associated_column1 => 'PQP_PENSION_TYPES_F.SALARY_CALCULATION_METHOD'
356: ) then
357: hr_utility.set_location(' Leaving:'|| l_proc, 30);
358: raise;
359: end if;
360: hr_utility.set_location(' Leaving:'|| l_proc, 40);
361: end chk_salary_calc_method;
356: ) then
357: hr_utility.set_location(' Leaving:'|| l_proc, 30);
358: raise;
359: end if;
360: hr_utility.set_location(' Leaving:'|| l_proc, 40);
361: end chk_salary_calc_method;
362: --
363: -- ------------------------------------------------------------------------------
364: -- |-------------------------< chk_pension_type_name >---------------------------|
408: l_validation_start_date date;
409: l_validation_end_date date;
410: --
411: begin
412: hr_utility.set_location('Entering:'|| l_proc, 10);
413:
414: --
415: -- During insert check to see if the pension type name exists
416: -- already in the pqp_pension_types_f table.
436: l_validation_end_date;
437:
438: if csr_pension_type%FOUND then
439: close csr_pension_type;
440: hr_utility.set_location(' Pension Type Name already exists in table',15);
441: -- Error: Pension Name already exists in the table
442: fnd_message.set_name('PQP', 'PQP_230813_PEN_TYPE_EXISTS');
443: fnd_message.raise_error;
444: else
445: close csr_pension_type;
446: end if;
447:
448: end if;
449: hr_utility.set_location(' Leaving:'|| l_proc, 20);
450: exception
451: when app_exception.application_exception then
452: if hr_multi_message.exception_add
453: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_TYPE_NAME'
451: when app_exception.application_exception then
452: if hr_multi_message.exception_add
453: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_TYPE_NAME'
454: ) then
455: hr_utility.set_location(' Leaving:'|| l_proc, 30);
456: raise;
457: end if;
458: hr_utility.set_location(' Leaving:'|| l_proc, 40);
459: end chk_pension_type_name;
454: ) then
455: hr_utility.set_location(' Leaving:'|| l_proc, 30);
456: raise;
457: end if;
458: hr_utility.set_location(' Leaving:'|| l_proc, 40);
459: end chk_pension_type_name;
460: --
461: -- ------------------------------------------------------------------------------
462: -- |-------------------------< chk_provider_assignment >-------------------------|
495: l_api_updating boolean;
496: l_org_info_exits varchar2(5);
497: --
498: begin
499: hr_utility.set_location('Entering:'|| l_proc, 10);
500: --
501: -- During insert check to see if the pension type name exists
502: -- already in the pqp_pension_types_f table.
503: --
540: close csr_org_info_hu;
541: end if;
542: end if;
543:
544: hr_utility.set_location(' Leaving:'|| l_proc, 20);
545: exception
546: when app_exception.application_exception then
547: if hr_multi_message.exception_add
548: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_TYPE_ID'
546: when app_exception.application_exception then
547: if hr_multi_message.exception_add
548: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_TYPE_ID'
549: ) then
550: hr_utility.set_location(' Leaving:'|| l_proc, 30);
551: raise;
552: end if;
553: hr_utility.set_location(' Leaving:'|| l_proc, 40);
554: end chk_provider_assignment;
549: ) then
550: hr_utility.set_location(' Leaving:'|| l_proc, 30);
551: raise;
552: end if;
553: hr_utility.set_location(' Leaving:'|| l_proc, 40);
554: end chk_provider_assignment;
555:
556: --
557: -- ------------------------------------------------------------------------------
569: l_proc varchar2(72) := g_package||'chk_special_pension_type_code';
570: l_api_updating boolean;
571: --
572: begin
573: hr_utility.set_location('Entering:'|| l_proc, 10);
574: --
575: -- Check mandatory parameters have been set
576: --
577: hr_api.mandatory_arg_error
609: fnd_message.raise_error;
610: end if;
611: end if;
612: end if;
613: hr_utility.set_location(' Leaving:'|| l_proc, 20);
614: exception
615: when app_exception.application_exception then
616: if hr_multi_message.exception_add
617: (p_associated_column1 => 'PQP_PENSION_TYPES_F.SPECIAL_PENSION_TYPE_CODE'
615: when app_exception.application_exception then
616: if hr_multi_message.exception_add
617: (p_associated_column1 => 'PQP_PENSION_TYPES_F.SPECIAL_PENSION_TYPE_CODE'
618: ) then
619: hr_utility.set_location(' Leaving:'|| l_proc, 30);
620: raise;
621: end if;
622: hr_utility.set_location(' Leaving:'|| l_proc, 40);
623: end chk_special_pension_type_code;
618: ) then
619: hr_utility.set_location(' Leaving:'|| l_proc, 30);
620: raise;
621: end if;
622: hr_utility.set_location(' Leaving:'|| l_proc, 40);
623: end chk_special_pension_type_code;
624:
625: --
626: -- ------------------------------------------------------------------------------
638: l_proc varchar2(72) := g_package||'chk_pension_sub_category';
639: l_api_updating boolean;
640: --
641: begin
642: hr_utility.set_location('Entering:'|| l_proc, 10);
643: --
644: -- Check mandatory parameters have been set
645: --
646: hr_api.mandatory_arg_error
678: fnd_message.raise_error;
679: end if;
680: end if;
681: end if;
682: hr_utility.set_location(' Leaving:'|| l_proc, 20);
683: exception
684: when app_exception.application_exception then
685: if hr_multi_message.exception_add
686: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_SUB_CATEGORY'
684: when app_exception.application_exception then
685: if hr_multi_message.exception_add
686: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_SUB_CATEGORY'
687: ) then
688: hr_utility.set_location(' Leaving:'|| l_proc, 30);
689: raise;
690: end if;
691: hr_utility.set_location(' Leaving:'|| l_proc, 40);
692: end chk_pension_sub_category;
687: ) then
688: hr_utility.set_location(' Leaving:'|| l_proc, 30);
689: raise;
690: end if;
691: hr_utility.set_location(' Leaving:'|| l_proc, 40);
692: end chk_pension_sub_category;
693:
694: --
695: -- ------------------------------------------------------------------------------
707: l_proc varchar2(72) := g_package||'chk_pension_basis_calc_method';
708: l_api_updating boolean;
709: --
710: begin
711: hr_utility.set_location('Entering:'|| l_proc, 10);
712: --
713: -- Check mandatory parameters have been set
714: --
715: hr_api.mandatory_arg_error
747: fnd_message.raise_error;
748: end if;
749: end if;
750: end if;
751: hr_utility.set_location(' Leaving:'|| l_proc, 20);
752: exception
753: when app_exception.application_exception then
754: if hr_multi_message.exception_add
755: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_BASIS_CALC_METHOD'
753: when app_exception.application_exception then
754: if hr_multi_message.exception_add
755: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_BASIS_CALC_METHOD'
756: ) then
757: hr_utility.set_location(' Leaving:'|| l_proc, 30);
758: raise;
759: end if;
760: hr_utility.set_location(' Leaving:'|| l_proc, 40);
761: end chk_pension_basis_calc_method;
756: ) then
757: hr_utility.set_location(' Leaving:'|| l_proc, 30);
758: raise;
759: end if;
760: hr_utility.set_location(' Leaving:'|| l_proc, 40);
761: end chk_pension_basis_calc_method;
762:
763: --
764: -- ------------------------------------------------------------------------------
776: l_proc varchar2(72) := g_package||'chk_prev_year_bonus_include';
777: l_api_updating boolean;
778: --
779: begin
780: hr_utility.set_location('Entering:'|| l_proc, 10);
781: --
782: -- Check mandatory parameters have been set
783: --
784: hr_api.mandatory_arg_error
816: fnd_message.raise_error;
817: end if;
818: end if;
819: end if;
820: hr_utility.set_location(' Leaving:'|| l_proc, 20);
821: exception
822: when app_exception.application_exception then
823: if hr_multi_message.exception_add
824: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PREVIOUS_YEAR_BONUS_INCLUDED'
822: when app_exception.application_exception then
823: if hr_multi_message.exception_add
824: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PREVIOUS_YEAR_BONUS_INCLUDED'
825: ) then
826: hr_utility.set_location(' Leaving:'|| l_proc, 30);
827: raise;
828: end if;
829: hr_utility.set_location(' Leaving:'|| l_proc, 40);
830: end chk_prev_year_bonus_include;
825: ) then
826: hr_utility.set_location(' Leaving:'|| l_proc, 30);
827: raise;
828: end if;
829: hr_utility.set_location(' Leaving:'|| l_proc, 40);
830: end chk_prev_year_bonus_include;
831:
832: --
833: -- ------------------------------------------------------------------------------
845: l_proc varchar2(72) := g_package||'chk_recurring_bonus_period';
846: l_api_updating boolean;
847: --
848: begin
849: hr_utility.set_location('Entering:'|| l_proc, 10);
850: --
851: -- Check mandatory parameters have been set
852: --
853: hr_api.mandatory_arg_error
885: fnd_message.raise_error;
886: end if;
887: end if;
888: end if;
889: hr_utility.set_location(' Leaving:'|| l_proc, 20);
890: exception
891: when app_exception.application_exception then
892: if hr_multi_message.exception_add
893: (p_associated_column1 => 'PQP_PENSION_TYPES_F.RECURRING_BONUS_PERIOD'
891: when app_exception.application_exception then
892: if hr_multi_message.exception_add
893: (p_associated_column1 => 'PQP_PENSION_TYPES_F.RECURRING_BONUS_PERIOD'
894: ) then
895: hr_utility.set_location(' Leaving:'|| l_proc, 30);
896: raise;
897: end if;
898: hr_utility.set_location(' Leaving:'|| l_proc, 40);
899: end chk_recurring_bonus_period;
894: ) then
895: hr_utility.set_location(' Leaving:'|| l_proc, 30);
896: raise;
897: end if;
898: hr_utility.set_location(' Leaving:'|| l_proc, 40);
899: end chk_recurring_bonus_period;
900:
901: --
902: -- ------------------------------------------------------------------------------
914: l_proc varchar2(72) := g_package||'chk_non_recurring_bonus_period';
915: l_api_updating boolean;
916: --
917: begin
918: hr_utility.set_location('Entering:'|| l_proc, 10);
919: --
920: -- Check mandatory parameters have been set
921: --
922: hr_api.mandatory_arg_error
954: fnd_message.raise_error;
955: end if;
956: end if;
957: end if;
958: hr_utility.set_location(' Leaving:'|| l_proc, 20);
959: exception
960: when app_exception.application_exception then
961: if hr_multi_message.exception_add
962: (p_associated_column1 => 'PQP_PENSION_TYPES_F.NON_RECURRING_BONUS_PERIOD'
960: when app_exception.application_exception then
961: if hr_multi_message.exception_add
962: (p_associated_column1 => 'PQP_PENSION_TYPES_F.NON_RECURRING_BONUS_PERIOD'
963: ) then
964: hr_utility.set_location(' Leaving:'|| l_proc, 30);
965: raise;
966: end if;
967: hr_utility.set_location(' Leaving:'|| l_proc, 40);
968: end chk_non_recurring_bonus_period;
963: ) then
964: hr_utility.set_location(' Leaving:'|| l_proc, 30);
965: raise;
966: end if;
967: hr_utility.set_location(' Leaving:'|| l_proc, 40);
968: end chk_non_recurring_bonus_period;
969:
970: --
971: -- ------------------------------------------------------------------------------
1011: l_api_updating boolean;
1012: l_dim_exists number;
1013: --
1014: begin
1015: hr_utility.set_location('Entering:'|| l_proc, 10);
1016: --
1017: -- Check mandatory parameters have been set
1018: --
1019: hr_api.mandatory_arg_error
1040: --
1041: if p_pension_salary_balance is not null AND
1042: (p_legislation_code is not null and p_legislation_code = 'NL')then
1043:
1044: hr_utility.set_location('Entering:'|| l_proc||' bal '||p_pension_salary_balance, 15);
1045: Open csr_chk_for_dimension(c_balance_type_id => p_pension_salary_balance
1046: ,c_business_group_id => p_business_group_id
1047: ,c_legislation_code => p_legislation_code);
1048:
1057: close csr_chk_for_dimension;
1058: end if;
1059: end if;
1060: end if;
1061: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1062: exception
1063: when app_exception.application_exception then
1064: if hr_multi_message.exception_add
1065: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_SALARY_BALANCE'
1063: when app_exception.application_exception then
1064: if hr_multi_message.exception_add
1065: (p_associated_column1 => 'PQP_PENSION_TYPES_F.PENSION_SALARY_BALANCE'
1066: ) then
1067: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1068: raise;
1069: end if;
1070: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1071: end chk_pension_salary_balance;
1066: ) then
1067: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1068: raise;
1069: end if;
1070: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1071: end chk_pension_salary_balance;
1072:
1073: --
1074: -- ------------------------------------------------------------------------------
1086: l_proc varchar2(72) := g_package||'chk_ee_age_threshold';
1087: l_api_updating boolean;
1088: --
1089: begin
1090: hr_utility.set_location('Entering:'|| l_proc, 10);
1091: --
1092: -- Check mandatory parameters have been set
1093: --
1094: hr_api.mandatory_arg_error
1126: fnd_message.raise_error;
1127: end if;
1128: end if;
1129: end if;
1130: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1131: exception
1132: when app_exception.application_exception then
1133: if hr_multi_message.exception_add
1134: (p_associated_column1 => 'PQP_PENSION_TYPES_F.EE_AGE_THRESHOLD'
1132: when app_exception.application_exception then
1133: if hr_multi_message.exception_add
1134: (p_associated_column1 => 'PQP_PENSION_TYPES_F.EE_AGE_THRESHOLD'
1135: ) then
1136: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1137: raise;
1138: end if;
1139: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1140: end chk_ee_age_threshold;
1135: ) then
1136: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1137: raise;
1138: end if;
1139: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1140: end chk_ee_age_threshold;
1141:
1142: --
1143: -- ------------------------------------------------------------------------------
1155: l_proc varchar2(72) := g_package||'chk_er_age_threshold';
1156: l_api_updating boolean;
1157: --
1158: begin
1159: hr_utility.set_location('Entering:'|| l_proc, 10);
1160: --
1161: -- Check mandatory parameters have been set
1162: --
1163: hr_api.mandatory_arg_error
1195: fnd_message.raise_error;
1196: end if;
1197: end if;
1198: end if;
1199: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1200: exception
1201: when app_exception.application_exception then
1202: if hr_multi_message.exception_add
1203: (p_associated_column1 => 'PQP_PENSION_TYPES_F.ER_AGE_THRESHOLD'
1201: when app_exception.application_exception then
1202: if hr_multi_message.exception_add
1203: (p_associated_column1 => 'PQP_PENSION_TYPES_F.ER_AGE_THRESHOLD'
1204: ) then
1205: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1206: raise;
1207: end if;
1208: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1209: end chk_er_age_threshold;
1204: ) then
1205: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1206: raise;
1207: end if;
1208: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1209: end chk_er_age_threshold;
1210:
1211: --
1212: -- ------------------------------------------------------------------------------
1224: l_proc varchar2(72) := g_package||'chk_ee_age_contribution';
1225: l_api_updating boolean;
1226: --
1227: begin
1228: hr_utility.set_location('Entering:'|| l_proc, 10);
1229: --
1230: -- Check mandatory parameters have been set
1231: --
1232: hr_api.mandatory_arg_error
1264: fnd_message.raise_error;
1265: end if;
1266: end if;
1267: end if;
1268: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1269: exception
1270: when app_exception.application_exception then
1271: if hr_multi_message.exception_add
1272: (p_associated_column1 => 'PQP_PENSION_TYPES_F.EE_AGE_CONTRIBUTION'
1270: when app_exception.application_exception then
1271: if hr_multi_message.exception_add
1272: (p_associated_column1 => 'PQP_PENSION_TYPES_F.EE_AGE_CONTRIBUTION'
1273: ) then
1274: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1275: raise;
1276: end if;
1277: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1278: end chk_ee_age_contribution;
1273: ) then
1274: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1275: raise;
1276: end if;
1277: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1278: end chk_ee_age_contribution;
1279:
1280: --
1281: -- ------------------------------------------------------------------------------
1293: l_proc varchar2(72) := g_package||'chk_er_age_contribution';
1294: l_api_updating boolean;
1295: --
1296: begin
1297: hr_utility.set_location('Entering:'|| l_proc, 10);
1298: --
1299: -- Check mandatory parameters have been set
1300: --
1301: hr_api.mandatory_arg_error
1333: fnd_message.raise_error;
1334: end if;
1335: end if;
1336: end if;
1337: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1338: exception
1339: when app_exception.application_exception then
1340: if hr_multi_message.exception_add
1341: (p_associated_column1 => 'PQP_PENSION_TYPES_F.ER_AGE_CONTRIBUTION'
1339: when app_exception.application_exception then
1340: if hr_multi_message.exception_add
1341: (p_associated_column1 => 'PQP_PENSION_TYPES_F.ER_AGE_CONTRIBUTION'
1342: ) then
1343: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1344: raise;
1345: end if;
1346: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1347: end chk_er_age_contribution;
1342: ) then
1343: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1344: raise;
1345: end if;
1346: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1347: end chk_er_age_contribution;
1348:
1349: --
1350: -- ---------------------------------------------------------------------------
1375: l_proc varchar2(50) := g_package||'set_end_date_fpus';
1376:
1377: Begin
1378:
1379: hr_utility.set_location(' entering :'|| l_proc, 10);
1380:
1381: open c_get_end_date;
1382: fetch c_get_end_date into l_end_date_active;
1383: hr_utility.set_location(' l_end_date_active :'|| l_end_date_active, 20);
1379: hr_utility.set_location(' entering :'|| l_proc, 10);
1380:
1381: open c_get_end_date;
1382: fetch c_get_end_date into l_end_date_active;
1383: hr_utility.set_location(' l_end_date_active :'|| l_end_date_active, 20);
1384: if (c_get_end_date%FOUND and l_end_date_active is not null) then
1385: close c_get_end_date;
1386: hr_utility.set_location(' l_end_date_active :'|| l_end_date_active, 30);
1387: p_validation_end_date := l_end_date_active;
1382: fetch c_get_end_date into l_end_date_active;
1383: hr_utility.set_location(' l_end_date_active :'|| l_end_date_active, 20);
1384: if (c_get_end_date%FOUND and l_end_date_active is not null) then
1385: close c_get_end_date;
1386: hr_utility.set_location(' l_end_date_active :'|| l_end_date_active, 30);
1387: p_validation_end_date := l_end_date_active;
1388: hr_utility.set_location(' p_validation_end_date :'|| p_validation_end_date, 40);
1389: else
1390: close c_get_end_date;
1384: if (c_get_end_date%FOUND and l_end_date_active is not null) then
1385: close c_get_end_date;
1386: hr_utility.set_location(' l_end_date_active :'|| l_end_date_active, 30);
1387: p_validation_end_date := l_end_date_active;
1388: hr_utility.set_location(' p_validation_end_date :'|| p_validation_end_date, 40);
1389: else
1390: close c_get_end_date;
1391: end if;
1392:
1421: l_legislation_code varchar2(150);
1422: --
1423: begin
1424: --
1425: hr_utility.set_location('Entering:'|| l_proc, 10);
1426: --
1427: -- Ensure that all the mandatory parameter are not null
1428: --
1429: hr_api.mandatory_arg_error
1461: --
1462: hr_api.set_legislation_context(l_legislation_code);
1463: end if;
1464: --
1465: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1466: --
1467: end set_security_group_id;
1468: --
1469: -- ---------------------------------------------------------------------------
1490: l_proc varchar2(72) := g_package||'return_legislation_code';
1491: --
1492: Begin
1493: --
1494: hr_utility.set_location('Entering:'|| l_proc, 10);
1495: --
1496: -- Ensure that all the mandatory parameter are not null
1497: --
1498: hr_api.mandatory_arg_error
1508: -- call to this function. Just return the value in the global
1509: -- variable.
1510: --
1511: l_legislation_code := pqp_pty_bus.g_legislation_code;
1512: hr_utility.set_location(l_proc, 20);
1513: else
1514: --
1515: -- The ID is different to the last call to this function
1516: -- or this is the first call to this function.
1525: close csr_leg_code;
1526: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
1527: fnd_message.raise_error;
1528: end if;
1529: hr_utility.set_location(l_proc,30);
1530: --
1531: -- Set the global variables so the values are
1532: -- available for the next call to this function.
1533: --
1534: close csr_leg_code;
1535: pqp_pty_bus.g_pension_type_id := p_pension_type_id;
1536: pqp_pty_bus.g_legislation_code := l_legislation_code;
1537: end if;
1538: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1539: return l_legislation_code;
1540: end return_legislation_code;
1541: --
1542: -- ----------------------------------------------------------------------------
1573: --
1574: l_proc varchar2(72) := g_package || 'chk_ddf';
1575: --
1576: begin
1577: hr_utility.set_location('Entering:'||l_proc,10);
1578: --
1579: if ((p_rec.pension_type_id is not null) and (
1580: nvl(pqp_pty_shd.g_old_rec.pty_information_category, hr_api.g_varchar2) <>
1581: nvl(p_rec.pty_information_category, hr_api.g_varchar2) or
1672: ,p_attribute20_value => p_rec.pty_information20
1673: );
1674: end if;
1675: --
1676: hr_utility.set_location(' Leaving:'||l_proc,20);
1677: end chk_ddf;
1678: --
1679: -- ----------------------------------------------------------------------------
1680: -- |------------------------------< chk_df >----------------------------------|
1710: --
1711: l_proc varchar2(72) := g_package || 'chk_df';
1712: --
1713: begin
1714: hr_utility.set_location('Entering:'||l_proc,10);
1715: --
1716: if ((p_rec.pension_type_id is not null) and (
1717: nvl(pqp_pty_shd.g_old_rec.pty_attribute_category, hr_api.g_varchar2) <>
1718: nvl(p_rec.pty_attribute_category, hr_api.g_varchar2) or
1809: ,p_attribute20_value => p_rec.pty_attribute20
1810: );
1811: end if;
1812: --
1813: hr_utility.set_location(' Leaving:'||l_proc,20);
1814: end chk_df;
1815: --
1816: -- ----------------------------------------------------------------------------
1817: -- |-----------------------< chk_non_updateable_args >------------------------|
2131: l_legislation_code varchar2(150);
2132:
2133: --
2134: Begin
2135: hr_utility.set_location('Entering:'||l_proc, 5);
2136: --
2137: -- Call all supporting business operations
2138: --
2139: --
2381: ,p_validation_start_date => p_validation_start_date
2382: ,p_validation_end_date => p_validation_end_date
2383: );
2384:
2385: hr_utility.set_location(' p_validation_end_date :'|| p_validation_end_date, 20);
2386:
2387:
2388:
2389: end if;
2398: pqp_pty_bus.chk_ddf(p_rec);
2399: --
2400: pqp_pty_bus.chk_df(p_rec);
2401: --
2402: hr_utility.set_location(' Leaving:'||l_proc, 10);
2403:
2404: exception
2405: when others then
2406: hr_utility.set_location('error occured : '||SQLERRM,15);
2402: hr_utility.set_location(' Leaving:'||l_proc, 10);
2403:
2404: exception
2405: when others then
2406: hr_utility.set_location('error occured : '||SQLERRM,15);
2407: raise;
2408: End insert_validate;
2409:
2410:
2423: l_proc varchar2(72) := g_package||'update_validate';
2424: l_legislation_code varchar2(150);
2425: --
2426: Begin
2427: hr_utility.set_location('Entering:'||l_proc, 5);
2428: --
2429: -- Call all supporting business operations
2430: --
2431: --
2632: ,p_validation_start_date => p_validation_start_date
2633: ,p_validation_end_date => p_validation_end_date
2634: );
2635:
2636: hr_utility.set_location(' pension_sub_category :'||
2637: p_rec.pension_sub_category, 10);
2638:
2639: if (p_rec.pension_sub_category is not null and
2640: p_rec.pension_sub_category = 'FPU_S') then
2658: pqp_pty_bus.chk_ddf(p_rec);
2659: --
2660: pqp_pty_bus.chk_df(p_rec);
2661: --
2662: hr_utility.set_location(' Leaving:'||l_proc, 10);
2663: End update_validate;
2664:
2665:
2666: --
2755: AND eei_information2 = fnd_number.number_to_canonical(c_pension_type_id);
2756:
2757: --
2758: Begin
2759: hr_utility.set_location('Entering:'||l_proc, 5);
2760: --
2761: --
2762: chk_startup_action(false
2763: ,pqp_pty_shd.g_old_rec.business_group_id
2812: OPEN c_chk_abp_pt(p_rec.pension_type_id);
2813: FETCH c_chk_abp_pt INTO l_is_abp_pt;
2814: IF c_chk_abp_pt%FOUND THEN
2815: CLOSE c_chk_abp_pt;
2816: hr_utility.set_location('ABP PT'||l_proc,10);
2817: -- if the mode is ZAP, then dont allow a delete if a row exists
2818: -- in the org or asg EIT for this PT
2819: If p_datetrack_mode = 'ZAP' Then
2820: --check if there exists a row in the ORG EIT for the PT
2817: -- if the mode is ZAP, then dont allow a delete if a row exists
2818: -- in the org or asg EIT for this PT
2819: If p_datetrack_mode = 'ZAP' Then
2820: --check if there exists a row in the ORG EIT for the PT
2821: hr_utility.set_location('Delete Mode ZAP'||l_proc,20);
2822: OPEN c_chk_org_info(p_rec.pension_type_id);
2823: FETCH c_chk_org_info INTO l_org_info_exists;
2824: If c_chk_org_info%FOUND THEN
2825: CLOSE c_chk_org_info;
2822: OPEN c_chk_org_info(p_rec.pension_type_id);
2823: FETCH c_chk_org_info INTO l_org_info_exists;
2824: If c_chk_org_info%FOUND THEN
2825: CLOSE c_chk_org_info;
2826: hr_utility.set_location('Found org info for the PT'||l_proc,30);
2827: fnd_message.set_name('PQP','PQP_230048_ORG_INFO_EXISTS');
2828: hr_multi_message.add();
2829: Else
2830: CLOSE c_chk_org_info;
2834: OPEN c_chk_asg_info(p_rec.pension_type_id);
2835: FETCH c_chk_asg_info INTO l_asg_info_exists;
2836: If c_chk_asg_info%FOUND THEN
2837: CLOSE c_chk_asg_info;
2838: hr_utility.set_location('Found ASG info for the PT'||l_proc,40);
2839: fnd_message.set_name('PQP','PQP_230049_ASG_INFO_EXISTS');
2840: hr_multi_message.add();
2841: Else
2842: CLOSE c_chk_asg_info;
2848: -- on this maximum end date
2849:
2850: Elsif p_datetrack_mode = 'DELETE' Then
2851: --find the maximum end date in the ORG/ASG EIT for this PT
2852: hr_utility.set_location('Datetrack mode DELETE'||l_proc,50);
2853: l_max_org_end_dt := p_effective_date;
2854: l_max_asg_end_dt := p_effective_date;
2855: -- loop through all org info rows and fetch the end date greatest than the eff date
2856: FOR temp_rec in c_org_info_end_dt(p_rec.pension_type_id)
2854: l_max_asg_end_dt := p_effective_date;
2855: -- loop through all org info rows and fetch the end date greatest than the eff date
2856: FOR temp_rec in c_org_info_end_dt(p_rec.pension_type_id)
2857: LOOP
2858: hr_utility.set_location('in org info loop'||p_effective_date||temp_rec.org_info_end_dt,10);
2859: If temp_rec.org_info_end_dt > l_max_org_end_dt THEN
2860: l_max_org_end_dt := temp_rec.org_info_end_dt;
2861: End If;
2862: END LOOP;
2861: End If;
2862: END LOOP;
2863:
2864: If l_max_org_end_dt <> p_effective_date THEN
2865: hr_utility.set_location('Found future dates org eit rows'||l_proc,60);
2866: fnd_message.set_name('PQP','PQP_230050_FUTURE_ORG_INFO');
2867: fnd_message.set_token('ENDDATE',to_char(l_max_org_end_dt));
2868: hr_multi_message.add();
2869: End If;
2874: If temp_rec.asg_info_end_dt > l_max_asg_end_dt THEN
2875: l_max_asg_end_dt := temp_rec.asg_info_end_dt;
2876: End If;
2877: END LOOP;
2878: -- hr_utility.trace_off;
2879: If l_max_asg_end_dt <> p_effective_date THEN
2880: hr_utility.set_location('found future dates asg eit rows'||l_proc,70);
2881: fnd_message.set_name('PQP','PQP_230051_FUTURE_ASG_INFO');
2882: fnd_message.set_token('ENDDATE',to_char(l_max_asg_end_dt));
2876: End If;
2877: END LOOP;
2878: -- hr_utility.trace_off;
2879: If l_max_asg_end_dt <> p_effective_date THEN
2880: hr_utility.set_location('found future dates asg eit rows'||l_proc,70);
2881: fnd_message.set_name('PQP','PQP_230051_FUTURE_ASG_INFO');
2882: fnd_message.set_token('ENDDATE',to_char(l_max_asg_end_dt));
2883: hr_multi_message.add();
2884: End If;
2898: FETCH c_chk_pggm_pt
2899: INTO l_is_pggm_pt;
2900: --
2901: IF c_chk_pggm_pt%FOUND THEN
2902: hr_utility.set_location('PGGM PT'||l_proc,10);
2903: -- Do not allow a delete if a row exists
2904: -- in the org EIT for this PT
2905:
2906: --
2905:
2906: --
2907: -- Check if there exists a row in the ORG EIT for the PT
2908: --
2909: hr_utility.set_location('Delete Mode ZAP'||l_proc,20);
2910: OPEN c_chk_pggm_org_info(p_rec.pension_type_id);
2911: FETCH c_chk_pggm_org_info
2912: INTO l_pggm_org_info_exists;
2913: --
2912: INTO l_pggm_org_info_exists;
2913: --
2914: IF c_chk_pggm_org_info%FOUND THEN
2915: CLOSE c_chk_pggm_org_info;
2916: hr_utility.set_location('Found org info for the PT'||l_proc,30);
2917: fnd_message.set_name('PQP','PQP_230048_ORG_INFO_EXISTS');
2918: hr_multi_message.add();
2919: ELSE
2920: CLOSE c_chk_pggm_org_info;
2930: INTO l_pggm_scheme;
2931:
2932: IF c_pggm_scheme%FOUND THEN
2933: CLOSE c_pggm_scheme;
2934: hr_utility.set_location('Found scheme info for the PT'||l_proc,30);
2935: fnd_message.set_name('PQP','PQP_2300XX_SCHEME_INFO_EXISTS');
2936: hr_multi_message.add();
2937: ELSE
2938: CLOSE c_pggm_scheme;
2942: END IF;
2943:
2944: CLOSE c_chk_pggm_pt;
2945:
2946: hr_utility.set_location(' Leaving:'||l_proc, 80);
2947:
2948: End delete_validate;
2949: --
2950: