DBA Data[Home] [Help]

APPS.WSMPGENE dependencies on WSMPGENE

Line 1: PACKAGE BODY WSMPGENE AS

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,

Line 33: X_err_msg := 'WSMPGENE.ONE_INV_G '|| SUBSTR(SQLERRM,1,60);

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:

Line 80: X_err_msg := 'WSMPGENE.FIRST_WIP_G '|| SUBSTR(SQLERRM,1,60);

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:

Line 103: X_err_msg := 'WSMPGENE.ISSUE_TO_WIP_N '|| SUBSTR(SQLERRM,1,60);

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:

Line 206: X_err_msg := 'WSMPGENE.FES_TXN_N '|| SUBSTR(SQLERRM,1,60);

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:

Line 254: X_err_msg := 'WSMPGENE.INV_N '|| SUBSTR(SQLERRM,1,60);

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:

Line 276: X_err_msg := 'WSMPGENE.NEW_QTY_N '|| SUBSTR(SQLERRM,1,60);

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:

Line 296: X_err_msg := 'WSMPGENE.COMPLETED_QTY_N '|| SUBSTR(SQLERRM,1,60);

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:

Line 339: X_err_msg := 'WSMPGENE.FIRST_WIP_W '|| SUBSTR(SQLERRM,1,60);

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,

Line 396: X_err_msg := 'WSMPGENE.ONE_INV_W '|| SUBSTR(SQLERRM,1,60);

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,

Line 419: X_err_msg := 'WSMPGENE.SUBXSFER_REFS_P '|| SUBSTR(SQLERRM,1,60);

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:

Line 446: X_err_msg := 'WSMPGENE.COMPLETE_FROM_WIP '|| SUBSTR(SQLERRM,1,60);

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: /**********************************************************************************/

Line 545: X_err_msg := 'WSMPGENE.FES_TXN_O '|| SUBSTR(SQLERRM,1,60);

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:

Line 579: ** X_err_msg := 'WSMPGENE.ISSUE_FROM_INV_O '|| SUBSTR(SQLERRM,1,60);

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:

Line 606: X_err_msg := 'WSMPGENE.ISSUE_FROM_INV_O '|| SUBSTR(SQLERRM,1,60);

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:

Line 645: X_err_msg := 'WSMPGENE.FIND_NEXT_ID '|| SUBSTR(SQLERRM,1,60);

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:

Line 678: ** X_err_msg := 'WSMPGENE.INV_O '|| SUBSTR(SQLERRM,1,60);

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

Line 703: X_err_msg := 'WSMPGENE.INV_O '|| SUBSTR(SQLERRM,1,60);

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;

Line 727: X_err_msg := 'WSMPGENE.NEW_QTY_O '|| SUBSTR(SQLERRM,1,60);

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:

Line 747: X_err_msg := 'WSMPGENE.ISSUED_QTY_O '|| SUBSTR(SQLERRM,1,60);

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: /************************************************************************/

Line 780: X_err_msg := 'WSMPGENE.WSM_INV_MEANING_T '|| SUBSTR(SQLERRM,1,60);

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:

Line 804: X_err_msg := 'WSMPGENE.ORG_TRANSFERS_T '|| SUBSTR(SQLERRM,1,60);

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:

Line 825: X_err_msg := 'WSMPGENE.GET_NEXT_TYPE_ID_T '|| SUBSTR(SQLERRM,1,60);

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;

Line 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;