250: AND business_group_id IS NULL;
251: --
252: BEGIN
253: --
254: hr_utility.set_location('Entering: '||l_proc_name, 10);
255: --
256: -- l_template_name := 'PQP OMP Template';
257: --
258: hr_utility.set_location(l_proc_name, 20);
254: hr_utility.set_location('Entering: '||l_proc_name, 10);
255: --
256: -- l_template_name := 'PQP OMP Template';
257: --
258: hr_utility.set_location(l_proc_name, 20);
259: --
260: for csr_get_temp_id_rec in
261: csr_get_temp_id( p_template_name => p_template_name
262: ,p_leg_code => p_legislation_code
263: ) loop
264: l_template_id := csr_get_temp_id_rec.template_id;
265: end loop;
266: --
267: hr_utility.set_location('Leaving: '||l_proc_name, 30);
268: --
269: RETURN l_template_id;
270: --
271: END get_template_id;
295: AND ptco.template_id = psbt.template_id
296: AND ptco.shadow_object_id = psbt.balance_type_id;
297: --
298: BEGIN
299: hr_utility.set_location('Entering: '||l_proc_name, 10);
300: --
301: if p_object_type = 'ELE' then
302: for c2_rec in c2 (p_object_name) loop
303: l_object_id := c2_rec.element_type_id; -- element id
307: l_object_id := c3_rec.core_object_id; -- balance id
308: end loop;
309: end if;
310: --
311: hr_utility.set_location('Leaving: '||l_proc_name, 20);
312: --
313: RETURN l_object_id;
314: --
315: END get_object_id;
332: --
333: BEGIN
334:
335: --
336: hr_utility.set_location ('Entering '||l_proc_name, 10);
337: --
338:
339: -- Get element type id for retro element
340: l_retro_ele_type_id := get_object_id (p_object_type => 'ELE'
341: ,p_object_name => p_retro_ele_name
342: );
343:
344:
345: hr_utility.set_location (l_proc_name, 20);
346: -- Get element type id for main element
347: l_main_ele_type_id := get_object_id (p_object_type => 'ELE'
348: ,p_object_name => p_main_ele_name
349: );
349: );
350:
351: -- Update main element with retro element info
352:
353: hr_utility.set_location(l_proc_name, 30);
354:
355: UPDATE pay_element_types_f
356: SET retro_summ_ele_id = l_retro_ele_type_id
357: WHERE element_type_id = l_main_ele_type_id;
356: SET retro_summ_ele_id = l_retro_ele_type_id
357: WHERE element_type_id = l_main_ele_type_id;
358:
359: --
360: hr_utility.set_location ('Leaving '||l_proc_name, 40);
361: --
362:
363: END update_ele_retro_info;
364: --
380:
381: --
382: BEGIN
383: --
384: hr_utility.set_location ('Entering '||l_proc_name, 10);
385: --
386:
387: OPEN csr_get_formula_id;
388: FETCH csr_get_formula_id INTO l_formula_id;
388: FETCH csr_get_formula_id INTO l_formula_id;
389: CLOSE csr_get_formula_id;
390:
391: --
392: hr_utility.set_location ('Leaving '||l_proc_name, 20);
393: --
394:
395: RETURN l_formula_id;
396:
436: BEGIN
437: --
438:
439: --
440: hr_utility.set_location ('Entering '||l_proc_name, 10);
441: --
442: OPEN csr_getinput(p_ele_name
443: ,p_ip_name);
444: LOOP
446: FETCH csr_getinput INTO csr_getinput_rec;
447: EXIT WHEN csr_getinput%NOTFOUND;
448:
449: --
450: hr_utility.set_location (l_proc_name, 20);
451: --
452:
453: OPEN csr_updinput(csr_getinput_rec.input_value_id
454: ,csr_getinput_rec.element_type_id);
457: FETCH csr_updinput INTO csr_updinput_rec;
458: EXIT WHEN csr_updinput%NOTFOUND;
459:
460: --
461: hr_utility.set_location (l_proc_name, 30);
462: --
463:
464: UPDATE pay_input_values_f
465: SET default_value = p_def_value
471: END LOOP;
472: CLOSE csr_getinput;
473:
474: --
475: hr_utility.set_location ('Leaving '||l_proc_name, 40);
476: --
477:
478: END update_ipval_defval;
479: --
497:
498: --
499: BEGIN
500: --
501: hr_utility.set_location('Entering '||l_proc_name, 10);
502: --
503: OPEN csr_get_udt_id;
504: FETCH csr_get_udt_id INTO l_user_table_id;
505: CLOSE csr_get_udt_id;
503: OPEN csr_get_udt_id;
504: FETCH csr_get_udt_id INTO l_user_table_id;
505: CLOSE csr_get_udt_id;
506:
507: hr_utility.set_location('Leaving '||l_proc_name, 20);
508:
509: RETURN l_user_table_id;
510:
511: END get_user_table_id;
538: --
539: BEGIN
540:
541: --
542: hr_utility.set_location ('Entering '||l_proc_name, 10);
543: --
544:
545: -- Create the UDT
546:
543: --
544:
545: -- Create the UDT
546:
547: hr_utility.set_location (l_proc_name, 20);
548:
549: pay_user_tables_pkg.insert_row
550: (p_rowid => l_udt_rowid
551: ,p_user_table_id => l_user_table_id
560:
561: IF p_udt_cols.count > 0 THEN
562:
563: -- Create the columns
564: hr_utility.set_location (l_proc_name, 30);
565:
566: i := p_udt_cols.FIRST;
567:
568: WHILE i IS NOT NULL
585: END IF; -- End if of user cols > 1 check ...
586:
587: IF p_udt_rows.count > 0 THEN
588:
589: hr_utility.set_location (l_proc_name, 40);
590: -- Create the rows
591:
592: i := p_udt_rows.FIRST;
593:
635:
636: END LOOP; -- End Loop for user rows...
637: END IF; -- End if of user rows if present check...
638:
639: hr_utility.set_location ('Leaving '||l_proc_name, 50);
640:
641: RETURN l_user_table_id;
642:
643: --
677:
678: --
679: BEGIN
680: --
681: hr_utility.set_location('Entering '||l_proc_name, 10);
682: --
683:
684: -- Check unique lookup type
685: OPEN csr_chk_uniq_type;
688: IF csr_chk_uniq_type%FOUND THEN
689:
690: -- Raise error
691: CLOSE csr_chk_uniq_type;
692: hr_utility.set_message(0, 'QC-Duplicate type');
693: hr_utility.raise_error;
694:
695: END IF; -- End if of unique lookup type check ...
696: CLOSE csr_chk_uniq_type;
689:
690: -- Raise error
691: CLOSE csr_chk_uniq_type;
692: hr_utility.set_message(0, 'QC-Duplicate type');
693: hr_utility.raise_error;
694:
695: END IF; -- End if of unique lookup type check ...
696: CLOSE csr_chk_uniq_type;
697:
694:
695: END IF; -- End if of unique lookup type check ...
696: CLOSE csr_chk_uniq_type;
697:
698: hr_utility.set_location(l_proc_name, 20);
699:
700: -- Check unique lookup type meaning
701: OPEN csr_chk_uniq_meaning;
702: FETCH csr_chk_uniq_meaning INTO l_exists;
704: IF csr_chk_uniq_meaning%FOUND THEN
705:
706: -- Raise error
707: CLOSE csr_chk_uniq_meaning;
708: hr_utility.set_message(0, 'QC-Duplicate Type Meaning');
709: hr_utility.raise_error;
710:
711: END IF; -- End if of unique lookup type meaning check ...
712: CLOSE csr_chk_uniq_meaning;
705:
706: -- Raise error
707: CLOSE csr_chk_uniq_meaning;
708: hr_utility.set_message(0, 'QC-Duplicate Type Meaning');
709: hr_utility.raise_error;
710:
711: END IF; -- End if of unique lookup type meaning check ...
712: CLOSE csr_chk_uniq_meaning;
713:
711: END IF; -- End if of unique lookup type meaning check ...
712: CLOSE csr_chk_uniq_meaning;
713:
714: -- Create Lookup type
715: hr_utility.set_location(l_proc_name, 30);
716:
717: fnd_lookup_types_pkg.insert_row
718: (
719: x_rowid => l_rowid
733:
734: -- Create Lookup Values
735: -- The validation for lookup values should've been taken care in the
736: -- form
737: hr_utility.set_location(l_proc_name, 40);
738: IF p_lookup_values.count > 0 THEN
739:
740: i := p_lookup_values.FIRST;
741: WHILE i IS NOT NULL
784:
785: END IF; -- End if of p_lookup_values check ...
786:
787: --
788: hr_utility.set_location('Leaving '||l_proc_name, 60);
789: --
790: END create_lookup;
791: --
792:
843:
844: --
845: BEGIN
846: --
847: hr_utility.set_location('Entering '||l_proc_name, 10);
848: --
849:
850: -- Check lookup type exists
851: OPEN csr_chk_uniq_type;
852: FETCH csr_chk_uniq_type INTO l_exists;
853:
854: IF csr_chk_uniq_type%NOTFOUND THEN
855:
856: hr_utility.set_location(l_proc_name, 20);
857:
858: -- Check unique lookup type meaning
859: OPEN csr_chk_uniq_meaning;
860: FETCH csr_chk_uniq_meaning INTO l_exists;
862: IF csr_chk_uniq_meaning%FOUND THEN
863:
864: -- Raise error
865: CLOSE csr_chk_uniq_meaning;
866: hr_utility.set_message(0, 'QC-DUPLICATE TYPE MEANING');
867: hr_utility.raise_error;
868:
869: END IF; -- End if of unique lookup type meaning check ...
870: CLOSE csr_chk_uniq_meaning;
863:
864: -- Raise error
865: CLOSE csr_chk_uniq_meaning;
866: hr_utility.set_message(0, 'QC-DUPLICATE TYPE MEANING');
867: hr_utility.raise_error;
868:
869: END IF; -- End if of unique lookup type meaning check ...
870: CLOSE csr_chk_uniq_meaning;
871:
869: END IF; -- End if of unique lookup type meaning check ...
870: CLOSE csr_chk_uniq_meaning;
871:
872: -- Create Lookup type
873: hr_utility.set_location(l_proc_name, 30);
874:
875: fnd_lookup_types_pkg.insert_row
876: (
877: x_rowid => l_rowid
891:
892: END IF; -- End if of lookup type exists check ...
893: CLOSE csr_chk_uniq_type;
894:
895: hr_utility.set_location(l_proc_name, 40);
896: IF p_lookup_values.count > 0 THEN
897:
898: i := p_lookup_values.FIRST;
899: WHILE i IS NOT NULL
898: i := p_lookup_values.FIRST;
899: WHILE i IS NOT NULL
900: LOOP
901:
902: hr_utility.set_location(l_proc_name, 50);
903: -- Check whether this lookup code already exists
904:
905: OPEN csr_chk_uniq_value (fnd_number.number_to_canonical(
906: p_lookup_values(i).abs_type_id));
907: FETCH csr_chk_uniq_value INTO l_exists;
908:
909: IF csr_chk_uniq_value%NOTFOUND THEN
910:
911: hr_utility.set_location(l_proc_name, 60);
912: -- Check whether the lookup code meaning is unique
913: OPEN csr_chk_uniq_value_meaning (p_lookup_values(i).abs_type_name);
914: FETCH csr_chk_uniq_value_meaning INTO l_exists;
915:
916: IF csr_chk_uniq_value_meaning%FOUND THEN
917:
918: -- Raise error
919: CLOSE csr_chk_uniq_value_meaning;
920: hr_utility.set_message(0, 'QC-DUPLICATE MEANING');
921: hr_utility.raise_error;
922:
923: END IF; -- End if of lookup code meaning check ...
924: CLOSE csr_chk_uniq_value_meaning;
917:
918: -- Raise error
919: CLOSE csr_chk_uniq_value_meaning;
920: hr_utility.set_message(0, 'QC-DUPLICATE MEANING');
921: hr_utility.raise_error;
922:
923: END IF; -- End if of lookup code meaning check ...
924: CLOSE csr_chk_uniq_value_meaning;
925:
922:
923: END IF; -- End if of lookup code meaning check ...
924: CLOSE csr_chk_uniq_value_meaning;
925:
926: hr_utility.set_location(l_proc_name, 70);
927:
928: fnd_lookup_values_pkg.insert_row
929: (
930: x_rowid => l_rowid
972:
973: END IF; -- End if of p_lookup_values check ...
974:
975: --
976: hr_utility.set_location('Leaving '||l_proc_name, 80);
977: --
978: END create_gap_lookup;
979: --
980: */
984: --==============================================================================
985:
986: BEGIN
987:
988: hr_utility.set_location('Entering : '||l_proc_name, 10);
989: ---------------------
990: -- Set session date
991: ---------------------
992: pay_db_pay_setup.set_session_date(nvl(p_effective_start_date, sysdate));
990: -- Set session date
991: ---------------------
992: pay_db_pay_setup.set_session_date(nvl(p_effective_start_date, sysdate));
993: --
994: hr_utility.set_location(l_proc_name, 20);
995: --
996:
997: IF (hr_utility.chk_product_install('Oracle Payroll',g_template_leg_code))
998: THEN
993: --
994: hr_utility.set_location(l_proc_name, 20);
995: --
996:
997: IF (hr_utility.chk_product_install('Oracle Payroll',g_template_leg_code))
998: THEN
999:
1000: OPEN csr_chk_primary_exists;
1001: FETCH csr_chk_primary_exists INTO l_exists;
1002:
1003: -- Check whether Primary Plan Exists when creating Secondary Plans
1004: IF p_abse_primary_yn = 'N' THEN
1005:
1006: hr_utility.set_location(l_proc_name, 25);
1007:
1008:
1009: IF csr_chk_primary_exists%NOTFOUND THEN
1010:
1009: IF csr_chk_primary_exists%NOTFOUND THEN
1010:
1011: -- Raise Error
1012: CLOSE csr_chk_primary_exists;
1013: hr_utility.set_message(8303, 'PQP_230665_OMP_PRIM_NOT_FOUND');
1014: hr_utility.raise_error;
1015:
1016: END IF; -- End if of primary element check...
1017:
1010:
1011: -- Raise Error
1012: CLOSE csr_chk_primary_exists;
1013: hr_utility.set_message(8303, 'PQP_230665_OMP_PRIM_NOT_FOUND');
1014: hr_utility.raise_error;
1015:
1016: END IF; -- End if of primary element check...
1017:
1018: l_exc_sec_days_bf := 'N' ;
1021: -- when creating Primary Scheme
1022:
1023: ELSIF p_abse_primary_yn = 'Y' THEN
1024:
1025: hr_utility.set_location(l_proc_name, 26);
1026:
1027: IF csr_chk_primary_exists%FOUND THEN
1028:
1029: -- Raise Error
1027: IF csr_chk_primary_exists%FOUND THEN
1028:
1029: -- Raise Error
1030: CLOSE csr_chk_primary_exists;
1031: hr_utility.set_message(8303, 'PQP_230667_OMP_PRIMARY_EXISTS');
1032: hr_utility.raise_error;
1033:
1034: END IF; -- End if of primary element check...
1035:
1028:
1029: -- Raise Error
1030: CLOSE csr_chk_primary_exists;
1031: hr_utility.set_message(8303, 'PQP_230667_OMP_PRIMARY_EXISTS');
1032: hr_utility.raise_error;
1033:
1034: END IF; -- End if of primary element check...
1035:
1036: END IF; -- End if of abs primary yes or no check...
1085: -- l_formula_name := '_OMP_WC_ABSENCE_PAY_INFORMATION_FORMULA';
1086: --
1087: -- END IF;
1088: --
1089: -- hr_utility.set_location(l_proc_name, 30);
1090: --
1091: -- l_formula_id := get_formula_id (p_formula_name => l_formula_name);
1092: --
1093: -- OPEN csr_get_ele_info (' OMP Absence');
1102: -- ,p_payroll_formula_id => l_formula_id
1103: -- ,p_object_version_number => l_ele_obj_ver_number
1104: -- );
1105:
1106: hr_utility.set_location(l_proc_name, 40);
1107:
1108: --
1109: -- Create user structure from the template
1110: --
1119: ,p_allow_base_name_reuse => true
1120: ,p_object_version_number => l_object_version_number
1121: );
1122: --
1123: hr_utility.set_location(l_proc_name, 50);
1124: --
1125: ---------------------------- Update Shadow Structure ----------------------
1126: --
1127:
1202: l_ele_new_name(10) := nvl(p_pri_ele_name || ' ' || p_band4_ele_base_name ||
1203: 'OMP '||l_days_hours||'Band4 Pay Retro', l_ele_name(10));
1204: l_ele_pp(10) := l_pay_ele_correction_pp;
1205:
1206: hr_utility.set_location(l_proc_name, 60);
1207:
1208: FOR i in 1..l_ele_name.count LOOP
1209:
1210: OPEN csr_get_ele_info(l_ele_name(i));
1227: END LOOP;
1228:
1229: -- Update shadow structure for Balances
1230:
1231: hr_utility.set_location(l_proc_name, 70);
1232:
1233: if p_band1_ele_base_name is not null then
1234: l_bal_name(1) := p_pri_ele_name || ' Days Paid Band1 Pay';
1235: l_bal_new_name(1) := p_pri_ele_name || ' ' || p_band1_ele_base_name ||
1281: end if; -- end if of bnd2 sub name check ...
1282:
1283: end if; -- end if of bnd1 sub name check ...
1284:
1285: hr_utility.set_location(l_proc_name, 80);
1286: /*
1287:
1288: FOR i in 1..l_bal_name.count LOOP
1289:
1305: END LOOP;
1306: vjhanak
1307: */
1308:
1309: hr_utility.set_location(l_proc_name, 90);
1310: ---------------------------------------------------------------------------
1311: ---------------------------- Generate Core Objects ------------------------
1312: ---------------------------------------------------------------------------
1313:
1317: ,p_hr_only => false
1318: ,p_hr_to_payroll => false
1319: ,p_template_id => l_template_id);
1320: --
1321: hr_utility.set_location(l_proc_name, 100);
1322: --
1323: pay_element_template_api.generate_part2
1324: (p_validate => false
1325: ,p_effective_date => p_effective_start_date
1327: --
1328:
1329: -- Update Main Elements with the Correction Element Information
1330:
1331: hr_utility.set_location(l_proc_name, 110);
1332:
1333: l_main_ele_name(1) := p_pri_ele_name || ' OMP '||l_days_hours||'Absence';
1334: l_main_eei_info19(1) := 'Absence Info';
1335: l_retro_ele_name(1) := l_ele_new_name(1);
1367:
1368: IF p_pay_src_pay_component IS NOT NULL THEN
1369:
1370: --
1371: hr_utility.set_location (l_proc_name, 120);
1372: --
1373: update_ipval_defval (p_ele_name => l_main_ele_name(1)
1374: ,p_ip_name => 'Pay Component Rate Type'
1375: ,p_def_value => p_pay_src_pay_component
1376: );
1377:
1378: END IF; -- End of of pay src comp not null check ...
1379:
1380: hr_utility.set_location(l_proc_name, 130);
1381:
1382: l_base_element_type_id := get_object_id ('ELE', l_main_ele_name(1));
1383:
1384: hr_utility.set_location(l_proc_name, 140);
1380: hr_utility.set_location(l_proc_name, 130);
1381:
1382: l_base_element_type_id := get_object_id ('ELE', l_main_ele_name(1));
1383:
1384: hr_utility.set_location(l_proc_name, 140);
1385: IF p_maternity_abse_ent_udt IS NULL THEN
1386:
1387: -- Create UDT for Maternity Absence Entitlements
1388:
1438: (p_maternity_abse_ent_udt);
1439:
1440: END IF; -- End if of p_maternity_abse_ent_udt null check ...
1441:
1442: hr_utility.set_location(l_proc_name, 150);
1443:
1444: IF p_holidays_udt IS NOT NULL THEN
1445:
1446: -- No Cal UDT
1481:
1482: END IF; -- End if of p_holidays_udt null check ...
1483:
1484: --
1485: hr_utility.set_location(l_proc_name, 160);
1486: --
1487: l_eei_information20 := p_abse_type_lookup_type;
1488:
1489: IF p_abse_type_lookup_type IS NULL THEN
1513: END IF; -- End if of abs type lookup type not null ...
1514:
1515: FOR I IN 1..l_main_ele_name.count LOOP
1516:
1517: hr_utility.set_location(l_proc_name, 170);
1518:
1519: l_eei_element_type_id := get_object_id ('ELE', l_main_ele_name(i));
1520:
1521: -- Create a row in pay_element_extra_info with all the element information
1550: ,p_object_version_number => l_ovn_eei);
1551:
1552: l_eei_element_type_id := get_object_id ('ELE', l_retro_ele_name(i));
1553:
1554: hr_utility.set_location(l_proc_name, 180);
1555: -- Create a row in pay_element_extra_info with all the element information
1556: pay_element_extra_info_api.create_element_extra_info
1557: (p_element_type_id => l_eei_element_type_id
1558: ,p_information_type => 'PQP_GB_OMP_ABSENCE_PLAN_INFO'
1609:
1610:
1611: ELSE
1612:
1613: hr_utility.set_message(8303, 'PQP_230535_GBORAPAY_NOT_FOUND');
1614: hr_utility.raise_error;
1615:
1616:
1617: END IF; -- IF chk_product_install('Oracle Payroll',g_template_leg_code))
1610:
1611: ELSE
1612:
1613: hr_utility.set_message(8303, 'PQP_230535_GBORAPAY_NOT_FOUND');
1614: hr_utility.raise_error;
1615:
1616:
1617: END IF; -- IF chk_product_install('Oracle Payroll',g_template_leg_code))
1618:
1615:
1616:
1617: END IF; -- IF chk_product_install('Oracle Payroll',g_template_leg_code))
1618:
1619: hr_utility.set_location('Leaving :'||l_proc_name, 190);
1620:
1621: RETURN l_base_element_type_id;
1622:
1623: --
1801: --
1802: BEGIN
1803:
1804: --
1805: hr_utility.set_location('Entering '||l_proc_name, 10);
1806:
1807: -- get the template base names
1808: OPEN csr_template_names ;
1809: LOOP
1819: EXIT WHEN csr_get_lookup_type%NOTFOUND;
1820:
1821: -- Get the lookup code for this lookup type
1822:
1823: hr_utility.set_location(l_proc_name, 20);
1824:
1825: OPEN csr_get_lookup_code(l_lookup_type);
1826: LOOP
1827:
1850:
1851:
1852: p_lookup_collection := l_lookup_collection;
1853:
1854: hr_utility.set_location('Leaving '||l_proc_name, 30);
1855:
1856: -- Added by tmehra for nocopy changes Feb'03
1857:
1858: EXCEPTION
1856: -- Added by tmehra for nocopy changes Feb'03
1857:
1858: EXCEPTION
1859: WHEN OTHERS THEN
1860: hr_utility.set_location('Entering excep:'||l_proc_name, 35);
1861: p_lookup_collection.delete;
1862: raise;
1863:
1864:
1898: l_lookup_code fnd_lookup_values_vl.lookup_code%TYPE;
1899:
1900: BEGIN
1901: --
1902: hr_utility.set_location ('Entering '||l_proc_name, 10);
1903: --
1904:
1905: hr_utility.set_location('Security Group' || to_char(p_security_group_id),
1906: 15);
1901: --
1902: hr_utility.set_location ('Entering '||l_proc_name, 10);
1903: --
1904:
1905: hr_utility.set_location('Security Group' || to_char(p_security_group_id),
1906: 15);
1907: hr_utility.set_location('Lookup Type' || p_lookup_type, 16);
1908:
1909: OPEN csr_get_lkt_info;
1903: --
1904:
1905: hr_utility.set_location('Security Group' || to_char(p_security_group_id),
1906: 15);
1907: hr_utility.set_location('Lookup Type' || p_lookup_type, 16);
1908:
1909: OPEN csr_get_lkt_info;
1910: FETCH csr_get_lkt_info into l_exists;
1911:
1911:
1912: IF csr_get_lkt_info%FOUND THEN
1913:
1914: -- Get Lookup Value Info
1915: hr_utility.set_location(l_proc_name, 20);
1916:
1917: OPEN csr_get_lkv_info;
1918: LOOP
1919: FETCH csr_get_lkv_info INTO l_lookup_code;
1921:
1922: -- Check whether this lookup code has to be deleted
1923: -- from PQP_GAP_ABSENCE_TYPES_LIST lookup type
1924:
1925: hr_utility.set_location (l_proc_name, 25);
1926:
1927: IF NOT p_lookup_collection.EXISTS(fnd_number.canonical_to_number(
1928: l_lookup_code)) THEN
1929: fnd_lookup_values_pkg.delete_row
1935:
1936: END IF; -- End if of absence type exists in this collection check...
1937:
1938: -- Delete the lookup code
1939: hr_utility.set_location (l_proc_name, 30);
1940:
1941: fnd_lookup_values_pkg.delete_row
1942: (x_lookup_type => p_lookup_type
1943: ,x_security_group_id => p_security_group_id
1947: END LOOP;
1948: CLOSE csr_get_lkv_info;
1949:
1950: -- Delete the lookup type
1951: hr_utility.set_location(l_proc_name, 40);
1952:
1953: fnd_lookup_types_pkg.delete_row
1954: (x_lookup_type => p_lookup_type
1955: ,x_security_group_id => p_security_group_id
1959: END IF; -- End if of row found check ...
1960: CLOSE csr_get_lkt_info;
1961:
1962: --
1963: hr_utility.set_location('Leaving '||l_proc_name, 50);
1964: --
1965:
1966: END delete_lookup;
1967: --
1998: --
1999: BEGIN
2000:
2001: --
2002: hr_utility.set_location ('Entering '||l_proc_name, 10);
2003: --
2004:
2005: -- Get user_table_id from pay_user_tables
2006: OPEN csr_get_usr_table_id;
2008:
2009: IF csr_get_usr_table_id%FOUND THEN
2010:
2011: -- Get user_column_id from pay_user_columns
2012: hr_utility.set_location (l_proc_name, 20);
2013:
2014: OPEN csr_get_usr_col_id;
2015: LOOP
2016: FETCH csr_get_usr_col_id INTO l_usr_col_id;
2016: FETCH csr_get_usr_col_id INTO l_usr_col_id;
2017: EXIT WHEN csr_get_usr_col_id%NOTFOUND;
2018:
2019: -- Delete pay_user_column_instances_f for this column_id
2020: hr_utility.set_location (l_proc_name, 30);
2021:
2022: DELETE pay_user_column_instances_f
2023: WHERE user_column_id = l_usr_col_id;
2024:
2025: END LOOP;
2026: CLOSE csr_get_usr_col_id;
2027:
2028: -- Delete pay_user_columns for this table_id
2029: hr_utility.set_location (l_proc_name, 40);
2030:
2031: DELETE pay_user_columns
2032: WHERE user_table_id = p_udt_id;
2033:
2036: FETCH csr_get_usr_row_id INTO l_usr_row_id;
2037: EXIT WHEN csr_get_usr_row_id%NOTFOUND;
2038:
2039: -- Delete pay_user_rows_f for this table id
2040: hr_utility.set_location (l_proc_name, 50);
2041:
2042: pay_user_rows_pkg.check_delete_row
2043: (p_user_row_id => l_usr_row_id
2044: ,p_validation_start_date => NULL
2052: CLOSE csr_get_usr_row_id;
2053:
2054:
2055: -- Delete pay_user_tables for this table id
2056: hr_utility.set_location (l_proc_name, 60);
2057: pay_user_tables_pkg.delete_row
2058: (p_rowid => l_rowid
2059: ,p_user_table_id => p_udt_id
2060: );
2063: END IF; -- End of of user_table found check ...
2064: CLOSE csr_get_usr_table_id;
2065:
2066: --
2067: hr_utility.set_location ('Leaving '||l_proc_name, 70);
2068: --
2069: --
2070: END delete_udt;
2071: --
2075: -- for Multi Messages
2076: hr_multi_message.enable_message_list;
2077:
2078: --
2079: hr_utility.set_location('Entering :'||l_proc_name, 10);
2080: --
2081:
2082: FOR csr_get_scheme_type_rec IN csr_get_scheme_type
2083: (
2101: ) LOOP
2102: l_template_id := csr_get_template_id_rec.template_id;
2103: END LOOP;
2104:
2105: hr_utility.set_location(l_proc_name, 20);
2106:
2107: -- Check whether this is primary element
2108:
2109: IF p_abse_primary_yn = 'Y' THEN
2108:
2109: IF p_abse_primary_yn = 'Y' THEN
2110:
2111: -- Check whether there are any secondary elements
2112: hr_utility.set_location(l_proc_name, 40);
2113:
2114: OPEN csr_chk_sec_ele (
2115: c_te_usrstr_id => l_template_id
2116: ,c_template_name => l_template_name
2120: IF csr_chk_sec_ele%FOUND THEN
2121:
2122: -- Raise error
2123: CLOSE csr_chk_sec_ele;
2124: hr_utility.set_message (8303,'PQP_230607_OSP_SEC_ELE_EXISTS');
2125: hr_utility.raise_error;
2126:
2127: END IF; -- End if of sec element check ...
2128: CLOSE csr_chk_sec_ele;
2121:
2122: -- Raise error
2123: CLOSE csr_chk_sec_ele;
2124: hr_utility.set_message (8303,'PQP_230607_OSP_SEC_ELE_EXISTS');
2125: hr_utility.raise_error;
2126:
2127: END IF; -- End if of sec element check ...
2128: CLOSE csr_chk_sec_ele;
2129:
2167: ,l_caludt_id
2168: ,l_lookup_type;
2169:
2170: -- Delete the EEI row
2171: hr_utility.set_location (l_proc_name, 50);
2172:
2173: pay_element_extra_info_api.delete_element_extra_info
2174: (p_validate => FALSE
2175: ,p_element_type_extra_info_id => l_eei_info_id
2191: IF csr_chk_eei_for_entudt%NOTFOUND THEN
2192:
2193: -- Delete UDT
2194:
2195: hr_utility.set_location(l_proc_name, 60);
2196:
2197: delete_udt (p_udt_id => l_entudt_id);
2198:
2199: END IF; -- End if of eei row found check...
2213: IF csr_chk_eei_for_caludt%NOTFOUND THEN
2214:
2215: -- Delete UDT
2216:
2217: hr_utility.set_location(l_proc_name, 70);
2218:
2219: delete_udt (p_udt_id => l_caludt_id);
2220:
2221: END IF; -- End if of eei row found check...
2236: IF csr_chk_eei_for_lkt%NOTFOUND THEN
2237:
2238: -- Get Other Lookup Information
2239:
2240: hr_utility.set_location(l_proc_name, 75);
2241:
2242: get_other_lookups (p_business_group_id => p_business_group_id
2243: ,p_template_name => l_template_name
2244: ,p_days_hours => l_days_hours
2246: );
2247:
2248: -- Delete Lookup Type
2249:
2250: hr_utility.set_location(l_proc_name, 80);
2251:
2252: delete_lookup (p_lookup_type => l_lookup_type
2253: ,p_security_group_id => p_security_group_id
2254: ,p_view_application_id => 3
2263:
2264: IF csr_get_lookup_code%NOTFOUND THEN
2265:
2266: -- Delete this lookup type
2267: hr_utility.set_location(l_proc_name, 85);
2268:
2269: fnd_lookup_types_pkg.delete_row
2270: (x_lookup_type => 'PQP_GAP_ABSENCE_TYPES_LIST'
2271: ,x_security_group_id => p_security_group_id
2279: CLOSE csr_chk_eei_for_lkt;
2280:
2281: END IF; -- End of of udt name not null check ...
2282:
2283: hr_utility.set_location(l_proc_name, 90);
2284: ---- Delete Links
2285: delete_element_links
2286: ( p_business_group_id => p_business_group_id
2287: ,p_effective_start_date => p_effective_date
2297: ,p_drop_formula_packages => true
2298: ,p_template_id => l_template_id);
2299: --
2300:
2301: hr_utility.set_location('Leaving :'||l_proc_name, 100);
2302:
2303: EXCEPTION
2304:
2305: WHEN hr_multi_message.error_message_exist THEN
2307: -- Catch the Multiple Message List exception which
2308: -- indicates API processing has been aborted because
2309: -- at least one message exists in the list.
2310: --
2311: hr_utility.set_location ( ' Leaving:'
2312: || l_proc_name, 40);
2313: WHEN OTHERS THEN
2314: --
2315: -- When Multiple Message Detection is enabled catch
2319: -- error.
2320: --
2321: IF hr_multi_message.unexpected_error_add (l_proc_name)
2322: THEN
2323: hr_utility.set_location ( ' Leaving:'
2324: || l_proc_name, 50);
2325: RAISE;
2326: END IF;
2327:
2370:
2371: -- OPEN csr_get_element_type_id ( p_element_name => l_link_ele_name(i) ) ;
2372: -- FETCH csr_get_element_type_id INTO l_element_type_id ;
2373:
2374: -- hr_utility.set_location(' Element Id:'|| l_element_type_id,10 );
2375:
2376: -- IF csr_get_element_type_id%FOUND THEN
2377: -- Call the Element Link API
2378:
2380: LOOP
2381:
2382: OPEN csr_get_element_name(p_element_type_id => i.element_type_id);
2383: FETCH csr_get_element_name INTO l_element_name ;
2384: hr_utility.set_location(' Element Name:'||l_element_name,10 );
2385: CLOSE csr_get_element_name ;
2386:
2387: IF l_element_name like '%Absence' OR l_element_name like '%Retro' THEN
2388:
2385: CLOSE csr_get_element_name ;
2386:
2387: IF l_element_name like '%Absence' OR l_element_name like '%Retro' THEN
2388:
2389: hr_utility.set_location(' Element Name:'||l_element_name,20 );
2390:
2391: pay_element_links_pkg.insert_row(
2392: p_rowid => l_rowid,
2393: p_element_link_id => l_element_link_id ,
2450:
2451: EXCEPTION
2452:
2453: WHEN OTHERS THEN
2454: hr_utility.set_location('Error:'||sqlerrm, 20);
2455:
2456: END create_element_links ;
2457:
2458:
2519: FOR i in csr_get_element_type_id(p_template_id => p_template_id )
2520: LOOP
2521: OPEN csr_get_element_name(p_element_type_id => i.element_type_id ) ;
2522: FETCH csr_get_element_name INTO l_element_name ;
2523: hr_utility.set_location(' Element Name:'||l_element_name,10 );
2524: CLOSE csr_get_element_name ;
2525:
2526: --IF csr_get_element_type_id%FOUND THEN
2527:
2532: l_rowid := l_link_details.rowid ;
2533: l_element_link_id := l_link_details.element_link_id ;
2534: l_people_group_id := l_link_details.people_group_id ;
2535:
2536: hr_utility.set_location(' Element Name:'||l_element_name,20 );
2537:
2538: IF csr_link_details%FOUND THEN
2539: -- Call Delete API
2540:
2561: END LOOP ;
2562:
2563: EXCEPTION
2564: WHEN OTHERS THEN
2565: hr_utility.set_location(' Error: '||SQLERRM, 10);
2566:
2567: END delete_element_links ;
2568:
2569:
2603: IF csr_chk_ele_in_ben%FOUND THEN
2604:
2605: -- Raise Error
2606: Close csr_chk_ele_in_ben;
2607: hr_utility.set_message (800,'PER_74880_CHILD_RECORD');
2608: hr_utility.set_message_token('TYPE','Standard Rates, Table: BEN_ACTY_BASE_RT_F');
2609: hr_utility.raise_error;
2610:
2611: END IF; -- End if of element in ben check ...
2604:
2605: -- Raise Error
2606: Close csr_chk_ele_in_ben;
2607: hr_utility.set_message (800,'PER_74880_CHILD_RECORD');
2608: hr_utility.set_message_token('TYPE','Standard Rates, Table: BEN_ACTY_BASE_RT_F');
2609: hr_utility.raise_error;
2610:
2611: END IF; -- End if of element in ben check ...
2612: CLOSE csr_chk_ele_in_ben;
2605: -- Raise Error
2606: Close csr_chk_ele_in_ben;
2607: hr_utility.set_message (800,'PER_74880_CHILD_RECORD');
2608: hr_utility.set_message_token('TYPE','Standard Rates, Table: BEN_ACTY_BASE_RT_F');
2609: hr_utility.raise_error;
2610:
2611: END IF; -- End if of element in ben check ...
2612: CLOSE csr_chk_ele_in_ben;
2613: