716:
717: BEGIN
718:
719: IF g_fnd_debug = 'Y' THEN
720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
722: || x_progress, 'Entered Procedure. Entity ' || X_entity || ' ID:' || X_entity_id);
723: END IF;
724: END IF;
717: BEGIN
718:
719: IF g_fnd_debug = 'Y' THEN
720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
722: || x_progress, 'Entered Procedure. Entity ' || X_entity || ' ID:' || X_entity_id);
723: END IF;
724: END IF;
725:
899: x_msg_data => l_msg_data,
900: x_msg_count => l_msg_count);
901:
902: IF g_fnd_debug = 'Y' THEN
903: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
904: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
905: 'After Call to OE_DROP_SHIP_GRP.Update_Drop_Ship_links RetStatus: ' || l_return_status
906: || 'POHeader:' || l_po_header_id(i) || ' Release:' || l_po_release_id(i)
907: || ' Line:' || l_po_line_id(i) || ' LineLoc:' || l_line_location_id(i)
900: x_msg_count => l_msg_count);
901:
902: IF g_fnd_debug = 'Y' THEN
903: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
904: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
905: 'After Call to OE_DROP_SHIP_GRP.Update_Drop_Ship_links RetStatus: ' || l_return_status
906: || 'POHeader:' || l_po_header_id(i) || ' Release:' || l_po_release_id(i)
907: || ' Line:' || l_po_line_id(i) || ' LineLoc:' || l_line_location_id(i)
908: || ' ReqHdr:' || l_req_header_id(i) || ' ReqLine:' || l_req_line_id(i));
1537:
1538: x_progress := 10;
1539:
1540: IF g_fnd_debug = 'Y' THEN
1541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1542: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1543: || x_progress, 'Entered update_req_for_linked_po_count Procedure. Entity ' || X_entity );
1544:
1545: FOR I IN 1..X_entity_id.count LOOP
1538: x_progress := 10;
1539:
1540: IF g_fnd_debug = 'Y' THEN
1541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1542: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1543: || x_progress, 'Entered update_req_for_linked_po_count Procedure. Entity ' || X_entity );
1544:
1545: FOR I IN 1..X_entity_id.count LOOP
1546: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1542: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1543: || x_progress, 'Entered update_req_for_linked_po_count Procedure. Entity ' || X_entity );
1544:
1545: FOR I IN 1..X_entity_id.count LOOP
1546: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1547: || x_progress, 'Entity('||I||'):'|| X_entity_id(I) );
1548: END LOOP;
1549:
1550: END IF;
1585: END;
1586:
1587: x_progress := 15;
1588: IF g_fnd_debug = 'Y' THEN
1589: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1590: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1591: 'No of l_non_infofunded_slin_ids requisitions :'||l_non_infofunded_slin_ids.Count||' l_non_infofunded_slin_count:'||l_non_infofunded_slin_count.Count );
1592: END IF;
1593: END IF;
1586:
1587: x_progress := 15;
1588: IF g_fnd_debug = 'Y' THEN
1589: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1590: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1591: 'No of l_non_infofunded_slin_ids requisitions :'||l_non_infofunded_slin_ids.Count||' l_non_infofunded_slin_count:'||l_non_infofunded_slin_count.Count );
1592: END IF;
1593: END IF;
1594:
1610: END;
1611:
1612: x_progress := 18;
1613: IF g_fnd_debug = 'Y' THEN
1614: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1615: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1616: 'No of l_info_funded_slin_ids requisitions :'||l_info_funded_slin_ids.Count||' l_info_funded_slin_count:'||l_info_funded_slin_count.Count );
1617: END IF;
1618: END IF;
1611:
1612: x_progress := 18;
1613: IF g_fnd_debug = 'Y' THEN
1614: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1615: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1616: 'No of l_info_funded_slin_ids requisitions :'||l_info_funded_slin_ids.Count||' l_info_funded_slin_count:'||l_info_funded_slin_count.Count );
1617: END IF;
1618: END IF;
1619:
1641: END;
1642:
1643: x_progress := 15;
1644: IF g_fnd_debug = 'Y' THEN
1645: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1646: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1647: 'No of l_non_infofunded_slin_ids requisitions :'||l_non_infofunded_slin_ids.Count||' l_non_infofunded_slin_count:'||l_non_infofunded_slin_count.Count );
1648: END IF;
1649: END IF;
1642:
1643: x_progress := 15;
1644: IF g_fnd_debug = 'Y' THEN
1645: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1646: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1647: 'No of l_non_infofunded_slin_ids requisitions :'||l_non_infofunded_slin_ids.Count||' l_non_infofunded_slin_count:'||l_non_infofunded_slin_count.Count );
1648: END IF;
1649: END IF;
1650:
1667: END;
1668:
1669: x_progress := 18;
1670: IF g_fnd_debug = 'Y' THEN
1671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1672: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1673: 'No of l_info_funded_slin_ids requisitions :'||l_info_funded_slin_ids.Count||' l_info_funded_slin_count:'||l_info_funded_slin_count.Count );
1674: END IF;
1675: END IF;
1668:
1669: x_progress := 18;
1670: IF g_fnd_debug = 'Y' THEN
1671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1672: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1673: 'No of l_info_funded_slin_ids requisitions :'||l_info_funded_slin_ids.Count||' l_info_funded_slin_count:'||l_info_funded_slin_count.Count );
1674: END IF;
1675: END IF;
1676:
1686: END;
1687:
1688: x_progress := 20;
1689: IF g_fnd_debug = 'Y' THEN
1690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1692: 'No of unlinked requisitions :'||l_unlinked_reqLine_ids.Count ||' l_unlinked_po_count:'||l_unlinked_po_count.Count );
1693: END IF;
1694: END IF;
1687:
1688: x_progress := 20;
1689: IF g_fnd_debug = 'Y' THEN
1690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1692: 'No of unlinked requisitions :'||l_unlinked_reqLine_ids.Count ||' l_unlinked_po_count:'||l_unlinked_po_count.Count );
1693: END IF;
1694: END IF;
1695: -- If atleast on requisition line found whioh is linked to deleted entity.
1704: WHERE requisition_line_id = l_unlinked_reqLine_ids(i);
1705:
1706: x_progress := 30;
1707: IF g_fnd_debug = 'Y' THEN
1708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1709: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1710: 'Linked Po Count Updated.'||SQL%ROWCOUNT);
1711: END IF;
1712: END IF;
1705:
1706: x_progress := 30;
1707: IF g_fnd_debug = 'Y' THEN
1708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1709: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1710: 'Linked Po Count Updated.'||SQL%ROWCOUNT);
1711: END IF;
1712: END IF;
1713:
1720: AND linked_po_count = 0;
1721:
1722: x_progress := 40;
1723: IF g_fnd_debug = 'Y' THEN
1724: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1725: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1726: 'Po Line Id and Po Line Loc Id Updated Po Count Update.'||SQL%ROWCOUNT);
1727: END IF;
1728: END IF;
1721:
1722: x_progress := 40;
1723: IF g_fnd_debug = 'Y' THEN
1724: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1725: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1726: 'Po Line Id and Po Line Loc Id Updated Po Count Update.'||SQL%ROWCOUNT);
1727: END IF;
1728: END IF;
1729: -- This is handled seperately for distributions deleted from distributions tab
1752: WHERE group_line_id = l_pclin_ids(i);
1753:
1754: x_progress := 50;
1755: IF g_fnd_debug = 'Y' THEN
1756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1758: 'Slins for PriceClin ,Po Line Id and Po Line Loc Id Updated Po Count Update.'||SQL%ROWCOUNT);
1759: END IF;
1760: END IF;
1753:
1754: x_progress := 50;
1755: IF g_fnd_debug = 'Y' THEN
1756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1758: 'Slins for PriceClin ,Po Line Id and Po Line Loc Id Updated Po Count Update.'||SQL%ROWCOUNT);
1759: END IF;
1760: END IF;
1761:
1760: END IF;
1761:
1762: x_progress := 60;
1763: IF g_fnd_debug = 'Y' THEN
1764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1766: 'No of l_infofunded_slin_grp_ids requisitions :'||l_infofunded_slin_grp_ids.Count );
1767: END IF;
1768: END IF;
1761:
1762: x_progress := 60;
1763: IF g_fnd_debug = 'Y' THEN
1764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1766: 'No of l_infofunded_slin_grp_ids requisitions :'||l_infofunded_slin_grp_ids.Count );
1767: END IF;
1768: END IF;
1769:
1783: END;
1784:
1785: x_progress := 70;
1786: IF g_fnd_debug = 'Y' THEN
1787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1789: 'No of l_infofd_group_line_ids requisitions :'||l_infofd_group_line_ids.Count );
1790: END IF;
1791: END IF;
1784:
1785: x_progress := 70;
1786: IF g_fnd_debug = 'Y' THEN
1787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1789: 'No of l_infofd_group_line_ids requisitions :'||l_infofd_group_line_ids.Count );
1790: END IF;
1791: END IF;
1792:
1818: WHERE requisition_line_id = l_infofd_group_line_ids(i);
1819:
1820: x_progress := 80;
1821: IF g_fnd_debug = 'Y' THEN
1822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1823: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1824: 'Inserted into GT.'||SQL%ROWCOUNT);
1825: END IF;
1826: END IF;
1819:
1820: x_progress := 80;
1821: IF g_fnd_debug = 'Y' THEN
1822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1823: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1824: 'Inserted into GT.'||SQL%ROWCOUNT);
1825: END IF;
1826: END IF;
1827:
1857: );
1858:
1859: x_progress := 90;
1860: IF g_fnd_debug = 'Y' THEN
1861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1862: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1863: 'Inserted into GT.'||SQL%ROWCOUNT);
1864: END IF;
1865: END IF;
1858:
1859: x_progress := 90;
1860: IF g_fnd_debug = 'Y' THEN
1861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1862: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name|| '.' || x_progress,
1863: 'Inserted into GT.'||SQL%ROWCOUNT);
1864: END IF;
1865: END IF;
1866:
1866:
1867: END IF;
1868:
1869: IF g_fnd_debug = 'Y' THEN
1870: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1871: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1872: || x_progress, 'Completed update_req_for_linked_po_count Procedure. Entity ' || X_entity );
1873: END IF;
1874: END IF;
1867: END IF;
1868:
1869: IF g_fnd_debug = 'Y' THEN
1870: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1871: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1872: || x_progress, 'Completed update_req_for_linked_po_count Procedure. Entity ' || X_entity );
1873: END IF;
1874: END IF;
1875:
1901: BEGIN
1902: x_progress := 10;
1903:
1904: IF g_fnd_debug = 'Y' THEN
1905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1907: || x_progress, 'Entered Procedure.update_par_draft_line_status');
1908: END IF;
1909: END IF;
1902: x_progress := 10;
1903:
1904: IF g_fnd_debug = 'Y' THEN
1905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1907: || x_progress, 'Entered Procedure.update_par_draft_line_status');
1908: END IF;
1909: END IF;
1910:
1929: );
1930:
1931: x_progress := 20;
1932: IF g_fnd_debug = 'Y' THEN
1933: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1934: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1935: || x_progress, 'Completed update_par_draft_line_status Procedure.');
1936: END IF;
1937: END IF;
1930:
1931: x_progress := 20;
1932: IF g_fnd_debug = 'Y' THEN
1933: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1934: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1935: || x_progress, 'Completed update_par_draft_line_status Procedure.');
1936: END IF;
1937: END IF;
1938:
1963:
1964: x_progress := 10;
1965:
1966: IF g_fnd_debug = 'Y' THEN
1967: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1968: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1969: || x_progress, 'Entered Procedure.update_reqs_in_pool_flag');
1970: END IF;
1971: END IF;
1964: x_progress := 10;
1965:
1966: IF g_fnd_debug = 'Y' THEN
1967: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1968: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_api_name||'.'
1969: || x_progress, 'Entered Procedure.update_reqs_in_pool_flag');
1970: END IF;
1971: END IF;
1972: