46: -- Parameters
47: --
48: -- IN
49: -- p_api_version_number IN NUMBER Required
50: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
51: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
52: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
53: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
54: --
47: --
48: -- IN
49: -- p_api_version_number IN NUMBER Required
50: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
51: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
52: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
53: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
54: --
55: -- OUT
48: -- IN
49: -- p_api_version_number IN NUMBER Required
50: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
51: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
52: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
53: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
54: --
55: -- OUT
56: -- x_return_status OUT VARCHAR2
72: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
73:
74: PROCEDURE Create_Ge_Hist_Log(
75: p_api_version_number IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
77: p_commit IN VARCHAR2 := FND_API.G_FALSE,
78: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
79:
80: x_return_status OUT NOCOPY VARCHAR2,
73:
74: PROCEDURE Create_Ge_Hist_Log(
75: p_api_version_number IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
77: p_commit IN VARCHAR2 := FND_API.G_FALSE,
78: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
79:
80: x_return_status OUT NOCOPY VARCHAR2,
81: x_msg_count OUT NOCOPY NUMBER,
74: PROCEDURE Create_Ge_Hist_Log(
75: p_api_version_number IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
77: p_commit IN VARCHAR2 := FND_API.G_FALSE,
78: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
79:
80: x_return_status OUT NOCOPY VARCHAR2,
81: x_msg_count OUT NOCOPY NUMBER,
82: x_msg_data OUT NOCOPY VARCHAR2,
89: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Ge_Hist_Log';
90: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
91: l_return_status_full VARCHAR2(1);
92: l_object_version_number NUMBER := 1;
93: l_org_id NUMBER := FND_API.G_MISS_NUM;
94: l_entity_history_log_id NUMBER;
95: l_dummy NUMBER;
96: CURSOR c_id IS
97: SELECT pv_ge_history_log_b_s.NEXTVAL
105: -- Standard Start of API savepoint
106: SAVEPOINT create_ge_hist_log_pvt;
107:
108: -- Standard call to check for call compatibility.
109: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
110: p_api_version_number,
111: l_api_name,
112: G_PKG_NAME)
113: THEN
110: p_api_version_number,
111: l_api_name,
112: G_PKG_NAME)
113: THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
117:
118: -- Initialize message list if p_init_msg_list is set to TRUE.
115: END IF;
116:
117:
118: -- Initialize message list if p_init_msg_list is set to TRUE.
119: IF FND_API.to_Boolean( p_init_msg_list )
120: THEN
121: FND_MSG_PUB.initialize;
122: END IF;
123:
131:
132:
133:
134: -- Initialize API return status to SUCCESS
135: x_return_status := FND_API.G_RET_STS_SUCCESS;
136:
137: -- =========================================================================
138: -- Validate Environment
139: -- =========================================================================
140:
141: IF FND_GLOBAL.USER_ID IS NULL
142: THEN
143: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146:
147:
148:
145: END IF;
146:
147:
148:
149: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
150: THEN
151: -- Debug message
152: IF (PV_DEBUG_HIGH_ON) THEN
153:
156:
157: -- Invoke validation procedures
158: Validate_ge_hist_log(
159: p_api_version_number => 1.0,
160: p_init_msg_list => FND_API.G_FALSE,
161: p_validation_level => p_validation_level,
162: p_validation_mode => JTF_PLSQL_API.g_create,
163: p_ge_hist_log_rec => p_ge_hist_log_rec,
164: x_return_status => x_return_status,
165: x_msg_count => x_msg_count,
166: x_msg_data => x_msg_data);
167: END IF;
168:
169: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
173: -- Local variable initialization
166: x_msg_data => x_msg_data);
167: END IF;
168:
169: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
173: -- Local variable initialization
174:
171: END IF;
172:
173: -- Local variable initialization
174:
175: IF p_ge_hist_log_rec.entity_history_log_id IS NULL OR p_ge_hist_log_rec.entity_history_log_id = FND_API.g_miss_num THEN
176: LOOP
177: l_dummy := NULL;
178: OPEN c_id;
179: FETCH c_id INTO l_entity_history_log_id;
213: p_comments => p_ge_hist_log_rec.comments
214: );
215:
216: x_entity_history_log_id := l_entity_history_log_id;
217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
218: RAISE FND_API.G_EXC_ERROR;
219: END IF;
220: --
221: -- End of API body
214: );
215:
216: x_entity_history_log_id := l_entity_history_log_id;
217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
218: RAISE FND_API.G_EXC_ERROR;
219: END IF;
220: --
221: -- End of API body
222: --
221: -- End of API body
222: --
223:
224: -- Standard check for p_commit
225: IF FND_API.to_Boolean( p_commit )
226: THEN
227: COMMIT WORK;
228: END IF;
229:
242: );
243: EXCEPTION
244:
245: WHEN PVX_UTILITY_PVT.resource_locked THEN
246: x_return_status := FND_API.g_ret_sts_error;
247: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
248:
249: WHEN FND_API.G_EXC_ERROR THEN
250: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
245: WHEN PVX_UTILITY_PVT.resource_locked THEN
246: x_return_status := FND_API.g_ret_sts_error;
247: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
248:
249: WHEN FND_API.G_EXC_ERROR THEN
250: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: -- Standard call to get message count and if count=1, get the message
253: FND_MSG_PUB.Count_And_Get (
247: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
248:
249: WHEN FND_API.G_EXC_ERROR THEN
250: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: -- Standard call to get message count and if count=1, get the message
253: FND_MSG_PUB.Count_And_Get (
254: p_encoded => FND_API.G_FALSE,
255: p_count => x_msg_count,
250: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: -- Standard call to get message count and if count=1, get the message
253: FND_MSG_PUB.Count_And_Get (
254: p_encoded => FND_API.G_FALSE,
255: p_count => x_msg_count,
256: p_data => x_msg_data
257: );
258:
255: p_count => x_msg_count,
256: p_data => x_msg_data
257: );
258:
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262: -- Standard call to get message count and if count=1, get the message
263: FND_MSG_PUB.Count_And_Get (
257: );
258:
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
260: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
267: );
268:
269: WHEN OTHERS THEN
270: ROLLBACK TO CREATE_Ge_Hist_Log_PVT;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
273: THEN
274: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
275: END IF;
274: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
275: END IF;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
278: p_encoded => FND_API.G_FALSE,
279: p_count => x_msg_count,
280: p_data => x_msg_data
281: );
282: End Create_Ge_Hist_Log;
294: -- Parameters
295: --
296: -- IN
297: -- p_api_version_number IN NUMBER Required
298: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
299: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
300: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
301: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
302: --
295: --
296: -- IN
297: -- p_api_version_number IN NUMBER Required
298: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
299: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
300: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
301: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
302: --
303: -- OUT
296: -- IN
297: -- p_api_version_number IN NUMBER Required
298: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
299: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
300: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
301: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
302: --
303: -- OUT
304: -- x_return_status OUT VARCHAR2
316: -- ==============================================================================
317:
318: PROCEDURE Update_Ge_Hist_Log(
319: p_api_version_number IN NUMBER,
320: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
321: p_commit IN VARCHAR2 := FND_API.G_FALSE,
322: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
323:
324: x_return_status OUT NOCOPY VARCHAR2,
317:
318: PROCEDURE Update_Ge_Hist_Log(
319: p_api_version_number IN NUMBER,
320: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
321: p_commit IN VARCHAR2 := FND_API.G_FALSE,
322: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
323:
324: x_return_status OUT NOCOPY VARCHAR2,
325: x_msg_count OUT NOCOPY NUMBER,
318: PROCEDURE Update_Ge_Hist_Log(
319: p_api_version_number IN NUMBER,
320: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
321: p_commit IN VARCHAR2 := FND_API.G_FALSE,
322: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
323:
324: x_return_status OUT NOCOPY VARCHAR2,
325: x_msg_count OUT NOCOPY NUMBER,
326: x_msg_data OUT NOCOPY VARCHAR2,
351: -- Standard Start of API savepoint
352: SAVEPOINT update_ge_hist_log_pvt;
353:
354: -- Standard call to check for call compatibility.
355: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
356: p_api_version_number,
357: l_api_name,
358: G_PKG_NAME)
359: THEN
356: p_api_version_number,
357: l_api_name,
358: G_PKG_NAME)
359: THEN
360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361: END IF;
362:
363:
364: -- Initialize message list if p_init_msg_list is set to TRUE.
361: END IF;
362:
363:
364: -- Initialize message list if p_init_msg_list is set to TRUE.
365: IF FND_API.to_Boolean( p_init_msg_list )
366: THEN
367: FND_MSG_PUB.initialize;
368: END IF;
369:
377:
378:
379:
380: -- Initialize API return status to SUCCESS
381: x_return_status := FND_API.G_RET_STS_SUCCESS;
382:
383: -- Debug Message
384: IF (PV_DEBUG_HIGH_ON) THEN
385:
393: If ( c_get_Ge_Hist_Log%NOTFOUND) THEN
394: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
395: p_token_name => 'INFO',
396: p_token_value => 'Ge_Hist_Log') ;
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399: -- Debug Message
400: IF (PV_DEBUG_HIGH_ON) THEN
401:
404: CLOSE c_get_Ge_Hist_Log;
405:
406:
407: If (l_tar_ge_hist_log_rec.object_version_number is NULL or
408: l_tar_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM ) Then
409: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
410: p_token_name => 'COLUMN',
411: p_token_value => 'Last_Update_Date') ;
412: raise FND_API.G_EXC_ERROR;
408: l_tar_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM ) Then
409: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
410: p_token_name => 'COLUMN',
411: p_token_value => 'Last_Update_Date') ;
412: raise FND_API.G_EXC_ERROR;
413: End if;
414: -- Check Whether record has been changed by someone else
415: If (l_tar_ge_hist_log_rec.object_version_number <> l_ref_ge_hist_log_rec.object_version_number) Then
416: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
415: If (l_tar_ge_hist_log_rec.object_version_number <> l_ref_ge_hist_log_rec.object_version_number) Then
416: PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
417: p_token_name => 'INFO',
418: p_token_value => 'Ge_Hist_Log') ;
419: raise FND_API.G_EXC_ERROR;
420: End if;
421:
422:
423: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
419: raise FND_API.G_EXC_ERROR;
420: End if;
421:
422:
423: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
424: THEN
425: -- Debug message
426: IF (PV_DEBUG_HIGH_ON) THEN
427:
430:
431: -- Invoke validation procedures
432: Validate_ge_hist_log(
433: p_api_version_number => 1.0,
434: p_init_msg_list => FND_API.G_FALSE,
435: p_validation_level => p_validation_level,
436: p_validation_mode => JTF_PLSQL_API.g_update,
437: p_ge_hist_log_rec => p_ge_hist_log_rec,
438: x_return_status => x_return_status,
439: x_msg_count => x_msg_count,
440: x_msg_data => x_msg_data);
441: END IF;
442:
443: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
447:
440: x_msg_data => x_msg_data);
441: END IF;
442:
443: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
447:
448: -- Debug Message
471: -- End of API body.
472: --
473:
474: -- Standard check for p_commit
475: IF FND_API.to_Boolean( p_commit )
476: THEN
477: COMMIT WORK;
478: END IF;
479:
492: );
493: EXCEPTION
494:
495: WHEN PVX_UTILITY_PVT.resource_locked THEN
496: x_return_status := FND_API.g_ret_sts_error;
497: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
498:
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
495: WHEN PVX_UTILITY_PVT.resource_locked THEN
496: x_return_status := FND_API.g_ret_sts_error;
497: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
498:
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
497: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
498:
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
500: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data
507: );
508:
505: p_count => x_msg_count,
506: p_data => x_msg_data
507: );
508:
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: -- Standard call to get message count and if count=1, get the message
513: FND_MSG_PUB.Count_And_Get (
507: );
508:
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: -- Standard call to get message count and if count=1, get the message
513: FND_MSG_PUB.Count_And_Get (
514: p_encoded => FND_API.G_FALSE,
515: p_count => x_msg_count,
510: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: -- Standard call to get message count and if count=1, get the message
513: FND_MSG_PUB.Count_And_Get (
514: p_encoded => FND_API.G_FALSE,
515: p_count => x_msg_count,
516: p_data => x_msg_data
517: );
518:
517: );
518:
519: WHEN OTHERS THEN
520: ROLLBACK TO UPDATE_Ge_Hist_Log_PVT;
521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
522: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
523: THEN
524: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
525: END IF;
524: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
525: END IF;
526: -- Standard call to get message count and if count=1, get the message
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: End Update_Ge_Hist_Log;
544: -- Parameters
545: --
546: -- IN
547: -- p_api_version_number IN NUMBER Required
548: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
549: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
551: -- p_entity_history_log_id IN NUMBER
552: -- p_object_version_number IN NUMBER Optional Default = NULL
545: --
546: -- IN
547: -- p_api_version_number IN NUMBER Required
548: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
549: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
551: -- p_entity_history_log_id IN NUMBER
552: -- p_object_version_number IN NUMBER Optional Default = NULL
553: --
546: -- IN
547: -- p_api_version_number IN NUMBER Required
548: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
549: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
551: -- p_entity_history_log_id IN NUMBER
552: -- p_object_version_number IN NUMBER Optional Default = NULL
553: --
554: -- OUT
567: -- ==============================================================================
568:
569: PROCEDURE Delete_Ge_Hist_Log(
570: p_api_version_number IN NUMBER,
571: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
572: p_commit IN VARCHAR2 := FND_API.G_FALSE,
573: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
574: x_return_status OUT NOCOPY VARCHAR2,
575: x_msg_count OUT NOCOPY NUMBER,
568:
569: PROCEDURE Delete_Ge_Hist_Log(
570: p_api_version_number IN NUMBER,
571: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
572: p_commit IN VARCHAR2 := FND_API.G_FALSE,
573: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
574: x_return_status OUT NOCOPY VARCHAR2,
575: x_msg_count OUT NOCOPY NUMBER,
576: x_msg_data OUT NOCOPY VARCHAR2,
569: PROCEDURE Delete_Ge_Hist_Log(
570: p_api_version_number IN NUMBER,
571: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
572: p_commit IN VARCHAR2 := FND_API.G_FALSE,
573: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
574: x_return_status OUT NOCOPY VARCHAR2,
575: x_msg_count OUT NOCOPY NUMBER,
576: x_msg_data OUT NOCOPY VARCHAR2,
577: p_entity_history_log_id IN NUMBER,
587: -- Standard Start of API savepoint
588: SAVEPOINT delete_ge_hist_log_pvt;
589:
590: -- Standard call to check for call compatibility.
591: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
592: p_api_version_number,
593: l_api_name,
594: G_PKG_NAME)
595: THEN
592: p_api_version_number,
593: l_api_name,
594: G_PKG_NAME)
595: THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
598:
599:
600: -- Initialize message list if p_init_msg_list is set to TRUE.
597: END IF;
598:
599:
600: -- Initialize message list if p_init_msg_list is set to TRUE.
601: IF FND_API.to_Boolean( p_init_msg_list )
602: THEN
603: FND_MSG_PUB.initialize;
604: END IF;
605:
613:
614:
615:
616: -- Initialize API return status to SUCCESS
617: x_return_status := FND_API.G_RET_STS_SUCCESS;
618:
619: --
620: -- Api body
621: --
633: -- End of API body
634: --
635:
636: -- Standard check for p_commit
637: IF FND_API.to_Boolean( p_commit )
638: THEN
639: COMMIT WORK;
640: END IF;
641:
654: );
655: EXCEPTION
656:
657: WHEN PVX_UTILITY_PVT.resource_locked THEN
658: x_return_status := FND_API.g_ret_sts_error;
659: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
660:
661: WHEN FND_API.G_EXC_ERROR THEN
662: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
657: WHEN PVX_UTILITY_PVT.resource_locked THEN
658: x_return_status := FND_API.g_ret_sts_error;
659: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
660:
661: WHEN FND_API.G_EXC_ERROR THEN
662: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: -- Standard call to get message count and if count=1, get the message
665: FND_MSG_PUB.Count_And_Get (
659: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
660:
661: WHEN FND_API.G_EXC_ERROR THEN
662: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: -- Standard call to get message count and if count=1, get the message
665: FND_MSG_PUB.Count_And_Get (
666: p_encoded => FND_API.G_FALSE,
667: p_count => x_msg_count,
662: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: -- Standard call to get message count and if count=1, get the message
665: FND_MSG_PUB.Count_And_Get (
666: p_encoded => FND_API.G_FALSE,
667: p_count => x_msg_count,
668: p_data => x_msg_data
669: );
670:
667: p_count => x_msg_count,
668: p_data => x_msg_data
669: );
670:
671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
672: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: -- Standard call to get message count and if count=1, get the message
675: FND_MSG_PUB.Count_And_Get (
669: );
670:
671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
672: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: -- Standard call to get message count and if count=1, get the message
675: FND_MSG_PUB.Count_And_Get (
676: p_encoded => FND_API.G_FALSE,
677: p_count => x_msg_count,
672: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: -- Standard call to get message count and if count=1, get the message
675: FND_MSG_PUB.Count_And_Get (
676: p_encoded => FND_API.G_FALSE,
677: p_count => x_msg_count,
678: p_data => x_msg_data
679: );
680:
679: );
680:
681: WHEN OTHERS THEN
682: ROLLBACK TO DELETE_Ge_Hist_Log_PVT;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
685: THEN
686: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
687: END IF;
686: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
687: END IF;
688: -- Standard call to get message count and if count=1, get the message
689: FND_MSG_PUB.Count_And_Get (
690: p_encoded => FND_API.G_FALSE,
691: p_count => x_msg_count,
692: p_data => x_msg_data
693: );
694: End Delete_Ge_Hist_Log;
708: -- Parameters
709: --
710: -- IN
711: -- p_api_version_number IN NUMBER Required
712: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
713: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
714: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
715: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
716: --
709: --
710: -- IN
711: -- p_api_version_number IN NUMBER Required
712: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
713: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
714: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
715: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
716: --
717: -- OUT
710: -- IN
711: -- p_api_version_number IN NUMBER Required
712: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
713: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
714: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
715: -- p_ge_hist_log_rec IN ge_hist_log_rec_type Required
716: --
717: -- OUT
718: -- x_return_status OUT VARCHAR2
730: -- ==============================================================================
731:
732: PROCEDURE Lock_Ge_Hist_Log(
733: p_api_version_number IN NUMBER,
734: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
735:
736: x_return_status OUT NOCOPY VARCHAR2,
737: x_msg_count OUT NOCOPY NUMBER,
738: x_msg_data OUT NOCOPY VARCHAR2,
756: END IF;
757:
758:
759: -- Initialize message list if p_init_msg_list is set to TRUE.
760: IF FND_API.to_Boolean( p_init_msg_list )
761: THEN
762: FND_MSG_PUB.initialize;
763: END IF;
764:
764:
765:
766:
767: -- Standard call to check for call compatibility.
768: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
769: p_api_version_number,
770: l_api_name,
771: G_PKG_NAME)
772: THEN
769: p_api_version_number,
770: l_api_name,
771: G_PKG_NAME)
772: THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775:
776:
777:
775:
776:
777:
778: -- Initialize API return status to SUCCESS
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781:
782: ------------------------ lock -------------------------
783: Pv_Ge_Hist_Log_Pkg.Lock_Row(l_entity_history_log_id,p_object_version);
784:
785:
786: -------------------- finish --------------------------
787: FND_MSG_PUB.count_and_get(
788: p_encoded => FND_API.g_false,
789: p_count => x_msg_count,
790: p_data => x_msg_data);
791: IF (PV_DEBUG_HIGH_ON) THEN
792:
794: END IF;
795: EXCEPTION
796:
797: WHEN PVX_UTILITY_PVT.resource_locked THEN
798: x_return_status := FND_API.g_ret_sts_error;
799: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
800:
801: WHEN FND_API.G_EXC_ERROR THEN
802: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
797: WHEN PVX_UTILITY_PVT.resource_locked THEN
798: x_return_status := FND_API.g_ret_sts_error;
799: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
800:
801: WHEN FND_API.G_EXC_ERROR THEN
802: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: -- Standard call to get message count and if count=1, get the message
805: FND_MSG_PUB.Count_And_Get (
799: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
800:
801: WHEN FND_API.G_EXC_ERROR THEN
802: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: -- Standard call to get message count and if count=1, get the message
805: FND_MSG_PUB.Count_And_Get (
806: p_encoded => FND_API.G_FALSE,
807: p_count => x_msg_count,
802: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: -- Standard call to get message count and if count=1, get the message
805: FND_MSG_PUB.Count_And_Get (
806: p_encoded => FND_API.G_FALSE,
807: p_count => x_msg_count,
808: p_data => x_msg_data
809: );
810:
807: p_count => x_msg_count,
808: p_data => x_msg_data
809: );
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: -- Standard call to get message count and if count=1, get the message
815: FND_MSG_PUB.Count_And_Get (
809: );
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: -- Standard call to get message count and if count=1, get the message
815: FND_MSG_PUB.Count_And_Get (
816: p_encoded => FND_API.G_FALSE,
817: p_count => x_msg_count,
812: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: -- Standard call to get message count and if count=1, get the message
815: FND_MSG_PUB.Count_And_Get (
816: p_encoded => FND_API.G_FALSE,
817: p_count => x_msg_count,
818: p_data => x_msg_data
819: );
820:
819: );
820:
821: WHEN OTHERS THEN
822: ROLLBACK TO LOCK_Ge_Hist_Log_PVT;
823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
824: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
825: THEN
826: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
827: END IF;
826: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
827: END IF;
828: -- Standard call to get message count and if count=1, get the message
829: FND_MSG_PUB.Count_And_Get (
830: p_encoded => FND_API.G_FALSE,
831: p_count => x_msg_count,
832: p_data => x_msg_data
833: );
834: End Lock_Ge_Hist_Log;
843: IS
844: l_valid_flag VARCHAR2(1);
845:
846: BEGIN
847: x_return_status := FND_API.g_ret_sts_success;
848: IF p_validation_mode = JTF_PLSQL_API.g_create
849: AND p_ge_hist_log_rec.entity_history_log_id IS NOT NULL
850: THEN
851: l_valid_flag := PVX_UTILITY_PVT.check_uniqueness(
853: 'entity_history_log_id = ''' || p_ge_hist_log_rec.entity_history_log_id ||''''
854: );
855: END IF;
856:
857: IF l_valid_flag = FND_API.g_false THEN
858: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_entity_history_log_id_DUPLICATE');
859: x_return_status := FND_API.g_ret_sts_error;
860: END IF;
861:
855: END IF;
856:
857: IF l_valid_flag = FND_API.g_false THEN
858: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_entity_history_log_id_DUPLICATE');
859: x_return_status := FND_API.g_ret_sts_error;
860: END IF;
861:
862: END check_Ge_Hist_Log_Uk_Items;
863:
869: x_return_status OUT NOCOPY VARCHAR2
870: )
871: IS
872: BEGIN
873: x_return_status := FND_API.g_ret_sts_success;
874:
875: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
876:
877: /*
874:
875: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
876:
877: /*
878: IF p_ge_hist_log_rec.entity_history_log_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.entity_history_log_id IS NULL THEN
879: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENTITY_HISTORY_LOG_ID' );
880: x_return_status := FND_API.g_ret_sts_error;
881: END IF;
882:
876:
877: /*
878: IF p_ge_hist_log_rec.entity_history_log_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.entity_history_log_id IS NULL THEN
879: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENTITY_HISTORY_LOG_ID' );
880: x_return_status := FND_API.g_ret_sts_error;
881: END IF;
882:
883:
884: IF p_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.object_version_number IS NULL THEN
880: x_return_status := FND_API.g_ret_sts_error;
881: END IF;
882:
883:
884: IF p_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.object_version_number IS NULL THEN
885: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
886: x_return_status := FND_API.g_ret_sts_error;
887: END IF;
888: */
882:
883:
884: IF p_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.object_version_number IS NULL THEN
885: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
886: x_return_status := FND_API.g_ret_sts_error;
887: END IF;
888: */
889:
890: IF p_ge_hist_log_rec.arc_history_for_entity_code = FND_API.g_miss_char OR p_ge_hist_log_rec.arc_history_for_entity_code IS NULL THEN
886: x_return_status := FND_API.g_ret_sts_error;
887: END IF;
888: */
889:
890: IF p_ge_hist_log_rec.arc_history_for_entity_code = FND_API.g_miss_char OR p_ge_hist_log_rec.arc_history_for_entity_code IS NULL THEN
891: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_HISTORY_FOR_ENTITY_CODE' );
892: x_return_status := FND_API.g_ret_sts_error;
893: END IF;
894:
888: */
889:
890: IF p_ge_hist_log_rec.arc_history_for_entity_code = FND_API.g_miss_char OR p_ge_hist_log_rec.arc_history_for_entity_code IS NULL THEN
891: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_HISTORY_FOR_ENTITY_CODE' );
892: x_return_status := FND_API.g_ret_sts_error;
893: END IF;
894:
895:
896: IF p_ge_hist_log_rec.history_for_entity_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.history_for_entity_id IS NULL THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: END IF;
894:
895:
896: IF p_ge_hist_log_rec.history_for_entity_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.history_for_entity_id IS NULL THEN
897: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'HISTORY_FOR_ENTITY_ID' );
898: x_return_status := FND_API.g_ret_sts_error;
899: END IF;
900:
894:
895:
896: IF p_ge_hist_log_rec.history_for_entity_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.history_for_entity_id IS NULL THEN
897: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'HISTORY_FOR_ENTITY_ID' );
898: x_return_status := FND_API.g_ret_sts_error;
899: END IF;
900:
901:
902: IF p_ge_hist_log_rec.message_code = FND_API.g_miss_char OR p_ge_hist_log_rec.message_code IS NULL THEN
898: x_return_status := FND_API.g_ret_sts_error;
899: END IF;
900:
901:
902: IF p_ge_hist_log_rec.message_code = FND_API.g_miss_char OR p_ge_hist_log_rec.message_code IS NULL THEN
903: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MESSAGE_CODE' );
904: x_return_status := FND_API.g_ret_sts_error;
905: END IF;
906:
900:
901:
902: IF p_ge_hist_log_rec.message_code = FND_API.g_miss_char OR p_ge_hist_log_rec.message_code IS NULL THEN
903: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MESSAGE_CODE' );
904: x_return_status := FND_API.g_ret_sts_error;
905: END IF;
906:
907: IF p_ge_hist_log_rec.partner_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.partner_id IS NULL THEN
908: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
903: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MESSAGE_CODE' );
904: x_return_status := FND_API.g_ret_sts_error;
905: END IF;
906:
907: IF p_ge_hist_log_rec.partner_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.partner_id IS NULL THEN
908: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
909: x_return_status := FND_API.g_ret_sts_error;
910: END IF;
911:
905: END IF;
906:
907: IF p_ge_hist_log_rec.partner_id = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.partner_id IS NULL THEN
908: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
909: x_return_status := FND_API.g_ret_sts_error;
910: END IF;
911:
912:
913: IF p_ge_hist_log_rec.access_level_flag = FND_API.g_miss_char OR p_ge_hist_log_rec.access_level_flag IS NULL THEN
909: x_return_status := FND_API.g_ret_sts_error;
910: END IF;
911:
912:
913: IF p_ge_hist_log_rec.access_level_flag = FND_API.g_miss_char OR p_ge_hist_log_rec.access_level_flag IS NULL THEN
914: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ACCESS_LEVEL_FLAG' );
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917:
911:
912:
913: IF p_ge_hist_log_rec.access_level_flag = FND_API.g_miss_char OR p_ge_hist_log_rec.access_level_flag IS NULL THEN
914: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ACCESS_LEVEL_FLAG' );
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917:
918:
919: IF p_ge_hist_log_rec.interaction_level = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.interaction_level IS NULL THEN
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917:
918:
919: IF p_ge_hist_log_rec.interaction_level = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.interaction_level IS NULL THEN
920: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'INTERACTION_LEVEL' );
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923:
917:
918:
919: IF p_ge_hist_log_rec.interaction_level = FND_API.G_MISS_NUM OR p_ge_hist_log_rec.interaction_level IS NULL THEN
920: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'INTERACTION_LEVEL' );
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923:
924: ELSE
925:
923:
924: ELSE
925:
926:
927: IF p_ge_hist_log_rec.entity_history_log_id = FND_API.G_MISS_NUM THEN
928: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENTITY_HISTORY_LOG_ID' );
929: x_return_status := FND_API.g_ret_sts_error;
930: END IF;
931:
925:
926:
927: IF p_ge_hist_log_rec.entity_history_log_id = FND_API.G_MISS_NUM THEN
928: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ENTITY_HISTORY_LOG_ID' );
929: x_return_status := FND_API.g_ret_sts_error;
930: END IF;
931:
932:
933: IF p_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM THEN
929: x_return_status := FND_API.g_ret_sts_error;
930: END IF;
931:
932:
933: IF p_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM THEN
934: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
935: x_return_status := FND_API.g_ret_sts_error;
936: END IF;
937:
931:
932:
933: IF p_ge_hist_log_rec.object_version_number = FND_API.G_MISS_NUM THEN
934: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
935: x_return_status := FND_API.g_ret_sts_error;
936: END IF;
937:
938:
939: IF p_ge_hist_log_rec.arc_history_for_entity_code = FND_API.g_miss_char THEN
935: x_return_status := FND_API.g_ret_sts_error;
936: END IF;
937:
938:
939: IF p_ge_hist_log_rec.arc_history_for_entity_code = FND_API.g_miss_char THEN
940: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_HISTORY_FOR_ENTITY_CODE' );
941: x_return_status := FND_API.g_ret_sts_error;
942: END IF;
943:
937:
938:
939: IF p_ge_hist_log_rec.arc_history_for_entity_code = FND_API.g_miss_char THEN
940: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_HISTORY_FOR_ENTITY_CODE' );
941: x_return_status := FND_API.g_ret_sts_error;
942: END IF;
943:
944:
945: IF p_ge_hist_log_rec.history_for_entity_id = FND_API.G_MISS_NUM THEN
941: x_return_status := FND_API.g_ret_sts_error;
942: END IF;
943:
944:
945: IF p_ge_hist_log_rec.history_for_entity_id = FND_API.G_MISS_NUM THEN
946: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'HISTORY_FOR_ENTITY_ID' );
947: x_return_status := FND_API.g_ret_sts_error;
948: END IF;
949:
943:
944:
945: IF p_ge_hist_log_rec.history_for_entity_id = FND_API.G_MISS_NUM THEN
946: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'HISTORY_FOR_ENTITY_ID' );
947: x_return_status := FND_API.g_ret_sts_error;
948: END IF;
949:
950:
951: IF p_ge_hist_log_rec.message_code = FND_API.g_miss_char THEN
947: x_return_status := FND_API.g_ret_sts_error;
948: END IF;
949:
950:
951: IF p_ge_hist_log_rec.message_code = FND_API.g_miss_char THEN
952: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MESSAGE_CODE' );
953: x_return_status := FND_API.g_ret_sts_error;
954: END IF;
955:
949:
950:
951: IF p_ge_hist_log_rec.message_code = FND_API.g_miss_char THEN
952: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MESSAGE_CODE' );
953: x_return_status := FND_API.g_ret_sts_error;
954: END IF;
955:
956: IF p_ge_hist_log_rec.partner_id = FND_API.G_MISS_NUM THEN
957: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
952: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MESSAGE_CODE' );
953: x_return_status := FND_API.g_ret_sts_error;
954: END IF;
955:
956: IF p_ge_hist_log_rec.partner_id = FND_API.G_MISS_NUM THEN
957: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
958: x_return_status := FND_API.g_ret_sts_error;
959: END IF;
960:
954: END IF;
955:
956: IF p_ge_hist_log_rec.partner_id = FND_API.G_MISS_NUM THEN
957: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTNER_ID' );
958: x_return_status := FND_API.g_ret_sts_error;
959: END IF;
960:
961:
962: IF p_ge_hist_log_rec.access_level_flag = FND_API.g_miss_char THEN
958: x_return_status := FND_API.g_ret_sts_error;
959: END IF;
960:
961:
962: IF p_ge_hist_log_rec.access_level_flag = FND_API.g_miss_char THEN
963: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ACCESS_LEVEL_FLAG' );
964: x_return_status := FND_API.g_ret_sts_error;
965: END IF;
966:
960:
961:
962: IF p_ge_hist_log_rec.access_level_flag = FND_API.g_miss_char THEN
963: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ACCESS_LEVEL_FLAG' );
964: x_return_status := FND_API.g_ret_sts_error;
965: END IF;
966:
967:
968: IF p_ge_hist_log_rec.interaction_level = FND_API.G_MISS_NUM THEN
964: x_return_status := FND_API.g_ret_sts_error;
965: END IF;
966:
967:
968: IF p_ge_hist_log_rec.interaction_level = FND_API.G_MISS_NUM THEN
969: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'INTERACTION_LEVEL' );
970: x_return_status := FND_API.g_ret_sts_error;
971: END IF;
972: END IF;
966:
967:
968: IF p_ge_hist_log_rec.interaction_level = FND_API.G_MISS_NUM THEN
969: PVX_UTILITY_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'INTERACTION_LEVEL' );
970: x_return_status := FND_API.g_ret_sts_error;
971: END IF;
972: END IF;
973:
974: END check_Ge_Hist_Log_Req_Items;
980: x_return_status OUT NOCOPY VARCHAR2
981: )
982: IS
983: BEGIN
984: x_return_status := FND_API.g_ret_sts_success;
985:
986: -- Enter custom code here
987:
988: END check_Ge_Hist_Log_Fk_Items;
994: x_return_status OUT NOCOPY VARCHAR2
995: )
996: IS
997: BEGIN
998: x_return_status := FND_API.g_ret_sts_success;
999:
1000: -- Enter custom code here
1001:
1002: END check_Ge_Hist_Log_Lookup_Items;
1011: IS
1012: l_return_status VARCHAR2(1);
1013: BEGIN
1014:
1015: l_return_status := FND_API.g_ret_sts_success;
1016: -- Check Items Uniqueness API calls
1017:
1018: check_Ge_hist_log_Uk_Items(
1019: p_ge_hist_log_rec => p_ge_hist_log_rec,
1018: check_Ge_hist_log_Uk_Items(
1019: p_ge_hist_log_rec => p_ge_hist_log_rec,
1020: p_validation_mode => p_validation_mode,
1021: x_return_status => x_return_status);
1022: IF x_return_status <> FND_API.g_ret_sts_success THEN
1023: l_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025:
1026: -- Check Items Required/NOT NULL API calls
1019: p_ge_hist_log_rec => p_ge_hist_log_rec,
1020: p_validation_mode => p_validation_mode,
1021: x_return_status => x_return_status);
1022: IF x_return_status <> FND_API.g_ret_sts_success THEN
1023: l_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025:
1026: -- Check Items Required/NOT NULL API calls
1027:
1028: check_ge_hist_log_req_items(
1029: p_ge_hist_log_rec => p_ge_hist_log_rec,
1030: p_validation_mode => p_validation_mode,
1031: x_return_status => x_return_status);
1032: IF x_return_status <> FND_API.g_ret_sts_success THEN
1033: l_return_status := FND_API.g_ret_sts_error;
1034: END IF;
1035: -- Check Items Foreign Keys API calls
1036:
1029: p_ge_hist_log_rec => p_ge_hist_log_rec,
1030: p_validation_mode => p_validation_mode,
1031: x_return_status => x_return_status);
1032: IF x_return_status <> FND_API.g_ret_sts_success THEN
1033: l_return_status := FND_API.g_ret_sts_error;
1034: END IF;
1035: -- Check Items Foreign Keys API calls
1036:
1037: check_ge_hist_log_FK_items(
1036:
1037: check_ge_hist_log_FK_items(
1038: p_ge_hist_log_rec => p_ge_hist_log_rec,
1039: x_return_status => x_return_status);
1040: IF x_return_status <> FND_API.g_ret_sts_success THEN
1041: l_return_status := FND_API.g_ret_sts_error;
1042: END IF;
1043: -- Check Items Lookups
1044:
1037: check_ge_hist_log_FK_items(
1038: p_ge_hist_log_rec => p_ge_hist_log_rec,
1039: x_return_status => x_return_status);
1040: IF x_return_status <> FND_API.g_ret_sts_success THEN
1041: l_return_status := FND_API.g_ret_sts_error;
1042: END IF;
1043: -- Check Items Lookups
1044:
1045: check_ge_hist_log_Lookup_items(
1044:
1045: check_ge_hist_log_Lookup_items(
1046: p_ge_hist_log_rec => p_ge_hist_log_rec,
1047: x_return_status => x_return_status);
1048: IF x_return_status <> FND_API.g_ret_sts_success THEN
1049: l_return_status := FND_API.g_ret_sts_error;
1050: END IF;
1051:
1052: x_return_status := l_return_status;
1045: check_ge_hist_log_Lookup_items(
1046: p_ge_hist_log_rec => p_ge_hist_log_rec,
1047: x_return_status => x_return_status);
1048: IF x_return_status <> FND_API.g_ret_sts_success THEN
1049: l_return_status := FND_API.g_ret_sts_error;
1050: END IF;
1051:
1052: x_return_status := l_return_status;
1053:
1158: l_ge_hist_log_rec ge_hist_log_rec_type := p_ge_hist_log_rec;
1159: BEGIN
1160: -- Developers should put their code to default the record type
1161: -- e.g. IF p_campaign_rec.status_code IS NULL
1162: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
1163: -- l_campaign_rec.status_code := 'NEW' ;
1164: -- END IF ;
1165: --
1166: NULL ;
1170:
1171:
1172: PROCEDURE Validate_Ge_Hist_Log(
1173: p_api_version_number IN NUMBER,
1174: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1175: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1176: p_ge_hist_log_rec IN ge_hist_log_rec_type,
1177: p_validation_mode IN VARCHAR2,
1178: x_return_status OUT NOCOPY VARCHAR2,
1171:
1172: PROCEDURE Validate_Ge_Hist_Log(
1173: p_api_version_number IN NUMBER,
1174: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1175: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1176: p_ge_hist_log_rec IN ge_hist_log_rec_type,
1177: p_validation_mode IN VARCHAR2,
1178: x_return_status OUT NOCOPY VARCHAR2,
1179: x_msg_count OUT NOCOPY NUMBER,
1190: -- Standard Start of API savepoint
1191: SAVEPOINT validate_ge_hist_log_;
1192:
1193: -- Standard call to check for call compatibility.
1194: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1195: p_api_version_number,
1196: l_api_name,
1197: G_PKG_NAME)
1198: THEN
1195: p_api_version_number,
1196: l_api_name,
1197: G_PKG_NAME)
1198: THEN
1199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1200: END IF;
1201:
1202:
1203: -- Initialize message list if p_init_msg_list is set to TRUE.
1200: END IF;
1201:
1202:
1203: -- Initialize message list if p_init_msg_list is set to TRUE.
1204: IF FND_API.to_Boolean( p_init_msg_list )
1205: THEN
1206: FND_MSG_PUB.initialize;
1207: END IF;
1208:
1213: p_validation_mode => p_validation_mode,
1214: x_return_status => x_return_status
1215: );
1216:
1217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1214: x_return_status => x_return_status
1215: );
1216:
1217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222: END IF;
1215: );
1216:
1217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222: END IF;
1223:
1216:
1217: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222: END IF;
1223:
1224: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1236:
1237: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1238: Validate_ge_hist_log_Rec(
1239: p_api_version_number => 1.0,
1240: p_init_msg_list => FND_API.G_FALSE,
1241: x_return_status => x_return_status,
1242: x_msg_count => x_msg_count,
1243: x_msg_data => x_msg_data,
1244: p_ge_hist_log_rec => l_ge_hist_log_rec);
1242: x_msg_count => x_msg_count,
1243: x_msg_data => x_msg_data,
1244: p_ge_hist_log_rec => l_ge_hist_log_rec);
1245:
1246: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1247: RAISE FND_API.G_EXC_ERROR;
1248: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1243: x_msg_data => x_msg_data,
1244: p_ge_hist_log_rec => l_ge_hist_log_rec);
1245:
1246: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1247: RAISE FND_API.G_EXC_ERROR;
1248: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251: END IF;
1244: p_ge_hist_log_rec => l_ge_hist_log_rec);
1245:
1246: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1247: RAISE FND_API.G_EXC_ERROR;
1248: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251: END IF;
1252:
1245:
1246: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1247: RAISE FND_API.G_EXC_ERROR;
1248: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251: END IF;
1252:
1253:
1259:
1260:
1261:
1262: -- Initialize API return status to SUCCESS
1263: x_return_status := FND_API.G_RET_STS_SUCCESS;
1264:
1265:
1266: -- Debug Message
1267: IF (PV_DEBUG_HIGH_ON) THEN
1277: );
1278: EXCEPTION
1279:
1280: WHEN PVX_UTILITY_PVT.resource_locked THEN
1281: x_return_status := FND_API.g_ret_sts_error;
1282: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1283:
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1280: WHEN PVX_UTILITY_PVT.resource_locked THEN
1281: x_return_status := FND_API.g_ret_sts_error;
1282: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1283:
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: -- Standard call to get message count and if count=1, get the message
1288: FND_MSG_PUB.Count_And_Get (
1282: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1283:
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: -- Standard call to get message count and if count=1, get the message
1288: FND_MSG_PUB.Count_And_Get (
1289: p_encoded => FND_API.G_FALSE,
1290: p_count => x_msg_count,
1285: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: -- Standard call to get message count and if count=1, get the message
1288: FND_MSG_PUB.Count_And_Get (
1289: p_encoded => FND_API.G_FALSE,
1290: p_count => x_msg_count,
1291: p_data => x_msg_data
1292: );
1293:
1290: p_count => x_msg_count,
1291: p_data => x_msg_data
1292: );
1293:
1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1295: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: -- Standard call to get message count and if count=1, get the message
1298: FND_MSG_PUB.Count_And_Get (
1292: );
1293:
1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1295: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: -- Standard call to get message count and if count=1, get the message
1298: FND_MSG_PUB.Count_And_Get (
1299: p_encoded => FND_API.G_FALSE,
1300: p_count => x_msg_count,
1295: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: -- Standard call to get message count and if count=1, get the message
1298: FND_MSG_PUB.Count_And_Get (
1299: p_encoded => FND_API.G_FALSE,
1300: p_count => x_msg_count,
1301: p_data => x_msg_data
1302: );
1303:
1302: );
1303:
1304: WHEN OTHERS THEN
1305: ROLLBACK TO VALIDATE_Ge_Hist_Log_;
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1307: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1308: THEN
1309: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1310: END IF;
1309: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1310: END IF;
1311: -- Standard call to get message count and if count=1, get the message
1312: FND_MSG_PUB.Count_And_Get (
1313: p_encoded => FND_API.G_FALSE,
1314: p_count => x_msg_count,
1315: p_data => x_msg_data
1316: );
1317: End Validate_Ge_Hist_Log;
1318:
1319:
1320: PROCEDURE Validate_Ge_Hist_Log_Rec (
1321: p_api_version_number IN NUMBER,
1322: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1323: x_return_status OUT NOCOPY VARCHAR2,
1324: x_msg_count OUT NOCOPY NUMBER,
1325: x_msg_data OUT NOCOPY VARCHAR2,
1326: p_ge_hist_log_rec IN ge_hist_log_rec_type
1327: )
1328: IS
1329: BEGIN
1330: -- Initialize message list if p_init_msg_list is set to TRUE.
1331: IF FND_API.to_Boolean( p_init_msg_list )
1332: THEN
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335:
1335:
1336:
1337:
1338: -- Initialize API return status to SUCCESS
1339: x_return_status := FND_API.G_RET_STS_SUCCESS;
1340:
1341: -- Hint: Validate data
1342: -- If data not valid
1343: -- THEN
1340:
1341: -- Hint: Validate data
1342: -- If data not valid
1343: -- THEN
1344: -- x_return_status := FND_API.G_RET_STS_ERROR;
1345:
1346: -- Debug Message
1347: IF (PV_DEBUG_HIGH_ON) THEN
1348: