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