[Home] [Help]
29: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
30:
31: PROCEDURE Create_Prgm_Benefits(
32: p_api_version_number IN NUMBER
33: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
34: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
36:
37: ,x_return_status OUT NOCOPY VARCHAR2
30:
31: PROCEDURE Create_Prgm_Benefits(
32: p_api_version_number IN NUMBER
33: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
34: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
36:
37: ,x_return_status OUT NOCOPY VARCHAR2
38: ,x_msg_count OUT NOCOPY NUMBER
31: PROCEDURE Create_Prgm_Benefits(
32: p_api_version_number IN NUMBER
33: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
34: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
36:
37: ,x_return_status OUT NOCOPY VARCHAR2
38: ,x_msg_count OUT NOCOPY NUMBER
39: ,x_msg_data OUT NOCOPY VARCHAR2
70: -- Standard Start of API savepoint
71: SAVEPOINT CREATE_Prgm_Benefits_PVT;
72:
73: -- Initialize message list if p_init_msg_list is set to TRUE.
74: IF FND_API.to_Boolean( p_init_msg_list )
75: THEN
76: FND_MSG_PUB.initialize;
77: END IF;
78:
76: FND_MSG_PUB.initialize;
77: END IF;
78:
79: -- Standard call to check for call compatibility.
80: IF NOT FND_API.Compatible_API_Call (
81: l_api_version_number
82: ,p_api_version_number
83: ,l_api_name
84: ,G_PKG_NAME
83: ,l_api_name
84: ,G_PKG_NAME
85: )
86: THEN
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: -- Debug Message
91: IF (PV_DEBUG_HIGH_ON) THEN
94: END IF;
95:
96:
97: -- Initialize API return status to SUCCESS
98: x_return_status := FND_API.G_RET_STS_SUCCESS;
99:
100: --------------- validate -------------------------
101:
102: IF (PV_DEBUG_HIGH_ON) THEN
109:
110: IF FND_GLOBAL.User_Id IS NULL THEN
111: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
112: FND_MSG_PUB.add;
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115:
116:
117: IF l_prgm_benefits_rec.program_benefits_id IS NULL OR
114: END IF;
115:
116:
117: IF l_prgm_benefits_rec.program_benefits_id IS NULL OR
118: l_prgm_benefits_rec.program_benefits_id = FND_API.g_miss_num THEN
119: LOOP
120: -- Get the identifier
121: OPEN c_program_benefits_id_seq;
122: FETCH c_program_benefits_id_seq INTO l_prgm_benefits_rec.program_benefits_id;
144: l_prgm_benefits_rec.created_by := FND_GLOBAL.user_id;
145: l_prgm_benefits_rec.last_update_login := FND_GLOBAL.conc_login_id;
146: l_prgm_benefits_rec.object_version_number := l_object_version_number;
147:
148: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
149: -- Debug message
150: IF (PV_DEBUG_HIGH_ON) THEN
151:
152: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - Validate_Prgm_Benefits');
155:
156: -- Invoke validation procedures
157: Validate_Prgm_Benefits(
158: p_api_version_number => 1.0
159: ,p_init_msg_list => FND_API.G_FALSE
160: ,p_validation_level => p_validation_level
161: ,p_validation_mode => JTF_PLSQL_API.g_create
162: ,p_prgm_benefits_rec => l_prgm_benefits_rec
163: ,x_return_status => x_return_status
171: END IF;
172:
173: END IF;
174:
175: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF x_return_status = FND_API.g_ret_sts_error THEN
172:
173: END IF;
174:
175: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF x_return_status = FND_API.g_ret_sts_error THEN
180: RAISE FND_API.g_exc_error;
175: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF x_return_status = FND_API.g_ret_sts_error THEN
180: RAISE FND_API.g_exc_error;
181: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
182: RAISE FND_API.g_exc_unexpected_error;
183: END IF;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF x_return_status = FND_API.g_ret_sts_error THEN
180: RAISE FND_API.g_exc_error;
181: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
182: RAISE FND_API.g_exc_unexpected_error;
183: END IF;
184:
177: END IF;
178:
179: IF x_return_status = FND_API.g_ret_sts_error THEN
180: RAISE FND_API.g_exc_error;
181: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
182: RAISE FND_API.g_exc_unexpected_error;
183: END IF;
184:
185: -- Debug Message
178:
179: IF x_return_status = FND_API.g_ret_sts_error THEN
180: RAISE FND_API.g_exc_error;
181: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
182: RAISE FND_API.g_exc_unexpected_error;
183: END IF;
184:
185: -- Debug Message
186: IF (PV_DEBUG_HIGH_ON) THEN
205: );
206:
207: x_program_benefits_id := l_prgm_benefits_rec.program_benefits_id;
208:
209: IF l_return_status = FND_API.g_ret_sts_error THEN
210: RAISE FND_API.g_exc_error;
211: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
212: RAISE FND_API.g_exc_unexpected_error;
213: END IF;
206:
207: x_program_benefits_id := l_prgm_benefits_rec.program_benefits_id;
208:
209: IF l_return_status = FND_API.g_ret_sts_error THEN
210: RAISE FND_API.g_exc_error;
211: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
212: RAISE FND_API.g_exc_unexpected_error;
213: END IF;
214:
207: x_program_benefits_id := l_prgm_benefits_rec.program_benefits_id;
208:
209: IF l_return_status = FND_API.g_ret_sts_error THEN
210: RAISE FND_API.g_exc_error;
211: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
212: RAISE FND_API.g_exc_unexpected_error;
213: END IF;
214:
215: FND_MSG_PUB.count_and_get(
208:
209: IF l_return_status = FND_API.g_ret_sts_error THEN
210: RAISE FND_API.g_exc_error;
211: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
212: RAISE FND_API.g_exc_unexpected_error;
213: END IF;
214:
215: FND_MSG_PUB.count_and_get(
216: p_encoded => FND_API.g_false
212: RAISE FND_API.g_exc_unexpected_error;
213: END IF;
214:
215: FND_MSG_PUB.count_and_get(
216: p_encoded => FND_API.g_false
217: ,p_count => x_msg_count
218: ,p_data => x_msg_data
219: );
220:
224: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
225: END IF;
226:
227: -- Standard check for p_commit
228: IF FND_API.to_Boolean( p_commit ) THEN
229: COMMIT WORK;
230: END IF;
231:
232:
230: END IF;
231:
232:
233: EXCEPTION
234: WHEN FND_API.G_EXC_ERROR THEN
235: ROLLBACK TO CREATE_PRGM_BENEFITS_PVT;
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: -- Standard call to get message count and if count=1, get the message
238: FND_MSG_PUB.Count_And_Get (
232:
233: EXCEPTION
234: WHEN FND_API.G_EXC_ERROR THEN
235: ROLLBACK TO CREATE_PRGM_BENEFITS_PVT;
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: -- Standard call to get message count and if count=1, get the message
238: FND_MSG_PUB.Count_And_Get (
239: p_encoded => FND_API.G_FALSE
240: ,p_count => x_msg_count
235: ROLLBACK TO CREATE_PRGM_BENEFITS_PVT;
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: -- Standard call to get message count and if count=1, get the message
238: FND_MSG_PUB.Count_And_Get (
239: p_encoded => FND_API.G_FALSE
240: ,p_count => x_msg_count
241: ,p_data => x_msg_data
242: );
243:
240: ,p_count => x_msg_count
241: ,p_data => x_msg_data
242: );
243:
244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245: ROLLBACK TO CREATE_PRGM_BENEFITS_PVT;
246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
242: );
243:
244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245: ROLLBACK TO CREATE_PRGM_BENEFITS_PVT;
246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE
250: ,p_count => x_msg_count
245: ROLLBACK TO CREATE_PRGM_BENEFITS_PVT;
246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE
250: ,p_count => x_msg_count
251: ,p_data => x_msg_data
252: );
253:
252: );
253:
254: WHEN OTHERS THEN
255: ROLLBACK TO CREATE_Prgm_Benefits_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
258: THEN
259: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
260: END IF;
260: END IF;
261:
262: -- Standard call to get message count and if count=1, get the message
263: FND_MSG_PUB.Count_And_Get (
264: p_encoded => FND_API.G_FALSE
265: ,p_count => x_msg_count
266: ,p_data => x_msg_data
267: );
268:
270:
271:
272: PROCEDURE Update_Prgm_Benefits(
273: p_api_version_number IN NUMBER
274: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
275: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
276: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
277:
278: ,x_return_status OUT NOCOPY VARCHAR2
271:
272: PROCEDURE Update_Prgm_Benefits(
273: p_api_version_number IN NUMBER
274: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
275: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
276: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
277:
278: ,x_return_status OUT NOCOPY VARCHAR2
279: ,x_msg_count OUT NOCOPY NUMBER
272: PROCEDURE Update_Prgm_Benefits(
273: p_api_version_number IN NUMBER
274: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
275: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
276: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
277:
278: ,x_return_status OUT NOCOPY VARCHAR2
279: ,x_msg_count OUT NOCOPY NUMBER
280: ,x_msg_data OUT NOCOPY VARCHAR2
304: -- Standard Start of API savepoint
305: SAVEPOINT UPDATE_Prgm_Benefits_PVT;
306:
307: -- Standard call to check for call compatibility.
308: IF NOT FND_API.Compatible_API_Call (l_api_version_number
309: ,p_api_version_number
310: ,l_api_name
311: ,G_PKG_NAME
312: )
310: ,l_api_name
311: ,G_PKG_NAME
312: )
313: THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316:
317: -- Initialize message list if p_init_msg_list is set to TRUE.
318: IF FND_API.to_Boolean( p_init_msg_list )
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316:
317: -- Initialize message list if p_init_msg_list is set to TRUE.
318: IF FND_API.to_Boolean( p_init_msg_list )
319: THEN
320: FND_MSG_PUB.initialize;
321: END IF;
322:
320: FND_MSG_PUB.initialize;
321: END IF;
322:
323: -- Initialize API return status to SUCCESS
324: x_return_status := FND_API.G_RET_STS_SUCCESS;
325:
326: OPEN c_get_Prgm_Benefits( l_tar_prgm_benefits_rec.program_benefits_id);
327: FETCH c_get_Prgm_Benefits INTO l_ref_prgm_benefits_rec ;
328:
331: FND_MESSAGE.set_token('MODE','Update');
332: FND_MESSAGE.set_token('ENTITY','Program_Benefits');
333: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_benefits_rec.program_benefits_id));
334: FND_MSG_PUB.ADD;
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337:
338: -- Debug Message
339: IF (PV_DEBUG_HIGH_ON) THEN
342: END IF;
343: CLOSE c_get_Prgm_Benefits;
344:
345: If (l_tar_prgm_benefits_rec.object_version_number is NULL or
346: l_tar_prgm_benefits_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
347:
348: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
349: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
350: FND_MSG_PUB.add;
347:
348: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
349: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
350: FND_MSG_PUB.add;
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: -- Check Whether record has been changed by someone else
355: IF (l_tar_prgm_benefits_rec.object_version_number <> l_ref_prgm_benefits_rec.object_version_number) THEN
355: IF (l_tar_prgm_benefits_rec.object_version_number <> l_ref_prgm_benefits_rec.object_version_number) THEN
356: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
357: FND_MESSAGE.set_token('VALUE','PROGRAM_BENEFITS');
358: FND_MSG_PUB.ADD;
359: RAISE FND_API.G_EXC_ERROR;
360: END IF;
361:
362: IF ( p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
363: -- Debug message
358: FND_MSG_PUB.ADD;
359: RAISE FND_API.G_EXC_ERROR;
360: END IF;
361:
362: IF ( p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
363: -- Debug message
364: IF (PV_DEBUG_HIGH_ON) THEN
365:
366: PVX_UTILITY_PVT.debug_message('Private API: '||l_full_name||' - Validate_Prgm_Benefits');
368:
369: -- Invoke validation procedures
370: Validate_Prgm_Benefits(
371: p_api_version_number => 1.0
372: ,p_init_msg_list => FND_API.G_FALSE
373: ,p_validation_level => p_validation_level
374: ,p_validation_mode => JTF_PLSQL_API.g_update
375: ,p_prgm_benefits_rec => p_prgm_benefits_rec
376: ,x_return_status => x_return_status
378: ,x_msg_data => x_msg_data
379: );
380: END IF;
381:
382: IF x_return_status = FND_API.g_ret_sts_error THEN
383: RAISE FND_API.g_exc_error;
384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
385: RAISE FND_API.g_exc_unexpected_error;
386: END IF;
379: );
380: END IF;
381:
382: IF x_return_status = FND_API.g_ret_sts_error THEN
383: RAISE FND_API.g_exc_error;
384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
385: RAISE FND_API.g_exc_unexpected_error;
386: END IF;
387:
380: END IF;
381:
382: IF x_return_status = FND_API.g_ret_sts_error THEN
383: RAISE FND_API.g_exc_error;
384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
385: RAISE FND_API.g_exc_unexpected_error;
386: END IF;
387:
388: -- replace g_miss_char/num/date with current column values
381:
382: IF x_return_status = FND_API.g_ret_sts_error THEN
383: RAISE FND_API.g_exc_error;
384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
385: RAISE FND_API.g_exc_unexpected_error;
386: END IF;
387:
388: -- replace g_miss_char/num/date with current column values
389: Complete_Rec(
411: ,p_last_updated_by => FND_GLOBAL.user_id
412: );
413:
414: -- Check for commit
415: IF FND_API.to_boolean(p_commit) THEN
416: COMMIT;
417: END IF;
418:
419: FND_MSG_PUB.count_and_get(
416: COMMIT;
417: END IF;
418:
419: FND_MSG_PUB.count_and_get(
420: p_encoded => FND_API.g_false
421: ,p_count => x_msg_count
422: ,p_data => x_msg_data
423: );
424:
428: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
429: END IF;
430:
431: EXCEPTION
432: WHEN FND_API.G_EXC_ERROR THEN
433: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
434: x_return_status := FND_API.G_RET_STS_ERROR;
435: -- Standard call to get message count and if count=1, get the message
436: FND_MSG_PUB.Count_And_Get (
430:
431: EXCEPTION
432: WHEN FND_API.G_EXC_ERROR THEN
433: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
434: x_return_status := FND_API.G_RET_STS_ERROR;
435: -- Standard call to get message count and if count=1, get the message
436: FND_MSG_PUB.Count_And_Get (
437: p_encoded => FND_API.G_FALSE
438: ,p_count => x_msg_count
433: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
434: x_return_status := FND_API.G_RET_STS_ERROR;
435: -- Standard call to get message count and if count=1, get the message
436: FND_MSG_PUB.Count_And_Get (
437: p_encoded => FND_API.G_FALSE
438: ,p_count => x_msg_count
439: ,p_data => x_msg_data
440: );
441:
438: ,p_count => x_msg_count
439: ,p_data => x_msg_data
440: );
441:
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: -- Standard call to get message count and if count=1, get the message
446: FND_MSG_PUB.Count_And_Get (
440: );
441:
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: -- Standard call to get message count and if count=1, get the message
446: FND_MSG_PUB.Count_And_Get (
447: p_encoded => FND_API.G_FALSE,
448: p_count => x_msg_count,
443: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: -- Standard call to get message count and if count=1, get the message
446: FND_MSG_PUB.Count_And_Get (
447: p_encoded => FND_API.G_FALSE,
448: p_count => x_msg_count,
449: p_data => x_msg_data
450: );
451:
450: );
451:
452: WHEN OTHERS THEN
453: ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
456: THEN
457: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
458: END IF;
457: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
458: END IF;
459: -- Standard call to get message count and if count=1, get the message
460: FND_MSG_PUB.Count_And_Get (
461: p_encoded => FND_API.G_FALSE
462: ,p_count => x_msg_count
463: ,p_data => x_msg_data
464: );
465:
468:
469:
470: PROCEDURE Delete_Prgm_Benefits(
471: p_api_version_number IN NUMBER
472: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
473: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
474: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
475: ,x_return_status OUT NOCOPY VARCHAR2
476: ,x_msg_count OUT NOCOPY NUMBER
469:
470: PROCEDURE Delete_Prgm_Benefits(
471: p_api_version_number IN NUMBER
472: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
473: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
474: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
475: ,x_return_status OUT NOCOPY VARCHAR2
476: ,x_msg_count OUT NOCOPY NUMBER
477: ,x_msg_data OUT NOCOPY VARCHAR2
470: PROCEDURE Delete_Prgm_Benefits(
471: p_api_version_number IN NUMBER
472: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
473: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
474: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
475: ,x_return_status OUT NOCOPY VARCHAR2
476: ,x_msg_count OUT NOCOPY NUMBER
477: ,x_msg_data OUT NOCOPY VARCHAR2
478: ,p_program_benefits_id IN NUMBER
499: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
500: END IF;
501:
502: -- Standard call to check for call compatibility.
503: IF NOT FND_API.Compatible_API_Call (l_api_version_number
504: ,p_api_version_number
505: ,l_api_name
506: ,G_PKG_NAME
507: )
505: ,l_api_name
506: ,G_PKG_NAME
507: )
508: THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511:
512: -- Initialize message list if p_init_msg_list is set to TRUE.
513: IF FND_API.to_Boolean( p_init_msg_list )
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511:
512: -- Initialize message list if p_init_msg_list is set to TRUE.
513: IF FND_API.to_Boolean( p_init_msg_list )
514: THEN
515: FND_MSG_PUB.initialize;
516: END IF;
517:
515: FND_MSG_PUB.initialize;
516: END IF;
517:
518: -- Initialize API return status to SUCCESS
519: x_return_status := FND_API.G_RET_STS_SUCCESS;
520:
521: -- Debug Message
522: IF (PV_DEBUG_HIGH_ON) THEN
523:
530: ,p_object_version_number => p_object_version_number
531: );
532:
533: -- Check for commit
534: IF FND_API.to_boolean(p_commit) THEN
535: COMMIT;
536: END IF;
537:
538: FND_MSG_PUB.count_and_get(
535: COMMIT;
536: END IF;
537:
538: FND_MSG_PUB.count_and_get(
539: p_encoded => FND_API.g_false
540: ,p_count => x_msg_count
541: ,p_data => x_msg_data
542: );
543:
547: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
548: END IF;
549:
550: EXCEPTION
551: WHEN FND_API.G_EXC_ERROR THEN
552: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get (
549:
550: EXCEPTION
551: WHEN FND_API.G_EXC_ERROR THEN
552: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get (
556: p_encoded => FND_API.G_FALSE
557: ,p_count => x_msg_count
552: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get (
556: p_encoded => FND_API.G_FALSE
557: ,p_count => x_msg_count
558: ,p_data => x_msg_data
559: );
560:
557: ,p_count => x_msg_count
558: ,p_data => x_msg_data
559: );
560:
561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
562: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Count_And_Get (
559: );
560:
561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
562: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Count_And_Get (
566: p_encoded => FND_API.G_FALSE
567: ,p_count => x_msg_count
562: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Count_And_Get (
566: p_encoded => FND_API.G_FALSE
567: ,p_count => x_msg_count
568: ,p_data => x_msg_data
569: );
570:
569: );
570:
571: WHEN OTHERS THEN
572: ROLLBACK TO DELETE_Prgm_Benefits_PVT;
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
575: THEN
576: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
577: END IF;
576: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
577: END IF;
578: -- Standard call to get message count and if count=1, get the message
579: FND_MSG_PUB.Count_And_Get (
580: p_encoded => FND_API.G_FALSE
581: ,p_count => x_msg_count
582: ,p_data => x_msg_data
583: );
584:
587:
588:
589: PROCEDURE Lock_Prgm_Benefits(
590: p_api_version_number IN NUMBER
591: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
592:
593: ,x_return_status OUT NOCOPY VARCHAR2
594: ,x_msg_count OUT NOCOPY NUMBER
595: ,x_msg_data OUT NOCOPY VARCHAR2
620: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || 'start');
621: END IF;
622:
623: -- Initialize message list if p_init_msg_list is set to TRUE.
624: IF FND_API.to_Boolean( p_init_msg_list )
625: THEN
626: FND_MSG_PUB.initialize;
627: END IF;
628:
626: FND_MSG_PUB.initialize;
627: END IF;
628:
629: -- Standard call to check for call compatibility.
630: IF NOT FND_API.Compatible_API_Call (
631: l_api_version_number
632: ,p_api_version_number
633: ,l_api_name
634: ,G_PKG_NAME
633: ,l_api_name
634: ,G_PKG_NAME
635: )
636: THEN
637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
638: END IF;
639:
640:
641: -- Initialize API return status to SUCCESS
638: END IF;
639:
640:
641: -- Initialize API return status to SUCCESS
642: x_return_status := FND_API.G_RET_STS_SUCCESS;
643:
644:
645: ------------------------ lock -------------------------
646:
660: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
661: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
662: FND_MSG_PUB.add;
663: END IF;
664: RAISE FND_API.g_exc_error;
665: END IF;
666:
667: CLOSE c_Prgm_Benefits;
668:
667: CLOSE c_Prgm_Benefits;
668:
669: -------------------- finish --------------------------
670: FND_MSG_PUB.count_and_get(
671: p_encoded => FND_API.g_false
672: ,p_count => x_msg_count
673: ,p_data => x_msg_data
674: );
675:
681:
682: EXCEPTION
683: /*
684: WHEN PVX_UTILITY_PVT.resource_locked THEN
685: x_return_status := FND_API.g_ret_sts_error;
686: PVX_UTILITY_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
687: */
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
684: WHEN PVX_UTILITY_PVT.resource_locked THEN
685: x_return_status := FND_API.g_ret_sts_error;
686: PVX_UTILITY_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
687: */
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
686: PVX_UTILITY_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
687: */
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE
694: ,p_count => x_msg_count
689: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE
694: ,p_count => x_msg_count
695: ,p_data => x_msg_data
696: );
697:
694: ,p_count => x_msg_count
695: ,p_data => x_msg_data
696: );
697:
698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
699: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Count_And_Get (
696: );
697:
698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
699: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Count_And_Get (
703: p_encoded => FND_API.G_FALSE
704: ,p_count => x_msg_count
699: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Count_And_Get (
703: p_encoded => FND_API.G_FALSE
704: ,p_count => x_msg_count
705: ,p_data => x_msg_data
706: );
707:
706: );
707:
708: WHEN OTHERS THEN
709: ROLLBACK TO LOCK_Prgm_Benefits_PVT;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
712: THEN
713: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
714: END IF;
713: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
714: END IF;
715: -- Standard call to get message count and if count=1, get the message
716: FND_MSG_PUB.Count_And_Get (
717: p_encoded => FND_API.G_FALSE
718: ,p_count => x_msg_count
719: ,p_data => x_msg_data
720: );
721: END Lock_Prgm_Benefits;
733: l_valid_flag VARCHAR2(1);
734:
735: BEGIN
736:
737: x_return_status := FND_API.g_ret_sts_success;
738: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
739:
740: l_valid_flag := PVX_UTILITY_PVT.check_uniqueness(
741: 'PV_PROGRAM_BENEFITS',
741: 'PV_PROGRAM_BENEFITS',
742: 'program_benefits_id = ''' || p_prgm_benefits_rec.program_benefits_id ||''''
743: );
744:
745: IF l_valid_flag = FND_API.g_false THEN
746: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
747: FND_MESSAGE.set_token('ID',to_char(p_prgm_benefits_rec.program_benefits_id) );
748: FND_MESSAGE.set_token('ENTITY','PARTNER_BENEFITS');
749: FND_MSG_PUB.add;
746: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
747: FND_MESSAGE.set_token('ID',to_char(p_prgm_benefits_rec.program_benefits_id) );
748: FND_MESSAGE.set_token('ENTITY','PARTNER_BENEFITS');
749: FND_MSG_PUB.add;
750: x_return_status := FND_API.g_ret_sts_error;
751: RETURN;
752: END IF;
753: -- Debug message
754: IF (PV_DEBUG_HIGH_ON) THEN
770: IS
771:
772: BEGIN
773:
774: x_return_status := FND_API.g_ret_sts_success;
775:
776: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
777:
778: IF p_prgm_benefits_rec.program_benefits_id = FND_API.g_miss_num
774: x_return_status := FND_API.g_ret_sts_success;
775:
776: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
777:
778: IF p_prgm_benefits_rec.program_benefits_id = FND_API.g_miss_num
779: OR p_prgm_benefits_rec.program_benefits_id IS NULL THEN
780: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
781: FND_MESSAGE.set_token('COLUMN','PROGRAM_BENEFITS_ID');
782: FND_MSG_PUB.add;
779: OR p_prgm_benefits_rec.program_benefits_id IS NULL THEN
780: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
781: FND_MESSAGE.set_token('COLUMN','PROGRAM_BENEFITS_ID');
782: FND_MSG_PUB.add;
783: x_return_status := FND_API.g_ret_sts_error;
784: RETURN;
785: END IF;
786:
787:
784: RETURN;
785: END IF;
786:
787:
788: IF p_prgm_benefits_rec.program_id = FND_API.g_miss_num
789: OR p_prgm_benefits_rec.program_id IS NULL THEN
790: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
791: FND_MESSAGE.set_token('COLUMN','PROGRAM_ID');
792: FND_MSG_PUB.add;
789: OR p_prgm_benefits_rec.program_id IS NULL THEN
790: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
791: FND_MESSAGE.set_token('COLUMN','PROGRAM_ID');
792: FND_MSG_PUB.add;
793: x_return_status := FND_API.g_ret_sts_error;
794: RETURN;
795: END IF;
796:
797: /*
794: RETURN;
795: END IF;
796:
797: /*
798: IF p_prgm_benefits_rec.benefit_code = FND_API.g_miss_char
799: OR p_prgm_benefits_rec.benefit_code IS NULL THEN
800: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
801: FND_MESSAGE.set_token('COLUMN','BENEFIT_CODE');
802: FND_MSG_PUB.add;
799: OR p_prgm_benefits_rec.benefit_code IS NULL THEN
800: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
801: FND_MESSAGE.set_token('COLUMN','BENEFIT_CODE');
802: FND_MSG_PUB.add;
803: x_return_status := FND_API.g_ret_sts_error;
804: RETURN;
805: END IF;
806: */
807:
804: RETURN;
805: END IF;
806: */
807:
808: IF p_prgm_benefits_rec.benefit_id = FND_API.g_miss_num
809: OR p_prgm_benefits_rec.benefit_id IS NULL THEN
810: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
811: FND_MESSAGE.set_token('COLUMN','BENEFIT_ID');
812: FND_MSG_PUB.add;
809: OR p_prgm_benefits_rec.benefit_id IS NULL THEN
810: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
811: FND_MESSAGE.set_token('COLUMN','BENEFIT_ID');
812: FND_MSG_PUB.add;
813: x_return_status := FND_API.g_ret_sts_error;
814: RETURN;
815: END IF;
816:
817:
814: RETURN;
815: END IF;
816:
817:
818: IF p_prgm_benefits_rec.benefit_type_code = FND_API.g_miss_char
819: OR p_prgm_benefits_rec.benefit_type_code IS NULL THEN
820: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
821: FND_MESSAGE.set_token('COLUMN','BENEFIT_TYPE_CODE');
822: FND_MSG_PUB.add;
819: OR p_prgm_benefits_rec.benefit_type_code IS NULL THEN
820: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
821: FND_MESSAGE.set_token('COLUMN','BENEFIT_TYPE_CODE');
822: FND_MSG_PUB.add;
823: x_return_status := FND_API.g_ret_sts_error;
824: RETURN;
825: END IF;
826:
827:
824: RETURN;
825: END IF;
826:
827:
828: IF p_prgm_benefits_rec.delete_flag = FND_API.g_miss_char
829: OR p_prgm_benefits_rec.delete_flag IS NULL THEN
830: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
831: FND_MESSAGE.set_token('COLUMN','DELETE_FLAG');
832: FND_MSG_PUB.add;
829: OR p_prgm_benefits_rec.delete_flag IS NULL THEN
830: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
831: FND_MESSAGE.set_token('COLUMN','DELETE_FLAG');
832: FND_MSG_PUB.add;
833: x_return_status := FND_API.g_ret_sts_error;
834: RETURN;
835: END IF;
836:
837:
834: RETURN;
835: END IF;
836:
837:
838: IF p_prgm_benefits_rec.last_update_login = FND_API.g_miss_num
839: OR p_prgm_benefits_rec.last_update_login IS NULL THEN
840: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
841: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
842: FND_MSG_PUB.add;
839: OR p_prgm_benefits_rec.last_update_login IS NULL THEN
840: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
841: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
842: FND_MSG_PUB.add;
843: x_return_status := FND_API.g_ret_sts_error;
844: RETURN;
845: END IF;
846:
847:
844: RETURN;
845: END IF;
846:
847:
848: IF p_prgm_benefits_rec.object_version_number = FND_API.g_miss_num
849: OR p_prgm_benefits_rec.object_version_number IS NULL THEN
850: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
851: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
852: FND_MSG_PUB.add;
849: OR p_prgm_benefits_rec.object_version_number IS NULL THEN
850: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
851: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
852: FND_MSG_PUB.add;
853: x_return_status := FND_API.g_ret_sts_error;
854: RETURN;
855: END IF;
856:
857:
854: RETURN;
855: END IF;
856:
857:
858: IF p_prgm_benefits_rec.last_update_date = FND_API.g_miss_date
859: OR p_prgm_benefits_rec.last_update_date IS NULL THEN
860: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
861: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
862: FND_MSG_PUB.add;
859: OR p_prgm_benefits_rec.last_update_date IS NULL THEN
860: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
861: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
862: FND_MSG_PUB.add;
863: x_return_status := FND_API.g_ret_sts_error;
864: RETURN;
865: END IF;
866:
867:
864: RETURN;
865: END IF;
866:
867:
868: IF p_prgm_benefits_rec.last_updated_by = FND_API.g_miss_num
869: OR p_prgm_benefits_rec.last_updated_by IS NULL THEN
870: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
871: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
872: FND_MSG_PUB.add;
869: OR p_prgm_benefits_rec.last_updated_by IS NULL THEN
870: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
871: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
872: FND_MSG_PUB.add;
873: x_return_status := FND_API.g_ret_sts_error;
874: RETURN;
875: END IF;
876:
877: -- Debug message
879:
880: PVX_UTILITY_PVT.debug_message('- In Check_Req_Items API Before Created_by Check' );
881: END IF;
882:
883: IF p_prgm_benefits_rec.created_by = FND_API.g_miss_num
884: OR p_prgm_benefits_rec.created_by IS NULL THEN
885: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
886: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
887: FND_MSG_PUB.add;
884: OR p_prgm_benefits_rec.created_by IS NULL THEN
885: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
886: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
887: FND_MSG_PUB.add;
888: x_return_status := FND_API.g_ret_sts_error;
889: RETURN;
890: END IF;
891:
892:
889: RETURN;
890: END IF;
891:
892:
893: IF p_prgm_benefits_rec.creation_date = FND_API.g_miss_date
894: OR p_prgm_benefits_rec.creation_date IS NULL THEN
895: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
896: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
897: FND_MSG_PUB.add;
894: OR p_prgm_benefits_rec.creation_date IS NULL THEN
895: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
896: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
897: FND_MSG_PUB.add;
898: x_return_status := FND_API.g_ret_sts_error;
899: RETURN;
900: END IF;
901: ELSE
902:
903: IF p_prgm_benefits_rec.program_benefits_id IS NULL THEN
904: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
905: FND_MESSAGE.set_token('COLUMN','PROGRAM_BENEFITS_ID');
906: FND_MSG_PUB.add;
907: x_return_status := FND_API.g_ret_sts_error;
908: RETURN;
909: END IF;
910:
911: IF p_prgm_benefits_rec.benefit_id = FND_API.g_miss_num
907: x_return_status := FND_API.g_ret_sts_error;
908: RETURN;
909: END IF;
910:
911: IF p_prgm_benefits_rec.benefit_id = FND_API.g_miss_num
912: OR p_prgm_benefits_rec.benefit_id IS NULL THEN
913: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
914: FND_MESSAGE.set_token('COLUMN','BENEFIT_ID');
915: FND_MSG_PUB.add;
912: OR p_prgm_benefits_rec.benefit_id IS NULL THEN
913: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
914: FND_MESSAGE.set_token('COLUMN','BENEFIT_ID');
915: FND_MSG_PUB.add;
916: x_return_status := FND_API.g_ret_sts_error;
917: RETURN;
918: END IF;
919:
920:
917: RETURN;
918: END IF;
919:
920:
921: IF p_prgm_benefits_rec.benefit_type_code = FND_API.g_miss_char
922: OR p_prgm_benefits_rec.benefit_type_code IS NULL THEN
923: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
924: FND_MESSAGE.set_token('COLUMN','BENEFIT_TYPE_CODE');
925: FND_MSG_PUB.add;
922: OR p_prgm_benefits_rec.benefit_type_code IS NULL THEN
923: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
924: FND_MESSAGE.set_token('COLUMN','BENEFIT_TYPE_CODE');
925: FND_MSG_PUB.add;
926: x_return_status := FND_API.g_ret_sts_error;
927: RETURN;
928: END IF;
929:
930:
927: RETURN;
928: END IF;
929:
930:
931: IF p_prgm_benefits_rec.delete_flag = FND_API.g_miss_char
932: OR p_prgm_benefits_rec.delete_flag IS NULL THEN
933: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
934: FND_MESSAGE.set_token('COLUMN','DELETE_FLAG');
935: FND_MSG_PUB.add;
932: OR p_prgm_benefits_rec.delete_flag IS NULL THEN
933: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
934: FND_MESSAGE.set_token('COLUMN','DELETE_FLAG');
935: FND_MSG_PUB.add;
936: x_return_status := FND_API.g_ret_sts_error;
937: RETURN;
938: END IF;
939:
940:
941: IF p_prgm_benefits_rec.object_version_number IS NULL THEN
942: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
943: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
944: FND_MSG_PUB.add;
945: x_return_status := FND_API.g_ret_sts_error;
946: RETURN;
947: END IF;
948: END IF;
949:
958: IS
959:
960: BEGIN
961:
962: x_return_status := FND_API.g_ret_sts_success;
963:
964: ----------------------- PROGRAM_ID ------------------------
965: IF (p_prgm_benefits_rec.PROGRAM_ID <> FND_API.g_miss_num
966: AND p_prgm_benefits_rec.PROGRAM_ID IS NOT NULL ) THEN
961:
962: x_return_status := FND_API.g_ret_sts_success;
963:
964: ----------------------- PROGRAM_ID ------------------------
965: IF (p_prgm_benefits_rec.PROGRAM_ID <> FND_API.g_miss_num
966: AND p_prgm_benefits_rec.PROGRAM_ID IS NOT NULL ) THEN
967:
968: -- Debug message
969: IF (PV_DEBUG_HIGH_ON) THEN
976: 'PROGRAM_ID', -- Column name in the parent object that maps to the fk value
977: p_prgm_benefits_rec.PROGRAM_ID, -- Value of fk to be validated against the parent object's pk column
978: PVX_utility_PVT.g_number, -- datatype of fk
979: NULL
980: ) = FND_API.g_false
981: THEN
982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
983: THEN
984: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PARTNER_PROGRAM');
984: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PARTNER_PROGRAM');
985: FND_MSG_PUB.add;
986: END IF;
987:
988: x_return_status := FND_API.g_ret_sts_error;
989: RETURN;
990: END IF;
991: END IF;
992:
1008: IS
1009:
1010: BEGIN
1011:
1012: x_return_status := FND_API.g_ret_sts_success;
1013:
1014: /*
1015: ----------------------- Benefit_Code lookup ------------------------
1016: IF p_prgm_benefits_rec.Benefit_Code <> FND_API.g_miss_char THEN
1012: x_return_status := FND_API.g_ret_sts_success;
1013:
1014: /*
1015: ----------------------- Benefit_Code lookup ------------------------
1016: IF p_prgm_benefits_rec.Benefit_Code <> FND_API.g_miss_char THEN
1017:
1018: IF PVX_Utility_PVT.check_lookup_exists(
1019: 'FND_LOOKUP_VALUES', -- Look up Table Name
1020: 'PV_PROGRAM_BENEFITS', -- Lookup Type
1018: IF PVX_Utility_PVT.check_lookup_exists(
1019: 'FND_LOOKUP_VALUES', -- Look up Table Name
1020: 'PV_PROGRAM_BENEFITS', -- Lookup Type
1021: p_prgm_benefits_rec.Benefit_Code -- Lookup Code
1022: ) = FND_API.g_false
1023: THEN
1024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1025: THEN
1026: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROGRAM_BENEFIT');
1025: THEN
1026: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROGRAM_BENEFIT');
1027: FND_MSG_PUB.add;
1028: END IF;
1029: x_return_status := FND_API.g_ret_sts_error;
1030: RETURN;
1031:
1032: END IF;
1033: END IF;
1074:
1075: PVX_UTILITY_PVT.debug_message('- After Check_Req_Items. return status = ' || x_return_status);
1076: END IF;
1077:
1078: IF x_return_status <> FND_API.g_ret_sts_success THEN
1079: RETURN;
1080: END IF;
1081:
1082: -- Debug message
1097:
1098: PVX_UTILITY_PVT.debug_message('- After Check_UK_Items. return status = ' || x_return_status);
1099: END IF;
1100:
1101: IF x_return_status <> FND_API.g_ret_sts_success THEN
1102: RETURN;
1103: END IF;
1104:
1105: -- Debug message
1119:
1120: PVX_UTILITY_PVT.debug_message('- After Check_FK_Items. return status = ' || x_return_status);
1121: END IF;
1122:
1123: IF x_return_status <> FND_API.g_ret_sts_success THEN
1124: RETURN;
1125: END IF;
1126:
1127: -- Debug message
1141:
1142: PVX_UTILITY_PVT.debug_message('- After Check_Lookup_Items. return status = ' || x_return_status);
1143: END IF;
1144:
1145: IF x_return_status <> FND_API.g_ret_sts_success THEN
1146: RETURN;
1147: END IF;
1148:
1149: END Check_Items;
1179: PVX_UTILITY_PVT.debug_message('- In Complete_Rec API prior to assigning program_id');
1180: END IF;
1181:
1182: -- program_benefits_id
1183: -- IF p_prgm_benefits_rec.program_benefits_id = FND_API.g_miss_num THEN
1184: IF p_prgm_benefits_rec.program_benefits_id IS NULL THEN
1185: x_complete_rec.program_benefits_id := l_prgm_benefits_rec.program_benefits_id;
1186: END IF;
1187:
1185: x_complete_rec.program_benefits_id := l_prgm_benefits_rec.program_benefits_id;
1186: END IF;
1187:
1188: -- program_id
1189: -- IF p_prgm_benefits_rec.program_id = FND_API.g_miss_num THEN
1190: IF p_prgm_benefits_rec.program_id IS NULL THEN
1191: x_complete_rec.program_id := l_prgm_benefits_rec.program_id;
1192: END IF;
1193:
1191: x_complete_rec.program_id := l_prgm_benefits_rec.program_id;
1192: END IF;
1193:
1194: -- benefit_code
1195: -- IF p_prgm_benefits_rec.benefit_code = FND_API.g_miss_char THEN
1196: IF p_prgm_benefits_rec.benefit_code IS NULL THEN
1197: x_complete_rec.benefit_code := l_prgm_benefits_rec.benefit_code;
1198: END IF;
1199:
1197: x_complete_rec.benefit_code := l_prgm_benefits_rec.benefit_code;
1198: END IF;
1199:
1200: -- benefit_id
1201: -- IF p_prgm_benefits_rec.benefit_id = FND_API.g_miss_num THEN
1202: IF p_prgm_benefits_rec.benefit_id IS NULL THEN
1203: x_complete_rec.benefit_id := l_prgm_benefits_rec.benefit_id;
1204: END IF;
1205:
1203: x_complete_rec.benefit_id := l_prgm_benefits_rec.benefit_id;
1204: END IF;
1205:
1206: -- benefit_type_code
1207: -- IF p_prgm_benefits_rec.benefit_type_code = FND_API.g_miss_char THEN
1208: IF p_prgm_benefits_rec.benefit_type_code IS NULL THEN
1209: x_complete_rec.benefit_type_code := l_prgm_benefits_rec.benefit_type_code;
1210: END IF;
1211:
1209: x_complete_rec.benefit_type_code := l_prgm_benefits_rec.benefit_type_code;
1210: END IF;
1211:
1212: -- delete_flag
1213: -- IF p_prgm_benefits_rec.delete_flag = FND_API.g_miss_char THEN
1214: IF p_prgm_benefits_rec.delete_flag IS NULL THEN
1215: x_complete_rec.delete_flag := l_prgm_benefits_rec.delete_flag;
1216: END IF;
1217:
1215: x_complete_rec.delete_flag := l_prgm_benefits_rec.delete_flag;
1216: END IF;
1217:
1218: -- last_update_login
1219: -- IF p_prgm_benefits_rec.last_update_login = FND_API.g_miss_num THEN
1220: IF p_prgm_benefits_rec.last_update_login IS NULL THEN
1221: x_complete_rec.last_update_login := l_prgm_benefits_rec.last_update_login;
1222: END IF;
1223:
1221: x_complete_rec.last_update_login := l_prgm_benefits_rec.last_update_login;
1222: END IF;
1223:
1224: -- object_version_number
1225: -- IF p_prgm_benefits_rec.object_version_number = FND_API.g_miss_num THEN
1226: IF p_prgm_benefits_rec.object_version_number IS NULL THEN
1227: x_complete_rec.object_version_number := l_prgm_benefits_rec.object_version_number;
1228: END IF;
1229:
1227: x_complete_rec.object_version_number := l_prgm_benefits_rec.object_version_number;
1228: END IF;
1229:
1230: -- last_update_date
1231: -- IF p_prgm_benefits_rec.last_update_date = FND_API.g_miss_date THEN
1232: IF p_prgm_benefits_rec.last_update_date IS NULL THEN
1233: x_complete_rec.last_update_date := l_prgm_benefits_rec.last_update_date;
1234: END IF;
1235:
1233: x_complete_rec.last_update_date := l_prgm_benefits_rec.last_update_date;
1234: END IF;
1235:
1236: -- last_updated_by
1237: -- IF p_prgm_benefits_rec.last_updated_by = FND_API.g_miss_num THEN
1238: IF p_prgm_benefits_rec.last_updated_by IS NULL THEN
1239: x_complete_rec.last_updated_by := l_prgm_benefits_rec.last_updated_by;
1240: END IF;
1241:
1239: x_complete_rec.last_updated_by := l_prgm_benefits_rec.last_updated_by;
1240: END IF;
1241:
1242: -- created_by
1243: -- IF p_prgm_benefits_rec.created_by = FND_API.g_miss_num THEN
1244: IF p_prgm_benefits_rec.created_by IS NULL THEN
1245: x_complete_rec.created_by := l_prgm_benefits_rec.created_by;
1246: END IF;
1247:
1245: x_complete_rec.created_by := l_prgm_benefits_rec.created_by;
1246: END IF;
1247:
1248: -- creation_date
1249: -- IF p_prgm_benefits_rec.creation_date = FND_API.g_miss_date THEN
1250: IF p_prgm_benefits_rec.creation_date IS NULL THEN
1251: x_complete_rec.creation_date := l_prgm_benefits_rec.creation_date;
1252: END IF;
1253:
1256:
1257:
1258: PROCEDURE Validate_Prgm_Benefits(
1259: p_api_version_number IN NUMBER
1260: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1262: ,p_prgm_benefits_rec IN prgm_benefits_rec_type
1263: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
1264: ,x_return_status OUT NOCOPY VARCHAR2
1257:
1258: PROCEDURE Validate_Prgm_Benefits(
1259: p_api_version_number IN NUMBER
1260: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1262: ,p_prgm_benefits_rec IN prgm_benefits_rec_type
1263: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
1264: ,x_return_status OUT NOCOPY VARCHAR2
1265: ,x_msg_count OUT NOCOPY NUMBER
1279: -- Standard Start of API savepoint
1280: SAVEPOINT Validate_Prgm_Benefits_;
1281:
1282: -- Initialize API return status to SUCCESS
1283: x_return_status := FND_API.G_RET_STS_SUCCESS;
1284:
1285: -- Standard call to check for call compatibility.
1286: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1287: p_api_version_number,
1282: -- Initialize API return status to SUCCESS
1283: x_return_status := FND_API.G_RET_STS_SUCCESS;
1284:
1285: -- Standard call to check for call compatibility.
1286: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1287: p_api_version_number,
1288: l_api_name,
1289: G_PKG_NAME)
1290: THEN
1287: p_api_version_number,
1288: l_api_name,
1289: G_PKG_NAME)
1290: THEN
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END IF;
1293:
1294: -- Initialize message list if p_init_msg_list is set to TRUE.
1295: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END IF;
1293:
1294: -- Initialize message list if p_init_msg_list is set to TRUE.
1295: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1296: FND_MSG_PUB.initialize;
1297: END IF;
1298:
1299: -- Debug Message
1320:
1321: PVX_UTILITY_PVT.debug_message(' Private API: ' || l_full_name || ' - return status after Check_Items call ' || x_return_status);
1322: END IF;
1323:
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1321: PVX_UTILITY_PVT.debug_message(' Private API: ' || l_full_name || ' - return status after Check_Items call ' || x_return_status);
1322: END IF;
1323:
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329: END IF;
1322: END IF;
1323:
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329: END IF;
1330:
1323:
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: RAISE FND_API.G_EXC_ERROR;
1326: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329: END IF;
1330:
1331: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1330:
1331: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1332: Validate_Rec(
1333: p_api_version_number => 1.0
1334: ,p_init_msg_list => FND_API.G_FALSE
1335: ,x_return_status => x_return_status
1336: ,x_msg_count => x_msg_count
1337: ,x_msg_data => x_msg_data
1338: ,p_prgm_benefits_rec => l_prgm_benefits_rec
1337: ,x_msg_data => x_msg_data
1338: ,p_prgm_benefits_rec => l_prgm_benefits_rec
1339: );
1340:
1341: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1342: RAISE FND_API.G_EXC_ERROR;
1343: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1345: END IF;
1338: ,p_prgm_benefits_rec => l_prgm_benefits_rec
1339: );
1340:
1341: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1342: RAISE FND_API.G_EXC_ERROR;
1343: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1345: END IF;
1346: END IF;
1339: );
1340:
1341: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1342: RAISE FND_API.G_EXC_ERROR;
1343: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1345: END IF;
1346: END IF;
1347:
1340:
1341: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1342: RAISE FND_API.G_EXC_ERROR;
1343: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1345: END IF;
1346: END IF;
1347:
1348:
1353: END IF;
1354:
1355: -- Standard call to get message count and if count is 1, get message info.
1356: FND_MSG_PUB.Count_And_Get
1357: ( p_encoded => FND_API.G_FALSE,
1358: p_count => x_msg_count,
1359: p_data => x_msg_data
1360: );
1361:
1359: p_data => x_msg_data
1360: );
1361:
1362: EXCEPTION
1363: WHEN FND_API.G_EXC_ERROR THEN
1364: ROLLBACK TO Validate_Prgm_Benefits_;
1365: x_return_status := FND_API.G_RET_STS_ERROR;
1366: -- Standard call to get message count and if count=1, get the message
1367: FND_MSG_PUB.Count_And_Get (
1361:
1362: EXCEPTION
1363: WHEN FND_API.G_EXC_ERROR THEN
1364: ROLLBACK TO Validate_Prgm_Benefits_;
1365: x_return_status := FND_API.G_RET_STS_ERROR;
1366: -- Standard call to get message count and if count=1, get the message
1367: FND_MSG_PUB.Count_And_Get (
1368: p_encoded => FND_API.G_FALSE
1369: ,p_count => x_msg_count
1364: ROLLBACK TO Validate_Prgm_Benefits_;
1365: x_return_status := FND_API.G_RET_STS_ERROR;
1366: -- Standard call to get message count and if count=1, get the message
1367: FND_MSG_PUB.Count_And_Get (
1368: p_encoded => FND_API.G_FALSE
1369: ,p_count => x_msg_count
1370: ,p_data => x_msg_data
1371: );
1372:
1369: ,p_count => x_msg_count
1370: ,p_data => x_msg_data
1371: );
1372:
1373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1374: ROLLBACK TO Validate_Prgm_Benefits_;
1375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1376: -- Standard call to get message count and if count=1, get the message
1377: FND_MSG_PUB.Count_And_Get (
1371: );
1372:
1373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1374: ROLLBACK TO Validate_Prgm_Benefits_;
1375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1376: -- Standard call to get message count and if count=1, get the message
1377: FND_MSG_PUB.Count_And_Get (
1378: p_encoded => FND_API.G_FALSE
1379: ,p_count => x_msg_count
1374: ROLLBACK TO Validate_Prgm_Benefits_;
1375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1376: -- Standard call to get message count and if count=1, get the message
1377: FND_MSG_PUB.Count_And_Get (
1378: p_encoded => FND_API.G_FALSE
1379: ,p_count => x_msg_count
1380: ,p_data => x_msg_data
1381: );
1382:
1381: );
1382:
1383: WHEN OTHERS THEN
1384: ROLLBACK TO Validate_Prgm_Benefits_;
1385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1386: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1387: THEN
1388: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1389: END IF;
1388: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1389: END IF;
1390: -- Standard call to get message count and if count=1, get the message
1391: FND_MSG_PUB.Count_And_Get (
1392: p_encoded => FND_API.G_FALSE
1393: ,p_count => x_msg_count
1394: ,p_data => x_msg_data
1395: );
1396:
1399:
1400:
1401: PROCEDURE Validate_Rec(
1402: p_api_version_number IN NUMBER
1403: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1404: ,x_return_status OUT NOCOPY VARCHAR2
1405: ,x_msg_count OUT NOCOPY NUMBER
1406: ,x_msg_data OUT NOCOPY VARCHAR2
1407: ,p_prgm_benefits_rec IN prgm_benefits_rec_type
1411: IS
1412:
1413: BEGIN
1414: -- Initialize message list if p_init_msg_list is set to TRUE.
1415: IF FND_API.to_Boolean( p_init_msg_list )
1416: THEN
1417: FND_MSG_PUB.initialize;
1418: END IF;
1419:
1417: FND_MSG_PUB.initialize;
1418: END IF;
1419:
1420: -- Initialize API return status to SUCCESS
1421: x_return_status := FND_API.G_RET_STS_SUCCESS;
1422:
1423: -- Hint: Validate data
1424: -- If data not valid
1425: -- THEN
1422:
1423: -- Hint: Validate data
1424: -- If data not valid
1425: -- THEN
1426: -- x_return_status := FND_API.G_RET_STS_ERROR;
1427:
1428: -- Standard call to get message count and if count is 1, get message info.
1429: FND_MSG_PUB.Count_And_Get
1430: (p_count => x_msg_count,