The following lines contain the word 'select', 'insert', 'update' or 'delete':
select max(SEQUENCE_NUMBER) from CS_TP_TEMPLATE_QUESTIONS;
select CS_TP_LOOKUP_S.NEXTVAL into l_lookup_id from dual;
CS_TP_LOOKUPS_PKG.INSERT_ROW (
X_ROWID => l_ROWID,
X_LOOKUP_ID => l_lookup_id,
X_LOOKUP_TYPE => P_One_Question.mAnswerType,
X_DEFAULT_VALUE => NULL,
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_START_DATE_ACTIVE => NULL,
X_END_DATE_ACTIVE => NULL);
select CS_TP_QUESTIONS_S.NEXTVAL into l_question_id from dual;
CS_TP_QUESTIONS_PKG.INSERT_ROW (
X_ROWID => l_ROWID,
X_QUESTION_ID => l_question_id,
X_LOOKUP_ID => l_lookup_id,
X_MANDTORY_FLAG => P_One_Question.mMandatoryFlag,
X_SCORING_FLAG => P_One_Question.mScoringFlag,
X_START_DATE_ACTIVE => NULL,
X_END_DATE_ACTIVE => NULL,
X_NAME => P_One_Question.mQuestionName,
-- X_TEXT => P_One_Question.mQuestionName,
X_TEXT => 'temp question text',
X_DESCRIPTION => NULL,
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_NOTE_TYPE => P_One_Question.mNoteType,
X_SHOW_ON_CREATION_FLAG => P_One_Question.mShowOnCreationFlag
);
CS_TP_TEMPLATE_QUESTIONS_PKG.INSERT_ROW (
X_ROWID => l_ROWID,
X_TEMPLATE_ID => P_Template_ID,
X_QUESTION_ID => l_question_id,
X_SEQUENCE_NUMBER => l_max_sequence + 1,
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_NOTE_TYPE => P_One_Question.mNoteType,
X_SHOW_ON_CREATION_FLAG => P_One_Question.mShowOnCreationFlag
);
procedure UPDATE_QUESTION (
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_One_Question IN Question,
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_Question';
l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
l_last_updated_date DATE;
select last_update_date, LOOKUP_ID from CS_TP_QUESTIONS_B
where QUESTION_ID = P_One_Question.mQuestionID;
fetch c into l_last_updated_date, l_lookup_id;
if (l_last_updated_date > TO_DATE (P_One_Question.mLast_Updated_Date, l_default_last_up_date_format )) then
X_Return_Status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.SET_NAME('CS','CS_TP_QUESTION_UPDATED');
l_last_updated_by := fnd_global.user_id;
CS_TP_QUESTIONS_PKG.UPDATE_ROW (
X_QUESTION_ID => P_One_Question.mQuestionID,
X_LOOKUP_ID => l_lookup_id,
X_MANDTORY_FLAG =>P_One_Question.mMandatoryFlag,
X_SCORING_FLAG =>P_One_Question.mScoringFlag,
X_START_DATE_ACTIVE => NULL,
X_END_DATE_ACTIVE =>NULL,
X_NAME =>P_One_Question.mQuestionName,
--X_TEXT =>P_One_Question.mQuestionName,
X_TEXT =>'temp question text',
X_DESCRIPTION => NULL,
X_LAST_UPDATE_DATE => l_current_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_login,
X_NOTE_TYPE => P_One_Question.mNoteType,
X_SHOW_ON_CREATION_FLAG => P_One_Question.mShowOnCreationFlag
);
end UPDATE_QUESTION;
procedure Delete_Question (
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_Question_ID IN NUMBER,
p_Template_ID IN NUMBER,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2,
X_Return_Status OUT NOCOPY VARCHAR2)
is
type choice_list is TABLE OF NUMBER INDEX BY BINARY_INTEGER;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Question';
select lookup_id from CS_TP_QUESTIONS_B where question_id = p_Question_ID;
is select count (*) from CS_TP_FREETEXTS where LOOKUP_ID = v_lookup_id;
select freetext_id from CS_TP_FREETEXTS where LOOKUP_ID = v_lookup_id;
select choice_id from CS_TP_CHOICES_VL where LOOKUP_ID = v_lookup_id;
CS_TP_TEMPLATE_QUESTIONS_PKG.DELETE_ROW (
X_TEMPLATE_ID => p_Template_ID,
X_QUESTION_ID => p_Question_ID);
CS_TP_LOOKUPS_PKG.DELETE_ROW (l_lookup_id);
CS_TP_QUESTIONS_PKG.DELETE_ROW (X_QUESTION_ID => p_Question_ID);
CS_TP_FREETEXTS_PKG.DELETE_ROW (
X_FREETEXT_ID => l_freetext_id);
CS_TP_CHOICES_PKG.DELETE_ROW (
X_CHOICE_ID => l_choice_list (i)
);
end Delete_Question;
l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
Cursor last_updateC (V_Question_ID Number) is
select last_update_date from CS_TP_QUESTIONS_VL where QUESTION_ID = V_Question_ID ;
l_last_update_date DATE;
l_last_updated_by := fnd_global.user_id;
open last_updateC (P_Questions(i).mQuestionID);
fetch last_updateC into l_last_update_date;
if (last_updateC%notfound) then
close last_updateC;
close last_updateC;
if (to_date( P_Questions(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_QUESTION_UPDATED');
CS_TP_TEMPLATE_QUESTIONS_PKG.UPDATE_ROW (
X_TEMPLATE_ID => P_Template_ID,
X_QUESTION_ID => P_Questions (i).mQuestionID,
X_NOTE_TYPE => P_Questions (i).mNoteType,
X_SHOW_ON_CREATION_FLAG =>
P_Questions (i).mShowOnCreationFlag,
X_SEQUENCE_NUMBER => i,
X_LAST_UPDATE_DATE => l_current_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_login );
L_LAST_UPDATED_DATE DATE;
l_statement := 'SELECT Q.QUESTION_ID, Q.NAME, L.LOOKUP_TYPE, Q.MANDTORY_FLAG, Q.SCORING_FLAG, Q.LOOKUP_ID, Q.LAST_UPDATE_DATE, Q.NOTE_TYPE, Q.SHOW_ON_CREATION_FLAG '
|| ' FROM CS_TP_QUESTIONS_VL Q, CS_TP_LOOKUPS L, CS_TP_TEMPLATE_QUESTIONS TQ' ||
' where Q.LOOKUP_ID = L.LOOKUP_ID and TQ.QUESTION_ID = Q.QUESTION_ID and TQ.TEMPLATE_ID=:v_Template_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, 7, L_LAST_UPDATED_DATE);
dbms_sql.column_value(l_CursorID, 7, L_LAST_UPDATED_DATE);
X_Question_List_To_Show(j).mLast_Updated_Date := to_char( L_LAST_UPDATED_DATE, l_default_last_up_date_format);
SELECT Q.QUESTION_ID, Q.NAME, L.LOOKUP_TYPE, Q.MANDTORY_FLAG, Q.SCORING_FLAG, Q.LOOKUP_ID, Q.LAST_UPDATE_DATE, Q.NOTE_TYPE, Q.SHOW_ON_CREATION_FLAG
FROM CS_TP_QUESTIONS_VL Q, CS_TP_LOOKUPS L where Q.LOOKUP_ID = L.LOOKUP_ID and Q.QUESTION_ID = v_Question_ID;
X_Question_To_Show.mLast_Updated_Date := to_char( One_Question.Last_Update_Date , l_default_last_up_date_format);