The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_PULL_SEQUENCES
(x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_pull_sequence_id IN NUMBER,
p_organization_id IN NUMBER,
p_kanban_plan_id IN NUMBER,
p_inventory_item_id IN NUMBER,
p_subinventory_name IN VARCHAR2,
p_locator_id IN NUMBER,
p_kanban_size IN NUMBER,
p_number_of_cards IN NUMBER,
p_source_type IN NUMBER := FND_API.G_MISS_NUM,
p_source_organization_id IN NUMBER := FND_API.G_MISS_NUM,
p_source_subinventory IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_source_locator_id IN NUMBER := FND_API.G_MISS_NUM,
p_line_id IN NUMBER := FND_API.G_MISS_NUM,
p_supplier_id IN NUMBER := FND_API.G_MISS_NUM,
p_supplier_site_id IN NUMBER := FND_API.G_MISS_NUM,
p_calculate_kanban_flag IN NUMBER := FND_API.G_MISS_NUM,
p_replenishment_lead_time IN NUMBER := FND_API.G_MISS_NUM,
p_release_kanban_flag IN NUMBER := FND_API.G_MISS_NUM,
p_minimum_order_quantity IN NUMBER := FND_API.G_MISS_NUM,
p_fixed_lot_multiplier IN NUMBER := FND_API.G_MISS_NUM,
p_safety_stock_days IN NUMBER := FND_API.G_MISS_NUM) IS
l_pull_sequence_rec INV_Kanban_PVT.pull_sequence_rec_type;
INV_Kanban_PVT.update_pull_sequence(l_return_status,
l_pull_sequence_rec);
END UPDATE_PULL_SEQUENCES;
PROCEDURE DELETE_PULL_SEQUENCES
(x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_kanban_plan_id IN NUMBER) IS
l_return_status VARCHAR2(1);
INV_Kanban_PVT.delete_pull_sequence(l_return_status,
p_kanban_plan_id);
END DELETE_PULL_SEQUENCES;
PROCEDURE INSERT_PULL_SEQUENCES (
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_plan_pull_sequence_id IN NUMBER ) IS
l_return_status VARCHAR2(1);
INV_Kanban_PVT.Insert_Pull_Sequence(l_return_status,l_pull_sequence_rec);
End INSERT_PULL_SEQUENCES;
PROCEDURE UPDATE_AND_PRINT_KANBANS (
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_query_id IN NUMBER,
p_update_flag IN VARCHAR2 ) IS
l_pull_seq_id NUMBER;
l_update constant number := 0;
l_insert constant number := 1;
SELECT number1,nvl(number2,l_update),nvl(number3,0)
FROM mrp_form_query
WHERE query_id = p_query_id;
if(( l_flag = l_update) or (l_flag=l_insert)) then
l_counter := l_counter + 1;
if( l_flag = l_update) then
l_operation_tbl(l_counter) :=l_update;
l_operation_tbl(l_counter) :=l_insert;
if(l_flag=l_delplanprodcards) then --Delete cards
DELETE
FROM MTL_KANBAN_CARDS
WHERE pull_sequence_id = l_prod_pull_sequence_id;
if( (l_flag=l_delplanprodcards ) or ( l_flag = l_delplanprod) ) then -- Delete Production
INV_pullsequence_PKG.delete_row(l_return_status,l_prod_pull_sequence_id);
-- Delete planning pull sequence
INV_pullsequence_pkg.delete_row(l_return_status,l_pull_seq_id);
INV_Kanban_PVT.Update_Pull_sequence_Tbl (
l_return_status,
l_pull_seq_tbl,
p_update_flag,
l_operation_tbl);
DELETE FROM mrp_form_query
WHERE query_id = p_query_id;
END UPDATE_AND_PRINT_KANBANS;