[Home] [Help]
8: --
9: -- Pre-reqs : None
10: -- Parameters :
11: -- IN : p_api_version IN NUMBER,
12: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
14: -- p_lci_table IN OUT NOCOPY lci_table
15: --
16: -- OUT x_return_status OUT NOCOPY VARCHAR2
9: -- Pre-reqs : None
10: -- Parameters :
11: -- IN : p_api_version IN NUMBER,
12: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
14: -- p_lci_table IN OUT NOCOPY lci_table
15: --
16: -- OUT x_return_status OUT NOCOPY VARCHAR2
17: -- x_msg_count OUT NOCOPY NUMBER
20: -- Version : Current version 1.0
21: --
22: -- Notes :
23: PROCEDURE Insert_LCMInterface (p_api_version IN NUMBER,
24: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
25: p_commit IN VARCHAR2 := FND_API.G_FALSE,
26: p_lci_table IN OUT NOCOPY lci_table,
27: x_return_status OUT NOCOPY VARCHAR2,
28: x_msg_count OUT NOCOPY NUMBER,
21: --
22: -- Notes :
23: PROCEDURE Insert_LCMInterface (p_api_version IN NUMBER,
24: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
25: p_commit IN VARCHAR2 := FND_API.G_FALSE,
26: p_lci_table IN OUT NOCOPY lci_table,
27: x_return_status OUT NOCOPY VARCHAR2,
28: x_msg_count OUT NOCOPY NUMBER,
29: x_msg_data OUT NOCOPY VARCHAR2)IS
53: -- Standard Start of API savepoint
54: SAVEPOINT Insert_LCMInterface_GRP;
55:
56: -- Initialize message list IF p_init_msg_list is SET to TRUE.
57: IF FND_API.to_Boolean (p_init_msg_list) THEN
58: FND_MSG_PUB.initialize;
59: END IF;
60:
61: -- Check FOR call compatibility.
58: FND_MSG_PUB.initialize;
59: END IF;
60:
61: -- Check FOR call compatibility.
62: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
63: p_caller_version_number => p_api_version,
64: p_api_name => l_api_name,
65: p_pkg_name => g_pkg_name) THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
63: p_caller_version_number => p_api_version,
64: p_api_name => l_api_name,
65: p_pkg_name => g_pkg_name) THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: -- Initialize API RETURN status to success
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: -- Initialize API RETURN status to success
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72: -- API Body
73: BEGIN
74: l_current_shipment_header_id := -9999;
351: END LOOP;
352: END; -- End of API Body
353:
354: -- Standard check of p_commit.
355: IF FND_API.To_Boolean( p_commit ) THEN
356: COMMIT WORK;
357: END IF;
358:
359: -- Standard call to get message count and if count is 1, get message info.
356: COMMIT WORK;
357: END IF;
358:
359: -- Standard call to get message count and if count is 1, get message info.
360: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
361: p_count => x_msg_count,
362: p_data => x_msg_data);
363:
364: -- Standard End of Procedure/Function Logging
365: INL_LOGGING_PVT.Log_EndProc (p_module_name => g_module_name,
366: p_procedure_name => l_api_name);
367:
368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: -- Standard Expected Error Logging
371: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
372: p_procedure_name => l_api_name);
373: ROLLBACK TO Insert_LCMInterface_GRP;
370: -- Standard Expected Error Logging
371: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
372: p_procedure_name => l_api_name);
373: ROLLBACK TO Insert_LCMInterface_GRP;
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
376: p_count => x_msg_count,
377: p_data => x_msg_data);
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
371: INL_LOGGING_PVT.Log_ExpecError (p_module_name => g_module_name,
372: p_procedure_name => l_api_name);
373: ROLLBACK TO Insert_LCMInterface_GRP;
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
376: p_count => x_msg_count,
377: p_data => x_msg_data);
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: -- Standard Unexpected Error Logging
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
376: p_count => x_msg_count,
377: p_data => x_msg_data);
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: -- Standard Unexpected Error Logging
380: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
381: p_procedure_name => l_api_name);
382: ROLLBACK TO Insert_LCMInterface_GRP;
379: -- Standard Unexpected Error Logging
380: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
381: p_procedure_name => l_api_name);
382: ROLLBACK TO Insert_LCMInterface_GRP;
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
384: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
385: p_count => x_msg_count,
386: p_data => x_msg_data);
387: WHEN OTHERS THEN
380: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
381: p_procedure_name => l_api_name);
382: ROLLBACK TO Insert_LCMInterface_GRP;
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
384: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
385: p_count => x_msg_count,
386: p_data => x_msg_data);
387: WHEN OTHERS THEN
388: -- Standard Unexpected Error Logging
388: -- Standard Unexpected Error Logging
389: INL_LOGGING_PVT.Log_UnexpecError (p_module_name => g_module_name,
390: p_procedure_name => l_api_name);
391: ROLLBACK TO Insert_LCMInterface_GRP;
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
393: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
394: THEN
395: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_api_name);
396: END IF;
393: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
394: THEN
395: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,l_api_name);
396: END IF;
397: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
398: p_count => x_msg_count,
399: p_data => x_msg_data);
400: END Insert_LCMInterface;
401:
934:
935: -- Call Insert_LCMInterface to insert data in lcm interface table
936: Insert_LCMInterface(
937: p_api_version => l_api_version,
938: p_init_msg_list => FND_API.G_TRUE,
939: p_commit => FND_API.G_FALSE,
940: p_lci_table => l_lci_table,
941: x_return_status => l_return_status,
942: x_msg_count => l_msg_count,
935: -- Call Insert_LCMInterface to insert data in lcm interface table
936: Insert_LCMInterface(
937: p_api_version => l_api_version,
938: p_init_msg_list => FND_API.G_TRUE,
939: p_commit => FND_API.G_FALSE,
940: p_lci_table => l_lci_table,
941: x_return_status => l_return_status,
942: x_msg_count => l_msg_count,
943: x_msg_data => l_msg_data
994: --
995: -- Pre-reqs : None
996: -- Parameters :
997: -- IN : p_api_version IN NUMBER,
998: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
999: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1000: -- p_ship_line_id IN NUMBER
1001: --
1002: -- OUT x_return_status OUT NOCOPY VARCHAR2
995: -- Pre-reqs : None
996: -- Parameters :
997: -- IN : p_api_version IN NUMBER,
998: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
999: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1000: -- p_ship_line_id IN NUMBER
1001: --
1002: -- OUT x_return_status OUT NOCOPY VARCHAR2
1003: -- x_msg_count OUT NOCOPY NUMBER
1008: --
1009: -- Notes :
1010:
1011: PROCEDURE Get_LandedCost (p_api_version IN NUMBER,
1012: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1013: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1014: p_ship_line_id IN NUMBER,
1015: x_return_status OUT NOCOPY VARCHAR2,
1016: x_msg_count OUT NOCOPY NUMBER,
1009: -- Notes :
1010:
1011: PROCEDURE Get_LandedCost (p_api_version IN NUMBER,
1012: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1013: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1014: p_ship_line_id IN NUMBER,
1015: x_return_status OUT NOCOPY VARCHAR2,
1016: x_msg_count OUT NOCOPY NUMBER,
1017: x_msg_data OUT NOCOPY VARCHAR2,
1043: -- Standard Start of API savepoint
1044: SAVEPOINT Get_LandedCost_GRP;
1045:
1046: -- Initialize message list IF p_init_msg_list is SET to TRUE.
1047: IF FND_API.to_Boolean (p_init_msg_list) THEN
1048: FND_MSG_PUB.initialize;
1049: END IF;
1050:
1051: -- Check FOR call compatibility.
1048: FND_MSG_PUB.initialize;
1049: END IF;
1050:
1051: -- Check FOR call compatibility.
1052: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1053: p_caller_version_number => p_api_version,
1054: p_api_name => l_api_name,
1055: p_pkg_name => g_pkg_name) THEN
1056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1053: p_caller_version_number => p_api_version,
1054: p_api_name => l_api_name,
1055: p_pkg_name => g_pkg_name) THEN
1056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1057: END IF;
1058:
1059: -- Initialize API RETURN status to success
1060: x_return_status := FND_API.G_RET_STS_SUCCESS;
1056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1057: END IF;
1058:
1059: -- Initialize API RETURN status to success
1060: x_return_status := FND_API.G_RET_STS_SUCCESS;
1061:
1062: BEGIN
1063:
1064: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1092: p_var_name => 'INL_LANDEDCOST_PUB.Get_LandedCost Return Status: ',
1093: p_var_value => l_return_status);
1094:
1095: -- If any errors happen abort the process.
1096: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1093: p_var_value => l_return_status);
1094:
1095: -- If any errors happen abort the process.
1096: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101: END;
1094:
1095: -- If any errors happen abort the process.
1096: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101: END;
1102: -- Standard check of p_commit.
1095: -- If any errors happen abort the process.
1096: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101: END;
1102: -- Standard check of p_commit.
1103: IF FND_API.To_Boolean (p_commit) THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101: END;
1102: -- Standard check of p_commit.
1103: IF FND_API.To_Boolean (p_commit) THEN
1104: COMMIT WORK;
1105: END IF;
1106:
1107: -- Get message count AND IF count is 1, get message info.
1104: COMMIT WORK;
1105: END IF;
1106:
1107: -- Get message count AND IF count is 1, get message info.
1108: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1109: p_count => x_msg_count,
1110: p_data => x_msg_data) ;
1111:
1112: -- End of Procedure Logging
1113: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1114: p_procedure_name => l_api_name) ;
1115:
1116: EXCEPTION
1117: WHEN FND_API.G_EXC_ERROR THEN
1118: -- Standard Expected Error Logging
1119: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1120: p_procedure_name => l_api_name) ;
1121: ROLLBACK TO Get_LandedCost_GRP;
1118: -- Standard Expected Error Logging
1119: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1120: p_procedure_name => l_api_name) ;
1121: ROLLBACK TO Get_LandedCost_GRP;
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1124: p_count => x_msg_count,
1125: p_data => x_msg_data) ;
1126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1119: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1120: p_procedure_name => l_api_name) ;
1121: ROLLBACK TO Get_LandedCost_GRP;
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1124: p_count => x_msg_count,
1125: p_data => x_msg_data) ;
1126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1127: -- Standard Unexpected Error Logging
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1124: p_count => x_msg_count,
1125: p_data => x_msg_data) ;
1126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1127: -- Standard Unexpected Error Logging
1128: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1129: p_procedure_name => l_api_name) ;
1130: ROLLBACK TO Get_LandedCost_GRP;
1127: -- Standard Unexpected Error Logging
1128: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1129: p_procedure_name => l_api_name) ;
1130: ROLLBACK TO Get_LandedCost_GRP;
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1132: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1133: p_count => x_msg_count,
1134: p_data => x_msg_data) ;
1135: WHEN OTHERS THEN
1128: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1129: p_procedure_name => l_api_name) ;
1130: ROLLBACK TO Get_LandedCost_GRP;
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1132: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1133: p_count => x_msg_count,
1134: p_data => x_msg_data) ;
1135: WHEN OTHERS THEN
1136: -- Standard Unexpected Error Logging
1136: -- Standard Unexpected Error Logging
1137: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1138: p_procedure_name => l_api_name) ;
1139: ROLLBACK TO Get_LandedCost_GRP;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1141: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1142: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1143: p_procedure_name => l_api_name) ;
1144: END IF;
1141: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1142: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1143: p_procedure_name => l_api_name) ;
1144: END IF;
1145: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1146: p_count => x_msg_count,
1147: p_data => x_msg_data);
1148: END Get_LandedCost;
1149:
1191: p_procedure_name => l_api_name,
1192: p_debug_info => 'Before calling INL_LANDEDCOST_PUB.Get_LandedCost');
1193:
1194: Get_LandedCost (p_api_version => l_api_version,
1195: p_init_msg_list => FND_API.G_FALSE,
1196: p_commit => FND_API.G_FALSE,
1197: p_ship_line_id => p_rti_rec(i).line_id,
1198: x_return_status => l_return_status,
1199: x_msg_count => l_msg_count,
1192: p_debug_info => 'Before calling INL_LANDEDCOST_PUB.Get_LandedCost');
1193:
1194: Get_LandedCost (p_api_version => l_api_version,
1195: p_init_msg_list => FND_API.G_FALSE,
1196: p_commit => FND_API.G_FALSE,
1197: p_ship_line_id => p_rti_rec(i).line_id,
1198: x_return_status => l_return_status,
1199: x_msg_count => l_msg_count,
1200: x_msg_data => l_msg_data,
1297: IS
1298:
1299:
1300: l_proc_name CONSTANT VARCHAR2(30) := 'Call_UpdateRCV';
1301: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1302:
1303: l_rti_lc_info_table RCV_UPDATE_RTI_LC.rcv_cost_table := RCV_UPDATE_RTI_LC.rcv_cost_table();
1304: l_rcv_int_table RCV_UPDATE_RTI_LC.lcm_int_table := RCV_UPDATE_RTI_LC.lcm_int_table();
1305:
1305:
1306: BEGIN
1307:
1308: -- Initialize return status to success
1309: x_return_status := FND_API.G_RET_STS_SUCCESS;
1310:
1311: -- Standard Beginning of Procedure/Function Logging
1312: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1313: p_procedure_name => l_proc_name);
1339: INL_logging_pvt.Log_EndProc (p_module_name => g_module_name,
1340: p_procedure_name => l_proc_name);
1341:
1342: EXCEPTION
1343: WHEN FND_API.G_EXC_ERROR THEN
1344: -- Standard Expected Error Logging
1345: INL_LOGGING_PVT.Log_ExpecError (
1346: p_module_name => g_module_name,
1347: p_procedure_name => l_proc_name);
1344: -- Standard Expected Error Logging
1345: INL_LOGGING_PVT.Log_ExpecError (
1346: p_module_name => g_module_name,
1347: p_procedure_name => l_proc_name);
1348: x_return_status := FND_API.G_RET_STS_ERROR;
1349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1350: -- Standard Unexpected Error Logging
1351: INL_LOGGING_PVT.Log_UnexpecError (
1352: p_module_name => g_module_name,
1345: INL_LOGGING_PVT.Log_ExpecError (
1346: p_module_name => g_module_name,
1347: p_procedure_name => l_proc_name);
1348: x_return_status := FND_API.G_RET_STS_ERROR;
1349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1350: -- Standard Unexpected Error Logging
1351: INL_LOGGING_PVT.Log_UnexpecError (
1352: p_module_name => g_module_name,
1353: p_procedure_name => l_proc_name);
1350: -- Standard Unexpected Error Logging
1351: INL_LOGGING_PVT.Log_UnexpecError (
1352: p_module_name => g_module_name,
1353: p_procedure_name => l_proc_name);
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: WHEN OTHERS THEN
1356: -- Standard Unexpected Error Logging
1357: INL_LOGGING_PVT.Log_UnexpecError (
1358: p_module_name => g_module_name,
1356: -- Standard Unexpected Error Logging
1357: INL_LOGGING_PVT.Log_UnexpecError (
1358: p_module_name => g_module_name,
1359: p_procedure_name => l_proc_name);
1360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1361: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1362: FND_MSG_PUB.Add_Exc_Msg(
1363: p_pkg_name => g_pkg_name,
1364: p_procedure_name => l_proc_name);
1372: --
1373: -- Pre-reqs : None
1374: -- Parameters :
1375: -- IN : p_api_version IN NUMBER,
1376: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1377: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1378: -- p_ship_header_id IN NUMBER
1379: --
1380: -- OUT x_return_status OUT NOCOPY VARCHAR2
1373: -- Pre-reqs : None
1374: -- Parameters :
1375: -- IN : p_api_version IN NUMBER,
1376: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1377: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1378: -- p_ship_header_id IN NUMBER
1379: --
1380: -- OUT x_return_status OUT NOCOPY VARCHAR2
1381: -- x_msg_count OUT NOCOPY NUMBER
1384: -- Version : Current version 1.0
1385: --
1386: -- Notes :
1387: PROCEDURE Call_StampLC (p_api_version IN NUMBER,
1388: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1389: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1390: p_ship_header_id IN NUMBER,
1391: x_return_status OUT NOCOPY VARCHAR2,
1392: x_msg_count OUT NOCOPY NUMBER,
1385: --
1386: -- Notes :
1387: PROCEDURE Call_StampLC (p_api_version IN NUMBER,
1388: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1389: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1390: p_ship_header_id IN NUMBER,
1391: x_return_status OUT NOCOPY VARCHAR2,
1392: x_msg_count OUT NOCOPY NUMBER,
1393: x_msg_data OUT NOCOPY VARCHAR2) IS
1408: -- Standard Start of API savepoint
1409: SAVEPOINT Call_StampLC_GRP;
1410:
1411: -- Initialize message list IF p_init_msg_list is SET to TRUE.
1412: IF FND_API.to_Boolean (p_init_msg_list) THEN
1413: FND_MSG_PUB.initialize;
1414: END IF;
1415:
1416: -- Check FOR call compatibility.
1413: FND_MSG_PUB.initialize;
1414: END IF;
1415:
1416: -- Check FOR call compatibility.
1417: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1418: p_caller_version_number => p_api_version,
1419: p_api_name => l_api_name,
1420: p_pkg_name => g_pkg_name) THEN
1421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1417: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1418: p_caller_version_number => p_api_version,
1419: p_api_name => l_api_name,
1420: p_pkg_name => g_pkg_name) THEN
1421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1422: END IF;
1423:
1424: -- Initialize API RETURN status to success
1425: x_return_status := FND_API.G_RET_STS_SUCCESS;
1421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1422: END IF;
1423:
1424: -- Initialize API RETURN status to success
1425: x_return_status := FND_API.G_RET_STS_SUCCESS;
1426:
1427: OPEN c_ship_lines(p_ship_header_id, 'PO', 'RCV_TRANSACTIONS_INTERFACE');
1428: FETCH c_ship_lines BULK COLLECT INTO l_ship_lines_table;
1429:
1447: p_var_name => 'Call_UpdateRCV l_return_status: ',
1448: p_var_value => l_return_status);
1449:
1450: -- If any errors happen abort the process.
1451: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1452: RAISE FND_API.G_EXC_ERROR;
1453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1455: END IF;
1448: p_var_value => l_return_status);
1449:
1450: -- If any errors happen abort the process.
1451: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1452: RAISE FND_API.G_EXC_ERROR;
1453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1455: END IF;
1456:
1449:
1450: -- If any errors happen abort the process.
1451: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1452: RAISE FND_API.G_EXC_ERROR;
1453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1455: END IF;
1456:
1457: -- Standard check of p_commit.
1450: -- If any errors happen abort the process.
1451: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1452: RAISE FND_API.G_EXC_ERROR;
1453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1455: END IF;
1456:
1457: -- Standard check of p_commit.
1458: IF FND_API.To_Boolean (p_commit) THEN
1454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1455: END IF;
1456:
1457: -- Standard check of p_commit.
1458: IF FND_API.To_Boolean (p_commit) THEN
1459: COMMIT WORK;
1460: END IF;
1461:
1462: -- Get message count AND IF count is 1, get message info.
1459: COMMIT WORK;
1460: END IF;
1461:
1462: -- Get message count AND IF count is 1, get message info.
1463: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1464: p_count => x_msg_count,
1465: p_data => x_msg_data);
1466:
1467: -- End of Procedure Logging
1467: -- End of Procedure Logging
1468: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1469: p_procedure_name => l_api_name);
1470: EXCEPTION
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: -- Standard Expected Error Logging
1473: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1474: p_procedure_name => l_api_name);
1475: ROLLBACK TO Call_StampLC_GRP;
1472: -- Standard Expected Error Logging
1473: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1474: p_procedure_name => l_api_name);
1475: ROLLBACK TO Call_StampLC_GRP;
1476: x_return_status := FND_API.G_RET_STS_ERROR;
1477: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1478: p_count => x_msg_count,
1479: p_data => x_msg_data);
1480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1474: p_procedure_name => l_api_name);
1475: ROLLBACK TO Call_StampLC_GRP;
1476: x_return_status := FND_API.G_RET_STS_ERROR;
1477: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1478: p_count => x_msg_count,
1479: p_data => x_msg_data);
1480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1481: -- Standard Unexpected Error Logging
1476: x_return_status := FND_API.G_RET_STS_ERROR;
1477: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1478: p_count => x_msg_count,
1479: p_data => x_msg_data);
1480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1481: -- Standard Unexpected Error Logging
1482: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1483: p_procedure_name => l_api_name);
1484: ROLLBACK TO Call_StampLC_GRP;
1481: -- Standard Unexpected Error Logging
1482: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1483: p_procedure_name => l_api_name);
1484: ROLLBACK TO Call_StampLC_GRP;
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1487: p_count => x_msg_count,
1488: p_data => x_msg_data) ;
1489: WHEN OTHERS THEN
1482: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1483: p_procedure_name => l_api_name);
1484: ROLLBACK TO Call_StampLC_GRP;
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1487: p_count => x_msg_count,
1488: p_data => x_msg_data) ;
1489: WHEN OTHERS THEN
1490: -- Standard Unexpected Error Logging
1490: -- Standard Unexpected Error Logging
1491: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1492: p_procedure_name => l_api_name) ;
1493: ROLLBACK TO Call_StampLC_GRP;
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1495: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1496: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1497: p_procedure_name => l_api_name) ;
1498: END IF;
1495: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1496: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1497: p_procedure_name => l_api_name) ;
1498: END IF;
1499: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1500: p_count => x_msg_count,
1501: p_data => x_msg_data) ;
1502: END Call_StampLC;
1503:
1520: p_ship_lines_table IN ship_lines_table,
1521: x_return_status OUT NOCOPY VARCHAR2)
1522: IS
1523: l_proc_name CONSTANT VARCHAR2(30) := 'Call_InsertRCV';
1524: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1525: l_ship_lines_table RCV_INSERT_FROM_INL.rti_rec_table:= RCV_INSERT_FROM_INL.rti_rec_table();
1526: BEGIN
1527:
1528: -- Initialize return status to success
1525: l_ship_lines_table RCV_INSERT_FROM_INL.rti_rec_table:= RCV_INSERT_FROM_INL.rti_rec_table();
1526: BEGIN
1527:
1528: -- Initialize return status to success
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1530:
1531: -- Standard Beginning of Procedure/Function Logging
1532: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
1533: p_procedure_name => l_proc_name);
1588: INL_logging_pvt.Log_EndProc (p_module_name => g_module_name,
1589: p_procedure_name => l_proc_name);
1590:
1591: EXCEPTION
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: -- Standard Expected Error Logging
1594: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
1595: p_procedure_name => l_proc_name);
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: -- Standard Expected Error Logging
1594: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
1595: p_procedure_name => l_proc_name);
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: -- Standard Unexpected Error Logging
1599: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1600: p_procedure_name => l_proc_name);
1593: -- Standard Expected Error Logging
1594: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
1595: p_procedure_name => l_proc_name);
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: -- Standard Unexpected Error Logging
1599: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1600: p_procedure_name => l_proc_name);
1601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: -- Standard Unexpected Error Logging
1599: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1600: p_procedure_name => l_proc_name);
1601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1602: WHEN OTHERS THEN
1603: -- Standard Unexpected Error Logging
1604: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1605: p_procedure_name => l_proc_name);
1602: WHEN OTHERS THEN
1603: -- Standard Unexpected Error Logging
1604: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1605: p_procedure_name => l_proc_name);
1606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1607: IF FND_MSG_PUB.Check_Msg_Level(p_message_level =>FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1608: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
1609: p_procedure_name => l_proc_name);
1610: END IF;
1617: --
1618: -- Pre-reqs : None
1619: -- Parameters :
1620: -- IN : p_api_version IN NUMBER,
1621: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1622: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1623: -- p_ship_header_id IN NUMBER
1624: --
1625: -- OUT x_return_status OUT NOCOPY VARCHAR2
1618: -- Pre-reqs : None
1619: -- Parameters :
1620: -- IN : p_api_version IN NUMBER,
1621: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1622: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1623: -- p_ship_header_id IN NUMBER
1624: --
1625: -- OUT x_return_status OUT NOCOPY VARCHAR2
1626: -- x_msg_count OUT NOCOPY NUMBER
1630: --
1631: -- Notes :
1632:
1633: PROCEDURE Export_ToRCV (p_api_version IN NUMBER,
1634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1636: p_ship_header_id IN NUMBER,
1637: x_return_status OUT NOCOPY VARCHAR2,
1638: x_msg_count OUT NOCOPY NUMBER,
1631: -- Notes :
1632:
1633: PROCEDURE Export_ToRCV (p_api_version IN NUMBER,
1634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1636: p_ship_header_id IN NUMBER,
1637: x_return_status OUT NOCOPY VARCHAR2,
1638: x_msg_count OUT NOCOPY NUMBER,
1639: x_msg_data OUT NOCOPY VARCHAR2)
1655: -- Standard Start of API savepoint
1656: SAVEPOINT Export_ToRCV_GRP;
1657:
1658: -- Initialize message list IF p_init_msg_list is SET to TRUE.
1659: IF FND_API.to_Boolean (p_init_msg_list) THEN
1660: FND_MSG_PUB.initialize;
1661: END IF;
1662:
1663: -- Check FOR call compatibility.
1660: FND_MSG_PUB.initialize;
1661: END IF;
1662:
1663: -- Check FOR call compatibility.
1664: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1665: p_caller_version_number => p_api_version,
1666: p_api_name => l_api_name,
1667: p_pkg_name => g_pkg_name) THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1664: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1665: p_caller_version_number => p_api_version,
1666: p_api_name => l_api_name,
1667: p_pkg_name => g_pkg_name) THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1670:
1671: -- Initialize API RETURN status to success
1672: x_return_status := FND_API.G_RET_STS_SUCCESS;
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1670:
1671: -- Initialize API RETURN status to success
1672: x_return_status := FND_API.G_RET_STS_SUCCESS;
1673:
1674: INL_LOGGING_PVT.Log_Variable (p_module_name => g_module_name,
1675: p_procedure_name => l_api_name,
1676: p_var_name => 'p_ship_header_id',
1688: p_ship_lines_table => l_ship_lines_table,
1689: x_return_status => l_return_status);
1690:
1691: -- If any errors happen abort the process.
1692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1693: RAISE FND_API.G_EXC_ERROR;
1694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1689: x_return_status => l_return_status);
1690:
1691: -- If any errors happen abort the process.
1692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1693: RAISE FND_API.G_EXC_ERROR;
1694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697:
1690:
1691: -- If any errors happen abort the process.
1692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1693: RAISE FND_API.G_EXC_ERROR;
1694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697:
1698: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1691: -- If any errors happen abort the process.
1692: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1693: RAISE FND_API.G_EXC_ERROR;
1694: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697:
1698: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1699: p_procedure_name => l_api_name,
1709: CLOSE c_ship_lines;
1710: END IF;
1711:
1712: -- Standard check of p_commit.
1713: IF FND_API.To_Boolean (p_commit) THEN
1714: COMMIT WORK;
1715: END IF;
1716: -- Get message count AND IF count is 1, get message info.
1717: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1713: IF FND_API.To_Boolean (p_commit) THEN
1714: COMMIT WORK;
1715: END IF;
1716: -- Get message count AND IF count is 1, get message info.
1717: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1718: p_count => x_msg_count,
1719: p_data => x_msg_data) ;
1720: -- End of Procedure Logging
1721: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
1720: -- End of Procedure Logging
1721: INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
1722: p_procedure_name => l_api_name) ;
1723: EXCEPTION
1724: WHEN FND_API.G_EXC_ERROR THEN
1725: -- Standard Expected Error Logging
1726: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
1727: p_procedure_name => l_api_name) ;
1728: ROLLBACK TO Export_ToRCV_GRP;
1725: -- Standard Expected Error Logging
1726: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
1727: p_procedure_name => l_api_name) ;
1728: ROLLBACK TO Export_ToRCV_GRP;
1729: x_return_status := FND_API.G_RET_STS_ERROR;
1730: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1731: p_count => x_msg_count,
1732: p_data => x_msg_data) ;
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1726: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
1727: p_procedure_name => l_api_name) ;
1728: ROLLBACK TO Export_ToRCV_GRP;
1729: x_return_status := FND_API.G_RET_STS_ERROR;
1730: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1731: p_count => x_msg_count,
1732: p_data => x_msg_data) ;
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: -- Standard Unexpected Error Logging
1729: x_return_status := FND_API.G_RET_STS_ERROR;
1730: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1731: p_count => x_msg_count,
1732: p_data => x_msg_data) ;
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: -- Standard Unexpected Error Logging
1735: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1736: p_procedure_name => l_api_name) ;
1737: ROLLBACK TO Export_ToRCV_GRP;
1734: -- Standard Unexpected Error Logging
1735: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1736: p_procedure_name => l_api_name) ;
1737: ROLLBACK TO Export_ToRCV_GRP;
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data) ;
1742: WHEN OTHERS THEN
1735: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1736: p_procedure_name => l_api_name) ;
1737: ROLLBACK TO Export_ToRCV_GRP;
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data) ;
1742: WHEN OTHERS THEN
1743: -- Standard Unexpected Error Logging
1743: -- Standard Unexpected Error Logging
1744: INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
1745: p_procedure_name => l_api_name) ;
1746: ROLLBACK TO Export_ToRCV_GRP;
1747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1748: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1749: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
1750: p_procedure_name => l_api_name) ;
1751: END IF;
1748: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1749: FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
1750: p_procedure_name => l_api_name) ;
1751: END IF;
1752: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
1753: p_count => x_msg_count,
1754: p_data => x_msg_data) ;
1755: END Export_ToRCV;
1756:
1760: -- to be processed by Inventory/Costing applications.
1761: -- Pre-reqs : None
1762: -- Parameters :
1763: -- IN : p_api_version IN NUMBER,
1764: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1765: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1766: -- p_ship_header_id IN NUMBER
1767: -- OUT x_return_status OUT NOCOPY VARCHAR2
1768: -- x_msg_count OUT NOCOPY NUMBER
1761: -- Pre-reqs : None
1762: -- Parameters :
1763: -- IN : p_api_version IN NUMBER,
1764: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1765: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1766: -- p_ship_header_id IN NUMBER
1767: -- OUT x_return_status OUT NOCOPY VARCHAR2
1768: -- x_msg_count OUT NOCOPY NUMBER
1769: -- x_msg_data OUT NOCOPY VARCHAR2
1771: -- Version : Current version 1.0
1772: --
1773: -- Notes :
1774: PROCEDURE Export_ToCST (p_api_version IN NUMBER,
1775: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1776: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1777: p_ship_header_id IN NUMBER,
1778: x_return_status OUT NOCOPY VARCHAR2,
1779: x_msg_count OUT NOCOPY NUMBER,
1772: --
1773: -- Notes :
1774: PROCEDURE Export_ToCST (p_api_version IN NUMBER,
1775: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1776: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1777: p_ship_header_id IN NUMBER,
1778: x_return_status OUT NOCOPY VARCHAR2,
1779: x_msg_count OUT NOCOPY NUMBER,
1780: x_msg_data OUT NOCOPY VARCHAR2) IS
1820: -- Standard Start of API savepoint
1821: SAVEPOINT Export_ToCST_GRP;
1822:
1823: -- Initialize message list IF p_init_msg_list is SET to TRUE.
1824: IF FND_API.to_Boolean (p_init_msg_list) THEN
1825: FND_MSG_PUB.initialize;
1826: END IF;
1827:
1828: -- Check FOR call compatibility.
1825: FND_MSG_PUB.initialize;
1826: END IF;
1827:
1828: -- Check FOR call compatibility.
1829: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1830: p_caller_version_number => p_api_version,
1831: p_api_name => l_api_name,
1832: p_pkg_name => g_pkg_name) THEN
1833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
1830: p_caller_version_number => p_api_version,
1831: p_api_name => l_api_name,
1832: p_pkg_name => g_pkg_name) THEN
1833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1834: END IF;
1835:
1836: -- Initialize API RETURN status to success
1837: x_return_status := FND_API.G_RET_STS_SUCCESS;
1833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1834: END IF;
1835:
1836: -- Initialize API RETURN status to success
1837: x_return_status := FND_API.G_RET_STS_SUCCESS;
1838:
1839: OPEN c_ship_ln_adj;
1840: FETCH c_ship_ln_adj BULK COLLECT INTO ship_ln_list;
1841: CLOSE c_ship_ln_adj;
1923: END IF;
1924: END LOOP;
1925:
1926: -- Standard check of p_commit.
1927: IF FND_API.To_Boolean (p_commit) THEN
1928: COMMIT WORK;
1929: END IF;
1930: -- Get message count AND IF count is 1, get message info.
1931: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1927: IF FND_API.To_Boolean (p_commit) THEN
1928: COMMIT WORK;
1929: END IF;
1930: -- Get message count AND IF count is 1, get message info.
1931: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1932: p_count => x_msg_count,
1933: p_data => x_msg_data) ;
1934: -- End of Procedure Logging
1935: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1934: -- End of Procedure Logging
1935: INL_LOGGING_PVT.Log_EndProc ( p_module_name => g_module_name,
1936: p_procedure_name => l_api_name) ;
1937: EXCEPTION
1938: WHEN FND_API.G_EXC_ERROR THEN
1939: -- Standard Expected Error Logging
1940: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1941: p_procedure_name => l_api_name) ;
1942: ROLLBACK TO Export_ToCST_GRP;
1939: -- Standard Expected Error Logging
1940: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1941: p_procedure_name => l_api_name) ;
1942: ROLLBACK TO Export_ToCST_GRP;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1945: p_count => x_msg_count,
1946: p_data => x_msg_data) ;
1947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1940: INL_LOGGING_PVT.Log_ExpecError ( p_module_name => g_module_name,
1941: p_procedure_name => l_api_name) ;
1942: ROLLBACK TO Export_ToCST_GRP;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1945: p_count => x_msg_count,
1946: p_data => x_msg_data) ;
1947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1948: -- Standard Unexpected Error Logging
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1945: p_count => x_msg_count,
1946: p_data => x_msg_data) ;
1947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1948: -- Standard Unexpected Error Logging
1949: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1950: p_procedure_name => l_api_name) ;
1951: ROLLBACK TO Export_ToCST_GRP;
1948: -- Standard Unexpected Error Logging
1949: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1950: p_procedure_name => l_api_name) ;
1951: ROLLBACK TO Export_ToCST_GRP;
1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1953: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1954: p_count => x_msg_count,
1955: p_data => x_msg_data) ;
1956: WHEN OTHERS THEN
1949: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1950: p_procedure_name => l_api_name) ;
1951: ROLLBACK TO Export_ToCST_GRP;
1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1953: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1954: p_count => x_msg_count,
1955: p_data => x_msg_data) ;
1956: WHEN OTHERS THEN
1957: -- Standard Unexpected Error Logging
1957: -- Standard Unexpected Error Logging
1958: INL_LOGGING_PVT.Log_UnexpecError ( p_module_name => g_module_name,
1959: p_procedure_name => l_api_name) ;
1960: ROLLBACK TO Export_ToCST_GRP;
1961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1962: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1963: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1964: p_procedure_name => l_api_name) ;
1965: END IF;
1962: IF FND_MSG_PUB.Check_Msg_Level (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1963: FND_MSG_PUB.Add_Exc_Msg ( p_pkg_name => g_pkg_name,
1964: p_procedure_name => l_api_name) ;
1965: END IF;
1966: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.g_false,
1967: p_count => x_msg_count,
1968: p_data => x_msg_data) ;
1969: END Export_ToCST;
1970:
1974: -- Function :
1975: -- Pre-reqs : None
1976: -- Parameters :
1977: -- IN : p_api_version IN NUMBER Required
1978: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1979: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1980: -- p_ship_line_id IN NUMBER Required
1981: --
1982: -- OUT : x_return_status OUT NOCOPY VARCHAR2
1975: -- Pre-reqs : None
1976: -- Parameters :
1977: -- IN : p_api_version IN NUMBER Required
1978: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1979: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1980: -- p_ship_line_id IN NUMBER Required
1981: --
1982: -- OUT : x_return_status OUT NOCOPY VARCHAR2
1983: -- x_msg_count OUT NOCOPY NUMBER
1991: --
1992: -- Notes :
1993: PROCEDURE Get_CurrencyInfo(
1994: p_api_version IN NUMBER,
1995: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1996: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1997: p_ship_line_id IN NUMBER,
1998: x_return_status OUT NOCOPY VARCHAR2,
1999: x_msg_count OUT NOCOPY NUMBER,
1992: -- Notes :
1993: PROCEDURE Get_CurrencyInfo(
1994: p_api_version IN NUMBER,
1995: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1996: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1997: p_ship_line_id IN NUMBER,
1998: x_return_status OUT NOCOPY VARCHAR2,
1999: x_msg_count OUT NOCOPY NUMBER,
2000: x_msg_data OUT NOCOPY VARCHAR2,
2021: -- Standard Start of API savepoint
2022: SAVEPOINT Get_CurrencyInfo_GRP;
2023:
2024: -- Initialize message list if p_init_msg_list is set to TRUE.
2025: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2026: FND_MSG_PUB.initialize;
2027: END IF;
2028:
2029: -- Check for call compatibility.
2026: FND_MSG_PUB.initialize;
2027: END IF;
2028:
2029: -- Check for call compatibility.
2030: IF NOT FND_API.Compatible_API_Call (
2031: l_api_version,
2032: p_api_version,
2033: l_api_name,
2034: g_pkg_name)
2032: p_api_version,
2033: l_api_name,
2034: g_pkg_name)
2035: THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: -- Initialize API return status to success
2040: x_return_status := FND_API.G_RET_STS_SUCCESS;
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: -- Initialize API return status to success
2040: x_return_status := FND_API.G_RET_STS_SUCCESS;
2041:
2042: -- Api Body
2043:
2044: -- Standard Statement Level Procedure/Function Logging
2064:
2065: -- End of Api Body
2066:
2067: -- Standard check of p_commit.
2068: IF FND_API.To_Boolean( p_commit ) THEN
2069: COMMIT WORK;
2070: END IF;
2071:
2072: -- Standard call to get message count and if count is 1, get message info.
2070: END IF;
2071:
2072: -- Standard call to get message count and if count is 1, get message info.
2073: FND_MSG_PUB.Count_And_Get(
2074: p_encoded => FND_API.g_false,
2075: p_count => x_msg_count,
2076: p_data => x_msg_data);
2077:
2078: -- Standard End of Procedure/Function Logging
2079: INL_LOGGING_PVT.Log_EndProc (
2080: p_module_name => g_module_name,
2081: p_procedure_name => l_api_name);
2082: EXCEPTION
2083: WHEN FND_API.G_EXC_ERROR THEN
2084: -- Standard Expected Error Logging
2085: INL_LOGGING_PVT.Log_ExpecError (
2086: p_module_name => g_module_name,
2087: p_procedure_name => l_api_name
2086: p_module_name => g_module_name,
2087: p_procedure_name => l_api_name
2088: );
2089: ROLLBACK TO Get_CurrencyInfo_GRP;
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: FND_MSG_PUB.Count_And_Get(
2092: p_encoded => FND_API.g_false,
2093: p_count => x_msg_count,
2094: p_data => x_msg_data
2088: );
2089: ROLLBACK TO Get_CurrencyInfo_GRP;
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: FND_MSG_PUB.Count_And_Get(
2092: p_encoded => FND_API.g_false,
2093: p_count => x_msg_count,
2094: p_data => x_msg_data
2095: );
2096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: p_encoded => FND_API.g_false,
2093: p_count => x_msg_count,
2094: p_data => x_msg_data
2095: );
2096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2097: -- Standard Unexpected Error Logging
2098: INL_LOGGING_PVT.Log_UnexpecError (
2099: p_module_name => g_module_name,
2100: p_procedure_name => l_api_name);
2098: INL_LOGGING_PVT.Log_UnexpecError (
2099: p_module_name => g_module_name,
2100: p_procedure_name => l_api_name);
2101: ROLLBACK TO Get_CurrencyInfo_GRP;
2102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2103: FND_MSG_PUB.Count_And_Get(
2104: p_encoded => FND_API.g_false,
2105: p_count => x_msg_count,
2106: p_data => x_msg_data);
2100: p_procedure_name => l_api_name);
2101: ROLLBACK TO Get_CurrencyInfo_GRP;
2102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2103: FND_MSG_PUB.Count_And_Get(
2104: p_encoded => FND_API.g_false,
2105: p_count => x_msg_count,
2106: p_data => x_msg_data);
2107: WHEN OTHERS THEN
2108: -- Standard Unexpected Error Logging
2109: INL_LOGGING_PVT.Log_UnexpecError (
2110: p_module_name => g_module_name,
2111: p_procedure_name => l_api_name);
2112: ROLLBACK TO Get_CurrencyInfo_GRP;
2113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2114: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2115: THEN
2116: FND_MSG_PUB.Add_Exc_Msg(
2117: g_pkg_name,
2117: g_pkg_name,
2118: l_api_name);
2119: END IF;
2120: FND_MSG_PUB.Count_And_Get(
2121: p_encoded => FND_API.g_false,
2122: p_count => x_msg_count,
2123: p_data => x_msg_data);
2124: END Get_CurrencyInfo;
2125: