[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_Ptr_Type(
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_Ptr_Type(
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_Ptr_Type(
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
67: -- Standard Start of API savepoint
68: SAVEPOINT CREATE_PGM_TGT_PTR_TYP_PVT;
69:
70: -- Initialize message list if p_init_msg_list is set to TRUE.
71: IF FND_API.to_Boolean( p_init_msg_list )
72: THEN
73: FND_MSG_PUB.initialize;
74: END IF;
75:
73: FND_MSG_PUB.initialize;
74: END IF;
75:
76: -- Standard call to check for call compatibility.
77: IF NOT FND_API.Compatible_API_Call (
78: l_api_version_number
79: ,p_api_version_number
80: ,l_api_name
81: ,G_PKG_NAME
80: ,l_api_name
81: ,G_PKG_NAME
82: )
83: THEN
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: END IF;
86:
87: -- Debug Message
88: IF (PV_DEBUG_HIGH_ON) THEN
91: END IF;
92:
93:
94: -- Initialize API return status to SUCCESS
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
97: --------------- validate -------------------------
98:
99: IF FND_GLOBAL.User_Id IS NULL THEN
98:
99: IF FND_GLOBAL.User_Id IS NULL THEN
100: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
101: FND_MSG_PUB.add;
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105:
106: IF p_prgm_ptr_types_rec.program_partner_types_id IS NULL OR
103: END IF;
104:
105:
106: IF p_prgm_ptr_types_rec.program_partner_types_id IS NULL OR
107: p_prgm_ptr_types_rec.program_partner_types_id = FND_API.g_miss_num THEN
108: LOOP
109: -- Get the identifier
110: OPEN c_prgm_ptr_types_id_seq;
111: FETCH c_prgm_ptr_types_id_seq INTO l_prgm_ptr_types_rec.program_partner_types_id;
125:
126: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - program_partner_types_id = '|| l_prgm_ptr_types_rec.program_partner_types_id);
127: END IF;
128:
129: IF ( p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
130: -- Debug message
131: IF (PV_DEBUG_HIGH_ON) THEN
132:
133: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - Validate_Prgm_Ptr_Type');
143:
144: -- Invoke validation procedures
145: Validate_Prgm_Ptr_Type(
146: p_api_version_number => 1.0
147: ,p_init_msg_list => FND_API.G_FALSE
148: ,p_validation_level => p_validation_level
149: ,p_validation_mode => JTF_PLSQL_API.g_create
150: ,p_prgm_ptr_types_rec => l_prgm_ptr_types_rec
151: ,x_return_status => x_return_status
159: END IF;
160:
161: END IF;
162:
163: IF x_return_status = FND_API.g_ret_sts_error THEN
164: RAISE FND_API.g_exc_error;
165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
166: RAISE FND_API.g_exc_unexpected_error;
167: END IF;
160:
161: END IF;
162:
163: IF x_return_status = FND_API.g_ret_sts_error THEN
164: RAISE FND_API.g_exc_error;
165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
166: RAISE FND_API.g_exc_unexpected_error;
167: END IF;
168:
161: END IF;
162:
163: IF x_return_status = FND_API.g_ret_sts_error THEN
164: RAISE FND_API.g_exc_error;
165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
166: RAISE FND_API.g_exc_unexpected_error;
167: END IF;
168:
169: -- Debug Message
162:
163: IF x_return_status = FND_API.g_ret_sts_error THEN
164: RAISE FND_API.g_exc_error;
165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
166: RAISE FND_API.g_exc_unexpected_error;
167: END IF;
168:
169: -- Debug Message
170: IF (PV_DEBUG_HIGH_ON) THEN
186: );
187:
188: x_program_partner_types_id := l_prgm_ptr_types_rec.program_partner_types_id;
189:
190: IF l_return_status = FND_API.g_ret_sts_error THEN
191: RAISE FND_API.g_exc_error;
192: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
193: RAISE FND_API.g_exc_unexpected_error;
194: END IF;
187:
188: x_program_partner_types_id := l_prgm_ptr_types_rec.program_partner_types_id;
189:
190: IF l_return_status = FND_API.g_ret_sts_error THEN
191: RAISE FND_API.g_exc_error;
192: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
193: RAISE FND_API.g_exc_unexpected_error;
194: END IF;
195:
188: x_program_partner_types_id := l_prgm_ptr_types_rec.program_partner_types_id;
189:
190: IF l_return_status = FND_API.g_ret_sts_error THEN
191: RAISE FND_API.g_exc_error;
192: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
193: RAISE FND_API.g_exc_unexpected_error;
194: END IF;
195:
196: FND_MSG_PUB.count_and_get(
189:
190: IF l_return_status = FND_API.g_ret_sts_error THEN
191: RAISE FND_API.g_exc_error;
192: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
193: RAISE FND_API.g_exc_unexpected_error;
194: END IF;
195:
196: FND_MSG_PUB.count_and_get(
197: p_encoded => FND_API.g_false
193: RAISE FND_API.g_exc_unexpected_error;
194: END IF;
195:
196: FND_MSG_PUB.count_and_get(
197: p_encoded => FND_API.g_false
198: ,p_count => x_msg_count
199: ,p_data => x_msg_data
200: );
201:
205: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
206: END IF;
207:
208: -- Standard check for p_commit
209: IF FND_API.to_Boolean( p_commit ) THEN
210: COMMIT WORK;
211: END IF;
212:
213:
211: END IF;
212:
213:
214: EXCEPTION
215: WHEN FND_API.G_EXC_ERROR THEN
216: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: -- Standard call to get message count and if count=1, get the message
219: FND_MSG_PUB.Count_And_Get (
213:
214: EXCEPTION
215: WHEN FND_API.G_EXC_ERROR THEN
216: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: -- Standard call to get message count and if count=1, get the message
219: FND_MSG_PUB.Count_And_Get (
220: p_encoded => FND_API.G_FALSE
221: ,p_count => x_msg_count
216: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: -- Standard call to get message count and if count=1, get the message
219: FND_MSG_PUB.Count_And_Get (
220: p_encoded => FND_API.G_FALSE
221: ,p_count => x_msg_count
222: ,p_data => x_msg_data
223: );
224:
221: ,p_count => x_msg_count
222: ,p_data => x_msg_data
223: );
224:
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: -- Standard call to get message count and if count=1, get the message
229: FND_MSG_PUB.Count_And_Get (
223: );
224:
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: -- Standard call to get message count and if count=1, get the message
229: FND_MSG_PUB.Count_And_Get (
230: p_encoded => FND_API.G_FALSE
231: ,p_count => x_msg_count
226: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: -- Standard call to get message count and if count=1, get the message
229: FND_MSG_PUB.Count_And_Get (
230: p_encoded => FND_API.G_FALSE
231: ,p_count => x_msg_count
232: ,p_data => x_msg_data
233: );
234:
233: );
234:
235: WHEN OTHERS THEN
236: ROLLBACK TO CREATE_PGM_TGT_PTR_TYP_PVT;
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
239: THEN
240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
241: END IF;
240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
241: END IF;
242: -- Standard call to get message count and if count=1, get the message
243: FND_MSG_PUB.Count_And_Get (
244: p_encoded => FND_API.G_FALSE
245: ,p_count => x_msg_count
246: ,p_data => x_msg_data
247: );
248: End Create_Prgm_Ptr_Type;
249:
250:
251: PROCEDURE Update_Prgm_Ptr_Type(
252: p_api_version_number IN NUMBER
253: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
254: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
255: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
256:
257: ,x_return_status OUT NOCOPY VARCHAR2
250:
251: PROCEDURE Update_Prgm_Ptr_Type(
252: p_api_version_number IN NUMBER
253: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
254: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
255: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
256:
257: ,x_return_status OUT NOCOPY VARCHAR2
258: ,x_msg_count OUT NOCOPY NUMBER
251: PROCEDURE Update_Prgm_Ptr_Type(
252: p_api_version_number IN NUMBER
253: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
254: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
255: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
256:
257: ,x_return_status OUT NOCOPY VARCHAR2
258: ,x_msg_count OUT NOCOPY NUMBER
259: ,x_msg_data OUT NOCOPY VARCHAR2
289: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
290: END IF;
291:
292: -- Standard call to check for call compatibility.
293: IF NOT FND_API.Compatible_API_Call (l_api_version_number
294: ,p_api_version_number
295: ,l_api_name
296: ,G_PKG_NAME
297: )
295: ,l_api_name
296: ,G_PKG_NAME
297: )
298: THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END IF;
301:
302: -- Initialize message list if p_init_msg_list is set to TRUE.
303: IF FND_API.to_Boolean( p_init_msg_list )
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END IF;
301:
302: -- Initialize message list if p_init_msg_list is set to TRUE.
303: IF FND_API.to_Boolean( p_init_msg_list )
304: THEN
305: FND_MSG_PUB.initialize;
306: END IF;
307:
305: FND_MSG_PUB.initialize;
306: END IF;
307:
308: -- Initialize API return status to SUCCESS
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310:
311: -- Debug Message
312: IF (PV_DEBUG_HIGH_ON) THEN
313:
322: FND_MESSAGE.set_token('MODE','Update');
323: FND_MESSAGE.set_token('ENTITY','Pgm_Tgt_Ptr_Typ');
324: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_ptr_types_rec.program_partner_types_id));
325: FND_MSG_PUB.add;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328:
329: -- Debug Message
330: IF (PV_DEBUG_HIGH_ON) THEN
334: CLOSE c_get_Pgm_Tgt_Ptr_Typ;
335:
336:
337: If (l_tar_prgm_ptr_types_rec.object_version_number is NULL or
338: l_tar_prgm_ptr_types_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
339:
340: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
341: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
342: FND_MSG_PUB.add;
339:
340: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
341: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
342: FND_MSG_PUB.add;
343: RAISE FND_API.G_EXC_ERROR;
344: End if;
345:
346: -- Check Whether record has been changed by someone else
347: If (l_tar_prgm_ptr_types_rec.object_version_number <> l_ref_prgm_ptr_types_rec.object_version_number) Then
347: If (l_tar_prgm_ptr_types_rec.object_version_number <> l_ref_prgm_ptr_types_rec.object_version_number) Then
348: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
349: FND_MESSAGE.set_token('VALUE','Pgm_Tgt_Ptr_Typ');
350: FND_MSG_PUB.add;
351: RAISE FND_API.G_EXC_ERROR;
352: End if;
353:
354: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
355: -- Debug message
350: FND_MSG_PUB.add;
351: RAISE FND_API.G_EXC_ERROR;
352: End if;
353:
354: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
355: -- Debug message
356: IF (PV_DEBUG_HIGH_ON) THEN
357:
358: PVX_UTILITY_PVT.debug_message('Private API: '||l_full_name||' - Validate_Prgm_Ptr_Type');
361:
362: -- Invoke validation procedures
363: Validate_Prgm_Ptr_Type(
364: p_api_version_number => 1.0
365: ,p_init_msg_list => FND_API.G_FALSE
366: ,p_validation_level => p_validation_level
367: ,p_validation_mode => JTF_PLSQL_API.g_update
368: ,p_prgm_ptr_types_rec => p_prgm_ptr_types_rec
369: ,x_return_status => x_return_status
371: ,x_msg_data => x_msg_data
372: );
373: END IF;
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
372: );
373: END IF;
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
373: END IF;
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
381: -- replace g_miss_char/num/date with current column values
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
381: -- replace g_miss_char/num/date with current column values
382: Complete_Rec(
401: ,p_object_version_number => p_prgm_ptr_types_rec.object_version_number
402: );
403:
404: -- Check for commit
405: IF FND_API.to_boolean(p_commit) THEN
406: COMMIT;
407: END IF;
408:
409: FND_MSG_PUB.count_and_get(
406: COMMIT;
407: END IF;
408:
409: FND_MSG_PUB.count_and_get(
410: p_encoded => FND_API.g_false
411: ,p_count => x_msg_count
412: ,p_data => x_msg_data
413: );
414:
418: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
419: END IF;
420:
421: EXCEPTION
422: WHEN FND_API.G_EXC_ERROR THEN
423: ROLLBACK TO UPDATE_PGM_TGT_PTR_TYP_PVT;
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: -- Standard call to get message count and if count=1, get the message
426: FND_MSG_PUB.Count_And_Get (
420:
421: EXCEPTION
422: WHEN FND_API.G_EXC_ERROR THEN
423: ROLLBACK TO UPDATE_PGM_TGT_PTR_TYP_PVT;
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: -- Standard call to get message count and if count=1, get the message
426: FND_MSG_PUB.Count_And_Get (
427: p_encoded => FND_API.G_FALSE
428: ,p_count => x_msg_count
423: ROLLBACK TO UPDATE_PGM_TGT_PTR_TYP_PVT;
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: -- Standard call to get message count and if count=1, get the message
426: FND_MSG_PUB.Count_And_Get (
427: p_encoded => FND_API.G_FALSE
428: ,p_count => x_msg_count
429: ,p_data => x_msg_data
430: );
431:
428: ,p_count => x_msg_count
429: ,p_data => x_msg_data
430: );
431:
432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: ROLLBACK TO UPDATE_PGM_TGT_PTR_TYP_PVT;
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435: -- Standard call to get message count and if count=1, get the message
436: FND_MSG_PUB.Count_And_Get (
430: );
431:
432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: ROLLBACK TO UPDATE_PGM_TGT_PTR_TYP_PVT;
434: x_return_status := FND_API.G_RET_STS_UNEXP_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_PGM_TGT_PTR_TYP_PVT;
434: x_return_status := FND_API.G_RET_STS_UNEXP_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:
440: );
441:
442: WHEN OTHERS THEN
443: ROLLBACK TO UPDATE_PGM_TGT_PTR_TYP_PVT;
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
446: THEN
447: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
448: END IF;
447: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
448: END IF;
449: -- Standard call to get message count and if count=1, get the message
450: FND_MSG_PUB.Count_And_Get (
451: p_encoded => FND_API.G_FALSE
452: ,p_count => x_msg_count
453: ,p_data => x_msg_data
454: );
455:
458:
459:
460: PROCEDURE Delete_Prgm_Ptr_Type(
461: p_api_version_number IN NUMBER
462: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
463: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
464: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
465: ,x_return_status OUT NOCOPY VARCHAR
466: ,x_msg_count OUT NOCOPY NUMBER
459:
460: PROCEDURE Delete_Prgm_Ptr_Type(
461: p_api_version_number IN NUMBER
462: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
463: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
464: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
465: ,x_return_status OUT NOCOPY VARCHAR
466: ,x_msg_count OUT NOCOPY NUMBER
467: ,x_msg_data OUT NOCOPY VARCHAR2
460: PROCEDURE Delete_Prgm_Ptr_Type(
461: p_api_version_number IN NUMBER
462: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
463: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
464: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
465: ,x_return_status OUT NOCOPY VARCHAR
466: ,x_msg_count OUT NOCOPY NUMBER
467: ,x_msg_data OUT NOCOPY VARCHAR2
468: ,p_program_partner_types_id IN NUMBER
488: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
489: END IF;
490:
491: -- Standard call to check for call compatibility.
492: IF NOT FND_API.Compatible_API_Call (l_api_version_number
493: ,p_api_version_number
494: ,l_api_name
495: ,G_PKG_NAME
496: )
494: ,l_api_name
495: ,G_PKG_NAME
496: )
497: THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: END IF;
500:
501: -- Initialize message list if p_init_msg_list is set to TRUE.
502: IF FND_API.to_Boolean( p_init_msg_list )
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: END IF;
500:
501: -- Initialize message list if p_init_msg_list is set to TRUE.
502: IF FND_API.to_Boolean( p_init_msg_list )
503: THEN
504: FND_MSG_PUB.initialize;
505: END IF;
506:
504: FND_MSG_PUB.initialize;
505: END IF;
506:
507: -- Initialize API return status to SUCCESS
508: x_return_status := FND_API.G_RET_STS_SUCCESS;
509:
510: -- Debug Message
511: IF (PV_DEBUG_HIGH_ON) THEN
512:
519: ,p_object_version_number => p_object_version_number
520: );
521:
522: -- Check for commit
523: IF FND_API.to_boolean(p_commit) THEN
524: COMMIT;
525: END IF;
526:
527: FND_MSG_PUB.count_and_get(
524: COMMIT;
525: END IF;
526:
527: FND_MSG_PUB.count_and_get(
528: p_encoded => FND_API.g_false
529: ,p_count => x_msg_count
530: ,p_data => x_msg_data
531: );
532:
536: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
537: END IF;
538:
539: EXCEPTION
540: WHEN FND_API.G_EXC_ERROR THEN
541: --ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
542: ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: -- Standard call to get message count and if count=1, get the message
539: EXCEPTION
540: WHEN FND_API.G_EXC_ERROR THEN
541: --ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
542: ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: -- Standard call to get message count and if count=1, get the message
545: FND_MSG_PUB.Count_And_Get (
546: p_encoded => FND_API.G_FALSE
547: ,p_count => x_msg_count
542: ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: -- Standard call to get message count and if count=1, get the message
545: FND_MSG_PUB.Count_And_Get (
546: p_encoded => FND_API.G_FALSE
547: ,p_count => x_msg_count
548: ,p_data => x_msg_data
549: );
550:
547: ,p_count => x_msg_count
548: ,p_data => x_msg_data
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get (
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_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_PGM_TGT_PTR_TYP_PVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_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:
559: );
560:
561: WHEN OTHERS THEN
562: ROLLBACK TO DELETE_PGM_TGT_PTR_TYP_PVT;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
565: THEN
566: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
567: END IF;
566: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
567: END IF;
568: -- Standard call to get message count and if count=1, get the message
569: FND_MSG_PUB.Count_And_Get (
570: p_encoded => FND_API.G_FALSE
571: ,p_count => x_msg_count
572: ,p_data => x_msg_data
573: );
574:
578:
579:
580: PROCEDURE Lock_Prgm_Ptr_Type(
581: p_api_version_number IN NUMBER
582: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
583:
584: ,x_return_status OUT NOCOPY VARCHAR2
585: ,x_msg_count OUT NOCOPY NUMBER
586: ,x_msg_data OUT NOCOPY VARCHAR2
610: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - start');
611: END IF;
612:
613: -- Initialize message list if p_init_msg_list is set to TRUE.
614: IF FND_API.to_Boolean( p_init_msg_list )
615: THEN
616: FND_MSG_PUB.initialize;
617: END IF;
618:
616: FND_MSG_PUB.initialize;
617: END IF;
618:
619: -- Standard call to check for call compatibility.
620: IF NOT FND_API.Compatible_API_Call (
621: l_api_version_number
622: ,p_api_version_number
623: ,l_api_name
624: ,G_PKG_NAME
623: ,l_api_name
624: ,G_PKG_NAME
625: )
626: THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: END IF;
629:
630:
631: -- Initialize API return status to SUCCESS
628: END IF;
629:
630:
631: -- Initialize API return status to SUCCESS
632: x_return_status := FND_API.G_RET_STS_SUCCESS;
633:
634:
635: ------------------------ lock -------------------------
636: OPEN c_Pgm_Tgt_Ptr_Typ;
642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
643: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
644: FND_MSG_PUB.add;
645: END IF;
646: RAISE FND_API.g_exc_error;
647: END IF;
648:
649: CLOSE c_Pgm_Tgt_Ptr_Typ;
650:
649: CLOSE c_Pgm_Tgt_Ptr_Typ;
650:
651: -------------------- finish --------------------------
652: FND_MSG_PUB.count_and_get(
653: p_encoded => FND_API.g_false
654: ,p_count => x_msg_count
655: ,p_data => x_msg_data
656: );
657:
663:
664: EXCEPTION
665: /*
666: WHEN PVX_Utility_PVT.resource_locked THEN
667: x_return_status := FND_API.g_ret_sts_error;
668: PVX_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
669: */
670: WHEN FND_API.G_EXC_ERROR THEN
671: ROLLBACK TO LOCK_PGM_TGT_PTR_TYP_PVT;
666: WHEN PVX_Utility_PVT.resource_locked THEN
667: x_return_status := FND_API.g_ret_sts_error;
668: PVX_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
669: */
670: WHEN FND_API.G_EXC_ERROR THEN
671: ROLLBACK TO LOCK_PGM_TGT_PTR_TYP_PVT;
672: x_return_status := FND_API.G_RET_STS_ERROR;
673: -- Standard call to get message count and if count=1, get the message
674: FND_MSG_PUB.Count_And_Get (
668: PVX_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
669: */
670: WHEN FND_API.G_EXC_ERROR THEN
671: ROLLBACK TO LOCK_PGM_TGT_PTR_TYP_PVT;
672: x_return_status := FND_API.G_RET_STS_ERROR;
673: -- Standard call to get message count and if count=1, get the message
674: FND_MSG_PUB.Count_And_Get (
675: p_encoded => FND_API.G_FALSE
676: ,p_count => x_msg_count
671: ROLLBACK TO LOCK_PGM_TGT_PTR_TYP_PVT;
672: x_return_status := FND_API.G_RET_STS_ERROR;
673: -- Standard call to get message count and if count=1, get the message
674: FND_MSG_PUB.Count_And_Get (
675: p_encoded => FND_API.G_FALSE
676: ,p_count => x_msg_count
677: ,p_data => x_msg_data
678: );
679:
676: ,p_count => x_msg_count
677: ,p_data => x_msg_data
678: );
679:
680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
681: ROLLBACK TO LOCK_Pgm_Tgt_Ptr_Typ_PVT;
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: -- Standard call to get message count and if count=1, get the message
684: FND_MSG_PUB.Count_And_Get (
678: );
679:
680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
681: ROLLBACK TO LOCK_Pgm_Tgt_Ptr_Typ_PVT;
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: -- Standard call to get message count and if count=1, get the message
684: FND_MSG_PUB.Count_And_Get (
685: p_encoded => FND_API.G_FALSE
686: ,p_count => x_msg_count
681: ROLLBACK TO LOCK_Pgm_Tgt_Ptr_Typ_PVT;
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: -- Standard call to get message count and if count=1, get the message
684: FND_MSG_PUB.Count_And_Get (
685: p_encoded => FND_API.G_FALSE
686: ,p_count => x_msg_count
687: ,p_data => x_msg_data
688: );
689:
688: );
689:
690: WHEN OTHERS THEN
691: ROLLBACK TO LOCK_PGM_TGT_PTR_TYP_PVT;
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
694: THEN
695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
696: END IF;
695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
696: END IF;
697: -- Standard call to get message count and if count=1, get the message
698: FND_MSG_PUB.Count_And_Get (
699: p_encoded => FND_API.G_FALSE
700: ,p_count => x_msg_count
701: ,p_data => x_msg_data
702: );
703: End Lock_Prgm_Ptr_Type;
714: l_valid_flag VARCHAR2(1);
715:
716: BEGIN
717:
718: x_return_status := FND_API.g_ret_sts_success;
719: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
720:
721: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
722: 'PV_PROGRAM_PARTNER_TYPES'
722: 'PV_PROGRAM_PARTNER_TYPES'
723: ,'PROGRAM_PARTNER_TYPES_ID = ''' || p_prgm_ptr_types_rec.PROGRAM_PARTNER_TYPES_ID ||''''
724: );
725:
726: IF l_valid_flag = FND_API.g_false THEN
727: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
728: FND_MESSAGE.set_token('ID',to_char(p_prgm_ptr_types_rec.PROGRAM_PARTNER_TYPES_ID) );
729: FND_MESSAGE.set_token('ENTITY','Pgm_Tgt_Ptr_Typ');
730: FND_MSG_PUB.add;
727: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
728: FND_MESSAGE.set_token('ID',to_char(p_prgm_ptr_types_rec.PROGRAM_PARTNER_TYPES_ID) );
729: FND_MESSAGE.set_token('ENTITY','Pgm_Tgt_Ptr_Typ');
730: FND_MSG_PUB.add;
731: x_return_status := FND_API.g_ret_sts_error;
732: RETURN;
733: END IF;
734:
735: -- Debug message
742: 'PV_PROGRAM_PARTNER_TYPES'
743: ,'PROGRAM_TYPE_ID = ''' || p_prgm_ptr_types_rec.PROGRAM_TYPE_ID ||''' AND PARTNER_TYPE = ''' || p_prgm_ptr_types_rec.PARTNER_TYPE || ''''
744: );
745:
746: IF l_valid_flag = FND_API.g_false THEN
747: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
748: FND_MESSAGE.set_token('ID',to_char(p_prgm_ptr_types_rec.PROGRAM_TYPE_ID) );
749: FND_MESSAGE.set_token('ENTITY','Pgm_Tgt_Ptr_Typ');
750: FND_MSG_PUB.add;
747: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
748: FND_MESSAGE.set_token('ID',to_char(p_prgm_ptr_types_rec.PROGRAM_TYPE_ID) );
749: FND_MESSAGE.set_token('ENTITY','Pgm_Tgt_Ptr_Typ');
750: FND_MSG_PUB.add;
751: x_return_status := FND_API.g_ret_sts_error;
752: RETURN;
753: END IF;
754: END IF;
755:
766: IS
767:
768: BEGIN
769:
770: x_return_status := FND_API.g_ret_sts_success;
771:
772: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
773:
774: IF p_prgm_ptr_types_rec.program_partner_types_id = FND_API.g_miss_num
770: x_return_status := FND_API.g_ret_sts_success;
771:
772: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
773:
774: IF p_prgm_ptr_types_rec.program_partner_types_id = FND_API.g_miss_num
775: OR p_prgm_ptr_types_rec.program_partner_types_id IS NULL THEN
776: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
777: FND_MESSAGE.set_token('COLUMN','PROGRAM_PARTNER_TYPES_ID');
778: FND_MSG_PUB.add;
775: OR p_prgm_ptr_types_rec.program_partner_types_id IS NULL THEN
776: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
777: FND_MESSAGE.set_token('COLUMN','PROGRAM_PARTNER_TYPES_ID');
778: FND_MSG_PUB.add;
779: x_return_status := FND_API.g_ret_sts_error;
780: RETURN;
781: END IF;
782:
783:
780: RETURN;
781: END IF;
782:
783:
784: IF p_prgm_ptr_types_rec.PROGRAM_TYPE_ID = FND_API.g_miss_num
785: OR p_prgm_ptr_types_rec.PROGRAM_TYPE_ID IS NULL THEN
786: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
787: FND_MESSAGE.set_token('COLUMN','PROGRAM_TYPE_ID');
788: FND_MSG_PUB.add;
785: OR p_prgm_ptr_types_rec.PROGRAM_TYPE_ID IS NULL THEN
786: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
787: FND_MESSAGE.set_token('COLUMN','PROGRAM_TYPE_ID');
788: FND_MSG_PUB.add;
789: x_return_status := FND_API.g_ret_sts_error;
790: RETURN;
791: END IF;
792:
793:
790: RETURN;
791: END IF;
792:
793:
794: IF p_prgm_ptr_types_rec.partner_type = FND_API.g_miss_char
795: OR p_prgm_ptr_types_rec.partner_type IS NULL THEN
796: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
797: FND_MESSAGE.set_token('COLUMN','PARTNER_TYPE');
798: FND_MSG_PUB.add;
795: OR p_prgm_ptr_types_rec.partner_type IS NULL THEN
796: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
797: FND_MESSAGE.set_token('COLUMN','PARTNER_TYPE');
798: FND_MSG_PUB.add;
799: x_return_status := FND_API.g_ret_sts_error;
800: RETURN;
801: END IF;
802:
803:
800: RETURN;
801: END IF;
802:
803:
804: IF p_prgm_ptr_types_rec.last_update_date = FND_API.g_miss_date
805: OR p_prgm_ptr_types_rec.last_update_date IS NULL THEN
806: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
807: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
808: FND_MSG_PUB.add;
805: OR p_prgm_ptr_types_rec.last_update_date IS NULL THEN
806: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
807: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
808: FND_MSG_PUB.add;
809: x_return_status := FND_API.g_ret_sts_error;
810: RETURN;
811: END IF;
812:
813:
810: RETURN;
811: END IF;
812:
813:
814: IF p_prgm_ptr_types_rec.last_updated_by = FND_API.g_miss_num
815: OR p_prgm_ptr_types_rec.last_updated_by IS NULL THEN
816: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
817: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
818: FND_MSG_PUB.add;
815: OR p_prgm_ptr_types_rec.last_updated_by IS NULL THEN
816: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
817: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
818: FND_MSG_PUB.add;
819: x_return_status := FND_API.g_ret_sts_error;
820: RETURN;
821: END IF;
822:
823:
820: RETURN;
821: END IF;
822:
823:
824: IF p_prgm_ptr_types_rec.creation_date = FND_API.g_miss_date
825: OR p_prgm_ptr_types_rec.creation_date IS NULL THEN
826: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
827: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
828: FND_MSG_PUB.add;
825: OR p_prgm_ptr_types_rec.creation_date IS NULL THEN
826: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
827: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
828: FND_MSG_PUB.add;
829: x_return_status := FND_API.g_ret_sts_error;
830: RETURN;
831: END IF;
832:
833:
830: RETURN;
831: END IF;
832:
833:
834: IF p_prgm_ptr_types_rec.created_by = FND_API.g_miss_num
835: OR p_prgm_ptr_types_rec.created_by IS NULL THEN
836:
837: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
838: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
836:
837: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
838: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
839: FND_MSG_PUB.add;
840: x_return_status := FND_API.g_ret_sts_error;
841: RETURN;
842: END IF;
843:
844:
841: RETURN;
842: END IF;
843:
844:
845: IF p_prgm_ptr_types_rec.last_update_login = FND_API.g_miss_num
846: OR p_prgm_ptr_types_rec.last_update_login IS NULL THEN
847: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
848: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
849: FND_MSG_PUB.add;
846: OR p_prgm_ptr_types_rec.last_update_login IS NULL THEN
847: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
848: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
849: FND_MSG_PUB.add;
850: x_return_status := FND_API.g_ret_sts_error;
851: RETURN;
852: END IF;
853:
854:
851: RETURN;
852: END IF;
853:
854:
855: IF p_prgm_ptr_types_rec.object_version_number = FND_API.g_miss_num
856: OR p_prgm_ptr_types_rec.object_version_number IS NULL THEN
857: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
858: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
859: FND_MSG_PUB.add;
856: OR p_prgm_ptr_types_rec.object_version_number IS NULL THEN
857: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
858: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
859: FND_MSG_PUB.add;
860: x_return_status := FND_API.g_ret_sts_error;
861: RETURN;
862: END IF;
863: ELSE
864:
866: IF p_prgm_ptr_types_rec.program_partner_types_id IS NULL THEN
867: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
868: FND_MESSAGE.set_token('COLUMN','PROGRAM_PARTNER_TYPES_ID');
869: FND_MSG_PUB.add;
870: x_return_status := FND_API.g_ret_sts_error;
871: RETURN;
872: END IF;
873:
874:
875: IF p_prgm_ptr_types_rec.object_version_number IS NULL THEN
876: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
877: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
878: FND_MSG_PUB.add;
879: x_return_status := FND_API.g_ret_sts_error;
880: RETURN;
881: END IF;
882: END IF;
883:
890: ,x_return_status OUT NOCOPY VARCHAR2
891: )
892: IS
893: BEGIN
894: x_return_status := FND_API.g_ret_sts_success;
895:
896: ----------------------- PROGRAM_TYPE_ID ------------------------
897: IF (p_prgm_ptr_types_rec.PROGRAM_TYPE_ID <> FND_API.g_miss_num and
898: p_prgm_ptr_types_rec.PROGRAM_TYPE_ID IS NOT NULL ) THEN
893: BEGIN
894: x_return_status := FND_API.g_ret_sts_success;
895:
896: ----------------------- PROGRAM_TYPE_ID ------------------------
897: IF (p_prgm_ptr_types_rec.PROGRAM_TYPE_ID <> FND_API.g_miss_num and
898: p_prgm_ptr_types_rec.PROGRAM_TYPE_ID IS NOT NULL ) THEN
899:
900: -- Debug message
901: IF (PV_DEBUG_HIGH_ON) THEN
908: 'PROGRAM_TYPE_ID', -- Column name in the parent object that maps to the fk value
909: p_prgm_ptr_types_rec.PROGRAM_TYPE_ID, -- Value of fk to be validated against the parent object's pk column
910: PVX_utility_PVT.g_number, -- datatype of fk
911: NULL
912: ) = FND_API.g_false
913: THEN
914: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
915: THEN
916: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PRGM_PTR_TYPE');
916: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PRGM_PTR_TYPE');
917: FND_MSG_PUB.add;
918: END IF;
919:
920: x_return_status := FND_API.g_ret_sts_error;
921: RETURN;
922: END IF;
923: END IF;
924:
941: IS
942:
943: BEGIN
944:
945: x_return_status := FND_API.g_ret_sts_success;
946:
947: -- Enter custom code here
948:
949: END Check_Lookup_Items;
982:
983: PVX_UTILITY_PVT.debug_message('- After Check_Req_Items. return status = ' || x_return_status);
984: END IF;
985:
986: IF x_return_status <> FND_API.g_ret_sts_success THEN
987: RETURN;
988: END IF;
989:
990: -- Debug message
1005:
1006: PVX_UTILITY_PVT.debug_message('- After Check_UK_Items. return status = ' || x_return_status);
1007: END IF;
1008:
1009: IF x_return_status <> FND_API.g_ret_sts_success THEN
1010: RETURN;
1011: END IF;
1012:
1013: -- Debug message
1021: p_prgm_ptr_types_rec => p_prgm_ptr_types_rec
1022: ,x_return_status => x_return_status
1023: );
1024:
1025: IF x_return_status <> FND_API.g_ret_sts_success THEN
1026: RETURN;
1027: END IF;
1028:
1029: -- Debug message
1031:
1032: PVX_UTILITY_PVT.debug_message('- After Check_FK_Items. return status = ' || x_return_status);
1033: END IF;
1034:
1035: IF x_return_status <> FND_API.g_ret_sts_success THEN
1036: RETURN;
1037: END IF;
1038:
1039: -- Debug message
1053:
1054: PVX_UTILITY_PVT.debug_message('- After Check_Lookup_Items. return status = ' || x_return_status);
1055: END IF;
1056:
1057: IF x_return_status <> FND_API.g_ret_sts_success THEN
1058: RETURN;
1059: END IF;
1060:
1061: END Check_Items;
1142:
1143:
1144: PROCEDURE Validate_Prgm_Ptr_Type(
1145: p_api_version_number IN NUMBER
1146: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1147: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1148: ,p_validation_mode IN VARCHAR2
1149: ,p_prgm_ptr_types_rec IN prgm_ptr_types_rec_type
1150: ,x_return_status OUT NOCOPY VARCHAR2
1143:
1144: PROCEDURE Validate_Prgm_Ptr_Type(
1145: p_api_version_number IN NUMBER
1146: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1147: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1148: ,p_validation_mode IN VARCHAR2
1149: ,p_prgm_ptr_types_rec IN prgm_ptr_types_rec_type
1150: ,x_return_status OUT NOCOPY VARCHAR2
1151: ,x_msg_count OUT NOCOPY NUMBER
1165: -- Standard Start of API savepoint
1166: SAVEPOINT VALIDATE_PGM_TGT_PTR_TYP_PVT;
1167:
1168: -- Initialize API return status to SUCCESS
1169: x_return_status := FND_API.G_RET_STS_SUCCESS;
1170:
1171: -- Standard call to check for call compatibility.
1172: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1173: p_api_version_number,
1168: -- Initialize API return status to SUCCESS
1169: x_return_status := FND_API.G_RET_STS_SUCCESS;
1170:
1171: -- Standard call to check for call compatibility.
1172: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1173: p_api_version_number,
1174: l_api_name,
1175: G_PKG_NAME)
1176: THEN
1173: p_api_version_number,
1174: l_api_name,
1175: G_PKG_NAME)
1176: THEN
1177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1178: END IF;
1179:
1180: -- Initialize message list if p_init_msg_list is set to TRUE.
1181: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1178: END IF;
1179:
1180: -- Initialize message list if p_init_msg_list is set to TRUE.
1181: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1182: FND_MSG_PUB.initialize;
1183: END IF;
1184:
1185: -- Debug Message
1206:
1207: PVX_UTILITY_PVT.debug_message(' Private API: ' || l_full_name || ' - return status after Check_Items call ' || x_return_status);
1208: END IF;
1209:
1210: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1211: RAISE FND_API.G_EXC_ERROR;
1212: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1207: PVX_UTILITY_PVT.debug_message(' Private API: ' || l_full_name || ' - return status after Check_Items call ' || x_return_status);
1208: END IF;
1209:
1210: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1211: RAISE FND_API.G_EXC_ERROR;
1212: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1215: END IF;
1208: END IF;
1209:
1210: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1211: RAISE FND_API.G_EXC_ERROR;
1212: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1215: END IF;
1216:
1209:
1210: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1211: RAISE FND_API.G_EXC_ERROR;
1212: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1215: END IF;
1216:
1217: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1216:
1217: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1218: Validate_Rec(
1219: p_api_version_number => 1.0
1220: ,p_init_msg_list => FND_API.G_FALSE
1221: ,x_return_status => x_return_status
1222: ,x_msg_count => x_msg_count
1223: ,x_msg_data => x_msg_data
1224: ,p_prgm_ptr_types_rec => l_prgm_ptr_types_rec
1223: ,x_msg_data => x_msg_data
1224: ,p_prgm_ptr_types_rec => l_prgm_ptr_types_rec
1225: );
1226:
1227: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1224: ,p_prgm_ptr_types_rec => l_prgm_ptr_types_rec
1225: );
1226:
1227: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232: END IF;
1225: );
1226:
1227: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232: END IF;
1233:
1226:
1227: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232: END IF;
1233:
1234:
1239: END IF;
1240:
1241: -- Standard call to get message count and if count is 1, get message info.
1242: FND_MSG_PUB.Count_And_Get
1243: ( p_encoded => FND_API.G_FALSE,
1244: p_count => x_msg_count,
1245: p_data => x_msg_data
1246: );
1247:
1246: );
1247:
1248: EXCEPTION
1249:
1250: WHEN FND_API.G_EXC_ERROR THEN
1251: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: -- Standard call to get message count and if count=1, get the message
1254: FND_MSG_PUB.Count_And_Get (
1248: EXCEPTION
1249:
1250: WHEN FND_API.G_EXC_ERROR THEN
1251: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: -- Standard call to get message count and if count=1, get the message
1254: FND_MSG_PUB.Count_And_Get (
1255: p_encoded => FND_API.G_FALSE
1256: ,p_count => x_msg_count
1251: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: -- Standard call to get message count and if count=1, get the message
1254: FND_MSG_PUB.Count_And_Get (
1255: p_encoded => FND_API.G_FALSE
1256: ,p_count => x_msg_count
1257: ,p_data => x_msg_data
1258: );
1259:
1256: ,p_count => x_msg_count
1257: ,p_data => x_msg_data
1258: );
1259:
1260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1261: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1263: -- Standard call to get message count and if count=1, get the message
1264: FND_MSG_PUB.Count_And_Get (
1258: );
1259:
1260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1261: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1263: -- Standard call to get message count and if count=1, get the message
1264: FND_MSG_PUB.Count_And_Get (
1265: p_encoded => FND_API.G_FALSE
1266: ,p_count => x_msg_count
1261: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1263: -- Standard call to get message count and if count=1, get the message
1264: FND_MSG_PUB.Count_And_Get (
1265: p_encoded => FND_API.G_FALSE
1266: ,p_count => x_msg_count
1267: ,p_data => x_msg_data
1268: );
1269:
1268: );
1269:
1270: WHEN OTHERS THEN
1271: ROLLBACK TO VALIDATE_PGM_TGT_PTR_TYP_PVT;
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1274: THEN
1275: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1276: END IF;
1275: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1276: END IF;
1277: -- Standard call to get message count and if count=1, get the message
1278: FND_MSG_PUB.Count_And_Get (
1279: p_encoded => FND_API.G_FALSE
1280: ,p_count => x_msg_count
1281: ,p_data => x_msg_data
1282: );
1283: End Validate_Prgm_Ptr_Type;
1286:
1287:
1288: PROCEDURE Validate_Rec(
1289: p_api_version_number IN NUMBER
1290: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1291: ,x_return_status OUT NOCOPY VARCHAR2
1292: ,x_msg_count OUT NOCOPY NUMBER
1293: ,x_msg_data OUT NOCOPY VARCHAR
1294: ,p_prgm_ptr_types_rec IN prgm_ptr_types_rec_type
1298:
1299: BEGIN
1300:
1301: -- Initialize message list if p_init_msg_list is set to TRUE.
1302: IF FND_API.to_Boolean( p_init_msg_list )
1303: THEN
1304: FND_MSG_PUB.initialize;
1305: END IF;
1306:
1304: FND_MSG_PUB.initialize;
1305: END IF;
1306:
1307: -- Initialize API return status to SUCCESS
1308: x_return_status := FND_API.G_RET_STS_SUCCESS;
1309:
1310: -- Hint: Validate data
1311: -- If data not valid
1312: -- THEN
1309:
1310: -- Hint: Validate data
1311: -- If data not valid
1312: -- THEN
1313: -- x_return_status := FND_API.G_RET_STS_ERROR;
1314:
1315: -- Debug Message
1316: IF (PV_DEBUG_HIGH_ON) THEN
1317: