The following lines contain the word 'select', 'insert', 'update' or 'delete':
AND l_eam_failure_entry_record.transaction_type <> Eam_Process_Failure_Entry_PUB.G_FE_UPDATE)
OR l_eam_failure_entry_record.transaction_type IS NULL
)
THEN
/* Invalid Transaction Type */
FND_MESSAGE.SET_NAME ('EAM', 'EAM_FA_INVALID_TXN_TYPE');
AND l_eam_failure_codes_tbl(1).transaction_type <> Eam_Process_Failure_Entry_PUB.G_FE_UPDATE
)
THEN
FND_MESSAGE.SET_NAME ('EAM', 'EAM_FA_INVALID_TXN_TYPE');
SELECT wip_entity_id
INTO l_eam_failure_entry_record.source_id
FROM wip_entities
WHERE wip_entity_name = l_eam_failure_entry_record.source_name
AND organization_id = l_eam_failure_entry_record.maint_organization_id
AND entity_type in (6,7);
SELECT maintenance_object_id, maintenance_object_type, owning_department, organization_id
INTO l_object_id , l_object_type , l_department_id , l_organization_id
FROM wip_discrete_jobs
WHERE wip_entity_id = l_eam_failure_entry_record.source_id;
SELECT eomd.owning_department_id,eomd.area_id
INTO l_msn_department_id, l_eam_location_id
FROM csi_item_instances cii,
eam_org_maint_defaults eomd,mtl_parameters mp
WHERE cii.instance_id = l_object_id
AND cii.instance_id = eomd.object_id(+)
AND eomd.object_type(+)= 50
AND cii.last_vld_organization_id = mp.organization_id
AND ( eomd.organization_id IS NULL OR
mp.maint_organization_id = eomd.organization_id);
ELSIF l_eam_failure_entry_record.transaction_type = EAM_Process_Failure_Entry_PUB.G_FE_UPDATE THEN
IF l_eam_failure_entry_record.failure_id IS NULL THEN
IF ( l_eam_failure_entry_record.source_type = 1
AND ( l_eam_failure_entry_record.source_id IS NOT NULL
OR ( l_eam_failure_entry_record.source_name IS NOT NULL
AND l_eam_failure_entry_record.maint_organization_id IS NOT NULL
)
)
)
THEN
BEGIN
IF l_eam_failure_entry_record.source_id IS NOT NULL THEN
SELECT failure_id
INTO l_eam_failure_entry_record.failure_id
FROM eam_asset_failures
WHERE source_id = l_eam_failure_entry_record.source_id
AND source_type = 1;
SELECT failure_id
INTO l_eam_failure_entry_record.failure_id
FROM eam_asset_failures
WHERE source_id = ( SELECT wip_entity_id
FROM WIP_ENTITIES
WHERE WIP_ENTITY_NAME = l_eam_failure_entry_record.source_name
AND organization_id = l_eam_failure_entry_record.maint_organization_id
)
AND source_type = 1;
SELECT object_type , object_id , source_id , source_type , failure_date , maint_organization_id , current_organization_id , area_id
INTO l_object_type, l_object_id , l_source_id, l_source_type, l_failure_date, l_maint_organization_id, l_current_organization_id, l_area_id
FROM eam_asset_failures
WHERE failure_id = l_eam_failure_entry_record.failure_id;
FND_MESSAGE.SET_NAME ('EAM', 'EAM_CANNOT_UPDATE');
FND_MESSAGE.SET_NAME ('EAM', 'EAM_CANNOT_UPDATE');
FND_MESSAGE.SET_NAME ('EAM', 'EAM_CANNOT_UPDATE');
FND_MESSAGE.SET_NAME ('EAM', 'EAM_CANNOT_UPDATE');
SELECT owning_department , organization_id
INTO l_department_id , l_organization_id
FROM WIP_DISCRETE_JOBS
WHERE wip_entity_id = l_source_id;
SELECT eomd.owning_department_id,eomd.area_id
INTO l_msn_department_id, l_eam_location_id
FROM csi_item_instances cii,
eam_org_maint_defaults eomd,mtl_parameters mp
WHERE cii.instance_id = l_object_id
AND cii.instance_id = eomd.object_id(+)
AND eomd.object_type(+)= 50
AND cii.last_vld_organization_id = mp.organization_id
AND ( eomd.organization_id IS NULL OR
mp.maint_organization_id = eomd.organization_id);
IF l_eam_failure_codes_tbl(i).transaction_type = EAM_Process_Failure_Entry_PUB.G_FE_UPDATE THEN
l_eam_failure_codes_tbl(i).failure_id := l_eam_failure_entry_record.failure_id;
SELECT failure_entry_id , failure_code, cause_code, resolution_code, comments
INTO l_eam_failure_codes_tbl(i).failure_entry_id, l_failure_code, l_cause_code, l_resolution_code, l_comments
FROM eam_asset_failure_codes
WHERE failure_id = l_eam_failure_codes_tbl(i).failure_id;
SELECT failure_id , failure_code, cause_code, resolution_code, comments
INTO l_eam_failure_codes_tbl(i).failure_id, l_failure_code, l_cause_code, l_resolution_code, l_comments
FROM eam_asset_failure_codes
WHERE failure_entry_id = l_eam_failure_codes_tbl(i).failure_entry_id;
SELECT wdj.date_completed, nvl(edw.failure_code_required, 'N')
INTO l_date_completed , l_failure_code_required
FROM wip_discrete_jobs wdj, eam_work_order_details edw
WHERE wdj.wip_entity_id = edw.wip_entity_id
AND wdj.wip_entity_id = l_eam_failure_entry_record.source_id;
SELECT failure_code , cause_code , resolution_code , comments
INTO l_failure_code, l_cause_code, l_resolution_code, l_comments
FROM eam_asset_failure_codes
WHERE failure_id = l_eam_failure_entry_record.failure_id;
SELECT comments
INTO l_comments
FROM eam_asset_failure_codes
WHERE failure_id = l_eam_failure_entry_record.failure_id;