[Home] [Help]
219: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type ;
220: l_bom_component_tbl Bom_Bo_Pub.Bom_Comps_Tbl_Type ;
221: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
222: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_type;
223: l_error_tbl Error_Handler.Error_Tbl_Type ;
224:
225: /* Bug 3171435 fix to mainline(3386399) */
226: l_bill_seq_id NUMBER;
227: delete_group_id NUMBER;
641: resp_appl_id=>FND_PROFILE.Value('RESP_APPL_ID'),
642: security_group_id=>FND_PROFILE.Value('SECURITY_GROUP_ID')) ;
643:
644: /** Initialize the message list **/
645: ERROR_HANDLER.INITIALIZE ;
646: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling BOM_BO_PUB.PROCESS_BOM');
647:
648: /** Call the BOM Business Object **/
649: BOM_BO_PUB.PROCESS_BOM
689:
690: failure_counter := failure_counter + 1 ;
691: FND_FILE.PUT_LINE(FND_FILE.LOG,'Commoning errored for organization : '||t_org_code_list(I)) ;
692: ROLLBACK ;
693: ERROR_HANDLER.GET_MESSAGE_LIST(x_message_list=>l_error_tbl) ;
694: FOR K in l_error_tbl.FIRST..l_error_tbl.LAST LOOP
695: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
696: FND_FILE.PUT_LINE(FND_FILE.LOG,'entity_id : '||l_error_tbl(K).entity_id) ;
697: FND_FILE.PUT_LINE(FND_FILE.LOG,'message_text : '||l_error_tbl(K).message_text) ;
1006: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
1007: */
1008: PROCEDURE Replicate_Components (p_src_bill_sequence_id IN NUMBER
1009: , p_dest_bill_sequence_id IN NUMBER
1010: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1011: , x_Return_Status IN OUT NOCOPY VARCHAR2)
1012: IS
1013: Cursor get_source_components(p_bill_sequence_id Number)
1014: IS
1036: l_supply_subinventory varchar2(10) := null;
1037: l_dest_org_id number;
1038: l_src_comp_seq_id NUMBER;
1039: l_err_text VARCHAR2(2000);
1040: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1041: l_dest_pk_col_name_val_pairs EGO_COL_NAME_VALUE_PAIR_ARRAY;
1042: l_src_pk_col_name_val_pairs EGO_COL_NAME_VALUE_PAIR_ARRAY;
1043: l_new_str_type EGO_COL_NAME_VALUE_PAIR_ARRAY;
1044: l_str_type NUMBER;
1048: l_src_str_type NUMBER;
1049: l_assy_item_id NUMBER;
1050: l_alt_bom_desg varchar2(10);
1051: l_effectivity_ctrl NUMBER;
1052: l_token_table Error_Handler.Token_Tbl_Type;
1053:
1054: l_pend_supply_type NUMBER;
1055: l_pend_supply_subinv VARCHAR2 (10);
1056: l_pend_supply_locator_id NUMBER;
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
1076: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1077: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1078: , p_Token_Tbl => l_token_table
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
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
1088: , x_bom_revision_tbl => Bom_Bo_Pub.G_MISS_BOM_REVISION_TBL
1089: , x_bom_component_tbl => Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL
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
1088: , x_bom_revision_tbl => Bom_Bo_Pub.G_MISS_BOM_REVISION_TBL
1089: , x_bom_component_tbl => Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL
1090: , x_bom_ref_Designator_tbl => Bom_Bo_Pub.G_MISS_BOM_REF_DESIGNATOR_TBL
1395:
1396: EXCEPTION
1397:
1398: WHEN OTHERS THEN
1399: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
1400: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1401: THEN
1402: l_err_text := G_PKG_NAME ||' : Utility (Component Replicate) '
1403: || SUBSTR(SQLERRM, 1, 200);
1400: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1401: THEN
1402: l_err_text := G_PKG_NAME ||' : Utility (Component Replicate) '
1403: || SUBSTR(SQLERRM, 1, 200);
1404: Error_Handler.Add_Error_Token
1405: ( p_Message_Name => NULL
1406: , p_Message_Text => l_err_text
1407: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1408: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1424: */
1425: PROCEDURE Replicate_Components (p_src_bill_sequence_id IN NUMBER
1426: , p_dest_bill_sequence_id IN NUMBER)
1427: IS
1428: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1429: l_Return_Status VARCHAR2(1);
1430: BEGIN
1431: Replicate_Components (p_src_bill_sequence_id => p_src_bill_sequence_id
1432: , p_dest_bill_sequence_id => p_dest_bill_sequence_id
1448: */
1449: PROCEDURE Insert_Related_Components
1450: ( p_src_bill_seq_id IN NUMBER
1451: , p_src_comp_seq_id IN NUMBER
1452: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1453: , x_Return_Status IN OUT NOCOPY VARCHAR2
1454: )
1455: IS
1456: Cursor get_related_bills(p_src_bill_sequence_id NUMBER) IS
1464: From BOM_COMPONENTS_B
1465: where component_sequence_id = p_src_comp_seq_id;
1466:
1467: l_err_text VARCHAR2(2000);
1468: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1469: l_Bo_Id VARCHAR2(3);
1470:
1471: l_old_component_sequence_id NUMBER; -- Bug 2820641
1472: default_wip_params NUMBER;
1485:
1486: --l_comp_name VARCHAR2(80);
1487: l_dest_assy_item VARCHAR2(80);
1488: l_dest_org_code VARCHAR2(3);
1489: l_token_tbl Error_Handler.Token_Tbl_Type;
1490:
1491: l_pend_supply_type NUMBER;
1492: l_pend_supply_subinv VARCHAR2 (10);
1493: l_pend_supply_locator_id NUMBER;
1524: l_token_tbl.DELETE;
1525: l_token_tbl(1).token_name := 'COMP_NAME';
1526: l_token_tbl(1).token_value := l_comp_name;
1527:
1528: Error_Handler.Add_Error_Token
1529: ( p_Message_Name => 'BOM_FIXED_REV_NOT_ALLOWED'
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
1539:
1540: IF NOT BOMPCMBM.Check_Op_Seq_In_Ref_Boms(p_src_bill_seq_id => p_src_bill_seq_id
1541: , p_op_seq => l_operation_seq_num)
1542: THEN
1543: Error_Handler.Add_Error_Token
1544: ( p_Message_Name => 'BOM_COMMON_OP_SEQ_INVALID'
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
1826: l_token_tbl(2).token_value := l_dest_org_code;
1827: l_token_tbl(3).token_name := 'ASSY_NAME';
1828: l_token_tbl(3).token_value := l_dest_assy_item;
1829:
1830: Error_Handler.Add_Error_Token
1831: (p_Message_Name => 'BOM_COMMON_OVERLAP'
1832: -- , p_Message_Text => NULL
1833: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1834: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1879: l_token_tbl(2).token_value := l_dest_org_code;
1880: l_token_tbl(3).token_name := 'ASSY_NAME';
1881: l_token_tbl(3).token_value := l_dest_assy_item;
1882:
1883: Error_Handler.Add_Error_Token
1884: (p_Message_Name => 'BOM_COMM_SUPPLY_BASIS_CONFLICT'
1885: -- , p_Message_Text => NULL
1886: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1887: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1912:
1913: EXCEPTION
1914: WHEN OTHERS THEN
1915: --dbms_output.put_line(' SQL Error '||SQLERRM);
1916: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
1917:
1918: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1919: THEN
1920: l_err_text := G_PKG_NAME ||' : Utility (Related Component Insert) '
1918: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1919: THEN
1920: l_err_text := G_PKG_NAME ||' : Utility (Related Component Insert) '
1921: ||SUBSTR(SQLERRM, 1, 200);
1922: Error_Handler.Add_Error_Token
1923: ( p_Message_Name => NULL
1924: , p_Message_Text => l_err_text
1925: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1926: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1942: */
1943: PROCEDURE Insert_Related_Components( p_src_bill_seq_id IN NUMBER
1944: , p_src_comp_seq_id IN NUMBER)
1945: IS
1946: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1947: l_Return_Status VARCHAR2(1);
1948: BEGIN
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
2056: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2057: */
2058: PROCEDURE Update_Related_Components
2059: ( p_src_comp_seq_id IN NUMBER
2060: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2061: , x_Return_Status IN OUT NOCOPY VARCHAR2
2062: )
2063: IS
2064: Cursor get_related_Components(p_src_comp_seq_id NUMBER) IS
2072: FROM BOM_COMPONENTS_B
2073: WHERE component_sequence_id = p_src_comp_seq_id;
2074:
2075: l_return_status varchar2(80);
2076: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2077: l_err_text VARCHAR2(2000);
2078: l_token_tbl Error_Handler.Token_Tbl_Type;
2079: l_comp_name VARCHAR2(80);
2080: l_dest_assy_item VARCHAR2(80);
2074:
2075: l_return_status varchar2(80);
2076: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2077: l_err_text VARCHAR2(2000);
2078: l_token_tbl Error_Handler.Token_Tbl_Type;
2079: l_comp_name VARCHAR2(80);
2080: l_dest_assy_item VARCHAR2(80);
2081: l_dest_org_code VARCHAR2(3);
2082: l_dest_org_id NUMBER;
2129: l_token_tbl.DELETE;
2130: l_token_tbl(1).token_name := 'COMP_NAME';
2131: l_token_tbl(1).token_value := l_comp_name;
2132:
2133: Error_Handler.Add_Error_Token
2134: ( p_Message_Name => 'BOM_FIXED_REV_NOT_ALLOWED'
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
2260: l_token_tbl(2).token_value := l_dest_org_code;
2261: l_token_tbl(3).token_name := 'ASSY_NAME';
2262: l_token_tbl(3).token_value := l_dest_assy_item;
2263:
2264: Error_Handler.Add_Error_Token
2265: (p_Message_Name => 'BOM_COMMON_OVERLAP'
2266: -- , p_Message_Text => NULL
2267: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2268: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2324: l_token_tbl(2).token_value := l_dest_org_code;
2325: l_token_tbl(3).token_name := 'ASSY_NAME';
2326: l_token_tbl(3).token_value := l_dest_assy_item;
2327:
2328: Error_Handler.Add_Error_Token
2329: (p_Message_Name => 'BOM_COMM_SUPPLY_BASIS_CONFLICT'
2330: -- , p_Message_Text => NULL
2331: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2332: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2373: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2374: THEN
2375: l_err_text := G_PKG_NAME ||' : Utility (Related Component Update) '
2376: ||SUBSTR(SQLERRM, 1, 200);
2377: Error_Handler.Add_Error_Token
2378: ( p_Message_Name => NULL
2379: , p_Message_Text => l_err_text
2380: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2381: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2394: * @param p_src_comp_seq_id IN Component Sequence Id of the component updated
2395: */
2396: PROCEDURE Update_Related_Components( p_src_comp_seq_id IN NUMBER)
2397: IS
2398: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2399: l_Return_Status VARCHAR2(1);
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
2414: * @param x_Mesg_Token_Tbl IN OUT Message tokens in the error message thrown.
2415: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2416: */
2417: Procedure Replicate_Ref_Desg(p_component_sequence_id IN NUMBER
2418: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2419: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2420: IS
2421:
2422: l_return_status varchar2(80);
2419: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2420: IS
2421:
2422: l_return_status varchar2(80);
2423: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2424: l_err_text VARCHAR2(2000);
2425:
2426: BEGIN
2427: INSERT INTO BOM_REFERENCE_DESIGNATORS
2515: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2516: THEN
2517: l_err_text := G_PKG_NAME ||' : Common BOM (Ref Desg Replicate) '
2518: ||SUBSTR(SQLERRM, 1, 200);
2519: Error_Handler.Add_Error_Token
2520: ( p_Message_Name => NULL
2521: , p_Message_Text => l_err_text
2522: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2523: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2536: * @param p_component_sequence_id IN Component Sequence Id of the component updated.
2537: */
2538: Procedure Replicate_Ref_Desg(p_component_sequence_id IN NUMBER)
2539: IS
2540: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2541: l_Return_Status VARCHAR2(1);
2542: BEGIN
2543: Replicate_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2544: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2559: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2560: */
2561: PROCEDURE Insert_Related_Ref_Desg(p_component_sequence_id IN NUMBER
2562: , p_ref_desg IN VARCHAR2
2563: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2564: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2565: IS
2566: l_return_status varchar2(80);
2567: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2563: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2564: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2565: IS
2566: l_return_status varchar2(80);
2567: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2568: l_err_text VARCHAR2(2000);
2569:
2570: Cursor get_ref_desg_details(p_comp_seq_id NUMBER,
2571: p_ref_desg VARCHAR2)
2673: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2674: THEN
2675: l_err_text := G_PKG_NAME ||' : Common BOM (Related Ref Desg Insert) '
2676: ||SUBSTR(SQLERRM, 1, 200);
2677: Error_Handler.Add_Error_Token
2678: ( p_Message_Name => NULL
2679: , p_Message_Text => l_err_text
2680: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2681: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2696: */
2697: PROCEDURE Insert_Related_Ref_Desg(p_component_sequence_id IN NUMBER
2698: , p_ref_desg IN VARCHAR2)
2699: IS
2700: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2701: l_Return_Status VARCHAR2(1);
2702: BEGIN
2703: Insert_Related_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2704: , p_ref_desg => p_ref_desg
2721: PROCEDURE Update_Related_Ref_Desg(p_component_sequence_id IN NUMBER
2722: , p_old_ref_desg IN VARCHAR2
2723: , p_new_ref_desg IN VARCHAR2
2724: , p_acd_type IN NUMBER
2725: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2726: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2727: IS
2728: l_return_status varchar2(80);
2729: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2725: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2726: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2727: IS
2728: l_return_status varchar2(80);
2729: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2730: l_err_text VARCHAR2(2000);
2731:
2732: Cursor get_ref_desg_details(p_comp_seq_id NUMBER,
2733: p_ref_desg VARCHAR2)
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
2795: , p_Message_Text => 'ERROR in Update Row (Related Ref Desgs)' ||
2796: substr(SQLERRM, 1, 100) || ' ' ||
2797: to_char(SQLCODE)
2815: , p_old_ref_desg IN VARCHAR2
2816: , p_new_ref_desg IN VARCHAR2
2817: , p_acd_type IN NUMBER)
2818: IS
2819: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2820: l_Return_Status VARCHAR2(1);
2821: BEGIN
2822: Update_Related_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2823: , p_new_ref_desg => p_new_ref_desg
2838: * @param x_Mesg_Token_Tbl IN OUT Message tokens in the error message thrown.
2839: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2840: */
2841: PROCEDURE Replicate_Sub_Comp(p_component_sequence_id IN NUMBER
2842: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2843: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2844: IS
2845:
2846: Cursor get_sub_comps(p_component_sequence_id NUMBER)
2855: where component_sequence_id <> common_component_sequence_id
2856: and common_component_sequence_id = p_component_sequence_id;
2857:
2858: l_return_status varchar2(80);
2859: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2860: l_err_text VARCHAR2(2000);
2861:
2862: BEGIN
2863: INSERT INTO BOM_SUBSTITUTE_COMPONENTS
2950: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2951: THEN
2952: l_err_text := G_PKG_NAME ||'Utility (Substitute Component Replicate)'
2953: ||SUBSTR(SQLERRM, 1, 100);
2954: Error_Handler.Add_Error_Token
2955: ( p_Message_Name => NULL
2956: , p_Message_text => l_err_text
2957: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2958: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2970: * @param p_component_sequence_id IN Component Sequence Id of the component updated
2971: */
2972: PROCEDURE Replicate_Sub_Comp(p_component_sequence_id IN NUMBER)
2973: IS
2974: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2975: l_Return_Status VARCHAR2(1);
2976: BEGIN
2977: Replicate_Sub_Comp(p_component_sequence_id => p_component_sequence_id
2978: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2993: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2994: */
2995: PROCEDURE Insert_Related_Sub_Comp(p_component_sequence_id IN NUMBER
2996: , p_sub_comp_item_id IN NUMBER
2997: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2998: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2999: IS
3000:
3001: l_return_status varchar2(80);
2998: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2999: IS
3000:
3001: l_return_status varchar2(80);
3002: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3003: l_err_text VARCHAR2(2000);
3004:
3005: Cursor get_sub_comp_details(p_comp_seq_id NUMBER,
3006: p_sub_comp_item_id NUMBER)
3111: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3112: THEN
3113: l_err_text := G_PKG_NAME ||'Utility (Related Substitute Component Insert)'
3114: ||SUBSTR(SQLERRM, 1, 100);
3115: Error_Handler.Add_Error_Token
3116: ( p_Message_Name => NULL
3117: , p_Message_text => l_err_text
3118: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3119: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3134: */
3135: PROCEDURE Insert_Related_Sub_Comp(p_component_sequence_id IN NUMBER
3136: , p_sub_comp_item_id IN NUMBER)
3137: IS
3138: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3139: l_Return_Status VARCHAR2(1);
3140: begin
3141: Insert_Related_Sub_Comp(p_component_sequence_id => p_component_sequence_id
3142: , p_sub_comp_item_id => p_sub_comp_item_id
3159: PROCEDURE Update_Related_Sub_Comp(p_component_sequence_id IN NUMBER
3160: , p_old_sub_comp_item_id IN NUMBER
3161: , p_new_sub_comp_item_id IN NUMBER
3162: , p_acd_type IN NUMBER
3163: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3164: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3165: IS
3166:
3167: l_return_status varchar2(80);
3164: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3165: IS
3166:
3167: l_return_status varchar2(80);
3168: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3169: l_err_text VARCHAR2(2000);
3170: l_acd_type NUMBER;
3171:
3172: Cursor get_sub_comp_details(p_comp_seq_id NUMBER,
3227: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3228: THEN
3229: l_err_text := G_PKG_NAME ||'Utility (Related Substitute Component Insert)'
3230: ||SUBSTR(SQLERRM, 1, 100);
3231: Error_Handler.Add_Error_Token
3232: ( p_Message_Name => NULL
3233: , p_Message_text => l_err_text
3234: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3235: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3250: , p_old_sub_comp_item_id IN NUMBER
3251: , p_new_sub_comp_item_id IN NUMBER
3252: , p_acd_type IN NUMBER)
3253: IS
3254: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3255: l_Return_Status VARCHAR2(1);
3256: BEGIN
3257: Update_Related_Sub_Comp(p_component_sequence_id => p_component_sequence_id
3258: , p_old_sub_comp_item_id => p_old_sub_comp_item_id
3277: * @param x_Mesg_Token_Tbl IN OUT Message tokens in the error message thrown.
3278: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
3279: */
3280: PROCEDURE Replicate_Comp_Ops(p_component_sequence_id IN NUMBER
3281: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3282: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3283: IS
3284:
3285: Cursor get_comp_ops(p_component_sequence_id NUMBER)
3294: where component_sequence_id <> common_component_sequence_id
3295: and common_component_sequence_id = p_comp_seq_id;
3296:
3297: l_return_status varchar2(80);
3298: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3299: l_err_text VARCHAR2(2000);
3300: l_dummy NUMBER;
3301: l_token_tbl Error_Handler.Token_tbl_Type;
3302: l_comp_op_exists VARCHAR2(1);
3297: l_return_status varchar2(80);
3298: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3299: l_err_text VARCHAR2(2000);
3300: l_dummy NUMBER;
3301: l_token_tbl Error_Handler.Token_tbl_Type;
3302: l_comp_op_exists VARCHAR2(1);
3303:
3304: BEGIN
3305:
3341: );
3342: EXCEPTION
3343: WHEN NO_DATA_FOUND THEN
3344: --At least one referring bill's rtg does not have the op seq of the comp op defined.
3345: Error_Handler.Add_Error_Token
3346: ( p_Message_Name => 'BOM_COMMON_OP_SEQ_INVALID'
3347: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3348: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3349: , p_Token_Tbl => l_Token_Tbl
3434: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3435: THEN
3436: l_err_text := G_PKG_NAME ||'Utility (Component Operations Replicate)'
3437: ||SUBSTR(SQLERRM, 1, 100);
3438: Error_Handler.Add_Error_Token
3439: ( p_Message_Name => NULL
3440: , p_Message_text => l_err_text
3441: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3442: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3454: * @param p_component_sequence_id IN Component Sequence Id of the component updated
3455: */
3456: PROCEDURE Replicate_Comp_Ops(p_component_sequence_id IN NUMBER)
3457: IS
3458: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3459: l_Return_Status VARCHAR2(1);
3460: BEGIN
3461: Replicate_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3462: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3477: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
3478: */
3479: PROCEDURE Insert_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3480: , p_operation_seq_num IN NUMBER
3481: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3482: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3483: IS
3484:
3485: l_return_status varchar2(80);
3482: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3483: IS
3484:
3485: l_return_status varchar2(80);
3486: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3487: l_err_text VARCHAR2(2000);
3488:
3489: Cursor get_comp_op_details(p_comp_seq_id NUMBER,
3490: p_operation_seq_num NUMBER)
3574: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3575: THEN
3576: l_err_text := G_PKG_NAME ||'Utility (Related Component Operation Insert)'
3577: ||SUBSTR(SQLERRM, 1, 100);
3578: Error_Handler.Add_Error_Token
3579: ( p_Message_Name => NULL
3580: , p_Message_text => l_err_text
3581: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3582: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3597: */
3598: PROCEDURE Insert_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3599: , p_operation_seq_num IN NUMBER)
3600: IS
3601: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3602: l_Return_Status VARCHAR2(1);
3603: begin
3604: Insert_Related_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3605: , p_operation_seq_num => p_operation_seq_num
3622: */
3623: PROCEDURE Update_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3624: , p_old_operation_seq_num IN NUMBER
3625: , p_new_operation_seq_num IN NUMBER
3626: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3627: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3628: IS
3629:
3630: l_return_status varchar2(80);
3627: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3628: IS
3629:
3630: l_return_status varchar2(80);
3631: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3632: l_err_text VARCHAR2(2000);
3633:
3634: Cursor get_comp_op_details(p_comp_seq_id NUMBER,
3635: p_new_operation_seq_num NUMBER)
3690: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3691: THEN
3692: l_err_text := G_PKG_NAME ||'Utility (Related Component Operation Insert)'
3693: ||SUBSTR(SQLERRM, 1, 100);
3694: Error_Handler.Add_Error_Token
3695: ( p_Message_Name => NULL
3696: , p_Message_text => l_err_text
3697: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3698: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3713: PROCEDURE Update_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3714: , p_old_operation_seq_num IN NUMBER
3715: , p_new_operation_seq_num IN NUMBER)
3716: IS
3717: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3718: l_Return_Status VARCHAR2(1);
3719: BEGIN
3720: Update_Related_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3721: , p_old_operation_seq_num => p_old_operation_seq_num
4284: Procedure Delete_Related_Components(p_src_comp_seq IN NUMBER)
4285: IS
4286: BEGIN
4287:
4288: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('In Delete_Related_Components' ); END IF;
4289: DELETE FROM BOM_COMPONENTS_B
4290: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq;
4291:
4292: DELETE FROM BOM_REFERENCE_DESIGNATORS
4570: l_dest_new_comp_seq_id NUMBER;
4571: l_old_rev_item_seq_id NUMBER;
4572: l_gen_rev_item_seq_id NUMBER;
4573: l_return_status VARCHAR2(1);
4574: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4575: l_plsql_block VARCHAR2(1000);
4576:
4577: BEGIN
4578: --