eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_PROJ_ELEMENTS_UTILS dependencies on TASK_REC

Line 1551: l_task_rec TASK_INFO_CSR%ROWTYPE;

1547: AND rel.object_id_to1 = pev.element_version_id
1548: AND pev.parent_structure_version_id = c_parent_structure_ver_id
1549: AND display_sequence < c_display_seq);
1550:
1551: l_task_rec TASK_INFO_CSR%ROWTYPE;
1552: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1553: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1554: l_temp TASK_INFO_CSR%ROWTYPE;
1555: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;

Line 1552: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;

1548: AND pev.parent_structure_version_id = c_parent_structure_ver_id
1549: AND display_sequence < c_display_seq);
1550:
1551: l_task_rec TASK_INFO_CSR%ROWTYPE;
1552: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1553: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1554: l_temp TASK_INFO_CSR%ROWTYPE;
1555: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;
1556: l_task_id NUMBER;

Line 1553: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;

1549: AND display_sequence < c_display_seq);
1550:
1551: l_task_rec TASK_INFO_CSR%ROWTYPE;
1552: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1553: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1554: l_temp TASK_INFO_CSR%ROWTYPE;
1555: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;
1556: l_task_id NUMBER;
1557:

Line 1555: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;

1551: l_task_rec TASK_INFO_CSR%ROWTYPE;
1552: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1553: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1554: l_temp TASK_INFO_CSR%ROWTYPE;
1555: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;
1556: l_task_id NUMBER;
1557:
1558: l_count NUMBER;
1559: l_wbs_number VARCHAR2(1000);

Line 1584: FETCH TASK_INFO_CSR INTO l_task_rec;

1580: end if;
1581:
1582: if(p_action <> 'DELETE') then
1583: OPEN TASK_INFO_CSR(p_task_id);
1584: FETCH TASK_INFO_CSR INTO l_task_rec;
1585: if(TASK_INFO_CSR%NOTFOUND) then
1586: CLOSE TASK_INFO_CSR;
1587: x_return_status := 'E';
1588: raise API_ERROR;

Line 1595: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then

1591: end if;
1592:
1593: -- INSERT or COPY
1594: if((p_action = 'INSERT') OR (p_action = 'COPY')) then
1595: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1596: -- Inserted task is a top task
1597: -- Added the leading hint below for bug 3416314
1598: -- Smukka Merging branch 40 as of now with main branch
1599: SELECT /*+ LEADING (rel) */ count(pev.element_version_id)

Line 1632: if(l_prev_task_id = l_task_rec.parent_task_id) then

1628:
1629: CLOSE GET_TASK_CSR;
1630:
1631:
1632: if(l_prev_task_id = l_task_rec.parent_task_id) then
1633: -- Previous task is a parent
1634: OPEN TASK_INFO_CSR(l_prev_task_id);
1635: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1636: CLOSE TASK_INFO_CSR;

Line 1635: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1631:
1632: if(l_prev_task_id = l_task_rec.parent_task_id) then
1633: -- Previous task is a parent
1634: OPEN TASK_INFO_CSR(l_prev_task_id);
1635: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1636: CLOSE TASK_INFO_CSR;
1637:
1638: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1639: l_mask := l_prev_task_rec.wbs_number;

Line 1638: l_wbs_number := l_prev_task_rec.wbs_number || '.1';

1634: OPEN TASK_INFO_CSR(l_prev_task_id);
1635: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1636: CLOSE TASK_INFO_CSR;
1637:
1638: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1639: l_mask := l_prev_task_rec.wbs_number;
1640: else
1641: -- Previous task is a peer task
1642: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

Line 1639: l_mask := l_prev_task_rec.wbs_number;

1635: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1636: CLOSE TASK_INFO_CSR;
1637:
1638: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1639: l_mask := l_prev_task_rec.wbs_number;
1640: else
1641: -- Previous task is a peer task
1642: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1643: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

Line 1642: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1638: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1639: l_mask := l_prev_task_rec.wbs_number;
1640: else
1641: -- Previous task is a peer task
1642: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1643: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1644: CLOSE TASK_INFO_CSR;
1645: --Bug 13895419 start
1646: IF p_peer_or_sub = 'xxx' then

Line 1643: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1639: l_mask := l_prev_task_rec.wbs_number;
1640: else
1641: -- Previous task is a peer task
1642: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1643: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1644: CLOSE TASK_INFO_CSR;
1645: --Bug 13895419 start
1646: IF p_peer_or_sub = 'xxx' then
1647: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

Line 1647: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

1643: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1644: CLOSE TASK_INFO_CSR;
1645: --Bug 13895419 start
1646: IF p_peer_or_sub = 'xxx' then
1647: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1648: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1649: CLOSE GET_PREV_PEER_TASK_CSR;
1650: ELSE --If p_peer_or_sub is not default value, then open GET_PREV_PEER_TASK_CSR1 cursor.
1651: OPEN GET_PREV_PEER_TASK_CSR1(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

Line 1651: OPEN GET_PREV_PEER_TASK_CSR1(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

1647: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1648: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1649: CLOSE GET_PREV_PEER_TASK_CSR;
1650: ELSE --If p_peer_or_sub is not default value, then open GET_PREV_PEER_TASK_CSR1 cursor.
1651: OPEN GET_PREV_PEER_TASK_CSR1(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1652: FETCH GET_PREV_PEER_TASK_CSR1 INTO l_prev_task_id;
1653: CLOSE GET_PREV_PEER_TASK_CSR1;
1654: END if;
1655: --Bug 13895419 end

Line 1657: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1653: CLOSE GET_PREV_PEER_TASK_CSR1;
1654: END if;
1655: --Bug 13895419 end
1656: OPEN TASK_INFO_CSR(l_prev_task_id);
1657: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1658: CLOSE TASK_INFO_CSR;
1659:
1660: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1661: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;

Line 1660: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);

1656: OPEN TASK_INFO_CSR(l_prev_task_id);
1657: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1658: CLOSE TASK_INFO_CSR;
1659:
1660: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1661: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1662: l_mask := l_parent_task_rec.wbs_number;
1663: end if;
1664: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then

Line 1661: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;

1657: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1658: CLOSE TASK_INFO_CSR;
1659:
1660: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1661: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1662: l_mask := l_parent_task_rec.wbs_number;
1663: end if;
1664: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1665:

Line 1662: l_mask := l_parent_task_rec.wbs_number;

1658: CLOSE TASK_INFO_CSR;
1659:
1660: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1661: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1662: l_mask := l_parent_task_rec.wbs_number;
1663: end if;
1664: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1665:
1666: -- Update the WBS number for the inserted task

Line 1664: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then

1660: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1661: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1662: l_mask := l_parent_task_rec.wbs_number;
1663: end if;
1664: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1665:
1666: -- Update the WBS number for the inserted task
1667: UPDATE PA_PROJ_ELEMENT_VERSIONS
1668: SET wbs_number = l_wbs_number

Line 1707: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1703: then
1704: --Bug 13895419 end
1705: LOOP
1706: if(l_mask = 'NONE') then
1707: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1708: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1709:
1710: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1711: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);

Line 1710: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then

1706: if(l_mask = 'NONE') then
1707: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1708: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1709:
1710: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1711: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1712: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1713: l_str1 := to_char(to_number(l_str1 + 1));
1714:

Line 1711: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);

1707: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1708: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1709:
1710: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1711: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1712: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1713: l_str1 := to_char(to_number(l_str1 + 1));
1714:
1715: l_wbs_number := l_str1 || l_str2;

Line 1712: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));

1708: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1709:
1710: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1711: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1712: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1713: l_str1 := to_char(to_number(l_str1 + 1));
1714:
1715: l_wbs_number := l_str1 || l_str2;
1716: else

Line 1717: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);

