The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Quantity_Issued(
ERRBUF OUT NOCOPY VARCHAR2,
RETCODE OUT NOCOPY NUMBER,
p_organization_id IN NUMBER,
p_api_version IN NUMBER ) IS
l_stmt_num NUMBER;
l_api_name CONSTANT VARCHAR2(240) := 'Update_Quantity_Issued';
SELECT count(*)
INTO l_mmtt
FROM mtl_material_transactions_temp mmtt,
mtl_parameters MP
WHERE mmtt.organization_id = MP.organization_id and
MP.wsm_enabled_flag = 'Y' and
mmtt.transaction_source_type_id = 5 and
mmtt.transaction_status <> 2 and
MP.organization_id = nvl(p_organization_id, MP.organization_id) and
rownum = 1;
SELECT count(*)
INTO l_uncosted_mmt
FROM mtl_material_transactions mmt,
mtl_parameters MP
WHERE mmt.organization_id = MP.organization_id and
mmt.costed_flag IN ('N','E') and
MP.wsm_enabled_flag = 'Y' and
mmt.transaction_source_type_id = 5 and
MP.organization_id = nvl(p_organization_id, MP.organization_id) and
rownum = 1;
UPDATE wip_requirement_operations wro
SET costed_quantity_issued = NVL(quantity_issued,0),
costed_quantity_relieved = NVL(quantity_relieved,0)
WHERE exists ( SELECT 1
FROM wip_entities we, wip_discrete_jobs wdj
WHERE we.wip_entity_id = wro.wip_entity_id
AND we.organization_id = wro.organization_id
AND we.entity_type = 5
AND we.wip_entity_id = wdj.wip_entity_id
AND we.organization_id = wdj.organization_id
AND wdj.status_type NOT IN (1,12));
UPDATE wip_requirement_operations wro
SET costed_quantity_issued = NVL(quantity_issued,0),
costed_quantity_relieved = NVL(quantity_relieved,0)
WHERE wro.organization_id = p_organization_id
AND exists ( SELECT 1
FROM wip_entities we, wip_discrete_jobs wdj
WHERE we.wip_entity_id = wro.wip_entity_id
AND we.organization_id = wro.organization_id
AND we.entity_type = 5
AND we.wip_entity_id = wdj.wip_entity_id
AND we.organization_id = wdj.organization_id
AND wdj.status_type NOT IN (1,12));
ERRBUF := 'CST_OSFMUpgrade_PVT.update_quantity_issued('||l_stmt_num||'):'||
substr(SQLERRM, 1, 200);
END Update_Quantity_Issued;