14: err_app out NOCOPY varchar2,
15: err_msg out NOCOPY varchar2) is
16:
17: move_recs wip_move_txn_interface_cleanup.WIP_MOVE_TXN_INTERFACE_REC;
18: alloc_recs wip_move_alloc_cleanup.WIP_MOVE_TXN_ALLOCATIONS_REC;
19: mtl_temp_recs wip_mtl_txns_temp_cleanup.MTL_TRANSACTIONS_TEMP_REC;
20: sn_temp_recs wip_serial_temp_cleanup.MTL_SERIAL_NUMBERS_TEMP_REC;
21: lt_temp_recs wip_lot_temp_cleanup.MTL_TRANSACTION_LOTS_TEMP_REC;
22: sn_recs wip_serial_number_cleanup.MTL_SERIAL_NUMBERS_REC;
32: and wmti1.overcompletion_transaction_id = wmti.overcompletion_transaction_id;
33:
34: oc_mov_group_id NUMBER;
35: oc_move_recs wip_move_txn_interface_cleanup.WIP_MOVE_TXN_INTERFACE_REC;
36: oc_alloc_recs wip_move_alloc_cleanup.WIP_MOVE_TXN_ALLOCATIONS_REC;
37:
38: x_retcode number;
39: x_app varchar2(3);
40: x_msg varchar2(30);
63: -- Overcompletion
64: -- No manual WCTI transactions will be there for child transaction
65: -- and Move processing hasn't happened for child yet.
66:
67: wip_move_alloc_cleanup.fetch_and_delete
68: (p_mov_grp_id => oc_mov_group_id,
69: p_mov_allocs => oc_alloc_recs);
70:
71: wip_move_txn_interface_cleanup.fetch_and_delete
80: where group_id = res_group_id;
81: end if;
82:
83: if (mtl_header_id > 0) then
84: wip_move_alloc_cleanup.fetch_and_delete(
85: p_mov_grp_id => mov_group_id,
86: p_mov_allocs => alloc_recs);
87:
88: wip_mtl_txns_temp_cleanup.fetch_and_delete(
123: err_msg := x_msg;
124: return;
125: end if;
126:
127: wip_move_alloc_cleanup.insert_rows(alloc_recs);
128: end if;
129: end if;
130:
131: err_code := SUCCESS;
219: bf_sn_mrks wip_serial_number_cleanup.MTL_SERIAL_NUMBERS_MARK_REC;
220:
221: -- Overcompletion
222: oc_move_recs wip_move_txn_interface_cleanup.WIP_MOVE_TXN_INTERFACE_REC;
223: oc_alloc_recs wip_move_alloc_cleanup.WIP_MOVE_TXN_ALLOCATIONS_REC;
224:
225: cursor overcpl_move_id is
226: select wmti.transaction_id
227: from mtl_material_transactions_temp mmtt,
246: -- Overcompletion
247: -- No WCTI transactions will be there since, no Manual charges are allowed
248: -- and Move processing hasn't happened.
249:
250: wip_move_alloc_cleanup.fetch_and_delete
251: (p_mov_grp_id => oc_mov_group_id,
252: p_mov_allocs => oc_alloc_recs);
253:
254: wip_move_txn_interface_cleanup.fetch_and_delete
327: end if;
328:
329: IF (oc_alloc_recs.numrecs > 0 ) THEN
330: -- Overcompletion
331: wip_move_alloc_cleanup.insert_rows(oc_alloc_recs);
332: END IF;
333:
334: end if;
335: