The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW_BULK (
p_mtl_lot_txn_if_rec IN WSH_SHIP_CONFIRM_ACTIONS.mtl_lot_txn_if_rec_type,
x_return_status OUT NOCOPY VARCHAR2) IS
l_debug_on BOOLEAN;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERT_ROW_BULK';
INSERT INTO mtl_transaction_lots_interface (
source_code,
source_line_id,
transaction_interface_id,
lot_number,
transaction_quantity,
serial_transaction_temp_id,
creation_date,
created_by,
last_update_date,
last_updated_by,
-- HW OPMCONV. Added secondary_qty and grade
SECONDARY_TRANSACTION_QUANTITY,
GRADE_CODE
) VALUES (
p_mtl_lot_txn_if_rec.source_code(i),
p_mtl_lot_txn_if_rec.source_line_id(i),
p_mtl_lot_txn_if_rec.transaction_interface_id(i),
p_mtl_lot_txn_if_rec.lot_number(i),
p_mtl_lot_txn_if_rec.trx_quantity(i),
p_mtl_lot_txn_if_rec.serial_transaction_temp_id(i),
SYSDATE,
g_userid,
SYSDATE,
g_userid,
-- HW OPMCONV. Added secondary_qty and grade
p_mtl_lot_txn_if_rec.secondary_trx_quantity(i),
p_mtl_lot_txn_if_rec.grade_code(i)
);
WSH_DEBUG_SV.log(l_module_name,'Rows inserted in mtl_transaction_lots_interface',SQL%ROWCOUNT);
END insert_row_bulk;
PROCEDURE Insert_Row(
x_rowid IN OUT NOCOPY VARCHAR2,
x_trx_interface_id IN OUT NOCOPY NUMBER,
p_source_code IN VARCHAR2,
p_source_line_id IN NUMBER,
p_lot_number IN VARCHAR2,
p_trx_quantity IN NUMBER,
p_last_update_date IN DATE,
p_last_updated_by IN NUMBER,
p_creation_date IN DATE,
p_created_by IN NUMBER,
p_serial_trx_id IN NUMBER,
p_error_code IN VARCHAR2,
p_last_update_login IN NUMBER DEFAULT NULL,
p_request_id IN NUMBER DEFAULT NULL,
p_program_application_id IN NUMBER DEFAULT NULL,
p_program_id IN NUMBER DEFAULT NULL,
p_program_update_date IN DATE DEFAULT NULL,
p_lot_expiration_date IN DATE DEFAULT NULL,
p_primary_quantity IN NUMBER DEFAULT NULL,
p_process_flag IN VARCHAR2 DEFAULT 'Y',
-- HW OPMCONV. Added p_secondary_trx_quantity
-- and p_grade_code
p_secondary_trx_quantity IN NUMBER DEFAULT NULL,
p_grade_code IN VARCHAR2 DEFAULT NULL)
IS
CURSOR row_id IS
SELECT rowid FROM mtl_transaction_lots_interface
WHERE transaction_interface_id = x_trx_interface_id
AND lot_number = p_lot_number;
SELECT mtl_material_transactions_s.nextval
FROM sys.dual;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERT_ROW';
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.INSERT_ROW',
'START',
'Start of procedure INSERT_ROW, input parameters:
source_code='||p_source_code||
', source_line_id='||p_source_line_id||
', transaction_interface_id='||x_trx_interface_id||
', lot_number='||p_lot_number||
', transaction_quantity='||p_trx_quantity||
', last_update_date='||p_last_update_date||
', last_updated_by='||p_last_updated_by);
', last_update_login='||p_last_update_login||
', request_id='||p_request_id||
', program_application_id='||p_program_application_id||
', program_id='||p_program_id||
', program_update_date='||p_program_update_date||
', lot_expiration_date='||p_lot_expiration_date||
', primary_quantity='||p_primary_quantity||
', process_flag='||p_process_flag );
WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_DATE',P_LAST_UPDATE_DATE);
WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATED_BY',P_LAST_UPDATED_BY);
WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_LOGIN',P_LAST_UPDATE_LOGIN);
WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_UPDATE_DATE',P_PROGRAM_UPDATE_DATE);
INSERT INTO mtl_transaction_lots_interface(
source_code,
source_line_id,
transaction_interface_id,
lot_number,
transaction_quantity,
last_update_date,
last_updated_by,
creation_date,
created_by,
serial_transaction_temp_id,
error_code,
last_update_login,
request_id,
program_application_id,
program_id,
program_update_date,
lot_expiration_date,
primary_quantity,
process_flag,
-- HW OPMCONV. Added secondary_qty and grade
SECONDARY_TRANSACTION_QUANTITY,
GRADE_CODE
) VALUES (
p_source_code,
p_source_line_id,
x_trx_interface_id,
p_lot_number,
p_trx_quantity,
NVL(p_last_update_date,SYSDATE),
NVL(p_last_updated_by,g_userid),
NVL(p_creation_date,SYSDATE),
NVL(p_created_by,g_userid),
p_serial_trx_id,
p_error_code,
p_last_update_login,
p_request_id,
p_program_application_id,
p_program_id,
p_program_update_date,
p_lot_expiration_date,
p_primary_quantity,
p_process_flag,
-- HW OPMCONV. Added secondary_qty and grade
p_secondary_trx_quantity,
p_grade_code
);
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.INSERT_ROW',
'END',
'No rowid found. Raising NO_DATA_FOUND.');
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.INSERT_ROW',
'END',
'End of procedure INSERT_ROW');
END Insert_Row;
PROCEDURE Update_Row (
x_rowid IN OUT NOCOPY VARCHAR2,
p_trx_interface_id IN NUMBER,
p_source_code IN VARCHAR2,
p_source_line_id IN NUMBER,
p_lot_number IN VARCHAR2,
p_trx_quantity IN NUMBER,
p_last_update_date IN DATE,
p_last_updated_by IN NUMBER,
p_serial_trx_id IN NUMBER,
p_error_code IN VARCHAR2,
p_last_update_login IN NUMBER DEFAULT NULL,
p_request_id IN NUMBER DEFAULT NULL,
p_program_application_id IN NUMBER DEFAULT NULL,
p_program_id IN NUMBER DEFAULT NULL,
p_program_update_date IN DATE DEFAULT NULL,
p_lot_expiration_date IN DATE DEFAULT NULL,
p_primary_quantity IN NUMBER DEFAULT NULL,
p_process_flag IN VARCHAR2 DEFAULT 'Y',
-- HW OPMCONV. Added p_secondary_trx_quantity
-- and p_grade_code
p_secondary_trx_quantity IN NUMBER DEFAULT NULL,
p_grade_code IN VARCHAR2 DEFAULT NULL
)
IS
--
l_debug_on BOOLEAN;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_ROW';
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.UPDATE_ROW',
'START',
'Start of procedure UPDATE_ROW, input parameters:
source_code='||p_source_code||
', source_line_id='||p_source_line_id||
', transaction_interface_id='||p_trx_interface_id||
', lot_number='||p_lot_number||
', transaction_quantity='||p_trx_quantity||
', last_update_date='||p_last_update_date||
', last_updated_by='||p_last_updated_by);
', last_update_login='||p_last_update_login||
', request_id='||p_request_id||
', program_application_id='||p_program_application_id||
', program_id='||p_program_id||
', program_update_date='||p_program_update_date||
', lot_expiration_date='||p_lot_expiration_date||
', primary_quantity='||p_primary_quantity||
', process_flag='||p_process_flag );
WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_DATE',P_LAST_UPDATE_DATE);
WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATED_BY',P_LAST_UPDATED_BY);
WSH_DEBUG_SV.log(l_module_name,'P_LAST_UPDATE_LOGIN',P_LAST_UPDATE_LOGIN);
WSH_DEBUG_SV.log(l_module_name,'P_PROGRAM_UPDATE_DATE',P_PROGRAM_UPDATE_DATE);
UPDATE mtl_transaction_lots_interface SET
source_code = p_source_code,
source_line_id = p_source_line_id,
transaction_interface_id = p_trx_interface_id,
lot_number = p_lot_number,
transaction_quantity = p_trx_quantity,
last_updated_by = NVL(p_last_updated_by,g_userid),
last_update_date = NVL(p_last_update_date,SYSDATE),
serial_transaction_temp_id = p_serial_trx_id,
error_code = p_error_code,
last_update_login = p_last_update_login,
request_id = p_request_id,
program_application_id = p_program_application_id,
program_id = p_program_id,
program_update_date = p_program_update_date,
lot_expiration_date = p_lot_expiration_date,
primary_quantity = p_primary_quantity,
process_flag = p_process_flag,
-- HW OPMCONV. Added secondary_qty and grade
SECONDARY_TRANSACTION_QUANTITY = p_secondary_trx_quantity,
GRADE_CODE = p_grade_code
WHERE rowid = x_rowid;
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.UPDATE_ROW',
'END',
'No rows updated. Raising NO_DATA_FOUND.');
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.UPDATE_ROW',
'END',
'End of procedure UPDATE_ROW');
END Update_Row;
PROCEDURE Delete_Row (
x_rowid IN OUT NOCOPY VARCHAR2 )
IS
--
l_debug_on BOOLEAN;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_ROW';
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.DELETE_ROW',
'START',
'Start of procedure DELETE_ROW');
wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.DELETE_ROW',
'START',
'Deleting from mtl_serial_numbers_interface, if any');
DELETE FROM mtl_serial_numbers_interface
WHERE transaction_interface_id IN
( SELECT serial_transaction_temp_id
FROM mtl_transaction_lots_interface
WHERE rowid = x_rowid);
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.DELETE_ROW',
'END',
'Finish with call to DELETE mtl_serial_numbers_interface');
wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.DELETE_ROW',
'START',
'Delete from mtl_transaction_lots_interface ');
DELETE FROM mtl_transaction_lots_interface WHERE rowid = x_rowid;
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.DELETE_ROW',
'END',
'No rows deleted. Raising NO_DATA_FOUND');
/* wsh_server_debug.log_event('WSH_TRXLOTS_HANDLER.DELETE_ROW',
'END',
'End of procedure DELETE_ROW');
END Delete_Row;
SELECT * FROM mtl_transaction_lots_interface
WHERE rowid = x_rowid
FOR UPDATE NOWAIT;
'Lock record failed. Raising exception FORM_RECORD_DELETED');
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');