36: -- Parameters
37: --
38: -- IN
39: -- p_api_version_number IN NUMBER Required
40: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
41: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
42: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
43: -- p_imp_doc_rec IN imp_doc_rec_type Required
44: --
37: --
38: -- IN
39: -- p_api_version_number IN NUMBER Required
40: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
41: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
42: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
43: -- p_imp_doc_rec IN imp_doc_rec_type Required
44: --
45: -- OUT
38: -- IN
39: -- p_api_version_number IN NUMBER Required
40: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
41: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
42: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
43: -- p_imp_doc_rec IN imp_doc_rec_type Required
44: --
45: -- OUT
46: -- x_return_status OUT VARCHAR2
62: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
63:
64: PROCEDURE Create_Imp_Doc(
65: p_api_version_number IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
67: p_commit IN VARCHAR2 := FND_API.G_FALSE,
68: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
69:
70: x_return_status OUT NOCOPY VARCHAR2,
63:
64: PROCEDURE Create_Imp_Doc(
65: p_api_version_number IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
67: p_commit IN VARCHAR2 := FND_API.G_FALSE,
68: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
69:
70: x_return_status OUT NOCOPY VARCHAR2,
71: x_msg_count OUT NOCOPY NUMBER,
64: PROCEDURE Create_Imp_Doc(
65: p_api_version_number IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
67: p_commit IN VARCHAR2 := FND_API.G_FALSE,
68: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
69:
70: x_return_status OUT NOCOPY VARCHAR2,
71: x_msg_count OUT NOCOPY NUMBER,
72: x_msg_data OUT NOCOPY VARCHAR2,
79: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Imp_Doc';
80: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
81: l_return_status_full VARCHAR2(1);
82: l_object_version_number NUMBER := 1;
83: l_org_id NUMBER := FND_API.G_MISS_NUM;
84: l_imp_document_id NUMBER;
85: l_dummy NUMBER;
86:
87: CURSOR c_id IS
97: -- Standard Start of API savepoint
98: SAVEPOINT create_imp_doc_pvt;
99:
100: -- Standard call to check for call compatibility.
101: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
102: p_api_version_number,
103: l_api_name,
104: G_PKG_NAME)
105: THEN
102: p_api_version_number,
103: l_api_name,
104: G_PKG_NAME)
105: THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
108:
109: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message( 'The header id is:' || p_imp_doc_rec.import_list_header_id );END IF;
110:
108:
109: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message( 'The header id is:' || p_imp_doc_rec.import_list_header_id );END IF;
110:
111: -- Initialize message list if p_init_msg_list is set to TRUE.
112: IF FND_API.to_Boolean( p_init_msg_list )
113: THEN
114: FND_MSG_PUB.initialize;
115: END IF;
116:
125:
126:
127:
128: -- Initialize API return status to SUCCESS
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
130:
131: -- Local variable initialization
132:
133: IF p_imp_doc_rec.imp_document_id IS NULL OR p_imp_doc_rec.imp_document_id = FND_API.g_miss_num THEN
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
130:
131: -- Local variable initialization
132:
133: IF p_imp_doc_rec.imp_document_id IS NULL OR p_imp_doc_rec.imp_document_id = FND_API.g_miss_num THEN
134: LOOP
135: l_dummy := NULL;
136: OPEN c_id;
137: FETCH c_id INTO l_imp_document_id;
152:
153: IF FND_GLOBAL.USER_ID IS NULL
154: THEN
155: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
156: RAISE FND_API.G_EXC_ERROR;
157: END IF;
158:
159:
160:
157: END IF;
158:
159:
160:
161: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
162: THEN
163: -- Debug message
164: IF (AMS_DEBUG_HIGH_ON) THEN
165:
168:
169: -- Invoke validation procedures
170: --Validate_imp_doc(
171: --p_api_version_number => 1.0,
172: -- p_init_msg_list => FND_API.G_FALSE,
173: -- p_validation_level => p_validation_level,
174: -- p_validation_mode => JTF_PLSQL_API.g_create,
175: -- p_imp_doc_rec => p_imp_doc_rec,
176: -- x_return_status => x_return_status,
178: -- x_msg_data => x_msg_data);
179: NULL;
180: END IF;
181:
182: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186:
179: NULL;
180: END IF;
181:
182: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186:
187: -- Debug Message
208: p_file_size => p_imp_doc_rec.file_size
209: );
210:
211: x_imp_document_id := l_imp_document_id;
212: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: --
216: -- End of API body
209: );
210:
211: x_imp_document_id := l_imp_document_id;
212: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: --
216: -- End of API body
217: --
216: -- End of API body
217: --
218:
219: -- Standard check for p_commit
220: IF FND_API.to_Boolean( p_commit )
221: THEN
222: COMMIT WORK;
223: END IF;
224:
237: );
238: EXCEPTION
239:
240: WHEN AMS_Utility_PVT.resource_locked THEN
241: x_return_status := FND_API.g_ret_sts_error;
242: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
243:
244: WHEN FND_API.G_EXC_ERROR THEN
245: ROLLBACK TO CREATE_Imp_Doc_PVT;
240: WHEN AMS_Utility_PVT.resource_locked THEN
241: x_return_status := FND_API.g_ret_sts_error;
242: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
243:
244: WHEN FND_API.G_EXC_ERROR THEN
245: ROLLBACK TO CREATE_Imp_Doc_PVT;
246: x_return_status := FND_API.G_RET_STS_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
242: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
243:
244: WHEN FND_API.G_EXC_ERROR THEN
245: ROLLBACK TO CREATE_Imp_Doc_PVT;
246: x_return_status := FND_API.G_RET_STS_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE,
250: p_count => x_msg_count,
245: ROLLBACK TO CREATE_Imp_Doc_PVT;
246: x_return_status := FND_API.G_RET_STS_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE,
250: p_count => x_msg_count,
251: p_data => x_msg_data
252: );
253:
250: p_count => x_msg_count,
251: p_data => x_msg_data
252: );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255: ROLLBACK TO CREATE_Imp_Doc_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
252: );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255: ROLLBACK TO CREATE_Imp_Doc_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
255: ROLLBACK TO CREATE_Imp_Doc_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
261: p_data => x_msg_data
262: );
263:
262: );
263:
264: WHEN OTHERS THEN
265: ROLLBACK TO CREATE_Imp_Doc_PVT;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
268: THEN
269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
270: END IF;
269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
270: END IF;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
275: p_data => x_msg_data
276: );
277: End Create_Imp_Doc;
289: -- Parameters
290: --
291: -- IN
292: -- p_api_version_number IN NUMBER Required
293: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
294: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
295: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
296: -- p_imp_doc_rec IN imp_doc_rec_type Required
297: --
290: --
291: -- IN
292: -- p_api_version_number IN NUMBER Required
293: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
294: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
295: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
296: -- p_imp_doc_rec IN imp_doc_rec_type Required
297: --
298: -- OUT
291: -- IN
292: -- p_api_version_number IN NUMBER Required
293: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
294: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
295: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
296: -- p_imp_doc_rec IN imp_doc_rec_type Required
297: --
298: -- OUT
299: -- x_return_status OUT VARCHAR2
311: -- ==============================================================================
312:
313: PROCEDURE Update_Imp_Doc(
314: p_api_version_number IN NUMBER,
315: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
316: p_commit IN VARCHAR2 := FND_API.G_FALSE,
317: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
318:
319: x_return_status OUT NOCOPY VARCHAR2,
312:
313: PROCEDURE Update_Imp_Doc(
314: p_api_version_number IN NUMBER,
315: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
316: p_commit IN VARCHAR2 := FND_API.G_FALSE,
317: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
318:
319: x_return_status OUT NOCOPY VARCHAR2,
320: x_msg_count OUT NOCOPY NUMBER,
313: PROCEDURE Update_Imp_Doc(
314: p_api_version_number IN NUMBER,
315: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
316: p_commit IN VARCHAR2 := FND_API.G_FALSE,
317: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
318:
319: x_return_status OUT NOCOPY VARCHAR2,
320: x_msg_count OUT NOCOPY NUMBER,
321: x_msg_data OUT NOCOPY VARCHAR2,
347: -- Standard Start of API savepoint
348: SAVEPOINT update_imp_doc_pvt;
349:
350: -- Standard call to check for call compatibility.
351: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
352: p_api_version_number,
353: l_api_name,
354: G_PKG_NAME)
355: THEN
352: p_api_version_number,
353: l_api_name,
354: G_PKG_NAME)
355: THEN
356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
357: END IF;
358:
359:
360: -- Initialize message list if p_init_msg_list is set to TRUE.
357: END IF;
358:
359:
360: -- Initialize message list if p_init_msg_list is set to TRUE.
361: IF FND_API.to_Boolean( p_init_msg_list )
362: THEN
363: FND_MSG_PUB.initialize;
364: END IF;
365:
373:
374:
375:
376: -- Initialize API return status to SUCCESS
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: -- Debug Message
380: IF (AMS_DEBUG_HIGH_ON) THEN
381:
389: If ( c_get_Imp_Doc%NOTFOUND) THEN
390: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
391: p_token_name => 'INFO',
392: p_token_value => 'Imp_Doc') ;
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;
395: -- Debug Message
396: IF (AMS_DEBUG_HIGH_ON) THEN
397:
400: CLOSE c_get_Imp_Doc;
401:
402:
403: If (l_tar_imp_doc_rec.object_version_number is NULL or
404: l_tar_imp_doc_rec.object_version_number = FND_API.G_MISS_NUM ) Then
405: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
406: p_token_name => 'COLUMN',
407: p_token_value => 'Last_Update_Date') ;
408: raise FND_API.G_EXC_ERROR;
404: l_tar_imp_doc_rec.object_version_number = FND_API.G_MISS_NUM ) Then
405: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
406: p_token_name => 'COLUMN',
407: p_token_value => 'Last_Update_Date') ;
408: raise FND_API.G_EXC_ERROR;
409: End if;
410: -- Check Whether record has been changed by someone else
411: If (l_tar_imp_doc_rec.object_version_number <> l_ref_imp_doc_rec.object_version_number) Then
412: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
411: If (l_tar_imp_doc_rec.object_version_number <> l_ref_imp_doc_rec.object_version_number) Then
412: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
413: p_token_name => 'INFO',
414: p_token_value => 'Imp_Doc') ;
415: raise FND_API.G_EXC_ERROR;
416: End if;
417:
418:
419: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
415: raise FND_API.G_EXC_ERROR;
416: End if;
417:
418:
419: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
420: THEN
421: -- Debug message
422: IF (AMS_DEBUG_HIGH_ON) THEN
423:
426:
427: -- Invoke validation procedures
428: Validate_imp_doc(
429: p_api_version_number => 1.0,
430: p_init_msg_list => FND_API.G_FALSE,
431: p_validation_level => p_validation_level,
432: p_validation_mode => JTF_PLSQL_API.g_update,
433: p_imp_doc_rec => p_imp_doc_rec,
434: x_return_status => x_return_status,
435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data);
437: END IF;
438:
439: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442:
443:
436: x_msg_data => x_msg_data);
437: END IF;
438:
439: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442:
443:
444: -- Debug Message
465: -- End of API body.
466: --
467:
468: -- Standard check for p_commit
469: IF FND_API.to_Boolean( p_commit )
470: THEN
471: COMMIT WORK;
472: END IF;
473:
486: );
487: EXCEPTION
488:
489: WHEN AMS_Utility_PVT.resource_locked THEN
490: x_return_status := FND_API.g_ret_sts_error;
491: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO UPDATE_Imp_Doc_PVT;
489: WHEN AMS_Utility_PVT.resource_locked THEN
490: x_return_status := FND_API.g_ret_sts_error;
491: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO UPDATE_Imp_Doc_PVT;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: -- Standard call to get message count and if count=1, get the message
497: FND_MSG_PUB.Count_And_Get (
491: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO UPDATE_Imp_Doc_PVT;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: -- Standard call to get message count and if count=1, get the message
497: FND_MSG_PUB.Count_And_Get (
498: p_encoded => FND_API.G_FALSE,
499: p_count => x_msg_count,
494: ROLLBACK TO UPDATE_Imp_Doc_PVT;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: -- Standard call to get message count and if count=1, get the message
497: FND_MSG_PUB.Count_And_Get (
498: p_encoded => FND_API.G_FALSE,
499: p_count => x_msg_count,
500: p_data => x_msg_data
501: );
502:
499: p_count => x_msg_count,
500: p_data => x_msg_data
501: );
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO UPDATE_Imp_Doc_PVT;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: -- Standard call to get message count and if count=1, get the message
507: FND_MSG_PUB.Count_And_Get (
501: );
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO UPDATE_Imp_Doc_PVT;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: -- Standard call to get message count and if count=1, get the message
507: FND_MSG_PUB.Count_And_Get (
508: p_encoded => FND_API.G_FALSE,
509: p_count => x_msg_count,
504: ROLLBACK TO UPDATE_Imp_Doc_PVT;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: -- Standard call to get message count and if count=1, get the message
507: FND_MSG_PUB.Count_And_Get (
508: p_encoded => FND_API.G_FALSE,
509: p_count => x_msg_count,
510: p_data => x_msg_data
511: );
512:
511: );
512:
513: WHEN OTHERS THEN
514: ROLLBACK TO UPDATE_Imp_Doc_PVT;
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
517: THEN
518: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
519: END IF;
518: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
519: END IF;
520: -- Standard call to get message count and if count=1, get the message
521: FND_MSG_PUB.Count_And_Get (
522: p_encoded => FND_API.G_FALSE,
523: p_count => x_msg_count,
524: p_data => x_msg_data
525: );
526: End Update_Imp_Doc;
538: -- Parameters
539: --
540: -- IN
541: -- p_api_version_number IN NUMBER Required
542: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
543: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
544: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
545: -- p_imp_document_id IN NUMBER
546: -- p_object_version_number IN NUMBER Optional Default = NULL
539: --
540: -- IN
541: -- p_api_version_number IN NUMBER Required
542: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
543: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
544: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
545: -- p_imp_document_id IN NUMBER
546: -- p_object_version_number IN NUMBER Optional Default = NULL
547: --
540: -- IN
541: -- p_api_version_number IN NUMBER Required
542: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
543: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
544: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
545: -- p_imp_document_id IN NUMBER
546: -- p_object_version_number IN NUMBER Optional Default = NULL
547: --
548: -- OUT
561: -- ==============================================================================
562:
563: PROCEDURE Delete_Imp_Doc(
564: p_api_version_number IN NUMBER,
565: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
566: p_commit IN VARCHAR2 := FND_API.G_FALSE,
567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
568: x_return_status OUT NOCOPY VARCHAR2,
569: x_msg_count OUT NOCOPY NUMBER,
562:
563: PROCEDURE Delete_Imp_Doc(
564: p_api_version_number IN NUMBER,
565: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
566: p_commit IN VARCHAR2 := FND_API.G_FALSE,
567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
568: x_return_status OUT NOCOPY VARCHAR2,
569: x_msg_count OUT NOCOPY NUMBER,
570: x_msg_data OUT NOCOPY VARCHAR2,
563: PROCEDURE Delete_Imp_Doc(
564: p_api_version_number IN NUMBER,
565: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
566: p_commit IN VARCHAR2 := FND_API.G_FALSE,
567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
568: x_return_status OUT NOCOPY VARCHAR2,
569: x_msg_count OUT NOCOPY NUMBER,
570: x_msg_data OUT NOCOPY VARCHAR2,
571: p_imp_document_id IN NUMBER,
581: -- Standard Start of API savepoint
582: SAVEPOINT delete_imp_doc_pvt;
583:
584: -- Standard call to check for call compatibility.
585: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
586: p_api_version_number,
587: l_api_name,
588: G_PKG_NAME)
589: THEN
586: p_api_version_number,
587: l_api_name,
588: G_PKG_NAME)
589: THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592:
593:
594: -- Initialize message list if p_init_msg_list is set to TRUE.
591: END IF;
592:
593:
594: -- Initialize message list if p_init_msg_list is set to TRUE.
595: IF FND_API.to_Boolean( p_init_msg_list )
596: THEN
597: FND_MSG_PUB.initialize;
598: END IF;
599:
607:
608:
609:
610: -- Initialize API return status to SUCCESS
611: x_return_status := FND_API.G_RET_STS_SUCCESS;
612:
613: --
614: -- Api body
615: --
627: -- End of API body
628: --
629:
630: -- Standard check for p_commit
631: IF FND_API.to_Boolean( p_commit )
632: THEN
633: COMMIT WORK;
634: END IF;
635:
648: );
649: EXCEPTION
650:
651: WHEN AMS_Utility_PVT.resource_locked THEN
652: x_return_status := FND_API.g_ret_sts_error;
653: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
654:
655: WHEN FND_API.G_EXC_ERROR THEN
656: ROLLBACK TO DELETE_Imp_Doc_PVT;
651: WHEN AMS_Utility_PVT.resource_locked THEN
652: x_return_status := FND_API.g_ret_sts_error;
653: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
654:
655: WHEN FND_API.G_EXC_ERROR THEN
656: ROLLBACK TO DELETE_Imp_Doc_PVT;
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: -- Standard call to get message count and if count=1, get the message
659: FND_MSG_PUB.Count_And_Get (
653: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
654:
655: WHEN FND_API.G_EXC_ERROR THEN
656: ROLLBACK TO DELETE_Imp_Doc_PVT;
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: -- Standard call to get message count and if count=1, get the message
659: FND_MSG_PUB.Count_And_Get (
660: p_encoded => FND_API.G_FALSE,
661: p_count => x_msg_count,
656: ROLLBACK TO DELETE_Imp_Doc_PVT;
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: -- Standard call to get message count and if count=1, get the message
659: FND_MSG_PUB.Count_And_Get (
660: p_encoded => FND_API.G_FALSE,
661: p_count => x_msg_count,
662: p_data => x_msg_data
663: );
664:
661: p_count => x_msg_count,
662: p_data => x_msg_data
663: );
664:
665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666: ROLLBACK TO DELETE_Imp_Doc_PVT;
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: -- Standard call to get message count and if count=1, get the message
669: FND_MSG_PUB.Count_And_Get (
663: );
664:
665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666: ROLLBACK TO DELETE_Imp_Doc_PVT;
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: -- Standard call to get message count and if count=1, get the message
669: FND_MSG_PUB.Count_And_Get (
670: p_encoded => FND_API.G_FALSE,
671: p_count => x_msg_count,
666: ROLLBACK TO DELETE_Imp_Doc_PVT;
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: -- Standard call to get message count and if count=1, get the message
669: FND_MSG_PUB.Count_And_Get (
670: p_encoded => FND_API.G_FALSE,
671: p_count => x_msg_count,
672: p_data => x_msg_data
673: );
674:
673: );
674:
675: WHEN OTHERS THEN
676: ROLLBACK TO DELETE_Imp_Doc_PVT;
677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
678: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
679: THEN
680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
681: END IF;
680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
681: END IF;
682: -- Standard call to get message count and if count=1, get the message
683: FND_MSG_PUB.Count_And_Get (
684: p_encoded => FND_API.G_FALSE,
685: p_count => x_msg_count,
686: p_data => x_msg_data
687: );
688: End Delete_Imp_Doc;
702: -- Parameters
703: --
704: -- IN
705: -- p_api_version_number IN NUMBER Required
706: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
707: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
708: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
709: -- p_imp_doc_rec IN imp_doc_rec_type Required
710: --
703: --
704: -- IN
705: -- p_api_version_number IN NUMBER Required
706: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
707: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
708: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
709: -- p_imp_doc_rec IN imp_doc_rec_type Required
710: --
711: -- OUT
704: -- IN
705: -- p_api_version_number IN NUMBER Required
706: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
707: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
708: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
709: -- p_imp_doc_rec IN imp_doc_rec_type Required
710: --
711: -- OUT
712: -- x_return_status OUT VARCHAR2
724: -- ==============================================================================
725:
726: PROCEDURE Lock_Imp_Doc(
727: p_api_version_number IN NUMBER,
728: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
729:
730: x_return_status OUT NOCOPY VARCHAR2,
731: x_msg_count OUT NOCOPY NUMBER,
732: x_msg_data OUT NOCOPY VARCHAR2,
757: END IF;
758:
759:
760: -- Initialize message list if p_init_msg_list is set to TRUE.
761: IF FND_API.to_Boolean( p_init_msg_list )
762: THEN
763: FND_MSG_PUB.initialize;
764: END IF;
765:
765:
766:
767:
768: -- Standard call to check for call compatibility.
769: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
770: p_api_version_number,
771: l_api_name,
772: G_PKG_NAME)
773: THEN
770: p_api_version_number,
771: l_api_name,
772: G_PKG_NAME)
773: THEN
774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
775: END IF;
776:
777:
778:
776:
777:
778:
779: -- Initialize API return status to SUCCESS
780: x_return_status := FND_API.G_RET_STS_SUCCESS;
781:
782:
783: ------------------------ lock -------------------------
784:
798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
799: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
800: FND_MSG_PUB.add;
801: END IF;
802: RAISE FND_API.g_exc_error;
803: END IF;
804:
805: CLOSE c_imp_doc;
806:
805: CLOSE c_imp_doc;
806:
807: -------------------- finish --------------------------
808: FND_MSG_PUB.count_and_get(
809: p_encoded => FND_API.g_false,
810: p_count => x_msg_count,
811: p_data => x_msg_data);
812: IF (AMS_DEBUG_HIGH_ON) THEN
813:
815: END IF;
816: EXCEPTION
817:
818: WHEN AMS_Utility_PVT.resource_locked THEN
819: x_return_status := FND_API.g_ret_sts_error;
820: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
821:
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO LOCK_Imp_Doc_PVT;
818: WHEN AMS_Utility_PVT.resource_locked THEN
819: x_return_status := FND_API.g_ret_sts_error;
820: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
821:
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO LOCK_Imp_Doc_PVT;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825: -- Standard call to get message count and if count=1, get the message
826: FND_MSG_PUB.Count_And_Get (
820: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
821:
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO LOCK_Imp_Doc_PVT;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825: -- Standard call to get message count and if count=1, get the message
826: FND_MSG_PUB.Count_And_Get (
827: p_encoded => FND_API.G_FALSE,
828: p_count => x_msg_count,
823: ROLLBACK TO LOCK_Imp_Doc_PVT;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825: -- Standard call to get message count and if count=1, get the message
826: FND_MSG_PUB.Count_And_Get (
827: p_encoded => FND_API.G_FALSE,
828: p_count => x_msg_count,
829: p_data => x_msg_data
830: );
831:
828: p_count => x_msg_count,
829: p_data => x_msg_data
830: );
831:
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
833: ROLLBACK TO LOCK_Imp_Doc_PVT;
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835: -- Standard call to get message count and if count=1, get the message
836: FND_MSG_PUB.Count_And_Get (
830: );
831:
832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
833: ROLLBACK TO LOCK_Imp_Doc_PVT;
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835: -- Standard call to get message count and if count=1, get the message
836: FND_MSG_PUB.Count_And_Get (
837: p_encoded => FND_API.G_FALSE,
838: p_count => x_msg_count,
833: ROLLBACK TO LOCK_Imp_Doc_PVT;
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835: -- Standard call to get message count and if count=1, get the message
836: FND_MSG_PUB.Count_And_Get (
837: p_encoded => FND_API.G_FALSE,
838: p_count => x_msg_count,
839: p_data => x_msg_data
840: );
841:
840: );
841:
842: WHEN OTHERS THEN
843: ROLLBACK TO LOCK_Imp_Doc_PVT;
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
846: THEN
847: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
848: END IF;
847: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
848: END IF;
849: -- Standard call to get message count and if count=1, get the message
850: FND_MSG_PUB.Count_And_Get (
851: p_encoded => FND_API.G_FALSE,
852: p_count => x_msg_count,
853: p_data => x_msg_data
854: );
855: End Lock_Imp_Doc;
878: IS
879: l_valid_flag VARCHAR2(1);
880:
881: BEGIN
882: x_return_status := FND_API.g_ret_sts_success;
883: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
884: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
885: 'ams_imp_documents',
886: 'imp_document_id = ''' || p_imp_doc_rec.imp_document_id ||''''
892: ''' AND imp_document_id <> ' || p_imp_doc_rec.imp_document_id
893: );
894: END IF;
895:
896: IF l_valid_flag = FND_API.g_false THEN
897: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_imp_document_id_DUPLICATE');
898: x_return_status := FND_API.g_ret_sts_error;
899: RETURN;
900: END IF;
894: END IF;
895:
896: IF l_valid_flag = FND_API.g_false THEN
897: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_imp_document_id_DUPLICATE');
898: x_return_status := FND_API.g_ret_sts_error;
899: RETURN;
900: END IF;
901:
902: END check_Imp_Doc_Uk_Items;
909: x_return_status OUT NOCOPY VARCHAR2
910: )
911: IS
912: BEGIN
913: x_return_status := FND_API.g_ret_sts_success;
914:
915: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
916:
917:
914:
915: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
916:
917:
918: IF p_imp_doc_rec.imp_document_id = FND_API.G_MISS_NUM OR p_imp_doc_rec.imp_document_id IS NULL THEN
919: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
920: FND_MESSAGE.set_token('MISS_FIELD', 'IMP_DOCUMENT_ID' );
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
917:
918: IF p_imp_doc_rec.imp_document_id = FND_API.G_MISS_NUM OR p_imp_doc_rec.imp_document_id IS NULL THEN
919: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
920: FND_MESSAGE.set_token('MISS_FIELD', 'IMP_DOCUMENT_ID' );
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923:
924:
925: IF p_imp_doc_rec.last_updated_by = FND_API.G_MISS_NUM OR p_imp_doc_rec.last_updated_by IS NULL THEN
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923:
924:
925: IF p_imp_doc_rec.last_updated_by = FND_API.G_MISS_NUM OR p_imp_doc_rec.last_updated_by IS NULL THEN
926: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
927: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATED_BY' );
928: x_return_status := FND_API.g_ret_sts_error;
929: END IF;
924:
925: IF p_imp_doc_rec.last_updated_by = FND_API.G_MISS_NUM OR p_imp_doc_rec.last_updated_by IS NULL THEN
926: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
927: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATED_BY' );
928: x_return_status := FND_API.g_ret_sts_error;
929: END IF;
930:
931:
932: IF p_imp_doc_rec.created_by = FND_API.G_MISS_NUM OR p_imp_doc_rec.created_by IS NULL THEN
928: x_return_status := FND_API.g_ret_sts_error;
929: END IF;
930:
931:
932: IF p_imp_doc_rec.created_by = FND_API.G_MISS_NUM OR p_imp_doc_rec.created_by IS NULL THEN
933: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
934: FND_MESSAGE.set_token('MISS_FIELD', 'CREATED_BY' );
935: x_return_status := FND_API.g_ret_sts_error;
936: END IF;
931:
932: IF p_imp_doc_rec.created_by = FND_API.G_MISS_NUM OR p_imp_doc_rec.created_by IS NULL THEN
933: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
934: FND_MESSAGE.set_token('MISS_FIELD', 'CREATED_BY' );
935: x_return_status := FND_API.g_ret_sts_error;
936: END IF;
937:
938:
939: IF p_imp_doc_rec.last_update_login = FND_API.G_MISS_NUM OR p_imp_doc_rec.last_update_login IS NULL THEN
935: x_return_status := FND_API.g_ret_sts_error;
936: END IF;
937:
938:
939: IF p_imp_doc_rec.last_update_login = FND_API.G_MISS_NUM OR p_imp_doc_rec.last_update_login IS NULL THEN
940: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
941: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_LOGIN' );
942: x_return_status := FND_API.g_ret_sts_error;
943: END IF;
938:
939: IF p_imp_doc_rec.last_update_login = FND_API.G_MISS_NUM OR p_imp_doc_rec.last_update_login IS NULL THEN
940: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
941: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_LOGIN' );
942: x_return_status := FND_API.g_ret_sts_error;
943: END IF;
944:
945:
946: IF p_imp_doc_rec.last_update_date = FND_API.G_MISS_DATE OR p_imp_doc_rec.last_update_date IS NULL THEN
942: x_return_status := FND_API.g_ret_sts_error;
943: END IF;
944:
945:
946: IF p_imp_doc_rec.last_update_date = FND_API.G_MISS_DATE OR p_imp_doc_rec.last_update_date IS NULL THEN
947: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
948: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_DATE' );
949: x_return_status := FND_API.g_ret_sts_error;
950: END IF;
945:
946: IF p_imp_doc_rec.last_update_date = FND_API.G_MISS_DATE OR p_imp_doc_rec.last_update_date IS NULL THEN
947: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
948: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_DATE' );
949: x_return_status := FND_API.g_ret_sts_error;
950: END IF;
951:
952:
953: IF p_imp_doc_rec.creation_date = FND_API.G_MISS_DATE OR p_imp_doc_rec.creation_date IS NULL THEN
949: x_return_status := FND_API.g_ret_sts_error;
950: END IF;
951:
952:
953: IF p_imp_doc_rec.creation_date = FND_API.G_MISS_DATE OR p_imp_doc_rec.creation_date IS NULL THEN
954: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
955: FND_MESSAGE.set_token('MISS_FIELD', 'CREATION_DATE' );
956: x_return_status := FND_API.g_ret_sts_error;
957: END IF;
952:
953: IF p_imp_doc_rec.creation_date = FND_API.G_MISS_DATE OR p_imp_doc_rec.creation_date IS NULL THEN
954: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
955: FND_MESSAGE.set_token('MISS_FIELD', 'CREATION_DATE' );
956: x_return_status := FND_API.g_ret_sts_error;
957: END IF;
958:
959:
960: IF p_imp_doc_rec.import_list_header_id = FND_API.G_MISS_NUM OR p_imp_doc_rec.import_list_header_id IS NULL THEN
956: x_return_status := FND_API.g_ret_sts_error;
957: END IF;
958:
959:
960: IF p_imp_doc_rec.import_list_header_id = FND_API.G_MISS_NUM OR p_imp_doc_rec.import_list_header_id IS NULL THEN
961: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
962: FND_MESSAGE.set_token('MISS_FIELD', 'IMPORT_LIST_HEADER_ID' );
963: x_return_status := FND_API.g_ret_sts_error;
964: END IF;
959:
960: IF p_imp_doc_rec.import_list_header_id = FND_API.G_MISS_NUM OR p_imp_doc_rec.import_list_header_id IS NULL THEN
961: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
962: FND_MESSAGE.set_token('MISS_FIELD', 'IMPORT_LIST_HEADER_ID' );
963: x_return_status := FND_API.g_ret_sts_error;
964: END IF;
965:
966:
967: ELSE
966:
967: ELSE
968:
969:
970: IF p_imp_doc_rec.imp_document_id = FND_API.G_MISS_NUM THEN
971: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
972: FND_MESSAGE.set_token('MISS_FIELD', 'IMP_DOCUMENT_ID' );
973: x_return_status := FND_API.g_ret_sts_error;
974: RETURN;
969:
970: IF p_imp_doc_rec.imp_document_id = FND_API.G_MISS_NUM THEN
971: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
972: FND_MESSAGE.set_token('MISS_FIELD', 'IMP_DOCUMENT_ID' );
973: x_return_status := FND_API.g_ret_sts_error;
974: RETURN;
975: END IF;
976:
977:
974: RETURN;
975: END IF;
976:
977:
978: IF p_imp_doc_rec.last_updated_by = FND_API.G_MISS_NUM THEN
979: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
980: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATED_BY' );
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
977:
978: IF p_imp_doc_rec.last_updated_by = FND_API.G_MISS_NUM THEN
979: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
980: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATED_BY' );
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
983: END IF;
984:
985:
982: RETURN;
983: END IF;
984:
985:
986: IF p_imp_doc_rec.created_by = FND_API.G_MISS_NUM THEN
987: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
988: FND_MESSAGE.set_token('MISS_FIELD', 'CREATED_BY' );
989: x_return_status := FND_API.g_ret_sts_error;
990: RETURN;
985:
986: IF p_imp_doc_rec.created_by = FND_API.G_MISS_NUM THEN
987: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
988: FND_MESSAGE.set_token('MISS_FIELD', 'CREATED_BY' );
989: x_return_status := FND_API.g_ret_sts_error;
990: RETURN;
991: END IF;
992:
993:
990: RETURN;
991: END IF;
992:
993:
994: IF p_imp_doc_rec.last_update_login = FND_API.G_MISS_NUM THEN
995: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
996: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_LOGIN' );
997: x_return_status := FND_API.g_ret_sts_error;
998: RETURN;
993:
994: IF p_imp_doc_rec.last_update_login = FND_API.G_MISS_NUM THEN
995: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
996: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_LOGIN' );
997: x_return_status := FND_API.g_ret_sts_error;
998: RETURN;
999: END IF;
1000:
1001:
998: RETURN;
999: END IF;
1000:
1001:
1002: IF p_imp_doc_rec.last_update_date = FND_API.G_MISS_DATE THEN
1003: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
1004: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_DATE' );
1005: x_return_status := FND_API.g_ret_sts_error;
1006: RETURN;
1001:
1002: IF p_imp_doc_rec.last_update_date = FND_API.G_MISS_DATE THEN
1003: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
1004: FND_MESSAGE.set_token('MISS_FIELD', 'LAST_UPDATE_DATE' );
1005: x_return_status := FND_API.g_ret_sts_error;
1006: RETURN;
1007: END IF;
1008:
1009:
1006: RETURN;
1007: END IF;
1008:
1009:
1010: IF p_imp_doc_rec.creation_date = FND_API.G_MISS_DATE THEN
1011: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
1012: FND_MESSAGE.set_token('MISS_FIELD', 'CREATION_DATE' );
1013: x_return_status := FND_API.g_ret_sts_error;
1014: RETURN;
1009:
1010: IF p_imp_doc_rec.creation_date = FND_API.G_MISS_DATE THEN
1011: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
1012: FND_MESSAGE.set_token('MISS_FIELD', 'CREATION_DATE' );
1013: x_return_status := FND_API.g_ret_sts_error;
1014: RETURN;
1015: END IF;
1016:
1017:
1014: RETURN;
1015: END IF;
1016:
1017:
1018: IF p_imp_doc_rec.import_list_header_id = FND_API.G_MISS_NUM THEN
1019: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
1020: FND_MESSAGE.set_token('MISS_FIELD', 'IMPORT_LIST_HEADER_ID' );
1021: x_return_status := FND_API.g_ret_sts_error;
1022: RETURN;
1017:
1018: IF p_imp_doc_rec.import_list_header_id = FND_API.G_MISS_NUM THEN
1019: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_MISSING_FIELD');
1020: FND_MESSAGE.set_token('MISS_FIELD', 'IMPORT_LIST_HEADER_ID' );
1021: x_return_status := FND_API.g_ret_sts_error;
1022: RETURN;
1023: END IF;
1024: END IF;
1025:
1032: x_return_status OUT NOCOPY VARCHAR2
1033: )
1034: IS
1035: BEGIN
1036: x_return_status := FND_API.g_ret_sts_success;
1037:
1038: -- Enter custom code here
1039:
1040: END check_Imp_Doc_Fk_Items;
1046: x_return_status OUT NOCOPY VARCHAR2
1047: )
1048: IS
1049: BEGIN
1050: x_return_status := FND_API.g_ret_sts_success;
1051:
1052: -- Enter custom code here
1053:
1054: END check_Imp_Doc_Lookup_Items;
1068: check_Imp_doc_Uk_Items(
1069: p_imp_doc_rec => p_imp_doc_rec,
1070: p_validation_mode => p_validation_mode,
1071: x_return_status => x_return_status);
1072: IF x_return_status <> FND_API.g_ret_sts_success THEN
1073: RETURN;
1074: END IF;
1075:
1076: -- Check Items Required/NOT NULL API calls
1078: check_imp_doc_req_items(
1079: p_imp_doc_rec => p_imp_doc_rec,
1080: p_validation_mode => p_validation_mode,
1081: x_return_status => x_return_status);
1082: IF x_return_status <> FND_API.g_ret_sts_success THEN
1083: RETURN;
1084: END IF;
1085: -- Check Items Foreign Keys API calls
1086:
1086:
1087: check_imp_doc_FK_items(
1088: p_imp_doc_rec => p_imp_doc_rec,
1089: x_return_status => x_return_status);
1090: IF x_return_status <> FND_API.g_ret_sts_success THEN
1091: RETURN;
1092: END IF;
1093: -- Check Items Lookups
1094:
1094:
1095: check_imp_doc_Lookup_items(
1096: p_imp_doc_rec => p_imp_doc_rec,
1097: x_return_status => x_return_status);
1098: IF x_return_status <> FND_API.g_ret_sts_success THEN
1099: RETURN;
1100: END IF;
1101:
1102: END Check_imp_doc_Items;
1271: l_imp_doc_rec imp_doc_rec_type := p_imp_doc_rec;
1272: BEGIN
1273: -- Developers should put their code to default the record type
1274: -- e.g. IF p_campaign_rec.status_code IS NULL
1275: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
1276: -- l_campaign_rec.status_code := 'NEW' ;
1277: -- END IF ;
1278: --
1279: NULL ;
1283:
1284:
1285: PROCEDURE Validate_Imp_Doc(
1286: p_api_version_number IN NUMBER,
1287: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1288: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1289: p_imp_doc_rec IN imp_doc_rec_type,
1290: p_validation_mode IN VARCHAR2,
1291: x_return_status OUT NOCOPY VARCHAR2,
1284:
1285: PROCEDURE Validate_Imp_Doc(
1286: p_api_version_number IN NUMBER,
1287: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1288: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1289: p_imp_doc_rec IN imp_doc_rec_type,
1290: p_validation_mode IN VARCHAR2,
1291: x_return_status OUT NOCOPY VARCHAR2,
1292: x_msg_count OUT NOCOPY NUMBER,
1302: -- Standard Start of API savepoint
1303: SAVEPOINT validate_imp_doc_;
1304:
1305: -- Standard call to check for call compatibility.
1306: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1307: p_api_version_number,
1308: l_api_name,
1309: G_PKG_NAME)
1310: THEN
1307: p_api_version_number,
1308: l_api_name,
1309: G_PKG_NAME)
1310: THEN
1311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1312: END IF;
1313:
1314:
1315: -- Initialize message list if p_init_msg_list is set to TRUE.
1312: END IF;
1313:
1314:
1315: -- Initialize message list if p_init_msg_list is set to TRUE.
1316: IF FND_API.to_Boolean( p_init_msg_list )
1317: THEN
1318: FND_MSG_PUB.initialize;
1319: END IF;
1320:
1325: p_validation_mode => p_validation_mode,
1326: x_return_status => x_return_status
1327: );
1328:
1329: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1326: x_return_status => x_return_status
1327: );
1328:
1329: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334: END IF;
1327: );
1328:
1329: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334: END IF;
1335:
1328:
1329: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334: END IF;
1335:
1336: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1346:
1347: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1348: Validate_imp_doc_Rec(
1349: p_api_version_number => 1.0,
1350: p_init_msg_list => FND_API.G_FALSE,
1351: x_return_status => x_return_status,
1352: x_msg_count => x_msg_count,
1353: x_msg_data => x_msg_data,
1354: p_imp_doc_rec => l_imp_doc_rec);
1352: x_msg_count => x_msg_count,
1353: x_msg_data => x_msg_data,
1354: p_imp_doc_rec => l_imp_doc_rec);
1355:
1356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: END IF;
1353: x_msg_data => x_msg_data,
1354: p_imp_doc_rec => l_imp_doc_rec);
1355:
1356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: END IF;
1361: END IF;
1354: p_imp_doc_rec => l_imp_doc_rec);
1355:
1356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: END IF;
1361: END IF;
1362:
1355:
1356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: END IF;
1361: END IF;
1362:
1363:
1369:
1370:
1371:
1372: -- Initialize API return status to SUCCESS
1373: x_return_status := FND_API.G_RET_STS_SUCCESS;
1374:
1375:
1376: -- Debug Message
1377: IF (AMS_DEBUG_HIGH_ON) THEN
1387: );
1388: EXCEPTION
1389:
1390: WHEN AMS_Utility_PVT.resource_locked THEN
1391: x_return_status := FND_API.g_ret_sts_error;
1392: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1393:
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: ROLLBACK TO VALIDATE_Imp_Doc_;
1390: WHEN AMS_Utility_PVT.resource_locked THEN
1391: x_return_status := FND_API.g_ret_sts_error;
1392: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1393:
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: ROLLBACK TO VALIDATE_Imp_Doc_;
1396: x_return_status := FND_API.G_RET_STS_ERROR;
1397: -- Standard call to get message count and if count=1, get the message
1398: FND_MSG_PUB.Count_And_Get (
1392: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1393:
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: ROLLBACK TO VALIDATE_Imp_Doc_;
1396: x_return_status := FND_API.G_RET_STS_ERROR;
1397: -- Standard call to get message count and if count=1, get the message
1398: FND_MSG_PUB.Count_And_Get (
1399: p_encoded => FND_API.G_FALSE,
1400: p_count => x_msg_count,
1395: ROLLBACK TO VALIDATE_Imp_Doc_;
1396: x_return_status := FND_API.G_RET_STS_ERROR;
1397: -- Standard call to get message count and if count=1, get the message
1398: FND_MSG_PUB.Count_And_Get (
1399: p_encoded => FND_API.G_FALSE,
1400: p_count => x_msg_count,
1401: p_data => x_msg_data
1402: );
1403:
1400: p_count => x_msg_count,
1401: p_data => x_msg_data
1402: );
1403:
1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: ROLLBACK TO VALIDATE_Imp_Doc_;
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: -- Standard call to get message count and if count=1, get the message
1408: FND_MSG_PUB.Count_And_Get (
1402: );
1403:
1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: ROLLBACK TO VALIDATE_Imp_Doc_;
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: -- Standard call to get message count and if count=1, get the message
1408: FND_MSG_PUB.Count_And_Get (
1409: p_encoded => FND_API.G_FALSE,
1410: p_count => x_msg_count,
1405: ROLLBACK TO VALIDATE_Imp_Doc_;
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: -- Standard call to get message count and if count=1, get the message
1408: FND_MSG_PUB.Count_And_Get (
1409: p_encoded => FND_API.G_FALSE,
1410: p_count => x_msg_count,
1411: p_data => x_msg_data
1412: );
1413:
1412: );
1413:
1414: WHEN OTHERS THEN
1415: ROLLBACK TO VALIDATE_Imp_Doc_;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1418: THEN
1419: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1420: END IF;
1419: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1420: END IF;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1423: p_encoded => FND_API.G_FALSE,
1424: p_count => x_msg_count,
1425: p_data => x_msg_data
1426: );
1427: End Validate_Imp_Doc;
1428:
1429:
1430: PROCEDURE Validate_Imp_Doc_Rec (
1431: p_api_version_number IN NUMBER,
1432: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1433: x_return_status OUT NOCOPY VARCHAR2,
1434: x_msg_count OUT NOCOPY NUMBER,
1435: x_msg_data OUT NOCOPY VARCHAR2,
1436: p_imp_doc_rec IN imp_doc_rec_type
1437: )
1438: IS
1439: BEGIN
1440: -- Initialize message list if p_init_msg_list is set to TRUE.
1441: IF FND_API.to_Boolean( p_init_msg_list )
1442: THEN
1443: FND_MSG_PUB.initialize;
1444: END IF;
1445:
1445:
1446:
1447:
1448: -- Initialize API return status to SUCCESS
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: -- Hint: Validate data
1452: -- If data not valid
1453: -- THEN
1450:
1451: -- Hint: Validate data
1452: -- If data not valid
1453: -- THEN
1454: -- x_return_status := FND_API.G_RET_STS_ERROR;
1455:
1456: -- Debug Message
1457: IF (AMS_DEBUG_HIGH_ON) THEN
1458: