[Home] [Help]
1: PACKAGE BODY OZF_FUND_APPROVAL_PVT AS
2: /* $Header: ozfvfapb.pls 120.3.12020000.3 2012/10/22 08:55:04 nirprasa ship $ */
3: -- Start of Comments
4: --
5: -- NAME
2: /* $Header: ozfvfapb.pls 120.3.12020000.3 2012/10/22 08:55:04 nirprasa ship $ */
3: -- Start of Comments
4: --
5: -- NAME
6: -- OZF_Fund_Approval_PVT
7: --
8: -- PURPOSE
9: -- This package contains all transactions to be done for
10: -- Fund Request Approvals and Fund Transfer Approvals
23: -- 03-FEB-2004 julou Bug 3389553 - added token FUND_TYPE to notification messages.
24: -- 12/09/2005 kdass Bug 4870218 - SQL Repository fixes
25: -- 11-May-2006 asylvia Bug 5199719 - SQL Repository fixes
26: -- 22-Oct-2012 nirprasa Bug 14725235 - WHEN SETTING UP VOLUME REBATES BUDGETS, GETTING AN ERROR DURING THE APPROVAL
27: g_pkg_name CONSTANT VARCHAR2 (30) := 'OZF_Fund_Approval_PVT';
28: g_file_name CONSTANT VARCHAR2 (15) := 'ozfvfapb.pls';
29: g_fund_mode CONSTANT VARCHAR2 (15) := 'WORKFLOW';
30: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
31: --------------------------------------------------------------------------
1499: CLOSE c_get_rule;
1500: EXCEPTION
1501: WHEN OTHERS THEN
1502: IF G_DEBUG THEN
1503: ozf_utility_pvt.debug_message ('ozf_fund_approval_pvt.get_ntf_rule_values() exception.' || SQLERRM);
1504: END IF;
1505: RAISE;
1506: END Get_Ntf_Rule_Values;
1507: ---------------------------------------------------------------------
1650: , itemkey => itemkey
1651: , aname => 'SECURITY_GROUP_ID'
1652: );
1653:
1654: OZF_DEBUG_PVT.DEBUG_MO('OZF_Fund_Approval_PVT update_parbudget_status before setting context : fund_id '||l_fund_id);
1655:
1656: IF l_update_status IN ('APPROVED', 'REJECTED') AND
1657: (l_user_id IS NULL OR l_resp_id IS NULL OR l_appl_id IS NULL) THEN
1658: l_update_status := NULL;
1675: ,p_attr_name => 'AMS_ERROR_MSG'
1676: ,x_error_msg => l_error_msg
1677: );
1678: WF_CORE.context(
1679: 'OZF_FUND_APPROVAL_PVT'
1680: ,'update_parbudget_status'
1681: ,itemtype
1682: ,itemkey
1683: ,actid
1698:
1699: ozf_funds_pvt.init_fund_rec (x_fund_rec => l_fund_rec);
1700:
1701: --Bug 14725235
1702: OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF','OZF_Fund_Approval_PVT update_parbudget_status l_fund_id : '||l_fund_id);
1703: l_org_id := find_org_id (l_fund_id);
1704: OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF','OZF_Fund_Approval_PVT update_parbudget_status l_org_id : '||l_org_id);
1705: IF l_org_id IS NOT NULL THEN
1706: set_org_ctx (l_org_id);
1700:
1701: --Bug 14725235
1702: OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF','OZF_Fund_Approval_PVT update_parbudget_status l_fund_id : '||l_fund_id);
1703: l_org_id := find_org_id (l_fund_id);
1704: OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF','OZF_Fund_Approval_PVT update_parbudget_status l_org_id : '||l_org_id);
1705: IF l_org_id IS NOT NULL THEN
1706: set_org_ctx (l_org_id);
1707: END IF;
1708: OZF_DEBUG_PVT.DEBUG_MO('OZF_Fund_Approval_PVT update_parbudget_status after setting context : fund_id '||l_fund_id);
1704: OZF_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'OZF','OZF_Fund_Approval_PVT update_parbudget_status l_org_id : '||l_org_id);
1705: IF l_org_id IS NOT NULL THEN
1706: set_org_ctx (l_org_id);
1707: END IF;
1708: OZF_DEBUG_PVT.DEBUG_MO('OZF_Fund_Approval_PVT update_parbudget_status after setting context : fund_id '||l_fund_id);
1709:
1710: IF l_update_status = 'APPROVED' THEN
1711: l_next_status_id :=
1712: wf_engine.getitemattrnumber (
2043: WHEN OTHERS THEN
2044: x_return_status := fnd_api.g_ret_sts_error;
2045: RAISE;
2046: END get_fund_parent_owner;
2047: END ozf_fund_approval_pvt;