[Home] [Help]
114: open csr_formula_type(p_formula_type);
115: fetch csr_formula_type into p_formula_type_id;
116: if csr_formula_type%notfound then
117: close csr_formula_type;
118: hr_utility.set_message(801, 'PAY_50058_ETM_BAD_FORMULA_TYPE');
119: hr_utility.set_message_token('FORMULA_TYPE', p_formula_type);
120: hr_utility.raise_error;
121: end if;
122: close csr_formula_type;
115: fetch csr_formula_type into p_formula_type_id;
116: if csr_formula_type%notfound then
117: close csr_formula_type;
118: hr_utility.set_message(801, 'PAY_50058_ETM_BAD_FORMULA_TYPE');
119: hr_utility.set_message_token('FORMULA_TYPE', p_formula_type);
120: hr_utility.raise_error;
121: end if;
122: close csr_formula_type;
123: end get_formula_type_id;
116: if csr_formula_type%notfound then
117: close csr_formula_type;
118: hr_utility.set_message(801, 'PAY_50058_ETM_BAD_FORMULA_TYPE');
119: hr_utility.set_message_token('FORMULA_TYPE', p_formula_type);
120: hr_utility.raise_error;
121: end if;
122: close csr_formula_type;
123: end get_formula_type_id;
124: --
171: , p_non_payments_flag
172: ;
173: if csr_ele_classification%notfound then
174: close csr_ele_classification;
175: hr_utility.set_message(801, 'PAY_50060_ETM_BAD_ELE_CLASS');
176: hr_utility.set_message_token('CLASSIFICATION', p_classification);
177: hr_utility.raise_error;
178: end if;
179: close csr_ele_classification;
172: ;
173: if csr_ele_classification%notfound then
174: close csr_ele_classification;
175: hr_utility.set_message(801, 'PAY_50060_ETM_BAD_ELE_CLASS');
176: hr_utility.set_message_token('CLASSIFICATION', p_classification);
177: hr_utility.raise_error;
178: end if;
179: close csr_ele_classification;
180: --
173: if csr_ele_classification%notfound then
174: close csr_ele_classification;
175: hr_utility.set_message(801, 'PAY_50060_ETM_BAD_ELE_CLASS');
176: hr_utility.set_message_token('CLASSIFICATION', p_classification);
177: hr_utility.raise_error;
178: end if;
179: close csr_ele_classification;
180: --
181: return l_classification_id;
213: );
214: fetch csr_ben_classification into l_ben_classification_id;
215: if csr_ben_classification%notfound then
216: close csr_ben_classification;
217: hr_utility.set_message(801, 'PAY_50061_ETM_BAD_BEN_CLASS');
218: hr_utility.set_message_token('CLASSIFICATION', p_ben_classification);
219: hr_utility.raise_error;
220: end if;
221: close csr_ben_classification;
214: fetch csr_ben_classification into l_ben_classification_id;
215: if csr_ben_classification%notfound then
216: close csr_ben_classification;
217: hr_utility.set_message(801, 'PAY_50061_ETM_BAD_BEN_CLASS');
218: hr_utility.set_message_token('CLASSIFICATION', p_ben_classification);
219: hr_utility.raise_error;
220: end if;
221: close csr_ben_classification;
222: --
215: if csr_ben_classification%notfound then
216: close csr_ben_classification;
217: hr_utility.set_message(801, 'PAY_50061_ETM_BAD_BEN_CLASS');
218: hr_utility.set_message_token('CLASSIFICATION', p_ben_classification);
219: hr_utility.raise_error;
220: end if;
221: close csr_ben_classification;
222: --
223: return l_ben_classification_id;
264: );
265: fetch csr_formula into l_formula_id;
266: if csr_formula%notfound then
267: close csr_formula;
268: hr_utility.set_message(801, 'PAY_50062_ETM_BAD_FORMULA_NAME');
269: hr_utility.set_message_token('FORMULA_NAME', p_formula);
270: hr_utility.raise_error;
271: end if;
272: close csr_formula;
265: fetch csr_formula into l_formula_id;
266: if csr_formula%notfound then
267: close csr_formula;
268: hr_utility.set_message(801, 'PAY_50062_ETM_BAD_FORMULA_NAME');
269: hr_utility.set_message_token('FORMULA_NAME', p_formula);
270: hr_utility.raise_error;
271: end if;
272: close csr_formula;
273: --
266: if csr_formula%notfound then
267: close csr_formula;
268: hr_utility.set_message(801, 'PAY_50062_ETM_BAD_FORMULA_NAME');
269: hr_utility.set_message_token('FORMULA_NAME', p_formula);
270: hr_utility.raise_error;
271: end if;
272: close csr_formula;
273: --
274: return l_formula_id;
306: );
307: fetch csr_balance into l_balance_id;
308: if csr_balance%notfound then
309: close csr_balance;
310: hr_utility.set_message(801, 'PAY_50063_ETM_BAD_BALANCE_NAME');
311: hr_utility.set_message_token('BALANCE_NAME', p_balance);
312: end if;
313: close csr_balance;
314: --
307: fetch csr_balance into l_balance_id;
308: if csr_balance%notfound then
309: close csr_balance;
310: hr_utility.set_message(801, 'PAY_50063_ETM_BAD_BALANCE_NAME');
311: hr_utility.set_message_token('BALANCE_NAME', p_balance);
312: end if;
313: close csr_balance;
314: --
315: return l_balance_id;
352: );
353: fetch csr_element_name into l_element_type_id;
354: if csr_element_name%notfound then
355: close csr_element_name;
356: hr_utility.set_message(801, 'PAY_50215_ETM_BAD_ELEMENT_TYPE');
357: hr_utility.set_message_token('ELEMENT_TYPE', p_element_name);
358: hr_utility.raise_error;
359: end if;
360: close csr_element_name;
353: fetch csr_element_name into l_element_type_id;
354: if csr_element_name%notfound then
355: close csr_element_name;
356: hr_utility.set_message(801, 'PAY_50215_ETM_BAD_ELEMENT_TYPE');
357: hr_utility.set_message_token('ELEMENT_TYPE', p_element_name);
358: hr_utility.raise_error;
359: end if;
360: close csr_element_name;
361: --
354: if csr_element_name%notfound then
355: close csr_element_name;
356: hr_utility.set_message(801, 'PAY_50215_ETM_BAD_ELEMENT_TYPE');
357: hr_utility.set_message_token('ELEMENT_TYPE', p_element_name);
358: hr_utility.raise_error;
359: end if;
360: close csr_element_name;
361: --
362: return l_element_type_id;
398: );
399: fetch csr_event_group into l_event_group_id;
400: if csr_event_group%notfound then
401: close csr_event_group;
402: hr_utility.set_message(801, 'PAY_50201_ETM_BAD_EVENT_GROUP');
403: hr_utility.set_message_token('EVENT_GROUP', p_event_group);
404: hr_utility.raise_error;
405: end if;
406: close csr_event_group;
399: fetch csr_event_group into l_event_group_id;
400: if csr_event_group%notfound then
401: close csr_event_group;
402: hr_utility.set_message(801, 'PAY_50201_ETM_BAD_EVENT_GROUP');
403: hr_utility.set_message_token('EVENT_GROUP', p_event_group);
404: hr_utility.raise_error;
405: end if;
406: close csr_event_group;
407: --
400: if csr_event_group%notfound then
401: close csr_event_group;
402: hr_utility.set_message(801, 'PAY_50201_ETM_BAD_EVENT_GROUP');
403: hr_utility.set_message_token('EVENT_GROUP', p_event_group);
404: hr_utility.raise_error;
405: end if;
406: close csr_event_group;
407: --
408: return l_event_group_id;
440: );
441: fetch csr_bal_dimension into l_bal_dimension_id;
442: if csr_bal_dimension%notfound then
443: close csr_bal_dimension;
444: hr_utility.set_message(801, 'PAY_50059_ETM_BAD_BAL_DIMENSON');
445: hr_utility.set_message_token('BALANCE_DIMENSION', p_bal_dimension);
446: hr_utility.raise_error;
447: end if;
448: close csr_bal_dimension;
441: fetch csr_bal_dimension into l_bal_dimension_id;
442: if csr_bal_dimension%notfound then
443: close csr_bal_dimension;
444: hr_utility.set_message(801, 'PAY_50059_ETM_BAD_BAL_DIMENSON');
445: hr_utility.set_message_token('BALANCE_DIMENSION', p_bal_dimension);
446: hr_utility.raise_error;
447: end if;
448: close csr_bal_dimension;
449: --
442: if csr_bal_dimension%notfound then
443: close csr_bal_dimension;
444: hr_utility.set_message(801, 'PAY_50059_ETM_BAD_BAL_DIMENSON');
445: hr_utility.set_message_token('BALANCE_DIMENSION', p_bal_dimension);
446: hr_utility.raise_error;
447: end if;
448: close csr_bal_dimension;
449: --
450: return l_bal_dimension_id;
487: );
488: fetch csr_run_type into l_run_type_id;
489: if csr_run_type%notfound then
490: close csr_run_type;
491: hr_utility.set_message(801, 'PAY_50064_ETM_BAD_RUN_TYPE');
492: hr_utility.set_message_token('RUN_TYPE', p_run_type);
493: hr_utility.raise_error;
494: end if;
495: close csr_run_type;
488: fetch csr_run_type into l_run_type_id;
489: if csr_run_type%notfound then
490: close csr_run_type;
491: hr_utility.set_message(801, 'PAY_50064_ETM_BAD_RUN_TYPE');
492: hr_utility.set_message_token('RUN_TYPE', p_run_type);
493: hr_utility.raise_error;
494: end if;
495: close csr_run_type;
496: --
489: if csr_run_type%notfound then
490: close csr_run_type;
491: hr_utility.set_message(801, 'PAY_50064_ETM_BAD_RUN_TYPE');
492: hr_utility.set_message_token('RUN_TYPE', p_run_type);
493: hr_utility.raise_error;
494: end if;
495: close csr_run_type;
496: --
497: return l_run_type_id;
534: );
535: fetch csr_balance_category into l_balance_category_id;
536: if csr_balance_category%notfound then
537: close csr_balance_category;
538: hr_utility.set_message(801, 'PAY_51520_ETM_BAD_BAL_CATEGORY');
539: hr_utility.set_message_token('BALANCE_CATEGORY', p_bal_category);
540: hr_utility.raise_error;
541: end if;
542: close csr_balance_category;
535: fetch csr_balance_category into l_balance_category_id;
536: if csr_balance_category%notfound then
537: close csr_balance_category;
538: hr_utility.set_message(801, 'PAY_51520_ETM_BAD_BAL_CATEGORY');
539: hr_utility.set_message_token('BALANCE_CATEGORY', p_bal_category);
540: hr_utility.raise_error;
541: end if;
542: close csr_balance_category;
543: --
536: if csr_balance_category%notfound then
537: close csr_balance_category;
538: hr_utility.set_message(801, 'PAY_51520_ETM_BAD_BAL_CATEGORY');
539: hr_utility.set_message_token('BALANCE_CATEGORY', p_bal_category);
540: hr_utility.raise_error;
541: end if;
542: close csr_balance_category;
543: --
544: return l_balance_category_id;
576: );
577: fetch csr_attribute into l_attribute_id;
578: if csr_attribute%notfound then
579: close csr_attribute;
580: hr_utility.set_message(801, 'PAY_50211_ETM_BAD_BAL_ATTR_DEF');
581: hr_utility.set_message_token('BALANCE_ATTR_DEF', p_attribute);
582: hr_utility.raise_error;
583: end if;
584: close csr_attribute;
577: fetch csr_attribute into l_attribute_id;
578: if csr_attribute%notfound then
579: close csr_attribute;
580: hr_utility.set_message(801, 'PAY_50211_ETM_BAD_BAL_ATTR_DEF');
581: hr_utility.set_message_token('BALANCE_ATTR_DEF', p_attribute);
582: hr_utility.raise_error;
583: end if;
584: close csr_attribute;
585: --
578: if csr_attribute%notfound then
579: close csr_attribute;
580: hr_utility.set_message(801, 'PAY_50211_ETM_BAD_BAL_ATTR_DEF');
581: hr_utility.set_message_token('BALANCE_ATTR_DEF', p_attribute);
582: hr_utility.raise_error;
583: end if;
584: close csr_attribute;
585: --
586: return l_attribute_id;
605: ,p_sba_core_objects in out nocopy pay_element_template_util.t_core_objects
606: ) is
607: l_proc varchar2(72) := g_package||'flush_generation_tables';
608: begin
609: hr_utility.set_location('Entering:'|| l_proc, 10);
610: p_sf_core_objects.delete;
611: p_sbt_core_objects.delete;
612: p_sdb_core_objects.delete;
613: p_set_core_objects.delete;
620: p_sir_core_objects.delete;
621: p_seu_core_objects.delete;
622: p_sgb_core_objects.delete;
623: p_sba_core_objects.delete;
624: hr_utility.set_location(' Leaving:'||l_proc, 20);
625: end flush_generation_tables;
626: -- ----------------------------------------------------------------------------
627: -- |----------------------< create_generation_tables >------------------------|
628: -- ----------------------------------------------------------------------------
649: l_index number;
650: l_core_object_type varchar2(30);
651: --
652: begin
653: hr_utility.set_location('Entering:'|| l_proc, 10);
654: --
655: -- Flush the current generation tables.
656: --
657: flush_generation_tables
718: end if;
719: --
720: i := p_all_core_objects.next(i);
721: end loop;
722: hr_utility.set_location(' Leaving:'||l_proc, 90);
723: end create_generation_tables;
724: -- ----------------------------------------------------------------------------
725: -- |-------------------------< core_object_exists >---------------------------|
726: -- ----------------------------------------------------------------------------
803: from pay_balance_attributes
804: where balance_attribute_id = p_core_object_id;
805: --
806: begin
807: hr_utility.set_location('Entering:'|| l_proc, 10);
808: --
809: -- A core object corresponding a shadow object exists if there is
810: -- a row for it in PAY_TEMPLATE_CORE_OBJECTS, and the generated object
811: -- still exists in the core schema.
812: --
813: if p_core_objects.exists(p_shadow_object_id) then
814: l_core_object_id := p_core_objects(p_shadow_object_id).core_object_id;
815: if p_object_type = g_sf_lookup_type then
816: hr_utility.set_location(l_proc, 20);
817: open csr_sf_core_object_exists(l_core_object_id);
818: fetch csr_sf_core_object_exists into l_count;
819: close csr_sf_core_object_exists;
820: return l_count > 0;
818: fetch csr_sf_core_object_exists into l_count;
819: close csr_sf_core_object_exists;
820: return l_count > 0;
821: elsif p_object_type = g_set_lookup_type then
822: hr_utility.set_location(l_proc, 30);
823: open csr_set_core_object_exists(l_core_object_id);
824: fetch csr_set_core_object_exists into l_count;
825: close csr_set_core_object_exists;
826: return l_count > 0;
824: fetch csr_set_core_object_exists into l_count;
825: close csr_set_core_object_exists;
826: return l_count > 0;
827: elsif p_object_type = g_sbt_lookup_type then
828: hr_utility.set_location(l_proc, 40);
829: open csr_sbt_core_object_exists(l_core_object_id);
830: fetch csr_sbt_core_object_exists into l_count;
831: close csr_sbt_core_object_exists;
832: return l_count > 0;
830: fetch csr_sbt_core_object_exists into l_count;
831: close csr_sbt_core_object_exists;
832: return l_count > 0;
833: elsif p_object_type = g_sdb_lookup_type then
834: hr_utility.set_location(l_proc, 50);
835: open csr_sdb_core_object_exists(l_core_object_id);
836: fetch csr_sdb_core_object_exists into l_count;
837: close csr_sdb_core_object_exists;
838: return l_count > 0;
836: fetch csr_sdb_core_object_exists into l_count;
837: close csr_sdb_core_object_exists;
838: return l_count > 0;
839: elsif p_object_type = g_ssr_lookup_type then
840: hr_utility.set_location(l_proc, 60);
841: open csr_ssr_core_object_exists(l_core_object_id);
842: fetch csr_ssr_core_object_exists into l_count;
843: close csr_ssr_core_object_exists;
844: return l_count > 0;
842: fetch csr_ssr_core_object_exists into l_count;
843: close csr_ssr_core_object_exists;
844: return l_count > 0;
845: elsif p_object_type = g_sbc_lookup_type then
846: hr_utility.set_location(l_proc, 70);
847: open csr_sbc_core_object_exists(l_core_object_id);
848: fetch csr_sbc_core_object_exists into l_count;
849: close csr_sbc_core_object_exists;
850: return l_count > 0;
848: fetch csr_sbc_core_object_exists into l_count;
849: close csr_sbc_core_object_exists;
850: return l_count > 0;
851: elsif p_object_type = g_siv_lookup_type then
852: hr_utility.set_location(l_proc, 80);
853: open csr_siv_core_object_exists(l_core_object_id);
854: fetch csr_siv_core_object_exists into l_count;
855: close csr_siv_core_object_exists;
856: return l_count > 0;
854: fetch csr_siv_core_object_exists into l_count;
855: close csr_siv_core_object_exists;
856: return l_count > 0;
857: elsif p_object_type = g_sbf_lookup_type then
858: hr_utility.set_location(l_proc, 90);
859: open csr_sbf_core_object_exists(l_core_object_id);
860: fetch csr_sbf_core_object_exists into l_count;
861: close csr_sbf_core_object_exists;
862: return l_count > 0;
860: fetch csr_sbf_core_object_exists into l_count;
861: close csr_sbf_core_object_exists;
862: return l_count > 0;
863: elsif p_object_type = g_spr_lookup_type then
864: hr_utility.set_location(l_proc, 95);
865: open csr_spr_core_object_exists(l_core_object_id);
866: fetch csr_spr_core_object_exists into l_count;
867: close csr_spr_core_object_exists;
868: return l_count > 0;
866: fetch csr_spr_core_object_exists into l_count;
867: close csr_spr_core_object_exists;
868: return l_count > 0;
869: elsif p_object_type = g_sfr_lookup_type then
870: hr_utility.set_location(l_proc, 100);
871: open csr_sfr_core_object_exists(l_core_object_id);
872: fetch csr_sfr_core_object_exists into l_count;
873: close csr_sfr_core_object_exists;
874: return l_count > 0;
872: fetch csr_sfr_core_object_exists into l_count;
873: close csr_sfr_core_object_exists;
874: return l_count > 0;
875: elsif p_object_type = g_sir_lookup_type then
876: hr_utility.set_location(l_proc, 110);
877: open csr_sir_core_object_exists(l_core_object_id);
878: fetch csr_sir_core_object_exists into l_count;
879: close csr_sir_core_object_exists;
880: return l_count > 0;
878: fetch csr_sir_core_object_exists into l_count;
879: close csr_sir_core_object_exists;
880: return l_count > 0;
881: elsif p_object_type = g_seu_lookup_type then
882: hr_utility.set_location(l_proc, 120);
883: open csr_seu_core_object_exists(l_core_object_id);
884: fetch csr_seu_core_object_exists into l_count;
885: close csr_seu_core_object_exists;
886: return l_count > 0;
884: fetch csr_seu_core_object_exists into l_count;
885: close csr_seu_core_object_exists;
886: return l_count > 0;
887: elsif p_object_type = g_sgb_lookup_type then
888: hr_utility.set_location(l_proc, 130);
889: open csr_sgb_core_object_exists(l_core_object_id);
890: fetch csr_sgb_core_object_exists into l_count;
891: close csr_sgb_core_object_exists;
892: return l_count > 0;
890: fetch csr_sgb_core_object_exists into l_count;
891: close csr_sgb_core_object_exists;
892: return l_count > 0;
893: elsif p_object_type = g_sba_lookup_type then
894: hr_utility.set_location(l_proc, 140);
895: open csr_sba_core_object_exists(l_core_object_id);
896: fetch csr_sba_core_object_exists into l_count;
897: close csr_sba_core_object_exists;
898: return l_count > 0;
906: -- Object does not exist because no rows in PAY_TEMPLATE_CORE_OBJECTS.
907: --
908: return false;
909: --
910: hr_utility.set_location('Leaving:'|| l_proc, 500);
911: exception
912: when others then
913: hr_utility.set_location('Leaving:'|| l_proc, 510);
914: if csr_sf_core_object_exists%isopen then
909: --
910: hr_utility.set_location('Leaving:'|| l_proc, 500);
911: exception
912: when others then
913: hr_utility.set_location('Leaving:'|| l_proc, 510);
914: if csr_sf_core_object_exists%isopen then
915: close csr_sf_core_object_exists;
916: end if;
917: --
982: ) is
983: l_proc varchar2(72) := g_package||'update_core_objects';
984: l_core_object pay_tco_shd.g_rec_type;
985: begin
986: hr_utility.set_location('Entering:'|| l_proc, 10);
987: --
988: if p_core_objects.exists(p_shadow_object_id) then
989: l_core_object := p_core_objects(p_shadow_object_id);
990: l_core_object.core_object_id := p_core_object_id;
1000: --
1001: -- Insert to allow indexing by the shadow_object_id.
1002: --
1003: p_core_objects(p_shadow_object_id) := l_core_object;
1004: hr_utility.set_location('Leaving:'|| l_proc, 100);
1005: end update_core_objects;
1006: -- ----------------------------------------------------------------------------
1007: -- |---------------------------< new_core_object >----------------------------|
1008: -- ----------------------------------------------------------------------------
1012: ) return boolean is
1013: l_proc varchar2(72) := g_package||'new_core_object';
1014: l_template_core_object_id number;
1015: begin
1016: hr_utility.set_location('Entering:'|| l_proc, 100);
1017: l_template_core_object_id := p_core_object.template_core_object_id;
1018: return not p_all_core_objects.exists(l_template_core_object_id);
1019: end new_core_object;
1020: -- ----------------------------------------------------------------------------
1037: l_last_update_date date;
1038: l_formula_type_id number;
1039: --
1040: begin
1041: hr_utility.set_location('Entering:'|| l_proc, 10);
1042: --
1043: i := p_formulas.first;
1044: loop
1045: exit when not p_formulas.exists(i);
1061: )
1062: )
1063: )
1064: then
1065: hr_utility.set_location(l_proc, 20);
1066: --
1067: -- Set up the in/out parameters.
1068: --
1069: l_formula_name := p_formulas(i).formula_name;
1100: );
1101: --
1102: -- Set up the core object table rows.
1103: --
1104: hr_utility.set_location(l_proc, 30);
1105: update_core_objects
1106: (p_effective_date => p_effective_date
1107: ,p_template_id => p_template_id
1108: ,p_core_object_type => g_sf_lookup_type
1114: --
1115: i := p_formulas.next(i);
1116: end loop;
1117: --
1118: hr_utility.set_location('Leaving:'|| l_proc, 100);
1119: end gen_formulas;
1120: -- ----------------------------------------------------------------------------
1121: -- |----------------------------< gen_balance_type >--------------------------|
1122: -- ----------------------------------------------------------------------------
1138: l_input_value_id number;
1139: l_id number;
1140: l_id1 number;
1141: begin
1142: hr_utility.set_location('Entering:' || l_proc, 10);
1143: --
1144: -- Only generate if a generated core object does not exist.
1145: --
1146: l_id := p_balance_type_id;
1148: (p_shadow_object_id => l_id
1149: ,p_object_type => g_sbt_lookup_type
1150: ,p_core_objects => p_sbt_core_objects
1151: ) then
1152: hr_utility.set_location(l_proc, 20);
1153: --
1154: -- Set up the in/out parameters.
1155: --
1156: l_balance_type_id := null;
1273: );
1274: --
1275: -- Set up the core object table rows.
1276: --
1277: hr_utility.set_location(l_proc, 30);
1278: update_core_objects
1279: (p_effective_date => p_effective_date
1280: ,p_template_id => p_template_id
1281: ,p_core_object_type => g_sbt_lookup_type
1283: ,p_core_object_id => l_balance_type_id
1284: ,p_core_objects => p_sbt_core_objects
1285: );
1286: end if;
1287: hr_utility.set_location('Leaving:'|| l_proc, 100);
1288: end gen_balance_type;
1289: -- ----------------------------------------------------------------------------
1290: -- |---------------------------< gen_balance_types >--------------------------|
1291: -- ----------------------------------------------------------------------------
1301: l_proc varchar2(72) := g_package||'gen_balance_types';
1302: i number;
1303: --
1304: begin
1305: hr_utility.set_location('Entering:'|| l_proc, 10);
1306: --
1307: i := p_balance_types.first;
1308: loop
1309: exit when not p_balance_types.exists(i);
1321: --
1322: i := p_balance_types.next(i);
1323: end loop;
1324: --
1325: hr_utility.set_location('Leaving:'|| l_proc, 100);
1326: end gen_balance_types;
1327: -- ----------------------------------------------------------------------------
1328: -- |--------------------------< gen_defined_balances >------------------------|
1329: -- ----------------------------------------------------------------------------
1346: l_balance_dimension_id number;
1347: l_defined_balance_id number;
1348: --
1349: begin
1350: hr_utility.set_location('Entering:'|| l_proc, 10);
1351: --
1352: i := p_defined_balances.first;
1353: loop
1354: exit when not p_defined_balances.exists(i);
1360: (p_shadow_object_id => l_shadow_object_id
1361: ,p_object_type => g_sdb_lookup_type
1362: ,p_core_objects => p_sdb_core_objects
1363: ) then
1364: hr_utility.set_location(l_proc, 20);
1365: --
1366: -- Set up the in/out parameters.
1367: --
1368: l_defined_balance_id := null;
1401: );
1402: --
1403: -- Set up the core object table rows.
1404: --
1405: hr_utility.set_location(l_proc, 30);
1406: update_core_objects
1407: (p_effective_date => p_effective_date
1408: ,p_template_id => p_template_id
1409: ,p_core_object_type => g_sdb_lookup_type
1415: --
1416: i := p_defined_balances.next(i);
1417: end loop;
1418: --
1419: hr_utility.set_location('Leaving:'|| l_proc, 100);
1420: end gen_defined_balances;
1421: -- ----------------------------------------------------------------------------
1422: -- |---------------------------< gen_element_types >--------------------------|
1423: -- ----------------------------------------------------------------------------
1451: l_proration_formula_id number;
1452: l_recalc_event_group_id number;
1453: --
1454: begin
1455: hr_utility.set_location('Entering:'|| l_proc, 10);
1456: --
1457: l_bus_grp_currency_code :=
1458: hr_general.default_currency_code(p_business_group_id);
1459: --
1468: (p_shadow_object_id => l_shadow_object_id
1469: ,p_object_type => g_set_lookup_type
1470: ,p_core_objects => p_set_core_objects
1471: ) then
1472: hr_utility.set_location(l_proc, 20);
1473: --
1474: -- Set up the in/out parameters.
1475: --
1476: l_element_type_id := null;
1567: --
1568: -- The business rule checking has to be performed here because the
1569: -- creation API does not contain business rule checking code!
1570: --
1571: hr_utility.set_location(l_proc, 40);
1572: hr_elements.chk_element_type
1573: (p_element_name => p_element_types(i).element_name
1574: ,p_element_type_id => null
1575: ,p_val_start_date => p_effective_date
1593: );
1594: --
1595: -- Insert the element row.
1596: --
1597: hr_utility.set_location(l_proc, 50);
1598: pay_element_types_pkg.insert_row
1599: (p_rowid => l_rowid
1600: ,p_element_type_id => l_element_type_id
1601: ,p_effective_start_date => p_effective_date
1701: );
1702: --
1703: -- Set up the core object table rows.
1704: --
1705: hr_utility.set_location(l_proc, 40);
1706: update_core_objects
1707: (p_effective_date => p_effective_date
1708: ,p_template_id => p_template_id
1709: ,p_core_object_type => g_set_lookup_type
1723: (p_shadow_object_id => i
1724: ,p_object_type => g_spr_lookup_type
1725: ,p_core_objects => p_spr_core_objects
1726: ) then
1727: hr_utility.set_location(l_proc, 50);
1728: --
1729: l_element_type_id := p_set_core_objects(i).core_object_id;
1730: l_shadow_object_id := p_element_types(i).payroll_formula_id;
1731: l_formula_id := p_sf_core_objects(l_shadow_object_id).core_object_id;
1753: );
1754: --
1755: -- Set up the core object table rows.
1756: --
1757: hr_utility.set_location(l_proc, 60);
1758: update_core_objects
1759: (p_effective_date => p_effective_date
1760: ,p_template_id => p_template_id
1761: ,p_core_object_type => g_spr_lookup_type
1767: --
1768: i := p_element_types.next(i);
1769: end loop;
1770: --
1771: hr_utility.set_location('Leaving:'|| l_proc, 100);
1772: end gen_element_types;
1773: -- ----------------------------------------------------------------------------
1774: -- |----------------------< implicit_sub_classi_rules >-----------------------|
1775: -- ----------------------------------------------------------------------------
1805: from pay_sub_classification_rules_f
1806: where element_type_id = p_element_type_id
1807: and classification_id = p_classification_id;
1808: begin
1809: hr_utility.set_location('Entering:'|| l_proc, 10);
1810: i := p_sub_classi_rules.first;
1811: loop
1812: exit when not p_sub_classi_rules.exists(i);
1813: --
1834: );
1835: --
1836: -- Look for the implicitly created sub-classification rule.
1837: --
1838: hr_utility.set_location(l_proc, 20);
1839: open csr_sub_classi_rule(l_element_type_id ,l_ele_classification_id);
1840: fetch csr_sub_classi_rule into l_sub_classification_rule_id;
1841: if csr_sub_classi_rule%found then
1842: --
1842: --
1843: -- Sub-classification rule found. Update the template generation
1844: -- table.
1845: --
1846: hr_utility.set_location(l_proc, 30);
1847: update_core_objects
1848: (p_effective_date => p_effective_date
1849: ,p_template_id => p_template_id
1850: ,p_core_object_type => g_ssr_lookup_type
1857: end if;
1858: --
1859: i := p_sub_classi_rules.next(i);
1860: end loop;
1861: hr_utility.set_location('Leaving:'|| l_proc, 100);
1862: exception
1863: when others then
1864: hr_utility.set_location('Leaving:'|| l_proc, 110);
1865: if csr_sub_classi_rule%isopen then
1860: end loop;
1861: hr_utility.set_location('Leaving:'|| l_proc, 100);
1862: exception
1863: when others then
1864: hr_utility.set_location('Leaving:'|| l_proc, 110);
1865: if csr_sub_classi_rule%isopen then
1866: close csr_sub_classi_rule;
1867: end if;
1868: raise;
1889: l_ele_classification_id number;
1890: l_non_payments_flag varchar2(30);
1891: --
1892: begin
1893: hr_utility.set_location('Entering:'|| l_proc, 10);
1894: --
1895: i := p_sub_classi_rules.first;
1896: loop
1897: exit when not p_sub_classi_rules.exists(i);
1903: (p_shadow_object_id => l_shadow_object_id
1904: ,p_object_type => g_ssr_lookup_type
1905: ,p_core_objects => p_ssr_core_objects
1906: ) then
1907: hr_utility.set_location(l_proc, 20);
1908: --
1909: -- Set up the in/out parameters.
1910: --
1911: l_sub_classification_rule_id := null;
1927: p_set_core_objects(p_sub_classi_rules(i).element_type_id).core_object_id;
1928: --
1929: -- Insert the secondary classification row.
1930: --
1931: hr_utility.set_location(l_proc, 30);
1932: pay_sub_class_rules_pkg.insert_row
1933: (p_rowid => l_rowid
1934: ,p_sub_classification_rule_id => l_sub_classification_rule_id
1935: ,p_effective_start_date => p_effective_date
1946: );
1947: --
1948: -- Set up the core object table rows.
1949: --
1950: hr_utility.set_location(l_proc, 30);
1951: update_core_objects
1952: (p_effective_date => p_effective_date
1953: ,p_template_id => p_template_id
1954: ,p_core_object_type => g_ssr_lookup_type
1960: --
1961: i := p_sub_classi_rules.next(i);
1962: end loop;
1963: --
1964: hr_utility.set_location('Leaving:'|| l_proc, 100);
1965: end gen_sub_classi_rules;
1966: -- ----------------------------------------------------------------------------
1967: -- |-------------------------< gen_balance_classis >--------------------------|
1968: -- ----------------------------------------------------------------------------
1985: l_ele_classification_id number;
1986: l_non_payments_flag varchar2(30);
1987: --
1988: begin
1989: hr_utility.set_location('Entering:'|| l_proc, 10);
1990: --
1991: i := p_balance_classis.first;
1992: loop
1993: exit when not p_balance_classis.exists(i);
1999: (p_shadow_object_id => l_shadow_object_id
2000: ,p_object_type => g_sbc_lookup_type
2001: ,p_core_objects => p_sbc_core_objects
2002: ) then
2003: hr_utility.set_location(l_proc, 20);
2004: --
2005: -- Set up the in/out parameters.
2006: --
2007: l_balance_classification_id := null;
2036: );
2037: --
2038: -- Set up the core object table rows.
2039: --
2040: hr_utility.set_location(l_proc, 30);
2041: update_core_objects
2042: (p_effective_date => p_effective_date
2043: ,p_template_id => p_template_id
2044: ,p_core_object_type => g_sbc_lookup_type
2050: --
2051: i := p_balance_classis.next(i);
2052: end loop;
2053: --
2054: hr_utility.set_location('Leaving:'|| l_proc, 100);
2055: end gen_balance_classis;
2056: -- ----------------------------------------------------------------------------
2057: -- |-------------------------< implicit_input_values >------------------------|
2058: -- ----------------------------------------------------------------------------
2103: and name = 'Pay Value';
2104: --
2105: l_input_value csr_input_value%rowtype;
2106: begin
2107: hr_utility.set_location('Entering:'|| l_proc, 10);
2108: i := p_input_values.first;
2109: loop
2110: exit when not p_input_values.exists(i);
2111: --
2123: ) then
2124: --
2125: -- It's a new element, so check for the implicitly created 'Pay Value'.
2126: --
2127: hr_utility.set_location(l_proc, 20);
2128: l_element_type_id :=
2129: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2130: open csr_input_value(l_element_type_id ,l_name);
2131: fetch csr_input_value into l_input_value;
2132: if csr_input_value%found then
2133: --
2134: -- Input value rule found. Update the template generation table.
2135: --
2136: hr_utility.set_location(l_proc, 30);
2137: update_core_objects
2138: (p_effective_date => p_effective_date
2139: ,p_template_id => p_template_id
2140: ,p_core_object_type => g_siv_lookup_type
2145: --
2146: -- Update the input value if the mandatory flags differ - there
2147: -- shouldn't be any other difference of interest.
2148: --
2149: hr_utility.set_location(l_proc, 35);
2150: if l_input_value.mandatory_flag <>
2151: p_input_values(i).mandatory_flag then
2152: pay_input_values_pkg.update_row
2153: (p_rowid => l_input_value.rowid
2179: end if;
2180: --
2181: i := p_input_values.next(i);
2182: end loop;
2183: hr_utility.set_location('Leaving:'|| l_proc, 100);
2184: exception
2185: when others then
2186: hr_utility.set_location('Leaving:'|| l_proc, 110);
2187: if csr_input_value%isopen then
2182: end loop;
2183: hr_utility.set_location('Leaving:'|| l_proc, 100);
2184: exception
2185: when others then
2186: hr_utility.set_location('Leaving:'|| l_proc, 110);
2187: if csr_input_value%isopen then
2188: close csr_input_value;
2189: end if;
2190: raise;
2214: l_default_value varchar2(2000);
2215: l_formula_id number;
2216: --
2217: begin
2218: hr_utility.set_location('Entering:'|| l_proc, 10);
2219: --
2220: i := p_input_values.first;
2221: loop
2222: exit when not p_input_values.exists(i);
2228: (p_shadow_object_id => l_shadow_object_id
2229: ,p_object_type => g_siv_lookup_type
2230: ,p_core_objects => p_siv_core_objects
2231: ) then
2232: hr_utility.set_location(l_proc, 20);
2233: --
2234: -- Set up the in/out parameters.
2235: --
2236: l_input_value_id := null;
2242: p_set_core_objects(p_input_values(i).element_type_id).core_object_id;
2243: --
2244: -- Insert the input value row.
2245: --
2246: hr_utility.set_location(l_proc, 30);
2247: --
2248:
2249: l_default_value := p_input_values(i).default_value;
2250:
2300: );
2301: --
2302: -- Set up the core object table rows.
2303: --
2304: hr_utility.set_location(l_proc, 30);
2305: update_core_objects
2306: (p_effective_date => p_effective_date
2307: ,p_template_id => p_template_id
2308: ,p_core_object_type => g_siv_lookup_type
2314: --
2315: i := p_input_values.next(i);
2316: end loop;
2317: --
2318: hr_utility.set_location('Leaving:'|| l_proc, 100);
2319: end gen_input_values;
2320: -- ----------------------------------------------------------------------------
2321: -- |---------------------------< gen_balance_feeds >--------------------------|
2322: -- ----------------------------------------------------------------------------
2340: l_balance_feed_id number;
2341: l_check_latest_balances boolean;
2342: --
2343: begin
2344: hr_utility.set_location('Entering:'|| l_proc, 10);
2345: --
2346: i := p_balance_feeds.first;
2347: loop
2348: exit when not p_balance_feeds.exists(i);
2354: (p_shadow_object_id => l_shadow_object_id
2355: ,p_object_type => g_sbf_lookup_type
2356: ,p_core_objects => p_sbf_core_objects
2357: ) then
2358: hr_utility.set_location(l_proc, 20);
2359: --
2360: -- Set up the in/out parameters.
2361: --
2362: l_balance_feed_id := null;
2388: p_siv_core_objects(p_balance_feeds(i).input_value_id).core_object_id;
2389: --
2390: -- Insert the balance feed row.
2391: --
2392: hr_utility.set_location(l_proc, 30);
2393:
2394: begin
2395: --
2396: -- Disable (unnecessary) latest balance checking.
2427:
2428: --
2429: -- Set up the core object table rows.
2430: --
2431: hr_utility.set_location(l_proc, 40);
2432: update_core_objects
2433: (p_effective_date => p_effective_date
2434: ,p_template_id => p_template_id
2435: ,p_core_object_type => g_sbf_lookup_type
2441: --
2442: i := p_balance_feeds.next(i);
2443: end loop;
2444: --
2445: hr_utility.set_location('Leaving:'|| l_proc, 100);
2446: end gen_balance_feeds;
2447: -- ----------------------------------------------------------------------------
2448: -- |---------------------------< gen_formula_rules >--------------------------|
2449: -- ----------------------------------------------------------------------------
2472: l_formula_result_rule_id number;
2473: l_status_processing_rule_id number;
2474: --
2475: begin
2476: hr_utility.set_location('Entering:'|| l_proc, 10);
2477: --
2478: i := p_formula_rules.first;
2479: loop
2480: exit when not p_formula_rules.exists(i);
2486: (p_shadow_object_id => l_shadow_object_id
2487: ,p_object_type => g_sfr_lookup_type
2488: ,p_core_objects => p_sfr_core_objects
2489: ) then
2490: hr_utility.set_location(l_proc, 20);
2491: -----------------------------------
2492: -- Set up the in/out parameters. --
2493: -----------------------------------
2494: l_formula_result_rule_id := null;
2504: ) then
2505: l_status_processing_rule_id :=
2506: p_spr_core_objects(l_shadow_element_type_id).core_object_id;
2507: else
2508: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2509: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2510: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2511: hr_utility.raise_error;
2512: end if;
2505: l_status_processing_rule_id :=
2506: p_spr_core_objects(l_shadow_element_type_id).core_object_id;
2507: else
2508: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2509: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2510: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2511: hr_utility.raise_error;
2512: end if;
2513: -------------------------------------------------------------------
2506: p_spr_core_objects(l_shadow_element_type_id).core_object_id;
2507: else
2508: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2509: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2510: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2511: hr_utility.raise_error;
2512: end if;
2513: -------------------------------------------------------------------
2514: -- Set up the element_type_id and input_value_id columns for the --
2507: else
2508: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2509: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2510: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2511: hr_utility.raise_error;
2512: end if;
2513: -------------------------------------------------------------------
2514: -- Set up the element_type_id and input_value_id columns for the --
2515: -- formula rule. Raise an error if they have not been generated. --
2524: ) then
2525: l_input_value_id :=
2526: p_siv_core_objects(l_shadow_input_value_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_INPUT_VALUES_F');
2531: hr_utility.raise_error;
2532: end if;
2525: l_input_value_id :=
2526: p_siv_core_objects(l_shadow_input_value_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_INPUT_VALUES_F');
2531: hr_utility.raise_error;
2532: end if;
2533: end if;
2526: p_siv_core_objects(l_shadow_input_value_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_INPUT_VALUES_F');
2531: hr_utility.raise_error;
2532: end if;
2533: end if;
2534: --
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_INPUT_VALUES_F');
2531: hr_utility.raise_error;
2532: end if;
2533: end if;
2534: --
2535: l_element_type_id := null;
2542: ) then
2543: l_element_type_id :=
2544: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2545: else
2546: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2547: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2548: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2549: hr_utility.raise_error;
2550: end if;
2543: l_element_type_id :=
2544: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2545: else
2546: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2547: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2548: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2549: hr_utility.raise_error;
2550: end if;
2551: elsif p_formula_rules(i).element_name is not null then
2544: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2545: else
2546: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2547: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2548: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2549: hr_utility.raise_error;
2550: end if;
2551: elsif p_formula_rules(i).element_name is not null then
2552: l_element_type_id :=
2545: else
2546: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2547: hr_utility.set_message_token('TABLE', 'PAY_STATUS_PROCESSING_RULES_F');
2548: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2549: hr_utility.raise_error;
2550: end if;
2551: elsif p_formula_rules(i).element_name is not null then
2552: l_element_type_id :=
2553: get_element_type_id
2579: );
2580: --
2581: -- Set up the core object table rows.
2582: --
2583: hr_utility.set_location(l_proc, 30);
2584: update_core_objects
2585: (p_effective_date => p_effective_date
2586: ,p_template_id => p_template_id
2587: ,p_core_object_type => g_sfr_lookup_type
2593: --
2594: i := p_formula_rules.next(i);
2595: end loop;
2596: --
2597: hr_utility.set_location('Leaving:'|| l_proc, 100);
2598: end gen_formula_rules;
2599: -- ----------------------------------------------------------------------------
2600: -- |--------------------------< gen_iterative_rules >-------------------------|
2601: -- ----------------------------------------------------------------------------
2621: l_effective_start_date date;
2622: l_effective_end_date date;
2623: --
2624: begin
2625: hr_utility.set_location('Entering:'|| l_proc, 10);
2626: --
2627: i := p_iterative_rules.first;
2628: loop
2629: exit when not p_iterative_rules.exists(i);
2635: (p_shadow_object_id => l_shadow_object_id
2636: ,p_object_type => g_sir_lookup_type
2637: ,p_core_objects => p_sir_core_objects
2638: ) then
2639: hr_utility.set_location(l_proc, 20);
2640: -----------------------------------
2641: -- Set up the in/out parameters. --
2642: -----------------------------------
2643: l_iterative_rule_id := null;
2658: ) then
2659: l_input_value_id :=
2660: p_siv_core_objects(l_shadow_input_value_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_INPUT_VALUES_F');
2665: hr_utility.raise_error;
2666: end if;
2659: l_input_value_id :=
2660: p_siv_core_objects(l_shadow_input_value_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_INPUT_VALUES_F');
2665: hr_utility.raise_error;
2666: end if;
2667: end if;
2660: p_siv_core_objects(l_shadow_input_value_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_INPUT_VALUES_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_INPUT_VALUES_F');
2665: hr_utility.raise_error;
2666: end if;
2667: end if;
2668: --
2669: l_element_type_id := null;
2676: ) then
2677: l_element_type_id :=
2678: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2679: else
2680: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2681: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2682: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2683: hr_utility.raise_error;
2684: end if;
2677: l_element_type_id :=
2678: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2679: else
2680: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2681: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2682: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2683: hr_utility.raise_error;
2684: end if;
2685: end if;
2678: p_set_core_objects(l_shadow_element_type_id).core_object_id;
2679: else
2680: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2681: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2682: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2683: hr_utility.raise_error;
2684: end if;
2685: end if;
2686: ------------------------------------
2679: else
2680: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2681: hr_utility.set_message_token('TABLE', 'PAY_ITERATIVE_RULES_F');
2682: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2683: hr_utility.raise_error;
2684: end if;
2685: end if;
2686: ------------------------------------
2687: -- Insert the iterative rule row. --
2702: );
2703: --
2704: -- Set up the core object table rows.
2705: --
2706: hr_utility.set_location(l_proc, 30);
2707: update_core_objects
2708: (p_effective_date => p_effective_date
2709: ,p_template_id => p_template_id
2710: ,p_core_object_type => g_sir_lookup_type
2716: --
2717: i := p_iterative_rules.next(i);
2718: end loop;
2719: --
2720: hr_utility.set_location('Leaving:'|| l_proc, 100);
2721: end gen_iterative_rules;
2722: -- ----------------------------------------------------------------------------
2723: -- |--------------------------< gen_ele_type_usages >--------------------------|
2724: -- ----------------------------------------------------------------------------
2742: l_effective_end_date date;
2743: l_object_version_number number;
2744: --
2745: begin
2746: hr_utility.set_location('Entering:'|| l_proc, 10);
2747: --
2748: i := p_ele_type_usages.first;
2749: loop
2750: exit when not p_ele_type_usages.exists(i);
2756: (p_shadow_object_id => l_shadow_object_id
2757: ,p_object_type => g_seu_lookup_type
2758: ,p_core_objects => p_seu_core_objects
2759: ) then
2760: hr_utility.set_location(l_proc, 20);
2761: -----------------------------------
2762: -- Set up the in/out parameters. --
2763: -----------------------------------
2764: l_element_type_usage_id := null;
2782: p_set_core_objects(p_ele_type_usages(i).element_type_id).core_object_id;
2783: --
2784: -- Insert the element type usage row.
2785: --
2786: hr_utility.set_location(l_proc, 30);
2787: pay_etu_ins.ins
2788: (p_effective_date => p_effective_date
2789: ,p_run_type_id => l_run_type_id
2790: ,p_element_type_id => l_element_type_id
2798: );
2799: --
2800: -- Set up the core object table rows.
2801: --
2802: hr_utility.set_location(l_proc, 40);
2803: update_core_objects
2804: (p_effective_date => p_effective_date
2805: ,p_template_id => p_template_id
2806: ,p_core_object_type => g_seu_lookup_type
2812: --
2813: i := p_ele_type_usages.next(i);
2814: end loop;
2815: --
2816: hr_utility.set_location('Leaving:'|| l_proc, 100);
2817: end gen_ele_type_usages;
2818: -- ----------------------------------------------------------------------------
2819: -- |-------------------------< gen_gu_bal_exclusions >------------------------|
2820: -- ----------------------------------------------------------------------------
2837: l_grossup_balances_id number;
2838: l_object_version_number number;
2839: --
2840: begin
2841: hr_utility.set_location('Entering:'|| l_proc, 10);
2842: --
2843: i := p_gu_bal_exclusions.first;
2844: loop
2845: exit when not p_gu_bal_exclusions.exists(i);
2851: (p_shadow_object_id => l_shadow_object_id
2852: ,p_object_type => g_sgb_lookup_type
2853: ,p_core_objects => p_sgb_core_objects
2854: ) then
2855: hr_utility.set_location(l_proc, 20);
2856: --
2857: -- Set up the in/out parameters.
2858: --
2859: l_grossup_balances_id := null;
2884: ) then
2885: l_balance_type_id :=
2886: p_sbt_core_objects(l_balance_type_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_BALANCE_TYPES');
2891: hr_utility.raise_error;
2892: end if;
2885: l_balance_type_id :=
2886: p_sbt_core_objects(l_balance_type_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_BALANCE_TYPES');
2891: hr_utility.raise_error;
2892: end if;
2893: end if;
2886: p_sbt_core_objects(l_balance_type_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_BALANCE_TYPES');
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_BALANCE_TYPES');
2891: hr_utility.raise_error;
2892: end if;
2893: end if;
2894: --
2895: -- Set up the source_id value.
2902: ) then
2903: l_source_id :=
2904: p_set_core_objects(p_gu_bal_exclusions(i).source_id).core_object_id;
2905: else
2906: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2907: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2908: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2909: hr_utility.raise_error;
2910: end if;
2903: l_source_id :=
2904: p_set_core_objects(p_gu_bal_exclusions(i).source_id).core_object_id;
2905: else
2906: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2907: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2908: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2909: hr_utility.raise_error;
2910: end if;
2911: end if;
2904: p_set_core_objects(p_gu_bal_exclusions(i).source_id).core_object_id;
2905: else
2906: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2907: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2908: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2909: hr_utility.raise_error;
2910: end if;
2911: end if;
2912: --
2905: else
2906: hr_utility.set_message(801, 'PAY_50066_ETM_GEN_NO_FK_ROW');
2907: hr_utility.set_message_token('TABLE', 'PAY_GROSSUP_BAL_EXCLUSIONS');
2908: hr_utility.set_message_token('FK_TABLE', 'PAY_ELEMENT_TYPES_F');
2909: hr_utility.raise_error;
2910: end if;
2911: end if;
2912: --
2913: -- Insert the grossup balance exclusion row.
2911: end if;
2912: --
2913: -- Insert the grossup balance exclusion row.
2914: --
2915: hr_utility.set_location(l_proc, 30);
2916: pay_gbe_ins.ins
2917: (p_start_date => p_effective_date
2918: ,p_end_date => hr_api.g_eot
2919: ,p_source_id => l_source_id
2924: );
2925: --
2926: -- Set up the core object table rows.
2927: --
2928: hr_utility.set_location(l_proc, 40);
2929: update_core_objects
2930: (p_effective_date => p_effective_date
2931: ,p_template_id => p_template_id
2932: ,p_core_object_type => g_sgb_lookup_type
2938: --
2939: i := p_gu_bal_exclusions.next(i);
2940: end loop;
2941: --
2942: hr_utility.set_location('Leaving:'|| l_proc, 100);
2943: end gen_gu_bal_exclusions;
2944: -- ----------------------------------------------------------------------------
2945: -- |-----------------------< gen_balance_attributes >-------------------------|
2946: -- ----------------------------------------------------------------------------
2961: l_defined_balance_id number;
2962: l_bal_attribute_def_id number;
2963: --
2964: begin
2965: hr_utility.set_location('Entering:'|| l_proc, 10);
2966: --
2967: i := p_bal_attributes.first;
2968: loop
2969: exit when not p_bal_attributes.exists(i);
2975: (p_shadow_object_id => l_shadow_object_id
2976: ,p_object_type => g_sba_lookup_type
2977: ,p_core_objects => p_sba_core_objects
2978: ) then
2979: hr_utility.set_location(l_proc, 20);
2980: --
2981: -- Set up the attribute_id for the external balance attribute definition.
2982: --
2983: l_bal_attribute_def_id :=
3004: );
3005: --
3006: -- Set up the core object table rows.
3007: --
3008: hr_utility.set_location(l_proc, 30);
3009: update_core_objects
3010: (p_effective_date => p_effective_date
3011: ,p_template_id => p_template_id
3012: ,p_core_object_type => g_sba_lookup_type
3018: --
3019: i := p_bal_attributes.next(i);
3020: end loop;
3021: --
3022: hr_utility.set_location('Leaving:'|| l_proc, 100);
3023: end gen_bal_attributes;
3024: -- ----------------------------------------------------------------------------
3025: -- |---------------------------< generate_part1 >-----------------------------|
3026: -- ----------------------------------------------------------------------------
3072: l_seu_core_objects pay_element_template_util.t_core_objects;
3073: l_sgb_core_objects pay_element_template_util.t_core_objects;
3074: l_sba_core_objects pay_element_template_util.t_core_objects;
3075: begin
3076: hr_utility.set_location('Entering:'|| l_proc, 10);
3077: ----------------------------------------------
3078: -- Check that the template type is correct. --
3079: ----------------------------------------------
3080: l_template_type :=
3079: ----------------------------------------------
3080: l_template_type :=
3081: pay_element_template_util.get_template_type(p_template_id);
3082: if l_template_type is null or l_template_type <> 'U' then
3083: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3084: hr_utility.raise_error;
3085: end if;
3086: ---------------------------------------
3087: -- Read in the template information. --
3080: l_template_type :=
3081: pay_element_template_util.get_template_type(p_template_id);
3082: if l_template_type is null or l_template_type <> 'U' then
3083: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3084: hr_utility.raise_error;
3085: end if;
3086: ---------------------------------------
3087: -- Read in the template information. --
3088: ---------------------------------------
3109: );
3110: -----------------------------------------------
3111: -- Read in information on generated objects. --
3112: -----------------------------------------------
3113: hr_utility.set_location(l_proc, 20);
3114: create_generation_tables
3115: (p_all_core_objects => l_all_core_objects
3116: ,p_index_by_core_object_id => false
3117: ,p_sf_core_objects => l_sf_core_objects
3129: ,p_sgb_core_objects => l_sgb_core_objects
3130: ,p_sba_core_objects => l_sba_core_objects
3131: );
3132: --
3133: hr_utility.set_location(l_proc, 30);
3134: get_formula_types;
3135: l_business_group_id := l_element_template.business_group_id;
3136: l_legislation_code :=
3137: hr_api.return_legislation_code(l_business_group_id);
3151: );
3152: -----------------------
3153: -- 2. Element Types. --
3154: -----------------------
3155: hr_utility.set_location(l_proc, 70);
3156: l_base_processing_priority := l_element_template.base_processing_priority;
3157: gen_element_types
3158: (p_effective_date => p_effective_date
3159: ,p_template_id => p_template_id
3168: );
3169: ------------------------------
3170: -- 3. Element Input Values. --
3171: ------------------------------
3172: hr_utility.set_location(l_proc, 100);
3173: implicit_input_values
3174: (p_effective_date => p_effective_date
3175: ,p_template_id => p_template_id
3176: ,p_all_core_objects => l_all_core_objects
3190: );
3191: ----------------------
3192: -- 4. Balance Types --
3193: ----------------------
3194: hr_utility.set_location(l_proc, 50);
3195: gen_balance_types
3196: (p_effective_date => p_effective_date
3197: ,p_template_id => p_template_id
3198: ,p_business_group_id => l_business_group_id
3203: );
3204: --------------------------
3205: -- 5. Defined Balances. --
3206: --------------------------
3207: hr_utility.set_location(l_proc, 60);
3208: if not p_hr_only then
3209: gen_defined_balances
3210: (p_effective_date => p_effective_date
3211: ,p_template_id => p_template_id
3223: -- Have to allow for the implicitly created sub-classification
3224: -- rules whatever options the user chooses, otherwise the code
3225: -- may error when it's time to generate everything.
3226: --
3227: hr_utility.set_location(l_proc, 80);
3228: implicit_sub_classi_rules
3229: (p_effective_date => p_effective_date
3230: ,p_template_id => p_template_id
3231: ,p_business_group_id => l_business_group_id
3247: );
3248: ---------------------------------
3249: -- 7. Balance Classifications. --
3250: ---------------------------------
3251: hr_utility.set_location(l_proc, 90);
3252: gen_balance_classis
3253: (p_effective_date => p_effective_date
3254: ,p_template_id => p_template_id
3255: ,p_business_group_id => l_business_group_id
3260: );
3261: -----------------------
3262: -- 8. Balance Feeds. --
3263: -----------------------
3264: hr_utility.set_location(l_proc, 110);
3265: gen_balance_feeds
3266: (p_effective_date => p_effective_date
3267: ,p_template_id => p_template_id
3268: ,p_business_group_id => l_business_group_id
3274: );
3275: -----------------------------
3276: -- 9. Element type usages. --
3277: -----------------------------
3278: hr_utility.set_location(l_proc, 120);
3279: gen_ele_type_usages
3280: (p_effective_date => p_effective_date
3281: ,p_template_id => p_template_id
3282: ,p_business_group_id => l_business_group_id
3287: );
3288: -------------------------------------
3289: -- 10. Grossup balance exclusions. --
3290: -------------------------------------
3291: hr_utility.set_location(l_proc, 130);
3292: gen_gu_bal_exclusions
3293: (p_effective_date => p_effective_date
3294: ,p_template_id => p_template_id
3295: ,p_business_group_id => l_business_group_id
3301: );
3302: -----------------------------
3303: -- 11. Balance attributes. --
3304: -----------------------------
3305: hr_utility.set_location(l_proc, 140);
3306: gen_bal_attributes
3307: (p_effective_date => p_effective_date
3308: ,p_template_id => p_template_id
3309: ,p_business_group_id => l_business_group_id
3312: ,p_sdb_core_objects => l_sdb_core_objects
3313: ,p_sba_core_objects => l_sba_core_objects
3314: );
3315: end if;
3316: hr_utility.set_location('Leaving:'|| l_proc, 200);
3317: exception
3318: when others then
3319: hr_utility.set_location('Leaving:'|| l_proc, 210);
3320: raise;
3315: end if;
3316: hr_utility.set_location('Leaving:'|| l_proc, 200);
3317: exception
3318: when others then
3319: hr_utility.set_location('Leaving:'|| l_proc, 210);
3320: raise;
3321: end generate_part1;
3322: -- ----------------------------------------------------------------------------
3323: -- |---------------------------< generate_part2 >-----------------------------|
3368: l_sgb_core_objects pay_element_template_util.t_core_objects;
3369: l_sba_core_objects pay_element_template_util.t_core_objects;
3370: --
3371: begin
3372: hr_utility.set_location('Entering:'|| l_proc, 10);
3373: ----------------------------------------------
3374: -- Check that the template type is correct. --
3375: ----------------------------------------------
3376: l_template_type :=
3375: ----------------------------------------------
3376: l_template_type :=
3377: pay_element_template_util.get_template_type(p_template_id);
3378: if l_template_type is null or l_template_type <> 'U' then
3379: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3380: hr_utility.raise_error;
3381: end if;
3382: ---------------------------------------
3383: -- Read in the template information. --
3376: l_template_type :=
3377: pay_element_template_util.get_template_type(p_template_id);
3378: if l_template_type is null or l_template_type <> 'U' then
3379: hr_utility.set_message(801, 'PAY_50065_BAD_USER_TEMPLATE');
3380: hr_utility.raise_error;
3381: end if;
3382: ---------------------------------------
3383: -- Read in the template information. --
3384: ---------------------------------------
3411: get_formula_types;
3412: -----------------------------------------------
3413: -- Read in information on generated objects. --
3414: -----------------------------------------------
3415: hr_utility.set_location(l_proc, 20);
3416: create_generation_tables
3417: (p_all_core_objects => l_all_core_objects
3418: ,p_index_by_core_object_id => false
3419: ,p_sf_core_objects => l_sf_core_objects
3439:
3440: ----------------------------------------
3441: -- Generate the formula result rules. --
3442: ----------------------------------------
3443: hr_utility.set_location(l_proc, 30);
3444: gen_formula_rules
3445: (p_effective_date => p_effective_date
3446: ,p_template_id => p_template_id
3447: ,p_business_group_id => l_business_group_id
3455: );
3456: -----------------------------------
3457: -- Generate the iterative rules. --
3458: -----------------------------------
3459: hr_utility.set_location(l_proc, 40);
3460: gen_iterative_rules
3461: (p_effective_date => p_effective_date
3462: ,p_template_id => p_template_id
3463: ,p_business_group_id => l_business_group_id
3465: ,p_set_core_objects => l_set_core_objects
3466: ,p_siv_core_objects => l_siv_core_objects
3467: ,p_sir_core_objects => l_sir_core_objects
3468: );
3469: hr_utility.set_location('Leaving:'|| l_proc, 200);
3470: end generate_part2;
3471: -- ----------------------------------------------------------------------------
3472: -- |---------------------------< core_objects_lock >--------------------------|
3473: -- ----------------------------------------------------------------------------
3598: begin
3599: --
3600: -- Generated formulas.
3601: --
3602: hr_utility.set_location('Entering:'|| l_proc, 10);
3603: if p_core_object_type = g_sf_lookup_type then
3604: hr_utility.set_location(l_proc, 15);
3605: i := p_core_objects.first;
3606: j := 0;
3600: -- Generated formulas.
3601: --
3602: hr_utility.set_location('Entering:'|| l_proc, 10);
3603: if p_core_object_type = g_sf_lookup_type then
3604: hr_utility.set_location(l_proc, 15);
3605: i := p_core_objects.first;
3606: j := 0;
3607: loop
3608: exit when not p_core_objects.exists(i);
3622: --
3623: -- Generated balance types.
3624: --
3625: if p_core_object_type = g_sbt_lookup_type then
3626: hr_utility.set_location(l_proc, 20);
3627: i := p_core_objects.first;
3628: loop
3629: exit when not p_core_objects.exists(i);
3630: --
3647: --
3648: -- Generated defined balances.
3649: --
3650: if p_core_object_type = g_sdb_lookup_type then
3651: hr_utility.set_location(l_proc, 30);
3652: i := p_core_objects.first;
3653: j := 0;
3654: loop
3655: exit when not p_core_objects.exists(i);
3669: --
3670: -- Generated element types.
3671: --
3672: if p_core_object_type = g_set_lookup_type then
3673: hr_utility.set_location(l_proc, 40);
3674: i := p_core_objects.first;
3675: j := 0;
3676: loop
3677: exit when not p_core_objects.exists(i);
3691: --
3692: -- Generated sub-classification rules.
3693: --
3694: if p_core_object_type = g_ssr_lookup_type then
3695: hr_utility.set_location(l_proc, 50);
3696: i := p_core_objects.first;
3697: j := 0;
3698: loop
3699: exit when not p_core_objects.exists(i);
3713: --
3714: -- Generated balance classifications.
3715: --
3716: if p_core_object_type = g_sbc_lookup_type then
3717: hr_utility.set_location(l_proc, 60);
3718: i := p_core_objects.first;
3719: j := 0;
3720: loop
3721: exit when not p_core_objects.exists(i);
3735: --
3736: -- Generated input values.
3737: --
3738: if p_core_object_type = g_siv_lookup_type then
3739: hr_utility.set_location(l_proc, 70);
3740: i := p_core_objects.first;
3741: j := 0;
3742: loop
3743: exit when not p_core_objects.exists(i);
3757: --
3758: -- Generated balance feeds.
3759: --
3760: if p_core_object_type = g_sbf_lookup_type then
3761: hr_utility.set_location(l_proc, 80);
3762: i := p_core_objects.first;
3763: j := 0;
3764: loop
3765: exit when not p_core_objects.exists(i);
3779: --
3780: -- Generated status processing rules.
3781: --
3782: if p_core_object_type = g_spr_lookup_type then
3783: hr_utility.set_location(l_proc, 90);
3784: i := p_core_objects.first;
3785: j := 0;
3786: loop
3787: exit when not p_core_objects.exists(i);
3801: --
3802: -- Generated formula rules.
3803: --
3804: if p_core_object_type = g_sfr_lookup_type then
3805: hr_utility.set_location(l_proc, 100);
3806: i := p_core_objects.first;
3807: j := 0;
3808: loop
3809: exit when not p_core_objects.exists(i);
3823: --
3824: -- Generated iterative rules.
3825: --
3826: if p_core_object_type = g_sir_lookup_type then
3827: hr_utility.set_location(l_proc, 110);
3828: i := p_core_objects.first;
3829: j := 0;
3830: loop
3831: exit when not p_core_objects.exists(i);
3845: --
3846: -- Generated element type usages.
3847: --
3848: if p_core_object_type = g_seu_lookup_type then
3849: hr_utility.set_location(l_proc, 120);
3850: i := p_core_objects.first;
3851: j := 0;
3852: loop
3853: exit when not p_core_objects.exists(i);
3867: --
3868: -- Generated grossup balance exclusions.
3869: --
3870: if p_core_object_type = g_sgb_lookup_type then
3871: hr_utility.set_location(l_proc, 130);
3872: i := p_core_objects.first;
3873: j := 0;
3874: loop
3875: exit when not p_core_objects.exists(i);
3889: --
3890: -- Generated balance attributes.
3891: --
3892: if p_core_object_type = g_sba_lookup_type then
3893: hr_utility.set_location(l_proc, 140);
3894: i := p_core_objects.first;
3895: j := 0;
3896: loop
3897: exit when not p_core_objects.exists(i);
3908: i := p_core_objects.next(i);
3909: end loop;
3910: end if;
3911: --
3912: hr_utility.set_location('Leaving:'|| l_proc, 200);
3913: return;
3914: exception
3915: when others then
3916: hr_utility.set_location('Leaving:'|| l_proc, 210);
3912: hr_utility.set_location('Leaving:'|| l_proc, 200);
3913: return;
3914: exception
3915: when others then
3916: hr_utility.set_location('Leaving:'|| l_proc, 210);
3917: --
3918: if csr_formulas_lock%isopen then
3919: close csr_formulas_lock;
3920: end if;
4023: into l_balance_name
4024: from pay_balance_types pbt
4025: where pbt.balance_type_id = p_balance_type_id
4026: ;
4027: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4028: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4029: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4030: hr_utility.raise_error;
4031: end if;
4024: from pay_balance_types pbt
4025: where pbt.balance_type_id = p_balance_type_id
4026: ;
4027: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4028: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4029: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4030: hr_utility.raise_error;
4031: end if;
4032: end loop;
4025: where pbt.balance_type_id = p_balance_type_id
4026: ;
4027: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4028: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4029: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4030: hr_utility.raise_error;
4031: end if;
4032: end loop;
4033: --
4026: ;
4027: hr_utility.set_message(801, 'PAY_50213_ETM_EXTERNAL_BAL_DEL');
4028: hr_utility.set_message_token('BASE_BALANCE', l_balance_name);
4029: hr_utility.set_message_token('EXT_BALANCE', crec.balance_name);
4030: hr_utility.raise_error;
4031: end if;
4032: end loop;
4033: --
4034: -- Delete this balance.
4048: l_proc varchar2(72) := g_package||'del_balance_types';
4049: i number;
4050: l_remaining_recs t_rowid_id_recs;
4051: begin
4052: hr_utility.set_location('Entering:'|| l_proc, 10);
4053: l_remaining_recs := p_rowid_id_recs;
4054: --
4055: i := p_rowid_id_recs.first;
4056: loop
4063: );
4064: --
4065: i := p_rowid_id_recs.next(i);
4066: end loop;
4067: hr_utility.set_location('Leaving:'|| l_proc, 100);
4068: end del_balance_types;
4069: -- ----------------------------------------------------------------------------
4070: -- |--------------------------< del_defined_balances >------------------------|
4071: -- ----------------------------------------------------------------------------
4074: ) is
4075: l_proc varchar2(72) := g_package||'del_defined_balances';
4076: i number;
4077: begin
4078: hr_utility.set_location('Entering:'|| l_proc, 10);
4079: i := p_rowid_id_recs.first;
4080: loop
4081: exit when not p_rowid_id_recs.exists(i);
4082: --
4086: );
4087: --
4088: i := p_rowid_id_recs.next(i);
4089: end loop;
4090: hr_utility.set_location('Leaving:'|| l_proc, 100);
4091: end del_defined_balances;
4092: -- ----------------------------------------------------------------------------
4093: -- |---------------------------< del_element_types >--------------------------|
4094: -- ----------------------------------------------------------------------------
4098: l_proc varchar2(72) := g_package||'del_element_types';
4099: i number;
4100: l_id number;
4101: begin
4102: hr_utility.set_location('Entering:'|| l_proc, 10);
4103: i := p_rowid_id_recs.first;
4104: loop
4105: exit when not p_rowid_id_recs.exists(i);
4106: --
4116: end if;
4117: --
4118: i := p_rowid_id_recs.next(i);
4119: end loop;
4120: hr_utility.set_location('Leaving:'|| l_proc, 100);
4121: end del_element_types;
4122: -- ----------------------------------------------------------------------------
4123: -- |---------------------------< del_sub_classi_rules >-----------------------|
4124: -- ----------------------------------------------------------------------------
4127: ) is
4128: l_proc varchar2(72) := g_package||'del_sub_classi_rules';
4129: i number;
4130: begin
4131: hr_utility.set_location('Entering:'|| l_proc, 10);
4132: i := p_rowid_id_recs.first;
4133: loop
4134: exit when not p_rowid_id_recs.exists(i);
4135: --
4142: );
4143: --
4144: i := p_rowid_id_recs.next(i);
4145: end loop;
4146: hr_utility.set_location('Leaving:'|| l_proc, 100);
4147: end del_sub_classi_rules;
4148: -- ----------------------------------------------------------------------------
4149: -- |---------------------------< del_balance_classis >------------------------|
4150: -- ----------------------------------------------------------------------------
4153: ) is
4154: l_proc varchar2(72) := g_package||'del_balance_classis';
4155: i number;
4156: begin
4157: hr_utility.set_location('Entering:'|| l_proc, 10);
4158: i := p_rowid_id_recs.first;
4159: loop
4160: exit when not p_rowid_id_recs.exists(i);
4161: --
4165: );
4166: --
4167: i := p_rowid_id_recs.next(i);
4168: end loop;
4169: hr_utility.set_location('Leaving:'|| l_proc, 100);
4170: end del_balance_classis;
4171: -- ----------------------------------------------------------------------------
4172: -- |----------------------------< del_input_values >--------------------------|
4173: -- ----------------------------------------------------------------------------
4177: l_proc varchar2(72) := g_package||'del_input_values';
4178: i number;
4179: l_id number;
4180: begin
4181: hr_utility.set_location('Entering:'|| l_proc, 10);
4182: i := p_rowid_id_recs.first;
4183: loop
4184: exit when not p_rowid_id_recs.exists(i);
4185: --
4196: end if;
4197: --
4198: i := p_rowid_id_recs.next(i);
4199: end loop;
4200: hr_utility.set_location('Leaving:'|| l_proc, 100);
4201: end del_input_values;
4202: -- ----------------------------------------------------------------------------
4203: -- |----------------------------< del_formula_rules >-------------------------|
4204: -- ----------------------------------------------------------------------------
4207: ) is
4208: l_proc varchar2(72) := g_package||'del_formula_rules';
4209: i number;
4210: begin
4211: hr_utility.set_location('Entering:'|| l_proc, 10);
4212: i := p_rowid_id_recs.first;
4213: loop
4214: exit when not p_rowid_id_recs.exists(i);
4215: --
4218: );
4219: --
4220: i := p_rowid_id_recs.next(i);
4221: end loop;
4222: hr_utility.set_location('Leaving:'|| l_proc, 100);
4223: end del_formula_rules;
4224: -- ----------------------------------------------------------------------------
4225: -- |----------------------------< del_status_rules >-------------------------|
4226: -- ----------------------------------------------------------------------------
4230: l_proc varchar2(72) := g_package||'del_status_rules';
4231: i number;
4232: l_id number;
4233: begin
4234: hr_utility.set_location('Entering:'|| l_proc, 10);
4235: i := p_rowid_id_recs.first;
4236: loop
4237: exit when not p_rowid_id_recs.exists(i);
4238: --
4247: end if;
4248: --
4249: i := p_rowid_id_recs.next(i);
4250: end loop;
4251: hr_utility.set_location('Leaving:'|| l_proc, 100);
4252: end del_status_rules;
4253: -- ----------------------------------------------------------------------------
4254: -- |--------------------------< del_iterative_rules >-------------------------|
4255: -- ----------------------------------------------------------------------------
4264: l_ovn number;
4265: l_id number;
4266: --
4267: begin
4268: hr_utility.set_location('Entering:'||l_proc, 10);
4269: --
4270: i := p_id_ovn_recs.first;
4271: loop
4272: exit when not p_id_ovn_recs.exists(i);
4289: end if;
4290: --
4291: i := p_id_ovn_recs.next(i);
4292: end loop;
4293: hr_utility.set_location('Leaving:'||l_proc, 100);
4294: end del_iterative_rules;
4295: -- ----------------------------------------------------------------------------
4296: -- -------------------------< del_ele_type_usages >---------------------------|
4297: -- ----------------------------------------------------------------------------
4306: l_ovn number;
4307: l_id number;
4308: --
4309: begin
4310: hr_utility.set_location('Entering:'||l_proc, 10);
4311: --
4312: i := p_id_ovn_recs.first;
4313: loop
4314: exit when not p_id_ovn_recs.exists(i);
4331: end if;
4332: --
4333: i := p_id_ovn_recs.next(i);
4334: end loop;
4335: hr_utility.set_location('Leaving:'||l_proc, 100);
4336: end del_ele_type_usages;
4337: -- ----------------------------------------------------------------------------
4338: -- |-----------------------< del_gu_bal_exclusions >--------------------------|
4339: -- ----------------------------------------------------------------------------
4344: l_proc varchar2(72) := g_package||'del_gu_bal_exclusions';
4345: i number;
4346: --
4347: begin
4348: hr_utility.set_location('Entering:'||l_proc, 10);
4349: i := p_id_ovn_recs.first;
4350: loop
4351: exit when not p_id_ovn_recs.exists(i);
4352: --
4356: );
4357: --
4358: i := p_id_ovn_recs.next(i);
4359: end loop;
4360: hr_utility.set_location('Leaving:'||l_proc, 100);
4361: end del_gu_bal_exclusions;
4362: -- ----------------------------------------------------------------------------
4363: -- |-------------------------< del_bal_attributes >---------------------------|
4364: -- ----------------------------------------------------------------------------
4369: l_proc varchar2(72) := g_package||'del_bal_attributes';
4370: i number;
4371: --
4372: begin
4373: hr_utility.set_location('Entering:'||l_proc, 10);
4374: i := p_id_ovn_recs.first;
4375: loop
4376: exit when not p_id_ovn_recs.exists(i);
4377: --
4380: );
4381: --
4382: i := p_id_ovn_recs.next(i);
4383: end loop;
4384: hr_utility.set_location('Leaving:'||l_proc, 100);
4385: end del_bal_attributes;
4386: -- ----------------------------------------------------------------------------
4387: -- |------------------------------< del_formulas >----------------------------|
4388: -- ----------------------------------------------------------------------------
4393: i number;
4394: l_formula_id number;
4395: --
4396: begin
4397: hr_utility.set_location('Entering:'|| l_proc, 10);
4398: i := p_rowid_id_recs.first;
4399: loop
4400: exit when not p_rowid_id_recs.exists(i);
4401: --
4414: end if;
4415: --
4416: i := p_rowid_id_recs.next(i);
4417: end loop;
4418: hr_utility.set_location('Leaving:'|| l_proc, 100);
4419: end del_formulas;
4420: -- ----------------------------------------------------------------------------
4421: -- |----------------------------< del_formula_info >--------------------------|
4422: -- ----------------------------------------------------------------------------
4427: i number;
4428: l_formula_id number;
4429: --
4430: begin
4431: hr_utility.set_location('Entering:'|| l_proc, 10);
4432: i := p_rowid_id_recs.first;
4433: loop
4434: exit when not p_rowid_id_recs.exists(i);
4435: --
4442: delete from ff_fdi_usages_f where formula_id = l_formula_id;
4443: --
4444: i := p_rowid_id_recs.next(i);
4445: end loop;
4446: hr_utility.set_location('Leaving:'|| l_proc, 100);
4447: end del_formula_info;
4448: -- ----------------------------------------------------------------------------
4449: -- |-------------------------< drop_formula_packages >------------------------|
4450: -- ----------------------------------------------------------------------------
4468: where object_name like p_package_name
4469: and object_type = p_object_type
4470: ;
4471: begin
4472: hr_utility.set_location('Entering:'|| l_proc, 10);
4473: --
4474: -- Delete records with duplicate id values.
4475: --
4476: i := p_rowid_id_recs.first;
4520: end loop;
4521: --
4522: i := p_rowid_id_recs.next(i);
4523: end loop;
4524: hr_utility.set_location('Leaving:'|| l_proc, 100);
4525: exception
4526: when others then
4527: hr_utility.set_location('Leaving:'|| l_proc, 110);
4528: if csr_package_names%isopen then
4523: end loop;
4524: hr_utility.set_location('Leaving:'|| l_proc, 100);
4525: exception
4526: when others then
4527: hr_utility.set_location('Leaving:'|| l_proc, 110);
4528: if csr_package_names%isopen then
4529: close csr_package_names;
4530: end if;
4531: end drop_formula_packages;
4573: l_sgb_id_ovn_recs t_id_ovn_recs;
4574: l_sba_id_ovn_recs t_id_ovn_recs;
4575: l_null_id_ovn_recs t_id_ovn_recs;
4576: begin
4577: hr_utility.set_location('Entering:'|| l_proc, 10);
4578: --
4579: -- Create the table of generated objects.
4580: --
4581: create_generation_tables
4598: );
4599: --
4600: -- Lock the generated objects in lock ladder order.
4601: --
4602: hr_utility.set_location(l_proc, 20);
4603: core_objects_lock
4604: (p_core_object_type => g_sf_lookup_type
4605: ,p_core_objects => l_sf_core_objects
4606: ,p_rowid_id_recs => l_sf_rowid_id_recs
4731: );
4732: del_balance_types
4733: (p_rowid_id_recs => l_sbt_rowid_id_recs
4734: );
4735: hr_utility.set_location(l_proc, 30);
4736: if p_drop_formula_packages then
4737: drop_formula_packages
4738: (p_rowid_id_recs => l_sf_rowid_id_recs
4739: );
4737: drop_formula_packages
4738: (p_rowid_id_recs => l_sf_rowid_id_recs
4739: );
4740: end if;
4741: hr_utility.set_location('Leaving:' || l_proc, 100);
4742: end zap_core_objects;
4743: --
4744: end pay_element_template_gen;