PACKAGE BODY: APPS.WIP_MTL_ROLLBACK_CLEANUP

Source

1 PACKAGE BODY WIP_MTL_ROLLBACK_CLEANUP AS
2 /* $Header: wipmtrbb.pls 115.5 2002/12/13 08:07:20 rmahidha ship $ */
3 Procedure DELETE_ROWS (trx_header_id NUMBER) IS
4 BEGIN
5       -- Delete predefined serial numbers
6       delete mtl_serial_numbers
7       where group_mark_id = trx_header_id ;
8 
9       -- Unmark serial numbers
10       update mtl_serial_numbers
11       set group_mark_id = null,
12           line_mark_id = null,
13           lot_line_mark_id = null
14       where group_mark_id = trx_header_id;
15 
16       -- Delete lot and serial records from temp tables
17       delete mtl_serial_numbers_temp
18       where group_header_id = trx_header_id;
19 
20       delete mtl_transaction_lots_temp
21       where group_header_id = trx_header_id;
22 
23       delete mtl_material_transactions_temp
24       where transaction_header_id = trx_header_id;
25 
26       commit;
27 
28       EXCEPTION
29         WHEN others then
30           null;
31 end DELETE_ROWS;
32 
33 end WIP_MTL_ROLLBACK_CLEANUP ;