1713: l_str1 := to_char(to_number(l_str1 + 1));
1714:
1715: l_wbs_number := l_str1 || l_str2;
1716: else
1717: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);
1718: end if;
1719: else
1720: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1721: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;

Line 1720: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

1716: else
1717: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);
1718: end if;
1719: else
1720: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1721: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1722:
1723: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1724: if(instr(l_str1, '.') <> 0) then

Line 1723: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);

1719: else
1720: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1721: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1722:
1723: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1724: if(instr(l_str1, '.') <> 0) then
1725: l_str2 := substr(l_str1, instr(l_str1, '.'));
1726: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
1727: l_str1 := to_char(to_number(l_str1) + 1);

Line 1740: WHERE element_version_id = l_update_task_rec.task_id;

1736:
1737: -- Update the WBS number
1738: UPDATE PA_PROJ_ELEMENT_VERSIONS
1739: SET wbs_number = l_wbs_number
1740: WHERE element_version_id = l_update_task_rec.task_id;
1741: END LOOP;
1742: END if;
1743: --skkoppul bug 13895419 end
1744: if(l_mask = 'NONE') then

Line 1752: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

1748: end if;
1749:
1750: elsif(p_action = 'INDENT') then
1751: -- Get the last previous peer task
1752: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1753: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1754:
1755: -- Increment the last digit of the peer task wbs number to
1756: -- get the indented task's wbs number

Line 1757: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1753: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1754:
1755: -- Increment the last digit of the peer task wbs number to
1756: -- get the indented task's wbs number
1757: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1758: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1759: CLOSE TASK_INFO_CSR;
1760:
1761: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then

Line 1758: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1754:
1755: -- Increment the last digit of the peer task wbs number to
1756: -- get the indented task's wbs number
1757: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1758: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1759: CLOSE TASK_INFO_CSR;
1760:
1761: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1762: -- No previous peer tasks; first peer task under the parent

Line 1763: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1759: CLOSE TASK_INFO_CSR;
1760:
1761: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1762: -- No previous peer tasks; first peer task under the parent
1763: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1764: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1765: CLOSE TASK_INFO_CSR;
1766:
1767: l_wbs_number := l_prev_task_rec.wbs_number || '.1';

Line 1764: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1760:
1761: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1762: -- No previous peer tasks; first peer task under the parent
1763: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1764: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1765: CLOSE TASK_INFO_CSR;
1766:
1767: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1768: else

Line 1767: l_wbs_number := l_prev_task_rec.wbs_number || '.1';

1763: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1764: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1765: CLOSE TASK_INFO_CSR;
1766:
1767: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1768: else
1769: OPEN TASK_INFO_CSR(l_prev_task_id);
1770: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1771: CLOSE TASK_INFO_CSR;

Line 1770: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1766:
1767: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1768: else
1769: OPEN TASK_INFO_CSR(l_prev_task_id);
1770: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1771: CLOSE TASK_INFO_CSR;
1772:
1773: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1774: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);

Line 1773: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));

1769: OPEN TASK_INFO_CSR(l_prev_task_id);
1770: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1771: CLOSE TASK_INFO_CSR;
1772:
1773: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1774: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1775: l_str2 := to_char(to_number(l_str2 + 1));
1776:
1777: l_wbs_number := l_str1 || '.' || l_str2;

Line 1774: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);

1770: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1771: CLOSE TASK_INFO_CSR;
1772:
1773: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1774: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1775: l_str2 := to_char(to_number(l_str2 + 1));
1776:
1777: l_wbs_number := l_str1 || '.' || l_str2;
1778: end if;

Line 1782: l_branch_mask := l_task_rec.wbs_number;

1778: end if;
1779:
1780: CLOSE GET_PREV_PEER_TASK_CSR;
1781:
1782: l_branch_mask := l_task_rec.wbs_number;
1783: --dbms_output.put_line('L_BRANCH_MASK: ' || l_branch_mask);
1784:
1785: --dbms_output.put_line('L_WBS_NUMBER: ' || l_wbs_number);
1786:

