[Home] [Help]
38: --
39: Begin
40: --
41: l_proc := g_package||'create_element';
42: hr_utility.set_location('Entering:'||l_proc, 5);
43:
44: l_effective_start_date := hr_general.start_of_time;
45: l_effective_end_date := hr_general.end_of_time;
46: --
71: p_business_group_name => p_bg_name,
72: p_legislation_code => p_legislation_code,
73: p_legislation_subgroup => '');
74: --
75: hr_utility.set_location('Leaving:'||l_proc, 10);
76:
77: return l_element_type_id;
78: --
79: end create_element;
121: --
122: l_generate_db_item_flag := 'Y';
123: l_proc := g_package||'create_input_value';
124: --
125: hr_utility.set_location('Entering:'||l_proc, 5);
126: --
127: select least(effective_start_date),
128: greatest(effective_end_date)
129: into l_effective_start_date,
197: p_business_group_id => p_business_group_id,
198: p_legislation_code => p_legislation_code,
199: p_startup_mode => '');
200: --
201: hr_utility.set_location('Leaving:'||l_proc, 10);
202: --
203: return l_input_value_id;
204: --
205: end create_input_value;
229: --
230: Begin
231: --
232: l_proc := g_package||'create_element_link';
233: hr_utility.set_location('Entering:'||l_proc, 5);
234:
235: l_max_end_date := pay_element_links_pkg.max_end_date (
236: p_element_type_id => p_element_type_id,
237: p_element_link_id => null,
304: p_attribute20 => p_absence_link_rec.attribute20
305: );
306:
307: --
308: hr_utility.set_location('Leaving:'||l_proc, 10);
309: --
310: End create_element_link;
311: --
312: -- ----------------------------------------------------------------------------
608: AND frcu.context_id = fc.context_id);
609:
610: BEGIN
611: l_proc := g_package||'chk_balance_dimension_id';
612: hr_utility.set_location('Entering: '||l_proc, 10);
613:
614: OPEN csr_get_leg_code;
615: FETCH csr_get_leg_code INTO l_legislation_code;
616: CLOSE csr_get_leg_code;
614: OPEN csr_get_leg_code;
615: FETCH csr_get_leg_code INTO l_legislation_code;
616: CLOSE csr_get_leg_code;
617:
618: hr_utility.set_location('l_legislation_code: '||l_legislation_code, 20);
619:
620: OPEN csr_chk_bal_dim;
621: FETCH csr_chk_bal_dim INTO l_dummy;
622:
623: IF csr_chk_bal_dim%NOTFOUND THEN
624: --
625: -- The balance dimension fails validation so error.
626: --
627: hr_utility.set_location(l_proc, 30);
628: CLOSE csr_chk_bal_dim;
629: fnd_message.set_name('PER','HR_289824_PAP_BAL_DIM_INVALID');
630: fnd_message.raise_error;
631:
632: END IF;
633:
634: CLOSE csr_chk_bal_dim;
635:
636: hr_utility.set_location('Leaving: '||l_proc, 40);
637:
638: END chk_balance_dimension_id;
639: --
640: -- ----------------------------------------------------------------------------
847: BEGIN
848: l_proc := g_package||'create_accrual_plan';
849: l_skip_rule_formula_name := 'PTO_ORACLE_SKIP_RULE';
850: --
851: hr_utility.set_location('Entering:'|| l_proc, 10);
852:
853: --
854: -- Pipe the main IN / IN OUT parameters for ease of debugging.
855: --
852:
853: --
854: -- Pipe the main IN / IN OUT parameters for ease of debugging.
855: --
856: hr_utility.trace(' ');
857: hr_utility.trace(' --------------------------------'||
858: '---------------------------------');
859: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
860: ' VALUE');
853: --
854: -- Pipe the main IN / IN OUT parameters for ease of debugging.
855: --
856: hr_utility.trace(' ');
857: hr_utility.trace(' --------------------------------'||
858: '---------------------------------');
859: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
860: ' VALUE');
861: hr_utility.trace(' --------------------------------'||
855: --
856: hr_utility.trace(' ');
857: hr_utility.trace(' --------------------------------'||
858: '---------------------------------');
859: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
860: ' VALUE');
861: hr_utility.trace(' --------------------------------'||
862: '+--------------------------------');
863: IF p_validate THEN
857: hr_utility.trace(' --------------------------------'||
858: '---------------------------------');
859: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
860: ' VALUE');
861: hr_utility.trace(' --------------------------------'||
862: '+--------------------------------');
863: IF p_validate THEN
864: hr_utility.trace(' p_validate '||
865: 'TRUE');
860: ' VALUE');
861: hr_utility.trace(' --------------------------------'||
862: '+--------------------------------');
863: IF p_validate THEN
864: hr_utility.trace(' p_validate '||
865: 'TRUE');
866: ELSE
867: hr_utility.trace(' p_validate '||
868: 'FALSE');
863: IF p_validate THEN
864: hr_utility.trace(' p_validate '||
865: 'TRUE');
866: ELSE
867: hr_utility.trace(' p_validate '||
868: 'FALSE');
869: END IF;
870: hr_utility.trace(' p_effective_date '||
871: to_char(p_effective_date));
866: ELSE
867: hr_utility.trace(' p_validate '||
868: 'FALSE');
869: END IF;
870: hr_utility.trace(' p_effective_date '||
871: to_char(p_effective_date));
872: hr_utility.trace(' p_business_group_id '||
873: to_char(p_business_group_id));
874: hr_utility.trace(' p_accrual_formula_id '||
868: 'FALSE');
869: END IF;
870: hr_utility.trace(' p_effective_date '||
871: to_char(p_effective_date));
872: hr_utility.trace(' p_business_group_id '||
873: to_char(p_business_group_id));
874: hr_utility.trace(' p_accrual_formula_id '||
875: to_char(p_accrual_formula_id));
876: hr_utility.trace(' p_co_formula_id '||
870: hr_utility.trace(' p_effective_date '||
871: to_char(p_effective_date));
872: hr_utility.trace(' p_business_group_id '||
873: to_char(p_business_group_id));
874: hr_utility.trace(' p_accrual_formula_id '||
875: to_char(p_accrual_formula_id));
876: hr_utility.trace(' p_co_formula_id '||
877: to_char(p_co_formula_id));
878: hr_utility.trace(' p_pto_input_value_id '||
872: hr_utility.trace(' p_business_group_id '||
873: to_char(p_business_group_id));
874: hr_utility.trace(' p_accrual_formula_id '||
875: to_char(p_accrual_formula_id));
876: hr_utility.trace(' p_co_formula_id '||
877: to_char(p_co_formula_id));
878: hr_utility.trace(' p_pto_input_value_id '||
879: to_char(p_pto_input_value_id));
880: hr_utility.trace(' p_accrual_plan_name '||
874: hr_utility.trace(' p_accrual_formula_id '||
875: to_char(p_accrual_formula_id));
876: hr_utility.trace(' p_co_formula_id '||
877: to_char(p_co_formula_id));
878: hr_utility.trace(' p_pto_input_value_id '||
879: to_char(p_pto_input_value_id));
880: hr_utility.trace(' p_accrual_plan_name '||
881: p_accrual_plan_name);
882: hr_utility.trace(' p_accrual_units_of_measure '||
876: hr_utility.trace(' p_co_formula_id '||
877: to_char(p_co_formula_id));
878: hr_utility.trace(' p_pto_input_value_id '||
879: to_char(p_pto_input_value_id));
880: hr_utility.trace(' p_accrual_plan_name '||
881: p_accrual_plan_name);
882: hr_utility.trace(' p_accrual_units_of_measure '||
883: p_accrual_units_of_measure);
884: hr_utility.trace(' p_accrual_category '||
878: hr_utility.trace(' p_pto_input_value_id '||
879: to_char(p_pto_input_value_id));
880: hr_utility.trace(' p_accrual_plan_name '||
881: p_accrual_plan_name);
882: hr_utility.trace(' p_accrual_units_of_measure '||
883: p_accrual_units_of_measure);
884: hr_utility.trace(' p_accrual_category '||
885: p_accrual_category);
886: hr_utility.trace(' p_accrual_start '||
880: hr_utility.trace(' p_accrual_plan_name '||
881: p_accrual_plan_name);
882: hr_utility.trace(' p_accrual_units_of_measure '||
883: p_accrual_units_of_measure);
884: hr_utility.trace(' p_accrual_category '||
885: p_accrual_category);
886: hr_utility.trace(' p_accrual_start '||
887: p_accrual_start);
888: hr_utility.trace(' p_ineligible_period_length '||
882: hr_utility.trace(' p_accrual_units_of_measure '||
883: p_accrual_units_of_measure);
884: hr_utility.trace(' p_accrual_category '||
885: p_accrual_category);
886: hr_utility.trace(' p_accrual_start '||
887: p_accrual_start);
888: hr_utility.trace(' p_ineligible_period_length '||
889: to_char(p_ineligible_period_length));
890: hr_utility.trace(' p_ineligible_period_type '||
884: hr_utility.trace(' p_accrual_category '||
885: p_accrual_category);
886: hr_utility.trace(' p_accrual_start '||
887: p_accrual_start);
888: hr_utility.trace(' p_ineligible_period_length '||
889: to_char(p_ineligible_period_length));
890: hr_utility.trace(' p_ineligible_period_type '||
891: p_ineligible_period_type);
892: hr_utility.trace(' p_description '||
886: hr_utility.trace(' p_accrual_start '||
887: p_accrual_start);
888: hr_utility.trace(' p_ineligible_period_length '||
889: to_char(p_ineligible_period_length));
890: hr_utility.trace(' p_ineligible_period_type '||
891: p_ineligible_period_type);
892: hr_utility.trace(' p_description '||
893: p_description);
894: hr_utility.trace(' p_ineligibility_formula_id '||
888: hr_utility.trace(' p_ineligible_period_length '||
889: to_char(p_ineligible_period_length));
890: hr_utility.trace(' p_ineligible_period_type '||
891: p_ineligible_period_type);
892: hr_utility.trace(' p_description '||
893: p_description);
894: hr_utility.trace(' p_ineligibility_formula_id '||
895: to_char(p_ineligibility_formula_id));
896: hr_utility.trace(' p_balance_dimension_id '||
890: hr_utility.trace(' p_ineligible_period_type '||
891: p_ineligible_period_type);
892: hr_utility.trace(' p_description '||
893: p_description);
894: hr_utility.trace(' p_ineligibility_formula_id '||
895: to_char(p_ineligibility_formula_id));
896: hr_utility.trace(' p_balance_dimension_id '||
897: to_char(p_balance_dimension_id));
898: hr_utility.trace(' p_information_category '||
892: hr_utility.trace(' p_description '||
893: p_description);
894: hr_utility.trace(' p_ineligibility_formula_id '||
895: to_char(p_ineligibility_formula_id));
896: hr_utility.trace(' p_balance_dimension_id '||
897: to_char(p_balance_dimension_id));
898: hr_utility.trace(' p_information_category '||
899: p_information_category);
900: hr_utility.trace(' --------------------------------'||
894: hr_utility.trace(' p_ineligibility_formula_id '||
895: to_char(p_ineligibility_formula_id));
896: hr_utility.trace(' p_balance_dimension_id '||
897: to_char(p_balance_dimension_id));
898: hr_utility.trace(' p_information_category '||
899: p_information_category);
900: hr_utility.trace(' --------------------------------'||
901: '---------------------------------');
902: hr_utility.trace(' ');
896: hr_utility.trace(' p_balance_dimension_id '||
897: to_char(p_balance_dimension_id));
898: hr_utility.trace(' p_information_category '||
899: p_information_category);
900: hr_utility.trace(' --------------------------------'||
901: '---------------------------------');
902: hr_utility.trace(' ');
903:
904: --
898: hr_utility.trace(' p_information_category '||
899: p_information_category);
900: hr_utility.trace(' --------------------------------'||
901: '---------------------------------');
902: hr_utility.trace(' ');
903:
904: --
905: -- Issue a savepoint
906: --
904: --
905: -- Issue a savepoint
906: --
907: savepoint create_accrual_plan;
908: hr_utility.set_location(l_proc, 20);
909:
910: --
911: -- Call Before Process User Hook
912: --
964: (p_module_name => 'create_accrual_plan'
965: ,p_hook_type => 'BP'
966: );
967: end;
968: hr_utility.set_location(l_proc, 30);
969: --
970: -- Validation in addition to Row Handlers
971: --
972: --
982: into l_bg_name, l_leg_code, l_curr_code
983: from per_business_groups
984: where business_group_id = p_business_group_id;
985:
986: hr_utility.set_location(l_proc, 40);
987: hr_utility.trace('l_bg_name: '||l_bg_name);
988: hr_utility.trace('l_leg_code: '||l_leg_code);
989: hr_utility.trace('l_curr_code: '||l_curr_code);
990: --
983: from per_business_groups
984: where business_group_id = p_business_group_id;
985:
986: hr_utility.set_location(l_proc, 40);
987: hr_utility.trace('l_bg_name: '||l_bg_name);
988: hr_utility.trace('l_leg_code: '||l_leg_code);
989: hr_utility.trace('l_curr_code: '||l_curr_code);
990: --
991: -- If this is a US legislation, use the classification name
984: where business_group_id = p_business_group_id;
985:
986: hr_utility.set_location(l_proc, 40);
987: hr_utility.trace('l_bg_name: '||l_bg_name);
988: hr_utility.trace('l_leg_code: '||l_leg_code);
989: hr_utility.trace('l_curr_code: '||l_curr_code);
990: --
991: -- If this is a US legislation, use the classification name
992: -- 'PTO Accruals'. Otherwise, pick any classification, preferably a
985:
986: hr_utility.set_location(l_proc, 40);
987: hr_utility.trace('l_bg_name: '||l_bg_name);
988: hr_utility.trace('l_leg_code: '||l_leg_code);
989: hr_utility.trace('l_curr_code: '||l_curr_code);
990: --
991: -- If this is a US legislation, use the classification name
992: -- 'PTO Accruals'. Otherwise, pick any classification, preferably a
993: -- non-payments one.
998:
999: open c_class_id('PTO Accruals', l_leg_code);
1000: fetch c_class_id into l_primary_classification_id;
1001: close c_class_id;
1002: hr_utility.trace('l_primary_classification_id: '
1003: ||to_char(l_primary_classification_id));
1004: --
1005: else
1006: --
1007: open class_name(l_leg_code);
1008: fetch class_name into l_classification_name,
1009: l_primary_classification_id;
1010: close class_name;
1011: hr_utility.trace('l_classification_name: '||l_classification_name);
1012: hr_utility.trace('l_primary_classification_id: '
1013: ||to_char(l_primary_classification_id));
1014:
1015: end if;
1008: fetch class_name into l_classification_name,
1009: l_primary_classification_id;
1010: close class_name;
1011: hr_utility.trace('l_classification_name: '||l_classification_name);
1012: hr_utility.trace('l_primary_classification_id: '
1013: ||to_char(l_primary_classification_id));
1014:
1015: end if;
1016:
1015: end if;
1016:
1017: begin
1018:
1019: hr_utility.set_location(l_proc, 50);
1020: select ec.default_priority + 1
1021: into l_priority
1022: from pay_element_classifications ec
1023: where upper(ec.classification_name) = upper(l_classification_name)
1038: l_priority := 1500;
1039: --
1040: end;
1041:
1042: hr_utility.trace('l_priority: '||to_char(l_priority));
1043: l_leg_code := null;
1044:
1045: --
1046: -- Get the termination rule
1055: --
1056: exception
1057: --
1058: when no_data_found then
1059: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
1060: hr_utility.raise_error;
1061: --
1062: end;
1063:
1056: exception
1057: --
1058: when no_data_found then
1059: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
1060: hr_utility.raise_error;
1061: --
1062: end;
1063:
1064: hr_utility.trace('l_post_termination_rule: '||l_post_termination_rule);
1060: hr_utility.raise_error;
1061: --
1062: end;
1063:
1064: hr_utility.trace('l_post_termination_rule: '||l_post_termination_rule);
1065: --
1066: -- Get the Skip Rule formula ID.
1067: -- No longer needed. See bug 2620850.
1068: --
1088: l_element_name := p_accrual_plan_name;
1089: l_element_description := p_accrual_plan_name;
1090: l_classification_type := 'N';
1091:
1092: hr_utility.set_location(l_proc, 50);
1093:
1094: l_accrual_plan_element_type_id := create_element(
1095: l_element_name,
1096: l_element_description,
1105: l_skip_rule_formula_id,
1106: null
1107: );
1108: --
1109: hr_utility.set_location(l_proc, 60);
1110: hr_utility.trace('l_accrual_plan_element_type_id: '
1111: ||to_char(l_accrual_plan_element_type_id));
1112:
1113: l_input_value_name := 'Continuous Service Date';
1106: null
1107: );
1108: --
1109: hr_utility.set_location(l_proc, 60);
1110: hr_utility.trace('l_accrual_plan_element_type_id: '
1111: ||to_char(l_accrual_plan_element_type_id));
1112:
1113: l_input_value_name := 'Continuous Service Date';
1114: l_date_uom_code := 'D';
1126: l_classification_type,
1127: 'N'
1128: );
1129:
1130: hr_utility.set_location(l_proc, 70);
1131: hr_utility.trace('l_input_value_id: '||to_char(l_input_value_id));
1132: --
1133: -- set up input value names and units of measure
1134: -- for carry over and residual element input values
1127: 'N'
1128: );
1129:
1130: hr_utility.set_location(l_proc, 70);
1131: hr_utility.trace('l_input_value_id: '||to_char(l_input_value_id));
1132: --
1133: -- set up input value names and units of measure
1134: -- for carry over and residual element input values
1135: --
1155: open c_get_lookups('PTO_EXPIRY_DATE');
1156: fetch c_get_lookups into l_exp_date_input_value_name;
1157: close c_get_lookups;
1158:
1159: hr_utility.set_location(l_proc, 80);
1160: hr_utility.trace('l_input_value_name: '||l_input_value_name);
1161: hr_utility.trace('l_date_input_value_name: '||l_date_input_value_name);
1162: hr_utility.trace('l_exp_date_input_value_name: '||l_exp_date_input_value_name);
1163: --
1156: fetch c_get_lookups into l_exp_date_input_value_name;
1157: close c_get_lookups;
1158:
1159: hr_utility.set_location(l_proc, 80);
1160: hr_utility.trace('l_input_value_name: '||l_input_value_name);
1161: hr_utility.trace('l_date_input_value_name: '||l_date_input_value_name);
1162: hr_utility.trace('l_exp_date_input_value_name: '||l_exp_date_input_value_name);
1163: --
1164: -- now create the carried-over element type and input values...
1157: close c_get_lookups;
1158:
1159: hr_utility.set_location(l_proc, 80);
1160: hr_utility.trace('l_input_value_name: '||l_input_value_name);
1161: hr_utility.trace('l_date_input_value_name: '||l_date_input_value_name);
1162: hr_utility.trace('l_exp_date_input_value_name: '||l_exp_date_input_value_name);
1163: --
1164: -- now create the carried-over element type and input values...
1165: --
1158:
1159: hr_utility.set_location(l_proc, 80);
1160: hr_utility.trace('l_input_value_name: '||l_input_value_name);
1161: hr_utility.trace('l_date_input_value_name: '||l_date_input_value_name);
1162: hr_utility.trace('l_exp_date_input_value_name: '||l_exp_date_input_value_name);
1163: --
1164: -- now create the carried-over element type and input values...
1165: --
1166: open c_get_lookups('PTO_CO');
1172: open c_get_lookups('PTO_CO_ELEMENT_DESC');
1173: fetch c_get_lookups into l_element_description;
1174: close c_get_lookups;
1175:
1176: hr_utility.trace('l_element_name: '||l_element_name);
1177: hr_utility.trace('l_element_description: '||l_element_description);
1178: --
1179: -- If this is a US legislation, use the classification name
1180: -- 'Information'. Otherwise, stick with the classification retrieved
1173: fetch c_get_lookups into l_element_description;
1174: close c_get_lookups;
1175:
1176: hr_utility.trace('l_element_name: '||l_element_name);
1177: hr_utility.trace('l_element_description: '||l_element_description);
1178: --
1179: -- If this is a US legislation, use the classification name
1180: -- 'Information'. Otherwise, stick with the classification retrieved
1181: -- above.
1193:
1194: --
1195: l_classification_type := 'Y';
1196:
1197: hr_utility.trace('l_classification_type: '||l_classification_type);
1198:
1199: l_co_element_type_id := create_element(
1200: l_element_name,
1201: l_element_description,
1210: l_skip_rule_formula_id,
1211: null
1212: );
1213:
1214: hr_utility.trace('l_co_element_type_id: '||to_char(l_co_element_type_id));
1215:
1216: l_co_input_value_id := create_input_value(
1217: l_element_name,
1218: l_input_value_name,
1226: l_classification_type,
1227: 'N'
1228: );
1229:
1230: hr_utility.trace('l_co_input_value_id: '||to_char(l_co_input_value_id));
1231:
1232: l_co_date_input_value_id := create_input_value(
1233: l_element_name,
1234: l_date_input_value_name,
1242: l_classification_type,
1243: 'Y'
1244: );
1245:
1246: hr_utility.trace('l_co_date_input_value_id: '||to_char(l_co_date_input_value_id));
1247:
1248: l_co_exp_date_input_value_id := create_input_value(
1249: l_element_name,
1250: l_exp_date_input_value_name,
1258: l_classification_type,
1259: 'Y'
1260: );
1261:
1262: hr_utility.trace('l_co_exp_date_input_value_id: '
1263: ||to_char(l_co_exp_date_input_value_id));
1264:
1265: --
1266: -- and finally the residual element type and input value.
1275: open c_get_lookups('PTO_RES_ELEMENT_DESC');
1276: fetch c_get_lookups into l_element_description;
1277: close c_get_lookups;
1278:
1279: hr_utility.trace('l_element_name: '||l_element_name);
1280: hr_utility.trace('l_element_description: '||l_element_description);
1281:
1282: l_residual_element_type_id := create_element(
1283: l_element_name,
1276: fetch c_get_lookups into l_element_description;
1277: close c_get_lookups;
1278:
1279: hr_utility.trace('l_element_name: '||l_element_name);
1280: hr_utility.trace('l_element_description: '||l_element_description);
1281:
1282: l_residual_element_type_id := create_element(
1283: l_element_name,
1284: l_element_description,
1293: l_skip_rule_formula_id,
1294: null
1295: );
1296:
1297: hr_utility.trace('l_residual_element_type_id: '||to_char(l_residual_element_type_id));
1298:
1299: l_residual_input_value_id := create_input_value(
1300: l_element_name,
1301: l_input_value_name,
1309: l_classification_type,
1310: 'N'
1311: );
1312:
1313: hr_utility.trace('l_residual_input_value_id: '||to_char(l_residual_input_value_id));
1314:
1315: l_residual_date_input_value_id := create_input_value(
1316: l_element_name,
1317: l_date_input_value_name,
1325: l_classification_type,
1326: 'Y'
1327: );
1328:
1329: hr_utility.trace('l_residual_date_input_value_id: '
1330: ||to_char(l_residual_date_input_value_id));
1331:
1332: l_element_name := substr(p_accrual_plan_name||' Payroll Balance', 1, 80);
1333:
1330: ||to_char(l_residual_date_input_value_id));
1331:
1332: l_element_name := substr(p_accrual_plan_name||' Payroll Balance', 1, 80);
1333:
1334: hr_utility.trace('l_element_name: '||l_element_name);
1335:
1336: l_balance_element_type_id := create_element(
1337: l_element_name,
1338: l_element_description,
1347: null,
1348: l_priority
1349: );
1350:
1351: hr_utility.trace('l_balance_element_type_id: '||to_char(l_balance_element_type_id));
1352:
1353: l_balance_input_value_id := create_input_value(
1354: l_element_name,
1355: l_input_value_name,
1363: l_classification_type,
1364: 'N'
1365: );
1366:
1367: hr_utility.trace('l_balance_input_value_id: '||to_char(l_balance_input_value_id));
1368: --
1369: -- Create element type for tagging retrospecive absences
1370: --
1371:
1373: into l_priority
1374: from pay_element_types_f
1375: where element_type_id = l_accrual_plan_element_type_id;
1376:
1377: hr_utility.trace('l_priority: '||to_char(l_priority));
1378:
1379: l_element_name := substr(p_accrual_plan_name||' Tagging', 1, 80);
1380:
1381: l_tagging_element_type_id := create_element(
1392: null,
1393: l_priority
1394: );
1395:
1396: hr_utility.trace('l_tagging_element_type_id: '||to_char(l_tagging_element_type_id));
1397: --
1398: l_uom_code1 := 'N';
1399: l_input_value_name := 'Element Entry ID';
1400:
1411: l_classification_type,
1412: 'N'
1413: );
1414:
1415: hr_utility.trace('l_tagging_input_value_id: '||to_char(l_tagging_input_value_id));
1416:
1417: --
1418: -- See if a link has been defined for the plan's absence element
1419: --
1424: --
1425: -- Create element links for new accrual plan elements,
1426: -- beginning with the plan element itself.
1427: --
1428: hr_utility.set_location(l_proc, 90);
1429:
1430: create_element_link(p_element_type_id => l_accrual_plan_element_type_id,
1431: p_absence_link_rec => l_element_link_rec,
1432: p_legislation_code => l_leg_code);
1433:
1434: --
1435: -- Next, a link for the carry over element
1436: --
1437: hr_utility.set_location(l_proc, 100);
1438:
1439: create_element_link(p_element_type_id => l_co_element_type_id,
1440: p_absence_link_rec => l_element_link_rec,
1441: p_legislation_code => l_leg_code);
1442:
1443: --
1444: -- Next, a link for the residual element
1445: --
1446: hr_utility.set_location(l_proc, 110);
1447:
1448: create_element_link(p_element_type_id => l_residual_element_type_id,
1449: p_absence_link_rec => l_element_link_rec,
1450: p_legislation_code => l_leg_code);
1451:
1452: --
1453: -- A link for the balance element
1454: --
1455: hr_utility.set_location(l_proc, 120);
1456:
1457: create_element_link(p_element_type_id => l_balance_element_type_id,
1458: p_absence_link_rec => l_element_link_rec,
1459: p_legislation_code => l_leg_code);
1460:
1461: --
1462: -- Finally, a link for the tagging element
1463: --
1464: hr_utility.set_location(l_proc, 130);
1465:
1466: create_element_link(p_element_type_id => l_tagging_element_type_id,
1467: p_absence_link_rec => l_element_link_rec,
1468: p_legislation_code => l_leg_code);
1471: end loop;
1472:
1473: if l_count > 0 then
1474: --
1475: hr_utility.set_location(l_proc, 140);
1476: l_no_link_message := false;
1477: --
1478: else
1479: --
1480: --
1481: -- If no link was found, we will need to inform the user at
1482: -- a later stage
1483: --
1484: hr_utility.set_location(l_proc, 150);
1485: l_no_link_message := true;
1486: --
1487: end if;
1488:
1487: end if;
1488:
1489: if p_balance_dimension_id is not null then
1490:
1491: hr_utility.set_location(l_proc, 160);
1492: --
1493: -- Ideally the balance_dimension_id should be validated in the
1494: -- row-handler but the defined_balance_id is required before
1495: -- calling the row-handler and so the validation must be
1498: chk_balance_dimension_id
1499: (p_balance_dimension_id => p_balance_dimension_id
1500: ,p_business_group_id => p_business_group_id);
1501:
1502: hr_utility.set_location(l_proc, 170);
1503:
1504: l_user := fnd_profile.value('USER');
1505: l_effective_start_date := hr_general.start_of_time;
1506: l_effective_end_date := hr_general.end_of_time;
1561: X_Attribute20 => null,
1562: X_Balance_Category_Id => l_balance_category_id
1563: );
1564:
1565: hr_utility.set_location(l_proc, 180);
1566:
1567: pay_balance_feeds_f_pkg.Insert_Row(
1568: X_Rowid => l_rowid,
1569: X_Balance_Feed_Id => l_balance_feed_id,
1576: X_Scale => 1,
1577: X_Legislation_Subgroup => null
1578: );
1579:
1580: hr_utility.set_location(l_proc, 190);
1581:
1582: pay_defined_balances_pkg.Insert_Row(
1583: X_Rowid => l_rowid,
1584: X_Defined_Balance_Id => l_defined_balance_id,
1593: --
1594: -- Call procedure to create new Oracle Payroll fomrula.
1595: --
1596:
1597: hr_utility.set_location(l_proc, 200);
1598:
1599: create_payroll_formula(
1600: p_formula_id => l_payroll_formula_id,
1601: p_effective_start_date => l_effective_start_date,
1605: p_business_group_id => p_business_group_id,
1606: p_legislation_code => l_leg_code
1607: );
1608:
1609: hr_utility.set_location(l_proc, 210);
1610: --
1611: -- Set up the status processing rules and formula result rules for the
1612: -- recurring accrual plan element.
1613: --
1630: X_Created_By => l_user,
1631: X_Creation_Date => sysdate
1632: );
1633:
1634: hr_utility.set_location(l_proc, 220);
1635:
1636: pay_formula_result_rules_pkg.insert_row(
1637: p_Rowid => l_rowid,
1638: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
1651: p_session_date => sysdate
1652: );
1653:
1654: l_formula_result_rule_id := null;
1655: hr_utility.set_location(l_proc, 230);
1656:
1657: pay_formula_result_rules_pkg.insert_row(
1658: p_Rowid => l_rowid,
1659: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
1671: p_Created_By => l_user,
1672: p_session_date => sysdate
1673: );
1674:
1675: hr_utility.set_location(l_proc, 240);
1676: --
1677: -- Set up the status processing rules and formula result rules for the
1678: -- tagging element.
1679: --
1688:
1689: l_status_processing_rule_id := null;
1690: l_formula_result_rule_id := null;
1691:
1692: hr_utility.trace('l_tagging_formula_id: '||to_char(l_tagging_formula_id));
1693:
1694: pay_status_rules_pkg.insert_row (
1695: X_Rowid => l_rowid,
1696: X_Status_Processing_Rule_Id => l_status_processing_rule_id,
1710: X_Created_By => l_user,
1711: X_Creation_Date => sysdate
1712: );
1713:
1714: hr_utility.set_location(l_proc, 250);
1715:
1716: pay_formula_result_rules_pkg.insert_row(
1717: p_Rowid => l_rowid,
1718: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
1730: p_Created_By => l_user,
1731: p_session_date => sysdate
1732: );
1733:
1734: hr_utility.set_location(l_proc, 260);
1735:
1736: end if;
1737:
1738: hr_utility.set_location(l_proc, 270);
1734: hr_utility.set_location(l_proc, 260);
1735:
1736: end if;
1737:
1738: hr_utility.set_location(l_proc, 270);
1739: --
1740: -- Now call the insert row handler for pay accrual plans
1741: --
1742: pay_pap_ins.ins
1798: ,p_object_version_number => l_object_version_number
1799: ,p_check_accrual_ff => p_check_accrual_ff
1800: );
1801:
1802: hr_utility.set_location(l_proc, 280);
1803: --
1804: -- MLS changes
1805: hr_accrual_plan_tl.ins
1806: (p_accrual_plan_id => l_accrual_plan_id
1806: (p_accrual_plan_id => l_accrual_plan_id
1807: , p_accrual_plan_name => p_accrual_plan_name
1808: , p_description => p_description);
1809: -- MLS changes
1810: hr_utility.set_location(l_proc, 285);
1811: --
1812: -- Insert the two default elements of the plan into the
1813: -- net_calculation_rules table, beginning with
1814: -- the pto input value (always reduces entitlement)
1822: p_date_input_value_id => null,
1823: p_object_version_number => l_dummy_number
1824: );
1825:
1826: hr_utility.set_location(l_proc, 290);
1827: --
1828: -- insert the carried over input value (always increases entitlement)
1829: --
1830: pay_ncr_api.create_pay_net_calc_rule (
1836: p_date_input_value_id => l_co_date_input_value_id,
1837: p_object_version_number => l_dummy_number
1838: );
1839:
1840: hr_utility.set_location(l_proc, 300);
1841: --
1842: -- Make PAY VALUE input value non-updateable
1843: --
1844: UPDATE pay_input_values_f
1852: AND piv.name = 'Pay Value'
1853: );
1854:
1855:
1856: hr_utility.set_location(l_proc, 310);
1857:
1858: --
1859: -- Call After Process User Hook
1860: --
1927: ,p_hook_type => 'AP'
1928: );
1929: end;
1930:
1931: hr_utility.set_location(l_proc, 320);
1932:
1933: --
1934: -- When in validation only mode raise the Validate_Enabled exception
1935: --
1957:
1958: --
1959: -- Pipe the main IN OUT / OUT parameters for ease of debugging.
1960: --
1961: hr_utility.trace(' ');
1962: hr_utility.trace(' --------------------------------'||
1963: '---------------------------------');
1964: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1965: ' VALUE');
1958: --
1959: -- Pipe the main IN OUT / OUT parameters for ease of debugging.
1960: --
1961: hr_utility.trace(' ');
1962: hr_utility.trace(' --------------------------------'||
1963: '---------------------------------');
1964: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1965: ' VALUE');
1966: hr_utility.trace(' --------------------------------'||
1960: --
1961: hr_utility.trace(' ');
1962: hr_utility.trace(' --------------------------------'||
1963: '---------------------------------');
1964: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1965: ' VALUE');
1966: hr_utility.trace(' --------------------------------'||
1967: '+--------------------------------');
1968: hr_utility.trace(' p_accrual_plan_id '||
1962: hr_utility.trace(' --------------------------------'||
1963: '---------------------------------');
1964: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1965: ' VALUE');
1966: hr_utility.trace(' --------------------------------'||
1967: '+--------------------------------');
1968: hr_utility.trace(' p_accrual_plan_id '||
1969: to_char(p_accrual_plan_id));
1970: hr_utility.trace(' p_accrual_plan_element_type_id '||
1964: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1965: ' VALUE');
1966: hr_utility.trace(' --------------------------------'||
1967: '+--------------------------------');
1968: hr_utility.trace(' p_accrual_plan_id '||
1969: to_char(p_accrual_plan_id));
1970: hr_utility.trace(' p_accrual_plan_element_type_id '||
1971: to_char(p_accrual_plan_element_type_id));
1972: hr_utility.trace(' p_co_element_type_id '||
1966: hr_utility.trace(' --------------------------------'||
1967: '+--------------------------------');
1968: hr_utility.trace(' p_accrual_plan_id '||
1969: to_char(p_accrual_plan_id));
1970: hr_utility.trace(' p_accrual_plan_element_type_id '||
1971: to_char(p_accrual_plan_element_type_id));
1972: hr_utility.trace(' p_co_element_type_id '||
1973: to_char(p_co_element_type_id));
1974: hr_utility.trace(' p_co_input_value_id '||
1968: hr_utility.trace(' p_accrual_plan_id '||
1969: to_char(p_accrual_plan_id));
1970: hr_utility.trace(' p_accrual_plan_element_type_id '||
1971: to_char(p_accrual_plan_element_type_id));
1972: hr_utility.trace(' p_co_element_type_id '||
1973: to_char(p_co_element_type_id));
1974: hr_utility.trace(' p_co_input_value_id '||
1975: to_char(p_co_input_value_id));
1976: hr_utility.trace(' p_co_date_input_value_id '||
1970: hr_utility.trace(' p_accrual_plan_element_type_id '||
1971: to_char(p_accrual_plan_element_type_id));
1972: hr_utility.trace(' p_co_element_type_id '||
1973: to_char(p_co_element_type_id));
1974: hr_utility.trace(' p_co_input_value_id '||
1975: to_char(p_co_input_value_id));
1976: hr_utility.trace(' p_co_date_input_value_id '||
1977: to_char(p_co_date_input_value_id));
1978: hr_utility.trace(' p_co_exp_date_input_value_id '||
1972: hr_utility.trace(' p_co_element_type_id '||
1973: to_char(p_co_element_type_id));
1974: hr_utility.trace(' p_co_input_value_id '||
1975: to_char(p_co_input_value_id));
1976: hr_utility.trace(' p_co_date_input_value_id '||
1977: to_char(p_co_date_input_value_id));
1978: hr_utility.trace(' p_co_exp_date_input_value_id '||
1979: to_char(p_co_exp_date_input_value_id));
1980: hr_utility.trace(' p_residual_element_type_id '||
1974: hr_utility.trace(' p_co_input_value_id '||
1975: to_char(p_co_input_value_id));
1976: hr_utility.trace(' p_co_date_input_value_id '||
1977: to_char(p_co_date_input_value_id));
1978: hr_utility.trace(' p_co_exp_date_input_value_id '||
1979: to_char(p_co_exp_date_input_value_id));
1980: hr_utility.trace(' p_residual_element_type_id '||
1981: to_char(p_residual_element_type_id));
1982: hr_utility.trace(' p_residual_input_value_id '||
1976: hr_utility.trace(' p_co_date_input_value_id '||
1977: to_char(p_co_date_input_value_id));
1978: hr_utility.trace(' p_co_exp_date_input_value_id '||
1979: to_char(p_co_exp_date_input_value_id));
1980: hr_utility.trace(' p_residual_element_type_id '||
1981: to_char(p_residual_element_type_id));
1982: hr_utility.trace(' p_residual_input_value_id '||
1983: to_char(p_residual_input_value_id));
1984: hr_utility.trace(' p_residual_date_input_value_id '||
1978: hr_utility.trace(' p_co_exp_date_input_value_id '||
1979: to_char(p_co_exp_date_input_value_id));
1980: hr_utility.trace(' p_residual_element_type_id '||
1981: to_char(p_residual_element_type_id));
1982: hr_utility.trace(' p_residual_input_value_id '||
1983: to_char(p_residual_input_value_id));
1984: hr_utility.trace(' p_residual_date_input_value_id '||
1985: to_char(p_residual_date_input_value_id));
1986: hr_utility.trace(' p_payroll_formula_id '||
1980: hr_utility.trace(' p_residual_element_type_id '||
1981: to_char(p_residual_element_type_id));
1982: hr_utility.trace(' p_residual_input_value_id '||
1983: to_char(p_residual_input_value_id));
1984: hr_utility.trace(' p_residual_date_input_value_id '||
1985: to_char(p_residual_date_input_value_id));
1986: hr_utility.trace(' p_payroll_formula_id '||
1987: to_char(p_payroll_formula_id));
1988: hr_utility.trace(' p_defined_balance_id '||
1982: hr_utility.trace(' p_residual_input_value_id '||
1983: to_char(p_residual_input_value_id));
1984: hr_utility.trace(' p_residual_date_input_value_id '||
1985: to_char(p_residual_date_input_value_id));
1986: hr_utility.trace(' p_payroll_formula_id '||
1987: to_char(p_payroll_formula_id));
1988: hr_utility.trace(' p_defined_balance_id '||
1989: to_char(p_defined_balance_id));
1990: hr_utility.trace(' p_balance_element_type_id '||
1984: hr_utility.trace(' p_residual_date_input_value_id '||
1985: to_char(p_residual_date_input_value_id));
1986: hr_utility.trace(' p_payroll_formula_id '||
1987: to_char(p_payroll_formula_id));
1988: hr_utility.trace(' p_defined_balance_id '||
1989: to_char(p_defined_balance_id));
1990: hr_utility.trace(' p_balance_element_type_id '||
1991: to_char(p_balance_element_type_id));
1992: hr_utility.trace(' p_tagging_element_type_id '||
1986: hr_utility.trace(' p_payroll_formula_id '||
1987: to_char(p_payroll_formula_id));
1988: hr_utility.trace(' p_defined_balance_id '||
1989: to_char(p_defined_balance_id));
1990: hr_utility.trace(' p_balance_element_type_id '||
1991: to_char(p_balance_element_type_id));
1992: hr_utility.trace(' p_tagging_element_type_id '||
1993: to_char(p_tagging_element_type_id));
1994: hr_utility.trace(' p_object_version_number '||
1988: hr_utility.trace(' p_defined_balance_id '||
1989: to_char(p_defined_balance_id));
1990: hr_utility.trace(' p_balance_element_type_id '||
1991: to_char(p_balance_element_type_id));
1992: hr_utility.trace(' p_tagging_element_type_id '||
1993: to_char(p_tagging_element_type_id));
1994: hr_utility.trace(' p_object_version_number '||
1995: to_char(p_object_version_number));
1996: IF p_no_link_message THEN
1990: hr_utility.trace(' p_balance_element_type_id '||
1991: to_char(p_balance_element_type_id));
1992: hr_utility.trace(' p_tagging_element_type_id '||
1993: to_char(p_tagging_element_type_id));
1994: hr_utility.trace(' p_object_version_number '||
1995: to_char(p_object_version_number));
1996: IF p_no_link_message THEN
1997: hr_utility.trace(' p_no_link_message '||
1998: 'TRUE');
1993: to_char(p_tagging_element_type_id));
1994: hr_utility.trace(' p_object_version_number '||
1995: to_char(p_object_version_number));
1996: IF p_no_link_message THEN
1997: hr_utility.trace(' p_no_link_message '||
1998: 'TRUE');
1999: ELSE
2000: hr_utility.trace(' p_no_link_message '||
2001: 'FALSE');
1996: IF p_no_link_message THEN
1997: hr_utility.trace(' p_no_link_message '||
1998: 'TRUE');
1999: ELSE
2000: hr_utility.trace(' p_no_link_message '||
2001: 'FALSE');
2002: END IF;
2003: IF p_check_accrual_ff THEN
2004: hr_utility.trace(' p_check_accrual_ff '||
2000: hr_utility.trace(' p_no_link_message '||
2001: 'FALSE');
2002: END IF;
2003: IF p_check_accrual_ff THEN
2004: hr_utility.trace(' p_check_accrual_ff '||
2005: 'TRUE');
2006: ELSE
2007: hr_utility.trace(' p_check_accrual_ff '||
2008: 'FALSE');
2003: IF p_check_accrual_ff THEN
2004: hr_utility.trace(' p_check_accrual_ff '||
2005: 'TRUE');
2006: ELSE
2007: hr_utility.trace(' p_check_accrual_ff '||
2008: 'FALSE');
2009: END IF;
2010: hr_utility.trace(' --------------------------------'||
2011: '---------------------------------');
2006: ELSE
2007: hr_utility.trace(' p_check_accrual_ff '||
2008: 'FALSE');
2009: END IF;
2010: hr_utility.trace(' --------------------------------'||
2011: '---------------------------------');
2012: hr_utility.trace(' ');
2013:
2014: hr_utility.set_location(' Leaving:'||l_proc, 70);
2008: 'FALSE');
2009: END IF;
2010: hr_utility.trace(' --------------------------------'||
2011: '---------------------------------');
2012: hr_utility.trace(' ');
2013:
2014: hr_utility.set_location(' Leaving:'||l_proc, 70);
2015:
2016: EXCEPTION
2010: hr_utility.trace(' --------------------------------'||
2011: '---------------------------------');
2012: hr_utility.trace(' ');
2013:
2014: hr_utility.set_location(' Leaving:'||l_proc, 70);
2015:
2016: EXCEPTION
2017:
2018: WHEN hr_api.validate_enabled THEN
2040: p_balance_element_type_id := null;
2041: p_tagging_element_type_id := null;
2042: p_object_version_number := null;
2043:
2044: hr_utility.set_location(' Leaving:'||l_proc, 330);
2045:
2046: WHEN OTHERS THEN
2047: --
2048: -- A validation or unexpected error has occured
2065: p_object_version_number := null;
2066: p_no_link_message := null;
2067: p_check_accrual_ff := null;
2068:
2069: hr_utility.set_location(' Leaving:'||l_proc, 340);
2070: RAISE;
2071:
2072: END create_accrual_plan;
2073: --
2230:
2231: l_proc := g_package||'update_accrual_plan';
2232: l_temp_ovn := p_object_version_number;
2233:
2234: hr_utility.set_location('Entering:'|| l_proc, 10);
2235:
2236: --
2237: -- Pipe the main IN / IN OUT parameters for ease of debugging.
2238: --
2235:
2236: --
2237: -- Pipe the main IN / IN OUT parameters for ease of debugging.
2238: --
2239: hr_utility.trace(' ');
2240: hr_utility.trace(' --------------------------------'||
2241: '---------------------------------');
2242: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2243: ' VALUE');
2236: --
2237: -- Pipe the main IN / IN OUT parameters for ease of debugging.
2238: --
2239: hr_utility.trace(' ');
2240: hr_utility.trace(' --------------------------------'||
2241: '---------------------------------');
2242: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2243: ' VALUE');
2244: hr_utility.trace(' --------------------------------'||
2238: --
2239: hr_utility.trace(' ');
2240: hr_utility.trace(' --------------------------------'||
2241: '---------------------------------');
2242: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2243: ' VALUE');
2244: hr_utility.trace(' --------------------------------'||
2245: '+--------------------------------');
2246: IF p_validate THEN
2240: hr_utility.trace(' --------------------------------'||
2241: '---------------------------------');
2242: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2243: ' VALUE');
2244: hr_utility.trace(' --------------------------------'||
2245: '+--------------------------------');
2246: IF p_validate THEN
2247: hr_utility.trace(' p_validate '||
2248: 'TRUE');
2243: ' VALUE');
2244: hr_utility.trace(' --------------------------------'||
2245: '+--------------------------------');
2246: IF p_validate THEN
2247: hr_utility.trace(' p_validate '||
2248: 'TRUE');
2249: ELSE
2250: hr_utility.trace(' p_validate '||
2251: 'FALSE');
2246: IF p_validate THEN
2247: hr_utility.trace(' p_validate '||
2248: 'TRUE');
2249: ELSE
2250: hr_utility.trace(' p_validate '||
2251: 'FALSE');
2252: END IF;
2253: hr_utility.trace(' p_effective_date '||
2254: to_char(p_effective_date));
2249: ELSE
2250: hr_utility.trace(' p_validate '||
2251: 'FALSE');
2252: END IF;
2253: hr_utility.trace(' p_effective_date '||
2254: to_char(p_effective_date));
2255: hr_utility.trace(' p_accrual_plan_id '||
2256: to_char(p_accrual_plan_id));
2257: hr_utility.trace(' p_pto_input_value_id '||
2251: 'FALSE');
2252: END IF;
2253: hr_utility.trace(' p_effective_date '||
2254: to_char(p_effective_date));
2255: hr_utility.trace(' p_accrual_plan_id '||
2256: to_char(p_accrual_plan_id));
2257: hr_utility.trace(' p_pto_input_value_id '||
2258: to_char(p_pto_input_value_id));
2259: hr_utility.trace(' p_accrual_category '||
2253: hr_utility.trace(' p_effective_date '||
2254: to_char(p_effective_date));
2255: hr_utility.trace(' p_accrual_plan_id '||
2256: to_char(p_accrual_plan_id));
2257: hr_utility.trace(' p_pto_input_value_id '||
2258: to_char(p_pto_input_value_id));
2259: hr_utility.trace(' p_accrual_category '||
2260: p_accrual_category);
2261: hr_utility.trace(' p_accrual_start '||
2255: hr_utility.trace(' p_accrual_plan_id '||
2256: to_char(p_accrual_plan_id));
2257: hr_utility.trace(' p_pto_input_value_id '||
2258: to_char(p_pto_input_value_id));
2259: hr_utility.trace(' p_accrual_category '||
2260: p_accrual_category);
2261: hr_utility.trace(' p_accrual_start '||
2262: p_accrual_start);
2263: hr_utility.trace(' p_ineligible_period_length '||
2257: hr_utility.trace(' p_pto_input_value_id '||
2258: to_char(p_pto_input_value_id));
2259: hr_utility.trace(' p_accrual_category '||
2260: p_accrual_category);
2261: hr_utility.trace(' p_accrual_start '||
2262: p_accrual_start);
2263: hr_utility.trace(' p_ineligible_period_length '||
2264: to_char(p_ineligible_period_length));
2265: hr_utility.trace(' p_ineligible_period_type '||
2259: hr_utility.trace(' p_accrual_category '||
2260: p_accrual_category);
2261: hr_utility.trace(' p_accrual_start '||
2262: p_accrual_start);
2263: hr_utility.trace(' p_ineligible_period_length '||
2264: to_char(p_ineligible_period_length));
2265: hr_utility.trace(' p_ineligible_period_type '||
2266: p_ineligible_period_type);
2267: hr_utility.trace(' p_accrual_formula_id '||
2261: hr_utility.trace(' p_accrual_start '||
2262: p_accrual_start);
2263: hr_utility.trace(' p_ineligible_period_length '||
2264: to_char(p_ineligible_period_length));
2265: hr_utility.trace(' p_ineligible_period_type '||
2266: p_ineligible_period_type);
2267: hr_utility.trace(' p_accrual_formula_id '||
2268: to_char(p_accrual_formula_id));
2269: hr_utility.trace(' p_co_formula_id '||
2263: hr_utility.trace(' p_ineligible_period_length '||
2264: to_char(p_ineligible_period_length));
2265: hr_utility.trace(' p_ineligible_period_type '||
2266: p_ineligible_period_type);
2267: hr_utility.trace(' p_accrual_formula_id '||
2268: to_char(p_accrual_formula_id));
2269: hr_utility.trace(' p_co_formula_id '||
2270: to_char(p_co_formula_id));
2271: hr_utility.trace(' p_description '||
2265: hr_utility.trace(' p_ineligible_period_type '||
2266: p_ineligible_period_type);
2267: hr_utility.trace(' p_accrual_formula_id '||
2268: to_char(p_accrual_formula_id));
2269: hr_utility.trace(' p_co_formula_id '||
2270: to_char(p_co_formula_id));
2271: hr_utility.trace(' p_description '||
2272: p_description);
2273: hr_utility.trace(' p_ineligibility_formula_id '||
2267: hr_utility.trace(' p_accrual_formula_id '||
2268: to_char(p_accrual_formula_id));
2269: hr_utility.trace(' p_co_formula_id '||
2270: to_char(p_co_formula_id));
2271: hr_utility.trace(' p_description '||
2272: p_description);
2273: hr_utility.trace(' p_ineligibility_formula_id '||
2274: to_char(p_ineligibility_formula_id));
2275: hr_utility.trace(' p_balance_dimension_id '||
2269: hr_utility.trace(' p_co_formula_id '||
2270: to_char(p_co_formula_id));
2271: hr_utility.trace(' p_description '||
2272: p_description);
2273: hr_utility.trace(' p_ineligibility_formula_id '||
2274: to_char(p_ineligibility_formula_id));
2275: hr_utility.trace(' p_balance_dimension_id '||
2276: to_char(p_balance_dimension_id));
2277: hr_utility.trace(' p_information_category '||
2271: hr_utility.trace(' p_description '||
2272: p_description);
2273: hr_utility.trace(' p_ineligibility_formula_id '||
2274: to_char(p_ineligibility_formula_id));
2275: hr_utility.trace(' p_balance_dimension_id '||
2276: to_char(p_balance_dimension_id));
2277: hr_utility.trace(' p_information_category '||
2278: p_information_category);
2279: hr_utility.trace(' --------------------------------'||
2273: hr_utility.trace(' p_ineligibility_formula_id '||
2274: to_char(p_ineligibility_formula_id));
2275: hr_utility.trace(' p_balance_dimension_id '||
2276: to_char(p_balance_dimension_id));
2277: hr_utility.trace(' p_information_category '||
2278: p_information_category);
2279: hr_utility.trace(' --------------------------------'||
2280: '---------------------------------');
2281: hr_utility.trace(' ');
2275: hr_utility.trace(' p_balance_dimension_id '||
2276: to_char(p_balance_dimension_id));
2277: hr_utility.trace(' p_information_category '||
2278: p_information_category);
2279: hr_utility.trace(' --------------------------------'||
2280: '---------------------------------');
2281: hr_utility.trace(' ');
2282:
2283: --
2277: hr_utility.trace(' p_information_category '||
2278: p_information_category);
2279: hr_utility.trace(' --------------------------------'||
2280: '---------------------------------');
2281: hr_utility.trace(' ');
2282:
2283: --
2284: -- Issue a savepoint
2285: --
2342: ,p_hook_type => 'BP'
2343: );
2344: end;
2345:
2346: hr_utility.set_location(l_proc, 20);
2347:
2348: --
2349: -- Validation in addition to Row Handlers
2350: --
2356: IF csr_get_accrual_plan%NOTFOUND THEN
2357: --
2358: -- p_accrual_plan_id does not exist so error.
2359: --
2360: hr_utility.set_location(l_proc, 30);
2361: CLOSE csr_get_accrual_plan;
2362: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
2363: fnd_message.raise_error;
2364:
2365: END IF;
2366:
2367: CLOSE csr_get_accrual_plan;
2368:
2369: hr_utility.set_location(l_proc, 40);
2370:
2371: IF l_plan_rec.defined_balance_id IS NULL AND
2372: p_balance_dimension_id IS NOT NULL AND
2373: p_balance_dimension_id <> hr_api.g_number THEN
2383: into l_bg_name, l_leg_code, l_curr_code
2384: from per_business_groups
2385: where business_group_id = l_plan_rec.business_group_id;
2386:
2387: hr_utility.trace('l_bg_name: '||l_bg_name);
2388: hr_utility.trace('l_leg_code: '||l_leg_code);
2389: hr_utility.trace('l_curr_code: '||l_curr_code);
2390:
2391: l_classification_name := 'Information';
2384: from per_business_groups
2385: where business_group_id = l_plan_rec.business_group_id;
2386:
2387: hr_utility.trace('l_bg_name: '||l_bg_name);
2388: hr_utility.trace('l_leg_code: '||l_leg_code);
2389: hr_utility.trace('l_curr_code: '||l_curr_code);
2390:
2391: l_classification_name := 'Information';
2392:
2385: where business_group_id = l_plan_rec.business_group_id;
2386:
2387: hr_utility.trace('l_bg_name: '||l_bg_name);
2388: hr_utility.trace('l_leg_code: '||l_leg_code);
2389: hr_utility.trace('l_curr_code: '||l_curr_code);
2390:
2391: l_classification_name := 'Information';
2392:
2393: open c_class_id('Information', l_plan_rec.business_group_id, l_leg_code);
2393: open c_class_id('Information', l_plan_rec.business_group_id, l_leg_code);
2394: fetch c_class_id into l_primary_classification_id;
2395: close c_class_id;
2396:
2397: hr_utility.set_location(l_proc, 50);
2398:
2399: select processing_priority + 1
2400: into l_priority
2401: from pay_element_types_f
2400: into l_priority
2401: from pay_element_types_f
2402: where element_type_id = l_plan_rec.accrual_plan_element_type_id;
2403:
2404: hr_utility.trace('l_priority: '||to_char(l_priority));
2405:
2406: l_leg_code := null;
2407:
2408: --
2415: from hr_lookups hl
2416: where hl.lookup_type='TERMINATION_RULE'
2417: and hl.lookup_code='F'; -- Final Close
2418:
2419: hr_utility.trace('l_post_termination_rule: '||l_post_termination_rule);
2420:
2421: exception
2422: --
2423: when no_data_found then
2420:
2421: exception
2422: --
2423: when no_data_found then
2424: hr_utility.set_location(l_proc, 60);
2425: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
2426: hr_utility.raise_error;
2427: --
2428: end;
2421: exception
2422: --
2423: when no_data_found then
2424: hr_utility.set_location(l_proc, 60);
2425: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
2426: hr_utility.raise_error;
2427: --
2428: end;
2429:
2422: --
2423: when no_data_found then
2424: hr_utility.set_location(l_proc, 60);
2425: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
2426: hr_utility.raise_error;
2427: --
2428: end;
2429:
2430: l_classification_type := 'Y';
2431:
2432: --
2433: if l_plan_rec.accrual_units_of_measure = 'D' then
2434: --
2435: hr_utility.set_location(l_proc, 70);
2436: open c_get_lookups('PTO_DAYS');
2437: l_uom_code := 'ND';
2438: --
2439: else
2437: l_uom_code := 'ND';
2438: --
2439: else
2440: --
2441: hr_utility.set_location(l_proc, 80);
2442: open c_get_lookups('PTO_HOURS');
2443: l_uom_code := 'H_DECIMAL3';
2444: --
2445: end if;
2446:
2447: fetch c_get_lookups into l_input_value_name;
2448: close c_get_lookups;
2449:
2450: hr_utility.trace('l_input_value_name: '||l_input_value_name);
2451:
2452: IF l_plan_rec.balance_element_type_id IS NULL THEN
2453: --
2454: -- This plan was created prior to the balance enhancements and
2458: --
2459: l_element_name := substr(l_plan_rec.accrual_plan_name
2460: ||' Payroll Balance', 1, 80);
2461:
2462: hr_utility.trace('l_element_name: '||l_element_name);
2463:
2464: l_plan_rec.balance_element_type_id := create_element(
2465: l_element_name,
2466: null,
2475: null,
2476: l_priority
2477: );
2478:
2479: hr_utility.trace('l_plan_rec.balance_element_type_id: '
2480: ||to_char(l_plan_rec.balance_element_type_id));
2481:
2482: l_balance_input_value_id := create_input_value(
2483: l_element_name,
2492: l_classification_type,
2493: 'N'
2494: );
2495:
2496: hr_utility.trace('l_balance_input_value_id: '||to_char(l_balance_input_value_id));
2497:
2498: for l_element_link_rec in c_absence_element_link_id loop
2499: --
2500: --
2508: end loop;
2509:
2510: END IF;
2511:
2512: hr_utility.set_location(l_proc, 90);
2513:
2514: IF l_plan_rec.tagging_element_type_id IS NULL THEN
2515: --
2516: -- This plan was created prior to the balance enhancements and
2522: into l_priority
2523: from pay_element_types_f
2524: where element_type_id = l_plan_rec.accrual_plan_element_type_id;
2525:
2526: hr_utility.trace('l_priority: '||to_char(l_priority));
2527:
2528: l_element_name := substr(l_plan_rec.accrual_plan_name||' Tagging', 1, 80);
2529:
2530: hr_utility.trace('l_element_name: '||l_element_name);
2526: hr_utility.trace('l_priority: '||to_char(l_priority));
2527:
2528: l_element_name := substr(l_plan_rec.accrual_plan_name||' Tagging', 1, 80);
2529:
2530: hr_utility.trace('l_element_name: '||l_element_name);
2531:
2532: l_plan_rec.tagging_element_type_id := create_element(
2533: l_element_name,
2534: null,
2543: null,
2544: l_priority
2545: );
2546:
2547: hr_utility.trace('l_plan_rec.tagging_element_type_id: '
2548: ||to_char(l_plan_rec.tagging_element_type_id));
2549: l_uom_code1 := 'N';
2550: l_input_value_name := 'Element Entry ID';
2551:
2562: l_classification_type,
2563: 'N'
2564: );
2565:
2566: hr_utility.trace('l_tagging_input_value_id: '||to_char(l_tagging_input_value_id));
2567:
2568: for l_element_link_rec in c_absence_element_link_id loop
2569: --
2570: -- Create a link for the tagging element
2577: end loop;
2578:
2579: END IF;
2580:
2581: hr_utility.set_location(l_proc, 100);
2582:
2583: l_user := fnd_profile.value('USER');
2584: l_effective_start_date := hr_general.start_of_time;
2585: l_effective_end_date := hr_general.end_of_time;
2583: l_user := fnd_profile.value('USER');
2584: l_effective_start_date := hr_general.start_of_time;
2585: l_effective_end_date := hr_general.end_of_time;
2586:
2587: hr_utility.trace('l_user: '||l_user);
2588: --
2589: -- Now set up the balance information. This requires rows to be inserted in
2590: -- pay_balance_feeds, pay_balace_types, and pay_defined_balances. We will
2591: -- make use of the seeded balance dimension, route etc.
2641: X_Attribute20 => null,
2642: X_Balance_Category_Id => l_balance_category_id
2643: );
2644:
2645: hr_utility.set_location(l_proc, 100);
2646:
2647: select input_value_id
2648: into l_balance_input_value_id
2649: from pay_input_values_f
2649: from pay_input_values_f
2650: where element_type_id = l_plan_rec.balance_element_type_id
2651: and uom = l_uom_code;
2652:
2653: hr_utility.trace('l_balance_input_value_id: '||to_char(l_balance_input_value_id));
2654:
2655: pay_balance_feeds_f_pkg.Insert_Row(
2656: X_Rowid => l_rowid,
2657: X_Balance_Feed_Id => l_balance_feed_id,
2664: X_Scale => 1,
2665: X_Legislation_Subgroup => null
2666: );
2667:
2668: hr_utility.set_location(l_proc, 110);
2669:
2670: pay_defined_balances_pkg.Insert_Row(
2671: X_Rowid => l_rowid,
2672: X_Defined_Balance_Id => l_plan_rec.defined_balance_id,
2677: X_Force_Latest_Balance_Flag=> 'N',
2678: X_Legislation_Subgroup => null
2679: );
2680:
2681: hr_utility.set_location(l_proc, 120);
2682:
2683: --
2684: -- Call procedure to create new Oracle Payroll fomrula.
2685: --
2692: p_business_group_id => l_plan_rec.business_group_id,
2693: p_legislation_code => l_leg_code
2694: );
2695:
2696: hr_utility.set_location(l_proc, 130);
2697:
2698: --
2699: -- Set up the status processing rules and formula result rules for the
2700: -- recurring accrual plan element.
2718: X_Created_By => l_user,
2719: X_Creation_Date => sysdate
2720: );
2721:
2722: hr_utility.set_location(l_proc, 140);
2723:
2724: pay_formula_result_rules_pkg.insert_row
2725: (p_Rowid => l_rowid,
2726: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
2746: from pay_input_values_f
2747: where element_type_id = l_plan_rec.tagging_element_type_id
2748: and uom = 'N';
2749:
2750: hr_utility.trace('l_tagging_input_value_id: '||to_char(l_tagging_input_value_id));
2751:
2752: pay_formula_result_rules_pkg.insert_row
2753: (p_Rowid => l_rowid,
2754: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
2779: where ff.formula_type_id = ft.formula_type_id
2780: and ft.formula_type_name = 'Oracle Payroll'
2781: and ff.formula_name = 'PTO_TAGGING_FORMULA';
2782:
2783: hr_utility.trace('l_tagging_formula_id: '||to_char(l_tagging_formula_id));
2784:
2785: l_status_processing_rule_id := null;
2786: l_formula_result_rule_id := null;
2787:
2804: X_Created_By => l_user,
2805: X_Creation_Date => sysdate
2806: );
2807:
2808: hr_utility.set_location(l_proc, 150);
2809:
2810: pay_formula_result_rules_pkg.insert_row
2811: (p_Rowid => l_rowid,
2812: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
2824: p_Created_By => l_user,
2825: p_session_date => sysdate
2826: );
2827:
2828: hr_utility.set_location(l_proc, 160);
2829:
2830: end if;
2831:
2832: l_object_version_number := p_object_version_number;
2830: end if;
2831:
2832: l_object_version_number := p_object_version_number;
2833:
2834: hr_utility.set_location(l_proc, 170);
2835:
2836: pay_pap_upd.upd
2837: (p_effective_date => p_effective_date,
2838: p_accrual_plan_id => p_accrual_plan_id,
2883: p_object_version_number => l_object_version_number,
2884: p_check_accrual_ff => p_check_accrual_ff
2885: );
2886:
2887: hr_utility.set_location(l_proc, 180);
2888: --
2889: -- MLS changes
2890: hr_accrual_plan_tl.upd
2891: (p_accrual_plan_id => p_accrual_plan_id
2890: hr_accrual_plan_tl.upd
2891: (p_accrual_plan_id => p_accrual_plan_id
2892: , p_description => p_description);
2893: -- MLS changes
2894: hr_utility.set_location(l_proc, 185);
2895: --
2896:
2897: if p_pto_input_value_id <> hr_api.g_number
2898: and p_pto_input_value_id <> pay_pap_shd.g_old_rec.pto_input_value_id then
2912: --
2913: open c_get_ncr(p_pto_input_value_id);
2914: fetch c_get_ncr into l_rec;
2915:
2916: hr_utility.set_location(l_proc, 190);
2917:
2918: if c_get_ncr%notfound then
2919: --
2920: hr_utility.set_location(l_proc, 200);
2916: hr_utility.set_location(l_proc, 190);
2917:
2918: if c_get_ncr%notfound then
2919: --
2920: hr_utility.set_location(l_proc, 200);
2921:
2922: pay_ncr_api.create_pay_net_calc_rule(
2923: p_net_calculation_rule_id => l_net_calculation_rule_id,
2924: p_accrual_plan_id => p_accrual_plan_id,
2928: p_date_input_value_id => null,
2929: p_object_version_number => l_dummy
2930: );
2931:
2932: hr_utility.set_location(l_proc, 210);
2933:
2934: end if;
2935:
2936: close c_get_ncr;
2936: close c_get_ncr;
2937: --
2938: end if;
2939:
2940: hr_utility.set_location(l_proc, 210);
2941: --
2942: -- Call After Process User Hook
2943: --
2944: begin
2998: ,p_hook_type => 'AP'
2999: );
3000: end;
3001:
3002: hr_utility.set_location(l_proc, 220);
3003:
3004: --
3005: -- When in validation only mode raise the Validate_Enabled exception
3006: --
3016: p_defined_balance_id := l_plan_rec.defined_balance_id;
3017: p_tagging_element_type_id := l_plan_rec.tagging_element_type_id;
3018: p_balance_element_type_id := l_plan_rec.balance_element_type_id;
3019:
3020: hr_utility.trace(' ');
3021: hr_utility.trace(' --------------------------------'||
3022: '---------------------------------');
3023: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3024: ' VALUE');
3017: p_tagging_element_type_id := l_plan_rec.tagging_element_type_id;
3018: p_balance_element_type_id := l_plan_rec.balance_element_type_id;
3019:
3020: hr_utility.trace(' ');
3021: hr_utility.trace(' --------------------------------'||
3022: '---------------------------------');
3023: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3024: ' VALUE');
3025: hr_utility.trace(' --------------------------------'||
3019:
3020: hr_utility.trace(' ');
3021: hr_utility.trace(' --------------------------------'||
3022: '---------------------------------');
3023: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3024: ' VALUE');
3025: hr_utility.trace(' --------------------------------'||
3026: '+--------------------------------');
3027: hr_utility.trace(' p_object_version_number '||
3021: hr_utility.trace(' --------------------------------'||
3022: '---------------------------------');
3023: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3024: ' VALUE');
3025: hr_utility.trace(' --------------------------------'||
3026: '+--------------------------------');
3027: hr_utility.trace(' p_object_version_number '||
3028: to_char(p_object_version_number));
3029: hr_utility.trace(' p_payroll_formula_id '||
3023: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3024: ' VALUE');
3025: hr_utility.trace(' --------------------------------'||
3026: '+--------------------------------');
3027: hr_utility.trace(' p_object_version_number '||
3028: to_char(p_object_version_number));
3029: hr_utility.trace(' p_payroll_formula_id '||
3030: to_char(p_payroll_formula_id));
3031: hr_utility.trace(' p_defined_balance_id '||
3025: hr_utility.trace(' --------------------------------'||
3026: '+--------------------------------');
3027: hr_utility.trace(' p_object_version_number '||
3028: to_char(p_object_version_number));
3029: hr_utility.trace(' p_payroll_formula_id '||
3030: to_char(p_payroll_formula_id));
3031: hr_utility.trace(' p_defined_balance_id '||
3032: to_char(p_defined_balance_id));
3033: hr_utility.trace(' p_balance_element_type_id '||
3027: hr_utility.trace(' p_object_version_number '||
3028: to_char(p_object_version_number));
3029: hr_utility.trace(' p_payroll_formula_id '||
3030: to_char(p_payroll_formula_id));
3031: hr_utility.trace(' p_defined_balance_id '||
3032: to_char(p_defined_balance_id));
3033: hr_utility.trace(' p_balance_element_type_id '||
3034: to_char(p_balance_element_type_id));
3035: hr_utility.trace(' p_tagging_element_type_id '||
3029: hr_utility.trace(' p_payroll_formula_id '||
3030: to_char(p_payroll_formula_id));
3031: hr_utility.trace(' p_defined_balance_id '||
3032: to_char(p_defined_balance_id));
3033: hr_utility.trace(' p_balance_element_type_id '||
3034: to_char(p_balance_element_type_id));
3035: hr_utility.trace(' p_tagging_element_type_id '||
3036: to_char(p_tagging_element_type_id));
3037: IF p_check_accrual_ff THEN
3031: hr_utility.trace(' p_defined_balance_id '||
3032: to_char(p_defined_balance_id));
3033: hr_utility.trace(' p_balance_element_type_id '||
3034: to_char(p_balance_element_type_id));
3035: hr_utility.trace(' p_tagging_element_type_id '||
3036: to_char(p_tagging_element_type_id));
3037: IF p_check_accrual_ff THEN
3038: hr_utility.trace(' p_check_accrual_ff '||
3039: 'TRUE');
3034: to_char(p_balance_element_type_id));
3035: hr_utility.trace(' p_tagging_element_type_id '||
3036: to_char(p_tagging_element_type_id));
3037: IF p_check_accrual_ff THEN
3038: hr_utility.trace(' p_check_accrual_ff '||
3039: 'TRUE');
3040: ELSE
3041: hr_utility.trace(' p_check_accrual_ff '||
3042: 'FALSE');
3037: IF p_check_accrual_ff THEN
3038: hr_utility.trace(' p_check_accrual_ff '||
3039: 'TRUE');
3040: ELSE
3041: hr_utility.trace(' p_check_accrual_ff '||
3042: 'FALSE');
3043: END IF;
3044: hr_utility.trace(' --------------------------------'||
3045: '---------------------------------');
3040: ELSE
3041: hr_utility.trace(' p_check_accrual_ff '||
3042: 'FALSE');
3043: END IF;
3044: hr_utility.trace(' --------------------------------'||
3045: '---------------------------------');
3046: hr_utility.trace(' ');
3047:
3048: hr_utility.set_location(' Leaving:'||l_proc, 230);
3042: 'FALSE');
3043: END IF;
3044: hr_utility.trace(' --------------------------------'||
3045: '---------------------------------');
3046: hr_utility.trace(' ');
3047:
3048: hr_utility.set_location(' Leaving:'||l_proc, 230);
3049:
3050: EXCEPTION
3044: hr_utility.trace(' --------------------------------'||
3045: '---------------------------------');
3046: hr_utility.trace(' ');
3047:
3048: hr_utility.set_location(' Leaving:'||l_proc, 230);
3049:
3050: EXCEPTION
3051:
3052: WHEN hr_api.validate_enabled THEN
3066: p_defined_balance_id := null;
3067: p_tagging_element_type_id := null;
3068: p_balance_element_type_id := null;
3069:
3070: hr_utility.set_location(' Leaving:'||l_proc, 240);
3071:
3072: WHEN OTHERS THEN
3073: --
3074: -- A validation or unexpected error has occured
3080: p_defined_balance_id := null;
3081: p_balance_element_type_id := null;
3082: p_tagging_element_type_id := null;
3083: p_check_accrual_ff := null;
3084: hr_utility.set_location(' Leaving:'||l_proc, 250);
3085:
3086: RAISE;
3087:
3088: END update_accrual_plan;
3118: l_balance_element_type_id number;
3119:
3120: begin
3121: l_proc := g_package||'delete_accrual_plan';
3122: hr_utility.set_location('Entering:'|| l_proc, 10);
3123: --
3124: -- Issue a savepoint
3125: --
3126: savepoint delete_accrual_plan;
3123: --
3124: -- Issue a savepoint
3125: --
3126: savepoint delete_accrual_plan;
3127: hr_utility.set_location(l_proc, 20);
3128:
3129: --
3130: -- Call Before Process User Hook
3131: --
3147: ,p_hook_type => 'BP'
3148: );
3149: end;
3150:
3151: hr_utility.set_location(l_proc, 30);
3152: --
3153: -- Validation in addition to Row Handlers
3154: --
3155:
3152: --
3153: -- Validation in addition to Row Handlers
3154: --
3155:
3156: hr_utility.set_location(l_proc, 40);
3157: --
3158: -- Process Logic
3159: --
3160:
3170:
3171: --
3172: -- delete the net calculation rules
3173: --
3174: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 41);
3175: for l_ncr in c_get_ncr(p_accrual_plan_id) loop
3176: --
3177: pay_ncr_api.delete_pay_net_calc_rule (
3178: p_net_calculation_rule_id => l_ncr.net_calculation_rule_id,
3185: -- delete the element types created for the plan
3186: --
3187: -- first the accrual plan element type...
3188: --
3189: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 42);
3190: hr_elements.chk_del_element_type (
3191: 'ZAP',
3192: p_accrual_plan_element_type_id,
3193: '',
3195: l_effective_start_date,
3196: l_effective_end_date);
3197:
3198: --
3199: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 43);
3200: hr_elements.del_3p_element_type (
3201: p_accrual_plan_element_type_id,
3202: 'ZAP',
3203: p_effective_date,
3204: l_effective_start_date,
3205: l_effective_end_date,
3206: '');
3207:
3208: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions',44);
3209: delete from pay_element_types_f
3210: where element_type_id = p_accrual_plan_element_type_id;
3211:
3212: --
3212: --
3213: -- ...then the carried over element type...
3214: --
3215:
3216: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 45);
3217: hr_elements.chk_del_element_type (
3218: 'ZAP',
3219: p_co_element_type_id,
3220: '',
3222: l_effective_start_date,
3223: l_effective_end_date);
3224:
3225: --
3226: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 46);
3227: hr_elements.del_3p_element_type (
3228: p_co_element_type_id,
3229: 'ZAP',
3230: p_effective_date,
3232: l_effective_end_date,
3233: '');
3234:
3235: --
3236: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions',47);
3237: hr_utility.trace('DELETE ELEMENT: '||to_char(p_co_element_type_id));
3238: delete from pay_element_types_f
3239: where element_type_id = p_co_element_type_id;
3240:
3233: '');
3234:
3235: --
3236: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions',47);
3237: hr_utility.trace('DELETE ELEMENT: '||to_char(p_co_element_type_id));
3238: delete from pay_element_types_f
3239: where element_type_id = p_co_element_type_id;
3240:
3241: --
3240:
3241: --
3242: -- ...then the residual element type.
3243: --
3244: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 48);
3245:
3246: hr_elements.chk_del_element_type (
3247: 'ZAP',
3248: p_residual_element_type_id,
3251: l_effective_start_date,
3252: l_effective_end_date);
3253:
3254: --
3255: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 49);
3256: hr_elements.del_3p_element_type (
3257: p_residual_element_type_id,
3258: 'ZAP',
3259: p_effective_date,
3268:
3269: --
3270: -- ...then the payroll balance element type.
3271: --
3272: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 50);
3273:
3274: hr_elements.chk_del_element_type (
3275: 'ZAP',
3276: p_balance_element_type_id,
3279: l_effective_start_date,
3280: l_effective_end_date);
3281:
3282: --
3283: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 51);
3284: hr_elements.del_3p_element_type (
3285: p_balance_element_type_id,
3286: 'ZAP',
3287: p_effective_date,
3295:
3296: --
3297: -- ...then the tagging element type.
3298: --
3299: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 50);
3300:
3301: hr_elements.chk_del_element_type (
3302: 'ZAP',
3303: p_tagging_element_type_id,
3306: l_effective_start_date,
3307: l_effective_end_date);
3308:
3309: --
3310: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 51);
3311: hr_elements.del_3p_element_type (
3312: p_tagging_element_type_id,
3313: 'ZAP',
3314: p_effective_date,
3327: p_accrual_plan_id => p_accrual_plan_id,
3328: p_object_version_number => p_object_version_number
3329: );
3330:
3331: hr_utility.set_location(l_proc, 60);
3332:
3333: -- MLS changes
3334: hr_accrual_plan_tl.del
3335: (p_accrual_plan_id => p_accrual_plan_id);
3333: -- MLS changes
3334: hr_accrual_plan_tl.del
3335: (p_accrual_plan_id => p_accrual_plan_id);
3336: -- MLS changes
3337: hr_utility.set_location(l_proc, 61);
3338: --
3339: -- Call After Process User Hook
3340: --
3341: begin
3355: (p_module_name => 'delete_accrual_plan'
3356: ,p_hook_type => 'AP'
3357: );
3358: end;
3359: hr_utility.set_location(l_proc, 65);
3360:
3361: --
3362: -- When in validation only mode raise the Validate_Enabled exception
3363: --
3365: raise hr_api.validate_enabled;
3366: end if;
3367:
3368: --
3369: hr_utility.set_location(' Leaving:'||l_proc, 70);
3370: exception
3371: when hr_api.validate_enabled then
3372: --
3373: -- As the Validate_Enabled exception has been raised
3379: -- (Any key or derived arguments must be set to null
3380: -- when validation only mode is being used.)
3381: --
3382:
3383: hr_utility.set_location(' Leaving:'||l_proc, 80);
3384: when others then
3385: --
3386: -- A validation or unexpected error has occured
3387: --
3385: --
3386: -- A validation or unexpected error has occured
3387: --
3388: rollback to delete_accrual_plan;
3389: hr_utility.set_location(' Leaving:'||l_proc, 90);
3390: raise;
3391: end delete_accrual_plan;
3392: --
3393: end hr_accrual_plan_api;