1861:
1862: wip_line_ops.delete;
1863:
1864: IF wip_line_ops.COUNT > 0 THEN
1865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1866: END IF;
1867:
1868: END clear_wip_line_ops_cache;
1869:
1922: OR p_eff_date IS NULL
1923: OR (p_line_op_seq1_id IS NULL AND p_line_op_seq1_num IS NULL)
1924: OR (p_line_op_seq2_id IS NULL AND p_line_op_seq2_num IS NULL)) THEN
1925: l_success := -1;
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928:
1929: IF p_line_op_seq2_id IS NULL
1930: AND p_line_op_seq2_num > 0 THEN
2149: OR p_event_op_seq_num IS NULL
2150: OR p_line_op_seq_num IS NULL) THEN
2151:
2152: l_success := -1;
2153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2154: END IF;
2155:
2156: get_line_op_from_event(p_routing_sequence_id,
2157: p_eff_date,
2369: l_txn_type_id NUMBER;
2370: l_txn_act_id NUMBER;
2371: BEGIN
2372: savepoint defaultlotsp_10;
2373: x_returnStatus := fnd_api.g_ret_sts_success;
2374:
2375: l_compObj := system.wip_lot_serial_obj_t(null, null, null, null, null, null);
2376: l_compObj.initialize;
2377:
2433: wip_autolotproc_priv.derivelots(
2434: x_compLots => l_compObj,
2435: p_orgID => l_org_id,
2436: p_wipEntityID => l_wipentityid,
2437: p_initMsgList => fnd_api.g_true,
2438: p_endDebug => fnd_api.g_true,
2439: p_destroyTrees => fnd_api.g_false,
2440: p_treeMode => 3, -- make sure we use the same tree_mode as inv lot entry form
2441: p_treeSrcName => txn_source_name,
2434: x_compLots => l_compObj,
2435: p_orgID => l_org_id,
2436: p_wipEntityID => l_wipentityid,
2437: p_initMsgList => fnd_api.g_true,
2438: p_endDebug => fnd_api.g_true,
2439: p_destroyTrees => fnd_api.g_false,
2440: p_treeMode => 3, -- make sure we use the same tree_mode as inv lot entry form
2441: p_treeSrcName => txn_source_name,
2442: x_returnStatus => x_returnStatus );
2435: p_orgID => l_org_id,
2436: p_wipEntityID => l_wipentityid,
2437: p_initMsgList => fnd_api.g_true,
2438: p_endDebug => fnd_api.g_true,
2439: p_destroyTrees => fnd_api.g_false,
2440: p_treeMode => 3, -- make sure we use the same tree_mode as inv lot entry form
2441: p_treeSrcName => txn_source_name,
2442: x_returnStatus => x_returnStatus );
2443:
2440: p_treeMode => 3, -- make sure we use the same tree_mode as inv lot entry form
2441: p_treeSrcName => txn_source_name,
2442: x_returnStatus => x_returnStatus );
2443:
2444: if ( x_returnStatus = fnd_api.g_ret_sts_unexp_error ) then
2445: raise fnd_api.g_exc_unexpected_error;
2446: end if;
2447:
2448: open c_lotItems;
2441: p_treeSrcName => txn_source_name,
2442: x_returnStatus => x_returnStatus );
2443:
2444: if ( x_returnStatus = fnd_api.g_ret_sts_unexp_error ) then
2445: raise fnd_api.g_exc_unexpected_error;
2446: end if;
2447:
2448: open c_lotItems;
2449:
2667: END LOOP;
2668: END LOOP;
2669:
2670: EXCEPTION
2671: WHEN fnd_api.g_exc_unexpected_error then
2672: rollback to defaultlotsp1_10;
2673: WHEN OTHERS then
2674: l_errorcode := SQLCODE;
2675: l_errormesg := SUBSTR( SQLERRM, 1, 100 );