DBA Data[Home] [Help]

APPS.BOM_COMPONENT_API dependencies on BOM_COMPONENT_API

Line 1: PACKAGE BODY Bom_Component_Api AS

1: PACKAGE BODY Bom_Component_Api AS
2: /* $Header: BOMOICMB.pls 115.31 2002/12/05 19:01:19 sanmani ship $ */
3: /*==========================================================================+
4: | Copyright (c) 1997 Oracle Corporation Redwood Shores, California, USA |
5: | All rights reserved. |

Line 431: err_text := 'Bom_Component_Api(Assign-'||stmt_num||') '||

427: END;
428: END IF;
429:
430: IF (ret_code <> 0) THEN
431: err_text := 'Bom_Component_Api(Assign-'||stmt_num||') '||
432: err_text;
433: RETURN(ret_code);
434: END IF;
435: END IF;

Line 473: err_text := 'Bom_Component_Api(Assign-'||stmt_num||') '||

469: RETURN(ret_code);
470: END IF;
471: GOTO continue_loop;
472: WHEN others THEN
473: err_text := 'Bom_Component_Api(Assign-'||stmt_num||') '||
474: substrb(SQLERRM, 1, 60);
475: RETURN(SQLCODE);
476: END;
477: END;

Line 977: err_text := 'Bom_Component_Api(' ||stmt_num|| ')'||

973: process_flag = 2
974: WHERE transaction_id = c2rec.TI;
975:
976: IF (SQL%NOTFOUND) THEN
977: err_text := 'Bom_Component_Api(' ||stmt_num|| ')'||
978: substrb(SQLERRM,1,60);
979: RETURN(SQLCODE);
980: END IF;
981: GOTO continue_loop1;

Line 1045: err_text := 'Bom_Component_Api(' ||stmt_num|| ')'||

1041: process_flag = 2
1042: WHERE transaction_id = c2rec.TI;
1043:
1044: IF (SQL%NOTFOUND) THEN
1045: err_text := 'Bom_Component_Api(' ||stmt_num|| ')'||
1046: substrb(SQLERRM,1,60);
1047: RETURN(SQLCODE);
1048: END IF;
1049: ELSIF (c2rec.A = G_DELETE) THEN

Line 1063: err_text := 'Bom_Component_Api('||stmt_num||')'||

1059: process_flag = 2
1060: WHERE transaction_id = c2rec.TI;
1061:
1062: IF (SQL%NOTFOUND) THEN
1063: err_text := 'Bom_Component_Api('||stmt_num||')'||
1064: substrb(SQLERRM, 1, 60);
1065: RETURN(SQLCODE);
1066: END IF;
1067: END IF;

Line 1174: err_text := 'Bom_Component_Api(Assign-'||stmt_num||') '||substrb(SQLERRM,1,500);

1170:
1171: RETURN (0);
1172: EXCEPTION
1173: WHEN others THEN
1174: err_text := 'Bom_Component_Api(Assign-'||stmt_num||') '||substrb(SQLERRM,1,500);
1175: RETURN(SQLCODE);
1176: END Assign_Component;
1177:
1178: /*---------------------- Verify_Component_Count ------------------------*/

Line 1196: err_text := 'Bom_Component_Api(ComponentCount): Total number of components exceeds 9999 for this bill';

1192: SELECT count(*) INTO l_total FROM bom_inventory_components WHERE
1193: bill_sequence_id = bill_seq_id;
1194:
1195: IF l_total > 9999 THEN
1196: err_text := 'Bom_Component_Api(ComponentCount): Total number of components exceeds 9999 for this bill';
1197: Return 9999;
1198: END IF;
1199:
1200: err_text := NULL;

Line 1204: err_text := 'Bom_Component_Api(ComponentCount) '||substrb(SQLERRM,1,60);

