408: RETCODE := 0;
409:
410: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
411:
412: FND_FILE.Put_Line(FND_FILE.LOG, 'Parameters:');
413: FND_FILE.Put_Line(FND_FILE.LOG, ' ORG_ID = '||
414: p_org_id);
415: FND_FILE.Put_Line(FND_FILE.LOG, ' Use_reservation_time_fence = '||
416: p_use_reservation_time_fence);
409:
410: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
411:
412: FND_FILE.Put_Line(FND_FILE.LOG, 'Parameters:');
413: FND_FILE.Put_Line(FND_FILE.LOG, ' ORG_ID = '||
414: p_org_id);
415: FND_FILE.Put_Line(FND_FILE.LOG, ' Use_reservation_time_fence = '||
416: p_use_reservation_time_fence);
417: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_low = '||
411:
412: FND_FILE.Put_Line(FND_FILE.LOG, 'Parameters:');
413: FND_FILE.Put_Line(FND_FILE.LOG, ' ORG_ID = '||
414: p_org_id);
415: FND_FILE.Put_Line(FND_FILE.LOG, ' Use_reservation_time_fence = '||
416: p_use_reservation_time_fence);
417: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_low = '||
418: p_order_number_low);
419: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_high = '||
413: FND_FILE.Put_Line(FND_FILE.LOG, ' ORG_ID = '||
414: p_org_id);
415: FND_FILE.Put_Line(FND_FILE.LOG, ' Use_reservation_time_fence = '||
416: p_use_reservation_time_fence);
417: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_low = '||
418: p_order_number_low);
419: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_high = '||
420: p_order_number_high);
421: FND_FILE.Put_Line(FND_FILE.LOG, ' Customer = '||
415: FND_FILE.Put_Line(FND_FILE.LOG, ' Use_reservation_time_fence = '||
416: p_use_reservation_time_fence);
417: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_low = '||
418: p_order_number_low);
419: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_high = '||
420: p_order_number_high);
421: FND_FILE.Put_Line(FND_FILE.LOG, ' Customer = '||
422: p_customer_id);
423: FND_FILE.Put_Line(FND_FILE.LOG, ' order_type = '||
417: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_low = '||
418: p_order_number_low);
419: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_high = '||
420: p_order_number_high);
421: FND_FILE.Put_Line(FND_FILE.LOG, ' Customer = '||
422: p_customer_id);
423: FND_FILE.Put_Line(FND_FILE.LOG, ' order_type = '||
424: p_order_type);
425: FND_FILE.Put_Line(FND_FILE.LOG, ' Warehouse = '||
419: FND_FILE.Put_Line(FND_FILE.LOG, ' order_number_high = '||
420: p_order_number_high);
421: FND_FILE.Put_Line(FND_FILE.LOG, ' Customer = '||
422: p_customer_id);
423: FND_FILE.Put_Line(FND_FILE.LOG, ' order_type = '||
424: p_order_type);
425: FND_FILE.Put_Line(FND_FILE.LOG, ' Warehouse = '||
426: p_Warehouse);
427: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_low = '||
421: FND_FILE.Put_Line(FND_FILE.LOG, ' Customer = '||
422: p_customer_id);
423: FND_FILE.Put_Line(FND_FILE.LOG, ' order_type = '||
424: p_order_type);
425: FND_FILE.Put_Line(FND_FILE.LOG, ' Warehouse = '||
426: p_Warehouse);
427: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_low = '||
428: p_request_date_low);
429: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_high = '||
423: FND_FILE.Put_Line(FND_FILE.LOG, ' order_type = '||
424: p_order_type);
425: FND_FILE.Put_Line(FND_FILE.LOG, ' Warehouse = '||
426: p_Warehouse);
427: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_low = '||
428: p_request_date_low);
429: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_high = '||
430: p_request_date_high);
431: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_low = '||
425: FND_FILE.Put_Line(FND_FILE.LOG, ' Warehouse = '||
426: p_Warehouse);
427: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_low = '||
428: p_request_date_low);
429: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_high = '||
430: p_request_date_high);
431: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_low = '||
432: p_schedule_ship_date_low);
433: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_high = '||
427: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_low = '||
428: p_request_date_low);
429: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_high = '||
430: p_request_date_high);
431: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_low = '||
432: p_schedule_ship_date_low);
433: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_high = '||
434: p_schedule_ship_date_high);
435: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_low = '||
429: FND_FILE.Put_Line(FND_FILE.LOG, ' request_date_high = '||
430: p_request_date_high);
431: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_low = '||
432: p_schedule_ship_date_low);
433: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_high = '||
434: p_schedule_ship_date_high);
435: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_low = '||
436: p_ordered_date_low);
437: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_high = '||
431: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_low = '||
432: p_schedule_ship_date_low);
433: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_high = '||
434: p_schedule_ship_date_high);
435: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_low = '||
436: p_ordered_date_low);
437: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_high = '||
438: p_ordered_date_high);
439: FND_FILE.Put_Line(FND_FILE.LOG, ' Demand Class = '||
433: FND_FILE.Put_Line(FND_FILE.LOG, ' schedule_date_high = '||
434: p_schedule_ship_date_high);
435: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_low = '||
436: p_ordered_date_low);
437: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_high = '||
438: p_ordered_date_high);
439: FND_FILE.Put_Line(FND_FILE.LOG, ' Demand Class = '||
440: p_demand_class_code);
441: FND_FILE.Put_Line(FND_FILE.LOG, ' item = '||
435: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_low = '||
436: p_ordered_date_low);
437: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_high = '||
438: p_ordered_date_high);
439: FND_FILE.Put_Line(FND_FILE.LOG, ' Demand Class = '||
440: p_demand_class_code);
441: FND_FILE.Put_Line(FND_FILE.LOG, ' item = '||
442: p_inventory_item_id);
443: FND_FILE.Put_Line(FND_FILE.LOG, ' Planning Priority = '||
437: FND_FILE.Put_Line(FND_FILE.LOG, ' ordered_date_high = '||
438: p_ordered_date_high);
439: FND_FILE.Put_Line(FND_FILE.LOG, ' Demand Class = '||
440: p_demand_class_code);
441: FND_FILE.Put_Line(FND_FILE.LOG, ' item = '||
442: p_inventory_item_id);
443: FND_FILE.Put_Line(FND_FILE.LOG, ' Planning Priority = '||
444: p_Planning_priority);
445: FND_FILE.Put_Line(FND_FILE.LOG, ' Booked Flag = '||
439: FND_FILE.Put_Line(FND_FILE.LOG, ' Demand Class = '||
440: p_demand_class_code);
441: FND_FILE.Put_Line(FND_FILE.LOG, ' item = '||
442: p_inventory_item_id);
443: FND_FILE.Put_Line(FND_FILE.LOG, ' Planning Priority = '||
444: p_Planning_priority);
445: FND_FILE.Put_Line(FND_FILE.LOG, ' Booked Flag = '||
446: p_booked);
447: FND_FILE.Put_Line(FND_FILE.LOG, ' Line ID = '||
441: FND_FILE.Put_Line(FND_FILE.LOG, ' item = '||
442: p_inventory_item_id);
443: FND_FILE.Put_Line(FND_FILE.LOG, ' Planning Priority = '||
444: p_Planning_priority);
445: FND_FILE.Put_Line(FND_FILE.LOG, ' Booked Flag = '||
446: p_booked);
447: FND_FILE.Put_Line(FND_FILE.LOG, ' Line ID = '||
448: p_line_id );
449:
443: FND_FILE.Put_Line(FND_FILE.LOG, ' Planning Priority = '||
444: p_Planning_priority);
445: FND_FILE.Put_Line(FND_FILE.LOG, ' Booked Flag = '||
446: p_booked);
447: FND_FILE.Put_Line(FND_FILE.LOG, ' Line ID = '||
448: p_line_id );
449:
450: IF g_debug <= gme_debug.g_log_procedure THEN
451: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
487: -- Start constructing retrieval syntax
488: IF g_debug <= gme_debug.g_log_procedure THEN
489: gme_debug.put_line('Start building retrieval syntax');
490: END IF;
491: FND_FILE.Put_Line(FND_FILE.LOG, 'Starting syntax construction');
492: l_stmt := 'SELECT Line_id, l.org_id FROM OE_ORDER_LINES l, OE_ORDER_HEADERS_ALL h ,MTL_SYSTEM_ITEMS msi ';
493: l_stmt := l_stmt|| ' WHERE NVL(h.cancelled_flag,'||'''N'''||') <> ' ||'''Y'''||
494: ' AND h.header_id = l.header_id'||
495: ' AND h.open_flag = '||'''Y'''||
521: IF p_order_type IS NOT NULL THEN
522: l_stmt := l_stmt ||' AND h.order_type_id =:order_type'; --p_order_type
523: END IF;
524: IF l_ordered_date_low IS NOT NULL THEN
525: FND_FILE.Put_Line(FND_FILE.LOG, 'GME Ordered date low here ');
526: l_stmt := l_stmt ||' AND h.ordered_date >=:ordered_date_low'; --l_ordered_date_low
527: END IF;
528: IF l_ordered_date_high IS NOT NULL THEN
529: l_stmt := l_stmt ||' AND h.ordered_date <=:ordered_date_high'; --l_ordered_date_high;
583: gme_debug.put_line(substr(l_stmt,1,length(l_stmt)),1);
584: END IF;
585: DBMS_SQL.PARSE(l_cursor_id,l_stmt,DBMS_SQL.NATIVE);
586:
587: FND_FILE.Put_Line(FND_FILE.LOG, 'GME parse done now');
588: IF g_debug <= gme_debug.g_log_procedure THEN
589: gme_debug.put_line('PARSE done ');
590: gme_debug.put_line('Start processing bind variables ');
591: END IF;
659: -- ================= EXECUTE ==========================
660: IF g_debug <= gme_debug.g_log_procedure THEN
661: gme_debug.put_line(substr(l_stmt,1,length(l_stmt)),1);
662: END IF;
663: FND_FILE.Put_Line(FND_FILE.LOG, 'EXECUTE data retrieval ');
664:
665: l_retval := DBMS_SQL.EXECUTE(l_cursor_id);
666:
667: -- ================= PROCESS ORDER LINES ==================
669: gme_debug.put_line('Start looping through rows here');
670: END IF;
671: LOOP
672: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
673: FND_FILE.Put_Line(FND_FILE.LOG, 'Zero order line rows to process so exit');
674: EXIT;
675: END IF;
676: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_line_id);
677:
674: EXIT;
675: END IF;
676: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_line_id);
677:
678: FND_FILE.Put_Line(FND_FILE.LOG, '***** Processing Line id '|| l_line_id||' *****');
679: l_return_status := FND_API.G_RET_STS_SUCCESS;
680: OE_LINE_UTIL.Lock_Row
681: (p_line_id => l_Line_id,
682: p_x_line_rec => l_line_rec,
746: GOTO NEXT_RECORD;
747: END IF;
748: END IF;
749: ELSE
750: FND_FILE.Put_Line(FND_FILE.LOG, '***** order line DOES NOT qualify for MAKE to ORDER '|| l_line_id||' *****');
751: END IF; -- End of Line Qualifies for MAKE to ORDER
752:
753: <
754: NULL;
754: NULL;
755: END LOOP; -- End of lines_cur
756: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
757:
758: FND_FILE.Put_Line(FND_FILE.LOG, 'End of processing for OPM Make to Order');
759: COMMIT;
760:
761: <
762: IF g_debug <= gme_debug.g_log_procedure THEN