Line 1793: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1789: SET wbs_number = l_wbs_number
1790: WHERE element_version_id = p_task_id;
1791:
1792: -- Find l_mask
1793: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1794: FETCH TASK_INFO_CSR INTO l_temp;
1795: CLOSE TASK_INFO_CSR;
1796:
1797: if(l_temp.parent_task_id = p_parent_structure_ver_id) then

Line 1801: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);

1797: if(l_temp.parent_task_id = p_parent_structure_ver_id) then
1798: -- This indented task used to be a top task
1799: l_mask := 'NONE';
1800: else
1801: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);
1802: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1803: CLOSE TASK_INFO_CSR;
1804:
1805: l_mask := l_parent_task_rec.wbs_number;

Line 1802: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1798: -- This indented task used to be a top task
1799: l_mask := 'NONE';
1800: else
1801: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);
1802: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1803: CLOSE TASK_INFO_CSR;
1804:
1805: l_mask := l_parent_task_rec.wbs_number;
1806: end if;

Line 1805: l_mask := l_parent_task_rec.wbs_number;

1801: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);
1802: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1803: CLOSE TASK_INFO_CSR;
1804:
1805: l_mask := l_parent_task_rec.wbs_number;
1806: end if;
1807:
1808: --dbms_output.put_line('L_MASK: ' || l_mask);
1809:

Line 1818: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1814: end if;
1815:
1816: LOOP
1817: if(l_mask = 'NONE') then
1818: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1819: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1820:
1821: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1822: -- Task is under the indented branch

Line 1821: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then

1817: if(l_mask = 'NONE') then
1818: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1819: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1820:
1821: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1822: -- Task is under the indented branch
1823: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1824: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1825: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

Line 1824: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);

1820:
1821: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1822: -- Task is under the indented branch
1823: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1824: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1825: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1826: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1827: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1828: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

Line 1825: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

1821: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1822: -- Task is under the indented branch
1823: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1824: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1825: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1826: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1827: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1828: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1829:

Line 1826: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);

1822: -- Task is under the indented branch
1823: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1824: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1825: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1826: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1827: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1828: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1829:
1830: else

Line 1827: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);

1823: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1824: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1825: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1826: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1827: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1828: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1829:
1830: else
1831:

Line 1832: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then

1828: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1829:
1830: else
1831:
1832: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1833: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1834: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1835: l_str1 := to_char(to_number(l_str1) - 1);
1836:

Line 1833: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);

1829:
1830: else
1831:
1832: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1833: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1834: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1835: l_str1 := to_char(to_number(l_str1) - 1);
1836:
1837: l_loop_wbs_number := l_str1 || l_str2;

Line 1834: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));

1830: else
1831:
1832: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1833: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1834: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1835: l_str1 := to_char(to_number(l_str1) - 1);
1836:
1837: l_loop_wbs_number := l_str1 || l_str2;
1838: else

Line 1839: l_loop_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);

1835: l_str1 := to_char(to_number(l_str1) - 1);
1836:
1837: l_loop_wbs_number := l_str1 || l_str2;
1838: else
1839: l_loop_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);
1840: end if;
1841: end if;
1842:
1843: else

Line 1844: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

1840: end if;
1841: end if;
1842:
1843: else
1844: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1845: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1846:
1847: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1848: -- Task is under the indented branch

Line 1847: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then

1843: else
1844: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1845: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1846:
1847: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1848: -- Task is under the indented branch
1849: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1850: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1851: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

Line 1850: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);

1846:
1847: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1848: -- Task is under the indented branch
1849: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1850: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1851: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1852: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1853: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1854: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

Line 1851: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

1847: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1848: -- Task is under the indented branch
1849: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1850: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1851: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1852: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1853: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1854: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1855:

Line 1852: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);

1848: -- Task is under the indented branch
1849: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1850: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1851: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1852: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1853: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1854: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1855:
1856: else

Line 1853: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);

1849: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1850: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1851: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1852: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1853: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1854: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1855:
1856: else
1857:

Line 1858: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);

1854: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1855:
1856: else
1857:
1858: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1859: if(instr(l_str1, '.') <> 0) then
1860: l_str2 := substr(l_str1, instr(l_str1, '.'));
1861: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
1862: l_str1 := to_char(to_number(l_str1) - 1);

Line 1876: WHERE element_version_id = l_update_task_rec.task_id;

1872:
1873: -- Update the WBS number
1874: UPDATE PA_PROJ_ELEMENT_VERSIONS
1875: SET wbs_number = l_loop_wbs_number
1876: WHERE element_version_id = l_update_task_rec.task_id;
1877: END LOOP;
1878:
1879: if(l_mask = 'NONE') then
1880: CLOSE UPDATE_TASKS_CSR;

Line 1886: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then

1882: CLOSE UPDATE_MASKED_TASKS_CSR;
1883: end if;
1884:
1885: elsif(p_action = 'OUTDENT') then
1886: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1887: -- At top level; no parent task
1888: OPEN GET_PREV_TOP_PEER_TASK_CSR(p_parent_structure_ver_id, p_display_seq);
1889: FETCH GET_PREV_TOP_PEER_TASK_CSR INTO l_prev_task_id;
1890:

Line 1898: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

1894: end if;
1895: CLOSE GET_PREV_TOP_PEER_TASK_CSR;
1896: else
1897: -- Get the last previous peer task
1898: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1899: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1900:
1901: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1902: x_return_status := 'E';

Line 1909: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1905: CLOSE GET_PREV_PEER_TASK_CSR;
1906: end if;
1907:
1908: OPEN TASK_INFO_CSR(l_prev_task_id);
1909: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1910: CLOSE TASK_INFO_CSR;
1911:
1912: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);
1913:

Line 1912: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);

1908: OPEN TASK_INFO_CSR(l_prev_task_id);
1909: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1910: CLOSE TASK_INFO_CSR;
1911:
1912: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);
1913:
1914: -- Increment the last digit of the peer task wbs number to
1915: -- get the outdented task's wbs number
1916: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

Line 1916: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1912: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);
1913:
1914: -- Increment the last digit of the peer task wbs number to
1915: -- get the outdented task's wbs number
1916: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1917: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1918: if(TASK_INFO_CSR%NOTFOUND) then
1919: -- Outdented task is now a top task
1920: l_wbs_number := l_prev_task_rec.wbs_number + 1;

Line 1917: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1913:
1914: -- Increment the last digit of the peer task wbs number to
1915: -- get the outdented task's wbs number
1916: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1917: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1918: if(TASK_INFO_CSR%NOTFOUND) then
1919: -- Outdented task is now a top task
1920: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1921: else

Line 1920: l_wbs_number := l_prev_task_rec.wbs_number + 1;

1916: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1917: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1918: if(TASK_INFO_CSR%NOTFOUND) then
1919: -- Outdented task is now a top task
1920: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1921: else
1922: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1923: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1924: l_str2 := to_char(to_number(l_str2 + 1));

Line 1922: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));

1918: if(TASK_INFO_CSR%NOTFOUND) then
1919: -- Outdented task is now a top task
1920: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1921: else
1922: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1923: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1924: l_str2 := to_char(to_number(l_str2 + 1));
1925:
1926: l_wbs_number := l_str1 || '.' || l_str2;

Line 1923: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);

1919: -- Outdented task is now a top task
1920: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1921: else
1922: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1923: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1924: l_str2 := to_char(to_number(l_str2 + 1));
1925:
1926: l_wbs_number := l_str1 || '.' || l_str2;
1927: end if;

Line 1933: l_branch_mask := l_task_rec.wbs_number;

