[Home] [Help]
160: l_bom_revision_tbl Bom_Bo_Pub.Bom_Revision_Tbl_Type ;
161: l_bom_component_tbl Bom_Bo_Pub.Bom_Comps_Tbl_Type ;
162: l_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
163: l_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_type;
164: l_error_tbl Error_Handler.Error_Tbl_Type ;
165:
166: /* Bug 3171435 fix to mainline(3386399) */
167: l_bill_seq_id NUMBER;
168: delete_group_id NUMBER;
543: resp_appl_id=>FND_PROFILE.Value('RESP_APPL_ID'),
544: security_group_id=>FND_PROFILE.Value('SECURITY_GROUP_ID')) ;
545:
546: /** Initialize the message list **/
547: ERROR_HANDLER.INITIALIZE ;
548: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling BOM_BO_PUB.PROCESS_BOM');
549:
550: /** Call the BOM Business Object **/
551: BOM_BO_PUB.PROCESS_BOM
591:
592: failure_counter := failure_counter + 1 ;
593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Commoning errored for organization : '||t_org_code_list(I)) ;
594: ROLLBACK ;
595: ERROR_HANDLER.GET_MESSAGE_LIST(x_message_list=>l_error_tbl) ;
596: FOR K in l_error_tbl.FIRST..l_error_tbl.LAST LOOP
597: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
598: FND_FILE.PUT_LINE(FND_FILE.LOG,'entity_id : '||l_error_tbl(K).entity_id) ;
599: FND_FILE.PUT_LINE(FND_FILE.LOG,'message_text : '||l_error_tbl(K).message_text) ;
802: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
803: */
804: PROCEDURE Replicate_Components (p_src_bill_sequence_id IN NUMBER
805: , p_dest_bill_sequence_id IN NUMBER
806: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
807: , x_Return_Status IN OUT NOCOPY VARCHAR2)
808: IS
809: Cursor get_source_components(p_bill_sequence_id Number)
810: IS
832: l_supply_subinventory varchar2(10) := null;
833: l_dest_org_id number;
834: l_src_comp_seq_id NUMBER;
835: l_err_text VARCHAR2(2000);
836: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
837: l_dest_pk_col_name_val_pairs EGO_COL_NAME_VALUE_PAIR_ARRAY;
838: l_src_pk_col_name_val_pairs EGO_COL_NAME_VALUE_PAIR_ARRAY;
839: l_new_str_type EGO_COL_NAME_VALUE_PAIR_ARRAY;
840: l_str_type NUMBER;
844: l_src_str_type NUMBER;
845: l_assy_item_id NUMBER;
846: l_alt_bom_desg varchar2(10);
847: l_effectivity_ctrl NUMBER;
848: l_token_table Error_Handler.Token_Tbl_Type;
849:
850: l_pend_supply_type NUMBER;
851: l_pend_supply_subinv VARCHAR2 (10);
852: l_pend_supply_locator_id NUMBER;
865: IF l_effectivity_ctrl in (2,3,4)
866: THEN
867: x_Return_Status := FND_API.G_RET_STS_ERROR;
868: --arudresh_debug('adding error token');
869: Error_Handler.Add_Error_Token
870: (p_Message_Name => 'BOM_EDIT_COMM_INVALID_EFF'
871: -- , p_Message_Text => NULL
872: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
873: , x_Mesg_Token_Tbl => l_mesg_token_tbl
874: , p_Token_Tbl => l_token_table
875: );
876: fnd_message.set_name('BOM', 'BOM_EDIT_COMM_INVALID_EFF');
877: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
878: /*Error_Handler.Log_Error
879: (p_error_status => FND_API.G_RET_STS_ERROR
880: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
881: , p_error_scope => Error_Handler.G_SCOPE_RECORD
882: , p_error_level => Error_Handler.G_BH_LEVEL
877: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
878: /*Error_Handler.Log_Error
879: (p_error_status => FND_API.G_RET_STS_ERROR
880: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
881: , p_error_scope => Error_Handler.G_SCOPE_RECORD
882: , p_error_level => Error_Handler.G_BH_LEVEL
883: , x_bom_header_rec => Bom_Bo_Pub.G_MISS_BOM_HEADER_REC
884: , x_bom_revision_tbl => Bom_Bo_Pub.G_MISS_BOM_REVISION_TBL
885: , x_bom_component_tbl => Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL
878: /*Error_Handler.Log_Error
879: (p_error_status => FND_API.G_RET_STS_ERROR
880: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
881: , p_error_scope => Error_Handler.G_SCOPE_RECORD
882: , p_error_level => Error_Handler.G_BH_LEVEL
883: , x_bom_header_rec => Bom_Bo_Pub.G_MISS_BOM_HEADER_REC
884: , x_bom_revision_tbl => Bom_Bo_Pub.G_MISS_BOM_REVISION_TBL
885: , x_bom_component_tbl => Bom_Bo_Pub.G_MISS_BOM_COMPONENT_TBL
886: , x_bom_ref_Designator_tbl => Bom_Bo_Pub.G_MISS_BOM_REF_DESIGNATOR_TBL
1190:
1191: EXCEPTION
1192:
1193: WHEN OTHERS THEN
1194: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
1195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1196: THEN
1197: l_err_text := G_PKG_NAME ||' : Utility (Component Replicate) '
1198: || SUBSTR(SQLERRM, 1, 200);
1195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1196: THEN
1197: l_err_text := G_PKG_NAME ||' : Utility (Component Replicate) '
1198: || SUBSTR(SQLERRM, 1, 200);
1199: Error_Handler.Add_Error_Token
1200: ( p_Message_Name => NULL
1201: , p_Message_Text => l_err_text
1202: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1203: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1219: */
1220: PROCEDURE Replicate_Components (p_src_bill_sequence_id IN NUMBER
1221: , p_dest_bill_sequence_id IN NUMBER)
1222: IS
1223: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1224: l_Return_Status VARCHAR2(1);
1225: BEGIN
1226: Replicate_Components (p_src_bill_sequence_id => p_src_bill_sequence_id
1227: , p_dest_bill_sequence_id => p_dest_bill_sequence_id
1243: */
1244: PROCEDURE Insert_Related_Components
1245: ( p_src_bill_seq_id IN NUMBER
1246: , p_src_comp_seq_id IN NUMBER
1247: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1248: , x_Return_Status IN OUT NOCOPY VARCHAR2
1249: )
1250: IS
1251: Cursor get_related_bills(p_src_bill_sequence_id NUMBER) IS
1259: From BOM_COMPONENTS_B
1260: where component_sequence_id = p_src_comp_seq_id;
1261:
1262: l_err_text VARCHAR2(2000);
1263: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1264: l_Bo_Id VARCHAR2(3);
1265:
1266: l_old_component_sequence_id NUMBER; -- Bug 2820641
1267: default_wip_params NUMBER;
1280:
1281: --l_comp_name VARCHAR2(80);
1282: l_dest_assy_item VARCHAR2(80);
1283: l_dest_org_code VARCHAR2(3);
1284: l_token_tbl Error_Handler.Token_Tbl_Type;
1285:
1286: l_pend_supply_type NUMBER;
1287: l_pend_supply_subinv VARCHAR2 (10);
1288: l_pend_supply_locator_id NUMBER;
1319: l_token_tbl.DELETE;
1320: l_token_tbl(1).token_name := 'COMP_NAME';
1321: l_token_tbl(1).token_value := l_comp_name;
1322:
1323: Error_Handler.Add_Error_Token
1324: ( p_Message_Name => 'BOM_FIXED_REV_NOT_ALLOWED'
1325: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1326: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1327: , p_Token_Tbl => l_token_tbl
1334:
1335: IF NOT BOMPCMBM.Check_Op_Seq_In_Ref_Boms(p_src_bill_seq_id => p_src_bill_seq_id
1336: , p_op_seq => l_operation_seq_num)
1337: THEN
1338: Error_Handler.Add_Error_Token
1339: ( p_Message_Name => 'BOM_COMMON_OP_SEQ_INVALID'
1340: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1341: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1342: , p_Token_Tbl => l_token_tbl
1621: l_token_tbl(2).token_value := l_dest_org_code;
1622: l_token_tbl(3).token_name := 'ASSY_NAME';
1623: l_token_tbl(3).token_value := l_dest_assy_item;
1624:
1625: Error_Handler.Add_Error_Token
1626: (p_Message_Name => 'BOM_COMMON_OVERLAP'
1627: -- , p_Message_Text => NULL
1628: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1629: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1674: l_token_tbl(2).token_value := l_dest_org_code;
1675: l_token_tbl(3).token_name := 'ASSY_NAME';
1676: l_token_tbl(3).token_value := l_dest_assy_item;
1677:
1678: Error_Handler.Add_Error_Token
1679: (p_Message_Name => 'BOM_COMM_SUPPLY_BASIS_CONFLICT'
1680: -- , p_Message_Text => NULL
1681: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1682: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1707:
1708: EXCEPTION
1709: WHEN OTHERS THEN
1710: --dbms_output.put_line(' SQL Error '||SQLERRM);
1711: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
1712:
1713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1714: THEN
1715: l_err_text := G_PKG_NAME ||' : Utility (Related Component Insert) '
1713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1714: THEN
1715: l_err_text := G_PKG_NAME ||' : Utility (Related Component Insert) '
1716: ||SUBSTR(SQLERRM, 1, 200);
1717: Error_Handler.Add_Error_Token
1718: ( p_Message_Name => NULL
1719: , p_Message_Text => l_err_text
1720: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1721: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1737: */
1738: PROCEDURE Insert_Related_Components( p_src_bill_seq_id IN NUMBER
1739: , p_src_comp_seq_id IN NUMBER)
1740: IS
1741: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1742: l_Return_Status VARCHAR2(1);
1743: BEGIN
1744: Insert_Related_Components(p_src_bill_seq_id => p_src_bill_seq_id
1745: , p_src_comp_seq_id => p_src_comp_seq_id
1762: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
1763: */
1764: PROCEDURE Update_Related_Components
1765: ( p_src_comp_seq_id IN NUMBER
1766: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1767: , x_Return_Status IN OUT NOCOPY VARCHAR2
1768: )
1769: IS
1770: Cursor get_related_Components(p_src_comp_seq_id NUMBER) IS
1778: FROM BOM_COMPONENTS_B
1779: WHERE component_sequence_id = p_src_comp_seq_id;
1780:
1781: l_return_status varchar2(80);
1782: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1783: l_err_text VARCHAR2(2000);
1784: l_token_tbl Error_Handler.Token_Tbl_Type;
1785: l_comp_name VARCHAR2(80);
1786: l_dest_assy_item VARCHAR2(80);
1780:
1781: l_return_status varchar2(80);
1782: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1783: l_err_text VARCHAR2(2000);
1784: l_token_tbl Error_Handler.Token_Tbl_Type;
1785: l_comp_name VARCHAR2(80);
1786: l_dest_assy_item VARCHAR2(80);
1787: l_dest_org_code VARCHAR2(3);
1788: l_dest_org_id NUMBER;
1835: l_token_tbl.DELETE;
1836: l_token_tbl(1).token_name := 'COMP_NAME';
1837: l_token_tbl(1).token_value := l_comp_name;
1838:
1839: Error_Handler.Add_Error_Token
1840: ( p_Message_Name => 'BOM_FIXED_REV_NOT_ALLOWED'
1841: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1842: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1843: , p_Token_Tbl => l_token_tbl
1968: l_token_tbl(2).token_value := l_dest_org_code;
1969: l_token_tbl(3).token_name := 'ASSY_NAME';
1970: l_token_tbl(3).token_value := l_dest_assy_item;
1971:
1972: Error_Handler.Add_Error_Token
1973: (p_Message_Name => 'BOM_COMMON_OVERLAP'
1974: -- , p_Message_Text => NULL
1975: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1976: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2032: l_token_tbl(2).token_value := l_dest_org_code;
2033: l_token_tbl(3).token_name := 'ASSY_NAME';
2034: l_token_tbl(3).token_value := l_dest_assy_item;
2035:
2036: Error_Handler.Add_Error_Token
2037: (p_Message_Name => 'BOM_COMM_SUPPLY_BASIS_CONFLICT'
2038: -- , p_Message_Text => NULL
2039: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2040: , x_Mesg_Token_Tbl => l_mesg_token_tbl
2081: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2082: THEN
2083: l_err_text := G_PKG_NAME ||' : Utility (Related Component Update) '
2084: ||SUBSTR(SQLERRM, 1, 200);
2085: Error_Handler.Add_Error_Token
2086: ( p_Message_Name => NULL
2087: , p_Message_Text => l_err_text
2088: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2089: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2102: * @param p_src_comp_seq_id IN Component Sequence Id of the component updated
2103: */
2104: PROCEDURE Update_Related_Components( p_src_comp_seq_id IN NUMBER)
2105: IS
2106: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2107: l_Return_Status VARCHAR2(1);
2108: BEGIN
2109: Update_Related_Components( p_src_comp_seq_id => p_src_comp_seq_id
2110: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2122: * @param x_Mesg_Token_Tbl IN OUT Message tokens in the error message thrown.
2123: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2124: */
2125: Procedure Replicate_Ref_Desg(p_component_sequence_id IN NUMBER
2126: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2127: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2128: IS
2129:
2130: l_return_status varchar2(80);
2127: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2128: IS
2129:
2130: l_return_status varchar2(80);
2131: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2132: l_err_text VARCHAR2(2000);
2133:
2134: BEGIN
2135: INSERT INTO BOM_REFERENCE_DESIGNATORS
2223: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2224: THEN
2225: l_err_text := G_PKG_NAME ||' : Common BOM (Ref Desg Replicate) '
2226: ||SUBSTR(SQLERRM, 1, 200);
2227: Error_Handler.Add_Error_Token
2228: ( p_Message_Name => NULL
2229: , p_Message_Text => l_err_text
2230: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2231: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2244: * @param p_component_sequence_id IN Component Sequence Id of the component updated.
2245: */
2246: Procedure Replicate_Ref_Desg(p_component_sequence_id IN NUMBER)
2247: IS
2248: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2249: l_Return_Status VARCHAR2(1);
2250: BEGIN
2251: Replicate_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2252: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2267: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2268: */
2269: PROCEDURE Insert_Related_Ref_Desg(p_component_sequence_id IN NUMBER
2270: , p_ref_desg IN VARCHAR2
2271: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2272: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2273: IS
2274: l_return_status varchar2(80);
2275: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2271: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2272: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2273: IS
2274: l_return_status varchar2(80);
2275: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2276: l_err_text VARCHAR2(2000);
2277:
2278: Cursor get_ref_desg_details(p_comp_seq_id NUMBER,
2279: p_ref_desg VARCHAR2)
2381: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2382: THEN
2383: l_err_text := G_PKG_NAME ||' : Common BOM (Related Ref Desg Insert) '
2384: ||SUBSTR(SQLERRM, 1, 200);
2385: Error_Handler.Add_Error_Token
2386: ( p_Message_Name => NULL
2387: , p_Message_Text => l_err_text
2388: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2389: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2404: */
2405: PROCEDURE Insert_Related_Ref_Desg(p_component_sequence_id IN NUMBER
2406: , p_ref_desg IN VARCHAR2)
2407: IS
2408: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2409: l_Return_Status VARCHAR2(1);
2410: BEGIN
2411: Insert_Related_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2412: , p_ref_desg => p_ref_desg
2429: PROCEDURE Update_Related_Ref_Desg(p_component_sequence_id IN NUMBER
2430: , p_old_ref_desg IN VARCHAR2
2431: , p_new_ref_desg IN VARCHAR2
2432: , p_acd_type IN NUMBER
2433: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2434: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2435: IS
2436: l_return_status varchar2(80);
2437: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2433: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2434: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2435: IS
2436: l_return_status varchar2(80);
2437: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2438: l_err_text VARCHAR2(2000);
2439:
2440: Cursor get_ref_desg_details(p_comp_seq_id NUMBER,
2441: p_ref_desg VARCHAR2)
2497: THEN
2498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2499: RAISE;
2500: END IF;*/
2501: Error_Handler.Add_Error_Token
2502: ( p_Message_Name => NULL
2503: , p_Message_Text => 'ERROR in Update Row (Related Ref Desgs)' ||
2504: substr(SQLERRM, 1, 100) || ' ' ||
2505: to_char(SQLCODE)
2523: , p_old_ref_desg IN VARCHAR2
2524: , p_new_ref_desg IN VARCHAR2
2525: , p_acd_type IN NUMBER)
2526: IS
2527: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2528: l_Return_Status VARCHAR2(1);
2529: BEGIN
2530: Update_Related_Ref_Desg(p_component_sequence_id => p_component_sequence_id
2531: , p_new_ref_desg => p_new_ref_desg
2546: * @param x_Mesg_Token_Tbl IN OUT Message tokens in the error message thrown.
2547: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2548: */
2549: PROCEDURE Replicate_Sub_Comp(p_component_sequence_id IN NUMBER
2550: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2551: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2552: IS
2553:
2554: Cursor get_sub_comps(p_component_sequence_id NUMBER)
2563: where component_sequence_id <> common_component_sequence_id
2564: and common_component_sequence_id = p_component_sequence_id;
2565:
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: BEGIN
2571: INSERT INTO BOM_SUBSTITUTE_COMPONENTS
2658: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2659: THEN
2660: l_err_text := G_PKG_NAME ||'Utility (Substitute Component Replicate)'
2661: ||SUBSTR(SQLERRM, 1, 100);
2662: Error_Handler.Add_Error_Token
2663: ( p_Message_Name => NULL
2664: , p_Message_text => l_err_text
2665: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2666: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2678: * @param p_component_sequence_id IN Component Sequence Id of the component updated
2679: */
2680: PROCEDURE Replicate_Sub_Comp(p_component_sequence_id IN NUMBER)
2681: IS
2682: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2683: l_Return_Status VARCHAR2(1);
2684: BEGIN
2685: Replicate_Sub_Comp(p_component_sequence_id => p_component_sequence_id
2686: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2701: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2702: */
2703: PROCEDURE Insert_Related_Sub_Comp(p_component_sequence_id IN NUMBER
2704: , p_sub_comp_item_id IN NUMBER
2705: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2706: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2707: IS
2708:
2709: l_return_status varchar2(80);
2706: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2707: IS
2708:
2709: l_return_status varchar2(80);
2710: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2711: l_err_text VARCHAR2(2000);
2712:
2713: Cursor get_sub_comp_details(p_comp_seq_id NUMBER,
2714: p_sub_comp_item_id NUMBER)
2819: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2820: THEN
2821: l_err_text := G_PKG_NAME ||'Utility (Related Substitute Component Insert)'
2822: ||SUBSTR(SQLERRM, 1, 100);
2823: Error_Handler.Add_Error_Token
2824: ( p_Message_Name => NULL
2825: , p_Message_text => l_err_text
2826: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2827: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2842: */
2843: PROCEDURE Insert_Related_Sub_Comp(p_component_sequence_id IN NUMBER
2844: , p_sub_comp_item_id IN NUMBER)
2845: IS
2846: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2847: l_Return_Status VARCHAR2(1);
2848: begin
2849: Insert_Related_Sub_Comp(p_component_sequence_id => p_component_sequence_id
2850: , p_sub_comp_item_id => p_sub_comp_item_id
2867: PROCEDURE Update_Related_Sub_Comp(p_component_sequence_id IN NUMBER
2868: , p_old_sub_comp_item_id IN NUMBER
2869: , p_new_sub_comp_item_id IN NUMBER
2870: , p_acd_type IN NUMBER
2871: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2872: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2873: IS
2874:
2875: l_return_status varchar2(80);
2872: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2873: IS
2874:
2875: l_return_status varchar2(80);
2876: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2877: l_err_text VARCHAR2(2000);
2878: l_acd_type NUMBER;
2879:
2880: Cursor get_sub_comp_details(p_comp_seq_id NUMBER,
2935: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2936: THEN
2937: l_err_text := G_PKG_NAME ||'Utility (Related Substitute Component Insert)'
2938: ||SUBSTR(SQLERRM, 1, 100);
2939: Error_Handler.Add_Error_Token
2940: ( p_Message_Name => NULL
2941: , p_Message_text => l_err_text
2942: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2943: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2958: , p_old_sub_comp_item_id IN NUMBER
2959: , p_new_sub_comp_item_id IN NUMBER
2960: , p_acd_type IN NUMBER)
2961: IS
2962: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2963: l_Return_Status VARCHAR2(1);
2964: BEGIN
2965: Update_Related_Sub_Comp(p_component_sequence_id => p_component_sequence_id
2966: , p_old_sub_comp_item_id => p_old_sub_comp_item_id
2985: * @param x_Mesg_Token_Tbl IN OUT Message tokens in the error message thrown.
2986: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
2987: */
2988: PROCEDURE Replicate_Comp_Ops(p_component_sequence_id IN NUMBER
2989: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2990: , x_Return_Status IN OUT NOCOPY VARCHAR2)
2991: IS
2992:
2993: Cursor get_comp_ops(p_component_sequence_id NUMBER)
3002: where component_sequence_id <> common_component_sequence_id
3003: and common_component_sequence_id = p_comp_seq_id;
3004:
3005: l_return_status varchar2(80);
3006: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3007: l_err_text VARCHAR2(2000);
3008: l_dummy NUMBER;
3009: l_token_tbl Error_Handler.Token_tbl_Type;
3010: l_comp_op_exists VARCHAR2(1);
3005: l_return_status varchar2(80);
3006: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3007: l_err_text VARCHAR2(2000);
3008: l_dummy NUMBER;
3009: l_token_tbl Error_Handler.Token_tbl_Type;
3010: l_comp_op_exists VARCHAR2(1);
3011:
3012: BEGIN
3013:
3049: );
3050: EXCEPTION
3051: WHEN NO_DATA_FOUND THEN
3052: --At least one referring bill's rtg does not have the op seq of the comp op defined.
3053: Error_Handler.Add_Error_Token
3054: ( p_Message_Name => 'BOM_COMMON_OP_SEQ_INVALID'
3055: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3056: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3057: , p_Token_Tbl => l_Token_Tbl
3142: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3143: THEN
3144: l_err_text := G_PKG_NAME ||'Utility (Component Operations Replicate)'
3145: ||SUBSTR(SQLERRM, 1, 100);
3146: Error_Handler.Add_Error_Token
3147: ( p_Message_Name => NULL
3148: , p_Message_text => l_err_text
3149: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3150: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3162: * @param p_component_sequence_id IN Component Sequence Id of the component updated
3163: */
3164: PROCEDURE Replicate_Comp_Ops(p_component_sequence_id IN NUMBER)
3165: IS
3166: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3167: l_Return_Status VARCHAR2(1);
3168: BEGIN
3169: Replicate_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3170: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3185: * @param x_Return_Status IN OUT Return Status of the api: S(uccess)/E(rror)/U(nexpected) error
3186: */
3187: PROCEDURE Insert_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3188: , p_operation_seq_num IN NUMBER
3189: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3190: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3191: IS
3192:
3193: l_return_status varchar2(80);
3190: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3191: IS
3192:
3193: l_return_status varchar2(80);
3194: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3195: l_err_text VARCHAR2(2000);
3196:
3197: Cursor get_comp_op_details(p_comp_seq_id NUMBER,
3198: p_operation_seq_num NUMBER)
3282: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3283: THEN
3284: l_err_text := G_PKG_NAME ||'Utility (Related Component Operation Insert)'
3285: ||SUBSTR(SQLERRM, 1, 100);
3286: Error_Handler.Add_Error_Token
3287: ( p_Message_Name => NULL
3288: , p_Message_text => l_err_text
3289: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3290: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3305: */
3306: PROCEDURE Insert_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3307: , p_operation_seq_num IN NUMBER)
3308: IS
3309: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3310: l_Return_Status VARCHAR2(1);
3311: begin
3312: Insert_Related_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3313: , p_operation_seq_num => p_operation_seq_num
3330: */
3331: PROCEDURE Update_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3332: , p_old_operation_seq_num IN NUMBER
3333: , p_new_operation_seq_num IN NUMBER
3334: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3335: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3336: IS
3337:
3338: l_return_status varchar2(80);
3335: , x_Return_Status IN OUT NOCOPY VARCHAR2)
3336: IS
3337:
3338: l_return_status varchar2(80);
3339: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3340: l_err_text VARCHAR2(2000);
3341:
3342: Cursor get_comp_op_details(p_comp_seq_id NUMBER,
3343: p_new_operation_seq_num NUMBER)
3398: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3399: THEN
3400: l_err_text := G_PKG_NAME ||'Utility (Related Component Operation Insert)'
3401: ||SUBSTR(SQLERRM, 1, 100);
3402: Error_Handler.Add_Error_Token
3403: ( p_Message_Name => NULL
3404: , p_Message_text => l_err_text
3405: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3406: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3421: PROCEDURE Update_Related_Comp_Ops(p_component_sequence_id IN NUMBER
3422: , p_old_operation_seq_num IN NUMBER
3423: , p_new_operation_seq_num IN NUMBER)
3424: IS
3425: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3426: l_Return_Status VARCHAR2(1);
3427: BEGIN
3428: Update_Related_Comp_Ops(p_component_sequence_id => p_component_sequence_id
3429: , p_old_operation_seq_num => p_old_operation_seq_num
4222: l_dest_new_comp_seq_id NUMBER;
4223: l_old_rev_item_seq_id NUMBER;
4224: l_gen_rev_item_seq_id NUMBER;
4225: l_return_status VARCHAR2(1);
4226: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4227: l_plsql_block VARCHAR2(1000);
4228:
4229: BEGIN
4230: --