[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: -- Insert the two default elements of the plan into the
1805: -- net_calculation_rules table, beginning with
1806: -- the pto input value (always reduces entitlement)
1814: p_date_input_value_id => null,
1815: p_object_version_number => l_dummy_number
1816: );
1817:
1818: hr_utility.set_location(l_proc, 290);
1819: --
1820: -- insert the carried over input value (always increases entitlement)
1821: --
1822: pay_ncr_api.create_pay_net_calc_rule (
1828: p_date_input_value_id => l_co_date_input_value_id,
1829: p_object_version_number => l_dummy_number
1830: );
1831:
1832: hr_utility.set_location(l_proc, 300);
1833: --
1834: -- Make PAY VALUE input value non-updateable
1835: --
1836: UPDATE pay_input_values_f
1844: AND piv.name = 'Pay Value'
1845: );
1846:
1847:
1848: hr_utility.set_location(l_proc, 310);
1849:
1850: --
1851: -- Call After Process User Hook
1852: --
1919: ,p_hook_type => 'AP'
1920: );
1921: end;
1922:
1923: hr_utility.set_location(l_proc, 320);
1924:
1925: --
1926: -- When in validation only mode raise the Validate_Enabled exception
1927: --
1949:
1950: --
1951: -- Pipe the main IN OUT / OUT parameters for ease of debugging.
1952: --
1953: hr_utility.trace(' ');
1954: hr_utility.trace(' --------------------------------'||
1955: '---------------------------------');
1956: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1957: ' VALUE');
1950: --
1951: -- Pipe the main IN OUT / OUT parameters for ease of debugging.
1952: --
1953: hr_utility.trace(' ');
1954: hr_utility.trace(' --------------------------------'||
1955: '---------------------------------');
1956: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1957: ' VALUE');
1958: hr_utility.trace(' --------------------------------'||
1952: --
1953: hr_utility.trace(' ');
1954: hr_utility.trace(' --------------------------------'||
1955: '---------------------------------');
1956: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1957: ' VALUE');
1958: hr_utility.trace(' --------------------------------'||
1959: '+--------------------------------');
1960: hr_utility.trace(' p_accrual_plan_id '||
1954: hr_utility.trace(' --------------------------------'||
1955: '---------------------------------');
1956: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1957: ' VALUE');
1958: hr_utility.trace(' --------------------------------'||
1959: '+--------------------------------');
1960: hr_utility.trace(' p_accrual_plan_id '||
1961: to_char(p_accrual_plan_id));
1962: hr_utility.trace(' p_accrual_plan_element_type_id '||
1956: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
1957: ' VALUE');
1958: hr_utility.trace(' --------------------------------'||
1959: '+--------------------------------');
1960: hr_utility.trace(' p_accrual_plan_id '||
1961: to_char(p_accrual_plan_id));
1962: hr_utility.trace(' p_accrual_plan_element_type_id '||
1963: to_char(p_accrual_plan_element_type_id));
1964: hr_utility.trace(' p_co_element_type_id '||
1958: hr_utility.trace(' --------------------------------'||
1959: '+--------------------------------');
1960: hr_utility.trace(' p_accrual_plan_id '||
1961: to_char(p_accrual_plan_id));
1962: hr_utility.trace(' p_accrual_plan_element_type_id '||
1963: to_char(p_accrual_plan_element_type_id));
1964: hr_utility.trace(' p_co_element_type_id '||
1965: to_char(p_co_element_type_id));
1966: hr_utility.trace(' p_co_input_value_id '||
1960: hr_utility.trace(' p_accrual_plan_id '||
1961: to_char(p_accrual_plan_id));
1962: hr_utility.trace(' p_accrual_plan_element_type_id '||
1963: to_char(p_accrual_plan_element_type_id));
1964: hr_utility.trace(' p_co_element_type_id '||
1965: to_char(p_co_element_type_id));
1966: hr_utility.trace(' p_co_input_value_id '||
1967: to_char(p_co_input_value_id));
1968: hr_utility.trace(' p_co_date_input_value_id '||
1962: hr_utility.trace(' p_accrual_plan_element_type_id '||
1963: to_char(p_accrual_plan_element_type_id));
1964: hr_utility.trace(' p_co_element_type_id '||
1965: to_char(p_co_element_type_id));
1966: hr_utility.trace(' p_co_input_value_id '||
1967: to_char(p_co_input_value_id));
1968: hr_utility.trace(' p_co_date_input_value_id '||
1969: to_char(p_co_date_input_value_id));
1970: hr_utility.trace(' p_co_exp_date_input_value_id '||
1964: hr_utility.trace(' p_co_element_type_id '||
1965: to_char(p_co_element_type_id));
1966: hr_utility.trace(' p_co_input_value_id '||
1967: to_char(p_co_input_value_id));
1968: hr_utility.trace(' p_co_date_input_value_id '||
1969: to_char(p_co_date_input_value_id));
1970: hr_utility.trace(' p_co_exp_date_input_value_id '||
1971: to_char(p_co_exp_date_input_value_id));
1972: hr_utility.trace(' p_residual_element_type_id '||
1966: hr_utility.trace(' p_co_input_value_id '||
1967: to_char(p_co_input_value_id));
1968: hr_utility.trace(' p_co_date_input_value_id '||
1969: to_char(p_co_date_input_value_id));
1970: hr_utility.trace(' p_co_exp_date_input_value_id '||
1971: to_char(p_co_exp_date_input_value_id));
1972: hr_utility.trace(' p_residual_element_type_id '||
1973: to_char(p_residual_element_type_id));
1974: hr_utility.trace(' p_residual_input_value_id '||
1968: hr_utility.trace(' p_co_date_input_value_id '||
1969: to_char(p_co_date_input_value_id));
1970: hr_utility.trace(' p_co_exp_date_input_value_id '||
1971: to_char(p_co_exp_date_input_value_id));
1972: hr_utility.trace(' p_residual_element_type_id '||
1973: to_char(p_residual_element_type_id));
1974: hr_utility.trace(' p_residual_input_value_id '||
1975: to_char(p_residual_input_value_id));
1976: hr_utility.trace(' p_residual_date_input_value_id '||
1970: hr_utility.trace(' p_co_exp_date_input_value_id '||
1971: to_char(p_co_exp_date_input_value_id));
1972: hr_utility.trace(' p_residual_element_type_id '||
1973: to_char(p_residual_element_type_id));
1974: hr_utility.trace(' p_residual_input_value_id '||
1975: to_char(p_residual_input_value_id));
1976: hr_utility.trace(' p_residual_date_input_value_id '||
1977: to_char(p_residual_date_input_value_id));
1978: hr_utility.trace(' p_payroll_formula_id '||
1972: hr_utility.trace(' p_residual_element_type_id '||
1973: to_char(p_residual_element_type_id));
1974: hr_utility.trace(' p_residual_input_value_id '||
1975: to_char(p_residual_input_value_id));
1976: hr_utility.trace(' p_residual_date_input_value_id '||
1977: to_char(p_residual_date_input_value_id));
1978: hr_utility.trace(' p_payroll_formula_id '||
1979: to_char(p_payroll_formula_id));
1980: hr_utility.trace(' p_defined_balance_id '||
1974: hr_utility.trace(' p_residual_input_value_id '||
1975: to_char(p_residual_input_value_id));
1976: hr_utility.trace(' p_residual_date_input_value_id '||
1977: to_char(p_residual_date_input_value_id));
1978: hr_utility.trace(' p_payroll_formula_id '||
1979: to_char(p_payroll_formula_id));
1980: hr_utility.trace(' p_defined_balance_id '||
1981: to_char(p_defined_balance_id));
1982: hr_utility.trace(' p_balance_element_type_id '||
1976: hr_utility.trace(' p_residual_date_input_value_id '||
1977: to_char(p_residual_date_input_value_id));
1978: hr_utility.trace(' p_payroll_formula_id '||
1979: to_char(p_payroll_formula_id));
1980: hr_utility.trace(' p_defined_balance_id '||
1981: to_char(p_defined_balance_id));
1982: hr_utility.trace(' p_balance_element_type_id '||
1983: to_char(p_balance_element_type_id));
1984: hr_utility.trace(' p_tagging_element_type_id '||
1978: hr_utility.trace(' p_payroll_formula_id '||
1979: to_char(p_payroll_formula_id));
1980: hr_utility.trace(' p_defined_balance_id '||
1981: to_char(p_defined_balance_id));
1982: hr_utility.trace(' p_balance_element_type_id '||
1983: to_char(p_balance_element_type_id));
1984: hr_utility.trace(' p_tagging_element_type_id '||
1985: to_char(p_tagging_element_type_id));
1986: hr_utility.trace(' p_object_version_number '||
1980: hr_utility.trace(' p_defined_balance_id '||
1981: to_char(p_defined_balance_id));
1982: hr_utility.trace(' p_balance_element_type_id '||
1983: to_char(p_balance_element_type_id));
1984: hr_utility.trace(' p_tagging_element_type_id '||
1985: to_char(p_tagging_element_type_id));
1986: hr_utility.trace(' p_object_version_number '||
1987: to_char(p_object_version_number));
1988: IF p_no_link_message THEN
1982: hr_utility.trace(' p_balance_element_type_id '||
1983: to_char(p_balance_element_type_id));
1984: hr_utility.trace(' p_tagging_element_type_id '||
1985: to_char(p_tagging_element_type_id));
1986: hr_utility.trace(' p_object_version_number '||
1987: to_char(p_object_version_number));
1988: IF p_no_link_message THEN
1989: hr_utility.trace(' p_no_link_message '||
1990: 'TRUE');
1985: to_char(p_tagging_element_type_id));
1986: hr_utility.trace(' p_object_version_number '||
1987: to_char(p_object_version_number));
1988: IF p_no_link_message THEN
1989: hr_utility.trace(' p_no_link_message '||
1990: 'TRUE');
1991: ELSE
1992: hr_utility.trace(' p_no_link_message '||
1993: 'FALSE');
1988: IF p_no_link_message THEN
1989: hr_utility.trace(' p_no_link_message '||
1990: 'TRUE');
1991: ELSE
1992: hr_utility.trace(' p_no_link_message '||
1993: 'FALSE');
1994: END IF;
1995: IF p_check_accrual_ff THEN
1996: hr_utility.trace(' p_check_accrual_ff '||
1992: hr_utility.trace(' p_no_link_message '||
1993: 'FALSE');
1994: END IF;
1995: IF p_check_accrual_ff THEN
1996: hr_utility.trace(' p_check_accrual_ff '||
1997: 'TRUE');
1998: ELSE
1999: hr_utility.trace(' p_check_accrual_ff '||
2000: 'FALSE');
1995: IF p_check_accrual_ff THEN
1996: hr_utility.trace(' p_check_accrual_ff '||
1997: 'TRUE');
1998: ELSE
1999: hr_utility.trace(' p_check_accrual_ff '||
2000: 'FALSE');
2001: END IF;
2002: hr_utility.trace(' --------------------------------'||
2003: '---------------------------------');
1998: ELSE
1999: hr_utility.trace(' p_check_accrual_ff '||
2000: 'FALSE');
2001: END IF;
2002: hr_utility.trace(' --------------------------------'||
2003: '---------------------------------');
2004: hr_utility.trace(' ');
2005:
2006: hr_utility.set_location(' Leaving:'||l_proc, 70);
2000: 'FALSE');
2001: END IF;
2002: hr_utility.trace(' --------------------------------'||
2003: '---------------------------------');
2004: hr_utility.trace(' ');
2005:
2006: hr_utility.set_location(' Leaving:'||l_proc, 70);
2007:
2008: EXCEPTION
2002: hr_utility.trace(' --------------------------------'||
2003: '---------------------------------');
2004: hr_utility.trace(' ');
2005:
2006: hr_utility.set_location(' Leaving:'||l_proc, 70);
2007:
2008: EXCEPTION
2009:
2010: WHEN hr_api.validate_enabled THEN
2032: p_balance_element_type_id := null;
2033: p_tagging_element_type_id := null;
2034: p_object_version_number := null;
2035:
2036: hr_utility.set_location(' Leaving:'||l_proc, 330);
2037:
2038: WHEN OTHERS THEN
2039: --
2040: -- A validation or unexpected error has occured
2057: p_object_version_number := null;
2058: p_no_link_message := null;
2059: p_check_accrual_ff := null;
2060:
2061: hr_utility.set_location(' Leaving:'||l_proc, 340);
2062: RAISE;
2063:
2064: END create_accrual_plan;
2065: --
2222:
2223: l_proc := g_package||'update_accrual_plan';
2224: l_temp_ovn := p_object_version_number;
2225:
2226: hr_utility.set_location('Entering:'|| l_proc, 10);
2227:
2228: --
2229: -- Pipe the main IN / IN OUT parameters for ease of debugging.
2230: --
2227:
2228: --
2229: -- Pipe the main IN / IN OUT parameters for ease of debugging.
2230: --
2231: hr_utility.trace(' ');
2232: hr_utility.trace(' --------------------------------'||
2233: '---------------------------------');
2234: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2235: ' VALUE');
2228: --
2229: -- Pipe the main IN / IN OUT parameters for ease of debugging.
2230: --
2231: hr_utility.trace(' ');
2232: hr_utility.trace(' --------------------------------'||
2233: '---------------------------------');
2234: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2235: ' VALUE');
2236: hr_utility.trace(' --------------------------------'||
2230: --
2231: hr_utility.trace(' ');
2232: hr_utility.trace(' --------------------------------'||
2233: '---------------------------------');
2234: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2235: ' VALUE');
2236: hr_utility.trace(' --------------------------------'||
2237: '+--------------------------------');
2238: IF p_validate THEN
2232: hr_utility.trace(' --------------------------------'||
2233: '---------------------------------');
2234: hr_utility.trace(' IN / IN OUT NOCOPY PARAMETER '||
2235: ' VALUE');
2236: hr_utility.trace(' --------------------------------'||
2237: '+--------------------------------');
2238: IF p_validate THEN
2239: hr_utility.trace(' p_validate '||
2240: 'TRUE');
2235: ' VALUE');
2236: hr_utility.trace(' --------------------------------'||
2237: '+--------------------------------');
2238: IF p_validate THEN
2239: hr_utility.trace(' p_validate '||
2240: 'TRUE');
2241: ELSE
2242: hr_utility.trace(' p_validate '||
2243: 'FALSE');
2238: IF p_validate THEN
2239: hr_utility.trace(' p_validate '||
2240: 'TRUE');
2241: ELSE
2242: hr_utility.trace(' p_validate '||
2243: 'FALSE');
2244: END IF;
2245: hr_utility.trace(' p_effective_date '||
2246: to_char(p_effective_date));
2241: ELSE
2242: hr_utility.trace(' p_validate '||
2243: 'FALSE');
2244: END IF;
2245: hr_utility.trace(' p_effective_date '||
2246: to_char(p_effective_date));
2247: hr_utility.trace(' p_accrual_plan_id '||
2248: to_char(p_accrual_plan_id));
2249: hr_utility.trace(' p_pto_input_value_id '||
2243: 'FALSE');
2244: END IF;
2245: hr_utility.trace(' p_effective_date '||
2246: to_char(p_effective_date));
2247: hr_utility.trace(' p_accrual_plan_id '||
2248: to_char(p_accrual_plan_id));
2249: hr_utility.trace(' p_pto_input_value_id '||
2250: to_char(p_pto_input_value_id));
2251: hr_utility.trace(' p_accrual_category '||
2245: hr_utility.trace(' p_effective_date '||
2246: to_char(p_effective_date));
2247: hr_utility.trace(' p_accrual_plan_id '||
2248: to_char(p_accrual_plan_id));
2249: hr_utility.trace(' p_pto_input_value_id '||
2250: to_char(p_pto_input_value_id));
2251: hr_utility.trace(' p_accrual_category '||
2252: p_accrual_category);
2253: hr_utility.trace(' p_accrual_start '||
2247: hr_utility.trace(' p_accrual_plan_id '||
2248: to_char(p_accrual_plan_id));
2249: hr_utility.trace(' p_pto_input_value_id '||
2250: to_char(p_pto_input_value_id));
2251: hr_utility.trace(' p_accrual_category '||
2252: p_accrual_category);
2253: hr_utility.trace(' p_accrual_start '||
2254: p_accrual_start);
2255: hr_utility.trace(' p_ineligible_period_length '||
2249: hr_utility.trace(' p_pto_input_value_id '||
2250: to_char(p_pto_input_value_id));
2251: hr_utility.trace(' p_accrual_category '||
2252: p_accrual_category);
2253: hr_utility.trace(' p_accrual_start '||
2254: p_accrual_start);
2255: hr_utility.trace(' p_ineligible_period_length '||
2256: to_char(p_ineligible_period_length));
2257: hr_utility.trace(' p_ineligible_period_type '||
2251: hr_utility.trace(' p_accrual_category '||
2252: p_accrual_category);
2253: hr_utility.trace(' p_accrual_start '||
2254: p_accrual_start);
2255: hr_utility.trace(' p_ineligible_period_length '||
2256: to_char(p_ineligible_period_length));
2257: hr_utility.trace(' p_ineligible_period_type '||
2258: p_ineligible_period_type);
2259: hr_utility.trace(' p_accrual_formula_id '||
2253: hr_utility.trace(' p_accrual_start '||
2254: p_accrual_start);
2255: hr_utility.trace(' p_ineligible_period_length '||
2256: to_char(p_ineligible_period_length));
2257: hr_utility.trace(' p_ineligible_period_type '||
2258: p_ineligible_period_type);
2259: hr_utility.trace(' p_accrual_formula_id '||
2260: to_char(p_accrual_formula_id));
2261: hr_utility.trace(' p_co_formula_id '||
2255: hr_utility.trace(' p_ineligible_period_length '||
2256: to_char(p_ineligible_period_length));
2257: hr_utility.trace(' p_ineligible_period_type '||
2258: p_ineligible_period_type);
2259: hr_utility.trace(' p_accrual_formula_id '||
2260: to_char(p_accrual_formula_id));
2261: hr_utility.trace(' p_co_formula_id '||
2262: to_char(p_co_formula_id));
2263: hr_utility.trace(' p_description '||
2257: hr_utility.trace(' p_ineligible_period_type '||
2258: p_ineligible_period_type);
2259: hr_utility.trace(' p_accrual_formula_id '||
2260: to_char(p_accrual_formula_id));
2261: hr_utility.trace(' p_co_formula_id '||
2262: to_char(p_co_formula_id));
2263: hr_utility.trace(' p_description '||
2264: p_description);
2265: hr_utility.trace(' p_ineligibility_formula_id '||
2259: hr_utility.trace(' p_accrual_formula_id '||
2260: to_char(p_accrual_formula_id));
2261: hr_utility.trace(' p_co_formula_id '||
2262: to_char(p_co_formula_id));
2263: hr_utility.trace(' p_description '||
2264: p_description);
2265: hr_utility.trace(' p_ineligibility_formula_id '||
2266: to_char(p_ineligibility_formula_id));
2267: hr_utility.trace(' p_balance_dimension_id '||
2261: hr_utility.trace(' p_co_formula_id '||
2262: to_char(p_co_formula_id));
2263: hr_utility.trace(' p_description '||
2264: p_description);
2265: hr_utility.trace(' p_ineligibility_formula_id '||
2266: to_char(p_ineligibility_formula_id));
2267: hr_utility.trace(' p_balance_dimension_id '||
2268: to_char(p_balance_dimension_id));
2269: hr_utility.trace(' p_information_category '||
2263: hr_utility.trace(' p_description '||
2264: p_description);
2265: hr_utility.trace(' p_ineligibility_formula_id '||
2266: to_char(p_ineligibility_formula_id));
2267: hr_utility.trace(' p_balance_dimension_id '||
2268: to_char(p_balance_dimension_id));
2269: hr_utility.trace(' p_information_category '||
2270: p_information_category);
2271: hr_utility.trace(' --------------------------------'||
2265: hr_utility.trace(' p_ineligibility_formula_id '||
2266: to_char(p_ineligibility_formula_id));
2267: hr_utility.trace(' p_balance_dimension_id '||
2268: to_char(p_balance_dimension_id));
2269: hr_utility.trace(' p_information_category '||
2270: p_information_category);
2271: hr_utility.trace(' --------------------------------'||
2272: '---------------------------------');
2273: hr_utility.trace(' ');
2267: hr_utility.trace(' p_balance_dimension_id '||
2268: to_char(p_balance_dimension_id));
2269: hr_utility.trace(' p_information_category '||
2270: p_information_category);
2271: hr_utility.trace(' --------------------------------'||
2272: '---------------------------------');
2273: hr_utility.trace(' ');
2274:
2275: --
2269: hr_utility.trace(' p_information_category '||
2270: p_information_category);
2271: hr_utility.trace(' --------------------------------'||
2272: '---------------------------------');
2273: hr_utility.trace(' ');
2274:
2275: --
2276: -- Issue a savepoint
2277: --
2334: ,p_hook_type => 'BP'
2335: );
2336: end;
2337:
2338: hr_utility.set_location(l_proc, 20);
2339:
2340: --
2341: -- Validation in addition to Row Handlers
2342: --
2348: IF csr_get_accrual_plan%NOTFOUND THEN
2349: --
2350: -- p_accrual_plan_id does not exist so error.
2351: --
2352: hr_utility.set_location(l_proc, 30);
2353: CLOSE csr_get_accrual_plan;
2354: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
2355: fnd_message.raise_error;
2356:
2357: END IF;
2358:
2359: CLOSE csr_get_accrual_plan;
2360:
2361: hr_utility.set_location(l_proc, 40);
2362:
2363: IF l_plan_rec.defined_balance_id IS NULL AND
2364: p_balance_dimension_id IS NOT NULL AND
2365: p_balance_dimension_id <> hr_api.g_number THEN
2375: into l_bg_name, l_leg_code, l_curr_code
2376: from per_business_groups
2377: where business_group_id = l_plan_rec.business_group_id;
2378:
2379: hr_utility.trace('l_bg_name: '||l_bg_name);
2380: hr_utility.trace('l_leg_code: '||l_leg_code);
2381: hr_utility.trace('l_curr_code: '||l_curr_code);
2382:
2383: l_classification_name := 'Information';
2376: from per_business_groups
2377: where business_group_id = l_plan_rec.business_group_id;
2378:
2379: hr_utility.trace('l_bg_name: '||l_bg_name);
2380: hr_utility.trace('l_leg_code: '||l_leg_code);
2381: hr_utility.trace('l_curr_code: '||l_curr_code);
2382:
2383: l_classification_name := 'Information';
2384:
2377: where business_group_id = l_plan_rec.business_group_id;
2378:
2379: hr_utility.trace('l_bg_name: '||l_bg_name);
2380: hr_utility.trace('l_leg_code: '||l_leg_code);
2381: hr_utility.trace('l_curr_code: '||l_curr_code);
2382:
2383: l_classification_name := 'Information';
2384:
2385: open c_class_id('Information', l_plan_rec.business_group_id, l_leg_code);
2385: open c_class_id('Information', l_plan_rec.business_group_id, l_leg_code);
2386: fetch c_class_id into l_primary_classification_id;
2387: close c_class_id;
2388:
2389: hr_utility.set_location(l_proc, 50);
2390:
2391: select processing_priority + 1
2392: into l_priority
2393: from pay_element_types_f
2392: into l_priority
2393: from pay_element_types_f
2394: where element_type_id = l_plan_rec.accrual_plan_element_type_id;
2395:
2396: hr_utility.trace('l_priority: '||to_char(l_priority));
2397:
2398: l_leg_code := null;
2399:
2400: --
2407: from hr_lookups hl
2408: where hl.lookup_type='TERMINATION_RULE'
2409: and hl.lookup_code='F'; -- Final Close
2410:
2411: hr_utility.trace('l_post_termination_rule: '||l_post_termination_rule);
2412:
2413: exception
2414: --
2415: when no_data_found then
2412:
2413: exception
2414: --
2415: when no_data_found then
2416: hr_utility.set_location(l_proc, 60);
2417: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
2418: hr_utility.raise_error;
2419: --
2420: end;
2413: exception
2414: --
2415: when no_data_found then
2416: hr_utility.set_location(l_proc, 60);
2417: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
2418: hr_utility.raise_error;
2419: --
2420: end;
2421:
2414: --
2415: when no_data_found then
2416: hr_utility.set_location(l_proc, 60);
2417: hr_utility.set_message(801,'HR_NO_F_TERM_RULE');
2418: hr_utility.raise_error;
2419: --
2420: end;
2421:
2422: l_classification_type := 'Y';
2423:
2424: --
2425: if l_plan_rec.accrual_units_of_measure = 'D' then
2426: --
2427: hr_utility.set_location(l_proc, 70);
2428: open c_get_lookups('PTO_DAYS');
2429: l_uom_code := 'ND';
2430: --
2431: else
2429: l_uom_code := 'ND';
2430: --
2431: else
2432: --
2433: hr_utility.set_location(l_proc, 80);
2434: open c_get_lookups('PTO_HOURS');
2435: l_uom_code := 'H_DECIMAL3';
2436: --
2437: end if;
2438:
2439: fetch c_get_lookups into l_input_value_name;
2440: close c_get_lookups;
2441:
2442: hr_utility.trace('l_input_value_name: '||l_input_value_name);
2443:
2444: IF l_plan_rec.balance_element_type_id IS NULL THEN
2445: --
2446: -- This plan was created prior to the balance enhancements and
2450: --
2451: l_element_name := substr(l_plan_rec.accrual_plan_name
2452: ||' Payroll Balance', 1, 80);
2453:
2454: hr_utility.trace('l_element_name: '||l_element_name);
2455:
2456: l_plan_rec.balance_element_type_id := create_element(
2457: l_element_name,
2458: null,
2467: null,
2468: l_priority
2469: );
2470:
2471: hr_utility.trace('l_plan_rec.balance_element_type_id: '
2472: ||to_char(l_plan_rec.balance_element_type_id));
2473:
2474: l_balance_input_value_id := create_input_value(
2475: l_element_name,
2484: l_classification_type,
2485: 'N'
2486: );
2487:
2488: hr_utility.trace('l_balance_input_value_id: '||to_char(l_balance_input_value_id));
2489:
2490: for l_element_link_rec in c_absence_element_link_id loop
2491: --
2492: --
2500: end loop;
2501:
2502: END IF;
2503:
2504: hr_utility.set_location(l_proc, 90);
2505:
2506: IF l_plan_rec.tagging_element_type_id IS NULL THEN
2507: --
2508: -- This plan was created prior to the balance enhancements and
2514: into l_priority
2515: from pay_element_types_f
2516: where element_type_id = l_plan_rec.accrual_plan_element_type_id;
2517:
2518: hr_utility.trace('l_priority: '||to_char(l_priority));
2519:
2520: l_element_name := substr(l_plan_rec.accrual_plan_name||' Tagging', 1, 80);
2521:
2522: hr_utility.trace('l_element_name: '||l_element_name);
2518: hr_utility.trace('l_priority: '||to_char(l_priority));
2519:
2520: l_element_name := substr(l_plan_rec.accrual_plan_name||' Tagging', 1, 80);
2521:
2522: hr_utility.trace('l_element_name: '||l_element_name);
2523:
2524: l_plan_rec.tagging_element_type_id := create_element(
2525: l_element_name,
2526: null,
2535: null,
2536: l_priority
2537: );
2538:
2539: hr_utility.trace('l_plan_rec.tagging_element_type_id: '
2540: ||to_char(l_plan_rec.tagging_element_type_id));
2541: l_uom_code1 := 'N';
2542: l_input_value_name := 'Element Entry ID';
2543:
2554: l_classification_type,
2555: 'N'
2556: );
2557:
2558: hr_utility.trace('l_tagging_input_value_id: '||to_char(l_tagging_input_value_id));
2559:
2560: for l_element_link_rec in c_absence_element_link_id loop
2561: --
2562: -- Create a link for the tagging element
2569: end loop;
2570:
2571: END IF;
2572:
2573: hr_utility.set_location(l_proc, 100);
2574:
2575: l_user := fnd_profile.value('USER');
2576: l_effective_start_date := hr_general.start_of_time;
2577: l_effective_end_date := hr_general.end_of_time;
2575: l_user := fnd_profile.value('USER');
2576: l_effective_start_date := hr_general.start_of_time;
2577: l_effective_end_date := hr_general.end_of_time;
2578:
2579: hr_utility.trace('l_user: '||l_user);
2580: --
2581: -- Now set up the balance information. This requires rows to be inserted in
2582: -- pay_balance_feeds, pay_balace_types, and pay_defined_balances. We will
2583: -- make use of the seeded balance dimension, route etc.
2633: X_Attribute20 => null,
2634: X_Balance_Category_Id => l_balance_category_id
2635: );
2636:
2637: hr_utility.set_location(l_proc, 100);
2638:
2639: select input_value_id
2640: into l_balance_input_value_id
2641: from pay_input_values_f
2641: from pay_input_values_f
2642: where element_type_id = l_plan_rec.balance_element_type_id
2643: and uom = l_uom_code;
2644:
2645: hr_utility.trace('l_balance_input_value_id: '||to_char(l_balance_input_value_id));
2646:
2647: pay_balance_feeds_f_pkg.Insert_Row(
2648: X_Rowid => l_rowid,
2649: X_Balance_Feed_Id => l_balance_feed_id,
2656: X_Scale => 1,
2657: X_Legislation_Subgroup => null
2658: );
2659:
2660: hr_utility.set_location(l_proc, 110);
2661:
2662: pay_defined_balances_pkg.Insert_Row(
2663: X_Rowid => l_rowid,
2664: X_Defined_Balance_Id => l_plan_rec.defined_balance_id,
2669: X_Force_Latest_Balance_Flag=> 'N',
2670: X_Legislation_Subgroup => null
2671: );
2672:
2673: hr_utility.set_location(l_proc, 120);
2674:
2675: --
2676: -- Call procedure to create new Oracle Payroll fomrula.
2677: --
2684: p_business_group_id => l_plan_rec.business_group_id,
2685: p_legislation_code => l_leg_code
2686: );
2687:
2688: hr_utility.set_location(l_proc, 130);
2689:
2690: --
2691: -- Set up the status processing rules and formula result rules for the
2692: -- recurring accrual plan element.
2710: X_Created_By => l_user,
2711: X_Creation_Date => sysdate
2712: );
2713:
2714: hr_utility.set_location(l_proc, 140);
2715:
2716: pay_formula_result_rules_pkg.insert_row
2717: (p_Rowid => l_rowid,
2718: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
2738: from pay_input_values_f
2739: where element_type_id = l_plan_rec.tagging_element_type_id
2740: and uom = 'N';
2741:
2742: hr_utility.trace('l_tagging_input_value_id: '||to_char(l_tagging_input_value_id));
2743:
2744: pay_formula_result_rules_pkg.insert_row
2745: (p_Rowid => l_rowid,
2746: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
2771: where ff.formula_type_id = ft.formula_type_id
2772: and ft.formula_type_name = 'Oracle Payroll'
2773: and ff.formula_name = 'PTO_TAGGING_FORMULA';
2774:
2775: hr_utility.trace('l_tagging_formula_id: '||to_char(l_tagging_formula_id));
2776:
2777: l_status_processing_rule_id := null;
2778: l_formula_result_rule_id := null;
2779:
2796: X_Created_By => l_user,
2797: X_Creation_Date => sysdate
2798: );
2799:
2800: hr_utility.set_location(l_proc, 150);
2801:
2802: pay_formula_result_rules_pkg.insert_row
2803: (p_Rowid => l_rowid,
2804: p_Formula_Result_Rule_Id => l_formula_result_rule_id,
2816: p_Created_By => l_user,
2817: p_session_date => sysdate
2818: );
2819:
2820: hr_utility.set_location(l_proc, 160);
2821:
2822: end if;
2823:
2824: l_object_version_number := p_object_version_number;
2822: end if;
2823:
2824: l_object_version_number := p_object_version_number;
2825:
2826: hr_utility.set_location(l_proc, 170);
2827:
2828: pay_pap_upd.upd
2829: (p_effective_date => p_effective_date,
2830: p_accrual_plan_id => p_accrual_plan_id,
2875: p_object_version_number => l_object_version_number,
2876: p_check_accrual_ff => p_check_accrual_ff
2877: );
2878:
2879: hr_utility.set_location(l_proc, 180);
2880:
2881: if p_pto_input_value_id <> hr_api.g_number
2882: and p_pto_input_value_id <> pay_pap_shd.g_old_rec.pto_input_value_id then
2883: --
2896: --
2897: open c_get_ncr(p_pto_input_value_id);
2898: fetch c_get_ncr into l_rec;
2899:
2900: hr_utility.set_location(l_proc, 190);
2901:
2902: if c_get_ncr%notfound then
2903: --
2904: hr_utility.set_location(l_proc, 200);
2900: hr_utility.set_location(l_proc, 190);
2901:
2902: if c_get_ncr%notfound then
2903: --
2904: hr_utility.set_location(l_proc, 200);
2905:
2906: pay_ncr_api.create_pay_net_calc_rule(
2907: p_net_calculation_rule_id => l_net_calculation_rule_id,
2908: p_accrual_plan_id => p_accrual_plan_id,
2912: p_date_input_value_id => null,
2913: p_object_version_number => l_dummy
2914: );
2915:
2916: hr_utility.set_location(l_proc, 210);
2917:
2918: end if;
2919:
2920: close c_get_ncr;
2920: close c_get_ncr;
2921: --
2922: end if;
2923:
2924: hr_utility.set_location(l_proc, 210);
2925: --
2926: -- Call After Process User Hook
2927: --
2928: begin
2982: ,p_hook_type => 'AP'
2983: );
2984: end;
2985:
2986: hr_utility.set_location(l_proc, 220);
2987:
2988: --
2989: -- When in validation only mode raise the Validate_Enabled exception
2990: --
3000: p_defined_balance_id := l_plan_rec.defined_balance_id;
3001: p_tagging_element_type_id := l_plan_rec.tagging_element_type_id;
3002: p_balance_element_type_id := l_plan_rec.balance_element_type_id;
3003:
3004: hr_utility.trace(' ');
3005: hr_utility.trace(' --------------------------------'||
3006: '---------------------------------');
3007: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3008: ' VALUE');
3001: p_tagging_element_type_id := l_plan_rec.tagging_element_type_id;
3002: p_balance_element_type_id := l_plan_rec.balance_element_type_id;
3003:
3004: hr_utility.trace(' ');
3005: hr_utility.trace(' --------------------------------'||
3006: '---------------------------------');
3007: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3008: ' VALUE');
3009: hr_utility.trace(' --------------------------------'||
3003:
3004: hr_utility.trace(' ');
3005: hr_utility.trace(' --------------------------------'||
3006: '---------------------------------');
3007: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3008: ' VALUE');
3009: hr_utility.trace(' --------------------------------'||
3010: '+--------------------------------');
3011: hr_utility.trace(' p_object_version_number '||
3005: hr_utility.trace(' --------------------------------'||
3006: '---------------------------------');
3007: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3008: ' VALUE');
3009: hr_utility.trace(' --------------------------------'||
3010: '+--------------------------------');
3011: hr_utility.trace(' p_object_version_number '||
3012: to_char(p_object_version_number));
3013: hr_utility.trace(' p_payroll_formula_id '||
3007: hr_utility.trace(' IN OUT NOCOPY / OUT NOCOPY PARAMETER '||
3008: ' VALUE');
3009: hr_utility.trace(' --------------------------------'||
3010: '+--------------------------------');
3011: hr_utility.trace(' p_object_version_number '||
3012: to_char(p_object_version_number));
3013: hr_utility.trace(' p_payroll_formula_id '||
3014: to_char(p_payroll_formula_id));
3015: hr_utility.trace(' p_defined_balance_id '||
3009: hr_utility.trace(' --------------------------------'||
3010: '+--------------------------------');
3011: hr_utility.trace(' p_object_version_number '||
3012: to_char(p_object_version_number));
3013: hr_utility.trace(' p_payroll_formula_id '||
3014: to_char(p_payroll_formula_id));
3015: hr_utility.trace(' p_defined_balance_id '||
3016: to_char(p_defined_balance_id));
3017: hr_utility.trace(' p_balance_element_type_id '||
3011: hr_utility.trace(' p_object_version_number '||
3012: to_char(p_object_version_number));
3013: hr_utility.trace(' p_payroll_formula_id '||
3014: to_char(p_payroll_formula_id));
3015: hr_utility.trace(' p_defined_balance_id '||
3016: to_char(p_defined_balance_id));
3017: hr_utility.trace(' p_balance_element_type_id '||
3018: to_char(p_balance_element_type_id));
3019: hr_utility.trace(' p_tagging_element_type_id '||
3013: hr_utility.trace(' p_payroll_formula_id '||
3014: to_char(p_payroll_formula_id));
3015: hr_utility.trace(' p_defined_balance_id '||
3016: to_char(p_defined_balance_id));
3017: hr_utility.trace(' p_balance_element_type_id '||
3018: to_char(p_balance_element_type_id));
3019: hr_utility.trace(' p_tagging_element_type_id '||
3020: to_char(p_tagging_element_type_id));
3021: IF p_check_accrual_ff THEN
3015: hr_utility.trace(' p_defined_balance_id '||
3016: to_char(p_defined_balance_id));
3017: hr_utility.trace(' p_balance_element_type_id '||
3018: to_char(p_balance_element_type_id));
3019: hr_utility.trace(' p_tagging_element_type_id '||
3020: to_char(p_tagging_element_type_id));
3021: IF p_check_accrual_ff THEN
3022: hr_utility.trace(' p_check_accrual_ff '||
3023: 'TRUE');
3018: to_char(p_balance_element_type_id));
3019: hr_utility.trace(' p_tagging_element_type_id '||
3020: to_char(p_tagging_element_type_id));
3021: IF p_check_accrual_ff THEN
3022: hr_utility.trace(' p_check_accrual_ff '||
3023: 'TRUE');
3024: ELSE
3025: hr_utility.trace(' p_check_accrual_ff '||
3026: 'FALSE');
3021: IF p_check_accrual_ff THEN
3022: hr_utility.trace(' p_check_accrual_ff '||
3023: 'TRUE');
3024: ELSE
3025: hr_utility.trace(' p_check_accrual_ff '||
3026: 'FALSE');
3027: END IF;
3028: hr_utility.trace(' --------------------------------'||
3029: '---------------------------------');
3024: ELSE
3025: hr_utility.trace(' p_check_accrual_ff '||
3026: 'FALSE');
3027: END IF;
3028: hr_utility.trace(' --------------------------------'||
3029: '---------------------------------');
3030: hr_utility.trace(' ');
3031:
3032: hr_utility.set_location(' Leaving:'||l_proc, 230);
3026: 'FALSE');
3027: END IF;
3028: hr_utility.trace(' --------------------------------'||
3029: '---------------------------------');
3030: hr_utility.trace(' ');
3031:
3032: hr_utility.set_location(' Leaving:'||l_proc, 230);
3033:
3034: EXCEPTION
3028: hr_utility.trace(' --------------------------------'||
3029: '---------------------------------');
3030: hr_utility.trace(' ');
3031:
3032: hr_utility.set_location(' Leaving:'||l_proc, 230);
3033:
3034: EXCEPTION
3035:
3036: WHEN hr_api.validate_enabled THEN
3050: p_defined_balance_id := null;
3051: p_tagging_element_type_id := null;
3052: p_balance_element_type_id := null;
3053:
3054: hr_utility.set_location(' Leaving:'||l_proc, 240);
3055:
3056: WHEN OTHERS THEN
3057: --
3058: -- A validation or unexpected error has occured
3064: p_defined_balance_id := null;
3065: p_balance_element_type_id := null;
3066: p_tagging_element_type_id := null;
3067: p_check_accrual_ff := null;
3068: hr_utility.set_location(' Leaving:'||l_proc, 250);
3069:
3070: RAISE;
3071:
3072: END update_accrual_plan;
3102: l_balance_element_type_id number;
3103:
3104: begin
3105: l_proc := g_package||'delete_accrual_plan';
3106: hr_utility.set_location('Entering:'|| l_proc, 10);
3107: --
3108: -- Issue a savepoint
3109: --
3110: savepoint delete_accrual_plan;
3107: --
3108: -- Issue a savepoint
3109: --
3110: savepoint delete_accrual_plan;
3111: hr_utility.set_location(l_proc, 20);
3112:
3113: --
3114: -- Call Before Process User Hook
3115: --
3131: ,p_hook_type => 'BP'
3132: );
3133: end;
3134:
3135: hr_utility.set_location(l_proc, 30);
3136: --
3137: -- Validation in addition to Row Handlers
3138: --
3139:
3136: --
3137: -- Validation in addition to Row Handlers
3138: --
3139:
3140: hr_utility.set_location(l_proc, 40);
3141: --
3142: -- Process Logic
3143: --
3144:
3154:
3155: --
3156: -- delete the net calculation rules
3157: --
3158: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 41);
3159: for l_ncr in c_get_ncr(p_accrual_plan_id) loop
3160: --
3161: pay_ncr_api.delete_pay_net_calc_rule (
3162: p_net_calculation_rule_id => l_ncr.net_calculation_rule_id,
3169: -- delete the element types created for the plan
3170: --
3171: -- first the accrual plan element type...
3172: --
3173: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 42);
3174: hr_elements.chk_del_element_type (
3175: 'ZAP',
3176: p_accrual_plan_element_type_id,
3177: '',
3179: l_effective_start_date,
3180: l_effective_end_date);
3181:
3182: --
3183: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 43);
3184: hr_elements.del_3p_element_type (
3185: p_accrual_plan_element_type_id,
3186: 'ZAP',
3187: p_effective_date,
3188: l_effective_start_date,
3189: l_effective_end_date,
3190: '');
3191:
3192: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions',44);
3193: delete from pay_element_types_f
3194: where element_type_id = p_accrual_plan_element_type_id;
3195:
3196: --
3196: --
3197: -- ...then the carried over element type...
3198: --
3199:
3200: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 45);
3201: hr_elements.chk_del_element_type (
3202: 'ZAP',
3203: p_co_element_type_id,
3204: '',
3206: l_effective_start_date,
3207: l_effective_end_date);
3208:
3209: --
3210: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 46);
3211: hr_elements.del_3p_element_type (
3212: p_co_element_type_id,
3213: 'ZAP',
3214: p_effective_date,
3216: l_effective_end_date,
3217: '');
3218:
3219: --
3220: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions',47);
3221: hr_utility.trace('DELETE ELEMENT: '||to_char(p_co_element_type_id));
3222: delete from pay_element_types_f
3223: where element_type_id = p_co_element_type_id;
3224:
3217: '');
3218:
3219: --
3220: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions',47);
3221: hr_utility.trace('DELETE ELEMENT: '||to_char(p_co_element_type_id));
3222: delete from pay_element_types_f
3223: where element_type_id = p_co_element_type_id;
3224:
3225: --
3224:
3225: --
3226: -- ...then the residual element type.
3227: --
3228: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 48);
3229:
3230: hr_elements.chk_del_element_type (
3231: 'ZAP',
3232: p_residual_element_type_id,
3235: l_effective_start_date,
3236: l_effective_end_date);
3237:
3238: --
3239: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 49);
3240: hr_elements.del_3p_element_type (
3241: p_residual_element_type_id,
3242: 'ZAP',
3243: p_effective_date,
3252:
3253: --
3254: -- ...then the payroll balance element type.
3255: --
3256: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 50);
3257:
3258: hr_elements.chk_del_element_type (
3259: 'ZAP',
3260: p_balance_element_type_id,
3263: l_effective_start_date,
3264: l_effective_end_date);
3265:
3266: --
3267: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 51);
3268: hr_elements.del_3p_element_type (
3269: p_balance_element_type_id,
3270: 'ZAP',
3271: p_effective_date,
3279:
3280: --
3281: -- ...then the tagging element type.
3282: --
3283: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 50);
3284:
3285: hr_elements.chk_del_element_type (
3286: 'ZAP',
3287: p_tagging_element_type_id,
3290: l_effective_start_date,
3291: l_effective_end_date);
3292:
3293: --
3294: hr_utility.set_location('pay_accrual_plans_pkg.pre_delete_actions', 51);
3295: hr_elements.del_3p_element_type (
3296: p_tagging_element_type_id,
3297: 'ZAP',
3298: p_effective_date,
3311: p_accrual_plan_id => p_accrual_plan_id,
3312: p_object_version_number => p_object_version_number
3313: );
3314:
3315: hr_utility.set_location(l_proc, 60);
3316: --
3317: -- Call After Process User Hook
3318: --
3319: begin
3333: (p_module_name => 'delete_accrual_plan'
3334: ,p_hook_type => 'AP'
3335: );
3336: end;
3337: hr_utility.set_location(l_proc, 65);
3338:
3339: --
3340: -- When in validation only mode raise the Validate_Enabled exception
3341: --
3343: raise hr_api.validate_enabled;
3344: end if;
3345:
3346: --
3347: hr_utility.set_location(' Leaving:'||l_proc, 70);
3348: exception
3349: when hr_api.validate_enabled then
3350: --
3351: -- As the Validate_Enabled exception has been raised
3357: -- (Any key or derived arguments must be set to null
3358: -- when validation only mode is being used.)
3359: --
3360:
3361: hr_utility.set_location(' Leaving:'||l_proc, 80);
3362: when others then
3363: --
3364: -- A validation or unexpected error has occured
3365: --
3363: --
3364: -- A validation or unexpected error has occured
3365: --
3366: rollback to delete_accrual_plan;
3367: hr_utility.set_location(' Leaving:'||l_proc, 90);
3368: raise;
3369: end delete_accrual_plan;
3370: --
3371: end hr_accrual_plan_api;