[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCRUAL_SEC_PUB
Source
1 PACKAGE BODY OKL_ACCRUAL_SEC_PUB AS
2 /* $Header: OKLPASCB.pls 115.0 2003/03/06 22:12:47 sgiyer noship $ */
3
4
5 PROCEDURE CREATE_STREAMS(p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_khr_id IN NUMBER) IS
11
12
13 BEGIN
14 x_return_status := FND_API.G_RET_STS_SUCCESS;
15
16 OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
17 p_api_version => p_api_version,
18 p_init_msg_list => p_init_msg_list,
19 x_return_status => x_return_status,
20 x_msg_count => x_msg_count,
21 x_msg_data => x_msg_data,
22 p_khr_id => p_khr_id);
23 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
25 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
26 RAISE FND_API.G_EXC_ERROR;
27 END IF;
28
29 EXCEPTION
30 WHEN FND_API.G_EXC_ERROR THEN
31 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
32 ,p_count => x_msg_count
33 ,p_data => x_msg_data);
34 x_return_status := FND_API.G_RET_STS_ERROR;
35
36 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
37 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
38 ,p_count => x_msg_count
39 ,p_data => x_msg_data);
40 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41
42 WHEN OTHERS THEN
43 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCRUAL_SEC_PUB','CREATE_STREAMS');
44 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
45 ,p_count => x_msg_count
46 ,p_data => x_msg_data);
47 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
48
49 END CREATE_STREAMS;
50
51 -- procedure to cancel accrual securitization streams for LEASE contracts.
52 PROCEDURE CANCEL_STREAMS(p_api_version IN NUMBER,
53 p_init_msg_list IN VARCHAR2,
54 x_return_status OUT NOCOPY VARCHAR2,
55 x_msg_count OUT NOCOPY NUMBER,
56 x_msg_data OUT NOCOPY VARCHAR2,
57 p_khr_id IN NUMBER,
58 p_cancel_date IN DATE) IS
59
60
61
62 BEGIN
63
64 x_return_status := FND_API.G_RET_STS_SUCCESS;
65
66 OKL_ACCRUAL_SEC_PVT.CANCEL_STREAMS(
67 p_api_version => p_api_version,
68 p_init_msg_list => p_init_msg_list,
69 x_return_status => x_return_status,
70 x_msg_count => x_msg_count,
71 x_msg_data => x_msg_data,
72 p_khr_id => p_khr_id,
73 p_cancel_date => p_cancel_date);
74 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
75 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
76 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
77 RAISE FND_API.G_EXC_ERROR;
78 END IF;
79
80 EXCEPTION
81 WHEN FND_API.G_EXC_ERROR THEN
82 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
83 ,p_count => x_msg_count
84 ,p_data => x_msg_data);
85 x_return_status := FND_API.G_RET_STS_ERROR;
86
87 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
89 ,p_count => x_msg_count
90 ,p_data => x_msg_data);
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92
93 WHEN OTHERS THEN
94 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCRUAL_SEC_PUB','CANCEL_STREAMS');
95 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
96 ,p_count => x_msg_count
97 ,p_data => x_msg_data);
98 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99
100 END CANCEL_STREAMS;
101
102 END OKL_ACCRUAL_SEC_PUB;