APPS.CSTPLCIN dependencies on CSTPLCIN

Line 1: package body cstplcin as

1: package body cstplcin as
2: /* $Header: CSTLCINB.pls 120.8.12000000.2 2007/09/26 07:27:36 akhadika ship $ */
3:
4: procedure cost_inv_txn (
5: i_txn_id in number,

Line 520: l_err_code := 'Error raising SLA Event for transaction: '||to_char(i_txn_id); l_err_msg := 'CSTPLCIN.COST_INV_TXN:('||l_stmt_num||'): '||l_err_code;

516: p_trx_info => l_trx_info
517: );
518: IF l_return_status <> 'S' THEN
519: l_err_num := -1;
520: l_err_code := 'Error raising SLA Event for transaction: '||to_char(i_txn_id); l_err_msg := 'CSTPLCIN.COST_INV_TXN:('||l_stmt_num||'): '||l_err_code;
521: RAISE FND_API.g_exc_unexpected_error;
522: END IF;
523:
524: END IF; /* Main IF NOT ( ( ( I_TXN_ACTION_ID = 21 .. */

Line 530: o_err_msg := 'CSTPLCIN.COST_INV_TXN:' || l_err_msg;

526: EXCEPTION
527: when cost_inv_txn_error then
528: o_err_num := l_err_num;
529: o_err_code := l_err_code;
530: o_err_msg := 'CSTPLCIN.COST_INV_TXN:' || l_err_msg;
531: when OTHERS then
532: o_err_num := SQLCODE;
533: o_err_msg := 'CSTPLCIN.COST_INV_TXN: (' || to_char(l_stmt_num) || '): '
534: || substr(SQLERRM,1,150);

Line 533: o_err_msg := 'CSTPLCIN.COST_INV_TXN: (' || to_char(l_stmt_num) || '): '

529: o_err_code := l_err_code;
530: o_err_msg := 'CSTPLCIN.COST_INV_TXN:' || l_err_msg;
531: when OTHERS then
532: o_err_num := SQLCODE;
533: o_err_msg := 'CSTPLCIN.COST_INV_TXN: (' || to_char(l_stmt_num) || '): '
534: || substr(SQLERRM,1,150);
535:
536: end cost_inv_txn;
537:

Line 538: end cstplcin;

534: || substr(SQLERRM,1,150);
535:
536: end cost_inv_txn;
537:
538: end cstplcin;