16: --
17: -- Pre-reqs : None
18: -- Parameters :
19: -- IN : p_api_version IN NUMBER,
20: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
21: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
22: -- p_lci_table IN OUT NOCOPY lci_table
23: --
24: -- OUT x_return_status OUT NOCOPY VARCHAR2
17: -- Pre-reqs : None
18: -- Parameters :
19: -- IN : p_api_version IN NUMBER,
20: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
21: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
22: -- p_lci_table IN OUT NOCOPY lci_table
23: --
24: -- OUT x_return_status OUT NOCOPY VARCHAR2
25: -- x_msg_count OUT NOCOPY NUMBER
29: --
30: -- Notes :
31: PROCEDURE Insert_LCMInterface (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
34: p_commit IN VARCHAR2 := FND_API.G_FALSE,
35: p_lci_table IN OUT NOCOPY lci_table,
36: x_return_status OUT NOCOPY VARCHAR2,
37: x_msg_count OUT NOCOPY NUMBER,
30: -- Notes :
31: PROCEDURE Insert_LCMInterface (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
34: p_commit IN VARCHAR2 := FND_API.G_FALSE,
35: p_lci_table IN OUT NOCOPY lci_table,
36: x_return_status OUT NOCOPY VARCHAR2,
37: x_msg_count OUT NOCOPY NUMBER,
38: x_msg_data OUT NOCOPY VARCHAR2
64: -- Standard Start of API savepoint
65: SAVEPOINT Insert_LCMInterface_GRP;
66:
67: -- Initialize message list IF p_init_msg_list is SET to TRUE.
68: IF FND_API.to_Boolean (p_init_msg_list) THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71:
72: -- Check FOR call compatibility.
69: FND_MSG_PUB.initialize;
70: END IF;
71:
72: -- Check FOR call compatibility.
73: IF NOT FND_API.Compatible_API_Call (
74: p_current_version_number => l_api_version,
75: p_caller_version_number => p_api_version,
76: p_api_name => l_api_name,
77: p_pkg_name => g_pkg_name
75: p_caller_version_number => p_api_version,
76: p_api_name => l_api_name,
77: p_pkg_name => g_pkg_name
78: ) THEN
79: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80: END IF;
81:
82: -- Initialize API RETURN status to success
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
79: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80: END IF;
81:
82: -- Initialize API RETURN status to success
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
84:
85: -- API Body
86: BEGIN
87: l_current_shipment_header_id := -9999;
387: END LOOP;
388: END; -- End of API Body
389:
390: -- Standard check of p_commit.
391: IF FND_API.To_Boolean( p_commit ) THEN
392: COMMIT WORK;
393: END IF;
394:
395: -- Standard call to get message count and if count is 1, get message info.
393: END IF;
394:
395: -- Standard call to get message count and if count is 1, get message info.
396: FND_MSG_PUB.Count_And_Get(
397: p_encoded => FND_API.g_false,
398: p_count => x_msg_count,
399: p_data => x_msg_data);
400:
401: -- Standard End of Procedure/Function Logging
403: p_module_name => g_module_name,
404: p_procedure_name => l_api_name);
405:
406: EXCEPTION
407: WHEN FND_API.G_EXC_ERROR THEN
408: -- Standard Expected Error Logging
409: INL_LOGGING_PVT.Log_ExpecError (
410: p_module_name => g_module_name,
411: p_procedure_name => l_api_name);
409: INL_LOGGING_PVT.Log_ExpecError (
410: p_module_name => g_module_name,
411: p_procedure_name => l_api_name);
412: ROLLBACK TO Insert_LCMInterface_GRP;
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: FND_MSG_PUB.Count_And_Get(
415: p_encoded => FND_API.g_false,
416: p_count => x_msg_count,
417: p_data => x_msg_data);
411: p_procedure_name => l_api_name);
412: ROLLBACK TO Insert_LCMInterface_GRP;
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: FND_MSG_PUB.Count_And_Get(
415: p_encoded => FND_API.g_false,
416: p_count => x_msg_count,
417: p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: -- Standard Unexpected Error Logging
414: FND_MSG_PUB.Count_And_Get(
415: p_encoded => FND_API.g_false,
416: p_count => x_msg_count,
417: p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: -- Standard Unexpected Error Logging
420: INL_LOGGING_PVT.Log_UnexpecError (
421: p_module_name => g_module_name,
422: p_procedure_name => l_api_name);
420: INL_LOGGING_PVT.Log_UnexpecError (
421: p_module_name => g_module_name,
422: p_procedure_name => l_api_name);
423: ROLLBACK TO Insert_LCMInterface_GRP;
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
425: FND_MSG_PUB.Count_And_Get(
426: p_encoded => FND_API.g_false,
427: p_count => x_msg_count,
428: p_data => x_msg_data);
422: p_procedure_name => l_api_name);
423: ROLLBACK TO Insert_LCMInterface_GRP;
424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
425: FND_MSG_PUB.Count_And_Get(
426: p_encoded => FND_API.g_false,
427: p_count => x_msg_count,
428: p_data => x_msg_data);
429: WHEN OTHERS THEN
430: -- Standard Unexpected Error Logging
431: INL_LOGGING_PVT.Log_UnexpecError (
432: p_module_name => g_module_name,
433: p_procedure_name => l_api_name);
434: ROLLBACK TO Insert_LCMInterface_GRP;
435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
436: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
437: THEN
438: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_api_name);
439: END IF;
437: THEN
438: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_api_name);
439: END IF;
440: FND_MSG_PUB.Count_And_Get(
441: p_encoded => FND_API.g_false,
442: p_count => x_msg_count,
443: p_data => x_msg_data);
444: END Insert_LCMInterface;
445:
525: p_module_name => g_module_name,
526: p_procedure_name => l_proc_name);
527:
528: -- Initialize message list IF p_init_msg_list is SET to TRUE.
529: -- IF FND_API.to_Boolean (p_init_msg_list) THEN
530: FND_MSG_PUB.initialize;
531: -- END IF;
532:
533: -- Initialize API return status to success
530: FND_MSG_PUB.initialize;
531: -- END IF;
532:
533: -- Initialize API return status to success
534: x_return_status := FND_API.G_RET_STS_SUCCESS;
535:
536:
537: INL_LOGGING_PVT.Log_Variable (
538: p_module_name => g_module_name,
569: -- the INL:Default Shipment Type profile must be setup.
570: IF l_ship_type_id IS NULL OR l_ship_type_id = 0 THEN
571: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_SHIP_TYP_PROF') ;
572: FND_MSG_PUB.ADD;
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: END IF;
575:
576: -- Set the number of records to be processed
577: -- This value will be latter stamped in the concurrent log
803:
804: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_NO_LCM_OPT_DEF_ORG') ;
805: FND_MESSAGE.SET_TOKEN ('INV_ORG_NAME', l_ship_to_org_name) ;
806: FND_MSG_PUB.ADD;
807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
808: END;
809:
810: IF l_user_defined_ship_num_code = 'AUTOMATIC' THEN --Bug#8971617
811: l_ship_num := NULL;
888: IF l_taxation_country IS NULL THEN
889: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_LOC_COUNTRY_NULL') ;
890: FND_MESSAGE.SET_TOKEN ('LOCATION_CODE', l_ship_to_location_code) ;
891: FND_MSG_PUB.ADD;
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895: INL_LOGGING_PVT.Log_Statement (
896: p_module_name => g_module_name,
1328: p_debug_info => 'Call Insert_LCMInterface to insert data in lcm interface table');
1329:
1330: -- Call Insert_LCMInterface to insert data in lcm interface table
1331: INL_INTEGRATION_GRP.Insert_LCMInterface(p_api_version => l_api_version,
1332: p_init_msg_list => FND_API.G_FALSE,
1333: p_commit => FND_API.G_FALSE,
1334: p_lci_table => l_lci_table,
1335: x_return_status => l_return_status,
1336: x_msg_count => l_msg_count,
1329:
1330: -- Call Insert_LCMInterface to insert data in lcm interface table
1331: INL_INTEGRATION_GRP.Insert_LCMInterface(p_api_version => l_api_version,
1332: p_init_msg_list => FND_API.G_FALSE,
1333: p_commit => FND_API.G_FALSE,
1334: p_lci_table => l_lci_table,
1335: x_return_status => l_return_status,
1336: x_msg_count => l_msg_count,
1337: x_msg_data => l_msg_data);
1336: x_msg_count => l_msg_count,
1337: x_msg_data => l_msg_data);
1338:
1339: -- If any errors happen abort the process.
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1337: x_msg_data => l_msg_data);
1338:
1339: -- If any errors happen abort the process.
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1338:
1339: -- If any errors happen abort the process.
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1346: currentHeaderId := -9999;
1339: -- If any errors happen abort the process.
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1346: currentHeaderId := -9999;
1347: FOR i IN 1..l_lci_table.COUNT LOOP --Bug#8971617
1400: --Bug#10381495
1401:
1402: -- Standard call to get message count and if count is 1, get message info.
1403: FND_MSG_PUB.Count_And_Get (
1404: p_encoded => FND_API.g_false,
1405: p_count => x_msg_count,
1406: p_data => x_msg_data) ;
1407:
1408: -- Standard End of Procedure/Function Logging
1409: INL_LOGGING_PVT.Log_EndProc (
1410: p_module_name => g_module_name,
1411: p_procedure_name => l_proc_name);
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: -- Standard Expected Error Logging
1415: INL_LOGGING_PVT.Log_ExpecError (
1416: p_module_name => g_module_name,
1417: p_procedure_name => l_proc_name) ;
1419: p_module_name => g_module_name,
1420: p_procedure_name => l_proc_name,
1421: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1422: ROLLBACK;
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: --Bug#10381495
1425: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1426: INL_LOGGING_PVT.Log_Statement(
1427: p_module_name => g_module_name,
1431: mo_global.set_policy_context( l_previous_access_mode, l_previous_org_id);
1432: END IF;
1433: --Bug#10381495
1434: FND_MSG_PUB.Count_And_Get (
1435: p_encoded => FND_API.g_false,
1436: p_count => x_msg_count,
1437: p_data => x_msg_data) ;
1438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1439: INL_LOGGING_PVT.Log_UnexpecError (
1434: FND_MSG_PUB.Count_And_Get (
1435: p_encoded => FND_API.g_false,
1436: p_count => x_msg_count,
1437: p_data => x_msg_data) ;
1438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1439: INL_LOGGING_PVT.Log_UnexpecError (
1440: p_module_name => g_module_name,
1441: p_procedure_name => l_proc_name);
1442: INL_LOGGING_PVT.Log_Statement (
1443: p_module_name => g_module_name,
1444: p_procedure_name => l_proc_name,
1445: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1446: ROLLBACK;
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1448: --Bug#10381495
1449: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1450: INL_LOGGING_PVT.Log_Statement(
1451: p_module_name => g_module_name,
1455: mo_global.set_policy_context( l_previous_access_mode, l_previous_org_id);
1456: END IF;
1457: --Bug#10381495
1458: FND_MSG_PUB.Count_And_Get (
1459: p_encoded => FND_API.g_false,
1460: p_count => x_msg_count,
1461: p_data => x_msg_data) ;
1462: WHEN OTHERS THEN
1463: INL_LOGGING_PVT.Log_UnexpecError (
1467: p_module_name => g_module_name,
1468: p_procedure_name => l_proc_name,
1469: p_debug_info => 'the error is: ' || sqlcode ||' '||substr(SQLERRM, 1, 1000));
1470: ROLLBACK;
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1472: --Bug#10381495
1473: IF (l_current_org_id <> NVL(l_previous_org_id,-999)) THEN
1474: INL_LOGGING_PVT.Log_Statement(
1475: p_module_name => g_module_name,
1479: mo_global.set_policy_context( l_previous_access_mode, l_previous_org_id);
1480: END IF;
1481: --Bug#10381495
1482: FND_MSG_PUB.Count_And_Get (
1483: p_encoded => FND_API.g_false,
1484: p_count => x_msg_count,
1485: p_data => x_msg_data) ;
1486: END Import_FromRCV;
1487:
1491: --
1492: -- Pre-reqs : None
1493: -- Parameters :
1494: -- IN : p_api_version IN NUMBER,
1495: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1496: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1497: -- p_ship_line_id IN NUMBER
1498: --
1499: -- OUT x_return_status OUT NOCOPY VARCHAR2
1492: -- Pre-reqs : None
1493: -- Parameters :
1494: -- IN : p_api_version IN NUMBER,
1495: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1496: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1497: -- p_ship_line_id IN NUMBER
1498: --
1499: -- OUT x_return_status OUT NOCOPY VARCHAR2
1500: -- x_msg_count OUT NOCOPY NUMBER
1507: -- Notes :
1508:
1509: PROCEDURE Get_LandedCost (
1510: p_api_version IN NUMBER,
1511: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1512: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1513: p_ship_line_id IN NUMBER,
1514: x_actual_unit_landed_cost OUT NOCOPY NUMBER,
1515: x_adjustment_num OUT NOCOPY NUMBER, -- OPM Integration
1508:
1509: PROCEDURE Get_LandedCost (
1510: p_api_version IN NUMBER,
1511: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1512: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1513: p_ship_line_id IN NUMBER,
1514: x_actual_unit_landed_cost OUT NOCOPY NUMBER,
1515: x_adjustment_num OUT NOCOPY NUMBER, -- OPM Integration
1516: x_return_status OUT NOCOPY VARCHAR2,
1543: -- Standard Start of API savepoint
1544: SAVEPOINT Get_LandedCost_GRP;
1545:
1546: -- Initialize message list IF p_init_msg_list is SET to TRUE.
1547: IF FND_API.to_Boolean (p_init_msg_list) THEN
1548: FND_MSG_PUB.initialize;
1549: END IF;
1550:
1551: -- Check FOR call compatibility.
1548: FND_MSG_PUB.initialize;
1549: END IF;
1550:
1551: -- Check FOR call compatibility.
1552: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1553: p_caller_version_number => p_api_version,
1554: p_api_name => l_api_name,
1555: p_pkg_name => g_pkg_name) THEN
1556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1553: p_caller_version_number => p_api_version,
1554: p_api_name => l_api_name,
1555: p_pkg_name => g_pkg_name) THEN
1556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1557: END IF;
1558:
1559: -- Initialize API RETURN status to success
1560: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1557: END IF;
1558:
1559: -- Initialize API RETURN status to success
1560: x_return_status := FND_API.G_RET_STS_SUCCESS;
1561:
1562: BEGIN
1563:
1564: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1593: p_var_name => 'INL_LANDEDCOST_PUB.Get_LandedCost Return Status: ',
1594: p_var_value => l_return_status);
1595:
1596: -- If any errors happen abort the process.
1597: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1598: RAISE FND_API.G_EXC_ERROR;
1599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1601: END IF;
1594: p_var_value => l_return_status);
1595:
1596: -- If any errors happen abort the process.
1597: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1598: RAISE FND_API.G_EXC_ERROR;
1599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1601: END IF;
1602: END;
1595:
1596: -- If any errors happen abort the process.
1597: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1598: RAISE FND_API.G_EXC_ERROR;
1599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1601: END IF;
1602: END;
1603: -- Standard check of p_commit.
1596: -- If any errors happen abort the process.
1597: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1598: RAISE FND_API.G_EXC_ERROR;
1599: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1601: END IF;
1602: END;
1603: -- Standard check of p_commit.
1604: IF FND_API.To_Boolean (p_commit) THEN
1600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1601: END IF;
1602: END;
1603: -- Standard check of p_commit.
1604: IF FND_API.To_Boolean (p_commit) THEN
1605: COMMIT WORK;
1606: END IF;
1607:
1608: -- Get message count AND IF count is 1, get message info.
1605: COMMIT WORK;
1606: END IF;
1607:
1608: -- Get message count AND IF count is 1, get message info.
1609: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1610: p_count => x_msg_count,
1611: p_data => x_msg_data) ;
1612:
1613: -- End of Procedure Logging
1614: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1615: p_procedure_name => l_api_name) ;
1616:
1617: EXCEPTION
1618: WHEN FND_API.G_EXC_ERROR THEN
1619: -- Standard Expected Error Logging
1620: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1621: p_procedure_name => l_api_name) ;
1622: ROLLBACK TO Get_LandedCost_GRP;
1619: -- Standard Expected Error Logging
1620: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1621: p_procedure_name => l_api_name) ;
1622: ROLLBACK TO Get_LandedCost_GRP;
1623: x_return_status := FND_API.G_RET_STS_ERROR;
1624: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1625: p_count => x_msg_count,
1626: p_data => x_msg_data) ;
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1620: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1621: p_procedure_name => l_api_name) ;
1622: ROLLBACK TO Get_LandedCost_GRP;
1623: x_return_status := FND_API.G_RET_STS_ERROR;
1624: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1625: p_count => x_msg_count,
1626: p_data => x_msg_data) ;
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1628: -- Standard Unexpected Error Logging
1623: x_return_status := FND_API.G_RET_STS_ERROR;
1624: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1625: p_count => x_msg_count,
1626: p_data => x_msg_data) ;
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1628: -- Standard Unexpected Error Logging
1629: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1630: p_procedure_name => l_api_name) ;
1631: ROLLBACK TO Get_LandedCost_GRP;
1628: -- Standard Unexpected Error Logging
1629: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1630: p_procedure_name => l_api_name) ;
1631: ROLLBACK TO Get_LandedCost_GRP;
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1634: p_count => x_msg_count,
1635: p_data => x_msg_data) ;
1636: WHEN OTHERS THEN
1629: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1630: p_procedure_name => l_api_name) ;
1631: ROLLBACK TO Get_LandedCost_GRP;
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1634: p_count => x_msg_count,
1635: p_data => x_msg_data) ;
1636: WHEN OTHERS THEN
1637: -- Standard Unexpected Error Logging
1637: -- Standard Unexpected Error Logging
1638: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1639: p_procedure_name => l_api_name) ;
1640: ROLLBACK TO Get_LandedCost_GRP;
1641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1642: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1643: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1644: p_procedure_name => l_api_name) ;
1645: END IF;
1642: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1643: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1644: p_procedure_name => l_api_name) ;
1645: END IF;
1646: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1647: p_count => x_msg_count,
1648: p_data => x_msg_data);
1649: END Get_LandedCost;
1650:
1694: p_procedure_name => l_api_name,
1695: p_debug_info => 'Before calling INL_LANDEDCOST_PUB.Get_LandedCost');
1696:
1697: INL_INTEGRATION_GRP.Get_LandedCost (p_api_version => l_api_version,
1698: p_init_msg_list => FND_API.G_FALSE,
1699: p_commit => FND_API.G_FALSE,
1700: p_ship_line_id => p_rti_rec(i).line_id,
1701: x_actual_unit_landed_cost => l_actual_unit_landed_cost,
1702: x_adjustment_num => l_actual_ajust_num, -- opm integration
1695: p_debug_info => 'Before calling INL_LANDEDCOST_PUB.Get_LandedCost');
1696:
1697: INL_INTEGRATION_GRP.Get_LandedCost (p_api_version => l_api_version,
1698: p_init_msg_list => FND_API.G_FALSE,
1699: p_commit => FND_API.G_FALSE,
1700: p_ship_line_id => p_rti_rec(i).line_id,
1701: x_actual_unit_landed_cost => l_actual_unit_landed_cost,
1702: x_adjustment_num => l_actual_ajust_num, -- opm integration
1703: x_return_status => l_return_status,
1803: IS
1804:
1805:
1806: l_proc_name CONSTANT VARCHAR2(30) := 'Call_UpdateRCV';
1807: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1808:
1809: l_rti_lc_info_table RCV_UPDATE_RTI_LC.rcv_cost_table := RCV_UPDATE_RTI_LC.rcv_cost_table();
1810: l_rcv_int_table RCV_UPDATE_RTI_LC.lcm_int_table := RCV_UPDATE_RTI_LC.lcm_int_table();
1811:
1811:
1812: BEGIN
1813:
1814: -- Initialize return status to success
1815: x_return_status := FND_API.G_RET_STS_SUCCESS;
1816:
1817: -- Standard Beginning of Procedure/Function Logging
1818: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1819: p_procedure_name => l_proc_name);
1845: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
1846: p_procedure_name => l_proc_name);
1847:
1848: EXCEPTION
1849: WHEN FND_API.G_EXC_ERROR THEN
1850: -- Standard Expected Error Logging
1851: INL_LOGGING_PVT.Log_ExpecError (
1852: p_module_name => g_module_name,
1853: p_procedure_name => l_proc_name);
1850: -- Standard Expected Error Logging
1851: INL_LOGGING_PVT.Log_ExpecError (
1852: p_module_name => g_module_name,
1853: p_procedure_name => l_proc_name);
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: -- Standard Unexpected Error Logging
1857: INL_LOGGING_PVT.Log_UnexpecError (
1858: p_module_name => g_module_name,
1851: INL_LOGGING_PVT.Log_ExpecError (
1852: p_module_name => g_module_name,
1853: p_procedure_name => l_proc_name);
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: -- Standard Unexpected Error Logging
1857: INL_LOGGING_PVT.Log_UnexpecError (
1858: p_module_name => g_module_name,
1859: p_procedure_name => l_proc_name);
1856: -- Standard Unexpected Error Logging
1857: INL_LOGGING_PVT.Log_UnexpecError (
1858: p_module_name => g_module_name,
1859: p_procedure_name => l_proc_name);
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: WHEN OTHERS THEN
1862: -- Standard Unexpected Error Logging
1863: INL_LOGGING_PVT.Log_UnexpecError (
1864: p_module_name => g_module_name,
1862: -- Standard Unexpected Error Logging
1863: INL_LOGGING_PVT.Log_UnexpecError (
1864: p_module_name => g_module_name,
1865: p_procedure_name => l_proc_name);
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1867: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1868: FND_MSG_PUB.Add_Exc_Msg(
1869: p_pkg_name => g_pkg_name,
1870: p_procedure_name => l_proc_name);
1878: --
1879: -- Pre-reqs : None
1880: -- Parameters :
1881: -- IN : p_api_version IN NUMBER,
1882: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1883: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1884: -- p_ship_header_id IN NUMBER
1885: --
1886: -- OUT x_return_status OUT NOCOPY VARCHAR2
1879: -- Pre-reqs : None
1880: -- Parameters :
1881: -- IN : p_api_version IN NUMBER,
1882: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1883: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1884: -- p_ship_header_id IN NUMBER
1885: --
1886: -- OUT x_return_status OUT NOCOPY VARCHAR2
1887: -- x_msg_count OUT NOCOPY NUMBER
1890: -- Version : Current version 1.0
1891: --
1892: -- Notes :
1893: PROCEDURE Call_StampLC (p_api_version IN NUMBER,
1894: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1895: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1896: p_ship_header_id IN NUMBER,
1897: x_return_status OUT NOCOPY VARCHAR2,
1898: x_msg_count OUT NOCOPY NUMBER,
1891: --
1892: -- Notes :
1893: PROCEDURE Call_StampLC (p_api_version IN NUMBER,
1894: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1895: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1896: p_ship_header_id IN NUMBER,
1897: x_return_status OUT NOCOPY VARCHAR2,
1898: x_msg_count OUT NOCOPY NUMBER,
1899: x_msg_data OUT NOCOPY VARCHAR2) IS
1914: -- Standard Start of API savepoint
1915: SAVEPOINT Call_StampLC_GRP;
1916:
1917: -- Initialize message list IF p_init_msg_list is SET to TRUE.
1918: IF FND_API.to_Boolean (p_init_msg_list) THEN
1919: FND_MSG_PUB.initialize;
1920: END IF;
1921:
1922: -- Check FOR call compatibility.
1919: FND_MSG_PUB.initialize;
1920: END IF;
1921:
1922: -- Check FOR call compatibility.
1923: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1924: p_caller_version_number => p_api_version,
1925: p_api_name => l_api_name,
1926: p_pkg_name => g_pkg_name) THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1923: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1924: p_caller_version_number => p_api_version,
1925: p_api_name => l_api_name,
1926: p_pkg_name => g_pkg_name) THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: -- Initialize API RETURN status to success
1931: x_return_status := FND_API.G_RET_STS_SUCCESS;
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: -- Initialize API RETURN status to success
1931: x_return_status := FND_API.G_RET_STS_SUCCESS;
1932:
1933: OPEN c_ship_lines(p_ship_header_id, /*'PO'*/ NULL, 'RCV_TRANSACTIONS_INTERFACE');
1934: FETCH c_ship_lines BULK COLLECT INTO l_ship_lines_table;
1935:
1953: p_var_name => 'Call_UpdateRCV l_return_status: ',
1954: p_var_value => l_return_status);
1955:
1956: -- If any errors happen abort the process.
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: p_var_value => l_return_status);
1955:
1956: -- If any errors happen abort the process.
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:
1956: -- If any errors happen abort the process.
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: -- Standard check of p_commit.
1956: -- If any errors happen abort the process.
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: -- Standard check of p_commit.
1964: IF FND_API.To_Boolean (p_commit) THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962:
1963: -- Standard check of p_commit.
1964: IF FND_API.To_Boolean (p_commit) THEN
1965: COMMIT WORK;
1966: END IF;
1967:
1968: -- Get message count AND IF count is 1, get message info.
1965: COMMIT WORK;
1966: END IF;
1967:
1968: -- Get message count AND IF count is 1, get message info.
1969: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1970: p_count => x_msg_count,
1971: p_data => x_msg_data);
1972:
1973: -- End of Procedure Logging
1973: -- End of Procedure Logging
1974: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1975: p_procedure_name => l_api_name);
1976: EXCEPTION
1977: WHEN FND_API.G_EXC_ERROR THEN
1978: -- Standard Expected Error Logging
1979: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1980: p_procedure_name => l_api_name);
1981: ROLLBACK TO Call_StampLC_GRP;
1978: -- Standard Expected Error Logging
1979: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1980: p_procedure_name => l_api_name);
1981: ROLLBACK TO Call_StampLC_GRP;
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1984: p_count => x_msg_count,
1985: p_data => x_msg_data);
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1979: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1980: p_procedure_name => l_api_name);
1981: ROLLBACK TO Call_StampLC_GRP;
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1984: p_count => x_msg_count,
1985: p_data => x_msg_data);
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: -- Standard Unexpected Error Logging
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1984: p_count => x_msg_count,
1985: p_data => x_msg_data);
1986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: -- Standard Unexpected Error Logging
1988: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1989: p_procedure_name => l_api_name);
1990: ROLLBACK TO Call_StampLC_GRP;
1987: -- Standard Unexpected Error Logging
1988: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1989: p_procedure_name => l_api_name);
1990: ROLLBACK TO Call_StampLC_GRP;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1993: p_count => x_msg_count,
1994: p_data => x_msg_data) ;
1995: WHEN OTHERS THEN
1988: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1989: p_procedure_name => l_api_name);
1990: ROLLBACK TO Call_StampLC_GRP;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1992: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1993: p_count => x_msg_count,
1994: p_data => x_msg_data) ;
1995: WHEN OTHERS THEN
1996: -- Standard Unexpected Error Logging
1996: -- Standard Unexpected Error Logging
1997: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1998: p_procedure_name => l_api_name) ;
1999: ROLLBACK TO Call_StampLC_GRP;
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2001: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2002: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2003: p_procedure_name => l_api_name) ;
2004: END IF;
2001: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2002: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2003: p_procedure_name => l_api_name) ;
2004: END IF;
2005: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2006: p_count => x_msg_count,
2007: p_data => x_msg_data) ;
2008: END Call_StampLC;
2009:
2026: p_ship_lines_table IN ship_lines_table,
2027: x_return_status OUT NOCOPY VARCHAR2)
2028: IS
2029: l_proc_name CONSTANT VARCHAR2(30) := 'Call_InsertRCV';
2030: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2031: l_ship_lines_table RCV_INSERT_FROM_INL.rti_rec_table:= RCV_INSERT_FROM_INL.rti_rec_table();
2032: BEGIN
2033:
2034: -- Initialize return status to success
2031: l_ship_lines_table RCV_INSERT_FROM_INL.rti_rec_table:= RCV_INSERT_FROM_INL.rti_rec_table();
2032: BEGIN
2033:
2034: -- Initialize return status to success
2035: x_return_status := FND_API.G_RET_STS_SUCCESS;
2036:
2037: -- Standard Beginning of Procedure/Function Logging
2038: INL_LOGGING_PVT.Log_BeginProc (
2039: p_module_name => g_module_name,
2116: p_procedure_name => l_proc_name
2117: );
2118:
2119: EXCEPTION
2120: WHEN FND_API.G_EXC_ERROR THEN
2121: -- Standard Expected Error Logging
2122: INL_LOGGING_PVT.Log_ExpecError(
2123: p_module_name => g_module_name,
2124: p_procedure_name => l_proc_name);
2121: -- Standard Expected Error Logging
2122: INL_LOGGING_PVT.Log_ExpecError(
2123: p_module_name => g_module_name,
2124: p_procedure_name => l_proc_name);
2125: x_return_status := FND_API.G_RET_STS_ERROR;
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2127: -- Standard Unexpected Error Logging
2128: INL_LOGGING_PVT.Log_UnexpecError(
2129: p_module_name => g_module_name,
2122: INL_LOGGING_PVT.Log_ExpecError(
2123: p_module_name => g_module_name,
2124: p_procedure_name => l_proc_name);
2125: x_return_status := FND_API.G_RET_STS_ERROR;
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2127: -- Standard Unexpected Error Logging
2128: INL_LOGGING_PVT.Log_UnexpecError(
2129: p_module_name => g_module_name,
2130: p_procedure_name => l_proc_name);
2127: -- Standard Unexpected Error Logging
2128: INL_LOGGING_PVT.Log_UnexpecError(
2129: p_module_name => g_module_name,
2130: p_procedure_name => l_proc_name);
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2132: WHEN OTHERS THEN
2133: -- Standard Unexpected Error Logging
2134: INL_LOGGING_PVT.Log_UnexpecError(
2135: p_module_name => g_module_name,
2133: -- Standard Unexpected Error Logging
2134: INL_LOGGING_PVT.Log_UnexpecError(
2135: p_module_name => g_module_name,
2136: p_procedure_name => l_proc_name);
2137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2138: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2139: FND_MSG_PUB.Add_Exc_Msg(
2140: p_pkg_name => g_pkg_name,
2141: p_procedure_name => l_proc_name);
2149: --
2150: -- Pre-reqs : None
2151: -- Parameters :
2152: -- IN : p_api_version IN NUMBER,
2153: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2154: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2155: -- p_ship_header_id IN NUMBER
2156: --
2157: -- OUT x_return_status OUT NOCOPY VARCHAR2
2150: -- Pre-reqs : None
2151: -- Parameters :
2152: -- IN : p_api_version IN NUMBER,
2153: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2154: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2155: -- p_ship_header_id IN NUMBER
2156: --
2157: -- OUT x_return_status OUT NOCOPY VARCHAR2
2158: -- x_msg_count OUT NOCOPY NUMBER
2162: --
2163: -- Notes :
2164:
2165: PROCEDURE Export_ToRCV (p_api_version IN NUMBER,
2166: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2167: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2168: p_ship_header_id IN NUMBER,
2169: x_return_status OUT NOCOPY VARCHAR2,
2170: x_msg_count OUT NOCOPY NUMBER,
2163: -- Notes :
2164:
2165: PROCEDURE Export_ToRCV (p_api_version IN NUMBER,
2166: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2167: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2168: p_ship_header_id IN NUMBER,
2169: x_return_status OUT NOCOPY VARCHAR2,
2170: x_msg_count OUT NOCOPY NUMBER,
2171: x_msg_data OUT NOCOPY VARCHAR2)
2187: -- Standard Start of API savepoint
2188: SAVEPOINT Export_ToRCV_GRP;
2189:
2190: -- Initialize message list IF p_init_msg_list is SET to TRUE.
2191: IF FND_API.to_Boolean (p_init_msg_list) THEN
2192: FND_MSG_PUB.initialize;
2193: END IF;
2194:
2195: -- Check FOR call compatibility.
2192: FND_MSG_PUB.initialize;
2193: END IF;
2194:
2195: -- Check FOR call compatibility.
2196: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
2197: p_caller_version_number => p_api_version,
2198: p_api_name => l_api_name,
2199: p_pkg_name => g_pkg_name) THEN
2200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2196: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
2197: p_caller_version_number => p_api_version,
2198: p_api_name => l_api_name,
2199: p_pkg_name => g_pkg_name) THEN
2200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2201: END IF;
2202:
2203: -- Initialize API RETURN status to success
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2201: END IF;
2202:
2203: -- Initialize API RETURN status to success
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2205:
2206: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
2207: p_procedure_name => l_api_name,
2208: p_var_name => 'p_ship_header_id',
2220: p_ship_lines_table => l_ship_lines_table,
2221: x_return_status => l_return_status);
2222:
2223: -- If any errors happen abort the process.
2224: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2225: RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2221: x_return_status => l_return_status);
2222:
2223: -- If any errors happen abort the process.
2224: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2225: RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2222:
2223: -- If any errors happen abort the process.
2224: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2225: RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2230: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2223: -- If any errors happen abort the process.
2224: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2225: RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2230: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2231: p_procedure_name => l_api_name,
2241: CLOSE c_ship_lines;
2242: END IF;
2243:
2244: -- Standard check of p_commit.
2245: IF FND_API.To_Boolean (p_commit) THEN
2246: COMMIT WORK;
2247: END IF;
2248: -- Get message count AND IF count is 1, get message info.
2249: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2245: IF FND_API.To_Boolean (p_commit) THEN
2246: COMMIT WORK;
2247: END IF;
2248: -- Get message count AND IF count is 1, get message info.
2249: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2250: p_count => x_msg_count,
2251: p_data => x_msg_data) ;
2252: -- End of Procedure Logging
2253: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
2252: -- End of Procedure Logging
2253: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
2254: p_procedure_name => l_api_name) ;
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_ERROR THEN
2257: -- Standard Expected Error Logging
2258: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
2259: p_procedure_name => l_api_name) ;
2260: ROLLBACK TO Export_ToRCV_GRP;
2257: -- Standard Expected Error Logging
2258: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
2259: p_procedure_name => l_api_name) ;
2260: ROLLBACK TO Export_ToRCV_GRP;
2261: x_return_status := FND_API.G_RET_STS_ERROR;
2262: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2263: p_count => x_msg_count,
2264: p_data => x_msg_data) ;
2265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2258: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
2259: p_procedure_name => l_api_name) ;
2260: ROLLBACK TO Export_ToRCV_GRP;
2261: x_return_status := FND_API.G_RET_STS_ERROR;
2262: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2263: p_count => x_msg_count,
2264: p_data => x_msg_data) ;
2265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2266: -- Standard Unexpected Error Logging
2261: x_return_status := FND_API.G_RET_STS_ERROR;
2262: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2263: p_count => x_msg_count,
2264: p_data => x_msg_data) ;
2265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2266: -- Standard Unexpected Error Logging
2267: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
2268: p_procedure_name => l_api_name) ;
2269: ROLLBACK TO Export_ToRCV_GRP;
2266: -- Standard Unexpected Error Logging
2267: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
2268: p_procedure_name => l_api_name) ;
2269: ROLLBACK TO Export_ToRCV_GRP;
2270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2272: p_count => x_msg_count,
2273: p_data => x_msg_data) ;
2274: WHEN OTHERS THEN
2267: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
2268: p_procedure_name => l_api_name) ;
2269: ROLLBACK TO Export_ToRCV_GRP;
2270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2272: p_count => x_msg_count,
2273: p_data => x_msg_data) ;
2274: WHEN OTHERS THEN
2275: -- Standard Unexpected Error Logging
2275: -- Standard Unexpected Error Logging
2276: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
2277: p_procedure_name => l_api_name) ;
2278: ROLLBACK TO Export_ToRCV_GRP;
2279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2280: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2281: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
2282: p_procedure_name => l_api_name) ;
2283: END IF;
2280: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2281: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
2282: p_procedure_name => l_api_name) ;
2283: END IF;
2284: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
2285: p_count => x_msg_count,
2286: p_data => x_msg_data) ;
2287: END Export_ToRCV;
2288:
2292: -- to be processed by Inventory/Costing applications.
2293: -- Pre-reqs : None
2294: -- Parameters :
2295: -- IN : p_api_version IN NUMBER,
2296: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2297: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2298: -- p_ship_header_id IN NUMBER
2299: -- p_max_allocation_id IN NUMBER the previous max allocation id
2300: -- OUT x_return_status OUT NOCOPY VARCHAR2
2293: -- Pre-reqs : None
2294: -- Parameters :
2295: -- IN : p_api_version IN NUMBER,
2296: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2297: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2298: -- p_ship_header_id IN NUMBER
2299: -- p_max_allocation_id IN NUMBER the previous max allocation id
2300: -- OUT x_return_status OUT NOCOPY VARCHAR2
2301: -- x_msg_count OUT NOCOPY NUMBER
2304: -- Version : Current version 1.0
2305: --
2306: -- Notes :
2307: PROCEDURE Export_ToCST (p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2309: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2310: p_ship_header_id IN NUMBER,
2311: p_max_allocation_id IN NUMBER, --Bug#10032820
2312: x_return_status OUT NOCOPY VARCHAR2,
2305: --
2306: -- Notes :
2307: PROCEDURE Export_ToCST (p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2309: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2310: p_ship_header_id IN NUMBER,
2311: p_max_allocation_id IN NUMBER, --Bug#10032820
2312: x_return_status OUT NOCOPY VARCHAR2,
2313: x_msg_count OUT NOCOPY NUMBER,
2412: -- Standard Start of API savepoint
2413: SAVEPOINT Export_ToCST_GRP;
2414:
2415: -- Initialize message list IF p_init_msg_list is SET to TRUE.
2416: IF FND_API.to_Boolean (p_init_msg_list) THEN
2417: FND_MSG_PUB.initialize;
2418: END IF;
2419:
2420: -- Check FOR call compatibility.
2417: FND_MSG_PUB.initialize;
2418: END IF;
2419:
2420: -- Check FOR call compatibility.
2421: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
2422: p_caller_version_number => p_api_version,
2423: p_api_name => l_api_name,
2424: p_pkg_name => g_pkg_name) THEN
2425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
2422: p_caller_version_number => p_api_version,
2423: p_api_name => l_api_name,
2424: p_pkg_name => g_pkg_name) THEN
2425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2426: END IF;
2427:
2428: -- Initialize API RETURN status to success
2429: x_return_status := FND_API.G_RET_STS_SUCCESS;
2425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2426: END IF;
2427:
2428: -- Initialize API RETURN status to success
2429: x_return_status := FND_API.G_RET_STS_SUCCESS;
2430:
2431: OPEN c_ship_ln_adj;
2432: FETCH c_ship_ln_adj BULK COLLECT INTO ship_ln_list;
2433: CLOSE c_ship_ln_adj;
2485: l_debug_info := 'ERROR Getting the Unit Landed Cost: '||shipln_landed_costs_v_list.COUNT;
2486: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
2487: p_procedure_name => l_api_name,
2488: p_debug_info => l_debug_info);
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: END IF;
2491: l_prior_landed_cost:= shipln_landed_costs_v_list(1).unit_landed_cost;
2492:
2493: FOR j IN 2 .. shipln_landed_costs_v_list.COUNT
2569: END LOOP;
2570: END LOOP;
2571:
2572: -- Standard check of p_commit.
2573: IF FND_API.To_Boolean (p_commit) THEN
2574: COMMIT WORK;
2575: END IF;
2576: -- Get message count AND IF count is 1, get message info.
2577: FND_MSG_PUB.Count_And_Get (
2574: COMMIT WORK;
2575: END IF;
2576: -- Get message count AND IF count is 1, get message info.
2577: FND_MSG_PUB.Count_And_Get (
2578: p_encoded => FND_API.g_false,
2579: p_count => x_msg_count,
2580: p_data => x_msg_data
2581: ) ;
2582: -- End of Procedure Logging
2585: p_procedure_name => l_api_name
2586: ) ;
2587:
2588: EXCEPTION
2589: WHEN FND_API.G_EXC_ERROR THEN
2590: -- Standard Expected Error Logging
2591: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2592: p_procedure_name => l_api_name) ;
2593: ROLLBACK TO Export_ToCST_GRP;
2590: -- Standard Expected Error Logging
2591: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2592: p_procedure_name => l_api_name) ;
2593: ROLLBACK TO Export_ToCST_GRP;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2596: p_count => x_msg_count,
2597: p_data => x_msg_data) ;
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
2592: p_procedure_name => l_api_name) ;
2593: ROLLBACK TO Export_ToCST_GRP;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2596: p_count => x_msg_count,
2597: p_data => x_msg_data) ;
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2599: -- Standard Unexpected Error Logging
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2596: p_count => x_msg_count,
2597: p_data => x_msg_data) ;
2598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2599: -- Standard Unexpected Error Logging
2600: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2601: p_procedure_name => l_api_name) ;
2602: ROLLBACK TO Export_ToCST_GRP;
2599: -- Standard Unexpected Error Logging
2600: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2601: p_procedure_name => l_api_name) ;
2602: ROLLBACK TO Export_ToCST_GRP;
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2605: p_count => x_msg_count,
2606: p_data => x_msg_data) ;
2607: WHEN OTHERS THEN
2600: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2601: p_procedure_name => l_api_name) ;
2602: ROLLBACK TO Export_ToCST_GRP;
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2605: p_count => x_msg_count,
2606: p_data => x_msg_data) ;
2607: WHEN OTHERS THEN
2608: -- Standard Unexpected Error Logging
2608: -- Standard Unexpected Error Logging
2609: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
2610: p_procedure_name => l_api_name) ;
2611: ROLLBACK TO Export_ToCST_GRP;
2612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2613: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2614: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2615: p_procedure_name => l_api_name) ;
2616: END IF;
2613: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2614: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
2615: p_procedure_name => l_api_name) ;
2616: END IF;
2617: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
2618: p_count => x_msg_count,
2619: p_data => x_msg_data) ;
2620: END Export_ToCST;
2621:
2626: -- Function :
2627: -- Pre-reqs : None
2628: -- Parameters :
2629: -- IN : p_api_version IN NUMBER Required
2630: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
2631: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2632: -- p_ship_line_id IN NUMBER Required
2633: --
2634: -- OUT : x_return_status OUT NOCOPY VARCHAR2
2627: -- Pre-reqs : None
2628: -- Parameters :
2629: -- IN : p_api_version IN NUMBER Required
2630: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
2631: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2632: -- p_ship_line_id IN NUMBER Required
2633: --
2634: -- OUT : x_return_status OUT NOCOPY VARCHAR2
2635: -- x_msg_count OUT NOCOPY NUMBER
2643: --
2644: -- Notes :
2645: PROCEDURE Get_CurrencyInfo(
2646: p_api_version IN NUMBER,
2647: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2648: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2649: p_ship_line_id IN NUMBER,
2650: x_return_status OUT NOCOPY VARCHAR2,
2651: x_msg_count OUT NOCOPY NUMBER,
2644: -- Notes :
2645: PROCEDURE Get_CurrencyInfo(
2646: p_api_version IN NUMBER,
2647: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2648: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2649: p_ship_line_id IN NUMBER,
2650: x_return_status OUT NOCOPY VARCHAR2,
2651: x_msg_count OUT NOCOPY NUMBER,
2652: x_msg_data OUT NOCOPY VARCHAR2,
2673: -- Standard Start of API savepoint
2674: SAVEPOINT Get_CurrencyInfo_GRP;
2675:
2676: -- Initialize message list if p_init_msg_list is set to TRUE.
2677: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2678: FND_MSG_PUB.initialize;
2679: END IF;
2680:
2681: -- Check for call compatibility.
2678: FND_MSG_PUB.initialize;
2679: END IF;
2680:
2681: -- Check for call compatibility.
2682: IF NOT FND_API.Compatible_API_Call (
2683: l_api_version,
2684: p_api_version,
2685: l_api_name,
2686: g_pkg_name)
2684: p_api_version,
2685: l_api_name,
2686: g_pkg_name)
2687: THEN
2688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2689: END IF;
2690:
2691: -- Initialize API return status to success
2692: x_return_status := FND_API.G_RET_STS_SUCCESS;
2688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2689: END IF;
2690:
2691: -- Initialize API return status to success
2692: x_return_status := FND_API.G_RET_STS_SUCCESS;
2693:
2694: -- Api Body
2695:
2696: -- Standard Statement Level Procedure/Function Logging
2716:
2717: -- End of Api Body
2718:
2719: -- Standard check of p_commit.
2720: IF FND_API.To_Boolean( p_commit ) THEN
2721: COMMIT WORK;
2722: END IF;
2723:
2724: -- Standard call to get message count and if count is 1, get message info.
2722: END IF;
2723:
2724: -- Standard call to get message count and if count is 1, get message info.
2725: FND_MSG_PUB.Count_And_Get(
2726: p_encoded => FND_API.g_false,
2727: p_count => x_msg_count,
2728: p_data => x_msg_data);
2729:
2730: -- Standard End of Procedure/Function Logging
2731: INL_LOGGING_PVT.Log_EndProc (
2732: p_module_name => g_module_name,
2733: p_procedure_name => l_api_name);
2734: EXCEPTION
2735: WHEN FND_API.G_EXC_ERROR THEN
2736: -- Standard Expected Error Logging
2737: INL_LOGGING_PVT.Log_ExpecError (
2738: p_module_name => g_module_name,
2739: p_procedure_name => l_api_name
2738: p_module_name => g_module_name,
2739: p_procedure_name => l_api_name
2740: );
2741: ROLLBACK TO Get_CurrencyInfo_GRP;
2742: x_return_status := FND_API.G_RET_STS_ERROR;
2743: FND_MSG_PUB.Count_And_Get(
2744: p_encoded => FND_API.g_false,
2745: p_count => x_msg_count,
2746: p_data => x_msg_data
2740: );
2741: ROLLBACK TO Get_CurrencyInfo_GRP;
2742: x_return_status := FND_API.G_RET_STS_ERROR;
2743: FND_MSG_PUB.Count_And_Get(
2744: p_encoded => FND_API.g_false,
2745: p_count => x_msg_count,
2746: p_data => x_msg_data
2747: );
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2744: p_encoded => FND_API.g_false,
2745: p_count => x_msg_count,
2746: p_data => x_msg_data
2747: );
2748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2749: -- Standard Unexpected Error Logging
2750: INL_LOGGING_PVT.Log_UnexpecError (
2751: p_module_name => g_module_name,
2752: p_procedure_name => l_api_name);
2750: INL_LOGGING_PVT.Log_UnexpecError (
2751: p_module_name => g_module_name,
2752: p_procedure_name => l_api_name);
2753: ROLLBACK TO Get_CurrencyInfo_GRP;
2754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2755: FND_MSG_PUB.Count_And_Get(
2756: p_encoded => FND_API.g_false,
2757: p_count => x_msg_count,
2758: p_data => x_msg_data);
2752: p_procedure_name => l_api_name);
2753: ROLLBACK TO Get_CurrencyInfo_GRP;
2754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2755: FND_MSG_PUB.Count_And_Get(
2756: p_encoded => FND_API.g_false,
2757: p_count => x_msg_count,
2758: p_data => x_msg_data);
2759: WHEN OTHERS THEN
2760: -- Standard Unexpected Error Logging
2761: INL_LOGGING_PVT.Log_UnexpecError (
2762: p_module_name => g_module_name,
2763: p_procedure_name => l_api_name);
2764: ROLLBACK TO Get_CurrencyInfo_GRP;
2765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2766: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2767: THEN
2768: FND_MSG_PUB.Add_Exc_Msg(
2769: g_pkg_name,
2769: g_pkg_name,
2770: l_api_name);
2771: END IF;
2772: FND_MSG_PUB.Count_And_Get(
2773: p_encoded => FND_API.g_false,
2774: p_count => x_msg_count,
2775: p_data => x_msg_data);
2776: END Get_CurrencyInfo;
2777:
2946:
2947: BEGIN
2948:
2949: -- Initialize return status to success
2950: x_return_status := FND_API.G_RET_STS_SUCCESS;
2951:
2952: -- Standard Beginning of Procedure/Function Logging
2953: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
2954: p_procedure_name => l_proc_name);
2970:
2971: IF l_ship_type_id IS NULL OR l_ship_type_id = 0 THEN
2972: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_SHIP_TYP_PROF') ;
2973: FND_MSG_PUB.ADD;
2974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2975: END IF;
2976:
2977: INL_LOGGING_PVT.Log_Statement (
2978: p_module_name => g_module_name,
3008: -- The Shipment Line Type should be defined for the Shipment Type
3009: IF l_ship_line_type_id IS NULL THEN
3010: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_NO_SHIP_LN_DEF') ;
3011: FND_MSG_PUB.ADD;
3012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3013: END IF;
3014:
3015: -- Get last task code from INL_CUSTOM_PUB.Get_LastTaskCodeForSimul
3016: l_last_task_code := INL_CUSTOM_PUB.Get_LastTaskCodeForSimul;
3023:
3024: IF l_last_task_code IS NULL OR l_last_task_code NOT IN('10','20','30','40','50','60') THEN
3025: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_CHK_LAST_TASK_CODE') ;
3026: FND_MSG_PUB.ADD;
3027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3028: END IF;
3029:
3030: INL_LOGGING_PVT.Log_Statement (
3031: p_module_name => g_module_name,
3032: p_procedure_name => l_proc_name,
3033: p_debug_info => 'Get PO Lines info');
3034:
3035: -- If any errors happen abort the process.
3036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: END IF;
3033: p_debug_info => 'Get PO Lines info');
3034:
3035: -- If any errors happen abort the process.
3036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: END IF;
3041:
3034:
3035: -- If any errors happen abort the process.
3036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: END IF;
3041:
3042: INL_LOGGING_PVT.Log_Statement (
3035: -- If any errors happen abort the process.
3036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: END IF;
3041:
3042: INL_LOGGING_PVT.Log_Statement (
3043: p_module_name => g_module_name,
3191: p_debug_info => 'Ship To Organization has not been setup in LCM Options');
3192: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_NO_LCM_OPT_DEF_ORG') ;
3193: FND_MESSAGE.SET_TOKEN ('INV_ORG_NAME', l_ship_to_location_code);
3194: FND_MSG_PUB.ADD;
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END;
3197:
3198: l_organization_id := l_ship_to_organization_id;
3199:
3233: x_ship_num => l_ship_num,
3234: x_return_status => l_return_status);
3235:
3236: -- If any errors happen abort the process.
3237: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: END IF;
3234: x_return_status => l_return_status);
3235:
3236: -- If any errors happen abort the process.
3237: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: END IF;
3242:
3235:
3236: -- If any errors happen abort the process.
3237: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: END IF;
3242:
3243: l_sequence := l_sequence + 1;
3236: -- If any errors happen abort the process.
3237: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: END IF;
3242:
3243: l_sequence := l_sequence + 1;
3244: END IF;
3250: IF l_taxation_country IS NULL THEN
3251: FND_MESSAGE.SET_NAME ('INL', 'INL_ERR_LOC_COUNTRY_NULL') ;
3252: FND_MESSAGE.SET_TOKEN ('LOCATION_CODE', l_ship_to_location_code) ;
3253: FND_MSG_PUB.ADD;
3254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3255: END IF;
3256:
3257: -- Get the UOM Code
3258: SELECT uom_code
3355: p_procedure_name => l_proc_name,
3356: p_debug_info => 'Call Insert_LCMInterface to insert data in lcm interface table');
3357:
3358: INL_INTEGRATION_GRP.Insert_LCMInterface(p_api_version => 1.0,
3359: p_init_msg_list => FND_API.G_FALSE,
3360: p_commit => FND_API.G_FALSE,
3361: p_lci_table => l_lci_table,
3362: x_return_status => l_return_status,
3363: x_msg_count => l_msg_count,
3356: p_debug_info => 'Call Insert_LCMInterface to insert data in lcm interface table');
3357:
3358: INL_INTEGRATION_GRP.Insert_LCMInterface(p_api_version => 1.0,
3359: p_init_msg_list => FND_API.G_FALSE,
3360: p_commit => FND_API.G_FALSE,
3361: p_lci_table => l_lci_table,
3362: x_return_status => l_return_status,
3363: x_msg_count => l_msg_count,
3364: x_msg_data => l_msg_data);
3363: x_msg_count => l_msg_count,
3364: x_msg_data => l_msg_data);
3365:
3366: -- If any errors happen abort the process.
3367: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3368: RAISE FND_API.G_EXC_ERROR;
3369: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3371: END IF;
3364: x_msg_data => l_msg_data);
3365:
3366: -- If any errors happen abort the process.
3367: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3368: RAISE FND_API.G_EXC_ERROR;
3369: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3371: END IF;
3372:
3365:
3366: -- If any errors happen abort the process.
3367: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3368: RAISE FND_API.G_EXC_ERROR;
3369: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3371: END IF;
3372:
3373: l_ind_lci := 1;
3366: -- If any errors happen abort the process.
3367: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3368: RAISE FND_API.G_EXC_ERROR;
3369: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3371: END IF;
3372:
3373: l_ind_lci := 1;
3374:
3381: p_procedure_name => l_proc_name,
3382: p_debug_info => 'Call INL_INTERFACE_PVT.Import_LCMShipments with group_id: ' || l_lci_table(l_ind_lci).group_id );
3383:
3384: INL_INTERFACE_PVT.Import_LCMShipments (p_api_version => 1.0,
3385: p_init_msg_list => FND_API.G_FALSE,
3386: p_commit => FND_API.G_FALSE,
3387: p_group_id => l_lci_table(l_ind_lci).group_id,
3388: p_simulation_id => p_po_hdr_rec.simulation_id,
3389: x_return_status => l_return_status,
3382: p_debug_info => 'Call INL_INTERFACE_PVT.Import_LCMShipments with group_id: ' || l_lci_table(l_ind_lci).group_id );
3383:
3384: INL_INTERFACE_PVT.Import_LCMShipments (p_api_version => 1.0,
3385: p_init_msg_list => FND_API.G_FALSE,
3386: p_commit => FND_API.G_FALSE,
3387: p_group_id => l_lci_table(l_ind_lci).group_id,
3388: p_simulation_id => p_po_hdr_rec.simulation_id,
3389: x_return_status => l_return_status,
3390: x_msg_count => l_msg_count,
3390: x_msg_count => l_msg_count,
3391: x_msg_data => l_msg_data);
3392:
3393: -- If any errors happen abort the process.
3394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3395: RAISE FND_API.G_EXC_ERROR;
3396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: END IF;
3391: x_msg_data => l_msg_data);
3392:
3393: -- If any errors happen abort the process.
3394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3395: RAISE FND_API.G_EXC_ERROR;
3396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: END IF;
3399: END IF;
3392:
3393: -- If any errors happen abort the process.
3394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3395: RAISE FND_API.G_EXC_ERROR;
3396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: END IF;
3399: END IF;
3400: l_ind_lci := l_ind_lci + 1;
3393: -- If any errors happen abort the process.
3394: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3395: RAISE FND_API.G_EXC_ERROR;
3396: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: END IF;
3399: END IF;
3400: l_ind_lci := l_ind_lci + 1;
3401: END LOOP;
3418: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
3419: p_procedure_name => l_proc_name);
3420:
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3423: -- Standard Expected Error Logging
3424: INL_LOGGING_PVT.Log_ExpecError (
3425: p_module_name => g_module_name,
3426: p_procedure_name => l_proc_name);
3423: -- Standard Expected Error Logging
3424: INL_LOGGING_PVT.Log_ExpecError (
3425: p_module_name => g_module_name,
3426: p_procedure_name => l_proc_name);
3427: x_return_status := FND_API.G_RET_STS_ERROR;
3428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3429: -- Standard Unexpected Error Logging
3430: INL_LOGGING_PVT.Log_UnexpecError (
3431: p_module_name => g_module_name,
3424: INL_LOGGING_PVT.Log_ExpecError (
3425: p_module_name => g_module_name,
3426: p_procedure_name => l_proc_name);
3427: x_return_status := FND_API.G_RET_STS_ERROR;
3428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3429: -- Standard Unexpected Error Logging
3430: INL_LOGGING_PVT.Log_UnexpecError (
3431: p_module_name => g_module_name,
3432: p_procedure_name => l_proc_name);
3429: -- Standard Unexpected Error Logging
3430: INL_LOGGING_PVT.Log_UnexpecError (
3431: p_module_name => g_module_name,
3432: p_procedure_name => l_proc_name);
3433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3434: WHEN OTHERS THEN
3435: -- Standard Unexpected Error Logging
3436: INL_LOGGING_PVT.Log_UnexpecError (
3437: p_module_name => g_module_name,
3435: -- Standard Unexpected Error Logging
3436: INL_LOGGING_PVT.Log_UnexpecError (
3437: p_module_name => g_module_name,
3438: p_procedure_name => l_proc_name);
3439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3440: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3441: FND_MSG_PUB.Add_Exc_Msg(
3442: p_pkg_name => g_pkg_name,
3443: p_procedure_name => l_proc_name);
3451: --
3452: -- Pre-reqs : None
3453: -- Parameters :
3454: -- IN : p_api_version IN NUMBER,
3455: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3456: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3457: -- p_po_header_id IN NUMBER
3458: -- p_po_release_id IN NUMBER
3459: --
3452: -- Pre-reqs : None
3453: -- Parameters :
3454: -- IN : p_api_version IN NUMBER,
3455: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3456: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3457: -- p_po_header_id IN NUMBER
3458: -- p_po_release_id IN NUMBER
3459: --
3460: -- OUT x_return_status OUT NOCOPY VARCHAR2
3465: --
3466: -- Notes :
3467: PROCEDURE Create_POSimulation(
3468: p_api_version IN NUMBER,
3469: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3470: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3471: p_po_header_id IN NUMBER,
3472: p_po_release_id IN NUMBER, -- Bug 14280113
3473: x_return_status OUT NOCOPY VARCHAR2,
3466: -- Notes :
3467: PROCEDURE Create_POSimulation(
3468: p_api_version IN NUMBER,
3469: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3470: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3471: p_po_header_id IN NUMBER,
3472: p_po_release_id IN NUMBER, -- Bug 14280113
3473: x_return_status OUT NOCOPY VARCHAR2,
3474: x_msg_count OUT NOCOPY NUMBER,
3493: -- Standard Start of API savepoint
3494: SAVEPOINT Create_POSimulation_GRP;
3495:
3496: -- Initialize message list if p_init_msg_list is set to TRUE.
3497: IF FND_API.to_Boolean(p_init_msg_list) THEN
3498: FND_MSG_PUB.initialize;
3499: END IF;
3500:
3501: -- Standard call to check for call compatibility
3498: FND_MSG_PUB.initialize;
3499: END IF;
3500:
3501: -- Standard call to check for call compatibility
3502: IF NOT FND_API.Compatible_API_Call(p_current_version_number => l_api_version,
3503: p_caller_version_number => p_api_version,
3504: p_api_name => l_api_name,
3505: p_pkg_name => g_pkg_name ) THEN
3506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3502: IF NOT FND_API.Compatible_API_Call(p_current_version_number => l_api_version,
3503: p_caller_version_number => p_api_version,
3504: p_api_name => l_api_name,
3505: p_pkg_name => g_pkg_name ) THEN
3506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3507: END IF;
3508:
3509: -- Initialize API return status to success
3510: x_return_status := FND_API.G_RET_STS_SUCCESS;
3506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3507: END IF;
3508:
3509: -- Initialize API return status to success
3510: x_return_status := FND_API.G_RET_STS_SUCCESS;
3511:
3512: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
3513: p_procedure_name => l_api_name,
3514: p_var_name => 'p_po_header_id',
3674: l_simulation_rec.firmed_flag := 'N';
3675: -- l_simulation_rec.parent_table_name := 'PO_HEADERS'; -- Bug 14280113
3676:
3677: INL_SIMULATION_PVT.Create_Simulation(p_api_version => 1.0,
3678: p_init_msg_list => FND_API.G_FALSE,
3679: p_commit => FND_API.G_FALSE,
3680: p_simulation_rec => l_simulation_rec,
3681: x_return_status => l_return_status,
3682: x_msg_count => l_msg_count,
3675: -- l_simulation_rec.parent_table_name := 'PO_HEADERS'; -- Bug 14280113
3676:
3677: INL_SIMULATION_PVT.Create_Simulation(p_api_version => 1.0,
3678: p_init_msg_list => FND_API.G_FALSE,
3679: p_commit => FND_API.G_FALSE,
3680: p_simulation_rec => l_simulation_rec,
3681: x_return_status => l_return_status,
3682: x_msg_count => l_msg_count,
3683: x_msg_data => l_msg_data);
3682: x_msg_count => l_msg_count,
3683: x_msg_data => l_msg_data);
3684:
3685: -- If any errors happen abort the process.
3686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3687: RAISE FND_API.G_EXC_ERROR;
3688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3690: END IF;
3683: x_msg_data => l_msg_data);
3684:
3685: -- If any errors happen abort the process.
3686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3687: RAISE FND_API.G_EXC_ERROR;
3688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3690: END IF;
3691:
3684:
3685: -- If any errors happen abort the process.
3686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3687: RAISE FND_API.G_EXC_ERROR;
3688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3690: END IF;
3691:
3692: -- Format data in record to call procedure in order to create Simulated Shipment
3685: -- If any errors happen abort the process.
3686: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3687: RAISE FND_API.G_EXC_ERROR;
3688: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3690: END IF;
3691:
3692: -- Format data in record to call procedure in order to create Simulated Shipment
3693: l_po_hdr_rec.po_header_id := p_po_header_id; -- Bug 14280113
3710: x_msg_count => l_msg_count,
3711: x_msg_data => l_msg_data);
3712:
3713: -- If any errors happen abort the process.
3714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3715: RAISE FND_API.G_EXC_ERROR;
3716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3718: END IF;
3711: x_msg_data => l_msg_data);
3712:
3713: -- If any errors happen abort the process.
3714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3715: RAISE FND_API.G_EXC_ERROR;
3716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3718: END IF;
3719:
3712:
3713: -- If any errors happen abort the process.
3714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3715: RAISE FND_API.G_EXC_ERROR;
3716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3718: END IF;
3719:
3720: -- Standard check of p_commit.
3713: -- If any errors happen abort the process.
3714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3715: RAISE FND_API.G_EXC_ERROR;
3716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3718: END IF;
3719:
3720: -- Standard check of p_commit.
3721: IF FND_API.To_Boolean(p_commit) THEN
3717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3718: END IF;
3719:
3720: -- Standard check of p_commit.
3721: IF FND_API.To_Boolean(p_commit) THEN
3722: COMMIT WORK;
3723: END IF;
3724:
3725: IF FND_API.To_Boolean(p_commit) THEN
3721: IF FND_API.To_Boolean(p_commit) THEN
3722: COMMIT WORK;
3723: END IF;
3724:
3725: IF FND_API.To_Boolean(p_commit) THEN
3726: l_debug_info := 'Last Commit in INL_INTEGRATION_GRP';
3727: ELSE
3728: l_debug_info := 'Cannot perform the last commit in INL_INTEGRATION_GRP';
3729: END IF;
3733: p_procedure_name => l_api_name,
3734: p_debug_info => l_debug_info);
3735:
3736: -- Standard call to get message count and if count is 1, get message info.
3737: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
3738: -- Standard End of Procedure/Function Logging
3739: INL_LOGGING_PVT.Log_EndProc(
3740: p_module_name => g_module_name,
3741: p_procedure_name => l_api_name);
3740: p_module_name => g_module_name,
3741: p_procedure_name => l_api_name);
3742:
3743: EXCEPTION
3744: WHEN FND_API.G_EXC_ERROR THEN
3745: -- Standard Expected Error Logging
3746: INL_LOGGING_PVT.Log_ExpecError (
3747: p_module_name => g_module_name,
3748: p_procedure_name => l_api_name);
3746: INL_LOGGING_PVT.Log_ExpecError (
3747: p_module_name => g_module_name,
3748: p_procedure_name => l_api_name);
3749: ROLLBACK TO Create_POSimulation_GRP;
3750: x_return_status := FND_API.G_RET_STS_ERROR;
3751: FND_MSG_PUB.Count_And_Get(
3752: p_encoded => FND_API.g_false,
3753: p_count => x_msg_count,
3754: p_data => x_msg_data);
3748: p_procedure_name => l_api_name);
3749: ROLLBACK TO Create_POSimulation_GRP;
3750: x_return_status := FND_API.G_RET_STS_ERROR;
3751: FND_MSG_PUB.Count_And_Get(
3752: p_encoded => FND_API.g_false,
3753: p_count => x_msg_count,
3754: p_data => x_msg_data);
3755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3756: -- Standard Unexpected Error Logging
3751: FND_MSG_PUB.Count_And_Get(
3752: p_encoded => FND_API.g_false,
3753: p_count => x_msg_count,
3754: p_data => x_msg_data);
3755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3756: -- Standard Unexpected Error Logging
3757: INL_LOGGING_PVT.Log_UnexpecError (
3758: p_module_name => g_module_name,
3759: p_procedure_name => l_api_name);
3757: INL_LOGGING_PVT.Log_UnexpecError (
3758: p_module_name => g_module_name,
3759: p_procedure_name => l_api_name);
3760: ROLLBACK TO Create_POSimulation_GRP;
3761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3762: FND_MSG_PUB.Count_And_Get(
3763: p_encoded => FND_API.g_false,
3764: p_count => x_msg_count,
3765: p_data => x_msg_data);
3759: p_procedure_name => l_api_name);
3760: ROLLBACK TO Create_POSimulation_GRP;
3761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3762: FND_MSG_PUB.Count_And_Get(
3763: p_encoded => FND_API.g_false,
3764: p_count => x_msg_count,
3765: p_data => x_msg_data);
3766: WHEN OTHERS THEN
3767: -- Standard Unexpected Error Logging
3768: INL_LOGGING_PVT.Log_UnexpecError (
3769: p_module_name => g_module_name,
3770: p_procedure_name => l_api_name);
3771: ROLLBACK TO Create_POSimulation_GRP;
3772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3773: IF FND_MSG_PUB.Check_Msg_Level(
3774: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3775: ) THEN
3776: FND_MSG_PUB.Add_Exc_Msg(
3777: p_pkg_name => g_pkg_name,
3778: p_procedure_name => l_api_name);
3779: END IF;
3780: FND_MSG_PUB.Count_And_Get(
3781: p_encoded => FND_API.g_false,
3782: p_count => x_msg_count,
3783: p_data => x_msg_data);
3784: END Create_POSimulation;
3785:
3804: x_msg_count OUT NOCOPY NUMBER,
3805: x_msg_data OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
3806:
3807: l_proc_name CONSTANT VARCHAR2(30) := 'Check_POAgainstShipLines';
3808: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3809: l_po_ship_check BOOLEAN := TRUE;
3810: l_src_type VARCHAR2(80);
3811:
3812: CURSOR c_po_ln_loc IS
3850: c_po_ln_loc_tab c_po_ln_loc_tp;
3851: BEGIN
3852:
3853: -- Initialize return status to success
3854: x_return_status := FND_API.G_RET_STS_SUCCESS;
3855:
3856: -- Standard Beginning of Procedure/Function Logging
3857: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
3858: p_procedure_name => l_proc_name);
3904: -- Standard End of Procedure/Function Logging
3905: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
3906: p_procedure_name => l_proc_name);
3907: EXCEPTION
3908: WHEN FND_API.G_EXC_ERROR THEN
3909: -- Standard Expected Error Logging
3910: INL_LOGGING_PVT.Log_ExpecError (
3911: p_module_name => g_module_name,
3912: p_procedure_name => l_proc_name);
3909: -- Standard Expected Error Logging
3910: INL_LOGGING_PVT.Log_ExpecError (
3911: p_module_name => g_module_name,
3912: p_procedure_name => l_proc_name);
3913: x_return_status := FND_API.G_RET_STS_ERROR;
3914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3915: -- Standard Unexpected Error Logging
3916: INL_LOGGING_PVT.Log_UnexpecError (
3917: p_module_name => g_module_name,
3910: INL_LOGGING_PVT.Log_ExpecError (
3911: p_module_name => g_module_name,
3912: p_procedure_name => l_proc_name);
3913: x_return_status := FND_API.G_RET_STS_ERROR;
3914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3915: -- Standard Unexpected Error Logging
3916: INL_LOGGING_PVT.Log_UnexpecError (
3917: p_module_name => g_module_name,
3918: p_procedure_name => l_proc_name);
3915: -- Standard Unexpected Error Logging
3916: INL_LOGGING_PVT.Log_UnexpecError (
3917: p_module_name => g_module_name,
3918: p_procedure_name => l_proc_name);
3919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3920: WHEN OTHERS THEN
3921: -- Standard Unexpected Error Logging
3922: INL_LOGGING_PVT.Log_UnexpecError (
3923: p_module_name => g_module_name,
3921: -- Standard Unexpected Error Logging
3922: INL_LOGGING_PVT.Log_UnexpecError (
3923: p_module_name => g_module_name,
3924: p_procedure_name => l_proc_name);
3925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3926: IF FND_MSG_PUB.Check_Msg_Level(p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3927: FND_MSG_PUB.Add_Exc_Msg(
3928: p_pkg_name => g_pkg_name,
3929: p_procedure_name => l_proc_name);
3951: x_msg_count OUT NOCOPY NUMBER,
3952: x_msg_data OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
3953:
3954: l_proc_name CONSTANT VARCHAR2(30) := 'Check_ShipLinesAgainstPO';
3955: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3956: l_ship_ln_check BOOLEAN := TRUE;
3957:
3958: l_po_line_id NUMBER;
3959: l_po_ln_loc_qty NUMBER;
3989: c_ship_ln_tab c_ship_ln_tp;
3990: BEGIN
3991:
3992: -- Initialize return status to success
3993: x_return_status := FND_API.G_RET_STS_SUCCESS;
3994:
3995: -- Standard Beginning of Procedure/Function Logging
3996: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
3997: p_procedure_name => l_proc_name);
4182: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
4183: p_procedure_name => l_proc_name);
4184:
4185: EXCEPTION
4186: WHEN FND_API.G_EXC_ERROR THEN
4187: -- Standard Expected Error Logging
4188: INL_LOGGING_PVT.Log_ExpecError (
4189: p_module_name => g_module_name,
4190: p_procedure_name => l_proc_name);
4187: -- Standard Expected Error Logging
4188: INL_LOGGING_PVT.Log_ExpecError (
4189: p_module_name => g_module_name,
4190: p_procedure_name => l_proc_name);
4191: x_return_status := FND_API.G_RET_STS_ERROR;
4192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4193: -- Standard Unexpected Error Logging
4194: INL_LOGGING_PVT.Log_UnexpecError (
4195: p_module_name => g_module_name,
4188: INL_LOGGING_PVT.Log_ExpecError (
4189: p_module_name => g_module_name,
4190: p_procedure_name => l_proc_name);
4191: x_return_status := FND_API.G_RET_STS_ERROR;
4192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4193: -- Standard Unexpected Error Logging
4194: INL_LOGGING_PVT.Log_UnexpecError (
4195: p_module_name => g_module_name,
4196: p_procedure_name => l_proc_name);
4193: -- Standard Unexpected Error Logging
4194: INL_LOGGING_PVT.Log_UnexpecError (
4195: p_module_name => g_module_name,
4196: p_procedure_name => l_proc_name);
4197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4198: WHEN OTHERS THEN
4199: -- Standard Unexpected Error Logging
4200: INL_LOGGING_PVT.Log_UnexpecError (
4201: p_module_name => g_module_name,
4199: -- Standard Unexpected Error Logging
4200: INL_LOGGING_PVT.Log_UnexpecError (
4201: p_module_name => g_module_name,
4202: p_procedure_name => l_proc_name);
4203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4204: IF FND_MSG_PUB.Check_Msg_Level(p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4205: FND_MSG_PUB.Add_Exc_Msg(
4206: p_pkg_name => g_pkg_name,
4207: p_procedure_name => l_proc_name);
4229: x_msg_count OUT NOCOPY NUMBER,
4230: x_msg_data OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
4231:
4232: l_proc_name CONSTANT VARCHAR2(30) := 'Check_SimulAgainstPO';
4233: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4234: l_simulation_check BOOLEAN := TRUE;
4235: l_po_number NUMBER;
4236: l_po_header_id NUMBER;
4237: l_po_vendor_id NUMBER;
4253:
4254: BEGIN
4255:
4256: -- Initialize return status to success
4257: x_return_status := FND_API.G_RET_STS_SUCCESS;
4258:
4259: -- Standard Beginning of Procedure/Function Logging
4260: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
4261: p_procedure_name => l_proc_name);
4488: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
4489: p_procedure_name => l_proc_name);
4490:
4491: EXCEPTION
4492: WHEN FND_API.G_EXC_ERROR THEN
4493: -- Standard Expected Error Logging
4494: INL_LOGGING_PVT.Log_ExpecError (
4495: p_module_name => g_module_name,
4496: p_procedure_name => l_proc_name);
4493: -- Standard Expected Error Logging
4494: INL_LOGGING_PVT.Log_ExpecError (
4495: p_module_name => g_module_name,
4496: p_procedure_name => l_proc_name);
4497: x_return_status := FND_API.G_RET_STS_ERROR;
4498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4499: -- Standard Unexpected Error Logging
4500: INL_LOGGING_PVT.Log_UnexpecError (
4501: p_module_name => g_module_name,
4494: INL_LOGGING_PVT.Log_ExpecError (
4495: p_module_name => g_module_name,
4496: p_procedure_name => l_proc_name);
4497: x_return_status := FND_API.G_RET_STS_ERROR;
4498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4499: -- Standard Unexpected Error Logging
4500: INL_LOGGING_PVT.Log_UnexpecError (
4501: p_module_name => g_module_name,
4502: p_procedure_name => l_proc_name);
4499: -- Standard Unexpected Error Logging
4500: INL_LOGGING_PVT.Log_UnexpecError (
4501: p_module_name => g_module_name,
4502: p_procedure_name => l_proc_name);
4503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4504: WHEN OTHERS THEN
4505: -- Standard Unexpected Error Logging
4506: INL_LOGGING_PVT.Log_UnexpecError (
4507: p_module_name => g_module_name,
4505: -- Standard Unexpected Error Logging
4506: INL_LOGGING_PVT.Log_UnexpecError (
4507: p_module_name => g_module_name,
4508: p_procedure_name => l_proc_name);
4509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4510: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4511: FND_MSG_PUB.Add_Exc_Msg(
4512: p_pkg_name => g_pkg_name,
4513: p_procedure_name => l_proc_name);
4521: --
4522: -- Pre-reqs : None
4523: -- Parameters :
4524: -- IN : 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_simulation_id IN NUMBER
4528: --
4529: -- OUT x_return_status OUT NOCOPY VARCHAR2
4522: -- Pre-reqs : None
4523: -- Parameters :
4524: -- IN : 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_simulation_id IN NUMBER
4528: --
4529: -- OUT x_return_status OUT NOCOPY VARCHAR2
4530: -- x_msg_count OUT NOCOPY NUMBER
4534: --
4535: -- Notes :
4536: FUNCTION Check_POLcmSynch (
4537: p_api_version IN NUMBER,
4538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4540: p_simulation_id IN NUMBER,
4541: x_return_status OUT NOCOPY VARCHAR2,
4542: x_msg_count OUT NOCOPY NUMBER,
4535: -- Notes :
4536: FUNCTION Check_POLcmSynch (
4537: p_api_version IN NUMBER,
4538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4540: p_simulation_id IN NUMBER,
4541: x_return_status OUT NOCOPY VARCHAR2,
4542: x_msg_count OUT NOCOPY NUMBER,
4543: x_msg_data OUT NOCOPY VARCHAR2) RETURN VARCHAR2 IS
4562: -- Standard Start of API savepoint
4563: SAVEPOINT Check_POLcmSynch_GRP;
4564:
4565: -- Initialize message list if p_init_msg_list is set to TRUE.
4566: IF FND_API.to_Boolean(p_init_msg_list) THEN
4567: FND_MSG_PUB.initialize;
4568: END IF;
4569:
4570: -- Standard call to check for call compatibility
4567: FND_MSG_PUB.initialize;
4568: END IF;
4569:
4570: -- Standard call to check for call compatibility
4571: IF NOT FND_API.Compatible_API_Call(p_current_version_number => l_api_version,
4572: p_caller_version_number => p_api_version,
4573: p_api_name => l_api_name,
4574: p_pkg_name => g_pkg_name ) THEN
4575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: IF NOT FND_API.Compatible_API_Call(p_current_version_number => l_api_version,
4572: p_caller_version_number => p_api_version,
4573: p_api_name => l_api_name,
4574: p_pkg_name => g_pkg_name ) THEN
4575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4576: END IF;
4577:
4578: -- Initialize API return status to success
4579: x_return_status := FND_API.G_RET_STS_SUCCESS;
4575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4576: END IF;
4577:
4578: -- Initialize API return status to success
4579: x_return_status := FND_API.G_RET_STS_SUCCESS;
4580:
4581: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
4582: p_procedure_name => l_api_name,
4583: p_var_name => 'p_simulation_id',
4594: x_msg_count => l_msg_count,
4595: x_msg_data => l_msg_data);
4596:
4597: -- If any errors happen abort API.
4598: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4599: RAISE FND_API.G_EXC_ERROR;
4600: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4595: x_msg_data => l_msg_data);
4596:
4597: -- If any errors happen abort API.
4598: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4599: RAISE FND_API.G_EXC_ERROR;
4600: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4603:
4596:
4597: -- If any errors happen abort API.
4598: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4599: RAISE FND_API.G_EXC_ERROR;
4600: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4603:
4604: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4597: -- If any errors happen abort API.
4598: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4599: RAISE FND_API.G_EXC_ERROR;
4600: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4603:
4604: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4605: p_procedure_name => l_api_name,
4611: x_msg_count => l_msg_count,
4612: x_msg_data => l_msg_data);
4613:
4614: -- If any errors happen abort API.
4615: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4616: RAISE FND_API.G_EXC_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4612: x_msg_data => l_msg_data);
4613:
4614: -- If any errors happen abort API.
4615: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4616: RAISE FND_API.G_EXC_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4620:
4613:
4614: -- If any errors happen abort API.
4615: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4616: RAISE FND_API.G_EXC_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4620:
4621: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4614: -- If any errors happen abort API.
4615: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4616: RAISE FND_API.G_EXC_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4620:
4621: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
4622: p_procedure_name => l_api_name,
4628: x_msg_count => l_msg_count,
4629: x_msg_data => l_msg_data);
4630:
4631: -- If any errors happen abort API.
4632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4636: END IF;
4629: x_msg_data => l_msg_data);
4630:
4631: -- If any errors happen abort API.
4632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4636: END IF;
4637:
4630:
4631: -- If any errors happen abort API.
4632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4636: END IF;
4637:
4638: IF NOT l_simul_against_po OR NOT l_ship_ln_check OR NOT l_po_ship_check THEN
4631: -- If any errors happen abort API.
4632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4636: END IF;
4637:
4638: IF NOT l_simul_against_po OR NOT l_ship_ln_check OR NOT l_po_ship_check THEN
4639: l_check_po_lcm_synch := 'FALSE';
4639: l_check_po_lcm_synch := 'FALSE';
4640: END IF;
4641:
4642: -- Standard check of p_commit.
4643: IF FND_API.To_Boolean(p_commit) THEN
4644: COMMIT WORK;
4645: END IF;
4646: -- Standard call to get message count and if count is 1, get message info.
4647: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4643: IF FND_API.To_Boolean(p_commit) THEN
4644: COMMIT WORK;
4645: END IF;
4646: -- Standard call to get message count and if count is 1, get message info.
4647: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false, p_count => x_msg_count, p_data => x_msg_data) ;
4648: -- Standard End of Procedure/Function Logging
4649: INL_LOGGING_PVT.Log_EndProc(
4650: p_module_name => g_module_name,
4651: p_procedure_name => l_api_name);
4652:
4653: RETURN l_check_po_lcm_synch;
4654:
4655: EXCEPTION
4656: WHEN FND_API.G_EXC_ERROR THEN
4657: -- Standard Expected Error Logging
4658: INL_LOGGING_PVT.Log_ExpecError (
4659: p_module_name => g_module_name,
4660: p_procedure_name => l_api_name);
4658: INL_LOGGING_PVT.Log_ExpecError (
4659: p_module_name => g_module_name,
4660: p_procedure_name => l_api_name);
4661: ROLLBACK TO Check_POLcmSynch_GRP;
4662: x_return_status := FND_API.G_RET_STS_ERROR;
4663: FND_MSG_PUB.Count_And_Get(
4664: p_encoded => FND_API.g_false,
4665: p_count => x_msg_count,
4666: p_data => x_msg_data);
4660: p_procedure_name => l_api_name);
4661: ROLLBACK TO Check_POLcmSynch_GRP;
4662: x_return_status := FND_API.G_RET_STS_ERROR;
4663: FND_MSG_PUB.Count_And_Get(
4664: p_encoded => FND_API.g_false,
4665: p_count => x_msg_count,
4666: p_data => x_msg_data);
4667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4668: -- Standard Unexpected Error Logging
4663: FND_MSG_PUB.Count_And_Get(
4664: p_encoded => FND_API.g_false,
4665: p_count => x_msg_count,
4666: p_data => x_msg_data);
4667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4668: -- Standard Unexpected Error Logging
4669: INL_LOGGING_PVT.Log_UnexpecError (
4670: p_module_name => g_module_name,
4671: p_procedure_name => l_api_name);
4669: INL_LOGGING_PVT.Log_UnexpecError (
4670: p_module_name => g_module_name,
4671: p_procedure_name => l_api_name);
4672: ROLLBACK TO Check_POLcmSynch_GRP;
4673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4674: FND_MSG_PUB.Count_And_Get(
4675: p_encoded => FND_API.g_false,
4676: p_count => x_msg_count,
4677: p_data => x_msg_data);
4671: p_procedure_name => l_api_name);
4672: ROLLBACK TO Check_POLcmSynch_GRP;
4673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4674: FND_MSG_PUB.Count_And_Get(
4675: p_encoded => FND_API.g_false,
4676: p_count => x_msg_count,
4677: p_data => x_msg_data);
4678: WHEN OTHERS THEN
4679: -- Standard Unexpected Error Logging
4680: INL_LOGGING_PVT.Log_UnexpecError (
4681: p_module_name => g_module_name,
4682: p_procedure_name => l_api_name);
4683: ROLLBACK TO Check_POLcmSynch_GRP;
4684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4685: IF FND_MSG_PUB.Check_Msg_Level(
4686: p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4687: FND_MSG_PUB.Add_Exc_Msg(
4688: p_pkg_name => g_pkg_name,
4688: p_pkg_name => g_pkg_name,
4689: p_procedure_name => l_api_name);
4690: END IF;
4691: FND_MSG_PUB.Count_And_Get(
4692: p_encoded => FND_API.g_false,
4693: p_count => x_msg_count,
4694: p_data => x_msg_data);
4695: END Check_POLcmSynch;
4696: