1: PACKAGE BODY CSTPLCIR AS
2: /* $Header: CSTLCIRB.pls 115.9 2004/06/18 17:04:13 rzhu ship $ */
3:
4:
5:
248:
249: EXCEPTION
250: WHEN bad_inv_consume_exception THEN
251: o_err_num := 1007;
252: o_err_msg := 'CSTPLCIR.component_issue():' ||
253: to_char(l_stmt_num) || ':' ||
254: 'Inventory total txn qty was ' || l_total_txn_qty || '; ' ||
255: ' expected ' || i_txn_qty;
256:
255: ' expected ' || i_txn_qty;
256:
257: WHEN OTHERS THEN
258: o_err_num := SQLCODE;
259: o_err_msg := 'CSTPLCIR.component_issue():' ||
260: to_char(l_stmt_num) || ':' ||
261: substr(SQLERRM,1,150);
262:
263: END component_issue;
513:
514: EXCEPTION
515: WHEN OTHERS THEN
516: o_err_num := SQLCODE;
517: o_err_msg := 'CSTPLCIR.component_return():' ||
518: to_char(l_stmt_num) || ':' ||
519: substr(SQLERRM,1,150);
520:
521: END component_return;
523:
524:
525:
526:
527: END CSTPLCIR;