The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row (X_Rowid IN OUT NOCOPY VARCHAR2,
X_Inventory_Item_Id NUMBER,
X_Organization_Id NUMBER,
X_Related_Item_Id NUMBER,
X_Relationship_Type_Id NUMBER,
X_Reciprocal_Flag VARCHAR2,
X_Start_Date DATE,
X_End_Date DATE,
X_Attr_Context VARCHAR2,
X_Attr_Char1 VARCHAR2,
X_Attr_Char2 VARCHAR2,
X_Attr_Char3 VARCHAR2,
X_Attr_Char4 VARCHAR2,
X_Attr_Char5 VARCHAR2,
X_Attr_Char6 VARCHAR2,
X_Attr_Char7 VARCHAR2,
X_Attr_Char8 VARCHAR2,
X_Attr_Char9 VARCHAR2,
X_Attr_Char10 VARCHAR2,
X_Attr_Num1 NUMBER,
X_Attr_Num2 NUMBER,
X_Attr_Num3 NUMBER,
X_Attr_Num4 NUMBER,
X_Attr_Num5 NUMBER,
X_Attr_Num6 NUMBER,
X_Attr_Num7 NUMBER,
X_Attr_Num8 NUMBER,
X_Attr_Num9 NUMBER,
X_Attr_Num10 NUMBER,
X_Attr_Date1 DATE,
X_Attr_Date2 DATE,
X_Attr_Date3 DATE,
X_Attr_Date4 DATE,
X_Attr_Date5 DATE,
X_Attr_Date6 DATE,
X_Attr_Date7 DATE,
X_Attr_Date8 DATE,
X_Attr_Date9 DATE,
X_Attr_Date10 DATE,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER,
X_Object_Version_Number NUMBER
) IS
CURSOR C IS SELECT rowid FROM MTL_RELATED_ITEMS
WHERE inventory_item_id = X_Inventory_Item_Id
AND organization_id = X_Organization_Id
AND related_item_id = X_Related_Item_Id
AND Relationship_Type_Id = X_Relationship_Type_Id
AND Reciprocal_Flag = X_Reciprocal_Flag ;
INSERT INTO MTL_RELATED_ITEMS(
inventory_item_id,
organization_id,
related_item_id,
relationship_type_id,
reciprocal_flag,
Start_Date,
End_Date,
Attr_Context,
Attr_Char1,
Attr_Char2,
Attr_Char3,
Attr_Char4,
Attr_Char5,
Attr_Char6,
Attr_Char7,
Attr_Char8,
Attr_Char9,
Attr_Char10,
Attr_Num1,
Attr_Num2,
Attr_Num3,
Attr_Num4,
Attr_Num5,
Attr_Num6,
Attr_Num7,
Attr_Num8,
Attr_Num9,
Attr_Num10,
Attr_Date1,
Attr_Date2,
Attr_Date3,
Attr_Date4,
Attr_Date5,
Attr_Date6,
Attr_Date7,
Attr_Date8,
Attr_Date9,
Attr_Date10,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
object_version_number
) VALUES (
X_Inventory_Item_Id,
X_Organization_Id,
X_Related_Item_Id,
X_Relationship_Type_Id,
X_Reciprocal_Flag,
X_Start_Date,
X_End_Date,
X_Attr_Context,
X_Attr_Char1,
X_Attr_Char2,
X_Attr_Char3,
X_Attr_Char4,
X_Attr_Char5,
X_Attr_Char6,
X_Attr_Char7,
X_Attr_Char8,
X_Attr_Char9,
X_Attr_Char10,
X_Attr_Num1,
X_Attr_Num2,
X_Attr_Num3,
X_Attr_Num4,
X_Attr_Num5,
X_Attr_Num6,
X_Attr_Num7,
X_Attr_Num8,
X_Attr_Num9,
X_Attr_Num10,
X_Attr_Date1,
X_Attr_Date2,
X_Attr_Date3,
X_Attr_Date4,
X_Attr_Date5,
X_Attr_Date6,
X_Attr_Date7,
X_Attr_Date8,
X_Attr_Date9,
X_Attr_Date10,
X_Last_Update_Date,
X_Last_Updated_By,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login,
X_Object_Version_Number
);
END Insert_Row;
SELECT *
FROM MTL_RELATED_ITEMS
WHERE rowid = X_Rowid
FOR UPDATE of Inventory_Item_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row (X_Rowid VARCHAR2,
X_Inventory_Item_Id NUMBER,
X_Organization_Id NUMBER,
X_Related_Item_Id NUMBER,
X_Relationship_Type_Id NUMBER,
X_Reciprocal_Flag VARCHAR2,
X_Start_Date DATE,
X_End_Date DATE,
X_Attr_Context VARCHAR2,
X_Attr_Char1 VARCHAR2,
X_Attr_Char2 VARCHAR2,
X_Attr_Char3 VARCHAR2,
X_Attr_Char4 VARCHAR2,
X_Attr_Char5 VARCHAR2,
X_Attr_Char6 VARCHAR2,
X_Attr_Char7 VARCHAR2,
X_Attr_Char8 VARCHAR2,
X_Attr_Char9 VARCHAR2,
X_Attr_Char10 VARCHAR2,
X_Attr_Num1 NUMBER,
X_Attr_Num2 NUMBER,
X_Attr_Num3 NUMBER,
X_Attr_Num4 NUMBER,
X_Attr_Num5 NUMBER,
X_Attr_Num6 NUMBER,
X_Attr_Num7 NUMBER,
X_Attr_Num8 NUMBER,
X_Attr_Num9 NUMBER,
X_Attr_Num10 NUMBER,
X_Attr_Date1 DATE,
X_Attr_Date2 DATE,
X_Attr_Date3 DATE,
X_Attr_Date4 DATE,
X_Attr_Date5 DATE,
X_Attr_Date6 DATE,
X_Attr_Date7 DATE,
X_Attr_Date8 DATE,
X_Attr_Date9 DATE,
X_Attr_Date10 DATE,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER
) IS
BEGIN
UPDATE MTL_RELATED_ITEMS
SET
inventory_item_id = X_Inventory_Item_Id,
organization_id = X_Organization_Id,
related_item_id = X_Related_Item_Id,
relationship_type_id = X_Relationship_Type_Id,
reciprocal_flag = X_Reciprocal_Flag,
Start_Date = X_Start_Date,
End_Date = X_End_Date,
Attr_Context = X_Attr_Context,
Attr_Char1 = X_Attr_Char1,
Attr_Char2 = X_Attr_Char2,
Attr_Char3 = X_Attr_Char3,
Attr_Char4 = X_Attr_Char4,
Attr_Char5 = X_Attr_Char5,
Attr_Char6 = X_Attr_Char6,
Attr_Char7 = X_Attr_Char7,
Attr_Char8 = X_Attr_Char8,
Attr_Char9 = X_Attr_Char9,
Attr_Char10 = X_Attr_Char10,
Attr_Num1 = X_Attr_Num1,
Attr_Num2 = X_Attr_Num2,
Attr_Num3 = X_Attr_Num3,
Attr_Num4 = X_Attr_Num4,
Attr_Num5 = X_Attr_Num5,
Attr_Num6 = X_Attr_Num6,
Attr_Num7 = X_Attr_Num7,
Attr_Num8 = X_Attr_Num8,
Attr_Num9 = X_Attr_Num9,
Attr_Num10 = X_Attr_Num10,
Attr_Date1 = X_Attr_Date1,
Attr_Date2 = X_Attr_Date2,
Attr_Date3 = X_Attr_Date3,
Attr_Date4 = X_Attr_Date4,
Attr_Date5 = X_Attr_Date5,
Attr_Date6 = X_Attr_Date6,
Attr_Date7 = X_Attr_Date7,
Attr_Date8 = X_Attr_Date8,
Attr_Date9 = X_Attr_Date9,
Attr_Date10 = X_Attr_Date10,
last_update_date = X_Last_Update_Date,
last_update_login = X_Last_Update_Login
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM MTL_RELATED_ITEMS
WHERE rowid = X_Rowid;
END Delete_Row;