eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.CS_TP_QUESTIONS_PVT dependencies on FND_API

Line 9: DEBUG CONSTANT VARCHAR2(1) := FND_API.G_TRUE;

5: -- ---------------------------------------------------------
6: l_default_last_up_date_format CONSTANT VARCHAR2(30) := 'MM/DD/YYYY/SSSSS';
7: G_PKG_NAME CONSTANT VARCHAR2(100) := 'CS_TP_QUESTIONS_PVT';
8:
9: DEBUG CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
10: -- ---------------------------------------------------------
11: -- Define private procedures/functions (not in package spec)
12: -- ---------------------------------------------------------
13: function get_user_id return NUMBER

Line 49: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

45:
46:
47: procedure Add_Question (
48: p_api_version_number IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
50: p_commit IN VARCHAR := FND_API.G_FALSE,
51: P_One_Question IN Question,
52: p_Template_ID IN NUMBER,
53: X_Msg_Count OUT NOCOPY NUMBER,

Line 50: p_commit IN VARCHAR := FND_API.G_FALSE,

46:
47: procedure Add_Question (
48: p_api_version_number IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
50: p_commit IN VARCHAR := FND_API.G_FALSE,
51: P_One_Question IN Question,
52: p_Template_ID IN NUMBER,
53: X_Msg_Count OUT NOCOPY NUMBER,
54: X_Msg_Data OUT NOCOPY VARCHAR2,

Line 62: l_question_id NUMBER :=FND_API.G_MISS_NUM;

58:
59: is
60: l_api_name CONSTANT VARCHAR2(30) := 'Add_Question';
61: l_api_version CONSTANT NUMBER := 1.0;
62: l_question_id NUMBER :=FND_API.G_MISS_NUM;
63: l_lookup_id NUMBER :=FND_API.G_MISS_NUM;
64: l_current_date DATE :=FND_API.G_MISS_DATE;
65: l_created_by NUMBER :=FND_API.G_MISS_NUM;
66: l_login NUMBER :=FND_API.G_MISS_NUM;

Line 63: l_lookup_id NUMBER :=FND_API.G_MISS_NUM;

59: is
60: l_api_name CONSTANT VARCHAR2(30) := 'Add_Question';
61: l_api_version CONSTANT NUMBER := 1.0;
62: l_question_id NUMBER :=FND_API.G_MISS_NUM;
63: l_lookup_id NUMBER :=FND_API.G_MISS_NUM;
64: l_current_date DATE :=FND_API.G_MISS_DATE;
65: l_created_by NUMBER :=FND_API.G_MISS_NUM;
66: l_login NUMBER :=FND_API.G_MISS_NUM;
67: l_ROWID VARCHAR2(30);

Line 64: l_current_date DATE :=FND_API.G_MISS_DATE;

60: l_api_name CONSTANT VARCHAR2(30) := 'Add_Question';
61: l_api_version CONSTANT NUMBER := 1.0;
62: l_question_id NUMBER :=FND_API.G_MISS_NUM;
63: l_lookup_id NUMBER :=FND_API.G_MISS_NUM;
64: l_current_date DATE :=FND_API.G_MISS_DATE;
65: l_created_by NUMBER :=FND_API.G_MISS_NUM;
66: l_login NUMBER :=FND_API.G_MISS_NUM;
67: l_ROWID VARCHAR2(30);
68: Cursor C is

Line 65: l_created_by NUMBER :=FND_API.G_MISS_NUM;

61: l_api_version CONSTANT NUMBER := 1.0;
62: l_question_id NUMBER :=FND_API.G_MISS_NUM;
63: l_lookup_id NUMBER :=FND_API.G_MISS_NUM;
64: l_current_date DATE :=FND_API.G_MISS_DATE;
65: l_created_by NUMBER :=FND_API.G_MISS_NUM;
66: l_login NUMBER :=FND_API.G_MISS_NUM;
67: l_ROWID VARCHAR2(30);
68: Cursor C is
69: select max(SEQUENCE_NUMBER) from CS_TP_TEMPLATE_QUESTIONS;

Line 66: l_login NUMBER :=FND_API.G_MISS_NUM;

62: l_question_id NUMBER :=FND_API.G_MISS_NUM;
63: l_lookup_id NUMBER :=FND_API.G_MISS_NUM;
64: l_current_date DATE :=FND_API.G_MISS_DATE;
65: l_created_by NUMBER :=FND_API.G_MISS_NUM;
66: l_login NUMBER :=FND_API.G_MISS_NUM;
67: l_ROWID VARCHAR2(30);
68: Cursor C is
69: select max(SEQUENCE_NUMBER) from CS_TP_TEMPLATE_QUESTIONS;
70: l_max_sequence NUMBER;

Line 74: IF FND_API.to_Boolean( p_init_msg_list ) THEN

70: l_max_sequence NUMBER;
71:
72: begin
73: -- Initialize message list if p_init_msg_list is set to TRUE.
74: IF FND_API.to_Boolean( p_init_msg_list ) THEN
75: FND_MSG_PUB.initialize;
76: END IF;
77:
78: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

Line 78: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

74: IF FND_API.to_Boolean( p_init_msg_list ) THEN
75: FND_MSG_PUB.initialize;
76: END IF;
77:
78: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
79:
80: -- Start API Body
81:
82: -- Perform validation

Line 84: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN

80: -- Start API Body
81:
82: -- Perform validation
83:
84: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN
85: X_Return_Status := FND_API.G_RET_STS_ERROR;
86: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_NAME_INVALID');
87: FND_MSG_PUB.Add;
88: RAISE FND_API.G_EXC_ERROR;

Line 85: X_Return_Status := FND_API.G_RET_STS_ERROR;

81:
82: -- Perform validation
83:
84: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN
85: X_Return_Status := FND_API.G_RET_STS_ERROR;
86: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_NAME_INVALID');
87: FND_MSG_PUB.Add;
88: RAISE FND_API.G_EXC_ERROR;
89: END IF;

Line 88: RAISE FND_API.G_EXC_ERROR;

84: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN
85: X_Return_Status := FND_API.G_RET_STS_ERROR;
86: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_NAME_INVALID');
87: FND_MSG_PUB.Add;
88: RAISE FND_API.G_EXC_ERROR;
89: END IF;
90:
91: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
92: X_Return_Status := FND_API.G_RET_STS_ERROR;

Line 91: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN

87: FND_MSG_PUB.Add;
88: RAISE FND_API.G_EXC_ERROR;
89: END IF;
90:
91: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
92: X_Return_Status := FND_API.G_RET_STS_ERROR;
93: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_Answer_INVALID');
94: FND_MSG_PUB.Add;
95: RAISE FND_API.G_EXC_ERROR;

Line 92: X_Return_Status := FND_API.G_RET_STS_ERROR;

88: RAISE FND_API.G_EXC_ERROR;
89: END IF;
90:
91: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
92: X_Return_Status := FND_API.G_RET_STS_ERROR;
93: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_Answer_INVALID');
94: FND_MSG_PUB.Add;
95: RAISE FND_API.G_EXC_ERROR;
96: END IF;

Line 95: RAISE FND_API.G_EXC_ERROR;

91: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
92: X_Return_Status := FND_API.G_RET_STS_ERROR;
93: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_Answer_INVALID');
94: FND_MSG_PUB.Add;
95: RAISE FND_API.G_EXC_ERROR;
96: END IF;
97:
98: l_current_date := sysdate;
99: l_created_by := FND_GLOBAL.user_id;

Line 175: IF FND_API.To_Boolean( p_commit ) THEN

171: X_Question_ID :=l_question_id;
172: -- End of API Body
173:
174: -- Standard check of p_commit.
175: IF FND_API.To_Boolean( p_commit ) THEN
176: COMMIT WORK;
177: END IF;
178: -- Standard call to get message count and if count is 1, get message info.
179: FND_MSG_PUB.Count_And_Get

Line 185: WHEN FND_API.G_EXC_ERROR THEN

181: p_data => x_msg_data
182: );
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: FND_MSG_PUB.Count_And_Get
187: (p_count => x_msg_count ,
188: p_data => x_msg_data
189: );

Line 193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

189: );
190:
191:
192: WHEN OTHERS THEN
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
195: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
196: END IF;
197: FND_MSG_PUB.Count_And_Get

Line 206: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

202: END Add_Question;
203:
204: procedure UPDATE_QUESTION (
205: p_api_version_number IN NUMBER,
206: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
207: p_commit IN VARCHAR := FND_API.G_FALSE,
208: P_One_Question IN Question,
209: X_Msg_Count OUT NOCOPY NUMBER,
210: X_Msg_Data OUT NOCOPY VARCHAR2,

Line 207: p_commit IN VARCHAR := FND_API.G_FALSE,

203:
204: procedure UPDATE_QUESTION (
205: p_api_version_number IN NUMBER,
206: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
207: p_commit IN VARCHAR := FND_API.G_FALSE,
208: P_One_Question IN Question,
209: X_Msg_Count OUT NOCOPY NUMBER,
210: X_Msg_Data OUT NOCOPY VARCHAR2,
211: X_Return_Status OUT NOCOPY VARCHAR2)

Line 216: l_current_date DATE :=FND_API.G_MISS_DATE;

212: is
213: l_api_name CONSTANT VARCHAR2(30) := 'Update_Question';
214: l_api_version CONSTANT NUMBER := 1.0;
215:
216: l_current_date DATE :=FND_API.G_MISS_DATE;
217: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
218: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;
219: l_last_updated_date DATE;
220: l_lookup_id NUMBER;

Line 217: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;

213: l_api_name CONSTANT VARCHAR2(30) := 'Update_Question';
214: l_api_version CONSTANT NUMBER := 1.0;
215:
216: l_current_date DATE :=FND_API.G_MISS_DATE;
217: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
218: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;
219: l_last_updated_date DATE;
220: l_lookup_id NUMBER;
221: cursor c is

Line 218: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;

214: l_api_version CONSTANT NUMBER := 1.0;
215:
216: l_current_date DATE :=FND_API.G_MISS_DATE;
217: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
218: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;
219: l_last_updated_date DATE;
220: l_lookup_id NUMBER;
221: cursor c is
222: select last_update_date, LOOKUP_ID from CS_TP_QUESTIONS_B

Line 227: IF FND_API.to_Boolean( p_init_msg_list ) THEN

223: where QUESTION_ID = P_One_Question.mQuestionID;
224:
225: begin
226: -- Initialize message list if p_init_msg_list is set to TRUE.
227: IF FND_API.to_Boolean( p_init_msg_list ) THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

Line 231: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

227: IF FND_API.to_Boolean( p_init_msg_list ) THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
232:
233: -- Start API Body
234:
235: -- Perform validation

Line 237: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN

233: -- Start API Body
234:
235: -- Perform validation
236:
237: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN
238: X_Return_Status := FND_API.G_RET_STS_ERROR;
239: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_NAME_INVALID');
240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR;

Line 238: X_Return_Status := FND_API.G_RET_STS_ERROR;

234:
235: -- Perform validation
236:
237: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN
238: X_Return_Status := FND_API.G_RET_STS_ERROR;
239: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_NAME_INVALID');
240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;

Line 241: RAISE FND_API.G_EXC_ERROR;

237: IF (P_One_Question.mQuestionName is NULL OR P_One_Question.mQuestionName= FND_API.G_MISS_CHAR) THEN
238: X_Return_Status := FND_API.G_RET_STS_ERROR;
239: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_NAME_INVALID');
240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243:
244: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
245: X_Return_Status := FND_API.G_RET_STS_ERROR;

Line 244: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN

240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243:
244: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
245: X_Return_Status := FND_API.G_RET_STS_ERROR;
246: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_Answer_INVALID');
247: FND_MSG_PUB.Add;
248: RAISE FND_API.G_EXC_ERROR;

Line 245: X_Return_Status := FND_API.G_RET_STS_ERROR;

241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243:
244: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
245: X_Return_Status := FND_API.G_RET_STS_ERROR;
246: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_Answer_INVALID');
247: FND_MSG_PUB.Add;
248: RAISE FND_API.G_EXC_ERROR;
249: END IF;

Line 248: RAISE FND_API.G_EXC_ERROR;

244: IF (P_One_Question.mAnswerType is NULL OR P_One_Question.mAnswerType= FND_API.G_MISS_CHAR OR length(P_One_Question.mAnswerType)<=0)THEN
245: X_Return_Status := FND_API.G_RET_STS_ERROR;
246: FND_MESSAGE.SET_NAME('CS','CS_TP_Question_Answer_INVALID');
247: FND_MSG_PUB.Add;
248: RAISE FND_API.G_EXC_ERROR;
249: END IF;
250:
251: --check to see if the question is modified after the client's query
252: open c;

Line 256: X_Return_Status := FND_API.G_RET_STS_ERROR;

252: open c;
253: fetch c into l_last_updated_date, l_lookup_id;
254: if (c%notfound) then
255: close c;
256: X_Return_Status := FND_API.G_RET_STS_ERROR;
257: raise no_data_found;
258: end if;
259: close c;
260: -- is the last updated date from db later than the date from client

Line 262: X_Return_Status := FND_API.G_RET_STS_ERROR;

258: end if;
259: close c;
260: -- is the last updated date from db later than the date from client
261: if (l_last_updated_date > TO_DATE (P_One_Question.mLast_Updated_Date, l_default_last_up_date_format )) then
262: X_Return_Status := FND_API.G_RET_STS_ERROR;
263: FND_MESSAGE.SET_NAME('CS','CS_TP_QUESTION_UPDATED');
264: FND_MSG_PUB.Add;
265: RAISE FND_API.G_EXC_ERROR;
266: end if;

Line 265: RAISE FND_API.G_EXC_ERROR;

261: if (l_last_updated_date > TO_DATE (P_One_Question.mLast_Updated_Date, l_default_last_up_date_format )) then
262: X_Return_Status := FND_API.G_RET_STS_ERROR;
263: FND_MESSAGE.SET_NAME('CS','CS_TP_QUESTION_UPDATED');
264: FND_MSG_PUB.Add;
265: RAISE FND_API.G_EXC_ERROR;
266: end if;
267:
268: -- Update the question table , note lookup_id is not modified.
269: l_current_date := sysdate;

Line 294: IF FND_API.To_Boolean( p_commit ) THEN

290: );
291: -- End of API Body
292:
293: -- Standard check of p_commit.
294: IF FND_API.To_Boolean( p_commit ) THEN
295: COMMIT WORK;
296: END IF;
297: -- Standard call to get message count and if count is 1, get message info.
298: FND_MSG_PUB.Count_And_Get

Line 304: WHEN FND_API.G_EXC_ERROR THEN

300: p_data => x_msg_data
301: );
302:
303: EXCEPTION
304: WHEN FND_API.G_EXC_ERROR THEN
305: FND_MSG_PUB.Count_And_Get
306: (p_count => x_msg_count ,
307: p_data => x_msg_data
308: );

Line 312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

308: );
309:
310:
311: WHEN OTHERS THEN
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
313: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
314: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
315: END IF;
316: FND_MSG_PUB.Count_And_Get

Line 325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

321: end UPDATE_QUESTION;
322:
323: procedure Delete_Question (
324: p_api_version_number IN NUMBER,
325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
326: p_commit IN VARCHAR := FND_API.G_FALSE,
327: p_Question_ID IN NUMBER,
328: p_Template_ID IN NUMBER,
329: X_Msg_Count OUT NOCOPY NUMBER,

Line 326: p_commit IN VARCHAR := FND_API.G_FALSE,

322:
323: procedure Delete_Question (
324: p_api_version_number IN NUMBER,
325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
326: p_commit IN VARCHAR := FND_API.G_FALSE,
327: p_Question_ID IN NUMBER,
328: p_Template_ID IN NUMBER,
329: X_Msg_Count OUT NOCOPY NUMBER,
330: X_Msg_Data OUT NOCOPY VARCHAR2,

Line 359: IF FND_API.to_Boolean( p_init_msg_list ) THEN

355:
356:
357: begin
358: -- Initialize message list if p_init_msg_list is set to TRUE.
359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
360: FND_MSG_PUB.initialize;
361: END IF;
362:
363: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

Line 363: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
360: FND_MSG_PUB.initialize;
361: END IF;
362:
363: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
364:
365: -- Start API Body
366: open lookup_c;
367: fetch lookup_c into l_lookup_id;

Line 397: X_Return_Status := FND_API.G_RET_STS_ERROR;

393: CS_TP_FREETEXTS_PKG.DELETE_ROW (
394: X_FREETEXT_ID => l_freetext_id);
395:
396: elsif (l_freetext_num>1) then
397: X_Return_Status := FND_API.G_RET_STS_ERROR;
398: raise FND_API.G_EXC_UNEXPECTED_ERROR;
399: end if;
400:
401: --delete choice

Line 398: raise FND_API.G_EXC_UNEXPECTED_ERROR;

394: X_FREETEXT_ID => l_freetext_id);
395:
396: elsif (l_freetext_num>1) then
397: X_Return_Status := FND_API.G_RET_STS_ERROR;
398: raise FND_API.G_EXC_UNEXPECTED_ERROR;
399: end if;
400:
401: --delete choice
402: open choice_c (l_lookup_id);

Line 421: IF FND_API.To_Boolean( p_commit ) THEN

417: end if;
418: -- End of API Body
419:
420: -- Standard check of p_commit.
421: IF FND_API.To_Boolean( p_commit ) THEN
422: COMMIT WORK;
423: END IF;
424: -- Standard call to get message count and if count is 1, get message info.
425: FND_MSG_PUB.Count_And_Get

Line 432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

428: );
429:
430: EXCEPTION
431: WHEN OTHERS THEN
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
434: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
435: END IF;
436: FND_MSG_PUB.Count_And_Get

Line 447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

443:
444:
445: procedure Sort_Questions (
446: p_api_version_number IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR := FND_API.G_FALSE,
449: P_Questions IN Question_List,
450: P_Template_ID IN NUMBER,
451: X_Msg_Count OUT NOCOPY NUMBER,

Line 448: p_commit IN VARCHAR := FND_API.G_FALSE,

444:
445: procedure Sort_Questions (
446: p_api_version_number IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR := FND_API.G_FALSE,
449: P_Questions IN Question_List,
450: P_Template_ID IN NUMBER,
451: X_Msg_Count OUT NOCOPY NUMBER,
452: X_Msg_Data OUT NOCOPY VARCHAR2,

Line 460: l_current_date DATE :=FND_API.G_MISS_DATE;

456: is
457: l_api_name CONSTANT VARCHAR2(30) := 'Sort_Questions';
458: l_api_version CONSTANT NUMBER := 1.0;
459: i NUMBER;
460: l_current_date DATE :=FND_API.G_MISS_DATE;
461: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
462: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;
463: Cursor last_updateC (V_Question_ID Number) is
464: select last_update_date from CS_TP_QUESTIONS_VL where QUESTION_ID = V_Question_ID ;

Line 461: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;

457: l_api_name CONSTANT VARCHAR2(30) := 'Sort_Questions';
458: l_api_version CONSTANT NUMBER := 1.0;
459: i NUMBER;
460: l_current_date DATE :=FND_API.G_MISS_DATE;
461: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
462: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;
463: Cursor last_updateC (V_Question_ID Number) is
464: select last_update_date from CS_TP_QUESTIONS_VL where QUESTION_ID = V_Question_ID ;
465: l_last_update_date DATE;

Line 462: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;

458: l_api_version CONSTANT NUMBER := 1.0;
459: i NUMBER;
460: l_current_date DATE :=FND_API.G_MISS_DATE;
461: l_last_updated_by VARCHAR2(200) :=FND_API.G_MISS_CHAR;
462: l_login VARCHAR2(200) :=FND_API.G_MISS_CHAR;
463: Cursor last_updateC (V_Question_ID Number) is
464: select last_update_date from CS_TP_QUESTIONS_VL where QUESTION_ID = V_Question_ID ;
465: l_last_update_date DATE;
466: begin

Line 468: IF FND_API.to_Boolean( p_init_msg_list ) THEN

464: select last_update_date from CS_TP_QUESTIONS_VL where QUESTION_ID = V_Question_ID ;
465: l_last_update_date DATE;
466: begin
467: -- Initialize message list if p_init_msg_list is set to TRUE.
468: IF FND_API.to_Boolean( p_init_msg_list ) THEN
469: FND_MSG_PUB.initialize;
470: END IF;
471:
472: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

Line 472: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

468: IF FND_API.to_Boolean( p_init_msg_list ) THEN
469: FND_MSG_PUB.initialize;
470: END IF;
471:
472: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
473:
474: -- Start API Body
475: l_current_date := sysdate;
476: l_last_updated_by := fnd_global.user_id;

Line 489: X_Return_Status := FND_API.G_RET_STS_ERROR;

485: raise no_data_found;
486: end if;
487: close last_updateC;
488: if (to_date( P_Questions(i).mLast_Updated_date, l_default_last_up_date_format) < l_last_update_date) then
489: X_Return_Status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.SET_NAME('CS','CS_TP_QUESTION_UPDATED');
491: FND_MSG_PUB.Add;
492: RAISE FND_API.G_EXC_ERROR;
493: end if;

Line 492: RAISE FND_API.G_EXC_ERROR;

488: if (to_date( P_Questions(i).mLast_Updated_date, l_default_last_up_date_format) < l_last_update_date) then
489: X_Return_Status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.SET_NAME('CS','CS_TP_QUESTION_UPDATED');
491: FND_MSG_PUB.Add;
492: RAISE FND_API.G_EXC_ERROR;
493: end if;
494:
495: CS_TP_TEMPLATE_QUESTIONS_PKG.UPDATE_ROW (
496: X_TEMPLATE_ID => P_Template_ID,

Line 509: IF FND_API.To_Boolean( p_commit ) THEN

505: end loop;
506: end if;
507:
508: -- Standard check of p_commit.
509: IF FND_API.To_Boolean( p_commit ) THEN
510: COMMIT WORK;
511: END IF;
512: -- Standard call to get message count and if count is 1, get message info.
513: FND_MSG_PUB.Count_And_Get

Line 519: WHEN FND_API.G_EXC_ERROR THEN

515: p_data => x_msg_data
516: );
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_ERROR THEN
520: FND_MSG_PUB.Count_And_Get
521: (p_count => x_msg_count ,
522: p_data => x_msg_data
523: );

Line 527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

523: );
524:
525:
526: WHEN OTHERS THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
528: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
529: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
530: END IF;
531: FND_MSG_PUB.Count_And_Get

Line 540: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

536: end SORT_QUESTIONS;
537:
538: procedure Show_Questions (
539: p_api_version_number IN NUMBER,
540: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
541: p_commit IN VARCHAR := FND_API.G_FALSE,
542: p_Template_ID IN NUMBER,
543: P_Start_Question IN NUMBER,
544: P_End_Question IN NUMBER,

Line 541: p_commit IN VARCHAR := FND_API.G_FALSE,

537:
538: procedure Show_Questions (
539: p_api_version_number IN NUMBER,
540: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
541: p_commit IN VARCHAR := FND_API.G_FALSE,
542: p_Template_ID IN NUMBER,
543: P_Start_Question IN NUMBER,
544: P_End_Question IN NUMBER,
545: P_Display_Order IN VARCHAR2,

Line 575: IF FND_API.to_Boolean( p_init_msg_list ) THEN

571: L_NOTE_TYPE VARCHAR2(30);
572: L_SHOW_ON_CREATION_FLAG VARCHAR2(1);
573: begin
574: -- Initialize message list if p_init_msg_list is set to TRUE.
575: IF FND_API.to_Boolean( p_init_msg_list ) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

Line 579: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

575: IF FND_API.to_Boolean( p_init_msg_list ) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
580:
581: -- Start API Body
582:
583: L_Start_Question := P_Start_Question;

Line 586: if (L_Start_Question is NULL or L_Start_Question = FND_API.G_MISS_NUM) then

582:
583: L_Start_Question := P_Start_Question;
584: L_End_Question := P_End_Question;
585: -- Check for null L_Start_Question and P_End_Question
586: if (L_Start_Question is NULL or L_Start_Question = FND_API.G_MISS_NUM) then
587: L_Start_Question :=1;
588: end if;
589: --If L_End_Question is NULL, set it to G_MISS_NUM which should be a greater than index of the last question
590: if (L_End_Question is NULL or L_End_Question = FND_API.G_MISS_NUM) then

Line 590: if (L_End_Question is NULL or L_End_Question = FND_API.G_MISS_NUM) then

586: if (L_Start_Question is NULL or L_Start_Question = FND_API.G_MISS_NUM) then
587: L_Start_Question :=1;
588: end if;
589: --If L_End_Question is NULL, set it to G_MISS_NUM which should be a greater than index of the last question
590: if (L_End_Question is NULL or L_End_Question = FND_API.G_MISS_NUM) then
591: L_End_Question :=FND_API.G_MISS_NUM;
592: end if;
593: -- validation
594: if (L_Start_Question > L_End_Question OR L_Start_Question<=0 OR L_End_Question<=0) then

Line 591: L_End_Question :=FND_API.G_MISS_NUM;

587: L_Start_Question :=1;
588: end if;
589: --If L_End_Question is NULL, set it to G_MISS_NUM which should be a greater than index of the last question
590: if (L_End_Question is NULL or L_End_Question = FND_API.G_MISS_NUM) then
591: L_End_Question :=FND_API.G_MISS_NUM;
592: end if;
593: -- validation
594: if (L_Start_Question > L_End_Question OR L_Start_Question<=0 OR L_End_Question<=0) then
595: X_Return_Status := FND_API.G_RET_STS_ERROR;

Line 595: X_Return_Status := FND_API.G_RET_STS_ERROR;

591: L_End_Question :=FND_API.G_MISS_NUM;
592: end if;
593: -- validation
594: if (L_Start_Question > L_End_Question OR L_Start_Question<=0 OR L_End_Question<=0) then
595: X_Return_Status := FND_API.G_RET_STS_ERROR;
596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
597: end if;
598: -- Construct query statement, open cursor, execute query statement, retrieve results
599: 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 '

Line 596: raise FND_API.G_EXC_UNEXPECTED_ERROR;

592: end if;
593: -- validation
594: if (L_Start_Question > L_End_Question OR L_Start_Question<=0 OR L_End_Question<=0) then
595: X_Return_Status := FND_API.G_RET_STS_ERROR;
596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
597: end if;
598: -- Construct query statement, open cursor, execute query statement, retrieve results
599: 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 '
600: || ' FROM CS_TP_QUESTIONS_VL Q, CS_TP_LOOKUPS L, CS_TP_TEMPLATE_QUESTIONS TQ' ||

Line 603: if (P_Display_Order is NULL OR P_Display_Order=FND_API.G_MISS_CHAR OR length(P_Display_Order)<=0 OR P_Display_Order =NORMAL) then

599: 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 '
600: || ' FROM CS_TP_QUESTIONS_VL Q, CS_TP_LOOKUPS L, CS_TP_TEMPLATE_QUESTIONS TQ' ||
601: ' where Q.LOOKUP_ID = L.LOOKUP_ID and TQ.QUESTION_ID = Q.QUESTION_ID and TQ.TEMPLATE_ID=:v_Template_ID';
602:
603: if (P_Display_Order is NULL OR P_Display_Order=FND_API.G_MISS_CHAR OR length(P_Display_Order)<=0 OR P_Display_Order =NORMAL) then
604: l_statement := l_statement || ' ORDER BY TQ.SEQUENCE_NUMBER ';
605:
606: elsif (P_Display_Order=ALPHABATICAL) then
607: l_statement := l_statement || ' ORDER BY Q.NAME ';

Line 620: IF (FND_API.To_Boolean (DEBUG)) then

616: end if;
617: l_CursorID := dbms_sql.open_cursor;
618:
619: /*
620: IF (FND_API.To_Boolean (DEBUG)) then
621: dbms_output.put_line ('Statement is ' || substr (l_statement, 1, 200));
622: dbms_output.put_line ( substr (l_statement, 201, 400));
623: end if;
624: */

Line 683: IF FND_API.To_Boolean( p_commit) THEN

679: dbms_sql.close_cursor(l_CursorID);
680: X_Retrieved_Question_Number := j;
681: X_Total_Questions := i-1;
682: -- Standard check of p_commit.
683: IF FND_API.To_Boolean( p_commit) THEN
684: COMMIT WORK;
685: END IF;
686: -- Standard call to get message count and if count is 1, get message info.
687: FND_MSG_PUB.Count_And_Get

Line 693: WHEN FND_API.G_EXC_ERROR THEN

689: p_data => x_msg_data
690: );
691:
692: EXCEPTION
693: WHEN FND_API.G_EXC_ERROR THEN
694: FND_MSG_PUB.Count_And_Get
695: (p_count => x_msg_count ,
696: p_data => x_msg_data
697: );

Line 700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

696: p_data => x_msg_data
697: );
698:
699: WHEN OTHERS THEN
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
701: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
702: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
703: END IF;
704: FND_MSG_PUB.Count_And_Get

Line 714: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

710: end Show_Questions;
711:
712: procedure Show_Question (
713: p_api_version_number IN NUMBER,
714: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
715: p_commit IN VARCHAR := FND_API.G_FALSE,
716: P_Question_ID IN NUMBER,
717: X_Msg_Count OUT NOCOPY NUMBER,
718: X_Msg_Data OUT NOCOPY VARCHAR2,

Line 715: p_commit IN VARCHAR := FND_API.G_FALSE,

711:
712: procedure Show_Question (
713: p_api_version_number IN NUMBER,
714: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
715: p_commit IN VARCHAR := FND_API.G_FALSE,
716: P_Question_ID IN NUMBER,
717: X_Msg_Count OUT NOCOPY NUMBER,
718: X_Msg_Data OUT NOCOPY VARCHAR2,
719: X_Return_Status OUT NOCOPY VARCHAR2,

Line 733: IF FND_API.to_Boolean( p_init_msg_list ) THEN

729: One_Question C%ROWTYPE;
730:
731: begin
732: -- Initialize message list if p_init_msg_list is set to TRUE.
733: IF FND_API.to_Boolean( p_init_msg_list ) THEN
734: FND_MSG_PUB.initialize;
735: END IF;
736:
737: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

Line 737: X_Return_Status := FND_API.G_RET_STS_SUCCESS;

733: IF FND_API.to_Boolean( p_init_msg_list ) THEN
734: FND_MSG_PUB.initialize;
735: END IF;
736:
737: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
738:
739: -- Start API Body
740: open C (P_Question_ID);
741: fetch C into One_Question;

Line 744: X_Return_Status := FND_API.G_RET_STS_ERROR;

740: open C (P_Question_ID);
741: fetch C into One_Question;
742: if (C%notfound) then
743: close C;
744: X_Return_Status := FND_API.G_RET_STS_ERROR;
745: raise no_data_found;
746: end if;
747: close C;
748: X_Question_To_Show.mQuestionID := One_Question.Question_ID;

Line 759: IF FND_API.To_Boolean( p_commit) THEN

755: X_Question_To_Show.mNoteType := One_Question.Note_Type;
756: X_Question_To_Show.mShowOnCreationFlag := One_Question.Show_On_Creation_Flag;
757:
758: -- Standard check of p_commit.
759: IF FND_API.To_Boolean( p_commit) THEN
760: COMMIT WORK;
761: END IF;
762: -- Standard call to get message count and if count is 1, get message info.
763: FND_MSG_PUB.Count_And_Get

Line 769: WHEN FND_API.G_EXC_ERROR THEN

765: p_data => x_msg_data
766: );
767:
768: EXCEPTION
769: WHEN FND_API.G_EXC_ERROR THEN
770: FND_MSG_PUB.Count_And_Get
771: (p_count => x_msg_count ,
772: p_data => x_msg_data
773: );

Line 776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

772: p_data => x_msg_data
773: );
774:
775: WHEN OTHERS THEN
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
778: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
779: END IF;
780: FND_MSG_PUB.Count_And_Get