[Home] [Help]
1: PACKAGE BODY DPP_APPROVAL_PVT AS
2: /* $Header: dppvappb.pls 120.31 2011/05/21 00:16:47 hekkiral noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_APPROVAL_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'dppvappb.pls';
1: PACKAGE BODY DPP_APPROVAL_PVT AS
2: /* $Header: dppvappb.pls 120.31 2011/05/21 00:16:47 hekkiral noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_APPROVAL_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'dppvappb.pls';
6:
7: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
8: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
80: l_min_reassign_level number;
81: l_action_code varchar2(30);
82: l_updateItemIn boolean := false;
83: l_user_name varchar2(200);
84: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.UPDATE_USER_ACTION';
85:
86: CURSOR csr_person_user (p_source_id IN NUMBER )IS
87: select fu.user_id, fu.user_name
88: from fnd_user fu
382: l_approver_level number;
383: l_resource_id number;
384: l_approvalProcessCompleteYNOut VARCHAR2(100);
385: l_currApprRec ame_util.approverRecord2;
386: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.GET_APPROVERS';
387:
388: CURSOR csr_approver_level (p_object_type in varchar2, p_object_id in number) IS
389: SELECT nvl(max(approval_level),0)
390: FROM DPP_APPROVAL_ACCESS
614: l_approver_email VARCHAR2(240);
615: l_approver_group_name VARCHAR2(50);
616: l_approver_sequence NUMBER;
617: l_approvalProcessCompleteYNOut VARCHAR2(100);
618: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.GET_ALLAPPROVERS';
619:
620: BEGIN
621: -- Standard begin of API savepoint
622: SAVEPOINT Get_AllApprovers_PVT;
678: FND_MSG_PUB.add;
679: RAISE FND_API.G_EXC_ERROR;
680: WHEN OTHERS THEN
681: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
682: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
683: fnd_message.set_token('ERRNO', sqlcode);
684: fnd_message.set_token('REASON', sqlerrm);
685: FND_MSG_PUB.add;
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: FND_MSG_PUB.add;
723: RAISE FND_API.G_EXC_ERROR;
724: WHEN OTHERS THEN
725: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
726: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
727: fnd_message.set_token('ERRNO', sqlcode);
728: fnd_message.set_token('REASON', sqlerrm);
729: FND_MSG_PUB.add;
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
749: FND_MSG_PUB.add;
750: RAISE FND_API.G_EXC_ERROR;
751: WHEN OTHERS THEN
752: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
753: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
754: fnd_message.set_token('ERRNO', sqlcode);
755: fnd_message.set_token('REASON', sqlerrm);
756: FND_MSG_PUB.add;
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: FND_MSG_PUB.add;
770: RAISE FND_API.G_EXC_ERROR;
771: WHEN OTHERS THEN
772: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
773: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
774: fnd_message.set_token('ERRNO', sqlcode);
775: fnd_message.set_token('REASON', sqlerrm);
776: FND_MSG_PUB.add;
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: l_api_name CONSTANT varchar2(80) := 'Clear_All_Approvals';
878: l_api_version CONSTANT number := 1.0;
879: l_application_id number := 9000;
880: l_object_type varchar2(30) := 'PRICE PROTECTION';
881: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.CLEAR_ALL_APPROVALS';
882:
883: BEGIN
884: -- Standard begin of API savepoint Update_User_Action_PVT
885: SAVEPOINT Clear_All_Approvals_PVT;
996: l_api_name CONSTANT varchar2(80) := 'Add_Access';
997: l_api_version CONSTANT number := 1.0;
998: l_approval_access_id NUMBER;
999: l_workflow_itemkey VARCHAR2(80);
1000: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.ADD_ACCESS';
1001:
1002: BEGIN
1003: -- Standard begin of API savepoint
1004: SAVEPOINT Add_Access_PVT;
1211: IS
1212: l_api_name CONSTANT varchar2(80) := 'Revoke_Access';
1213: l_api_version CONSTANT number := 1.0;
1214: l_approval_access_id number;
1215: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.REVOKE_ACCESS';
1216:
1217: CURSOR csr_curr_approvers (p_object_type IN VARCHAR2, p_object_id IN NUMBER )IS
1218: SELECT approval_access_id
1219: FROM DPP_APPROVAL_ACCESS
1378: l_security_group_id VARCHAR2(255) := p_security_group_id;
1379: l_org_id VARCHAR2(255) := p_org_id;
1380: l_param WF_PARAMETER_T;
1381: l_rang NUMBER;
1382: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.CONSTRUCT_PARAM_LIST';
1383:
1384: BEGIN
1385: l_rang := 0;
1386:
1471: l_event VARCHAR2(240);
1472:
1473: l_parameter_list wf_parameter_list_t := wf_parameter_list_t();
1474: l_parameter_t wf_parameter_t := wf_parameter_t(null, null);
1475: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.RAISE_EVENT';
1476:
1477: BEGIN
1478:
1479: SAVEPOINT Raise_Event_PVT;
1602: l_object_id number := p_approval_rec.object_id;
1603: l_status varchar2(30) := p_approval_rec.status_code;
1604: l_msg_callback_api varchar2(240) := p_msg_callback_api;
1605: l_final_approval number;
1606: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.SEND_NOTIFICATION';
1607:
1608: CURSOR csr_final_approval (p_object_type varchar2, p_object_id number) IS
1609: SELECT count(1)
1610: FROM dpp_approval_access
1878: errbuff VARCHAR2(4000);
1879: retcode VARCHAR2(10);
1880: l_login_id NUMBER := FND_GLOBAL.LOGIN_ID;
1881: l_user_id NUMBER := FND_PROFILE.VALUE('USER_ID');
1882: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_APPROVAL_PVT.PROCESS_USER_ACTION';
1883:
1884: BEGIN
1885: -- Standard begin of API savepoint
1886: SAVEPOINT Process_User_Action_PVT;
1915: WHERE transaction_header_id = p_approval_rec.object_id;
1916: EXCEPTION
1917: WHEN NO_DATA_FOUND THEN
1918: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1919: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
1920: fnd_message.set_token('ERRNO', sqlcode);
1921: fnd_message.set_token('REASON', 'Invalid Transaction Header ID');
1922: FND_MSG_PUB.add;
1923: RAISE FND_API.G_EXC_ERROR;
1922: FND_MSG_PUB.add;
1923: RAISE FND_API.G_EXC_ERROR;
1924: WHEN OTHERS THEN
1925: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1926: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
1927: fnd_message.set_token('ERRNO', sqlcode);
1928: fnd_message.set_token('REASON', sqlerrm);
1929: FND_MSG_PUB.add;
1930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: RAISE Fnd_Api.g_exc_unexpected_error;
2104: WHEN OTHERS THEN
2105: ROLLBACK;
2106: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2107: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
2108: fnd_message.set_token('ERRNO', sqlcode);
2109: fnd_message.set_token('REASON', sqlerrm);
2110: FND_MSG_PUB.add;
2111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2199: --
2200: END Process_User_Action;
2201:
2202: END DPP_APPROVAL_PVT;