1929: CLOSE TASK_INFO_CSR;
1930:
1931:
1932: -- l_branch_mask contains the old wbs_number (before the task was outdented)
1933: l_branch_mask := l_task_rec.wbs_number;
1934: --dbms_output.put_line('L_BRANCH_MASK: ' || l_branch_mask);
1935:
1936: -- l_mask2 contains the wbs number of the previous peer task
1937: -- This mask is used to find subsequent peer/child tasks of the outdented task (before it was

Line 1939: l_mask2 := l_prev_task_rec.wbs_number;

1935:
1936: -- l_mask2 contains the wbs number of the previous peer task
1937: -- This mask is used to find subsequent peer/child tasks of the outdented task (before it was
1938: -- outdented)
1939: l_mask2 := l_prev_task_rec.wbs_number;
1940: --dbms_output.put_line('L_MASK2: ' || l_mask2);
1941:
1942: -- Update the WBS number for the outdented task
1943: UPDATE PA_PROJ_ELEMENT_VERSIONS

Line 1950: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then

1946:
1947: --dbms_output.put_line('L_WBS_NUMBER: ' || l_wbs_number);
1948:
1949: -- Find l_mask
1950: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1951: -- This outdented task has become a top task
1952: l_mask := 'NONE';
1953: else
1954: l_mask := l_parent_task_rec.wbs_number;

Line 1954: l_mask := l_parent_task_rec.wbs_number;

1950: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1951: -- This outdented task has become a top task
1952: l_mask := 'NONE';
1953: else
1954: l_mask := l_parent_task_rec.wbs_number;
1955: end if;
1956:
1957: --dbms_output.put_line('L_MASK: ' || l_mask);
1958:

Line 1967: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1963: end if;
1964:
1965: LOOP
1966: if(l_mask = 'NONE') then
1967: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1968: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1969:
1970: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1971: -- Task is under the outdented branch

Line 1970: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then

1966: if(l_mask = 'NONE') then
1967: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1968: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1969:
1970: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1971: -- Task is under the outdented branch
1972: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1973: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1974: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

Line 1973: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);

1969:
1970: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1971: -- Task is under the outdented branch
1972: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1973: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1974: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1975: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1976: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1977: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

Line 1974: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

1970: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1971: -- Task is under the outdented branch
1972: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1973: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1974: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1975: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1976: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1977: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1978:

Line 1975: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);

1971: -- Task is under the outdented branch
1972: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1973: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1974: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1975: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1976: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1977: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1978:
1979: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then

Line 1976: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);

1972: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1973: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1974: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1975: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1976: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1977: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1978:
1979: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1980: -- Task used to be a peer of the outdented task

Line 1979: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then

1975: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1976: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1977: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1978:
1979: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1980: -- Task used to be a peer of the outdented task
1981: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
1982: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1983: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then

Line 1981: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);

1977: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1978:
1979: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1980: -- Task used to be a peer of the outdented task
1981: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
1982: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1983: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1984: l_loop_wbs_number := l_wbs_number || '.1';
1985: else

Line 1987: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1983: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1984: l_loop_wbs_number := l_wbs_number || '.1';
1985: else
1986: OPEN TASK_INFO_CSR(l_prev_task_id);
1987: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1988: CLOSE TASK_INFO_CSR;
1989: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1990: l_str1 := to_char(to_number(l_str1 + 1));
1991: l_loop_wbs_number := l_wbs_number || '.' || l_str1;

Line 1989: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);

1985: else
1986: OPEN TASK_INFO_CSR(l_prev_task_id);
1987: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1988: CLOSE TASK_INFO_CSR;
1989: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1990: l_str1 := to_char(to_number(l_str1 + 1));
1991: l_loop_wbs_number := l_wbs_number || '.' || l_str1;
1992: end if;
1993: CLOSE GET_PREV_PEER_TASK_CSR;

Line 1996: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then

1992: end if;
1993: CLOSE GET_PREV_PEER_TASK_CSR;
1994:
1995: else
1996: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1997: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1998: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1999: l_str1 := to_char(to_number(l_str1) + 1);
2000:

Line 1997: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);

1993: CLOSE GET_PREV_PEER_TASK_CSR;
1994:
1995: else
1996: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1997: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1998: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1999: l_str1 := to_char(to_number(l_str1) + 1);
2000:
2001: l_loop_wbs_number := l_str1 || l_str2;

Line 1998: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));

1994:
1995: else
1996: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1997: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1998: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1999: l_str1 := to_char(to_number(l_str1) + 1);
2000:
2001: l_loop_wbs_number := l_str1 || l_str2;
2002: else

Line 2003: l_loop_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);

1999: l_str1 := to_char(to_number(l_str1) + 1);
2000:
2001: l_loop_wbs_number := l_str1 || l_str2;
2002: else
2003: l_loop_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);
2004: end if;
2005: end if;
2006:
2007: else

Line 2008: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

2004: end if;
2005: end if;
2006:
2007: else
2008: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2009: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
2010:
2011: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
2012: -- Task is under the indented branch

Line 2011: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then

2007: else
2008: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2009: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
2010:
2011: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
2012: -- Task is under the indented branch
2013: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
2014: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
2015: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

Line 2014: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);

2010:
2011: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
2012: -- Task is under the indented branch
2013: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
2014: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
2015: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
2016: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
2017: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
2018: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

Line 2015: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

2011: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
2012: -- Task is under the indented branch
2013: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
2014: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
2015: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
2016: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
2017: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
2018: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
2019:

Line 2016: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);

2012: -- Task is under the indented branch
2013: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
2014: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
2015: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
2016: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
2017: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
2018: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
2019:
2020: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then

Line 2017: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);

2013: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
2014: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
2015: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
2016: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
2017: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
2018: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
2019:
2020: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
2021: -- Task used to be a peer of the outdented task

Line 2020: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then

2016: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
2017: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
2018: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
2019:
2020: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
2021: -- Task used to be a peer of the outdented task
2022: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
2023: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
2024: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then

Line 2022: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);

2018: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
2019:
2020: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
2021: -- Task used to be a peer of the outdented task
2022: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
2023: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
2024: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
2025: --dbms_output.put_line('HELLO2');
2026: l_loop_wbs_number := l_wbs_number || '.1';

Line 2029: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

2025: --dbms_output.put_line('HELLO2');
2026: l_loop_wbs_number := l_wbs_number || '.1';
2027: else
2028: OPEN TASK_INFO_CSR(l_prev_task_id);
2029: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
2030: CLOSE TASK_INFO_CSR;
2031: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);
2032: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
2033: l_str1 := to_char(to_number(l_str1 + 1));

Line 2031: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);

2027: else
2028: OPEN TASK_INFO_CSR(l_prev_task_id);
2029: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
2030: CLOSE TASK_INFO_CSR;
2031: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);
2032: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
2033: l_str1 := to_char(to_number(l_str1 + 1));
2034: l_loop_wbs_number := l_wbs_number || '.' || l_str1;
2035: end if;

Line 2032: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);

2028: OPEN TASK_INFO_CSR(l_prev_task_id);
2029: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
2030: CLOSE TASK_INFO_CSR;
2031: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);
2032: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
2033: l_str1 := to_char(to_number(l_str1 + 1));
2034: l_loop_wbs_number := l_wbs_number || '.' || l_str1;
2035: end if;
2036: CLOSE GET_PREV_PEER_TASK_CSR;

Line 2040: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);

2036: CLOSE GET_PREV_PEER_TASK_CSR;
2037:
2038: else
2039:
2040: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
2041: if(instr(l_str1, '.') <> 0) then
2042: l_str2 := substr(l_str1, instr(l_str1, '.'));
2043: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
2044: l_str1 := to_char(to_number(l_str1) + 1);

Line 2058: WHERE element_version_id = l_update_task_rec.task_id;

