1160:
1161: IF max_level_exceeded THEN
1162:
1163: error_code := 9998;
1164: Fnd_Message.Set_Name('BOM', 'BOM_LEVELS_EXCEEDED');
1165:
1166: FOR l_bill_rec in l_TopBill_csr
1167: LOOP
1168: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
1164: Fnd_Message.Set_Name('BOM', 'BOM_LEVELS_EXCEEDED');
1165:
1166: FOR l_bill_rec in l_TopBill_csr
1167: LOOP
1168: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
1169: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
1170: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
1171: END LOOP;
1172:
1165:
1166: FOR l_bill_rec in l_TopBill_csr
1167: LOOP
1168: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
1169: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
1170: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
1171: END LOOP;
1172:
1173: err_msg := Fnd_Message.Get_Encoded;
1166: FOR l_bill_rec in l_TopBill_csr
1167: LOOP
1168: Fnd_Message.Set_Token('ENTITY', l_bill_rec.concatenated_segments);
1169: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
1170: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
1171: END LOOP;
1172:
1173: err_msg := Fnd_Message.Get_Encoded;
1174: ELSE
1169: Fnd_Message.Set_Token('ENTITY1', l_bill_rec.concatenated_segments);
1170: Fnd_Message.Set_Token('ENTITY2', l_bill_rec.alternate_bom_designator);
1171: END LOOP;
1172:
1173: err_msg := Fnd_Message.Get_Encoded;
1174: ELSE
1175: error_code := 0;
1176: err_msg := null;
1177:
1182: Fnd_Msg_Pub.Build_Exc_Msg(
1183: p_pkg_name => 'BOMPEXPL',
1184: p_procedure_name => 'BOM_EXPLODER',
1185: p_error_text => SQLERRM);
1186: err_msg := Fnd_Message.Get_Encoded;
1187: ROLLBACK;
1188:
1189: END bom_exploder;
1190: