[Home] [Help]
431: PRAGMA AUTONOMOUS_TRANSACTION;
432:
433: BEGIN
434:
435: INSERT INTO wip_txn_interface_errors
436: (transaction_id,
437: error_column,
438: error_message,
439: last_update_date,
463: END write_mtl_error;
464:
465: /*****************************************************************************
466: * This procedure will be used to record error messages from
467: * MTL_TRANSACTIONS_INTERFACE into WIP_TXN_INTERFACE_ERRORS
468: ****************************************************************************/
469: PROCEDURE write_mtl_errors(p_mtl_header_id IN NUMBER) IS
470:
471: CURSOR c_mtl_errors IS
1782: -- Get error from message stack
1783: wip_utilities.get_message_stack(p_msg =>l_msg);
1784: IF(l_msg IS NULL) THEN
1785: -- initialize message to something because we cannot insert
1786: -- null into WIP_TXN_INTERFACE_ERRORS
1787: fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
1788: l_msg := fnd_message.get;
1789: END IF;
1790:
1787: fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
1788: l_msg := fnd_message.get;
1789: END IF;
1790:
1791: INSERT INTO WIP_TXN_INTERFACE_ERRORS
1792: (transaction_id,
1793: error_column,
1794: error_message,
1795: last_update_date,
2460: -- Get error from message stack
2461: wip_utilities.get_message_stack(p_msg =>l_msg);
2462: IF(l_msg IS NULL) THEN
2463: -- initialize message to something because we cannot insert
2464: -- null into WIP_TXN_INTERFACE_ERRORS
2465: fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
2466: l_msg := fnd_message.get;
2467: END IF;
2468:
2465: fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
2466: l_msg := fnd_message.get;
2467: END IF;
2468:
2469: INSERT INTO WIP_TXN_INTERFACE_ERRORS
2470: (transaction_id,
2471: error_column,
2472: error_message,
2473: last_update_date,
9087: --FP bug 5752485 (base bug 4128207) Added the IF condition below since write_mtl_errors
9088: --is not applicable for ONLINE completions. Otherwise the fnd_msg_pub stack is initialized
9089: --inside write_mtl_errors which suppresses messages to be shown to the user in the UI
9090: IF (l_transaction_mode <> WIP_CONSTANTS.ONLINE) THEN
9091: -- write mtl error message into WIP_TXN_INTERFACE_ERRORS
9092: write_mtl_errors(p_mtl_header_id => p_gib.assy_header_id);
9093: END IF;
9094: l_errMsg := 'wip_mtlTempProc_priv.validateInterfaceTxns failed' ||
9095: ' (assembly records)' ;
9817: -- There is no return status from this routine. IF some record error out,
9818: -- just neglect it and continue validating other records. The error record
9819: -- will have process_status in WIP_MOVE_TXN_INTERFACE equal to (3) or
9820: -- WIP_CONSTANTS.ERROR, and those error records will not be picked up by
9821: -- move_txns. The error message also show up in WIP_TXN_INTERFACE_ERRORS
9822: END IF; -- Move Validation
9823:
9824: OPEN c_txn_date;
9825: LOOP
10188: ROLLBACK TO SAVEPOINT s_backflush_proc;
10189: wip_utilities.get_message_stack(p_msg =>l_errMsg);
10190: IF(l_errMsg IS NULL) THEN
10191: -- initialize message to something because we cannot
10192: -- insert null into WIP_TXN_INTERFACE_ERRORS
10193: fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
10194: l_errMsg := fnd_message.get;
10195: END IF;
10196: IF(p_move_mode = WIP_CONSTANTS.BACKGROUND) THEN
10201: AND process_status = WIP_CONSTANTS.RUNNING
10202: AND transaction_id = l_backflush.txn_id;
10203:
10204: /* insert error messages */
10205: INSERT INTO wip_txn_interface_errors
10206: (transaction_id,
10207: error_column,
10208: error_message,
10209: last_update_date,
10260: p_rollbackOnErr => fnd_api.g_false,
10261: x_returnStatus => x_returnStatus);
10262:
10263: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
10264: -- write error into WIP_TXN_INTERFACE_ERRORS
10265: write_mtl_errors(p_mtl_header_id => l_gib.mtl_header_id);
10266: IF (l_logLevel <= wip_constants.full_logging) THEN
10267: l_errMsg := 'wip_mtlTempProc_priv.validateInterfaceTxns failed'||
10268: ' (component records)' ;
10349:
10350: wip_utilities.get_message_stack(p_msg =>l_errMsg);
10351: IF(l_errMsg IS NULL) THEN
10352: -- initialize message to something because we cannot insert null
10353: -- into WIP_TXN_INTERFACE_ERRORS
10354: fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
10355: l_errMsg := fnd_message.get;
10356: END IF;
10357:
10355: l_errMsg := fnd_message.get;
10356: END IF;
10357:
10358: /* insert error messages */
10359: INSERT INTO wip_txn_interface_errors
10360: (transaction_id,
10361: error_column,
10362: error_message,
10363: last_update_date,
10385: FROM wip_move_txn_interface wmti
10386: WHERE wmti.group_id = p_group_id
10387: AND TRUNC(wmti.transaction_date) = TRUNC(l_gib.txn_date)
10388: AND NOT EXISTS (SELECT 1
10389: FROM wip_txn_interface_errors wtie
10390: WHERE wtie.transaction_id = wmti.transaction_id);
10391:
10392: ELSE -- move mode is online, write to log file
10393: IF(x_returnStatus = fnd_api.g_ret_sts_error) THEN
10423:
10424: l_errMsg := 'unexpected error: ' || SQLERRM;
10425:
10426: /* insert error messages */
10427: INSERT INTO wip_txn_interface_errors
10428: (transaction_id,
10429: error_column,
10430: error_message,
10431: last_update_date,
10453: FROM wip_move_txn_interface wmti
10454: WHERE wmti.group_id = p_group_id
10455: AND TRUNC(wmti.transaction_date) = TRUNC(l_gib.txn_date)
10456: AND NOT EXISTS (SELECT 1
10457: FROM wip_txn_interface_errors wtie
10458: WHERE wtie.transaction_id = wmti.transaction_id);
10459: ELSE -- move mode is online
10460: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10461: IF (l_logLevel <= wip_constants.trace_logging) THEN
10964:
10965: CURSOR c_errors IS
10966: SELECT wtie.error_column,
10967: wtie.error_message
10968: FROM wip_txn_interface_errors wtie,
10969: wip_move_txn_interface wmti
10970: WHERE wtie.transaction_id = wmti.transaction_id
10971: AND wmti.group_id = p_group_id;
10972: