The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
P_INVENTORY_ITEM_ID IN NUMBER
,P_ORGANIZATION_ID IN NUMBER
,P_RELATED_ITEM_ID IN NUMBER
,P_RELATIONSHIP_TYPE_ID IN NUMBER
,P_SUBSTITUTION_SET IN VARCHAR2
,P_PARTIAL_FULFILLMENT_FLAG IN VARCHAR2
,P_START_DATE IN DATE
,P_END_DATE IN DATE
,P_ALL_CUSTOMERS_FLAG IN VARCHAR2
,P_LAST_UPDATE_DATE IN DATE
,P_LAST_UPDATED_BY IN NUMBER
,P_CREATION_DATE IN DATE
,P_CREATED_BY IN NUMBER
,P_LAST_UPDATE_LOGIN IN NUMBER
,X_PLN_INFO_ID OUT NOCOPY NUMBER) IS
CURSOR C_CHECK_INSERT IS
SELECT 'Y'
FROM MTL_RELATED_ITEMS_PLN_INFO
WHERE PLN_INFO_ID = X_PLN_INFO_ID
AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID
AND ORGANIZATION_ID = P_ORGANIZATION_ID
AND RELATED_ITEM_ID = P_RELATED_ITEM_ID
AND RELATIONSHIP_TYPE_ID = P_RELATIONSHIP_TYPE_ID;
INSERT INTO MTL_RELATED_ITEMS_PLN_INFO(
PLN_INFO_ID
,INVENTORY_ITEM_ID
,ORGANIZATION_ID
,RELATED_ITEM_ID
,RELATIONSHIP_TYPE_ID
,SUBSTITUTION_SET
,PARTIAL_FULFILLMENT_FLAG
,START_DATE
,END_DATE
,ALL_CUSTOMERS_FLAG
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_LOGIN)
VALUES(
MTL_REL_ITEM_PLN_INFO_S.NEXTVAL
,P_INVENTORY_ITEM_ID
,P_ORGANIZATION_ID
,P_RELATED_ITEM_ID
,P_RELATIONSHIP_TYPE_ID
,P_SUBSTITUTION_SET
,P_PARTIAL_FULFILLMENT_FLAG
,P_START_DATE
,P_END_DATE
,P_ALL_CUSTOMERS_FLAG
,Nvl(P_LAST_UPDATE_DATE, SYSDATE)
,Nvl(P_LAST_UPDATED_BY, FND_GLOBAL.USER_ID)
,Nvl(P_CREATION_DATE, SYSDATE)
,Nvl(P_CREATED_BY, FND_GLOBAL.USER_ID)
,Nvl(P_LAST_UPDATE_LOGIN, FND_GLOBAL.LOGIN_ID)
)
RETURNING PLN_INFO_ID INTO X_PLN_INFO_ID;
OPEN C_CHECK_INSERT;
FETCH C_CHECK_INSERT INTO l_exists;
IF (C_CHECK_INSERT%NOTFOUND) THEN
CLOSE C_CHECK_INSERT;
CLOSE C_CHECK_INSERT;
END INSERT_ROW;
SELECT
INVENTORY_ITEM_ID
,ORGANIZATION_ID
,RELATED_ITEM_ID
,RELATIONSHIP_TYPE_ID
,SUBSTITUTION_SET
,PARTIAL_FULFILLMENT_FLAG
,START_DATE
,END_DATE
,ALL_CUSTOMERS_FLAG
FROM MTL_RELATED_ITEMS_PLN_INFO
WHERE PLN_INFO_ID = P_PLN_INFO_ID
AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID
AND ORGANIZATION_ID = P_ORGANIZATION_ID
AND RELATED_ITEM_ID = P_RELATED_ITEM_ID
AND RELATIONSHIP_TYPE_ID = P_RELATIONSHIP_TYPE_ID
FOR UPDATE OF PLN_INFO_ID,
INVENTORY_ITEM_ID,
ORGANIZATION_ID,
RELATED_ITEM_ID,
RELATIONSHIP_TYPE_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW(
P_PLN_INFO_ID IN NUMBER
,P_INVENTORY_ITEM_ID IN NUMBER
,P_ORGANIZATION_ID IN NUMBER
,P_RELATED_ITEM_ID IN NUMBER
,P_RELATIONSHIP_TYPE_ID IN NUMBER
,P_SUBSTITUTION_SET IN VARCHAR2
,P_PARTIAL_FULFILLMENT_FLAG IN VARCHAR2
,P_START_DATE IN DATE
,P_END_DATE IN DATE
,P_ALL_CUSTOMERS_FLAG IN VARCHAR2
,P_LAST_UPDATE_DATE IN DATE
,P_LAST_UPDATED_BY IN NUMBER
,P_LAST_UPDATE_LOGIN IN NUMBER) IS
BEGIN
UPDATE MTL_RELATED_ITEMS_PLN_INFO
SET
INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID
,ORGANIZATION_ID = P_ORGANIZATION_ID
,RELATED_ITEM_ID = P_RELATED_ITEM_ID
,RELATIONSHIP_TYPE_ID = P_RELATIONSHIP_TYPE_ID
,SUBSTITUTION_SET = P_SUBSTITUTION_SET
,PARTIAL_FULFILLMENT_FLAG = P_PARTIAL_FULFILLMENT_FLAG
,START_DATE = P_START_DATE
,END_DATE = P_END_DATE
,ALL_CUSTOMERS_FLAG = P_ALL_CUSTOMERS_FLAG
,LAST_UPDATE_DATE = Nvl(P_LAST_UPDATE_DATE,SYSDATE)
,LAST_UPDATED_BY = Nvl(P_LAST_UPDATED_BY,FND_GLOBAL.USER_ID)
,LAST_UPDATE_LOGIN = Nvl(P_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID)
WHERE PLN_INFO_ID = P_PLN_INFO_ID
AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID
AND ORGANIZATION_ID = P_ORGANIZATION_ID
AND RELATED_ITEM_ID = P_RELATED_ITEM_ID
AND RELATIONSHIP_TYPE_ID = P_RELATIONSHIP_TYPE_ID;
END UPDATE_ROW;
PROCEDURE DELETE_ROW(
P_PLN_INFO_ID IN NUMBER
,P_INVENTORY_ITEM_ID IN NUMBER
,P_ORGANIZATION_ID IN NUMBER
,P_RELATED_ITEM_ID IN NUMBER
,P_RELATIONSHIP_TYPE_ID IN NUMBER) IS
BEGIN
DELETE FROM MTL_RELATED_ITEMS_PLN_INFO
WHERE PLN_INFO_ID = P_PLN_INFO_ID
AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID
AND ORGANIZATION_ID = P_ORGANIZATION_ID
AND RELATED_ITEM_ID = P_RELATED_ITEM_ID
AND RELATIONSHIP_TYPE_ID = P_RELATIONSHIP_TYPE_ID;
END DELETE_ROW;