[Home] [Help]
22: g_pkg_name CONSTANT VARCHAR2(30):= 'EAM_PROCESS_WO_PUB';
23:
24: PROCEDURE DELETE_RELATIONSHIP
25: ( p_api_version IN NUMBER
26: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
27: , p_commit IN VARCHAR2 := FND_API.G_FALSE
28: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29:
30: , p_parent_object_id IN NUMBER
23:
24: PROCEDURE DELETE_RELATIONSHIP
25: ( p_api_version IN NUMBER
26: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
27: , p_commit IN VARCHAR2 := FND_API.G_FALSE
28: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29:
30: , p_parent_object_id IN NUMBER
31: , p_parent_object_type_id IN NUMBER
24: PROCEDURE DELETE_RELATIONSHIP
25: ( p_api_version IN NUMBER
26: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
27: , p_commit IN VARCHAR2 := FND_API.G_FALSE
28: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29:
30: , p_parent_object_id IN NUMBER
31: , p_parent_object_type_id IN NUMBER
32: , p_child_object_id IN NUMBER
417: , x_mesg_token_tbl => l_out_mesg_token_tbl
418: );
419: l_mesg_token_tbl := l_out_mesg_token_tbl;
420:
421: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
422: THEN
423: EAM_PROCESS_WO_PVT.Set_Debug('N');
424: END IF;
425: END IF;
428:
429:
430:
431:
432: l_return_status := FND_API.G_RET_STS_SUCCESS;
433: l_eam_return_status := FND_API.G_RET_STS_SUCCESS;
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435:
436: l_eam_wo_tbl.delete;
429:
430:
431:
432: l_return_status := FND_API.G_RET_STS_SUCCESS;
433: l_eam_return_status := FND_API.G_RET_STS_SUCCESS;
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435:
436: l_eam_wo_tbl.delete;
437: l_eam_wo_relations_tbl.delete;
430:
431:
432: l_return_status := FND_API.G_RET_STS_SUCCESS;
433: l_eam_return_status := FND_API.G_RET_STS_SUCCESS;
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435:
436: l_eam_wo_tbl.delete;
437: l_eam_wo_relations_tbl.delete;
438: l_eam_op_tbl.delete;
672:
673:
674: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('CHECK_BO_NETWORK completed with status ='||l_return_status) ; END IF ;
675:
676: if nvl(l_return_status,FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS then
677:
678: l_out_mesg_token_tbl := l_mesg_token_tbl;
679: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
680: ( p_message_name => 'EAM_WN_BO_NET_ERR'
752: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
753: END IF;
754:
755:
756: l_eam_return_status := FND_API.G_RET_STS_ERROR;
757: x_return_status := FND_API.G_RET_STS_ERROR;
758: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
759: return;
760: end if;
753: END IF;
754:
755:
756: l_eam_return_status := FND_API.G_RET_STS_ERROR;
757: x_return_status := FND_API.G_RET_STS_ERROR;
758: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
759: return;
760: end if;
761:
1182: -- till start of this current WO process start
1183: IF nvl(l_return_status,'Q') <> 'S' THEN
1184: rollback to Single_WO_Process;
1185:
1186: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1187: x_return_status := FND_API.G_RET_STS_ERROR;
1188:
1189: -- Also disregard all relations pertaining to this work
1190: -- order as not valid;
1183: IF nvl(l_return_status,'Q') <> 'S' THEN
1184: rollback to Single_WO_Process;
1185:
1186: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1187: x_return_status := FND_API.G_RET_STS_ERROR;
1188:
1189: -- Also disregard all relations pertaining to this work
1190: -- order as not valid;
1191: if l_eam_wo_relations_tbl.count <> 0 then
1193:
1194: if l_eam_wo_relations_tbl(j).parent_header_id = l_header_id or
1195: l_eam_wo_relations_tbl(j).child_header_id = l_header_id or
1196: l_eam_wo_relations_tbl(j).top_level_header_id = l_header_id then
1197: l_eam_wo_relations_tbl(j).return_status := FND_API.G_RET_STS_ERROR;
1198: end if;
1199:
1200: end loop;
1201: end if;
1414: , x_mesg_token_tbl => l_out_mesg_token_tbl
1415: );
1416: l_mesg_token_tbl := l_out_mesg_token_tbl;
1417:
1418: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1419: THEN
1420: EAM_PROCESS_WO_PVT.Set_Debug('N');
1421: END IF;
1422: END IF;
1455:
1456: EAM_WO_NETWORK_DEFAULT_PVT.Check_Wo_Dates
1457: (
1458: p_api_version => 1.0,
1459: p_init_msg_list => FND_API.G_FALSE,
1460: p_commit => FND_API.G_FALSE,
1461: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1462: p_wip_entity_id => l_temp_wip_entity_id,
1463: x_return_status => l_return_status,
1456: EAM_WO_NETWORK_DEFAULT_PVT.Check_Wo_Dates
1457: (
1458: p_api_version => 1.0,
1459: p_init_msg_list => FND_API.G_FALSE,
1460: p_commit => FND_API.G_FALSE,
1461: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1462: p_wip_entity_id => l_temp_wip_entity_id,
1463: x_return_status => l_return_status,
1464: x_msg_count => l_msg_count,
1457: (
1458: p_api_version => 1.0,
1459: p_init_msg_list => FND_API.G_FALSE,
1460: p_commit => FND_API.G_FALSE,
1461: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1462: p_wip_entity_id => l_temp_wip_entity_id,
1463: x_return_status => l_return_status,
1464: x_msg_count => l_msg_count,
1465: x_msg_data => l_msg_data
1466: );
1467:
1468: IF ( EAM_PROCESS_WO_PVT.Get_Debug = 'Y' AND l_temp_index = 1 ) THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Wo_Dates for parent wo completed with status of '||l_return_status) ; END IF ;
1469: IF ( EAM_PROCESS_WO_PVT.Get_Debug = 'Y' AND l_temp_index = 2 ) THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Wo_Dates for child wo completed with status of '||l_return_status) ; END IF ;
1470: IF l_return_status = FND_API.G_RET_STS_ERROR OR
1471: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1472:
1473: --Before inserting the error message, insert the confirmation message of work order creation.
1474: x_return_status := l_return_status;
1467:
1468: IF ( EAM_PROCESS_WO_PVT.Get_Debug = 'Y' AND l_temp_index = 1 ) THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Wo_Dates for parent wo completed with status of '||l_return_status) ; END IF ;
1469: IF ( EAM_PROCESS_WO_PVT.Get_Debug = 'Y' AND l_temp_index = 2 ) THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check_Wo_Dates for child wo completed with status of '||l_return_status) ; END IF ;
1470: IF l_return_status = FND_API.G_RET_STS_ERROR OR
1471: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1472:
1473: --Before inserting the error message, insert the confirmation message of work order creation.
1474: x_return_status := l_return_status;
1475: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
1472:
1473: --Before inserting the error message, insert the confirmation message of work order creation.
1474: x_return_status := l_return_status;
1475: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
1476: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1477:
1478: if l_eam_wo_list.count > 0 then
1479: for l_new_wo_list in l_eam_wo_list.first..l_eam_wo_list.last loop
1480: eam_execution_jsp.add_message(p_app_short_name => 'EAM',
1492: p_msg_name => 'EAM_WO_CHK_DATES_ERR',
1493: p_token1 => 'WORKORDER', p_value1 => l_wo_name);
1494:
1495: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
1496: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1497: end if;
1498: end if;
1499: l_temp_wip_entity_id := l_eam_wo_relations_tbl(i).CHILD_OBJECT_ID;
1500: END LOOP;
1507: IF ( EAM_PROCESS_WO_PVT.Get_Debug = 'Y') THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Entering the Add_WO_To_Network procedure ... ') ; END IF ;
1508:
1509: EAM_WO_NETWORK_DEFAULT_PVT.Add_WO_To_Network(
1510: p_api_version => 1.0,
1511: p_init_msg_list => FND_API.G_FALSE,
1512: p_commit => FND_API.G_FALSE,
1513: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1514:
1515: p_child_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1508:
1509: EAM_WO_NETWORK_DEFAULT_PVT.Add_WO_To_Network(
1510: p_api_version => 1.0,
1511: p_init_msg_list => FND_API.G_FALSE,
1512: p_commit => FND_API.G_FALSE,
1513: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1514:
1515: p_child_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1516: p_child_object_type_id => l_eam_wo_relations_tbl(i).child_object_type_id,
1509: EAM_WO_NETWORK_DEFAULT_PVT.Add_WO_To_Network(
1510: p_api_version => 1.0,
1511: p_init_msg_list => FND_API.G_FALSE,
1512: p_commit => FND_API.G_FALSE,
1513: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1514:
1515: p_child_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1516: p_child_object_type_id => l_eam_wo_relations_tbl(i).child_object_type_id,
1517: p_parent_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1528: l_eam_wo_relations_tbl(i).return_status := l_return_status;
1529:
1530: if l_return_status <> 'S' then
1531:
1532: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1533: x_return_status := FND_API.G_RET_STS_ERROR;
1534:
1535: rollback to Add_Wo_To_Network_Start;
1536:
1529:
1530: if l_return_status <> 'S' then
1531:
1532: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1533: x_return_status := FND_API.G_RET_STS_ERROR;
1534:
1535: rollback to Add_Wo_To_Network_Start;
1536:
1537: l_out_eam_wo_rec := l_eam_wo_rec;
1563: , p_eam_res_usage_tbl => l_eam_res_usage_tbl
1564: , p_eam_mat_req_tbl => l_eam_mat_req_tbl
1565: , p_eam_direct_items_tbl => l_eam_di_tbl
1566: , p_mesg_token_tbl => l_mesg_token_tbl
1567: , p_error_status => FND_API.G_RET_STS_ERROR
1568: , p_error_scope => EAM_ERROR_MESSAGE_PVT.G_SCOPE_RECORD
1569: , p_other_status => EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1570: , p_other_message => l_other_message
1571: , p_other_token_tbl => l_other_token_tbl
1611:
1612: EAM_WO_NETWORK_DEFAULT_PVT.Add_Dependency
1613: (
1614: p_api_version => 1.0,
1615: p_init_msg_list => FND_API.G_FALSE,
1616: p_commit => FND_API.G_FALSE,
1617: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1618:
1619: p_prior_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1612: EAM_WO_NETWORK_DEFAULT_PVT.Add_Dependency
1613: (
1614: p_api_version => 1.0,
1615: p_init_msg_list => FND_API.G_FALSE,
1616: p_commit => FND_API.G_FALSE,
1617: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1618:
1619: p_prior_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1620: p_prior_object_type_id => l_eam_wo_relations_tbl(i).parent_object_type_id,
1613: (
1614: p_api_version => 1.0,
1615: p_init_msg_list => FND_API.G_FALSE,
1616: p_commit => FND_API.G_FALSE,
1617: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1618:
1619: p_prior_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1620: p_prior_object_type_id => l_eam_wo_relations_tbl(i).parent_object_type_id,
1621: p_next_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1630: l_eam_wo_relations_tbl(i).return_status := l_return_status;
1631:
1632: if l_return_status <> 'S' then
1633:
1634: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1635: x_return_status := FND_API.G_RET_STS_ERROR;
1636:
1637:
1638: rollback to Add_Dependency_Start;
1631:
1632: if l_return_status <> 'S' then
1633:
1634: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1635: x_return_status := FND_API.G_RET_STS_ERROR;
1636:
1637:
1638: rollback to Add_Dependency_Start;
1639:
1666: , p_eam_res_usage_tbl => l_eam_res_usage_tbl
1667: , p_eam_mat_req_tbl => l_eam_mat_req_tbl
1668: , p_eam_direct_items_tbl => l_eam_di_tbl
1669: , p_mesg_token_tbl => l_mesg_token_tbl
1670: , p_error_status => FND_API.G_RET_STS_ERROR
1671: , p_error_scope => EAM_ERROR_MESSAGE_PVT.G_SCOPE_RECORD
1672: , p_other_status => EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1673: , p_other_message => l_other_message
1674: , p_other_token_tbl => l_other_token_tbl
1718:
1719: EAM_WO_NETWORK_DEFAULT_PVT.Delink_Child_From_Parent
1720: (
1721: p_api_version => 1.0,
1722: p_init_msg_list => FND_API.G_FALSE,
1723: p_commit => FND_API.G_FALSE,
1724: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1725:
1726: p_child_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1719: EAM_WO_NETWORK_DEFAULT_PVT.Delink_Child_From_Parent
1720: (
1721: p_api_version => 1.0,
1722: p_init_msg_list => FND_API.G_FALSE,
1723: p_commit => FND_API.G_FALSE,
1724: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1725:
1726: p_child_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1727: p_child_object_type_id => l_eam_wo_relations_tbl(i).child_object_type_id,
1720: (
1721: p_api_version => 1.0,
1722: p_init_msg_list => FND_API.G_FALSE,
1723: p_commit => FND_API.G_FALSE,
1724: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1725:
1726: p_child_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1727: p_child_object_type_id => l_eam_wo_relations_tbl(i).child_object_type_id,
1728: p_parent_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1740:
1741:
1742: if l_return_status <> 'S' then
1743:
1744: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1745: x_return_status := FND_API.G_RET_STS_ERROR;
1746:
1747:
1748: rollback to Delink_Relation_Start;
1741:
1742: if l_return_status <> 'S' then
1743:
1744: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1745: x_return_status := FND_API.G_RET_STS_ERROR;
1746:
1747:
1748: rollback to Delink_Relation_Start;
1749:
1776: , p_eam_res_usage_tbl => l_eam_res_usage_tbl
1777: , p_eam_mat_req_tbl => l_eam_mat_req_tbl
1778: , p_eam_direct_items_tbl => l_eam_di_tbl
1779: , p_mesg_token_tbl => l_mesg_token_tbl
1780: , p_error_status => FND_API.G_RET_STS_ERROR
1781: , p_error_scope => EAM_ERROR_MESSAGE_PVT.G_SCOPE_RECORD
1782: , p_other_status => EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1783: , p_other_message => l_other_message
1784: , p_other_token_tbl => l_other_token_tbl
1823:
1824: EAM_WO_NETWORK_DEFAULT_PVT.Delete_Dependency
1825: (
1826: p_api_version => 1.0,
1827: p_init_msg_list => FND_API.G_FALSE,
1828: p_commit => FND_API.G_FALSE,
1829: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1830:
1831: p_prior_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1824: EAM_WO_NETWORK_DEFAULT_PVT.Delete_Dependency
1825: (
1826: p_api_version => 1.0,
1827: p_init_msg_list => FND_API.G_FALSE,
1828: p_commit => FND_API.G_FALSE,
1829: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1830:
1831: p_prior_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1832: p_prior_object_type_id => l_eam_wo_relations_tbl(i).parent_object_type_id,
1825: (
1826: p_api_version => 1.0,
1827: p_init_msg_list => FND_API.G_FALSE,
1828: p_commit => FND_API.G_FALSE,
1829: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1830:
1831: p_prior_object_id => l_eam_wo_relations_tbl(i).parent_object_id,
1832: p_prior_object_type_id => l_eam_wo_relations_tbl(i).parent_object_type_id,
1833: p_next_object_id => l_eam_wo_relations_tbl(i).child_object_id,
1844:
1845:
1846: if l_return_status <> 'S' then
1847:
1848: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850:
1851:
1852: rollback to Delete_Dependency_Start;
1845:
1846: if l_return_status <> 'S' then
1847:
1848: l_eam_return_status := FND_API.G_RET_STS_ERROR;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850:
1851:
1852: rollback to Delete_Dependency_Start;
1853:
1881: , p_eam_res_usage_tbl => l_eam_res_usage_tbl
1882: , p_eam_mat_req_tbl => l_eam_mat_req_tbl
1883: , p_eam_direct_items_tbl => l_eam_di_tbl
1884: , p_mesg_token_tbl => l_mesg_token_tbl
1885: , p_error_status => FND_API.G_RET_STS_ERROR
1886: , p_error_scope => EAM_ERROR_MESSAGE_PVT.G_SCOPE_RECORD
1887: , p_other_status => EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
1888: , p_other_message => l_other_message
1889: , p_other_token_tbl => l_other_token_tbl
1940:
1941: EAM_WO_NETWORK_VALIDATE_PVT.Validate_Structure
1942: (
1943: p_api_version => 1.0,
1944: p_init_msg_list => FND_API.G_FALSE,
1945: p_commit => FND_API.G_FALSE,
1946: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1947:
1948: p_work_object_id => l_eam_wo_tbl(l_eam_wo_tbl.first).wip_entity_id,
1941: EAM_WO_NETWORK_VALIDATE_PVT.Validate_Structure
1942: (
1943: p_api_version => 1.0,
1944: p_init_msg_list => FND_API.G_FALSE,
1945: p_commit => FND_API.G_FALSE,
1946: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1947:
1948: p_work_object_id => l_eam_wo_tbl(l_eam_wo_tbl.first).wip_entity_id,
1949: p_work_object_type_id => 1,
1942: (
1943: p_api_version => 1.0,
1944: p_init_msg_list => FND_API.G_FALSE,
1945: p_commit => FND_API.G_FALSE,
1946: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1947:
1948: p_work_object_id => l_eam_wo_tbl(l_eam_wo_tbl.first).wip_entity_id,
1949: p_work_object_type_id => 1,
1950: p_exception_logging => 'Y',
1958: x_wo_relationship_exc_tbl => l_wo_relationship_exc_tbl
1959: );
1960:
1961:
1962: IF l_return_status = FND_API.G_RET_STS_ERROR OR
1963: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1964:
1965: x_return_status := l_return_status; -- added for bug# 3544860
1966:
1959: );
1960:
1961:
1962: IF l_return_status = FND_API.G_RET_STS_ERROR OR
1963: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1964:
1965: x_return_status := l_return_status; -- added for bug# 3544860
1966:
1967: l_out_mesg_token_tbl := l_mesg_token_tbl;
2003: , p_eam_res_usage_tbl => l_eam_res_usage_tbl
2004: , p_eam_mat_req_tbl => l_eam_mat_req_tbl
2005: , p_eam_direct_items_tbl => l_eam_di_tbl
2006: , p_mesg_token_tbl => l_mesg_token_tbl
2007: , p_error_status => FND_API.G_RET_STS_ERROR
2008: , p_error_scope => EAM_ERROR_MESSAGE_PVT.G_SCOPE_RECORD
2009: , p_other_status => EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2010: , p_other_message => l_other_message
2011: , p_other_token_tbl => l_other_token_tbl
2087: x_eam_wo_comp_mr_read_tbl := l_eam_wo_comp_mr_read_tbl;
2088: x_eam_op_comp_tbl := l_eam_op_comp_tbl;
2089: x_eam_request_tbl := l_eam_request_tbl;
2090:
2091: if nvl(l_eam_return_status,FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS then
2092: x_return_status := FND_API.G_RET_STS_ERROR;
2093: end if;
2094:
2095: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
2088: x_eam_op_comp_tbl := l_eam_op_comp_tbl;
2089: x_eam_request_tbl := l_eam_request_tbl;
2090:
2091: if nvl(l_eam_return_status,FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS then
2092: x_return_status := FND_API.G_RET_STS_ERROR;
2093: end if;
2094:
2095: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
2096:
2149: , p_eam_res_usage_tbl => l_eam_res_usage_tbl
2150: , p_eam_mat_req_tbl => l_eam_mat_req_tbl
2151: , p_eam_direct_items_tbl => l_eam_di_tbl
2152: , p_mesg_token_tbl => l_mesg_token_tbl
2153: , p_error_status => FND_API.G_RET_STS_ERROR
2154: , p_error_scope => EAM_ERROR_MESSAGE_PVT.G_SCOPE_RECORD
2155: , p_other_status => EAM_ERROR_MESSAGE_PVT.G_STATUS_ERROR
2156: , p_other_message => l_other_message
2157: , p_other_token_tbl => l_other_token_tbl
2251: l_batch_id NUMBER;
2252: l_header_id_tbl EAM_PROCESS_WO_PUB.header_id_tbl_type;
2253: l_count NUMBER;
2254: l_header_id NUMBER;
2255: l_found VARCHAR2(1) := FND_API.G_FALSE;
2256: l_return_status VARCHAR2(1);
2257:
2258: l_eam_wo_tbl EAM_PROCESS_WO_PUB.eam_wo_tbl_type
2259: := p_eam_wo_tbl;
2294: := p_eam_request_tbl;
2295:
2296: BEGIN
2297:
2298: l_return_status := FND_API.G_RET_STS_SUCCESS;
2299:
2300: l_batch_id := null;
2301:
2302: if l_eam_wo_tbl.count > 0 then
2301:
2302: if l_eam_wo_tbl.count > 0 then
2303: FOR i in l_eam_wo_tbl.first..l_eam_wo_tbl.last LOOP
2304: IF l_eam_wo_tbl(i).batch_id is null or l_eam_wo_tbl(i).header_id is null then
2305: l_return_status := FND_API.G_RET_STS_ERROR;
2306: return;
2307: END IF;
2308: l_eam_wo_tbl(i).row_id := i;
2309: IF l_batch_id = null THEN
2308: l_eam_wo_tbl(i).row_id := i;
2309: IF l_batch_id = null THEN
2310: l_batch_id := l_eam_wo_tbl(i).batch_id;
2311: ELSIF l_batch_id <> l_eam_wo_tbl(i).batch_id THEN
2312: l_return_status := FND_API.G_RET_STS_ERROR;
2313: END IF;
2314: l_header_id := l_eam_wo_tbl(i).header_id;
2315: l_found := FND_API.G_FALSE;
2316: if l_header_id_tbl.count > 0 then
2311: ELSIF l_batch_id <> l_eam_wo_tbl(i).batch_id THEN
2312: l_return_status := FND_API.G_RET_STS_ERROR;
2313: END IF;
2314: l_header_id := l_eam_wo_tbl(i).header_id;
2315: l_found := FND_API.G_FALSE;
2316: if l_header_id_tbl.count > 0 then
2317: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2318: if l_header_id = l_header_id_tbl(j).header_id then
2319: l_found := FND_API.G_TRUE;
2315: l_found := FND_API.G_FALSE;
2316: if l_header_id_tbl.count > 0 then
2317: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2318: if l_header_id = l_header_id_tbl(j).header_id then
2319: l_found := FND_API.G_TRUE;
2320: end if;
2321: end loop;
2322: end if;
2323: if l_found = FND_API.G_FALSE then
2319: l_found := FND_API.G_TRUE;
2320: end if;
2321: end loop;
2322: end if;
2323: if l_found = FND_API.G_FALSE then
2324: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2325: end if;
2326: END LOOP;
2327: end if;
2329:
2330: if l_eam_op_tbl.count > 0 then
2331: FOR i in l_eam_op_tbl.first..l_eam_op_tbl.last LOOP
2332: IF l_eam_op_tbl(i).batch_id is null or l_eam_op_tbl(i).header_id is null then
2333: l_return_status := FND_API.G_RET_STS_ERROR;
2334: return;
2335: END IF;
2336: l_eam_op_tbl(i).row_id := i;
2337: IF l_batch_id = null THEN
2336: l_eam_op_tbl(i).row_id := i;
2337: IF l_batch_id = null THEN
2338: l_batch_id := l_eam_op_tbl(i).batch_id;
2339: ELSIF l_batch_id <> l_eam_op_tbl(i).batch_id THEN
2340: l_return_status := FND_API.G_RET_STS_ERROR;
2341: END IF;
2342: l_header_id := l_eam_op_tbl(i).header_id;
2343: l_found := FND_API.G_FALSE;
2344: if l_header_id_tbl.count > 0 then
2339: ELSIF l_batch_id <> l_eam_op_tbl(i).batch_id THEN
2340: l_return_status := FND_API.G_RET_STS_ERROR;
2341: END IF;
2342: l_header_id := l_eam_op_tbl(i).header_id;
2343: l_found := FND_API.G_FALSE;
2344: if l_header_id_tbl.count > 0 then
2345: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2346: if l_header_id = l_header_id_tbl(j).header_id then
2347: l_found := FND_API.G_TRUE;
2343: l_found := FND_API.G_FALSE;
2344: if l_header_id_tbl.count > 0 then
2345: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2346: if l_header_id = l_header_id_tbl(j).header_id then
2347: l_found := FND_API.G_TRUE;
2348: end if;
2349: end loop;
2350: end if;
2351: if l_found = FND_API.G_FALSE then
2347: l_found := FND_API.G_TRUE;
2348: end if;
2349: end loop;
2350: end if;
2351: if l_found = FND_API.G_FALSE then
2352: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2353: end if;
2354: END LOOP;
2355: end if;
2357:
2358: if l_eam_op_network_tbl.count > 0 then
2359: FOR i in l_eam_op_network_tbl.first..l_eam_op_network_tbl.last LOOP
2360: IF l_eam_op_network_tbl(i).batch_id is null or l_eam_op_network_tbl(i).header_id is null then
2361: l_return_status := FND_API.G_RET_STS_ERROR;
2362: return;
2363: END IF;
2364: l_eam_op_network_tbl(i).row_id := i;
2365: IF l_batch_id = null THEN
2364: l_eam_op_network_tbl(i).row_id := i;
2365: IF l_batch_id = null THEN
2366: l_batch_id := l_eam_op_network_tbl(i).batch_id;
2367: ELSIF l_batch_id <> l_eam_op_network_tbl(i).batch_id THEN
2368: l_return_status := FND_API.G_RET_STS_ERROR;
2369: END IF;
2370: l_header_id := l_eam_op_network_tbl(i).header_id;
2371: l_found := FND_API.G_FALSE;
2372: if l_header_id_tbl.count > 0 then
2367: ELSIF l_batch_id <> l_eam_op_network_tbl(i).batch_id THEN
2368: l_return_status := FND_API.G_RET_STS_ERROR;
2369: END IF;
2370: l_header_id := l_eam_op_network_tbl(i).header_id;
2371: l_found := FND_API.G_FALSE;
2372: if l_header_id_tbl.count > 0 then
2373: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2374: if l_header_id = l_header_id_tbl(j).header_id then
2375: l_found := FND_API.G_TRUE;
2371: l_found := FND_API.G_FALSE;
2372: if l_header_id_tbl.count > 0 then
2373: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2374: if l_header_id = l_header_id_tbl(j).header_id then
2375: l_found := FND_API.G_TRUE;
2376: end if;
2377: end loop;
2378: end if;
2379: if l_found = FND_API.G_FALSE then
2375: l_found := FND_API.G_TRUE;
2376: end if;
2377: end loop;
2378: end if;
2379: if l_found = FND_API.G_FALSE then
2380: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2381: end if;
2382: END LOOP;
2383: end if;
2384:
2385: if l_eam_res_tbl.count > 0 then
2386: FOR i in l_eam_res_tbl.first..l_eam_res_tbl.last LOOP
2387: IF l_eam_res_tbl(i).batch_id is null or l_eam_res_tbl(i).header_id is null then
2388: l_return_status := FND_API.G_RET_STS_ERROR;
2389: return;
2390: END IF;
2391: l_eam_res_tbl(i).row_id := i;
2392: IF l_batch_id = null THEN
2391: l_eam_res_tbl(i).row_id := i;
2392: IF l_batch_id = null THEN
2393: l_batch_id := l_eam_res_tbl(i).batch_id;
2394: ELSIF l_batch_id <> l_eam_res_tbl(i).batch_id THEN
2395: l_return_status := FND_API.G_RET_STS_ERROR;
2396: END IF;
2397: l_header_id := l_eam_res_tbl(i).header_id;
2398: l_found := FND_API.G_FALSE;
2399: if l_header_id_tbl.count > 0 then
2394: ELSIF l_batch_id <> l_eam_res_tbl(i).batch_id THEN
2395: l_return_status := FND_API.G_RET_STS_ERROR;
2396: END IF;
2397: l_header_id := l_eam_res_tbl(i).header_id;
2398: l_found := FND_API.G_FALSE;
2399: if l_header_id_tbl.count > 0 then
2400: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2401: if l_header_id = l_header_id_tbl(j).header_id then
2402: l_found := FND_API.G_TRUE;
2398: l_found := FND_API.G_FALSE;
2399: if l_header_id_tbl.count > 0 then
2400: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2401: if l_header_id = l_header_id_tbl(j).header_id then
2402: l_found := FND_API.G_TRUE;
2403: end if;
2404: end loop;
2405: end if;
2406: if l_found = FND_API.G_FALSE then
2402: l_found := FND_API.G_TRUE;
2403: end if;
2404: end loop;
2405: end if;
2406: if l_found = FND_API.G_FALSE then
2407: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2408: end if;
2409: END LOOP;
2410: end if;
2411:
2412: if l_eam_res_inst_tbl.count > 0 then
2413: FOR i in l_eam_res_inst_tbl.first..l_eam_res_inst_tbl.last LOOP
2414: IF l_eam_res_inst_tbl(i).batch_id is null or l_eam_res_inst_tbl(i).header_id is null then
2415: l_return_status := FND_API.G_RET_STS_ERROR;
2416: return;
2417: END IF;
2418: l_eam_res_inst_tbl(i).row_id := i;
2419: IF l_batch_id = null THEN
2418: l_eam_res_inst_tbl(i).row_id := i;
2419: IF l_batch_id = null THEN
2420: l_batch_id := l_eam_res_inst_tbl(i).batch_id;
2421: ELSIF l_batch_id <> l_eam_res_inst_tbl(i).batch_id THEN
2422: l_return_status := FND_API.G_RET_STS_ERROR;
2423: END IF;
2424: l_header_id := l_eam_res_inst_tbl(i).header_id;
2425: l_found := FND_API.G_FALSE;
2426: if l_header_id_tbl.count > 0 then
2421: ELSIF l_batch_id <> l_eam_res_inst_tbl(i).batch_id THEN
2422: l_return_status := FND_API.G_RET_STS_ERROR;
2423: END IF;
2424: l_header_id := l_eam_res_inst_tbl(i).header_id;
2425: l_found := FND_API.G_FALSE;
2426: if l_header_id_tbl.count > 0 then
2427: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2428: if l_header_id = l_header_id_tbl(j).header_id then
2429: l_found := FND_API.G_TRUE;
2425: l_found := FND_API.G_FALSE;
2426: if l_header_id_tbl.count > 0 then
2427: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2428: if l_header_id = l_header_id_tbl(j).header_id then
2429: l_found := FND_API.G_TRUE;
2430: end if;
2431: end loop;
2432: end if;
2433: if l_found = FND_API.G_FALSE then
2429: l_found := FND_API.G_TRUE;
2430: end if;
2431: end loop;
2432: end if;
2433: if l_found = FND_API.G_FALSE then
2434: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2435: end if;
2436: END LOOP;
2437: end if;
2438:
2439: if l_eam_sub_res_tbl.count > 0 then
2440: FOR i in l_eam_sub_res_tbl.first..l_eam_sub_res_tbl.last LOOP
2441: IF l_eam_sub_res_tbl(i).batch_id is null or l_eam_sub_res_tbl(i).header_id is null then
2442: l_return_status := FND_API.G_RET_STS_ERROR;
2443: return;
2444: END IF;
2445: l_eam_sub_res_tbl(i).row_id := i;
2446: IF l_batch_id = null THEN
2445: l_eam_sub_res_tbl(i).row_id := i;
2446: IF l_batch_id = null THEN
2447: l_batch_id := l_eam_sub_res_tbl(i).batch_id;
2448: ELSIF l_batch_id <> l_eam_sub_res_tbl(i).batch_id THEN
2449: l_return_status := FND_API.G_RET_STS_ERROR;
2450: END IF;
2451: l_header_id := l_eam_sub_res_tbl(i).header_id;
2452: l_found := FND_API.G_FALSE;
2453: if l_header_id_tbl.count > 0 then
2448: ELSIF l_batch_id <> l_eam_sub_res_tbl(i).batch_id THEN
2449: l_return_status := FND_API.G_RET_STS_ERROR;
2450: END IF;
2451: l_header_id := l_eam_sub_res_tbl(i).header_id;
2452: l_found := FND_API.G_FALSE;
2453: if l_header_id_tbl.count > 0 then
2454: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2455: if l_header_id = l_header_id_tbl(j).header_id then
2456: l_found := FND_API.G_TRUE;
2452: l_found := FND_API.G_FALSE;
2453: if l_header_id_tbl.count > 0 then
2454: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2455: if l_header_id = l_header_id_tbl(j).header_id then
2456: l_found := FND_API.G_TRUE;
2457: end if;
2458: end loop;
2459: end if;
2460: if l_found = FND_API.G_FALSE then
2456: l_found := FND_API.G_TRUE;
2457: end if;
2458: end loop;
2459: end if;
2460: if l_found = FND_API.G_FALSE then
2461: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2462: end if;
2463: END LOOP;
2464: end if;
2465:
2466: if l_eam_res_usage_tbl.count > 0 then
2467: FOR i in l_eam_res_usage_tbl.first..l_eam_res_usage_tbl.last LOOP
2468: IF l_eam_res_usage_tbl(i).batch_id is null or l_eam_res_usage_tbl(i).header_id is null then
2469: l_return_status := FND_API.G_RET_STS_ERROR;
2470: return;
2471: END IF;
2472: l_eam_res_usage_tbl(i).row_id := i;
2473: IF l_batch_id = null THEN
2472: l_eam_res_usage_tbl(i).row_id := i;
2473: IF l_batch_id = null THEN
2474: l_batch_id := l_eam_res_usage_tbl(i).batch_id;
2475: ELSIF l_batch_id <> l_eam_res_usage_tbl(i).batch_id THEN
2476: l_return_status := FND_API.G_RET_STS_ERROR;
2477: END IF;
2478: l_header_id := l_eam_res_usage_tbl(i).header_id;
2479: l_found := FND_API.G_FALSE;
2480: if l_header_id_tbl.count > 0 then
2475: ELSIF l_batch_id <> l_eam_res_usage_tbl(i).batch_id THEN
2476: l_return_status := FND_API.G_RET_STS_ERROR;
2477: END IF;
2478: l_header_id := l_eam_res_usage_tbl(i).header_id;
2479: l_found := FND_API.G_FALSE;
2480: if l_header_id_tbl.count > 0 then
2481: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2482: if l_header_id = l_header_id_tbl(j).header_id then
2483: l_found := FND_API.G_TRUE;
2479: l_found := FND_API.G_FALSE;
2480: if l_header_id_tbl.count > 0 then
2481: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2482: if l_header_id = l_header_id_tbl(j).header_id then
2483: l_found := FND_API.G_TRUE;
2484: end if;
2485: end loop;
2486: end if;
2487: if l_found = FND_API.G_FALSE then
2483: l_found := FND_API.G_TRUE;
2484: end if;
2485: end loop;
2486: end if;
2487: if l_found = FND_API.G_FALSE then
2488: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2489: end if;
2490: END LOOP;
2491: end if;
2492:
2493: if l_eam_mat_req_tbl.count > 0 then
2494: FOR i in l_eam_mat_req_tbl.first..l_eam_mat_req_tbl.last LOOP
2495: IF l_eam_mat_req_tbl(i).batch_id is null or l_eam_mat_req_tbl(i).header_id is null then
2496: l_return_status := FND_API.G_RET_STS_ERROR;
2497: return;
2498: END IF;
2499: l_eam_mat_req_tbl(i).row_id := i;
2500: IF l_batch_id = null THEN
2499: l_eam_mat_req_tbl(i).row_id := i;
2500: IF l_batch_id = null THEN
2501: l_batch_id := l_eam_mat_req_tbl(i).batch_id;
2502: ELSIF l_batch_id <> l_eam_mat_req_tbl(i).batch_id THEN
2503: l_return_status := FND_API.G_RET_STS_ERROR;
2504: END IF;
2505: l_header_id := l_eam_mat_req_tbl(i).header_id;
2506: l_found := FND_API.G_FALSE;
2507: if l_header_id_tbl.count > 0 then
2502: ELSIF l_batch_id <> l_eam_mat_req_tbl(i).batch_id THEN
2503: l_return_status := FND_API.G_RET_STS_ERROR;
2504: END IF;
2505: l_header_id := l_eam_mat_req_tbl(i).header_id;
2506: l_found := FND_API.G_FALSE;
2507: if l_header_id_tbl.count > 0 then
2508: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2509: if l_header_id = l_header_id_tbl(j).header_id then
2510: l_found := FND_API.G_TRUE;
2506: l_found := FND_API.G_FALSE;
2507: if l_header_id_tbl.count > 0 then
2508: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2509: if l_header_id = l_header_id_tbl(j).header_id then
2510: l_found := FND_API.G_TRUE;
2511: end if;
2512: end loop;
2513: end if;
2514: if l_found = FND_API.G_FALSE then
2510: l_found := FND_API.G_TRUE;
2511: end if;
2512: end loop;
2513: end if;
2514: if l_found = FND_API.G_FALSE then
2515: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2516: end if;
2517: END LOOP;
2518: end if;
2519:
2520: if l_eam_direct_items_tbl.count > 0 then
2521: FOR i in l_eam_direct_items_tbl.first..l_eam_direct_items_tbl.last LOOP
2522: IF l_eam_direct_items_tbl(i).batch_id is null or l_eam_direct_items_tbl(i).header_id is null then
2523: l_return_status := FND_API.G_RET_STS_ERROR;
2524: return;
2525: END IF;
2526: l_eam_direct_items_tbl(i).row_id := i;
2527: IF l_batch_id = null THEN
2526: l_eam_direct_items_tbl(i).row_id := i;
2527: IF l_batch_id = null THEN
2528: l_batch_id := l_eam_direct_items_tbl(i).batch_id;
2529: ELSIF l_batch_id <> l_eam_direct_items_tbl(i).batch_id THEN
2530: l_return_status := FND_API.G_RET_STS_ERROR;
2531: END IF;
2532: l_header_id := l_eam_direct_items_tbl(i).header_id;
2533: l_found := FND_API.G_FALSE;
2534: if l_header_id_tbl.count > 0 then
2529: ELSIF l_batch_id <> l_eam_direct_items_tbl(i).batch_id THEN
2530: l_return_status := FND_API.G_RET_STS_ERROR;
2531: END IF;
2532: l_header_id := l_eam_direct_items_tbl(i).header_id;
2533: l_found := FND_API.G_FALSE;
2534: if l_header_id_tbl.count > 0 then
2535: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2536: if l_header_id = l_header_id_tbl(j).header_id then
2537: l_found := FND_API.G_TRUE;
2533: l_found := FND_API.G_FALSE;
2534: if l_header_id_tbl.count > 0 then
2535: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2536: if l_header_id = l_header_id_tbl(j).header_id then
2537: l_found := FND_API.G_TRUE;
2538: end if;
2539: end loop;
2540: end if;
2541: if l_found = FND_API.G_FALSE then
2537: l_found := FND_API.G_TRUE;
2538: end if;
2539: end loop;
2540: end if;
2541: if l_found = FND_API.G_FALSE then
2542: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2543: end if;
2544: END LOOP;
2545: end if;
2547: if l_eam_wo_comp_tbl.count > 0 then
2548:
2549: FOR i in l_eam_wo_comp_tbl.first..l_eam_wo_comp_tbl.last LOOP
2550: IF l_eam_wo_comp_tbl(i).batch_id is null or l_eam_wo_comp_tbl(i).header_id is null then
2551: l_return_status := FND_API.G_RET_STS_ERROR;
2552: return;
2553: END IF;
2554: l_eam_wo_comp_tbl(i).row_id := i;
2555: IF l_batch_id = null THEN
2554: l_eam_wo_comp_tbl(i).row_id := i;
2555: IF l_batch_id = null THEN
2556: l_batch_id := l_eam_wo_comp_tbl(i).batch_id;
2557: ELSIF l_batch_id <> l_eam_wo_comp_tbl(i).batch_id THEN
2558: l_return_status := FND_API.G_RET_STS_ERROR;
2559: END IF;
2560: l_header_id := l_eam_wo_comp_tbl(i).header_id;
2561: l_found := FND_API.G_FALSE;
2562: if l_header_id_tbl.count > 0 then
2557: ELSIF l_batch_id <> l_eam_wo_comp_tbl(i).batch_id THEN
2558: l_return_status := FND_API.G_RET_STS_ERROR;
2559: END IF;
2560: l_header_id := l_eam_wo_comp_tbl(i).header_id;
2561: l_found := FND_API.G_FALSE;
2562: if l_header_id_tbl.count > 0 then
2563: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2564: if l_header_id = l_header_id_tbl(j).header_id then
2565: l_found := FND_API.G_TRUE;
2561: l_found := FND_API.G_FALSE;
2562: if l_header_id_tbl.count > 0 then
2563: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2564: if l_header_id = l_header_id_tbl(j).header_id then
2565: l_found := FND_API.G_TRUE;
2566: end if;
2567: end loop;
2568: end if;
2569: if l_found = FND_API.G_FALSE then
2565: l_found := FND_API.G_TRUE;
2566: end if;
2567: end loop;
2568: end if;
2569: if l_found = FND_API.G_FALSE then
2570: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2571: end if;
2572: END LOOP;
2573: end if;
2574:
2575: if l_eam_wo_quality_tbl.count > 0 then
2576: FOR i in l_eam_wo_quality_tbl.first..l_eam_wo_quality_tbl.last LOOP
2577: IF l_eam_wo_quality_tbl(i).batch_id is null or l_eam_wo_quality_tbl(i).header_id is null then
2578: l_return_status := FND_API.G_RET_STS_ERROR;
2579: return;
2580: END IF;
2581: l_eam_wo_quality_tbl(i).row_id := i;
2582: IF l_batch_id = null THEN
2581: l_eam_wo_quality_tbl(i).row_id := i;
2582: IF l_batch_id = null THEN
2583: l_batch_id := l_eam_wo_quality_tbl(i).batch_id;
2584: ELSIF l_batch_id <> l_eam_wo_quality_tbl(i).batch_id THEN
2585: l_return_status := FND_API.G_RET_STS_ERROR;
2586: END IF;
2587: l_header_id := l_eam_wo_quality_tbl(i).header_id;
2588: l_found := FND_API.G_FALSE;
2589: if l_header_id_tbl.count > 0 then
2584: ELSIF l_batch_id <> l_eam_wo_quality_tbl(i).batch_id THEN
2585: l_return_status := FND_API.G_RET_STS_ERROR;
2586: END IF;
2587: l_header_id := l_eam_wo_quality_tbl(i).header_id;
2588: l_found := FND_API.G_FALSE;
2589: if l_header_id_tbl.count > 0 then
2590: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2591: if l_header_id = l_header_id_tbl(j).header_id then
2592: l_found := FND_API.G_TRUE;
2588: l_found := FND_API.G_FALSE;
2589: if l_header_id_tbl.count > 0 then
2590: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2591: if l_header_id = l_header_id_tbl(j).header_id then
2592: l_found := FND_API.G_TRUE;
2593: end if;
2594: end loop;
2595: end if;
2596: if l_found = FND_API.G_FALSE then
2592: l_found := FND_API.G_TRUE;
2593: end if;
2594: end loop;
2595: end if;
2596: if l_found = FND_API.G_FALSE then
2597: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2598: end if;
2599: END LOOP;
2600: end if;
2601:
2602: if l_eam_meter_reading_tbl.count > 0 then
2603: FOR i in l_eam_meter_reading_tbl.first..l_eam_meter_reading_tbl.last LOOP
2604: IF l_eam_meter_reading_tbl(i).batch_id is null or l_eam_meter_reading_tbl(i).header_id is null then
2605: l_return_status := FND_API.G_RET_STS_ERROR;
2606: return;
2607: END IF;
2608: l_eam_meter_reading_tbl(i).row_id := i;
2609: IF l_batch_id = null THEN
2608: l_eam_meter_reading_tbl(i).row_id := i;
2609: IF l_batch_id = null THEN
2610: l_batch_id := l_eam_meter_reading_tbl(i).batch_id;
2611: ELSIF l_batch_id <> l_eam_meter_reading_tbl(i).batch_id THEN
2612: l_return_status := FND_API.G_RET_STS_ERROR;
2613: END IF;
2614: l_header_id := l_eam_meter_reading_tbl(i).header_id;
2615: l_found := FND_API.G_FALSE;
2616: if l_header_id_tbl.count > 0 then
2611: ELSIF l_batch_id <> l_eam_meter_reading_tbl(i).batch_id THEN
2612: l_return_status := FND_API.G_RET_STS_ERROR;
2613: END IF;
2614: l_header_id := l_eam_meter_reading_tbl(i).header_id;
2615: l_found := FND_API.G_FALSE;
2616: if l_header_id_tbl.count > 0 then
2617: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2618: if l_header_id = l_header_id_tbl(j).header_id then
2619: l_found := FND_API.G_TRUE;
2615: l_found := FND_API.G_FALSE;
2616: if l_header_id_tbl.count > 0 then
2617: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2618: if l_header_id = l_header_id_tbl(j).header_id then
2619: l_found := FND_API.G_TRUE;
2620: end if;
2621: end loop;
2622: end if;
2623: if l_found = FND_API.G_FALSE then
2619: l_found := FND_API.G_TRUE;
2620: end if;
2621: end loop;
2622: end if;
2623: if l_found = FND_API.G_FALSE then
2624: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2625: end if;
2626: END LOOP;
2627: end if;
2628:
2629: if l_eam_counter_prop_tbl.count > 0 then
2630: FOR i in l_eam_counter_prop_tbl.first..l_eam_counter_prop_tbl.last LOOP
2631: IF l_eam_counter_prop_tbl(i).batch_id is null or l_eam_counter_prop_tbl(i).header_id is null then
2632: l_return_status := FND_API.G_RET_STS_ERROR;
2633: return;
2634: END IF;
2635: l_eam_counter_prop_tbl(i).row_id := i;
2636: IF l_batch_id = null THEN
2635: l_eam_counter_prop_tbl(i).row_id := i;
2636: IF l_batch_id = null THEN
2637: l_batch_id := l_eam_counter_prop_tbl(i).batch_id;
2638: ELSIF l_batch_id <> l_eam_counter_prop_tbl(i).batch_id THEN
2639: l_return_status := FND_API.G_RET_STS_ERROR;
2640: END IF;
2641: l_header_id := l_eam_counter_prop_tbl(i).header_id;
2642: l_found := FND_API.G_FALSE;
2643: if l_header_id_tbl.count > 0 then
2638: ELSIF l_batch_id <> l_eam_counter_prop_tbl(i).batch_id THEN
2639: l_return_status := FND_API.G_RET_STS_ERROR;
2640: END IF;
2641: l_header_id := l_eam_counter_prop_tbl(i).header_id;
2642: l_found := FND_API.G_FALSE;
2643: if l_header_id_tbl.count > 0 then
2644: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2645: if l_header_id = l_header_id_tbl(j).header_id then
2646: l_found := FND_API.G_TRUE;
2642: l_found := FND_API.G_FALSE;
2643: if l_header_id_tbl.count > 0 then
2644: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2645: if l_header_id = l_header_id_tbl(j).header_id then
2646: l_found := FND_API.G_TRUE;
2647: end if;
2648: end loop;
2649: end if;
2650: if l_found = FND_API.G_FALSE then
2646: l_found := FND_API.G_TRUE;
2647: end if;
2648: end loop;
2649: end if;
2650: if l_found = FND_API.G_FALSE then
2651: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2652: end if;
2653: END LOOP;
2654: end if;
2655:
2656: if l_eam_wo_comp_rebuild_tbl.count > 0 then
2657: FOR i in l_eam_wo_comp_rebuild_tbl.first..l_eam_wo_comp_rebuild_tbl.last LOOP
2658: IF l_eam_wo_comp_rebuild_tbl(i).batch_id is null or l_eam_wo_comp_rebuild_tbl(i).header_id is null then
2659: l_return_status := FND_API.G_RET_STS_ERROR;
2660: return;
2661: END IF;
2662: l_eam_wo_comp_rebuild_tbl(i).row_id := i;
2663: IF l_batch_id = null THEN
2662: l_eam_wo_comp_rebuild_tbl(i).row_id := i;
2663: IF l_batch_id = null THEN
2664: l_batch_id := l_eam_wo_comp_rebuild_tbl(i).batch_id;
2665: ELSIF l_batch_id <> l_eam_wo_comp_rebuild_tbl(i).batch_id THEN
2666: l_return_status := FND_API.G_RET_STS_ERROR;
2667: END IF;
2668: l_header_id := l_eam_wo_comp_rebuild_tbl(i).header_id;
2669: l_found := FND_API.G_FALSE;
2670: if l_header_id_tbl.count > 0 then
2665: ELSIF l_batch_id <> l_eam_wo_comp_rebuild_tbl(i).batch_id THEN
2666: l_return_status := FND_API.G_RET_STS_ERROR;
2667: END IF;
2668: l_header_id := l_eam_wo_comp_rebuild_tbl(i).header_id;
2669: l_found := FND_API.G_FALSE;
2670: if l_header_id_tbl.count > 0 then
2671: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2672: if l_header_id = l_header_id_tbl(j).header_id then
2673: l_found := FND_API.G_TRUE;
2669: l_found := FND_API.G_FALSE;
2670: if l_header_id_tbl.count > 0 then
2671: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2672: if l_header_id = l_header_id_tbl(j).header_id then
2673: l_found := FND_API.G_TRUE;
2674: end if;
2675: end loop;
2676: end if;
2677: if l_found = FND_API.G_FALSE then
2673: l_found := FND_API.G_TRUE;
2674: end if;
2675: end loop;
2676: end if;
2677: if l_found = FND_API.G_FALSE then
2678: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2679: end if;
2680: END LOOP;
2681: end if;
2682:
2683: if l_eam_wo_comp_mr_read_tbl.count > 0 then
2684: FOR i in l_eam_wo_comp_mr_read_tbl.first..l_eam_wo_comp_mr_read_tbl.last LOOP
2685: IF l_eam_wo_comp_mr_read_tbl(i).batch_id is null or l_eam_wo_comp_mr_read_tbl(i).header_id is null then
2686: l_return_status := FND_API.G_RET_STS_ERROR;
2687: return;
2688: END IF;
2689: l_eam_wo_comp_mr_read_tbl(i).row_id := i;
2690: IF l_batch_id = null THEN
2689: l_eam_wo_comp_mr_read_tbl(i).row_id := i;
2690: IF l_batch_id = null THEN
2691: l_batch_id := l_eam_wo_comp_mr_read_tbl(i).batch_id;
2692: ELSIF l_batch_id <> l_eam_wo_comp_mr_read_tbl(i).batch_id THEN
2693: l_return_status := FND_API.G_RET_STS_ERROR;
2694: END IF;
2695: l_header_id := l_eam_wo_comp_mr_read_tbl(i).header_id;
2696: l_found := FND_API.G_FALSE;
2697: if l_header_id_tbl.count > 0 then
2692: ELSIF l_batch_id <> l_eam_wo_comp_mr_read_tbl(i).batch_id THEN
2693: l_return_status := FND_API.G_RET_STS_ERROR;
2694: END IF;
2695: l_header_id := l_eam_wo_comp_mr_read_tbl(i).header_id;
2696: l_found := FND_API.G_FALSE;
2697: if l_header_id_tbl.count > 0 then
2698: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2699: if l_header_id = l_header_id_tbl(j).header_id then
2700: l_found := FND_API.G_TRUE;
2696: l_found := FND_API.G_FALSE;
2697: if l_header_id_tbl.count > 0 then
2698: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2699: if l_header_id = l_header_id_tbl(j).header_id then
2700: l_found := FND_API.G_TRUE;
2701: end if;
2702: end loop;
2703: end if;
2704: if l_found = FND_API.G_FALSE then
2700: l_found := FND_API.G_TRUE;
2701: end if;
2702: end loop;
2703: end if;
2704: if l_found = FND_API.G_FALSE then
2705: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2706: end if;
2707: END LOOP;
2708: end if;
2709:
2710: if l_eam_op_comp_tbl.count > 0 then
2711: FOR i in l_eam_op_comp_tbl.first..l_eam_op_comp_tbl.last LOOP
2712: IF l_eam_op_comp_tbl(i).batch_id is null or l_eam_op_comp_tbl(i).header_id is null then
2713: l_return_status := FND_API.G_RET_STS_ERROR;
2714: return;
2715: END IF;
2716: l_eam_op_comp_tbl(i).row_id := i;
2717: IF l_batch_id = null THEN
2716: l_eam_op_comp_tbl(i).row_id := i;
2717: IF l_batch_id = null THEN
2718: l_batch_id := l_eam_op_comp_tbl(i).batch_id;
2719: ELSIF l_batch_id <> l_eam_op_comp_tbl(i).batch_id THEN
2720: l_return_status := FND_API.G_RET_STS_ERROR;
2721: END IF;
2722: l_header_id := l_eam_op_comp_tbl(i).header_id;
2723: l_found := FND_API.G_FALSE;
2724: if l_header_id_tbl.count > 0 then
2719: ELSIF l_batch_id <> l_eam_op_comp_tbl(i).batch_id THEN
2720: l_return_status := FND_API.G_RET_STS_ERROR;
2721: END IF;
2722: l_header_id := l_eam_op_comp_tbl(i).header_id;
2723: l_found := FND_API.G_FALSE;
2724: if l_header_id_tbl.count > 0 then
2725: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2726: if l_header_id = l_header_id_tbl(j).header_id then
2727: l_found := FND_API.G_TRUE;
2723: l_found := FND_API.G_FALSE;
2724: if l_header_id_tbl.count > 0 then
2725: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2726: if l_header_id = l_header_id_tbl(j).header_id then
2727: l_found := FND_API.G_TRUE;
2728: end if;
2729: end loop;
2730: end if;
2731: if l_found = FND_API.G_FALSE then
2727: l_found := FND_API.G_TRUE;
2728: end if;
2729: end loop;
2730: end if;
2731: if l_found = FND_API.G_FALSE then
2732: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2733: end if;
2734: END LOOP;
2735: end if;
2736:
2737: if l_eam_request_tbl.count > 0 then
2738: FOR i in l_eam_request_tbl.first..l_eam_request_tbl.last LOOP
2739: IF l_eam_request_tbl(i).batch_id is null or l_eam_request_tbl(i).header_id is null then
2740: l_return_status := FND_API.G_RET_STS_ERROR;
2741: return;
2742: END IF;
2743: l_eam_request_tbl(i).row_id := i;
2744: IF l_batch_id = null THEN
2743: l_eam_request_tbl(i).row_id := i;
2744: IF l_batch_id = null THEN
2745: l_batch_id := l_eam_request_tbl(i).batch_id;
2746: ELSIF l_batch_id <> l_eam_request_tbl(i).batch_id THEN
2747: l_return_status := FND_API.G_RET_STS_ERROR;
2748: END IF;
2749: l_header_id := l_eam_request_tbl(i).header_id;
2750: l_found := FND_API.G_FALSE;
2751: if l_header_id_tbl.count > 0 then
2746: ELSIF l_batch_id <> l_eam_request_tbl(i).batch_id THEN
2747: l_return_status := FND_API.G_RET_STS_ERROR;
2748: END IF;
2749: l_header_id := l_eam_request_tbl(i).header_id;
2750: l_found := FND_API.G_FALSE;
2751: if l_header_id_tbl.count > 0 then
2752: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2753: if l_header_id = l_header_id_tbl(j).header_id then
2754: l_found := FND_API.G_TRUE;
2750: l_found := FND_API.G_FALSE;
2751: if l_header_id_tbl.count > 0 then
2752: for j in l_header_id_tbl.first..l_header_id_tbl.last loop
2753: if l_header_id = l_header_id_tbl(j).header_id then
2754: l_found := FND_API.G_TRUE;
2755: end if;
2756: end loop;
2757: end if;
2758: if l_found = FND_API.G_FALSE then
2754: l_found := FND_API.G_TRUE;
2755: end if;
2756: end loop;
2757: end if;
2758: if l_found = FND_API.G_FALSE then
2759: l_header_id_tbl(l_header_id_tbl.count+1).header_id := l_header_id;
2760: end if;
2761: END LOOP;
2762: end if;
2762: end if;
2763:
2764:
2765: -- If return status is not success, then set all records as unprocessed
2766: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2767:
2768: for i in l_eam_wo_tbl.first..l_eam_wo_tbl.last loop
2769: if l_eam_wo_tbl(i).transaction_type is not null then
2770: l_eam_wo_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2766: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2767:
2768: for i in l_eam_wo_tbl.first..l_eam_wo_tbl.last loop
2769: if l_eam_wo_tbl(i).transaction_type is not null then
2770: l_eam_wo_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2771: end if;
2772: end loop;
2773:
2774: for i in l_eam_wo_relations_tbl.first..l_eam_wo_relations_tbl.last loop
2772: end loop;
2773:
2774: for i in l_eam_wo_relations_tbl.first..l_eam_wo_relations_tbl.last loop
2775: if l_eam_wo_relations_tbl(i).transaction_type is not null then
2776: l_eam_wo_relations_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2777: end if;
2778: end loop;
2779:
2780: for i in l_eam_op_tbl.first..l_eam_op_tbl.last loop
2778: end loop;
2779:
2780: for i in l_eam_op_tbl.first..l_eam_op_tbl.last loop
2781: if l_eam_op_tbl(i).transaction_type is not null then
2782: l_eam_op_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2783: end if;
2784: end loop;
2785:
2786: for i in l_eam_op_network_tbl.first..l_eam_op_tbl.last loop
2784: end loop;
2785:
2786: for i in l_eam_op_network_tbl.first..l_eam_op_tbl.last loop
2787: if l_eam_op_network_tbl(i).transaction_type is not null then
2788: l_eam_op_network_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2789: end if;
2790: end loop;
2791:
2792: for i in l_eam_res_tbl.first..l_eam_res_tbl.last loop
2790: end loop;
2791:
2792: for i in l_eam_res_tbl.first..l_eam_res_tbl.last loop
2793: if l_eam_res_tbl(i).transaction_type is not null then
2794: l_eam_res_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2795: end if;
2796: end loop;
2797:
2798: for i in l_eam_res_inst_tbl.first..l_eam_res_inst_tbl.last loop
2796: end loop;
2797:
2798: for i in l_eam_res_inst_tbl.first..l_eam_res_inst_tbl.last loop
2799: if l_eam_res_inst_tbl(i).transaction_type is not null then
2800: l_eam_res_inst_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2801: end if;
2802: end loop;
2803:
2804: for i in l_eam_sub_res_tbl.first..l_eam_sub_res_tbl.last loop
2802: end loop;
2803:
2804: for i in l_eam_sub_res_tbl.first..l_eam_sub_res_tbl.last loop
2805: if l_eam_sub_res_tbl(i).transaction_type is not null then
2806: l_eam_sub_res_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2807: end if;
2808: end loop;
2809:
2810:
2809:
2810:
2811: for i in l_eam_res_usage_tbl.first..l_eam_res_usage_tbl.last loop
2812: if l_eam_res_usage_tbl(i).transaction_type is not null then
2813: l_eam_res_usage_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2814: end if;
2815: end loop;
2816:
2817: for i in l_eam_mat_req_tbl.first..l_eam_mat_req_tbl.last loop
2815: end loop;
2816:
2817: for i in l_eam_mat_req_tbl.first..l_eam_mat_req_tbl.last loop
2818: if l_eam_mat_req_tbl(i).transaction_type is not null then
2819: l_eam_mat_req_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2820: end if;
2821: end loop;
2822:
2823: for i in l_eam_direct_items_tbl.first..l_eam_direct_items_tbl.last loop
2821: end loop;
2822:
2823: for i in l_eam_direct_items_tbl.first..l_eam_direct_items_tbl.last loop
2824: if l_eam_direct_items_tbl(i).transaction_type is not null then
2825: l_eam_direct_items_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2826: end if;
2827:
2828: for i in l_eam_wo_comp_tbl.first..l_eam_wo_comp_tbl.last loop
2829: if l_eam_wo_comp_tbl(i).transaction_type is not null then
2826: end if;
2827:
2828: for i in l_eam_wo_comp_tbl.first..l_eam_wo_comp_tbl.last loop
2829: if l_eam_wo_comp_tbl(i).transaction_type is not null then
2830: l_eam_wo_comp_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2831: end if;
2832: end loop;
2833:
2834: for i in l_eam_wo_quality_tbl.first..l_eam_wo_quality_tbl.last loop
2832: end loop;
2833:
2834: for i in l_eam_wo_quality_tbl.first..l_eam_wo_quality_tbl.last loop
2835: if l_eam_wo_quality_tbl(i).transaction_type is not null then
2836: l_eam_wo_quality_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2837: end if;
2838: end loop;
2839:
2840: for i in l_eam_meter_reading_tbl.first..l_eam_meter_reading_tbl.last loop
2838: end loop;
2839:
2840: for i in l_eam_meter_reading_tbl.first..l_eam_meter_reading_tbl.last loop
2841: if l_eam_meter_reading_tbl(i).transaction_type is not null then
2842: l_eam_meter_reading_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2843: end if;
2844: end loop;
2845:
2846: for i in l_eam_counter_prop_tbl.first..l_eam_counter_prop_tbl.last loop
2844: end loop;
2845:
2846: for i in l_eam_counter_prop_tbl.first..l_eam_counter_prop_tbl.last loop
2847: if l_eam_counter_prop_tbl(i).transaction_type is not null then
2848: l_eam_counter_prop_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2849: end if;
2850: end loop;
2851:
2852: for i in l_eam_wo_comp_rebuild_tbl.first..l_eam_wo_comp_rebuild_tbl.last loop
2850: end loop;
2851:
2852: for i in l_eam_wo_comp_rebuild_tbl.first..l_eam_wo_comp_rebuild_tbl.last loop
2853: if l_eam_wo_comp_rebuild_tbl(i).transaction_type is not null then
2854: l_eam_wo_comp_rebuild_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2855: end if;
2856: end loop;
2857:
2858: for i in l_eam_wo_comp_mr_read_tbl.first..l_eam_wo_comp_mr_read_tbl.last loop
2856: end loop;
2857:
2858: for i in l_eam_wo_comp_mr_read_tbl.first..l_eam_wo_comp_mr_read_tbl.last loop
2859: if l_eam_wo_comp_mr_read_tbl(i).transaction_type is not null then
2860: l_eam_wo_comp_mr_read_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2861: end if;
2862: end loop;
2863:
2864: for i in l_eam_op_comp_tbl.first..l_eam_op_comp_tbl.last loop
2862: end loop;
2863:
2864: for i in l_eam_op_comp_tbl.first..l_eam_op_comp_tbl.last loop
2865: if l_eam_op_comp_tbl(i).transaction_type is not null then
2866: l_eam_op_comp_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2867: end if;
2868: end loop;
2869:
2870: for i in l_eam_request_tbl.first..l_eam_request_tbl.last loop
2868: end loop;
2869:
2870: for i in l_eam_request_tbl.first..l_eam_request_tbl.last loop
2871: if l_eam_request_tbl(i).transaction_type is not null then
2872: l_eam_request_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2873: end if;
2874: end loop;
2875:
2876: end loop;
2905:
2906: EXCEPTION
2907:
2908: WHEN OTHERS THEN
2909: l_return_status := FND_API.G_RET_STS_ERROR;
2910: -- set all records as unprocessed
2911:
2912: for i in l_eam_wo_tbl.first..l_eam_wo_tbl.last loop
2913: if l_eam_wo_tbl(i).transaction_type is not null then
2910: -- set all records as unprocessed
2911:
2912: for i in l_eam_wo_tbl.first..l_eam_wo_tbl.last loop
2913: if l_eam_wo_tbl(i).transaction_type is not null then
2914: l_eam_wo_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2915: end if;
2916: end loop;
2917:
2918: for i in l_eam_wo_relations_tbl.first..l_eam_wo_relations_tbl.last loop
2916: end loop;
2917:
2918: for i in l_eam_wo_relations_tbl.first..l_eam_wo_relations_tbl.last loop
2919: if l_eam_wo_relations_tbl(i).transaction_type is not null then
2920: l_eam_wo_relations_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2921: end if;
2922: end loop;
2923:
2924: for i in l_eam_op_tbl.first..l_eam_op_tbl.last loop
2922: end loop;
2923:
2924: for i in l_eam_op_tbl.first..l_eam_op_tbl.last loop
2925: if l_eam_op_tbl(i).transaction_type is not null then
2926: l_eam_op_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2927: end if;
2928: end loop;
2929:
2930: for i in l_eam_op_network_tbl.first..l_eam_op_tbl.last loop
2928: end loop;
2929:
2930: for i in l_eam_op_network_tbl.first..l_eam_op_tbl.last loop
2931: if l_eam_op_network_tbl(i).transaction_type is not null then
2932: l_eam_op_network_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2933: end if;
2934: end loop;
2935:
2936: for i in l_eam_res_tbl.first..l_eam_res_tbl.last loop
2934: end loop;
2935:
2936: for i in l_eam_res_tbl.first..l_eam_res_tbl.last loop
2937: if l_eam_res_tbl(i).transaction_type is not null then
2938: l_eam_res_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2939: end if;
2940: end loop;
2941:
2942: for i in l_eam_res_inst_tbl.first..l_eam_res_inst_tbl.last loop
2940: end loop;
2941:
2942: for i in l_eam_res_inst_tbl.first..l_eam_res_inst_tbl.last loop
2943: if l_eam_res_inst_tbl(i).transaction_type is not null then
2944: l_eam_res_inst_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2945: end if;
2946: end loop;
2947:
2948: for i in l_eam_sub_res_tbl.first..l_eam_sub_res_tbl.last loop
2946: end loop;
2947:
2948: for i in l_eam_sub_res_tbl.first..l_eam_sub_res_tbl.last loop
2949: if l_eam_sub_res_tbl(i).transaction_type is not null then
2950: l_eam_sub_res_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2951: end if;
2952: end loop;
2953:
2954: for i in l_eam_mat_req_tbl.first..l_eam_mat_req_tbl.last loop
2952: end loop;
2953:
2954: for i in l_eam_mat_req_tbl.first..l_eam_mat_req_tbl.last loop
2955: if l_eam_mat_req_tbl(i).transaction_type is not null then
2956: l_eam_mat_req_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2957: end if;
2958: end loop;
2959:
2960: for i in l_eam_direct_items_tbl.first..l_eam_direct_items_tbl.last loop
2958: end loop;
2959:
2960: for i in l_eam_direct_items_tbl.first..l_eam_direct_items_tbl.last loop
2961: if l_eam_direct_items_tbl(i).transaction_type is not null then
2962: l_eam_direct_items_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2963: end if;
2964: end loop;
2965:
2966: for i in l_eam_res_usage_tbl.first..l_eam_res_usage_tbl.last loop
2964: end loop;
2965:
2966: for i in l_eam_res_usage_tbl.first..l_eam_res_usage_tbl.last loop
2967: if l_eam_res_usage_tbl(i).transaction_type is not null then
2968: l_eam_res_usage_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2969: end if;
2970: end loop;
2971:
2972: for i in l_eam_wo_comp_tbl.first..l_eam_wo_comp_tbl.last loop
2970: end loop;
2971:
2972: for i in l_eam_wo_comp_tbl.first..l_eam_wo_comp_tbl.last loop
2973: if l_eam_wo_comp_tbl(i).transaction_type is not null then
2974: l_eam_wo_comp_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2975: end if;
2976: end loop;
2977:
2978: for i in l_eam_wo_quality_tbl.first..l_eam_wo_quality_tbl.last loop
2976: end loop;
2977:
2978: for i in l_eam_wo_quality_tbl.first..l_eam_wo_quality_tbl.last loop
2979: if l_eam_wo_quality_tbl(i).transaction_type is not null then
2980: l_eam_wo_quality_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2981: end if;
2982: end loop;
2983:
2984: for i in l_eam_meter_reading_tbl.first..l_eam_meter_reading_tbl.last loop
2982: end loop;
2983:
2984: for i in l_eam_meter_reading_tbl.first..l_eam_meter_reading_tbl.last loop
2985: if l_eam_meter_reading_tbl(i).transaction_type is not null then
2986: l_eam_meter_reading_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2987: end if;
2988: end loop;
2989:
2990: for i in l_eam_counter_prop_tbl.first..l_eam_counter_prop_tbl.last loop
2988: end loop;
2989:
2990: for i in l_eam_counter_prop_tbl.first..l_eam_counter_prop_tbl.last loop
2991: if l_eam_counter_prop_tbl(i).transaction_type is not null then
2992: l_eam_counter_prop_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2993: end if;
2994: end loop;
2995:
2996: for i in l_eam_wo_comp_rebuild_tbl.first..l_eam_wo_comp_rebuild_tbl.last loop
2994: end loop;
2995:
2996: for i in l_eam_wo_comp_rebuild_tbl.first..l_eam_wo_comp_rebuild_tbl.last loop
2997: if l_eam_wo_comp_rebuild_tbl(i).transaction_type is not null then
2998: l_eam_wo_comp_rebuild_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
2999: end if;
3000: end loop;
3001:
3002: for i in l_eam_wo_comp_mr_read_tbl.first..l_eam_wo_comp_mr_read_tbl.last loop
3000: end loop;
3001:
3002: for i in l_eam_wo_comp_mr_read_tbl.first..l_eam_wo_comp_mr_read_tbl.last loop
3003: if l_eam_wo_comp_mr_read_tbl(i).transaction_type is not null then
3004: l_eam_wo_comp_mr_read_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
3005: end if;
3006: end loop;
3007:
3008: for i in l_eam_op_comp_tbl.first..l_eam_op_comp_tbl.last loop
3006: end loop;
3007:
3008: for i in l_eam_op_comp_tbl.first..l_eam_op_comp_tbl.last loop
3009: if l_eam_op_comp_tbl(i).transaction_type is not null then
3010: l_eam_op_comp_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
3011: end if;
3012: end loop;
3013:
3014: for i in l_eam_request_tbl.first..l_eam_request_tbl.last loop
3012: end loop;
3013:
3014: for i in l_eam_request_tbl.first..l_eam_request_tbl.last loop
3015: if l_eam_request_tbl(i).transaction_type is not null then
3016: l_eam_request_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
3017: end if;
3018: end loop;
3019:
3020:
3367: , x_mesg_token_tbl => l_out_mesg_token_tbl
3368: );
3369: l_mesg_token_tbl := l_out_mesg_token_tbl;
3370:
3371: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3372: THEN
3373: EAM_PROCESS_WO_PVT.Set_Debug('N');
3374: END IF;
3375: END IF;
3905:
3906:
3907: PROCEDURE EXPLODE_ACTIVITY
3908: ( p_api_version IN NUMBER := 1.0
3909: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3910: , p_commit IN VARCHAR2 := fnd_api.g_false
3911: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3912: , p_organization_id IN NUMBER
3913: , p_asset_activity_id IN NUMBER
3906:
3907: PROCEDURE EXPLODE_ACTIVITY
3908: ( p_api_version IN NUMBER := 1.0
3909: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3910: , p_commit IN VARCHAR2 := fnd_api.g_false
3911: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3912: , p_organization_id IN NUMBER
3913: , p_asset_activity_id IN NUMBER
3914: , p_wip_entity_id IN NUMBER
3907: PROCEDURE EXPLODE_ACTIVITY
3908: ( p_api_version IN NUMBER := 1.0
3909: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3910: , p_commit IN VARCHAR2 := fnd_api.g_false
3911: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3912: , p_organization_id IN NUMBER
3913: , p_asset_activity_id IN NUMBER
3914: , p_wip_entity_id IN NUMBER
3915: , p_start_date IN DATE
4605:
4606: PROCEDURE COPY_WORKORDER
4607: ( p_bo_identifier IN VARCHAR2 := 'EAM'
4608: , p_api_version_number IN NUMBER := 1.0
4609: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4610: , p_commit IN VARCHAR2 := fnd_api.g_false
4611: , p_wip_entity_id IN NUMBER
4612: , p_organization_id IN NUMBER
4613: , x_eam_wo_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
4606: PROCEDURE COPY_WORKORDER
4607: ( p_bo_identifier IN VARCHAR2 := 'EAM'
4608: , p_api_version_number IN NUMBER := 1.0
4609: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4610: , p_commit IN VARCHAR2 := fnd_api.g_false
4611: , p_wip_entity_id IN NUMBER
4612: , p_organization_id IN NUMBER
4613: , x_eam_wo_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
4614: , x_eam_op_tbl OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_tbl_type