1: package body BOMPXINQ as
2: /* $Header: BOMXINQB.pls 120.0 2005/05/25 05:49:28 appldev noship $ */
3: /*==========================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |
585: err_msg := out_message;
586: WHEN parameter_error THEN
587: error_code := -1;
588: Fnd_Msg_Pub.Build_Exc_Msg(
589: p_pkg_name => 'BOMPXINQ',
590: p_procedure_name => 'exploder_userexit',
591: p_error_text => 'verify parameters');
592: err_msg := Fnd_Message.Get_Encoded;
593: WHEN inv_uom_conv_exe THEN
598:
599: WHEN OTHERS THEN
600: error_code := SQLCODE;
601: Fnd_Msg_Pub.Build_Exc_Msg(
602: p_pkg_name => 'BOMPXINQ',
603: p_procedure_name => 'exploder_userexit',
604: p_error_text => SQLERRM);
605: err_msg := Fnd_Message.Get_Encoded;
606: ROLLBACK TO exploder_userexit_pvt; -- Added for bug: 3863319
1612: l_organization_id NUMBER;
1613: l_assembly_item_id NUMBER;
1614: l_profile_id NUMBER := FND_PROFILE.value('PER_SECURITY_PROFILE_ID');
1615:
1616: l_bom_export_tab BOMPXINQ.BOMEXPORTTABTYPE;
1617:
1618: CURSOR organization_code_CUR IS
1619: SELECT organization_id
1620: FROM mtl_parameters
1810: X_error_code := -113;
1811: X_Err_Msg := FND_MESSAGE.Get;
1812: END EXPORT_BOM;
1813:
1814: END BOMPXINQ;