2054:
2055: -- Update the WBS number
2056: UPDATE PA_PROJ_ELEMENT_VERSIONS
2057: SET wbs_number = l_loop_wbs_number
2058: WHERE element_version_id = l_update_task_rec.task_id;
2059: END LOOP;
2060:
2061: if(l_mask = 'NONE') then
2062: CLOSE UPDATE_TASKS_CSR;

Line 2075: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

2071: l_mask := 'NONE';
2072: else
2073: -- Deleted task is not a top task
2074: OPEN TASK_INFO_CSR(p_parent_task_id);
2075: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
2076: CLOSE TASK_INFO_CSR;
2077:
2078: l_mask := l_parent_task_rec.wbs_number;
2079: end if;

Line 2078: l_mask := l_parent_task_rec.wbs_number;

2074: OPEN TASK_INFO_CSR(p_parent_task_id);
2075: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
2076: CLOSE TASK_INFO_CSR;
2077:
2078: l_mask := l_parent_task_rec.wbs_number;
2079: end if;
2080:
2081: -- Loop through tasks that have a greater display seq than the current
2082: -- and begins with the same mask (in the same branch)

Line 2093: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

2089: --dbms_output.put_line('L_MASK: '||l_mask);
2090: LOOP
2091: if(l_mask = 'NONE') then
2092: --dbms_output.put_line('IN LOOP');
2093: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
2094: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
2095:
2096: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2097:

Line 2096: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);

2092: --dbms_output.put_line('IN LOOP');
2093: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
2094: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
2095:
2096: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2097:
2098: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2099: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2100: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));

Line 2098: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then

2094: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
2095:
2096: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2097:
2098: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2099: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2100: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
2101: l_str1 := to_char(to_number(l_str1) - 1);
2102:

Line 2099: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);

2095:
2096: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2097:
2098: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2099: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2100: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
2101: l_str1 := to_char(to_number(l_str1) - 1);
2102:
2103: l_wbs_number := l_str1 || l_str2;

Line 2100: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));

2096: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2097:
2098: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2099: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2100: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
2101: l_str1 := to_char(to_number(l_str1) - 1);
2102:
2103: l_wbs_number := l_str1 || l_str2;
2104: else

Line 2105: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);

2101: l_str1 := to_char(to_number(l_str1) - 1);
2102:
2103: l_wbs_number := l_str1 || l_str2;
2104: else
2105: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);
2106: end if;
2107: else
2108: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2109: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;

Line 2108: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

2104: else
2105: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);
2106: end if;
2107: else
2108: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2109: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
2110:
2111: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
2112: if(instr(l_str1, '.') <> 0) then

Line 2111: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);

2107: else
2108: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2109: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
2110:
2111: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
2112: if(instr(l_str1, '.') <> 0) then
2113: l_str2 := substr(l_str1, instr(l_str1, '.'));
2114: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
2115: l_str1 := to_char(to_number(l_str1) - 1);

Line 2127: WHERE element_version_id = l_update_task_rec.task_id;

2123:
2124: -- Update the WBS number
2125: UPDATE PA_PROJ_ELEMENT_VERSIONS
2126: SET wbs_number = l_wbs_number
2127: WHERE element_version_id = l_update_task_rec.task_id;
2128: END LOOP;
2129:
2130: if(l_mask = 'NONE') then
2131: CLOSE UPDATE_TASKS_CSR;

Line 6035: task_rec(task_name,task_id)

6031: l_debug_mode VARCHAR2(1);
6032:
6033: CURSOR task_hierarchy IS
6034: SELECT
6035: task_rec(task_name,task_id)
6036: FROM
6037: pa_tasks
6038: CONNECT BY PRIOR
6039: task_id = parent_task_id AND

Line 6091: task_rec(null,alt_task_id)

6087: l_debug_mode VARCHAR2(1);
6088:
6089: CURSOR task_hierarchy IS
6090: SELECT
6091: task_rec(null,alt_task_id)
6092: FROM
6093: pa_alternate_tasks where
6094: proj_element_id in (select task_id from
6095: pa_tasks