[Home] [Help]
9936: ( p_run_id => l_run_id
9937: ,x_return_status => l_return_status
9938: ,x_msg_data => l_msg_data
9939: ,x_msg_count => l_msg_count);
9940: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9941: IF P_DEBUG_MODE = 'Y' THEN
9942: pa_debug.G_err_stage := 'delte cint sources errored out' ;
9943: pa_debug.write_file('Delete_alloc_run: ' || 'LOG',pa_debug.G_err_stage);
9944: END IF;
9941: IF P_DEBUG_MODE = 'Y' THEN
9942: pa_debug.G_err_stage := 'delte cint sources errored out' ;
9943: pa_debug.write_file('Delete_alloc_run: ' || 'LOG',pa_debug.G_err_stage);
9944: END IF;
9945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9946: END IF;
9947: END IF;
9948: -- lock_rule(p_rule_id, l_run_id) ;
9949: -- Delete Transactions from pa_alloc_txn_details
10246: completion_status BOOLEAN;
10247: l_module_name VARCHAR2(100);
10248: BEGIN
10249: x_msg_count := 0;
10250: x_return_status := FND_API.G_RET_STS_SUCCESS;
10251: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
10252: l_module_name := 'release_capint_txns';
10253: pa_debug.set_curr_function( p_function => 'release_capint_txns',
10254: p_debug_mode => l_debug_mode );
10269: pa_debug.write_file('LOG',pa_debug.g_err_stage);
10270: END IF;
10271: --If failed insert errors into alloc_exceptions table and raise error
10272: IF x_msg_data is NOT NULL then
10273: x_return_status := FND_API.G_RET_STS_ERROR;
10274: alloc_errors( -1, p_run_id, 'R', 'E',x_msg_data, FALSE );
10275: Else
10276: x_return_status := 'S';
10277: End if ;
10300: /* bug fix:3123539 Setting these values as success
10301: the concurrent process should error out only for the unexpected errors
10302: */
10303: x_msg_count := 0;
10304: x_return_status := FND_API.G_RET_STS_SUCCESS;
10305: x_msg_data := Null;
10306: IF l_debug_mode = 'Y' THEN
10307: pa_debug.g_err_stage:= 'Leaving release_capint_txns return status ['||x_return_status||']';
10308: pa_debug.write_file('LOG',pa_debug.g_err_stage);
10309: END IF;
10310: pa_debug.reset_curr_function;
10311: EXCEPTION
10312: WHEN OTHERS THEN
10313: x_return_status := FND_API.G_RET_STS_ERROR;
10314: x_msg_count := FND_MSG_PUB.count_msg;
10315: IF l_debug_mode = 'Y' THEN
10316: x_msg_data:=sqlerrm;
10317: pa_debug.write_file('cap_int run: ' || 'LOG', x_msg_data);
10358: FROM pa_alloc_txn_details
10359: WHERE run_id=p_run_id;
10360: BEGIN
10361: x_msg_count := 0;
10362: x_return_status := FND_API.G_RET_STS_SUCCESS;
10363: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
10364: l_module_name := 'delete_cint_source_dets';
10365: pa_debug.set_curr_function( p_function => l_module_name,
10366: p_debug_mode => l_debug_mode );
10385: END IF;
10386: pa_debug.reset_curr_function;
10387: EXCEPTION
10388: WHEN others THEN
10389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10390: x_msg_count := 1;
10391: x_msg_data := SQLERRM;
10392: FND_MSG_PUB.add_exc_msg
10393: ( p_pkg_name => 'pa_alloc_run'