[Home] [Help]
50: -- First Get the parent event details (BillCreate/BillUpdate)
51: -- If the call fails or returns and error, the exception is not catched.
52: QA_EDR_STANDARD.GET_ERECORD_ID
53: ( p_api_version => 1.0
54: , p_init_msg_list => FND_API.G_TRUE
55: , x_return_status => l_return_status
56: , x_msg_count => l_msg_count
57: , x_msg_data => l_msg_data
58: , p_event_name => p_event_name
76:
77: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acknowledging eRecord_id='||l_erecord_id||' with status='||l_trans_status);
78: QA_EDR_STANDARD.SEND_ACKN
79: ( p_api_version => 1.0
80: , p_init_msg_list => FND_API.G_TRUE
81: , x_return_status => l_return_status
82: , x_msg_count => l_msg_count
83: , x_msg_data => l_msg_data
84: , p_event_name => p_event_name
86: , p_erecord_id => l_erecord_id
87: , p_trans_status => l_trans_status
88: , p_ackn_by => l_ackn_by
89: , p_ackn_note => p_event_name||', '||p_event_key
90: , p_autonomous_commit => FND_API.G_TRUE);
91:
92: FND_FILE.PUT_LINE(FND_FILE.LOG, 'After QA_EDR_STANDARD.SEND_ACKN msg='||l_msg_count);
93:
94: IF (l_return_status <> FND_API.G_TRUE)
90: , p_autonomous_commit => FND_API.G_TRUE);
91:
92: FND_FILE.PUT_LINE(FND_FILE.LOG, 'After QA_EDR_STANDARD.SEND_ACKN msg='||l_msg_count);
93:
94: IF (l_return_status <> FND_API.G_TRUE)
95: THEN
96: RAISE SEND_ACKN_ERROR;
97: END IF;
98:
105: WHEN SEND_ACKN_ERROR THEN
106: FND_MSG_PUB.Get(
107: p_msg_index => 1,
108: p_data => l_msg_data,
109: p_encoded => FND_API.G_FALSE,
110: p_msg_index_out => l_dummy_cnt);
111: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ACKN Error: '||l_msg_data);
112:
113: WHEN OTHERS THEN
150: FND_FILE.PUT_LINE( FND_FILE.LOG, 'alternate_bom_designator: ' || p_alternate);
151: FND_FILE.PUT_LINE( FND_FILE.LOG, 'request_id: ' || to_char(p_request_id));
152: FND_FILE.PUT_LINE( FND_FILE.LOG, 'p_commit: ' || p_commit);
153: FND_FILE.PUT_LINE( FND_FILE.LOG, 'System Date: ' || sysdate);
154: IF FND_API.To_Boolean(p_commit) THEN
155: UPDATE BOM_BILL_OF_MATERIALS bbm
156: SET bbm.request_id = p_request_id
157: WHERE bbm.organization_id = p_organization_id
158: AND bbm.assembly_item_id = p_assembly_item_id
748: p_organization_id => current_org_id,
749: p_assembly_item_id => common_item_from,
750: p_alternate => alternate,
751: p_sequence_num => 1,
752: p_commit => FND_API.G_TRUE);
753:
754: EXCEPTION
755: WHEN Hierarchy_not_specified THEN
756: FND_MESSAGE.SET_NAME('BOM','BOM_HIERARCHY_MISSING');
764: p_organization_id => current_org_id,
765: p_assembly_item_id => common_item_from,
766: p_alternate => alternate,
767: p_sequence_num => 2,
768: p_commit => FND_API.G_TRUE);
769:
770: WHEN invalid_common_itemorg_to THEN
771: FND_MESSAGE.SET_NAME('BOM','BOM_COMMON_ITEM_ORG_INVALID');
772: msg := FND_MESSAGE.GET ;
779: p_organization_id => current_org_id,
780: p_assembly_item_id => common_item_from,
781: p_alternate => alternate,
782: p_sequence_num => 3,
783: p_commit => FND_API.G_TRUE);
784:
785: WHEN same_common_itemorg_to THEN
786: FND_MESSAGE.SET_NAME('BOM','BOM_TO_ORG_ITEM_SAME');
787: msg := FND_MESSAGE.GET ;
794: p_organization_id => current_org_id,
795: p_assembly_item_id => common_item_from,
796: p_alternate => alternate,
797: p_sequence_num => 4,
798: p_commit => FND_API.G_TRUE);
799:
800:
801: /* Added for bug 11895331, if eco_implmentation_is_running is raised then errored out the process with appropriate message. */
802: WHEN eco_implmentation_is_running THEN
815: p_organization_id => current_org_id,
816: p_assembly_item_id => common_item_from,
817: p_alternate => alternate,
818: p_sequence_num => 5,
819: p_commit => FND_API.G_TRUE);
820:
821:
822: END create_common_bills;
823:
980: WHERE component_sequence_id = p_src_comp_seq_id;
981:
982: IF l_comp_rev_id IS NULL
983: THEN
984: x_return_status := FND_API.G_RET_STS_SUCCESS;
985: RETURN;
986: END IF;
987:
988: FOR org in get_common_orgs(p_src_bill_seq_id)
988: FOR org in get_common_orgs(p_src_bill_seq_id)
989: LOOP
990: IF get_rev_id_for_local_org(l_comp_rev_id, org.organization_id) IS NULL
991: THEN
992: x_return_status := FND_API.G_RET_STS_ERROR;
993: RETURN;
994: END IF;
995: END LOOP;
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
992: x_return_status := FND_API.G_RET_STS_ERROR;
993: RETURN;
994: END IF;
995: END LOOP;
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997: END;
998:
999:
1000:
1067: where bill_sequence_id = p_dest_bill_sequence_id;
1068:
1069: IF l_effectivity_ctrl in (2,3,4)
1070: THEN
1071: x_Return_Status := FND_API.G_RET_STS_ERROR;
1072: --arudresh_debug('adding error token');
1073: Error_Handler.Add_Error_Token
1074: (p_Message_Name => 'BOM_EDIT_COMM_INVALID_EFF'
1075: -- , p_Message_Text => NULL
1079: );
1080: fnd_message.set_name('BOM', 'BOM_EDIT_COMM_INVALID_EFF');
1081: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1082: /*Error_Handler.Log_Error
1083: (p_error_status => FND_API.G_RET_STS_ERROR
1084: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1085: , p_error_scope => Error_Handler.G_SCOPE_RECORD
1086: , p_error_level => Error_Handler.G_BH_LEVEL
1087: , x_bom_header_rec => Bom_Bo_Pub.G_MISS_BOM_HEADER_REC
1099: , p_assembly_item_id => l_assy_item_id
1100: , p_organization_id => l_dest_org_id
1101: , p_alt_desg => l_alt_bom_desg
1102: , x_Return_Status => x_Return_Status);
1103: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1104: THEN
1105: fnd_message.set_name('BOM', 'BOM_COMM_OP_SEQ_INVALID');
1106: return;
1107: END IF;
1334: --DOnt copy the structure header user attrs
1335: Replicate_Comp_User_Attrs(p_src_bill_seq_id => p_src_bill_sequence_id,
1336: p_dest_bill_seq_id => p_dest_bill_sequence_id,
1337: x_Return_Status => x_Return_Status);
1338: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1339: THEN
1340: return;
1341: END IF;
1342: END IF; /*IF l_src_str_type = l_str_type*/
1369: END IF;
1370: Replicate_Ref_Desg(p_component_sequence_id => comp_rec.component_sequence_id
1371: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
1372: , x_Return_Status => x_Return_Status);
1373: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1374: THEN
1375: return;
1376: END IF;
1377: Replicate_Sub_Comp(p_component_sequence_id => comp_rec.component_sequence_id
1376: END IF;
1377: Replicate_Sub_Comp(p_component_sequence_id => comp_rec.component_sequence_id
1378: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
1379: , x_Return_Status => x_Return_Status);
1380: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1381: THEN
1382: return;
1383: END IF;
1384: Replicate_Comp_Ops(p_component_sequence_id => comp_rec.component_sequence_id
1384: Replicate_Comp_Ops(p_component_sequence_id => comp_rec.component_sequence_id
1385: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
1386: , x_Return_Status => x_Return_Status);
1387:
1388: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1389: THEN
1390: return;
1391: END IF;
1392:
1390: return;
1391: END IF;
1392:
1393: end loop; /*FOR comp_rec in get_source_components(p_src_bill_sequence_id) */
1394: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1395:
1396: EXCEPTION
1397:
1398: WHEN OTHERS THEN
1410: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1411: END IF;
1412: --arudresh_debug('Error in replicate component'||SQLERRM);
1413: fnd_message.set_name('BOM', 'BOM_REPLICATE_FAILED');
1414: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1415:
1416: END Replicate_Components;
1417:
1418:
1431: Replicate_Components (p_src_bill_sequence_id => p_src_bill_sequence_id
1432: , p_dest_bill_sequence_id => p_dest_bill_sequence_id
1433: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1434: , x_Return_Status => l_Return_Status);
1435: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
1436: THEN
1437: app_exception.raise_exception;
1438: END IF;
1439: END Replicate_Components;
1510: Check_Comp_Fixed_Rev_Dtls(p_src_bill_seq_id => p_src_bill_seq_id
1511: , p_src_comp_seq_id => p_src_comp_seq_id
1512: , x_return_status => x_return_status);
1513:
1514: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1515: THEN
1516:
1517: SELECT concatenated_segments
1518: into l_comp_name
1530: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1531: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1532: , p_Token_Tbl => l_token_tbl
1533: );
1534: x_Return_Status := FND_API.G_RET_STS_ERROR;
1535: fnd_message.set_name('BOM', 'BOM_FIXED_REV_NOT_ALLOWED');
1536: RETURN;
1537:
1538: END IF;
1545: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1546: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1547: , p_Token_Tbl => l_token_tbl
1548: );
1549: x_Return_Status := FND_API.G_RET_STS_ERROR;
1550: fnd_message.set_name('BOM', 'BOM_COMMON_OP_SEQ_INVALID');
1551: RETURN;
1552: END IF;
1553:
1670: , src_comp_details.HIGH_QUANTITY
1671: , src_comp_details.component_sequence_id
1672: , BOM_Globals.Get_Prog_AppId
1673: , src_comp_details.wip_supply_type
1674: , DECODE(src_comp_details.supply_locator_id, FND_API.G_MISS_NUM,
1675: NULL, src_comp_details.supply_locator_id)
1676: , src_comp_details.bom_item_type
1677: , src_comp_details.operation_seq_num --Check this too
1678: , src_comp_details.component_item_id
1680: , src_comp_details.last_updated_by /* Last Updated By */
1681: , SYSDATE /* Creation Date */
1682: , src_comp_details.created_by /* Created By */
1683: , src_comp_details.last_update_login /* Last Update Login */
1684: , DECODE(src_comp_details.ITEM_NUM, FND_API.G_MISS_NUM,
1685: 1, NULL,1,src_comp_details.ITEM_NUM)
1686: , src_comp_details.component_quantity
1687: , src_comp_details.COMPONENT_YIELD_FACTOR
1688: , src_comp_details.COMPONENT_REMARKS
1726: , NULL /* Include On Bill Docs */
1727: , src_comp_details.low_quantity
1728: , src_comp_details.acd_type
1729: -- , DECODE( p_rev_comp_Unexp_rec.old_component_sequence_id
1730: -- , FND_API.G_MISS_NUM
1731: -- , NULL
1732: -- ,p_rev_comp_Unexp_rec.old_component_sequence_id
1733: -- )
1734: , l_old_component_sequence_id --Chk this
1738: , SYSDATE /* program_update_date */
1739: , src_comp_details.pick_components
1740: , src_comp_details.original_system_reference
1741: , DECODE( src_comp_details.from_end_item_unit_number
1742: , FND_API.G_MISS_CHAR
1743: , null
1744: , src_comp_details.from_end_item_unit_number
1745: )
1746: , DECODE( src_comp_details.to_end_item_unit_number
1743: , null
1744: , src_comp_details.from_end_item_unit_number
1745: )
1746: , DECODE( src_comp_details.to_end_item_unit_number
1747: , FND_API.G_MISS_CHAR
1748: , null
1749: , src_comp_details.to_end_item_unit_number
1750: )
1751: , BOM_Globals.Get_Eco_For_Production
1800: , p_rev_item_seq_id => src_comp_details.revised_item_sequence_id
1801: , p_src_bill_seq_id => bill_rec.source_bill_sequence_id
1802: )
1803: THEN --overlap exists
1804: x_Return_Status := FND_API.G_RET_STS_ERROR;
1805: SELECT concatenated_segments
1806: into l_comp_name
1807: from mtl_system_items_kfv
1808: where inventory_item_id = src_comp_details.component_item_id
1852: AND basis_type = 2
1853: AND component_sequence_id = src_comp_details.component_sequence_id;
1854:
1855: --If such record exists, raise an error
1856: x_Return_Status := FND_API.G_RET_STS_ERROR;
1857:
1858: SELECT concatenated_segments
1859: into l_comp_name
1860: from mtl_system_items_kfv
1900: NULL;
1901: END;
1902: /*Propagate_Comp_User_Attributes(p_src_comp_seq_id => src_comp_details.common_component_sequence_id,
1903: x_Return_Status => x_Return_Status);*/
1904: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
1905: THEN
1906: return;
1907: END IF;
1908: end loop; --for src_comp_details in get_src_comp_details(p_src_comp_seq_id)
1907: END IF;
1908: end loop; --for src_comp_details in get_src_comp_details(p_src_comp_seq_id)
1909: end loop; --for bill_rec in get_related_bills(p_src_bill_seq_id)
1910:
1911: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1912:
1913: EXCEPTION
1914: WHEN OTHERS THEN
1915: --dbms_output.put_line(' SQL Error '||SQLERRM);
1927: );
1928: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1929: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1930: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
1931: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1932:
1933: END Insert_Related_Components;
1934:
1935:
1949: Insert_Related_Components(p_src_bill_seq_id => p_src_bill_seq_id
1950: , p_src_comp_seq_id => p_src_comp_seq_id
1951: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1952: , x_Return_Status => l_Return_Status);
1953: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
1954: THEN
1955: app_exception.raise_exception;
1956: END IF;
1957:
2086:
2087: /* need to populate Operation Lead Time percent corresponding to the operation
2088: -vhymavat bug3537394 */
2089: /*IF((p_rev_component_rec.new_operation_sequence_number IS NULL) OR
2090: (p_rev_component_rec.new_operation_sequence_number =FND_API.G_MISS_NUM) ) THEN
2091: l_operation_seq_num := p_rev_component_rec.operation_sequence_number;
2092:
2093: ELSE
2094: l_operation_seq_num :=p_rev_component_rec.new_operation_sequence_number;
2115: Check_Comp_Fixed_Rev_Dtls(p_src_bill_seq_id => src_comp.bill_sequence_id
2116: , p_src_comp_seq_id => src_comp.component_sequence_id
2117: , x_return_status => x_return_status);
2118:
2119: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
2120: THEN
2121:
2122: SELECT concatenated_segments
2123: into l_comp_name
2135: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2136: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2137: , p_Token_Tbl => l_token_tbl
2138: );
2139: x_Return_Status := FND_API.G_RET_STS_ERROR;
2140: fnd_message.set_name('BOM', 'BOM_FIXED_REV_NOT_ALLOWED');
2141: fnd_message.set_token('COMP_NAME', l_comp_name, true);
2142: RETURN;
2143:
2149: SET REQUIRED_FOR_REVENUE = src_comp.required_for_revenue
2150: , HIGH_QUANTITY = src_comp.HIGH_QUANTITY
2151: /* , WIP_SUPPLY_TYPE = p_rev_component_rec.wip_supply_type
2152: , SUPPLY_LOCATOR_ID =
2153: DECODE(p_rev_comp_Unexp_rec.supply_locator_id, FND_API.G_MISS_NUM,
2154: NULL, p_rev_comp_Unexp_rec.supply_locator_id)
2155: , OPERATION_SEQ_NUM = l_operation_seq_num*/
2156: , EFFECTIVITY_DATE = src_comp.effectivity_date
2157: , LAST_UPDATE_DATE = SYSDATE
2228: , p_rev_item_seq_id => dest_comp.revised_item_Sequence_id
2229: , p_src_bill_seq_id => src_comp.bill_sequence_id
2230: )
2231: THEN --overlap exists
2232: x_Return_Status := FND_API.G_RET_STS_ERROR;
2233:
2234: SELECT Organization_id
2235: INTO l_dest_org_id
2236: FROM BOM_STRUCTURES_B
2292: AND basis_type = 2
2293: AND component_sequence_id = dest_comp.component_sequence_id;
2294:
2295: --If such record exists, raise an error
2296: x_Return_Status := FND_API.G_RET_STS_ERROR;
2297:
2298: SELECT Organization_id
2299: INTO l_dest_org_id
2300: FROM BOM_STRUCTURES_B
2364: AND bill_sequence_id NOT IN (SELECT bill_sequence_id
2365: FROM eng_revised_items
2366: WHERE change_notice = bic.change_notice);
2367:
2368: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
2369:
2370: EXCEPTION
2371:
2372: WHEN OTHERS THEN
2382: );
2383: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2384: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2385: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
2386: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: END Update_Related_Components;
2388:
2389:
2390:
2400: BEGIN
2401: Update_Related_Components( p_src_comp_seq_id => p_src_comp_seq_id
2402: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2403: , x_Return_Status => l_Return_Status);
2404: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
2405: THEN
2406: app_exception.raise_exception;
2407: END IF;
2408: END Update_Related_Components;
2465: , SYSDATE
2466: , ref_desg.CREATED_BY
2467: , ref_desg.LAST_UPDATE_LOGIN
2468: , DECODE( ref_desg.ref_designator_comment
2469: , FND_API.G_MISS_CHAR
2470: , NULL
2471: , ref_desg.ref_designator_comment )
2472: , ref_desg.change_notice
2473: , comp.component_sequence_id
2507: )
2508: ;
2509: /*insert into bom_reference_designators(
2510: values(
2511: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
2512: EXCEPTION
2513: WHEN OTHERS THEN
2514: --dbms_output.put_line(' Error '||SQLERRM);
2515: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2525: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2526: END IF;
2527: fnd_message.set_name('BOM', 'BOM_REPLICATE_FAILED');
2528: --arudresh_debug('error in replicate ref desg'||SQLERRM);
2529: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2530: END Replicate_Ref_Desg;
2531:
2532:
2533: /*
2542: BEGIN
2543: Replicate_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2544: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2545: , x_Return_Status => l_Return_Status);
2546: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
2547: THEN
2548: app_exception.raise_exception;
2549: END IF;
2550: END;
2635: , SYSDATE
2636: , ref_desg.CREATED_BY
2637: , ref_desg.LAST_UPDATE_LOGIN
2638: , DECODE( ref_desg.ref_designator_comment
2639: , FND_API.G_MISS_CHAR
2640: , NULL
2641: , ref_desg.ref_designator_comment )
2642: , ref_desg.Change_Notice
2643: , dest_comp.component_sequence_id
2666: , ref_desg.component_sequence_id
2667: );
2668: end loop;--for dest_comp in get_destn_comps(p_component_sequence_id)
2669: end loop;--for ref_desg in get_ref_desg_details(p_component_sequence_id, p_ref_desg)
2670: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
2671: EXCEPTION
2672: WHEN OTHERS THEN
2673: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2674: THEN
2682: );
2683: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2684: END IF;
2685: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
2686: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2687:
2688: END Insert_Related_Ref_Desg;
2689:
2690:
2703: Insert_Related_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2704: , p_ref_desg => p_ref_desg
2705: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2706: , x_Return_Status => l_Return_Status);
2707: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
2708: THEN
2709: app_exception.raise_exception;
2710: END IF;
2711: END Insert_Related_Ref_Desg;
2779: AND NVL(ACD_TYPE, 0) = nvl(p_acd_type, 0);
2780: --end loop; --for dest_comp in get_destn_comps(p_component_sequence_id)
2781: end loop; --for ref_desg in get_ref_desg_details(p_component_sequence_id, p_ref_desg)
2782:
2783: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
2784:
2785: EXCEPTION
2786: WHEN OTHERS THEN
2787:
2786: WHEN OTHERS THEN
2787:
2788: /*IF G_CONTROL_REC.caller_type = 'FORM'
2789: THEN
2790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2791: RAISE;
2792: END IF;*/
2793: Error_Handler.Add_Error_Token
2794: ( p_Message_Name => NULL
2798: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2799: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl);
2800:
2801: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
2802: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2803:
2804:
2805: END Update_Related_Ref_Desg;
2806:
2824: , p_old_ref_desg => p_old_ref_desg
2825: , p_acd_type => p_acd_type
2826: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2827: , x_Return_Status => l_Return_Status);
2828: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
2829: THEN
2830: app_exception.raise_exception;
2831: END IF;
2832: END;
2941: and bsc2.substitute_component_id = sub_comp.substitute_component_id
2942: )
2943: ;
2944:
2945: x_return_status := FND_API.G_RET_STS_SUCCESS;
2946:
2947: EXCEPTION
2948:
2949: WHEN OTHERS THEN
2960: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2961: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2962: fnd_message.set_name('BOM', 'BOM_REPLICATE_FAILED');
2963: --arudresh_debug('error in replicate sub comp '||SQLERRM);
2964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2965: END Replicate_Sub_Comp;
2966:
2967: /*
2968: * This overloaded Procedure is called from Java to replicate the substitutes of components of the source BOM
2976: BEGIN
2977: Replicate_Sub_Comp(p_component_sequence_id => p_component_sequence_id
2978: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2979: , x_Return_Status => l_Return_Status);
2980: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
2981: THEN
2982: app_exception.raise_exception;
2983: END IF;
2984: END;
3102: );
3103:
3104: end loop; --for dest_comp in get_destn_comps(p_component_sequence_id)
3105: end loop;--for sub_comp in get_sub_comp_details(p_component_sequence_id, p_sub_comp_item_id)
3106: x_return_status := FND_API.G_RET_STS_SUCCESS;
3107:
3108: EXCEPTION
3109:
3110: WHEN OTHERS THEN
3120: );
3121: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3122: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3123: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
3124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3125: END Insert_Related_Sub_Comp;
3126:
3127:
3128:
3141: Insert_Related_Sub_Comp(p_component_sequence_id => p_component_sequence_id
3142: , p_sub_comp_item_id => p_sub_comp_item_id
3143: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3144: , x_Return_Status => l_Return_Status);
3145: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
3146: THEN
3147: app_exception.raise_exception;
3148: END IF;
3149: end;
3219: AND nvl(ACD_TYPE,0) = nvl(p_acd_type, 0)
3220: ;
3221: --end loop;--for dest_comp in get_destn_comps(p_component_sequence_id)
3222: end loop; --for sub_comp in get_sub_comp_details(p_component_sequence_id, p_sub_comp_item_id)
3223: x_return_status := FND_API.G_RET_STS_SUCCESS;
3224: EXCEPTION
3225:
3226: WHEN OTHERS THEN
3227: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3236: );
3237: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3238: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3239: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241: END Update_Related_Sub_Comp;
3242:
3243: /*
3244: * This overloaded Procedure is called from Java to update substitutes of the related components of the common boms whenever
3259: , p_new_sub_comp_item_id => p_new_sub_comp_item_id
3260: , p_acd_type => p_acd_type
3261: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3262: , x_Return_Status => l_Return_Status);
3263: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
3264: THEN
3265: app_exception.raise_exception;
3266: END IF;
3267: END;
3310: WHERE component_sequence_id = p_component_sequence_id;
3311: EXCEPTION
3312: WHEN NO_DATA_FOUND THEN
3313: --No comp ops to replicate, return
3314: x_return_status := FND_API.G_RET_STS_SUCCESS;
3315: Return;
3316: WHEN TOO_MANY_ROWS THEN
3317: --Continue with validations
3318: Null;
3348: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3349: , p_Token_Tbl => l_Token_Tbl
3350: );
3351: fnd_message.set_name('BOM', 'BOM_COMMON_OP_SEQ_INVALID');
3352: x_return_status := FND_API.G_RET_STS_ERROR;
3353: Return;
3354: WHEN TOO_MANY_ROWS THEN
3355: --Means just that more than one comp opn is associated with the comp.
3356: NULL;
3425: where ops2.component_sequence_id = dest_comp.component_sequence_id
3426: )
3427: ;
3428:
3429: x_return_status := FND_API.G_RET_STS_SUCCESS;
3430:
3431: EXCEPTION
3432:
3433: WHEN OTHERS THEN
3443: );
3444: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3445: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3446: fnd_message.set_name('BOM', 'BOM_REPLICATE_FAILED');
3447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3448: END Replicate_Comp_Ops;
3449:
3450:
3451: /*
3460: BEGIN
3461: Replicate_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3462: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3463: , x_Return_Status => l_Return_Status);
3464: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
3465: THEN
3466: app_exception.raise_exception;
3467: END IF;
3468: END;
3565: comp_ops.component_sequence_id
3566: );
3567: end loop; --for dest_comp in get_destn_comps(p_component_sequence_id)
3568: end loop; --for comp_ops in get_comp_op_details(p_component_sequence_id, p_comp_operation_seq_id)
3569: x_return_status := FND_API.G_RET_STS_SUCCESS;
3570:
3571: EXCEPTION
3572:
3573: WHEN OTHERS THEN
3583: );
3584: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3585: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3586: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
3587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3588: END Insert_Related_Comp_Ops;
3589:
3590:
3591:
3604: Insert_Related_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3605: , p_operation_seq_num => p_operation_seq_num
3606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3607: , x_Return_Status => l_Return_Status);
3608: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
3609: THEN
3610: app_exception.raise_exception;
3611: END IF;
3612: end;
3682: AND COMMON_COMPONENT_SEQUENCE_ID <> COMPONENT_SEQUENCE_ID
3683: ;
3684: --end loop; --for dest_comp in get_destn_comps(p_component_sequence_id)
3685: end loop; --for comp_ops in get_comp_op_details(p_component_sequence_id, p_comp_operation_seq_id)
3686: x_return_status := FND_API.G_RET_STS_SUCCESS;
3687: EXCEPTION
3688:
3689: WHEN OTHERS THEN
3690: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3699: );
3700: END IF; --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3701: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3702: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
3703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3704: END Update_Related_Comp_Ops;
3705:
3706: /*
3707: * This overloaded Procedure is called from Java to update Component Operations of the common boms whenever
3721: , p_old_operation_seq_num => p_old_operation_seq_num
3722: , p_new_operation_seq_num => p_new_operation_seq_num
3723: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3724: , x_Return_Status => l_Return_Status);
3725: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
3726: THEN
3727: app_exception.raise_exception;
3728: END IF;
3729: END;
3744: BEGIN
3745: DELETE FROM BOM_COMPONENT_OPERATIONS
3746: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq_id
3747: AND OPERATION_SEQ_NUM = p_operation_seq_num;
3748: x_return_status := FND_API.G_RET_STS_SUCCESS;
3749: EXCEPTION
3750: WHEN OTHERS THEN
3751: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
3752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3748: x_return_status := FND_API.G_RET_STS_SUCCESS;
3749: EXCEPTION
3750: WHEN OTHERS THEN
3751: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
3752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3753: END;
3754:
3755:
3756: /*
3882: EXIT When not valid_op_seq;
3883: end loop; --for src_op_seq in get_src_op_seq(p_src_bill_sequence_id)
3884:
3885: if not valid_op_seq then
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887: else
3888: x_return_status := FND_API.G_RET_STS_SUCCESS;
3889: end if; --if not valid_op_seq
3890: EXCEPTION
3884:
3885: if not valid_op_seq then
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887: else
3888: x_return_status := FND_API.G_RET_STS_SUCCESS;
3889: end if; --if not valid_op_seq
3890: EXCEPTION
3891: WHEN NO_DATA_FOUND THEN
3892: --Source bill doesnt have a rtg. No validation reqd.
3889: end if; --if not valid_op_seq
3890: EXCEPTION
3891: WHEN NO_DATA_FOUND THEN
3892: --Source bill doesnt have a rtg. No validation reqd.
3893: x_return_status := FND_API.G_RET_STS_SUCCESS;
3894: RETURN;
3895: WHEN TOO_MANY_ROWS THEN
3896: NULL;
3897: END;
3985: ,x_errorcode => l_errorcode
3986: ,x_msg_count => l_msg_count
3987: ,x_msg_data => l_msg_data
3988: );
3989: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS
3990: THEN
3991: fnd_message.set_name('BOM', 'BOM_REPLICATE_FAILED');
3992: return;
3993: END IF;
4098: p_api_version => 1.0
4099: ,p_object_name => 'BOM_COMPONENTS'
4100: ,p_pk_column_name_value_pairs => l_src_pk_col_name_val_pairs
4101: ,p_attr_group_request_table => l_attr_group_request_table
4102: ,p_commit => FND_API.G_TRUE
4103: ,x_attributes_row_table => l_attributes_row_table
4104: ,x_attributes_data_table => l_attributes_data_table
4105: ,x_return_status => x_return_status
4106: ,x_errorcode => l_errorcode
4106: ,x_errorcode => l_errorcode
4107: ,x_msg_count => l_msg_count
4108: ,x_msg_data => l_msg_data
4109: );
4110: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4111: THEN
4112: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
4113: Return;
4114: END IF;
4150: ,x_errorcode => l_errorcode
4151: ,x_msg_count => l_msg_count
4152: ,x_msg_data => l_msg_data
4153: );
4154: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4155: THEN
4156: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
4157: Return;
4158: END IF;
4315: AND COMPONENT_REFERENCE_DESIGNATOR = p_ref_desg;
4316: EXCEPTION
4317: WHEN OTHERS THEN
4318: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
4319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4320: END;
4321:
4322: /*
4323: * This Procedure is used to delete related sub comps from the referencing boms when sub comps
4335: AND SUBSTITUTE_COMPONENT_ID = p_sub_comp_item_id;
4336: EXCEPTION
4337: WHEN OTHERS THEN
4338: fnd_message.set_name('BOM', 'BOM_PROPAGATE_FAILED');
4339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4340: END;
4341:
4342:
4343: /*
4468: where component_sequence_id = p_src_comp_seq_id;
4469:
4470: IF l_impl_date IS NOT NULL
4471: THEN
4472: x_Return_Status := FND_API.G_RET_STS_ERROR;
4473: RETURN;
4474: END IF;
4475: */
4476: --Commented
4485:
4486: DELETE BOM_COMPONENT_OPERATIONS
4487: WHERE common_component_sequence_id = p_src_comp_seq_id;
4488:
4489: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4490:
4491: EXCEPTION
4492:
4493: WHEN OTHERS THEN
4490:
4491: EXCEPTION
4492:
4493: WHEN OTHERS THEN
4494: x_Return_Status := FND_API.G_RET_STS_ERROR;
4495: app_exception.raise_exception;
4496:
4497: END;
4498:
4577: BEGIN
4578: --
4579: -- Initialize
4580: --
4581: x_return_status := FND_API.G_RET_STS_SUCCESS;
4582: l_old_rev_item_seq_id := NULL;
4583:
4584: Eng_globals.Init_System_Info_Rec
4585: ( x_mesg_token_tbl => l_mesg_token_tbl
4618: --, OUT l_Mesg_Token_Tbl
4619: , OUT l_return_status;
4620: EXCEPTION
4621: WHEN OTHERS THEN
4622: l_return_status := FND_API.G_RET_STS_ERROR;
4623: END;
4624: END IF;
4625: IF (l_return_status = 'S')
4626: THEN
4808: --, l_comp_revision_id
4809: --, l_comp_minor_revision_id
4810: );
4811: ELSE
4812: x_return_status := FND_API.G_RET_STS_ERROR;
4813: RETURN;
4814: END IF;
4815: END LOOP;
4816: END LOOP;
4816: END LOOP;
4817: x_return_status := l_return_status;
4818: EXCEPTION
4819: WHEN OTHERS THEN
4820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4821: END Copy_Pending_Dest_Components;
4822:
4823:
4824:
4849: AND source.revision = dest.revision;
4850:
4851: IF l_comp_count <> l_rev_count
4852: THEN
4853: x_return_status := FND_API.G_RET_STS_ERROR;
4854: RETURN;
4855: END IF;
4856: END IF;
4857:
4854: RETURN;
4855: END IF;
4856: END IF;
4857:
4858: x_return_status := FND_API.G_RET_STS_SUCCESS;
4859: END;
4860:
4861:
4862:
4903: FOR org IN get_orgs
4904: LOOP
4905: IF get_rev_id_for_local_org(p_rev_id => p_rev_id, p_org_id => org.organization_id) IS NULL
4906: THEN
4907: RETURN FND_API.G_RET_STS_ERROR;
4908: END IF;
4909: END LOOP;
4910: RETURN FND_API.G_RET_STS_SUCCESS;
4911: END;
4906: THEN
4907: RETURN FND_API.G_RET_STS_ERROR;
4908: END IF;
4909: END LOOP;
4910: RETURN FND_API.G_RET_STS_SUCCESS;
4911: END;
4912:
4913: END bompcmbm ;