[Home] [Help]
1: PACKAGE BODY WSMPVCPD AS
2: /* $Header: WSMVCPDB.pls 115.8 2003/12/17 19:00:14 sthangad ship $ */
3:
4: /*===========================================================================
5:
41: ** x_error_code := 0;
42: **
43: ** WHEN OTHERS THEN
44: ** x_error_code := sqlcode;
45: ** x_error_msg := 'WSMPVCPD.val_co_product_related(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
46: */
47: -- modification begin for perf. tuning.. abedajna 10/12/00
48:
49: SELECT 'Y'
66: x_error_code := 0;
67:
68: WHEN OTHERS THEN
69: x_error_code := sqlcode;
70: x_error_msg := 'WSMPVCPD.val_co_product_related(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
71:
72: -- modification end for perf. tuning.. abedajna 10/12/00
73:
74:
173: x_error_code := 3;
174: x_error_msg := 'Co Product Item may not be same as component''s substitute item.';
175: WHEN e_val_co_product THEN
176: x_error_code := 1;
177: x_error_msg := 'Insufficient arguments to WSMPVCPD.val_co_product';
178: WHEN NO_DATA_FOUND THEN
179: /* DEBUG: Replace with message from message dictionary. */
180: x_error_msg := 'This is a duplicate co-product';
181: x_error_code := 2;
180: x_error_msg := 'This is a duplicate co-product';
181: x_error_code := 2;
182: WHEN OTHERS THEN
183: x_error_code := sqlcode;
184: x_error_msg := 'WSMPVCPD.val_co_product(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
185:
186:
187: END val_co_product;
188:
261: x_error_code := 1;
262: x_error_msg := 'Co-Product Substitute Item does not exist in the Co-Product relationship.';
263: WHEN OTHERS THEN
264: x_error_code := sqlcode;
265: x_error_msg := 'WSMPVCPD.val_substitute_coproduct(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
266: END val_substitute_coproduct;
267:
268:
269: /*===========================================================================
294: return;
295:
296: END IF;
297:
298: WSMPVCPD.val_primary_flag(x_co_product_group_id,
299: x_error_code,
300: x_error_msg);
301:
302: IF (x_error_code = 2) THEN
307:
308: END IF;
309:
310:
311: WSMPVCPD.val_split_total (x_co_product_group_id,
312: x_error_code,
313: x_error_msg);
314:
315: IF (x_error_code = 2) THEN
323: x_error_code := 0;
324:
325: EXCEPTION
326: WHEN e_proc_exception THEN
327: x_error_msg := x_error_msg || ' - ' || 'WSMPVCPD.val_pre_commit('||x_progress||')';
328:
329: WHEN OTHERS THEN
330: x_error_code := sqlcode;
331: x_error_msg := 'WSMPVCPD.val_pre_commit(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
327: x_error_msg := x_error_msg || ' - ' || 'WSMPVCPD.val_pre_commit('||x_progress||')';
328:
329: WHEN OTHERS THEN
330: x_error_code := sqlcode;
331: x_error_msg := 'WSMPVCPD.val_pre_commit(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
332: END val_pre_commit;
333:
334:
335: /*===========================================================================
374: **
375: **EXCEPTION
376: ** WHEN e_val_primary_flag THEN
377: ** x_error_code := 1;
378: ** x_error_msg := 'Insufficient arguments to WSMPVCPD.val_primary_flag';
379: ** WHEN NO_DATA_FOUND THEN */
380: /* DEBUG: Replace with message from message dictionary. */
381: /* x_error_msg := 'You must choose one of the co-products to be a primary co-product';
382: ** x_error_code := 2;
381: /* x_error_msg := 'You must choose one of the co-products to be a primary co-product';
382: ** x_error_code := 2;
383: ** WHEN OTHERS THEN
384: ** x_error_code := sqlcode;
385: ** x_error_msg := 'WSMPVCPD.val_primary_flag(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
386: */
387:
388: -- modification begin for perf. tuning.. abedajna 10/12/00
389:
403: x_error_code := 0;
404:
405: WHEN e_val_primary_flag THEN
406: x_error_code := 1;
407: x_error_msg := 'Insufficient arguments to WSMPVCPD.val_primary_flag';
408:
409: WHEN NO_DATA_FOUND THEN
410: /* DEBUG: Replace with message from message dictionary. */
411: x_error_msg := 'You must choose one of the co-products to be a primary co-product';
411: x_error_msg := 'You must choose one of the co-products to be a primary co-product';
412: x_error_code := 2;
413: WHEN OTHERS THEN
414: x_error_code := sqlcode;
415: x_error_msg := 'WSMPVCPD.val_primary_flag(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
416:
417:
418: -- modification end for perf. tuning.. abedajna 10/12/00
419:
480:
481: EXCEPTION
482: WHEN e_val_split_total THEN
483: x_error_code := 1;
484: x_error_msg := 'Insufficient arguments to WSMPVCPD.val_primary_flag';
485: WHEN e_invalid_split_total THEN
486: x_error_code := 2;
487: x_error_msg := 'The split percentage of the co-product lines should add up to 100.';
488: WHEN OTHERS THEN
486: x_error_code := 2;
487: x_error_msg := 'The split percentage of the co-product lines should add up to 100.';
488: WHEN OTHERS THEN
489: x_error_code := sqlcode;
490: x_error_msg := 'WSMPVCPD.val_primary_flag(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
491: END val_split_total;
492:
493: /* ===========================================================================
494:
589: x_error_code := 0;
590:
591: EXCEPTION
592: WHEN e_proc_exception THEN
593: x_error_msg := x_error_msg || ' - ' || 'WSMPVCPD.val_add_to_bill('||x_progress||')';
594:
595: WHEN e_val_exception THEN
596: x_error_code := 3;
597: IF (x_alternate_designator is NOT NULL) THEN
601: END IF;
602:
603: WHEN OTHERS THEN
604: x_error_code := sqlcode;
605: x_error_msg := 'WSMPVCPD.val_add_to_bill(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
606: END val_add_to_bill;
607:
608: /* ===========================================================================
609:
664: x_error_code := 1;
665:
666: WHEN OTHERS THEN
667: x_error_code := sqlcode;
668: x_error_msg := 'WSMPVCPD.val_component_overlap(' || x_progress || ')' || ' - ' || substr(sqlerrm, 1, 200);
669:
670:
671: -- modification end for perf. tuning.. abedajna 10/12/00
672:
673:
674:
675: END val_component_overlap;
676:
677: END WSMPVCPD;