[Home] [Help]
1: PACKAGE BODY PAY_DEFINED_BALANCES_PKG as
2: /* $Header: pydfb01t.pkb 120.1 2006/03/10 02:30:52 alogue noship $ */
3: --
4: -----------------------------------------------------------------------------
5: -- Name --
421: l_bal_cat_id pay_balance_categories_f.balance_category_id%type;
422: l_eff_date date;
423: --
424: BEGIN
425: hr_utility.set_location('Entering pay_defined_balances_pkg.insert_row', 5);
426: --
427: -- Make sure that defined balance is unique.
428: chk_defined_balance
429: (X_Rowid,
430: X_Business_Group_Id,
431: X_Legislation_Code,
432: X_Balance_Type_Id,
433: X_Balance_Dimension_Id);
434: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 10);
435: --
436: if (X_Defined_Balance_Id is NULL) then
437: OPEN C2;
438: FETCH C2 INTO X_Defined_Balance_Id;
443: FETCH C3 INTO l_exists;
444: if ( (l_exists = 0 and X_Grossup_Allowed_Flag = 'Y')
445: or (X_Grossup_Allowed_Flag = 'N') ) then
446: --
447: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 15);
448: --
449: -- check whether save_run_balance can be automatically derived
450: -- from the category and dimension flags.
451: --
452: if x_balance_category_id is null then -- could be called from serverside
453: --
454: -- get bal cat id for the balance type, if there is one
455: --
456: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 20);
457: --
458: open get_bal_cat_id(x_balance_type_id);
459: fetch get_bal_cat_id into l_bal_cat_id;
460: if get_bal_cat_id%notfound then
466: --
467: -- row returned, so if the effective date is null, default it.
468: --
469: if x_effective_date is null then
470: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 25);
471: open get_eff_date;
472: fetch get_eff_date into l_eff_date;
473: if get_eff_date%notfound then
474: l_eff_date := trunc(sysdate);
473: if get_eff_date%notfound then
474: l_eff_date := trunc(sysdate);
475: end if;
476: else
477: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 30);
478: l_eff_date := x_effective_date;
479: end if;
480: end if;
481: else -- x_balance_category is not null
478: l_eff_date := x_effective_date;
479: end if;
480: end if;
481: else -- x_balance_category is not null
482: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 35);
483: l_bal_cat_id := x_balance_category_id;
484: --
485: if x_effective_date is null then
486: hr_utility.set_message(801, 'PAY_34262_CAT_EFF_DATE_NULL');
485: if x_effective_date is null then
486: hr_utility.set_message(801, 'PAY_34262_CAT_EFF_DATE_NULL');
487: hr_utility.raise_error;
488: else
489: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 40);
490: l_eff_date := x_effective_date;
491: end if;
492: end if;
493: --
494: l_save_run_bal_flag := set_save_run_bals_flag(l_bal_cat_id
495: ,l_eff_date
496: ,x_balance_dimension_id);
497: --
498: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 45);
499: --
500: INSERT INTO pay_defined_balances
501: (defined_balance_id,
502: business_group_id,
524: if (C%NOTFOUND) then
525: CLOSE C;
526: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
527: hr_utility.set_message_token('PROCEDURE',
528: 'pay_defined_balances_pkg.insert_row');
529: hr_utility.set_message_token('STEP','1');
530: hr_utility.raise_error;
531: end if;
532: CLOSE C;
542: --
543: -- if the variable l_bal_cat_id is null, then no need to try and insert
544: -- attribute_defaults
545: --
546: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 50);
547: if l_bal_cat_id is not null then
548: --
549: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 55);
550: insert_default_attrib_wrapper
545: --
546: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 50);
547: if l_bal_cat_id is not null then
548: --
549: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 55);
550: insert_default_attrib_wrapper
551: (p_balance_dimension_id => x_balance_dimension_id
552: ,p_balance_category_id => l_bal_cat_id
553: ,p_def_bal_bg_id => x_business_group_id
554: ,p_def_bal_leg_code => x_legislation_code
555: ,p_defined_balance_id => x_defined_balance_id
556: ,p_effective_date => l_eff_date
557: );
558: hr_utility.set_location('pay_defined_balances_pkg.insert_row', 60);
559: end if;
560: end if;
561: else
562: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
560: end if;
561: else
562: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
563: hr_utility.set_message_token('PROCEDURE',
564: 'pay_defined_balances_pkg.insert_row');
565: hr_utility.set_message_token('STEP','1');
566: hr_utility.raise_error;
567: end if;
568: END Insert_Row;
602: if (C%NOTFOUND) then
603: CLOSE C;
604: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
605: hr_utility.set_message_token('PROCEDURE',
606: 'pay_defined_balances_pkg.lock_row');
607: hr_utility.set_message_token('STEP','1');
608: hr_utility.raise_error;
609: end if;
610: CLOSE C;
696: --
697: if (SQL%NOTFOUND) then
698: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
699: hr_utility.set_message_token('PROCEDURE',
700: 'pay_defined_balances_pkg.update_row');
701: hr_utility.set_message_token('STEP','1');
702: hr_utility.raise_error;
703: end if;
704: --
704: --
705: else
706: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
707: hr_utility.set_message_token('PROCEDURE',
708: 'pay_defined_balances_pkg.update_row');
709: hr_utility.set_message_token('STEP','1');
710: hr_utility.raise_error;
711: end if;
712: --
741: --
742: if (SQL%NOTFOUND) then
743: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
744: hr_utility.set_message_token('PROCEDURE',
745: 'pay_defined_balances_pkg.delete_row');
746: hr_utility.set_message_token('STEP','1');
747: hr_utility.raise_error;
748: end if;
749: --
806: hr_utility.set_location('Leaving: pay_defined_balance_pkg.verify_save_run_bal_flag_upd', 30);
807: --
808: END verify_save_run_bal_flag_upd;
809: -----------------------------------------------------------------------------
810: END PAY_DEFINED_BALANCES_PKG;