50: p_procedure_name => l_proc_name
51: );
52:
53: -- Initialize API return status to success
54: x_return_status := FND_API.G_RET_STS_SUCCESS;
55:
56: --Getting PO_LINE_LOCATION data
57: l_debug_info := 'Getting PO_LINE_LOCATION data';
58: INL_LOGGING_PVT.Log_Statement (
128: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
129: p_procedure_name => l_proc_name);
130:
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
133: -- Standard Expected Error Logging
134: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
135: p_procedure_name => l_proc_name);
136: x_return_status := FND_API.G_RET_STS_ERROR;
132: WHEN FND_API.G_EXC_ERROR THEN
133: -- Standard Expected Error Logging
134: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
135: p_procedure_name => l_proc_name);
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
138: -- Standard Unexpected Error Logging
139: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
140: p_procedure_name => l_proc_name);
133: -- Standard Expected Error Logging
134: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
135: p_procedure_name => l_proc_name);
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
138: -- Standard Unexpected Error Logging
139: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
140: p_procedure_name => l_proc_name);
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
138: -- Standard Unexpected Error Logging
139: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
140: p_procedure_name => l_proc_name);
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
142: WHEN OTHERS THEN
143: -- Standard Unexpected Error Logging
144: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
145: p_procedure_name => l_proc_name);
142: WHEN OTHERS THEN
143: -- Standard Unexpected Error Logging
144: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
145: p_procedure_name => l_proc_name);
146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
148: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_proc_name);
149: END IF;
150: END Prorate_TaxValues;
217: p_procedure_name => l_proc_name
218: );
219:
220: -- Initialize API return status to success
221: x_return_status := FND_API.G_RET_STS_SUCCESS;
222:
223: --Uses the zlines cursor
224: l_debug_info := 'Uses the zlines cursor ';
225: INL_LOGGING_PVT.Log_Statement (
273: x_rec_tax_amt => l_rec_tax_amt_prorated,
274: x_return_status => l_return_status
275: );
276: -- If any errors happen abort the process.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
274: x_return_status => l_return_status
275: );
276: -- If any errors happen abort the process.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
275: );
276: -- If any errors happen abort the process.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283: p_tax_ln_tbl(i).tax_amt := l_tax_amt_prorated;
276: -- If any errors happen abort the process.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283: p_tax_ln_tbl(i).tax_amt := l_tax_amt_prorated;
284: p_tax_ln_tbl(i).nrec_tax_amt := l_tax_amt_prorated - l_rec_tax_amt_prorated;
291: p_procedure_name => l_proc_name);
292:
293:
294: EXCEPTION
295: WHEN FND_API.G_EXC_ERROR THEN
296: -- Standard Expected Error Logging
297: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
298: p_procedure_name => l_proc_name);
299: x_return_status := FND_API.G_RET_STS_ERROR;
295: WHEN FND_API.G_EXC_ERROR THEN
296: -- Standard Expected Error Logging
297: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
298: p_procedure_name => l_proc_name);
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: -- Standard Unexpected Error Logging
302: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
303: p_procedure_name => l_proc_name);
296: -- Standard Expected Error Logging
297: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
298: p_procedure_name => l_proc_name);
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: -- Standard Unexpected Error Logging
302: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
303: p_procedure_name => l_proc_name);
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: -- Standard Unexpected Error Logging
302: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
303: p_procedure_name => l_proc_name);
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: WHEN OTHERS THEN
306: -- Standard Unexpected Error Logging
307: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
308: p_procedure_name => l_proc_name);
305: WHEN OTHERS THEN
306: -- Standard Unexpected Error Logging
307: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
308: p_procedure_name => l_proc_name);
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
311: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_proc_name);
312: END IF;
313: END Generate_TaxesFromPO;
318: -- can be the PO or any other logic defined inside the Taxes Hook.
319: -- Pre-reqs : None
320: -- Parameters :
321: -- IN : p_api_version IN NUMBER Required
322: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
323: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
324: -- p_ship_header_id IN NUMBER Required
325: --
326: -- OUT x_return_status OUT NOCOPY VARCHAR2
319: -- Pre-reqs : None
320: -- Parameters :
321: -- IN : p_api_version IN NUMBER Required
322: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
323: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
324: -- p_ship_header_id IN NUMBER Required
325: --
326: -- OUT x_return_status OUT NOCOPY VARCHAR2
327: -- x_msg_count OUT NOCOPY NUMBER
331: --
332: -- Notes :
333: PROCEDURE Generate_Taxes(
334: p_api_version IN NUMBER,
335: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
336: p_commit IN VARCHAR2 := FND_API.G_FALSE,
337: p_ship_header_id IN NUMBER,
338: x_return_status OUT NOCOPY VARCHAR2,
339: x_msg_count OUT NOCOPY NUMBER,
332: -- Notes :
333: PROCEDURE Generate_Taxes(
334: p_api_version IN NUMBER,
335: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
336: p_commit IN VARCHAR2 := FND_API.G_FALSE,
337: p_ship_header_id IN NUMBER,
338: x_return_status OUT NOCOPY VARCHAR2,
339: x_msg_count OUT NOCOPY NUMBER,
340: x_msg_data OUT NOCOPY VARCHAR2
358: -- Standard Start of API savepoint
359: SAVEPOINT Generate_Taxes_PVT;
360:
361: -- Initialize message list if p_init_msg_list is set to TRUE.
362: IF FND_API.to_Boolean( p_init_msg_list ) THEN
363: FND_MSG_PUB.initialize;
364: END IF;
365:
366: -- Check for call compatibility.
363: FND_MSG_PUB.initialize;
364: END IF;
365:
366: -- Check for call compatibility.
367: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
368: p_caller_version_number => p_api_version,
369: p_api_name => l_api_name,
370: p_pkg_name => g_pkg_name)
371: THEN
368: p_caller_version_number => p_api_version,
369: p_api_name => l_api_name,
370: p_pkg_name => g_pkg_name)
371: THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: END IF;
374:
375: -- Initialize API return status to success
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: END IF;
374:
375: -- Initialize API return status to success
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377:
378: l_debug_info := 'Calls the rotine to generate tax according parameter: ';
379: INL_LOGGING_PVT.Log_Statement (
380: p_module_name => g_module_name,
387: p_tax_ln_tbl => l_tax_ln_tbl,
388: x_return_status => l_return_status
389: );
390: -- If any errors happen abort the process.
391: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
388: x_return_status => l_return_status
389: );
390: -- If any errors happen abort the process.
391: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
389: );
390: -- If any errors happen abort the process.
391: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397: inl_taxeshook_pvt.Get_Taxes(
390: -- If any errors happen abort the process.
391: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397: inl_taxeshook_pvt.Get_Taxes(
398: x_tax_ln_tbl => l_tax_ln_tbl,
399: x_override_default_processing => l_override_default_processing,
400: x_return_status => l_return_status
401: );
402: -- If any errors happen abort the process.
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
400: x_return_status => l_return_status
401: );
402: -- If any errors happen abort the process.
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
401: );
402: -- If any errors happen abort the process.
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
409: IF ( NVL(l_tax_ln_tbl.COUNT,0) > 0) THEN
402: -- If any errors happen abort the process.
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
409: IF ( NVL(l_tax_ln_tbl.COUNT,0) > 0) THEN
410: -- Persists the generated taxes
558: END LOOP;
559: END IF;
560:
561: -- Standard check of p_commit.
562: IF FND_API.To_Boolean( p_commit ) THEN
563: COMMIT WORK;
564: END IF;
565:
566: -- Standard call to get message count and if count is 1, get message info.
563: COMMIT WORK;
564: END IF;
565:
566: -- Standard call to get message count and if count is 1, get message info.
567: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
568: p_count => x_msg_count,
569: p_data => x_msg_data);
570:
571: -- Standard End of Procedure/Function Logging
572: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
573: p_procedure_name => l_api_name);
574:
575: EXCEPTION
576: WHEN FND_API.G_EXC_ERROR THEN
577: -- Standard Expected Error Logging
578: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
579: p_procedure_name => l_api_name);
580: ROLLBACK TO Generate_Taxes_PVT;
577: -- Standard Expected Error Logging
578: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
579: p_procedure_name => l_api_name);
580: ROLLBACK TO Generate_Taxes_PVT;
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
578: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
579: p_procedure_name => l_api_name);
580: ROLLBACK TO Generate_Taxes_PVT;
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
586: -- Standard Unexpected Error Logging
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
586: -- Standard Unexpected Error Logging
587: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
588: p_procedure_name => l_api_name);
589: ROLLBACK TO Generate_Taxes_PVT;
586: -- Standard Unexpected Error Logging
587: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
588: p_procedure_name => l_api_name);
589: ROLLBACK TO Generate_Taxes_PVT;
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
592: p_count => x_msg_count,
593: p_data => x_msg_data);
594: WHEN OTHERS THEN
587: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
588: p_procedure_name => l_api_name);
589: ROLLBACK TO Generate_Taxes_PVT;
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
592: p_count => x_msg_count,
593: p_data => x_msg_data);
594: WHEN OTHERS THEN
595: -- Standard Unexpected Error Logging
595: -- Standard Unexpected Error Logging
596: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
597: p_procedure_name => l_api_name);
598: ROLLBACK TO Generate_Taxes_PVT;
599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
600: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
601: THEN
602: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
603: p_procedure_name => l_api_name);
601: THEN
602: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
603: p_procedure_name => l_api_name);
604: END IF;
605: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
606: p_count => x_msg_count,
607: p_data => x_msg_data);
608: END Generate_Taxes;
609:
643: -- logging message
644: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
645: p_procedure_name => l_function_name);
646:
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648:
649: -- get category to derivate Event_Class_Code
650: x_Event_Class_Code := 'ARRIVALS';
651: -- logging message
651: -- logging message
652: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
653: p_procedure_name => l_function_name);
654: EXCEPTION
655: WHEN FND_API.G_EXC_ERROR THEN
656: -- logging message
657: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
658: p_procedure_name => l_function_name);
659: x_return_status := FND_API.G_RET_STS_ERROR;
655: WHEN FND_API.G_EXC_ERROR THEN
656: -- logging message
657: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
658: p_procedure_name => l_function_name);
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
661: -- logging message
662: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
663: p_procedure_name => l_function_name);
656: -- logging message
657: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
658: p_procedure_name => l_function_name);
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
661: -- logging message
662: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
663: p_procedure_name => l_function_name);
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
661: -- logging message
662: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
663: p_procedure_name => l_function_name);
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: WHEN OTHERS THEN
666: -- logging message
667: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
668: p_procedure_name => l_function_name);
665: WHEN OTHERS THEN
666: -- logging message
667: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
668: p_procedure_name => l_function_name);
669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
671: THEN
672: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_function_name);
673: END IF;
703: -- logging message
704: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
705: p_procedure_name => l_function_name);
706:
707: x_return_status := FND_API.G_RET_STS_SUCCESS;
708: -- get PO_Header_id
709: SELECT pll.po_header_id, nvl(ph.rate ,1)
710: INTO x_po_header_id, x_po_header_curr_conv_rate
711: FROM po_line_locations pll, po_headers ph
717: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
718: p_procedure_name => l_function_name);
719:
720: EXCEPTION
721: WHEN FND_API.G_EXC_ERROR THEN
722: -- logging message
723: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
724: p_procedure_name => l_function_name);
725: x_return_status := FND_API.G_RET_STS_ERROR;
721: WHEN FND_API.G_EXC_ERROR THEN
722: -- logging message
723: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
724: p_procedure_name => l_function_name);
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
727: -- logging message
728: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
729: p_procedure_name => l_function_name);
722: -- logging message
723: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
724: p_procedure_name => l_function_name);
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
727: -- logging message
728: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
729: p_procedure_name => l_function_name);
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
727: -- logging message
728: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
729: p_procedure_name => l_function_name);
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: WHEN OTHERS THEN
732: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
733: p_procedure_name => l_function_name);
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: WHEN OTHERS THEN
732: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
733: p_procedure_name => l_function_name);
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
736: THEN
737: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_function_name);
738: END IF;
769: -- This flag is always N except when the calculate service is called for
770: -- quote for the recurring invoices and distributions sets.
771: l_quote_flag VARCHAR2(1);
772:
773: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
774: l_ship_to_organization_id NUMBER;
775: l_ledger_id NUMBER;
776: l_tax_event_type_code VARCHAR2(30);
777: l_doc_level_recalc_flag VARCHAR2(1):='Y';
780: -- logging message
781: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
782: p_procedure_name => l_function_name);
783:
784: x_return_status := FND_API.G_RET_STS_SUCCESS;
785:
786: -------------------------------------------------------------------
787: l_debug_info := 'Step 3: Populate product specific attributes';
788: -------------------------------------------------------------------
828: l_step:='03';
829: -------------------------------------------------------------------
830: l_debug_info := 'Step 8: Populate zx_trx_headers_gt';
831: -------------------------------------------------------------------
832: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
833: -- logging message
834: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
835: p_procedure_name => l_function_name,
836: p_debug_info => l_debug_info);
1010: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1011: p_procedure_name => l_function_name);
1012:
1013: EXCEPTION
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: -- logging message
1016: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1017: p_procedure_name => l_function_name||l_step);
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: -- logging message
1016: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1017: p_procedure_name => l_function_name||l_step);
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1020: -- logging message
1021: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1022: p_procedure_name => l_function_name||l_step);
1015: -- logging message
1016: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1017: p_procedure_name => l_function_name||l_step);
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1020: -- logging message
1021: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1022: p_procedure_name => l_function_name||l_step);
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1020: -- logging message
1021: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1022: p_procedure_name => l_function_name||l_step);
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1024: WHEN OTHERS THEN
1025: -- logging message
1026: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1027: p_procedure_name => l_function_name||l_step);
1024: WHEN OTHERS THEN
1025: -- logging message
1026: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1027: p_procedure_name => l_function_name||l_step);
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1030: THEN
1031: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_function_name);
1032: END IF;
1082: l_ship_from_location_id NUMBER;
1083: l_dflt_tax_class_code VARCHAR2(30);
1084: l_allow_tax_code_override VARCHAR2(10);
1085: l_ship_line_type_code VARCHAR2(30);
1086: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1087: l_to_parent_table_name VARCHAR2(30);
1088: l_to_parent_table_id NUMBER;
1089: l_precision NUMBER(1);
1090: l_minimum_accountable_unit NUMBER;
1093: -- logging message
1094: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1095: p_procedure_name => l_function_name);
1096:
1097: x_return_status := FND_API.G_RET_STS_SUCCESS;
1098: -----------------------------------------------------------------
1099: l_debug_info := 'IN Populating shipment lines collection';
1100: -- logging message
1101: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1126: /* 10/07/07 Currency columns was transfer to lines */
1127: -------------------------------------------------------------------
1128: l_debug_info := 'Step 3: Get transaction line currency details';
1129: -------------------------------------------------------------------
1130: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1131: BEGIN
1132: SELECT NVL(precision, 0), NVL(minimum_accountable_unit,(1/power(10,precision)))
1133: INTO l_precision, l_minimum_accountable_unit
1134: FROM fnd_currencies
1135: WHERE currency_code = l_ship_line_list(i).currency_code;
1136: EXCEPTION
1137: WHEN OTHERS THEN
1138: IF (SQLCODE <> -20001) THEN
1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1140: -- logging message
1141: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1142: p_procedure_name => l_function_name);
1143: END IF;
1239: x_po_header_curr_conv_rate => l_po_header_curr_conv_rate,
1240: x_return_status => l_return_status);
1241:
1242: -- If any errors happen abort API.
1243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1247: END IF;
1240: x_return_status => l_return_status);
1241:
1242: -- If any errors happen abort API.
1243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1247: END IF;
1248:
1241:
1242: -- If any errors happen abort API.
1243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1247: END IF;
1248:
1249: l_ref_doc_trx_level_type := 'SHIPMENT';
1242: -- If any errors happen abort API.
1243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1247: END IF;
1248:
1249: l_ref_doc_trx_level_type := 'SHIPMENT';
1250: l_ref_doc_line_id := l_ship_line_list(i).src_id;
1297: p_procedure_name => l_function_name,
1298: p_debug_info => l_debug_info);
1299: ------------------------------------------------------------------
1300: -- Will populate a dinamic table to include in zx_transaction_lines_gt
1301: IF (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1302: trans_lines(i).application_id := 9004;
1303: trans_lines(i).entity_code := G_ENTITY_CODE;
1304: trans_lines(i).event_class_code := p_event_class_code;
1305: trans_lines(i).trx_line_precision := l_precision;
1369: ------------------------------------------------------------------
1370: END IF;
1371: END LOOP;
1372: END IF;
1373: IF ( l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1374: -- if exist any row from this shipment it will be removed
1375: DELETE FROM zx_transaction_lines_gt
1376: WHERE trx_id= l_ship_header_rec.ship_header_id;
1377: -------------------------------------------------------------------
1398: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1399: p_procedure_name => l_function_name);
1400:
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: -- logging message
1404: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1405: p_procedure_name => l_function_name);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: -- logging message
1404: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1405: p_procedure_name => l_function_name);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: -- logging message
1409: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1410: p_procedure_name => l_function_name);
1403: -- logging message
1404: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1405: p_procedure_name => l_function_name);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: -- logging message
1409: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1410: p_procedure_name => l_function_name);
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: -- logging message
1409: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1410: p_procedure_name => l_function_name);
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1412: WHEN OTHERS THEN
1413: -- logging message
1414: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1415: p_procedure_name => l_function_name);
1412: WHEN OTHERS THEN
1413: -- logging message
1414: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1415: p_procedure_name => l_function_name);
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1418: THEN
1419: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_function_name);
1420: END IF;
1458: -- logging message
1459: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1460: p_procedure_name => l_procedure_name);
1461:
1462: x_return_status := FND_API.G_RET_STS_SUCCESS;
1463: -- if action needed is in ('DEL','ALL') Delete existent lines
1464: IF p_oper IN ('DEL','ALL') THEN
1465: -- logging message
1466: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1637: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1638: p_procedure_name => l_procedure_name);
1639:
1640: EXCEPTION
1641: WHEN FND_API.G_EXC_ERROR THEN
1642: -- logging message
1643: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1644: p_procedure_name => l_procedure_name);
1645: x_return_status := FND_API.G_RET_STS_ERROR;
1641: WHEN FND_API.G_EXC_ERROR THEN
1642: -- logging message
1643: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1644: p_procedure_name => l_procedure_name);
1645: x_return_status := FND_API.G_RET_STS_ERROR;
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1647: -- logging message
1648: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1649: p_procedure_name => l_procedure_name);
1642: -- logging message
1643: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1644: p_procedure_name => l_procedure_name);
1645: x_return_status := FND_API.G_RET_STS_ERROR;
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1647: -- logging message
1648: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1649: p_procedure_name => l_procedure_name);
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1647: -- logging message
1648: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1649: p_procedure_name => l_procedure_name);
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: WHEN OTHERS THEN
1652: -- logging message
1653: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1654: p_procedure_name => l_procedure_name);
1651: WHEN OTHERS THEN
1652: -- logging message
1653: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1654: p_procedure_name => l_procedure_name);
1655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1656: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1657: THEN
1658: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_procedure_name);
1659: END IF;
1665: -- Function : It populate the ZX temporary GT tables and then call eBTax Calculate Tax for a given LCM Shipment.
1666: -- Pre-reqs : None
1667: -- Parameters :
1668: -- IN : p_api_version IN NUMBER,
1669: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1670: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
1671: -- p_ship_header_id IN NUMBER,
1672: --
1673: -- OUT : x_return_status OUT NOCOPY VARCHAR2
1666: -- Pre-reqs : None
1667: -- Parameters :
1668: -- IN : p_api_version IN NUMBER,
1669: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1670: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
1671: -- p_ship_header_id IN NUMBER,
1672: --
1673: -- OUT : x_return_status OUT NOCOPY VARCHAR2
1674: -- x_msg_count OUT NOCOPY NUMBER
1678: --
1679: -- Notes :
1680:
1681: PROCEDURE Calculate_Tax(p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_ship_header_id IN NUMBER,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1679: -- Notes :
1680:
1681: PROCEDURE Calculate_Tax(p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_ship_header_id IN NUMBER,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1687: x_msg_data OUT NOCOPY VARCHAR2)
1700: l_msg_data VARCHAR2(4000);
1701: l_msg VARCHAR2(4000);
1702: l_error_code VARCHAR2(30);
1703:
1704: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1705: l_no_tax_lines VARCHAR2(1) := 'N';
1706: l_inv_rcv_matched VARCHAR2(1) := 'N';
1707:
1708: l_ledger_list GL_MC_INFO.r_sob_list;
1718: -- Standard Start of API savepoint
1719: SAVEPOINT Calculate_Tax_PVT;
1720:
1721: -- Initialize message list if p_init_msg_list is set to TRUE.
1722: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1723: FND_MSG_PUB.initialize;
1724: END IF;
1725:
1726: -------------------------------------------------------------------
1723: FND_MSG_PUB.initialize;
1724: END IF;
1725:
1726: -------------------------------------------------------------------
1727: l_debug_info := 'FND_API.Compatible_API_Call';
1728: -------------------------------------------------------------------
1729: -- logging message
1730: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1731: p_procedure_name => l_api_name,
1730: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1731: p_procedure_name => l_api_name,
1732: p_debug_info => l_debug_info);
1733: -- Check for call compatibility.
1734: IF NOT FND_API.Compatible_API_Call (l_api_version,
1735: p_api_version,
1736: l_api_name,
1737: G_PKG_NAME)
1738: THEN
1735: p_api_version,
1736: l_api_name,
1737: G_PKG_NAME)
1738: THEN
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: END IF;
1741:
1742: -- Initialize API return status to success
1743: x_return_status := FND_API.G_RET_STS_SUCCESS;
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: END IF;
1741:
1742: -- Initialize API return status to success
1743: x_return_status := FND_API.G_RET_STS_SUCCESS;
1744:
1745:
1746:
1747: --- VPILAN 11-Jun-2008
1769: p_debug_info => l_debug_info);
1770: -----------------------------------------------------------------
1771: Adjust_Tax_Lines('DEL', p_ship_header_id, l_return_status);
1772: -- If any errors happen abort API.
1773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1774: RAISE FND_API.G_EXC_ERROR;
1775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1777: END IF;
1770: -----------------------------------------------------------------
1771: Adjust_Tax_Lines('DEL', p_ship_header_id, l_return_status);
1772: -- If any errors happen abort API.
1773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1774: RAISE FND_API.G_EXC_ERROR;
1775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1777: END IF;
1778:
1771: Adjust_Tax_Lines('DEL', p_ship_header_id, l_return_status);
1772: -- If any errors happen abort API.
1773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1774: RAISE FND_API.G_EXC_ERROR;
1775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1777: END IF;
1778:
1779: -----------------------------------------------------------------
1772: -- If any errors happen abort API.
1773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1774: RAISE FND_API.G_EXC_ERROR;
1775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1777: END IF;
1778:
1779: -----------------------------------------------------------------
1780: l_debug_info := 'Step 1a: call LCM Calculation for all types of lines';
1782: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1783: p_procedure_name => l_api_name,
1784: p_debug_info => l_debug_info);
1785: -----------------------------------------------------------------
1786: IF ( l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1787: -----------------------------------------------------------------
1788: l_debug_info := 'Step 2: Populating shipment header local record';
1789: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1790: p_procedure_name => l_api_name,
1824: p_ship_type_id => l_ship_header_rec.ship_type_id,
1825: x_event_class_code => l_event_class_code,
1826: x_return_status => l_return_status);
1827: -- If any errors happen abort API.
1828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1825: x_event_class_code => l_event_class_code,
1826: x_return_status => l_return_status);
1827: -- If any errors happen abort API.
1828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1826: x_return_status => l_return_status);
1827: -- If any errors happen abort API.
1828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834: -----------------------------------------------------------------
1827: -- If any errors happen abort API.
1828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834: -----------------------------------------------------------------
1835: l_debug_info := 'Step 2c: Getting l_tax_already_calculated. trx_id= '||l_ship_header_rec.ship_header_id
1868: x_event_type_code => l_event_type_code,
1869: x_return_status => l_return_status);
1870:
1871: -- If any errors happen abort API.
1872: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1869: x_return_status => l_return_status);
1870:
1871: -- If any errors happen abort API.
1872: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: -----------------------------------------------------------------
1870:
1871: -- If any errors happen abort API.
1872: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: -----------------------------------------------------------------
1878: l_debug_info := 'Step 4: Populate TRX lines';
1871: -- If any errors happen abort API.
1872: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: -----------------------------------------------------------------
1878: l_debug_info := 'Step 4: Populate TRX lines';
1879: -- logging message
1880: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1881: p_procedure_name => l_api_name,
1882: p_debug_info => l_debug_info);
1883: -----------------------------------------------------------------
1884: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1885: -- Populate eBTax temporary table (Lines)
1886:
1887: INL_TAX_PVT.Populate_Lines_GT(
1888: P_Event_Class_Code => l_event_class_code,
1888: P_Event_Class_Code => l_event_class_code,
1889: P_Line_Number => 1,
1890: x_return_status => l_return_status);
1891: -- If any errors happen abort API.
1892: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1893: RAISE FND_API.G_EXC_ERROR;
1894: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: END IF;
1889: P_Line_Number => 1,
1890: x_return_status => l_return_status);
1891: -- If any errors happen abort API.
1892: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1893: RAISE FND_API.G_EXC_ERROR;
1894: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: END IF;
1897:
1890: x_return_status => l_return_status);
1891: -- If any errors happen abort API.
1892: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1893: RAISE FND_API.G_EXC_ERROR;
1894: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: END IF;
1897:
1898:
1891: -- If any errors happen abort API.
1892: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1893: RAISE FND_API.G_EXC_ERROR;
1894: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: END IF;
1897:
1898:
1899: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: END IF;
1897:
1898:
1899: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1900: -- logging message
1901: INL_LOGGING_PVT.Log_APICallIn (p_module_name => g_module_name,
1902: p_procedure_name => l_api_name,
1903: p_call_api_name => 'ZX_API_PUB.Calculate_Tax',
1903: p_call_api_name => 'ZX_API_PUB.Calculate_Tax',
1904: p_in_param_name1 => 'p_api_version',
1905: p_in_param_value1 => 1.0,
1906: p_in_param_name2 => 'p_init_msg_list',
1907: p_in_param_value2 => FND_API.G_TRUE,
1908: p_in_param_name3 => 'p_commit',
1909: p_in_param_value3 => FND_API.G_FALSE,
1910: p_in_param_name4 => 'p_validation_level',
1911: p_in_param_value4 => FND_API.G_VALID_LEVEL_FULL);
1905: p_in_param_value1 => 1.0,
1906: p_in_param_name2 => 'p_init_msg_list',
1907: p_in_param_value2 => FND_API.G_TRUE,
1908: p_in_param_name3 => 'p_commit',
1909: p_in_param_value3 => FND_API.G_FALSE,
1910: p_in_param_name4 => 'p_validation_level',
1911: p_in_param_value4 => FND_API.G_VALID_LEVEL_FULL);
1912: -- It will run the calculate_tax procedure from eBTax
1913: -- This procedure will calculate the tax from the current transaction
1907: p_in_param_value2 => FND_API.G_TRUE,
1908: p_in_param_name3 => 'p_commit',
1909: p_in_param_value3 => FND_API.G_FALSE,
1910: p_in_param_name4 => 'p_validation_level',
1911: p_in_param_value4 => FND_API.G_VALID_LEVEL_FULL);
1912: -- It will run the calculate_tax procedure from eBTax
1913: -- This procedure will calculate the tax from the current transaction
1914: -- and populate zx_lines
1915:
1918: WHERE TRX_ID = l_ship_header_rec.ship_header_id
1919: */
1920: zx_api_pub.calculate_tax(
1921: p_api_version => 1.0,
1922: p_init_msg_list => FND_API.G_FALSE,
1923: p_commit => FND_API.G_FALSE,
1924: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1925: x_return_status => l_return_status,
1926: x_msg_count => l_msg_count,
1919: */
1920: zx_api_pub.calculate_tax(
1921: p_api_version => 1.0,
1922: p_init_msg_list => FND_API.G_FALSE,
1923: p_commit => FND_API.G_FALSE,
1924: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1925: x_return_status => l_return_status,
1926: x_msg_count => l_msg_count,
1927: x_msg_data => l_msg_data);
1920: zx_api_pub.calculate_tax(
1921: p_api_version => 1.0,
1922: p_init_msg_list => FND_API.G_FALSE,
1923: p_commit => FND_API.G_FALSE,
1924: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1925: x_return_status => l_return_status,
1926: x_msg_count => l_msg_count,
1927: x_msg_data => l_msg_data);
1928:
1937: p_out_param_name3 => 'l_msg_data',
1938: p_out_param_value3 => l_msg_data);
1939:
1940: -- If any errors happen abort API.
1941: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1942: RAISE FND_API.G_EXC_ERROR;
1943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1938: p_out_param_value3 => l_msg_data);
1939:
1940: -- If any errors happen abort API.
1941: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1942: RAISE FND_API.G_EXC_ERROR;
1943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1946:
1939:
1940: -- If any errors happen abort API.
1941: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1942: RAISE FND_API.G_EXC_ERROR;
1943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1946:
1947: -----------------------------------------------------------------
1940: -- If any errors happen abort API.
1941: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1942: RAISE FND_API.G_EXC_ERROR;
1943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1946:
1947: -----------------------------------------------------------------
1948: l_debug_info := 'Step 6: Adjust_Tax_Lines to Persist tax records in INL_ASSOCIATIONS and INL_TAX_LINES';
1953: -----------------------------------------------------------------
1954: -- It will answer the updates done in zx_lines in INL_tax_lines
1955: Adjust_Tax_Lines('INS', p_ship_header_id, l_return_status);
1956: -- If any errors happen abort API.
1957: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1958: RAISE FND_API.G_EXC_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1954: -- It will answer the updates done in zx_lines in INL_tax_lines
1955: Adjust_Tax_Lines('INS', p_ship_header_id, l_return_status);
1956: -- If any errors happen abort API.
1957: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1958: RAISE FND_API.G_EXC_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962:
1955: Adjust_Tax_Lines('INS', p_ship_header_id, l_return_status);
1956: -- If any errors happen abort API.
1957: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1958: RAISE FND_API.G_EXC_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962:
1963: -----------------------------------------------------------------
1956: -- If any errors happen abort API.
1957: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1958: RAISE FND_API.G_EXC_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962:
1963: -----------------------------------------------------------------
1964: l_debug_info := 'Step 7: call LCM Calculation for tax lines';
1970: END IF;
1971: END IF;
1972: END IF;
1973: -- If any errors happen abort API.
1974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1975: RAISE FND_API.G_EXC_ERROR;
1976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1971: END IF;
1972: END IF;
1973: -- If any errors happen abort API.
1974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1975: RAISE FND_API.G_EXC_ERROR;
1976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1972: END IF;
1973: -- If any errors happen abort API.
1974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1975: RAISE FND_API.G_EXC_ERROR;
1976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1980: -- Standard check of p_commit.
1973: -- If any errors happen abort API.
1974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1975: RAISE FND_API.G_EXC_ERROR;
1976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1980: -- Standard check of p_commit.
1981: IF FND_API.To_Boolean( p_commit ) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1980: -- Standard check of p_commit.
1981: IF FND_API.To_Boolean( p_commit ) THEN
1982: COMMIT WORK;
1983: END IF;
1984:
1985: -- Standard call to get message count and if count is 1, get message info.
1983: END IF;
1984:
1985: -- Standard call to get message count and if count is 1, get message info.
1986: FND_MSG_PUB.Count_And_Get
1987: (p_encoded => FND_API.g_false,
1988: p_count => x_msg_count,
1989: p_data => x_msg_data);
1990:
1991: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1990:
1991: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1992: p_procedure_name => l_api_name);
1993: EXCEPTION
1994: WHEN FND_API.G_EXC_ERROR THEN
1995: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1996: p_procedure_name => l_api_name);
1997: ROLLBACK TO Calculate_Tax_PVT;
1998: x_return_status := FND_API.G_RET_STS_ERROR;
1994: WHEN FND_API.G_EXC_ERROR THEN
1995: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1996: p_procedure_name => l_api_name);
1997: ROLLBACK TO Calculate_Tax_PVT;
1998: x_return_status := FND_API.G_RET_STS_ERROR;
1999: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2000: p_count => x_msg_count,
2001: p_data => x_msg_data);
2002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1995: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
1996: p_procedure_name => l_api_name);
1997: ROLLBACK TO Calculate_Tax_PVT;
1998: x_return_status := FND_API.G_RET_STS_ERROR;
1999: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2000: p_count => x_msg_count,
2001: p_data => x_msg_data);
2002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2003: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
1998: x_return_status := FND_API.G_RET_STS_ERROR;
1999: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2000: p_count => x_msg_count,
2001: p_data => x_msg_data);
2002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2003: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2004: p_procedure_name => l_api_name);
2005: ROLLBACK TO Calculate_Tax_PVT;
2006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2003: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2004: p_procedure_name => l_api_name);
2005: ROLLBACK TO Calculate_Tax_PVT;
2006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2007: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2008: p_count => x_msg_count,
2009: p_data => x_msg_data);
2010: WHEN OTHERS THEN
2003: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2004: p_procedure_name => l_api_name);
2005: ROLLBACK TO Calculate_Tax_PVT;
2006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2007: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2008: p_count => x_msg_count,
2009: p_data => x_msg_data);
2010: WHEN OTHERS THEN
2011: -- logging message
2011: -- logging message
2012: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2013: p_procedure_name => l_api_name);
2014: ROLLBACK TO Calculate_Tax_PVT;
2015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2016: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2017: THEN
2018: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2019: END IF;
2016: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2017: THEN
2018: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2019: END IF;
2020: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2021: p_count => x_msg_count,
2022: p_data => x_msg_data);
2023: END Calculate_Tax;
2024:
2027: -- Function : Get default tax attributes
2028: -- Pre-reqs : None
2029: -- Parameters :
2030: -- IN : p_api_version IN NUMBER,
2031: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2032: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
2033: -- p_application_id IN NUMBER,
2034: -- p_entity_code IN VARCHAR2,
2035: -- p_event_class_code IN VARCHAR2,
2028: -- Pre-reqs : None
2029: -- Parameters :
2030: -- IN : p_api_version IN NUMBER,
2031: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2032: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
2033: -- p_application_id IN NUMBER,
2034: -- p_entity_code IN VARCHAR2,
2035: -- p_event_class_code IN VARCHAR2,
2036: -- p_org_id IN VARCHAR2,
2051: -- Version : Current version 1.0
2052: --
2053: -- Notes :
2054: PROCEDURE Get_DefaultTaxDetAttribs(p_api_version IN NUMBER,
2055: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2056: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2057: p_application_id IN NUMBER,
2058: p_entity_code IN VARCHAR2,
2059: p_event_class_code IN VARCHAR2,
2052: --
2053: -- Notes :
2054: PROCEDURE Get_DefaultTaxDetAttribs(p_api_version IN NUMBER,
2055: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2056: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2057: p_application_id IN NUMBER,
2058: p_entity_code IN VARCHAR2,
2059: p_event_class_code IN VARCHAR2,
2060: p_org_id IN VARCHAR2,
2089: -- Standard Start of API savepoint
2090: SAVEPOINT Get_DefaultTaxDetAttribs_PVT;
2091:
2092: -- Initialize message list if p_init_msg_list is set to TRUE.
2093: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2094: FND_MSG_PUB.initialize;
2095: END IF;
2096:
2097: -- Check for call compatibility.
2094: FND_MSG_PUB.initialize;
2095: END IF;
2096:
2097: -- Check for call compatibility.
2098: IF NOT FND_API.Compatible_API_Call (l_api_version,
2099: p_api_version,
2100: l_api_name,
2101: g_pkg_name)
2102: THEN
2099: p_api_version,
2100: l_api_name,
2101: g_pkg_name)
2102: THEN
2103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2104: END IF;
2105:
2106: -- Initialize API return status to success
2107: x_return_status := FND_API.G_RET_STS_SUCCESS;
2103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2104: END IF;
2105:
2106: -- Initialize API return status to success
2107: x_return_status := FND_API.G_RET_STS_SUCCESS;
2108:
2109: -- API Body
2110: BEGIN
2111:
2139:
2140: IF(l_po_country_code IS NULL OR l_po_country_code <> p_country_code) THEN
2141:
2142: ZX_API_PUB.get_default_tax_det_attribs(p_api_version => 1.0,
2143: p_init_msg_list => FND_API.G_FALSE,
2144: p_commit => FND_API.G_FALSE,
2145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2146: x_return_status => l_return_status,
2147: x_msg_count => l_msg_count,
2140: IF(l_po_country_code IS NULL OR l_po_country_code <> p_country_code) THEN
2141:
2142: ZX_API_PUB.get_default_tax_det_attribs(p_api_version => 1.0,
2143: p_init_msg_list => FND_API.G_FALSE,
2144: p_commit => FND_API.G_FALSE,
2145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2146: x_return_status => l_return_status,
2147: x_msg_count => l_msg_count,
2148: x_msg_data => l_msg_data,
2141:
2142: ZX_API_PUB.get_default_tax_det_attribs(p_api_version => 1.0,
2143: p_init_msg_list => FND_API.G_FALSE,
2144: p_commit => FND_API.G_FALSE,
2145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2146: x_return_status => l_return_status,
2147: x_msg_count => l_msg_count,
2148: x_msg_data => l_msg_data,
2149: p_application_id => p_application_id,
2160: x_prod_fisc_class_code => x_prod_fisc_class_code,
2161: x_product_type => x_product_type);
2162:
2163: -- If any errors happen abort API.
2164: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2165: RAISE FND_API.G_EXC_ERROR;
2166: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2161: x_product_type => x_product_type);
2162:
2163: -- If any errors happen abort API.
2164: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2165: RAISE FND_API.G_EXC_ERROR;
2166: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169: END IF;
2162:
2163: -- If any errors happen abort API.
2164: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2165: RAISE FND_API.G_EXC_ERROR;
2166: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169: END IF;
2170: ELSE
2163: -- If any errors happen abort API.
2164: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2165: RAISE FND_API.G_EXC_ERROR;
2166: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169: END IF;
2170: ELSE
2171:
2169: END IF;
2170: ELSE
2171:
2172: ZX_API_PUB.get_default_tax_det_attribs(p_api_version => 1.0,
2173: p_init_msg_list => FND_API.G_FALSE,
2174: p_commit => FND_API.G_FALSE,
2175: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2176: x_return_status => l_return_status,
2177: x_msg_count => l_msg_count,
2170: ELSE
2171:
2172: ZX_API_PUB.get_default_tax_det_attribs(p_api_version => 1.0,
2173: p_init_msg_list => FND_API.G_FALSE,
2174: p_commit => FND_API.G_FALSE,
2175: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2176: x_return_status => l_return_status,
2177: x_msg_count => l_msg_count,
2178: x_msg_data => l_msg_data ,
2171:
2172: ZX_API_PUB.get_default_tax_det_attribs(p_api_version => 1.0,
2173: p_init_msg_list => FND_API.G_FALSE,
2174: p_commit => FND_API.G_FALSE,
2175: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2176: x_return_status => l_return_status,
2177: x_msg_count => l_msg_count,
2178: x_msg_data => l_msg_data ,
2179: p_application_id => p_application_id,
2190: x_prod_fisc_class_code => x_prod_fisc_class_code,
2191: x_product_type => x_product_type);
2192:
2193: -- If any errors happen abort API.
2194: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2195: RAISE FND_API.G_EXC_ERROR;
2196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2191: x_product_type => x_product_type);
2192:
2193: -- If any errors happen abort API.
2194: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2195: RAISE FND_API.G_EXC_ERROR;
2196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2199: END IF;
2192:
2193: -- If any errors happen abort API.
2194: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2195: RAISE FND_API.G_EXC_ERROR;
2196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2199: END IF;
2200: END;
2193: -- If any errors happen abort API.
2194: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2195: RAISE FND_API.G_EXC_ERROR;
2196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2199: END IF;
2200: END;
2201:
2199: END IF;
2200: END;
2201:
2202: -- Standard check of p_commit.
2203: IF FND_API.To_Boolean( p_commit ) THEN
2204: COMMIT WORK;
2205: END IF;
2206:
2207: -- Standard call to get message count and if count is 1, get message info.
2205: END IF;
2206:
2207: -- Standard call to get message count and if count is 1, get message info.
2208: FND_MSG_PUB.Count_And_Get
2209: (p_encoded => FND_API.g_false,
2210: p_count => x_msg_count,
2211: p_data => x_msg_data);
2212:
2213: -- Standard End of Procedure/Function Logging
2215: p_procedure_name => l_api_name);
2216:
2217:
2218: EXCEPTION
2219: WHEN FND_API.G_EXC_ERROR THEN
2220: -- Standard Expected Error Logging
2221: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
2222: p_procedure_name => l_api_name);
2223: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2220: -- Standard Expected Error Logging
2221: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
2222: p_procedure_name => l_api_name);
2223: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2226: p_count => x_msg_count,
2227: p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2221: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
2222: p_procedure_name => l_api_name);
2223: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2226: p_count => x_msg_count,
2227: p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: -- Standard Unexpected Error Logging
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2226: p_count => x_msg_count,
2227: p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: -- Standard Unexpected Error Logging
2230: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2231: p_procedure_name => l_api_name);
2232: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2229: -- Standard Unexpected Error Logging
2230: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2231: p_procedure_name => l_api_name);
2232: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2234: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2235: p_count => x_msg_count,
2236: p_data => x_msg_data);
2237: WHEN OTHERS THEN
2230: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2231: p_procedure_name => l_api_name);
2232: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2234: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2235: p_count => x_msg_count,
2236: p_data => x_msg_data);
2237: WHEN OTHERS THEN
2238: -- Standard Unexpected Error Logging
2238: -- Standard Unexpected Error Logging
2239: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
2240: p_procedure_name => l_api_name);
2241: ROLLBACK TO Get_DefaultTaxDetAttribs_PVT;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2243: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2244: THEN
2245: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_api_name);
2246: END IF;
2243: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2244: THEN
2245: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_api_name);
2246: END IF;
2247: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2248: p_count => x_msg_count,
2249: p_data => x_msg_data);
2250: END Get_DefaultTaxDetAttribs;
2251: