[Home] [Help]
1482: IS
1483: cursor c_rowid
1484: is
1485: select rowid
1486: from csf_skill_levels_b
1487: where skill_level_id = x_skill_level_id;
1488:
1489: -- cursor to check for duplicate level name
1490: cursor c_dup_name is
1488:
1489: -- cursor to check for duplicate level name
1490: cursor c_dup_name is
1491: select 1
1492: from csf_skill_levels_b a, csf_skill_levels_tl b
1493: where a.skill_level_id = b.skill_level_id
1494: and (upper (rtrim (ltrim (b.name))) = upper (rtrim (ltrim (x_name)))
1495: )
1496: and a.rating_scale_id = x_rating_scale_id
1498:
1499: -- cursor to check for duplicate level order
1500: cursor c_dup_order is
1501: select 1
1502: from csf_skill_levels_b a, csf_skill_levels_tl b
1503: where a.skill_level_id = b.skill_level_id
1504: and a.step_value in (
1505: select c.step_value
1506: from csf_skill_levels_b c
1502: from csf_skill_levels_b a, csf_skill_levels_tl b
1503: where a.skill_level_id = b.skill_level_id
1504: and a.step_value in (
1505: select c.step_value
1506: from csf_skill_levels_b c
1507: where c.skill_level_id = a.skill_level_id
1508: and rating_scale_id = x_rating_scale_id
1509: and c.step_value = x_step_value)
1510: and a.rating_scale_id = x_rating_scale_id
1513: l_dummy_var number;
1514: BEGIN
1515: if x_skill_level_id is null
1516: then
1517: select csf_skill_levels_b_s1.nextval
1518: into x_skill_level_id
1519: from dual;
1520: else
1521: -- Checks if record to be inserted already exists.
1557: then
1558: x_object_version_number := 1;
1559: end if;
1560:
1561: insert into csf_skill_levels_b
1562: ( skill_level_id
1563: , rating_scale_id
1564: , step_value
1565: , correction_factor
1666: IS
1667: cursor c_ovn
1668: is
1669: select object_version_number
1670: from csf_skill_levels_b
1671: where skill_level_id = x_skill_level_id
1672: for update of skill_level_id nowait;
1673:
1674: l_rec c_ovn%rowtype;
1749: IS
1750: -- cursor to check for duplicate level name
1751: cursor c_dup_name is
1752: select 1
1753: from csf_skill_levels_b a, csf_skill_levels_tl b
1754: where a.skill_level_id = b.skill_level_id
1755: and (upper (rtrim (ltrim (b.name))) = upper (rtrim (ltrim (x_name)))
1756: )
1757: and a.rating_scale_id = x_rating_scale_id
1760:
1761: -- cursor to check for duplicate level order
1762: cursor c_dup_order is
1763: select 1
1764: from csf_skill_levels_b a, csf_skill_levels_tl b
1765: where a.skill_level_id = b.skill_level_id
1766: and a.step_value in (
1767: select c.step_value
1768: from csf_skill_levels_b c
1764: from csf_skill_levels_b a, csf_skill_levels_tl b
1765: where a.skill_level_id = b.skill_level_id
1766: and a.step_value in (
1767: select c.step_value
1768: from csf_skill_levels_b c
1769: where c.skill_level_id = a.skill_level_id
1770: and rating_scale_id = x_rating_scale_id
1771: and c.step_value = x_step_value)
1772: and a.rating_scale_id = x_rating_scale_id
1798: end if;
1799:
1800: close c_dup_name;
1801:
1802: update csf_skill_levels_b
1803: set rating_scale_id = x_rating_scale_id
1804: , step_value = x_step_value
1805: , correction_factor = x_correction_factor
1806: , start_date_active = x_start_date_active
1861: then
1862: raise no_data_found;
1863: end if;
1864:
1865: delete from csf_skill_levels_b
1866: where skill_level_id = x_skill_level_id;
1867:
1868: if sql%notfound then
1869: raise no_data_found;
1875: BEGIN
1876: delete from csf_skill_levels_tl t
1877: where not exists
1878: ( select null
1879: from csf_skill_levels_b b
1880: where b.skill_level_id = t.skill_level_id );
1881:
1882: update csf_skill_levels_tl t
1883: set ( name