[Home] [Help]
PACKAGE BODY: APPS.OKL_CURE_RECON_PUB
Source
1 PACKAGE BODY OKL_CURE_RECON_PUB AS
2 /* $Header: OKLPRCOB.pls 120.2 2006/08/11 10:46:51 gboomina noship $ */
3
4 G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_esg_transport_pvt';
5 G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 G_IS_DEBUG_STATEMENT_ON BOOLEAN;
7
8
9
10 PROCEDURE UPDATE_CURE_INVOICE (
11 p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.G_FALSE,
13 p_commit IN VARCHAR2 DEFAULT fnd_api.G_FALSE,
14 p_report_id IN NUMBER,
15 p_invoice_date IN DATE,
16 p_cam_tbl IN cure_amount_tbl,
17 p_operation IN VARCHAR2,
18 x_return_status OUT NOCOPY VARCHAR2,
19 x_msg_count OUT NOCOPY NUMBER,
20 x_msg_data OUT NOCOPY VARCHAR2) IS
21 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22 l_msg_count NUMBER ;
23 l_msg_data VARCHAR2(2000);
24
25 BEGIN
26 IF (G_DEBUG_ENABLED = 'Y') THEN
27 G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
28 END IF;
29 SAVEPOINT UPDATE_CURE_INVOICE;
30 OKL_CURE_RECON_PVT.UPDATE_CURE_INVOICE(
31 p_api_version =>p_api_version,
32 p_init_msg_list =>p_init_msg_list,
33 p_commit => p_commit,
34 p_report_id =>p_report_id,
35 p_invoice_date =>p_invoice_date,
36 p_cam_tbl =>p_cam_tbl,
37 p_operation =>p_operation,
38 x_return_status => l_return_status,
39 x_msg_count => l_msg_count,
40 x_msg_data => l_msg_data );
41
42 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
43 RAISE Fnd_Api.G_EXC_ERROR;
44 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
45 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
46 ELSE
47 IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
48 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL_CURE_RECON_PUB.UPDATE_CURE_INVOICE status is '
49 ||l_return_status || 'operation was ' ||p_operation);
50 END IF;
51 x_return_status :=l_return_status;
52 END IF;
53
54 FND_MSG_PUB.Count_And_Get
55 ( p_count => x_msg_count,
56 p_data => x_msg_data
57 );
58
59 EXCEPTION
60
61 WHEN Fnd_Api.G_EXC_ERROR THEN
62 ROLLBACK TO UPDATE_CURE_INVOICE;
63 x_return_status := Fnd_Api.G_RET_STS_ERROR;
64 x_msg_count := l_msg_count ;
65 x_msg_data := l_msg_data ;
66 Fnd_Msg_Pub.count_and_get(
67 p_count => x_msg_count
68 ,p_data => x_msg_data);
69 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
70 ROLLBACK TO UPDATE_CURE_INVOICE;
71 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
72 x_msg_count := l_msg_count ;
73 x_msg_data := l_msg_data ;
74 Fnd_Msg_Pub.count_and_get(
75 p_count => x_msg_count
76 ,p_data => x_msg_data);
77 WHEN OTHERS THEN
78 ROLLBACK TO UPDATE_CURE_INVOICE;
79 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
80 x_msg_count := l_msg_count ;
81 x_msg_data := l_msg_data ;
82 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CURE_RECON_PUB','UPDATE_CURE_INVOICE');
83 Fnd_Msg_Pub.count_and_get(
84 p_count => x_msg_count
85 ,p_data => x_msg_data);
86
87 END UPDATE_CURE_INVOICE;
88
89 END OKL_CURE_RECON_PUB;
90