[Home] [Help]
1: PACKAGE BODY inv_receiving_transaction AS
2: /* $Header: INVRCVFB.pls 120.9.12020000.2 2012/07/09 08:14:40 asugandh ship $*/
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'inv_receiving_transaction';
1: PACKAGE BODY inv_receiving_transaction AS
2: /* $Header: INVRCVFB.pls 120.9.12020000.2 2012/07/09 08:14:40 asugandh ship $*/
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'inv_receiving_transaction';
6:
7:
8:
9: PROCEDURE print_debug(p_err_msg VARCHAR2,
13: BEGIN
14: IF (l_debug = 1) THEN
15: inv_mobile_helper_functions.tracelog
16: (p_err_msg => p_err_msg,
17: p_module => 'inv_receiving_transaction',
18: p_level => p_level);
19: END IF;
20:
21: END print_debug;
371:
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373:
374: IF SQLCODE IS NOT NULL THEN
375: inv_mobile_helper_functions.sql_error('inv_receiving_transaction.rcv_txn_clean_up', l_progress, SQLCODE);
376: IF (l_debug = 1) THEN
377: print_debug('rcv_txn_clean_up : l_progress = ' || l_progress ||' SQLCODE is '||SQLCODE,4);
378: END IF;
379: END IF;
1145: print_debug('Error return from wms_return_sv.txn_complete, exitting - '||x_msg_data||' : 101',1);
1146: END IF;
1147: IF p_txn_mode <> 'ONLINE' THEN
1148: create_errors(p_group_id => p_group_id,
1149: p_msg => 'inv_receiving_transaction.txn_complete - 102 -'||x_msg_data);
1150: END IF;
1151: IF x_return_status = fnd_api.g_ret_sts_error THEN
1152: RAISE fnd_api.g_exc_error;
1153: ELSE
1465: inv_mobile_helper_functions.get_stacked_messages(x_message => x_msg_data);
1466:
1467: END txn_mobile_timeout_cleanup;
1468:
1469: END inv_receiving_transaction;