[Home] [Help]
PACKAGE BODY: APPS.OKL_CURE_VNDR_RFND_PUB
Source
1 PACKAGE BODY OKL_CURE_VNDR_RFND_PUB AS
2 /* $Header: OKLPRFSB.pls 115.1 2003/04/25 15:12:06 jsanju noship $ */
3
4 PROCEDURE create_cure_refund(
5 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_cure_rfnd_tbl IN cure_rfnd_tbl_type,
11 x_cure_rfnd_tbl OUT NOCOPY cure_rfnd_tbl_type
12 ) IS
13
14 l_api_name VARCHAR2(30) := 'create_cure_refund';
15 l_api_version CONSTANT NUMBER := 1.0;
16
17 BEGIN
18
19 x_return_status := OKC_API.START_ACTIVITY(
20 p_api_name => l_api_name,
21 p_pkg_name => g_pkg_name,
22 p_init_msg_list => p_init_msg_list,
23 l_api_version => l_api_version,
24 p_api_version => p_api_version,
25 p_api_type => g_api_type,
26 x_return_status => x_return_status);
27
28 -- check if activity started successfully
29 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
30 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
31 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
32 raise OKC_API.G_EXCEPTION_ERROR;
33 End If;
34
35 OKL_CURE_VNDR_RFND_PVT.create_cure_refund(
36 p_api_version => p_api_version,
37 p_init_msg_list => p_init_msg_list,
38 x_return_status => x_return_status,
39 x_msg_count => x_msg_count,
40 x_msg_data => x_msg_data,
41 p_cure_rfnd_tbl => p_cure_rfnd_tbl,
42 x_cure_rfnd_tbl => x_cure_rfnd_tbl
43 );
44
45 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
46 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
47 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
48 raise OKC_API.G_EXCEPTION_ERROR;
49 End If;
50
51 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
52
53 EXCEPTION
54 when OKC_API.G_EXCEPTION_ERROR then
55 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
56 p_api_name => l_api_name,
57 p_pkg_name => g_pkg_name,
58 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
59 x_msg_count => x_msg_count,
60 x_msg_data => x_msg_data,
61 p_api_type => g_api_type);
62
63 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
64 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
65 p_api_name => l_api_name,
66 p_pkg_name => g_pkg_name,
67 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
68 x_msg_count => x_msg_count,
69 x_msg_data => x_msg_data,
70 p_api_type => g_api_type);
71
72 when OTHERS then
73 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
74 p_api_name => l_api_name,
75 p_pkg_name => g_pkg_name,
76 p_exc_name => 'OTHERS',
77 x_msg_count => x_msg_count,
78 x_msg_data => x_msg_data,
79 p_api_type => g_api_type);
80
81 END;
82
83
84 PROCEDURE update_cure_refund(
85 p_api_version IN NUMBER,
86 p_init_msg_list IN VARCHAR2,
87 x_return_status OUT NOCOPY VARCHAR2,
88 x_msg_count OUT NOCOPY NUMBER,
89 x_msg_data OUT NOCOPY VARCHAR2,
90 p_cure_rfnd_tbl IN cure_rfnd_tbl_type,
91 x_cure_rfnd_tbl OUT NOCOPY cure_rfnd_tbl_type
92 ) IS
93
94 l_api_name VARCHAR2(30) := 'update_cure_refund';
95 l_api_version CONSTANT NUMBER := 1.0;
96
97
98 BEGIN
99
100 x_return_status := OKC_API.START_ACTIVITY(
101 p_api_name => l_api_name,
102 p_pkg_name => g_pkg_name,
103 p_init_msg_list => p_init_msg_list,
104 l_api_version => l_api_version,
105 p_api_version => p_api_version,
106 p_api_type => g_api_type,
107 x_return_status => x_return_status);
108
109 -- check if activity started successfully
110 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
111 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
112 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
113 raise OKC_API.G_EXCEPTION_ERROR;
114 End If;
115
116 OKL_CURE_VNDR_RFND_PVT.update_cure_refund(
117 p_api_version => p_api_version,
118 p_init_msg_list => p_init_msg_list,
119 x_return_status => x_return_status,
120 x_msg_count => x_msg_count,
121 x_msg_data => x_msg_data,
122 p_cure_rfnd_tbl => p_cure_rfnd_tbl,
123 x_cure_rfnd_tbl => x_cure_rfnd_tbl
124 );
125
126 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
127 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
128 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
129 raise OKC_API.G_EXCEPTION_ERROR;
130 End If;
131
132 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
133
134 EXCEPTION
135 when OKC_API.G_EXCEPTION_ERROR then
136 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
137 p_api_name => l_api_name,
138 p_pkg_name => g_pkg_name,
139 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
140 x_msg_count => x_msg_count,
141 x_msg_data => x_msg_data,
142 p_api_type => g_api_type);
143
144 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
145 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
146 p_api_name => l_api_name,
147 p_pkg_name => g_pkg_name,
148 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
149 x_msg_count => x_msg_count,
150 x_msg_data => x_msg_data,
151 p_api_type => g_api_type);
152
153 when OTHERS then
154 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
155 p_api_name => l_api_name,
156 p_pkg_name => g_pkg_name,
157 p_exc_name => 'OTHERS',
158 x_msg_count => x_msg_count,
159 x_msg_data => x_msg_data,
160 p_api_type => g_api_type);
161
162 END;
163
164 PROCEDURE delete_cure_refund(
165 p_api_version IN NUMBER,
166 p_init_msg_list IN VARCHAR2 ,
167 x_return_status OUT NOCOPY VARCHAR2,
168 x_msg_count OUT NOCOPY NUMBER,
169 x_msg_data OUT NOCOPY VARCHAR2,
170 p_cure_rfnd_tbl IN cure_rfnd_tbl_type
171 ) IS
172
173 l_api_name VARCHAR2(30) := 'delete_cure_refund';
174 l_api_version CONSTANT NUMBER := 1.0;
175
176 BEGIN
177
178 x_return_status := OKC_API.START_ACTIVITY(
179 p_api_name => l_api_name,
180 p_pkg_name => g_pkg_name,
181 p_init_msg_list => p_init_msg_list,
182 l_api_version => l_api_version,
183 p_api_version => p_api_version,
184 p_api_type => g_api_type,
185 x_return_status => x_return_status);
186
187 -- check if activity started successfully
188 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
189 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
190 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
191 raise OKC_API.G_EXCEPTION_ERROR;
192 End If;
193
194 OKL_CURE_VNDR_RFND_PVT.delete_cure_refund(
195 p_api_version => p_api_version,
196 p_init_msg_list => p_init_msg_list,
197 x_return_status => x_return_status,
198 x_msg_count => x_msg_count,
199 x_msg_data => x_msg_data,
200 p_cure_rfnd_tbl => p_cure_rfnd_tbl
201 );
202
203 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
204 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205 Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
206 raise OKC_API.G_EXCEPTION_ERROR;
207 End If;
208
209 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
210
211 EXCEPTION
212 when OKC_API.G_EXCEPTION_ERROR then
213 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
214 p_api_name => l_api_name,
215 p_pkg_name => g_pkg_name,
216 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
217 x_msg_count => x_msg_count,
218 x_msg_data => x_msg_data,
219 p_api_type => g_api_type);
220
221 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
222 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
223 p_api_name => l_api_name,
224 p_pkg_name => g_pkg_name,
225 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
226 x_msg_count => x_msg_count,
227 x_msg_data => x_msg_data,
228 p_api_type => g_api_type);
229
230 when OTHERS then
231 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
232 p_api_name => l_api_name,
233 p_pkg_name => g_pkg_name,
234 p_exc_name => 'OTHERS',
235 x_msg_count => x_msg_count,
236 x_msg_data => x_msg_data,
237 p_api_type => g_api_type);
238
239 END;
240
241 END OKL_CURE_VNDR_RFND_PUB;