1: PACKAGE BODY PO_RETROACTIVE_PRICING_PVT AS
2: /*$Header: POXRPRIB.pls 120.25 2011/09/14 20:50:30 yawang 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.25 2011/09/14 20:50:30 yawang 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;
841: /* Dynamically build the item cursor*/
842:
843: l_module := g_log_head||l_api_name||
844: '.'||'020'||'.';
845: PO_RETROACTIVE_PRICING_PVT.Build_Item_Cursor
846: ( p_cat_structure_id => p_category_struct_id
847: , p_cat_from => p_category_from
848: , p_cat_to => p_category_to
849: , p_item_from => p_item_from
1722: l_module := g_log_head||l_api_name||'.'||'130'||'.';
1723: g_po_release_id_table.delete;
1724: g_po_header_id_table.delete;
1725:
1726: PO_RETROACTIVE_PRICING_PVT.WrapUp_Standard_PO;
1727:
1728:
1729: l_module := g_log_head||l_api_name||'.'||'140'||'.';
1730:
1727:
1728:
1729: l_module := g_log_head||l_api_name||'.'||'140'||'.';
1730:
1731: PO_RETROACTIVE_PRICING_PVT.WrapUp_Releases;
1732:
1733: COMMIT;
1734:
1735: l_module := g_log_head||l_api_name||'.'||'150'||'.';
1733: COMMIT;
1734:
1735: l_module := g_log_head||l_api_name||'.'||'150'||'.';
1736:
1737: PO_RETROACTIVE_PRICING_PVT.Launch_PO_Approval;
1738:
1739: l_module := g_log_head||l_api_name||'.'||'160'||'.';
1740: PO_RETROACTIVE_PRICING_PVT.Launch_REL_Approval;
1741:
1736:
1737: PO_RETROACTIVE_PRICING_PVT.Launch_PO_Approval;
1738:
1739: l_module := g_log_head||l_api_name||'.'||'160'||'.';
1740: PO_RETROACTIVE_PRICING_PVT.Launch_REL_Approval;
1741:
1742: PO_DEBUG.put_line('End of Retroactive Pricing Program');
1743:
1744: EXCEPTION
2732:
2733: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2734: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2735:
2736: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2737: ( p_doc_id => g_po_header_id_table(i),
2738: p_doc_type => 'PO',
2739: p_doc_subtype => 'STANDARD');
2740: end if;
2878: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2879: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2880: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2881:
2882: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2883: ( p_doc_id => g_po_release_id_table(i),
2884: p_doc_type => 'RELEASE',
2885: p_doc_subtype => 'BLANKET');
2886: end if;
4970:
4971: RETURN 'N';
4972: END is_inv_org_period_open;
4973:
4974: END PO_RETROACTIVE_PRICING_PVT;