84: --Initialze retcode #4220950
85: ERRBUF := '';
86: RETCODE := 0;
87:
88: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of the program ');
89:
90: -- Moac Start
91: IF MO_GLOBAL.get_access_mode = 'S' THEN
92: l_single_org := TRUE;
172: l_sql_stmt := l_sql_stmt || ' ORDER BY SH.HEADER_ID ';
173: END IF;
174: -- Moac End
175:
176: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Purchase Release program with new set Parameters:');
177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' p_org_id = '|| p_org_id);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
173: END IF;
174: -- Moac End
175:
176: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Purchase Release program with new set Parameters:');
177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' p_org_id = '|| p_org_id);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
174: -- Moac End
175:
176: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Purchase Release program with new set Parameters:');
177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' p_org_id = '|| p_org_id);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
175:
176: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Purchase Release program with new set Parameters:');
177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' p_org_id = '|| p_org_id);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
176: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Purchase Release program with new set Parameters:');
177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' p_org_id = '|| p_org_id);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' p_org_id = '|| p_org_id);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Item = '|| p_item);
178: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number High = '|| p_order_number_low);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Item = '|| p_item);
186: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Cust PO Number = '|| p_customer_po_number);
179: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Number Low = '|| p_order_number_high);
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Item = '|| p_item);
186: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Cust PO Number = '|| p_customer_po_number);
187:
180: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Ship To Org ID = '|| p_ship_to_location);
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Item = '|| p_item);
186: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Cust PO Number = '|| p_customer_po_number);
187:
188: l_sqlCursor := DBMS_SQL.Open_Cursor;
181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Order Type ID = '|| p_order_type);
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Item = '|| p_item);
186: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Cust PO Number = '|| p_customer_po_number);
187:
188: l_sqlCursor := DBMS_SQL.Open_Cursor;
189:
182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Customer ID = '|| p_customer);
183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date High = '|| to_char(l_request_date_high,'DD-MON-YYYY'));
184: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Request Date Low = '|| to_char(l_request_date_low,'DD-MON-YYYY'));
185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Item = '|| p_item);
186: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Cust PO Number = '|| p_customer_po_number);
187:
188: l_sqlCursor := DBMS_SQL.Open_Cursor;
189:
190: DBMS_SQL.PARSE(l_sqlCursor, l_sql_stmt, DBMS_SQL.NATIVE);
244: DBMS_SQL.COLUMN_VALUE(l_sqlCursor,2,l_org_id);
245:
246: IF Line_Eligible(p_line_id => v_line_id) THEN
247:
248: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Processing Line ID => '||v_line_id);
249:
250: -- Moac Start
251: IF NOT l_single_org and l_org_id <> l_old_org_id THEN
252: l_old_org_id := l_org_id;
276: EXCEPTION WHEN OTHERS THEN
277: NULL;
278: END;
279:
280: FND_FILE.PUT_LINE (FND_FILE.LOG,'activity result '||l_activity_result);
281:
282: -- #5873209, if purchase release activity was not complete, then set the conc program status as warning
283: IF l_activity_result <> 'COMPLETE' THEN
284: errbuf := 'Could not complete the Purchase Release activity for Order Line ID '||v_line_id||', review the log for more details';
296: --under iteration. Earlier all the mesgs from 1st till last were
297: -- printed and causing log file to increase exponentially in size.
298: for I in l_count..l_msg_count loop
299: l_msg_data := OE_MSG_PUB.Get(I,'F');
300: fnd_file.put_line(FND_FILE.LOG, l_msg_data);
301: -- Write the message to the database?
302: end loop;
303: l_count := l_msg_count + 1;
304: --bug#5081428
311:
312:
313: EXCEPTION
314: WHEN FND_API.G_EXC_ERROR THEN
315: fnd_file.put_line(FND_FILE.LOG, 'Expected Error in Purchase Release Program'||sqlerrm);
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: fnd_file.put_line(FND_FILE.LOG, 'Unexpected Error in Purchase Release Program'||sqlerrm);
319: END Request;
314: WHEN FND_API.G_EXC_ERROR THEN
315: fnd_file.put_line(FND_FILE.LOG, 'Expected Error in Purchase Release Program'||sqlerrm);
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: fnd_file.put_line(FND_FILE.LOG, 'Unexpected Error in Purchase Release Program'||sqlerrm);
319: END Request;
320:
321: END OE_PUR_CONC_REQUESTS;