[Home] [Help]
1: PACKAGE BODY PA_ACTIONS_PVT as
2: /* $Header: PAACTNVB.pls 120.4.12020000.2 2013/03/28 13:43:54 djambhek ship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.pa_actions_pvt';
5:
1: PACKAGE BODY PA_ACTIONS_PVT as
2: /* $Header: PAACTNVB.pls 120.4.12020000.2 2013/03/28 13:43:54 djambhek ship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.pa_actions_pvt';
5:
6: Invalid_Arg_Exc_Dlv EXCEPTION ;
7: g_dlvr_types CONSTANT PA_LOOKUPS.LOOKUP_CODE%TYPE := 'PA_DLVR_TYPES';
8: g_actions CONSTANT PA_LOOKUPS.LOOKUP_CODE%TYPE := 'PA_ACTIONS';
416: WHEN OTHERS THEN
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: x_msg_count := 1;
419: x_msg_data := SQLERRM;
420: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PVT'
421: ,p_procedure_name => 'CREATE_DLV_ACTIONS_IN_BULK');
422: IF p_debug_mode = 'Y' THEN
423: pa_debug.g_err_stage := 'Exiting CREATE_DLV_ACTIONS_IN_BULK' ;
424: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
632: WHEN OTHERS THEN
633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
634: x_msg_count := 1;
635: x_msg_data := SQLERRM;
636: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PVT'
637: ,p_procedure_name => 'UPDATE_DLV_ACTIONS_IN_BULK');
638: IF p_debug_mode = 'Y' THEN
639: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
640: pa_debug.write('UPDATE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
830: WHEN OTHERS THEN
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832: x_msg_count := 1;
833: x_msg_data := SQLERRM;
834: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PVT'
835: ,p_procedure_name => 'DELETE_DLV_ACTIONS_IN_BULK');
836: IF p_debug_mode = 'Y' THEN
837: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
838: pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
914: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
915: FND_MSG_PUB.initialize;
916: END IF;
917:
918: PA_ACTIONS_PVT.IS_DELETE_ACTION_ALLOWED
919: (p_api_version => p_api_version
920: ,p_init_msg_list => FND_API.G_FALSE
921: ,p_commit => p_commit
922: ,p_validate_only => p_validate_only
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: x_msg_count := 1;
1114: x_msg_data := SQLERRM;
1115:
1116: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PVT'
1117: ,p_procedure_name => 'DELETE_DLV_ACTION');
1118:
1119: IF p_debug_mode = 'Y' THEN
1120: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: x_msg_count := 1;
1242: x_msg_data := SQLERRM;
1243:
1244: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PVT'
1245: ,p_procedure_name => 'IS_DELETE_ACTION_ALLOWED');
1246:
1247: IF p_debug_mode = 'Y' THEN
1248: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1557: END IF;
1558:
1559: -- If some thing is fetched call CREATE_DLV_ACTIONS_INBULK API
1560: IF nvl(l_name_tbl.LAST,0) > 0 THEN
1561: PA_ACTIONS_PVT.CREATE_DLV_ACTIONS_IN_BULK
1562: (p_api_version => p_api_version
1563: ,p_init_msg_list => p_init_msg_list
1564: ,p_commit => p_commit
1565: ,p_validate_only => p_validate_only
1786: IF get_source_actions%ISOPEN THEN
1787: CLOSE get_source_actions ;
1788: END IF ;
1789:
1790: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PVT'
1791: ,p_procedure_name => 'COPY_ACTIONS');
1792: IF p_debug_mode = 'Y' THEN
1793: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1794: pa_debug.write('COPY_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
1795: pa_debug.reset_curr_function;
1796: END IF;
1797: RAISE;
1798: END COPY_ACTIONS;
1799: END PA_ACTIONS_PVT;