176: Close c_supplier;
177:
178: If l_supplier_available = 0 then
179: FND_MESSAGE.SET_NAME('CSP', 'CSP_REPAIR_ASSIGNMENT_NULL');
180: FND_MSG_PUB.ADD;
181: RAISE EXCP_USER_DEFINED;
182: End if;
183:
184: /*
199: order by misl.rank;
200: */
201: IF (l_source_type = 3 and l_repair_supplier_id IS NULL) THEN
202: FND_MESSAGE.SET_NAME('CSP', 'CSP_REPAIR_SUPPLIER_NULL');
203: FND_MSG_PUB.ADD;
204: RAISE EXCP_USER_DEFINED;
205: END IF;
206: /*
207: exception
206: /*
207: exception
208: WHEN NO_DATA_FOUND THEN
209: FND_MESSAGE.SET_NAME('CSP', 'CSP_REPAIR_ASSIGNMENT_NULL');
210: FND_MSG_PUB.ADD;
211: RAISE EXCP_USER_DEFINED;
212: end;
213: */
214: IF (l_source_type = 1) THEN
280: END If;
281: ELSE
282: FND_MESSAGE.SET_NAME ('CSP','CSP_NO_REPAIR_SUPPLIER_ORG');
283: FND_MESSAGE.SET_TOKEN ('REPAIR_SUPPLIER_NAME', to_char(null), TRUE);
284: FND_MSG_PUB.ADD;
285: RAISE EXCP_USER_DEFINED;
286: END IF;
287: exception
288: when no_data_found then
287: exception
288: when no_data_found then
289: FND_MESSAGE.SET_NAME ('CSP','CSP_NO_REPAIR_SUPPLIER_ORG');
290: FND_MESSAGE.SET_TOKEN ('REPAIR_SUPPLIER_NAME', to_char(null), TRUE);
291: FND_MSG_PUB.ADD;
292: RAISE EXCP_USER_DEFINED;
293: end;
294: END IF;
295: ELSIF l_line_tbl(I).planned_order_type = 4310 THEN
307:
308: IF (l_item_attr_rec.build_in_wip <> 'Y' OR
309: l_item_attr_rec.pick_components <> 'N') THEN
310: FND_MESSAGE.SET_NAME('CSP', 'CSP_WIP_ORDER_ERROR');
311: FND_MSG_PUB.ADD;
312: RAISE EXCP_USER_DEFINED;
313: END IF;
314:
315: INSERT INTO WIP_JOB_SCHEDULE_INTERFACE(
344: IF ((l_item_attr_Rec.src_type IS NULL) OR
345: (l_item_Attr_Rec.src_type = 1 AND l_item_attr_rec.order_flag <> 'Y') OR
346: (l_item_attr_rec.src_type = 2 AND l_item_attr_rec.purch_flag <> 'Y')) THEN
347: FND_MESSAGE.SET_NAME('CSP', 'CSP_CREATE_REQ_ERROR');
348: FND_MSG_PUB.ADD;
349: RAISE EXCP_USER_DEFINED;
350: END IF;
351:
352: IF (l_item_attr_rec.src_type = 2) THEN
421: WHEN FND_API.G_EXC_ERROR THEN
422: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
423: P_API_NAME => L_API_NAME
424: ,P_PKG_NAME => G_PKG_NAME
425: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
426: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
427: ,X_MSG_COUNT => X_MSG_COUNT
428: ,X_MSG_DATA => X_MSG_DATA
429: ,X_RETURN_STATUS => X_RETURN_STATUS);
430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
432: P_API_NAME => L_API_NAME
433: ,P_PKG_NAME => G_PKG_NAME
434: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
435: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
436: ,X_MSG_COUNT => X_MSG_COUNT
437: ,X_MSG_DATA => X_MSG_DATA
438: ,X_RETURN_STATUS => X_RETURN_STATUS);
440: Rollback to create_orders_pub;
441: FND_MESSAGE.SET_NAME('CSP', 'CSP_UNEXPECTED_EXEC_ERRORS');
442: FND_MESSAGE.SET_TOKEN('ROUTINE', l_api_name, FALSE);
443: FND_MESSAGE.SET_TOKEN('SQLERRM', sqlerrm, FALSE);
444: FND_MSG_PUB.ADD;
445: fnd_msg_pub.count_and_get
446: ( p_count => x_msg_count
447: , p_data => x_msg_data);
448: x_return_status := FND_API.G_RET_STS_ERROR;
441: FND_MESSAGE.SET_NAME('CSP', 'CSP_UNEXPECTED_EXEC_ERRORS');
442: FND_MESSAGE.SET_TOKEN('ROUTINE', l_api_name, FALSE);
443: FND_MESSAGE.SET_TOKEN('SQLERRM', sqlerrm, FALSE);
444: FND_MSG_PUB.ADD;
445: fnd_msg_pub.count_and_get
446: ( p_count => x_msg_count
447: , p_data => x_msg_data);
448: x_return_status := FND_API.G_RET_STS_ERROR;
449: