2299:
2300: IF max_level_exceeded THEN
2301:
2302: error_code := 9998;
2303: Fnd_Message.Set_Name('BOM', 'BOM_LEVELS_EXCEEDED');
2304:
2305: FOR l_bill_rec in l_TopBill_csr
2306: LOOP
2307: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
2303: Fnd_Message.Set_Name('BOM', 'BOM_LEVELS_EXCEEDED');
2304:
2305: FOR l_bill_rec in l_TopBill_csr
2306: LOOP
2307: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
2308: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
2309: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
2310: END LOOP;
2311:
2304:
2305: FOR l_bill_rec in l_TopBill_csr
2306: LOOP
2307: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
2308: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
2309: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
2310: END LOOP;
2311:
2312: err_msg := Fnd_Message.Get_Encoded;
2305: FOR l_bill_rec in l_TopBill_csr
2306: LOOP
2307: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
2308: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
2309: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
2310: END LOOP;
2311:
2312: err_msg := Fnd_Message.Get_Encoded;
2313: ELSE
2308: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
2309: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
2310: END LOOP;
2311:
2312: err_msg := Fnd_Message.Get_Encoded;
2313: ELSE
2314: error_code := 0;
2315: err_msg := null;
2316:
2321: Fnd_Msg_Pub.Build_Exc_Msg(
2322: p_pkg_name => 'BOM_EXPLODER_PUB',
2323: p_procedure_name => 'BOM_EXPLODER',
2324: p_error_text => SQLERRM);
2325: err_msg := Fnd_Message.Get_Encoded;
2326: Raise exploder_error;
2327: --ROLLBACK;
2328:
2329: END bom_exploder;
4124: Fnd_Msg_Pub.Build_Exc_Msg(
4125: p_pkg_name => 'BOM_EXPLODER_PUB',
4126: p_procedure_name => 'exploder_userexit',
4127: p_error_text => 'verify parameters');
4128: err_msg := Fnd_Message.Get_Encoded;
4129: WHEN inv_uom_conv_exe THEN
4130: IF p_autonomous_transaction = 1 THEN
4131: rollback;
4132: END IF;
4129: WHEN inv_uom_conv_exe THEN
4130: IF p_autonomous_transaction = 1 THEN
4131: rollback;
4132: END IF;
4133: FND_MESSAGE.SET_NAME('BOM','BOM_UOMCV_INVUOMTYPE_ERR');
4134: fnd_message.Set_Token('FROMUOM',t_master_uom);
4135: fnd_message.Set_Token('TOUOM',t_child_uom);
4136: fnd_message.raise_error;
4137: WHEN OTHERS THEN
4130: IF p_autonomous_transaction = 1 THEN
4131: rollback;
4132: END IF;
4133: FND_MESSAGE.SET_NAME('BOM','BOM_UOMCV_INVUOMTYPE_ERR');
4134: fnd_message.Set_Token('FROMUOM',t_master_uom);
4135: fnd_message.Set_Token('TOUOM',t_child_uom);
4136: fnd_message.raise_error;
4137: WHEN OTHERS THEN
4138: IF p_autonomous_transaction = 1 THEN
4131: rollback;
4132: END IF;
4133: FND_MESSAGE.SET_NAME('BOM','BOM_UOMCV_INVUOMTYPE_ERR');
4134: fnd_message.Set_Token('FROMUOM',t_master_uom);
4135: fnd_message.Set_Token('TOUOM',t_child_uom);
4136: fnd_message.raise_error;
4137: WHEN OTHERS THEN
4138: IF p_autonomous_transaction = 1 THEN
4139: rollback;
4132: END IF;
4133: FND_MESSAGE.SET_NAME('BOM','BOM_UOMCV_INVUOMTYPE_ERR');
4134: fnd_message.Set_Token('FROMUOM',t_master_uom);
4135: fnd_message.Set_Token('TOUOM',t_child_uom);
4136: fnd_message.raise_error;
4137: WHEN OTHERS THEN
4138: IF p_autonomous_transaction = 1 THEN
4139: rollback;
4140: END IF;
4142: Fnd_Msg_Pub.Build_Exc_Msg(
4143: p_pkg_name => 'BOM_EXPLODER_PUB',
4144: p_procedure_name => 'exploder_userexit',
4145: p_error_text => SQLERRM);
4146: err_msg := Fnd_Message.Get_Encoded;
4147: --ROLLBACK;
4148: END exploder_userexit_pvt;
4149:
4150: procedure exploder_userexit_autonomous (