[Home] [Help]
PACKAGE BODY: APPS.OKL_CS_TRANSACTIONS_PUB
Source
1 PACKAGE BODY okl_cs_transactions_pub AS
2 /* $Header: OKLPBFNB.pls 120.3 2008/02/22 10:20:03 dkagrawa ship $ */
3
4 ------------------------------------------------------------------------------
5 -- PROCEDURE get_totals
6 ------------------------------------------------------------------------------
7
8 PROCEDURE get_totals (p_select IN VARCHAR2,
9 p_from IN VARCHAR2,
10 p_where IN VARCHAR2,
11 x_inv_total OUT NOCOPY NUMBER,
12 x_rec_total OUT NOCOPY NUMBER,
13 x_due_total OUT NOCOPY NUMBER,
14 x_credit_total OUT NOCOPY NUMBER,
15 x_adjust_total OUT NOCOPY NUMBER,
16 x_row_count OUT NOCOPY NUMBER,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2) IS
20
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
27 SAVEPOINT get_totals;
28
29
30
31
32
33 -- PVT API call
34
35 okl_cs_transactions_pvt.get_totals (p_select => p_select,
36 p_from => p_from,
37 p_where => p_where,
38 x_inv_total => x_inv_total,
39 x_rec_total => x_rec_total,
40 x_due_total => x_due_total,
41 x_credit_total => x_credit_total,
42 x_adjust_total => x_adjust_total,
43 x_row_count => x_row_count,
44 x_return_status => l_return_status,
45 x_msg_count => l_msg_count,
46 x_msg_data => l_msg_data);
47
48 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
49 RAISE OKL_API.G_EXCEPTION_ERROR;
50 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
51 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
52 END IF;
53
54
55
56
57
58 x_return_status := l_return_status;
59
60
61 EXCEPTION
62
63 WHEN OKL_API.G_EXCEPTION_ERROR THEN
64 ROLLBACK TO get_totals;
65 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
66 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
67 p_data => x_msg_data);
68
69 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
70 ROLLBACK TO get_totals;
71 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
72 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
73 p_data => x_msg_data);
74
75 WHEN OTHERS THEN
76 ROLLBACK TO get_totals;
77 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
78 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,'get_totals');
79 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
80 p_data => x_msg_data);
81
82 END get_totals;
83
84
85 ------------------------------------------------------------------------------
86 -- PROCEDURE get_svf_info
87 ------------------------------------------------------------------------------
88
89 PROCEDURE get_svf_info (p_khr_id IN NUMBER,
90 p_svf_code IN VARCHAR2,
91 x_svf_info_rec OUT NOCOPY svf_info_rec,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2) IS
95
96 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
97 l_msg_count NUMBER;
98 l_msg_data VARCHAR2(2000);
99
100 BEGIN
101
102 SAVEPOINT get_svf_info;
103
104
105
106
107
108 -- PVT API call
109
110 okl_cs_transactions_pvt.get_svf_info (p_khr_id => p_khr_id,
111 p_svf_code => p_svf_code,
112 x_svf_info_rec => x_svf_info_rec,
113 x_return_status => l_return_status,
114 x_msg_count => l_msg_count,
115 x_msg_data => l_msg_data);
116
117 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
118 RAISE OKL_API.G_EXCEPTION_ERROR;
119 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
120 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
121 END IF;
122
123
124
125
126
127 x_return_status := l_return_status;
128
129
130 EXCEPTION
131
132 WHEN OKL_API.G_EXCEPTION_ERROR THEN
133 ROLLBACK TO get_svf_info;
134 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
135 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
136 p_data => x_msg_data);
137
138 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
139 ROLLBACK TO get_svf_info;
140 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
141 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
142 p_data => x_msg_data);
143
144 WHEN OTHERS THEN
145 ROLLBACK TO get_svf_info;
146 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
147 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'get_svf_info');
148 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
149 p_data => x_msg_data);
150
151 END get_svf_info;
152
153
154
155 ------------------------------------------------------------------------------
156 -- PROCEDURE get_credit_memo_info
157 ------------------------------------------------------------------------------
158
159 PROCEDURE get_credit_memo_info (p_khr_id IN NUMBER,
160 p_tai_id IN NUMBER,
161 x_trx_type OUT NOCOPY VARCHAR2,
162 x_inv_num OUT NOCOPY NUMBER,
163 x_trx_date OUT NOCOPY DATE,
164 x_trx_amount OUT NOCOPY NUMBER,
165 x_amnt_app OUT NOCOPY NUMBER,
166 x_amnt_due OUT NOCOPY NUMBER,
167 x_crd_amnt OUT NOCOPY NUMBER,
168 x_return_status OUT NOCOPY VARCHAR2,
169 x_msg_count OUT NOCOPY NUMBER,
170 x_msg_data OUT NOCOPY VARCHAR2) IS
171
172 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
173 l_msg_count NUMBER;
174 l_msg_data VARCHAR2(2000);
175
176 BEGIN
177
178 SAVEPOINT get_credit_memo_info;
179
180
181
182
183
184 -- PVT API call
185
186 okl_cs_transactions_pvt.get_credit_memo_info (p_khr_id => p_khr_id,
187 p_tai_id => p_tai_id,
188 x_trx_type => x_trx_type,
189 x_inv_num => x_inv_num,
190 x_trx_date => x_trx_date,
191 x_trx_amount => x_trx_amount,
192 x_amnt_app => x_amnt_app,
193 x_amnt_due => x_amnt_due,
194 x_crd_amnt => x_crd_amnt,
195 x_return_status => l_return_status,
196 x_msg_count => l_msg_count,
197 x_msg_data => l_msg_data);
198
199 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
200 RAISE OKL_API.G_EXCEPTION_ERROR;
201 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
202 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
203 END IF;
204
205
206
207
208
209 x_return_status := l_return_status;
210
211
212 EXCEPTION
213
214 WHEN OKL_API.G_EXCEPTION_ERROR THEN
215 ROLLBACK TO get_credit_memo_info;
216 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
217 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
218 p_data => x_msg_data);
219
220 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
221 ROLLBACK TO get_credit_memo_info;
222 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
223 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
224 p_data => x_msg_data);
225
226 WHEN OTHERS THEN
227 ROLLBACK TO get_credit_memo_info;
228 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
229 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'get_credit_memo_info');
230 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
231 p_data => x_msg_data);
232
233 END get_credit_memo_info;
234
235
236 ------------------------------------------------------------------------------
237 -- PROCEDURE check_process_template
238 ------------------------------------------------------------------------------
239
240 PROCEDURE check_process_template (p_ptm_code IN VARCHAR2,
241 x_return_status OUT NOCOPY VARCHAR2,
242 x_msg_count OUT NOCOPY NUMBER,
243 x_msg_data OUT NOCOPY VARCHAR2) IS
244
245 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
246 l_msg_count NUMBER;
247 l_msg_data VARCHAR2(2000);
248
249 BEGIN
250
251 SAVEPOINT check_process_template;
252
253
254
255
256
257 -- PVT API call
258
259 okl_cs_transactions_pvt.check_process_template (p_ptm_code => p_ptm_code,
260 x_return_status => l_return_status,
261 x_msg_count => l_msg_count,
262 x_msg_data => l_msg_data);
263
264 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
265 RAISE OKL_API.G_EXCEPTION_ERROR;
266 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
267 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
268 END IF;
269
270
271
272
273
274 x_return_status := l_return_status;
275
276
277 EXCEPTION
278
279 WHEN OKL_API.G_EXCEPTION_ERROR THEN
280 ROLLBACK TO check_process_template;
281 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
282 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
283 p_data => x_msg_data);
284
285 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
286 ROLLBACK TO check_process_template;
287 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
288 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
289 p_data => x_msg_data);
290
291 WHEN OTHERS THEN
292 ROLLBACK TO check_process_template;
293 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
294 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'check_process_template');
295 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
296 p_data => x_msg_data);
297
298 END check_process_template;
299
300
301 ------------------------------------------------------------------------------
302 -- PROCEDURE get_pvt_label_email
303 ------------------------------------------------------------------------------
304
305 PROCEDURE get_pvt_label_email (p_khr_id IN NUMBER,
306 x_email OUT NOCOPY VARCHAR2,
307 x_return_status OUT NOCOPY VARCHAR2,
308 x_msg_count OUT NOCOPY NUMBER,
309 x_msg_data OUT NOCOPY VARCHAR2) IS
310
311 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
312 l_msg_count NUMBER;
313 l_msg_data VARCHAR2(2000);
314
315 BEGIN
316
317 SAVEPOINT get_pvt_label_email;
318
319
320
321
322
323 -- PVT API call
324
325 okl_cs_transactions_pvt.get_pvt_label_email (p_khr_id => p_khr_id,
326 x_email => x_email,
327 x_return_status => l_return_status,
328 x_msg_count => l_msg_count,
329 x_msg_data => l_msg_data);
330
331 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
332 RAISE OKL_API.G_EXCEPTION_ERROR;
333 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
334 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335 END IF;
336
337
338
339
340
341 x_return_status := l_return_status;
342
343
344 EXCEPTION
345
346 WHEN OKL_API.G_EXCEPTION_ERROR THEN
347 ROLLBACK TO get_pvt_label_email;
348 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
349 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
350 p_data => x_msg_data);
351
352 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
353 ROLLBACK TO get_pvt_label_email;
354 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
355 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
356 p_data => x_msg_data);
357
358 WHEN OTHERS THEN
359 ROLLBACK TO get_pvt_label_email;
360 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
361 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'get_pvt_label_email');
362 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
363 p_data => x_msg_data);
364
365 END get_pvt_label_email;
366
367
368 ------------------------------------------------------------------------------
369 -- PROCEDURE create_svf_invoice
370 ------------------------------------------------------------------------------
371
372 PROCEDURE create_svf_invoice (p_khr_id IN NUMBER,
373 p_sty_name IN VARCHAR2,
374 p_svf_code IN VARCHAR2,
375 p_svf_amount IN NUMBER,
376 p_svf_desc IN VARCHAR2,
377 p_syndication_code IN VARCHAR2,
378 p_factoring_code IN VARCHAR2,
379 x_tai_id OUT NOCOPY NUMBER,
380 x_return_status OUT NOCOPY VARCHAR2,
381 x_msg_count OUT NOCOPY NUMBER,
382 x_msg_data OUT NOCOPY VARCHAR2) IS
383
384 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
385 l_msg_count NUMBER;
386 l_msg_data VARCHAR2(2000);
387
388 l_syndication_code VARCHAR2(30);
389 l_factoring_code VARCHAR2(30);
390
391 lx_tai_id NUMBER;
392
393 BEGIN
394
395 SAVEPOINT create_svf_invoice;
396
397 l_syndication_code := p_syndication_code;
398 l_factoring_code := p_factoring_code;
399
400
401
402
403
404 -- PVT API call
405
406 okl_cs_transactions_pvt.create_svf_invoice (p_khr_id => p_khr_id,
407 p_sty_name => p_sty_name,
408 p_svf_code => p_svf_code,
409 p_svf_amount => p_svf_amount,
410 p_svf_desc => p_svf_desc,
411 p_syndication_code => l_syndication_code,
412 p_factoring_code => l_factoring_code,
413 x_tai_id => x_tai_id,
414 x_return_status => l_return_status,
415 x_msg_count => x_msg_count,
416 x_msg_data => x_msg_data);
417
418 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
419 RAISE OKL_API.G_EXCEPTION_ERROR;
420 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
421 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422 END IF;
423
424
425
426 lx_tai_id := x_tai_id;
427
428
429
430 x_return_status := l_return_status;
431
432 EXCEPTION
433
434 WHEN OKL_API.G_EXCEPTION_ERROR THEN
435 ROLLBACK TO create_svf_invoice;
436 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
437 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
438 p_data => x_msg_data);
439
440 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
441 ROLLBACK TO create_svf_invoice;
442 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
443 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
444 p_data => x_msg_data);
445
446 WHEN OTHERS THEN
447 ROLLBACK TO create_svf_invoice;
448 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
449 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'create_svf_invoice');
450 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
451 p_data => x_msg_data);
452
453 END create_svf_invoice;
454
455
456 END okl_cs_transactions_pub;