[Home] [Help]
1: PACKAGE BODY pay_ca_user_init_dedn AS
2: /* $Header: pycauidt.pkb 120.0.12010000.3 2009/05/18 11:44:52 sapalani ship $ */
3: /*
4: */
5: /*
18: * 500 Oracle Parkway, Redwood City, CA, 94065. *
19: * *
20: ******************************************************************
21:
22: Name : pay_ca_user_init_dedn
23: Filename : pycauidt.pkb
24: Change List
25: -----------
26: Date Name Vers Bug No Description
232: l_template_name VARCHAR2(80);
233:
234: BEGIN
235: --
236: hr_utility.set_location('pay_ca_user_init_dedn.get_template_id',1);
237: --
238: if p_calc_rule_code = 'FLT' then
239: l_template_name := 'Flat Amount Deduction';
240: --l_template_name := 'Test Flat Amount Deductions';
240: --l_template_name := 'Test Flat Amount Deductions';
241: elsif p_calc_rule_code = 'PCT' then
242: l_template_name := 'Percent of Earnings Deduction';
243: else
244: hr_utility.set_location('pay_ca_user_init_dedn.get_template_id',2);
245: hr_utility.set_message(801,'HR_XXXXX_INVALID_CALC_RULE_DEDN');
246: hr_utility.raise_error;
247: end if;
248: --
245: hr_utility.set_message(801,'HR_XXXXX_INVALID_CALC_RULE_DEDN');
246: hr_utility.raise_error;
247: end if;
248: --
249: hr_utility.set_location('pay_ca_user_init_dedn.get_template_id',3);
250: hr_utility.trace('Template Name is :'||l_template_name||'****'||
251: 'Legislation is :'||p_legislation_code);
252: --
253: select template_id
257: and legislation_code = p_legislation_code
258: and business_group_id is NULL
259: and template_type = 'T';
260: --
261: hr_utility.set_location('pay_ca_user_init_dedn.get_template_id',4);
262: --
263: RETURN l_template_id;
264: --
265: END get_template_id;
274: l_installed VARCHAR2(1) := 'N';
275:
276: BEGIN
277: --
278: hr_utility.set_location('pay_ca_user_init_dedn.chk_ca_pay_installed',1);
279: --
280: BEGIN
281: select 'Y'
282: into l_installed
288: l_installed := 'N';
289:
290: END;
291: --
292: hr_utility.set_location('pay_ca_user_init_dedn.chk_ca_pay_installed',2);
293: --
294: RETURN (l_installed);
295: --
296: END chk_ca_pay_installed;
304: BEGIN
305: --
306: -- hr_utility.trace_on('Y', 'RANJANA');
307: --
308: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',1);
309: --
310: -- Set session date
311: pay_db_pay_setup.set_session_date(nvl(p_ele_eff_start_date, sysdate));
312: --
312: --
313: g_eff_start_date := NVL(p_ele_eff_start_date, sysdate);
314: g_eff_end_date := NVL(p_ele_eff_end_date, c_end_of_time);
315: --
316: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',2);
317: --
318: ---------------------------- Check Element Name ---------------------------
319: --
320: hr_utility.set_location('pay_ca_user_init_earn.create_user_init_deduction',25);
339: end if;
340: --
341: ---------------------------- Get Source Template ID -----------------------
342: --
343: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',3);
344: --
345: l_source_template_id := get_template_id(
346: p_legislation_code => g_template_leg_code,
347: p_calc_rule_code => p_ele_calc_rule_code);
347: p_calc_rule_code => p_ele_calc_rule_code);
348: --
349: ------------------------ Set Arrearage Creation ---------------------------
350: --
351: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',4);
352: --
353: if p_ele_insuff_funds_code in ('A', 'APD') then
354: l_arrearage_create := 'Y';
355: else
357: end if;
358: --
359: ------------------------ Set Total Owed Creation --------------------------
360: --
361: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',5);
362: --
363: if UPPER(p_ele_stop_rule) = 'TOTAL REACHED' then
364: l_total_owed_create := 'Y';
365: else
375: end if;
376: --
377: ---------------------------- Create User Structure ------------------------
378: --
379: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',6);
380: --
381: -- The Configuration Flex segments are as follows:
382: -- Config 1 - exclusion rule - create Arrearage related structures if 'Y'
383: -- Config 2 - exclusion rule - create Total Owed related structures if 'Y'
399: ,p_object_version_number => l_object_version_number);
400: --
401: ---------------------- Get Element Type ID of new Template-----------------
402: --
403: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',7);
404: --
405: select element_type_id, object_version_number
406: into l_element_type_id, l_ele_obj_ver_number
407: from pay_shadow_element_types
423: end if;
424: --
425: ---------------------------- Update Shadow Structure ----------------------
426: --
427: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',8);
428: --
429: if p_ben_class_id IS NOT NULL then
430: select benefit_classification_name
431: into l_ben_class_name
461: --
462: --
463: -- Update user-specified Classification on Special Features Element.
464: --
465: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',9);
466: --
467: pay_shadow_element_api.update_shadow_element
468: (p_validate => false
469: ,p_effective_date => p_ele_eff_start_date
474: --
475: --
476: -- Update user-specified Classification Special Inputs if it exists.
477: --
478: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',10);
479: --
480: if p_ele_processing_type = 'R' then
481: pay_shadow_element_api.update_shadow_element
482: (p_validate => false
488: end if;
489: --
490: ---------------------------- Generate Core Objects ------------------------
491: --
492: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',11);
493: --
494: if chk_ca_pay_installed = 'Y' then
495: l_hr_only := FALSE;
496: else
505: ,p_hr_only => l_hr_only
506: ,p_hr_to_payroll => false
507: ,p_template_id => l_template_id);
508: --
509: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',12);
510: --
511: if l_hr_only = FALSE then
512: pay_element_template_api.generate_part2
513: (p_validate => false
516: end if;
517: --
518: -------------------- Get Element Type ID of Base Element ------------------
519: --
520: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',13);
521: --
522: select element_type_id
523: into l_base_element_type_id
524: from pay_element_types_f
526: and business_group_id + 0 = p_bg_id;
527: --
528: ------------------ Get Balance Type IDs to update Flex Info ---------------
529: --
530: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',14);
531: --
532: select ptco.core_object_id
533: into l_pri_bal_id
534: from pay_shadow_balance_types psbt,
537: and psbt.balance_name = p_ele_name
538: and ptco.template_id = psbt.template_id
539: and ptco.shadow_object_id = psbt.balance_type_id;
540: --
541: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',15);
542: --
543: if l_arrearage_create = 'Y' then
544: select ptco.core_object_id
545: into l_arr_bal_id
563: l_not_taken_bal_id := '';
564: l_arr_bal_id := '';
565: end if;
566: --
567: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',16);
568: --
569: if l_total_owed_create = 'Y' then
570: select ptco.core_object_id
571: into l_accr_bal_id
578: else
579: l_accr_bal_id := '';
580: end if;
581: --
582: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',17);
583: --
584: update pay_element_types_f
585: set element_information10 = l_pri_bal_id,
586: element_information11 = l_accr_bal_id,
647: pay_ca_user_init_earn.update_jd_level_on_balance(l_template_id);
648: --
649: ------------------ Conclude Create_User_Init_Deduction Main -----------------
650: --
651: hr_utility.set_location('pay_ca_user_init_dedn.create_user_init_deduction',18);
652: --
653: RETURN l_base_element_type_id;
654: --
655: END create_user_init_deduction;
1263: l_del_val_end := nvl(p_del_val_end_date, c_end_of_time);
1264: l_del_val_start := nvl(p_del_val_start_date, sysdate);
1265: l_del_sess_date := nvl(p_del_sess_date, sysdate);
1266: --
1267: hr_utility.set_location('pay_ca_user_init_dedn.delete_user_init_deduction',1);
1268: --
1269: select template_id
1270: into l_template_id
1271: from pay_element_templates
1272: where base_name = p_ele_name
1273: and business_group_id = p_business_group_id
1274: and template_type = 'U';
1275: --
1276: hr_utility.set_location('pay_ca_user_init_dedn.delete_user_init_deduction',2);
1277: --
1278: begin
1279: delete from pay_element_type_usages_f
1280: where element_type_id in ( select element_type_id
1281: from pay_element_types_f
1282: where element_name = p_ele_name
1283: and business_group_id = p_business_group_id );
1284: --
1285: hr_utility.set_location('pay_ca_user_init_dedn.delete_user_init_deduction',3);
1286: --
1287: exception
1288: when others then
1289: null;
1292: (p_validate => false
1293: ,p_drop_formula_packages => true
1294: ,p_template_id => l_template_id);
1295: --
1296: hr_utility.set_location('pay_ca_user_init_dedn.delete_user_init_deduction',4);
1297: --
1298: END delete_user_init_deduction;
1299: --
1300: ------------------------- Deletion procedures -----------------------------
1345: from pay_element_types_f
1346: where element_name = p_ele_name
1347: and business_group_id = p_business_group_id );
1348: --
1349: hr_utility.set_location('pay_ca_user_init_dedn.delete_user_init_deduction',3
1350: );
1351: --
1352: exception
1353: when others then
1362: hr_utility.set_location('pay_ca_user_init_garn.delete_user_init_garnishment',3);
1363: --
1364: END delete_user_init_garnishment;
1365: --
1366: END pay_ca_user_init_dedn;