1: package body bompimpl as
2: /* $Header: BOMIMPLB.pls 120.1 2005/06/21 01:53:41 appldev ship $ */
3: PROCEDURE imploder_userexit(
4: sequence_id IN NUMBER,
5: eng_mfg_flag IN NUMBER,
47: -1,
48: sysdate,
49: -1);
50:
51: bompimpl.implosion(sequence_id, eng_mfg_flag, org_id, impl_flag,
52: display_option, levels_to_implode, impl_date, a_err_msg, a_err_code);
53:
54: err_msg := a_err_msg;
55: err_code := a_err_code;
773: error_code := SQLCODE;
774: err_msg := substrb(SQLERRM, 1, 80);
775: END ml_imploder;
776:
777: END bompimpl;