[Home] [Help]
135: -- Standard Beginning of Procedure/Function Logging
136: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
137: p_procedure_name => l_proc_name) ;
138: -- Initialize return status to success
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140: l_debug_info := 'Insert error details in inl_ship_holds.';
141: INL_LOGGING_PVT.Log_Statement (
142: p_module_name => g_module_name,
143: p_procedure_name => l_proc_name,
217: p_module_name => g_module_name, p_procedure_name => l_proc_name
218: )
219: ;
220: EXCEPTION
221: WHEN FND_API.G_EXC_ERROR THEN
222: -- Standard Expected Error Logging
223: INL_LOGGING_PVT.Log_ExpecError
224: (
225: p_module_name => g_module_name, p_procedure_name => l_proc_name
224: (
225: p_module_name => g_module_name, p_procedure_name => l_proc_name
226: )
227: ;
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: -- Standard Unexpected Error Logging
231: INL_LOGGING_PVT.Log_UnexpecError
232: (
225: p_module_name => g_module_name, p_procedure_name => l_proc_name
226: )
227: ;
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: -- Standard Unexpected Error Logging
231: INL_LOGGING_PVT.Log_UnexpecError
232: (
233: p_module_name => g_module_name, p_procedure_name => l_proc_name
232: (
233: p_module_name => g_module_name, p_procedure_name => l_proc_name
234: )
235: ;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: WHEN OTHERS THEN
238: -- Standard Unexpected Error Logging
239: INL_LOGGING_PVT.Log_UnexpecError
240: (
240: (
241: p_module_name => g_module_name, p_procedure_name => l_proc_name
242: )
243: ;
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
245: IF FND_MSG_PUB.Check_Msg_Level
246: (
247: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
248: )
305: p_module_name => g_module_name, p_procedure_name => l_proc_name
306: )
307: ;
308: -- Initialize return status to success
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310: l_debug_info := 'Delete Errors from previous validation.';
311: INL_LOGGING_PVT.Log_Statement (
312: p_module_name => g_module_name,
313: p_procedure_name => l_proc_name,
333: -- Standard End of Procedure/Function Logging
334: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
335: p_procedure_name => l_proc_name) ;
336: EXCEPTION
337: WHEN FND_API.G_EXC_ERROR THEN
338: -- Standard Expected Error Logging
339: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
340: p_procedure_name => l_proc_name) ;
341: x_return_status := FND_API.G_RET_STS_ERROR;
337: WHEN FND_API.G_EXC_ERROR THEN
338: -- Standard Expected Error Logging
339: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
340: p_procedure_name => l_proc_name) ;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343: -- Standard Unexpected Error Logging
344: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
345: p_procedure_name => l_proc_name) ;
338: -- Standard Expected Error Logging
339: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
340: p_procedure_name => l_proc_name) ;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343: -- Standard Unexpected Error Logging
344: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
345: p_procedure_name => l_proc_name) ;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343: -- Standard Unexpected Error Logging
344: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
345: p_procedure_name => l_proc_name) ;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: WHEN OTHERS THEN
348: -- Standard Unexpected Error Logging
349: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
350: p_procedure_name => l_proc_name) ;
347: WHEN OTHERS THEN
348: -- Standard Unexpected Error Logging
349: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
350: p_procedure_name => l_proc_name) ;
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
353: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
354: p_procedure_name => l_proc_name) ;
355: END IF;
360: -- Function : Complete a given LCM Shipment.
361: -- Pre-reqs : None
362: -- Parameters :
363: -- IN : p_api_version IN NUMBER
364: -- p_init_msg_list IN VARCHAR2 Default = FND_API.G_FALSE
365: -- p_commit IN VARCHAR2 Default = FND_API.G_FALSE
366: -- p_ship_header_id IN NUMBER
367: -- p_pending_matching_flag IN VARCHAR2
368: -- p_organization_id IN NUMBER
361: -- Pre-reqs : None
362: -- Parameters :
363: -- IN : p_api_version IN NUMBER
364: -- p_init_msg_list IN VARCHAR2 Default = FND_API.G_FALSE
365: -- p_commit IN VARCHAR2 Default = FND_API.G_FALSE
366: -- p_ship_header_id IN NUMBER
367: -- p_pending_matching_flag IN VARCHAR2
368: -- p_organization_id IN NUMBER
369: --
374: -- Version : Current version 1.0
375: --
376: -- Notes :
377: PROCEDURE Complete_Shipment (p_api_version IN NUMBER,
378: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
379: p_commit IN VARCHAR2 := FND_API.G_FALSE,
380: p_ship_header_id IN NUMBER,
381: p_pending_matching_flag IN VARCHAR2,
382: p_organization_id IN NUMBER,
375: --
376: -- Notes :
377: PROCEDURE Complete_Shipment (p_api_version IN NUMBER,
378: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
379: p_commit IN VARCHAR2 := FND_API.G_FALSE,
380: p_ship_header_id IN NUMBER,
381: p_pending_matching_flag IN VARCHAR2,
382: p_organization_id IN NUMBER,
383: x_return_status OUT NOCOPY VARCHAR2,
404: p_procedure_name => l_api_name) ;
405: -- Standard Start of API savepoint
406: SAVEPOINT Complete_Shipment_PVT;
407: -- Initialize message list if p_init_msg_list is set to TRUE.
408: IF FND_API.to_Boolean (p_init_msg_list) THEN
409: FND_MSG_PUB.initialize;
410: END IF;
411: -- Check for call compatibility.
412: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
408: IF FND_API.to_Boolean (p_init_msg_list) THEN
409: FND_MSG_PUB.initialize;
410: END IF;
411: -- Check for call compatibility.
412: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
413: p_caller_version_number => p_api_version,
414: p_api_name => l_api_name,
415: p_pkg_name => G_PKG_NAME) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
413: p_caller_version_number => p_api_version,
414: p_api_name => l_api_name,
415: p_pkg_name => G_PKG_NAME) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: -- Initialize API return status to success
420: x_return_status := FND_API.G_RET_STS_SUCCESS;
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: -- Initialize API return status to success
420: x_return_status := FND_API.G_RET_STS_SUCCESS;
421:
422: -------------------------------------------------
423: -- Required steps only for NOT Pending Shipments
424: -------------------------------------------------
440: ) ;
441:
442: -- Run integration procedure to transport LCM to RCV
443: INL_INTEGRATION_GRP.Export_toRCV (p_api_version => l_api_version,
444: p_init_msg_list => FND_API.G_FALSE,
445: p_commit => FND_API.G_FALSE,
446: p_ship_header_id => p_ship_header_id,
447: x_return_status => l_return_status,
448: x_msg_count => l_msg_count,
441:
442: -- Run integration procedure to transport LCM to RCV
443: INL_INTEGRATION_GRP.Export_toRCV (p_api_version => l_api_version,
444: p_init_msg_list => FND_API.G_FALSE,
445: p_commit => FND_API.G_FALSE,
446: p_ship_header_id => p_ship_header_id,
447: x_return_status => l_return_status,
448: x_msg_count => l_msg_count,
449: x_msg_data => l_msg_data);
448: x_msg_count => l_msg_count,
449: x_msg_data => l_msg_data);
450:
451: -- If any errors happen abort the process.
452: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
453: RAISE FND_API.G_EXC_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
449: x_msg_data => l_msg_data);
450:
451: -- If any errors happen abort the process.
452: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
453: RAISE FND_API.G_EXC_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
450:
451: -- If any errors happen abort the process.
452: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
453: RAISE FND_API.G_EXC_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
458: -- Blackbox scenario
451: -- If any errors happen abort the process.
452: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
453: RAISE FND_API.G_EXC_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
458: -- Blackbox scenario
459: ELSIF (NVL (l_pre_receive, 'N') = 'N') THEN
465: p_debug_info => l_debug_info
466: ) ;
467:
468: INL_INTEGRATION_GRP.Call_StampLC (p_api_version => l_api_version,
469: p_init_msg_list => FND_API.G_FALSE,
470: p_commit => FND_API.G_FALSE,
471: p_ship_header_id => p_ship_header_id,
472: x_return_status => l_return_status,
473: x_msg_count => l_msg_count,
466: ) ;
467:
468: INL_INTEGRATION_GRP.Call_StampLC (p_api_version => l_api_version,
469: p_init_msg_list => FND_API.G_FALSE,
470: p_commit => FND_API.G_FALSE,
471: p_ship_header_id => p_ship_header_id,
472: x_return_status => l_return_status,
473: x_msg_count => l_msg_count,
474: x_msg_data => l_msg_data);
473: x_msg_count => l_msg_count,
474: x_msg_data => l_msg_data);
475:
476: -- If any errors happen abort the process.
477: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
481: END IF;
474: x_msg_data => l_msg_data);
475:
476: -- If any errors happen abort the process.
477: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
481: END IF;
482: END IF;
475:
476: -- If any errors happen abort the process.
477: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
481: END IF;
482: END IF;
483:
476: -- If any errors happen abort the process.
477: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
481: END IF;
482: END IF;
483:
484: ----------------------------------------------
493: p_debug_info => l_debug_info
494: ) ;
495:
496: INL_INTEGRATION_GRP.Export_ToCST (p_api_version => 1.0,
497: p_init_msg_list => FND_API.G_FALSE,
498: p_commit => FND_API.G_FALSE,
499: p_ship_header_id => p_ship_header_id,
500: x_return_status => l_return_status,
501: x_msg_count => l_msg_count,
494: ) ;
495:
496: INL_INTEGRATION_GRP.Export_ToCST (p_api_version => 1.0,
497: p_init_msg_list => FND_API.G_FALSE,
498: p_commit => FND_API.G_FALSE,
499: p_ship_header_id => p_ship_header_id,
500: x_return_status => l_return_status,
501: x_msg_count => l_msg_count,
502: x_msg_data => l_msg_data) ;
501: x_msg_count => l_msg_count,
502: x_msg_data => l_msg_data) ;
503:
504: -- If any errors happen abort the process.
505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
506: RAISE FND_API.G_EXC_ERROR;
507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
502: x_msg_data => l_msg_data) ;
503:
504: -- If any errors happen abort the process.
505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
506: RAISE FND_API.G_EXC_ERROR;
507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510: END IF;
503:
504: -- If any errors happen abort the process.
505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
506: RAISE FND_API.G_EXC_ERROR;
507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510: END IF;
511:
504: -- If any errors happen abort the process.
505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
506: RAISE FND_API.G_EXC_ERROR;
507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510: END IF;
511:
512: l_debug_info := 'Update the current INL_SHIP_HEADERS_ALL.ship_status_code to COMPLETED';
522: last_update_date = SYSDATE
523: WHERE ship_header_id = p_ship_header_id;
524:
525: -- Standard check of p_commit.
526: IF FND_API.To_Boolean (p_commit) THEN
527: COMMIT WORK;
528: END IF;
529: -- Standard call to get message count and if count is 1, get message info.
530: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
526: IF FND_API.To_Boolean (p_commit) THEN
527: COMMIT WORK;
528: END IF;
529: -- Standard call to get message count and if count is 1, get message info.
530: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
531: p_count => x_msg_count,
532: p_data => x_msg_data) ;
533: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
534: p_procedure_name => l_api_name) ;
532: p_data => x_msg_data) ;
533: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
534: p_procedure_name => l_api_name) ;
535: EXCEPTION
536: WHEN FND_API.G_EXC_ERROR THEN
537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
538: p_procedure_name => l_api_name) ;
539: ROLLBACK TO Complete_Shipment_PVT;
540: x_return_status := FND_API.G_RET_STS_ERROR;
536: WHEN FND_API.G_EXC_ERROR THEN
537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
538: p_procedure_name => l_api_name) ;
539: ROLLBACK TO Complete_Shipment_PVT;
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
542: p_count => x_msg_count,
543: p_data => x_msg_data) ;
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
538: p_procedure_name => l_api_name) ;
539: ROLLBACK TO Complete_Shipment_PVT;
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
542: p_count => x_msg_count,
543: p_data => x_msg_data) ;
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
542: p_count => x_msg_count,
543: p_data => x_msg_data) ;
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
546: p_procedure_name => l_api_name) ;
547: ROLLBACK TO Complete_Shipment_PVT;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
546: p_procedure_name => l_api_name) ;
547: ROLLBACK TO Complete_Shipment_PVT;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
550: p_count => x_msg_count,
551: p_data => x_msg_data) ;
552: WHEN OTHERS THEN
545: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
546: p_procedure_name => l_api_name) ;
547: ROLLBACK TO Complete_Shipment_PVT;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
550: p_count => x_msg_count,
551: p_data => x_msg_data) ;
552: WHEN OTHERS THEN
553: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
552: WHEN OTHERS THEN
553: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
554: p_procedure_name => l_api_name) ;
555: ROLLBACK TO Complete_Shipment_PVT;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
558: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
559: p_procedure_name => l_api_name) ;
560: END IF;
557: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
558: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
559: p_procedure_name => l_api_name) ;
560: END IF;
561: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
562: p_count => x_msg_count,
563: p_data => x_msg_data) ;
564: END Complete_Shipment;
565:
602: p_debug_info => l_debug_info
603: ) ;
604:
605: EXCEPTION
606: WHEN FND_API.G_EXC_ERROR THEN
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: WHEN OTHERS THEN
603: ) ;
604:
605: EXCEPTION
606: WHEN FND_API.G_EXC_ERROR THEN
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604:
605: EXCEPTION
606: WHEN FND_API.G_EXC_ERROR THEN
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
605: EXCEPTION
606: WHEN FND_API.G_EXC_ERROR THEN
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: WHEN OTHERS THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
613: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
614: p_procedure_name => l_proc_name) ;
615: END IF;
619: -- Function : Set a given LCM Shipment to "Validation Required" status.
620: -- Pre-reqs : None
621: -- Parameters :
622: -- IN : p_api_version IN NUMBER Required
623: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
624: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
625: -- p_ship_header_id IN NUMBER Required
626: -- OUT x_msg_count OUT NOCOPY NUMBER
627: -- x_msg_data OUT NOCOPY VARCHAR2
620: -- Pre-reqs : None
621: -- Parameters :
622: -- IN : p_api_version IN NUMBER Required
623: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
624: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
625: -- p_ship_header_id IN NUMBER Required
626: -- OUT x_msg_count OUT NOCOPY NUMBER
627: -- x_msg_data OUT NOCOPY VARCHAR2
628: -- x_return_status OUT NOCOPY VARCHAR2
632: -- Notes :
633: PROCEDURE Set_ToRevalidate
634: (
635: p_api_version IN NUMBER,
636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
638: p_ship_header_id IN NUMBER,
639: x_msg_count OUT NOCOPY NUMBER,
640: x_msg_data OUT NOCOPY VARCHAR2,
633: PROCEDURE Set_ToRevalidate
634: (
635: p_api_version IN NUMBER,
636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
638: p_ship_header_id IN NUMBER,
639: x_msg_count OUT NOCOPY NUMBER,
640: x_msg_data OUT NOCOPY VARCHAR2,
641: x_return_status OUT NOCOPY VARCHAR2)
655: p_procedure_name => l_api_name) ;
656: -- Standard Start of API savepoint
657: SAVEPOINT Set_ToRevalidate_PVT;
658: -- Initialize message list if p_init_msg_list is set to TRUE.
659: IF FND_API.to_Boolean (p_init_msg_list) THEN
660: FND_MSG_PUB.initialize;
661: END IF;
662: -- Check for call compatibility.
663: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
659: IF FND_API.to_Boolean (p_init_msg_list) THEN
660: FND_MSG_PUB.initialize;
661: END IF;
662: -- Check for call compatibility.
663: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
664: p_caller_version_number => p_api_version,
665: p_api_name => l_api_name,
666: p_pkg_name => G_PKG_NAME) THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
663: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
664: p_caller_version_number => p_api_version,
665: p_api_name => l_api_name,
666: p_pkg_name => G_PKG_NAME) THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669: -- Initialize API return status to success
670: x_return_status := FND_API.G_RET_STS_SUCCESS;
671:
666: p_pkg_name => G_PKG_NAME) THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669: -- Initialize API return status to success
670: x_return_status := FND_API.G_RET_STS_SUCCESS;
671:
672: SELECT sh.ship_status_code
673: INTO l_ship_status
674: FROM inl_ship_headers sh
680: p_var_value => l_ship_status) ;
681: IF (l_ship_status = 'VALIDATED' OR l_ship_status = 'ON HOLD') THEN
682: Delete_Allocations (p_ship_header_id, l_return_status) ;
683: -- If any errors happen abort API.
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
681: IF (l_ship_status = 'VALIDATED' OR l_ship_status = 'ON HOLD') THEN
682: Delete_Allocations (p_ship_header_id, l_return_status) ;
683: -- If any errors happen abort API.
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689: -- Update Shipment status to VALIDATION REQ
682: Delete_Allocations (p_ship_header_id, l_return_status) ;
683: -- If any errors happen abort API.
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689: -- Update Shipment status to VALIDATION REQ
690: UPDATE inl_ship_headers
683: -- If any errors happen abort API.
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689: -- Update Shipment status to VALIDATION REQ
690: UPDATE inl_ship_headers
691: SET ship_status_code = 'VALIDATION REQ'
691: SET ship_status_code = 'VALIDATION REQ'
692: WHERE ship_header_id = p_ship_header_id;
693: END IF;
694: -- Standard check of p_commit.
695: IF FND_API.To_Boolean (p_commit) THEN
696: COMMIT WORK;
697: END IF;
698: -- Standard call to get message count and if count is 1, get message info.
699: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
695: IF FND_API.To_Boolean (p_commit) THEN
696: COMMIT WORK;
697: END IF;
698: -- Standard call to get message count and if count is 1, get message info.
699: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
700: p_count => x_msg_count,
701: p_data => x_msg_data) ;
702: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
703: p_procedure_name => l_api_name) ;
701: p_data => x_msg_data) ;
702: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
703: p_procedure_name => l_api_name) ;
704: EXCEPTION
705: WHEN FND_API.G_EXC_ERROR THEN
706: l_debug_info := 'MSG: '||SQLERRM;
707: INL_LOGGING_PVT.Log_Statement (
708: p_module_name => g_module_name,
709: p_procedure_name => l_api_name,
712:
713: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
714: p_procedure_name => l_api_name) ;
715: ROLLBACK TO Set_ToRevalidate_PVT;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
718: p_count => x_msg_count,
719: p_data => x_msg_data) ;
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
714: p_procedure_name => l_api_name) ;
715: ROLLBACK TO Set_ToRevalidate_PVT;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
718: p_count => x_msg_count,
719: p_data => x_msg_data) ;
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721: l_debug_info := 'MSG: '||SQLERRM;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
718: p_count => x_msg_count,
719: p_data => x_msg_data) ;
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721: l_debug_info := 'MSG: '||SQLERRM;
722: INL_LOGGING_PVT.Log_Statement (
723: p_module_name => g_module_name,
724: p_procedure_name => l_api_name,
727:
728: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
729: p_procedure_name => l_api_name) ;
730: ROLLBACK TO Set_ToRevalidate_PVT;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
733: p_count => x_msg_count,
734: p_data => x_msg_data) ;
735: WHEN OTHERS THEN
728: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
729: p_procedure_name => l_api_name) ;
730: ROLLBACK TO Set_ToRevalidate_PVT;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
733: p_count => x_msg_count,
734: p_data => x_msg_data) ;
735: WHEN OTHERS THEN
736: l_debug_info := 'MSG: '||SQLERRM;
742:
743: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
744: p_procedure_name => l_api_name) ;
745: ROLLBACK TO Set_ToRevalidate_PVT;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
748: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
749: p_procedure_name => l_api_name) ;
750: END IF;
747: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
748: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
749: p_procedure_name => l_api_name) ;
750: END IF;
751: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
752: p_count => x_msg_count,
753: p_data => x_msg_data) ;
754: END Set_ToRevalidate;
755: -- Utility name : Has_ShipLine
863: -- Function : Encapsulate the logic to call RCV routines and return the Available and Tolerable quantities.
864: -- Pre-reqs : None
865: -- Parameters :
866: -- IN : p_api_version IN NUMBER Required
867: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
868: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
869: -- p_ship_line_src_code IN VARCHAR2
870: -- p_parent_id IN NUMBER
871: -- p_available_quantity IN OUT NOCOPY NUMBER
864: -- Pre-reqs : None
865: -- Parameters :
866: -- IN : p_api_version IN NUMBER Required
867: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
868: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
869: -- p_ship_line_src_code IN VARCHAR2
870: -- p_parent_id IN NUMBER
871: -- p_available_quantity IN OUT NOCOPY NUMBER
872: -- p_tolerable_quantity IN OUT NOCOPY NUMBER
878: -- Version : Current version 1.0
879: --
880: -- Notes :
881: PROCEDURE Get_AvailableQty(p_api_version IN NUMBER,
882: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
883: p_commit IN VARCHAR2 := FND_API.G_FALSE,
884: p_ship_line_src_code IN VARCHAR2,
885: p_parent_id IN NUMBER,
886: p_available_quantity IN OUT NOCOPY NUMBER,
879: --
880: -- Notes :
881: PROCEDURE Get_AvailableQty(p_api_version IN NUMBER,
882: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
883: p_commit IN VARCHAR2 := FND_API.G_FALSE,
884: p_ship_line_src_code IN VARCHAR2,
885: p_parent_id IN NUMBER,
886: p_available_quantity IN OUT NOCOPY NUMBER,
887: p_tolerable_quantity IN OUT NOCOPY NUMBER,
925: -- Standard Beginning of Procedure/Function Logging
926: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
927: p_procedure_name => l_api_name) ;
928: -- Initialize message list if p_init_msg_list is set to TRUE.
929: IF FND_API.to_Boolean (p_init_msg_list) THEN
930: FND_MSG_PUB.initialize;
931: END IF;
932: -- Check for call compatibility.
933: IF NOT FND_API.Compatible_API_Call (l_api_version,
929: IF FND_API.to_Boolean (p_init_msg_list) THEN
930: FND_MSG_PUB.initialize;
931: END IF;
932: -- Check for call compatibility.
933: IF NOT FND_API.Compatible_API_Call (l_api_version,
934: p_api_version,
935: l_api_name,
936: G_PKG_NAME) THEN
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
933: IF NOT FND_API.Compatible_API_Call (l_api_version,
934: p_api_version,
935: l_api_name,
936: G_PKG_NAME) THEN
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END IF;
939: -- Initialize API return status to success
940: x_return_status := FND_API.G_RET_STS_SUCCESS;
941:
936: G_PKG_NAME) THEN
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END IF;
939: -- Initialize API return status to success
940: x_return_status := FND_API.G_RET_STS_SUCCESS;
941:
942: -- Define the transaction type and receipt source code
943: -- based the current Shipment Line Source Code.
944: IF p_ship_line_src_code = 'PO' THEN
1047: p_var_name => 'p_unit_of_measure',
1048: p_var_value => p_unit_of_measure) ;
1049:
1050: -- Standard check of p_commit.
1051: IF FND_API.To_Boolean (p_commit) THEN
1052: COMMIT WORK;
1053: END IF;
1054:
1055: -- Standard call to get message count and if count is 1, get message info.
1052: COMMIT WORK;
1053: END IF;
1054:
1055: -- Standard call to get message count and if count is 1, get message info.
1056: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1057: p_count => x_msg_count,
1058: p_data => x_msg_data) ;
1059:
1060: -- Standard End of Procedure/Function Logging
1060: -- Standard End of Procedure/Function Logging
1061: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1062: p_procedure_name => l_api_name) ;
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: -- Standard Expected Error Logging
1066: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1067: p_procedure_name => l_api_name) ;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: -- Standard Expected Error Logging
1066: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1067: p_procedure_name => l_api_name) ;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1070: p_count => x_msg_count,
1071: p_data => x_msg_data) ;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: -- Standard Expected Error Logging
1066: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1067: p_procedure_name => l_api_name) ;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1070: p_count => x_msg_count,
1071: p_data => x_msg_data) ;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- Standard Unexpected Error Logging
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1070: p_count => x_msg_count,
1071: p_data => x_msg_data) ;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- Standard Unexpected Error Logging
1074: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1075: p_procedure_name => l_api_name) ;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- Standard Unexpected Error Logging
1074: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1075: p_procedure_name => l_api_name) ;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1078: p_count => x_msg_count,
1079: p_data => x_msg_data) ;
1080: WHEN OTHERS THEN
1073: -- Standard Unexpected Error Logging
1074: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1075: p_procedure_name => l_api_name) ;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1078: p_count => x_msg_count,
1079: p_data => x_msg_data) ;
1080: WHEN OTHERS THEN
1081: -- Standard Unexpected Error Logging
1080: WHEN OTHERS THEN
1081: -- Standard Unexpected Error Logging
1082: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1083: p_procedure_name => l_api_name) ;
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1086: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1087: p_procedure_name => l_api_name) ;
1088: END IF;
1085: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1086: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1087: p_procedure_name => l_api_name) ;
1088: END IF;
1089: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1090: p_count => x_msg_count,
1091: p_data => x_msg_data) ;
1092: END Get_AvailableQty;
1093:
1145: -- Standard Beginning of Procedure/Function Logging
1146: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1147: p_procedure_name => l_proc_name) ;
1148: -- Initialize API return status to success
1149: x_return_status := FND_API.G_RET_STS_SUCCESS;
1150: -- Check if primary qty is ZERO
1151: IF NVL (p_primary_qty, 0) = 0 THEN
1152: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_SHIP_LN_QTY_ZERO') ;
1153: FND_MESSAGE.SET_TOKEN ('SHIP_LINE_NUM', p_ship_line_num) ;
1159: p_table_name => 'INL_SHIP_LINES',
1160: p_column_name => 'PRIMARY_QTY',
1161: p_column_value => 0,
1162: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
1163: p_encoded => FND_API.g_false), 1, 2000),
1164: p_error_message_name => 'INL_ERR_CHK_SHIP_LN_QTY_ZERO',
1165: p_token1_name => 'SHIP_LINE_NUM',
1166: p_token1_value => p_ship_line_num,
1167: p_token2_name => NULL,
1175: p_token6_name => NULL,
1176: p_token6_value => NULL,
1177: x_return_status => l_return_status) ;
1178: -- If unexpected errors happen abort
1179: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182: ELSE
1183: l_debug_info := 'INL_SHIPMENT_PVT.Get_AvailableQty';
1176: p_token6_value => NULL,
1177: x_return_status => l_return_status) ;
1178: -- If unexpected errors happen abort
1179: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182: ELSE
1183: l_debug_info := 'INL_SHIPMENT_PVT.Get_AvailableQty';
1184: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
1186: p_debug_info => l_debug_info ) ;
1187:
1188: -- Get the PO Avaliable and Tolerable Quantities
1189: INL_SHIPMENT_PVT.Get_AvailableQty(p_api_version => 1.0,
1190: p_init_msg_list => FND_API.G_FALSE,
1191: p_commit => FND_API.G_FALSE,
1192: p_ship_line_src_code => p_ship_line_src_type_code,
1193: p_parent_id => p_ship_line_src_id,
1194: p_available_quantity => x_available_quantity,
1187:
1188: -- Get the PO Avaliable and Tolerable Quantities
1189: INL_SHIPMENT_PVT.Get_AvailableQty(p_api_version => 1.0,
1190: p_init_msg_list => FND_API.G_FALSE,
1191: p_commit => FND_API.G_FALSE,
1192: p_ship_line_src_code => p_ship_line_src_type_code,
1193: p_parent_id => p_ship_line_src_id,
1194: p_available_quantity => x_available_quantity,
1195: p_tolerable_quantity => x_tolerable_quantity,
1290: p_table_name => 'INL_SHIP_LINES',
1291: p_column_name => 'PRIMARY_QTY',
1292: p_column_value => p_primary_qty,
1293: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
1294: p_encoded => FND_API.g_false), 1, 2000),
1295: p_error_message_name => l_error_message_name,
1296: p_token1_name => 'SHIP_LINE_NUM',
1297: p_token1_value => p_ship_line_num,
1298: p_token2_name => 'QTY',
1306: p_token6_name => NULL,
1307: p_token6_value => NULL,
1308: x_return_status => l_return_status) ;
1309: -- If unexpected errors happen abort
1310: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1312: END IF;
1313: END IF;
1314: ELSE
1307: p_token6_value => NULL,
1308: x_return_status => l_return_status) ;
1309: -- If unexpected errors happen abort
1310: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1312: END IF;
1313: END IF;
1314: ELSE
1315: -- Search for other Shipment lines in Validated Shipments
1369: p_table_name => 'INL_SHIP_LINES',
1370: p_column_name => NULL,
1371: p_column_value => NULL,
1372: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
1373: p_encoded => FND_API.g_false), 1, 2000),
1374: p_error_message_name => 'INL_ERR_CHK_SHIP_LN_QTY_OTH_L',
1375: p_token1_name => 'SRC_TYPE',
1376: p_token1_value => p_ship_line_src_type_code,
1377: p_token2_name => 'QTY',
1390: END IF;
1391: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1392: p_procedure_name => l_proc_name) ;
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: WHEN OTHERS THEN
1391: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1392: p_procedure_name => l_proc_name) ;
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: WHEN OTHERS THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: p_procedure_name => l_proc_name) ;
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: WHEN OTHERS THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: WHEN OTHERS THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1401: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: WHEN OTHERS THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1401: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
1402: END IF;
1403: END Check_AvailableQty;
1462: -- Standard Beginning of Procedure/Function Logging
1463: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
1464: p_procedure_name => l_proc_name) ;
1465: -- Initialize API return status to success
1466: x_return_status := FND_API.G_RET_STS_SUCCESS;
1467: -- Get the Price Tolerance from INL Setup Options
1468: SELECT po_price_toler_perc
1469: INTO l_po_price_toler_perc
1470: FROM inl_parameters
1560: p_table_name => 'INL_SHIP_LINES',
1561: p_column_name => 'PRIMARY_UNIT_PRICE',
1562: p_column_value => 0,
1563: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
1564: p_encoded => FND_API.g_false), 1, 2000),
1565: p_error_message_name => 'INL_ERR_NOT_DEF_PO_PRICE_TOLER',
1566: p_token1_name => 'SHIPLN_NUM',
1567: p_token1_value => p_ship_line_num,
1568: p_token2_name => NULL,
1596: p_table_name => 'INL_SHIP_LINES',
1597: p_column_name => 'PRIMARY_UNIT_PRICE',
1598: p_column_value => 0,
1599: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
1600: p_encoded => FND_API.g_false), 1, 2000),
1601: p_error_message_name => 'INL_ERR_PO_PRICE_TOLER',
1602: p_token1_name => 'SHIPLN_NUM',
1603: p_token1_value => p_ship_line_num,
1604: p_token2_name => 'TOLER',
1617: END IF;
1618: -- Standard End of Procedure/Function Logging
1619: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: WHEN OTHERS THEN
1618: -- Standard End of Procedure/Function Logging
1619: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1620: EXCEPTION
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1628: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1628: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1629: p_procedure_name => l_proc_name) ;
1630: END IF;
1635: -- Function : API for PO Price and Quantity Tolerances validation.
1636: -- Pre-reqs : None
1637: -- Parameters :
1638: -- IN : p_api_version IN NUMBER Required
1639: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1640: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1641: -- p_ship_header_id IN NUMBER
1642: -- p_ship_line_id IN NUMBER
1643: -- p_organization_id IN NUMBER
1636: -- Pre-reqs : None
1637: -- Parameters :
1638: -- IN : p_api_version IN NUMBER Required
1639: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1640: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1641: -- p_ship_header_id IN NUMBER
1642: -- p_ship_line_id IN NUMBER
1643: -- p_organization_id IN NUMBER
1644: -- p_ship_line_num IN NUMBER
1660: --
1661: -- Notes :
1662: PROCEDURE Check_PoTolerances(
1663: p_api_version IN NUMBER,
1664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1666: p_ship_header_id IN NUMBER,
1667: p_ship_line_id IN NUMBER,
1668: p_organization_id IN NUMBER,
1661: -- Notes :
1662: PROCEDURE Check_PoTolerances(
1663: p_api_version IN NUMBER,
1664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1666: p_ship_header_id IN NUMBER,
1667: p_ship_line_id IN NUMBER,
1668: p_organization_id IN NUMBER,
1669: p_ship_line_num IN NUMBER,
1694: -- Standard Start of API savepoint
1695: SAVEPOINT Check_PoTolerances_PVT;
1696:
1697: -- Initialize message list if p_init_msg_list is set to TRUE.
1698: IF FND_API.to_Boolean (p_init_msg_list) THEN
1699: FND_MSG_PUB.initialize;
1700: END IF;
1701:
1702: -- Check for call compatibility.
1699: FND_MSG_PUB.initialize;
1700: END IF;
1701:
1702: -- Check for call compatibility.
1703: IF NOT FND_API.Compatible_API_Call (l_api_version,
1704: p_api_version,
1705: l_api_name,
1706: G_PKG_NAME) THEN
1707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: IF NOT FND_API.Compatible_API_Call (l_api_version,
1704: p_api_version,
1705: l_api_name,
1706: G_PKG_NAME) THEN
1707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1708: END IF;
1709:
1710: -- Initialize API return status to success
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1708: END IF;
1709:
1710: -- Initialize API return status to success
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1712:
1713: -- Validate PO Quantity Available
1714: l_debug_info := 'Call Check_AvailableQty';
1715: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1729: p_ship_header_id => p_ship_header_id,
1730: x_return_status => l_return_status);
1731:
1732: -- If any errors happen abort the process.
1733: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1734: RAISE FND_API.G_EXC_ERROR;
1735: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: END IF;
1730: x_return_status => l_return_status);
1731:
1732: -- If any errors happen abort the process.
1733: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1734: RAISE FND_API.G_EXC_ERROR;
1735: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: END IF;
1738:
1731:
1732: -- If any errors happen abort the process.
1733: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1734: RAISE FND_API.G_EXC_ERROR;
1735: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- Standard call to get message count and if count is 1, get message info.
1732: -- If any errors happen abort the process.
1733: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1734: RAISE FND_API.G_EXC_ERROR;
1735: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- Standard call to get message count and if count is 1, get message info.
1740: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- Standard call to get message count and if count is 1, get message info.
1740: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1741: p_count => x_msg_count,
1742: p_data => x_msg_data) ;
1743:
1744: IF x_msg_count = 0 THEN
1763: x_return_status => l_return_status
1764: );
1765:
1766: -- If any errors happen abort the process.
1767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1768: RAISE FND_API.G_EXC_ERROR;
1769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771: END IF;
1764: );
1765:
1766: -- If any errors happen abort the process.
1767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1768: RAISE FND_API.G_EXC_ERROR;
1769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771: END IF;
1772: END IF;
1765:
1766: -- If any errors happen abort the process.
1767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1768: RAISE FND_API.G_EXC_ERROR;
1769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771: END IF;
1772: END IF;
1773:
1766: -- If any errors happen abort the process.
1767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1768: RAISE FND_API.G_EXC_ERROR;
1769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771: END IF;
1772: END IF;
1773:
1774: -- Standard check of p_commit.
1771: END IF;
1772: END IF;
1773:
1774: -- Standard check of p_commit.
1775: IF FND_API.To_Boolean (p_commit) THEN
1776: COMMIT WORK;
1777: END IF;
1778:
1779: -- Standard call to get message count and if count is 1, get message info.
1776: COMMIT WORK;
1777: END IF;
1778:
1779: -- Standard call to get message count and if count is 1, get message info.
1780: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1781: p_count => x_msg_count,
1782: p_data => x_msg_data) ;
1783:
1784: -- Standard End of Procedure/Function Logging
1784: -- Standard End of Procedure/Function Logging
1785: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1786: p_procedure_name => l_api_name) ;
1787: EXCEPTION
1788: WHEN FND_API.G_EXC_ERROR THEN
1789: -- Standard Expected Error Logging
1790: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1791: p_procedure_name => l_api_name) ;
1792: ROLLBACK TO Check_PoTolerances_PVT;
1789: -- Standard Expected Error Logging
1790: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1791: p_procedure_name => l_api_name) ;
1792: ROLLBACK TO Check_PoTolerances_PVT;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1795: p_count => x_msg_count,
1796: p_data => x_msg_data) ;
1797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1790: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1791: p_procedure_name => l_api_name) ;
1792: ROLLBACK TO Check_PoTolerances_PVT;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1795: p_count => x_msg_count,
1796: p_data => x_msg_data) ;
1797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1798: -- Standard Unexpected Error Logging
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1795: p_count => x_msg_count,
1796: p_data => x_msg_data) ;
1797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1798: -- Standard Unexpected Error Logging
1799: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1800: p_procedure_name => l_api_name) ;
1801: ROLLBACK TO Check_PoTolerances_PVT;
1798: -- Standard Unexpected Error Logging
1799: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1800: p_procedure_name => l_api_name) ;
1801: ROLLBACK TO Check_PoTolerances_PVT;
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1804: p_count => x_msg_count,
1805: p_data => x_msg_data) ;
1806: WHEN OTHERS THEN
1799: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1800: p_procedure_name => l_api_name) ;
1801: ROLLBACK TO Check_PoTolerances_PVT;
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1804: p_count => x_msg_count,
1805: p_data => x_msg_data) ;
1806: WHEN OTHERS THEN
1807: -- Standard Unexpected Error Logging
1807: -- Standard Unexpected Error Logging
1808: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1809: p_procedure_name => l_api_name) ;
1810: ROLLBACK TO Check_PoTolerances_PVT;
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1813: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1814: p_procedure_name => l_api_name) ;
1815: END IF;
1812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1813: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1814: p_procedure_name => l_api_name) ;
1815: END IF;
1816: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1817: p_count => x_msg_count,
1818: p_data => x_msg_data) ;
1819: END Check_PoTolerances;
1820:
1874: BEGIN
1875: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
1876: p_procedure_name => l_proc_name) ;
1877:
1878: x_return_status := FND_API.G_RET_STS_SUCCESS;
1879:
1880: x_ch_line_tot_amt_func_curr := 0;
1881: FOR l_ch_lines_rec IN c_ch_lines
1882: LOOP
1896: p_table_name => 'INL_CHARGE_LINES',
1897: p_column_name => 'CURRENCY_CODE',
1898: p_column_value => l_ch_lines_rec.CURRENCY_CODE,
1899: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
1900: p_encoded => FND_API.g_false), 1, 2000),
1901: p_error_message_name => 'INL_ERR_CHK_FRGN_CUR',
1902: p_token1_name => 'CLNUM',
1903: p_token1_value => l_ch_lines_rec.charge_line_num,
1904: p_token2_name => NULL,
1912: p_token6_name => NULL,
1913: p_token6_value => NULL,
1914: x_return_status => l_return_status) ;
1915: -- If unexpected errors happen abort
1916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: END IF;
1919: END IF;
1920: -- the flag l_ch_lines_rec.dflt_charge_amt_flag has been removed from table, and the original pkg
1913: p_token6_value => NULL,
1914: x_return_status => l_return_status) ;
1915: -- If unexpected errors happen abort
1916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: END IF;
1919: END IF;
1920: -- the flag l_ch_lines_rec.dflt_charge_amt_flag has been removed from table, and the original pkg
1921: -- fas been changed without the if clause, this is a temporarily wrk proc that will replace the actual
1923: END LOOP;
1924: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1925: p_procedure_name => l_proc_name) ;
1926: EXCEPTION
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: -- Standard Expected Error Logging
1929: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1930: p_procedure_name => l_proc_name) ;
1931: x_return_status := FND_API.G_RET_STS_ERROR;
1927: WHEN FND_API.G_EXC_ERROR THEN
1928: -- Standard Expected Error Logging
1929: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1930: p_procedure_name => l_proc_name) ;
1931: x_return_status := FND_API.G_RET_STS_ERROR;
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: -- Standard Unexpected Error Logging
1934: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1935: p_procedure_name => l_proc_name) ;
1928: -- Standard Expected Error Logging
1929: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1930: p_procedure_name => l_proc_name) ;
1931: x_return_status := FND_API.G_RET_STS_ERROR;
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: -- Standard Unexpected Error Logging
1934: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1935: p_procedure_name => l_proc_name) ;
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: -- Standard Unexpected Error Logging
1934: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1935: p_procedure_name => l_proc_name) ;
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1937: WHEN OTHERS THEN
1938: -- Standard Unexpected Error Logging
1939: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1940: p_procedure_name => l_proc_name) ;
1937: WHEN OTHERS THEN
1938: -- Standard Unexpected Error Logging
1939: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1940: p_procedure_name => l_proc_name) ;
1941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1943: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1944: p_procedure_name => l_proc_name) ;
1945: END IF;
1973: x_return_status OUT NOCOPY VARCHAR2)
1974: IS
1975:
1976: l_proc_name CONSTANT VARCHAR2 (30) := 'Validate_ShipLine';
1977: l_return_status VARCHAR2 (1) := FND_API.G_RET_STS_SUCCESS;
1978: l_debug_info VARCHAR2 (200);
1979: l_ch_line_tot_amt_func_curr NUMBER;
1980: l_pre_receive VARCHAR2 (1) ;
1981:
2009: BEGIN
2010: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2011: p_procedure_name => l_proc_name) ;
2012:
2013: x_return_status := FND_API.G_RET_STS_SUCCESS;
2014:
2015: FOR l_ship_lines_rec IN c_ship_lines
2016: LOOP
2017: l_debug_info := 'Validate Charge Line. Call Validate_ChargeLine';
2028: x_ch_line_tot_amt_func_curr => l_ch_line_tot_amt_func_curr,
2029: x_return_status => l_return_status);
2030:
2031: -- If unexpected errors happen abort API
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: x_return_status := l_return_status;
2034: RAISE FND_API.G_EXC_ERROR;
2035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2036: x_return_status := l_return_status;
2030:
2031: -- If unexpected errors happen abort API
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: x_return_status := l_return_status;
2034: RAISE FND_API.G_EXC_ERROR;
2035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2036: x_return_status := l_return_status;
2037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2038: END IF;
2031: -- If unexpected errors happen abort API
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: x_return_status := l_return_status;
2034: RAISE FND_API.G_EXC_ERROR;
2035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2036: x_return_status := l_return_status;
2037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2038: END IF;
2039:
2033: x_return_status := l_return_status;
2034: RAISE FND_API.G_EXC_ERROR;
2035: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2036: x_return_status := l_return_status;
2037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2038: END IF;
2039:
2040: l_debug_info := 'Getting which scenartio is setup in RCV Parameters. Pre_Receive or BlackBox';
2041: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2065: NULL,
2066: p_ship_header_id,
2067: l_return_status) ;
2068: -- If unexpected errors happen abort API
2069: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2070: x_return_status := l_return_status;
2071: RAISE FND_API.G_EXC_ERROR;
2072: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2073: x_return_status := l_return_status;
2067: l_return_status) ;
2068: -- If unexpected errors happen abort API
2069: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2070: x_return_status := l_return_status;
2071: RAISE FND_API.G_EXC_ERROR;
2072: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2073: x_return_status := l_return_status;
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2068: -- If unexpected errors happen abort API
2069: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2070: x_return_status := l_return_status;
2071: RAISE FND_API.G_EXC_ERROR;
2072: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2073: x_return_status := l_return_status;
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076: END IF;
2070: x_return_status := l_return_status;
2071: RAISE FND_API.G_EXC_ERROR;
2072: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2073: x_return_status := l_return_status;
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076: END IF;
2077:
2078: -- Required validation only for Source Type Code = PO
2097: x_return_status => l_return_status
2098: ) ;
2099:
2100: -- If unexpected errors happen abort API
2101: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2102: x_return_status := l_return_status;
2103: RAISE FND_API.G_EXC_ERROR;
2104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2105: x_return_status := l_return_status;
2099:
2100: -- If unexpected errors happen abort API
2101: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2102: x_return_status := l_return_status;
2103: RAISE FND_API.G_EXC_ERROR;
2104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2105: x_return_status := l_return_status;
2106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2107: END IF;
2100: -- If unexpected errors happen abort API
2101: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2102: x_return_status := l_return_status;
2103: RAISE FND_API.G_EXC_ERROR;
2104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2105: x_return_status := l_return_status;
2106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2107: END IF;
2108: END IF;
2102: x_return_status := l_return_status;
2103: RAISE FND_API.G_EXC_ERROR;
2104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2105: x_return_status := l_return_status;
2106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2107: END IF;
2108: END IF;
2109: END LOOP;
2110:
2110:
2111: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2112: p_procedure_name => l_proc_name) ;
2113: EXCEPTION
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: -- Standard Expected Error Logging
2116: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2117: p_procedure_name => l_proc_name) ;
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: -- Standard Expected Error Logging
2116: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2117: p_procedure_name => l_proc_name) ;
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: -- Standard Unexpected Error Logging
2121: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2122: p_procedure_name => l_proc_name) ;
2115: -- Standard Expected Error Logging
2116: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2117: p_procedure_name => l_proc_name) ;
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: -- Standard Unexpected Error Logging
2121: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2122: p_procedure_name => l_proc_name) ;
2123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: -- Standard Unexpected Error Logging
2121: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2122: p_procedure_name => l_proc_name) ;
2123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2124: WHEN OTHERS THEN
2125: -- Standard Unexpected Error Logging
2126: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2127: p_procedure_name => l_proc_name) ;
2124: WHEN OTHERS THEN
2125: -- Standard Unexpected Error Logging
2126: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2127: p_procedure_name => l_proc_name) ;
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2130: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2131: p_procedure_name => l_proc_name) ;
2132: END IF;
2148: IS
2149:
2150: l_proc_name CONSTANT VARCHAR2 (30) := 'Validate_ShipHdr';
2151:
2152: l_return_status VARCHAR2 (1) := FND_API.G_RET_STS_SUCCESS;
2153: l_debug_info VARCHAR2 (200);
2154: l_ship_type_id NUMBER;
2155: l_ship_status VARCHAR2 (30);
2156: l_inv_org_id NUMBER;
2177: BEGIN
2178: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2179: p_procedure_name => l_proc_name) ;
2180:
2181: x_return_status := FND_API.G_RET_STS_SUCCESS;
2182:
2183: l_debug_info := 'Get Shipment Header and Shipment Type information';
2184: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2185: p_procedure_name => l_proc_name,
2249: p_table_name => 'INL_SHIP_HEADERS',
2250: p_column_name => 'SHIP_DATE',
2251: p_column_value => TO_CHAR (l_ship_date),
2252: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
2253: p_encoded => FND_API.g_false), 1, 2000),
2254: p_error_message_name => 'INL_ERR_CHK_INV_SHIP_DATE',
2255: p_token1_name => 'SHIP_DATE',
2256: p_token1_value => TO_CHAR (l_ship_date),
2257: p_token2_name => NULL,
2265: p_token6_name => NULL,
2266: p_token6_value => NULL,
2267: x_return_status => l_return_status) ;
2268: -- If unexpected errors happen abort
2269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2271: END IF;
2272: END IF;
2273:
2266: p_token6_value => NULL,
2267: x_return_status => l_return_status) ;
2268: -- If unexpected errors happen abort
2269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2271: END IF;
2272: END IF;
2273:
2274: l_debug_info := 'Check if the current Shipment has Shipment Lines';
2286: p_table_name => 'INL_SHIP_HEADERS',
2287: p_column_name => 'SHIP_TYPE_ID',
2288: p_column_value => l_ship_type_id,
2289: p_error_message => SUBSTR (FND_MSG_PUB.Get (p_msg_index => FND_MSG_PUB.Count_Msg (),
2290: p_encoded => FND_API.g_false), 1, 2000),
2291: p_error_message_name => 'INL_ERR_CHK_NO_SHIP_LN',
2292: p_token1_name => NULL,
2293: p_token1_value => NULL,
2294: p_token2_name => NULL,
2302: p_token6_name => NULL,
2303: p_token6_value => NULL,
2304: x_return_status => l_return_status) ;
2305: -- If unexpected errors happen abort
2306: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2308: END IF;
2309: ELSIF l_in_adjust_flag = 'N' THEN
2310: l_debug_info := 'Get the functional currency code';
2303: p_token6_value => NULL,
2304: x_return_status => l_return_status) ;
2305: -- If unexpected errors happen abort
2306: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2308: END IF;
2309: ELSIF l_in_adjust_flag = 'N' THEN
2310: l_debug_info := 'Get the functional currency code';
2311: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_pkg_name,
2344: p_third_parties_allowed => l_shipt_third_parties_allowed,
2345: x_return_status => l_return_status) ;
2346:
2347: -- If unexpected errors happen abort API
2348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2349: x_return_status := l_return_status;
2350: RAISE FND_API.G_EXC_ERROR;
2351: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2352: x_return_status := l_return_status;
2346:
2347: -- If unexpected errors happen abort API
2348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2349: x_return_status := l_return_status;
2350: RAISE FND_API.G_EXC_ERROR;
2351: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2352: x_return_status := l_return_status;
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2347: -- If unexpected errors happen abort API
2348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2349: x_return_status := l_return_status;
2350: RAISE FND_API.G_EXC_ERROR;
2351: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2352: x_return_status := l_return_status;
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2355: END LOOP;
2349: x_return_status := l_return_status;
2350: RAISE FND_API.G_EXC_ERROR;
2351: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2352: x_return_status := l_return_status;
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2355: END LOOP;
2356: END IF;
2357: EXCEPTION
2354: END IF;
2355: END LOOP;
2356: END IF;
2357: EXCEPTION
2358: WHEN FND_API.G_EXC_ERROR THEN
2359: -- Standard Expected Error Logging
2360: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2361: p_procedure_name => l_proc_name) ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2358: WHEN FND_API.G_EXC_ERROR THEN
2359: -- Standard Expected Error Logging
2360: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2361: p_procedure_name => l_proc_name) ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2364: -- Standard Unexpected Error Logging
2365: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2366: p_procedure_name => l_proc_name) ;
2359: -- Standard Expected Error Logging
2360: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2361: p_procedure_name => l_proc_name) ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2364: -- Standard Unexpected Error Logging
2365: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2366: p_procedure_name => l_proc_name) ;
2367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2364: -- Standard Unexpected Error Logging
2365: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2366: p_procedure_name => l_proc_name) ;
2367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2368: WHEN OTHERS THEN
2369: -- Standard Unexpected Error Logging
2370: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2371: p_procedure_name => l_proc_name) ;
2368: WHEN OTHERS THEN
2369: -- Standard Unexpected Error Logging
2370: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2371: p_procedure_name => l_proc_name) ;
2372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2373: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2374: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
2375: END IF;
2376: END Validate_ShipHdr;
2418: p_in_param_value3 => x_org_id,
2419: p_in_param_name4 => 'x_return_status',
2420: p_in_param_value4 => x_return_status) ;
2421: -- Initialize API return status to success
2422: x_return_status := FND_API.G_RET_STS_SUCCESS;
2423: l_boolean := po_dates_s.val_open_period ( x_trx_date => l_trx_date,
2424: x_sob_id => x_sob_id,
2425: x_app_name => 'INV',
2426: x_org_id => x_org_id) ;
2438: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2439: p_procedure_name => l_proc_name) ;
2440: RETURN l_boolean_to_char;
2441: EXCEPTION
2442: WHEN FND_API.G_EXC_ERROR THEN
2443: -- Standard Expected Error Logging
2444: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2445: p_procedure_name => l_proc_name) ;
2446: x_return_status := FND_API.G_RET_STS_ERROR;
2442: WHEN FND_API.G_EXC_ERROR THEN
2443: -- Standard Expected Error Logging
2444: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2445: p_procedure_name => l_proc_name) ;
2446: x_return_status := FND_API.G_RET_STS_ERROR;
2447: RETURN 'FALSE';
2448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2449: -- Standard Unexpected Error Logging
2450: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2444: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2445: p_procedure_name => l_proc_name) ;
2446: x_return_status := FND_API.G_RET_STS_ERROR;
2447: RETURN 'FALSE';
2448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2449: -- Standard Unexpected Error Logging
2450: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2451: p_procedure_name => l_proc_name) ;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2449: -- Standard Unexpected Error Logging
2450: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2451: p_procedure_name => l_proc_name) ;
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: RETURN 'FALSE';
2454: WHEN OTHERS THEN
2455: -- Standard Unexpected Error Logging
2456: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2454: WHEN OTHERS THEN
2455: -- Standard Unexpected Error Logging
2456: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2457: p_procedure_name => l_proc_name) ;
2458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2459: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2460: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
2461: END IF;
2462: RETURN 'FALSE';
2467: -- Function : Controls the validation of a given LCM Shipment.
2468: -- Pre-reqs : None
2469: -- Parameters :
2470: -- IN : p_api_version IN NUMBER
2471: -- p_init_msg_list IN VARCHAR2 FND_API.G_FALSE
2472: -- p_commit IN VARCHAR2 FND_API.G_FALSE
2473: -- p_validation_level IN NUMBER FND_API.G_VALID_LEVEL_FULL
2474: -- p_ship_header_id IN NUMBER
2475: --
2468: -- Pre-reqs : None
2469: -- Parameters :
2470: -- IN : p_api_version IN NUMBER
2471: -- p_init_msg_list IN VARCHAR2 FND_API.G_FALSE
2472: -- p_commit IN VARCHAR2 FND_API.G_FALSE
2473: -- p_validation_level IN NUMBER FND_API.G_VALID_LEVEL_FULL
2474: -- p_ship_header_id IN NUMBER
2475: --
2476: -- OUT x_return_status OUT NOCOPY VARCHAR2
2469: -- Parameters :
2470: -- IN : p_api_version IN NUMBER
2471: -- p_init_msg_list IN VARCHAR2 FND_API.G_FALSE
2472: -- p_commit IN VARCHAR2 FND_API.G_FALSE
2473: -- p_validation_level IN NUMBER FND_API.G_VALID_LEVEL_FULL
2474: -- p_ship_header_id IN NUMBER
2475: --
2476: -- OUT x_return_status OUT NOCOPY VARCHAR2
2477: -- x_msg_count OUT NOCOPY NUMBER
2480: -- Version : Current version 1.0
2481: --
2482: -- Notes :
2483: PROCEDURE Validate_Shipment (p_api_version IN NUMBER,
2484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2487: p_ship_header_id IN NUMBER,
2488: x_return_status OUT NOCOPY VARCHAR2,
2481: --
2482: -- Notes :
2483: PROCEDURE Validate_Shipment (p_api_version IN NUMBER,
2484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2487: p_ship_header_id IN NUMBER,
2488: x_return_status OUT NOCOPY VARCHAR2,
2489: x_msg_count OUT NOCOPY NUMBER,
2482: -- Notes :
2483: PROCEDURE Validate_Shipment (p_api_version IN NUMBER,
2484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2487: p_ship_header_id IN NUMBER,
2488: x_return_status OUT NOCOPY VARCHAR2,
2489: x_msg_count OUT NOCOPY NUMBER,
2490: x_msg_data OUT NOCOPY VARCHAR2)
2492:
2493: l_api_name CONSTANT VARCHAR2 (30) := 'Validate_Shipment';
2494: l_api_version CONSTANT NUMBER := 1.0;
2495:
2496: l_return_status VARCHAR2 (1) := FND_API.G_RET_STS_SUCCESS;
2497: l_ship_status VARCHAR2 (30) ;
2498: l_exist_event VARCHAR2 (5) ;
2499: l_exist_status NUMBER := 0;
2500: l_debug_info VARCHAR2 (200);
2506: -- Standard Start of API savepoint
2507: SAVEPOINT Validate_Shipment_PVT;
2508:
2509: -- Initialize message list if p_init_msg_list is set to TRUE.
2510: IF FND_API.to_Boolean (p_init_msg_list) THEN
2511: FND_MSG_PUB.initialize;
2512: END IF;
2513:
2514: -- Check for call compatibility.
2511: FND_MSG_PUB.initialize;
2512: END IF;
2513:
2514: -- Check for call compatibility.
2515: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
2516: p_caller_version_number => p_api_version,
2517: p_api_name => l_api_name,
2518: p_pkg_name => G_PKG_NAME) THEN
2519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2515: IF NOT FND_API.Compatible_API_Call ( p_current_version_number => l_api_version,
2516: p_caller_version_number => p_api_version,
2517: p_api_name => l_api_name,
2518: p_pkg_name => G_PKG_NAME) THEN
2519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2520: END IF;
2521:
2522: -- Initialize API return status to success
2523: x_return_status := FND_API.G_RET_STS_SUCCESS;
2519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2520: END IF;
2521:
2522: -- Initialize API return status to success
2523: x_return_status := FND_API.G_RET_STS_SUCCESS;
2524:
2525: l_debug_info := 'Reset errors in inl_ship_holds table';
2526: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2527: p_procedure_name => l_api_name,
2531: p_charge_line_id => NULL,
2532: x_return_status => l_return_status) ;
2533:
2534: -- If unexpected errors happen abort API
2535: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2536: x_return_status := l_return_status;
2537: RAISE FND_API.G_EXC_ERROR;
2538: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2539: x_return_status := l_return_status;
2533:
2534: -- If unexpected errors happen abort API
2535: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2536: x_return_status := l_return_status;
2537: RAISE FND_API.G_EXC_ERROR;
2538: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2539: x_return_status := l_return_status;
2540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2541: END IF;
2534: -- If unexpected errors happen abort API
2535: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2536: x_return_status := l_return_status;
2537: RAISE FND_API.G_EXC_ERROR;
2538: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2539: x_return_status := l_return_status;
2540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2541: END IF;
2542:
2536: x_return_status := l_return_status;
2537: RAISE FND_API.G_EXC_ERROR;
2538: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2539: x_return_status := l_return_status;
2540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2541: END IF;
2542:
2543: l_debug_info := 'Shipment Header validation';
2544: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_pkg_name,
2548: Validate_ShipHdr ( p_ship_header_id => p_ship_header_id,
2549: x_return_status => l_return_status) ;
2550:
2551: -- If unexpected errors happen abort API
2552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2553: x_return_status := l_return_status;
2554: RAISE FND_API.G_EXC_ERROR;
2555: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2556: x_return_status := l_return_status;
2550:
2551: -- If unexpected errors happen abort API
2552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2553: x_return_status := l_return_status;
2554: RAISE FND_API.G_EXC_ERROR;
2555: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2556: x_return_status := l_return_status;
2557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2558: END IF;
2551: -- If unexpected errors happen abort API
2552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2553: x_return_status := l_return_status;
2554: RAISE FND_API.G_EXC_ERROR;
2555: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2556: x_return_status := l_return_status;
2557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2558: END IF;
2559:
2553: x_return_status := l_return_status;
2554: RAISE FND_API.G_EXC_ERROR;
2555: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2556: x_return_status := l_return_status;
2557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2558: END IF;
2559:
2560: l_debug_info := 'fnd_msg_pub.count_msg';
2561: INL_LOGGING_PVT.Log_Variable ( p_module_name => g_module_name,
2591: WHERE ship_header_id = p_ship_header_id;
2592: END IF;
2593:
2594: -- Standard check of p_commit.
2595: IF FND_API.To_Boolean (p_commit) THEN
2596: COMMIT WORK;
2597: END IF;
2598:
2599: -- Standard call to get message count and if count is 1, get message info.
2596: COMMIT WORK;
2597: END IF;
2598:
2599: -- Standard call to get message count and if count is 1, get message info.
2600: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2601: p_count => x_msg_count,
2602: p_data => x_msg_data) ;
2603:
2604: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2603:
2604: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
2605: p_procedure_name => l_api_name) ;
2606: EXCEPTION
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2609: p_procedure_name => l_api_name) ;
2610: ROLLBACK TO Validate_Shipment_PVT;
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2609: p_procedure_name => l_api_name) ;
2610: ROLLBACK TO Validate_Shipment_PVT;
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data) ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2608: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2609: p_procedure_name => l_api_name) ;
2610: ROLLBACK TO Validate_Shipment_PVT;
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data) ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data) ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2617: p_procedure_name => l_api_name) ;
2618: ROLLBACK TO Validate_Shipment_PVT;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2617: p_procedure_name => l_api_name) ;
2618: ROLLBACK TO Validate_Shipment_PVT;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2620: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2621: p_count => x_msg_count,
2622: p_data => x_msg_data) ;
2623: WHEN OTHERS THEN
2616: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2617: p_procedure_name => l_api_name) ;
2618: ROLLBACK TO Validate_Shipment_PVT;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2620: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2621: p_count => x_msg_count,
2622: p_data => x_msg_data) ;
2623: WHEN OTHERS THEN
2624: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2623: WHEN OTHERS THEN
2624: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2625: p_procedure_name => l_api_name) ;
2626: ROLLBACK TO Validate_Shipment_PVT;
2627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2628: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2629: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2630: p_procedure_name => l_api_name) ;
2631: END IF;
2628: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2629: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2630: p_procedure_name => l_api_name) ;
2631: END IF;
2632: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2633: p_count => x_msg_count,
2634: p_data => x_msg_data) ;
2635: END Validate_Shipment;
2636:
2662: -- Standard Beginning of Procedure/Function Logging
2663: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name,
2664: p_procedure_name => l_proc_name) ;
2665: -- Initialize return status to success
2666: x_return_status := FND_API.G_RET_STS_SUCCESS;
2667: l_debug_info := 'Insert in inl_associations.';
2668: INL_LOGGING_PVT.Log_Statement ( p_module_name => g_module_name,
2669: p_procedure_name => l_proc_name,
2670: p_debug_info => l_debug_info) ;
2712: p_procedure_name => l_proc_name
2713: )
2714: ;
2715: EXCEPTION
2716: WHEN FND_API.G_EXC_ERROR THEN
2717: -- Standard Expected Error Logging
2718: INL_LOGGING_PVT.Log_ExpecError
2719: (
2720: p_module_name => g_module_name,
2720: p_module_name => g_module_name,
2721: p_procedure_name => l_proc_name
2722: )
2723: ;
2724: x_return_status := FND_API.G_RET_STS_ERROR;
2725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2726: -- Standard Unexpected Error Logging
2727: INL_LOGGING_PVT.Log_UnexpecError
2728: (
2721: p_procedure_name => l_proc_name
2722: )
2723: ;
2724: x_return_status := FND_API.G_RET_STS_ERROR;
2725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2726: -- Standard Unexpected Error Logging
2727: INL_LOGGING_PVT.Log_UnexpecError
2728: (
2729: p_module_name => g_module_name,
2729: p_module_name => g_module_name,
2730: p_procedure_name => l_proc_name
2731: )
2732: ;
2733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2734: WHEN OTHERS THEN
2735: -- Standard Unexpected Error Logging
2736: INL_LOGGING_PVT.Log_UnexpecError
2737: (
2738: p_module_name => g_module_name,
2739: p_procedure_name => l_proc_name
2740: )
2741: ;
2742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2743: IF FND_MSG_PUB.Check_Msg_Level
2744: (
2745: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2746: )
2789: p_module_name => g_module_name,
2790: p_procedure_name => l_proc_name
2791: );
2792: -- Initialize return status to success
2793: x_return_status := FND_API.G_RET_STS_SUCCESS;
2794: --
2795: -- Get Max val to tax line num
2796: --
2797: IF p_TxLn_Assoc.tax_line_num IS NULL THEN
2897: p_new_line_id => x_new_tax_line_id,
2898: x_return_status => l_return_status
2899: )
2900: ;
2901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2898: x_return_status => l_return_status
2899: )
2900: ;
2901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906: END IF;
2899: )
2900: ;
2901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906: END IF;
2907: -- Standard End of Procedure/Function Logging
2900: ;
2901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906: END IF;
2907: -- Standard End of Procedure/Function Logging
2908: INL_LOGGING_PVT.Log_EndProc(
2909: p_module_name => g_module_name,
2910: p_procedure_name => l_proc_name
2911: );
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_ERROR THEN
2914: -- Standard Expected Error Logging
2915: INL_LOGGING_PVT.Log_ExpecError(
2916: p_module_name => g_module_name,
2917: p_procedure_name => l_proc_name
2915: INL_LOGGING_PVT.Log_ExpecError(
2916: p_module_name => g_module_name,
2917: p_procedure_name => l_proc_name
2918: );
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2921: -- Standard Unexpected Error Logging
2922: INL_LOGGING_PVT.Log_UnexpecError(
2923: p_module_name => g_module_name,
2916: p_module_name => g_module_name,
2917: p_procedure_name => l_proc_name
2918: );
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2921: -- Standard Unexpected Error Logging
2922: INL_LOGGING_PVT.Log_UnexpecError(
2923: p_module_name => g_module_name,
2924: p_procedure_name => l_proc_name
2922: INL_LOGGING_PVT.Log_UnexpecError(
2923: p_module_name => g_module_name,
2924: p_procedure_name => l_proc_name
2925: );
2926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2927: WHEN OTHERS THEN
2928: -- Standard Unexpected Error Logging
2929: INL_LOGGING_PVT.Log_UnexpecError(
2930: p_module_name => g_module_name,
2929: INL_LOGGING_PVT.Log_UnexpecError(
2930: p_module_name => g_module_name,
2931: p_procedure_name => l_proc_name
2932: );
2933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2934: IF FND_MSG_PUB.Check_Msg_Level(
2935: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2936: ) THEN
2937: FND_MSG_PUB.Add_Exc_Msg(
3045: p_module_name => g_module_name,
3046: p_procedure_name => l_proc_name
3047: );
3048: -- Initialize return status to success
3049: x_return_status := FND_API.G_RET_STS_SUCCESS;
3050: l_debug_info := 'Getting existent estimated TaxLine.';
3051: INL_LOGGING_PVT.Log_Statement (
3052: p_module_name => g_module_name,
3053: p_procedure_name => l_proc_name,
3099: p_adjustment_num => p_adjustment_num,
3100: x_new_tax_line_id => l_new_tax_line_id,
3101: x_return_status => l_return_status
3102: ) ;
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3100: x_new_tax_line_id => l_new_tax_line_id,
3101: x_return_status => l_return_status
3102: ) ;
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3108: END LOOP;
3101: x_return_status => l_return_status
3102: ) ;
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3108: END LOOP;
3109: END IF;
3102: ) ;
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3108: END LOOP;
3109: END IF;
3110: -- Standard End of Procedure/Function Logging
3112: p_module_name => g_module_name,
3113: p_procedure_name => l_proc_name
3114: ) ;
3115: EXCEPTION
3116: WHEN FND_API.G_EXC_ERROR THEN
3117: -- Standard Expected Error Logging
3118: INL_LOGGING_PVT.Log_ExpecError (
3119: p_module_name => g_module_name,
3120: p_procedure_name => l_proc_name
3118: INL_LOGGING_PVT.Log_ExpecError (
3119: p_module_name => g_module_name,
3120: p_procedure_name => l_proc_name
3121: ) ;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: -- Standard Unexpected Error Logging
3125: INL_LOGGING_PVT.Log_UnexpecError (
3126: p_module_name => g_module_name,
3119: p_module_name => g_module_name,
3120: p_procedure_name => l_proc_name
3121: ) ;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3124: -- Standard Unexpected Error Logging
3125: INL_LOGGING_PVT.Log_UnexpecError (
3126: p_module_name => g_module_name,
3127: p_procedure_name => l_proc_name
3125: INL_LOGGING_PVT.Log_UnexpecError (
3126: p_module_name => g_module_name,
3127: p_procedure_name => l_proc_name
3128: ) ;
3129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3130: WHEN OTHERS THEN
3131: -- Standard Unexpected Error Logging
3132: INL_LOGGING_PVT.Log_UnexpecError (
3133: p_module_name => g_module_name,
3132: INL_LOGGING_PVT.Log_UnexpecError (
3133: p_module_name => g_module_name,
3134: p_procedure_name => l_proc_name
3135: ) ;
3136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3137: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3138: FND_MSG_PUB.Add_Exc_Msg (
3139: p_pkg_name => g_pkg_name,
3140: p_procedure_name => l_proc_name
3149: -- Function : Create Adjustments for Shipment Lines
3150: -- Pre-reqs : None
3151: -- Parameters :
3152: -- IN : p_api_version IN NUMBER Required
3153: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
3154: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
3155: -- p_match_id IN NUMBER,
3156: -- p_adjustment_num IN NUMBER,
3157: -- OUT x_return_status OUT NOCOPY VARCHAR2
3150: -- Pre-reqs : None
3151: -- Parameters :
3152: -- IN : p_api_version IN NUMBER Required
3153: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
3154: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
3155: -- p_match_id IN NUMBER,
3156: -- p_adjustment_num IN NUMBER,
3157: -- OUT x_return_status OUT NOCOPY VARCHAR2
3158: -- x_msg_count OUT NOCOPY NUMBER
3163: -- Notes :
3164: PROCEDURE Adjust_ShipLines
3165: (
3166: p_api_version IN NUMBER,
3167: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3168: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3169: p_match_id IN NUMBER,
3170: p_adjustment_num IN NUMBER,
3171: x_return_status OUT NOCOPY VARCHAR2,
3164: PROCEDURE Adjust_ShipLines
3165: (
3166: p_api_version IN NUMBER,
3167: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3168: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3169: p_match_id IN NUMBER,
3170: p_adjustment_num IN NUMBER,
3171: x_return_status OUT NOCOPY VARCHAR2,
3172: x_msg_count OUT NOCOPY NUMBER,
3272: ) ;
3273: -- Standard Start of API savepoint
3274: SAVEPOINT Adjust_ShipLines_PVT;
3275: -- Initialize message list if p_init_msg_list is set to TRUE.
3276: IF FND_API.to_Boolean (p_init_msg_list) THEN
3277: FND_MSG_PUB.initialize;
3278: END IF;
3279: -- Check for call compatibility.
3280: IF NOT FND_API.Compatible_API_Call (
3276: IF FND_API.to_Boolean (p_init_msg_list) THEN
3277: FND_MSG_PUB.initialize;
3278: END IF;
3279: -- Check for call compatibility.
3280: IF NOT FND_API.Compatible_API_Call (
3281: p_current_version_number => l_api_version,
3282: p_caller_version_number => p_api_version,
3283: p_api_name => l_api_name,
3284: p_pkg_name => g_pkg_name
3282: p_caller_version_number => p_api_version,
3283: p_api_name => l_api_name,
3284: p_pkg_name => g_pkg_name
3285: ) THEN
3286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3287: END IF;
3288: -- Initialize API return status to success
3289: x_return_status := FND_API.G_RET_STS_SUCCESS;
3290: -- Getting Matching Data
3285: ) THEN
3286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3287: END IF;
3288: -- Initialize API return status to success
3289: x_return_status := FND_API.G_RET_STS_SUCCESS;
3290: -- Getting Matching Data
3291: l_debug_info := 'Getting Matching Data';
3292: INL_LOGGING_PVT.Log_Statement (
3293: p_module_name => g_module_name,
3809: p_tax_code => NULL,
3810: p_adjustment_num => p_adjustment_num,
3811: x_return_status => l_return_status
3812: ) ;
3813: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3814: RAISE FND_API.G_EXC_ERROR;
3815: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3817: END IF;
3810: p_adjustment_num => p_adjustment_num,
3811: x_return_status => l_return_status
3812: ) ;
3813: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3814: RAISE FND_API.G_EXC_ERROR;
3815: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3817: END IF;
3818: END IF;
3811: x_return_status => l_return_status
3812: ) ;
3813: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3814: RAISE FND_API.G_EXC_ERROR;
3815: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3817: END IF;
3818: END IF;
3819: -- Standard check of p_commit.
3812: ) ;
3813: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3814: RAISE FND_API.G_EXC_ERROR;
3815: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3817: END IF;
3818: END IF;
3819: -- Standard check of p_commit.
3820: IF FND_API.To_Boolean (p_commit) THEN
3816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3817: END IF;
3818: END IF;
3819: -- Standard check of p_commit.
3820: IF FND_API.To_Boolean (p_commit) THEN
3821: COMMIT WORK;
3822: END IF;
3823: -- Standard call to get message count and if count is 1, get message info.
3824: FND_MSG_PUB.Count_And_Get (
3821: COMMIT WORK;
3822: END IF;
3823: -- Standard call to get message count and if count is 1, get message info.
3824: FND_MSG_PUB.Count_And_Get (
3825: p_encoded => FND_API.g_false,
3826: p_count => x_msg_count,
3827: p_data => x_msg_data
3828: ) ;
3829: -- Standard End of Procedure/Function Logging
3831: p_module_name => g_module_name,
3832: p_procedure_name => l_api_name
3833: ) ;
3834: EXCEPTION
3835: WHEN FND_API.G_EXC_ERROR THEN
3836: -- Standard Expected Error Logging
3837: INL_LOGGING_PVT.Log_ExpecError (
3838: p_module_name => g_module_name,
3839: p_procedure_name => l_api_name
3838: p_module_name => g_module_name,
3839: p_procedure_name => l_api_name
3840: ) ;
3841: ROLLBACK TO Adjust_ShipLines_PVT;
3842: x_return_status := FND_API.G_RET_STS_ERROR;
3843: FND_MSG_PUB.Count_And_Get (
3844: p_encoded => FND_API.g_false,
3845: p_count => x_msg_count,
3846: p_data => x_msg_data
3840: ) ;
3841: ROLLBACK TO Adjust_ShipLines_PVT;
3842: x_return_status := FND_API.G_RET_STS_ERROR;
3843: FND_MSG_PUB.Count_And_Get (
3844: p_encoded => FND_API.g_false,
3845: p_count => x_msg_count,
3846: p_data => x_msg_data
3847: ) ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3844: p_encoded => FND_API.g_false,
3845: p_count => x_msg_count,
3846: p_data => x_msg_data
3847: ) ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3849: -- Standard Unexpected Error Logging
3850: INL_LOGGING_PVT.Log_UnexpecError (
3851: p_module_name => g_module_name,
3852: p_procedure_name => l_api_name
3851: p_module_name => g_module_name,
3852: p_procedure_name => l_api_name
3853: ) ;
3854: ROLLBACK TO Adjust_ShipLines_PVT;
3855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3856: FND_MSG_PUB.Count_And_Get (
3857: p_encoded => FND_API.g_false,
3858: p_count => x_msg_count,
3859: p_data => x_msg_data
3853: ) ;
3854: ROLLBACK TO Adjust_ShipLines_PVT;
3855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3856: FND_MSG_PUB.Count_And_Get (
3857: p_encoded => FND_API.g_false,
3858: p_count => x_msg_count,
3859: p_data => x_msg_data
3860: ) ;
3861: WHEN OTHERS THEN
3864: p_module_name => g_module_name,
3865: p_procedure_name => l_api_name
3866: ) ;
3867: ROLLBACK TO Adjust_ShipLines_PVT;
3868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3869: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3870: FND_MSG_PUB.Add_Exc_Msg (
3871: p_pkg_name => g_pkg_name,
3872: p_procedure_name => l_api_name
3872: p_procedure_name => l_api_name
3873: ) ;
3874: END IF;
3875: FND_MSG_PUB.Count_And_Get (
3876: p_encoded => FND_API.g_false,
3877: p_count => x_msg_count,
3878: p_data => x_msg_data
3879: ) ;
3880: END Adjust_ShipLines;
3909: BEGIN
3910: -- Standard Beginning of Procedure/Function Logging
3911: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
3912: -- Initialize return status to success
3913: x_return_status := FND_API.G_RET_STS_SUCCESS;
3914: --
3915: -- Get Max val to charge line num
3916: --
3917: IF p_ChLn_Assoc.charge_line_num IS NULL THEN
4058: p_from_parent_table_name => 'INL_CHARGE_LINES',
4059: p_new_line_id => x_new_charge_line_id,
4060: x_return_status => l_return_status
4061: );
4062: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: RAISE FND_API.G_EXC_ERROR;
4064: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4059: p_new_line_id => x_new_charge_line_id,
4060: x_return_status => l_return_status
4061: );
4062: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: RAISE FND_API.G_EXC_ERROR;
4064: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4067: END IF;
4060: x_return_status => l_return_status
4061: );
4062: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: RAISE FND_API.G_EXC_ERROR;
4064: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4067: END IF;
4068: -- Standard End of Procedure/Function Logging
4061: );
4062: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: RAISE FND_API.G_EXC_ERROR;
4064: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4067: END IF;
4068: -- Standard End of Procedure/Function Logging
4069: INL_LOGGING_PVT.Log_EndProc(
4070: p_module_name => g_module_name,
4071: p_procedure_name => l_proc_name
4072: );
4073: EXCEPTION
4074: WHEN FND_API.G_EXC_ERROR THEN
4075: -- Standard Expected Error Logging
4076: INL_LOGGING_PVT.Log_ExpecError(
4077: p_module_name => g_module_name,
4078: p_procedure_name => l_proc_name
4076: INL_LOGGING_PVT.Log_ExpecError(
4077: p_module_name => g_module_name,
4078: p_procedure_name => l_proc_name
4079: );
4080: x_return_status := FND_API.G_RET_STS_ERROR;
4081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4082: -- Standard Unexpected Error Logging
4083: INL_LOGGING_PVT.Log_UnexpecError(
4084: p_module_name => g_module_name,
4077: p_module_name => g_module_name,
4078: p_procedure_name => l_proc_name
4079: );
4080: x_return_status := FND_API.G_RET_STS_ERROR;
4081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4082: -- Standard Unexpected Error Logging
4083: INL_LOGGING_PVT.Log_UnexpecError(
4084: p_module_name => g_module_name,
4085: p_procedure_name => l_proc_name
4083: INL_LOGGING_PVT.Log_UnexpecError(
4084: p_module_name => g_module_name,
4085: p_procedure_name => l_proc_name
4086: );
4087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4088: WHEN OTHERS THEN
4089: -- Standard Unexpected Error Logging
4090: INL_LOGGING_PVT.Log_UnexpecError(
4091: p_module_name => g_module_name,
4090: INL_LOGGING_PVT.Log_UnexpecError(
4091: p_module_name => g_module_name,
4092: p_procedure_name => l_proc_name
4093: );
4094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4095: IF FND_MSG_PUB.Check_Msg_Level(p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4096: THEN
4097: FND_MSG_PUB.Add_Exc_Msg(
4098: p_pkg_name => g_pkg_name,
4320: p_module_name => g_module_name,
4321: p_procedure_name => l_proc_name
4322: );
4323: -- Initialize return status to success
4324: x_return_status := FND_API.G_RET_STS_SUCCESS;
4325:
4326: l_debug_info := 'Getting the maximum level where this charge_line_type_id is applied.';
4327: INL_LOGGING_PVT.Log_Statement (
4328: p_module_name => g_module_name,
4437: p_adjustment_num => p_adjustment_num,
4438: x_new_charge_line_id => l_new_charge_line_id,
4439: x_return_status => l_return_status
4440: ) ;
4441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4442: RAISE FND_API.G_EXC_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4438: x_new_charge_line_id => l_new_charge_line_id,
4439: x_return_status => l_return_status
4440: ) ;
4441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4442: RAISE FND_API.G_EXC_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: -- TxLines
4439: x_return_status => l_return_status
4440: ) ;
4441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4442: RAISE FND_API.G_EXC_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: -- TxLines
4447: l_debug_info := 'Amount = 0 for estimated taxes associated with estimated charge';
4440: ) ;
4441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4442: RAISE FND_API.G_EXC_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: -- TxLines
4447: l_debug_info := 'Amount = 0 for estimated taxes associated with estimated charge';
4448: INL_LOGGING_PVT.Log_Statement (
4459: p_tax_code => NULL,
4460: p_adjustment_num => p_adjustment_num,
4461: x_return_status => l_return_status
4462: ) ;
4463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4464: RAISE FND_API.G_EXC_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4467: END IF;
4460: p_adjustment_num => p_adjustment_num,
4461: x_return_status => l_return_status
4462: ) ;
4463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4464: RAISE FND_API.G_EXC_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4467: END IF;
4468: END LOOP;
4461: x_return_status => l_return_status
4462: ) ;
4463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4464: RAISE FND_API.G_EXC_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4467: END IF;
4468: END LOOP;
4469: END IF;
4462: ) ;
4463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4464: RAISE FND_API.G_EXC_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4467: END IF;
4468: END LOOP;
4469: END IF;
4470:
4473: p_module_name => g_module_name,
4474: p_procedure_name => l_proc_name
4475: ) ;
4476: EXCEPTION
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: -- Standard Expected Error Logging
4479: INL_LOGGING_PVT.Log_ExpecError (
4480: p_module_name => g_module_name,
4481: p_procedure_name => l_proc_name
4479: INL_LOGGING_PVT.Log_ExpecError (
4480: p_module_name => g_module_name,
4481: p_procedure_name => l_proc_name
4482: ) ;
4483: x_return_status := FND_API.G_RET_STS_ERROR;
4484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4485: -- Standard Unexpected Error Logging
4486: INL_LOGGING_PVT.Log_UnexpecError (
4487: p_module_name => g_module_name,
4480: p_module_name => g_module_name,
4481: p_procedure_name => l_proc_name
4482: ) ;
4483: x_return_status := FND_API.G_RET_STS_ERROR;
4484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4485: -- Standard Unexpected Error Logging
4486: INL_LOGGING_PVT.Log_UnexpecError (
4487: p_module_name => g_module_name,
4488: p_procedure_name => l_proc_name
4486: INL_LOGGING_PVT.Log_UnexpecError (
4487: p_module_name => g_module_name,
4488: p_procedure_name => l_proc_name
4489: ) ;
4490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4491: WHEN OTHERS THEN
4492: -- Standard Unexpected Error Logging
4493: INL_LOGGING_PVT.Log_UnexpecError (
4494: p_module_name => g_module_name,
4493: INL_LOGGING_PVT.Log_UnexpecError (
4494: p_module_name => g_module_name,
4495: p_procedure_name => l_proc_name
4496: ) ;
4497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4498: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4499: FND_MSG_PUB.Add_Exc_Msg (
4500: p_pkg_name => g_pkg_name,
4501: p_procedure_name => l_proc_name
4508: -- Function : Create Adjustment Lines for Charge Lines
4509: -- Pre-reqs : None
4510: -- Parameters :
4511: -- IN : p_api_version IN NUMBER Required
4512: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
4513: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
4514: -- p_match_id IN NUMBER,
4515: -- p_adjustment_num IN NUMBER,
4516: -- OUT x_return_status OUT NOCOPY VARCHAR2
4509: -- Pre-reqs : None
4510: -- Parameters :
4511: -- IN : p_api_version IN NUMBER Required
4512: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
4513: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
4514: -- p_match_id IN NUMBER,
4515: -- p_adjustment_num IN NUMBER,
4516: -- OUT x_return_status OUT NOCOPY VARCHAR2
4517: -- x_msg_count OUT NOCOPY NUMBER
4521: --
4522: -- Notes :
4523: PROCEDURE Adjust_ChargeLines (
4524: p_api_version IN NUMBER,
4525: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4526: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4527: p_match_id IN NUMBER,
4528: p_adjustment_num IN NUMBER,
4529: x_return_status OUT NOCOPY VARCHAR2,
4522: -- Notes :
4523: PROCEDURE Adjust_ChargeLines (
4524: p_api_version IN NUMBER,
4525: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4526: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4527: p_match_id IN NUMBER,
4528: p_adjustment_num IN NUMBER,
4529: x_return_status OUT NOCOPY VARCHAR2,
4530: x_msg_count OUT NOCOPY NUMBER,
4566: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4567: -- Standard Start of API savepoint
4568: SAVEPOINT Adjust_ChargeLines_PVT;
4569: -- Initialize message list if p_init_msg_list is set to TRUE.
4570: IF FND_API.to_Boolean (p_init_msg_list) THEN
4571: FND_MSG_PUB.initialize;
4572: END IF;
4573: -- Check for call compatibility.
4574: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
4570: IF FND_API.to_Boolean (p_init_msg_list) THEN
4571: FND_MSG_PUB.initialize;
4572: END IF;
4573: -- Check for call compatibility.
4574: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
4575: p_caller_version_number => p_api_version,
4576: p_api_name => l_api_name,
4577: p_pkg_name => g_pkg_name) THEN
4578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4574: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
4575: p_caller_version_number => p_api_version,
4576: p_api_name => l_api_name,
4577: p_pkg_name => g_pkg_name) THEN
4578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4579: END IF;
4580: -- Initialize API return status to success
4581: x_return_status := FND_API.G_RET_STS_SUCCESS;
4582: -- Getting the match information
4577: p_pkg_name => g_pkg_name) THEN
4578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4579: END IF;
4580: -- Initialize API return status to success
4581: x_return_status := FND_API.G_RET_STS_SUCCESS;
4582: -- Getting the match information
4583: l_debug_info := 'Getting the match information';
4584: INL_LOGGING_PVT.Log_Statement (
4585: p_module_name => g_module_name,
4793: p_include_assoc => l_include_assoc,
4794: p_adjustment_num => p_adjustment_num,
4795: x_new_charge_line_id => l_new_charge_line_id,
4796: x_return_status => l_return_status) ;
4797: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4798: RAISE FND_API.G_EXC_ERROR;
4799: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801: END IF;
4794: p_adjustment_num => p_adjustment_num,
4795: x_new_charge_line_id => l_new_charge_line_id,
4796: x_return_status => l_return_status) ;
4797: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4798: RAISE FND_API.G_EXC_ERROR;
4799: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801: END IF;
4802:
4795: x_new_charge_line_id => l_new_charge_line_id,
4796: x_return_status => l_return_status) ;
4797: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4798: RAISE FND_API.G_EXC_ERROR;
4799: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801: END IF;
4802:
4803: Zero_EstimChargeLinesPerMatch (
4796: x_return_status => l_return_status) ;
4797: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4798: RAISE FND_API.G_EXC_ERROR;
4799: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801: END IF;
4802:
4803: Zero_EstimChargeLinesPerMatch (
4804: p_match_id => p_match_id,
4807: p_adjustment_num => p_adjustment_num,
4808: x_return_status => l_debug_info
4809: );
4810:
4811: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4812: RAISE FND_API.G_EXC_ERROR;
4813: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4815: END IF;
4808: x_return_status => l_debug_info
4809: );
4810:
4811: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4812: RAISE FND_API.G_EXC_ERROR;
4813: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4815: END IF;
4816:
4809: );
4810:
4811: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4812: RAISE FND_API.G_EXC_ERROR;
4813: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4815: END IF;
4816:
4817:
4810:
4811: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4812: RAISE FND_API.G_EXC_ERROR;
4813: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4815: END IF;
4816:
4817:
4818: -- Standard check of p_commit.
4815: END IF;
4816:
4817:
4818: -- Standard check of p_commit.
4819: IF FND_API.To_Boolean (p_commit) THEN
4820: COMMIT WORK;
4821: END IF;
4822: -- Standard call to get message count and if count is 1, get message info.
4823: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4819: IF FND_API.To_Boolean (p_commit) THEN
4820: COMMIT WORK;
4821: END IF;
4822: -- Standard call to get message count and if count is 1, get message info.
4823: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4824: -- Standard End of Procedure/Function Logging
4825: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4826: EXCEPTION
4827: WHEN FND_API.G_EXC_ERROR THEN
4823: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4824: -- Standard End of Procedure/Function Logging
4825: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4826: EXCEPTION
4827: WHEN FND_API.G_EXC_ERROR THEN
4828: -- Standard Expected Error Logging
4829: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4830: ROLLBACK TO Adjust_ChargeLines_PVT;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4827: WHEN FND_API.G_EXC_ERROR THEN
4828: -- Standard Expected Error Logging
4829: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4830: ROLLBACK TO Adjust_ChargeLines_PVT;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4834: -- Standard Unexpected Error Logging
4835: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4828: -- Standard Expected Error Logging
4829: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4830: ROLLBACK TO Adjust_ChargeLines_PVT;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4834: -- Standard Unexpected Error Logging
4835: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4836: ROLLBACK TO Adjust_ChargeLines_PVT;
4829: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4830: ROLLBACK TO Adjust_ChargeLines_PVT;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4834: -- Standard Unexpected Error Logging
4835: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4836: ROLLBACK TO Adjust_ChargeLines_PVT;
4837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4834: -- Standard Unexpected Error Logging
4835: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4836: ROLLBACK TO Adjust_ChargeLines_PVT;
4837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4838: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4839: WHEN OTHERS THEN
4840: -- Standard Unexpected Error Logging
4841: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4834: -- Standard Unexpected Error Logging
4835: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4836: ROLLBACK TO Adjust_ChargeLines_PVT;
4837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4838: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4839: WHEN OTHERS THEN
4840: -- Standard Unexpected Error Logging
4841: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4842: ROLLBACK TO Adjust_ChargeLines_PVT;
4839: WHEN OTHERS THEN
4840: -- Standard Unexpected Error Logging
4841: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
4842: ROLLBACK TO Adjust_ChargeLines_PVT;
4843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4844: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4845: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
4846: END IF;
4847: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4844: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4845: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
4846: END IF;
4847: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4848: END Adjust_ChargeLines;
4849:
4850: -- API name : Adjust_ChargeLines
4851: -- Type : Private
4852: -- Function : Create Adjustmens Charge Lines and their associations
4853: -- Pre-reqs : None
4854: -- Parameters :
4855: -- IN : p_api_version IN NUMBER Required
4856: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
4857: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
4858: -- p_match_amount_id IN NUMBER,
4859: -- p_adjustment_num IN NUMBER,
4860: -- OUT x_return_status OUT NOCOPY VARCHAR2
4853: -- Pre-reqs : None
4854: -- Parameters :
4855: -- IN : p_api_version IN NUMBER Required
4856: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
4857: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
4858: -- p_match_amount_id IN NUMBER,
4859: -- p_adjustment_num IN NUMBER,
4860: -- OUT x_return_status OUT NOCOPY VARCHAR2
4861: -- x_msg_count OUT NOCOPY NUMBER
4866: -- Notes :
4867: PROCEDURE Adjust_ChargeLines
4868: (
4869: p_api_version IN NUMBER,
4870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4872: p_match_amount_id IN NUMBER,
4873: p_adjustment_num IN NUMBER,
4874: x_return_status OUT NOCOPY VARCHAR2,
4867: PROCEDURE Adjust_ChargeLines
4868: (
4869: p_api_version IN NUMBER,
4870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4872: p_match_amount_id IN NUMBER,
4873: p_adjustment_num IN NUMBER,
4874: x_return_status OUT NOCOPY VARCHAR2,
4875: x_msg_count OUT NOCOPY NUMBER,
4929: -- Standard Start of API savepoint
4930:
4931: SAVEPOINT Adjust_ChargeLines_PVT;
4932: -- Initialize message list if p_init_msg_list is set to TRUE.
4933: IF FND_API.to_Boolean (p_init_msg_list) THEN
4934: FND_MSG_PUB.initialize;
4935: END IF;
4936: -- Check for call compatibility.
4937: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
4933: IF FND_API.to_Boolean (p_init_msg_list) THEN
4934: FND_MSG_PUB.initialize;
4935: END IF;
4936: -- Check for call compatibility.
4937: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
4938: p_caller_version_number => p_api_version,
4939: p_api_name => l_api_name,
4940: p_pkg_name => g_pkg_name) THEN
4941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4937: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
4938: p_caller_version_number => p_api_version,
4939: p_api_name => l_api_name,
4940: p_pkg_name => g_pkg_name) THEN
4941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4942: END IF;
4943: -- Initialize API return status to success
4944: x_return_status := FND_API.G_RET_STS_SUCCESS;
4945: -- Getting the match information
4940: p_pkg_name => g_pkg_name) THEN
4941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4942: END IF;
4943: -- Initialize API return status to success
4944: x_return_status := FND_API.G_RET_STS_SUCCESS;
4945: -- Getting the match information
4946: l_debug_info := 'Getting the match information';
4947: INL_LOGGING_PVT.Log_Statement (
4948: p_module_name => g_module_name,
5145: p_include_assoc => 'N',
5146: p_adjustment_num => p_adjustment_num,
5147: x_new_charge_line_id => l_new_charge_line_id,
5148: x_return_status => l_return_status) ;
5149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5150: RAISE FND_API.G_EXC_ERROR;
5151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5153: END IF;
5146: p_adjustment_num => p_adjustment_num,
5147: x_new_charge_line_id => l_new_charge_line_id,
5148: x_return_status => l_return_status) ;
5149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5150: RAISE FND_API.G_EXC_ERROR;
5151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5153: END IF;
5154: -- It does not create associations for corrections neither to updates
5147: x_new_charge_line_id => l_new_charge_line_id,
5148: x_return_status => l_return_status) ;
5149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5150: RAISE FND_API.G_EXC_ERROR;
5151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5153: END IF;
5154: -- It does not create associations for corrections neither to updates
5155: IF (l_corr_charge_line_id IS NULL AND l_ChLn_Assoc.parent_charge_line_id IS NULL) THEN
5148: x_return_status => l_return_status) ;
5149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5150: RAISE FND_API.G_EXC_ERROR;
5151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5153: END IF;
5154: -- It does not create associations for corrections neither to updates
5155: IF (l_corr_charge_line_id IS NULL AND l_ChLn_Assoc.parent_charge_line_id IS NULL) THEN
5156: -- Create_associations for the match amount id
5208: p_adjustment_num => p_adjustment_num,
5209: x_return_status => l_debug_info
5210: );
5211:
5212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5213: RAISE FND_API.G_EXC_ERROR;
5214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5216: END IF;
5209: x_return_status => l_debug_info
5210: );
5211:
5212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5213: RAISE FND_API.G_EXC_ERROR;
5214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5216: END IF;
5217:
5210: );
5211:
5212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5213: RAISE FND_API.G_EXC_ERROR;
5214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5216: END IF;
5217:
5218: -- Standard check of p_commit.
5211:
5212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5213: RAISE FND_API.G_EXC_ERROR;
5214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5216: END IF;
5217:
5218: -- Standard check of p_commit.
5219:
5216: END IF;
5217:
5218: -- Standard check of p_commit.
5219:
5220: IF FND_API.To_Boolean (p_commit) THEN
5221: COMMIT WORK;
5222: END IF;
5223: -- Standard call to get message count and if count is 1, get message info.
5224: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5220: IF FND_API.To_Boolean (p_commit) THEN
5221: COMMIT WORK;
5222: END IF;
5223: -- Standard call to get message count and if count is 1, get message info.
5224: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5225: -- Standard End of Procedure/Function Logging
5226: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5227: EXCEPTION
5228: WHEN FND_API.G_EXC_ERROR THEN
5224: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5225: -- Standard End of Procedure/Function Logging
5226: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5227: EXCEPTION
5228: WHEN FND_API.G_EXC_ERROR THEN
5229: -- Standard Expected Error Logging
5230: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5231: ROLLBACK TO Adjust_ChargeLines_PVT;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5228: WHEN FND_API.G_EXC_ERROR THEN
5229: -- Standard Expected Error Logging
5230: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5231: ROLLBACK TO Adjust_ChargeLines_PVT;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5235: -- Standard Unexpected Error Logging
5236: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5229: -- Standard Expected Error Logging
5230: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5231: ROLLBACK TO Adjust_ChargeLines_PVT;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5235: -- Standard Unexpected Error Logging
5236: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5237: ROLLBACK TO Adjust_ChargeLines_PVT;
5230: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5231: ROLLBACK TO Adjust_ChargeLines_PVT;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5235: -- Standard Unexpected Error Logging
5236: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5237: ROLLBACK TO Adjust_ChargeLines_PVT;
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5235: -- Standard Unexpected Error Logging
5236: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5237: ROLLBACK TO Adjust_ChargeLines_PVT;
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5240: WHEN OTHERS THEN
5241: -- Standard Unexpected Error Logging
5242: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5235: -- Standard Unexpected Error Logging
5236: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5237: ROLLBACK TO Adjust_ChargeLines_PVT;
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5240: WHEN OTHERS THEN
5241: -- Standard Unexpected Error Logging
5242: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5243: ROLLBACK TO Adjust_ChargeLines_PVT;
5240: WHEN OTHERS THEN
5241: -- Standard Unexpected Error Logging
5242: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5243: ROLLBACK TO Adjust_ChargeLines_PVT;
5244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5245: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5246: FND_MSG_PUB.Add_Exc_Msg (p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5247: END IF;
5248: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5245: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5246: FND_MSG_PUB.Add_Exc_Msg (p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5247: END IF;
5248: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5249: END Adjust_ChargeLines;
5250:
5251: -- API name : Adjust_TaxLines
5252: -- Type : Private
5253: -- Function : Create Adjustment Lines for Charge Lines
5254: -- Pre-reqs : None
5255: -- Parameters :
5256: -- IN : p_api_version IN NUMBER Required
5257: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
5258: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
5259: -- p_match_id IN NUMBER,
5260: -- p_adjustment_num IN NUMBER,
5261: -- OUT x_return_status OUT NOCOPY VARCHAR2
5254: -- Pre-reqs : None
5255: -- Parameters :
5256: -- IN : p_api_version IN NUMBER Required
5257: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
5258: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
5259: -- p_match_id IN NUMBER,
5260: -- p_adjustment_num IN NUMBER,
5261: -- OUT x_return_status OUT NOCOPY VARCHAR2
5262: -- x_msg_count OUT NOCOPY NUMBER
5267: -- Notes :
5268: PROCEDURE Adjust_TaxLines
5269: (
5270: p_api_version IN NUMBER,
5271: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5273: p_match_id IN NUMBER,
5274: p_adjustment_num IN NUMBER,
5275: x_return_status OUT NOCOPY VARCHAR2,
5268: PROCEDURE Adjust_TaxLines
5269: (
5270: p_api_version IN NUMBER,
5271: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5273: p_match_id IN NUMBER,
5274: p_adjustment_num IN NUMBER,
5275: x_return_status OUT NOCOPY VARCHAR2,
5276: x_msg_count OUT NOCOPY NUMBER,
5305: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5306: -- Standard Start of API savepoint
5307: SAVEPOINT Adjust_TaxLines_PVT;
5308: -- Initialize message list if p_init_msg_list is set to TRUE.
5309: IF FND_API.to_Boolean (p_init_msg_list) THEN
5310: FND_MSG_PUB.initialize;
5311: END IF;
5312: -- Check for call compatibility.
5313: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5309: IF FND_API.to_Boolean (p_init_msg_list) THEN
5310: FND_MSG_PUB.initialize;
5311: END IF;
5312: -- Check for call compatibility.
5313: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5315: END IF;
5316: -- Initialize API return status to success
5317: x_return_status := FND_API.G_RET_STS_SUCCESS;
5310: FND_MSG_PUB.initialize;
5311: END IF;
5312: -- Check for call compatibility.
5313: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5315: END IF;
5316: -- Initialize API return status to success
5317: x_return_status := FND_API.G_RET_STS_SUCCESS;
5318: -- Getting the match information
5313: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5315: END IF;
5316: -- Initialize API return status to success
5317: x_return_status := FND_API.G_RET_STS_SUCCESS;
5318: -- Getting the match information
5319: l_debug_info := 'Getting the match information';
5320: INL_LOGGING_PVT.Log_Statement (
5321: p_module_name => g_module_name,
5436: p_include_assoc => l_include_assoc_flag,
5437: p_adjustment_num => p_adjustment_num,
5438: x_new_tax_line_id => l_new_tax_line_id,
5439: x_return_status => l_return_status) ;
5440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5441: RAISE FND_API.G_EXC_ERROR;
5442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5444: END IF;
5437: p_adjustment_num => p_adjustment_num,
5438: x_new_tax_line_id => l_new_tax_line_id,
5439: x_return_status => l_return_status) ;
5440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5441: RAISE FND_API.G_EXC_ERROR;
5442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5444: END IF;
5445: -- The estimated tax lines will made = 0 when as actual arrived on associated line
5438: x_new_tax_line_id => l_new_tax_line_id,
5439: x_return_status => l_return_status) ;
5440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5441: RAISE FND_API.G_EXC_ERROR;
5442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5444: END IF;
5445: -- The estimated tax lines will made = 0 when as actual arrived on associated line
5446: -- i.e. when a charge became and actual value the estimated taxes will made 0 too
5439: x_return_status => l_return_status) ;
5440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5441: RAISE FND_API.G_EXC_ERROR;
5442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5444: END IF;
5445: -- The estimated tax lines will made = 0 when as actual arrived on associated line
5446: -- i.e. when a charge became and actual value the estimated taxes will made 0 too
5447: -- Standard check of p_commit.
5444: END IF;
5445: -- The estimated tax lines will made = 0 when as actual arrived on associated line
5446: -- i.e. when a charge became and actual value the estimated taxes will made 0 too
5447: -- Standard check of p_commit.
5448: IF FND_API.To_Boolean (p_commit) THEN
5449: COMMIT WORK;
5450: END IF;
5451: -- Standard call to get message count and if count is 1, get message info.
5452: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5448: IF FND_API.To_Boolean (p_commit) THEN
5449: COMMIT WORK;
5450: END IF;
5451: -- Standard call to get message count and if count is 1, get message info.
5452: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5453: -- Standard End of Procedure/Function Logging
5454: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5455: EXCEPTION
5456: WHEN FND_API.G_EXC_ERROR THEN
5452: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5453: -- Standard End of Procedure/Function Logging
5454: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5455: EXCEPTION
5456: WHEN FND_API.G_EXC_ERROR THEN
5457: -- Standard Expected Error Logging
5458: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5459: ROLLBACK TO Adjust_TaxLines_PVT;
5460: x_return_status := FND_API.G_RET_STS_ERROR;
5456: WHEN FND_API.G_EXC_ERROR THEN
5457: -- Standard Expected Error Logging
5458: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5459: ROLLBACK TO Adjust_TaxLines_PVT;
5460: x_return_status := FND_API.G_RET_STS_ERROR;
5461: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5463: -- Standard Unexpected Error Logging
5464: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5457: -- Standard Expected Error Logging
5458: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5459: ROLLBACK TO Adjust_TaxLines_PVT;
5460: x_return_status := FND_API.G_RET_STS_ERROR;
5461: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5463: -- Standard Unexpected Error Logging
5464: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5465: ROLLBACK TO Adjust_TaxLines_PVT;
5458: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5459: ROLLBACK TO Adjust_TaxLines_PVT;
5460: x_return_status := FND_API.G_RET_STS_ERROR;
5461: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5463: -- Standard Unexpected Error Logging
5464: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5465: ROLLBACK TO Adjust_TaxLines_PVT;
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5463: -- Standard Unexpected Error Logging
5464: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5465: ROLLBACK TO Adjust_TaxLines_PVT;
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5467: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5468: WHEN OTHERS THEN
5469: -- Standard Unexpected Error Logging
5470: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5463: -- Standard Unexpected Error Logging
5464: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5465: ROLLBACK TO Adjust_TaxLines_PVT;
5466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5467: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5468: WHEN OTHERS THEN
5469: -- Standard Unexpected Error Logging
5470: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5471: ROLLBACK TO Adjust_TaxLines_PVT;
5468: WHEN OTHERS THEN
5469: -- Standard Unexpected Error Logging
5470: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5471: ROLLBACK TO Adjust_TaxLines_PVT;
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5473: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5474: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5475: END IF;
5476: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5473: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5474: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5475: END IF;
5476: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5477: END Adjust_TaxLines;
5478:
5479: -- API name : Adjust_TaxLines
5480: -- Type : Private
5481: -- Function : Create Adjustment Lines for Charge Lines
5482: -- Pre-reqs : None
5483: -- Parameters :
5484: -- IN : p_api_version IN NUMBER Required
5485: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
5486: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
5487: -- p_match_amount_id IN NUMBER,
5488: -- p_adjustment_num IN NUMBER,
5489: -- OUT x_return_status OUT NOCOPY VARCHAR2
5482: -- Pre-reqs : None
5483: -- Parameters :
5484: -- IN : p_api_version IN NUMBER Required
5485: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
5486: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
5487: -- p_match_amount_id IN NUMBER,
5488: -- p_adjustment_num IN NUMBER,
5489: -- OUT x_return_status OUT NOCOPY VARCHAR2
5490: -- x_msg_count OUT NOCOPY NUMBER
5494: --
5495: -- Notes :
5496: PROCEDURE Adjust_TaxLines(
5497: p_api_version IN NUMBER,
5498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5500: p_match_amount_id IN NUMBER,
5501: p_adjustment_num IN NUMBER,
5502: x_return_status OUT NOCOPY VARCHAR2,
5495: -- Notes :
5496: PROCEDURE Adjust_TaxLines(
5497: p_api_version IN NUMBER,
5498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5500: p_match_amount_id IN NUMBER,
5501: p_adjustment_num IN NUMBER,
5502: x_return_status OUT NOCOPY VARCHAR2,
5503: x_msg_count OUT NOCOPY NUMBER,
5531: -- Standard Start of API savepoint
5532:
5533: SAVEPOINT Adjust_TaxLines_2_PVT;
5534: -- Initialize message list if p_init_msg_list is set to TRUE.
5535: IF FND_API.to_Boolean (p_init_msg_list) THEN
5536: FND_MSG_PUB.initialize;
5537: END IF;
5538: -- Check for call compatibility.
5539: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5535: IF FND_API.to_Boolean (p_init_msg_list) THEN
5536: FND_MSG_PUB.initialize;
5537: END IF;
5538: -- Check for call compatibility.
5539: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5541: END IF;
5542: -- Initialize API return status to success
5543: x_return_status := FND_API.G_RET_STS_SUCCESS;
5536: FND_MSG_PUB.initialize;
5537: END IF;
5538: -- Check for call compatibility.
5539: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5541: END IF;
5542: -- Initialize API return status to success
5543: x_return_status := FND_API.G_RET_STS_SUCCESS;
5544:
5539: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5541: END IF;
5542: -- Initialize API return status to success
5543: x_return_status := FND_API.G_RET_STS_SUCCESS;
5544:
5545: -- Getting the matchAmount information
5546: l_debug_info := 'Getting the matchAmount information';
5547: INL_LOGGING_PVT.Log_Statement (
5655: p_include_assoc => 'N',
5656: p_adjustment_num => p_adjustment_num,
5657: x_new_tax_line_id => l_new_tax_line_id,
5658: x_return_status => l_return_status) ;
5659: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5660: RAISE FND_API.G_EXC_ERROR;
5661: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5663: END IF;
5656: p_adjustment_num => p_adjustment_num,
5657: x_new_tax_line_id => l_new_tax_line_id,
5658: x_return_status => l_return_status) ;
5659: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5660: RAISE FND_API.G_EXC_ERROR;
5661: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5663: END IF;
5664:
5657: x_new_tax_line_id => l_new_tax_line_id,
5658: x_return_status => l_return_status) ;
5659: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5660: RAISE FND_API.G_EXC_ERROR;
5661: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5663: END IF;
5664:
5665: -- It does not create associations for corrections neither to updates
5658: x_return_status => l_return_status) ;
5659: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5660: RAISE FND_API.G_EXC_ERROR;
5661: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5663: END IF;
5664:
5665: -- It does not create associations for corrections neither to updates
5666: IF (l_existing_match_info_flag = 'N') THEN
5704:
5705: -- The estimated tax lines will made = 0 when as actual arrived on associated line
5706: -- i.e. when a charge became and actual value the estimated taxes will made 0 too
5707: -- Standard check of p_commit.
5708: IF FND_API.To_Boolean (p_commit) THEN
5709: COMMIT WORK;
5710: END IF;
5711: -- Standard call to get message count and if count is 1, get message info.
5712: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5708: IF FND_API.To_Boolean (p_commit) THEN
5709: COMMIT WORK;
5710: END IF;
5711: -- Standard call to get message count and if count is 1, get message info.
5712: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5713: -- Standard End of Procedure/Function Logging
5714: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5712: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5713: -- Standard End of Procedure/Function Logging
5714: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: -- Standard Expected Error Logging
5718: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5719: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: -- Standard Expected Error Logging
5718: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5719: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5723: -- Standard Unexpected Error Logging
5724: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5717: -- Standard Expected Error Logging
5718: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5719: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5723: -- Standard Unexpected Error Logging
5724: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5725: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5718: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5719: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5720: x_return_status := FND_API.G_RET_STS_ERROR;
5721: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5723: -- Standard Unexpected Error Logging
5724: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5725: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5723: -- Standard Unexpected Error Logging
5724: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5725: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5728: WHEN OTHERS THEN
5729: -- Standard Unexpected Error Logging
5730: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5723: -- Standard Unexpected Error Logging
5724: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5725: ROLLBACK TO Adjust_TaxLines_2_PVT_PVT;
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5728: WHEN OTHERS THEN
5729: -- Standard Unexpected Error Logging
5730: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5731: ROLLBACK TO Adjust_TaxLines_2_PVT;
5728: WHEN OTHERS THEN
5729: -- Standard Unexpected Error Logging
5730: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5731: ROLLBACK TO Adjust_TaxLines_2_PVT;
5732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5733: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5734: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5735: END IF;
5736: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5733: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5734: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
5735: END IF;
5736: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5737: END Adjust_TaxLines;
5738:
5739: -- API name : Adjust_Lines
5740: -- Type : Private
5741: -- Function : Manages the Creation of Adjustment Lines for Shipment Lines and Charge Lines
5742: -- Pre-reqs : None
5743: -- Parameters :
5744: -- IN : p_api_version IN NUMBER Required
5745: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
5746: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
5747: -- p_ship_header_id IN NUMBER,
5748: -- OUT x_return_status OUT NOCOPY VARCHAR2
5749: -- x_msg_count OUT NOCOPY NUMBER
5742: -- Pre-reqs : None
5743: -- Parameters :
5744: -- IN : p_api_version IN NUMBER Required
5745: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
5746: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
5747: -- p_ship_header_id IN NUMBER,
5748: -- OUT x_return_status OUT NOCOPY VARCHAR2
5749: -- x_msg_count OUT NOCOPY NUMBER
5750: -- x_msg_data OUT NOCOPY VARCHAR2
5754: -- Notes :
5755: PROCEDURE Adjust_Lines
5756: (
5757: p_api_version IN NUMBER,
5758: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5759: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5760: p_ship_header_id IN NUMBER,
5761: x_return_status OUT NOCOPY VARCHAR2,
5762: x_msg_count OUT NOCOPY NUMBER,
5755: PROCEDURE Adjust_Lines
5756: (
5757: p_api_version IN NUMBER,
5758: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5759: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5760: p_ship_header_id IN NUMBER,
5761: x_return_status OUT NOCOPY VARCHAR2,
5762: x_msg_count OUT NOCOPY NUMBER,
5763: x_msg_data OUT NOCOPY VARCHAR2)
5826: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5827: -- Standard Start of API savepoint
5828: SAVEPOINT Adjust_Lines_PVT;
5829: -- Initialize message list if p_init_msg_list is set to TRUE.
5830: IF FND_API.to_Boolean (p_init_msg_list) THEN
5831: FND_MSG_PUB.initialize;
5832: END IF;
5833: -- Check for call compatibility.
5834: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5830: IF FND_API.to_Boolean (p_init_msg_list) THEN
5831: FND_MSG_PUB.initialize;
5832: END IF;
5833: -- Check for call compatibility.
5834: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5836: END IF;
5837: -- Initialize API return status to success
5838: x_return_status := FND_API.G_RET_STS_SUCCESS;
5831: FND_MSG_PUB.initialize;
5832: END IF;
5833: -- Check for call compatibility.
5834: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5836: END IF;
5837: -- Initialize API return status to success
5838: x_return_status := FND_API.G_RET_STS_SUCCESS;
5839: -- API Body
5834: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
5835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5836: END IF;
5837: -- Initialize API return status to success
5838: x_return_status := FND_API.G_RET_STS_SUCCESS;
5839: -- API Body
5840: BEGIN
5841: l_debug_info := 'Create Adjustments for Shipment Lines and Charge Lines';
5842: INL_LOGGING_PVT.Log_Statement (
5881: IF rec_match.match_type_code = 'ITEM' THEN
5882: l_adjust_updt_flag := TRUE;
5883: Adjust_ShipLines (
5884: p_api_version => 1.0,
5885: p_init_msg_list => FND_API.G_FALSE,
5886: p_commit => FND_API.G_FALSE,
5887: p_match_id => rec_match.match_id,
5888: p_adjustment_num => l_adjustment_num,
5889: x_return_status => l_return_status,
5882: l_adjust_updt_flag := TRUE;
5883: Adjust_ShipLines (
5884: p_api_version => 1.0,
5885: p_init_msg_list => FND_API.G_FALSE,
5886: p_commit => FND_API.G_FALSE,
5887: p_match_id => rec_match.match_id,
5888: p_adjustment_num => l_adjustment_num,
5889: x_return_status => l_return_status,
5890: x_msg_count => l_msg_count,
5893: ELSIF rec_match.match_type_code = 'CHARGE' AND rec_match.match_amount_id IS NULL THEN
5894: l_adjust_updt_flag := TRUE;
5895: Adjust_ChargeLines (
5896: p_api_version => 1.0,
5897: p_init_msg_list => FND_API.G_FALSE,
5898: p_commit => FND_API.G_FALSE,
5899: p_match_id => rec_match.match_id,
5900: p_adjustment_num => l_adjustment_num,
5901: x_return_status => l_return_status,
5894: l_adjust_updt_flag := TRUE;
5895: Adjust_ChargeLines (
5896: p_api_version => 1.0,
5897: p_init_msg_list => FND_API.G_FALSE,
5898: p_commit => FND_API.G_FALSE,
5899: p_match_id => rec_match.match_id,
5900: p_adjustment_num => l_adjustment_num,
5901: x_return_status => l_return_status,
5902: x_msg_count => l_msg_count,
5905: ELSIF rec_match.match_type_code = 'CHARGE' AND rec_match.match_amount_id IS NOT NULL THEN
5906: l_adjust_updt_flag := TRUE;
5907: Adjust_ChargeLines (
5908: p_api_version => 1.0,
5909: p_init_msg_list => FND_API.G_FALSE,
5910: p_commit => FND_API.G_FALSE,
5911: p_match_amount_id => rec_match.match_amount_id,
5912: p_adjustment_num => l_adjustment_num,
5913: x_return_status => l_return_status,
5906: l_adjust_updt_flag := TRUE;
5907: Adjust_ChargeLines (
5908: p_api_version => 1.0,
5909: p_init_msg_list => FND_API.G_FALSE,
5910: p_commit => FND_API.G_FALSE,
5911: p_match_amount_id => rec_match.match_amount_id,
5912: p_adjustment_num => l_adjustment_num,
5913: x_return_status => l_return_status,
5914: x_msg_count => l_msg_count,
5917: ELSIF rec_match.match_type_code = 'TAX' AND rec_match.match_amount_id IS NOT NULL THEN
5918: l_adjust_updt_flag := TRUE;
5919: Adjust_TaxLines (
5920: p_api_version => 1.0,
5921: p_init_msg_list => FND_API.G_FALSE,
5922: p_commit => FND_API.G_FALSE,
5923: p_match_amount_id => rec_match.match_amount_id,
5924: p_adjustment_num => l_adjustment_num,
5925: x_return_status => l_return_status,
5918: l_adjust_updt_flag := TRUE;
5919: Adjust_TaxLines (
5920: p_api_version => 1.0,
5921: p_init_msg_list => FND_API.G_FALSE,
5922: p_commit => FND_API.G_FALSE,
5923: p_match_amount_id => rec_match.match_amount_id,
5924: p_adjustment_num => l_adjustment_num,
5925: x_return_status => l_return_status,
5926: x_msg_count => l_msg_count,
5929: ELSIF rec_match.match_type_code = 'TAX' THEN
5930: l_adjust_updt_flag := TRUE;
5931: Adjust_TaxLines (
5932: p_api_version => 1.0,
5933: p_init_msg_list => FND_API.G_FALSE,
5934: p_commit => FND_API.G_FALSE,
5935: p_match_id => rec_match.match_id,
5936: p_adjustment_num => l_adjustment_num,
5937: x_return_status => l_return_status,
5930: l_adjust_updt_flag := TRUE;
5931: Adjust_TaxLines (
5932: p_api_version => 1.0,
5933: p_init_msg_list => FND_API.G_FALSE,
5934: p_commit => FND_API.G_FALSE,
5935: p_match_id => rec_match.match_id,
5936: p_adjustment_num => l_adjustment_num,
5937: x_return_status => l_return_status,
5938: x_msg_count => l_msg_count,
5939: x_msg_data => l_msg_data
5940: ) ;
5941: END IF;
5942: -- If any errors happen abort API.
5943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5944: RAISE FND_API.G_EXC_ERROR;
5945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5947: END IF;
5940: ) ;
5941: END IF;
5942: -- If any errors happen abort API.
5943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5944: RAISE FND_API.G_EXC_ERROR;
5945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5947: END IF;
5948: -- Flag the matches that already generated ajustments
5941: END IF;
5942: -- If any errors happen abort API.
5943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5944: RAISE FND_API.G_EXC_ERROR;
5945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5947: END IF;
5948: -- Flag the matches that already generated ajustments
5949: UPDATE inl_matches m
5942: -- If any errors happen abort API.
5943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5944: RAISE FND_API.G_EXC_ERROR;
5945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5947: END IF;
5948: -- Flag the matches that already generated ajustments
5949: UPDATE inl_matches m
5950: SET m.adj_already_generated_flag = 'Y' ,
5969: END IF;
5970: END;
5971: -- End of API Body
5972: -- Standard check of p_commit.
5973: IF FND_API.To_Boolean (p_commit) THEN
5974: COMMIT WORK;
5975: END IF;
5976: -- Standard call to get message count and if count is 1, get message info.
5977: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5973: IF FND_API.To_Boolean (p_commit) THEN
5974: COMMIT WORK;
5975: END IF;
5976: -- Standard call to get message count and if count is 1, get message info.
5977: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5978: -- Standard End of Procedure/Function Logging
5979: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5980: EXCEPTION
5981: WHEN FND_API.G_EXC_ERROR THEN
5977: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5978: -- Standard End of Procedure/Function Logging
5979: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5980: EXCEPTION
5981: WHEN FND_API.G_EXC_ERROR THEN
5982: -- Standard Expected Error Logging
5983: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5984: ROLLBACK TO Adjust_Lines_PVT;
5985: x_return_status := FND_API.G_RET_STS_ERROR;
5981: WHEN FND_API.G_EXC_ERROR THEN
5982: -- Standard Expected Error Logging
5983: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5984: ROLLBACK TO Adjust_Lines_PVT;
5985: x_return_status := FND_API.G_RET_STS_ERROR;
5986: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5988: -- Standard Unexpected Error Logging
5989: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5982: -- Standard Expected Error Logging
5983: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5984: ROLLBACK TO Adjust_Lines_PVT;
5985: x_return_status := FND_API.G_RET_STS_ERROR;
5986: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5988: -- Standard Unexpected Error Logging
5989: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5990: ROLLBACK TO Adjust_Lines_PVT;
5983: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5984: ROLLBACK TO Adjust_Lines_PVT;
5985: x_return_status := FND_API.G_RET_STS_ERROR;
5986: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5988: -- Standard Unexpected Error Logging
5989: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5990: ROLLBACK TO Adjust_Lines_PVT;
5991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5988: -- Standard Unexpected Error Logging
5989: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5990: ROLLBACK TO Adjust_Lines_PVT;
5991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5993: WHEN OTHERS THEN
5994: -- Standard Unexpected Error Logging
5995: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5988: -- Standard Unexpected Error Logging
5989: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5990: ROLLBACK TO Adjust_Lines_PVT;
5991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5993: WHEN OTHERS THEN
5994: -- Standard Unexpected Error Logging
5995: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5996: ROLLBACK TO Adjust_Lines_PVT;
5993: WHEN OTHERS THEN
5994: -- Standard Unexpected Error Logging
5995: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
5996: ROLLBACK TO Adjust_Lines_PVT;
5997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5998: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5999: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6000: END IF;
6001: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
5997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5998: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5999: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6000: END IF;
6001: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6002: END Adjust_Lines;
6003:
6004: -- API name : Get_1ary2aryQty
6005: -- Type : Private
6007: --
6008: -- Pre-reqs : None
6009: -- Parameters :
6010: -- IN : p_api_version IN NUMBER Required
6011: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
6012: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
6013: -- p_inventory_item_id IN NUMBER
6014: -- p_organization_id IN NUMBER
6015: -- p_uom_code IN VARCHAR2
6008: -- Pre-reqs : None
6009: -- Parameters :
6010: -- IN : p_api_version IN NUMBER Required
6011: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
6012: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
6013: -- p_inventory_item_id IN NUMBER
6014: -- p_organization_id IN NUMBER
6015: -- p_uom_code IN VARCHAR2
6016: -- p_qty IN NUMBER
6029: -- Notes :
6030: PROCEDURE Get_1ary2aryQty
6031: (
6032: p_api_version IN NUMBER,
6033: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6034: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6035: p_inventory_item_id IN NUMBER,
6036: p_organization_id IN NUMBER,
6037: p_uom_code IN VARCHAR2,
6030: PROCEDURE Get_1ary2aryQty
6031: (
6032: p_api_version IN NUMBER,
6033: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6034: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6035: p_inventory_item_id IN NUMBER,
6036: p_organization_id IN NUMBER,
6037: p_uom_code IN VARCHAR2,
6038: p_qty IN NUMBER,
6051: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6052: -- Standard Start of API savepoint
6053: SAVEPOINT Get_1ary2aryQty_PVT;
6054: -- Initialize message list if p_init_msg_list is set to TRUE.
6055: IF FND_API.to_Boolean (p_init_msg_list) THEN
6056: FND_MSG_PUB.initialize;
6057: END IF;
6058: -- Check for call compatibility.
6059: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6055: IF FND_API.to_Boolean (p_init_msg_list) THEN
6056: FND_MSG_PUB.initialize;
6057: END IF;
6058: -- Check for call compatibility.
6059: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6061: END IF;
6062: --
6063: -- Initialize return status to SUCCESS
6056: FND_MSG_PUB.initialize;
6057: END IF;
6058: -- Check for call compatibility.
6059: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6061: END IF;
6062: --
6063: -- Initialize return status to SUCCESS
6064: --
6061: END IF;
6062: --
6063: -- Initialize return status to SUCCESS
6064: --
6065: x_return_status := FND_API.G_RET_STS_SUCCESS;
6066: l_debug_info := 'Getting 1ary and 2ary UOM Code from MTL tables';
6067: INL_LOGGING_PVT.Log_Statement (
6068: p_module_name => g_module_name,
6069: p_procedure_name => l_api_name,
6175: p_var_value => TO_CHAR (x_2ary_qty)) ;
6176: END IF;
6177: --==========
6178: -- Standard check of p_commit.
6179: IF FND_API.To_Boolean (p_commit) THEN
6180: COMMIT WORK;
6181: END IF;
6182: -- Standard call to get message count and if count is 1, get message info.
6183: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6179: IF FND_API.To_Boolean (p_commit) THEN
6180: COMMIT WORK;
6181: END IF;
6182: -- Standard call to get message count and if count is 1, get message info.
6183: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6184: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6185: EXCEPTION
6186: WHEN FND_API.G_EXC_ERROR THEN
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6182: -- Standard call to get message count and if count is 1, get message info.
6183: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6184: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6185: EXCEPTION
6186: WHEN FND_API.G_EXC_ERROR THEN
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6189: ROLLBACK TO Get_1ary2aryQty_PVT;
6190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6184: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6185: EXCEPTION
6186: WHEN FND_API.G_EXC_ERROR THEN
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6189: ROLLBACK TO Get_1ary2aryQty_PVT;
6190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6191: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6186: WHEN FND_API.G_EXC_ERROR THEN
6187: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6189: ROLLBACK TO Get_1ary2aryQty_PVT;
6190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6191: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: ROLLBACK TO Get_1ary2aryQty_PVT;
6194: WHEN OTHERS THEN
6188: x_return_status := FND_API.G_RET_STS_ERROR;
6189: ROLLBACK TO Get_1ary2aryQty_PVT;
6190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6191: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: ROLLBACK TO Get_1ary2aryQty_PVT;
6194: WHEN OTHERS THEN
6195: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: ROLLBACK TO Get_1ary2aryQty_PVT;
6194: WHEN OTHERS THEN
6195: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6197: ROLLBACK TO Get_1ary2aryQty_PVT;
6198: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6199: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6200: END IF;
6244: p_procedure_name => l_func_name,
6245: p_debug_info => l_debug_info) ;
6246:
6247: INL_SHIPMENT_PVT.Get_AvailableQty(p_api_version => 1.0,
6248: p_init_msg_list => FND_API.G_FALSE,
6249: p_commit => FND_API.G_FALSE,
6250: p_ship_line_src_code => p_ship_line_src_type_code,
6251: p_parent_id => p_parent_id,
6252: p_available_quantity => l_available_qty,
6245: p_debug_info => l_debug_info) ;
6246:
6247: INL_SHIPMENT_PVT.Get_AvailableQty(p_api_version => 1.0,
6248: p_init_msg_list => FND_API.G_FALSE,
6249: p_commit => FND_API.G_FALSE,
6250: p_ship_line_src_code => p_ship_line_src_type_code,
6251: p_parent_id => p_parent_id,
6252: p_available_quantity => l_available_qty,
6253: p_tolerable_quantity => l_tolerable_quantity,
6280: -- Function : Run all required steps to Complete a given LCM Shipment.
6281: -- Pre-reqs : None
6282: -- Parameters :
6283: -- IN : p_api_version IN NUMBER Required
6284: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
6285: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
6286: -- p_ship_header_id IN NUMBER
6287: -- p_task_code IN VARCHAR2
6288: -- OUT x_return_status OUT NOCOPY VARCHAR2
6281: -- Pre-reqs : None
6282: -- Parameters :
6283: -- IN : p_api_version IN NUMBER Required
6284: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
6285: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
6286: -- p_ship_header_id IN NUMBER
6287: -- p_task_code IN VARCHAR2
6288: -- OUT x_return_status OUT NOCOPY VARCHAR2
6289: -- x_msg_count OUT NOCOPY NUMBER
6292: -- Version : Current version 1.0
6293: --
6294: -- Notes :
6295: PROCEDURE ProcessAction(p_api_version IN NUMBER,
6296: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6297: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6298: p_ship_header_id IN NUMBER,
6299: p_task_code IN VARCHAR2,
6300: x_return_status OUT NOCOPY VARCHAR2,
6293: --
6294: -- Notes :
6295: PROCEDURE ProcessAction(p_api_version IN NUMBER,
6296: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6297: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6298: p_ship_header_id IN NUMBER,
6299: p_task_code IN VARCHAR2,
6300: x_return_status OUT NOCOPY VARCHAR2,
6301: x_msg_count OUT NOCOPY NUMBER,
6319: p_procedure_name => l_api_name) ;
6320: -- Standard Start of API savepoint
6321: SAVEPOINT Run_Submit_PVT;
6322: -- Initialize message list if p_init_msg_list is set to TRUE.
6323: IF FND_API.to_Boolean (p_init_msg_list) THEN
6324: FND_MSG_PUB.initialize;
6325: END IF;
6326: -- Check for call compatibility.
6327: IF NOT FND_API.Compatible_API_Call (l_api_version,
6323: IF FND_API.to_Boolean (p_init_msg_list) THEN
6324: FND_MSG_PUB.initialize;
6325: END IF;
6326: -- Check for call compatibility.
6327: IF NOT FND_API.Compatible_API_Call (l_api_version,
6328: p_api_version,
6329: l_api_name,
6330: G_PKG_NAME) THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6327: IF NOT FND_API.Compatible_API_Call (l_api_version,
6328: p_api_version,
6329: l_api_name,
6330: G_PKG_NAME) THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6332: END IF;
6333: -- Initialize API return status to success
6334: x_return_status := FND_API.G_RET_STS_SUCCESS;
6335: -- Get the Pending Match Flag and Organization Id
6330: G_PKG_NAME) THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6332: END IF;
6333: -- Initialize API return status to success
6334: x_return_status := FND_API.G_RET_STS_SUCCESS;
6335: -- Get the Pending Match Flag and Organization Id
6336: l_debug_info := 'Get the Pending Match Flag and Organization Id';
6337: INL_LOGGING_PVT.Log_Statement (
6338: p_module_name => g_module_name,
6365: p_debug_info => l_debug_info
6366: ) ;
6367:
6368: Adjust_Lines (p_api_version => 1.0,
6369: p_init_msg_list => FND_API.G_FALSE,
6370: p_commit => FND_API.G_FALSE,
6371: p_ship_header_id => p_ship_header_id,
6372: x_return_status => l_return_status,
6373: x_msg_count => l_msg_count,
6366: ) ;
6367:
6368: Adjust_Lines (p_api_version => 1.0,
6369: p_init_msg_list => FND_API.G_FALSE,
6370: p_commit => FND_API.G_FALSE,
6371: p_ship_header_id => p_ship_header_id,
6372: x_return_status => l_return_status,
6373: x_msg_count => l_msg_count,
6374: x_msg_data => l_msg_data) ;
6373: x_msg_count => l_msg_count,
6374: x_msg_data => l_msg_data) ;
6375:
6376: -- If any errors happen abort the process.
6377: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6378: RAISE FND_API.G_EXC_ERROR;
6379: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6381: END IF;
6374: x_msg_data => l_msg_data) ;
6375:
6376: -- If any errors happen abort the process.
6377: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6378: RAISE FND_API.G_EXC_ERROR;
6379: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6381: END IF;
6382:
6375:
6376: -- If any errors happen abort the process.
6377: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6378: RAISE FND_API.G_EXC_ERROR;
6379: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6381: END IF;
6382:
6383: -- Update Pending Matching Flag if needed
6376: -- If any errors happen abort the process.
6377: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6378: RAISE FND_API.G_EXC_ERROR;
6379: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6381: END IF;
6382:
6383: -- Update Pending Matching Flag if needed
6384: l_debug_info := 'Update PendingMatchingFlag';
6407: p_debug_info => l_debug_info
6408: ) ;
6409:
6410: INL_TAX_PVT.Generate_Taxes (p_api_version => 1.0,
6411: p_init_msg_list => FND_API.G_FALSE,
6412: p_commit => FND_API.G_FALSE,
6413: p_ship_header_id => p_ship_header_id,
6414: x_return_status => l_return_status,
6415: x_msg_count => l_msg_count,
6408: ) ;
6409:
6410: INL_TAX_PVT.Generate_Taxes (p_api_version => 1.0,
6411: p_init_msg_list => FND_API.G_FALSE,
6412: p_commit => FND_API.G_FALSE,
6413: p_ship_header_id => p_ship_header_id,
6414: x_return_status => l_return_status,
6415: x_msg_count => l_msg_count,
6416: x_msg_data => l_msg_data) ;
6415: x_msg_count => l_msg_count,
6416: x_msg_data => l_msg_data) ;
6417:
6418: -- If any errors happen abort the process.
6419: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6420: RAISE FND_API.G_EXC_ERROR;
6421: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: END IF;
6416: x_msg_data => l_msg_data) ;
6417:
6418: -- If any errors happen abort the process.
6419: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6420: RAISE FND_API.G_EXC_ERROR;
6421: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: END IF;
6424: END IF;
6417:
6418: -- If any errors happen abort the process.
6419: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6420: RAISE FND_API.G_EXC_ERROR;
6421: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: END IF;
6424: END IF;
6425:
6418: -- If any errors happen abort the process.
6419: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6420: RAISE FND_API.G_EXC_ERROR;
6421: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: END IF;
6424: END IF;
6425:
6426: -- Run Validation only for NOT Pending Shipments
6434:
6435: l_msg_count_validate := NVL (fnd_msg_pub.Count_Msg (), 0) ;
6436:
6437: Validate_Shipment (p_api_version => 1.0,
6438: p_init_msg_list => FND_API.G_FALSE,
6439: p_commit => FND_API.G_FALSE,
6440: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6441: p_ship_header_id => p_ship_header_id,
6442: x_return_status => l_return_status,
6435: l_msg_count_validate := NVL (fnd_msg_pub.Count_Msg (), 0) ;
6436:
6437: Validate_Shipment (p_api_version => 1.0,
6438: p_init_msg_list => FND_API.G_FALSE,
6439: p_commit => FND_API.G_FALSE,
6440: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6441: p_ship_header_id => p_ship_header_id,
6442: x_return_status => l_return_status,
6443: x_msg_count => l_msg_count,
6436:
6437: Validate_Shipment (p_api_version => 1.0,
6438: p_init_msg_list => FND_API.G_FALSE,
6439: p_commit => FND_API.G_FALSE,
6440: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6441: p_ship_header_id => p_ship_header_id,
6442: x_return_status => l_return_status,
6443: x_msg_count => l_msg_count,
6444: x_msg_data => l_msg_data) ;
6443: x_msg_count => l_msg_count,
6444: x_msg_data => l_msg_data) ;
6445:
6446: -- If any errors happen abort the process.
6447: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448: RAISE FND_API.G_EXC_ERROR;
6449: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6451: END IF;
6444: x_msg_data => l_msg_data) ;
6445:
6446: -- If any errors happen abort the process.
6447: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448: RAISE FND_API.G_EXC_ERROR;
6449: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6451: END IF;
6452: l_msg_count_validate := NVL (l_msg_count, 0) - l_msg_count_validate;
6445:
6446: -- If any errors happen abort the process.
6447: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448: RAISE FND_API.G_EXC_ERROR;
6449: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6451: END IF;
6452: l_msg_count_validate := NVL (l_msg_count, 0) - l_msg_count_validate;
6453: END IF;
6446: -- If any errors happen abort the process.
6447: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448: RAISE FND_API.G_EXC_ERROR;
6449: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6451: END IF;
6452: l_msg_count_validate := NVL (l_msg_count, 0) - l_msg_count_validate;
6453: END IF;
6454:
6466: ) ;
6467:
6468:
6469: INL_LANDEDCOST_PVT.Run_Calculation (p_api_version => 1.0,
6470: p_init_msg_list => FND_API.G_FALSE,
6471: p_commit => FND_API.G_FALSE,
6472: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6473: p_ship_header_id => p_ship_header_id,
6474: p_calc_scope_code => 0,
6467:
6468:
6469: INL_LANDEDCOST_PVT.Run_Calculation (p_api_version => 1.0,
6470: p_init_msg_list => FND_API.G_FALSE,
6471: p_commit => FND_API.G_FALSE,
6472: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6473: p_ship_header_id => p_ship_header_id,
6474: p_calc_scope_code => 0,
6475: x_return_status => l_return_status,
6468:
6469: INL_LANDEDCOST_PVT.Run_Calculation (p_api_version => 1.0,
6470: p_init_msg_list => FND_API.G_FALSE,
6471: p_commit => FND_API.G_FALSE,
6472: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6473: p_ship_header_id => p_ship_header_id,
6474: p_calc_scope_code => 0,
6475: x_return_status => l_return_status,
6476: x_msg_count => l_msg_count,
6476: x_msg_count => l_msg_count,
6477: x_msg_data => l_msg_data) ;
6478:
6479: -- If any errors happen abort the process.
6480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481: RAISE FND_API.G_EXC_ERROR;
6482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6484: END IF;
6477: x_msg_data => l_msg_data) ;
6478:
6479: -- If any errors happen abort the process.
6480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481: RAISE FND_API.G_EXC_ERROR;
6482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6484: END IF;
6485: END IF;
6478:
6479: -- If any errors happen abort the process.
6480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481: RAISE FND_API.G_EXC_ERROR;
6482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6484: END IF;
6485: END IF;
6486:
6479: -- If any errors happen abort the process.
6480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481: RAISE FND_API.G_EXC_ERROR;
6482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6484: END IF;
6485: END IF;
6486:
6487: -- Submit Shipment and call final integrations
6493: p_debug_info => l_debug_info
6494: ) ;
6495:
6496: Complete_Shipment (p_api_version => 1.0,
6497: p_init_msg_list => FND_API.G_FALSE,
6498: p_commit => FND_API.G_FALSE,
6499: p_ship_header_id => p_ship_header_id,
6500: p_pending_matching_flag => l_pending_matching_flag,
6501: p_organization_id => l_organization_id,
6494: ) ;
6495:
6496: Complete_Shipment (p_api_version => 1.0,
6497: p_init_msg_list => FND_API.G_FALSE,
6498: p_commit => FND_API.G_FALSE,
6499: p_ship_header_id => p_ship_header_id,
6500: p_pending_matching_flag => l_pending_matching_flag,
6501: p_organization_id => l_organization_id,
6502: x_return_status => l_return_status,
6503: x_msg_count => l_msg_count,
6504: x_msg_data => l_msg_data) ;
6505:
6506: -- If any errors happen abort the process.
6507: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6508: RAISE FND_API.G_EXC_ERROR;
6509: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6511: END IF;
6504: x_msg_data => l_msg_data) ;
6505:
6506: -- If any errors happen abort the process.
6507: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6508: RAISE FND_API.G_EXC_ERROR;
6509: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6511: END IF;
6512: END IF;
6505:
6506: -- If any errors happen abort the process.
6507: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6508: RAISE FND_API.G_EXC_ERROR;
6509: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6511: END IF;
6512: END IF;
6513:
6506: -- If any errors happen abort the process.
6507: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6508: RAISE FND_API.G_EXC_ERROR;
6509: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6511: END IF;
6512: END IF;
6513:
6514: -- If any errors happen abort the process.
6511: END IF;
6512: END IF;
6513:
6514: -- If any errors happen abort the process.
6515: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6519: END IF;
6512: END IF;
6513:
6514: -- If any errors happen abort the process.
6515: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6519: END IF;
6520:
6513:
6514: -- If any errors happen abort the process.
6515: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6519: END IF;
6520:
6521: -- Standard check of p_commit.
6514: -- If any errors happen abort the process.
6515: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6519: END IF;
6520:
6521: -- Standard check of p_commit.
6522: IF FND_API.To_Boolean (p_commit) THEN
6518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6519: END IF;
6520:
6521: -- Standard check of p_commit.
6522: IF FND_API.To_Boolean (p_commit) THEN
6523: COMMIT WORK;
6524: END IF;
6525:
6526: -- Standard call to get message count and if count is 1, get message info.
6523: COMMIT WORK;
6524: END IF;
6525:
6526: -- Standard call to get message count and if count is 1, get message info.
6527: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6528: p_count => x_msg_count,
6529: p_data => x_msg_data) ;
6530:
6531: -- Standard End of Procedure/Function Logging
6531: -- Standard End of Procedure/Function Logging
6532: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
6533: p_procedure_name => l_api_name) ;
6534: EXCEPTION
6535: WHEN FND_API.G_EXC_ERROR THEN
6536: -- Standard Expected Error Logging
6537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
6538: p_procedure_name => l_api_name) ;
6539: ROLLBACK TO Run_Submit_PVT;
6536: -- Standard Expected Error Logging
6537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
6538: p_procedure_name => l_api_name) ;
6539: ROLLBACK TO Run_Submit_PVT;
6540: x_return_status := FND_API.G_RET_STS_ERROR;
6541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6542: p_count => x_msg_count,
6543: p_data => x_msg_data) ;
6544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6537: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
6538: p_procedure_name => l_api_name) ;
6539: ROLLBACK TO Run_Submit_PVT;
6540: x_return_status := FND_API.G_RET_STS_ERROR;
6541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6542: p_count => x_msg_count,
6543: p_data => x_msg_data) ;
6544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6545: -- Standard Unexpected Error Logging
6540: x_return_status := FND_API.G_RET_STS_ERROR;
6541: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6542: p_count => x_msg_count,
6543: p_data => x_msg_data) ;
6544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6545: -- Standard Unexpected Error Logging
6546: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
6547: p_procedure_name => l_api_name) ;
6548: ROLLBACK TO Run_Submit_PVT;
6545: -- Standard Unexpected Error Logging
6546: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
6547: p_procedure_name => l_api_name) ;
6548: ROLLBACK TO Run_Submit_PVT;
6549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6550: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6551: p_count => x_msg_count,
6552: p_data => x_msg_data) ;
6553: WHEN OTHERS THEN
6546: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
6547: p_procedure_name => l_api_name) ;
6548: ROLLBACK TO Run_Submit_PVT;
6549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6550: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6551: p_count => x_msg_count,
6552: p_data => x_msg_data) ;
6553: WHEN OTHERS THEN
6554: -- Standard Unexpected Error Logging
6554: -- Standard Unexpected Error Logging
6555: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
6556: p_procedure_name => l_api_name) ;
6557: ROLLBACK TO Run_Submit_PVT;
6558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6560: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
6561: p_procedure_name => l_api_name) ;
6562: END IF;
6559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6560: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
6561: p_procedure_name => l_api_name) ;
6562: END IF;
6563: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
6564: p_count => x_msg_count,
6565: p_data => x_msg_data) ;
6566: END ProcessAction;
6567:
6588: p_ship_header_id IN NUMBER)
6589: IS
6590:
6591: l_proc_name CONSTANT VARCHAR2 (30) := 'Complete_PendingShipment';
6592: l_return_status VARCHAR2 (1) := FND_API.G_RET_STS_SUCCESS;
6593: l_msg_count NUMBER;
6594: l_msg_data VARCHAR2 (2000) ;
6595: l_debug_info VARCHAR2 (200) ;
6596:
6624: ) ;
6625:
6626:
6627: ProcessAction (p_api_version => 1.0,
6628: p_init_msg_list => FND_API.G_FALSE,
6629: p_commit => FND_API.G_FALSE,
6630: p_ship_header_id => p_ship_header_id,
6631: p_task_code => '60', -- Process until Submit task
6632: x_return_status => l_return_status,
6625:
6626:
6627: ProcessAction (p_api_version => 1.0,
6628: p_init_msg_list => FND_API.G_FALSE,
6629: p_commit => FND_API.G_FALSE,
6630: p_ship_header_id => p_ship_header_id,
6631: p_task_code => '60', -- Process until Submit task
6632: x_return_status => l_return_status,
6633: x_msg_count => l_msg_count,
6640: ELSIF l_msg_count > 1 THEN
6641: FND_FILE.PUT_LINE(FND_FILE.LOG, l_msg_count|| ' warnings found.' );
6642: FOR i IN 1 ..l_msg_count
6643: LOOP
6644: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.get (i, FND_API.g_false) );
6645: END LOOP;
6646: retcode := 1;
6647: END IF;
6648:
6646: retcode := 1;
6647: END IF;
6648:
6649: -- If any errors happen abort the process.
6650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6651: RAISE FND_API.G_EXC_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6647: END IF;
6648:
6649: -- If any errors happen abort the process.
6650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6651: RAISE FND_API.G_EXC_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6655: -- Submit ALL Pending Shipments
6648:
6649: -- If any errors happen abort the process.
6650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6651: RAISE FND_API.G_EXC_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6655: -- Submit ALL Pending Shipments
6656: ELSE
6649: -- If any errors happen abort the process.
6650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6651: RAISE FND_API.G_EXC_ERROR;
6652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6655: -- Submit ALL Pending Shipments
6656: ELSE
6657: OPEN c_pending_shipments;
6666: p_debug_info => l_debug_info
6667: ) ;
6668:
6669: ProcessAction (p_api_version => 1.0,
6670: p_init_msg_list => FND_API.G_FALSE,
6671: p_commit => FND_API.G_FALSE,
6672: p_ship_header_id => l_pending_shipments_rec.ship_header_id,
6673: p_task_code => '60', -- Process until Submit task
6674: x_return_status => l_return_status,
6667: ) ;
6668:
6669: ProcessAction (p_api_version => 1.0,
6670: p_init_msg_list => FND_API.G_FALSE,
6671: p_commit => FND_API.G_FALSE,
6672: p_ship_header_id => l_pending_shipments_rec.ship_header_id,
6673: p_task_code => '60', -- Process until Submit task
6674: x_return_status => l_return_status,
6675: x_msg_count => l_msg_count,
6682: ELSIF l_msg_count > 1 THEN
6683: errbuf := errbuf||' '||l_msg_count||' warnings found.'||FND_GLOBAL.local_chr (10) ;
6684: FOR i IN 1 ..l_msg_count
6685: LOOP
6686: errbuf := errbuf||FND_MSG_PUB.get (i, FND_API.g_false) ||FND_GLOBAL.local_chr (10) ;
6687: END LOOP;
6688: retcode := 1;
6689: END IF;
6690:
6688: retcode := 1;
6689: END IF;
6690:
6691: -- If any errors happen abort the process.
6692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6693: RAISE FND_API.G_EXC_ERROR;
6694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6689: END IF;
6690:
6691: -- If any errors happen abort the process.
6692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6693: RAISE FND_API.G_EXC_ERROR;
6694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: END LOOP;
6690:
6691: -- If any errors happen abort the process.
6692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6693: RAISE FND_API.G_EXC_ERROR;
6694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: END LOOP;
6698: CLOSE c_pending_shipments;
6691: -- If any errors happen abort the process.
6692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6693: RAISE FND_API.G_EXC_ERROR;
6694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: END LOOP;
6698: CLOSE c_pending_shipments;
6699: END IF;
6701: -- Standard End of Procedure/Function Logging
6702: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
6703: p_procedure_name => l_proc_name) ;
6704: EXCEPTION
6705: WHEN FND_API.G_EXC_ERROR THEN
6706: -- Standard Expected Error Logging
6707: INL_logging_pvt.Log_ExpecError ( p_module_name => g_module_name,
6708: p_procedure_name => l_proc_name) ;
6709: retcode := 1;
6707: INL_logging_pvt.Log_ExpecError ( p_module_name => g_module_name,
6708: p_procedure_name => l_proc_name) ;
6709: retcode := 1;
6710: errbuf := errbuf ||' G_EXC_ERROR '||SQLERRM;
6711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6712: -- Standard Unexpected Error Logging
6713: INL_logging_pvt.Log_UnexpecError ( p_module_name => g_module_name,
6714: p_procedure_name => l_proc_name) ;
6715: retcode := 2;
6744: l_proc_name CONSTANT VARCHAR2 (100) := 'Update_PendingMatchingFlag';
6745: BEGIN
6746: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6747: -- Initialize API return status to success
6748: x_return_status := FND_API.G_RET_STS_SUCCESS;
6749: UPDATE inl_ship_headers
6750: SET pending_matching_flag = p_pending_matching_flag,
6751: created_by = fnd_global.user_id ,
6752: creation_date = SYSDATE ,
6756: WHERE ship_header_id = p_ship_header_id;
6757:
6758: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6759: EXCEPTION
6760: WHEN FND_API.G_EXC_ERROR THEN
6761: -- Standard Expected Error Logging
6762: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: EXCEPTION
6760: WHEN FND_API.G_EXC_ERROR THEN
6761: -- Standard Expected Error Logging
6762: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6765: -- Standard Unexpected Error Logging
6766: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6760: WHEN FND_API.G_EXC_ERROR THEN
6761: -- Standard Expected Error Logging
6762: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6765: -- Standard Unexpected Error Logging
6766: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6768: WHEN OTHERS THEN
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6765: -- Standard Unexpected Error Logging
6766: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6768: WHEN OTHERS THEN
6769: -- Standard Unexpected Error Logging
6770: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6768: WHEN OTHERS THEN
6769: -- Standard Unexpected Error Logging
6770: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_proc_name) ;
6771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6773: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_proc_name) ;
6774: END IF;
6775: END Update_PendingMatchingFlag;
6781: -- Pre-reqs : None
6782: -- Parameters :
6783: -- IN :
6784: -- p_api_version IN NUMBER Required
6785: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
6786: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
6787: -- p_ship_header_id IN NUMBER
6788: -- p_charge_line_id IN NUMBER
6789: -- OUT :
6782: -- Parameters :
6783: -- IN :
6784: -- p_api_version IN NUMBER Required
6785: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
6786: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
6787: -- p_ship_header_id IN NUMBER
6788: -- p_charge_line_id IN NUMBER
6789: -- OUT :
6790: -- x_return_status OUT NOCOPY VARCHAR2
6797: -- Notes :
6798: PROCEDURE Delete_ChargeAssoc
6799: (
6800: p_api_version IN NUMBER,
6801: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6802: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6803: p_ship_header_id IN NUMBER,
6804: p_charge_line_id IN NUMBER,
6805: x_return_status OUT NOCOPY VARCHAR2,
6798: PROCEDURE Delete_ChargeAssoc
6799: (
6800: p_api_version IN NUMBER,
6801: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6802: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6803: p_ship_header_id IN NUMBER,
6804: p_charge_line_id IN NUMBER,
6805: x_return_status OUT NOCOPY VARCHAR2,
6806: x_msg_count OUT NOCOPY NUMBER,
6830: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6831: -- Standard Start of API savepoint
6832: SAVEPOINT Delete_ChargeAssoc_PVT;
6833: -- Initialize message list if p_init_msg_list is set to TRUE.
6834: IF FND_API.to_Boolean (p_init_msg_list) THEN
6835: FND_MSG_PUB.initialize;
6836: END IF;
6837: -- Check for call compatibility.
6838: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6834: IF FND_API.to_Boolean (p_init_msg_list) THEN
6835: FND_MSG_PUB.initialize;
6836: END IF;
6837: -- Check for call compatibility.
6838: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6840: END IF;
6841: -- Initialize API return status to success
6842: x_return_status := FND_API.G_RET_STS_SUCCESS;
6835: FND_MSG_PUB.initialize;
6836: END IF;
6837: -- Check for call compatibility.
6838: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6840: END IF;
6841: -- Initialize API return status to success
6842: x_return_status := FND_API.G_RET_STS_SUCCESS;
6843: -- API Body
6838: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
6839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6840: END IF;
6841: -- Initialize API return status to success
6842: x_return_status := FND_API.G_RET_STS_SUCCESS;
6843: -- API Body
6844: BEGIN
6845: OPEN c_affected_ship;
6846: LOOP
6848: EXIT
6849: WHEN c_affected_ship%NOTFOUND;
6850: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => 'ship_status', p_var_value => r_affected_ship.ship_status) ;
6851: IF (r_affected_ship.ship_status = 'VALIDATED') THEN
6852: Set_ToRevalidate (1.0, FND_API.G_FALSE, FND_API.G_FALSE, r_affected_ship.ship_header_id, l_msg_count, l_msg_data, l_return_status) ;
6853: -- If any errors happen abort the process.
6854: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6855: RAISE FND_API.G_EXC_ERROR;
6856: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6850: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name, p_procedure_name => l_api_name, p_var_name => 'ship_status', p_var_value => r_affected_ship.ship_status) ;
6851: IF (r_affected_ship.ship_status = 'VALIDATED') THEN
6852: Set_ToRevalidate (1.0, FND_API.G_FALSE, FND_API.G_FALSE, r_affected_ship.ship_header_id, l_msg_count, l_msg_data, l_return_status) ;
6853: -- If any errors happen abort the process.
6854: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6855: RAISE FND_API.G_EXC_ERROR;
6856: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6858: END IF;
6851: IF (r_affected_ship.ship_status = 'VALIDATED') THEN
6852: Set_ToRevalidate (1.0, FND_API.G_FALSE, FND_API.G_FALSE, r_affected_ship.ship_header_id, l_msg_count, l_msg_data, l_return_status) ;
6853: -- If any errors happen abort the process.
6854: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6855: RAISE FND_API.G_EXC_ERROR;
6856: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6858: END IF;
6859: ELSIF (r_affected_ship.ship_status = 'COMPLETED') THEN
6852: Set_ToRevalidate (1.0, FND_API.G_FALSE, FND_API.G_FALSE, r_affected_ship.ship_header_id, l_msg_count, l_msg_data, l_return_status) ;
6853: -- If any errors happen abort the process.
6854: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6855: RAISE FND_API.G_EXC_ERROR;
6856: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6858: END IF;
6859: ELSIF (r_affected_ship.ship_status = 'COMPLETED') THEN
6860: Update_PendingMatchingFlag (r_affected_ship.ship_header_id, 'Y', l_return_status) ;
6853: -- If any errors happen abort the process.
6854: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6855: RAISE FND_API.G_EXC_ERROR;
6856: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6858: END IF;
6859: ELSIF (r_affected_ship.ship_status = 'COMPLETED') THEN
6860: Update_PendingMatchingFlag (r_affected_ship.ship_header_id, 'Y', l_return_status) ;
6861: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6858: END IF;
6859: ELSIF (r_affected_ship.ship_status = 'COMPLETED') THEN
6860: Update_PendingMatchingFlag (r_affected_ship.ship_header_id, 'Y', l_return_status) ;
6861: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6862: FND_MESSAGE.SET_NAME ('INL', 'INL_UNEXPECTED_ERR') ;
6863: FND_MSG_PUB.ADD;
6864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6865: RAISE FND_API.G_EXC_ERROR;
6860: Update_PendingMatchingFlag (r_affected_ship.ship_header_id, 'Y', l_return_status) ;
6861: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6862: FND_MESSAGE.SET_NAME ('INL', 'INL_UNEXPECTED_ERR') ;
6863: FND_MSG_PUB.ADD;
6864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6865: RAISE FND_API.G_EXC_ERROR;
6866: ELSE
6867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6868: END IF;
6861: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6862: FND_MESSAGE.SET_NAME ('INL', 'INL_UNEXPECTED_ERR') ;
6863: FND_MSG_PUB.ADD;
6864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6865: RAISE FND_API.G_EXC_ERROR;
6866: ELSE
6867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6868: END IF;
6869: END IF;
6863: FND_MSG_PUB.ADD;
6864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6865: RAISE FND_API.G_EXC_ERROR;
6866: ELSE
6867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6868: END IF;
6869: END IF;
6870: END IF;
6871: END LOOP;
6871: END LOOP;
6872: CLOSE c_affected_ship;
6873: END;
6874: -- Standard check of p_commit.
6875: IF FND_API.To_Boolean (p_commit) THEN
6876: COMMIT WORK;
6877: END IF;
6878: -- Standard call to get message count and if count is 1, get message info.
6879: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6875: IF FND_API.To_Boolean (p_commit) THEN
6876: COMMIT WORK;
6877: END IF;
6878: -- Standard call to get message count and if count is 1, get message info.
6879: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6880: -- Standard End of Procedure/Function Logging
6881: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6882: EXCEPTION
6883: WHEN FND_API.G_EXC_ERROR THEN
6879: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6880: -- Standard End of Procedure/Function Logging
6881: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6882: EXCEPTION
6883: WHEN FND_API.G_EXC_ERROR THEN
6884: -- Standard Expected Error Logging
6885: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6886: ROLLBACK TO Delete_ChargeAssoc_PVT;
6887: x_return_status := FND_API.G_RET_STS_ERROR;
6883: WHEN FND_API.G_EXC_ERROR THEN
6884: -- Standard Expected Error Logging
6885: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6886: ROLLBACK TO Delete_ChargeAssoc_PVT;
6887: x_return_status := FND_API.G_RET_STS_ERROR;
6888: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6890: -- Standard Unexpected Error Logging
6891: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6884: -- Standard Expected Error Logging
6885: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6886: ROLLBACK TO Delete_ChargeAssoc_PVT;
6887: x_return_status := FND_API.G_RET_STS_ERROR;
6888: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6890: -- Standard Unexpected Error Logging
6891: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6892: ROLLBACK TO Delete_ChargeAssoc_PVT;
6885: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6886: ROLLBACK TO Delete_ChargeAssoc_PVT;
6887: x_return_status := FND_API.G_RET_STS_ERROR;
6888: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6890: -- Standard Unexpected Error Logging
6891: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6892: ROLLBACK TO Delete_ChargeAssoc_PVT;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6890: -- Standard Unexpected Error Logging
6891: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6892: ROLLBACK TO Delete_ChargeAssoc_PVT;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6895: WHEN OTHERS THEN
6896: -- Standard Unexpected Error Logging
6897: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6890: -- Standard Unexpected Error Logging
6891: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6892: ROLLBACK TO Delete_ChargeAssoc_PVT;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6895: WHEN OTHERS THEN
6896: -- Standard Unexpected Error Logging
6897: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6898: ROLLBACK TO Delete_ChargeAssoc_PVT;
6895: WHEN OTHERS THEN
6896: -- Standard Unexpected Error Logging
6897: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
6898: ROLLBACK TO Delete_ChargeAssoc_PVT;
6899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6900: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6901: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6902: END IF;
6903: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6900: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6901: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name, p_procedure_name => l_api_name) ;
6902: END IF;
6903: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
6904: END Delete_ChargeAssoc;
6905:
6906: END INL_SHIPMENT_PVT;