DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKC_PRICE_ADJUSTMENT_PUB

Source


1 package body okc_price_adjustment_PUB AS
2  /* $Header: OKCPPATB.pls 120.0 2005/05/25 22:50:02 appldev noship $*/
3 	l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4 
5 -- Start of comments
6 --
7 -- Procedure Name  : create_price_adjustment
8 -- Description     :
9 -- Business Rules  :
10 -- Parameters      :
11 -- Version         : 1.0
12 -- End of comments
13 
14 PROCEDURE create_price_adjustment(
15     p_api_version                  IN NUMBER,
16     p_init_msg_list                IN VARCHAR2 ,
17     x_return_status                OUT NOCOPY VARCHAR2,
18     x_msg_count                    OUT NOCOPY NUMBER,
19     x_msg_data                     OUT NOCOPY VARCHAR2,
20     p_patv_rec                     IN patv_rec_type,
21     x_patv_rec                     OUT NOCOPY patv_rec_type) is
22 begin
23   OKC_PRICE_ADJUSTMENT_PVT.create_price_adjustment(
24     p_api_version                  ,
25     p_init_msg_list                ,
26     x_return_status                ,
27     x_msg_count                    ,
28     x_msg_data                     ,
29     p_patv_rec                     ,
30     x_patv_rec                     );
31 end;
32 
33 -- Start of comments
34 --
35 -- Procedure Name  : create_price_adjustment
36 -- Description     :
37 -- Business Rules  :
38 -- Parameters      :
39 -- Version         : 1.0
40 -- End of comments
41 
42  PROCEDURE create_price_adjustment(
43     p_api_version                  IN NUMBER,
44     p_init_msg_list                IN VARCHAR2 ,
45     x_return_status                OUT NOCOPY VARCHAR2,
46     x_msg_count                    OUT NOCOPY NUMBER,
47     x_msg_data                     OUT NOCOPY VARCHAR2,
48     p_patv_tbl                     IN patv_tbl_type,
49     x_patv_tbl                     OUT NOCOPY patv_tbl_type) is
50     i                              NUMBER := 0;
51     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
52 
53 BEGIN
54   x_return_status := OKC_API.G_RET_STS_SUCCESS;
55   IF p_patv_tbl.COUNT > 0 THEN
56      i := p_patv_tbl.FIRST;
57      LOOP
58        create_price_adjustment(
59            p_api_version,
60            p_init_msg_list,
61            l_return_status,
62            x_msg_count,
63            x_msg_data,
64            p_patv_tbl(i),
65            x_patv_tbl(i));
66        IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
67           IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68             x_return_status := l_return_status;
69             raise G_EXCEPTION_HALT_VALIDATION;
70           ELSE
71             x_return_status := l_return_status;
72           END IF;
73         END IF;
74         EXIT WHEN (i = p_patv_tbl.LAST);
75         i := p_patv_tbl.NEXT(i);
76      END LOOP;
77     END IF;
78   EXCEPTION
79     WHEN G_EXCEPTION_HALT_VALIDATION THEN
80       NULL;
81     WHEN OTHERS THEN
82       OKC_API.set_message(p_app_name      => g_app_name,
83                           p_msg_name      => g_unexpected_error,
84                           p_token1        => g_sqlcode_token,
85                           p_token1_value  => sqlcode,
86                           p_token2        => g_sqlerrm_token,
87                           p_token2_value  => sqlerrm);
88       x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
89 END create_price_adjustment;
90 
91 -- Start of comments
92 --
93 -- Procedure Name  : update_price_adjustment
94 -- Description     :
95 -- Business Rules  :
96 -- Parameters      :
97 -- Version         : 1.0
98 -- End of comments
99 
100  PROCEDURE update_price_adjustment(
101     p_api_version                  IN NUMBER,
102     p_init_msg_list                IN VARCHAR2 ,
103     x_return_status                OUT NOCOPY VARCHAR2,
104     x_msg_count                    OUT NOCOPY NUMBER,
105     x_msg_data                     OUT NOCOPY VARCHAR2,
106     p_patv_rec                     IN patv_rec_type,
107     x_patv_rec                     OUT NOCOPY patv_rec_type) is
108 begin
109   OKC_PRICE_ADJUSTMENT_PVT.update_price_adjustment(
110     p_api_version                  ,
111     p_init_msg_list                ,
112     x_return_status                ,
113     x_msg_count                    ,
114     x_msg_data                     ,
115     p_patv_rec                     ,
116     x_patv_rec                     );
117 end;
118 
119 -- Start of comments
120 --
121 -- Procedure Name  : update_price_adjustment
122 -- Description     :
123 -- Business Rules  :
124 -- Parameters      :
125 -- Version         : 1.0
126 -- End of comments
127 
128  PROCEDURE update_price_adjustment(
129     p_api_version                  IN NUMBER,
130     p_init_msg_list                IN VARCHAR2 ,
131     x_return_status                OUT NOCOPY VARCHAR2,
132     x_msg_count                    OUT NOCOPY NUMBER,
133     x_msg_data                     OUT NOCOPY VARCHAR2,
134     p_patv_tbl                     IN patv_tbl_type,
135     x_patv_tbl                     OUT NOCOPY patv_tbl_type) is
136     i                              NUMBER := 0;
137     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
138 
139 BEGIN
140   x_return_status := OKC_API.G_RET_STS_SUCCESS;
141   IF p_patv_tbl.COUNT > 0 THEN
142      i := p_patv_tbl.FIRST;
143      LOOP
144        update_price_adjustment(
145            p_api_version,
146            p_init_msg_list,
147            l_return_status,
148            x_msg_count,
149            x_msg_data,
150            p_patv_tbl(i),
151            x_patv_tbl(i));
152        IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
153           IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154             x_return_status := l_return_status;
155             raise G_EXCEPTION_HALT_VALIDATION;
156           ELSE
157             x_return_status := l_return_status;
158           END IF;
159        END IF;
160        EXIT WHEN (i = p_patv_tbl.LAST);
161        i := p_patv_tbl.NEXT(i);
162      END LOOP;
163     END IF;
164   EXCEPTION
165     WHEN G_EXCEPTION_HALT_VALIDATION THEN
166       NULL;
167     WHEN OTHERS THEN
168       OKC_API.set_message(p_app_name      => g_app_name,
169                           p_msg_name      => g_unexpected_error,
170                           p_token1        => g_sqlcode_token,
171                           p_token1_value  => sqlcode,
172                           p_token2        => g_sqlerrm_token,
173                           p_token2_value  => sqlerrm);
174       x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
175 END update_price_adjustment;
176 
177 
178 -- Start of comments
179 --
180 -- Procedure Name  : delete_price_adjustment
181 -- Description     :
182 -- Business Rules  :
183 -- Parameters      :
184 -- Version         : 1.0
185 -- End of comments
186 
187  PROCEDURE delete_price_adjustment(
188     p_api_version                  IN NUMBER,
189     p_init_msg_list                IN VARCHAR2 ,
190     x_return_status                OUT NOCOPY VARCHAR2,
191     x_msg_count                    OUT NOCOPY NUMBER,
192     x_msg_data                     OUT NOCOPY VARCHAR2,
193     p_patv_rec                     IN patv_rec_type) is
194 begin
195   OKC_PRICE_ADJUSTMENT_PVT.delete_price_adjustment(
196     p_api_version                  ,
197     p_init_msg_list                ,
198     x_return_status                ,
199     x_msg_count                    ,
200     x_msg_data                     ,
201     p_patv_rec                     );
202 end;
203 
204 
205 -- Start of comments
206 --
207 -- Procedure Name  : delete_price_adjustment
208 -- Description     :
209 -- Business Rules  :
210 -- Parameters      :
211 -- Version         : 1.0
212 -- End of comments
213 
214  PROCEDURE delete_price_adjustment(
215     p_api_version                  IN NUMBER,
216     p_init_msg_list                IN VARCHAR2 ,
217     x_return_status                OUT NOCOPY VARCHAR2,
218     x_msg_count                    OUT NOCOPY NUMBER,
219     x_msg_data                     OUT NOCOPY VARCHAR2,
220     p_patv_tbl                     IN patv_tbl_type) is
221     i                              NUMBER := 0;
222     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223 
224 BEGIN
225   x_return_status := OKC_API.G_RET_STS_SUCCESS;
226   IF p_patv_tbl.COUNT > 0 THEN
227      i := p_patv_tbl.FIRST;
228      LOOP
229        delete_price_adjustment(
230            p_api_version,
231            p_init_msg_list,
232            l_return_status,
233            x_msg_count,
234            x_msg_data,
235            p_patv_tbl(i));
236        IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
237           IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
238             x_return_status := l_return_status;
239             raise G_EXCEPTION_HALT_VALIDATION;
240           ELSE
241             x_return_status := l_return_status;
242           END IF;
243         END IF;
244         EXIT WHEN (i = p_patv_tbl.LAST);
245         i := p_patv_tbl.NEXT(i);
246      END LOOP;
247     END IF;
248   EXCEPTION
249     WHEN G_EXCEPTION_HALT_VALIDATION THEN
250       NULL;
251     WHEN OTHERS THEN
252       OKC_API.set_message(p_app_name      => g_app_name,
253                           p_msg_name      => g_unexpected_error,
254                           p_token1        => g_sqlcode_token,
255                           p_token1_value  => sqlcode,
256                           p_token2        => g_sqlerrm_token,
257                           p_token2_value  => sqlerrm);
258       x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
259 END delete_price_adjustment;
260 
261 
262 -- Start of comments
263 --
264 -- Procedure Name  : validate_price_adjustment
265 -- Description     :
266 -- Business Rules  :
267 -- Parameters      :
268 -- Version         : 1.0
269 -- End of comments
270 
271  PROCEDURE validate_price_adjustment(
272     p_api_version                  IN NUMBER,
273     p_init_msg_list                IN VARCHAR2 ,
274     x_return_status                OUT NOCOPY VARCHAR2,
275     x_msg_count                    OUT NOCOPY NUMBER,
276     x_msg_data                     OUT NOCOPY VARCHAR2,
277     p_patv_rec                     IN patv_rec_type) is
278 begin
279   OKC_PRICE_ADJUSTMENT_PVT.validate_price_adjustment(
280     p_api_version                  ,
281     p_init_msg_list                ,
282     x_return_status                ,
283     x_msg_count                    ,
284     x_msg_data                     ,
285     p_patv_rec                     );
286 end;
287 
288 
289 -- Start of comments
290 --
291 -- Procedure Name  : validate_price_adjustment
292 -- Description     :
293 -- Business Rules  :
294 -- Parameters      :
295 -- Version         : 1.0
296 -- End of comments
297 
298  PROCEDURE validate_price_adjustment(
299     p_api_version                  IN NUMBER,
300     p_init_msg_list                IN VARCHAR2 ,
301     x_return_status                OUT NOCOPY VARCHAR2,
302     x_msg_count                    OUT NOCOPY NUMBER,
303     x_msg_data                     OUT NOCOPY VARCHAR2,
304     p_patv_tbl                     IN patv_tbl_type) is
305     i                              NUMBER := 0;
306     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
307 
308 BEGIN
309   x_return_status := OKC_API.G_RET_STS_SUCCESS;
310   IF p_patv_tbl.COUNT > 0 THEN
311      i := p_patv_tbl.FIRST;
312      LOOP
313        validate_price_adjustment(
314            p_api_version,
315            p_init_msg_list,
316            l_return_status,
317            x_msg_count,
318            x_msg_data,
319            p_patv_tbl(i));
320        IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
321           IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
322             x_return_status := l_return_status;
323             raise G_EXCEPTION_HALT_VALIDATION;
324           ELSE
325             x_return_status := l_return_status;
326           END IF;
327         END IF;
328         EXIT WHEN (i = p_patv_tbl.LAST);
329         i := p_patv_tbl.NEXT(i);
330      END LOOP;
331     END IF;
332   EXCEPTION
333     WHEN G_EXCEPTION_HALT_VALIDATION THEN
334       NULL;
335     WHEN OTHERS THEN
336       OKC_API.set_message(p_app_name      => g_app_name,
337                           p_msg_name      => g_unexpected_error,
338                           p_token1        => g_sqlcode_token,
339                           p_token1_value  => sqlcode,
340                           p_token2        => g_sqlerrm_token,
341                           p_token2_value  => sqlerrm);
342       x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
343 END validate_price_adjustment;
344 
345 
346 -- Start of comments
347 --
348 -- Procedure Name  : lock_price_adjustment
349 -- Description     :
350 -- Business Rules  :
351 -- Parameters      :
352 -- Version         : 1.0
353 -- End of comments
354 
355  PROCEDURE lock_price_adjustment(
356     p_api_version                  IN NUMBER,
357     p_init_msg_list                IN VARCHAR2 ,
358     x_return_status                OUT NOCOPY VARCHAR2,
359     x_msg_count                    OUT NOCOPY NUMBER,
360     x_msg_data                     OUT NOCOPY VARCHAR2,
361     p_patv_rec                     IN patv_rec_type) is
362 begin
363   OKC_PRICE_ADJUSTMENT_PVT.lock_price_adjustment(
364     p_api_version                  ,
365     p_init_msg_list                ,
366     x_return_status                ,
367     x_msg_count                    ,
368     x_msg_data                     ,
369     p_patv_rec                     );
370 end;
371 
372 
373 -- Start of comments
374 --
375 -- Procedure Name  : lock_price_adjustment
376 -- Description     :
377 -- Business Rules  :
378 -- Parameters      :
379 -- Version         : 1.0
380 -- End of comments
381 
382  PROCEDURE lock_price_adjustment(
383     p_api_version                  IN NUMBER,
384     p_init_msg_list                IN VARCHAR2 ,
385     x_return_status                OUT NOCOPY VARCHAR2,
386     x_msg_count                    OUT NOCOPY NUMBER,
387     x_msg_data                     OUT NOCOPY VARCHAR2,
388     p_patv_tbl                     IN patv_tbl_type) is
389     i                              NUMBER := 0;
390     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
391 
392 BEGIN
393   x_return_status := OKC_API.G_RET_STS_SUCCESS;
394   IF p_patv_tbl.COUNT > 0 THEN
395      i := p_patv_tbl.FIRST;
396      LOOP
397        lock_price_adjustment(
398            p_api_version,
399            p_init_msg_list,
400            l_return_status,
401            x_msg_count,
402            x_msg_data,
403            p_patv_tbl(i));
404        IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
405           IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
406             x_return_status := l_return_status;
407             raise G_EXCEPTION_HALT_VALIDATION;
408           ELSE
409             x_return_status := l_return_status;
410           END IF;
411         END IF;
412         EXIT WHEN (i = p_patv_tbl.LAST);
413         i := p_patv_tbl.NEXT(i);
414      END LOOP;
415     END IF;
416   EXCEPTION
417     WHEN G_EXCEPTION_HALT_VALIDATION THEN
418       NULL;
419     WHEN OTHERS THEN
420       OKC_API.set_message(p_app_name      => g_app_name,
421                           p_msg_name      => g_unexpected_error,
422                           p_token1        => g_sqlcode_token,
423                           p_token1_value  => sqlcode,
424                           p_token2        => g_sqlerrm_token,
425                           p_token2_value  => sqlerrm);
426       x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
427 END lock_price_adjustment;
428 
429 
430 -- Start of comments
431 --
432 -- Procedure Name  : create_price_adj_assoc
433 -- Description     :
434 -- Business Rules  :
435 -- Parameters      :
436 -- Version         : 1.0
437 -- End of comments
438 
439  PROCEDURE create_price_adj_assoc(
440     p_api_version                  IN NUMBER,
441     p_init_msg_list                IN VARCHAR2 ,
442     x_return_status                OUT NOCOPY VARCHAR2,
443     x_msg_count                    OUT NOCOPY NUMBER,
444     x_msg_data                     OUT NOCOPY VARCHAR2,
445     p_pacv_rec                     IN pacv_rec_type,
446     x_pacv_rec                     OUT NOCOPY pacv_rec_type) is
447 begin
448   OKC_PRICE_ADJUSTMENT_PVT.create_price_adj_assoc(
449     p_api_version                  ,
450     p_init_msg_list                ,
451     x_return_status                ,
452     x_msg_count                    ,
453     x_msg_data                     ,
454     p_pacv_rec                     ,
455     x_pacv_rec                     );
456 end;
457 
458 
459 -- Start of comments
460 --
461 -- Procedure Name  : create_price_adj_assoc
462 -- Description     :
463 -- Business Rules  :
464 -- Parameters      :
465 -- Version         : 1.0
466 -- End of comments
467 
468  PROCEDURE create_price_adj_assoc(
469     p_api_version                  IN NUMBER,
470     p_init_msg_list                IN VARCHAR2 ,
471     x_return_status                OUT NOCOPY VARCHAR2,
472     x_msg_count                    OUT NOCOPY NUMBER,
473     x_msg_data                     OUT NOCOPY VARCHAR2,
474     p_pacv_tbl                     IN pacv_tbl_type,
475     x_pacv_tbl                     OUT NOCOPY pacv_tbl_type) is
476 begin
477   OKC_PRICE_ADJUSTMENT_PVT.create_price_adj_assoc(
478     p_api_version                  ,
479     p_init_msg_list                ,
480     x_return_status                ,
481     x_msg_count                    ,
482     x_msg_data                     ,
483     p_pacv_tbl                     ,
484     x_pacv_tbl                     );
485 
486 end;
487 
488 
489 -- Start of comments
490 --
491 -- Procedure Name  : update_price_adj_assoc
492 -- Description     :
493 -- Business Rules  :
494 -- Parameters      :
495 -- Version         : 1.0
496 -- End of comments
497 
498  PROCEDURE update_price_adj_assoc(
499     p_api_version                  IN NUMBER,
500     p_init_msg_list                IN VARCHAR2 ,
501     x_return_status                OUT NOCOPY VARCHAR2,
502     x_msg_count                    OUT NOCOPY NUMBER,
503     x_msg_data                     OUT NOCOPY VARCHAR2,
504     p_pacv_rec                     IN pacv_rec_type,
505     x_pacv_rec                     OUT NOCOPY pacv_rec_type) is
506 begin
507   OKC_PRICE_ADJUSTMENT_PVT.update_price_adj_assoc(
508     p_api_version                  ,
509     p_init_msg_list                ,
510     x_return_status                ,
511     x_msg_count                    ,
512     x_msg_data                     ,
513     p_pacv_rec                     ,
514     x_pacv_rec                     );
515 end;
516 
517 
518 -- Start of comments
519 --
520 -- Procedure Name  : update_price_adj_assoc
521 -- Description     :
522 -- Business Rules  :
523 -- Parameters      :
524 -- Version         : 1.0
525 -- End of comments
526 
527  PROCEDURE update_price_adj_assoc(
528     p_api_version                  IN NUMBER,
529     p_init_msg_list                IN VARCHAR2 ,
530     x_return_status                OUT NOCOPY VARCHAR2,
531     x_msg_count                    OUT NOCOPY NUMBER,
532     x_msg_data                     OUT NOCOPY VARCHAR2,
533     p_pacv_tbl                     IN pacv_tbl_type,
534     x_pacv_tbl                     OUT NOCOPY pacv_tbl_type) is
535 begin
536   OKC_PRICE_ADJUSTMENT_PVT.update_price_adj_assoc(
537     p_api_version                  ,
538     p_init_msg_list                ,
539     x_return_status                ,
540     x_msg_count                    ,
541     x_msg_data                     ,
542     p_pacv_tbl                     ,
543     x_pacv_tbl                     );
544 end;
545 
546 
547 -- Start of comments
548 --
549 -- Procedure Name  : delete_price_adj_assoc
550 -- Description     :
551 -- Business Rules  :
552 -- Parameters      :
553 -- Version         : 1.0
554 -- End of comments
555 
556  PROCEDURE delete_price_adj_assoc(
557     p_api_version                  IN NUMBER,
558     p_init_msg_list                IN VARCHAR2 ,
559     x_return_status                OUT NOCOPY VARCHAR2,
560     x_msg_count                    OUT NOCOPY NUMBER,
561     x_msg_data                     OUT NOCOPY VARCHAR2,
562     p_pacv_rec                     IN pacv_rec_type) is
563 begin
564   OKC_PRICE_ADJUSTMENT_PVT.delete_price_adj_assoc(
565     p_api_version                  ,
566     p_init_msg_list                ,
567     x_return_status                ,
568     x_msg_count                    ,
569     x_msg_data                     ,
570     p_pacv_rec                     );
571 end;
572 
573 -- Start of comments
574 --
575 -- Procedure Name  : delete_price_adj_assoc
576 -- Description     :
577 -- Business Rules  :
578 -- Parameters      :
579 -- Version         : 1.0
580 -- End of comments
581 
582  PROCEDURE delete_price_adj_assoc(
583     p_api_version                  IN NUMBER,
584     p_init_msg_list                IN VARCHAR2 ,
585     x_return_status                OUT NOCOPY VARCHAR2,
586     x_msg_count                    OUT NOCOPY NUMBER,
587     x_msg_data                     OUT NOCOPY VARCHAR2,
588     p_pacv_tbl                     IN pacv_tbl_type ) is
589 begin
590   OKC_PRICE_ADJUSTMENT_PVT.delete_price_adj_assoc(
591     p_api_version                  ,
592     p_init_msg_list                ,
593     x_return_status                ,
594     x_msg_count                    ,
595     x_msg_data                     ,
596     p_pacv_tbl                     );
597 end;
598 
599 -- Start of comments
600 --
601 -- Procedure Name  : validate_price_adj_assoc
602 -- Description     :
603 -- Business Rules  :
604 -- Parameters      :
605 -- Version         : 1.0
606 -- End of comments
607 
608  PROCEDURE validate_price_adj_assoc(
609     p_api_version                  IN NUMBER,
610     p_init_msg_list                IN VARCHAR2 ,
611     x_return_status                OUT NOCOPY VARCHAR2,
612     x_msg_count                    OUT NOCOPY NUMBER,
613     x_msg_data                     OUT NOCOPY VARCHAR2,
614     p_pacv_rec                     IN pacv_rec_type) is
615 begin
616   OKC_PRICE_ADJUSTMENT_PVT.validate_price_adj_assoc(
617     p_api_version                  ,
618     p_init_msg_list                ,
619     x_return_status                ,
620     x_msg_count                    ,
621     x_msg_data                     ,
622     p_pacv_rec                     );
623 end;
624 
625 -- Start of comments
626 --
627 -- Procedure Name  : validate_price_adj_assoc
628 -- Description     :
629 -- Business Rules  :
630 -- Parameters      :
631 -- Version         : 1.0
632 -- End of comments
633 
634  PROCEDURE validate_price_adj_assoc(
635     p_api_version                  IN NUMBER,
636     p_init_msg_list                IN VARCHAR2 ,
637     x_return_status                OUT NOCOPY VARCHAR2,
638     x_msg_count                    OUT NOCOPY NUMBER,
639     x_msg_data                     OUT NOCOPY VARCHAR2,
640     p_pacv_tbl                     IN pacv_tbl_type) is
641 begin
642   OKC_PRICE_ADJUSTMENT_PVT.validate_price_adj_assoc(
643     p_api_version                  ,
644     p_init_msg_list                ,
645     x_return_status                ,
646     x_msg_count                    ,
647     x_msg_data                     ,
648     p_pacv_tbl                     );
649 
650 end;
651 
652 -- Start of comments
653 --
654 -- Procedure Name  : lock_price_adj_assoc
655 -- Description     :
656 -- Business Rules  :
657 -- Parameters      :
658 -- Version         : 1.0
659 -- End of comments
660 
661  PROCEDURE lock_price_adj_assoc(
662     p_api_version                  IN NUMBER,
663     p_init_msg_list                IN VARCHAR2 ,
664     x_return_status                OUT NOCOPY VARCHAR2,
665     x_msg_count                    OUT NOCOPY NUMBER,
666     x_msg_data                     OUT NOCOPY VARCHAR2,
667     p_pacv_rec                     IN pacv_rec_type ) is
668 begin
669   OKC_PRICE_ADJUSTMENT_PVT.lock_price_adj_assoc(
670     p_api_version                  ,
671     p_init_msg_list                ,
672     x_return_status                ,
673     x_msg_count                    ,
674     x_msg_data                     ,
675     p_pacv_rec                     );
676 
677 end;
678 
679 -- Start of comments
680 --
681 -- Procedure Name  : lock_price_adj_assoc
682 -- Description     :
683 -- Business Rules  :
684 -- Parameters      :
685 -- Version         : 1.0
686 -- End of comments
687 
688  PROCEDURE lock_price_adj_assoc(
689     p_api_version                  IN NUMBER,
690     p_init_msg_list                IN VARCHAR2 ,
691     x_return_status                OUT NOCOPY VARCHAR2,
692     x_msg_count                    OUT NOCOPY NUMBER,
693     x_msg_data                     OUT NOCOPY VARCHAR2,
694     p_pacv_tbl                     IN pacv_tbl_type ) is
695 begin
696   OKC_PRICE_ADJUSTMENT_PVT.lock_price_adj_assoc(
697     p_api_version                  ,
698     p_init_msg_list                ,
699     x_return_status                ,
700     x_msg_count                    ,
701     x_msg_data                     ,
702     p_pacv_tbl                     );
703 end;
704 
705 -- Start of comments
706 --
707 -- Procedure Name  : create_price_att_value
708 -- Description     :
709 -- Business Rules  :
710 -- Parameters      :
711 -- Version         : 1.0
712 -- End of comments
713 
714   PROCEDURE create_price_att_value(
715     p_api_version                  IN NUMBER,
716     p_init_msg_list                IN VARCHAR2 ,
717     x_return_status                OUT NOCOPY VARCHAR2,
718     x_msg_count                    OUT NOCOPY NUMBER,
719     x_msg_data                     OUT NOCOPY VARCHAR2,
720     p_pavv_rec                     IN pavv_rec_type,
721     x_pavv_rec                     OUT NOCOPY pavv_rec_type) is
722 begin
723   OKC_PRICE_ADJUSTMENT_PVT.create_price_att_value(
724     p_api_version                  ,
725     p_init_msg_list                ,
726     x_return_status                ,
727     x_msg_count                    ,
728     x_msg_data                     ,
729     p_pavv_rec                     ,
730     x_pavv_rec                     );
731 end;
732 
733 -- Start of comments
734 --
735 -- Procedure Name  : create_price_att_value
736 -- Description     :
737 -- Business Rules  :
738 -- Parameters      :
739 -- Version         : 1.0
740 -- End of comments
741 
742  PROCEDURE create_price_att_value(
743     p_api_version                  IN NUMBER,
744     p_init_msg_list                IN VARCHAR2 ,
745     x_return_status                OUT NOCOPY VARCHAR2,
746     x_msg_count                    OUT NOCOPY NUMBER,
747     x_msg_data                     OUT NOCOPY VARCHAR2,
748     p_pavv_tbl                     IN pavv_tbl_type,
749     x_pavv_tbl                     OUT NOCOPY pavv_tbl_type) is
750 begin
751   OKC_PRICE_ADJUSTMENT_PVT.create_price_att_value(
752     p_api_version                  ,
753     p_init_msg_list                ,
754     x_return_status                ,
755     x_msg_count                    ,
756     x_msg_data                     ,
757     p_pavv_tbl                     ,
758     x_pavv_tbl                     );
759 end;
760 
761 -- Start of comments
762 --
763 -- Procedure Name  : update_price_att_value
764 -- Description     :
765 -- Business Rules  :
766 -- Parameters      :
767 -- Version         : 1.0
768 -- End of comments
769 
770  PROCEDURE update_price_att_value(
771     p_api_version                  IN NUMBER,
772     p_init_msg_list                IN VARCHAR2 ,
773     x_return_status                OUT NOCOPY VARCHAR2,
774     x_msg_count                    OUT NOCOPY NUMBER,
775     x_msg_data                     OUT NOCOPY VARCHAR2,
776     p_pavv_rec                     IN pavv_rec_type,
777     x_pavv_rec                     OUT NOCOPY pavv_rec_type) is
778 begin
779   OKC_PRICE_ADJUSTMENT_PVT.update_price_att_value(
780     p_api_version                  ,
781     p_init_msg_list                ,
782     x_return_status                ,
783     x_msg_count                    ,
784     x_msg_data                     ,
785     p_pavv_rec                     ,
786     x_pavv_rec                     );
787 end;
788 
789 -- Start of comments
790 --
791 -- Procedure Name  : update_price_att_value
792 -- Description     :
793 -- Business Rules  :
794 -- Parameters      :
795 -- Version         : 1.0
796 -- End of comments
797 
798  PROCEDURE update_price_att_value(
799     p_api_version                  IN NUMBER,
800     p_init_msg_list                IN VARCHAR2 ,
801     x_return_status                OUT NOCOPY VARCHAR2,
802     x_msg_count                    OUT NOCOPY NUMBER,
803     x_msg_data                     OUT NOCOPY VARCHAR2,
804     p_pavv_tbl                     IN pavv_tbl_type,
805     x_pavv_tbl                     OUT NOCOPY pavv_tbl_type) is
806 begin
807   OKC_PRICE_ADJUSTMENT_PVT.update_price_att_value(
808     p_api_version                  ,
809     p_init_msg_list                ,
810     x_return_status                ,
811     x_msg_count                    ,
812     x_msg_data                     ,
813     p_pavv_tbl                     ,
814     x_pavv_tbl                     );
815 end;
816 
817 -- Start of comments
818 --
819 -- Procedure Name  : delete_price_att_value
820 -- Description     :
821 -- Business Rules  :
822 -- Parameters      :
823 -- Version         : 1.0
824 -- End of comments
825 
826  PROCEDURE delete_price_att_value(
827     p_api_version                  IN NUMBER,
828     p_init_msg_list                IN VARCHAR2 ,
829     x_return_status                OUT NOCOPY VARCHAR2,
830     x_msg_count                    OUT NOCOPY NUMBER,
831     x_msg_data                     OUT NOCOPY VARCHAR2,
832     p_pavv_rec                     IN pavv_rec_type) is
833 begin
834   OKC_PRICE_ADJUSTMENT_PVT.delete_price_att_value(
835     p_api_version                  ,
836     p_init_msg_list                ,
837     x_return_status                ,
838     x_msg_count                    ,
839     x_msg_data                     ,
840     p_pavv_rec                     );
841 end;
842 
843 -- Start of comments
844 --
845 -- Procedure Name  : delete_price_att_value
846 -- Description     :
847 -- Business Rules  :
848 -- Parameters      :
849 -- Version         : 1.0
850 -- End of comments
851 
852  PROCEDURE delete_price_att_value(
853     p_api_version                  IN NUMBER,
854     p_init_msg_list                IN VARCHAR2 ,
855     x_return_status                OUT NOCOPY VARCHAR2,
856     x_msg_count                    OUT NOCOPY NUMBER,
857     x_msg_data                     OUT NOCOPY VARCHAR2,
858     p_pavv_tbl                     IN pavv_tbl_type ) is
859 begin
860   OKC_PRICE_ADJUSTMENT_PVT.delete_price_att_value(
861     p_api_version                  ,
862     p_init_msg_list                ,
863     x_return_status                ,
864     x_msg_count                    ,
865     x_msg_data                     ,
866     p_pavv_tbl                     );
867 end;
868 
869 -- Start of comments
870 --
871 -- Procedure Name  : validate_price_att_value
872 -- Description     :
873 -- Business Rules  :
874 -- Parameters      :
875 -- Version         : 1.0
876 -- End of comments
877 
878  PROCEDURE validate_price_att_value(
879     p_api_version                  IN NUMBER,
880     p_init_msg_list                IN VARCHAR2 ,
881     x_return_status                OUT NOCOPY VARCHAR2,
882     x_msg_count                    OUT NOCOPY NUMBER,
883     x_msg_data                     OUT NOCOPY VARCHAR2,
884     p_pavv_rec                     IN pavv_rec_type) is
885 begin
886   OKC_PRICE_ADJUSTMENT_PVT.validate_price_att_value(
887     p_api_version                  ,
888     p_init_msg_list                ,
889     x_return_status                ,
890     x_msg_count                    ,
891     x_msg_data                     ,
892     p_pavv_rec                     );
893 end;
894 
895 -- Start of comments
896 --
897 -- Procedure Name  : validate_price_att_value
898 -- Description     :
899 -- Business Rules  :
900 -- Parameters      :
901 -- Version         : 1.0
902 -- End of comments
903 
904  PROCEDURE validate_price_att_value(
905     p_api_version                  IN NUMBER,
906     p_init_msg_list                IN VARCHAR2 ,
907     x_return_status                OUT NOCOPY VARCHAR2,
908     x_msg_count                    OUT NOCOPY NUMBER,
909     x_msg_data                     OUT NOCOPY VARCHAR2,
910     p_pavv_tbl                     IN pavv_tbl_type ) is
911 begin
912   OKC_PRICE_ADJUSTMENT_PVT.validate_price_att_value(
913     p_api_version                  ,
914     p_init_msg_list                ,
915     x_return_status                ,
916     x_msg_count                    ,
917     x_msg_data                     ,
918     p_pavv_tbl                     );
919 end;
920 
921 -- Start of comments
922 --
923 -- Procedure Name  : lock_price_att_value
924 -- Description     :
925 -- Business Rules  :
926 -- Parameters      :
927 -- Version         : 1.0
928 -- End of comments
929 
930  PROCEDURE lock_price_att_value(
931     p_api_version                  IN NUMBER,
932     p_init_msg_list                IN VARCHAR2 ,
933     x_return_status                OUT NOCOPY VARCHAR2,
934     x_msg_count                    OUT NOCOPY NUMBER,
935     x_msg_data                     OUT NOCOPY VARCHAR2,
936     p_pavv_rec                     IN pavv_rec_type ) is
937 begin
938   OKC_PRICE_ADJUSTMENT_PVT.lock_price_att_value(
939     p_api_version                  ,
940     p_init_msg_list                ,
941     x_return_status                ,
942     x_msg_count                    ,
943     x_msg_data                     ,
944     p_pavv_rec                     );
945 end;
946 
947 -- Start of comments
948 --
949 -- Procedure Name  : lock_price_att_value
950 -- Description     :
951 -- Business Rules  :
952 -- Parameters      :
953 -- Version         : 1.0
954 -- End of comments
955 
956  PROCEDURE lock_price_att_value(
957     p_api_version                  IN NUMBER,
958     p_init_msg_list                IN VARCHAR2 ,
959     x_return_status                OUT NOCOPY VARCHAR2,
960     x_msg_count                    OUT NOCOPY NUMBER,
961     x_msg_data                     OUT NOCOPY VARCHAR2,
962     p_pavv_tbl                     IN pavv_tbl_type) is
963 begin
964   OKC_PRICE_ADJUSTMENT_PVT.lock_price_att_value(
965     p_api_version                  ,
966     p_init_msg_list                ,
967     x_return_status                ,
968     x_msg_count                    ,
969     x_msg_data                     ,
970     p_pavv_tbl                     );
971 end;
972 
973 -- Start of comments
974 --
975 -- Procedure Name  : create_price_adj_attrib
976 -- Description     :
977 -- Business Rules  :
978 -- Parameters      :
979 -- Version         : 1.0
980 -- End of comments
981 
982  PROCEDURE create_price_adj_attrib(
983     p_api_version                  IN NUMBER,
984     p_init_msg_list                IN VARCHAR2 ,
985     x_return_status                OUT NOCOPY VARCHAR2,
986     x_msg_count                    OUT NOCOPY NUMBER,
987     x_msg_data                     OUT NOCOPY VARCHAR2,
988     p_paav_rec                     IN paav_rec_type,
989     x_paav_rec                     OUT NOCOPY paav_rec_type) is
990 begin
991   OKC_PRICE_ADJUSTMENT_PVT.create_price_adj_attrib(
992     p_api_version                  ,
993     p_init_msg_list                ,
994     x_return_status                ,
995     x_msg_count                    ,
996     x_msg_data                     ,
997     p_paav_rec                     ,
998     x_paav_rec                     );
999 end;
1000 
1001 -- Start of comments
1002 --
1003 -- Procedure Name  : create_price_adj_attrib
1004 -- Description     :
1005 -- Business Rules  :
1006 -- Parameters      :
1007 -- Version         : 1.0
1008 -- End of comments
1009 
1010  PROCEDURE create_price_adj_attrib(
1011     p_api_version                  IN NUMBER,
1012     p_init_msg_list                IN VARCHAR2 ,
1013     x_return_status                OUT NOCOPY VARCHAR2,
1014     x_msg_count                    OUT NOCOPY NUMBER,
1015     x_msg_data                     OUT NOCOPY VARCHAR2,
1016     p_paav_tbl                     IN paav_tbl_type,
1017     x_paav_tbl                     OUT NOCOPY paav_tbl_type) is
1018 begin
1019   OKC_PRICE_ADJUSTMENT_PVT.create_price_adj_attrib(
1020     p_api_version                  ,
1021     p_init_msg_list                ,
1022     x_return_status                ,
1023     x_msg_count                    ,
1024     x_msg_data                     ,
1025     p_paav_tbl                     ,
1026     x_paav_tbl                     );
1027 end;
1028 
1029 -- Start of comments
1030 --
1031 -- Procedure Name  : update_price_adj_attrib
1032 -- Description     :
1033 -- Business Rules  :
1034 -- Parameters      :
1035 -- Version         : 1.0
1036 -- End of comments
1037 
1038  PROCEDURE update_price_adj_attrib(
1039     p_api_version                  IN NUMBER,
1040     p_init_msg_list                IN VARCHAR2 ,
1041     x_return_status                OUT NOCOPY VARCHAR2,
1042     x_msg_count                    OUT NOCOPY NUMBER,
1043     x_msg_data                     OUT NOCOPY VARCHAR2,
1044     p_paav_rec                     IN paav_rec_type,
1045     x_paav_rec                     OUT NOCOPY paav_rec_type) is
1046 begin
1047   OKC_PRICE_ADJUSTMENT_PVT.update_price_adj_attrib(
1048     p_api_version                  ,
1049     p_init_msg_list                ,
1050     x_return_status                ,
1051     x_msg_count                    ,
1052     x_msg_data                     ,
1053     p_paav_rec                     ,
1054     x_paav_rec                     );
1055 end;
1056 
1057 -- Start of comments
1058 --
1059 -- Procedure Name  : update_price_adj_attrib
1060 -- Description     :
1061 -- Business Rules  :
1062 -- Parameters      :
1063 -- Version         : 1.0
1064 -- End of comments
1065 
1066  PROCEDURE update_price_adj_attrib(
1067     p_api_version                  IN NUMBER,
1068     p_init_msg_list                IN VARCHAR2 ,
1069     x_return_status                OUT NOCOPY VARCHAR2,
1070     x_msg_count                    OUT NOCOPY NUMBER,
1071     x_msg_data                     OUT NOCOPY VARCHAR2,
1072     p_paav_tbl                     IN paav_tbl_type,
1073     x_paav_tbl                     OUT NOCOPY paav_tbl_type) is
1074 begin
1075   OKC_PRICE_ADJUSTMENT_PVT.update_price_adj_attrib(
1076     p_api_version                  ,
1077     p_init_msg_list                ,
1078     x_return_status                ,
1079     x_msg_count                    ,
1080     x_msg_data                     ,
1081     p_paav_tbl                     ,
1082     x_paav_tbl                     );
1083 end;
1084 
1085 -- Start of comments
1086 --
1087 -- Procedure Name  : delete_price_adj_attrib
1088 -- Description     :
1089 -- Business Rules  :
1090 -- Parameters      :
1091 -- Version         : 1.0
1092 -- End of comments
1093 
1094  PROCEDURE delete_price_adj_attrib(
1095     p_api_version                  IN NUMBER,
1096     p_init_msg_list                IN VARCHAR2 ,
1097     x_return_status                OUT NOCOPY VARCHAR2,
1098     x_msg_count                    OUT NOCOPY NUMBER,
1099     x_msg_data                     OUT NOCOPY VARCHAR2,
1100     p_paav_rec                     IN paav_rec_type) is
1101 begin
1102   OKC_PRICE_ADJUSTMENT_PVT.delete_price_adj_attrib(
1103     p_api_version                  ,
1104     p_init_msg_list                ,
1105     x_return_status                ,
1106     x_msg_count                    ,
1107     x_msg_data                     ,
1108     p_paav_rec                     );
1109 end;
1110 
1111 -- Start of comments
1112 --
1113 -- Procedure Name  : delete_price_adj_attrib
1114 -- Description     :
1115 -- Business Rules  :
1116 -- Parameters      :
1117 -- Version         : 1.0
1118 -- End of comments
1119 
1120  PROCEDURE delete_price_adj_attrib(
1121     p_api_version                  IN NUMBER,
1122     p_init_msg_list                IN VARCHAR2 ,
1123     x_return_status                OUT NOCOPY VARCHAR2,
1124     x_msg_count                    OUT NOCOPY NUMBER,
1125     x_msg_data                     OUT NOCOPY VARCHAR2,
1126     p_paav_tbl                     IN paav_tbl_type) is
1127 begin
1128   OKC_PRICE_ADJUSTMENT_PVT.delete_price_adj_attrib(
1129     p_api_version                  ,
1130     p_init_msg_list                ,
1131     x_return_status                ,
1132     x_msg_count                    ,
1133     x_msg_data                     ,
1134     p_paav_tbl                     );
1135 end;
1136 
1137 -- Start of comments
1138 --
1139 -- Procedure Name  : validate_price_adj_attrib
1140 -- Description     :
1141 -- Business Rules  :
1142 -- Parameters      :
1143 -- Version         : 1.0
1144 -- End of comments
1145 
1146  PROCEDURE validate_price_adj_attrib(
1147     p_api_version                  IN NUMBER,
1148     p_init_msg_list                IN VARCHAR2 ,
1149     x_return_status                OUT NOCOPY VARCHAR2,
1150     x_msg_count                    OUT NOCOPY NUMBER,
1151     x_msg_data                     OUT NOCOPY VARCHAR2,
1152     p_paav_rec                     IN paav_rec_type) is
1153 begin
1154   OKC_PRICE_ADJUSTMENT_PVT.validate_price_adj_attrib(
1155     p_api_version                  ,
1156     p_init_msg_list                ,
1157     x_return_status                ,
1158     x_msg_count                    ,
1159     x_msg_data                     ,
1160     p_paav_rec                     );
1161 end;
1162 
1163 -- Start of comments
1164 --
1165 -- Procedure Name  : validate_price_adj_attrib
1166 -- Description     :
1167 -- Business Rules  :
1168 -- Parameters      :
1169 -- Version         : 1.0
1170 -- End of comments
1171 
1172  PROCEDURE validate_price_adj_attrib(
1173     p_api_version                  IN NUMBER,
1174     p_init_msg_list                IN VARCHAR2 ,
1175     x_return_status                OUT NOCOPY VARCHAR2,
1176     x_msg_count                    OUT NOCOPY NUMBER,
1177     x_msg_data                     OUT NOCOPY VARCHAR2,
1178     p_paav_tbl                     IN paav_tbl_type ) is
1179 begin
1180   OKC_PRICE_ADJUSTMENT_PVT.validate_price_adj_attrib(
1181     p_api_version                  ,
1182     p_init_msg_list                ,
1183     x_return_status                ,
1184     x_msg_count                    ,
1185     x_msg_data                     ,
1186     p_paav_tbl                     );
1187 end;
1188 
1189 -- Start of comments
1190 --
1191 -- Procedure Name  : lock_price_adj_attrib
1192 -- Description     :
1193 -- Business Rules  :
1194 -- Parameters      :
1195 -- Version         : 1.0
1196 -- End of comments
1197 
1198  PROCEDURE lock_price_adj_attrib(
1199     p_api_version                  IN NUMBER,
1200     p_init_msg_list                IN VARCHAR2 ,
1201     x_return_status                OUT NOCOPY VARCHAR2,
1202     x_msg_count                    OUT NOCOPY NUMBER,
1203     x_msg_data                     OUT NOCOPY VARCHAR2,
1204     p_paav_rec                     IN paav_rec_type) is
1205 begin
1206   OKC_PRICE_ADJUSTMENT_PVT.lock_price_adj_attrib(
1207     p_api_version                  ,
1208     p_init_msg_list                ,
1209     x_return_status                ,
1210     x_msg_count                    ,
1211     x_msg_data                     ,
1212     p_paav_rec                     );
1213 end;
1214 
1215 -- Start of comments
1216 --
1217 -- Procedure Name  : lock_price_adj_attrib
1218 -- Description     :
1219 -- Business Rules  :
1220 -- Parameters      :
1221 -- Version         : 1.0
1222 -- End of comments
1223 
1224  PROCEDURE lock_price_adj_attrib(
1225     p_api_version                  IN NUMBER,
1226     p_init_msg_list                IN VARCHAR2 ,
1227     x_return_status                OUT NOCOPY VARCHAR2,
1228     x_msg_count                    OUT NOCOPY NUMBER,
1229     x_msg_data                     OUT NOCOPY VARCHAR2,
1230     p_paav_tbl                     IN paav_tbl_type) is
1231 begin
1232   OKC_PRICE_ADJUSTMENT_PVT.lock_price_adj_attrib(
1233     p_api_version                  ,
1234     p_init_msg_list                ,
1235     x_return_status                ,
1236     x_msg_count                    ,
1237     x_msg_data                     ,
1238     p_paav_tbl                     );
1239 end;
1240 
1241 
1242 END okc_price_adjustment_pub;