[Home] [Help]
111: open csr_formula_type(p_formula_type);
112: fetch csr_formula_type into p_formula_type_id;
113: if csr_formula_type%notfound then
114: close csr_formula_type;
115: hr_utility.set_message(801, 'PAY_50058_ETM_BAD_FORMULA_TYPE');
116: hr_utility.set_message_token('FORMULA_TYPE', p_formula_type);
117: hr_utility.raise_error;
118: end if;
119: close csr_formula_type;
112: fetch csr_formula_type into p_formula_type_id;
113: if csr_formula_type%notfound then
114: close csr_formula_type;
115: hr_utility.set_message(801, 'PAY_50058_ETM_BAD_FORMULA_TYPE');
116: hr_utility.set_message_token('FORMULA_TYPE', p_formula_type);
117: hr_utility.raise_error;
118: end if;
119: close csr_formula_type;
120: end get_formula_type_id;
113: if csr_formula_type%notfound then
114: close csr_formula_type;
115: hr_utility.set_message(801, 'PAY_50058_ETM_BAD_FORMULA_TYPE');
116: hr_utility.set_message_token('FORMULA_TYPE', p_formula_type);
117: hr_utility.raise_error;
118: end if;
119: close csr_formula_type;
120: end get_formula_type_id;
121: --
168: , p_non_payments_flag
169: ;
170: if csr_ele_classification%notfound then
171: close csr_ele_classification;
172: hr_utility.set_message(801, 'PAY_50060_ETM_BAD_ELE_CLASS');
173: hr_utility.set_message_token('CLASSIFICATION', p_classification);
174: hr_utility.raise_error;
175: end if;
176: close csr_ele_classification;
169: ;
170: if csr_ele_classification%notfound then
171: close csr_ele_classification;
172: hr_utility.set_message(801, 'PAY_50060_ETM_BAD_ELE_CLASS');
173: hr_utility.set_message_token('CLASSIFICATION', p_classification);
174: hr_utility.raise_error;
175: end if;
176: close csr_ele_classification;
177: --
170: if csr_ele_classification%notfound then
171: close csr_ele_classification;
172: hr_utility.set_message(801, 'PAY_50060_ETM_BAD_ELE_CLASS');
173: hr_utility.set_message_token('CLASSIFICATION', p_classification);
174: hr_utility.raise_error;
175: end if;
176: close csr_ele_classification;
177: --
178: return l_classification_id;
210: );
211: fetch csr_ben_classification into l_ben_classification_id;
212: if csr_ben_classification%notfound then
213: close csr_ben_classification;
214: hr_utility.set_message(801, 'PAY_50061_ETM_BAD_BEN_CLASS');
215: hr_utility.set_message_token('CLASSIFICATION', p_ben_classification);
216: hr_utility.raise_error;
217: end if;
218: close csr_ben_classification;
211: fetch csr_ben_classification into l_ben_classification_id;
212: if csr_ben_classification%notfound then
213: close csr_ben_classification;
214: hr_utility.set_message(801, 'PAY_50061_ETM_BAD_BEN_CLASS');
215: hr_utility.set_message_token('CLASSIFICATION', p_ben_classification);
216: hr_utility.raise_error;
217: end if;
218: close csr_ben_classification;
219: --
212: if csr_ben_classification%notfound then
213: close csr_ben_classification;
214: hr_utility.set_message(801, 'PAY_50061_ETM_BAD_BEN_CLASS');
215: hr_utility.set_message_token('CLASSIFICATION', p_ben_classification);
216: hr_utility.raise_error;
217: end if;
218: close csr_ben_classification;
219: --
220: return l_ben_classification_id;
261: );
262: fetch csr_formula into l_formula_id;
263: if csr_formula%notfound then
264: close csr_formula;
265: hr_utility.set_message(801, 'PAY_50062_ETM_BAD_FORMULA_NAME');
266: hr_utility.set_message_token('FORMULA_NAME', p_formula);
267: hr_utility.raise_error;
268: end if;
269: close csr_formula;
262: fetch csr_formula into l_formula_id;
263: if csr_formula%notfound then
264: close csr_formula;
265: hr_utility.set_message(801, 'PAY_50062_ETM_BAD_FORMULA_NAME');
266: hr_utility.set_message_token('FORMULA_NAME', p_formula);
267: hr_utility.raise_error;
268: end if;
269: close csr_formula;
270: --
263: if csr_formula%notfound then
264: close csr_formula;
265: hr_utility.set_message(801, 'PAY_50062_ETM_BAD_FORMULA_NAME');
266: hr_utility.set_message_token('FORMULA_NAME', p_formula);
267: hr_utility.raise_error;
268: end if;
269: close csr_formula;
270: --
271: return l_formula_id;
303: );
304: fetch csr_balance into l_balance_id;
305: if csr_balance%notfound then
306: close csr_balance;
307: hr_utility.set_message(801, 'PAY_50063_ETM_BAD_BALANCE_NAME');
308: hr_utility.set_message_token('BALANCE_NAME', p_balance);
309: end if;
310: close csr_balance;
311: --
304: fetch csr_balance into l_balance_id;
305: if csr_balance%notfound then
306: close csr_balance;
307: hr_utility.set_message(801, 'PAY_50063_ETM_BAD_BALANCE_NAME');
308: hr_utility.set_message_token('BALANCE_NAME', p_balance);
309: end if;
310: close csr_balance;
311: --
312: return l_balance_id;
349: );
350: fetch csr_element_name into l_element_type_id;
351: if csr_element_name%notfound then
352: close csr_element_name;
353: hr_utility.set_message(801, 'PAY_50215_ETM_BAD_ELEMENT_TYPE');
354: hr_utility.set_message_token('ELEMENT_TYPE', p_element_name);
355: hr_utility.raise_error;
356: end if;
357: close csr_element_name;
350: fetch csr_element_name into l_element_type_id;
351: if csr_element_name%notfound then
352: close csr_element_name;
353: hr_utility.set_message(801, 'PAY_50215_ETM_BAD_ELEMENT_TYPE');
354: hr_utility.set_message_token('ELEMENT_TYPE', p_element_name);
355: hr_utility.raise_error;
356: end if;
357: close csr_element_name;
358: --
351: if csr_element_name%notfound then
352: close csr_element_name;
353: hr_utility.set_message(801, 'PAY_50215_ETM_BAD_ELEMENT_TYPE');
354: hr_utility.set_message_token('ELEMENT_TYPE', p_element_name);
355: hr_utility.raise_error;
356: end if;
357: close csr_element_name;
358: --
359: return l_element_type_id;
395: );
396: fetch csr_event_group into l_event_group_id;
397: if csr_event_group%notfound then
398: close csr_event_group;
399: hr_utility.set_message(801, 'PAY_50201_ETM_BAD_EVENT_GROUP');
400: hr_utility.set_message_token('EVENT_GROUP', p_event_group);
401: hr_utility.raise_error;
402: end if;
403: close csr_event_group;
396: fetch csr_event_group into l_event_group_id;
397: if csr_event_group%notfound then
398: close csr_event_group;
399: hr_utility.set_message(801, 'PAY_50201_ETM_BAD_EVENT_GROUP');
400: hr_utility.set_message_token('EVENT_GROUP', p_event_group);
401: hr_utility.raise_error;
402: end if;
403: close csr_event_group;
404: --
397: if csr_event_group%notfound then
398: close csr_event_group;
399: hr_utility.set_message(801, 'PAY_50201_ETM_BAD_EVENT_GROUP');
400: hr_utility.set_message_token('EVENT_GROUP', p_event_group);
401: hr_utility.raise_error;
402: end if;
403: close csr_event_group;
404: --
405: return l_event_group_id;
437: );
438: fetch csr_bal_dimension into l_bal_dimension_id;
439: if csr_bal_dimension%notfound then
440: close csr_bal_dimension;
441: hr_utility.set_message(801, 'PAY_50059_ETM_BAD_BAL_DIMENSON');
442: hr_utility.set_message_token('BALANCE_DIMENSION', p_bal_dimension);
443: hr_utility.raise_error;
444: end if;
445: close csr_bal_dimension;
438: fetch csr_bal_dimension into l_bal_dimension_id;
439: if csr_bal_dimension%notfound then
440: close csr_bal_dimension;
441: hr_utility.set_message(801, 'PAY_50059_ETM_BAD_BAL_DIMENSON');
442: hr_utility.set_message_token('BALANCE_DIMENSION', p_bal_dimension);
443: hr_utility.raise_error;
444: end if;
445: close csr_bal_dimension;
446: --
439: if csr_bal_dimension%notfound then
440: close csr_bal_dimension;
441: hr_utility.set_message(801, 'PAY_50059_ETM_BAD_BAL_DIMENSON');
442: hr_utility.set_message_token('BALANCE_DIMENSION', p_bal_dimension);
443: hr_utility.raise_error;
444: end if;
445: close csr_bal_dimension;
446: --
447: return l_bal_dimension_id;
484: );
485: fetch csr_run_type into l_run_type_id;
486: if csr_run_type%notfound then
487: close csr_run_type;
488: hr_utility.set_message(801, 'PAY_50064_ETM_BAD_RUN_TYPE');
489: hr_utility.set_message_token('RUN_TYPE', p_run_type);
490: hr_utility.raise_error;
491: end if;
492: close csr_run_type;
485: fetch csr_run_type into l_run_type_id;
486: if csr_run_type%notfound then
487: close csr_run_type;
488: hr_utility.set_message(801, 'PAY_50064_ETM_BAD_RUN_TYPE');
489: hr_utility.set_message_token('RUN_TYPE', p_run_type);
490: hr_utility.raise_error;
491: end if;
492: close csr_run_type;
493: --
486: if csr_run_type%notfound then
487: close csr_run_type;
488: hr_utility.set_message(801, 'PAY_50064_ETM_BAD_RUN_TYPE');
489: hr_utility.set_message_token('RUN_TYPE', p_run_type);
490: hr_utility.raise_error;
491: end if;
492: close csr_run_type;
493: --
494: return l_run_type_id;
531: );
532: fetch csr_balance_category into l_balance_category_id;
533: if csr_balance_category%notfound then
534: close csr_balance_category;
535: hr_utility.set_message(801, 'PAY_51520_ETM_BAD_BAL_CATEGORY');
536: hr_utility.set_message_token('BALANCE_CATEGORY', p_bal_category);
537: hr_utility.raise_error;
538: end if;
539: close csr_balance_category;
532: fetch csr_balance_category into l_balance_category_id;
533: if csr_balance_category%notfound then
534: close csr_balance_category;
535: hr_utility.set_message(801, 'PAY_51520_ETM_BAD_BAL_CATEGORY');
536: hr_utility.set_message_token('BALANCE_CATEGORY', p_bal_category);
537: hr_utility.raise_error;
538: end if;
539: close csr_balance_category;
540: --
533: if csr_balance_category%notfound then
534: close csr_balance_category;
535: hr_utility.set_message(801, 'PAY_51520_ETM_BAD_BAL_CATEGORY');
536: hr_utility.set_message_token('BALANCE_CATEGORY', p_bal_category);
537: hr_utility.raise_error;
538: end if;
539: close csr_balance_category;
540: --
541: return l_balance_category_id;
573: );
574: fetch csr_attribute into l_attribute_id;
575: if csr_attribute%notfound then
576: close csr_attribute;
577: hr_utility.set_message(801, 'PAY_50211_ETM_BAD_BAL_ATTR_DEF');
578: hr_utility.set_message_token('BALANCE_ATTR_DEF', p_attribute);
579: hr_utility.raise_error;
580: end if;
581: close csr_attribute;
574: fetch csr_attribute into l_attribute_id;
575: if csr_attribute%notfound then
576: close csr_attribute;
577: hr_utility.set_message(801, 'PAY_50211_ETM_BAD_BAL_ATTR_DEF');
578: hr_utility.set_message_token('BALANCE_ATTR_DEF', p_attribute);
579: hr_utility.raise_error;
580: end if;
581: close csr_attribute;
582: --
575: if csr_attribute%notfound then
576: close csr_attribute;
577: hr_utility.set_message(801, 'PAY_50211_ETM_BAD_BAL_ATTR_DEF');
578: hr_utility.set_message_token('BALANCE_ATTR_DEF', p_attribute);
579: hr_utility.raise_error;
580: end if;
581: close csr_attribute;
582: --
583: return l_attribute_id;
602: ,p_sba_core_objects in out nocopy pay_element_template_util.t_core_objects
603: ) is
604: l_proc varchar2(72) := g_package||'flush_generation_tables';
605: begin
606: hr_utility.set_location('Entering:'|| l_proc, 10);
607: p_sf_core_objects.delete;
608: p_sbt_core_objects.delete;
609: p_sdb_core_objects.delete;
610: p_set_core_objects.delete;
617: p_sir_core_objects.delete;
618: p_seu_core_objects.delete;
619: p_sgb_core_objects.delete;
620: p_sba_core_objects.delete;
621: hr_utility.set_location(' Leaving:'||l_proc, 20);
622: end flush_generation_tables;
623: -- ----------------------------------------------------------------------------
624: -- |----------------------< create_generation_tables >------------------------|
625: -- ----------------------------------------------------------------------------
646: l_index number;
647: l_core_object_type varchar2(30);
648: --
649: begin
650: hr_utility.set_location('Entering:'|| l_proc, 10);
651: --
652: -- Flush the current generation tables.
653: --
654: flush_generation_tables
715: end if;
716: --
717: i := p_all_core_objects.next(i);
718: end loop;
719: hr_utility.set_location(' Leaving:'||l_proc, 90);
720: end create_generation_tables;
721: -- ----------------------------------------------------------------------------
722: -- |-------------------------< core_object_exists >---------------------------|
723: -- ----------------------------------------------------------------------------
800: from pay_balance_attributes
801: where balance_attribute_id = p_core_object_id;
802: --
803: begin
804: hr_utility.set_location('Entering:'|| l_proc, 10);
805: --
806: -- A core object corresponding a shadow object exists if there is
807: -- a row for it in PAY_TEMPLATE_CORE_OBJECTS, and the generated object
808: -- still exists in the core schema.
809: --
810: if p_core_objects.exists(p_shadow_object_id) then
811: l_core_object_id := p_core_objects(p_shadow_object_id).core_object_id;
812: if p_object_type = g_sf_lookup_type then
813: hr_utility.set_location(l_proc, 20);
814: open csr_sf_core_object_exists(l_core_object_id);
815: fetch csr_sf_core_object_exists into l_count;
816: close csr_sf_core_object_exists;
817: return l_count > 0;
815: fetch csr_sf_core_object_exists into l_count;
816: close csr_sf_core_object_exists;
817: return l_count > 0;
818: elsif p_object_type = g_set_lookup_type then
819: hr_utility.set_location(l_proc, 30);
820: open csr_set_core_object_exists(l_core_object_id);
821: fetch csr_set_core_object_exists into l_count;
822: close csr_set_core_object_exists;
823: return l_count > 0;
821: fetch csr_set_core_object_exists into l_count;
822: close csr_set_core_object_exists;
823: return l_count > 0;
824: elsif p_object_type = g_sbt_lookup_type then
825: hr_utility.set_location(l_proc, 40);
826: open csr_sbt_core_object_exists(l_core_object_id);
827: fetch csr_sbt_core_object_exists into l_count;
828: close csr_sbt_core_object_exists;
829: return l_count > 0;
827: fetch csr_sbt_core_object_exists into l_count;
828: close csr_sbt_core_object_exists;
829: return l_count > 0;
830: elsif p_object_type = g_sdb_lookup_type then
831: hr_utility.set_location(l_proc, 50);
832: open csr_sdb_core_object_exists(l_core_object_id);
833: fetch csr_sdb_core_object_exists into l_count;
834: close csr_sdb_core_object_exists;
835: return l_count > 0;
833: fetch csr_sdb_core_object_exists into l_count;
834: close csr_sdb_core_object_exists;
835: return l_count > 0;
836: elsif p_object_type = g_ssr_lookup_type then
837: hr_utility.set_location(l_proc, 60);
838: open csr_ssr_core_object_exists(l_core_object_id);
839: fetch csr_ssr_core_object_exists into l_count;
840: close csr_ssr_core_object_exists;
841: return l_count > 0;
839: fetch csr_ssr_core_object_exists into l_count;
840: close csr_ssr_core_object_exists;
841: return l_count > 0;
842: elsif p_object_type = g_sbc_lookup_type then
843: hr_utility.set_location(l_proc, 70);
844: open csr_sbc_core_object_exists(l_core_object_id);
845: fetch csr_sbc_core_object_exists into l_count;
846: close csr_sbc_core_object_exists;
847: return l_count > 0;
845: fetch csr_sbc_core_object_exists into l_count;
846: close csr_sbc_core_object_exists;
847: return l_count > 0;
848: elsif p_object_type = g_siv_lookup_type then
849: hr_utility.set_location(l_proc, 80);
850: open csr_siv_core_object_exists(l_core_object_id);
851: fetch csr_siv_core_object_exists into l_count;
852: close csr_siv_core_object_exists;
853: return l_count > 0;
851: fetch csr_siv_core_object_exists into l_count;
852: close csr_siv_core_object_exists;
853: return l_count > 0;
854: elsif p_object_type = g_sbf_lookup_type then
855: hr_utility.set_location(l_proc, 90);
856: open csr_sbf_core_object_exists(l_core_object_id);
857: fetch csr_sbf_core_object_exists into l_count;
858: close csr_sbf_core_object_exists;
859: return l_count > 0;
857: fetch csr_sbf_core_object_exists into l_count;
858: close csr_sbf_core_object_exists;
859: return l_count > 0;
860: elsif p_object_type = g_spr_lookup_type then
861: hr_utility.set_location(l_proc, 95);
862: open csr_spr_core_object_exists(l_core_object_id);
863: fetch csr_spr_core_object_exists into l_count;
864: close csr_spr_core_object_exists;
865: return l_count > 0;
863: fetch csr_spr_core_object_exists into l_count;
864: close csr_spr_core_object_exists;
865: return l_count > 0;
866: elsif p_object_type = g_sfr_lookup_type then
867: hr_utility.set_location(l_proc, 100);
868: open csr_sfr_core_object_exists(l_core_object_id);
869: fetch csr_sfr_core_object_exists into l_count;
870: close csr_sfr_core_object_exists;
871: return l_count > 0;
869: fetch csr_sfr_core_object_exists into l_count;
870: close csr_sfr_core_object_exists;
871: return l_count > 0;
872: elsif p_object_type = g_sir_lookup_type then
873: hr_utility.set_location(l_proc, 110);
874: open csr_sir_core_object_exists(l_core_object_id);
875: fetch csr_sir_core_object_exists into l_count;
876: close csr_sir_core_object_exists;
877: return l_count > 0;
875: fetch csr_sir_core_object_exists into l_count;
876: close csr_sir_core_object_exists;
877: return l_count > 0;
878: elsif p_object_type = g_seu_lookup_type then
879: hr_utility.set_location(l_proc, 120);
880: open csr_seu_core_object_exists(l_core_object_id);
881: fetch csr_seu_core_object_exists into l_count;
882: close csr_seu_core_object_exists;
883: return l_count > 0;
881: fetch csr_seu_core_object_exists into l_count;
882: close csr_seu_core_object_exists;
883: return l_count > 0;
884: elsif p_object_type = g_sgb_lookup_type then
885: hr_utility.set_location(l_proc, 130);
886: open csr_sgb_core_object_exists(l_core_object_id);
887: fetch csr_sgb_core_object_exists into l_count;
888: close csr_sgb_core_object_exists;
889: return l_count > 0;
887: fetch csr_sgb_core_object_exists into l_count;
888: close csr_sgb_core_object_exists;
889: return l_count > 0;
890: elsif p_object_type = g_sba_lookup_type then
891: hr_utility.set_location(l_proc, 140);
892: open csr_sba_core_object_exists(l_core_object_id);
893: fetch csr_sba_core_object_exists into l_count;
894: close csr_sba_core_object_exists;
895: return l_count > 0;
903: -- Object does not exist because no rows in PAY_TEMPLATE_CORE_OBJECTS.
904: --
905: return false;
906: --
907: hr_utility.set_location('Leaving:'|| l_proc, 500);
908: exception
909: when others then
910: hr_utility.set_location('Leaving:'|| l_proc, 510);
911: if csr_sf_core_object_exists%isopen then
906: --
907: hr_utility.set_location('Leaving:'|| l_proc, 500);
908: exception
909: when others then
910: hr_utility.set_location('Leaving:'|| l_proc, 510);
911: if csr_sf_core_object_exists%isopen then
912: close csr_sf_core_object_exists;
913: end if;
914: --
979: ) is
980: l_proc varchar2(72) := g_package||'update_core_objects';
981: l_core_object pay_tco_shd.g_rec_type;
982: begin
983: hr_utility.set_location('Entering:'|| l_proc, 10);
984: --
985: if p_core_objects.exists(p_shadow_object_id) then
986: l_core_object := p_core_objects(p_shadow_object_id);
987: l_core_object.core_object_id := p_core_object_id;
997: --
998: -- Insert to allow indexing by the shadow_object_id.
999: --
1000: p_core_objects(p_shadow_object_id) := l_core_object;
1001: hr_utility.set_location('Leaving:'|| l_proc, 100);
1002: end update_core_objects;
1003: -- ----------------------------------------------------------------------------
1004: -- |---------------------------< new_core_object >----------------------------|
1005: -- ----------------------------------------------------------------------------
1009: ) return boolean is
1010: l_proc varchar2(72) := g_package||'new_core_object';
1011: l_template_core_object_id number;
1012: begin
1013: hr_utility.set_location('Entering:'|| l_proc, 100);
1014: l_template_core_object_id := p_core_object.template_core_object_id;
1015: return not p_all_core_objects.exists(l_template_core_object_id);
1016: end new_core_object;
1017: -- ----------------------------------------------------------------------------
1034: l_last_update_date date;
1035: l_formula_type_id number;
1036: --
1037: begin
1038: hr_utility.set_location('Entering:'|| l_proc, 10);
1039: --
1040: i := p_formulas.first;
1041: loop
1042: exit when not p_formulas.exists(i);
1058: )
1059: )
1060: )
1061: then
1062: hr_utility.set_location(l_proc, 20);
1063: --
1064: -- Set up the in/out parameters.
1065: --
1066: l_formula_name := p_formulas(i).formula_name;
1097: );
1098: --
1099: -- Set up the core object table rows.
1100: --
1101: hr_utility.set_location(l_proc, 30);
1102: update_core_objects
1103: (p_effective_date => p_effective_date
1104: ,p_template_id => p_template_id
1105: ,p_core_object_type => g_sf_lookup_type
1111: --
1112: i := p_formulas.next(i);
1113: end loop;
1114: --
1115: hr_utility.set_location('Leaving:'|| l_proc, 100);
1116: end gen_formulas;
1117: -- ----------------------------------------------------------------------------
1118: -- |----------------------------< gen_balance_type >--------------------------|
1119: -- ----------------------------------------------------------------------------
1135: l_input_value_id number;
1136: l_id number;
1137: l_id1 number;
1138: begin
1139: hr_utility.set_location('Entering:' || l_proc, 10);
1140: --
1141: -- Only generate if a generated core object does not exist.
1142: --
1143: l_id := p_balance_type_id;
1145: (p_shadow_object_id => l_id
1146: ,p_object_type => g_sbt_lookup_type
1147: ,p_core_objects => p_sbt_core_objects
1148: ) then
1149: hr_utility.set_location(l_proc, 20);
1150: --
1151: -- Set up the in/out parameters.
1152: --
1153: l_balance_type_id := null;
1260: );
1261: --
1262: -- Set up the core object table rows.
1263: --
1264: hr_utility.set_location(l_proc, 30);
1265: update_core_objects
1266: (p_effective_date => p_effective_date
1267: ,p_template_id => p_template_id
1268: ,p_core_object_type => g_sbt_lookup_type
1270: ,p_core_object_id => l_balance_type_id
1271: ,p_core_objects => p_sbt_core_objects
1272: );
1273: end if;
1274: hr_utility.set_location('Leaving:'|| l_proc, 100);
1275: end gen_balance_type;
1276: -- ----------------------------------------------------------------------------
1277: -- |---------------------------< gen_balance_types >--------------------------|
1278: -- ----------------------------------------------------------------------------
1288: l_proc varchar2(72) := g_package||'gen_balance_types';
1289: i number;
1290: --
1291: begin
1292: hr_utility.set_location('Entering:'|| l_proc, 10);
1293: --
1294: i := p_balance_types.first;
1295: loop
1296: exit when not p_balance_types.exists(i);
1308: --
1309: i := p_balance_types.next(i);
1310: end loop;
1311: --
1312: hr_utility.set_location('Leaving:'|| l_proc, 100);
1313: end gen_balance_types;
1314: -- ----------------------------------------------------------------------------
1315: -- |--------------------------< gen_defined_balances >------------------------|
1316: -- ----------------------------------------------------------------------------
1333: l_balance_dimension_id number;
1334: l_defined_balance_id number;
1335: --
1336: begin
1337: hr_utility.set_location('Entering:'|| l_proc, 10);
1338: --
1339: i := p_defined_balances.first;
1340: loop
1341: exit when not p_defined_balances.exists(i);
1347: (p_shadow_object_id => l_shadow_object_id
1348: ,p_object_type => g_sdb_lookup_type
1349: ,p_core_objects => p_sdb_core_objects
1350: ) then
1351: hr_utility.set_location(l_proc, 20);
1352: --
1353: -- Set up the in/out parameters.
1354: --
1355: l_defined_balance_id := null;
1388: );
1389: --
1390: -- Set up the core object table rows.
1391: --
1392: hr_utility.set_location(l_proc, 30);
1393: update_core_objects
1394: (p_effective_date => p_effective_date
1395: ,p_template_id => p_template_id
1396: ,p_core_object_type => g_sdb_lookup_type
1402: --
1403: i := p_defined_balances.next(i);
1404: end loop;
1405: --
1406: hr_utility.set_location('Leaving:'|| l_proc, 100);
1407: end gen_defined_balances;
1408: -- ----------------------------------------------------------------------------
1409: -- |---------------------------< gen_element_types >--------------------------|
1410: -- ----------------------------------------------------------------------------
1438: l_proration_formula_id number;
1439: l_recalc_event_group_id number;
1440: --
1441: begin
1442: hr_utility.set_location('Entering:'|| l_proc, 10);
1443: --
1444: l_bus_grp_currency_code :=
1445: hr_general.default_currency_code(p_business_group_id);
1446: --
1455: (p_shadow_object_id => l_shadow_object_id
1456: ,p_object_type => g_set_lookup_type
1457: ,p_core_objects => p_set_core_objects
1458: ) then
1459: hr_utility.set_location(l_proc, 20);
1460: --
1461: -- Set up the in/out parameters.
1462: --
1463: l_element_type_id := null;
1549: --
1550: -- The business rule checking has to be performed here because the
1551: -- creation API does not contain business rule checking code!
1552: --
1553: hr_utility.set_location(l_proc, 40);
1554: hr_elements.chk_element_type
1555: (p_element_name => p_element_types(i).element_name
1556: ,p_element_type_id => null
1557: ,p_val_start_date => p_effective_date
1575: );
1576: --
1577: -- Insert the element row.
1578: --
1579: hr_utility.set_location(l_proc, 50);
1580: pay_element_types_pkg.insert_row
1581: (p_rowid => l_rowid
1582: ,p_element_type_id => l_element_type_id
1583: ,p_effective_start_date => p_effective_date
1683: );
1684: --
1685: -- Set up the core object table rows.
1686: --
1687: hr_utility.set_location(l_proc, 40);
1688: update_core_objects
1689: (p_effective_date => p_effective_date
1690: ,p_template_id => p_template_id
1691: ,p_core_object_type => g_set_lookup_type
1705: (p_shadow_object_id => i
1706: ,p_object_type => g_spr_lookup_type
1707: ,p_core_objects => p_spr_core_objects
1708: ) then
1709: hr_utility.set_location(l_proc, 50);
1710: --
1711: l_element_type_id := p_set_core_objects(i).core_object_id;
1712: l_shadow_object_id := p_element_types(i).payroll_formula_id;
1713: l_formula_id := p_sf_core_objects(l_shadow_object_id).core_object_id;
1735: );
1736: --
1737: -- Set up the core object table rows.
1738: --
1739: hr_utility.set_location(l_proc, 60);
1740: update_core_objects
1741: (p_effective_date => p_effective_date
1742: ,p_template_id => p_template_id
1743: ,p_core_object_type => g_spr_lookup_type
1749: --
1750: i := p_element_types.next(i);
1751: end loop;
1752: --
1753: hr_utility.set_location('Leaving:'|| l_proc, 100);
1754: end gen_element_types;
1755: -- ----------------------------------------------------------------------------
1756: -- |----------------------< implicit_sub_classi_rules >-----------------------|
1757: -- ----------------------------------------------------------------------------
1787: from pay_sub_classification_rules_f
1788: where element_type_id = p_element_type_id
1789: and classification_id = p_classification_id;
1790: begin
1791: hr_utility.set_location('Entering:'|| l_proc, 10);
1792: i := p_sub_classi_rules.first;
1793: loop
1794: exit when not p_sub_classi_rules.exists(i);
1795: --
1816: );
1817: --
1818: -- Look for the implicitly created sub-classification rule.
1819: --
1820: hr_utility.set_location(l_proc, 20);
1821: open csr_sub_classi_rule(l_element_type_id ,l_ele_classification_id);
1822: fetch csr_sub_classi_rule into l_sub_classification_rule_id;
1823: if csr_sub_classi_rule%found then
1824: --
1824: --
1825: -- Sub-classification rule found. Update the template generation
1826: -- table.
1827: --
1828: hr_utility.set_location(l_proc, 30);
1829: update_core_objects
1830: (p_effective_date => p_effective_date
1831: ,p_template_id => p_template_id
1832: ,p_core_object_type => g_ssr_lookup_type
1839: end if;
1840: --
1841: i := p_sub_classi_rules.next(i);
1842: end loop;
1843: hr_utility.set_location('Leaving:'|| l_proc, 100);
1844: exception
1845: when others then
1846: hr_utility.set_location('Leaving:'|| l_proc, 110);
1847: if csr_sub_classi_rule%isopen then
1842: end loop;
1843: hr_utility.set_location('Leaving:'|| l_proc, 100);
1844: exception
1845: when others then
1846: hr_utility.set_location('Leaving:'|| l_proc, 110);
1847: if csr_sub_classi_rule%isopen then
1848: close csr_sub_classi_rule;
1849: end if;
1850: raise;
1871: l_ele_classification_id number;
1872: l_non_payments_flag varchar2(30);
1873: --
1874: begin
1875: hr_utility.set_location('Entering:'|| l_proc, 10);
1876: --
1877: i := p_sub_classi_rules.first;
1878: loop
1879: exit when not p_sub_classi_rules.exists(i);
1885: (p_shadow_object_id => l_shadow_object_id
1886: ,p_object_type => g_ssr_lookup_type
1887: ,p_core_objects => p_ssr_core_objects
1888: ) then
1889: hr_utility.set_location(l_proc, 20);
1890: --
1891: -- Set up the in/out parameters.
1892: --
1893: l_sub_classification_rule_id := null;
1909: p_set_core_objects(p_sub_classi_rules(i).element_type_id).core_object_id;
1910: --
1911: -- Insert the secondary classification row.
1912: --
1913: hr_utility.set_location(l_proc, 30);
1914: pay_sub_class_rules_pkg.insert_row
1915: (p_rowid => l_rowid
1916: ,p_sub_classification_rule_id => l_sub_classification_rule_id
1917: ,p_effective_start_date => p_effective_date
1928: );
1929: --
1930: -- Set up the core object table rows.
1931: --
1932: hr_utility.set_location(l_proc, 30);
1933: update_core_objects
1934: (p_effective_date => p_effective_date
1935: ,p_template_id => p_template_id
1936: ,p_core_object_type => g_ssr_lookup_type
1942: --
1943: i := p_sub_classi_rules.next(i);
1944: end loop;
1945: --
1946: hr_utility.set_location('Leaving:'|| l_proc, 100);
1947: end gen_sub_classi_rules;
1948: -- ----------------------------------------------------------------------------
1949: -- |-------------------------< gen_balance_classis >--------------------------|
1950: -- ----------------------------------------------------------------------------
1967: l_ele_classification_id number;
1968: l_non_payments_flag varchar2(30);
1969: --
1970: begin
1971: hr_utility.set_location('Entering:'|| l_proc, 10);
1972: --
1973: i := p_balance_classis.first;
1974: loop
1975: exit when not p_balance_classis.exists(i);
1981: (p_shadow_object_id => l_shadow_object_id
1982: ,p_object_type => g_sbc_lookup_type
1983: ,p_core_objects => p_sbc_core_objects
1984: ) then
1985: hr_utility.set_location(l_proc, 20);
1986: --
1987: -- Set up the in/out parameters.
1988: --
1989: l_balance_classification_id := null;
2018: );
2019: --
2020: -- Set up the core object table rows.
2021: --
2022: hr_utility.set_location(l_proc, 30);
2023: update_core_objects
2024: (p_effective_date => p_effective_date
2025: ,p_template_id => p_template_id
2026: ,p_core_object_type => g_sbc_lookup_type
2032: --
2033: i := p_balance_classis.next(i);
2034: end loop;
2035: --
2036: hr_utility.set_location('Leaving:'|| l_proc, 100);
2037: end gen_balance_classis;
2038: -- ----------------------------------------------------------------------------
2039: -- |-------------------------< implicit_input_values >------------------------|
2040: -- ----------------------------------------------------------------------------
2085: and name = 'Pay Value';
2086: --
2087: l_input_value csr_input_value%rowtype;
2088: begin
2089: hr_utility.set_location('Entering:'|| l_proc, 10);
2090: i := p_input_values.first;
2091: loop
2092: exit when not p_input_values.exists(i);
2093: --
2105: ) then
2106: --
2107: -- It's a new element, so check for the implicitly created 'Pay Value'.
2108: --
2109: hr_utility.set_location(l_proc, 20);
2110: l_element_type_id :=
2111: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2112: open csr_input_value(l_element_type_id ,l_name);
2113: fetch csr_input_value into l_input_value;
2114: if csr_input_value%found then
2115: --
2116: -- Input value rule found. Update the template generation table.
2117: --
2118: hr_utility.set_location(l_proc, 30);
2119: update_core_objects
2120: (p_effective_date => p_effective_date
2121: ,p_template_id => p_template_id
2122: ,p_core_object_type => g_siv_lookup_type
2127: --
2128: -- Update the input value if the mandatory flags differ - there
2129: -- shouldn't be any other difference of interest.
2130: --
2131: hr_utility.set_location(l_proc, 35);
2132: if l_input_value.mandatory_flag <>
2133: p_input_values(i).mandatory_flag then
2134: pay_input_values_pkg.update_row
2135: (p_rowid => l_input_value.rowid
2161: end if;
2162: --
2163: i := p_input_values.next(i);
2164: end loop;
2165: hr_utility.set_location('Leaving:'|| l_proc, 100);
2166: exception
2167: when others then
2168: hr_utility.set_location('Leaving:'|| l_proc, 110);
2169: if csr_input_value%isopen then
2164: end loop;
2165: hr_utility.set_location('Leaving:'|| l_proc, 100);
2166: exception
2167: when others then
2168: hr_utility.set_location('Leaving:'|| l_proc, 110);
2169: if csr_input_value%isopen then
2170: close csr_input_value;
2171: end if;
2172: raise;
2196: l_default_value varchar2(2000);
2197: l_formula_id number;
2198: --
2199: begin
2200: hr_utility.set_location('Entering:'|| l_proc, 10);
2201: --
2202: i := p_input_values.first;
2203: loop
2204: exit when not p_input_values.exists(i);
2210: (p_shadow_object_id => l_shadow_object_id
2211: ,p_object_type => g_siv_lookup_type
2212: ,p_core_objects => p_siv_core_objects
2213: ) then
2214: hr_utility.set_location(l_proc, 20);
2215: --
2216: -- Set up the in/out parameters.
2217: --
2218: l_input_value_id := null;
2224: p_set_core_objects(p_input_values(i).element_type_id).core_object_id;
2225: --
2226: -- Insert the input value row.
2227: --
2228: hr_utility.set_location(l_proc, 30);
2229: --
2230:
2231: l_default_value := p_input_values(i).default_value;
2232:
2282: );
2283: --
2284: -- Set up the core object table rows.
2285: --
2286: hr_utility.set_location(l_proc, 30);
2287: update_core_objects
2288: (p_effective_date => p_effective_date
2289: ,p_template_id => p_template_id
2290: ,p_core_object_type => g_siv_lookup_type
2296: --
2297: i := p_input_values.next(i);
2298: end loop;
2299: --
2300: hr_utility.set_location('Leaving:'|| l_proc, 100);
2301: end gen_input_values;
2302: -- ----------------------------------------------------------------------------
2303: -- |---------------------------< gen_balance_feeds >--------------------------|
2304: -- ----------------------------------------------------------------------------
2322: l_balance_feed_id number;
2323: l_check_latest_balances boolean;
2324: --
2325: begin
2326: hr_utility.set_location('Entering:'|| l_proc, 10);
2327: --
2328: i := p_balance_feeds.first;
2329: loop
2330: exit when not p_balance_feeds.exists(i);
2336: (p_shadow_object_id => l_shadow_object_id
2337: ,p_object_type => g_sbf_lookup_type
2338: ,p_core_objects => p_sbf_core_objects
2339: ) then
2340: hr_utility.set_location(l_proc, 20);
2341: --
2342: -- Set up the in/out parameters.
2343: --
2344: l_balance_feed_id := null;
2370: p_siv_core_objects(p_balance_feeds(i).input_value_id).core_object_id;
2371: --
2372: -- Insert the balance feed row.
2373: --
2374: hr_utility.set_location(l_proc, 30);
2375:
2376: begin
2377: --
2378: -- Disable (unnecessary) latest balance checking.
2409:
2410: --
2411: -- Set up the core object table rows.
2412: --
2413: hr_utility.set_location(l_proc, 40);
2414: update_core_objects
2415: (p_effective_date => p_effective_date
2416: ,p_template_id => p_template_id
2417: ,p_core_object_type => g_sbf_lookup_type
2423: --
2424: i := p_balance_feeds.next(i);
2425: end loop;
2426: --
2427: hr_utility.set_location('Leaving:'|| l_proc, 100);
2428: end gen_balance_feeds;
2429: -- ----------------------------------------------------------------------------
2430: -- |---------------------------< gen_formula_rules >--------------------------|
2431: -- ----------------------------------------------------------------------------
2454: l_formula_result_rule_id number;
2455: l_status_processing_rule_id number;
2456: --
2457: begin
2458: hr_utility.set_location('Entering:'|| l_proc, 10);
2459: --
2460: i := p_formula_rules.first;
2461: loop
2462: exit when not p_formula_rules.exists(i);
2468: (p_shadow_object_id => l_shadow_object_id
2469: ,p_object_type => g_sfr_lookup_type
2470: ,p_core_objects => p_sfr_core_objects
2471: ) then
2472: hr_utility.set_location(l_proc, 20);
2473: -----------------------------------
2474: -- Set up the in/out parameters. --
2475: -----------------------------------
2476: l_formula_result_rule_id := null;
2486: ) then
2487: l_status_processing_rule_id :=
2488: p_spr_core_objects(l_shadow_element_type_id).core_object_id;
2489: else
2490: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2491: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2492: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2493: hr_utility.raise_error;
2494: end if;
2487: l_status_processing_rule_id :=
2488: p_spr_core_objects(l_shadow_element_type_id).core_object_id;
2489: else
2490: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2491: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2492: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2493: hr_utility.raise_error;
2494: end if;
2495: -------------------------------------------------------------------
2488: p_spr_core_objects(l_shadow_element_type_id).core_object_id;
2489: else
2490: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2491: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2492: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2493: hr_utility.raise_error;
2494: end if;
2495: -------------------------------------------------------------------
2496: -- Set up the element_type_id and input_value_id columns for the --
2489: else
2490: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2491: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2492: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2493: hr_utility.raise_error;
2494: end if;
2495: -------------------------------------------------------------------
2496: -- Set up the element_type_id and input_value_id columns for the --
2497: -- formula rule. Raise an error if they have not been generated. --
2506: ) then
2507: l_input_value_id :=
2508: p_siv_core_objects(l_shadow_input_value_id).core_object_id;
2509: else
2510: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2511: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2512: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2513: hr_utility.raise_error;
2514: end if;
2507: l_input_value_id :=
2508: p_siv_core_objects(l_shadow_input_value_id).core_object_id;
2509: else
2510: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2511: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2512: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2513: hr_utility.raise_error;
2514: end if;
2515: end if;
2508: p_siv_core_objects(l_shadow_input_value_id).core_object_id;
2509: else
2510: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2511: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2512: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2513: hr_utility.raise_error;
2514: end if;
2515: end if;
2516: --
2509: else
2510: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2511: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2512: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2513: hr_utility.raise_error;
2514: end if;
2515: end if;
2516: --
2517: l_element_type_id := null;
2524: ) then
2525: l_element_type_id :=
2526: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2527: else
2528: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2529: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2530: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2531: hr_utility.raise_error;
2532: end if;
2525: l_element_type_id :=
2526: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2527: else
2528: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2529: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2530: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2531: hr_utility.raise_error;
2532: end if;
2533: elsif p_formula_rules(i).element_name is not null then
2526: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2527: else
2528: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2529: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2530: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2531: hr_utility.raise_error;
2532: end if;
2533: elsif p_formula_rules(i).element_name is not null then
2534: l_element_type_id :=
2527: else
2528: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2529: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2530: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2531: hr_utility.raise_error;
2532: end if;
2533: elsif p_formula_rules(i).element_name is not null then
2534: l_element_type_id :=
2535: get_element_type_id
2561: );
2562: --
2563: -- Set up the core object table rows.
2564: --
2565: hr_utility.set_location(l_proc, 30);
2566: update_core_objects
2567: (p_effective_date => p_effective_date
2568: ,p_template_id => p_template_id
2569: ,p_core_object_type => g_sfr_lookup_type
2575: --
2576: i := p_formula_rules.next(i);
2577: end loop;
2578: --
2579: hr_utility.set_location('Leaving:'|| l_proc, 100);
2580: end gen_formula_rules;
2581: -- ----------------------------------------------------------------------------
2582: -- |--------------------------< gen_iterative_rules >-------------------------|
2583: -- ----------------------------------------------------------------------------
2603: l_effective_start_date date;
2604: l_effective_end_date date;
2605: --
2606: begin
2607: hr_utility.set_location('Entering:'|| l_proc, 10);
2608: --
2609: i := p_iterative_rules.first;
2610: loop
2611: exit when not p_iterative_rules.exists(i);
2617: (p_shadow_object_id => l_shadow_object_id
2618: ,p_object_type => g_sir_lookup_type
2619: ,p_core_objects => p_sir_core_objects
2620: ) then
2621: hr_utility.set_location(l_proc, 20);
2622: -----------------------------------
2623: -- Set up the in/out parameters. --
2624: -----------------------------------
2625: l_iterative_rule_id := null;
2640: ) then
2641: l_input_value_id :=
2642: p_siv_core_objects(l_shadow_input_value_id).core_object_id;
2643: else
2644: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2645: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2646: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2647: hr_utility.raise_error;
2648: end if;
2641: l_input_value_id :=
2642: p_siv_core_objects(l_shadow_input_value_id).core_object_id;
2643: else
2644: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2645: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2646: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2647: hr_utility.raise_error;
2648: end if;
2649: end if;
2642: p_siv_core_objects(l_shadow_input_value_id).core_object_id;
2643: else
2644: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2645: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2646: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2647: hr_utility.raise_error;
2648: end if;
2649: end if;
2650: --
2643: else
2644: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2645: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2646: hr_utility.set_message_token('FK_TABLE', 'PAY_INPUT_VALUES_F');
2647: hr_utility.raise_error;
2648: end if;
2649: end if;
2650: --
2651: l_element_type_id := null;
2658: ) then
2659: l_element_type_id :=
2660: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2661: else
2662: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2663: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2664: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2665: hr_utility.raise_error;
2666: end if;
2659: l_element_type_id :=
2660: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2661: else
2662: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2663: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2664: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2665: hr_utility.raise_error;
2666: end if;
2667: end if;
2660: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2661: else
2662: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2663: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2664: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2665: hr_utility.raise_error;
2666: end if;
2667: end if;
2668: ------------------------------------
2661: else
2662: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2663: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2664: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2665: hr_utility.raise_error;
2666: end if;
2667: end if;
2668: ------------------------------------
2669: -- Insert the iterative rule row. --
2684: );
2685: --
2686: -- Set up the core object table rows.
2687: --
2688: hr_utility.set_location(l_proc, 30);
2689: update_core_objects
2690: (p_effective_date => p_effective_date
2691: ,p_template_id => p_template_id
2692: ,p_core_object_type => g_sir_lookup_type
2698: --
2699: i := p_iterative_rules.next(i);
2700: end loop;
2701: --
2702: hr_utility.set_location('Leaving:'|| l_proc, 100);
2703: end gen_iterative_rules;
2704: -- ----------------------------------------------------------------------------
2705: -- |--------------------------< gen_ele_type_usages >--------------------------|
2706: -- ----------------------------------------------------------------------------
2724: l_effective_end_date date;
2725: l_object_version_number number;
2726: --
2727: begin
2728: hr_utility.set_location('Entering:'|| l_proc, 10);
2729: --
2730: i := p_ele_type_usages.first;
2731: loop
2732: exit when not p_ele_type_usages.exists(i);
2738: (p_shadow_object_id => l_shadow_object_id
2739: ,p_object_type => g_seu_lookup_type
2740: ,p_core_objects => p_seu_core_objects
2741: ) then
2742: hr_utility.set_location(l_proc, 20);
2743: -----------------------------------
2744: -- Set up the in/out parameters. --
2745: -----------------------------------
2746: l_element_type_usage_id := null;
2764: p_set_core_objects(p_ele_type_usages(i).element_type_id).core_object_id;
2765: --
2766: -- Insert the element type usage row.
2767: --
2768: hr_utility.set_location(l_proc, 30);
2769: pay_etu_ins.ins
2770: (p_effective_date => p_effective_date
2771: ,p_run_type_id => l_run_type_id
2772: ,p_element_type_id => l_element_type_id
2780: );
2781: --
2782: -- Set up the core object table rows.
2783: --
2784: hr_utility.set_location(l_proc, 40);
2785: update_core_objects
2786: (p_effective_date => p_effective_date
2787: ,p_template_id => p_template_id
2788: ,p_core_object_type => g_seu_lookup_type
2794: --
2795: i := p_ele_type_usages.next(i);
2796: end loop;
2797: --
2798: hr_utility.set_location('Leaving:'|| l_proc, 100);
2799: end gen_ele_type_usages;
2800: -- ----------------------------------------------------------------------------
2801: -- |-------------------------< gen_gu_bal_exclusions >------------------------|
2802: -- ----------------------------------------------------------------------------
2819: l_grossup_balances_id number;
2820: l_object_version_number number;
2821: --
2822: begin
2823: hr_utility.set_location('Entering:'|| l_proc, 10);
2824: --
2825: i := p_gu_bal_exclusions.first;
2826: loop
2827: exit when not p_gu_bal_exclusions.exists(i);
2833: (p_shadow_object_id => l_shadow_object_id
2834: ,p_object_type => g_sgb_lookup_type
2835: ,p_core_objects => p_sgb_core_objects
2836: ) then
2837: hr_utility.set_location(l_proc, 20);
2838: --
2839: -- Set up the in/out parameters.
2840: --
2841: l_grossup_balances_id := null;
2866: ) then
2867: l_balance_type_id :=
2868: p_sbt_core_objects(l_balance_type_id).core_object_id;
2869: else
2870: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2871: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2872: hr_utility.set_message_token('FK_TABLE', 'PAY_BALANCE_TYPES');
2873: hr_utility.raise_error;
2874: end if;
2867: l_balance_type_id :=
2868: p_sbt_core_objects(l_balance_type_id).core_object_id;
2869: else
2870: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2871: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2872: hr_utility.set_message_token('FK_TABLE', 'PAY_BALANCE_TYPES');
2873: hr_utility.raise_error;
2874: end if;
2875: end if;
2868: p_sbt_core_objects(l_balance_type_id).core_object_id;
2869: else
2870: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2871: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2872: hr_utility.set_message_token('FK_TABLE', 'PAY_BALANCE_TYPES');
2873: hr_utility.raise_error;
2874: end if;
2875: end if;
2876: --
2869: else
2870: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2871: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2872: hr_utility.set_message_token('FK_TABLE', 'PAY_BALANCE_TYPES');
2873: hr_utility.raise_error;
2874: end if;
2875: end if;
2876: --
2877: -- Set up the source_id value.
2884: ) then
2885: l_source_id :=
2886: p_set_core_objects(p_gu_bal_exclusions(i).source_id).core_object_id;
2887: else
2888: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2889: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2890: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2891: hr_utility.raise_error;
2892: end if;
2885: l_source_id :=
2886: p_set_core_objects(p_gu_bal_exclusions(i).source_id).core_object_id;
2887: else
2888: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2889: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2890: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2891: hr_utility.raise_error;
2892: end if;
2893: end if;
2886: p_set_core_objects(p_gu_bal_exclusions(i).source_id).core_object_id;
2887: else
2888: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2889: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2890: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2891: hr_utility.raise_error;
2892: end if;
2893: end if;
2894: --
2887: else
2888: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2889: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2890: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2891: hr_utility.raise_error;
2892: end if;
2893: end if;
2894: --
2895: -- Insert the grossup balance exclusion row.
2893: end if;
2894: --
2895: -- Insert the grossup balance exclusion row.
2896: --
2897: hr_utility.set_location(l_proc, 30);
2898: pay_gbe_ins.ins
2899: (p_start_date => p_effective_date
2900: ,p_end_date => hr_api.g_eot
2901: ,p_source_id => l_source_id
2906: );
2907: --
2908: -- Set up the core object table rows.
2909: --
2910: hr_utility.set_location(l_proc, 40);
2911: update_core_objects
2912: (p_effective_date => p_effective_date
2913: ,p_template_id => p_template_id
2914: ,p_core_object_type => g_sgb_lookup_type
2920: --
2921: i := p_gu_bal_exclusions.next(i);
2922: end loop;
2923: --
2924: hr_utility.set_location('Leaving:'|| l_proc, 100);
2925: end gen_gu_bal_exclusions;
2926: -- ----------------------------------------------------------------------------
2927: -- |-----------------------< gen_balance_attributes >-------------------------|
2928: -- ----------------------------------------------------------------------------
2943: l_defined_balance_id number;
2944: l_bal_attribute_def_id number;
2945: --
2946: begin
2947: hr_utility.set_location('Entering:'|| l_proc, 10);
2948: --
2949: i := p_bal_attributes.first;
2950: loop
2951: exit when not p_bal_attributes.exists(i);
2957: (p_shadow_object_id => l_shadow_object_id
2958: ,p_object_type => g_sba_lookup_type
2959: ,p_core_objects => p_sba_core_objects
2960: ) then
2961: hr_utility.set_location(l_proc, 20);
2962: --
2963: -- Set up the attribute_id for the external balance attribute definition.
2964: --
2965: l_bal_attribute_def_id :=
2986: );
2987: --
2988: -- Set up the core object table rows.
2989: --
2990: hr_utility.set_location(l_proc, 30);
2991: update_core_objects
2992: (p_effective_date => p_effective_date
2993: ,p_template_id => p_template_id
2994: ,p_core_object_type => g_sba_lookup_type
3000: --
3001: i := p_bal_attributes.next(i);
3002: end loop;
3003: --
3004: hr_utility.set_location('Leaving:'|| l_proc, 100);
3005: end gen_bal_attributes;
3006: -- ----------------------------------------------------------------------------
3007: -- |---------------------------< generate_part1 >-----------------------------|
3008: -- ----------------------------------------------------------------------------
3054: l_seu_core_objects pay_element_template_util.t_core_objects;
3055: l_sgb_core_objects pay_element_template_util.t_core_objects;
3056: l_sba_core_objects pay_element_template_util.t_core_objects;
3057: begin
3058: hr_utility.set_location('Entering:'|| l_proc, 10);
3059: ----------------------------------------------
3060: -- Check that the template type is correct. --
3061: ----------------------------------------------
3062: l_template_type :=
3061: ----------------------------------------------
3062: l_template_type :=
3063: pay_element_template_util.get_template_type(p_template_id);
3064: if l_template_type is null or l_template_type <> 'U' then
3065: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3066: hr_utility.raise_error;
3067: end if;
3068: ---------------------------------------
3069: -- Read in the template information. --
3062: l_template_type :=
3063: pay_element_template_util.get_template_type(p_template_id);
3064: if l_template_type is null or l_template_type <> 'U' then
3065: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3066: hr_utility.raise_error;
3067: end if;
3068: ---------------------------------------
3069: -- Read in the template information. --
3070: ---------------------------------------
3091: );
3092: -----------------------------------------------
3093: -- Read in information on generated objects. --
3094: -----------------------------------------------
3095: hr_utility.set_location(l_proc, 20);
3096: create_generation_tables
3097: (p_all_core_objects => l_all_core_objects
3098: ,p_index_by_core_object_id => false
3099: ,p_sf_core_objects => l_sf_core_objects
3111: ,p_sgb_core_objects => l_sgb_core_objects
3112: ,p_sba_core_objects => l_sba_core_objects
3113: );
3114: --
3115: hr_utility.set_location(l_proc, 30);
3116: get_formula_types;
3117: l_business_group_id := l_element_template.business_group_id;
3118: l_legislation_code :=
3119: hr_api.return_legislation_code(l_business_group_id);
3133: );
3134: -----------------------
3135: -- 2. Element Types. --
3136: -----------------------
3137: hr_utility.set_location(l_proc, 70);
3138: l_base_processing_priority := l_element_template.base_processing_priority;
3139: gen_element_types
3140: (p_effective_date => p_effective_date
3141: ,p_template_id => p_template_id
3150: );
3151: ------------------------------
3152: -- 3. Element Input Values. --
3153: ------------------------------
3154: hr_utility.set_location(l_proc, 100);
3155: implicit_input_values
3156: (p_effective_date => p_effective_date
3157: ,p_template_id => p_template_id
3158: ,p_all_core_objects => l_all_core_objects
3172: );
3173: ----------------------
3174: -- 4. Balance Types --
3175: ----------------------
3176: hr_utility.set_location(l_proc, 50);
3177: gen_balance_types
3178: (p_effective_date => p_effective_date
3179: ,p_template_id => p_template_id
3180: ,p_business_group_id => l_business_group_id
3185: );
3186: --------------------------
3187: -- 5. Defined Balances. --
3188: --------------------------
3189: hr_utility.set_location(l_proc, 60);
3190: if not p_hr_only then
3191: gen_defined_balances
3192: (p_effective_date => p_effective_date
3193: ,p_template_id => p_template_id
3205: -- Have to allow for the implicitly created sub-classification
3206: -- rules whatever options the user chooses, otherwise the code
3207: -- may error when it's time to generate everything.
3208: --
3209: hr_utility.set_location(l_proc, 80);
3210: implicit_sub_classi_rules
3211: (p_effective_date => p_effective_date
3212: ,p_template_id => p_template_id
3213: ,p_business_group_id => l_business_group_id
3229: );
3230: ---------------------------------
3231: -- 7. Balance Classifications. --
3232: ---------------------------------
3233: hr_utility.set_location(l_proc, 90);
3234: gen_balance_classis
3235: (p_effective_date => p_effective_date
3236: ,p_template_id => p_template_id
3237: ,p_business_group_id => l_business_group_id
3242: );
3243: -----------------------
3244: -- 8. Balance Feeds. --
3245: -----------------------
3246: hr_utility.set_location(l_proc, 110);
3247: gen_balance_feeds
3248: (p_effective_date => p_effective_date
3249: ,p_template_id => p_template_id
3250: ,p_business_group_id => l_business_group_id
3256: );
3257: -----------------------------
3258: -- 9. Element type usages. --
3259: -----------------------------
3260: hr_utility.set_location(l_proc, 120);
3261: gen_ele_type_usages
3262: (p_effective_date => p_effective_date
3263: ,p_template_id => p_template_id
3264: ,p_business_group_id => l_business_group_id
3269: );
3270: -------------------------------------
3271: -- 10. Grossup balance exclusions. --
3272: -------------------------------------
3273: hr_utility.set_location(l_proc, 130);
3274: gen_gu_bal_exclusions
3275: (p_effective_date => p_effective_date
3276: ,p_template_id => p_template_id
3277: ,p_business_group_id => l_business_group_id
3283: );
3284: -----------------------------
3285: -- 11. Balance attributes. --
3286: -----------------------------
3287: hr_utility.set_location(l_proc, 140);
3288: gen_bal_attributes
3289: (p_effective_date => p_effective_date
3290: ,p_template_id => p_template_id
3291: ,p_business_group_id => l_business_group_id
3294: ,p_sdb_core_objects => l_sdb_core_objects
3295: ,p_sba_core_objects => l_sba_core_objects
3296: );
3297: end if;
3298: hr_utility.set_location('Leaving:'|| l_proc, 200);
3299: exception
3300: when others then
3301: hr_utility.set_location('Leaving:'|| l_proc, 210);
3302: raise;
3297: end if;
3298: hr_utility.set_location('Leaving:'|| l_proc, 200);
3299: exception
3300: when others then
3301: hr_utility.set_location('Leaving:'|| l_proc, 210);
3302: raise;
3303: end generate_part1;
3304: -- ----------------------------------------------------------------------------
3305: -- |---------------------------< generate_part2 >-----------------------------|
3350: l_sgb_core_objects pay_element_template_util.t_core_objects;
3351: l_sba_core_objects pay_element_template_util.t_core_objects;
3352: --
3353: begin
3354: hr_utility.set_location('Entering:'|| l_proc, 10);
3355: ----------------------------------------------
3356: -- Check that the template type is correct. --
3357: ----------------------------------------------
3358: l_template_type :=
3357: ----------------------------------------------
3358: l_template_type :=
3359: pay_element_template_util.get_template_type(p_template_id);
3360: if l_template_type is null or l_template_type <> 'U' then
3361: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3362: hr_utility.raise_error;
3363: end if;
3364: ---------------------------------------
3365: -- Read in the template information. --
3358: l_template_type :=
3359: pay_element_template_util.get_template_type(p_template_id);
3360: if l_template_type is null or l_template_type <> 'U' then
3361: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3362: hr_utility.raise_error;
3363: end if;
3364: ---------------------------------------
3365: -- Read in the template information. --
3366: ---------------------------------------
3393: get_formula_types;
3394: -----------------------------------------------
3395: -- Read in information on generated objects. --
3396: -----------------------------------------------
3397: hr_utility.set_location(l_proc, 20);
3398: create_generation_tables
3399: (p_all_core_objects => l_all_core_objects
3400: ,p_index_by_core_object_id => false
3401: ,p_sf_core_objects => l_sf_core_objects
3421:
3422: ----------------------------------------
3423: -- Generate the formula result rules. --
3424: ----------------------------------------
3425: hr_utility.set_location(l_proc, 30);
3426: gen_formula_rules
3427: (p_effective_date => p_effective_date
3428: ,p_template_id => p_template_id
3429: ,p_business_group_id => l_business_group_id
3437: );
3438: -----------------------------------
3439: -- Generate the iterative rules. --
3440: -----------------------------------
3441: hr_utility.set_location(l_proc, 40);
3442: gen_iterative_rules
3443: (p_effective_date => p_effective_date
3444: ,p_template_id => p_template_id
3445: ,p_business_group_id => l_business_group_id
3447: ,p_set_core_objects => l_set_core_objects
3448: ,p_siv_core_objects => l_siv_core_objects
3449: ,p_sir_core_objects => l_sir_core_objects
3450: );
3451: hr_utility.set_location('Leaving:'|| l_proc, 200);
3452: end generate_part2;
3453: -- ----------------------------------------------------------------------------
3454: -- |---------------------------< core_objects_lock >--------------------------|
3455: -- ----------------------------------------------------------------------------
3580: begin
3581: --
3582: -- Generated formulas.
3583: --
3584: hr_utility.set_location('Entering:'|| l_proc, 10);
3585: if p_core_object_type = g_sf_lookup_type then
3586: hr_utility.set_location(l_proc, 15);
3587: i := p_core_objects.first;
3588: j := 0;
3582: -- Generated formulas.
3583: --
3584: hr_utility.set_location('Entering:'|| l_proc, 10);
3585: if p_core_object_type = g_sf_lookup_type then
3586: hr_utility.set_location(l_proc, 15);
3587: i := p_core_objects.first;
3588: j := 0;
3589: loop
3590: exit when not p_core_objects.exists(i);
3604: --
3605: -- Generated balance types.
3606: --
3607: if p_core_object_type = g_sbt_lookup_type then
3608: hr_utility.set_location(l_proc, 20);
3609: i := p_core_objects.first;
3610: loop
3611: exit when not p_core_objects.exists(i);
3612: --
3629: --
3630: -- Generated defined balances.
3631: --
3632: if p_core_object_type = g_sdb_lookup_type then
3633: hr_utility.set_location(l_proc, 30);
3634: i := p_core_objects.first;
3635: j := 0;
3636: loop
3637: exit when not p_core_objects.exists(i);
3651: --
3652: -- Generated element types.
3653: --
3654: if p_core_object_type = g_set_lookup_type then
3655: hr_utility.set_location(l_proc, 40);
3656: i := p_core_objects.first;
3657: j := 0;
3658: loop
3659: exit when not p_core_objects.exists(i);
3673: --
3674: -- Generated sub-classification rules.
3675: --
3676: if p_core_object_type = g_ssr_lookup_type then
3677: hr_utility.set_location(l_proc, 50);
3678: i := p_core_objects.first;
3679: j := 0;
3680: loop
3681: exit when not p_core_objects.exists(i);
3695: --
3696: -- Generated balance classifications.
3697: --
3698: if p_core_object_type = g_sbc_lookup_type then
3699: hr_utility.set_location(l_proc, 60);
3700: i := p_core_objects.first;
3701: j := 0;
3702: loop
3703: exit when not p_core_objects.exists(i);
3717: --
3718: -- Generated input values.
3719: --
3720: if p_core_object_type = g_siv_lookup_type then
3721: hr_utility.set_location(l_proc, 70);
3722: i := p_core_objects.first;
3723: j := 0;
3724: loop
3725: exit when not p_core_objects.exists(i);
3739: --
3740: -- Generated balance feeds.
3741: --
3742: if p_core_object_type = g_sbf_lookup_type then
3743: hr_utility.set_location(l_proc, 80);
3744: i := p_core_objects.first;
3745: j := 0;
3746: loop
3747: exit when not p_core_objects.exists(i);
3761: --
3762: -- Generated status processing rules.
3763: --
3764: if p_core_object_type = g_spr_lookup_type then
3765: hr_utility.set_location(l_proc, 90);
3766: i := p_core_objects.first;
3767: j := 0;
3768: loop
3769: exit when not p_core_objects.exists(i);
3783: --
3784: -- Generated formula rules.
3785: --
3786: if p_core_object_type = g_sfr_lookup_type then
3787: hr_utility.set_location(l_proc, 100);
3788: i := p_core_objects.first;
3789: j := 0;
3790: loop
3791: exit when not p_core_objects.exists(i);
3805: --
3806: -- Generated iterative rules.
3807: --
3808: if p_core_object_type = g_sir_lookup_type then
3809: hr_utility.set_location(l_proc, 110);
3810: i := p_core_objects.first;
3811: j := 0;
3812: loop
3813: exit when not p_core_objects.exists(i);
3827: --
3828: -- Generated element type usages.
3829: --
3830: if p_core_object_type = g_seu_lookup_type then
3831: hr_utility.set_location(l_proc, 120);
3832: i := p_core_objects.first;
3833: j := 0;
3834: loop
3835: exit when not p_core_objects.exists(i);
3849: --
3850: -- Generated grossup balance exclusions.
3851: --
3852: if p_core_object_type = g_sgb_lookup_type then
3853: hr_utility.set_location(l_proc, 130);
3854: i := p_core_objects.first;
3855: j := 0;
3856: loop
3857: exit when not p_core_objects.exists(i);
3871: --
3872: -- Generated balance attributes.
3873: --
3874: if p_core_object_type = g_sba_lookup_type then
3875: hr_utility.set_location(l_proc, 140);
3876: i := p_core_objects.first;
3877: j := 0;
3878: loop
3879: exit when not p_core_objects.exists(i);
3890: i := p_core_objects.next(i);
3891: end loop;
3892: end if;
3893: --
3894: hr_utility.set_location('Leaving:'|| l_proc, 200);
3895: return;
3896: exception
3897: when others then
3898: hr_utility.set_location('Leaving:'|| l_proc, 210);
3894: hr_utility.set_location('Leaving:'|| l_proc, 200);
3895: return;
3896: exception
3897: when others then
3898: hr_utility.set_location('Leaving:'|| l_proc, 210);
3899: --
3900: if csr_formulas_lock%isopen then
3901: close csr_formulas_lock;
3902: end if;
4005: into l_balance_name
4006: from pay_balance_types pbt
4007: where pbt.balance_type_id = p_balance_type_id
4008: ;
4009: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4010: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4011: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4012: hr_utility.raise_error;
4013: end if;
4006: from pay_balance_types pbt
4007: where pbt.balance_type_id = p_balance_type_id
4008: ;
4009: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4010: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4011: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4012: hr_utility.raise_error;
4013: end if;
4014: end loop;
4007: where pbt.balance_type_id = p_balance_type_id
4008: ;
4009: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4010: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4011: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4012: hr_utility.raise_error;
4013: end if;
4014: end loop;
4015: --
4008: ;
4009: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4010: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4011: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4012: hr_utility.raise_error;
4013: end if;
4014: end loop;
4015: --
4016: -- Delete this balance.
4030: l_proc varchar2(72) := g_package||'del_balance_types';
4031: i number;
4032: l_remaining_recs t_rowid_id_recs;
4033: begin
4034: hr_utility.set_location('Entering:'|| l_proc, 10);
4035: l_remaining_recs := p_rowid_id_recs;
4036: --
4037: i := p_rowid_id_recs.first;
4038: loop
4045: );
4046: --
4047: i := p_rowid_id_recs.next(i);
4048: end loop;
4049: hr_utility.set_location('Leaving:'|| l_proc, 100);
4050: end del_balance_types;
4051: -- ----------------------------------------------------------------------------
4052: -- |--------------------------< del_defined_balances >------------------------|
4053: -- ----------------------------------------------------------------------------
4056: ) is
4057: l_proc varchar2(72) := g_package||'del_defined_balances';
4058: i number;
4059: begin
4060: hr_utility.set_location('Entering:'|| l_proc, 10);
4061: i := p_rowid_id_recs.first;
4062: loop
4063: exit when not p_rowid_id_recs.exists(i);
4064: --
4068: );
4069: --
4070: i := p_rowid_id_recs.next(i);
4071: end loop;
4072: hr_utility.set_location('Leaving:'|| l_proc, 100);
4073: end del_defined_balances;
4074: -- ----------------------------------------------------------------------------
4075: -- |---------------------------< del_element_types >--------------------------|
4076: -- ----------------------------------------------------------------------------
4080: l_proc varchar2(72) := g_package||'del_element_types';
4081: i number;
4082: l_id number;
4083: begin
4084: hr_utility.set_location('Entering:'|| l_proc, 10);
4085: i := p_rowid_id_recs.first;
4086: loop
4087: exit when not p_rowid_id_recs.exists(i);
4088: --
4098: end if;
4099: --
4100: i := p_rowid_id_recs.next(i);
4101: end loop;
4102: hr_utility.set_location('Leaving:'|| l_proc, 100);
4103: end del_element_types;
4104: -- ----------------------------------------------------------------------------
4105: -- |---------------------------< del_sub_classi_rules >-----------------------|
4106: -- ----------------------------------------------------------------------------
4109: ) is
4110: l_proc varchar2(72) := g_package||'del_sub_classi_rules';
4111: i number;
4112: begin
4113: hr_utility.set_location('Entering:'|| l_proc, 10);
4114: i := p_rowid_id_recs.first;
4115: loop
4116: exit when not p_rowid_id_recs.exists(i);
4117: --
4124: );
4125: --
4126: i := p_rowid_id_recs.next(i);
4127: end loop;
4128: hr_utility.set_location('Leaving:'|| l_proc, 100);
4129: end del_sub_classi_rules;
4130: -- ----------------------------------------------------------------------------
4131: -- |---------------------------< del_balance_classis >------------------------|
4132: -- ----------------------------------------------------------------------------
4135: ) is
4136: l_proc varchar2(72) := g_package||'del_balance_classis';
4137: i number;
4138: begin
4139: hr_utility.set_location('Entering:'|| l_proc, 10);
4140: i := p_rowid_id_recs.first;
4141: loop
4142: exit when not p_rowid_id_recs.exists(i);
4143: --
4147: );
4148: --
4149: i := p_rowid_id_recs.next(i);
4150: end loop;
4151: hr_utility.set_location('Leaving:'|| l_proc, 100);
4152: end del_balance_classis;
4153: -- ----------------------------------------------------------------------------
4154: -- |----------------------------< del_input_values >--------------------------|
4155: -- ----------------------------------------------------------------------------
4159: l_proc varchar2(72) := g_package||'del_input_values';
4160: i number;
4161: l_id number;
4162: begin
4163: hr_utility.set_location('Entering:'|| l_proc, 10);
4164: i := p_rowid_id_recs.first;
4165: loop
4166: exit when not p_rowid_id_recs.exists(i);
4167: --
4178: end if;
4179: --
4180: i := p_rowid_id_recs.next(i);
4181: end loop;
4182: hr_utility.set_location('Leaving:'|| l_proc, 100);
4183: end del_input_values;
4184: -- ----------------------------------------------------------------------------
4185: -- |----------------------------< del_formula_rules >-------------------------|
4186: -- ----------------------------------------------------------------------------
4189: ) is
4190: l_proc varchar2(72) := g_package||'del_formula_rules';
4191: i number;
4192: begin
4193: hr_utility.set_location('Entering:'|| l_proc, 10);
4194: i := p_rowid_id_recs.first;
4195: loop
4196: exit when not p_rowid_id_recs.exists(i);
4197: --
4200: );
4201: --
4202: i := p_rowid_id_recs.next(i);
4203: end loop;
4204: hr_utility.set_location('Leaving:'|| l_proc, 100);
4205: end del_formula_rules;
4206: -- ----------------------------------------------------------------------------
4207: -- |----------------------------< del_status_rules >-------------------------|
4208: -- ----------------------------------------------------------------------------
4212: l_proc varchar2(72) := g_package||'del_status_rules';
4213: i number;
4214: l_id number;
4215: begin
4216: hr_utility.set_location('Entering:'|| l_proc, 10);
4217: i := p_rowid_id_recs.first;
4218: loop
4219: exit when not p_rowid_id_recs.exists(i);
4220: --
4229: end if;
4230: --
4231: i := p_rowid_id_recs.next(i);
4232: end loop;
4233: hr_utility.set_location('Leaving:'|| l_proc, 100);
4234: end del_status_rules;
4235: -- ----------------------------------------------------------------------------
4236: -- |--------------------------< del_iterative_rules >-------------------------|
4237: -- ----------------------------------------------------------------------------
4246: l_ovn number;
4247: l_id number;
4248: --
4249: begin
4250: hr_utility.set_location('Entering:'||l_proc, 10);
4251: --
4252: i := p_id_ovn_recs.first;
4253: loop
4254: exit when not p_id_ovn_recs.exists(i);
4271: end if;
4272: --
4273: i := p_id_ovn_recs.next(i);
4274: end loop;
4275: hr_utility.set_location('Leaving:'||l_proc, 100);
4276: end del_iterative_rules;
4277: -- ----------------------------------------------------------------------------
4278: -- -------------------------< del_ele_type_usages >---------------------------|
4279: -- ----------------------------------------------------------------------------
4288: l_ovn number;
4289: l_id number;
4290: --
4291: begin
4292: hr_utility.set_location('Entering:'||l_proc, 10);
4293: --
4294: i := p_id_ovn_recs.first;
4295: loop
4296: exit when not p_id_ovn_recs.exists(i);
4313: end if;
4314: --
4315: i := p_id_ovn_recs.next(i);
4316: end loop;
4317: hr_utility.set_location('Leaving:'||l_proc, 100);
4318: end del_ele_type_usages;
4319: -- ----------------------------------------------------------------------------
4320: -- |-----------------------< del_gu_bal_exclusions >--------------------------|
4321: -- ----------------------------------------------------------------------------
4326: l_proc varchar2(72) := g_package||'del_gu_bal_exclusions';
4327: i number;
4328: --
4329: begin
4330: hr_utility.set_location('Entering:'||l_proc, 10);
4331: i := p_id_ovn_recs.first;
4332: loop
4333: exit when not p_id_ovn_recs.exists(i);
4334: --
4338: );
4339: --
4340: i := p_id_ovn_recs.next(i);
4341: end loop;
4342: hr_utility.set_location('Leaving:'||l_proc, 100);
4343: end del_gu_bal_exclusions;
4344: -- ----------------------------------------------------------------------------
4345: -- |-------------------------< del_bal_attributes >---------------------------|
4346: -- ----------------------------------------------------------------------------
4351: l_proc varchar2(72) := g_package||'del_bal_attributes';
4352: i number;
4353: --
4354: begin
4355: hr_utility.set_location('Entering:'||l_proc, 10);
4356: i := p_id_ovn_recs.first;
4357: loop
4358: exit when not p_id_ovn_recs.exists(i);
4359: --
4362: );
4363: --
4364: i := p_id_ovn_recs.next(i);
4365: end loop;
4366: hr_utility.set_location('Leaving:'||l_proc, 100);
4367: end del_bal_attributes;
4368: -- ----------------------------------------------------------------------------
4369: -- |------------------------------< del_formulas >----------------------------|
4370: -- ----------------------------------------------------------------------------
4375: i number;
4376: l_formula_id number;
4377: --
4378: begin
4379: hr_utility.set_location('Entering:'|| l_proc, 10);
4380: i := p_rowid_id_recs.first;
4381: loop
4382: exit when not p_rowid_id_recs.exists(i);
4383: --
4396: end if;
4397: --
4398: i := p_rowid_id_recs.next(i);
4399: end loop;
4400: hr_utility.set_location('Leaving:'|| l_proc, 100);
4401: end del_formulas;
4402: -- ----------------------------------------------------------------------------
4403: -- |----------------------------< del_formula_info >--------------------------|
4404: -- ----------------------------------------------------------------------------
4409: i number;
4410: l_formula_id number;
4411: --
4412: begin
4413: hr_utility.set_location('Entering:'|| l_proc, 10);
4414: i := p_rowid_id_recs.first;
4415: loop
4416: exit when not p_rowid_id_recs.exists(i);
4417: --
4424: delete from ff_fdi_usages_f where formula_id = l_formula_id;
4425: --
4426: i := p_rowid_id_recs.next(i);
4427: end loop;
4428: hr_utility.set_location('Leaving:'|| l_proc, 100);
4429: end del_formula_info;
4430: -- ----------------------------------------------------------------------------
4431: -- |-------------------------< drop_formula_packages >------------------------|
4432: -- ----------------------------------------------------------------------------
4450: where object_name like p_package_name
4451: and object_type = p_object_type
4452: ;
4453: begin
4454: hr_utility.set_location('Entering:'|| l_proc, 10);
4455: --
4456: -- Delete records with duplicate id values.
4457: --
4458: i := p_rowid_id_recs.first;
4502: end loop;
4503: --
4504: i := p_rowid_id_recs.next(i);
4505: end loop;
4506: hr_utility.set_location('Leaving:'|| l_proc, 100);
4507: exception
4508: when others then
4509: hr_utility.set_location('Leaving:'|| l_proc, 110);
4510: if csr_package_names%isopen then
4505: end loop;
4506: hr_utility.set_location('Leaving:'|| l_proc, 100);
4507: exception
4508: when others then
4509: hr_utility.set_location('Leaving:'|| l_proc, 110);
4510: if csr_package_names%isopen then
4511: close csr_package_names;
4512: end if;
4513: end drop_formula_packages;
4555: l_sgb_id_ovn_recs t_id_ovn_recs;
4556: l_sba_id_ovn_recs t_id_ovn_recs;
4557: l_null_id_ovn_recs t_id_ovn_recs;
4558: begin
4559: hr_utility.set_location('Entering:'|| l_proc, 10);
4560: --
4561: -- Create the table of generated objects.
4562: --
4563: create_generation_tables
4580: );
4581: --
4582: -- Lock the generated objects in lock ladder order.
4583: --
4584: hr_utility.set_location(l_proc, 20);
4585: core_objects_lock
4586: (p_core_object_type => g_sf_lookup_type
4587: ,p_core_objects => l_sf_core_objects
4588: ,p_rowid_id_recs => l_sf_rowid_id_recs
4713: );
4714: del_balance_types
4715: (p_rowid_id_recs => l_sbt_rowid_id_recs
4716: );
4717: hr_utility.set_location(l_proc, 30);
4718: if p_drop_formula_packages then
4719: drop_formula_packages
4720: (p_rowid_id_recs => l_sf_rowid_id_recs
4721: );
4719: drop_formula_packages
4720: (p_rowid_id_recs => l_sf_rowid_id_recs
4721: );
4722: end if;
4723: hr_utility.set_location('Leaving:' || l_proc, 100);
4724: end zap_core_objects;
4725: --
4726: end pay_element_template_gen;