[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
1760: -- Cursor for installation of child 'defined balances'
1761: -- ADDED DISTINCT so that ldts that contains same defined
1762: -- balance for same legislation wont trigger PK error
1763: select distinct *
1764: from hr_s_defined_balances
1765: where balance_type_id = bal_type_id;
1766:
1767: CURSOR feed (bal_type_id number)
1768: IS
1844:
1845: update /*+NO_INDEX*/ hr_s_BALANCE_TYPES
1846: set base_balance_type_id = base_balance_type_id - 50000000;
1847:
1848: update /*+NO_INDEX*/ hr_s_DEFINED_BALANCES
1849: set balance_type_id = balance_type_id - 50000000;
1850:
1851: update hr_s_application_ownerships
1852: set key_value = key_value - 50000000
1861: --not conflict with the delivered values
1862:
1863: select count(*)
1864: into cnt
1865: from hr_s_defined_balances;
1866:
1867: If cnt=0 then return; end if;
1868:
1869:
1871: into l_null_return
1872: from pay_defined_balances a
1873: where exists
1874: (select null
1875: from hr_s_defined_balances b
1876: where a.defined_balance_id = b.defined_balance_id
1877: );
1878:
1879: --conflict may exist
1878:
1879: --conflict may exist
1880: --update all balance_type_id's to remove conflict
1881:
1882: update /*+NO_INDEX*/ hr_s_DEFINED_BALANCES
1883: set defined_balance_id = defined_balance_id - 50000000;
1884:
1885: EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
1886:
1920: select min(defined_balance_id) - (count(*) *3)
1921: , max(defined_balance_id) +(count(*) *3)
1922: into v_min_delivered
1923: , v_max_delivered
1924: from hr_s_defined_balances;
1925:
1926: select pay_defined_balances_s.nextval
1927: into v_sequence_number
1928: from dual;
2071: hrrunprc_trace_off;
2072: raise;
2073: END;
2074:
2075: update hr_s_defined_balances
2076: set defined_balance_id = v_new_def_bal_id
2077: , balance_type_id = l_new_surrogate_key
2078: where defined_balance_id = def_bals.defined_balance_id
2079: and balance_type_id = def_bals.balance_type_id;
2093: delete from hr_s_balance_classifications
2094: where balance_type_id = stu_Rec.c_surrogate_key;
2095:
2096:
2097: delete from hr_s_defined_balances
2098: where balance_type_id = stu_Rec.c_surrogate_key;
2099:
2100:
2101: delete from hr_s_balance_feeds_f
2882:
2883: update /*+NO_INDEX*/ hr_s_balance_dimensions
2884: set balance_dimension_id = balance_dimension_id - 50000000;
2885:
2886: update /*+NO_INDEX*/ hr_s_defined_balances
2887: set balance_dimension_id = balance_dimension_id - 50000000;
2888:
2889: update /*+NO_INDEX*/ hr_s_balance_dimensions
2890: set asg_action_balance_dim_id = asg_action_balance_dim_id
3001: set key_value = to_char(l_new_surrogate_key)
3002: where key_value = to_char(stu_rec.c_surrogate_key)
3003: and key_name = 'BALANCE_DIMENSION_ID';
3004:
3005: update hr_s_defined_balances
3006: set balance_dimension_id = l_new_surrogate_key
3007: where balance_dimension_id = stu_rec.c_surrogate_key;
3008:
3009: update hr_s_dimension_routes