1200: err_text := NULL;
1201: Return 0;
1202:
1203: EXCEPTION WHEN others THEN
1204: err_text := 'Bom_Component_Api(ComponentCount) '||substrb(SQLERRM,1,60);
1205: RETURN(SQLCODE);
1206:
1207: END Verify_Component_Count;
1208:

Line 1259: err_text := substrb('Bom_Component_Api(Unique): Component does not

1255: WHEN no_data_found THEN
1256: IF (exist_flag = 2) THEN
1257: null;
1258: ELSE
1259: err_text := substrb('Bom_Component_Api(Unique): Component does not
1260: exist '||SQLERRM,1,70);
1261: RETURN(9999);
1262: END IF;
1263: WHEN not_unique THEN

Line 1297: err_text := substrb('Bom_Component_Api(Unique): Component does not exist '||SQLERRM,1,70);

1293: END IF;
1294:
1295: EXCEPTION
1296: WHEN No_Data_Found THEN
1297: err_text := substrb('Bom_Component_Api(Unique): Component does not exist '||SQLERRM,1,70);
1298: RETURN(9999);
1299: WHEN Not_Unique THEN
1300: err_text := 'Bom_Component_Api(Unique) '||'Duplicate component sequence ids';
1301: RETURN(9999);

Line 1300: err_text := 'Bom_Component_Api(Unique) '||'Duplicate component sequence ids';

1296: WHEN No_Data_Found THEN
1297: err_text := substrb('Bom_Component_Api(Unique): Component does not exist '||SQLERRM,1,70);
1298: RETURN(9999);
1299: WHEN Not_Unique THEN
1300: err_text := 'Bom_Component_Api(Unique) '||'Duplicate component sequence ids';
1301: RETURN(9999);
1302: WHEN others THEN
1303: err_text := 'Bom_Component_Api(Unique-'||stmt_num||') '||substrb(SQLERRM,1,60);
1304: RETURN(SQLCODE);

Line 1303: err_text := 'Bom_Component_Api(Unique-'||stmt_num||') '||substrb(SQLERRM,1,60);

1299: WHEN Not_Unique THEN
1300: err_text := 'Bom_Component_Api(Unique) '||'Duplicate component sequence ids';
1301: RETURN(9999);
1302: WHEN others THEN
1303: err_text := 'Bom_Component_Api(Unique-'||stmt_num||') '||substrb(SQLERRM,1,60);
1304: RETURN(SQLCODE);
1305: END Verify_unique_component;
1306:
1307:

Line 1359: err_text := 'Bom_Component_Api(Duplicate): Component already exists in production';

1355: (act = G_Insert));
1356: RAISE already_exists;
1357: EXCEPTION
1358: WHEN already_exists THEN
1359: err_text := 'Bom_Component_Api(Duplicate): Component already exists in production';
1360: RETURN(cnt);
1361: WHEN no_data_found THEN
1362: null;
1363: END;

Line 1383: err_text := 'Bom_Component_Api(Duplicate): Component already exists in interface';

1379:
1380: RAISE already_exists;
1381: EXCEPTION
1382: WHEN already_exists THEN
1383: err_text := 'Bom_Component_Api(Duplicate): Component already exists in interface';
1384: RETURN(cnt);
1385: WHEN no_data_found THEN
1386: null;
1387: END;

Line 1392: err_text := 'Bom_Component_Api(Duplicate-'||stmt_num||') '||substrb(SQLERRM,1,60);

1388: RETURN(0);
1389:
1390: EXCEPTION
1391: WHEN others THEN
1392: err_text := 'Bom_Component_Api(Duplicate-'||stmt_num||') '||substrb(SQLERRM,1,60);
1393: RETURN(SQLCODE);
1394: END Verify_Duplicate_Component;
1395:
1396:

Line 1498: err_text := 'Bom_Component_Api(Overlap-'||stmt_num||') '||substrb(SQLERRM,1,60);

1494: WHEN Overlap THEN
1495: err_text := 'Component causes overlapping effectivity';
1496: RETURN(9999);
1497: WHEN others THEN
1498: err_text := 'Bom_Component_Api(Overlap-'||stmt_num||') '||substrb(SQLERRM,1,60);
1499: RETURN(SQLCODE);
1500: END Verify_Overlaps;
1501:
1502:

Line 1692: err_text := 'Bom_Component_Api(Attributes-'||stmt_num||') '||substrb(SQLERRM,1,60);

1688: WHEN No_Data_Found THEN
1689: err_text := 'Component and assembly item attributes invalid';
1690: return(9999);
1691: WHEN others THEN
1692: err_text := 'Bom_Component_Api(Attributes-'||stmt_num||') '||substrb(SQLERRM,1,60);
1693: return(SQLCODE);
1694: END Verify_Item_Attributes;
1695:
1696:

Line 1783: err_text := 'Bom_Component_Api(OpSeq-'||stmt_num||') '||substrb(SQLERRM,1,60);

1779: WHEN No_Data_Found THEN
1780: err_text := 'Invalid operation seq num';
1781: RETURN (9999);
1782: WHEN others THEN
1783: err_text := 'Bom_Component_Api(OpSeq-'||stmt_num||') '||substrb(SQLERRM,1,60);
1784: RETURN(SQLCODE);
1785: END Valid_Op_Seqs;
1786:
1787:

Line 4509: err_text := 'Bom_Component_Api(Validate-'||stmt_num||') '||substrb(SQLERRM,1,500);

4505: RETURN(0);
4506:
4507: EXCEPTION
4508: WHEN others THEN
4509: err_text := 'Bom_Component_Api(Validate-'||stmt_num||') '||substrb(SQLERRM,1,500);
4510: RETURN(SQLCODE);
4511: END Validate_Component;
4512:
4513:

Line 4937: err_text := 'Bom_Component_Api:'||to_char(stmt_num)||

4933:
4934: IF (X_comp_group_name is null) THEN
4935: X_error_message := FND_MESSAGE.Get_String('BOM',
4936: 'BOM_COMP_DELETE_GROUP_MISSING');
4937: err_text := 'Bom_Component_Api:'||to_char(stmt_num)||
4938: '- '||X_error_message;
4939: RETURN(-9999);
4940: END IF;
4941: END;

Line 4955: err_text := 'Bom_Component_Api('||to_char(stmt_num)||

4951:
4952: IF (X_delete_type <> 4) THEN
4953: X_error_message := FND_MESSAGE.Get_String('BOM',
4954: 'BOM_DELETE_GROUP_INVALID');
4955: err_text := 'Bom_Component_Api('||to_char(stmt_num)||
4956: ') - '||X_error_message;
4957: RETURN(-9999);
4958: END IF;
4959:

Line 5003: err_text := 'Bom_Component_Api(Transact-'||stmt_num||') '||substrb(SQLERRM,1,500);

4999: WHEN no_data_found THEN
5000: RETURN(0);
5001: WHEN OTHERS THEN
5002: ROLLBACK;
5003: err_text := 'Bom_Component_Api(Transact-'||stmt_num||') '||substrb(SQLERRM,1,500);
5004: return(SQLCODE);
5005:
5006: END Transact_Component;
5007:

Line 5108: err_text := 'Bom_Component_Api(Import-'||stmt_num||') '||substrb(SQLERRM,1,1000);

5104: RETURN(0);
5105:
5106: EXCEPTION
5107: WHEN others THEN
5108: err_text := 'Bom_Component_Api(Import-'||stmt_num||') '||substrb(SQLERRM,1,1000);
5109: RETURN(ret_code);
5110: END Import_Component;
5111:
5112:

Line 5113: END Bom_Component_Api;

5109: RETURN(ret_code);
5110: END Import_Component;
5111:
5112:
5113: END Bom_Component_Api;