[Home] [Help]
219: -- better debugging into HR_STU_EXCEPTIONS
220: -- 115.44 divicker 14-Jun-2001 Bug fix 1803867
221: -- 115.45 mreid 02-Jul-2001 Fixed monetary unit app ownership
222: -- 115.46 divicker 07-Jul-2001 Fix to maintain_history PK violation
223: -- 115.47 divicker 11-Jul-2001 Fix to add distinct to hr_s_defined_balances
224: -- 115.48 divicker 19-Jul-2001 Fix to hr_s_defined_balances again so
225: -- that we don't update the defined_bal_id
226: -- by the seq for all values of the orig
227: -- def_bal_id but only those matching
220: -- 115.44 divicker 14-Jun-2001 Bug fix 1803867
221: -- 115.45 mreid 02-Jul-2001 Fixed monetary unit app ownership
222: -- 115.46 divicker 07-Jul-2001 Fix to maintain_history PK violation
223: -- 115.47 divicker 11-Jul-2001 Fix to add distinct to hr_s_defined_balances
224: -- 115.48 divicker 19-Jul-2001 Fix to hr_s_defined_balances again so
225: -- that we don't update the defined_bal_id
226: -- by the seq for all values of the orig
227: -- def_bal_id but only those matching
228: -- the original balance_type_id as well
1555: -- Cursor for installation of child 'defined balances'
1556: -- ADDED DISTINCT so that ldts that contains same defined
1557: -- balance for same legislation wont trigger PK error
1558: select distinct *
1559: from hr_s_defined_balances
1560: where balance_type_id = bal_type_id;
1561:
1562: CURSOR feed (bal_type_id number)
1563: IS
1639:
1640: update /*+NO_INDEX*/ hr_s_BALANCE_TYPES
1641: set base_balance_type_id = base_balance_type_id - 50000000;
1642:
1643: update /*+NO_INDEX*/ hr_s_DEFINED_BALANCES
1644: set balance_type_id = balance_type_id - 50000000;
1645:
1646: update hr_s_application_ownerships
1647: set key_value = key_value - 50000000
1656: --not conflict with the delivered values
1657:
1658: select count(*)
1659: into cnt
1660: from hr_s_defined_balances;
1661:
1662: If cnt=0 then return; end if;
1663:
1664:
1666: into l_null_return
1667: from pay_defined_balances a
1668: where exists
1669: (select null
1670: from hr_s_defined_balances b
1671: where a.defined_balance_id = b.defined_balance_id
1672: );
1673:
1674: --conflict may exist
1673:
1674: --conflict may exist
1675: --update all balance_type_id's to remove conflict
1676:
1677: update /*+NO_INDEX*/ hr_s_DEFINED_BALANCES
1678: set defined_balance_id = defined_balance_id - 50000000;
1679:
1680: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
1681:
1715: select min(defined_balance_id) - (count(*) *3)
1716: , max(defined_balance_id) +(count(*) *3)
1717: into v_min_delivered
1718: , v_max_delivered
1719: from hr_s_defined_balances;
1720:
1721: select pay_defined_balances_s.nextval
1722: into v_sequence_number
1723: from dual;
1854: hrrunprc_trace_off;
1855: raise;
1856: END;
1857:
1858: update hr_s_defined_balances
1859: set defined_balance_id = v_new_def_bal_id
1860: , balance_type_id = l_new_surrogate_key
1861: where defined_balance_id = def_bals.defined_balance_id
1862: and balance_type_id = def_bals.balance_type_id;
1876: delete from hr_s_balance_classifications
1877: where balance_type_id = stu_Rec.c_surrogate_key;
1878:
1879:
1880: delete from hr_s_defined_balances
1881: where balance_type_id = stu_Rec.c_surrogate_key;
1882:
1883:
1884: delete from hr_s_balance_feeds_f
2636:
2637: update /*+NO_INDEX*/ hr_s_balance_dimensions
2638: set balance_dimension_id = balance_dimension_id - 50000000;
2639:
2640: update /*+NO_INDEX*/ hr_s_defined_balances
2641: set balance_dimension_id = balance_dimension_id - 50000000;
2642:
2643: update /*+NO_INDEX*/ hr_s_balance_dimensions
2644: set asg_action_balance_dim_id = asg_action_balance_dim_id
2755: set key_value = to_char(l_new_surrogate_key)
2756: where key_value = to_char(stu_rec.c_surrogate_key)
2757: and key_name = 'BALANCE_DIMENSION_ID';
2758:
2759: update hr_s_defined_balances
2760: set balance_dimension_id = l_new_surrogate_key
2761: where balance_dimension_id = stu_rec.c_surrogate_key;
2762:
2763: update hr_s_dimension_routes