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 1495: l_task_rec TASK_INFO_CSR%ROWTYPE;

1491: AND rel.object_id_to1 = pev.element_version_id
1492: AND pev.parent_structure_version_id = c_parent_structure_ver_id
1493: AND display_sequence < c_display_seq);
1494:
1495: l_task_rec TASK_INFO_CSR%ROWTYPE;
1496: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1497: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1498: l_temp TASK_INFO_CSR%ROWTYPE;
1499: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;

Line 1496: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;

1492: AND pev.parent_structure_version_id = c_parent_structure_ver_id
1493: AND display_sequence < c_display_seq);
1494:
1495: l_task_rec TASK_INFO_CSR%ROWTYPE;
1496: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1497: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1498: l_temp TASK_INFO_CSR%ROWTYPE;
1499: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;
1500: l_task_id NUMBER;

Line 1497: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;

1493: AND display_sequence < c_display_seq);
1494:
1495: l_task_rec TASK_INFO_CSR%ROWTYPE;
1496: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1497: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1498: l_temp TASK_INFO_CSR%ROWTYPE;
1499: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;
1500: l_task_id NUMBER;
1501:

Line 1499: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;

1495: l_task_rec TASK_INFO_CSR%ROWTYPE;
1496: l_prev_task_rec TASK_INFO_CSR%ROWTYPE;
1497: l_parent_task_rec TASK_INFO_CSR%ROWTYPE;
1498: l_temp TASK_INFO_CSR%ROWTYPE;
1499: l_update_task_rec UPDATE_TASKS_CSR%ROWTYPE;
1500: l_task_id NUMBER;
1501:
1502: l_count NUMBER;
1503: l_wbs_number VARCHAR2(1000);

Line 1524: FETCH TASK_INFO_CSR INTO l_task_rec;

1520: end if;
1521:
1522: if(p_action <> 'DELETE') then
1523: OPEN TASK_INFO_CSR(p_task_id);
1524: FETCH TASK_INFO_CSR INTO l_task_rec;
1525: if(TASK_INFO_CSR%NOTFOUND) then
1526: CLOSE TASK_INFO_CSR;
1527: x_return_status := 'E';
1528: raise API_ERROR;

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

1531: end if;
1532:
1533: -- INSERT or COPY
1534: if((p_action = 'INSERT') OR (p_action = 'COPY')) then
1535: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1536: -- Inserted task is a top task
1537: -- Added the leading hint below for bug 3416314
1538: -- Smukka Merging branch 40 as of now with main branch
1539: SELECT /*+ LEADING (rel) */ count(pev.element_version_id)

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

1568:
1569: CLOSE GET_TASK_CSR;
1570:
1571:
1572: if(l_prev_task_id = l_task_rec.parent_task_id) then
1573: -- Previous task is a parent
1574: OPEN TASK_INFO_CSR(l_prev_task_id);
1575: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1576: CLOSE TASK_INFO_CSR;

Line 1575: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1571:
1572: if(l_prev_task_id = l_task_rec.parent_task_id) then
1573: -- Previous task is a parent
1574: OPEN TASK_INFO_CSR(l_prev_task_id);
1575: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1576: CLOSE TASK_INFO_CSR;
1577:
1578: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1579: l_mask := l_prev_task_rec.wbs_number;

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

1574: OPEN TASK_INFO_CSR(l_prev_task_id);
1575: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1576: CLOSE TASK_INFO_CSR;
1577:
1578: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1579: l_mask := l_prev_task_rec.wbs_number;
1580: else
1581: -- Previous task is a peer task
1582: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

Line 1579: l_mask := l_prev_task_rec.wbs_number;

1575: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1576: CLOSE TASK_INFO_CSR;
1577:
1578: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1579: l_mask := l_prev_task_rec.wbs_number;
1580: else
1581: -- Previous task is a peer task
1582: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1583: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

Line 1582: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1578: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1579: l_mask := l_prev_task_rec.wbs_number;
1580: else
1581: -- Previous task is a peer task
1582: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1583: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1584: CLOSE TASK_INFO_CSR;
1585:
1586: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);

Line 1583: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1579: l_mask := l_prev_task_rec.wbs_number;
1580: else
1581: -- Previous task is a peer task
1582: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1583: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1584: CLOSE TASK_INFO_CSR;
1585:
1586: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1587: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;

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

1582: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1583: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1584: CLOSE TASK_INFO_CSR;
1585:
1586: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1587: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1588: CLOSE GET_PREV_PEER_TASK_CSR;
1589:
1590: OPEN TASK_INFO_CSR(l_prev_task_id);

Line 1591: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1587: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1588: CLOSE GET_PREV_PEER_TASK_CSR;
1589:
1590: OPEN TASK_INFO_CSR(l_prev_task_id);
1591: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1592: CLOSE TASK_INFO_CSR;
1593:
1594: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1595: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;

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

1590: OPEN TASK_INFO_CSR(l_prev_task_id);
1591: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1592: CLOSE TASK_INFO_CSR;
1593:
1594: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1595: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1596: l_mask := l_parent_task_rec.wbs_number;
1597: end if;
1598: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then

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

1591: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1592: CLOSE TASK_INFO_CSR;
1593:
1594: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1595: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1596: l_mask := l_parent_task_rec.wbs_number;
1597: end if;
1598: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1599:

Line 1596: l_mask := l_parent_task_rec.wbs_number;

1592: CLOSE TASK_INFO_CSR;
1593:
1594: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1595: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1596: l_mask := l_parent_task_rec.wbs_number;
1597: end if;
1598: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1599:
1600: -- Update the WBS number for the inserted task

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

1594: l_increment := to_char(to_number(substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2)) + 1);
1595: l_wbs_number := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number)) || '.' || l_increment;
1596: l_mask := l_parent_task_rec.wbs_number;
1597: end if;
1598: end if; -- ig(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1599:
1600: -- Update the WBS number for the inserted task
1601: UPDATE PA_PROJ_ELEMENT_VERSIONS
1602: SET wbs_number = l_wbs_number

Line 1615: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1611: end if;
1612:
1613: LOOP
1614: if(l_mask = 'NONE') then
1615: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1616: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1617:
1618: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1619: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);

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

1614: if(l_mask = 'NONE') then
1615: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1616: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1617:
1618: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1619: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1620: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1621: l_str1 := to_char(to_number(l_str1 + 1));
1622:

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

1615: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1616: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1617:
1618: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1619: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1620: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1621: l_str1 := to_char(to_number(l_str1 + 1));
1622:
1623: l_wbs_number := l_str1 || l_str2;

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

1616: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1617:
1618: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1619: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1620: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1621: l_str1 := to_char(to_number(l_str1 + 1));
1622:
1623: l_wbs_number := l_str1 || l_str2;
1624: else

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

1621: l_str1 := to_char(to_number(l_str1 + 1));
1622:
1623: l_wbs_number := l_str1 || l_str2;
1624: else
1625: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);
1626: end if;
1627: else
1628: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1629: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;

Line 1628: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

1624: else
1625: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);
1626: end if;
1627: else
1628: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1629: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1630:
1631: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1632: if(instr(l_str1, '.') <> 0) then

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

1627: else
1628: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1629: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1630:
1631: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1632: if(instr(l_str1, '.') <> 0) then
1633: l_str2 := substr(l_str1, instr(l_str1, '.'));
1634: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
1635: l_str1 := to_char(to_number(l_str1) + 1);

Line 1648: WHERE element_version_id = l_update_task_rec.task_id;

1644:
1645: -- Update the WBS number
1646: UPDATE PA_PROJ_ELEMENT_VERSIONS
1647: SET wbs_number = l_wbs_number
1648: WHERE element_version_id = l_update_task_rec.task_id;
1649: END LOOP;
1650:
1651: if(l_mask = 'NONE') then
1652: CLOSE UPDATE_TASKS_CSR;

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

1655: end if;
1656:
1657: elsif(p_action = 'INDENT') then
1658: -- Get the last previous peer task
1659: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1660: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1661:
1662: -- Increment the last digit of the peer task wbs number to
1663: -- get the indented task's wbs number

Line 1664: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1660: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1661:
1662: -- Increment the last digit of the peer task wbs number to
1663: -- get the indented task's wbs number
1664: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1665: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1666: CLOSE TASK_INFO_CSR;
1667:
1668: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then

Line 1665: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1661:
1662: -- Increment the last digit of the peer task wbs number to
1663: -- get the indented task's wbs number
1664: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1665: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1666: CLOSE TASK_INFO_CSR;
1667:
1668: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1669: -- No previous peer tasks; first peer task under the parent

Line 1670: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1666: CLOSE TASK_INFO_CSR;
1667:
1668: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1669: -- No previous peer tasks; first peer task under the parent
1670: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1671: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1672: CLOSE TASK_INFO_CSR;
1673:
1674: l_wbs_number := l_prev_task_rec.wbs_number || '.1';

Line 1671: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1667:
1668: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1669: -- No previous peer tasks; first peer task under the parent
1670: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1671: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1672: CLOSE TASK_INFO_CSR;
1673:
1674: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1675: else

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

1670: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1671: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1672: CLOSE TASK_INFO_CSR;
1673:
1674: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1675: else
1676: OPEN TASK_INFO_CSR(l_prev_task_id);
1677: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1678: CLOSE TASK_INFO_CSR;

Line 1677: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1673:
1674: l_wbs_number := l_prev_task_rec.wbs_number || '.1';
1675: else
1676: OPEN TASK_INFO_CSR(l_prev_task_id);
1677: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1678: CLOSE TASK_INFO_CSR;
1679:
1680: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1681: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);

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

1676: OPEN TASK_INFO_CSR(l_prev_task_id);
1677: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1678: CLOSE TASK_INFO_CSR;
1679:
1680: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1681: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1682: l_str2 := to_char(to_number(l_str2 + 1));
1683:
1684: l_wbs_number := l_str1 || '.' || l_str2;

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

1677: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1678: CLOSE TASK_INFO_CSR;
1679:
1680: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1681: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1682: l_str2 := to_char(to_number(l_str2 + 1));
1683:
1684: l_wbs_number := l_str1 || '.' || l_str2;
1685: end if;

Line 1689: l_branch_mask := l_task_rec.wbs_number;

1685: end if;
1686:
1687: CLOSE GET_PREV_PEER_TASK_CSR;
1688:
1689: l_branch_mask := l_task_rec.wbs_number;
1690: --dbms_output.put_line('L_BRANCH_MASK: ' || l_branch_mask);
1691:
1692: --dbms_output.put_line('L_WBS_NUMBER: ' || l_wbs_number);
1693:

Line 1700: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1696: SET wbs_number = l_wbs_number
1697: WHERE element_version_id = p_task_id;
1698:
1699: -- Find l_mask
1700: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1701: FETCH TASK_INFO_CSR INTO l_temp;
1702: CLOSE TASK_INFO_CSR;
1703:
1704: if(l_temp.parent_task_id = p_parent_structure_ver_id) then

Line 1708: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);

1704: if(l_temp.parent_task_id = p_parent_structure_ver_id) then
1705: -- This indented task used to be a top task
1706: l_mask := 'NONE';
1707: else
1708: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);
1709: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1710: CLOSE TASK_INFO_CSR;
1711:
1712: l_mask := l_parent_task_rec.wbs_number;

Line 1709: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1705: -- This indented task used to be a top task
1706: l_mask := 'NONE';
1707: else
1708: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);
1709: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1710: CLOSE TASK_INFO_CSR;
1711:
1712: l_mask := l_parent_task_rec.wbs_number;
1713: end if;

Line 1712: l_mask := l_parent_task_rec.wbs_number;

1708: OPEN TASK_INFO_CSR(l_parent_task_rec.parent_task_id);
1709: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1710: CLOSE TASK_INFO_CSR;
1711:
1712: l_mask := l_parent_task_rec.wbs_number;
1713: end if;
1714:
1715: --dbms_output.put_line('L_MASK: ' || l_mask);
1716:

Line 1725: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1721: end if;
1722:
1723: LOOP
1724: if(l_mask = 'NONE') then
1725: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1726: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1727:
1728: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1729: -- Task is under the indented branch

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

1724: if(l_mask = 'NONE') then
1725: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1726: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1727:
1728: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1729: -- Task is under the indented branch
1730: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1731: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1732: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

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

1727:
1728: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1729: -- Task is under the indented branch
1730: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1731: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1732: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1733: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1734: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1735: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

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

1728: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1729: -- Task is under the indented branch
1730: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1731: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1732: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1733: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1734: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1735: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1736:

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

1729: -- Task is under the indented branch
1730: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1731: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1732: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1733: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1734: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1735: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1736:
1737: else

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

1730: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1731: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1732: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1733: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1734: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1735: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1736:
1737: else
1738:

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

1735: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1736:
1737: else
1738:
1739: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1740: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1741: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1742: l_str1 := to_char(to_number(l_str1) - 1);
1743:

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

1736:
1737: else
1738:
1739: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1740: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1741: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1742: l_str1 := to_char(to_number(l_str1) - 1);
1743:
1744: l_loop_wbs_number := l_str1 || l_str2;

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

1737: else
1738:
1739: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1740: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1741: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1742: l_str1 := to_char(to_number(l_str1) - 1);
1743:
1744: l_loop_wbs_number := l_str1 || l_str2;
1745: else

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

1742: l_str1 := to_char(to_number(l_str1) - 1);
1743:
1744: l_loop_wbs_number := l_str1 || l_str2;
1745: else
1746: l_loop_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);
1747: end if;
1748: end if;
1749:
1750: else

Line 1751: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

1747: end if;
1748: end if;
1749:
1750: else
1751: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1752: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1753:
1754: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1755: -- Task is under the indented branch

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

1750: else
1751: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1752: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1753:
1754: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1755: -- Task is under the indented branch
1756: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1757: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1758: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

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

1753:
1754: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1755: -- Task is under the indented branch
1756: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1757: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1758: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1759: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1760: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1761: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

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

1754: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1755: -- Task is under the indented branch
1756: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1757: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1758: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1759: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1760: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1761: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1762:

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

1755: -- Task is under the indented branch
1756: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1757: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1758: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1759: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1760: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1761: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1762:
1763: else

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

1756: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1757: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1758: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1759: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1760: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1761: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1762:
1763: else
1764:

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

1761: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1762:
1763: else
1764:
1765: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1766: if(instr(l_str1, '.') <> 0) then
1767: l_str2 := substr(l_str1, instr(l_str1, '.'));
1768: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
1769: l_str1 := to_char(to_number(l_str1) - 1);

Line 1783: WHERE element_version_id = l_update_task_rec.task_id;

1779:
1780: -- Update the WBS number
1781: UPDATE PA_PROJ_ELEMENT_VERSIONS
1782: SET wbs_number = l_loop_wbs_number
1783: WHERE element_version_id = l_update_task_rec.task_id;
1784: END LOOP;
1785:
1786: if(l_mask = 'NONE') then
1787: CLOSE UPDATE_TASKS_CSR;

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

1789: CLOSE UPDATE_MASKED_TASKS_CSR;
1790: end if;
1791:
1792: elsif(p_action = 'OUTDENT') then
1793: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1794: -- At top level; no parent task
1795: OPEN GET_PREV_TOP_PEER_TASK_CSR(p_parent_structure_ver_id, p_display_seq);
1796: FETCH GET_PREV_TOP_PEER_TASK_CSR INTO l_prev_task_id;
1797:

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

1801: end if;
1802: CLOSE GET_PREV_TOP_PEER_TASK_CSR;
1803: else
1804: -- Get the last previous peer task
1805: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, l_task_rec.parent_task_id, p_display_seq);
1806: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1807:
1808: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1809: x_return_status := 'E';

Line 1816: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1812: CLOSE GET_PREV_PEER_TASK_CSR;
1813: end if;
1814:
1815: OPEN TASK_INFO_CSR(l_prev_task_id);
1816: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1817: CLOSE TASK_INFO_CSR;
1818:
1819: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);
1820:

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

1815: OPEN TASK_INFO_CSR(l_prev_task_id);
1816: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1817: CLOSE TASK_INFO_CSR;
1818:
1819: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);
1820:
1821: -- Increment the last digit of the peer task wbs number to
1822: -- get the outdented task's wbs number
1823: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

Line 1823: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);

1819: --dbms_output.put_line('Previous peer task: ' || l_prev_task_rec.wbs_number);
1820:
1821: -- Increment the last digit of the peer task wbs number to
1822: -- get the outdented task's wbs number
1823: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1824: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1825: if(TASK_INFO_CSR%NOTFOUND) then
1826: -- Outdented task is now a top task
1827: l_wbs_number := l_prev_task_rec.wbs_number + 1;

Line 1824: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1820:
1821: -- Increment the last digit of the peer task wbs number to
1822: -- get the outdented task's wbs number
1823: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1824: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1825: if(TASK_INFO_CSR%NOTFOUND) then
1826: -- Outdented task is now a top task
1827: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1828: else

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

1823: OPEN TASK_INFO_CSR(l_task_rec.parent_task_id);
1824: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1825: if(TASK_INFO_CSR%NOTFOUND) then
1826: -- Outdented task is now a top task
1827: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1828: else
1829: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1830: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1831: l_str2 := to_char(to_number(l_str2 + 1));

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

1825: if(TASK_INFO_CSR%NOTFOUND) then
1826: -- Outdented task is now a top task
1827: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1828: else
1829: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1830: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1831: l_str2 := to_char(to_number(l_str2 + 1));
1832:
1833: l_wbs_number := l_str1 || '.' || l_str2;

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

1826: -- Outdented task is now a top task
1827: l_wbs_number := l_prev_task_rec.wbs_number + 1;
1828: else
1829: l_str1 := substr(l_prev_task_rec.wbs_number, 1, length(l_parent_task_rec.wbs_number));
1830: l_str2 := substr(l_prev_task_rec.wbs_number, length(l_parent_task_rec.wbs_number) + 2);
1831: l_str2 := to_char(to_number(l_str2 + 1));
1832:
1833: l_wbs_number := l_str1 || '.' || l_str2;
1834: end if;

Line 1840: l_branch_mask := l_task_rec.wbs_number;

1836: CLOSE TASK_INFO_CSR;
1837:
1838:
1839: -- l_branch_mask contains the old wbs_number (before the task was outdented)
1840: l_branch_mask := l_task_rec.wbs_number;
1841: --dbms_output.put_line('L_BRANCH_MASK: ' || l_branch_mask);
1842:
1843: -- l_mask2 contains the wbs number of the previous peer task
1844: -- This mask is used to find subsequent peer/child tasks of the outdented task (before it was

Line 1846: l_mask2 := l_prev_task_rec.wbs_number;

1842:
1843: -- l_mask2 contains the wbs number of the previous peer task
1844: -- This mask is used to find subsequent peer/child tasks of the outdented task (before it was
1845: -- outdented)
1846: l_mask2 := l_prev_task_rec.wbs_number;
1847: --dbms_output.put_line('L_MASK2: ' || l_mask2);
1848:
1849: -- Update the WBS number for the outdented task
1850: UPDATE PA_PROJ_ELEMENT_VERSIONS

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

1853:
1854: --dbms_output.put_line('L_WBS_NUMBER: ' || l_wbs_number);
1855:
1856: -- Find l_mask
1857: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1858: -- This outdented task has become a top task
1859: l_mask := 'NONE';
1860: else
1861: l_mask := l_parent_task_rec.wbs_number;

Line 1861: l_mask := l_parent_task_rec.wbs_number;

1857: if(l_task_rec.parent_task_id = p_parent_structure_ver_id) then
1858: -- This outdented task has become a top task
1859: l_mask := 'NONE';
1860: else
1861: l_mask := l_parent_task_rec.wbs_number;
1862: end if;
1863:
1864: --dbms_output.put_line('L_MASK: ' || l_mask);
1865:

Line 1874: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1870: end if;
1871:
1872: LOOP
1873: if(l_mask = 'NONE') then
1874: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1875: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1876:
1877: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1878: -- Task is under the outdented branch

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

1873: if(l_mask = 'NONE') then
1874: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
1875: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
1876:
1877: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1878: -- Task is under the outdented branch
1879: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1880: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1881: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

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

1876:
1877: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1878: -- Task is under the outdented branch
1879: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1880: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1881: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1882: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1883: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1884: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

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

1877: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1878: -- Task is under the outdented branch
1879: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1880: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1881: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1882: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1883: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1884: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1885:

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

1878: -- Task is under the outdented branch
1879: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1880: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1881: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1882: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1883: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1884: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1885:
1886: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then

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

1879: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1880: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1881: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1882: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1883: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1884: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1885:
1886: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1887: -- Task used to be a peer of the outdented task

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

1882: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1883: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1884: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1885:
1886: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1887: -- Task used to be a peer of the outdented task
1888: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
1889: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1890: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then

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

1884: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1885:
1886: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1887: -- Task used to be a peer of the outdented task
1888: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
1889: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1890: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1891: l_loop_wbs_number := l_wbs_number || '.1';
1892: else

Line 1894: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1890: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1891: l_loop_wbs_number := l_wbs_number || '.1';
1892: else
1893: OPEN TASK_INFO_CSR(l_prev_task_id);
1894: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1895: CLOSE TASK_INFO_CSR;
1896: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1897: l_str1 := to_char(to_number(l_str1 + 1));
1898: l_loop_wbs_number := l_wbs_number || '.' || l_str1;

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

1892: else
1893: OPEN TASK_INFO_CSR(l_prev_task_id);
1894: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1895: CLOSE TASK_INFO_CSR;
1896: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1897: l_str1 := to_char(to_number(l_str1 + 1));
1898: l_loop_wbs_number := l_wbs_number || '.' || l_str1;
1899: end if;
1900: CLOSE GET_PREV_PEER_TASK_CSR;

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

1899: end if;
1900: CLOSE GET_PREV_PEER_TASK_CSR;
1901:
1902: else
1903: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1904: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1905: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1906: l_str1 := to_char(to_number(l_str1) + 1);
1907:

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

1900: CLOSE GET_PREV_PEER_TASK_CSR;
1901:
1902: else
1903: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1904: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1905: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1906: l_str1 := to_char(to_number(l_str1) + 1);
1907:
1908: l_loop_wbs_number := l_str1 || l_str2;

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

1901:
1902: else
1903: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
1904: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
1905: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
1906: l_str1 := to_char(to_number(l_str1) + 1);
1907:
1908: l_loop_wbs_number := l_str1 || l_str2;
1909: else

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

1906: l_str1 := to_char(to_number(l_str1) + 1);
1907:
1908: l_loop_wbs_number := l_str1 || l_str2;
1909: else
1910: l_loop_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) + 1);
1911: end if;
1912: end if;
1913:
1914: else

Line 1915: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

1911: end if;
1912: end if;
1913:
1914: else
1915: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1916: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1917:
1918: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1919: -- Task is under the indented branch

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

1914: else
1915: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
1916: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
1917:
1918: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1919: -- Task is under the indented branch
1920: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1921: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1922: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);

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

1917:
1918: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1919: -- Task is under the indented branch
1920: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1921: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1922: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1923: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1924: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1925: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;

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

1918: if(substr(l_update_task_rec.wbs_number, 1, length(l_branch_mask)) = l_branch_mask) then
1919: -- Task is under the indented branch
1920: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1921: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1922: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1923: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1924: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1925: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1926:

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

1919: -- Task is under the indented branch
1920: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1921: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1922: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1923: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1924: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1925: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1926:
1927: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then

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

1920: -- Bug 2786662 Commented the replace and used substr to get the l_loop_wbs_number
1921: --l_loop_wbs_number := replace(l_update_task_rec.wbs_number, l_branch_mask, l_wbs_number);
1922: l_number := instr(l_update_task_rec.wbs_number, l_branch_mask, 1, 1);
1923: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1924: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1925: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1926:
1927: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1928: -- Task used to be a peer of the outdented task

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

1923: l_str1 := substr(l_update_task_rec.wbs_number, 1, l_number -1);
1924: l_str2 := substr(l_update_task_rec.wbs_number, length(l_branch_mask)+l_number);
1925: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1926:
1927: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1928: -- Task used to be a peer of the outdented task
1929: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
1930: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1931: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then

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

1925: l_loop_wbs_number := l_str1 || l_wbs_number || l_str2;
1926:
1927: elsif(substr(l_update_task_rec.wbs_number, 1, length(l_mask2)) = l_mask2) then
1928: -- Task used to be a peer of the outdented task
1929: OPEN GET_PREV_PEER_TASK_CSR(p_parent_structure_ver_id, p_task_id, l_update_task_rec.display_sequence);
1930: FETCH GET_PREV_PEER_TASK_CSR INTO l_prev_task_id;
1931: if(GET_PREV_PEER_TASK_CSR%NOTFOUND) then
1932: --dbms_output.put_line('HELLO2');
1933: l_loop_wbs_number := l_wbs_number || '.1';

Line 1936: FETCH TASK_INFO_CSR INTO l_prev_task_rec;

1932: --dbms_output.put_line('HELLO2');
1933: l_loop_wbs_number := l_wbs_number || '.1';
1934: else
1935: OPEN TASK_INFO_CSR(l_prev_task_id);
1936: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1937: CLOSE TASK_INFO_CSR;
1938: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);
1939: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1940: l_str1 := to_char(to_number(l_str1 + 1));

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

1934: else
1935: OPEN TASK_INFO_CSR(l_prev_task_id);
1936: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1937: CLOSE TASK_INFO_CSR;
1938: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);
1939: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1940: l_str1 := to_char(to_number(l_str1 + 1));
1941: l_loop_wbs_number := l_wbs_number || '.' || l_str1;
1942: end if;

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

1935: OPEN TASK_INFO_CSR(l_prev_task_id);
1936: FETCH TASK_INFO_CSR INTO l_prev_task_rec;
1937: CLOSE TASK_INFO_CSR;
1938: --dbms_output.put_line('HELLO: ' || l_prev_task_rec.wbs_number);
1939: l_str1 := substr(l_prev_task_rec.wbs_number, length(l_wbs_number) + 2);
1940: l_str1 := to_char(to_number(l_str1 + 1));
1941: l_loop_wbs_number := l_wbs_number || '.' || l_str1;
1942: end if;
1943: CLOSE GET_PREV_PEER_TASK_CSR;

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

1943: CLOSE GET_PREV_PEER_TASK_CSR;
1944:
1945: else
1946:
1947: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
1948: if(instr(l_str1, '.') <> 0) then
1949: l_str2 := substr(l_str1, instr(l_str1, '.'));
1950: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
1951: l_str1 := to_char(to_number(l_str1) + 1);

Line 1965: WHERE element_version_id = l_update_task_rec.task_id;

1961:
1962: -- Update the WBS number
1963: UPDATE PA_PROJ_ELEMENT_VERSIONS
1964: SET wbs_number = l_loop_wbs_number
1965: WHERE element_version_id = l_update_task_rec.task_id;
1966: END LOOP;
1967:
1968: if(l_mask = 'NONE') then
1969: CLOSE UPDATE_TASKS_CSR;

Line 1982: FETCH TASK_INFO_CSR INTO l_parent_task_rec;

1978: l_mask := 'NONE';
1979: else
1980: -- Deleted task is not a top task
1981: OPEN TASK_INFO_CSR(p_parent_task_id);
1982: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1983: CLOSE TASK_INFO_CSR;
1984:
1985: l_mask := l_parent_task_rec.wbs_number;
1986: end if;

Line 1985: l_mask := l_parent_task_rec.wbs_number;

1981: OPEN TASK_INFO_CSR(p_parent_task_id);
1982: FETCH TASK_INFO_CSR INTO l_parent_task_rec;
1983: CLOSE TASK_INFO_CSR;
1984:
1985: l_mask := l_parent_task_rec.wbs_number;
1986: end if;
1987:
1988: -- Loop through tasks that have a greater display seq than the current
1989: -- and begins with the same mask (in the same branch)

Line 2000: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;

1996: --dbms_output.put_line('L_MASK: '||l_mask);
1997: LOOP
1998: if(l_mask = 'NONE') then
1999: --dbms_output.put_line('IN LOOP');
2000: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
2001: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
2002:
2003: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2004:

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

1999: --dbms_output.put_line('IN LOOP');
2000: FETCH UPDATE_TASKS_CSR INTO l_update_task_rec;
2001: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
2002:
2003: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2004:
2005: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2006: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2007: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));

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

2001: EXIT WHEN UPDATE_TASKS_CSR%NOTFOUND;
2002:
2003: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2004:
2005: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2006: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2007: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
2008: l_str1 := to_char(to_number(l_str1) - 1);
2009:

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

2002:
2003: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2004:
2005: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2006: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2007: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
2008: l_str1 := to_char(to_number(l_str1) - 1);
2009:
2010: l_wbs_number := l_str1 || l_str2;

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

2003: ----dbms_output.put_line('L_UPDATE_TASK_REC.WBS_NUMBER: '|| l_update_task_rec.wbs_number);
2004:
2005: if(instr(l_update_task_rec.wbs_number, '.') <> 0) then
2006: l_str1 := substr(l_update_task_rec.wbs_number, 1, instr(l_update_task_rec.wbs_number, '.') - 1);
2007: l_str2 := substr(l_update_task_rec.wbs_number, instr(l_update_task_rec.wbs_number, '.'));
2008: l_str1 := to_char(to_number(l_str1) - 1);
2009:
2010: l_wbs_number := l_str1 || l_str2;
2011: else

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

2008: l_str1 := to_char(to_number(l_str1) - 1);
2009:
2010: l_wbs_number := l_str1 || l_str2;
2011: else
2012: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);
2013: end if;
2014: else
2015: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2016: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;

Line 2015: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;

2011: else
2012: l_wbs_number := to_char(to_number(l_update_task_rec.wbs_number) - 1);
2013: end if;
2014: else
2015: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2016: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
2017:
2018: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
2019: if(instr(l_str1, '.') <> 0) then

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

2014: else
2015: FETCH UPDATE_MASKED_TASKS_CSR INTO l_update_task_rec;
2016: EXIT WHEN UPDATE_MASKED_TASKS_CSR%NOTFOUND;
2017:
2018: l_str1 := substr(l_update_task_rec.wbs_number, length(l_mask) + 2);
2019: if(instr(l_str1, '.') <> 0) then
2020: l_str2 := substr(l_str1, instr(l_str1, '.'));
2021: l_str1 := substr(l_str1, 1, instr(l_str1, '.') - 1);
2022: l_str1 := to_char(to_number(l_str1) - 1);

Line 2034: WHERE element_version_id = l_update_task_rec.task_id;

2030:
2031: -- Update the WBS number
2032: UPDATE PA_PROJ_ELEMENT_VERSIONS
2033: SET wbs_number = l_wbs_number
2034: WHERE element_version_id = l_update_task_rec.task_id;
2035: END LOOP;
2036:
2037: if(l_mask = 'NONE') then
2038: CLOSE UPDATE_TASKS_CSR;

Line 5837: task_rec(task_name,task_id)

5833: l_debug_mode VARCHAR2(1);
5834:
5835: CURSOR task_hierarchy IS
5836: SELECT
5837: task_rec(task_name,task_id)
5838: FROM
5839: pa_tasks
5840: CONNECT BY PRIOR
5841: task_id = parent_task_id AND