[Home] [Help]
1: PACKAGE BODY pay_ca_user_init_earn AS
2: /* $Header: pycauiet.pkb 120.1 2006/04/13 17:29:54 ahanda noship $ */
3: /*
4: ******************************************************************
5: * *
16: * 500 Oracle Parkway, Redwood City, CA, 94065. *
17: * *
18: ******************************************************************
19:
20: Name : pay_ca_user_init_earn
21: Filename : pycauiet.pkb
22: Change List
23: -----------
24: Date Name Vers Bug No Description
343: l_template_name VARCHAR2(80);
344:
345: BEGIN
346: --
347: hr_utility.set_location('pay_ca_user_init_earn.get_template_id',1);
348: --
349: if p_calc_rule_code = 'FLT' then
350: l_template_name := 'Flat Amount Earning';
351: --l_template_name := 'Test Flat Amount Earnings';
356: l_template_name := 'Percent of Earnings Earning';
357: elsif p_calc_rule_code = 'NTG FLT' then
358: l_template_name := 'Net To Gross Earning';
359: else
360: hr_utility.set_location('pay_ca_user_init_earn.get_template_id',2);
361: hr_utility.set_message(801,'HR_XXXXX_INVALID_CALC_RULE_EARN');
362: hr_utility.raise_error;
363: end if;
364: --
361: hr_utility.set_message(801,'HR_XXXXX_INVALID_CALC_RULE_EARN');
362: hr_utility.raise_error;
363: end if;
364: --
365: hr_utility.set_location('pay_ca_user_init_earn.get_template_id',3);
366: hr_utility.trace('Template Name is :'||l_template_name||'****'||
367: 'Legislation is :'||p_legislation_code);
368: --
369: select template_id
373: and legislation_code = p_legislation_code
374: and business_group_id is NULL
375: and template_type = 'T';
376: --
377: hr_utility.set_location('pay_ca_user_init_earn.get_template_id',4);
378: --
379: RETURN l_template_id;
380: --
381: END get_template_id;
390: l_installed VARCHAR2(1) := 'N';
391:
392: BEGIN
393: --
394: hr_utility.set_location('pay_ca_user_init_earn.chk_ca_pay_installed',1);
395: --
396: BEGIN
397: select 'Y'
398: into l_installed
404: l_installed := 'N';
405:
406: END;
407: --
408: hr_utility.set_location('pay_ca_user_init_earn.chk_ca_pay_installed',2);
409: --
410: RETURN (l_installed);
411: --
412: END chk_ca_pay_installed;
422: --
423: --hr_utility.trace_on('y','ORACLE');
424:
425: --
426: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',1);
427: --
428: -- Set session date
429: pay_db_pay_setup.set_session_date(nvl(p_ele_eff_start_date, sysdate));
430: --
430: --
431: g_eff_start_date := NVL(p_ele_eff_start_date, sysdate);
432: g_eff_end_date := NVL(p_ele_eff_end_date, c_end_of_time);
433: --
434: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',2);
435: --
436: ---------------------------- Check Element Name ---------------------------
437: --
438: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',25);
434: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',2);
435: --
436: ---------------------------- Check Element Name ---------------------------
437: --
438: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',25);
439: --
440: BEGIN
441: select 'Y'
442: into l_reserved
450:
451: END;
452: --
453: if l_reserved = 'Y' then
454: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',26);
455: hr_utility.set_message(801,'HR_7564_ALL_RES_WORDS');
456: hr_utility.raise_error;
457: end if;
458: --
457: end if;
458: --
459: ---------------------------- Get Source Template ID -----------------------
460: --
461: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',3);
462: --
463: l_source_template_id := get_template_id(
464: p_legislation_code => g_template_leg_code,
465: p_calc_rule_code => p_ele_calc_rule_code);
465: p_calc_rule_code => p_ele_calc_rule_code);
466: --
467: --------------------- Set Separate Check Creation -------------------------
468: --
469: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',4);
470: --
471: if p_ele_classification = 'Supplemental Earnings' then
472: l_sep_check_create := 'Y';
473: l_skip_formula := 'SUPP_EARNINGS_SKIP';
477: end if;
478: --
479: ---------------------------- Create User Structure ------------------------
480: --
481: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',5);
482: --
483: -- The Configuration Flex segments are as follows:
484: -- Config 1 - exclusion rule - create Separate Check input value if 'Y'
485: -- Config 2 - input value default - update default value for Sep Check IV
513: ,p_object_version_number => l_object_version_number);
514: --
515: ---------------------- Get Element Type ID of new Template -----------------
516: --
517: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',6);
518: --
519: select element_type_id, object_version_number
520: into l_element_type_id, l_ele_obj_ver_number
521: from pay_shadow_element_types
542: end if;
543: --
544: ---------------------------- Update Shadow Structure ----------------------
545: --
546: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',7);
547: --
548: SELECT
549: DECODE(p_ele_classification,'Earnings','DE',
550: 'Supplemental Earnings','DE','Taxable Benefits','DE','')
595: --
596: -- Update user-specified Classification on Special Features Element.
597: -- Only for Non NTG elements.
598: --
599: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',8);
600: --
601: if p_ele_calc_rule_code <> 'NTG FLT' then
602: pay_shadow_element_api.update_shadow_element
603: (p_validate => false
614: --
615: -- Update user-specified Classification Special Inputs if it exists.
616: -- Only for Non NTG elements.
617: --
618: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',9);
619: --
620: if (p_ele_processing_type = 'R') and (p_ele_calc_rule_code <> 'NTG FLT') then
621: pay_shadow_element_api.update_shadow_element
622: (p_validate => false
628: end if;
629: --
630: ---------------------------- Generate Core Objects ------------------------
631: --
632: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',10);
633: --
634: if chk_ca_pay_installed = 'Y' then
635: l_hr_only := FALSE;
636: else
645: ,p_hr_only => l_hr_only
646: ,p_hr_to_payroll => false
647: ,p_template_id => l_template_id);
648: --
649: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',11);
650: --
651: if l_hr_only = FALSE then
652: pay_element_template_api.generate_part2
653: (p_validate => false
653: (p_validate => false
654: ,p_effective_date => p_ele_eff_start_date
655: ,p_template_id => l_template_id);
656: --
657: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',12);
658: --
659: end if;
660: --
661: -------------------- Get Element Type ID of Base Element ------------------
659: end if;
660: --
661: -------------------- Get Element Type ID of Base Element ------------------
662: --
663: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',13);
664: --
665: select element_type_id
666: into l_base_element_type_id
667: from pay_element_types_f
808: end if;
809: --
810: ------------------ Get Balance Type IDs to update Flex Info ---------------
811: --
812: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',14);
813: --
814: BEGIN
815: select ptco.core_object_id
816: into l_pri_bal_id
836: NULL;
837: END IF;
838: END;
839: --
840: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',15);
841: --
842: BEGIN
843: select ptco.core_object_id
844: into l_hrs_bal_id
848: and psbt.balance_name = p_ele_name||' Hours'
849: and ptco.template_id = psbt.template_id
850: and ptco.shadow_object_id = psbt.balance_type_id;
851: --
852: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',16);
853: --
854: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
855: END;
856: --
853: --
854: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
855: END;
856: --
857: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',17);
858: --
859: if (p_sep_check_option = 'N' and p_ele_calc_rule_code <> 'NTG FLT') then
860: update pay_element_types_f
861: set element_information10 = l_pri_bal_id,
1090: --
1091:
1092: ------------------ Conclude Create_User_Init_Earning Main -----------------
1093: --
1094: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_earning',18);
1095: --
1096: RETURN l_base_element_type_id;
1097: --
1098: END create_user_init_earning;
1122: l_del_val_end := nvl(p_del_val_end_date, c_end_of_time);
1123: l_del_val_start := nvl(p_del_val_start_date, sysdate);
1124: l_del_sess_date := nvl(p_del_sess_date, sysdate);
1125: --
1126: hr_utility.set_location('pay_ca_user_init_earn.delete_user_init_earning',1);
1127: --
1128: select template_id
1129: into l_template_id
1130: from pay_element_templates
1131: where base_name = p_ele_name
1132: and business_group_id = p_business_group_id
1133: and template_type = 'U';
1134: --
1135: hr_utility.set_location('pay_ca_user_init_earn.delete_user_init_earning',2);
1136: --
1137: begin
1138: delete from pay_element_type_usages_f
1139: where element_type_id in ( select element_type_id
1142: element_name =
1143: p_ele_name ||' Special Inputs' )
1144: and business_group_id = p_business_group_id );
1145: --
1146: hr_utility.set_location('pay_ca_user_init_earn.delete_user_init_earning',3);
1147: --
1148: exception
1149: when others then
1150: null;
1154: (p_validate => false
1155: ,p_drop_formula_packages => true
1156: ,p_template_id => l_template_id);
1157: --
1158: hr_utility.set_location('pay_ca_user_init_earn.delete_user_init_earning',4);
1159: --
1160: END delete_user_init_earning;
1161: ------------------------------------------------------------------------
1162: -- PROCEDURE UPDATE_JD_LEVEL_ON_BALANCE
1228: l_seeded_ele_type_id NUMBER;
1229: l_nextval NUMBER;
1230: l_seeded_input_val_id NUMBER;
1231: l_status_pro_rule_id NUMBER;
1232: l_proc VARCHAR2(50) := 'pay_ca_user_init_earn.update_ntg_element';
1233:
1234: BEGIN
1235: --
1236: OPEN c_iter_formula_id;
1388: -1,
1389: sysdate);
1390: END update_ntg_element;
1391:
1392: END pay_ca_user_init_earn;