The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count (*) from CS_TP_LOOKUPS where LOOKUP_ID = p_One_Choice.mLookupID;
select max(SEQUENCE_NUMBER) from CS_TP_CHOICES_VL;
select CS_TP_CHOICES_S.NEXTVAL into l_choice_id from dual;
CS_TP_CHOICES_PKG.INSERT_ROW (
X_ROWID => l_ROWID,
X_CHOICE_ID => l_choice_id,
X_LOOKUP_ID => P_One_Choice.mLookupID,
X_SEQUENCE_NUMBER => l_max_sequence +1,
X_START_DATE_ACTIVE => NULL,
X_END_DATE_ACTIVE => NULL,
X_SCORE => P_One_Choice.mScore,
X_VALUE => P_One_Choice.mChoiceName,
X_CREATION_DATE =>l_current_date,
X_CREATED_BY => l_created_by,
X_LAST_UPDATE_DATE =>l_current_date,
X_LAST_UPDATED_BY => l_created_by,
X_LAST_UPDATE_LOGIN => l_login
,X_DEFAULT_FLAG => P_One_Choice.mDefaultChoiceFlag
);
procedure Delete_Choice (
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR := FND_API.G_FALSE,
P_Choice_ID IN NUMBER,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2,
X_Return_Status OUT NOCOPY VARCHAR2
)
is
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Choice';
CS_TP_CHOICES_PKG.DELETE_ROW ( P_Choice_ID);
end Delete_Choice;
l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
Cursor last_updateC (V_Choice_ID Number) is
select last_update_date, LOOKUP_ID, SCORE, VALUE from CS_TP_CHOICES_VL where choice_ID = V_Choice_ID;
l_last_update_date DATE;
l_last_updated_by := fnd_global.user_id;
open last_updateC (P_Choices(i).mChoiceID);
fetch last_updateC into l_last_update_date, l_lookup_id, l_score, l_value;
if (last_updateC%notfound) then
close last_updateC;
close last_updateC;
if (to_date( P_Choices(i).mLast_Updated_date, l_default_last_up_date_format) < l_last_update_date) then
X_Return_Status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.SET_NAME('CS','CS_TP_CHOICE_UPDATED');
CS_TP_CHOICES_PKG.UPDATE_ROW (
X_CHOICE_ID => P_Choices (i).mChoiceID,
X_LOOKUP_ID => l_lookup_id,
X_START_DATE_ACTIVE => null,
X_END_DATE_ACTIVE =>null,
X_SEQUENCE_NUMBER => i,
X_SCORE => l_score,
X_VALUE => l_value,
X_LAST_UPDATE_DATE => l_current_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_login
,X_DEFAULT_FLAG => P_Choices (i).mDefaultChoiceFlag
);
l_LAST_UPDATE_DATE DATE;
l_statement := 'SELECT CHOICE_ID, VALUE, LOOKUP_ID, SCORE, LAST_UPDATE_DATE, DEFAULT_CHOICE_FLAG from CS_TP_CHOICES_VL where LOOKUP_ID = : v_lookup_id';
l_statement := l_statement || ' ORDER BY LAST_UPDATE_DATE ';
l_statement := l_statement || ' ORDER BY LAST_UPDATE_DATE desc ';
dbms_sql.define_column(l_CursorID, 5, l_LAST_UPDATE_DATE);
dbms_sql.column_value(l_CursorID, 5, l_LAST_UPDATE_DATE);
X_Choice_List_To_Show (j).mLast_Updated_Date:=to_char (l_LAST_UPDATE_DATE, l_default_last_up_date_format);
procedure Update_Choices (
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR := FND_API.G_FALSE,
P_Choices In Choice_List,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2,
X_Return_Status OUT NOCOPY VARCHAR2
)
is
l_api_name CONSTANT VARCHAR2(30) := 'Update_Choices';
Cursor last_updateC (V_Choice_ID Number) is
select last_update_date,sequence_number,value from CS_TP_CHOICES_VL
where choice_ID = V_Choice_ID;
l_last_update_date DATE;
l_last_updated_by NUMBER :=FND_API.G_MISS_NUM;
l_last_updated_by := fnd_global.user_id;
open last_updateC (P_Choices(i).mChoiceID);
fetch last_updateC into l_last_update_date, l_sequence_number, l_value;
if (last_updateC%notfound) then
close last_updateC;
close last_updateC;
if (to_date( P_Choices(i).mLast_Updated_date, l_default_last_up_date_format)
< l_last_update_date) then
X_Return_Status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.SET_NAME('CS','CS_TP_CHOICE_UPDATED');
CS_TP_CHOICES_PKG.UPDATE_ROW (
X_CHOICE_ID => P_Choices (i).mChoiceID,
X_LOOKUP_ID => P_Choices (i).mLookupID,
X_START_DATE_ACTIVE => null,
X_END_DATE_ACTIVE =>null,
X_SEQUENCE_NUMBER => l_sequence_number,
X_SCORE => P_Choices (i).mScore,
X_VALUE => l_value,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_login
,X_DEFAULT_FLAG => P_Choices (i).mDefaultChoiceFlag
);
end Update_Choices;
select count (*) from CS_TP_LOOKUPS where LOOKUP_ID = p_One_Freetext.mLookupID;
select FREETEXT_ID from CS_TP_FREETEXTS where LOOKUP_ID= p_One_Freetext.mLookupID;
l_freetext_update_id number;
fetch FreetextC into l_freetext_update_id;
if (l_freetext_update_id is NULL ) then
select CS_TP_FREETEXTS_S.NEXTVAL into l_freetext_id from dual;
CS_TP_FREETEXTS_PKG.INSERT_ROW (
X_ROWID => l_ROWID,
X_FREETEXT_ID => l_freetext_id,
X_LOOKUP_ID => P_One_Freetext.mLookupID,
X_FREETEXT_SIZE => P_One_Freetext.mFreetextSize,
X_CREATION_DATE =>l_current_date,
X_CREATED_BY => l_created_by,
X_LAST_UPDATE_DATE =>l_current_date,
X_LAST_UPDATED_BY => l_created_by,
X_LAST_UPDATE_LOGIN => l_login );
elsif (l_freetext_update_id is not NULL ) then
CS_TP_FREETEXTS_PKG.UPDATE_ROW (
X_FREETEXT_ID => l_freetext_update_id,
X_FREETEXT_SIZE => P_One_Freetext.mFreetextSize,
X_LOOKUP_ID => P_One_Freetext.mLookUpID,
X_LAST_UPDATE_DATE => l_current_date,
X_LAST_UPDATED_BY => l_created_by,
X_LAST_UPDATE_LOGIN =>l_login
);
SELECT ftxt.freetext_id, -- Bug 6705077
ftxt.freetext_size,
ftxt.lookup_id,
ftxt.last_update_date,
flkup.default_value
FROM cs_tp_freetexts ftxt,
cs_tp_lookups flkup
WHERE flkup.lookup_id = p_lookup_id
AND ftxt.lookup_id = flkup.lookup_id;
X_Freetext.mLast_Updated_Date :=l_freetext.LAST_UPDATE_DATE;