441:
442: if(x_status_flag <> 'C') then
443: x_error_flag := 1;
444: x_error_mssg := 'EAM_RET_MAT_UNEXPECTED_ERROR';
445: raise fnd_api.g_exc_unexpected_error;
446: end if;
447: /*
448: if(p_txn_header_id is null) then
449: x_header_id := x_trx_temp_id ;
760: if (l_slog) then FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
761: 'INV_TXN_MANAGER_PUB.process_Transactions returned. '||
762: 'Return status:'|| x_wip_ret_status);
763: end if;
764: if(x_wip_ret_status = FND_API.G_RET_STS_UNEXP_ERROR OR
765: x_wip_ret_status = FND_API.G_RET_STS_ERROR OR
766: x_inv_ret_status <> 0) then
767: if (l_log) then FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module,
768: 'INV_TXN_MANAGER_PUB.process_Transactions returned a error. '||
761: 'INV_TXN_MANAGER_PUB.process_Transactions returned. '||
762: 'Return status:'|| x_wip_ret_status);
763: end if;
764: if(x_wip_ret_status = FND_API.G_RET_STS_UNEXP_ERROR OR
765: x_wip_ret_status = FND_API.G_RET_STS_ERROR OR
766: x_inv_ret_status <> 0) then
767: if (l_log) then FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module,
768: 'INV_TXN_MANAGER_PUB.process_Transactions returned a error. '||
769: 'Return message:'|| x_error_mssg);
782: loop
783: fetch txn_temp_id_cur into l_txn_temp_id;
784: exit when txn_temp_id_cur%notfound;
785: eam_material_allocations_pvt.delete_allocation
786: ( p_init_msg_list => FND_API.G_TRUE,
787: p_commit => FND_API.G_TRUE,
788: p_transaction_temp_id => l_txn_temp_id,
789: x_return_status => x_return_status,
790: x_msg_count => x_mssg_count,
783: fetch txn_temp_id_cur into l_txn_temp_id;
784: exit when txn_temp_id_cur%notfound;
785: eam_material_allocations_pvt.delete_allocation
786: ( p_init_msg_list => FND_API.G_TRUE,
787: p_commit => FND_API.G_TRUE,
788: p_transaction_temp_id => l_txn_temp_id,
789: x_return_status => x_return_status,
790: x_msg_count => x_mssg_count,
791: x_msg_data => x_error_mssg
802: AND inventory_item_id = p_item_id;
803: end if;
804:
805: Exception
806: When fnd_api.g_exc_unexpected_error then
807: rollback to eammttxnsp;
808: End PROCESSMTLTXN;
809:
810:
924:
925: PROCEDURE MoreMaterial_Add
926: (
927: p_api_version IN NUMBER,
928: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
929: p_commit IN VARCHAR2 := FND_API.G_FALSE,
930: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
931:
932: p_work_object_id IN NUMBER,
925: PROCEDURE MoreMaterial_Add
926: (
927: p_api_version IN NUMBER,
928: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
929: p_commit IN VARCHAR2 := FND_API.G_FALSE,
930: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
931:
932: p_work_object_id IN NUMBER,
933: p_organization_id IN NUMBER,
926: (
927: p_api_version IN NUMBER,
928: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
929: p_commit IN VARCHAR2 := FND_API.G_FALSE,
930: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
931:
932: p_work_object_id IN NUMBER,
933: p_organization_id IN NUMBER,
934: p_operation_seq_num IN NUMBER,
1005: BEGIN
1006: -- Standard Start of API savepoint
1007: SAVEPOINT EAM_WO_MATERIAL_UTIL_PUB;
1008: -- Standard call to check for call compatibility.
1009: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1010: p_api_version ,
1011: l_api_name ,
1012: G_PKG_NAME )
1013: THEN
1010: p_api_version ,
1011: l_api_name ,
1012: G_PKG_NAME )
1013: THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016: -- Initialize message list if p_init_msg_list is set to TRUE.
1017: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1018: FND_MSG_PUB.initialize;
1013: THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016: -- Initialize message list if p_init_msg_list is set to TRUE.
1017: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1018: FND_MSG_PUB.initialize;
1019: END IF;
1020: -- Initialize API return status to success
1021: x_return_status := FND_API.G_RET_STS_SUCCESS;
1017: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1018: FND_MSG_PUB.initialize;
1019: END IF;
1020: -- Initialize API return status to success
1021: x_return_status := FND_API.G_RET_STS_SUCCESS;
1022: -- API body
1023:
1024: /* Initialize the local variables */
1025: l_stmt_num := 10;
1028: l_organization_id := p_organization_id;
1029: l_operation_seq_num := p_operation_seq_num;
1030: l_item_id := p_item_id;
1031: l_required_quantity := p_required_quantity;
1032: l_return_status := FND_API.G_RET_STS_SUCCESS;
1033:
1034: /* get output directory path from database */
1035: EAM_WORKORDER_UTIL_PKG.log_path(l_output_dir);
1036:
1114: );
1115:
1116:
1117:
1118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1119: x_return_status := FND_API.G_RET_STS_ERROR;
1120: RETURN;
1121:
1122: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1115:
1116:
1117:
1118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1119: x_return_status := FND_API.G_RET_STS_ERROR;
1120: RETURN;
1121:
1122: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1119: x_return_status := FND_API.G_RET_STS_ERROR;
1120: RETURN;
1121:
1122: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1124: RETURN;
1125:
1126: END IF;
1119: x_return_status := FND_API.G_RET_STS_ERROR;
1120: RETURN;
1121:
1122: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1124: RETURN;
1125:
1126: END IF;
1127:
1126: END IF;
1127:
1128: -- End of API body.
1129: -- Standard check of p_commit.
1130: IF FND_API.To_Boolean( p_commit ) THEN
1131: --dbms_output.put_line('committing');
1132: COMMIT WORK;
1133: END IF;
1134: -- Standard call to get message count and if count is 1, get message info.
1136: ( p_count => x_msg_count ,
1137: p_data => x_msg_data
1138: );
1139: EXCEPTION
1140: WHEN FND_API.G_EXC_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_ERROR ;
1142: FND_MSG_PUB.Count_And_Get
1143: ( p_count => x_msg_count ,
1144: p_data => x_msg_data
1137: p_data => x_msg_data
1138: );
1139: EXCEPTION
1140: WHEN FND_API.G_EXC_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_ERROR ;
1142: FND_MSG_PUB.Count_And_Get
1143: ( p_count => x_msg_count ,
1144: p_data => x_msg_data
1145: );
1144: p_data => x_msg_data
1145: );
1146:
1147:
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1150: FND_MSG_PUB.Count_And_Get
1151: (
1152: p_count => x_msg_count,
1145: );
1146:
1147:
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1150: FND_MSG_PUB.Count_And_Get
1151: (
1152: p_count => x_msg_count,
1153: p_data => x_msg_data
1153: p_data => x_msg_data
1154: );
1155:
1156: WHEN OTHERS THEN
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1158: IF FND_MSG_PUB.Check_Msg_Level
1159: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1160: THEN
1161: FND_MSG_PUB.Add_Exc_Msg
1173:
1174: PROCEDURE MoreDirectItem_Add
1175: (
1176: p_api_version IN NUMBER,
1177: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1180:
1181: p_work_object_id IN NUMBER,
1174: PROCEDURE MoreDirectItem_Add
1175: (
1176: p_api_version IN NUMBER,
1177: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1180:
1181: p_work_object_id IN NUMBER,
1182: p_organization_id IN NUMBER,
1175: (
1176: p_api_version IN NUMBER,
1177: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1180:
1181: p_work_object_id IN NUMBER,
1182: p_organization_id IN NUMBER,
1183: p_operation_seq_num IN NUMBER,
1258: BEGIN
1259: -- Standard Start of API savepoint
1260: SAVEPOINT EAM_WO_MATERIAL_UTIL_PUB;
1261: -- Standard call to check for call compatibility.
1262: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1263: p_api_version ,
1264: l_api_name ,
1265: G_PKG_NAME )
1266: THEN
1263: p_api_version ,
1264: l_api_name ,
1265: G_PKG_NAME )
1266: THEN
1267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1268: END IF;
1269: -- Initialize message list if p_init_msg_list is set to TRUE.
1270: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1271: FND_MSG_PUB.initialize;
1266: THEN
1267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1268: END IF;
1269: -- Initialize message list if p_init_msg_list is set to TRUE.
1270: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1271: FND_MSG_PUB.initialize;
1272: END IF;
1273: -- Initialize API return status to success
1274: x_return_status := FND_API.G_RET_STS_SUCCESS;
1270: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1271: FND_MSG_PUB.initialize;
1272: END IF;
1273: -- Initialize API return status to success
1274: x_return_status := FND_API.G_RET_STS_SUCCESS;
1275: -- API body
1276:
1277: /* Initialize the local variables */
1278: l_stmt_num := 10;
1282: l_operation_seq_num := p_operation_seq_num;
1283: l_item_id := p_item_id;
1284: l_need_by_date := p_need_by_date;
1285: l_required_quantity := p_required_quantity;
1286: l_return_status := FND_API.G_RET_STS_SUCCESS;
1287:
1288: /* get output directory path from database */
1289: EAM_WORKORDER_UTIL_PKG.log_path(l_output_dir);
1290:
1390: , p_output_dir => l_output_dir
1391: );
1392:
1393:
1394: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: RETURN;
1397:
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1391: );
1392:
1393:
1394: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: RETURN;
1397:
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1394: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: RETURN;
1397:
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: RETURN;
1401:
1402: END IF;
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: RETURN;
1397:
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: RETURN;
1401:
1402: END IF;
1403:
1402: END IF;
1403:
1404: -- End of API body.
1405: -- Standard check of p_commit.
1406: IF FND_API.To_Boolean( p_commit ) THEN
1407: --dbms_output.put_line('committing');
1408: COMMIT WORK;
1409: END IF;
1410: -- Standard call to get message count and if count is 1, get message info.
1412: ( p_count => x_msg_count ,
1413: p_data => x_msg_data
1414: );
1415: EXCEPTION
1416: WHEN FND_API.G_EXC_ERROR THEN
1417: x_return_status := FND_API.G_RET_STS_ERROR ;
1418: FND_MSG_PUB.Count_And_Get
1419: ( p_count => x_msg_count ,
1420: p_data => x_msg_data
1413: p_data => x_msg_data
1414: );
1415: EXCEPTION
1416: WHEN FND_API.G_EXC_ERROR THEN
1417: x_return_status := FND_API.G_RET_STS_ERROR ;
1418: FND_MSG_PUB.Count_And_Get
1419: ( p_count => x_msg_count ,
1420: p_data => x_msg_data
1421: );
1420: p_data => x_msg_data
1421: );
1422:
1423:
1424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1426: FND_MSG_PUB.Count_And_Get
1427: (
1428: p_count => x_msg_count,
1421: );
1422:
1423:
1424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1426: FND_MSG_PUB.Count_And_Get
1427: (
1428: p_count => x_msg_count,
1429: p_data => x_msg_data
1429: p_data => x_msg_data
1430: );
1431:
1432: WHEN OTHERS THEN
1433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1434: IF FND_MSG_PUB.Check_Msg_Level
1435: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1436: THEN
1437: FND_MSG_PUB.Add_Exc_Msg
1449:
1450:
1451: PROCEDURE insert_into_wro(
1452: p_api_version IN NUMBER
1453: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1454: ,p_commit IN VARCHAR2 := fnd_api.g_false
1455: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1456: ,p_wip_entity_id IN NUMBER
1457: ,p_organization_id IN NUMBER
1450:
1451: PROCEDURE insert_into_wro(
1452: p_api_version IN NUMBER
1453: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1454: ,p_commit IN VARCHAR2 := fnd_api.g_false
1455: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1456: ,p_wip_entity_id IN NUMBER
1457: ,p_organization_id IN NUMBER
1458: ,p_inventory_item_id IN NUMBER
1451: PROCEDURE insert_into_wro(
1452: p_api_version IN NUMBER
1453: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1454: ,p_commit IN VARCHAR2 := fnd_api.g_false
1455: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1456: ,p_wip_entity_id IN NUMBER
1457: ,p_organization_id IN NUMBER
1458: ,p_inventory_item_id IN NUMBER
1459: ,p_description IN VARCHAR2
1547: SAVEPOINT get_insert_into_wro_pvt;
1548:
1549: l_stmt_num := 20;
1550: -- Standard call to check for call compatibility.
1551: IF NOT fnd_api.compatible_api_call(
1552: l_api_version
1553: ,p_api_version
1554: ,l_api_name
1555: ,g_pkg_name) THEN
1552: l_api_version
1553: ,p_api_version
1554: ,l_api_name
1555: ,g_pkg_name) THEN
1556: RAISE fnd_api.g_exc_unexpected_error;
1557: END IF;
1558:
1559: l_stmt_num := 30;
1560: -- Initialize message list if p_init_msg_list is set to TRUE.
1557: END IF;
1558:
1559: l_stmt_num := 30;
1560: -- Initialize message list if p_init_msg_list is set to TRUE.
1561: IF fnd_api.to_boolean(p_init_msg_list) THEN
1562: fnd_msg_pub.initialize;
1563: END IF;
1564:
1565: l_stmt_num := 40;
1563: END IF;
1564:
1565: l_stmt_num := 40;
1566: -- Initialize API return status to success
1567: x_return_status := fnd_api.g_ret_sts_success;
1568:
1569: l_stmt_num := 50;
1570: -- API body
1571:
1771: END IF;
1772:
1773: -- End of API body.
1774: -- Standard check of p_commit.
1775: IF fnd_api.to_boolean(p_commit)
1776: and x_return_status = 'S' THEN
1777: COMMIT WORK;
1778: END IF;
1779:
1782: fnd_msg_pub.count_and_get(
1783: p_count => x_msg_count
1784: ,p_data => x_msg_data);
1785: EXCEPTION
1786: WHEN fnd_api.g_exc_error THEN
1787: ROLLBACK TO get_insert_into_wro_pvt;
1788: x_return_status := fnd_api.g_ret_sts_error;
1789: fnd_msg_pub.count_and_get(
1790: -- p_encoded => FND_API.g_false
1784: ,p_data => x_msg_data);
1785: EXCEPTION
1786: WHEN fnd_api.g_exc_error THEN
1787: ROLLBACK TO get_insert_into_wro_pvt;
1788: x_return_status := fnd_api.g_ret_sts_error;
1789: fnd_msg_pub.count_and_get(
1790: -- p_encoded => FND_API.g_false
1791: p_count => x_msg_count
1792: ,p_data => x_msg_data);
1786: WHEN fnd_api.g_exc_error THEN
1787: ROLLBACK TO get_insert_into_wro_pvt;
1788: x_return_status := fnd_api.g_ret_sts_error;
1789: fnd_msg_pub.count_and_get(
1790: -- p_encoded => FND_API.g_false
1791: p_count => x_msg_count
1792: ,p_data => x_msg_data);
1793: WHEN fnd_api.g_exc_unexpected_error THEN
1794: ROLLBACK TO get_insert_into_wro_pvt;
1789: fnd_msg_pub.count_and_get(
1790: -- p_encoded => FND_API.g_false
1791: p_count => x_msg_count
1792: ,p_data => x_msg_data);
1793: WHEN fnd_api.g_exc_unexpected_error THEN
1794: ROLLBACK TO get_insert_into_wro_pvt;
1795: x_return_status := fnd_api.g_ret_sts_unexp_error;
1796:
1797: fnd_msg_pub.count_and_get(
1791: p_count => x_msg_count
1792: ,p_data => x_msg_data);
1793: WHEN fnd_api.g_exc_unexpected_error THEN
1794: ROLLBACK TO get_insert_into_wro_pvt;
1795: x_return_status := fnd_api.g_ret_sts_unexp_error;
1796:
1797: fnd_msg_pub.count_and_get(
1798: p_count => x_msg_count
1799: ,p_data => x_msg_data);
1798: p_count => x_msg_count
1799: ,p_data => x_msg_data);
1800: WHEN OTHERS THEN
1801: ROLLBACK TO get_insert_into_wro_pvt;
1802: x_return_status := fnd_api.g_ret_sts_unexp_error;
1803: IF fnd_msg_pub.check_msg_level(
1804: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1805: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1806: END IF;
1813:
1814:
1815: PROCEDURE insert_into_wdi(
1816: p_api_version IN NUMBER
1817: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1818: ,p_commit IN VARCHAR2 := fnd_api.g_false
1819: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1820: ,p_wip_entity_id IN NUMBER
1821: ,p_organization_id IN NUMBER
1814:
1815: PROCEDURE insert_into_wdi(
1816: p_api_version IN NUMBER
1817: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1818: ,p_commit IN VARCHAR2 := fnd_api.g_false
1819: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1820: ,p_wip_entity_id IN NUMBER
1821: ,p_organization_id IN NUMBER
1822: ,p_direct_item_seq_id IN NUMBER := NULL
1815: PROCEDURE insert_into_wdi(
1816: p_api_version IN NUMBER
1817: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1818: ,p_commit IN VARCHAR2 := fnd_api.g_false
1819: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1820: ,p_wip_entity_id IN NUMBER
1821: ,p_organization_id IN NUMBER
1822: ,p_direct_item_seq_id IN NUMBER := NULL
1823: ,p_description IN VARCHAR2
1920: SAVEPOINT get_insert_into_wro_pvt;
1921:
1922: l_stmt_num := 20;
1923: -- Standard call to check for call compatibility.
1924: IF NOT fnd_api.compatible_api_call(
1925: l_api_version
1926: ,p_api_version
1927: ,l_api_name
1928: ,g_pkg_name) THEN
1925: l_api_version
1926: ,p_api_version
1927: ,l_api_name
1928: ,g_pkg_name) THEN
1929: RAISE fnd_api.g_exc_unexpected_error;
1930: END IF;
1931:
1932: l_stmt_num := 30;
1933: -- Initialize message list if p_init_msg_list is set to TRUE.
1930: END IF;
1931:
1932: l_stmt_num := 30;
1933: -- Initialize message list if p_init_msg_list is set to TRUE.
1934: IF fnd_api.to_boolean(p_init_msg_list) THEN
1935: fnd_msg_pub.initialize;
1936: END IF;
1937:
1938: l_stmt_num := 40;
1936: END IF;
1937:
1938: l_stmt_num := 40;
1939: -- Initialize API return status to success
1940: x_return_status := fnd_api.g_ret_sts_success;
1941:
1942: l_stmt_num := 50;
1943: -- API body
1944:
2133: END IF;
2134:
2135: -- End of API body.
2136: -- Standard check of p_commit.
2137: IF fnd_api.to_boolean(p_commit)
2138: and x_return_status = 'S' THEN
2139: COMMIT WORK;
2140: END IF;
2141:
2144: fnd_msg_pub.count_and_get(
2145: p_count => x_msg_count
2146: ,p_data => x_msg_data);
2147: EXCEPTION
2148: WHEN fnd_api.g_exc_error THEN
2149: ROLLBACK TO get_insert_into_wro_pvt;
2150: x_return_status := fnd_api.g_ret_sts_error;
2151: fnd_msg_pub.count_and_get(
2152: -- p_encoded => FND_API.g_false
2146: ,p_data => x_msg_data);
2147: EXCEPTION
2148: WHEN fnd_api.g_exc_error THEN
2149: ROLLBACK TO get_insert_into_wro_pvt;
2150: x_return_status := fnd_api.g_ret_sts_error;
2151: fnd_msg_pub.count_and_get(
2152: -- p_encoded => FND_API.g_false
2153: p_count => x_msg_count
2154: ,p_data => x_msg_data);
2148: WHEN fnd_api.g_exc_error THEN
2149: ROLLBACK TO get_insert_into_wro_pvt;
2150: x_return_status := fnd_api.g_ret_sts_error;
2151: fnd_msg_pub.count_and_get(
2152: -- p_encoded => FND_API.g_false
2153: p_count => x_msg_count
2154: ,p_data => x_msg_data);
2155: WHEN fnd_api.g_exc_unexpected_error THEN
2156: ROLLBACK TO get_insert_into_wro_pvt;
2151: fnd_msg_pub.count_and_get(
2152: -- p_encoded => FND_API.g_false
2153: p_count => x_msg_count
2154: ,p_data => x_msg_data);
2155: WHEN fnd_api.g_exc_unexpected_error THEN
2156: ROLLBACK TO get_insert_into_wro_pvt;
2157: x_return_status := fnd_api.g_ret_sts_unexp_error;
2158:
2159: fnd_msg_pub.count_and_get(
2153: p_count => x_msg_count
2154: ,p_data => x_msg_data);
2155: WHEN fnd_api.g_exc_unexpected_error THEN
2156: ROLLBACK TO get_insert_into_wro_pvt;
2157: x_return_status := fnd_api.g_ret_sts_unexp_error;
2158:
2159: fnd_msg_pub.count_and_get(
2160: p_count => x_msg_count
2161: ,p_data => x_msg_data);
2160: p_count => x_msg_count
2161: ,p_data => x_msg_data);
2162: WHEN OTHERS THEN
2163: ROLLBACK TO get_insert_into_wro_pvt;
2164: x_return_status := fnd_api.g_ret_sts_unexp_error;
2165: IF fnd_msg_pub.check_msg_level(
2166: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2167: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2168: END IF;