178:
179: IF (p_source_api = 'Concurrent') THEN
180: fnd_message.set_name('EAM','EAM_PROCESS_MATERIAL');
181: fnd_message.set_token('INVENTORY_ITEM',p_materials_csr.inventory_item,TRUE);
182: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
183: END IF;
184: IF (p_materials_csr.revision_qty_control_code = 2) THEN
185: l_is_revision_control:=TRUE;
186: ELSE
257: OPEN get_yes_no(1);
258: FETCH get_yes_no INTO l_yes_no;
259: CLOSE get_yes_no;
260:
261: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
264: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
265: fnd_file.put_line(FND_FILE.OUTPUT, '
259: CLOSE get_yes_no;
260:
261: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
262: IF (x_work_order_printed = FALSE) THEN
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
264: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
265: fnd_file.put_line(FND_FILE.OUTPUT, '
266: x_work_order_printed :=TRUE;
267: END IF;
260:
261: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
262: IF (x_work_order_printed = FALSE) THEN
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
264: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
265: fnd_file.put_line(FND_FILE.OUTPUT, '
266: x_work_order_printed :=TRUE;
267: END IF;
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
261: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
262: IF (x_work_order_printed = FALSE) THEN
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
264: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
265: fnd_file.put_line(FND_FILE.OUTPUT, '
266: x_work_order_printed :=TRUE;
267: END IF;
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
264: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
265: fnd_file.put_line(FND_FILE.OUTPUT, '
266: x_work_order_printed :=TRUE;
267: END IF;
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
271:
272: ELSE
265: fnd_file.put_line(FND_FILE.OUTPUT, '
266: x_work_order_printed :=TRUE;
267: END IF;
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
271:
272: ELSE
273: IF FND_API.To_Boolean( p_commit ) THEN
266: x_work_order_printed :=TRUE;
267: END IF;
268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
271:
272: ELSE
273: IF FND_API.To_Boolean( p_commit ) THEN
274: COMMIT;
284: LOOP
285: IF (p_source_api = 'Concurrent') THEN
286: fnd_message.set_name('EAM','EAM_PROCESS_MATERIAL');
287: fnd_message.set_token('INVENTORY_ITEM',p_direct_items_csr.item_description,TRUE);
288: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
289: END IF;
290:
291: IF (p_direct_items_csr.open_quantity > 0 ) THEN
292:
305: OPEN get_yes_no(1);
306: FETCH get_yes_no INTO l_yes_no;
307: CLOSE get_yes_no;
308:
309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
311: IF (x_work_order_printed = FALSE) THEN
312: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
313: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
308:
309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
310:
311: IF (x_work_order_printed = FALSE) THEN
312: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
313: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
314: fnd_file.put_line(FND_FILE.OUTPUT, '
315: x_work_order_printed := TRUE;
316: END IF;
309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
310:
311: IF (x_work_order_printed = FALSE) THEN
312: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
313: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
314: fnd_file.put_line(FND_FILE.OUTPUT, '
315: x_work_order_printed := TRUE;
316: END IF;
317:
310:
311: IF (x_work_order_printed = FALSE) THEN
312: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
313: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
314: fnd_file.put_line(FND_FILE.OUTPUT, '
315: x_work_order_printed := TRUE;
316: END IF;
317:
318: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
314: fnd_file.put_line(FND_FILE.OUTPUT, '
315: x_work_order_printed := TRUE;
316: END IF;
317:
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:
322: ELSE
315: x_work_order_printed := TRUE;
316: END IF;
317:
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:
322: ELSE
323: IF FND_API.To_Boolean( p_commit ) THEN
316: END IF;
317:
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:
322: ELSE
323: IF FND_API.To_Boolean( p_commit ) THEN
324: COMMIT;
332: OPEN get_yes_no(2);
333: FETCH get_yes_no INTO l_yes_no;
334: CLOSE get_yes_no;
335:
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
339: fnd_file.put_line(FND_FILE.OUTPUT, '
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
333: FETCH get_yes_no INTO l_yes_no;
334: CLOSE get_yes_no;
335:
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
337: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
339: fnd_file.put_line(FND_FILE.OUTPUT, '
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
341:
334: CLOSE get_yes_no;
335:
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
337: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
339: fnd_file.put_line(FND_FILE.OUTPUT, '
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
341:
342: UPDATE eam_work_order_details
335:
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
337: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
339: fnd_file.put_line(FND_FILE.OUTPUT, '
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
341:
342: UPDATE eam_work_order_details
343: SET material_shortage_flag = 2,
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
337: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
339: fnd_file.put_line(FND_FILE.OUTPUT, '
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
341:
342: UPDATE eam_work_order_details
343: SET material_shortage_flag = 2,
344: material_shortage_check_date = sysdate,
361: );
362: x_return_status := FND_API.G_RET_STS_ERROR ;
363:
364: IF (p_source_api = 'Concurrent') THEN
365: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
366: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
367: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
368: END IF;
369: x_shortage_exists := 'E';
362: x_return_status := FND_API.G_RET_STS_ERROR ;
363:
364: IF (p_source_api = 'Concurrent') THEN
365: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
366: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
367: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
368: END IF;
369: x_shortage_exists := 'E';
370: UPDATE eam_work_order_details
363:
364: IF (p_source_api = 'Concurrent') THEN
365: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
366: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
367: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
368: END IF;
369: x_shortage_exists := 'E';
370: UPDATE eam_work_order_details
371: SET material_shortage_flag = null,
385: (p_count => x_msg_count,
386: p_data => x_msg_data
387: );
388: IF (p_source_api = 'Concurrent') THEN
389: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
390: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
391: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
392: END IF;
393: x_shortage_exists := 'E';
386: p_data => x_msg_data
387: );
388: IF (p_source_api = 'Concurrent') THEN
389: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
390: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
391: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
392: END IF;
393: x_shortage_exists := 'E';
394: UPDATE eam_work_order_details
387: );
388: IF (p_source_api = 'Concurrent') THEN
389: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
390: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
391: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
392: END IF;
393: x_shortage_exists := 'E';
394: UPDATE eam_work_order_details
395: SET material_shortage_flag = null,
414: (p_count => x_msg_count,
415: p_data => x_msg_data
416: );
417: IF (p_source_api = 'Concurrent') THEN
418: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
419: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
420: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
421: END IF;
422: x_shortage_exists := 'E';
415: p_data => x_msg_data
416: );
417: IF (p_source_api = 'Concurrent') THEN
418: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
419: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
420: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
421: END IF;
422: x_shortage_exists := 'E';
423: UPDATE eam_work_order_details
416: );
417: IF (p_source_api = 'Concurrent') THEN
418: fnd_file.put_line(FND_FILE.LOG,x_msg_data);
419: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '
420: --FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
421: END IF;
422: x_shortage_exists := 'E';
423: UPDATE eam_work_order_details
424: SET material_shortage_flag = null,