1: PACKAGE BODY PO_RETROACTIVE_PRICING_PVT AS
2: /*$Header: POXRPRIB.pls 120.18.12000000.2 2007/07/11 08:30:43 puppulur ship $*/
3:
4: -- Global Variables
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_RETROACTIVE_PRICING_PVT';
1: PACKAGE BODY PO_RETROACTIVE_PRICING_PVT AS
2: /*$Header: POXRPRIB.pls 120.18.12000000.2 2007/07/11 08:30:43 puppulur ship $*/
3:
4: -- Global Variables
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_RETROACTIVE_PRICING_PVT';
6: G_BULK_LIMIT number := 1000;
7: g_log_mode VARCHAR2(240) :=
8: NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_CONCURRENT_ON'),'N') ;
9: TYPE g_agreement_cur_type IS REF CURSOR;
815: /* Dynamically build the item cursor*/
816:
817: l_module := g_log_head||l_api_name||
818: '.'||'020'||'.';
819: PO_RETROACTIVE_PRICING_PVT.Build_Item_Cursor
820: ( p_cat_structure_id => p_category_struct_id
821: , p_cat_from => p_category_from
822: , p_cat_to => p_category_to
823: , p_item_from => p_item_from
1693: l_module := g_log_head||l_api_name||'.'||'130'||'.';
1694: g_po_release_id_table.delete;
1695: g_po_header_id_table.delete;
1696:
1697: PO_RETROACTIVE_PRICING_PVT.WrapUp_Standard_PO;
1698:
1699:
1700: l_module := g_log_head||l_api_name||'.'||'140'||'.';
1701:
1698:
1699:
1700: l_module := g_log_head||l_api_name||'.'||'140'||'.';
1701:
1702: PO_RETROACTIVE_PRICING_PVT.WrapUp_Releases;
1703:
1704: COMMIT;
1705:
1706: l_module := g_log_head||l_api_name||'.'||'150'||'.';
1704: COMMIT;
1705:
1706: l_module := g_log_head||l_api_name||'.'||'150'||'.';
1707:
1708: PO_RETROACTIVE_PRICING_PVT.Launch_PO_Approval;
1709:
1710: l_module := g_log_head||l_api_name||'.'||'160'||'.';
1711: PO_RETROACTIVE_PRICING_PVT.Launch_REL_Approval;
1712:
1707:
1708: PO_RETROACTIVE_PRICING_PVT.Launch_PO_Approval;
1709:
1710: l_module := g_log_head||l_api_name||'.'||'160'||'.';
1711: PO_RETROACTIVE_PRICING_PVT.Launch_REL_Approval;
1712:
1713: PO_DEBUG.put_line('End of Retroactive Pricing Program');
1714:
1715: EXCEPTION
2642:
2643: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2644: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2645:
2646: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2647: ( p_doc_id => g_po_header_id_table(i),
2648: p_doc_type => 'PO',
2649: p_doc_subtype => 'STANDARD');
2650: end if;
2766: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2767: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2768: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2769:
2770: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2771: ( p_doc_id => g_po_release_id_table(i),
2772: p_doc_type => 'RELEASE',
2773: p_doc_subtype => 'BLANKET');
2774: end if;
4849:
4850: RETURN 'N';
4851: END is_inv_org_period_open;
4852:
4853: END PO_RETROACTIVE_PRICING_PVT;