[Home] [Help]
PACKAGE BODY: APPS.OKS_SALES_CREDIT_PUB
Source
1 PACKAGE BODY OKS_SALES_CREDIT_PUB AS
2 /* $Header: OKSPSCRB.pls 120.0 2005/05/27 05:06:12 appldev noship $ */
3
4 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
5 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_SALES_CREDIT_PUB';
6 G_SCRV_REC SCRV_REC_TYPE;
7 procedure reset(p_scrv_rec IN scrv_rec_type) is
8 begin
9 g_scrv_rec.id := p_scrv_rec.id;
10 g_scrv_rec.object_version_number := p_scrv_rec.object_version_number;
11 g_scrv_rec.created_by := p_scrv_rec.created_by;
12 g_scrv_rec.creation_date := p_scrv_rec.creation_date;
13 g_scrv_rec.last_updated_by := p_scrv_rec.last_updated_by;
14 g_scrv_rec.last_update_date := p_scrv_rec.last_update_date;
15
16 end reset;
17
18
19 -- Start of comments
20 --
21 -- Procedure Name : create_Sales_Credit
22 -- Description :
23 -- Business Rules :
24 -- Parameters :
25 -- Version : 1.0
26 -- End of comments
27
28 procedure Insert_Sales_Credit(p_api_version IN NUMBER,
29 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
30 x_return_status OUT NOCOPY VARCHAR2,
31 x_msg_count OUT NOCOPY NUMBER,
32 x_msg_data OUT NOCOPY VARCHAR2,
33 p_scrv_rec IN scrv_rec_type,
34 x_scrv_rec OUT NOCOPY scrv_rec_type) is
35 l_api_name CONSTANT VARCHAR2(30) := 'Insert_Sales_Credit';
36 l_api_version CONSTANT NUMBER := 1;
37 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38 begin
39 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
40 p_init_msg_list,
41 '_PUB',
42 x_return_status);
43 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
44 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
45 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
46 RAISE OKC_API.G_EXCEPTION_ERROR;
47 END IF;
48 --
49 -- Call Before Logic Hook
50 --
51 g_scrv_rec := p_scrv_rec;
52 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
53 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
54 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
55 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
56 raise OKC_API.G_EXCEPTION_ERROR;
57 END IF;
58 reset(p_scrv_rec);
59 OKS_SALES_CREDIT_PVT.create_Sales_Credit(p_api_version,
60 p_init_msg_list,
61 x_return_status,
62 x_msg_count,
63 x_msg_data,
64 g_scrv_rec,
65 x_scrv_rec);
66 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69 RAISE OKC_API.G_EXCEPTION_ERROR;
70 END IF;
71 --
72 -- Call After Logic Hook
73 --
74 g_scrv_rec := x_scrv_rec;
75 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
76 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
77 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
78 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
79 raise OKC_API.G_EXCEPTION_ERROR;
80 END IF;
81 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
82 EXCEPTION
83 WHEN OKC_API.G_EXCEPTION_ERROR THEN
84 x_return_status := OKC_API.HANDLE_EXCEPTIONS
85 (substr(l_api_name,1,26),
86 G_PKG_NAME,
87 'OKC_API.G_RET_STS_ERROR',
88 x_msg_count,
89 x_msg_data,
90 '_PUB');
91 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
92 x_return_status := OKC_API.HANDLE_EXCEPTIONS
93 (substr(l_api_name,1,26),
94 G_PKG_NAME,
95 'OKC_API.G_RET_STS_UNEXP_ERROR',
96 x_msg_count,
97 x_msg_data,
98 '_PUB');
99 WHEN OTHERS THEN
100 x_return_status := OKC_API.HANDLE_EXCEPTIONS
101 (substr(l_api_name,1,26),
102 G_PKG_NAME,
103 'OTHERS',
104 x_msg_count,
105 x_msg_data,
106 '_PUB');
107 end Insert_Sales_Credit;
108
109 -- Start of comments
110 --
111 -- Procedure Name : create_Sales_Credit
112 -- Description :
113 -- Business Rules :
114 -- Parameters :
115 -- Version : 1.0
116 -- End of comments
117
118 procedure Insert_Sales_Credit(p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
120 x_return_status OUT NOCOPY VARCHAR2,
121 x_msg_count OUT NOCOPY NUMBER,
122 x_msg_data OUT NOCOPY VARCHAR2,
123 p_scrv_tbl IN scrv_tbl_type,
124 x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
125 i NUMBER;
126 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
127 begin
128 OKC_API.init_msg_list(p_init_msg_list);
129 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
130 if (p_scrv_tbl.COUNT>0) then
131 i := p_scrv_tbl.FIRST;
132 LOOP
133 Insert_Sales_Credit(p_api_version=>p_api_version,
134 p_init_msg_list=>OKC_API.G_FALSE,
135 x_return_status=>l_return_status,
136 x_msg_count=>x_msg_count,
137 x_msg_data=>x_msg_data,
138 p_scrv_rec=>p_scrv_tbl(i),
139 x_scrv_rec=>x_scrv_tbl(i));
140 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
141 x_return_status := l_return_status;
142 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
143 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
144 x_return_status := l_return_status;
145 end if;
146 EXIT WHEN (i=p_scrv_tbl.LAST);
147 i := p_scrv_tbl.NEXT(i);
148 END LOOP;
149 end if;
150 exception
151 when others then NULL;
152 end Insert_Sales_Credit;
153
154 procedure update_Sales_Credit(p_api_version IN NUMBER,
155 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
156 x_return_status OUT NOCOPY VARCHAR2,
157 x_msg_count OUT NOCOPY NUMBER,
158 x_msg_data OUT NOCOPY VARCHAR2,
159 p_scrv_rec IN scrv_rec_type,
160 x_scrv_rec OUT NOCOPY scrv_rec_type) is
161 l_api_name CONSTANT VARCHAR2(30) := 'update_Sales_Credit';
162 l_api_version CONSTANT NUMBER := 1;
163 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
164 begin
165 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
166 p_init_msg_list,
167 '_PUB',
168 x_return_status);
169 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
170 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
171 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
172 RAISE OKC_API.G_EXCEPTION_ERROR;
173 END IF;
174 --
175 -- Call Before Logic Hook
176 --
177 g_scrv_rec := p_scrv_rec;
178 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
179 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
180 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
181 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
182 raise OKC_API.G_EXCEPTION_ERROR;
183 END IF;
184 reset(p_scrv_rec);
185 OKS_SALES_CREDIT_PVT.update_Sales_Credit(p_api_version,
186 p_init_msg_list,
187 x_return_status,
188 x_msg_count,
189 x_msg_data,
190 g_scrv_rec,
191 x_scrv_rec);
192 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
193 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
194 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
195 RAISE OKC_API.G_EXCEPTION_ERROR;
196 END IF;
197 --
198 -- Call After Logic Hook
199 --
200 g_scrv_rec := x_scrv_rec;
201 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
202 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
203 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
204 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
205 raise OKC_API.G_EXCEPTION_ERROR;
206 END IF;
207 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
208 EXCEPTION
209 WHEN OKC_API.G_EXCEPTION_ERROR THEN
210 x_return_status := OKC_API.HANDLE_EXCEPTIONS
211 (substr(l_api_name,1,26),
212 G_PKG_NAME,
213 'OKC_API.G_RET_STS_ERROR',
214 x_msg_count,
215 x_msg_data,
216 '_PUB');
217 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
218 x_return_status := OKC_API.HANDLE_EXCEPTIONS
219 (substr(l_api_name,1,26),
220 G_PKG_NAME,
221 'OKC_API.G_RET_STS_UNEXP_ERROR',
222 x_msg_count,
223 x_msg_data,
224 '_PUB');
225 WHEN OTHERS THEN
226 x_return_status := OKC_API.HANDLE_EXCEPTIONS
227 (substr(l_api_name,1,26),
228 G_PKG_NAME,
229 'OTHERS',
230 x_msg_count,
231 x_msg_data,
232 '_PUB');
233 end update_Sales_Credit;
234
235 -- Start of comments
236 --
237 -- Procedure Name : update_Sales_Credit
238 -- Description :
239 -- Business Rules :
240 -- Parameters :
241 -- Version : 1.0
242 -- End of comments
243
244 procedure update_Sales_Credit(p_api_version IN NUMBER,
245 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
246 x_return_status OUT NOCOPY VARCHAR2,
247 x_msg_count OUT NOCOPY NUMBER,
248 x_msg_data OUT NOCOPY VARCHAR2,
249 p_scrv_tbl IN scrv_tbl_type,
250 x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
251 i NUMBER;
252 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
253 begin
254 OKC_API.init_msg_list(p_init_msg_list);
255 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
256 if (p_scrv_tbl.COUNT>0) then
257 i := p_scrv_tbl.FIRST;
258 LOOP
259 update_Sales_Credit(p_api_version=>p_api_version,
260 p_init_msg_list=>OKC_API.G_FALSE,
261 x_return_status=>l_return_status,
262 x_msg_count=>x_msg_count,
263 x_msg_data=>x_msg_data,
264 p_scrv_rec=>p_scrv_tbl(i),
265 x_scrv_rec=>x_scrv_tbl(i));
266 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
267 x_return_status := l_return_status;
268 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
269 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
270 x_return_status := l_return_status;
271 end if;
272 EXIT WHEN (i=p_scrv_tbl.LAST);
273 i := p_scrv_tbl.NEXT(i);
274 END LOOP;
275 end if;
276 exception
277 when others then NULL;
278 end update_Sales_Credit;
279
280 -- Start of comments
281 --
282 -- Procedure Name : delete_Sales_Credit
283 -- Description :
284 -- Business Rules :
285 -- Parameters :
286 -- Version : 1.0
287 -- End of comments
288
289 procedure delete_Sales_Credit(p_api_version IN NUMBER,
290 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
291 x_return_status OUT NOCOPY VARCHAR2,
292 x_msg_count OUT NOCOPY NUMBER,
293 x_msg_data OUT NOCOPY VARCHAR2,
294 p_scrv_rec IN scrv_rec_type) is
295 l_api_name CONSTANT VARCHAR2(30) := 'delete_Sales_Credit';
296 l_api_version CONSTANT NUMBER := 1;
297 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
298 begin
299 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
300 p_init_msg_list,
301 '_PUB',
302 x_return_status);
303 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
304 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
305 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
306 RAISE OKC_API.G_EXCEPTION_ERROR;
307 END IF;
308 --
309 -- Call Before Logic Hook
310 --
311 g_scrv_rec := p_scrv_rec;
312 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
313 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
316 raise OKC_API.G_EXCEPTION_ERROR;
317 END IF;
318 reset(p_scrv_rec);
319 OKS_SALES_CREDIT_PVT.delete_Sales_Credit(p_api_version,
320 p_init_msg_list,
321 x_return_status,
322 x_msg_count,
323 x_msg_data,
324 g_scrv_rec);
325 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
326 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
327 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
328 RAISE OKC_API.G_EXCEPTION_ERROR;
329 END IF;
330 --
331 -- Call After Logic Hook
332 --
333 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
334 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
335 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
336 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
337 raise OKC_API.G_EXCEPTION_ERROR;
338 END IF;
339 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
340 EXCEPTION
341 WHEN OKC_API.G_EXCEPTION_ERROR THEN
342 x_return_status := OKC_API.HANDLE_EXCEPTIONS
343 (substr(l_api_name,1,26),
344 G_PKG_NAME,
345 'OKC_API.G_RET_STS_ERROR',
346 x_msg_count,
347 x_msg_data,
348 '_PUB');
349 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
350 x_return_status := OKC_API.HANDLE_EXCEPTIONS
351 (substr(l_api_name,1,26),
352 G_PKG_NAME,
353 'OKC_API.G_RET_STS_UNEXP_ERROR',
354 x_msg_count,
355 x_msg_data,
356 '_PUB');
357 WHEN OTHERS THEN
358 x_return_status := OKC_API.HANDLE_EXCEPTIONS
359 (substr(l_api_name,1,26),
360 G_PKG_NAME,
361 'OTHERS',
362 x_msg_count,
363 x_msg_data,
364 '_PUB');
365 end delete_Sales_Credit;
366
367 -- Start of comments
368 --
369 -- Procedure Name : delete_Sales_Credit
370 -- Description :
371 -- Business Rules :
372 -- Parameters :
373 -- Version : 1.0
374 -- End of comments
375
376 procedure delete_Sales_Credit(p_api_version IN NUMBER,
377 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
378 x_return_status OUT NOCOPY VARCHAR2,
379 x_msg_count OUT NOCOPY NUMBER,
380 x_msg_data OUT NOCOPY VARCHAR2,
381 p_scrv_tbl IN scrv_tbl_type) is
382 i NUMBER;
383 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
384 begin
385 OKC_API.init_msg_list(p_init_msg_list);
386 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
387 if (p_scrv_tbl.COUNT>0) then
388 i := p_scrv_tbl.FIRST;
389 LOOP
390 delete_Sales_Credit(p_api_version=>p_api_version,
391 p_init_msg_list=>OKC_API.G_FALSE,
392 x_return_status=>l_return_status,
393 x_msg_count=>x_msg_count,
394 x_msg_data=>x_msg_data,
395 p_scrv_rec=>p_scrv_tbl(i));
396 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
397 x_return_status := l_return_status;
398 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
399 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
400 x_return_status := l_return_status;
401 end if;
402 EXIT WHEN (i=p_scrv_tbl.LAST);
403 i := p_scrv_tbl.NEXT(i);
404 END LOOP;
405 end if;
406 exception
407 when others then NULL;
408 end delete_Sales_Credit;
409
410 -- Start of comments
411 --
412 -- Procedure Name : lock_Sales_Credit
413 -- Description :
414 -- Business Rules :
415 -- Parameters :
416 -- Version : 1.0
417 -- End of comments
418
419 procedure lock_Sales_Credit(p_api_version IN NUMBER,
420 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
421 x_return_status OUT NOCOPY VARCHAR2,
422 x_msg_count OUT NOCOPY NUMBER,
423 x_msg_data OUT NOCOPY VARCHAR2,
424 p_scrv_rec IN scrv_rec_type) is
425 l_api_name CONSTANT VARCHAR2(30) := 'lock_Sales_Credit';
426 l_api_version CONSTANT NUMBER := 1;
427 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
428 begin
429 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
430 p_init_msg_list,
431 '_PUB',
432 x_return_status);
433 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
434 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
435 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
436 RAISE OKC_API.G_EXCEPTION_ERROR;
437 END IF;
438 --
439 -- Call Before Logic Hook
440 --
441 g_scrv_rec := p_scrv_rec;
442 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
443 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
444 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
445 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
446 raise OKC_API.G_EXCEPTION_ERROR;
447 END IF;
448 reset(p_scrv_rec);
449 OKS_SALES_CREDIT_PVT.lock_Sales_Credit(p_api_version,
450 p_init_msg_list,
451 x_return_status,
452 x_msg_count,
453 x_msg_data,
454 g_scrv_rec);
455 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
456 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
458 RAISE OKC_API.G_EXCEPTION_ERROR;
459 END IF;
460 --
461 -- Call After Logic Hook
462 --
463 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
464 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
465 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
466 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
467 raise OKC_API.G_EXCEPTION_ERROR;
468 END IF;
469 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
470 EXCEPTION
471 WHEN OKC_API.G_EXCEPTION_ERROR THEN
472 x_return_status := OKC_API.HANDLE_EXCEPTIONS
473 (substr(l_api_name,1,26),
474 G_PKG_NAME,
475 'OKC_API.G_RET_STS_ERROR',
476 x_msg_count,
477 x_msg_data,
478 '_PUB');
479 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
480 x_return_status := OKC_API.HANDLE_EXCEPTIONS
481 (substr(l_api_name,1,26),
482 G_PKG_NAME,
483 'OKC_API.G_RET_STS_UNEXP_ERROR',
484 x_msg_count,
485 x_msg_data,
486 '_PUB');
487 WHEN OTHERS THEN
488 x_return_status := OKC_API.HANDLE_EXCEPTIONS
489 (substr(l_api_name,1,26),
490 G_PKG_NAME,
491 'OTHERS',
492 x_msg_count,
493 x_msg_data,
494 '_PUB');
495 end lock_Sales_Credit;
496
497 -- Start of comments
498 --
499 -- Procedure Name : lock_Sales_Credit
500 -- Description :
501 -- Business Rules :
502 -- Parameters :
503 -- Version : 1.0
504 -- End of comments
505
506 procedure lock_Sales_Credit(p_api_version IN NUMBER,
507 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
508 x_return_status OUT NOCOPY VARCHAR2,
509 x_msg_count OUT NOCOPY NUMBER,
510 x_msg_data OUT NOCOPY VARCHAR2,
511 p_scrv_tbl IN scrv_tbl_type) is
512 i NUMBER;
513 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
514 begin
515 OKC_API.init_msg_list(p_init_msg_list);
516 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
517 if (p_scrv_tbl.COUNT>0) then
518 i := p_scrv_tbl.FIRST;
519 LOOP
520 lock_Sales_Credit(p_api_version=>p_api_version,
521 p_init_msg_list=>OKC_API.G_FALSE,
522 x_return_status=>l_return_status,
523 x_msg_count=>x_msg_count,
524 x_msg_data=>x_msg_data,
525 p_scrv_rec=>p_scrv_tbl(i));
526 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
527 x_return_status := l_return_status;
528 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
529 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
530 x_return_status := l_return_status;
531 end if;
532 EXIT WHEN (i=p_scrv_tbl.LAST);
533 i := p_scrv_tbl.NEXT(i);
534 END LOOP;
535 end if;
536 exception
537 when others then NULL;
538 end lock_Sales_Credit;
539
540 -- Start of comments
541 --
542 -- Procedure Name : validate_Sales_Credit
543 -- Description :
544 -- Business Rules :
545 -- Parameters :
546 -- Version : 1.0
547 -- End of comments
548
549 procedure validate_Sales_Credit(p_api_version IN NUMBER,
550 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
551 x_return_status OUT NOCOPY VARCHAR2,
552 x_msg_count OUT NOCOPY NUMBER,
553 x_msg_data OUT NOCOPY VARCHAR2,
554 p_scrv_rec IN scrv_rec_type) is
555 l_api_name CONSTANT VARCHAR2(30) := 'validate_Sales_Credit';
556 l_api_version CONSTANT NUMBER := 1;
557 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
558 begin
559 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
560 p_init_msg_list,
561 '_PUB',
562 x_return_status);
563 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
565 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
566 RAISE OKC_API.G_EXCEPTION_ERROR;
567 END IF;
568 --
569 -- Call Before Logic Hook
570 --
571 g_scrv_rec := p_scrv_rec;
572 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
573 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
574 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
575 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
576 raise OKC_API.G_EXCEPTION_ERROR;
577 END IF;
578 reset(p_scrv_rec);
579 OKS_SALES_CREDIT_PVT.validate_Sales_Credit(p_api_version,
580 p_init_msg_list,
581 x_return_status,
582 x_msg_count,
583 x_msg_data,
584 g_scrv_rec);
585 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
586 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
587 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
588 RAISE OKC_API.G_EXCEPTION_ERROR;
589 END IF;
590 --
591 -- Call After Logic Hook
592 --
593 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
594 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
595 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
596 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
597 raise OKC_API.G_EXCEPTION_ERROR;
598 END IF;
599 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
600 EXCEPTION
601 WHEN OKC_API.G_EXCEPTION_ERROR THEN
602 x_return_status := OKC_API.HANDLE_EXCEPTIONS
603 (substr(l_api_name,1,26),
604 G_PKG_NAME,
605 'OKC_API.G_RET_STS_ERROR',
606 x_msg_count,
607 x_msg_data,
608 '_PUB');
609 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
610 x_return_status := OKC_API.HANDLE_EXCEPTIONS
611 (substr(l_api_name,1,26),
612 G_PKG_NAME,
613 'OKC_API.G_RET_STS_UNEXP_ERROR',
614 x_msg_count,
615 x_msg_data,
616 '_PUB');
617 WHEN OTHERS THEN
618 x_return_status := OKC_API.HANDLE_EXCEPTIONS
619 (substr(l_api_name,1,26),
620 G_PKG_NAME,
621 'OTHERS',
622 x_msg_count,
623 x_msg_data,
624 '_PUB');
625 end validate_Sales_Credit;
626
627 -- Start of comments
628 --
629 -- Procedure Name : validate_Sales_Credit
630 -- Description :
631 -- Business Rules :
632 -- Parameters :
633 -- Version : 1.0
634 -- End of comments
635
636 procedure validate_Sales_Credit(p_api_version IN NUMBER,
637 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
638 x_return_status OUT NOCOPY VARCHAR2,
639 x_msg_count OUT NOCOPY NUMBER,
640 x_msg_data OUT NOCOPY VARCHAR2,
641 p_scrv_tbl IN scrv_tbl_type) is
642 i NUMBER;
643 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
644 begin
645 OKC_API.init_msg_list(p_init_msg_list);
646 x_return_status:= OKC_API.G_RET_STS_SUCCESS;
647 if (p_scrv_tbl.COUNT>0) then
648 i := p_scrv_tbl.FIRST;
649 LOOP
650 validate_Sales_Credit(p_api_version=>p_api_version,
651 p_init_msg_list=>OKC_API.G_FALSE,
652 x_return_status=>l_return_status,
653 x_msg_count=>x_msg_count,
654 x_msg_data=>x_msg_data,
655 p_scrv_rec=>p_scrv_tbl(i));
656 if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
657 x_return_status := l_return_status;
658 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
659 elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
660 x_return_status := l_return_status;
661 end if;
662 EXIT WHEN (i=p_scrv_tbl.LAST);
663 i := p_scrv_tbl.NEXT(i);
664 END LOOP;
665 end if;
666 exception
667 when others then NULL;
668 end validate_Sales_Credit;
669
670 end OKS_SALES_CREDIT_PUB;