The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_retVal VARCHAR2(4);--retval for inventory update kanban proc, sales order completions
SELECT *
INTO l_wlcRec
FROM wip_lpn_completions
WHERE p_header_id = header_id;
UPDATE wip_lpn_completions
SET final_completion_flag = nvl(l_wlcRec.final_completion_flag, 'N')
WHERE header_id = p_header_id;--rowid = l_wlcRec.rowid;
SELECT start_quantity - quantity_completed - quantity_scrapped, rowid
INTO l_rem_qty, l_rowid
FROM wip_discrete_jobs
WHERE organization_id = l_wlcRec.organization_id
AND wip_entity_id = l_wlcRec.wip_entity_id
FOR UPDATE OF quantity_completed;
SELECT quantity_waiting_to_move
INTO l_op_qty
FROM wip_operations
WHERE organization_id = l_wlcRec.organization_id
AND wip_entity_id = l_wlcRec.wip_entity_id
AND operation_seq_num = l_wlcRec.operation_seq_num
FOR UPDATE OF quantity_waiting_to_move;
UPDATE wip_operations
SET quantity_waiting_to_move = quantity_waiting_to_move -
ROUND(l_wlcRec.primary_quantity,6),
date_last_moved = l_wlcRec.transaction_date,
last_updated_by = l_wlcRec.last_updated_by,
last_update_date = sysdate,
program_application_id = l_wlcRec.program_application_id,
program_id = l_wlcRec.program_id,
program_update_date = l_wlcRec.program_update_date
WHERE organization_id = l_wlcRec.organization_id
AND wip_entity_id = l_wlcRec.wip_entity_id
AND operation_seq_num = l_wlcRec.operation_seq_num;
UPDATE wip_discrete_jobs
SET quantity_completed = quantity_completed +
ROUND(l_wlcRec.primary_quantity,6),
date_completed = l_wlcRec.transaction_date,
status_type = 4,
last_updated_by = l_wlcRec.last_updated_by,
last_update_date = sysdate,
program_application_id = l_wlcRec.program_application_id,
program_id = l_wlcRec.program_id,
program_update_date = l_wlcRec.program_update_date
WHERE rowid = l_rowid;
UPDATE wip_discrete_jobs
SET quantity_completed = quantity_completed +
ROUND(l_wlcRec.primary_quantity,6),
last_updated_by = l_wlcRec.last_updated_by,
last_update_date = sysdate,
program_application_id = l_wlcRec.program_application_id,
program_id = l_wlcRec.program_id,
program_update_date = l_wlcRec.program_update_date
WHERE rowid = l_rowid;
inv_kanban_pvt.update_card_supply_status(
x_return_status => l_retVal,
p_kanban_card_id => l_wlcRec.kanban_card_id,
p_supply_status => INV_Kanban_PVT.G_Supply_Status_Full,
p_document_type => 5, --discrete job
p_document_header_id => l_wlcRec.wip_entity_id);