1: PACKAGE BODY WSMPGENE AS
2: /* $Header: WSMGENEB.pls 115.9 2001/08/06 15:36:09 pkm ship $ */
3:
4: PROCEDURE one_inv_g(
5: wip_ent_id NUMBER,
29: CLOSE get_wip_info;
30:
31: EXCEPTION WHEN OTHERS THEN
32: X_err_code := SQLCODE;
33: X_err_msg := 'WSMPGENE.ONE_INV_G '|| SUBSTR(SQLERRM,1,60);
34:
35: END one_inv_g;
36:
37:
76: CLOSE get_ent_info;
77:
78: EXCEPTION WHEN OTHERS THEN
79: X_err_code := SQLCODE;
80: X_err_msg := 'WSMPGENE.FIRST_WIP_G '|| SUBSTR(SQLERRM,1,60);
81:
82: END first_wip_g;
83:
84:
99: CLOSE get_wip_id;
100:
101: EXCEPTION WHEN OTHERS THEN
102: X_err_code := SQLCODE;
103: X_err_msg := 'WSMPGENE.ISSUE_TO_WIP_N '|| SUBSTR(SQLERRM,1,60);
104:
105:
106: END issue_to_wip_n;
107:
202: X_err_code := 99999;
203: X_err_msg := 'NULL EXCEPTION ';
204: WHEN OTHERS THEN
205: X_err_code := SQLCODE;
206: X_err_msg := 'WSMPGENE.FES_TXN_N '|| SUBSTR(SQLERRM,1,60);
207:
208: END fes_txn_n;
209:
210:
250: CLOSE check_for_more;
251:
252: EXCEPTION WHEN OTHERS THEN
253: X_err_code := SQLCODE;
254: X_err_msg := 'WSMPGENE.INV_N '|| SUBSTR(SQLERRM,1,60);
255:
256: END inv_n;
257:
258:
272: CLOSE get_qty;
273:
274: EXCEPTION WHEN OTHERS THEN
275: X_err_code := SQLCODE;
276: X_err_msg := 'WSMPGENE.NEW_QTY_N '|| SUBSTR(SQLERRM,1,60);
277:
278: END new_qty_n;
279:
280:
292: FETCH get_qty INTO qty;
293: CLOSE get_qty;
294: EXCEPTION WHEN OTHERS THEN
295: X_err_code := SQLCODE;
296: X_err_msg := 'WSMPGENE.COMPLETED_QTY_N '|| SUBSTR(SQLERRM,1,60);
297:
298: END completed_qty_n;
299:
300:
335: FETCH get_ent_info INTO item_number, org_id;
336: CLOSE get_ent_info;
337: EXCEPTION WHEN OTHERS THEN
338: X_err_code := SQLCODE;
339: X_err_msg := 'WSMPGENE.FIRST_WIP_W '|| SUBSTR(SQLERRM,1,60);
340: END first_wip_w;
341:
342:
343: PROCEDURE one_inv_w(wip_ent_id NUMBER,
392: CLOSE get_wip_info;
393:
394: EXCEPTION WHEN OTHERS THEN
395: X_err_code := SQLCODE;
396: X_err_msg := 'WSMPGENE.ONE_INV_W '|| SUBSTR(SQLERRM,1,60);
397: END one_inv_w;
398:
399:
400: PROCEDURE subxsfer_refs_p(trans_id NUMBER,
415: FETCH get_info INTO from_sub, to_sub;
416: CLOSE get_info;
417: EXCEPTION WHEN OTHERS THEN
418: X_err_code := SQLCODE;
419: X_err_msg := 'WSMPGENE.SUBXSFER_REFS_P '|| SUBSTR(SQLERRM,1,60);
420:
421:
422: END subxsfer_refs_p;
423:
442: CLOSE get_wip_id;
443: RETURN x_wip_ent_id;
444: EXCEPTION WHEN OTHERS THEN
445: X_err_code := SQLCODE;
446: X_err_msg := 'WSMPGENE.COMPLETE_FROM_WIP '|| SUBSTR(SQLERRM,1,60);
447:
448: END complete_from_wip;
449:
450: /**********************************************************************************/
541:
542: EXCEPTION WHEN OTHERS THEN
543:
544: X_err_code := SQLCODE;
545: X_err_msg := 'WSMPGENE.FES_TXN_O '|| SUBSTR(SQLERRM,1,60);
546:
547:
548: END fes_txn_o;
549:
575: ** FETCH issues INTO no_trans;
576: ** CLOSE issues;
577: ** EXCEPTION WHEN OTHERS THEN
578: ** X_err_code := SQLCODE;
579: ** X_err_msg := 'WSMPGENE.ISSUE_FROM_INV_O '|| SUBSTR(SQLERRM,1,60);
580: */
581:
582: -- modified by abedajna on 10/13/00 for performance tuning.
583:
602: NULL;
603:
604: WHEN OTHERS THEN
605: X_err_code := SQLCODE;
606: X_err_msg := 'WSMPGENE.ISSUE_FROM_INV_O '|| SUBSTR(SQLERRM,1,60);
607:
608: -- end of modification by abedajna on 10/13/00 for performance tuning.
609:
610:
641: FETCH find_next_id INTO next_trans_id;
642: CLOSE find_next_id;
643: EXCEPTION WHEN OTHERS THEN
644: X_err_code := SQLCODE;
645: X_err_msg := 'WSMPGENE.FIND_NEXT_ID '|| SUBSTR(SQLERRM,1,60);
646:
647:
648: END wip_o;
649:
674: ** FETCH check_for_more INTO no_of_trans;
675: ** CLOSE check_for_more;
676: ** EXCEPTION WHEN OTHERS THEN
677: ** X_err_code := SQLCODE;
678: ** X_err_msg := 'WSMPGENE.INV_O '|| SUBSTR(SQLERRM,1,60);
679: */
680: -- modified by abedajna on 10/13/00 for performance tuning.
681:
682: BEGIN
699: NULL;
700:
701: WHEN OTHERS THEN
702: X_err_code := SQLCODE;
703: X_err_msg := 'WSMPGENE.INV_O '|| SUBSTR(SQLERRM,1,60);
704:
705: -- end of modification by abedajna on 10/13/00 for performance tuning.
706:
707: END inv_o;
723: FETCH get_qty INTO qty;
724: CLOSE get_qty;
725: EXCEPTION WHEN OTHERS THEN
726: X_err_code := SQLCODE;
727: X_err_msg := 'WSMPGENE.NEW_QTY_O '|| SUBSTR(SQLERRM,1,60);
728:
729: END new_qty_o;
730:
731:
743: FETCH get_qty INTO qty;
744: CLOSE get_qty;
745: EXCEPTION WHEN OTHERS THEN
746: X_err_code := SQLCODE;
747: X_err_msg := 'WSMPGENE.ISSUED_QTY_O '|| SUBSTR(SQLERRM,1,60);
748:
749: END issued_qty_o;
750:
751: /************************************************************************/
776: CLOSE get_meaning;
777:
778: EXCEPTION WHEN OTHERS THEN
779: X_err_code := SQLCODE;
780: X_err_msg := 'WSMPGENE.WSM_INV_MEANING_T '|| SUBSTR(SQLERRM,1,60);
781: END wsm_inv_meaning_t;
782:
783: /*************************************************************************/
784:
800: FETCH get_org_names INTO from_org_code, to_org_code;
801: CLOSE get_org_names;
802: EXCEPTION WHEN OTHERS THEN
803: X_err_code := SQLCODE;
804: X_err_msg := 'WSMPGENE.ORG_TRANSFERS_T '|| SUBSTR(SQLERRM,1,60);
805:
806: END org_transfers_t;
807:
808:
821: CLOSE get_type_id;
822:
823: EXCEPTION WHEN OTHERS THEN
824: X_err_code := SQLCODE;
825: X_err_msg := 'WSMPGENE.GET_NEXT_TYPE_ID_T '|| SUBSTR(SQLERRM,1,60);
826: END get_next_type_id_t;
827: end WSMPGENE;
823: EXCEPTION WHEN OTHERS THEN
824: X_err_code := SQLCODE;
825: X_err_msg := 'WSMPGENE.GET_NEXT_TYPE_ID_T '|| SUBSTR(SQLERRM,1,60);
826: END get_next_type_id_t;
827: end WSMPGENE;