[Home] [Help]
8: L_FND_LOCAL_CHR10 CONSTANT VARCHAR2(100) := fnd_global.local_chr (10); --Bug#9660082
9: L_FND_LOGIN_ID CONSTANT NUMBER := fnd_global.login_id; --Bug#9660082
10: L_FND_EXC_ERROR EXCEPTION; --Bug#9660082
11: L_FND_EXC_UNEXPECTED_ERROR EXCEPTION; --Bug#9660082
12: L_FND_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_success; --Bug#9660082
13: L_FND_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error; --Bug#9660082
14: L_FND_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;--Bug#9660082
15:
16: /* unused --Bug#13987019 BEG
9: L_FND_LOGIN_ID CONSTANT NUMBER := fnd_global.login_id; --Bug#9660082
10: L_FND_EXC_ERROR EXCEPTION; --Bug#9660082
11: L_FND_EXC_UNEXPECTED_ERROR EXCEPTION; --Bug#9660082
12: L_FND_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_success; --Bug#9660082
13: L_FND_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error; --Bug#9660082
14: L_FND_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;--Bug#9660082
15:
16: /* unused --Bug#13987019 BEG
17: TYPE rcv_header_interface_rec_type
10: L_FND_EXC_ERROR EXCEPTION; --Bug#9660082
11: L_FND_EXC_UNEXPECTED_ERROR EXCEPTION; --Bug#9660082
12: L_FND_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_success; --Bug#9660082
13: L_FND_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error; --Bug#9660082
14: L_FND_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;--Bug#9660082
15:
16: /* unused --Bug#13987019 BEG
17: TYPE rcv_header_interface_rec_type
18: IS
400: p_procedure_name => l_api_name) ;
401: -- Standard Start of API savepoint
402: SAVEPOINT Complete_Shipment_PVT;
403: -- Initialize message list if p_init_msg_list is set to TRUE.
404: IF FND_API.to_Boolean (p_init_msg_list) THEN
405: FND_MSG_PUB.initialize;
406: END IF;
407: -- Check for call compatibility.
408: IF NOT
405: FND_MSG_PUB.initialize;
406: END IF;
407: -- Check for call compatibility.
408: IF NOT
409: FND_API.Compatible_API_Call (
410: p_current_version_number => l_api_version,
411: p_caller_version_number => p_api_version,
412: p_api_name => l_api_name,
413: p_pkg_name => G_PKG_NAME
525: last_update_date = SYSDATE
526: WHERE ship_header_id = p_ship_header_id;
527:
528: -- Standard check of p_commit.
529: IF FND_API.To_Boolean (p_commit) THEN
530: COMMIT WORK;
531: END IF;
532: -- Standard call to get message count and if count is 1, get message info.
533: FND_MSG_PUB.Count_And_Get (
665: p_procedure_name => l_api_name) ;
666: -- Standard Start of API savepoint
667: SAVEPOINT Set_ToRevalidate_PVT;
668: -- Initialize message list if p_init_msg_list is set to TRUE.
669: IF FND_API.to_Boolean (p_init_msg_list) THEN
670: FND_MSG_PUB.initialize;
671: END IF;
672: -- Check for call compatibility.
673: IF NOT FND_API.Compatible_API_Call (
669: IF FND_API.to_Boolean (p_init_msg_list) THEN
670: FND_MSG_PUB.initialize;
671: END IF;
672: -- Check for call compatibility.
673: IF NOT FND_API.Compatible_API_Call (
674: p_current_version_number => l_api_version,
675: p_caller_version_number => p_api_version,
676: p_api_name => l_api_name,
677: p_pkg_name => G_PKG_NAME
703: SET ship_status_code = 'VALIDATION REQ'
704: WHERE ship_header_id = p_ship_header_id;
705: END IF;
706: -- Standard check of p_commit.
707: IF FND_API.To_Boolean (p_commit) THEN
708: COMMIT WORK;
709: END IF;
710: -- Standard call to get message count and if count is 1, get message info.
711: FND_MSG_PUB.Count_And_Get (
999: INL_LOGGING_PVT.Log_BeginProc (
1000: p_module_name => g_module_name,
1001: p_procedure_name => l_api_name) ;
1002: -- Initialize message list if p_init_msg_list is set to TRUE.
1003: IF FND_API.to_Boolean (p_init_msg_list) THEN
1004: FND_MSG_PUB.initialize;
1005: END IF;
1006: -- Check for call compatibility.
1007: IF NOT
1004: FND_MSG_PUB.initialize;
1005: END IF;
1006: -- Check for call compatibility.
1007: IF NOT
1008: FND_API.Compatible_API_Call (
1009: l_api_version,
1010: p_api_version,
1011: l_api_name,
1012: G_PKG_NAME)
1121: p_procedure_name => l_api_name,
1122: p_var_name => 'p_unit_of_measure',
1123: p_var_value => p_unit_of_measure) ;
1124: -- Standard check of p_commit.
1125: IF FND_API.To_Boolean (p_commit) THEN
1126: COMMIT WORK;
1127: END IF;
1128: -- Standard call to get message count and if count is 1, get message info.
1129: FND_MSG_PUB.Count_And_Get (
2107: p_procedure_name => l_program_name) ;
2108: -- Standard Start of API savepoint
2109: SAVEPOINT Check_PoTolerances_PVT;
2110: -- Initialize message list if p_init_msg_list is set to TRUE.
2111: IF FND_API.to_Boolean (p_init_msg_list) THEN
2112: FND_MSG_PUB.initialize;
2113: END IF;
2114: -- Check for call compatibility.
2115: IF NOT FND_API.Compatible_API_Call(l_api_version,
2111: IF FND_API.to_Boolean (p_init_msg_list) THEN
2112: FND_MSG_PUB.initialize;
2113: END IF;
2114: -- Check for call compatibility.
2115: IF NOT FND_API.Compatible_API_Call(l_api_version,
2116: p_api_version,
2117: l_program_name,
2118: G_PKG_NAME) THEN
2119: RAISE L_FND_EXC_UNEXPECTED_ERROR;
2150:
2151: END IF;
2152:
2153: INL_SHIPMENT_PVT.Check_PoTolerances(p_api_version => 1.0,
2154: p_init_msg_list => FND_API.G_TRUE,
2155: p_commit => FND_API.G_FALSE,
2156: p_ship_header_id => p_ship_header_id ,
2157: p_ship_line_id => p_ship_line_id ,
2158: p_organization_id => p_organization_id,
2151: END IF;
2152:
2153: INL_SHIPMENT_PVT.Check_PoTolerances(p_api_version => 1.0,
2154: p_init_msg_list => FND_API.G_TRUE,
2155: p_commit => FND_API.G_FALSE,
2156: p_ship_header_id => p_ship_header_id ,
2157: p_ship_line_id => p_ship_line_id ,
2158: p_organization_id => p_organization_id,
2159: p_ship_line_num => p_ship_line_num,
2172: x_msg_data => l_msg_data);
2173: END;
2174:
2175: -- Standard check of p_commit.
2176: IF FND_API.To_Boolean (p_commit) THEN
2177: COMMIT WORK;
2178: END IF;
2179: -- Standard call to get message count and if count is 1, get message info.
2180: FND_MSG_PUB.Count_And_Get (
2296: p_procedure_name => l_program_name) ;
2297: -- Standard Start of API savepoint
2298: SAVEPOINT Check_PoTolerances_PVT;
2299: -- Initialize message list if p_init_msg_list is set to TRUE.
2300: IF FND_API.to_Boolean (p_init_msg_list) THEN
2301: FND_MSG_PUB.initialize;
2302: END IF;
2303: -- Check for call compatibility.
2304: IF NOT FND_API.Compatible_API_Call (
2300: IF FND_API.to_Boolean (p_init_msg_list) THEN
2301: FND_MSG_PUB.initialize;
2302: END IF;
2303: -- Check for call compatibility.
2304: IF NOT FND_API.Compatible_API_Call (
2305: l_api_version,
2306: p_api_version,
2307: l_program_name,
2308: G_PKG_NAME
2410: RAISE L_FND_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412: END IF;
2413: -- Standard check of p_commit.
2414: IF FND_API.To_Boolean (p_commit) THEN
2415: COMMIT WORK;
2416: END IF;
2417: -- Standard call to get message count and if count is 1, get message info.
2418: FND_MSG_PUB.Count_And_Get (
4392: p_procedure_name => l_api_name) ;
4393: -- Standard Start of API savepoint
4394: SAVEPOINT Validate_Shipment_PVT;
4395: -- Initialize message list if p_init_msg_list is set to TRUE.
4396: IF FND_API.to_Boolean (p_init_msg_list) THEN
4397: FND_MSG_PUB.initialize;
4398: END IF;
4399: -- Check for call compatibility.
4400: IF NOT FND_API.Compatible_API_Call (
4396: IF FND_API.to_Boolean (p_init_msg_list) THEN
4397: FND_MSG_PUB.initialize;
4398: END IF;
4399: -- Check for call compatibility.
4400: IF NOT FND_API.Compatible_API_Call (
4401: p_current_version_number => l_api_version,
4402: p_caller_version_number => p_api_version,
4403: p_api_name => l_api_name,
4404: p_pkg_name => G_PKG_NAME
4478: last_update_date = SYSDATE
4479: WHERE ship_header_id = p_ship_header_id;
4480: END IF;
4481: -- Standard check of p_commit.
4482: IF FND_API.To_Boolean (p_commit) THEN
4483: COMMIT WORK;
4484: END IF;
4485: -- Standard call to get message count and if count is 1, get message info.
4486: FND_MSG_PUB.Count_And_Get (
5400: ) ;
5401: -- Standard Start of API savepoint
5402: SAVEPOINT Adjust_ShipLines_PVT;
5403: -- Initialize message list if p_init_msg_list is set to TRUE.
5404: IF FND_API.to_Boolean (p_init_msg_list) THEN
5405: FND_MSG_PUB.initialize;
5406: END IF;
5407: -- Check for call compatibility.
5408: IF NOT FND_API.Compatible_API_Call (
5404: IF FND_API.to_Boolean (p_init_msg_list) THEN
5405: FND_MSG_PUB.initialize;
5406: END IF;
5407: -- Check for call compatibility.
5408: IF NOT FND_API.Compatible_API_Call (
5409: p_current_version_number => l_api_version,
5410: p_caller_version_number => p_api_version,
5411: p_api_name => l_api_name,
5412: p_pkg_name => g_pkg_name
6167: RAISE L_FND_EXC_UNEXPECTED_ERROR;
6168: END IF;
6169: END IF;
6170: -- Standard check of p_commit.
6171: IF FND_API.To_Boolean (p_commit) THEN
6172: COMMIT WORK;
6173: END IF;
6174: -- Standard call to get message count and if count is 1, get message info.
6175: FND_MSG_PUB.Count_And_Get (
8019: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8020: -- Standard Start of API savepoint
8021: SAVEPOINT Adjust_ChargeLines_PVT;
8022: -- Initialize message list if p_init_msg_list is set to TRUE.
8023: IF FND_API.to_Boolean (p_init_msg_list) THEN
8024: FND_MSG_PUB.initialize;
8025: END IF;
8026: -- Check for call compatibility.
8027: IF NOT FND_API.Compatible_API_Call (
8023: IF FND_API.to_Boolean (p_init_msg_list) THEN
8024: FND_MSG_PUB.initialize;
8025: END IF;
8026: -- Check for call compatibility.
8027: IF NOT FND_API.Compatible_API_Call (
8028: p_current_version_number => l_api_version,
8029: p_caller_version_number => p_api_version,
8030: p_api_name => l_api_name,
8031: p_pkg_name => g_pkg_name
8351: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
8352: RAISE L_FND_EXC_UNEXPECTED_ERROR;
8353: END IF;
8354: -- Standard check of p_commit.
8355: IF FND_API.To_Boolean (p_commit) THEN
8356: COMMIT WORK;
8357: END IF;
8358: -- Standard call to get message count and if count is 1, get message info.
8359: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
8467: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name, p_procedure_name => l_api_name) ;
8468: -- Standard Start of API savepoint
8469: SAVEPOINT Adjust_ChargeLines_PVT;
8470: -- Initialize message list if p_init_msg_list is set to TRUE.
8471: IF FND_API.to_Boolean (p_init_msg_list) THEN
8472: FND_MSG_PUB.initialize;
8473: END IF;
8474: -- Check for call compatibility.
8475: IF NOT FND_API.Compatible_API_Call (
8471: IF FND_API.to_Boolean (p_init_msg_list) THEN
8472: FND_MSG_PUB.initialize;
8473: END IF;
8474: -- Check for call compatibility.
8475: IF NOT FND_API.Compatible_API_Call (
8476: p_current_version_number => l_api_version,
8477: p_caller_version_number => p_api_version,
8478: p_api_name => l_api_name,
8479: p_pkg_name => g_pkg_name
8948: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
8949: RAISE L_FND_EXC_UNEXPECTED_ERROR;
8950: END IF;
8951: -- Standard check of p_commit.
8952: IF FND_API.To_Boolean (p_commit) THEN
8953: COMMIT WORK;
8954: END IF;
8955: -- Standard call to get message count and if count is 1, get message info.
8956: FND_MSG_PUB.Count_And_Get (p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
9055: p_procedure_name => l_api_name) ;
9056: -- Standard Start of API savepoint
9057: SAVEPOINT Adjust_TaxLines_PVT;
9058: -- Initialize message list if p_init_msg_list is set to TRUE.
9059: IF FND_API.to_Boolean (p_init_msg_list) THEN
9060: FND_MSG_PUB.initialize;
9061: END IF;
9062: -- Check for call compatibility.
9063: IF NOT FND_API.Compatible_API_Call (
9059: IF FND_API.to_Boolean (p_init_msg_list) THEN
9060: FND_MSG_PUB.initialize;
9061: END IF;
9062: -- Check for call compatibility.
9063: IF NOT FND_API.Compatible_API_Call (
9064: p_current_version_number => l_api_version,
9065: p_caller_version_number => p_api_version,
9066: p_api_name => l_api_name,
9067: p_pkg_name => g_pkg_name
9218: END IF;
9219: -- The estimated tax lines will made = 0 when as actual arrived on associated line
9220: -- i.e. when a charge became and actual value the estimated taxes will made 0 too
9221: -- Standard check of p_commit.
9222: IF FND_API.To_Boolean (p_commit) THEN
9223: COMMIT WORK;
9224: END IF;
9225: -- Standard call to get message count and if count is 1, get message info.
9226: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
9326: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
9327: -- Standard Start of API savepoint
9328: SAVEPOINT Adjust_TaxLines_2_PVT;
9329: -- Initialize message list if p_init_msg_list is set to TRUE.
9330: IF FND_API.to_Boolean (p_init_msg_list) THEN
9331: FND_MSG_PUB.initialize;
9332: END IF;
9333: -- Check for call compatibility.
9334: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
9330: IF FND_API.to_Boolean (p_init_msg_list) THEN
9331: FND_MSG_PUB.initialize;
9332: END IF;
9333: -- Check for call compatibility.
9334: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
9335: RAISE L_FND_EXC_UNEXPECTED_ERROR;
9336: END IF;
9337: -- Initialize API return status to success
9338: x_return_status := L_FND_RET_STS_SUCCESS;
9624: END IF;
9625: -- The estimated tax lines will made = 0 when as actual arrived on associated line
9626: -- i.e. when a charge became and actual value the estimated taxes will made 0 too
9627: -- Standard check of p_commit.
9628: IF FND_API.To_Boolean (p_commit) THEN
9629: COMMIT WORK;
9630: END IF;
9631: -- Standard call to get message count and if count is 1, get message info.
9632: FND_MSG_PUB.Count_And_Get (
9809: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
9810: -- Standard Start of API savepoint
9811: SAVEPOINT Adjust_Lines_PVT;
9812: -- Initialize message list if p_init_msg_list is set to TRUE.
9813: IF FND_API.to_Boolean (p_init_msg_list) THEN
9814: FND_MSG_PUB.initialize;
9815: END IF;
9816: -- Check for call compatibility.
9817: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
9813: IF FND_API.to_Boolean (p_init_msg_list) THEN
9814: FND_MSG_PUB.initialize;
9815: END IF;
9816: -- Check for call compatibility.
9817: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
9818: RAISE L_FND_EXC_UNEXPECTED_ERROR;
9819: END IF;
9820: -- Initialize API return status to success
9821: x_return_status := L_FND_RET_STS_SUCCESS;
10281: END IF;
10282: END;
10283: -- End of API Body
10284: -- Standard check of p_commit.
10285: IF FND_API.To_Boolean (p_commit) THEN
10286: COMMIT WORK;
10287: END IF;
10288: -- Standard call to get message count and if count is 1, get message info.
10289: FND_MSG_PUB.Count_And_Get ( p_encoded => L_FND_FALSE, p_count => x_msg_count, p_data => x_msg_data) ;
10366: p_procedure_name => l_api_name);
10367: -- Standard Start of API savepoint
10368: SAVEPOINT Get_1aryQty_PVT;
10369: -- Initialize message list if p_init_msg_list is set to TRUE.
10370: IF FND_API.to_Boolean (p_init_msg_list) THEN
10371: FND_MSG_PUB.initialize;
10372: END IF;
10373: -- Check for call compatibility.
10374: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
10370: IF FND_API.to_Boolean (p_init_msg_list) THEN
10371: FND_MSG_PUB.initialize;
10372: END IF;
10373: -- Check for call compatibility.
10374: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
10375: p_caller_version_number => p_api_version,
10376: p_api_name => l_api_name,
10377: p_pkg_name => g_pkg_name) THEN
10378: RAISE L_FND_EXC_UNEXPECTED_ERROR;
10462: p_var_value => x_1ary_qty) ;
10463: END IF;
10464:
10465: -- Standard check of p_commit.
10466: IF FND_API.To_Boolean (p_commit) THEN
10467: COMMIT WORK;
10468: END IF;
10469: -- Standard call to get message count and if count is 1, get message info.
10470: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
10543: p_procedure_name => l_api_name);
10544: -- Standard Start of API savepoint
10545: SAVEPOINT Get_2aryQty_PVT;
10546: -- Initialize message list if p_init_msg_list is set to TRUE.
10547: IF FND_API.to_Boolean (p_init_msg_list) THEN
10548: FND_MSG_PUB.initialize;
10549: END IF;
10550: -- Check for call compatibility.
10551: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
10547: IF FND_API.to_Boolean (p_init_msg_list) THEN
10548: FND_MSG_PUB.initialize;
10549: END IF;
10550: -- Check for call compatibility.
10551: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
10552: p_caller_version_number => p_api_version,
10553: p_api_name => l_api_name,
10554: p_pkg_name => g_pkg_name) THEN
10555: RAISE L_FND_EXC_UNEXPECTED_ERROR;
10642: p_var_value => x_2ary_qty) ;
10643: END IF;
10644:
10645: -- Standard check of p_commit.
10646: IF FND_API.To_Boolean (p_commit) THEN
10647: COMMIT WORK;
10648: END IF;
10649: -- Standard call to get message count and if count is 1, get message info.
10650: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
10740: p_procedure_name => l_api_name) ;
10741: -- Standard Start of API savepoint
10742: SAVEPOINT Get_1ary2aryQty_PVT;
10743: -- Initialize message list if p_init_msg_list is set to TRUE.
10744: IF FND_API.to_Boolean (p_init_msg_list) THEN
10745: FND_MSG_PUB.initialize;
10746: END IF;
10747: -- Check for call compatibility.
10748: IF NOT FND_API.Compatible_API_Call (
10744: IF FND_API.to_Boolean (p_init_msg_list) THEN
10745: FND_MSG_PUB.initialize;
10746: END IF;
10747: -- Check for call compatibility.
10748: IF NOT FND_API.Compatible_API_Call (
10749: p_current_version_number => l_api_version,
10750: p_caller_version_number => p_api_version,
10751: p_api_name => l_api_name,
10752: p_pkg_name => g_pkg_name
10963: END IF;
10964: --==========
10965: */
10966: -- Standard check of p_commit.
10967: IF FND_API.To_Boolean (p_commit) THEN
10968: COMMIT WORK;
10969: END IF;
10970: -- Standard call to get message count and if count is 1, get message info.
10971: FND_MSG_PUB.Count_And_Get (
11171: p_procedure_name => l_program_name) ;
11172: -- Standard Start of API savepoint
11173: SAVEPOINT Adjust_ELCLines_PVT;
11174: -- Initialize message list if p_init_msg_list is set to TRUE.
11175: IF FND_API.to_Boolean (p_init_msg_list) THEN
11176: FND_MSG_PUB.initialize;
11177: END IF;
11178: -- Check for call compatibility.
11179: IF NOT FND_API.Compatible_API_Call(p_current_version_number => l_api_version,
11175: IF FND_API.to_Boolean (p_init_msg_list) THEN
11176: FND_MSG_PUB.initialize;
11177: END IF;
11178: -- Check for call compatibility.
11179: IF NOT FND_API.Compatible_API_Call(p_current_version_number => l_api_version,
11180: p_caller_version_number => p_api_version,
11181: p_api_name => l_program_name,
11182: p_pkg_name => g_pkg_name) THEN
11183: RAISE L_FND_EXC_UNEXPECTED_ERROR;
11863: x_return_status := l_return_status;
11864: RAISE L_FND_EXC_UNEXPECTED_ERROR;
11865: END IF;
11866:
11867: IF FND_API.To_Boolean (p_commit) THEN
11868: COMMIT WORK;
11869: END IF;
11870: -- Standard call to get message count and if count is 1, get message info.
11871: FND_MSG_PUB.Count_And_Get(p_encoded => L_FND_FALSE,
11878:
11879: EXCEPTION
11880: --Handling deadlock with proper error message
11881: WHEN RESOURCE_BUSY THEN
11882: x_return_status := FND_API.g_ret_sts_error;
11883: FND_MESSAGE.set_name('INL','INL_CANNOT_EXEC_ELC_SUBMIT_LCK');
11884: FND_MSG_PUB.ADD;
11885: -- Standard Expected Error Logging
11886: INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
11975: p_procedure_name => l_api_name) ;
11976: -- Standard Start of API savepoint
11977: SAVEPOINT Run_Submit_PVT;
11978: -- Initialize message list if p_init_msg_list is set to TRUE.
11979: IF FND_API.to_Boolean (p_init_msg_list) THEN
11980: FND_MSG_PUB.initialize;
11981: END IF;
11982: -- Check for call compatibility.
11983: IF NOT FND_API.Compatible_API_Call (
11979: IF FND_API.to_Boolean (p_init_msg_list) THEN
11980: FND_MSG_PUB.initialize;
11981: END IF;
11982: -- Check for call compatibility.
11983: IF NOT FND_API.Compatible_API_Call (
11984: l_api_version,
11985: p_api_version,
11986: l_api_name,
11987: G_PKG_NAME
12280: ELSIF l_return_status = L_FND_RET_STS_UNEXP_ERROR THEN
12281: RAISE L_FND_EXC_UNEXPECTED_ERROR;
12282: END IF;
12283: -- Standard check of p_commit.
12284: IF FND_API.To_Boolean (p_commit) THEN
12285: COMMIT WORK;
12286: END IF;
12287: -- Standard call to get message count and if count is 1, get message info.
12288: FND_MSG_PUB.Count_And_Get (
12812: INL_LOGGING_PVT.Log_BeginProc ( p_module_name => g_module_name, p_procedure_name => l_api_name) ;
12813: -- Standard Start of API savepoint
12814: SAVEPOINT Delete_ChargeAssoc_PVT;
12815: -- Initialize message list if p_init_msg_list is set to TRUE.
12816: IF FND_API.to_Boolean (p_init_msg_list) THEN
12817: FND_MSG_PUB.initialize;
12818: END IF;
12819: -- Check for call compatibility.
12820: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
12816: IF FND_API.to_Boolean (p_init_msg_list) THEN
12817: FND_MSG_PUB.initialize;
12818: END IF;
12819: -- Check for call compatibility.
12820: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version, p_caller_version_number => p_api_version, p_api_name => l_api_name, p_pkg_name => g_pkg_name) THEN
12821: RAISE L_FND_EXC_UNEXPECTED_ERROR;
12822: END IF;
12823: -- Initialize API return status to success
12824: x_return_status := L_FND_RET_STS_SUCCESS;
12853: END LOOP;
12854: CLOSE c_affected_ship;
12855: END;
12856: -- Standard check of p_commit.
12857: IF FND_API.To_Boolean (p_commit) THEN
12858: COMMIT WORK;
12859: END IF;
12860: -- Standard call to get message count and if count is 1, get message info.
12861: FND_MSG_PUB.Count_And_Get (
13561: -- Standard Beginning of Procedure/Function Logging
13562: INL_LOGGING_PVT.Log_BeginProc (p_module_name => g_module_name,
13563: p_procedure_name => l_api_name);
13564: -- Initialize message list if p_init_msg_list is set to TRUE.
13565: IF FND_API.to_Boolean (p_init_msg_list) THEN
13566: FND_MSG_PUB.initialize;
13567: END IF;
13568: -- Check for call compatibility.
13569: IF NOT
13566: FND_MSG_PUB.initialize;
13567: END IF;
13568: -- Check for call compatibility.
13569: IF NOT
13570: FND_API.Compatible_API_Call (
13571: l_api_version,
13572: p_api_version,
13573: l_api_name,
13574: G_PKG_NAME)
13641: END IF;
13642: -- Bug 15827165
13643:
13644: -- Standard check of p_commit.
13645: IF FND_API.To_Boolean (p_commit) THEN
13646: COMMIT WORK;
13647: END IF;
13648: -- Standard call to get message count and if count is 1, get message info.
13649: FND_MSG_PUB.Count_And_Get (
13929: -- Standard Start of API savepoint
13930: SAVEPOINT Discard_Updates_PVT;
13931:
13932: -- Initialize message list if p_init_msg_list is set to TRUE.
13933: IF FND_API.to_Boolean (p_init_msg_list) THEN
13934: FND_MSG_PUB.initialize;
13935: END IF;
13936:
13937: -- Check for call compatibility.
13934: FND_MSG_PUB.initialize;
13935: END IF;
13936:
13937: -- Check for call compatibility.
13938: IF NOT FND_API.Compatible_API_Call (p_current_version_number => l_api_version,
13939: p_caller_version_number => p_api_version,
13940: p_api_name => l_program_name,
13941: p_pkg_name => G_PKG_NAME) THEN
13942: RAISE L_FND_EXC_UNEXPECTED_ERROR;
14110: RAISE L_FND_EXC_UNEXPECTED_ERROR;
14111: END IF;
14112:
14113: -- Standard check of p_commit.
14114: IF FND_API.To_Boolean (p_commit) THEN
14115: COMMIT WORK;
14116: END IF;
14117:
14118: -- Standard call to get message count and if count is 1, get message info.