23: BEGIN
24: l_score_rec := p_score_rec;
25:
26: -- Initialize message list IF p_init_msg_list is set to TRUE.
27: IF FND_API.to_Boolean( p_init_msg_list )
28: THEN
29: FND_MSG_PUB.initialize;
30: END IF;
31: IEX_UTILITIES.VALIDATE_ANY_ID(P_COL_ID => l_score_rec.score_id,
33: P_TABLE_NAME => 'IEX_SCORES',
34: X_Return_Status => x_return_status,
35: X_Msg_Count => x_msg_count,
36: X_Msg_Data => x_msg_data,
37: P_Init_Msg_List => FND_API.G_FALSE);
38:
39: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
35: X_Msg_Count => x_msg_count,
36: X_Msg_Data => x_msg_data,
37: P_Init_Msg_List => FND_API.G_FALSE);
38:
39: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
42:
43: Validate_Score_ID_Name(P_Init_Msg_List => FND_API.G_FALSE,
36: X_Msg_Data => x_msg_data,
37: P_Init_Msg_List => FND_API.G_FALSE);
38:
39: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
42:
43: Validate_Score_ID_Name(P_Init_Msg_List => FND_API.G_FALSE,
44: P_SCORE_ID => l_score_rec.score_id,
39: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
42:
43: Validate_Score_ID_Name(P_Init_Msg_List => FND_API.G_FALSE,
44: P_SCORE_ID => l_score_rec.score_id,
45: P_SCORE_Name => l_score_rec.score_Name,
46: X_Dup_Status => x_dup_status,
47: X_Return_Status => x_return_status,
47: X_Return_Status => x_return_status,
48: X_Msg_Count => x_msg_count,
49: X_Msg_Data => x_msg_data);
50:
51: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
52: RAISE FND_API.G_EXC_ERROR;
53: END IF;
54: END Validate_Score;
55:
48: X_Msg_Count => x_msg_count,
49: X_Msg_Data => x_msg_data);
50:
51: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
52: RAISE FND_API.G_EXC_ERROR;
53: END IF;
54: END Validate_Score;
55:
56:
85:
86: WriteLog(l_msg || 'Start');
87:
88: -- Initialize message list IF p_init_msg_list is set to TRUE.
89: IF FND_API.to_Boolean( p_init_msg_list )
90: THEN
91: FND_MSG_PUB.initialize;
92: END IF;
93:
91: FND_MSG_PUB.initialize;
92: END IF;
93:
94: -- Initialize API return status to SUCCESS
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
97: WriteLog(l_msg || 'p_score_name='||p_score_name);
98: WriteLog(l_msg || 'p_score_id='||p_score_id);
99:
98: WriteLog(l_msg || 'p_score_id='||p_score_id);
99:
100:
101: IF P_SCORE_Name is NULL
102: or P_SCORE_Name = FND_API.G_FALSE
103: THEN
104: WriteLog(l_msg || ' no score name');
105: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
106: FND_MESSAGE.Set_Token('API_NAME', 'Validate_SCORE_Name', FALSE);
105: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
106: FND_MESSAGE.Set_Token('API_NAME', 'Validate_SCORE_Name', FALSE);
107: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_NAME', FALSE);
108: FND_MSG_PUB.Add;
109: x_return_status := FND_API.G_RET_STS_ERROR;
110:
111: ELSE -- IF P_SCORE_Name is NULL or P_SCORE_Name = FND_API.G_FALSE
112:
113: OPEN C_Get_Score_Name (p_score_Name, p_score_id);
107: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_NAME', FALSE);
108: FND_MSG_PUB.Add;
109: x_return_status := FND_API.G_RET_STS_ERROR;
110:
111: ELSE -- IF P_SCORE_Name is NULL or P_SCORE_Name = FND_API.G_FALSE
112:
113: OPEN C_Get_Score_Name (p_score_Name, p_score_id);
114: FETCH C_Get_Score_Name INTO l_score_Name;
115:
122: FND_MESSAGE.Set_Token('COLUMN', 'SCORE_NAME', FALSE);
123: FND_MESSAGE.Set_Token('VALUE', p_score_Name, FALSE);
124: FND_MSG_PUB.Add;
125: --END IF;
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: x_dup_status := IEX_DUPLICATE_NAME;
128: END IF;
129: CLOSE C_GET_SCORE_Name;
130: END IF;
158: l_score_Name VARCHAR2(256);
159:
160: BEGIN
161: -- Initialize message list IF p_init_msg_list is set to TRUE.
162: IF FND_API.to_Boolean( p_init_msg_list )
163: THEN
164: FND_MSG_PUB.initialize;
165: END IF;
166:
164: FND_MSG_PUB.initialize;
165: END IF;
166:
167: -- Initialize API return status to SUCCESS
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169:
170: IF P_SCORE_Name is NULL
171: or P_SCORE_Name = FND_API.G_FALSE
172: THEN
167: -- Initialize API return status to SUCCESS
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169:
170: IF P_SCORE_Name is NULL
171: or P_SCORE_Name = FND_API.G_FALSE
172: THEN
173: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
174: FND_MESSAGE.Set_Token('API_NAME', 'Validate_SCORE_ID_Name', FALSE);
175: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_NAME', FALSE);
173: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
174: FND_MESSAGE.Set_Token('API_NAME', 'Validate_SCORE_ID_Name', FALSE);
175: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_NAME', FALSE);
176: FND_MSG_PUB.Add;
177: x_return_status := FND_API.G_RET_STS_ERROR;
178:
179: ELSE -- IF P_SCORE_Name is NULL or P_SCORE_Name = FND_API.G_FALSE
180:
181: OPEN C_Get_Score_ID_Name (p_score_Name, P_SCORE_ID);
175: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_NAME', FALSE);
176: FND_MSG_PUB.Add;
177: x_return_status := FND_API.G_RET_STS_ERROR;
178:
179: ELSE -- IF P_SCORE_Name is NULL or P_SCORE_Name = FND_API.G_FALSE
180:
181: OPEN C_Get_Score_ID_Name (p_score_Name, P_SCORE_ID);
182: FETCH C_Get_Score_ID_Name INTO l_score_Name;
183:
189: FND_MESSAGE.Set_Token('COLUMN', 'SCORE_NAME', FALSE);
190: FND_MESSAGE.Set_Token('VALUE', p_score_Name, FALSE);
191: FND_MSG_PUB.Add;
192: END IF;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: x_dup_status := IEX_DUPLICATE_NAME;
195: END IF;
196: CLOSE C_GET_SCORE_ID_Name;
197: END IF;
220: l_score_comp_name VARCHAR2(30);
221:
222: BEGIN
223: -- Initialize message list IF p_init_msg_list is set to TRUE.
224: IF FND_API.to_Boolean( p_init_msg_list )
225: THEN
226: FND_MSG_PUB.initialize;
227: END IF;
228:
226: FND_MSG_PUB.initialize;
227: END IF;
228:
229: -- Initialize API return status to SUCCESS
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231:
232: IF P_SCORE_COMP_NAME is NULL
233: or P_SCORE_COMP_NAME = FND_API.G_FALSE
234: THEN
229: -- Initialize API return status to SUCCESS
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231:
232: IF P_SCORE_COMP_NAME is NULL
233: or P_SCORE_COMP_NAME = FND_API.G_FALSE
234: THEN
235: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
236: FND_MESSAGE.Set_Token('API_NAME', 'Validate_SCORE_COMP_TYPE_NAME', FALSE);
237: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_COMP_NAME', FALSE);
235: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
236: FND_MESSAGE.Set_Token('API_NAME', 'Validate_SCORE_COMP_TYPE_NAME', FALSE);
237: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_COMP_NAME', FALSE);
238: FND_MSG_PUB.Add;
239: x_return_status := FND_API.G_RET_STS_ERROR;
240:
241: ELSE -- IF P_SCORE_COMP_NAME is NOT NULL and P_SCORE_COMP_NAME <> FND_API.G_FALSE
242:
243: OPEN C_Get_Score_comp_Name (p_SCORE_COMP_NAME);
237: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_COMP_NAME', FALSE);
238: FND_MSG_PUB.Add;
239: x_return_status := FND_API.G_RET_STS_ERROR;
240:
241: ELSE -- IF P_SCORE_COMP_NAME is NOT NULL and P_SCORE_COMP_NAME <> FND_API.G_FALSE
242:
243: OPEN C_Get_Score_comp_Name (p_SCORE_COMP_NAME);
244: FETCH C_Get_SCORE_COMP_Name INTO l_SCORE_COMP_NAME;
245:
251: FND_MESSAGE.Set_Token('COLUMN', 'SCORE_COMP_NAME', FALSE);
252: FND_MESSAGE.Set_Token('VALUE', p_SCORE_COMP_NAME, FALSE);
253: FND_MSG_PUB.Add;
254: END IF;
255: x_return_status := FND_API.G_RET_STS_ERROR;
256: x_dup_status := IEX_DUPLICATE_NAME;
257: END IF;
258: CLOSE C_GET_SCORE_COMP_NAME;
259: END IF;
284: l_score_comp_name VARCHAR2(30);
285:
286: BEGIN
287: -- Initialize message list IF p_init_msg_list is set to TRUE.
288: IF FND_API.to_Boolean( p_init_msg_list )
289: THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292:
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: -- Initialize API return status to SUCCESS
294: x_return_status := FND_API.G_RET_STS_SUCCESS;
295:
296: IF P_SCORE_COMP_NAME is NULL
297: or P_SCORE_COMP_NAME = FND_API.G_FALSE
298: THEN
293: -- Initialize API return status to SUCCESS
294: x_return_status := FND_API.G_RET_STS_SUCCESS;
295:
296: IF P_SCORE_COMP_NAME is NULL
297: or P_SCORE_COMP_NAME = FND_API.G_FALSE
298: THEN
299: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
300: FND_MESSAGE.Set_Token('API_NAME', 'Val_SCORE_COMP_TYPE_ID_NAME', FALSE);
301: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_COMP_NAME', FALSE);
299: FND_MESSAGE.Set_Name('IEX', 'IEX_API_ALL_MISSING_PARAM');
300: FND_MESSAGE.Set_Token('API_NAME', 'Val_SCORE_COMP_TYPE_ID_NAME', FALSE);
301: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_COMP_NAME', FALSE);
302: FND_MSG_PUB.Add;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304:
305: ELSE -- IF P_SCORE_COMP_NAME is NOT NULL and P_SCORE_COMP_NAME <> FND_API.G_FALSE
306:
307: OPEN C_Get_Score_comp_ID_Name (p_SCORE_COMP_NAME, P_SCORE_COMP_TYPE_ID);
301: FND_MESSAGE.Set_Token('MISSING_PARAM', 'SCORE_COMP_NAME', FALSE);
302: FND_MSG_PUB.Add;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304:
305: ELSE -- IF P_SCORE_COMP_NAME is NOT NULL and P_SCORE_COMP_NAME <> FND_API.G_FALSE
306:
307: OPEN C_Get_Score_comp_ID_Name (p_SCORE_COMP_NAME, P_SCORE_COMP_TYPE_ID);
308: FETCH C_Get_SCORE_COMP_ID_Name INTO l_SCORE_COMP_NAME;
309:
315: FND_MESSAGE.Set_Token('COLUMN', 'SCORE_COMP_NAME', FALSE);
316: FND_MESSAGE.Set_Token('VALUE', p_SCORE_COMP_NAME, FALSE);
317: FND_MSG_PUB.Add;
318: END IF;
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: x_dup_status := IEX_DUPLICATE_NAME;
321: END IF;
322: CLOSE C_GET_SCORE_COMP_ID_NAME;
323: END IF;
362: -- Standard Start of API savepoint
363: SAVEPOINT CREATE_SCORE_PVT;
364:
365: -- Standard call to check for call compatibility.
366: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
367: p_api_version,
368: l_api_name,
369: G_PKG_NAME)
370: THEN
367: p_api_version,
368: l_api_name,
369: G_PKG_NAME)
370: THEN
371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
372: END IF;
373:
374: -- Initialize message list IF p_init_msg_list is set to TRUE.
375: IF FND_API.to_Boolean( p_init_msg_list )
371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
372: END IF;
373:
374: -- Initialize message list IF p_init_msg_list is set to TRUE.
375: IF FND_API.to_Boolean( p_init_msg_list )
376: THEN
377: FND_MSG_PUB.initialize;
378: END IF;
379:
382:
383: WriteLog(l_msg || 'START');
384:
385: -- Initialize API return status to SUCCESS
386: x_return_status := FND_API.G_RET_STS_SUCCESS;
387:
388: --
389: -- API body
390: --
392: -- Validate Data
393: WriteLog(l_msg || 'Validate_score_name');
394: WriteLog(l_msg || 'score_name='||l_score_rec.score_name);
395:
396: Validate_Score_Name(P_Init_Msg_List => FND_API.G_FALSE,
397: P_SCORE_Name => l_score_rec.score_Name,
398: P_SCORE_ID => 0,
399: X_Dup_Status => x_Dup_status,
400: X_Return_Status => x_return_status,
401: X_Msg_Count => x_msg_count,
402: X_Msg_Data => x_msg_data);
403:
404: WriteLog(l_msg || 'return_status='||x_return_status);
405: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
406: RAISE FND_API.G_EXC_ERROR;
407: END IF;
408:
409: -- ******************************************************************
402: X_Msg_Data => x_msg_data);
403:
404: WriteLog(l_msg || 'return_status='||x_return_status);
405: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
406: RAISE FND_API.G_EXC_ERROR;
407: END IF;
408:
409: -- ******************************************************************
410: -- Validate Environment
420: p_token1 => 'PROFILE',
421: p_token1_value => 'USER_ID');
422:
423: END IF;
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426: */
427:
428: WriteLog(l_msg || 'score_id='||l_score_rec.score_id);
427:
428: WriteLog(l_msg || 'score_id='||l_score_rec.score_id);
429:
430: If ( (l_score_rec.score_id IS NULL) OR
431: (l_score_rec.score_id = FND_API.G_MISS_NUM) OR
432: (l_score_rec.score_id = 0)) then
433: WriteLog(l_msg || 'get score_id from seq');
434: OPEN get_seq_csr;
435: FETCH get_seq_csr INTO x_score_id ;
439:
440:
441: WriteLog(l_msg || 'concurrent_prog_id='||l_score_rec.concurrent_prog_id);
442: WriteLog(l_msg || 'concurrent_prog_name='||l_score_rec.concurrent_prog_name);
443: IF (l_score_rec.CAMPAIGN_SCHED_ID = FND_API.G_MISS_NUM) THEN
444: l_score_rec.CAMPAIGN_SCHED_ID := NULL;
445: END IF;
446: IF (l_score_rec.REQUEST_ID = FND_API.G_MISS_NUM) THEN
447: l_score_rec.REQUEST_ID := NULL;
442: WriteLog(l_msg || 'concurrent_prog_name='||l_score_rec.concurrent_prog_name);
443: IF (l_score_rec.CAMPAIGN_SCHED_ID = FND_API.G_MISS_NUM) THEN
444: l_score_rec.CAMPAIGN_SCHED_ID := NULL;
445: END IF;
446: IF (l_score_rec.REQUEST_ID = FND_API.G_MISS_NUM) THEN
447: l_score_rec.REQUEST_ID := NULL;
448: END IF;
449: IF (l_score_rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM) THEN
450: l_score_rec.PROGRAM_APPLICATION_ID := NULL;
445: END IF;
446: IF (l_score_rec.REQUEST_ID = FND_API.G_MISS_NUM) THEN
447: l_score_rec.REQUEST_ID := NULL;
448: END IF;
449: IF (l_score_rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM) THEN
450: l_score_rec.PROGRAM_APPLICATION_ID := NULL;
451: END IF;
452: IF (l_score_rec.PROGRAM_ID = FND_API.G_MISS_NUM) THEN
453: l_score_rec.PROGRAM_ID := NULL;
448: END IF;
449: IF (l_score_rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM) THEN
450: l_score_rec.PROGRAM_APPLICATION_ID := NULL;
451: END IF;
452: IF (l_score_rec.PROGRAM_ID = FND_API.G_MISS_NUM) THEN
453: l_score_rec.PROGRAM_ID := NULL;
454: END IF;
455: IF (l_score_rec.SECURITY_GROUP_ID = FND_API.G_MISS_NUM) THEN
456: l_score_rec.SECURITY_GROUP_ID := NULL;
451: END IF;
452: IF (l_score_rec.PROGRAM_ID = FND_API.G_MISS_NUM) THEN
453: l_score_rec.PROGRAM_ID := NULL;
454: END IF;
455: IF (l_score_rec.SECURITY_GROUP_ID = FND_API.G_MISS_NUM) THEN
456: l_score_rec.SECURITY_GROUP_ID := NULL;
457: END IF;
458: IF (l_score_rec.CONCURRENT_PROG_ID = FND_API.G_MISS_NUM) THEN
459: l_score_rec.CONCURRENT_PROG_ID := NULL;
454: END IF;
455: IF (l_score_rec.SECURITY_GROUP_ID = FND_API.G_MISS_NUM) THEN
456: l_score_rec.SECURITY_GROUP_ID := NULL;
457: END IF;
458: IF (l_score_rec.CONCURRENT_PROG_ID = FND_API.G_MISS_NUM) THEN
459: l_score_rec.CONCURRENT_PROG_ID := NULL;
460: END IF;
461: IF (l_score_rec.CONCURRENT_PROG_NAME = FND_API.G_MISS_CHAR) THEN
462: l_score_rec.CONCURRENT_PROG_NAME := NULL;
457: END IF;
458: IF (l_score_rec.CONCURRENT_PROG_ID = FND_API.G_MISS_NUM) THEN
459: l_score_rec.CONCURRENT_PROG_ID := NULL;
460: END IF;
461: IF (l_score_rec.CONCURRENT_PROG_NAME = FND_API.G_MISS_CHAR) THEN
462: l_score_rec.CONCURRENT_PROG_NAME := NULL;
463: END IF;
464:
465: IF (l_score_rec.STATUS_DETERMINATION = 'Y') then
508: , p_SCORE_RANGE_HIGH => l_score_rec.SCORE_RANGE_HIGH
509: , p_OUT_OF_RANGE_RULE => l_score_rec.OUT_OF_RANGE_RULE);
510:
511: /*
512: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
513: RAISE FND_API.G_EXC_ERROR;
514: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
509: , p_OUT_OF_RANGE_RULE => l_score_rec.OUT_OF_RANGE_RULE);
510:
511: /*
512: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
513: RAISE FND_API.G_EXC_ERROR;
514: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517: */
510:
511: /*
512: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
513: RAISE FND_API.G_EXC_ERROR;
514: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517: */
518: --
511: /*
512: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
513: RAISE FND_API.G_EXC_ERROR;
514: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517: */
518: --
519: -- End of API body
519: -- End of API body
520: --
521:
522: -- Standard check for p_commit
523: IF FND_API.to_Boolean( p_commit )
524: THEN
525: COMMIT WORK;
526: END IF;
527:
533: ( p_count => x_msg_count,
534: p_data => x_msg_data);
535:
536: EXCEPTION
537: WHEN FND_API.G_EXC_ERROR THEN
538: ROLLBACK TO CREATE_SCORE_PVT;
539: IEX_SCORE_PVT.WriteLog('iexvscrb:CreateScr: exc exp:'||SQLERRM);
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MSG_PUB.Count_And_Get
536: EXCEPTION
537: WHEN FND_API.G_EXC_ERROR THEN
538: ROLLBACK TO CREATE_SCORE_PVT;
539: IEX_SCORE_PVT.WriteLog('iexvscrb:CreateScr: exc exp:'||SQLERRM);
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MSG_PUB.Count_And_Get
542: ( p_count => x_msg_count,
543: p_data => x_msg_data);
544:
541: FND_MSG_PUB.Count_And_Get
542: ( p_count => x_msg_count,
543: p_data => x_msg_data);
544:
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: ROLLBACK TO CREATE_SCORE_PVT;
547: IEX_SCORE_PVT.WriteLog('iexvscrb:CreateScr: unexc exp:'||SQLERRM);
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get
544:
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: ROLLBACK TO CREATE_SCORE_PVT;
547: IEX_SCORE_PVT.WriteLog('iexvscrb:CreateScr: unexc exp:'||SQLERRM);
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get
550: ( p_count => x_msg_count,
551: p_data => x_msg_data);
552:
552:
553: WHEN OTHERS THEN
554: ROLLBACK TO CREATE_SCORE_PVT;
555: IEX_SCORE_PVT.WriteLog('iexvscrb:CreateScr: other exp:'||SQLERRM);
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: FND_MSG_PUB.Count_And_Get
558: ( p_count => x_msg_count,
559: p_data => x_msg_data);
560:
615: -- Standard Start of API savepoint
616: SAVEPOINT UPDATE_SCORE_PVT;
617:
618: -- Standard call to check for call compatibility.
619: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
620: p_api_version,
621: l_api_name,
622: G_PKG_NAME)
623: THEN
620: p_api_version,
621: l_api_name,
622: G_PKG_NAME)
623: THEN
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: END IF;
626:
627: -- Initialize message list IF p_init_msg_list is set to TRUE.
628: IF FND_API.to_Boolean( p_init_msg_list )
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: END IF;
626:
627: -- Initialize message list IF p_init_msg_list is set to TRUE.
628: IF FND_API.to_Boolean( p_init_msg_list )
629: THEN
630: FND_MSG_PUB.initialize;
631: END IF;
632:
634: WriteLog('iexvscrb:UpdScr: Start');
635: WriteLog('iexvscrb:UpdScr: scoreid='||l_score_rec.score_id);
636:
637: -- Initialize API return status to SUCCESS
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639:
640: --
641: -- Api body
642: --
645: WriteLog('iexvscrb:UpdScr: Validate_score_name');
646: WriteLog('iexvscrb:UpdScr: score_name='||l_score_rec.score_name);
647: WriteLog('iexvscrb:UpdScr: score_id='||l_score_rec.score_id);
648:
649: Validate_Score_Name(P_Init_Msg_List => FND_API.G_FALSE,
650: P_SCORE_Name => l_score_rec.score_Name,
651: P_SCORE_ID => l_score_rec.score_id,
652: X_Dup_Status => x_Dup_status,
653: X_Return_Status => x_return_status,
654: X_Msg_Count => x_msg_count,
655: X_Msg_Data => x_msg_data);
656:
657: WriteLog('iexvscrb:Updscr: return_status='||x_return_status);
658: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
662:
655: X_Msg_Data => x_msg_data);
656:
657: WriteLog('iexvscrb:Updscr: return_status='||x_return_status);
658: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
662:
663: -- Debug Message
695: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
696: FND_MESSAGE.Set_Token ('INFO', 'iex_scores', FALSE);
697: FND_MSG_PUB.Add;
698: END IF;
699: RAISE FND_API.G_EXC_ERROR;
700: END IF;
701:
702: -- Debug Message
703: WriteLog('iexvscrb:UpdScr: Close C_Get_Score_Rec');
703: WriteLog('iexvscrb:UpdScr: Close C_Get_Score_Rec');
704: Close C_Get_Score_Rec;
705:
706: IF (l_score_rec.last_update_date is NULL or
707: l_score_rec.last_update_date = FND_API.G_MISS_Date )
708: THEN
709: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
710: THEN
711: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
711: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
712: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
713: FND_MSG_PUB.ADD;
714: END IF;
715: RAISE FND_API.G_EXC_ERROR;
716: End IF;
717:
718: WriteLog('iexvscrb:UpdScr: Transfer Data info target record');
719:
720: -- Transfer Data into target record
721: l_score_rec.CREATION_DATE := l_score_ref_rec.CREATION_DATE;
722: l_score_rec.CREATED_BY := l_score_ref_rec.CREATED_BY;
723:
724: IF ((l_score_rec.SCORE_NAME = FND_API.G_MISS_CHAR) OR
725: (l_score_rec.SCORE_NAME = NULL)) THEN
726: l_score_rec.SCORE_NAME := l_SCORE_REF_rec.SCORE_NAME;
727: END IF;
728: IF ((l_score_rec.SCORE_DESCRIPTION = FND_API.G_MISS_CHAR) OR
724: IF ((l_score_rec.SCORE_NAME = FND_API.G_MISS_CHAR) OR
725: (l_score_rec.SCORE_NAME = NULL)) THEN
726: l_score_rec.SCORE_NAME := l_SCORE_REF_rec.SCORE_NAME;
727: END IF;
728: IF ((l_score_rec.SCORE_DESCRIPTION = FND_API.G_MISS_CHAR) OR
729: (l_score_rec.SCORE_DESCRIPTION = NULL)) THEN
730: l_score_rec.SCORE_DESCRIPTION := l_SCORE_REF_rec.SCORE_DESCRIPTION;
731: END IF;
732: IF ((l_score_rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) OR
728: IF ((l_score_rec.SCORE_DESCRIPTION = FND_API.G_MISS_CHAR) OR
729: (l_score_rec.SCORE_DESCRIPTION = NULL)) THEN
730: l_score_rec.SCORE_DESCRIPTION := l_SCORE_REF_rec.SCORE_DESCRIPTION;
731: END IF;
732: IF ((l_score_rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) OR
733: (l_score_rec.ENABLED_FLAG = NULL)) THEN
734: l_score_rec.ENABLED_FLAG := l_score_ref_rec.ENABLED_FLAG;
735: END IF;
736: IF ((l_score_rec.CAMPAIGN_SCHED_ID = FND_API.G_MISS_NUM) OR
732: IF ((l_score_rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) OR
733: (l_score_rec.ENABLED_FLAG = NULL)) THEN
734: l_score_rec.ENABLED_FLAG := l_score_ref_rec.ENABLED_FLAG;
735: END IF;
736: IF ((l_score_rec.CAMPAIGN_SCHED_ID = FND_API.G_MISS_NUM) OR
737: (l_score_rec.CAMPAIGN_SCHED_ID = NULL)) THEN
738: l_score_rec.CAMPAIGN_SCHED_ID := l_score_ref_rec.CAMPAIGN_SCHED_ID;
739: END IF;
740: IF ((l_score_rec.VALID_FROM_DT = FND_API.G_MISS_DATE) OR
736: IF ((l_score_rec.CAMPAIGN_SCHED_ID = FND_API.G_MISS_NUM) OR
737: (l_score_rec.CAMPAIGN_SCHED_ID = NULL)) THEN
738: l_score_rec.CAMPAIGN_SCHED_ID := l_score_ref_rec.CAMPAIGN_SCHED_ID;
739: END IF;
740: IF ((l_score_rec.VALID_FROM_DT = FND_API.G_MISS_DATE) OR
741: (l_score_rec.VALID_FROM_DT = NULL)) THEN
742: l_score_rec.VALID_FROM_DT := l_score_ref_rec.VALID_FROM_DT;
743: END IF;
744: IF ((l_score_rec.VALID_TO_DT = FND_API.G_MISS_DATE) OR
740: IF ((l_score_rec.VALID_FROM_DT = FND_API.G_MISS_DATE) OR
741: (l_score_rec.VALID_FROM_DT = NULL)) THEN
742: l_score_rec.VALID_FROM_DT := l_score_ref_rec.VALID_FROM_DT;
743: END IF;
744: IF ((l_score_rec.VALID_TO_DT = FND_API.G_MISS_DATE) OR
745: (l_score_rec.VALID_TO_DT = NULL)) THEN
746: l_score_rec.VALID_TO_DT := l_score_ref_rec.VALID_TO_DT;
747: END IF;
748: IF ((l_score_rec.JTF_OBJECT_CODE = FND_API.G_MISS_CHAR) OR
744: IF ((l_score_rec.VALID_TO_DT = FND_API.G_MISS_DATE) OR
745: (l_score_rec.VALID_TO_DT = NULL)) THEN
746: l_score_rec.VALID_TO_DT := l_score_ref_rec.VALID_TO_DT;
747: END IF;
748: IF ((l_score_rec.JTF_OBJECT_CODE = FND_API.G_MISS_CHAR) OR
749: (l_score_rec.JTF_OBJECT_CODE = NULL)) THEN
750: l_score_rec.JTF_OBJECT_CODE := l_score_ref_rec.JTF_OBJECT_CODE;
751: END IF;
752: IF ((l_score_rec.CONCURRENT_PROG_NAME = FND_API.G_MISS_CHAR) OR
748: IF ((l_score_rec.JTF_OBJECT_CODE = FND_API.G_MISS_CHAR) OR
749: (l_score_rec.JTF_OBJECT_CODE = NULL)) THEN
750: l_score_rec.JTF_OBJECT_CODE := l_score_ref_rec.JTF_OBJECT_CODE;
751: END IF;
752: IF ((l_score_rec.CONCURRENT_PROG_NAME = FND_API.G_MISS_CHAR) OR
753: (l_score_rec.CONCURRENT_PROG_NAME = NULL)) THEN
754: l_score_rec.CONCURRENT_PROG_NAME := l_score_ref_rec.CONCURRENT_PROG_NAME;
755: END IF;
756:
757: IF (l_score_rec.STATUS_DETERMINATION = 'Y') THEN
758: l_score_rec.CONCURRENT_PROG_NAME := NULL;
759: END IF;
760:
761: IF ((l_score_rec.WEIGHT_REQUIRED = FND_API.G_MISS_CHAR) OR
762: (l_score_rec.WEIGHT_REQUIRED = NULL)) THEN
763: l_score_rec.WEIGHT_REQUIRED := l_score_ref_rec.WEIGHT_REQUIRED;
764: END IF;
765: IF ((l_score_rec.SCORE_RANGE_LOW = FND_API.G_MISS_CHAR) OR
761: IF ((l_score_rec.WEIGHT_REQUIRED = FND_API.G_MISS_CHAR) OR
762: (l_score_rec.WEIGHT_REQUIRED = NULL)) THEN
763: l_score_rec.WEIGHT_REQUIRED := l_score_ref_rec.WEIGHT_REQUIRED;
764: END IF;
765: IF ((l_score_rec.SCORE_RANGE_LOW = FND_API.G_MISS_CHAR) OR
766: (l_score_rec.SCORE_RANGE_LOW = NULL)) THEN
767: l_score_rec.SCORE_RANGE_LOW := l_score_ref_rec.SCORE_RANGE_LOW;
768: END IF;
769: IF ((l_score_rec.SCORE_RANGE_HIGH = FND_API.G_MISS_CHAR) OR
765: IF ((l_score_rec.SCORE_RANGE_LOW = FND_API.G_MISS_CHAR) OR
766: (l_score_rec.SCORE_RANGE_LOW = NULL)) THEN
767: l_score_rec.SCORE_RANGE_LOW := l_score_ref_rec.SCORE_RANGE_LOW;
768: END IF;
769: IF ((l_score_rec.SCORE_RANGE_HIGH = FND_API.G_MISS_CHAR) OR
770: (l_score_rec.SCORE_RANGE_HIGH = NULL)) THEN
771: l_score_rec.SCORE_RANGE_HIGH := l_score_ref_rec.SCORE_RANGE_HIGH;
772: END IF;
773: IF ((l_score_rec.OUT_OF_RANGE_RULE = FND_API.G_MISS_CHAR) OR
769: IF ((l_score_rec.SCORE_RANGE_HIGH = FND_API.G_MISS_CHAR) OR
770: (l_score_rec.SCORE_RANGE_HIGH = NULL)) THEN
771: l_score_rec.SCORE_RANGE_HIGH := l_score_ref_rec.SCORE_RANGE_HIGH;
772: END IF;
773: IF ((l_score_rec.OUT_OF_RANGE_RULE = FND_API.G_MISS_CHAR) OR
774: (l_score_rec.OUT_OF_RANGE_RULE = NULL)) THEN
775: l_score_rec.OUT_OF_RANGE_RULE := l_score_ref_rec.OUT_OF_RANGE_RULE;
776: END IF;
777:
803: , p_SCORE_RANGE_LOW => l_score_rec.SCORE_RANGE_LOW
804: , p_SCORE_RANGE_HIGH => l_score_rec.SCORE_RANGE_HIGH
805: , p_OUT_OF_RANGE_RULE => l_score_rec.OUT_OF_RANGE_RULE);
806:
807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
808: RAISE FND_API.G_EXC_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
804: , p_SCORE_RANGE_HIGH => l_score_rec.SCORE_RANGE_HIGH
805: , p_OUT_OF_RANGE_RULE => l_score_rec.OUT_OF_RANGE_RULE);
806:
807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
808: RAISE FND_API.G_EXC_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
805: , p_OUT_OF_RANGE_RULE => l_score_rec.OUT_OF_RANGE_RULE);
806:
807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
808: RAISE FND_API.G_EXC_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: --
806:
807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
808: RAISE FND_API.G_EXC_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: --
814: -- End of API body.
814: -- End of API body.
815: --
816:
817: -- Standard check for p_commit
818: IF FND_API.to_Boolean( p_commit )
819: THEN
820: COMMIT WORK;
821: END IF;
822:
828: ( p_count => x_msg_count,
829: p_data => x_msg_data );
830:
831: EXCEPTION
832: WHEN FND_API.G_EXC_ERROR THEN
833: ROLLBACK TO UPDATE_SCORE_PVT;
834: IEX_SCORE_PVT.WriteLog('iexvscrb:UpdateScr: exc exp:'||SQLERRM);
835: x_return_status := FND_API.G_RET_STS_ERROR;
836: FND_MSG_PUB.Count_And_Get
831: EXCEPTION
832: WHEN FND_API.G_EXC_ERROR THEN
833: ROLLBACK TO UPDATE_SCORE_PVT;
834: IEX_SCORE_PVT.WriteLog('iexvscrb:UpdateScr: exc exp:'||SQLERRM);
835: x_return_status := FND_API.G_RET_STS_ERROR;
836: FND_MSG_PUB.Count_And_Get
837: ( p_count => x_msg_count,
838: p_data => x_msg_data);
839:
836: FND_MSG_PUB.Count_And_Get
837: ( p_count => x_msg_count,
838: p_data => x_msg_data);
839:
840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
841: ROLLBACK TO UPDATE_SCORE_PVT;
842: IEX_SCORE_PVT.WriteLog('iexvscrb:UpdateScr: unexc exp:'||SQLERRM);
843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
844: FND_MSG_PUB.Count_And_Get
839:
840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
841: ROLLBACK TO UPDATE_SCORE_PVT;
842: IEX_SCORE_PVT.WriteLog('iexvscrb:UpdateScr: unexc exp:'||SQLERRM);
843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
844: FND_MSG_PUB.Count_And_Get
845: ( p_count => x_msg_count,
846: p_data => x_msg_data);
847:
847:
848: WHEN OTHERS THEN
849: ROLLBACK TO UPDATE_SCORE_PVT;
850: IEX_SCORE_PVT.WriteLog('iexvscrb:UpdateScr: other exp:'||SQLERRM);
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852: FND_MSG_PUB.Count_And_Get
853: ( p_count => x_msg_count,
854: p_data => x_msg_data);
855:
902: IEX_DEBUG_PUB.LogMessage('Delete_Score: ' || 'iexvscrb.pls:Delete_Score=>scoreid='||p_score_id);
903: END IF;
904:
905: -- Standard call to check for call compatibility.
906: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
907: p_api_version,
908: l_api_name,
909: G_PKG_NAME)
910: THEN
907: p_api_version,
908: l_api_name,
909: G_PKG_NAME)
910: THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913:
914: -- Initialize message list IF p_init_msg_list is set to TRUE.
915: IF FND_API.to_Boolean( p_init_msg_list )
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913:
914: -- Initialize message list IF p_init_msg_list is set to TRUE.
915: IF FND_API.to_Boolean( p_init_msg_list )
916: THEN
917: FND_MSG_PUB.initialize;
918: END IF;
919:
920: -- Debug Message
921: WriteLog( 'iexvscrb: DelScr: Start');
922:
923: -- Initialize API return status to SUCCESS
924: x_return_status := FND_API.G_RET_STS_SUCCESS;
925:
926: --
927: -- Api body
928: --
936: IF ( C_Get_Score%NOTFOUND) THEN
937: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
938: FND_MESSAGE.Set_Token ('INFO', 'iex_scores', FALSE);
939: FND_MSG_PUB.Add;
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943:
944: -- Debug Message
937: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
938: FND_MESSAGE.Set_Token ('INFO', 'iex_scores', FALSE);
939: FND_MSG_PUB.Add;
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943:
944: -- Debug Message
945: Close C_Get_Score;
950: -- Invoke table handler
951: IEX_SCORES_PKG.Delete_Row(
952: x_rowid => l_rowid);
953:
954: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
955: RAISE FND_API.G_EXC_ERROR;
956: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
951: IEX_SCORES_PKG.Delete_Row(
952: x_rowid => l_rowid);
953:
954: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
955: RAISE FND_API.G_EXC_ERROR;
956: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
952: x_rowid => l_rowid);
953:
954: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
955: RAISE FND_API.G_EXC_ERROR;
956: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
960: -- clchang updated 08/01/2002
953:
954: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
955: RAISE FND_API.G_EXC_ERROR;
956: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
960: -- clchang updated 08/01/2002
961: -- delete score will delete score comp ,scorecomp details and filter;
978: , x_msg_count => x_msg_count
979: , x_msg_data => x_msg_data
980: );
981:
982: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
983: RAISE FND_API.G_EXC_ERROR;
984: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
986: END IF;
979: , x_msg_data => x_msg_data
980: );
981:
982: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
983: RAISE FND_API.G_EXC_ERROR;
984: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
986: END IF;
987:
980: );
981:
982: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
983: RAISE FND_API.G_EXC_ERROR;
984: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
986: END IF;
987:
988: END LOOP;
981:
982: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
983: RAISE FND_API.G_EXC_ERROR;
984: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
986: END IF;
987:
988: END LOOP;
989: WriteLog('iexvscrb:Delete_Score=>after delete scrcomp');
1004: , x_msg_count => x_msg_count
1005: , x_msg_data => x_msg_data
1006: );
1007:
1008: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1005: , x_msg_data => x_msg_data
1006: );
1007:
1008: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013:
1006: );
1007:
1008: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013:
1014: END LOOP;
1007:
1008: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013:
1014: END LOOP;
1015: WriteLog('iexvscrb:Delete_Score=>after delete filter');
1023: -- End of API body
1024: --
1025:
1026: -- Standard check for p_commit
1027: IF FND_API.to_Boolean( p_commit )
1028: THEN
1029: COMMIT WORK;
1030: END IF;
1031:
1036: ( p_count => x_msg_count,
1037: p_data => x_msg_data );
1038:
1039: EXCEPTION
1040: WHEN FND_API.G_EXC_ERROR THEN
1041: ROLLBACK TO DELETE_SCORE_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR;
1043: FND_MSG_PUB.Count_And_Get
1044: ( p_count => x_msg_count,
1038:
1039: EXCEPTION
1040: WHEN FND_API.G_EXC_ERROR THEN
1041: ROLLBACK TO DELETE_SCORE_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR;
1043: FND_MSG_PUB.Count_And_Get
1044: ( p_count => x_msg_count,
1045: p_data => x_msg_data);
1046:
1043: FND_MSG_PUB.Count_And_Get
1044: ( p_count => x_msg_count,
1045: p_data => x_msg_data);
1046:
1047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1048: ROLLBACK TO DELETE_SCORE_PVT;
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050: FND_MSG_PUB.Count_And_Get
1051: ( p_count => x_msg_count,
1045: p_data => x_msg_data);
1046:
1047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1048: ROLLBACK TO DELETE_SCORE_PVT;
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050: FND_MSG_PUB.Count_And_Get
1051: ( p_count => x_msg_count,
1052: p_data => x_msg_data);
1053:
1052: p_data => x_msg_data);
1053:
1054: WHEN OTHERS THEN
1055: ROLLBACK TO DELETE_SCORE_PVT;
1056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1057: FND_MSG_PUB.Count_And_Get
1058: ( p_count => x_msg_count,
1059: p_data => x_msg_data);
1060:
1091: -- Standard Start of API savepoint
1092: SAVEPOINT CREATE_Score_Comp_PVT;
1093:
1094: -- Standard call to check for call compatibility.
1095: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1096: p_api_version,
1097: l_api_name,
1098: G_PKG_NAME)
1099: THEN
1096: p_api_version,
1097: l_api_name,
1098: G_PKG_NAME)
1099: THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: END IF;
1102:
1103:
1104: -- Initialize message list IF p_init_msg_list is set to TRUE.
1101: END IF;
1102:
1103:
1104: -- Initialize message list IF p_init_msg_list is set to TRUE.
1105: IF FND_API.to_Boolean( p_init_msg_list )
1106: THEN
1107: FND_MSG_PUB.initialize;
1108: END IF;
1109:
1111: l_msg := 'iexvscrb:CreateScrComp:';
1112: WriteLog(l_msg || 'START');
1113:
1114: -- Initialize API return status to SUCCESS
1115: x_return_status := FND_API.G_RET_STS_SUCCESS;
1116:
1117: --
1118: -- API body
1119: --
1129: P_TABLE_NAME => 'IEX_SCORES',
1130: X_Return_Status => x_return_status,
1131: X_Msg_Count => x_msg_count,
1132: X_Msg_Data => x_msg_data,
1133: P_Init_Msg_List => FND_API.G_FALSE);
1134:
1135: WriteLog(l_msg || 'return_status='||x_return_status);
1136: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1137: RAISE FND_API.G_EXC_ERROR;
1132: X_Msg_Data => x_msg_data,
1133: P_Init_Msg_List => FND_API.G_FALSE);
1134:
1135: WriteLog(l_msg || 'return_status='||x_return_status);
1136: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1137: RAISE FND_API.G_EXC_ERROR;
1138: END IF;
1139:
1140: WriteLog(l_msg || 'type_id='||l_score_comp_rec.score_comp_type_id);
1133: P_Init_Msg_List => FND_API.G_FALSE);
1134:
1135: WriteLog(l_msg || 'return_status='||x_return_status);
1136: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1137: RAISE FND_API.G_EXC_ERROR;
1138: END IF;
1139:
1140: WriteLog(l_msg || 'type_id='||l_score_comp_rec.score_comp_type_id);
1141:
1144: P_TABLE_NAME => 'IEX_SCORE_COMP_TYPES_VL',
1145: X_Return_Status => x_return_status,
1146: X_Msg_Count => x_msg_count,
1147: X_Msg_Data => x_msg_data,
1148: P_Init_Msg_List => FND_API.G_FALSE);
1149:
1150: WriteLog(l_msg || 'return_status='||x_return_status);
1151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1152: RAISE FND_API.G_EXC_ERROR;
1147: X_Msg_Data => x_msg_data,
1148: P_Init_Msg_List => FND_API.G_FALSE);
1149:
1150: WriteLog(l_msg || 'return_status='||x_return_status);
1151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154:
1155:
1148: P_Init_Msg_List => FND_API.G_FALSE);
1149:
1150: WriteLog(l_msg || 'return_status='||x_return_status);
1151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154:
1155:
1156: -- Validate Weight (sum of weights = 1.0)
1160: WriteLog(l_msg || 'Get ScoreComp Seq');
1161:
1162: If ( (l_score_comp_rec.score_component_id IS NULL) OR
1163: (l_score_comp_rec.score_component_id = 0 ) OR
1164: (l_score_comp_rec.score_component_id = FND_API.G_MISS_NUM) ) then
1165: OPEN get_seq_csr;
1166: FETCH get_seq_csr INTO x_score_comp_id ;
1167: CLOSE get_seq_csr;
1168: End If;
1188: , p_score_id => l_score_comp_rec.score_id
1189: , p_enabled_flag => l_score_comp_rec.enabled_flag
1190: , P_SCORE_COMP_TYPE_ID => l_score_comp_rec.SCORE_COMP_TYPE_ID);
1191:
1192: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: END IF;
1189: , p_enabled_flag => l_score_comp_rec.enabled_flag
1190: , P_SCORE_COMP_TYPE_ID => l_score_comp_rec.SCORE_COMP_TYPE_ID);
1191:
1192: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: END IF;
1197:
1190: , P_SCORE_COMP_TYPE_ID => l_score_comp_rec.SCORE_COMP_TYPE_ID);
1191:
1192: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: END IF;
1197:
1198:
1191:
1192: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: END IF;
1197:
1198:
1199: --
1200: -- End of API body
1201: --
1202:
1203: -- Standard check for p_commit
1204: IF FND_API.to_Boolean( p_commit )
1205: THEN
1206: COMMIT WORK;
1207: END IF;
1208:
1214: ( p_count => x_msg_count,
1215: p_data => x_msg_data);
1216:
1217: EXCEPTION
1218: WHEN FND_API.G_EXC_ERROR THEN
1219: ROLLBACK TO CREATE_SCORE_COMP_PVT;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: FND_MSG_PUB.Count_And_Get
1222: ( p_count => x_msg_count,
1216:
1217: EXCEPTION
1218: WHEN FND_API.G_EXC_ERROR THEN
1219: ROLLBACK TO CREATE_SCORE_COMP_PVT;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: FND_MSG_PUB.Count_And_Get
1222: ( p_count => x_msg_count,
1223: p_data => x_msg_data);
1224:
1221: FND_MSG_PUB.Count_And_Get
1222: ( p_count => x_msg_count,
1223: p_data => x_msg_data);
1224:
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: ROLLBACK TO CREATE_SCORE_COMP_PVT;
1227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count,
1223: p_data => x_msg_data);
1224:
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: ROLLBACK TO CREATE_SCORE_COMP_PVT;
1227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count,
1230: p_data => x_msg_data);
1231:
1230: p_data => x_msg_data);
1231:
1232: WHEN OTHERS THEN
1233: ROLLBACK TO CREATE_SCORE_COMP_PVT;
1234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1235: FND_MSG_PUB.Count_And_Get
1236: ( p_count => x_msg_count,
1237: p_data => x_msg_data);
1238:
1281: -- Standard Start of API savepoint
1282: SAVEPOINT UPDATE_Score_Comp_PVT;
1283:
1284: -- Standard call to check for call compatibility.
1285: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1286: p_api_version,
1287: l_api_name,
1288: G_PKG_NAME)
1289: THEN
1286: p_api_version,
1287: l_api_name,
1288: G_PKG_NAME)
1289: THEN
1290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1291: END IF;
1292:
1293: -- Initialize message list IF p_init_msg_list is set to TRUE.
1294: IF FND_API.to_Boolean( p_init_msg_list )
1290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1291: END IF;
1292:
1293: -- Initialize message list IF p_init_msg_list is set to TRUE.
1294: IF FND_API.to_Boolean( p_init_msg_list )
1295: THEN
1296: FND_MSG_PUB.initialize;
1297: END IF;
1298:
1303: WriteLog('iexvscrb:UpdScrComp: scorecomptypeid='||l_score_comp_rec.score_comp_type_id);
1304: WriteLog('iexvscrb:UpdScrComp: scorecompid='||l_score_comp_rec.score_component_id);
1305:
1306: -- Initialize API return status to SUCCESS
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
1308:
1309: -- Debug message
1310:
1311: -- Invoke validation procedures
1318: P_TABLE_NAME => 'IEX_SCORES',
1319: X_Return_Status => x_return_status,
1320: X_Msg_Count => x_msg_count,
1321: X_Msg_Data => x_msg_data,
1322: P_Init_Msg_List => FND_API.G_FALSE);
1323:
1324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: END IF;
1320: X_Msg_Count => x_msg_count,
1321: X_Msg_Data => x_msg_data,
1322: P_Init_Msg_List => FND_API.G_FALSE);
1323:
1324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: END IF;
1327:
1328: WriteLog('iexvscrb:UpdScrComp: Validate Score_Comp_Type_ID');
1321: X_Msg_Data => x_msg_data,
1322: P_Init_Msg_List => FND_API.G_FALSE);
1323:
1324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: END IF;
1327:
1328: WriteLog('iexvscrb:UpdScrComp: Validate Score_Comp_Type_ID');
1329:
1332: P_TABLE_NAME => 'IEX_SCORE_COMP_TYPES_VL',
1333: X_Return_Status => x_return_status,
1334: X_Msg_Count => x_msg_count,
1335: X_Msg_Data => x_msg_data,
1336: P_Init_Msg_List => FND_API.G_FALSE);
1337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: --
1333: X_Return_Status => x_return_status,
1334: X_Msg_Count => x_msg_count,
1335: X_Msg_Data => x_msg_data,
1336: P_Init_Msg_List => FND_API.G_FALSE);
1337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: --
1341: -- Api body
1334: X_Msg_Count => x_msg_count,
1335: X_Msg_Data => x_msg_data,
1336: P_Init_Msg_List => FND_API.G_FALSE);
1337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: --
1341: -- Api body
1342: --
1363: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
1364: FND_MESSAGE.Set_Token ('INFO', 'iex_score_components', FALSE);
1365: FND_MSG_PUB.Add;
1366: END IF;
1367: RAISE FND_API.G_EXC_ERROR;
1368: END IF;
1369:
1370:
1371: -- Debug Message
1372: Close C_Get_Score_Comp_Rec;
1373:
1374:
1375: IF (l_score_comp_rec.last_update_date is NULL or
1376: l_score_comp_rec.last_update_date = FND_API.G_MISS_Date )
1377: THEN
1378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1379: THEN
1380: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
1380: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
1381: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1382: FND_MSG_PUB.ADD;
1383: END IF;
1384: RAISE FND_API.G_EXC_ERROR;
1385: End IF;
1386:
1387:
1388: WriteLog('iexvscrb:UpdScrComp:Transfer Data into Target rec');
1390: -- Transfer Data into target record
1391: l_score_comp_rec.CREATION_DATE := l_score_comp_ref_rec.CREATION_DATE;
1392: l_score_comp_rec.CREATED_BY := l_score_comp_ref_rec.CREATED_BY;
1393: /*
1394: IF ((l_score_comp_rec.SCORE_COMP_NAME = FND_API.G_MISS_CHAR) OR
1395: (l_score_comp_rec.SCORE_COMP_NAME = NULL)) THEN
1396: l_score_comp_rec.SCORE_COMP_NAME := l_SCORE_COMP_REF_rec.SCORE_COMP_NAME;
1397: END IF;
1398: */
1395: (l_score_comp_rec.SCORE_COMP_NAME = NULL)) THEN
1396: l_score_comp_rec.SCORE_COMP_NAME := l_SCORE_COMP_REF_rec.SCORE_COMP_NAME;
1397: END IF;
1398: */
1399: IF ((l_score_comp_rec.SCORE_COMP_WEIGHT = FND_API.G_MISS_NUM) OR
1400: (l_score_comp_rec.SCORE_COMP_WEIGHT = NULL)) THEN
1401: l_score_comp_rec.SCORE_COMP_WEIGHT := l_SCORE_COMP_REF_rec.SCORE_COMP_WEIGHT;
1402: END IF;
1403: IF ((l_score_comp_rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) OR
1399: IF ((l_score_comp_rec.SCORE_COMP_WEIGHT = FND_API.G_MISS_NUM) OR
1400: (l_score_comp_rec.SCORE_COMP_WEIGHT = NULL)) THEN
1401: l_score_comp_rec.SCORE_COMP_WEIGHT := l_SCORE_COMP_REF_rec.SCORE_COMP_WEIGHT;
1402: END IF;
1403: IF ((l_score_comp_rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) OR
1404: (l_score_comp_rec.ENABLED_FLAG = NULL)) THEN
1405: l_score_comp_rec.ENABLED_FLAG := l_SCORE_COMP_REF_rec.ENABLED_FLAG;
1406: END IF;
1407: IF ((l_score_comp_rec.SCORE_COMP_TYPE_ID = FND_API.G_MISS_NUM) OR
1403: IF ((l_score_comp_rec.ENABLED_FLAG = FND_API.G_MISS_CHAR) OR
1404: (l_score_comp_rec.ENABLED_FLAG = NULL)) THEN
1405: l_score_comp_rec.ENABLED_FLAG := l_SCORE_COMP_REF_rec.ENABLED_FLAG;
1406: END IF;
1407: IF ((l_score_comp_rec.SCORE_COMP_TYPE_ID = FND_API.G_MISS_NUM) OR
1408: (l_score_comp_rec.SCORE_COMP_TYPE_ID = NULL)) THEN
1409: l_score_comp_rec.SCORE_COMP_TYPE_ID := l_SCORE_COMP_REF_rec.SCORE_COMP_TYPE_ID;
1410: END IF;
1411: -- cannot update score_id ???
1424: , p_creation_date => l_score_comp_rec.creation_date
1425: , p_created_by => l_score_Comp_rec.created_by
1426: , p_last_update_login => FND_GLOBAL.USER_ID);
1427:
1428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1425: , p_created_by => l_score_Comp_rec.created_by
1426: , p_last_update_login => FND_GLOBAL.USER_ID);
1427:
1428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433:
1426: , p_last_update_login => FND_GLOBAL.USER_ID);
1427:
1428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433:
1434: --
1427:
1428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433:
1434: --
1435: -- End of API body.
1435: -- End of API body.
1436: --
1437:
1438: -- Standard check for p_commit
1439: IF FND_API.to_Boolean( p_commit )
1440: THEN
1441: COMMIT WORK;
1442: END IF;
1443:
1450: ( p_count => x_msg_count,
1451: p_data => x_msg_data );
1452:
1453: EXCEPTION
1454: WHEN FND_API.G_EXC_ERROR THEN
1455: ROLLBACK TO UPDATE_SCORE_COMP_PVT;
1456: x_return_status := FND_API.G_RET_STS_ERROR;
1457: FND_MSG_PUB.Count_And_Get
1458: ( p_count => x_msg_count,
1452:
1453: EXCEPTION
1454: WHEN FND_API.G_EXC_ERROR THEN
1455: ROLLBACK TO UPDATE_SCORE_COMP_PVT;
1456: x_return_status := FND_API.G_RET_STS_ERROR;
1457: FND_MSG_PUB.Count_And_Get
1458: ( p_count => x_msg_count,
1459: p_data => x_msg_data);
1460:
1457: FND_MSG_PUB.Count_And_Get
1458: ( p_count => x_msg_count,
1459: p_data => x_msg_data);
1460:
1461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1462: ROLLBACK TO UPDATE_SCORE_COMP_PVT;
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: FND_MSG_PUB.Count_And_Get
1465: ( p_count => x_msg_count,
1459: p_data => x_msg_data);
1460:
1461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1462: ROLLBACK TO UPDATE_SCORE_COMP_PVT;
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: FND_MSG_PUB.Count_And_Get
1465: ( p_count => x_msg_count,
1466: p_data => x_msg_data);
1467:
1466: p_data => x_msg_data);
1467:
1468: WHEN OTHERS THEN
1469: ROLLBACK TO UPDATE_SCORE_COMP_PVT;
1470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1471: FND_MSG_PUB.Count_And_Get
1472: ( p_count => x_msg_count,
1473: p_data => x_msg_data);
1474:
1512: WriteLog('iexvscrb:Delete_Score_Comp=>Start');
1513: WriteLog('iexvscrb:Delete_Score_Comp=>scorecompid='||p_score_comp_id);
1514:
1515: -- Standard call to check for call compatibility.
1516: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1517: p_api_version,
1518: l_api_name,
1519: G_PKG_NAME)
1520: THEN
1517: p_api_version,
1518: l_api_name,
1519: G_PKG_NAME)
1520: THEN
1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1522: END IF;
1523:
1524: -- Initialize message list IF p_init_msg_list is set to TRUE.
1525: IF FND_API.to_Boolean( p_init_msg_list )
1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1522: END IF;
1523:
1524: -- Initialize message list IF p_init_msg_list is set to TRUE.
1525: IF FND_API.to_Boolean( p_init_msg_list )
1526: THEN
1527: FND_MSG_PUB.initialize;
1528: END IF;
1529:
1529:
1530: -- Debug Message
1531:
1532: -- Initialize API return status to SUCCESS
1533: x_return_status := FND_API.G_RET_STS_SUCCESS;
1534:
1535: --
1536: -- Api body
1537: --
1546: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
1547: FND_MESSAGE.Set_Token ('INFO', 'iex_score_components', FALSE);
1548: FND_MSG_PUB.Add;
1549: END IF;
1550: RAISE FND_API.G_EXC_ERROR;
1551: END IF;
1552:
1553: -- Debug Message
1554: Close C_Get_Score_Comp;
1558: -- Invoke table handler
1559: IEX_SCORE_COMPONENTS_PKG.Delete_Row(
1560: x_rowid => l_rowid);
1561:
1562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1563: RAISE FND_API.G_EXC_ERROR;
1564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
1559: IEX_SCORE_COMPONENTS_PKG.Delete_Row(
1560: x_rowid => l_rowid);
1561:
1562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1563: RAISE FND_API.G_EXC_ERROR;
1564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
1567:
1560: x_rowid => l_rowid);
1561:
1562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1563: RAISE FND_API.G_EXC_ERROR;
1564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
1567:
1568: -- clchang updated 08/01/2002
1561:
1562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1563: RAISE FND_API.G_EXC_ERROR;
1564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
1567:
1568: -- clchang updated 08/01/2002
1569: -- delete score_comp will delete score comp and score comp details;
1584: , x_msg_count => x_msg_count
1585: , x_msg_data => x_msg_data
1586: );
1587:
1588: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1585: , x_msg_data => x_msg_data
1586: );
1587:
1588: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593:
1586: );
1587:
1588: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593:
1594: END LOOP;
1587:
1588: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593:
1594: END LOOP;
1595: --
1596: -- End of API body
1597: --
1598:
1599: -- Standard check for p_commit
1600: IF FND_API.to_Boolean( p_commit )
1601: THEN
1602: COMMIT WORK;
1603: END IF;
1604:
1609: ( p_count => x_msg_count,
1610: p_data => x_msg_data );
1611:
1612: EXCEPTION
1613: WHEN FND_API.G_EXC_ERROR THEN
1614: ROLLBACK TO DELETE_SCORE_COMP_PVT;
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: FND_MSG_PUB.Count_And_Get
1617: ( p_count => x_msg_count,
1611:
1612: EXCEPTION
1613: WHEN FND_API.G_EXC_ERROR THEN
1614: ROLLBACK TO DELETE_SCORE_COMP_PVT;
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: FND_MSG_PUB.Count_And_Get
1617: ( p_count => x_msg_count,
1618: p_data => x_msg_data);
1619:
1616: FND_MSG_PUB.Count_And_Get
1617: ( p_count => x_msg_count,
1618: p_data => x_msg_data);
1619:
1620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1621: ROLLBACK TO DELETE_SCORE_COMP_PVT;
1622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1623: FND_MSG_PUB.Count_And_Get
1624: ( p_count => x_msg_count,
1618: p_data => x_msg_data);
1619:
1620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1621: ROLLBACK TO DELETE_SCORE_COMP_PVT;
1622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1623: FND_MSG_PUB.Count_And_Get
1624: ( p_count => x_msg_count,
1625: p_data => x_msg_data);
1626:
1625: p_data => x_msg_data);
1626:
1627: WHEN OTHERS THEN
1628: ROLLBACK TO DELETE_SCORE_COMP_PVT;
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630: FND_MSG_PUB.Count_And_Get
1631: ( p_count => x_msg_count,
1632: p_data => x_msg_data);
1633: END Delete_Score_Comp;
1669: -- Standard Start of API savepoint
1670: SAVEPOINT CREATE_Score_Comp_TYPE_PVT;
1671:
1672: -- Standard call to check for call compatibility.
1673: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
1674: p_api_version,
1675: l_api_name,
1676: G_PKG_NAME)
1677: THEN
1674: p_api_version,
1675: l_api_name,
1676: G_PKG_NAME)
1677: THEN
1678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1679: END IF;
1680:
1681: -- Initialize message list IF p_init_msg_list is set to TRUE.
1682: IF FND_API.to_Boolean( p_init_msg_list )
1678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1679: END IF;
1680:
1681: -- Initialize message list IF p_init_msg_list is set to TRUE.
1682: IF FND_API.to_Boolean( p_init_msg_list )
1683: THEN
1684: FND_MSG_PUB.initialize;
1685: END IF;
1686:
1687: -- Debug Message
1688: WriteLog('iexvscrb:CreateScrCompType: Start');
1689:
1690: -- Initialize API return status to SUCCESS
1691: x_return_status := FND_API.G_RET_STS_SUCCESS;
1692:
1693: --
1694: -- API body
1695: --
1699: WriteLog('iexvscrb:CreateScrCompType: CompName='||l_SCORE_COMP_Type_REC.score_comp_name);
1700:
1701: -- Invoke validation procedures
1702: -- Validate Data
1703: Validate_Score_comp_type_Name(P_Init_Msg_List => FND_API.G_FALSE,
1704: P_SCORE_COMP_Name => l_SCORE_COMP_Type_REC.score_comp_name,
1705: X_dup_Status => x_dup_status,
1706: X_Return_Status => x_return_status,
1707: X_Msg_Count => x_msg_count,
1706: X_Return_Status => x_return_status,
1707: X_Msg_Count => x_msg_count,
1708: X_Msg_Data => x_msg_data);
1709:
1710: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1711: RAISE FND_API.G_EXC_ERROR;
1712: END IF;
1713:
1714: WriteLog('iexvscrb:CreateScrCompType: Get id from seq');
1707: X_Msg_Count => x_msg_count,
1708: X_Msg_Data => x_msg_data);
1709:
1710: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1711: RAISE FND_API.G_EXC_ERROR;
1712: END IF;
1713:
1714: WriteLog('iexvscrb:CreateScrCompType: Get id from seq');
1715:
1715:
1716:
1717: If ( (l_score_comp_type_rec.score_comp_type_id IS NULL) OR
1718: (l_score_comp_type_rec.score_comp_type_id = 0 ) OR
1719: (l_score_comp_type_rec.score_comp_type_id = FND_API.G_MISS_NUM) ) then
1720: OPEN get_seq_csr;
1721: FETCH get_seq_csr INTO x_score_comp_type_id ;
1722: CLOSE get_seq_csr;
1723: End If;
1744: , p_function_flag => l_score_comp_type_rec.function_flag
1745: , p_metric_flag => l_score_comp_type_rec.metric_flag
1746: , p_display_order => l_score_comp_type_rec.display_order);
1747:
1748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749: RAISE FND_API.G_EXC_ERROR;
1750: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1745: , p_metric_flag => l_score_comp_type_rec.metric_flag
1746: , p_display_order => l_score_comp_type_rec.display_order);
1747:
1748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749: RAISE FND_API.G_EXC_ERROR;
1750: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753:
1746: , p_display_order => l_score_comp_type_rec.display_order);
1747:
1748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749: RAISE FND_API.G_EXC_ERROR;
1750: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753:
1754: --
1747:
1748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749: RAISE FND_API.G_EXC_ERROR;
1750: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753:
1754: --
1755: -- End of API body
1755: -- End of API body
1756: --
1757:
1758: -- Standard check for p_commit
1759: IF FND_API.to_Boolean( p_commit )
1760: THEN
1761: COMMIT WORK;
1762: END IF;
1763:
1770: ( p_count => x_msg_count,
1771: p_data => x_msg_data);
1772:
1773: EXCEPTION
1774: WHEN FND_API.G_EXC_ERROR THEN
1775: ROLLBACK TO CREATE_SCORE_COMP_TYPE_PVT;
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: FND_MSG_PUB.Count_And_Get
1778: ( p_count => x_msg_count,
1772:
1773: EXCEPTION
1774: WHEN FND_API.G_EXC_ERROR THEN
1775: ROLLBACK TO CREATE_SCORE_COMP_TYPE_PVT;
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: FND_MSG_PUB.Count_And_Get
1778: ( p_count => x_msg_count,
1779: p_data => x_msg_data);
1780:
1777: FND_MSG_PUB.Count_And_Get
1778: ( p_count => x_msg_count,
1779: p_data => x_msg_data);
1780:
1781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1782: ROLLBACK TO CREATE_SCORE_COMP_TYPE_PVT;
1783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1784: FND_MSG_PUB.Count_And_Get
1785: ( p_count => x_msg_count,
1779: p_data => x_msg_data);
1780:
1781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1782: ROLLBACK TO CREATE_SCORE_COMP_TYPE_PVT;
1783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1784: FND_MSG_PUB.Count_And_Get
1785: ( p_count => x_msg_count,
1786: p_data => x_msg_data);
1787:
1786: p_data => x_msg_data);
1787:
1788: WHEN OTHERS THEN
1789: ROLLBACK TO CREATE_SCORE_COMP_TYPE_PVT;
1790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1791: FND_MSG_PUB.Count_And_Get
1792: ( p_count => x_msg_count,
1793: p_data => x_msg_data);
1794:
1858: -- Standard Start of API savepoint
1859: SAVEPOINT UPDATE_Score_Comp_TYPE_PVT;
1860:
1861: -- Standard call to check for call compatibility.
1862: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
1863: p_api_version,
1864: l_api_name,
1865: G_PKG_NAME)
1866: THEN
1863: p_api_version,
1864: l_api_name,
1865: G_PKG_NAME)
1866: THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
1869:
1870: -- Initialize message list IF p_init_msg_list is set to TRUE.
1871: IF FND_API.to_Boolean( p_init_msg_list )
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
1869:
1870: -- Initialize message list IF p_init_msg_list is set to TRUE.
1871: IF FND_API.to_Boolean( p_init_msg_list )
1872: THEN
1873: FND_MSG_PUB.initialize;
1874: END IF;
1875:
1876: -- Debug Message
1877: WriteLog ('iexvscrb:UpdScrCompType: Start');
1878:
1879: -- Initialize API return status to SUCCESS
1880: x_return_status := FND_API.G_RET_STS_SUCCESS;
1881:
1882: --
1883: -- Api body
1884: --
1908: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
1909: FND_MESSAGE.Set_Token ('INFO', 'iex_score_comp_types_b', FALSE);
1910: FND_MSG_PUB.Add;
1911: END IF;
1912: RAISE FND_API.G_EXC_ERROR;
1913: END IF;
1914:
1915: -- Debug Message
1916: Close C_Get_Score_Comp_Type_B_Rec;
1934: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
1935: FND_MESSAGE.Set_Token ('INFO', 'iex_score_comp_types_TL', FALSE);
1936: FND_MSG_PUB.Add;
1937: END IF;
1938: RAISE FND_API.G_EXC_ERROR;
1939: END IF;
1940:
1941:
1942: -- Debug Message
1942: -- Debug Message
1943: Close C_Get_Score_Comp_Type_TL_Rec;
1944:
1945: IF (l_score_comp_type_rec.last_update_date is NULL or
1946: l_score_comp_type_rec.last_update_date = FND_API.G_MISS_Date )
1947: THEN
1948: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1949: THEN
1950: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
1950: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
1951: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1952: FND_MSG_PUB.ADD;
1953: END IF;
1954: RAISE FND_API.G_EXC_ERROR;
1955: End IF;
1956:
1957:
1958: WriteLog('iexvscrb:UpdScrCompType:Transfer Data into Target rec');
1960: -- Transfer Data into target record
1961: l_score_comp_type_rec.CREATION_DATE := l_score_comp_type_ref_rec.CREATION_DATE;
1962: l_score_comp_type_rec.CREATED_BY := l_score_comp_type_ref_rec.CREATED_BY;
1963:
1964: IF ((l_score_comp_type_rec.SCORE_COMP_NAME = FND_API.G_MISS_CHAR) OR
1965: (l_score_comp_type_rec.SCORE_COMP_NAME = NULL)) THEN
1966: l_score_comp_type_rec.SCORE_COMP_NAME := l_SCORE_COMP_TYPE_REF_rec.SCORE_COMP_NAME;
1967: END IF;
1968: IF ((l_score_comp_type_rec.SCORE_COMP_VALUE = FND_API.G_MISS_CHAR) OR
1964: IF ((l_score_comp_type_rec.SCORE_COMP_NAME = FND_API.G_MISS_CHAR) OR
1965: (l_score_comp_type_rec.SCORE_COMP_NAME = NULL)) THEN
1966: l_score_comp_type_rec.SCORE_COMP_NAME := l_SCORE_COMP_TYPE_REF_rec.SCORE_COMP_NAME;
1967: END IF;
1968: IF ((l_score_comp_type_rec.SCORE_COMP_VALUE = FND_API.G_MISS_CHAR) OR
1969: (l_score_comp_type_rec.SCORE_COMP_VALUE = NULL)) THEN
1970: l_score_comp_type_rec.SCORE_COMP_VALUE := l_SCORE_COMP_TYPE_REF_rec.SCORE_COMP_VALUE;
1971: END IF;
1972: IF ((l_score_comp_type_rec.DESCRIPTION = FND_API.G_MISS_CHAR) OR
1968: IF ((l_score_comp_type_rec.SCORE_COMP_VALUE = FND_API.G_MISS_CHAR) OR
1969: (l_score_comp_type_rec.SCORE_COMP_VALUE = NULL)) THEN
1970: l_score_comp_type_rec.SCORE_COMP_VALUE := l_SCORE_COMP_TYPE_REF_rec.SCORE_COMP_VALUE;
1971: END IF;
1972: IF ((l_score_comp_type_rec.DESCRIPTION = FND_API.G_MISS_CHAR) OR
1973: (l_score_comp_type_rec.DESCRIPTION = NULL)) THEN
1974: l_score_comp_type_rec.DESCRIPTION := l_SCORE_COMP_TYPE_REF_rec.DESCRIPTION;
1975: END IF;
1976: /*
1973: (l_score_comp_type_rec.DESCRIPTION = NULL)) THEN
1974: l_score_comp_type_rec.DESCRIPTION := l_SCORE_COMP_TYPE_REF_rec.DESCRIPTION;
1975: END IF;
1976: /*
1977: IF ((l_score_comp_type_rec.SCORE_COMP_CODE = FND_API.G_MISS_CHAR) OR
1978: (l_score_comp_type_rec.SCORE_COMP_CODE = NULL)) THEN
1979: l_score_comp_type_rec.SCORE_COMP_CODE := l_SCORE_COMP_TYPE_REF_rec.SCORE_COMP_CODE;
1980: END IF;
1981: */
1978: (l_score_comp_type_rec.SCORE_COMP_CODE = NULL)) THEN
1979: l_score_comp_type_rec.SCORE_COMP_CODE := l_SCORE_COMP_TYPE_REF_rec.SCORE_COMP_CODE;
1980: END IF;
1981: */
1982: IF ((l_score_comp_type_rec.ACTIVE_FLAG = FND_API.G_MISS_CHAR) OR
1983: (l_score_comp_type_rec.ACTIVE_FLAG = NULL)) THEN
1984: l_score_comp_type_rec.ACTIVE_FLAG := l_SCORE_COMP_TYPE_REF_rec.ACTIVE_FLAG;
1985: END IF;
1986: IF ((l_score_comp_type_rec.Object_Version_Number = FND_API.G_MISS_NUM) OR
1982: IF ((l_score_comp_type_rec.ACTIVE_FLAG = FND_API.G_MISS_CHAR) OR
1983: (l_score_comp_type_rec.ACTIVE_FLAG = NULL)) THEN
1984: l_score_comp_type_rec.ACTIVE_FLAG := l_SCORE_COMP_TYPE_REF_rec.ACTIVE_FLAG;
1985: END IF;
1986: IF ((l_score_comp_type_rec.Object_Version_Number = FND_API.G_MISS_NUM) OR
1987: (l_score_comp_type_rec.Object_Version_Number = NULL)) THEN
1988: l_score_comp_type_rec.Object_Version_Number := l_SCORE_COMP_TYPE_REF_rec.Object_Version_Number;
1989: END IF;
1990: IF ((l_score_comp_type_rec.JTF_OBJECT_CODE = FND_API.G_MISS_CHAR) OR
1986: IF ((l_score_comp_type_rec.Object_Version_Number = FND_API.G_MISS_NUM) OR
1987: (l_score_comp_type_rec.Object_Version_Number = NULL)) THEN
1988: l_score_comp_type_rec.Object_Version_Number := l_SCORE_COMP_TYPE_REF_rec.Object_Version_Number;
1989: END IF;
1990: IF ((l_score_comp_type_rec.JTF_OBJECT_CODE = FND_API.G_MISS_CHAR) OR
1991: (l_score_comp_type_rec.JTF_OBJECT_CODE = NULL)) THEN
1992: l_score_comp_type_rec.JTF_OBJECT_CODE := l_SCORE_COMP_TYPE_REF_rec.JTF_OBJECT_CODE;
1993: END IF;
1994: IF (l_score_comp_type_rec.Function_Flag = NULL) THEN
2017: , p_last_update_date => sysdate
2018: , p_last_updated_by => FND_GLOBAL.USER_ID
2019: , p_last_update_login => FND_GLOBAL.USER_ID);
2020:
2021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2022: RAISE FND_API.G_EXC_ERROR;
2023: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2025: END IF;
2018: , p_last_updated_by => FND_GLOBAL.USER_ID
2019: , p_last_update_login => FND_GLOBAL.USER_ID);
2020:
2021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2022: RAISE FND_API.G_EXC_ERROR;
2023: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2025: END IF;
2026:
2019: , p_last_update_login => FND_GLOBAL.USER_ID);
2020:
2021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2022: RAISE FND_API.G_EXC_ERROR;
2023: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2025: END IF;
2026:
2027: --
2020:
2021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2022: RAISE FND_API.G_EXC_ERROR;
2023: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2025: END IF;
2026:
2027: --
2028: -- End of API body.
2028: -- End of API body.
2029: --
2030:
2031: -- Standard check for p_commit
2032: IF FND_API.to_Boolean( p_commit )
2033: THEN
2034: COMMIT WORK;
2035: END IF;
2036:
2042: ( p_count => x_msg_count,
2043: p_data => x_msg_data );
2044:
2045: EXCEPTION
2046: WHEN FND_API.G_EXC_ERROR THEN
2047: ROLLBACK To UPDATE_Score_Comp_TYPE_PVT;
2048: x_return_status := FND_API.G_RET_STS_ERROR;
2049: FND_MSG_PUB.Count_And_Get
2050: ( p_count => x_msg_count,
2044:
2045: EXCEPTION
2046: WHEN FND_API.G_EXC_ERROR THEN
2047: ROLLBACK To UPDATE_Score_Comp_TYPE_PVT;
2048: x_return_status := FND_API.G_RET_STS_ERROR;
2049: FND_MSG_PUB.Count_And_Get
2050: ( p_count => x_msg_count,
2051: p_data => x_msg_data );
2052:
2049: FND_MSG_PUB.Count_And_Get
2050: ( p_count => x_msg_count,
2051: p_data => x_msg_data );
2052:
2053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2054: ROLLBACK To UPDATE_Score_Comp_TYPE_PVT;
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: FND_MSG_PUB.Count_And_Get
2057: ( p_count => x_msg_count,
2051: p_data => x_msg_data );
2052:
2053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2054: ROLLBACK To UPDATE_Score_Comp_TYPE_PVT;
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: FND_MSG_PUB.Count_And_Get
2057: ( p_count => x_msg_count,
2058: p_data => x_msg_data );
2059:
2058: p_data => x_msg_data );
2059:
2060: WHEN OTHERS THEN
2061: ROLLBACK To UPDATE_Score_Comp_TYPE_PVT;
2062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2063: FND_MSG_PUB.Count_And_Get
2064: ( p_count => x_msg_count,
2065: p_data => x_msg_data );
2066:
2098: -- Standard Start of API savepoint
2099: SAVEPOINT DELETE_SCORE_COMP_TYPE_PVT;
2100:
2101: -- Standard call to check for call compatibility.
2102: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2103: p_api_version,
2104: l_api_name,
2105: G_PKG_NAME)
2106: THEN
2103: p_api_version,
2104: l_api_name,
2105: G_PKG_NAME)
2106: THEN
2107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2108: END IF;
2109:
2110: -- Initialize message list IF p_init_msg_list is set to TRUE.
2111: IF FND_API.to_Boolean( p_init_msg_list )
2107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2108: END IF;
2109:
2110: -- Initialize message list IF p_init_msg_list is set to TRUE.
2111: IF FND_API.to_Boolean( p_init_msg_list )
2112: THEN
2113: FND_MSG_PUB.initialize;
2114: END IF;
2115:
2117: WriteLog('iexvscrb:DelScrCompType:Start');
2118:
2119:
2120: -- Initialize API return status to SUCCESS
2121: x_return_status := FND_API.G_RET_STS_SUCCESS;
2122:
2123: --
2124: -- Api body
2125: --
2134: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2135: FND_MESSAGE.Set_Token ('INFO', 'iex_score_comp_Types', FALSE);
2136: FND_MSG_PUB.Add;
2137: END IF;
2138: RAISE FND_API.G_EXC_ERROR;
2139: END IF;
2140:
2141: -- Debug Message
2142: Close C_Get_TYPE;
2147: -- Invoke table handler
2148: IEX_SCORE_COMP_TYPES_PKG .Delete_Row(
2149: p_score_comp_type_id => l_score_comp_type_id);
2150:
2151: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2148: IEX_SCORE_COMP_TYPES_PKG .Delete_Row(
2149: p_score_comp_type_id => l_score_comp_type_id);
2150:
2151: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156:
2149: p_score_comp_type_id => l_score_comp_type_id);
2150:
2151: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156:
2157: --
2150:
2151: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156:
2157: --
2158: -- End of API body
2158: -- End of API body
2159: --
2160:
2161: -- Standard check for p_commit
2162: IF FND_API.to_Boolean( p_commit )
2163: THEN
2164: COMMIT WORK;
2165: END IF;
2166:
2171: ( p_count => x_msg_count,
2172: p_data => x_msg_data );
2173:
2174: EXCEPTION
2175: WHEN FND_API.G_EXC_ERROR THEN
2176: ROLLBACK To DELETE_Score_Comp_TYPE_PVT;
2177: x_return_status := FND_API.G_RET_STS_ERROR;
2178: FND_MSG_PUB.Count_And_Get
2179: ( p_count => x_msg_count,
2173:
2174: EXCEPTION
2175: WHEN FND_API.G_EXC_ERROR THEN
2176: ROLLBACK To DELETE_Score_Comp_TYPE_PVT;
2177: x_return_status := FND_API.G_RET_STS_ERROR;
2178: FND_MSG_PUB.Count_And_Get
2179: ( p_count => x_msg_count,
2180: p_data => x_msg_data );
2181:
2178: FND_MSG_PUB.Count_And_Get
2179: ( p_count => x_msg_count,
2180: p_data => x_msg_data );
2181:
2182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2183: ROLLBACK To DELETE_Score_Comp_TYPE_PVT;
2184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2185: FND_MSG_PUB.Count_And_Get
2186: ( p_count => x_msg_count,
2180: p_data => x_msg_data );
2181:
2182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2183: ROLLBACK To DELETE_Score_Comp_TYPE_PVT;
2184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2185: FND_MSG_PUB.Count_And_Get
2186: ( p_count => x_msg_count,
2187: p_data => x_msg_data );
2188:
2187: p_data => x_msg_data );
2188:
2189: WHEN OTHERS THEN
2190: ROLLBACK To DELETE_Score_Comp_TYPE_PVT;
2191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2192: FND_MSG_PUB.Count_And_Get
2193: ( p_count => x_msg_count,
2194: p_data => x_msg_data );
2195:
2228: -- Standard Start of API savepoint
2229: SAVEPOINT CREATE_Score_Comp_Det_PVT;
2230:
2231: -- Standard call to check for call compatibility.
2232: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2233: p_api_version,
2234: l_api_name,
2235: G_PKG_NAME)
2236: THEN
2233: p_api_version,
2234: l_api_name,
2235: G_PKG_NAME)
2236: THEN
2237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2238: END IF;
2239:
2240:
2241: -- Initialize message list IF p_init_msg_list is set to TRUE.
2238: END IF;
2239:
2240:
2241: -- Initialize message list IF p_init_msg_list is set to TRUE.
2242: IF FND_API.to_Boolean( p_init_msg_list )
2243: THEN
2244: FND_MSG_PUB.initialize;
2245: END IF;
2246:
2249:
2250: WriteLog(l_msg || 'START');
2251:
2252: -- Initialize API return status to SUCCESS
2253: x_return_status := FND_API.G_RET_STS_SUCCESS;
2254:
2255: --
2256: -- API body
2257: --
2266: P_TABLE_NAME => 'IEX_SCORE_COMPONENTS',
2267: X_Return_Status => x_return_status,
2268: X_Msg_Count => x_msg_count,
2269: X_Msg_Data => x_msg_data,
2270: P_Init_Msg_List => FND_API.G_FALSE);
2271:
2272: WriteLog(l_msg || 'return_status='|| x_return_status);
2273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2274: WriteLog(l_msg || 'raise exc error');
2269: X_Msg_Data => x_msg_data,
2270: P_Init_Msg_List => FND_API.G_FALSE);
2271:
2272: WriteLog(l_msg || 'return_status='|| x_return_status);
2273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2274: WriteLog(l_msg || 'raise exc error');
2275: RAISE FND_API.G_EXC_ERROR;
2276: END IF;
2277:
2271:
2272: WriteLog(l_msg || 'return_status='|| x_return_status);
2273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2274: WriteLog(l_msg || 'raise exc error');
2275: RAISE FND_API.G_EXC_ERROR;
2276: END IF;
2277:
2278:
2279:
2282: WriteLog(l_msg || 'Get ScrCompDet Seq');
2283:
2284: If ( (l_score_comp_det_rec.score_comp_det_id IS NULL) OR
2285: (l_score_comp_det_rec.score_comp_det_id = 0 ) OR
2286: (l_score_comp_det_rec.score_comp_det_id = FND_API.G_MISS_NUM) ) then
2287: OPEN get_seq_csr;
2288: FETCH get_seq_csr INTO x_score_comp_det_id ;
2289: CLOSE get_seq_csr;
2290: End If;
2314: , p_created_by => FND_GLOBAL.USER_ID
2315: , p_last_update_login => FND_GLOBAL.USER_ID);
2316:
2317:
2318: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2319: RAISE FND_API.G_EXC_ERROR;
2320: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2322: END IF;
2315: , p_last_update_login => FND_GLOBAL.USER_ID);
2316:
2317:
2318: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2319: RAISE FND_API.G_EXC_ERROR;
2320: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2322: END IF;
2323:
2316:
2317:
2318: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2319: RAISE FND_API.G_EXC_ERROR;
2320: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2322: END IF;
2323:
2324:
2317:
2318: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2319: RAISE FND_API.G_EXC_ERROR;
2320: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2322: END IF;
2323:
2324:
2325: --
2326: -- End of API body
2327: --
2328:
2329: -- Standard check for p_commit
2330: IF FND_API.to_Boolean( p_commit )
2331: THEN
2332: COMMIT WORK;
2333: END IF;
2334:
2341: p_data => x_msg_data
2342: );
2343:
2344: EXCEPTION
2345: WHEN FND_API.G_EXC_ERROR THEN
2346: ROLLBACK To CREATE_Score_Comp_DET_PVT;
2347: x_return_status := FND_API.G_RET_STS_ERROR;
2348: FND_MSG_PUB.Count_And_Get
2349: ( p_count => x_msg_count,
2343:
2344: EXCEPTION
2345: WHEN FND_API.G_EXC_ERROR THEN
2346: ROLLBACK To CREATE_Score_Comp_DET_PVT;
2347: x_return_status := FND_API.G_RET_STS_ERROR;
2348: FND_MSG_PUB.Count_And_Get
2349: ( p_count => x_msg_count,
2350: p_data => x_msg_data );
2351:
2348: FND_MSG_PUB.Count_And_Get
2349: ( p_count => x_msg_count,
2350: p_data => x_msg_data );
2351:
2352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2353: ROLLBACK To CREATE_Score_Comp_DET_PVT;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: FND_MSG_PUB.Count_And_Get
2356: ( p_count => x_msg_count,
2350: p_data => x_msg_data );
2351:
2352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2353: ROLLBACK To CREATE_Score_Comp_DET_PVT;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: FND_MSG_PUB.Count_And_Get
2356: ( p_count => x_msg_count,
2357: p_data => x_msg_data );
2358:
2357: p_data => x_msg_data );
2358:
2359: WHEN OTHERS THEN
2360: ROLLBACK To CREATE_Score_Comp_DET_PVT;
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362: FND_MSG_PUB.Count_And_Get
2363: ( p_count => x_msg_count,
2364: p_data => x_msg_data );
2365:
2412: -- Standard Start of API savepoint
2413: SAVEPOINT UPDATE_Score_Comp_DET_PVT;
2414:
2415: -- Standard call to check for call compatibility.
2416: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2417: p_api_version,
2418: l_api_name,
2419: G_PKG_NAME)
2420: THEN
2417: p_api_version,
2418: l_api_name,
2419: G_PKG_NAME)
2420: THEN
2421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2422: END IF;
2423:
2424: -- Initialize message list IF p_init_msg_list is set to TRUE.
2425: IF FND_API.to_Boolean( p_init_msg_list )
2421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2422: END IF;
2423:
2424: -- Initialize message list IF p_init_msg_list is set to TRUE.
2425: IF FND_API.to_Boolean( p_init_msg_list )
2426: THEN
2427: FND_MSG_PUB.initialize;
2428: END IF;
2429:
2430: -- Debug Message
2431: WriteLog('iexvscrb:UpdScrCompDet: Start');
2432:
2433: -- Initialize API return status to SUCCESS
2434: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435:
2436: --
2437: -- Api body
2438: --
2464: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2465: FND_MESSAGE.Set_Token ('INFO', 'iex_score_comp_det', FALSE);
2466: FND_MSG_PUB.Add;
2467: END IF;
2468: RAISE FND_API.G_EXC_ERROR;
2469: END IF;
2470:
2471:
2472: -- Debug Message
2474:
2475:
2476:
2477: IF (l_score_comp_det_rec.last_update_date is NULL or
2478: l_score_comp_det_rec.last_update_date = FND_API.G_MISS_Date )
2479: THEN
2480: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2481: THEN
2482: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2482: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
2483: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2484: FND_MSG_PUB.ADD;
2485: END IF;
2486: RAISE FND_API.G_EXC_ERROR;
2487: End IF;
2488:
2489:
2490: WriteLog('iexvscrb: UpdSrCompDet: Transfer Data into target rec');
2493: -- Transfer Data into target record
2494: l_score_comp_det_rec.CREATION_DATE := l_score_comp_det_ref_rec.CREATION_DATE;
2495: l_score_comp_det_rec.CREATED_BY := l_score_comp_det_ref_rec.CREATED_BY;
2496:
2497: IF ((l_score_comp_det_rec.RANGE_LOW = FND_API.G_MISS_NUM) OR
2498: (l_score_comp_det_rec.RANGE_LOW = NULL)) THEN
2499: l_score_comp_det_rec.RANGE_LOW := l_SCORE_COMP_det_REF_rec.RANGE_LOW;
2500: END IF;
2501: IF ((l_score_comp_det_rec.RANGE_HIGH = FND_API.G_MISS_NUM) OR
2497: IF ((l_score_comp_det_rec.RANGE_LOW = FND_API.G_MISS_NUM) OR
2498: (l_score_comp_det_rec.RANGE_LOW = NULL)) THEN
2499: l_score_comp_det_rec.RANGE_LOW := l_SCORE_COMP_det_REF_rec.RANGE_LOW;
2500: END IF;
2501: IF ((l_score_comp_det_rec.RANGE_HIGH = FND_API.G_MISS_NUM) OR
2502: (l_score_comp_det_rec.RANGE_HIGH = NULL)) THEN
2503: l_score_comp_det_rec.RANGE_HIGH := l_SCORE_COMP_det_REF_rec.RANGE_HIGH;
2504: END IF;
2505: IF ((l_score_comp_det_rec.VALUE = FND_API.G_MISS_NUM) OR
2501: IF ((l_score_comp_det_rec.RANGE_HIGH = FND_API.G_MISS_NUM) OR
2502: (l_score_comp_det_rec.RANGE_HIGH = NULL)) THEN
2503: l_score_comp_det_rec.RANGE_HIGH := l_SCORE_COMP_det_REF_rec.RANGE_HIGH;
2504: END IF;
2505: IF ((l_score_comp_det_rec.VALUE = FND_API.G_MISS_NUM) OR
2506: (l_score_comp_det_rec.VALUE = NULL)) THEN
2507: l_score_comp_det_rec.VALUE := l_SCORE_COMP_det_REF_rec.VALUE;
2508: END IF;
2509: IF ((l_score_comp_det_rec.NEW_VALUE = FND_API.G_MISS_CHAR) OR
2505: IF ((l_score_comp_det_rec.VALUE = FND_API.G_MISS_NUM) OR
2506: (l_score_comp_det_rec.VALUE = NULL)) THEN
2507: l_score_comp_det_rec.VALUE := l_SCORE_COMP_det_REF_rec.VALUE;
2508: END IF;
2509: IF ((l_score_comp_det_rec.NEW_VALUE = FND_API.G_MISS_CHAR) OR
2510: (l_score_comp_det_rec.NEW_VALUE = NULL)) THEN
2511: l_score_comp_det_rec.NEW_VALUE := l_SCORE_COMP_det_REF_rec.NEW_VALUE;
2512: END IF;
2513: IF ((l_score_comp_det_rec.object_version_number = FND_API.G_MISS_NUM) OR
2509: IF ((l_score_comp_det_rec.NEW_VALUE = FND_API.G_MISS_CHAR) OR
2510: (l_score_comp_det_rec.NEW_VALUE = NULL)) THEN
2511: l_score_comp_det_rec.NEW_VALUE := l_SCORE_COMP_det_REF_rec.NEW_VALUE;
2512: END IF;
2513: IF ((l_score_comp_det_rec.object_version_number = FND_API.G_MISS_NUM) OR
2514: (l_score_comp_det_rec.object_version_number = NULL)) THEN
2515: l_score_comp_det_rec.object_version_number := l_SCORE_COMP_det_REF_rec.object_version_number;
2516: END IF;
2517: IF ((l_score_comp_det_rec.program_id = FND_API.G_MISS_NUM) OR
2513: IF ((l_score_comp_det_rec.object_version_number = FND_API.G_MISS_NUM) OR
2514: (l_score_comp_det_rec.object_version_number = NULL)) THEN
2515: l_score_comp_det_rec.object_version_number := l_SCORE_COMP_det_REF_rec.object_version_number;
2516: END IF;
2517: IF ((l_score_comp_det_rec.program_id = FND_API.G_MISS_NUM) OR
2518: (l_score_comp_det_rec.program_id = NULL)) THEN
2519: l_score_comp_det_rec.program_id := l_SCORE_COMP_det_REF_rec.program_id;
2520: END IF;
2521:
2537: , p_score_component_id => l_score_comp_det_rec.score_component_id
2538: , p_object_version_number => l_score_comp_det_rec.object_version_number
2539: , p_program_id => l_score_comp_det_rec.program_id);
2540:
2541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2542: RAISE FND_API.G_EXC_ERROR;
2543: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2538: , p_object_version_number => l_score_comp_det_rec.object_version_number
2539: , p_program_id => l_score_comp_det_rec.program_id);
2540:
2541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2542: RAISE FND_API.G_EXC_ERROR;
2543: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2539: , p_program_id => l_score_comp_det_rec.program_id);
2540:
2541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2542: RAISE FND_API.G_EXC_ERROR;
2543: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2547: --
2540:
2541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2542: RAISE FND_API.G_EXC_ERROR;
2543: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2547: --
2548: -- End of API body.
2548: -- End of API body.
2549: --
2550:
2551: -- Standard check for p_commit
2552: IF FND_API.to_Boolean( p_commit )
2553: THEN
2554: COMMIT WORK;
2555: END IF;
2556:
2563: ( p_count => x_msg_count,
2564: p_data => x_msg_data );
2565:
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: ROLLBACK To UPDATE_Score_Comp_DET_PVT;
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: FND_MSG_PUB.Count_And_Get
2571: ( p_count => x_msg_count,
2565:
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: ROLLBACK To UPDATE_Score_Comp_DET_PVT;
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: FND_MSG_PUB.Count_And_Get
2571: ( p_count => x_msg_count,
2572: p_data => x_msg_data );
2573:
2570: FND_MSG_PUB.Count_And_Get
2571: ( p_count => x_msg_count,
2572: p_data => x_msg_data );
2573:
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK To UPDATE_Score_Comp_DET_PVT;
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: FND_MSG_PUB.Count_And_Get
2578: ( p_count => x_msg_count,
2572: p_data => x_msg_data );
2573:
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK To UPDATE_Score_Comp_DET_PVT;
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: FND_MSG_PUB.Count_And_Get
2578: ( p_count => x_msg_count,
2579: p_data => x_msg_data );
2580:
2579: p_data => x_msg_data );
2580:
2581: WHEN OTHERS THEN
2582: ROLLBACK To UPDATE_Score_Comp_DET_PVT;
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: FND_MSG_PUB.Count_And_Get
2585: ( p_count => x_msg_count,
2586: p_data => x_msg_data );
2587: END Update_SCORE_COMP_DET;
2615: -- Standard Start of API savepoint
2616: SAVEPOINT DELETE_SCORE_COMP_DET_PVT;
2617:
2618: -- Standard call to check for call compatibility.
2619: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2620: p_api_version,
2621: l_api_name,
2622: G_PKG_NAME)
2623: THEN
2620: p_api_version,
2621: l_api_name,
2622: G_PKG_NAME)
2623: THEN
2624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2625: END IF;
2626:
2627: -- Initialize message list IF p_init_msg_list is set to TRUE.
2628: IF FND_API.to_Boolean( p_init_msg_list )
2624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2625: END IF;
2626:
2627: -- Initialize message list IF p_init_msg_list is set to TRUE.
2628: IF FND_API.to_Boolean( p_init_msg_list )
2629: THEN
2630: FND_MSG_PUB.initialize;
2631: END IF;
2632:
2635: WriteLog('iexvscrb: DelSrCompDet: detid='||p_score_comp_det_id);
2636:
2637:
2638: -- Initialize API return status to SUCCESS
2639: x_return_status := FND_API.G_RET_STS_SUCCESS;
2640:
2641: --
2642: -- Api body
2643: --
2651: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2652: FND_MESSAGE.Set_Token ('INFO', 'iex_score_comp_det', FALSE);
2653: FND_MSG_PUB.Add;
2654: END IF;
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2658: -- Debug Message
2659: Close C_Get_Score_Comp_DET;
2661:
2662: -- Invoke table handler
2663: IEX_SCORE_COMP_DET_PKG.Delete_Row(x_rowid => l_rowid);
2664:
2665: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2662: -- Invoke table handler
2663: IEX_SCORE_COMP_DET_PKG.Delete_Row(x_rowid => l_rowid);
2664:
2665: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2663: IEX_SCORE_COMP_DET_PKG.Delete_Row(x_rowid => l_rowid);
2664:
2665: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2671: --
2664:
2665: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2671: --
2672: -- End of API body
2672: -- End of API body
2673: --
2674:
2675: -- Standard check for p_commit
2676: IF FND_API.to_Boolean( p_commit )
2677: THEN
2678: COMMIT WORK;
2679: END IF;
2680:
2685: ( p_count => x_msg_count,
2686: p_data => x_msg_data );
2687:
2688: EXCEPTION
2689: WHEN FND_API.G_EXC_ERROR THEN
2690: ROLLBACK To DELETE_Score_Comp_DET_PVT;
2691: x_return_status := FND_API.G_RET_STS_ERROR;
2692: FND_MSG_PUB.Count_And_Get
2693: ( p_count => x_msg_count,
2687:
2688: EXCEPTION
2689: WHEN FND_API.G_EXC_ERROR THEN
2690: ROLLBACK To DELETE_Score_Comp_DET_PVT;
2691: x_return_status := FND_API.G_RET_STS_ERROR;
2692: FND_MSG_PUB.Count_And_Get
2693: ( p_count => x_msg_count,
2694: p_data => x_msg_data );
2695:
2692: FND_MSG_PUB.Count_And_Get
2693: ( p_count => x_msg_count,
2694: p_data => x_msg_data );
2695:
2696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2697: ROLLBACK To DELETE_Score_Comp_DET_PVT;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2699: FND_MSG_PUB.Count_And_Get
2700: ( p_count => x_msg_count,
2694: p_data => x_msg_data );
2695:
2696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2697: ROLLBACK To DELETE_Score_Comp_DET_PVT;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2699: FND_MSG_PUB.Count_And_Get
2700: ( p_count => x_msg_count,
2701: p_data => x_msg_data );
2702:
2701: p_data => x_msg_data );
2702:
2703: WHEN OTHERS THEN
2704: ROLLBACK To DELETE_Score_Comp_DET_PVT;
2705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2706: FND_MSG_PUB.Count_And_Get
2707: ( p_count => x_msg_count,
2708: p_data => x_msg_data );
2709: END Delete_Score_Comp_Det;
2831: -- Standard Start of API savepoint
2832: SAVEPOINT COPY_SCORINGENGINE_PVT;
2833:
2834: -- Standard call to check for call compatibility.
2835: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2836: p_api_version,
2837: l_api_name,
2838: G_PKG_NAME)
2839: THEN
2836: p_api_version,
2837: l_api_name,
2838: G_PKG_NAME)
2839: THEN
2840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2841: END IF;
2842:
2843: -- Initialize message list IF p_init_msg_list is set to TRUE.
2844: IF FND_API.to_Boolean( p_init_msg_list )
2840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2841: END IF;
2842:
2843: -- Initialize message list IF p_init_msg_list is set to TRUE.
2844: IF FND_API.to_Boolean( p_init_msg_list )
2845: THEN
2846: FND_MSG_PUB.initialize;
2847: END IF;
2848:
2847: END IF;
2848:
2849:
2850: -- Initialize API return status to SUCCESS
2851: x_return_status := FND_API.G_RET_STS_SUCCESS;
2852:
2853: --dbms_output.put_line( FND_PROFILE.VALUE('IEX_DEBUG_LEVEL'));
2854: --dbms_output.put_line('debug=' || PG_DEBUG);
2855:
2886: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: Score notfound');
2887: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
2888: FND_MESSAGE.Set_Token ('INFO', 'iex_Score', FALSE);
2889: FND_MSG_PUB.Add;
2890: RAISE FND_API.G_EXC_ERROR;
2891: END IF;
2892:
2893: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: len(scrname)= '||l_len);
2894: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: scrname= '||l_score_rec.score_name);
2916: FND_MESSAGE.Set_Token ('LEN', '256', FALSE);
2917: FND_MSG_PUB.Add;
2918: x_dup_status := '';
2919: --x_score_id := l_add;
2920: x_return_status := FND_API.G_RET_STS_ERROR;
2921: GOTO END_COPY;
2922: else
2923: l_score_name := 'Copy Of ' || l_score_name;
2924: l_add := l_add + 1;
2927: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: ScoreName= '||l_score_name);
2928: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: len(scrname)= '||l_len);
2929: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: l_add= '||l_add);
2930:
2931: Validate_Score_Name(P_Init_Msg_List => FND_API.G_FALSE,
2932: P_SCORE_Name => l_score_name,
2933: P_SCORE_ID => 0,
2934: X_Dup_Status => x_Dup_status,
2935: X_Return_Status => x_return_status,
2960:
2961: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateScore Status= '||x_return_status);
2962:
2963:
2964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2965: RAISE FND_API.G_EXC_ERROR;
2966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2961: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateScore Status= '||x_return_status);
2962:
2963:
2964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2965: RAISE FND_API.G_EXC_ERROR;
2966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2969:
2962:
2963:
2964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2965: RAISE FND_API.G_EXC_ERROR;
2966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2969:
2970: l_score_id := x_score_id;
2963:
2964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2965: RAISE FND_API.G_EXC_ERROR;
2966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2969:
2970: l_score_id := x_score_id;
2971: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: ScoreId= '||l_score_id);
3006:
3007: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateScoreComp Status= '||x_return_status);
3008:
3009:
3010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3011: RAISE FND_API.G_EXC_ERROR;
3012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: END IF;
3007: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateScoreComp Status= '||x_return_status);
3008:
3009:
3010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3011: RAISE FND_API.G_EXC_ERROR;
3012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: END IF;
3015:
3008:
3009:
3010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3011: RAISE FND_API.G_EXC_ERROR;
3012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: END IF;
3015:
3016:
3009:
3010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3011: RAISE FND_API.G_EXC_ERROR;
3012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: END IF;
3015:
3016:
3017: newidx := newidx + 1;
3015:
3016:
3017: newidx := newidx + 1;
3018: IF (newidx <> idx) THEN
3019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3020: END IF;
3021:
3022: l_score_comp_id_new_tbl(newidx) := l_score_comp_id;
3023:
3078:
3079: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateScoreCompDet Status= '||x_return_status);
3080:
3081:
3082: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3083: RAISE FND_API.G_EXC_ERROR;
3084: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3086: END IF;
3079: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateScoreCompDet Status= '||x_return_status);
3080:
3081:
3082: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3083: RAISE FND_API.G_EXC_ERROR;
3084: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3086: END IF;
3087:
3080:
3081:
3082: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3083: RAISE FND_API.G_EXC_ERROR;
3084: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3086: END IF;
3087:
3088:
3081:
3082: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3083: RAISE FND_API.G_EXC_ERROR;
3084: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3086: END IF;
3087:
3088:
3089: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: ScoreCompDetId= '||l_score_comp_det_id);
3114: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: SCORE_FILTER notfound');
3115: --FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
3116: --FND_MESSAGE.Set_Token ('INFO', 'iex_SCORE_FILTER', FALSE);
3117: --FND_MSG_PUB.Add;
3118: --RAISE FND_API.G_EXC_ERROR;
3119: ELSE
3120:
3121: l_filter_name := 'Copy Of ' || l_filter_rec.object_filter_name;
3122: l_filter_rec.object_filter_name := l_filter_name;
3168:
3169: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateFilter Status= '||x_return_status);
3170:
3171:
3172: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3173: RAISE FND_API.G_EXC_ERROR;
3174: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: END IF;
3169: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: CreateFilter Status= '||x_return_status);
3170:
3171:
3172: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3173: RAISE FND_API.G_EXC_ERROR;
3174: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: END IF;
3177:
3170:
3171:
3172: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3173: RAISE FND_API.G_EXC_ERROR;
3174: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: END IF;
3177:
3178:
3171:
3172: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3173: RAISE FND_API.G_EXC_ERROR;
3174: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: END IF;
3177:
3178:
3179: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: FilterId= '||l_filter_id);
3207: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: Create DelStatus: '||l_row_id);
3208: EXCEPTION
3209: WHEN OTHERS THEN
3210: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: exc exp:'||SQLERRM);
3211: RAISE FND_API.G_EXC_ERROR;
3212: END ;
3213: END LOOP;
3214:
3215:
3219: <
3220:
3221: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: END_COPY');
3222: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: x_score_id='||x_score_id);
3223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3224: RAISE FND_API.G_EXC_ERROR;
3225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3220:
3221: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: END_COPY');
3222: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: x_score_id='||x_score_id);
3223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3224: RAISE FND_API.G_EXC_ERROR;
3225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3228:
3221: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: END_COPY');
3222: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: x_score_id='||x_score_id);
3223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3224: RAISE FND_API.G_EXC_ERROR;
3225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3228:
3229:
3222: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: x_score_id='||x_score_id);
3223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3224: RAISE FND_API.G_EXC_ERROR;
3225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3228:
3229:
3230: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: End');
3233: -- End of API body
3234: --
3235:
3236: -- Standard check for p_commit
3237: IF FND_API.to_Boolean( p_commit )
3238: THEN
3239: COMMIT WORK;
3240: END IF;
3241:
3244: ( p_count => x_msg_count,
3245: p_data => x_msg_data );
3246:
3247: EXCEPTION
3248: WHEN FND_API.G_EXC_ERROR THEN
3249: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: exc exp:'||SQLERRM);
3250: ROLLBACK To Copy_ScoringEngine_PVT;
3251: x_return_status := FND_API.G_RET_STS_ERROR;
3252: FND_MSG_PUB.Count_And_Get
3247: EXCEPTION
3248: WHEN FND_API.G_EXC_ERROR THEN
3249: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: exc exp:'||SQLERRM);
3250: ROLLBACK To Copy_ScoringEngine_PVT;
3251: x_return_status := FND_API.G_RET_STS_ERROR;
3252: FND_MSG_PUB.Count_And_Get
3253: ( p_count => x_msg_count,
3254: p_data => x_msg_data );
3255:
3252: FND_MSG_PUB.Count_And_Get
3253: ( p_count => x_msg_count,
3254: p_data => x_msg_data );
3255:
3256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3257: ROLLBACK To Copy_ScoringEngine_PVT;
3258: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: unexc exp:'||SQLERRM);
3259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3260: FND_MSG_PUB.Count_And_Get
3255:
3256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3257: ROLLBACK To Copy_ScoringEngine_PVT;
3258: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: unexc exp:'||SQLERRM);
3259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3260: FND_MSG_PUB.Count_And_Get
3261: ( p_count => x_msg_count,
3262: p_data => x_msg_data );
3263:
3263:
3264: WHEN OTHERS THEN
3265: ROLLBACK To Copy_ScoringEngine_PVT;
3266: IEX_SCORE_PVT.WriteLog('iexvscrb:Copy_SE: other exp:'||SQLERRM);
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3268: FND_MSG_PUB.Count_And_Get
3269: ( p_count => x_msg_count,
3270: p_data => x_msg_data );
3271:
3349: -- Standard Start of API savepoint
3350: SAVEPOINT Get_Score_PVT;
3351:
3352: -- Standard call to check for call compatibility.
3353: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
3354: p_api_version,
3355: l_api_name,
3356: G_PKG_NAME)
3357: THEN
3354: p_api_version,
3355: l_api_name,
3356: G_PKG_NAME)
3357: THEN
3358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3360:
3361: -- Initialize message list IF p_init_msg_list is set to TRUE.
3362: IF FND_API.to_Boolean( p_init_msg_list )
3358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3360:
3361: -- Initialize message list IF p_init_msg_list is set to TRUE.
3362: IF FND_API.to_Boolean( p_init_msg_list )
3363: THEN
3364: FND_MSG_PUB.initialize;
3365: END IF;
3366:
3366:
3367: -- Debug Message
3368:
3369: -- Initialize API return status to SUCCESS
3370: x_return_status := FND_API.G_RET_STS_SUCCESS;
3371:
3372: --
3373: -- Api body
3374: --
3508: -- End of API body
3509: --
3510:
3511: -- Standard check for p_commit
3512: IF FND_API.to_Boolean(p_commit)
3513: THEN
3514: COMMIT WORK;
3515: END IF;
3516:
3520: ( p_count => x_msg_count,
3521: p_data => x_msg_data );
3522:
3523: EXCEPTION
3524: WHEN FND_API.G_EXC_ERROR THEN
3525: as_utility_pvt.HANDLE_EXCEPTIONS(
3526: P_API_NAME => L_API_NAME
3527: ,P_PKG_NAME => G_PKG_NAME
3528: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3530: ,X_MSG_COUNT => X_MSG_COUNT
3531: ,X_MSG_DATA => X_MSG_DATA
3532: ,X_RETURN_STATUS => X_RETURN_STATUS);
3533:
3534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3535: as_utility_pvt.HANDLE_EXCEPTIONS(
3536: P_API_NAME => L_API_NAME
3537: ,P_PKG_NAME => G_PKG_NAME
3538: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3613: -- the profile is not set OR the engine is not valid and active -> raise an error
3614: IF l_score_id IS NULL THEN
3615: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE_ENGINE');
3616: FND_MSG_PUB.Add;
3617: RAISE FND_API.G_EXC_ERROR;
3618: END IF;
3619: ELSE
3620: l_score_id := p_score_id;
3621: END IF;
3654:
3655: BEGIN
3656:
3657: IEX_SCORE_PVT.Get_Score(p_api_version => 1.0,
3658: p_init_msg_list => FND_API.G_TRUE,
3659: p_commit => FND_API.G_TRUE,
3660: x_return_status => l_return_status,
3661: x_msg_count => l_msg_count,
3662: x_msg_data => l_msg_data);
3655: BEGIN
3656:
3657: IEX_SCORE_PVT.Get_Score(p_api_version => 1.0,
3658: p_init_msg_list => FND_API.G_TRUE,
3659: p_commit => FND_API.G_TRUE,
3660: x_return_status => l_return_status,
3661: x_msg_count => l_msg_count,
3662: x_msg_data => l_msg_data);
3663: