1: PACKAGE BODY CSTPLCWP AS
2: /* $Header: CSTLCWPB.pls 120.2 2010/05/05 20:58:25 jkwac ship $ */
3:
4: PROCEDURE cost_wip_trx (
5: l_trx_id IN NUMBER,
415:
416: ELSE
417:
418: l_err_num := 1101;
419: l_err_code := 'CSTPLCWP: Unsupported MMT transaction type';
420: l_err_msg := 'CSTPLCWP: Unsupported MMT transaction type';
421:
422: END IF;
423:
416: ELSE
417:
418: l_err_num := 1101;
419: l_err_code := 'CSTPLCWP: Unsupported MMT transaction type';
420: l_err_msg := 'CSTPLCWP: Unsupported MMT transaction type';
421:
422: END IF;
423:
424:
788: ROLLBACK;
789:
790: WHEN OTHERS THEN
791: err_num := SQLCODE;
792: err_msg := 'CSTPLCWP:' || to_char(stmt_num) || substr(SQLERRM,1,150);
793: ROLLBACK;
794:
795: END cost_wip_trx;
796:
794:
795: END cost_wip_trx;
796:
797:
798: END CSTPLCWP;