The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select organization_id
From mtl_parameters
Where organization_code = P_Code;
Select 'x' dummy
From dual
Where not exists(
Select null
From mtl_parameters
where organization_id = P_OrgId);
Select 'x' dummy
From dual
Where not exists(
Select null
from mtl_system_items
where organization_id = P_OrgId
and inventory_item_id = P_ItemId);
Select 'x' dummy
From dual
Where not exists(
Select null
from bom_operational_routings
where organization_id = P_OrgId
and assembly_item_id = P_ItemId);
Select 'x' dummy
from dual
Where exists(
Select null
from mtl_rtg_item_revisions
where inventory_item_id = P_ItemId
and organization_id = P_OrgId
and ((effectivity_date > P_EffDate and
process_revision < P_Revision)
or
(effectivity_date < P_EffDate and
process_revision > P_Revision)
)
);
l_ProgramUpdate date;
End if; -- validate before inserting
l_ProgramUpdate := null;
l_ProgramUpdate := sysdate;
Insert into mtl_rtg_item_revisions(
inventory_item_id,
organization_id,
process_revision,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
change_notice,
ecn_initiation_date,
implementation_date,
implemented_serial_number,
effectivity_date,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
request_id,
program_application_id,
program_id,
program_update_date)
values(
l_RtgRevision_rec.inventory_item_id,
l_RtgRevision_rec.organization_id,
l_RtgRevision_rec.process_revision,
sysdate,
l_UserId,
sysdate,
l_UserId,
l_LoginId,
l_RtgRevision_rec.change_notice,
l_RtgRevision_rec.ecn_initiation_date,
l_RtgRevision_rec.implementation_date,
l_RtgRevision_rec.implemented_serial_number,
l_RtgRevision_rec.effectivity_date,
l_RtgRevision_rec.attribute_category,
l_RtgRevision_rec.attribute1,
l_RtgRevision_rec.attribute2,
l_RtgRevision_rec.attribute3,
l_RtgRevision_rec.attribute4,
l_RtgRevision_rec.attribute5,
l_RtgRevision_rec.attribute6,
l_RtgRevision_rec.attribute7,
l_RtgRevision_rec.attribute8,
l_RtgRevision_rec.attribute9,
l_RtgRevision_rec.attribute10,
l_RtgRevision_rec.attribute11,
l_RtgRevision_rec.attribute12,
l_RtgRevision_rec.attribute13,
l_RtgRevision_rec.attribute14,
l_RtgRevision_rec.attribute15,
l_RequestId,
l_ApplicationId,
l_ProgramId,
l_ProgramUpdate);
PROCEDURE UpdateRtgRevision(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2,
p_RtgRevision_rec IN RTG_REVISION_REC_TYPE :=
G_MISS_RTG_REVISION_REC,
x_RtgRevision_rec OUT RTG_REVISION_REC_TYPE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'UpdateRtgRevision';
l_ProgramUpdate DATE;
Select *
From mtl_rtg_item_revisions
Where inventory_item_id = P_ItemId
And organization_id = P_OrgId
And process_revision = P_Revision;
SAVEPOINT UpdateRtgRevision_Pvt;
l_ProgramUpdate := null;
l_ProgramUpdate := sysdate;
update mtl_rtg_item_revisions set
last_update_date = sysdate,
last_updated_by = l_UserId,
creation_date = sysdate,
created_by = l_UserId,
last_update_login = l_LoginId,
change_notice = l_RtgRevision_rec.change_notice,
ecn_initiation_date = l_RtgRevision_rec.ecn_initiation_date,
implementation_date = l_RtgRevision_rec.implementation_date,
implemented_serial_number = l_RtgRevision_rec.implemented_serial_number,
effectivity_date = l_RtgRevision_rec.effectivity_date,
attribute_category = l_RtgRevision_rec.attribute_category,
attribute1 = l_RtgRevision_rec.attribute1,
attribute2 = l_RtgRevision_rec.attribute2,
attribute3 = l_RtgRevision_rec.attribute3,
attribute4 = l_RtgRevision_rec.attribute4,
attribute5 = l_RtgRevision_rec.attribute5,
attribute6 = l_RtgRevision_rec.attribute6,
attribute7 = l_RtgRevision_rec.attribute7,
attribute8 = l_RtgRevision_rec.attribute8,
attribute9 = l_RtgRevision_rec.attribute9,
attribute10 = l_RtgRevision_rec.attribute10,
attribute11 = l_RtgRevision_rec.attribute11,
attribute12 = l_RtgRevision_rec.attribute12,
attribute13 = l_RtgRevision_rec.attribute13,
attribute14 = l_RtgRevision_rec.attribute14,
attribute15 = l_RtgRevision_rec.attribute15,
request_id = l_RequestId,
program_application_id = l_ApplicationId,
program_id = l_ProgramId,
program_update_date = l_ProgramUpdate
where inventory_item_id = l_RtgRevision_rec.inventory_item_id
and organization_id = l_RtgRevision_rec.organization_id
and process_revision = l_RtgRevision_rec.process_revision;
ROLLBACK TO UpdateRtgRevision_Pvt;
ROLLBACK TO UpdateRtgRevision_Pvt;
ROLLBACK TO UpdateRtgRevision_Pvt;
END UpdateRtgRevision;
PROCEDURE DeleteRtgRevision(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2,
p_RtgRevision_rec IN RTG_REVISION_REC_TYPE :=
G_MISS_RTG_REVISION_REC,
x_RtgRevision_rec OUT RTG_REVISION_REC_TYPE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'DeleteRtgRevision';
Select 1 dummy
From mtl_rtg_item_revisions mrir
Where mrir.inventory_item_id = P_ItemId
And mrir.organization_id = P_OrgId
And mrir.process_revision = P_Rev
And mrir.effectivity_date < sysdate;
SAVEPOINT DeleteRtgRevision_Pvt;
Fnd_Message.Set_Name('BOM', 'BOM_CANNOT_DELETE_REVISION');
delete from mtl_rtg_item_revisions
where inventory_item_id = l_RtgRevision_rec.inventory_item_id
and organization_id = l_RtgRevision_rec.organization_id
and process_revision = l_RtgRevision_rec.process_revision;
ROLLBACK TO DeleteRtgRevision_Pvt;
ROLLBACK TO DeleteRtgRevision_Pvt;
ROLLBACK TO DeleteRtgRevision_Pvt;
END DeleteRtgRevision;