The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_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_CUSTOMER_ID IN NUMBER
,P_SITE_USE_ID IN NUMBER
,P_START_DATE IN DATE
,P_END_DATE IN DATE
,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) IS
CURSOR C_CHECK_INSERT IS
SELECT 'Y'
FROM MTL_RELATED_ITEMS_CUST_REF
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
AND CUSTOMER_ID = P_CUSTOMER_ID
AND SITE_USE_ID = P_SITE_USE_ID;
INSERT INTO MTL_RELATED_ITEMS_CUST_REF(
PLN_INFO_ID
,INVENTORY_ITEM_ID
,ORGANIZATION_ID
,RELATED_ITEM_ID
,RELATIONSHIP_TYPE_ID
,CUSTOMER_ID
,SITE_USE_ID
,START_DATE
,END_DATE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_LOGIN)
VALUES(
P_PLN_INFO_ID
,P_INVENTORY_ITEM_ID
,P_ORGANIZATION_ID
,P_RELATED_ITEM_ID
,P_RELATIONSHIP_TYPE_ID
,P_CUSTOMER_ID
,P_SITE_USE_ID
,P_START_DATE
,P_END_DATE
,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));
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
,CUSTOMER_ID
,SITE_USE_ID
,START_DATE
,END_DATE
FROM MTL_RELATED_ITEMS_CUST_REF
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
AND CUSTOMER_ID = P_CUSTOMER_ID
AND SITE_USE_ID = P_SITE_USE_ID
FOR UPDATE OF PLN_INFO_ID,
INVENTORY_ITEM_ID,
ORGANIZATION_ID,
RELATED_ITEM_ID,
RELATIONSHIP_TYPE_ID,
CUSTOMER_ID,
SITE_USE_ID,
START_DATE,
END_DATE 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_CUSTOMER_ID IN NUMBER
,P_SITE_USE_ID IN NUMBER
,P_START_DATE IN DATE
,P_END_DATE IN DATE
,P_LAST_UPDATE_DATE IN DATE
,P_LAST_UPDATED_BY IN NUMBER
,P_LAST_UPDATE_LOGIN IN NUMBER) IS
BEGIN
UPDATE MTL_RELATED_ITEMS_CUST_REF
SET
PLN_INFO_ID = P_PLN_INFO_ID
,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
,CUSTOMER_ID = P_CUSTOMER_ID
,SITE_USE_ID = P_SITE_USE_ID
,START_DATE = P_START_DATE
,END_DATE = P_END_DATE
,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
AND CUSTOMER_ID = P_CUSTOMER_ID
AND SITE_USE_ID = P_SITE_USE_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
,P_CUSTOMER_ID IN NUMBER
,P_SITE_USE_ID IN NUMBER) IS
BEGIN
DELETE FROM MTL_RELATED_ITEMS_CUST_REF
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
AND CUSTOMER_ID = P_CUSTOMER_ID
AND SITE_USE_ID = P_SITE_USE_ID;
END DELETE_ROW;