The following lines contain the word 'select', 'insert', 'update' or 'delete':
Cursor c2 is SELECT IEX_STRATEGIES_S.nextval from dual;
Cursor c3 is SELECT strategy_level from iex_strategy_templates_b
where strategy_temp_id = p_STRATEGY_rec.STRATEGY_TEMPLATE_ID;
IEX_DEBUG_PUB.LogMessage('Create_strategy: ' || 'Before Calling iex_strategies_pkg.insert_row');
IEX_STRATEGIES_PKG.Insert_Row(
x_rowid =>v_rowid
, x_STRATEGY_ID => v_STRATEGY_id
,x_STATUS_CODE => p_STRATEGY_rec.STATUS_CODE
,x_STRATEGY_TEMPLATE_ID => p_STRATEGY_rec.STRATEGY_TEMPLATE_ID
,x_DELINQUENCY_ID => p_STRATEGY_rec.DELINQUENCY_ID
,x_OBJECT_TYPE => p_STRATEGY_rec.OBJECT_TYPE
,x_OBJECT_ID => p_STRATEGY_rec.OBJECT_ID
,x_CUST_ACCOUNT_ID => p_STRATEGY_rec.CUST_ACCOUNT_ID
,x_PARTY_ID => p_STRATEGY_rec.PARTY_ID
,x_SCORE_VALUE => p_STRATEGY_rec.SCORE_VALUE
,x_NEXT_WORK_ITEM_ID => p_STRATEGY_rec.NEXT_WORK_ITEM_ID
,x_USER_WORK_ITEM_YN => p_STRATEGY_rec.USER_WORK_ITEM_YN
,x_LAST_UPDATE_DATE => SYSDATE
,x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
,x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
,x_CREATION_DATE => SYSDATE
,x_CREATED_BY => FND_GLOBAL.USER_ID
,x_OBJECT_VERSION_NUMBER => v_OBJECT_VERSION_NUMBER
,x_REQUEST_ID => p_STRATEGY_rec.REQUEST_ID
,x_PROGRAM_APPLICATION_ID => p_STRATEGY_rec.PROGRAM_APPLICATION_ID
,x_PROGRAM_ID => p_STRATEGY_rec.PROGRAM_ID
,x_PROGRAM_UPDATE_DATE => p_STRATEGY_rec.PROGRAM_UPDATE_DATE
,x_CHECKLIST_YN => p_STRATEGY_rec.CHECKLIST_YN
,x_CHECKLIST_STRATEGY_ID => p_STRATEGY_rec.CHECKLIST_STRATEGY_ID
,x_STRATEGY_LEVEL => p_Strategy_Rec.Strategy_level
,x_JTF_OBJECT_TYPE => p_STRATEGY_rec.JTF_OBJECT_TYPE
,x_JTF_OBJECT_id => p_STRATEGY_rec.JTF_OBJECT_id
,x_CUSTOMER_SITE_USE_ID => p_STRATEGY_rec.CUSTOMER_SITE_USE_ID
,x_org_id => p_STRATEGY_rec.org_id --Bug# 6870773 Naveen
);
PROCEDURE Update_strategy(
P_Api_Version_Number 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,
P_STRATEGY_Rec IN STRATEGY_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2,
XO_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER
)
IS
/*
Cursor C_Get_strategy(STRATEGY_ID Number) IS
Select rowid,
STRATEGY_ID,
STATUS_CODE,
STRATEGY_TEMPLATE_ID,
DELINQUENCY_ID,
OBJECT_TYPE,
OBJECT_ID,
CUST_ACCOUNT_ID,
PARTY_ID,
SCORE_VALUE,
NEXT_WORK_ITEM_ID,
USER_WORK_ITEM_YN,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATION_DATE,
CREATED_BY,
OBJECT_VERSION_NUMBER,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE
From IEX_STRATEGIES
-- Hint: Developer need to provide Where clause
For Update NOWAIT;
l_api_name CONSTANT VARCHAR2(30) := 'Update_strategy';
IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_PVT.update_STRATEGY ******** ');
SAVEPOINT UPDATE_STRATEGY_PVT;
IEX_DEBUG_PUB.LogMessage('Update_strategy: ' || 'Before Calling iex_strategy_pkg.lock_row');
IEX_STRATEGIES_PKG.Update_Row(
x_STRATEGY_ID => p_STRATEGY_rec.STRATEGY_ID
,x_STATUS_CODE => p_STRATEGY_rec.STATUS_CODE
,x_STRATEGY_TEMPLATE_ID => p_STRATEGY_rec.STRATEGY_TEMPLATE_ID
,x_DELINQUENCY_ID => p_STRATEGY_rec.DELINQUENCY_ID
,x_OBJECT_TYPE => p_STRATEGY_rec.OBJECT_TYPE
,x_OBJECT_ID => p_STRATEGY_rec.OBJECT_ID
,x_CUST_ACCOUNT_ID => p_STRATEGY_rec.CUST_ACCOUNT_ID
,x_PARTY_ID => p_STRATEGY_rec.PARTY_ID
,x_SCORE_VALUE => p_STRATEGY_rec.SCORE_VALUE
,x_NEXT_WORK_ITEM_ID => p_STRATEGY_rec.NEXT_WORK_ITEM_ID
,x_USER_WORK_ITEM_YN => p_STRATEGY_rec.USER_WORK_ITEM_YN
,x_LAST_UPDATE_DATE => SYSDATE
,x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
,x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
,x_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER +1
,x_REQUEST_ID => p_STRATEGY_rec.REQUEST_ID
,x_PROGRAM_APPLICATION_ID => p_STRATEGY_rec.PROGRAM_APPLICATION_ID
,x_PROGRAM_ID => p_STRATEGY_rec.PROGRAM_ID
,x_PROGRAM_UPDATE_DATE => p_STRATEGY_rec.PROGRAM_UPDATE_DATE
,x_CHECKLIST_YN => p_STRATEGY_rec.CHECKLIST_YN
,x_CHECKLIST_STRATEGY_ID => p_STRATEGY_rec.CHECKLIST_STRATEGY_ID
,x_STRATEGY_LEVEL => p_STRATEGY_rec.STRATEGY_level
,x_JTF_OBJECT_TYPE => p_STRATEGY_rec.JTF_OBJECT_TYPE
,x_JTF_OBJECT_id => p_STRATEGY_rec.JTF_OBJECT_id
,x_CUSTOMER_SITE_USE_ID => p_STRATEGY_rec.CUSTOMER_SITE_USE_ID
,x_ORG_id => p_STRATEGY_rec.ORG_id --Bug# 6870773 Naveen
);
IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_strategy_PVT.Update_strategy ******** ');
End Update_strategy;
PROCEDURE Delete_strategy(
P_Api_Version_Number 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,
P_STRATEGY_ID IN NUMBER,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_strategy';
SAVEPOINT DELETE_STRATEGY_PVT;
IEX_STRATEGIES_PKG.Delete_Row(p_STRATEGY_ID);
End Delete_strategy;