182:
183: IF (p_source_api = 'Concurrent') THEN
184: fnd_message.set_name('EAM','EAM_PROCESS_MATERIAL');
185: fnd_message.set_token('INVENTORY_ITEM',p_materials_csr.inventory_item,TRUE);
186: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
187: END IF;
188: IF (p_materials_csr.revision_qty_control_code = 2) THEN
189: l_is_revision_control:=TRUE;
190: ELSE
263: OPEN get_yes_no(1);
264: FETCH get_yes_no INTO l_yes_no;
265: CLOSE get_yes_no;
266:
267: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
271: fnd_file.put_line(FND_FILE.OUTPUT, '
265: CLOSE get_yes_no;
266:
267: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
268: IF (x_work_order_printed = FALSE) THEN
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
271: fnd_file.put_line(FND_FILE.OUTPUT, '
272: x_work_order_printed :=TRUE;
273: END IF;
266:
267: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
268: IF (x_work_order_printed = FALSE) THEN
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
271: fnd_file.put_line(FND_FILE.OUTPUT, '
272: x_work_order_printed :=TRUE;
273: END IF;
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
267: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
268: IF (x_work_order_printed = FALSE) THEN
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
271: fnd_file.put_line(FND_FILE.OUTPUT, '
272: x_work_order_printed :=TRUE;
273: END IF;
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
275: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
271: fnd_file.put_line(FND_FILE.OUTPUT, '
272: x_work_order_printed :=TRUE;
273: END IF;
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
275: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
277:
278: ELSE
271: fnd_file.put_line(FND_FILE.OUTPUT, '
272: x_work_order_printed :=TRUE;
273: END IF;
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
275: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
277:
278: ELSE
279: IF FND_API.To_Boolean( p_commit ) THEN
272: x_work_order_printed :=TRUE;
273: END IF;
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
275: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
277:
278: ELSE
279: IF FND_API.To_Boolean( p_commit ) THEN
280: COMMIT;
290: LOOP
291: IF (p_source_api = 'Concurrent') THEN
292: fnd_message.set_name('EAM','EAM_PROCESS_MATERIAL');
293: fnd_message.set_token('INVENTORY_ITEM',p_direct_items_csr.item_description,TRUE);
294: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
295: END IF;
296:
297: IF (p_direct_items_csr.open_quantity > 0 ) THEN
298:
311: OPEN get_yes_no(1);
312: FETCH get_yes_no INTO l_yes_no;
313: CLOSE get_yes_no;
314:
315: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
317: IF (x_work_order_printed = FALSE) THEN
318: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
319: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
314:
315: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
316:
317: IF (x_work_order_printed = FALSE) THEN
318: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
319: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
320: fnd_file.put_line(FND_FILE.OUTPUT, '
321: x_work_order_printed := TRUE;
322: END IF;
315: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
316:
317: IF (x_work_order_printed = FALSE) THEN
318: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
319: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
320: fnd_file.put_line(FND_FILE.OUTPUT, '
321: x_work_order_printed := TRUE;
322: END IF;
323:
316:
317: IF (x_work_order_printed = FALSE) THEN
318: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
319: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
320: fnd_file.put_line(FND_FILE.OUTPUT, '
321: x_work_order_printed := TRUE;
322: END IF;
323:
324: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
320: fnd_file.put_line(FND_FILE.OUTPUT, '
321: x_work_order_printed := TRUE;
322: END IF;
323:
324: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
325: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
326: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
327:
328: ELSE
321: x_work_order_printed := TRUE;
322: END IF;
323:
324: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
325: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
326: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
327:
328: ELSE
329: IF FND_API.To_Boolean( p_commit ) THEN
322: END IF;
323:
324: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
325: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
326: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
327:
328: ELSE
329: IF FND_API.To_Boolean( p_commit ) THEN
330: COMMIT;
339: OPEN get_yes_no(2);
340: FETCH get_yes_no INTO l_yes_no;
341: CLOSE get_yes_no;
342:
343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
346: fnd_file.put_line(FND_FILE.OUTPUT, '
347: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
340: FETCH get_yes_no INTO l_yes_no;
341: CLOSE get_yes_no;
342:
343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
346: fnd_file.put_line(FND_FILE.OUTPUT, '
347: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
348: END IF;
341: CLOSE get_yes_no;
342:
343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
346: fnd_file.put_line(FND_FILE.OUTPUT, '
347: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
348: END IF;
349: UPDATE eam_work_order_details
342:
343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
346: fnd_file.put_line(FND_FILE.OUTPUT, '
347: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
348: END IF;
349: UPDATE eam_work_order_details
350: SET material_shortage_flag = 2,
343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
346: fnd_file.put_line(FND_FILE.OUTPUT, '
347: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
348: END IF;
349: UPDATE eam_work_order_details
350: SET material_shortage_flag = 2,
351: material_shortage_check_date = sysdate,
368: );
369: x_return_status := FND_API.G_RET_STS_ERROR ;
370:
371: IF (p_source_api = 'Concurrent') THEN
372: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
373: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
374: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
375: END IF;
376: x_shortage_exists := 'E';
369: x_return_status := FND_API.G_RET_STS_ERROR ;
370:
371: IF (p_source_api = 'Concurrent') THEN
372: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
373: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
374: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
375: END IF;
376: x_shortage_exists := 'E';
377: UPDATE eam_work_order_details
370:
371: IF (p_source_api = 'Concurrent') THEN
372: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
373: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
374: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
375: END IF;
376: x_shortage_exists := 'E';
377: UPDATE eam_work_order_details
378: SET material_shortage_flag = null,
392: (p_count => x_msg_count,
393: p_data => x_msg_data
394: );
395: IF (p_source_api = 'Concurrent') THEN
396: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
397: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
398: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
399: END IF;
400: x_shortage_exists := 'E';
393: p_data => x_msg_data
394: );
395: IF (p_source_api = 'Concurrent') THEN
396: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
397: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
398: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
399: END IF;
400: x_shortage_exists := 'E';
401: UPDATE eam_work_order_details
394: );
395: IF (p_source_api = 'Concurrent') THEN
396: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
397: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
398: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
399: END IF;
400: x_shortage_exists := 'E';
401: UPDATE eam_work_order_details
402: SET material_shortage_flag = null,
421: (p_count => x_msg_count,
422: p_data => x_msg_data
423: );
424: IF (p_source_api = 'Concurrent') THEN
425: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
426: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
427: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
428: END IF;
429: x_shortage_exists := 'E';
422: p_data => x_msg_data
423: );
424: IF (p_source_api = 'Concurrent') THEN
425: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
426: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
427: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
428: END IF;
429: x_shortage_exists := 'E';
430: UPDATE eam_work_order_details
423: );
424: IF (p_source_api = 'Concurrent') THEN
425: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
426: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
427: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
428: END IF;
429: x_shortage_exists := 'E';
430: UPDATE eam_work_order_details
431: SET material_shortage_flag = null,