1: PACKAGE BODY Bom_Open_Interface_Utl AS
2: /* $Header: BOMUBOIB.pls 120.15 2010/09/20 20:40:44 umajumde ship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
10: -- BOMUBOIB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package Bom_Open_Interface_Utl
15: --
16: -- NOTES
17: --
18: -- HISTORY
490:
491:
492: EXCEPTION
493: WHEN others THEN
494: err_text := 'Bom_Open_Interface_Utl(Process_Header_Info-'||stmt_num||') '||substrb(SQLERRM,1,1000);
495: RETURN(SQLCODE);
496:
497: END;
498:
1071:
1072:
1073: EXCEPTION
1074: WHEN others THEN
1075: err_text := 'Bom_Open_Interface_Utl(Process_component_Info-'||stmt_num||') '||substrb(SQLERRM,1,1000);
1076: RETURN(SQLCODE);
1077: END;
1078:
1079:
1351: return(0);
1352:
1353: EXCEPTION
1354: WHEN others THEN
1355: err_text := 'Bom_Open_Interface_Utl(Process_ref_desgs_Info-'||stmt_num||') '||substrb(SQLERRM,1,1000);
1356: RETURN(SQLCODE);
1357: END;
1358:
1359: /*--------------------------Process_Sub_Comps_Info------------------------------
1678: return(0);
1679:
1680: EXCEPTION
1681: WHEN others THEN
1682: err_text := 'Bom_Open_Interface_Utl(Process_sub_comps_Info-'||stmt_num||') '||substrb(SQLERRM,1,1000);
1683: RETURN(SQLCODE);
1684: END;
1685:
1686: /*--------------------------Process_Comp_Ops_Info------------------------------
1949: return(0);
1950:
1951: EXCEPTION
1952: WHEN others THEN
1953: err_text := 'Bom_Open_Interface_Utl(Process_comp_ops_Info-'||stmt_num||') '||substrb(SQLERRM,1,1000);
1954: RETURN(SQLCODE);
1955: END;
1956:
1957: FUNCTION Process_Revision_Info (
2127:
2128:
2129: EXCEPTION
2130: WHEN others THEN
2131: err_text := 'Bom_Open_Interface_Utl(Process_Revision_Info-'||stmt_num||') '||substrb(SQLERRM,1,1000);
2132: RETURN(SQLCODE);
2133:
2134: end;
2135:
3181:
3182: RETURN l_return_status;
3183: END;
3184:
3185: end Bom_Open_Interface_Utl;